home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_16_1987_Transactor_Publishing.d64 / screensave.bas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  32 lines
  1. 10 rem* data loader for "screensave" *
  2. 20 for i=828 to 1003:read a:poke i,a
  3. 30 cs=cs+a:next i
  4. 40 :
  5. 50 if cs<>19715 then print"!data error!": end
  6. 60 sys 828
  7. 70 print"screen saver activated!"
  8. 80 end
  9. 90 :
  10. 1000 data 120, 173,  20,   3, 141, 236,   3, 173
  11. 1010 data  21,   3, 141, 237,   3, 169, 111, 141
  12. 1020 data  20,   3, 169,   3, 141,  21,   3, 169
  13. 1030 data   0, 141, 240,   3, 141, 241,   3, 141
  14. 1040 data 238,   3,  88,  96, 120, 173, 236,   3
  15. 1050 data 141,  20,   3, 173, 237,   3, 141,  21
  16. 1060 data   3,  88,  96,  72,   8, 169,  16,  44
  17. 1070 data  17, 208, 240,  41, 169,  64, 197, 203
  18. 1080 data 208,  60,  32, 197,   3, 173, 238,   3
  19. 1090 data 240,  22, 173,  32, 208, 141, 239,   3
  20. 1100 data 169,   0, 141,  32, 208, 141, 238,   3
  21. 1110 data 169, 239,  45,  17, 208, 141,  17, 208
  22. 1120 data  40, 104, 108, 236,   3, 169,  64, 197
  23. 1130 data 203, 208,   5, 173, 141,   2, 240, 240
  24. 1140 data 173, 239,   3, 141,  32, 208, 169,  16
  25. 1150 data  13,  17, 208, 141,  17, 208, 169,   0
  26. 1160 data 141, 240,   3, 141, 241,   3,  76, 156
  27. 1170 data   3,  24, 169,   1, 109, 240,   3, 141
  28. 1180 data 240,   3, 144,  10,  24, 169,   1, 109
  29. 1190 data 241,   3, 141, 241,   3,  96, 169,  32
  30. 1200 data 205, 240,   3, 208,  10, 169,  28, 205
  31. 1210 data 241,   3, 208,   3, 238, 238,   3,  96
  32.