home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_07_1985_Transactor_Publishing.d64 / 1541 dual drive (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  33 lines

  1. 0 rem the transactor volume 6 issue 02        page 60
  2. 100 rem    using device #9 drive #0 to
  3. 110 rem    simulate device #8, drive #1
  4. 120 rem    copyright: g. neufeld, 1984
  5. 130 :
  6. 140 k=828:sum=0
  7. 150 read x:if x<0 goto 180
  8. 160 poke k,x:sum=sum+x:k=k+1:goto 150
  9. 170 :
  10. 180 if sum<>13992 then print"bad data":stop
  11. 190 sys 828
  12. 200 print"routine activated"
  13. 210 :
  14. 220 data 160,   1, 185,  48,   3,  72, 185
  15. 230 data 123,   3, 153,  48,   3, 104, 153
  16. 240 data 123,   3, 185,  50,   3,  72, 185
  17. 250 data 132,   3, 153,  50,   3, 104, 153
  18. 260 data 132,   3, 185,  26,   3,  72, 185
  19. 270 data 112,   3, 153,  26,   3, 104, 153
  20. 280 data 112,   3, 136,  16, 211,  96,  32
  21. 290 data 137,   3,  32, 108,   3,  76, 180
  22. 300 data   3,  32, 137,   3, 169,   0,  32
  23. 310 data 117,   3,  76, 180,   3,  32, 137
  24. 320 data   3,  32, 128,   3,  76, 180,   3
  25. 330 data 160, 255, 132, 251, 165, 186, 201
  26. 340 data   8, 208,  32, 200, 177, 187, 201
  27. 350 data  49, 240,   7, 200, 177, 187, 201
  28. 360 data  49, 208,  18, 169,  48, 145, 187
  29. 370 data 169,   9, 133, 186, 132, 251, 165
  30. 380 data 187, 133, 252, 165, 188, 133, 253
  31. 390 data  96, 164, 251,  48,   4, 169,  49
  32. 400 data 145, 252,  96, -99
  33.