home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_06_1985_Transactor_Publishing.d64 / verifizer.64tape (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  30 lines
  1. 0 rem the transactor volume 6 issue 05         page 6
  2. 10 rem* data loader for "verifizer" *
  3. 15 rem for vic/64 with cassette tape
  4. 20 cs=0
  5. 30 for i=850 to 980:read a:poke i,a
  6. 40 cs=cs+a:next i
  7. 50 :
  8. 60 if cs<>14821 then print"***** data error *****": end
  9. 70 rem sys 850 on, sys853 off
  10. 1000 data  76,  96,   3, 165, 251, 141,   2,   3, 165
  11. 1010 data 252, 141,   3,   3,  96, 173,   3,   3, 201
  12. 1020 data   3, 240,  17, 133, 252, 173,   2,   3, 133
  13. 1030 data 251, 169, 121, 141,   2,   3, 169,   3, 141
  14. 1040 data   3,   3,  96, 173, 254,   1, 133,  89, 162
  15. 1050 data   0, 160,   0, 189,   0,   2, 240,  22, 201
  16. 1060 data  32, 240,  15, 133,  91, 200, 152,  41,   3
  17. 1070 data 133,  90,  32, 205,   3, 198,  90,  16, 249
  18. 1080 data 232, 208, 229,  56,  32, 240, 255, 169,  19
  19. 1090 data  32, 210, 255, 169,  18,  32, 210, 255, 165
  20. 1100 data  89,  41,  15,  24, 105,  97,  32, 210, 255
  21. 1110 data 165,  89,  74,  74,  74,  74,  24, 105,  97
  22. 1120 data  32, 210, 255, 169, 146,  32, 210, 255,  24
  23. 1130 data  32, 240, 255, 108, 251,   0, 165,  91,  24
  24. 1140 data 101,  89, 133,  89,  96
  25. 2000 a$="verifizer.sys850 "
  26. 2010 for i=850 to 980
  27. 2020 a$=a$+chr$(peek(i)):next
  28. 2030 open1,1,1,a$:close1
  29. 2040 end
  30.