===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 03-22-93 (11:25)             Number: 112
From: EARL MONTGOMERY              Refer#: NONE
  To: FRED DISANO                   Recvd: NO  
Subj: 320*400*256                    Conf: (35) Quick Basi
---------------------------------------------------------------------------
' Fred I think all you need is the OUTs necessary to set up the
' 320*400 screen. But then again maybe you'll need some additional
' info. So I'll just repost the original. If I can help you further
' let me know.
RANDOMIZE TIMER
DEFINT A-Z
SCREEN 13
OUT &H3D4, 9
OUT &H3D5, &H40
OUT &H3D4, 20
OUT &H3D5, 0
OUT &H3D4, 23
OUT &H3D5, &HE3
OUT &H3C4, 4
OUT &H3C5, &H6
DEF SEG = &HA000
OUT &H3C4, 2: OUT &H3C5, 15: CLS 'rem this clears (CLS) all 4 planes
OUT &H3C4, 2
FOR x = 0 TO 31999
cnt = cnt + 1: IF cnt = 80 THEN counter = counter + 1: cnt = 0
OUT &H3C5, 1: POKE x, 144
OUT &H3C5, 2: POKE x, 144
OUT &H3C5, 4: POKE x, 144
OUT &H3C5, 8: POKE x, 144
NEXT
clrscrn:
OUT &H3C4, 2: OUT &H3C5, 15: CLS 'this causes a CLS of all 4 planes
IF flag$ = "return" THEN GOTO loadem
LOCATE 1, 1: COLOR 15: PRINT counter; : PRINT "Lines"
OUT &H3C5, 4: LOCATE 1, 1: PRINT counter; : PRINT "Lines"
OUT &H3C5, 2: LOCATE 1, 1: PRINT counter; : PRINT "Lines"
OUT &HC5, 1: LOCATE 1, 1: PRINT counter; : PRINT "Lines"
COLOR 89
OUT &H3C5, 8: LINE (0, 21)-(79, 21)
OUT &H3C5, 4: LINE (0, 21)-(79, 21)
OUT &H3C5, 2: LINE (0, 21)-(79, 21)
OUT &H3C5, 1: LINE (0, 21)-(79, 21)
FOR x = 0 TO 500
h = RND * 79: v = RND * 100
PSET (h, v), RND * 255
NEXT
DEF SEG = &HA000
OUT &H3CE, 4: OUT &H3CF, 0: BSAVE "0.bin", 0, 32000
OUT &H3CE, 4: OUT &H3CF, 1: BSAVE "1.bin", 0, 32000
OUT &H3CE, 4: OUT &H3CF, 2: BSAVE "2.bin", 0, 32000
OUT &H3CE, 4: OUT &H3CF, 3: BSAVE "3.bin", 0, 32000
flag$ = "return": GOTO clrscrn
loadem:
FOR delay = 0 TO 32000: NEXT
OUT &H3C4, 2: OUT &H3C5, 1: BLOAD "0.bin", 0
FOR delay = 0 TO 32000: NEXT
OUT &H3C4, 2: OUT &H3C5, 2: BLOAD "1.bin", 0
FOR delay = 0 TO 32000: NEXT
OUT &H3C4, 2: OUT &H3C5, 4: BLOAD "2.bin", 0
FOR delay = 0 TO 32000: NEXT
OUT &H3C4, 2: OUT &H3C5, 8: BLOAD "3.bin", 0
holdscrn:
GOTO holdscrn
'End of program

--- Maximus 2.01wb
 * Origin: Verbose Ink * Dallas * 214-437-0914 * V32b/HST (1:124/5125)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 950 203/23 209/209 280/1
SEEN-BY: 390/1 396/1 15 397/2 2230/100 3603/20