320*400*256

 BBS: Inland Empire Archive
Date: 03-22-93 (11:25)             Number: 230
From: EARL MONTGOMERY              Refer#: NONE
  To: FRED DISANO                   Recvd: NO  
Subj: 320*400*256                    Conf: (2) Quik_Bas

' 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)