home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 November / 64er_Magazin_84-11_1984_Markt__Technik_de.d64 / befehlskopf (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  124 lines
  1. 1 rem befehlskopf
  2. 2 rem
  3. 100 dims(5)
  4. 110 rem *** pruefsummen
  5. 120 s(0)=10538:s(1)=0:s(2)=10372
  6. 130 s(3)=14363:s(4)=12024:s(5)=733
  7. 140 fory=0to5:s=0
  8. 150 fort=0to103:readd:s=s+d:next
  9. 160 if s<>s(y)thenprint"[147]fehler in teil"y+1:end
  10. 170 next
  11. 180 restore
  12. 190 print"[147]m[146]odulbereich oder"
  13. 200 print"e[146]nde des speichers ?"
  14. 210 get a$:ifa$=""then210
  15. 220 ifa$="m"thenprint"m":goto380
  16. 230 ifa$<>"e"then210
  17. 240 print"e"
  18. 245 rem *** programm ans speicherende
  19. 250 poke55,0:poke56,peek(56)-3:clr
  20. 260 ad=peek(56)
  21. 270 hd=ad*256:n=623
  22. 275 rem *** leseschleife
  23. 280 fort=hdtohd+n
  24. 290 readd
  25. 300 ifd=-1thend=ad
  26. 310 ifd=-2thend=ad+1
  27. 320 ifd=-3thend=ad+2
  28. 330 poket,d:next
  29. 340 print"[147]start des programms"
  30. 350 iffl=0thenprint"mit sys"hd"."
  31. 360 iffl=1thenprint"mit reset (=sys 64802)"
  32. 370 end
  33. 375 rem *** programm in den modulbereich
  34. 376 rem *** mit identifikation a0cbm
  35. 380 v$="009160199254065048195194205"
  36. 390 fore=0to8
  37. 400 x=val(mid$(v$,e*3+1,3)):readd
  38. 410 poke40960+e,x:next
  39. 420 hd=40969:n=614:ad=160:fl=1:goto 280
  40. 430 rem teil 1
  41. 440 data120,234,234,234,234,234,234,234
  42. 450 data234,032,141,253,032,082,253,032
  43. 460 data249,253,032,024,229,162,011,189
  44. 470 data059,-01,157,000,003,202,016,247
  45. 480 data088,234,234,234,032,164,227,165
  46. 490 data043,164,044,032,008,196,169,071
  47. 500 data160,-01,032,030,203,032,018,228
  48. 510 data076,129,227,058,196,131,196,229
  49. 520 data-01,152,-02,226,-02,134,206,042
  50. 530 data042,042,042,032,054,052,039,069
  51. 540 data082,032,032,066,065,083,073,067
  52. 550 data032,042,042,042,042,013,000,000
  53. 560 data000,000,000,000,000,000,000,000
  54. 570 rem teil 2
  55. 580 data000,000,000,000,000,000,000,000
  56. 590 data000,000,000,000,000,000,000,000
  57. 600 data000,000,000,000,000,000,000,000
  58. 610 data000,000,000,000,000,000,000,000
  59. 620 data000,000,000,000,000,000,000,000
  60. 630 data000,000,000,000,000,000,000,000
  61. 640 data000,000,000,000,000,000,000,000
  62. 650 data000,000,000,000,000,000,000,000
  63. 660 data000,000,000,000,000,000,000,000
  64. 670 data000,000,000,000,000,000,000,000
  65. 680 data000,000,000,000,000,000,000,000
  66. 690 data000,000,000,000,000,000,000,000
  67. 700 data000,000,000,000,000,000,000,000
  68. 710 rem teil 3
  69. 720 data000,000,000,000,000,000,000,000
  70. 730 data000,000,000,000,000,000,000,000
  71. 740 data000,000,000,000,000,166,122,160
  72. 750 data004,132,015,189,000,002,016,007
  73. 760 data201,255,240,062,232,208,244,201
  74. 770 data032,240,055,133,008,201,034,240
  75. 780 data086,036,015,112,045,201,063,208
  76. 790 data004,169,153,208,037,201,048,144
  77. 800 data004,201,060,144,029,132,113,160
  78. 810 data000,132,011,136,134,122,202,200
  79. 820 data232,189,000,002,056,249,158,192
  80. 830 data240,245,201,128,208,048,005,011
  81. 840 data164,113,232,200,153,251,001,185
  82. 850 rem teil 4
  83. 860 data251,001,240,089,056,233,058,240
  84. 870 data004,201,073,208,002,133,015,056
  85. 880 data233,085,208,159,133,008,189,000
  86. 890 data002,240,223,197,008,240,219,200
  87. 900 data153,251,001,232,208,240,166,122
  88. 910 data230,011,200,185,157,192,016,250
  89. 920 data185,158,192,208,180,160,255,202
  90. 930 data200,232,189,000,002,056,249,105
  91. 940 data-03,240,245,201,128,208,002,240
  92. 950 data173,166,122,230,011,200,185,104
  93. 960 data-03,016,250,185,105,-03,208,226
  94. 970 data189,000,002,016,155,076,009,198
  95. 980 data016,066,201,255,240,062,036,015
  96. 990 rem teil 5
  97. 1000 data048,058,170,132,073,201,204,176
  98. 1010 data010,160,192,132,035,160,158,132
  99. 1020 data034,208,011,233,076,170,160,-03
  100. 1030 data132,035,160,105,132,034,160,000
  101. 1040 data010,240,016,202,016,012,230,034
  102. 1050 data208,002,230,035,177,034,016,246
  103. 1060 data048,241,200,177,034,048,008,032
  104. 1070 data071,203,208,246,076,243,198,076
  105. 1080 data239,198,032,115,000,201,204,144
  106. 1090 data025,201,252,176,021,032,243,-02
  107. 1100 data076,174,199,233,203,010,168,185
  108. 1110 data009,-03,072,185,008,-03,072,076
  109. 1120 data115,000,032,121,000,076,231,199
  110. 1130 rem teil 6
  111. 1140 data052,253,000,000,000,000,000,000
  112. 1150 data000,000,000,000,000,000,000,000
  113. 1160 data000,000,000,000,000,000,000,000
  114. 1170 data000,000,000,000,000,000,000,000
  115. 1180 data000,000,000,000,000,000,000,000
  116. 1190 data000,000,000,000,000,000,000,000
  117. 1200 data000,000,000,000,000,000,000,000
  118. 1210 data000,000,000,000,000,000,000,000
  119. 1220 data000,000,000,000,000,000,000,000
  120. 1230 data000,000,000,000,000,000,000,000
  121. 1240 data000,000,000,000,000,000,000,000
  122. 1250 data000,000,000,000,000,000,000,000
  123. 1260 data000,075,073,076,204,000,000,000
  124.