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