home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 November / 1984-11.d64 / function key_64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  91 lines
  1. 5 print"[147]   please wait..."
  2. 10 i=51712:sh=int(i/256):sl=i-sh*256
  3. 20 read a:ck=ck+a:if a=256 then 40
  4. 25 if a<0 then 100
  5. 30 poke i,a:i=i+1:goto 20
  6. 40 ifck<>28195thenprint"error in data":stop
  7. 50 print"use sys"sh*256+sl+403"to start":end
  8. 100 if a<-255 then a=abs(a+256)+sh:goto 30
  9. 110 a=abs(a+1)+sl:goto30
  10. 49152 data 0,0,0,0,0,0
  11. 49158 data 0,0,0,0,0,0
  12. 49164 data 0,0,0,0,0,0
  13. 49170 data 0,0,0,0,0,0
  14. 49176 data 0,0,0,0,0,0
  15. 49182 data 0,0,0,0,0,0
  16. 49188 data 0,0,0,0,0,0
  17. 49194 data 0,0,0,0,0,0
  18. 49200 data 0,0,0,0,0,0
  19. 49206 data 0,0,0,0,0,0
  20. 49212 data 0,0,0,0,0,0
  21. 49218 data 0,0,0,0,0,0
  22. 49224 data 0,0,0,0,0,0
  23. 49230 data 0,0,0,0,0,0
  24. 49236 data 0,0,0,0,0,0
  25. 49242 data 0,0,0,0,0,0
  26. 49248 data 0,0,0,0,0,0
  27. 49254 data 0,0,0,0,0,0
  28. 49260 data 0,0,0,0,0,0
  29. 49266 data 0,0,0,0,0,0
  30. 49272 data 0,0,0,0,0,0
  31. 49278 data 0,0,0,173,-1,-256
  32. 49284 data 240,30,166,198,224,11
  33. 49290 data 176,24,168,185,-1,-256
  34. 49296 data 240,15,157,119,2,230
  35. 49302 data 198,238,-1,-256,173,-1
  36. 49308 data -256,41,15,208,3,141
  37. 49314 data -1,-256,108,-146,-257,32
  38. 49320 data 72,235,173,-1,-256,208
  39. 49326 data 34,165,157,240,30,165
  40. 49332 data 212,208,26,166,198,202
  41. 49338 data 189,119,2,201,133,144
  42. 49344 data 16,201,141,176,12,56
  43. 49350 data 233,133,10,10,10,10
  44. 49356 data 9,1,141,-1,-256,96
  45. 49362 data 166,122,189,0,2,201
  46. 49368 data 70,208,68,232,189,0
  47. 49374 data 2,201,49,144,60,201
  48. 49380 data 57,176,59,41,15,168
  49. 49386 data 185,-135,-257,168,232,189
  50. 49392 data 0,2,201,61,240,5
  51. 49398 data 162,11,108,0,3,232
  52. 49404 data 189,0,2,201,13,240
  53. 49410 data 15,201,95,208,2,169
  54. 49416 data 13,153,-1,-256,200,152
  55. 49422 data 41,15,208,233,169,0
  56. 49428 data 153,-1,-256,160,107,32
  57. 49434 data 47,241,108,2,3,108
  58. 49440 data -144,-257,208,251,232,189
  59. 49446 data 0,2,201,61,208,202
  60. 49452 data 232,138,72,160,0,189
  61. 49458 data 0,2,201,44,240,8
  62. 49464 data 232,200,192,15,208,243
  63. 49470 data 240,182,192,0,208,4
  64. 49476 data 162,8,208,176,232,189
  65. 49482 data 0,2,201,49,240,8
  66. 49488 data 201,56,240,4,162,9
  67. 49494 data 208,160,41,15,170,152
  68. 49500 data 72,160,0,138,32,186
  69. 49506 data 255,104,168,104,170,152
  70. 49512 data 160,2,32,189,255,162
  71. 49518 data -1,134,251,169,-256,133
  72. 49524 data 252,160,-257,169,251,162
  73. 49530 data -227,32,216,255,169,13
  74. 49536 data 32,210,255,76,116,164
  75. 49542 data 0,1,65,17,81,33
  76. 49548 data 97,49,113,124,165,49
  77. 49554 data 234,162,-256,173,5,3
  78. 49560 data 201,-256,240,17,141,-145
  79. 49566 data -257,173,4,3,141,-144
  80. 49572 data -257,169,-211,141,4,3
  81. 49578 data 142,5,3,173,21,3
  82. 49584 data 201,-256,240,19,141,-147
  83. 49590 data -257,173,20,3,141,-146
  84. 49596 data -257,169,-130,120,141,20
  85. 49602 data 3,142,21,3,88,173
  86. 49608 data 144,2,201,-256,240,19
  87. 49614 data 141,-170,-256,173,143,2
  88. 49620 data 141,-169,-256,169,-168,120
  89. 49626 data 141,143,2,142,144,2
  90. 49632 data 88,96,256
  91.