home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib32b.dsk
/
CYCLECOLS.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
809b
|
20 lines
10 REM **********************
20 REM * CYCLECOLS *
30 REM * BY JON THOMASON *
40 REM * COPYRIGHT (C) 1987 *
50 REM * BY MICROSPARC, INC *
60 REM * CONCORD, MA 01742 *
70 REM **********************
80 BRDER = 0:BACK = 0:CHAR = 0: FOR I = 0 TO 11: READ X: POKE 768 +I,X: NEXT
90 POKE 49186,BACK +16 *CHAR: REM $C022
100 POKE 800,BACK: CALL 768: REM $C034 also controls clock
110 BRDER = BRDER +1:BACK = BACK +1:CHAR = CHAR +1
120 IF BRDER >15 THEN BRDER = BRDER -16
130 IF BACK >15 THEN BACK = BACK -16
140 IF CHAR >15 THEN CHAR = CHAR -16
150 FOR X = 1 TO 100: NEXT
160 IF PEEK(49177) <128 THEN 160
170 IF PEEK(49152) <128 GOTO 90
180 POKE 49186,6 +15 *16: POKE 800,6: CALL 768: REM restore default colors
190 END
200 DATA 173,52,192,41,240,13,32,3,141,52,192,96