BBS: Inland Empire Archive
Date: 11-19-92 (16:31) Number: 336
From: EARL MONTGOMERY Refer#: NONE
To: ALL Recvd: NO
Subj: 320X400X256 Conf: (2) Quik_Bas
REM Here is what I've come up with so far. Please see my comments
REM in the next message.
RANDOMIZE TIMER
DEFINT A-Z
SCREEN 13: CLS
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: CLS
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 &H3C5, 1: CLS
OUT &H3C5, 2: CLS
OUT &H3C5, 4: CLS
OUT &H3C5, 8: CLS
IF flag$ = "return" THEN GOTO loadem
LOCATE 1, 1: COLOR 15: 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
See the comments in my next message.
Earl
--- Maximus 2.01wb
* Origin: Rabbit and Snake's BBS - Richardson, Texas (1:124/6108)
