home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib32b.dsk
/
ZAPPO.bas
< prev
Wrap
BASIC Source File
|
2023-02-26
|
490b
|
14 lines
10 REM **********************
20 REM * ZAPPO *
30 REM * BY JON THOMASON *
40 REM * COPYRIGHT (C) 1987 *
50 REM * BY MICROSPARC, INC *
60 REM * CONCORD, MA 01742 *
70 REM **********************
80 HOME : PRINT CHR$(17);: INVERSE
90 FOR X = 10 TO 15: VTAB X: PRINT TAB( 41)
100 NEXT : NORMAL
110 FOR X = 768 TO 790: READ Y
120 POKE X,Y: NEXT : CALL 768
130 DATA 173,34,192,72,24,105,17,141,34,192,174,0
140 DATA 192,16,245,44,16,192,104,141,34,192,96