home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 January / Ahoy_Magazine_86-01_1986_Double_L.d64 / infraraid (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  100 lines
  1. 0 rem *******************************
  2. 1 rem *                             *
  3. 2 rem *      -- infraraid --        *
  4. 3 rem * error trapping for the c-64 *
  5. 4 rem *                             *
  6. 5 rem * author: timothy vandeventer *
  7. 6 rem *         3851 e. eaton hwy.  *
  8. 7 rem *         sunfield, mi  48890 *
  9. 8 rem *                             *
  10. 9 rem *******************************
  11. 10 poke53281,0:poke53280,0:print"[147]"
  12. 15 fori=50176to50670
  13. 20 reada:cs=cs+a:ln=100+int((i-50176)/7)*10
  14. 30 ifa>255ora<0thenprint:print"bad data in line"ln:stop
  15. 40 pokei,a:println;:x=x+1:ifx=7thenx=0:print
  16. 50 next
  17. 60 ifcs<>65731thenprint:print"checksum error. check all data.":stop
  18. 70 print:print"[147]infraraid loaded!"
  19. 80 print"do you wish to save to disk or tape?"
  20. 82 getc$:ifc$<>"t"andc$<>"d"then82
  21. 84 ifc$="t"then92
  22. 86 poke43,0:poke44,196:poke45,239:poke46,197
  23. 88 save"infraraid(50176)",8,1
  24. 90 goto98
  25. 92 poke43,0:poke44,196:poke45,239:poke46,197
  26. 94 save"infraraid(50176)",1,1
  27. 98 poke43,1:poke44,8:poke45,1:poke46,8
  28. 99 print"to activate, enter sys 50176":end
  29. 100 data 173,0,3,205,235,197,240
  30. 110 data 3,141,225,197,173,1,3
  31. 120 data 205,236,197,240,15,141,226
  32. 130 data 197,173,235,197,141,0,3
  33. 140 data 173,236,197,141,1,3,32
  34. 150 data 99,197,76,125,197,142,237
  35. 160 data 197,32,189,197,32,99,197
  36. 170 data 224,128,240,6,165,58,201
  37. 180 data 255,208,3,76,17,197,32
  38. 190 data 125,197,240,74,224,15,208
  39. 200 data 12,41,1,240,66,173,238
  40. 210 data 197,208,45,104,104,96,224
  41. 220 data 20,208,10,41,2,240,50
  42. 230 data 173,238,197,208,29,96,224
  43. 240 data 4,208,10,41,4,240,36
  44. 250 data 173,238,197,208,15,96,224
  45. 260 data 5,208,26,41,8,240,22
  46. 270 data 173,238,197,208,1,96,173
  47. 280 data 227,197,133,20,173,228,197
  48. 290 data 133,21,32,163,168,76,174
  49. 300 data 167,169,32,162,255,232,157
  50. 310 data 0,4,157,250,4,157,244
  51. 320 data 5,157,238,6,224,250,208
  52. 330 data 239,162,255,232,181,217,9
  53. 340 data 128,149,217,224,25,208,245
  54. 350 data 169,14,141,32,208,169,6
  55. 360 data 141,33,208,169,14,141,134
  56. 370 data 2,24,162,1,134,214,160
  57. 380 data 0,132,211,32,240,255,169
  58. 390 data 0,133,19,133,184,165,57
  59. 400 data 133,20,165,58,133,21,32
  60. 410 data 19,166,144,44,160,2,132
  61. 420 data 15,177,95,170,200,177,95
  62. 430 data 132,73,32,205,189,169,32
  63. 440 data 164,73,41,127,32,210,255
  64. 450 data 201,34,208,6,165,15,73
  65. 460 data 255,133,15,200,240,7,32
  66. 470 data 60,197,177,95,208,11,174
  67. 480 data 237,197,169,14,141,134,2
  68. 490 data 108,225,197,16,220,201,255
  69. 500 data 240,216,36,15,48,212,56
  70. 510 data 233,127,170,132,73,160,255
  71. 520 data 202,240,8,200,185,158,160
  72. 530 data 16,250,48,245,200,185,158
  73. 540 data 160,48,183,32,210,255,208
  74. 550 data 245,132,73,169,14,141,134
  75. 560 data 2,152,24,101,95,197,122
  76. 570 data 240,16,200,24,105,1,197
  77. 580 data 122,208,13,177,95,240,4
  78. 590 data 201,58,208,5,169,1,141
  79. 600 data 134,2,164,73,96,173,229
  80. 610 data 197,133,69,173,230,197,133
  81. 620 data 70,32,231,176,160,0,152
  82. 630 data 145,71,174,237,197,200,138
  83. 640 data 145,71,96,173,231,197,133
  84. 650 data 69,173,232,197,133,70,32
  85. 660 data 231,176,169,237,141,40,3
  86. 670 data 169,246,141,41,3,169,237
  87. 680 data 141,40,3,160,0,177,71
  88. 690 data 41,32,240,5,169,239,141
  89. 700 data 40,3,177,71,41,64,240
  90. 710 data 10,169,188,141,41,3,169
  91. 720 data 54,141,40,3,200,177,71
  92. 730 data 174,237,197,96,173,233,197
  93. 740 data 133,69,173,234,197,133,70
  94. 750 data 32,231,176,160,0,177,71
  95. 760 data 141,228,197,141,238,197,200
  96. 770 data 177,71,141,227,197,13,238
  97. 780 data 197,141,238,197,96,139,227
  98. 790 data 0,0,197,210,212,210,197
  99. 800 data 204,40,196,128,0
  100.