home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 93 / 64er_Magazin_Sonderheft_93_19xx_Markt__Technik_de_Side_B.d64 / testpoint (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.