home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib35b.dsk / FLASH.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  642b  |  17 lines
  1. 10  REM **********************
  2. 20  REM * FLASH.DEMO         *
  3. 30  REM * BY PHIL GOETZ      *
  4. 40  REM * COPYRIGHT(C) 1988  *
  5. 50  REM * MICROSPARC, INC.   *
  6. 60  REM * CONCORD, MA 01742  *
  7. 70  REM **********************
  8. 80  ONERR  GOTO 170
  9. 90  PRINT  CHR$(4)"BLOAD FLASH,A$300"
  10. 100  HGR 
  11. 110  FOR I = 1 TO 5: FOR C = 1 TO 7: HCOLOR= C
  12. 120  HPLOT  RND(1) *279, RND(1) *191 TO  RND(1) *279, RND(1) *191
  13. 130  NEXT : NEXT 
  14. 140  FOR I = 1 TO 7: POKE 6,I: CALL 768: GOSUB 160: NEXT 
  15. 150  TEXT : HOME : VTAB 23: END 
  16. 160  HOME : VTAB 23: PRINT "PRESS RETURN TO CONTINUE ";: POKE  -16368,0: GET A$: RETURN 
  17. 170  PRINT "ERROR WHILE LOADING 'FLASH'": END