home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 November / 1984-11.d64 / disk autoload (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  2.6 KB  |  85 lines
  1. 5 print"[147] please wait..."
  2. 10 b=679:c=767:tt=0
  3. 20 fora=btoc:readd:tt=tt+d:pokea,d:next
  4. 25 iftt<>8554thenprint"check data statements";b;"to";c:end
  5. 30 b=7168:c=7623:tt=0
  6. 40 fora=btoc:readd:tt=tt+d:pokea,d:next
  7. 45 iftt<>42577thenprint"check data statements";b;"to";c:end
  8. 50 print "[147] auto-load a b[146]asic or m[146]achine language   program?"
  9. 70 geta$:ifa$=""then70
  10. 80 ifa$="m"thengosub300
  11. 299 sys7168:end
  12. 300 print"[147] enter starting address of machine lang. program."
  13. 330 inputn:ifn<0orn>65535then300
  14. 340 nn=int(n/256):poke722,n-(nn*256):poke723,nn:poke721,32
  15. 345 poke693,1
  16. 350 poke718,32:poke719,66:poke720,166:poke724,76:poke725,116:poke726,164:return
  17. 679 data169,131,141,2,3,169,164,141
  18. 687 data3,3,169,8,170,160,0,32
  19. 695 data186,255,169,2,162,239,160,2
  20. 703 data32,189,255,169,0,166,43,164
  21. 711 data44,32,213,255,32,231,255,165
  22. 719 data174,133,45,133,47,165,175,133
  23. 727 data46,133,48,234,169,82,141,119
  24. 735 data2,169,213,141,120,2,169,13
  25. 743 data141,121,2,169,3,133,198,96
  26. 751 data0,0,0,0,0,0,0,0
  27. 759 data0,0,0,0,0,0,0,0,0
  28. 7168 data162,0,189,171,28,32,210,255
  29. 7176 data232,224,98,208,245,162,0,32
  30. 7184 data207,255,201,13,240,8,157,239
  31. 7192 data2,232,224,16,208,241,142,186
  32. 7200 data2,162,0,189,13,29,32,210
  33. 7208 data255,232,224,59,208,245,162,0
  34. 7216 data160,0,232,234,208,252,200,208
  35. 7224 data249,165,197,201,64,240,250,169
  36. 7232 data0,133,198,162,0,189,74,29
  37. 7240 data32,210,255,232,224,85,208,245
  38. 7248 data162,0,32,207,255,201,13,240
  39. 7256 data8,157,200,29,232,224,16,208
  40. 7264 data241,142,111,28,169,167,141,2
  41. 7272 data3,169,2,141,3,3,169,0
  42. 7280 data162,200,160,29,32,189,255,169
  43. 7288 data8,170,160,255,32,186,255,169
  44. 7296 data167,133,251,169,2,133,252,169
  45. 7304 data251,162,4,160,3,32,216,255
  46. 7312 data32,231,255,169,131,141,2,3
  47. 7320 data169,164,141,3,3,162,0,189
  48. 7328 data159,29,32,210,255,232,224,41
  49. 7336 data208,245,96,147,17,32,69,78
  50. 7344 data84,69,82,32,78,65,77,69
  51. 7352 data32,79,70,32,13,80,82,79
  52. 7360 data71,82,65,77,32,84,72,65
  53. 7368 data84,32,73,83,32,84,79,32
  54. 7376 data66,69,13,65,85,84,79,77
  55. 7384 data65,84,73,67,65,76,76,89
  56. 7392 data32,66,79,79,84,69,68,46
  57. 7400 data13,17,32,77,65,88,73,77
  58. 7408 data85,77,32,76,69,78,71,84
  59. 7416 data72,32,61,32,49,54,13,67
  60. 7424 data72,65,82,65,67,84,69,82
  61. 7432 data83,46,17,17,13,147,17,80
  62. 7440 data76,65,67,69,32,78,69,87
  63. 7448 data76,89,32,70,79,82,77,65
  64. 7456 data84,84,69,68,13,32,68,73
  65. 7464 data83,75,32,73,78,32,68,73
  66. 7472 data83,75,32,68,82,73,86,69
  67. 7480 data44,13,84,72,69,78,32,80
  68. 7488 data82,69,83,83,32,70,49,46
  69. 7496 data17,13,147,17,32,69,78,84
  70. 7504 data69,82,32,78,65,77,69,32
  71. 7512 data79,70,32,66,79,79,84,13
  72. 7520 data80,82,79,71,46,32,157,84
  73. 7528 data72,69,78,32,80,82,69,83
  74. 7536 data83,13,82,69,84,85,82,78
  75. 7544 data46,17,13,32,77,65,88,73
  76. 7552 data77,85,77,32,76,69,78,71
  77. 7560 data84,72,32,61,32,49,54,13
  78. 7568 data32,67,72,65,82,65,67,84
  79. 7576 data69,82,83,46,17,17,13,147
  80. 7584 data17,32,18,84,85,82,78,32
  81. 7592 data67,79,77,80,85,84,69,82
  82. 7600 data32,79,70,70,47,79,78,13
  83. 7608 data84,79,32,82,69,83,69,84
  84. 7616 data32,86,69,67,84,79,82,83
  85.