home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_13_1986_Transactor_Publishing.d64 / move.bas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  313b  |  15 lines
  1. 900 cs = 0
  2. 905 for i = 828 to 864
  3. 910 read b : poke i,b : cs = cs + b
  4. 915 next i
  5. 920 :
  6. 925 if cs <> 4327 then print "checksum error" : stop
  7. 930 :
  8. 935 data 165,030,240,027,169,000,141
  9. 940 data 096,003,160,000,177,025,145
  10. 945 data 027,200,204,096,003,208,246
  11. 950 data 230,026,230,028,198,030,048
  12. 955 data 006,208,236,165,029,208,227
  13. 960 data 096
  14. 965 :
  15.