home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 March / 64er_Magazin_85-03_1985_Markt__Technik_de.d64 / fl.basicloader (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  138 lines
  1. 100 rem********************************
  2. 110 rem*  floppy-lister version 1.0   *
  3. 120 rem*           von:               *
  4. 130 rem*     bernhard  schulzki       *
  5. 140 rem*     schlosshalde  8          *
  6. 150 rem*     7470 albstadt-1          *
  7. 160 rem********************************
  8. 170 :
  9. 180 az=49
  10. 190 fori=49152to49842step50
  11. 200 ifi=49802thenaz=40
  12. 210 forj=0toaz
  13. 220 readx
  14. 230 su=su+x
  15. 240 pokei+j,x
  16. 250 next
  17. 260 print"datablock:[146]";int((i+j-49153)/50);
  18. 270 readc
  19. 280 ifsu+c=0thenprint" ok.":goto300
  20. 290 print" fehlerhaft.":f=f+1
  21. 300 su=0:sw=0
  22. 310 next
  23. 320 print:printf;"fehler."
  24. 330 iff<>0thenprint:print"beheben sie die fehler !":end
  25. 340 print:print"abspeichern auf diskette ? (j/n) ":print
  26. 350 gett$
  27. 360 ift$="n"thenprint"fertig":end
  28. 370 ift$="j"then390
  29. 380 goto350
  30. 390 input"programmname ";n$
  31. 400 restore
  32. 410 open1,8,1,"0:"+n$
  33. 420 print#1,chr$(0)chr$(192);
  34. 430 fori=49152to49842
  35. 440 readx
  36. 450 ifx<0thenreadx
  37. 460 print#1,chr$(x);
  38. 470 next
  39. 480 close1
  40. 490 rem *** datablock 0 ***
  41. 500 data  32, 253, 174, 32, 158, 173, 32, 163, 182, 165
  42. 510 data  100, 133, 167, 165, 101, 133, 168, 160, 0, 177
  43. 520 data  167, 153, 31, 195, 200, 192, 3, 144, 246, 173
  44. 530 data  31, 195, 201, 20, 176, 30, 201, 4, 144, 36
  45. 540 data  160, 0, 173, 33, 195, 133, 168, 173, 32, 195
  46. 550 data -6472
  47. 560 rem *** datablock 1 ***
  48. 570 data  133, 167, 177, 167, 153, 34, 195, 200, 204, 31
  49. 580 data  195, 208, 245, 76, 83, 192, 169, 111, 160, 194
  50. 590 data  32, 30, 171, 76, 116, 164, 169, 136, 160, 194
  51. 600 data  76, 70, 192, 162, 0, 189, 34, 195, 141, 30
  52. 610 data  195, 201, 80, 240, 8, 201, 83, 208, 233, 160
  53. 620 data -7040
  54. 630 rem *** datablock 2 ***
  55. 640 data  4, 208, 2, 160, 0, 232, 189, 34, 195, 201
  56. 650 data  76, 240, 6, 201, 68, 208, 215, 200, 200, 232
  57. 660 data  189, 34, 195, 201, 58, 208, 205, 140, 14, 195
  58. 670 data  174, 31, 195, 169, 44, 72, 157, 34, 195, 232
  59. 680 data  173, 30, 195, 157, 34, 195, 104, 232, 157, 34
  60. 690 data -6924
  61. 700 rem *** datablock 3 ***
  62. 710 data  195, 169, 82, 232, 157, 34, 195, 169, 0, 232
  63. 720 data  157, 34, 195, 238, 31, 195, 173, 40, 3, 141
  64. 730 data  15, 195, 173, 41, 3, 141, 16, 195, 169, 34
  65. 740 data  141, 40, 3, 169, 194, 141, 41, 3, 173, 31
  66. 750 data  195, 162, 37, 160, 195, 32, 189, 255, 169, 2
  67. 760 data -5986
  68. 770 rem *** datablock 4 ***
  69. 780 data  162, 8, 160, 2, 32, 186, 255, 32, 192, 255
  70. 790 data  162, 2, 32, 198, 255, 172, 14, 195, 185, 171
  71. 800 data  194, 141, 17, 195, 185, 172, 194, 141, 18, 195
  72. 810 data  108, 17, 195, 169, 0, 141, 19, 195, 141, 20
  73. 820 data  195, 141, 21, 195, 162, 0, 32, 15, 194, 176
  74. 830 data -6258
  75. 840 rem *** datablock 5 ***
  76. 850 data  3, 76, 233, 193, 32, 207, 255, 157, 22, 195
  77. 860 data  165, 144, 208, 5, 232, 224, 8, 144, 233, 141
  78. 870 data  21, 195, 169, 0, 232, 224, 8, 176, 7, 157
  79. 880 data  22, 195, 232, 76, 19, 193, 32, 76, 194, 173
  80. 890 data  20, 195, 32, 42, 194, 173, 19, 195, 32, 42
  81. 900 data -6222
  82. 910 rem *** datablock 6 ***
  83. 920 data  194, 169, 58, 32, 210, 255, 162, 0, 189, 22
  84. 930 data  195, 32, 35, 194, 232, 224, 8, 144, 245, 32
  85. 940 data  76, 194, 169, 18, 32, 210, 255, 162, 0, 189
  86. 950 data  22, 195, 41, 127, 201, 32, 176, 4, 169, 46
  87. 960 data  208, 3, 189, 22, 195, 32, 210, 255, 232, 224
  88. 970 data -6520
  89. 980 rem *** datablock 7 ***
  90. 990 data  8, 144, 232, 169, 13, 32, 210, 255, 173, 21
  91. 1000 data  195, 208, 17, 24, 173, 19, 195, 105, 8, 141
  92. 1010 data  19, 195, 144, 3, 238, 20, 195, 76, 244, 192
  93. 1020 data  76, 233, 193, 32, 81, 194, 32, 81, 194, 162
  94. 1030 data  255, 32, 81, 194, 165, 167, 232, 157, 179, 194
  95. 1040 data -6602
  96. 1050 rem *** datablock 8 ***
  97. 1060 data  224, 3, 144, 243, 32, 81, 194, 232, 165, 167
  98. 1070 data  157, 179, 194, 208, 245, 232, 157, 179, 194, 232
  99. 1080 data  157, 179, 194, 169, 179, 133, 95, 160, 194, 132
  100. 1090 data  96, 32, 55, 165, 173, 0, 3, 72, 173, 1
  101. 1100 data  3, 72, 169, 34, 141, 0, 3, 169, 194, 141
  102. 1110 data -6750
  103. 1120 rem *** datablock 9 ***
  104. 1130 data  1, 3, 32, 195, 166, 104, 141, 1, 3, 104
  105. 1140 data  141, 0, 3, 32, 15, 194, 176, 177, 76, 233
  106. 1150 data  193, 32, 207, 255, 32, 210, 255, 165, 144, 208
  107. 1160 data  8, 32, 15, 194, 176, 241, 76, 233, 193, 32
  108. 1170 data  204, 255, 169, 2, 32, 195, 255, 173, 15, 195
  109. 1180 data -6193
  110. 1190 rem *** datablock 10 ***
  111. 1200 data  141, 40, 3, 173, 16, 195, 141, 41, 3, 169
  112. 1210 data  96, 160, 194, 32, 30, 171, 165, 203, 201, 60
  113. 1220 data  208, 250, 169, 0, 133, 198, 96, 165, 203, 240
  114. 1230 data  14, 201, 63, 208, 8, 165, 203, 240, 6, 201
  115. 1240 data  10, 208, 248, 56, 96, 24, 96, 72, 169, 32
  116. 1250 data -6216
  117. 1260 rem *** datablock 11 ***
  118. 1270 data  32, 210, 255, 104, 72, 74, 74, 74, 74, 32
  119. 1280 data  66, 194, 168, 104, 41, 15, 32, 66, 194, 72
  120. 1290 data  152, 32, 210, 255, 104, 76, 210, 255, 24, 105
  121. 1300 data  246, 144, 2, 105, 6, 105, 58, 96, 169, 32
  122. 1310 data  76, 210, 255, 32, 207, 255, 133, 167, 165, 144
  123. 1320 data -5983
  124. 1330 rem *** datablock 12 ***
  125. 1340 data  240, 5, 104, 104, 76, 233, 193, 96, 13, 32
  126. 1350 data  32, 32, 32, 18, 32, 83, 80, 65, 67, 69
  127. 1360 data  32, 13, 0, 13, 70, 69, 72, 76, 69, 82
  128. 1370 data  58, 32, 78, 65, 77, 69, 32, 90, 85, 32
  129. 1380 data  76, 65, 78, 71, 32, 33, 13, 0, 13, 70
  130. 1390 data -3171
  131. 1400 rem *** datablock 13 ***
  132. 1410 data  69, 72, 76, 69, 82, 58, 32, 70, 65, 76
  133. 1420 data  83, 67, 72, 69, 83, 32, 69, 73, 78, 71
  134. 1430 data  65, 66, 69, 70, 79, 82, 77, 65, 84, 32
  135. 1440 data  33, 13, 0, 127, 193, 233, 192, 215, 193, 233
  136. 1450 data  192
  137. 1460 data -3679
  138.