home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 December / Ahoy_Magazine_88-12_1988_Double_L.d64 / ScreenSaver64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  49 lines
  1. 100 rem *** screensaver 64 ***
  2. 110 ss=51200:rem relocating ***
  3. 120 ck=0
  4. 130 readd:ck=ck+d:ifd=999then150
  5. 140 goto130
  6. 150 ifck<>20519thenprint"*** error in data ***":end
  7. 160 restore:sa=ss
  8. 170 readd:ifd=999then220
  9. 180 ifd=>0thenpokesa,d:goto210
  10. 190 ad=ss+abs(d):h=ad/256:l=ad-int(ad/256)*256
  11. 200 pokesa,l:sa=sa+1:pokesa,h
  12. 210 sa=sa+1:goto170
  13. 220 print"screensaver installed"ss"to"sa
  14. 230 print
  15. 240 print"to save screen: sys"ss
  16. 250 print"recall screen : sys"ss+3
  17. 260 print"clear links   : sys"ss+6
  18. 270 print"move storage  : poke"ss+9"[157], high-byte"
  19. 280 load"[211]creen[211]aver [196]emo",8:print"run"chr$(13)
  20. 290 data 184,80,7,184,80,85,184,80
  21. 300 data 70,208,173,136,2,32,-160,173
  22. 310 data -9,133,196,132,195,32,-194,169
  23. 320 data 216,32,-160,32,-191,32,-245,160
  24. 330 data 24,185,217,0,32,-220,136,16
  25. 340 data 247,160,25,165,199,32,-220,200
  26. 350 data 173,134,2,32,-220,56,32,240
  27. 360 data 255,138,72,152,160,27,32,-220
  28. 370 data 104,200,76,-220,162,24,181,217
  29. 380 data 9,128,149,217,202,16,247,96
  30. 390 data 173,-9,32,-160,173,136,2,32
  31. 400 data -176,24,165,175,105,4,162,208
  32. 410 data 134,174,133,175,169,216,32,-176
  33. 420 data 160,24,32,-205,153,217,0,136
  34. 430 data 16,247,160,25,32,-205,133,199
  35. 440 data 200,32,-205,141,134,2,200,32
  36. 450 data -205,72,200,32,-205,170,104,168
  37. 460 data 24,76,240,255,160,0,133,173
  38. 470 data 132,172,24,105,3,133,175,169
  39. 480 data 232,133,174,96,132,195,133,196
  40. 490 data 32,-205,145,195,32,-237,208,246
  41. 500 data 96,32,-245,177,172,32,-220,32
  42. 510 data -237,208,246,96,162,52,8,120
  43. 520 data 165,1,134,1,170,177,172,134
  44. 530 data 1,40,96,162,52,8,120,72
  45. 540 data 165,1,134,1,170,104,145,195
  46. 550 data 134,1,40,96,32,219,252,32
  47. 560 data 209,252,240,6,230,195,208,2
  48. 570 data 230,196,96,999
  49.