home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_02_1984_Transactor_Publishing.d64 / mirror 64 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  673b  |  20 lines
  1. 0 rem the transactor volume 5 issue 02 page 21
  2. 1 rem updated version - background color      bug compensation eliminated
  3. 1000 rem mirror 64
  4. 1010 for j=828 to 900 : read x
  5. 1020 poke j,x : ch=ch+x : next
  6. 1030 if ch<> 8386  then print"checksum error" : end
  7. 1034 print"[147]";:sys 828
  8. 1040 :
  9. 1045 end
  10. 1050 data 169,  71, 141,  20,   3, 169,   3, 141
  11. 1060 data  21,   3,  96, 162,   0, 160, 255, 189
  12. 1070 data   0,   4, 153, 232,   6, 173, 134,   2
  13. 1080 data 153, 232, 218, 136, 232, 208, 240, 238
  14. 1090 data  77,   3, 206,  80,   3, 234, 234, 234
  15. 1100 data 206,  86,   3, 173,  77,   3, 201,   6
  16. 1110 data 208, 221, 169,   4, 141,  77,   3, 169
  17. 1120 data   6, 141,  80,   3, 169,   2, 141,  83
  18. 1130 data   3, 169, 218, 141,  86,   3,  76,  49
  19. 1140 data 234
  20.