home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh93b.d64 / testpoint (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  484b  |  20 lines
  1. 5 IFPEEK(834)<>99THENPOKE834,99:LOAD"SETPOINT.OBJ",8,1
  2. 10 GOSUB1000
  3. 20 FORX=80 TO 240:Y=100:GOSUB3000:NEXT
  4. 22 Y=100:FORX=80 TO 160:GOSUB3000:Y=Y-1:NEXT
  5. 23 Y=20:FORX=160TO 240:GOSUB3000:Y=Y+1:NEXT
  6. 30 FORX=80 TO 240:Y=110:GOSUB3000:NEXT
  7. 32 Y=110:FORX=80TO160:GOSUB3000:Y=Y+1:NEXT
  8. 33 Y=190:FORX=160TO240:GOSUB3000:Y=Y-1:NEXT
  9. 800 GOSUB 2000
  10. 900 PRINT"[147]":END
  11. 1000 POKE832,PEEK(53265):POKE833,PEEK(53272)
  12. 1005 POKE 53265,PEEK(53265)OR32
  13. 1010 POKE 53272,PEEK(53272)OR8
  14. 1020 FORI=1024TO2023:POKEI,1:NEXTI
  15. 1030 FORI=8192TO16191:POKEI,0:NEXT
  16. 1040 RETURN
  17. 2000 POKE198,0:WAIT198,1:POKE53265,PEEK(832):POKE53272,PEEK(833)
  18. 2010 RETURN
  19. 3000 SYS49152,X,Y:RETURN
  20.