home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib29b.dsk / HIRES.FILL.bas < prev    next >
BASIC Source File  |  2023-02-26  |  680b  |  17 lines
  1. 10  REM  **********************
  2. 20  REM  *    HIRES.FILL      *
  3. 30  REM  * COPYRIGHT (C) 1986 *
  4. 40  REM  * BY MICROSPARC, INC *
  5. 50  REM  * CONCORD, MA  01742 *
  6. 60  REM  **********************
  7. 70  REM  BE SURE TO BRUN SETUP FIRST
  8. 80  HOME : VTAB 24: PRINT "Press Space to switch or Escape to quit.";
  9. 90  HGR : HCOLOR= 3
  10. 100 X = 0
  11. 110  HPLOT X,159 TO X,0
  12. 120  VTAB 22: HTAB 1: CALL  -868: HTAB 1: PRINT "(Bank " PEEK(974)") Plotting on Hi-Res: X= "X
  13. 130 A =  PEEK( -16384): IF A = 160  THEN  POKE  -16368,0: POKE  -16303,0: CALL 768: PRINT 
  14. 140  IF A = 155  THEN  POKE  -16368,0: GOTO 170
  15. 150 X = X +1: IF X <280 GOTO 110
  16. 160  GOTO 90
  17. 170  PRINT "Program stopped in Bank " PEEK(974)