home *** CD-ROM | disk | FTP | other *** search
/ Profi Club / Profi_Club_5_1992_-_de.d64 / disk monitor (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  15KB  |  509 lines
  1. 10 rem disk monitor =============64
  2. 20 rem (p) commodore disc
  3. 30 rem ============================
  4. 40 rem (c) by                     =
  5. 50 rem bernd kaponig              =
  6. 60 rem                            =
  7. 70 rem a-6923 lauterach           =
  8. 80 rem                            =
  9. 90 rem version 2.0                =
  10. 95 rem c-64 + vc-1541             =
  11. 96 rem ============================
  12. 120 a$="****************************"
  13. 130 b$="   d i s k  m o n i t o r   "
  14. 140 c$="     von bernd kaponig      "
  15. 150 printchr$(147):poke53280,0:poke53281,0
  16. 160 poke1024,85:fort=1025to1062:poket,67:poket+960,67:next:poke1063,73
  17. 170 poke1984,74:poke2023,75:fort=1944to1064step-40:poket,66:poket+39,66:next
  18. 180 printspc(86)a$:printspc(46)b$:printspc(46)c$:printspc(86)a$
  19. 190 printspc(248)"daten werden eingelesen"
  20. 200 rem
  21. 210 rem
  22. 220 printspc(50)"bitte 120 sec warten"
  23. 230 rem
  24. 240 rem
  25. 250 dimh(75):fori=0to9
  26. 260 h(48+i)=i:h(65+i)=i+10:next
  27. 270 fort=49152to51797:readx$
  28. 280 h=asc(left$(x$,1)):l=asc(right$(x$,1))
  29. 290 a=h(h)*16+h(l):s=s+a:ifa=18thena=0
  30. 300 poket,a
  31. 310 n=n+1:ifn<6then next: n=-1
  32. 320 read v:z=z+1:ifv=s then340
  33. 325 poke53280,254:poke53281,246
  34. 330 printchr$(147);spc(82);"checksumerror in zeile ";999+z:stop
  35. 340 ifn<0thenz=0:goto360
  36. 350 s=0:n=0:next
  37. 360 fort=1to44:readx$
  38. 370 h=asc(left$(x$,1)):l=asc(right$(x$,1))
  39. 380 a=h(h)*16+h(l):s=s+a:poke575+t,a
  40. 390 n=n+1:ifn<6then nextt: n=-1
  41. 400 readv:z=z+1:ift=45then440
  42. 410 ifv=sthen430
  43. 415 poke53280,254:poke53281,246
  44. 420 printchr$(147);spc(82);"checksumerror in zeile ";1449+z:stop
  45. 430 s=0:n=0:next
  46. 440 poke251,0:poke252,192:printspc(46)"disk einlegen-taste druecken"
  47. 450 geta$:ifa$=""then450
  48. 460 rem
  49. 470 sys576:sys49152
  50. 1000 data a2,00,bd,00,c4,20, 579
  51. 1001 data d2,ff,e8,e0,ff,d0, 1384
  52. 1002 data f5,a2,0d,a9,3e,20, 683
  53. 1003 data eb,c0,a9,00,8d,01, 738
  54. 1004 data 02,20,33,c1,4c,00, 354
  55. 1005 data c5,ea,c9,20,f0,f5, 1149
  56. 1006 data a2,05,dd,6a,c0,d0, 894
  57. 1007 data 0c,8e,00,02,bd,70, 457
  58. 1008 data c0,48,bd,76,c0,48, 835
  59. 1009 data 60,ca,10,ec,4c,0d, 639
  60. 1010 data c0,85,97,20,62,c0, 798
  61. 1011 data b9,e0,c2,20,dc,c0, 1047
  62. 1012 data c8,d0,03,ee,01,02, 652
  63. 1013 data c6,97,d0,ed,60,20, 922
  64. 1014 data fe,c0,90,03,99,e0, 970
  65. 1015 data c2,c8,c6,97,60,20, 871
  66. 1016 data 62,c0,a9,20,2c,a9, 704
  67. 1017 data 0d,4c,d2,ff,3a,57, 699
  68. 1018 data 52,4d,40,58,c0,c1, 696
  69. 1019 data c1,c0,c1,e3,c0,90, 1141
  70. 1020 data 90,7b,3e,7a,a0,00, 611
  71. 1021 data 8c,03,02,88,8c,04, 425
  72. 1022 data 02,20,cf,ff,c9,0d, 710
  73. 1023 data f0,17,20,fe,c0,90, 885
  74. 1024 data 00,8d,03,02,20,cf, 385
  75. 1025 data ff,c9,0d,f0,08,20, 749
  76. 1026 data fe,c0,90,03,8d,04, 738
  77. 1027 data 02,ac,03,02,20,c6, 409
  78. 1028 data c2,20,d6,c2,98,20, 818
  79. 1029 data dc,c0,20,62,c0,a9, 903
  80. 1030 data 08,20,3d,c0,20,97, 476
  81. 1031 data c2,4c,a6,c0,4c,0d, 717
  82. 1032 data c0,20,fe,c0,90,f8, 1062
  83. 1033 data a8,a9,08,85,97,20, 661
  84. 1034 data 33,c1,20,33,c1,20, 552
  85. 1035 data 53,c0,d0,f8,20,97, 914
  86. 1036 data c2,4c,0d,c0,48,4a, 621
  87. 1037 data 4a,4a,4a,20,f4,c0, 690
  88. 1038 data aa,68,29,0f,20,f4, 606
  89. 1039 data c0,48,8a,20,d2,ff, 899
  90. 1040 data 68,4c,d2,ff,18,69, 774
  91. 1041 data f6,90,02,69,06,69, 608
  92. 1042 data 3a,60,a9,00,8d,02, 466
  93. 1043 data 02,20,33,c1,c9,20, 511
  94. 1044 data d0,09,20,33,c1,c9, 694
  95. 1045 data 20,d0,0f,18,60,20, 407
  96. 1046 data 28,c1,0a,0a,0a,0a, 273
  97. 1047 data 8d,02,02,20,33,c1, 421
  98. 1048 data 20,28,c1,0d,02,02, 282
  99. 1049 data 38,60,c9,3a,08,29, 460
  100. 1050 data 0f,28,90,02,69,08, 314
  101. 1051 data 60,20,cf,ff,c9,0d, 804
  102. 1052 data d0,f8,68,68,4c,0d, 753
  103. 1053 data c0,20,cf,ff,c9,0d, 900
  104. 1054 data d0,27,a9,00,85,90, 693
  105. 1055 data 20,65,c0,a9,08,85, 635
  106. 1056 data ba,20,b4,ff,a9,6f, 933
  107. 1057 data 85,b9,20,96,ff,20, 787
  108. 1058 data a5,ff,24,90,70,05, 717
  109. 1059 data 20,d2,ff,d0,f4,20, 981
  110. 1060 data ab,ff,4c,0d,c0,c9, 908
  111. 1061 data 24,f0,1d,48,a9,08, 554
  112. 1062 data 85,ba,20,b1,ff,a9, 952
  113. 1063 data 6f,85,b9,20,93,ff, 863
  114. 1064 data 68,20,a8,ff,20,cf, 798
  115. 1065 data ff,c9,0d,d0,f6,20, 955
  116. 1066 data ae,ff,4c,0d,c0,20, 742
  117. 1067 data 33,c1,20,fe,c0,90, 866
  118. 1068 data f5,8d,27,c2,20,33, 702
  119. 1069 data c1,20,fe,c0,90,ea, 1049
  120. 1070 data 8d,2a,c2,20,49,c2, 676
  121. 1071 data ad,00,02,c9,01,f0, 617
  122. 1072 data 1e,a9,31,20,ed,c1, 710
  123. 1073 data a2,0d,20,c6,ff,a2, 822
  124. 1074 data 00,20,cf,ff,9d,e0, 875
  125. 1075 data c2,e8,d0,f7,20,cc, 1117
  126. 1076 data ff,20,6e,c2,4c,0d, 680
  127. 1077 data c0,20,2c,c2,a2,0d, 637
  128. 1078 data 20,c9,ff,a2,00,bd, 839
  129. 1079 data e0,c2,20,d2,ff,e8, 1147
  130. 1080 data d0,f7,20,cc,ff,a9, 1115
  131. 1081 data 32,20,ed,c1,4c,c9, 789
  132. 1082 data c1,8d,20,c2,a2,0f, 737
  133. 1083 data ad,27,c2,20,78,c2, 752
  134. 1084 data 8e,27,c2,8d,28,c2, 750
  135. 1085 data ad,2a,c2,20,78,c2, 755
  136. 1086 data 8e,2a,c2,8d,2b,c2, 756
  137. 1087 data a2,0f,20,c9,ff,a2, 827
  138. 1088 data 00,bd,1f,c2,20,d2, 656
  139. 1089 data ff,e8,e0,0d,d0,f5, 1177
  140. 1090 data 4c,cc,ff,55,31,3a, 727
  141. 1091 data 31,33,20,30,20,31, 261
  142. 1092 data 38,20,30,31,a2,0f, 362
  143. 1093 data 20,c9,ff,a2,00,bd, 839
  144. 1094 data 41,c2,20,d2,ff,e8, 988
  145. 1095 data e0,08,d0,f5,4c,cc, 965
  146. 1096 data ff,42,2d,50,20,31, 527
  147. 1097 data 33,20,30,a9,0f,a8, 483
  148. 1098 data a2,08,20,ba,ff,a9, 812
  149. 1099 data 00,20,bd,ff,20,c0, 700
  150. 1100 data ff,a9,0d,a8,a2,08, 775
  151. 1101 data 20,ba,ff,a9,01,a2, 805
  152. 1102 data 6d,a0,c2,20,bd,ff, 939
  153. 1103 data 4c,c0,ff,23,a9,0d, 740
  154. 1104 data 20,c3,ff,a9,0f,4c, 742
  155. 1105 data c3,ff,a2,30,38,e9, 949
  156. 1106 data 0a,90,03,e8,b0,f9, 814
  157. 1107 data 69,3a,60,0d,28,43, 379
  158. 1108 data 29,20,31,39,38,34, 287
  159. 1109 data 20,4b,41,50,4f,4e, 409
  160. 1110 data 49,47,20,98,38,e9, 617
  161. 1111 data 08,a8,20,62,c0,a9, 667
  162. 1112 data 00,20,d2,ff,a2,08, 667
  163. 1113 data b9,e0,c2,29,7f,c9, 972
  164. 1114 data 20,b0,04,a9,2e,d0, 635
  165. 1115 data 03,b9,e0,c2,20,d2, 848
  166. 1116 data ff,a9,00,85,d4,c8, 969
  167. 1117 data ca,d0,e5,a9,92,4c, 1030
  168. 1118 data d2,ff,ad,01,02,d0, 849
  169. 1119 data 06,cc,04,02,b0,01, 393
  170. 1120 data 60,68,68,4c,0d,c0, 585
  171. 1121 data 20,65,c0,a9,3a,a2, 714
  172. 1122 data 3e,4c,eb,c0,00,04, 569
  173. 1123 data 82,13,05,44,4d,2d, 344
  174. 1124 data 53,41,56,45,a0,a0, 623
  175. 1125 data a0,a0,a0,a0,a0,a0, 960
  176. 1126 data a0,00,00,00,00,00, 160
  177. 1127 data 00,00,00,00,01,00, 1
  178. 1128 data 00,00,82,11,03,44, 218
  179. 1129 data 49,52,45,58,a0,a0, 632
  180. 1130 data a0,a0,a0,a0,a0,a0, 960
  181. 1131 data a0,a0,a0,00,00,00, 480
  182. 1132 data 00,00,00,00,00,00, 0
  183. 1133 data 06,00,00,00,82,11, 153
  184. 1134 data 00,44,49,52,45,43, 359
  185. 1135 data 54,4f,52,59,a0,a0, 654
  186. 1136 data a0,a0,a0,a0,a0,00, 800
  187. 1137 data 00,00,00,00,00,00, 0
  188. 1138 data 00,00,01,00,00,00, 1
  189. 1139 data 82,11,08,44,49,53, 379
  190. 1140 data 4b,20,44,a0,a0,a0, 655
  191. 1141 data a0,a0,a0,a0,a0,a0, 960
  192. 1142 data a0,00,00,00,00,00, 160
  193. 1143 data 00,00,00,00,07,00, 7
  194. 1144 data 00,00,82,11,04,44, 219
  195. 1145 data 45,5a,2d,48,45,58, 433
  196. 1146 data a0,a0,a0,a0,a0,a0, 960
  197. 1147 data a0,a0,a0,00,00,00, 480
  198. 1148 data 00,00,00,00,00,00, 0
  199. 1149 data 01,00,00,00,82,13, 150
  200. 1150 data 01,44,49,53,4b,20, 332
  201. 1151 data 48,a0,a0,a0,a0,a0, 872
  202. 1152 data a0,a0,a0,a0,a0,00, 800
  203. 1153 data 00,00,00,00,00,00, 0
  204. 1154 data 00,00,08,00,00,00, 8
  205. 1155 data 82,13,00,50,4f,4b, 383
  206. 1156 data 45,53,a0,a0,a0,a0, 792
  207. 1157 data a0,a0,a0,a0,a0,a0, 960
  208. 1158 data a0,00,00,00,00,00, 160
  209. 1159 data 00,00,00,00,01,00, 1
  210. 1160 data 00,00,82,13,08,44, 225
  211. 1161 data 49,53,4b,20,41,a0, 488
  212. 1162 data a0,a0,a0,a0,a0,a0, 960
  213. 1163 data a0,a0,a0,00,00,00, 480
  214. 1164 data 00,00,00,00,00,00, 0
  215. 1165 data 07,00,80,80,ff,ff, 773
  216. 1166 data 80,80,ff,ff,80,80, 1022
  217. 1167 data ff,ff,80,80,ff,ff, 1276
  218. 1168 data 80,80,ff,ff,80,80, 1022
  219. 1169 data ff,ff,80,80,ff,ff, 1276
  220. 1170 data 5e,80,ff,7f,93,20, 783
  221. 1171 data 20,20,20,20,20,20, 192
  222. 1172 data 20,20,20,20,20,20, 192
  223. 1173 data 20,20,20,20,20,20, 192
  224. 1174 data 20,20,20,20,20,20, 192
  225. 1175 data 20,20,20,20,20,20, 192
  226. 1176 data 20,20,20,20,20,20, 192
  227. 1177 data 20,20,20,b7,b7,b7, 645
  228. 1178 data b7,b7,b7,b7,b7,b7, 1098
  229. 1179 data b7,b7,b7,b7,b7,b7, 1098
  230. 1180 data b7,b7,b7,b7,b7,b7, 1098
  231. 1181 data b7,b7,b7,b7,b7,b7, 1098
  232. 1182 data b7,b7,b7,b7,b7,b7, 1098
  233. 1183 data b7,b7,b7,b7,b7,b7, 1098
  234. 1184 data b7,20,20,20,20,44, 379
  235. 1185 data 49,53,4b,20,4d,4f, 419
  236. 1186 data 4e,49,54,4f,52,20, 428
  237. 1187 data 2d,20,45,58,50,41, 379
  238. 1188 data 4e,44,45,44,20,4c, 391
  239. 1189 data 45,56,45,4c,20,49, 405
  240. 1190 data 49,20,20,20,20,af, 376
  241. 1191 data af,af,af,af,af,af, 1050
  242. 1192 data af,af,af,af,af,af, 1050
  243. 1193 data af,af,af,af,af,af, 1050
  244. 1194 data af,af,af,af,af,af, 1050
  245. 1195 data af,af,af,af,af,af, 1050
  246. 1196 data af,af,af,af,af,af, 1050
  247. 1197 data af,af,af,20,20,20, 621
  248. 1198 data 20,20,20,20,20,20, 192
  249. 1199 data 20,20,20,20,20,20, 192
  250. 1200 data 20,20,20,20,20,20, 192
  251. 1201 data 20,20,20,20,20,20, 192
  252. 1202 data 20,20,20,20,20,20, 192
  253. 1203 data 20,20,20,20,20,20, 192
  254. 1204 data 20,20,20,20,42,59, 283
  255. 1205 data 20,42,45,52,4e,59, 416
  256. 1206 data 20,4b,41,50,4f,4e, 409
  257. 1207 data 49,47,20,41,4e,44, 387
  258. 1208 data 20,4a,49,4d,4d,59, 422
  259. 1209 data 20,53,54,41,4d,50, 421
  260. 1210 data 46,4c,20,20,20,20, 274
  261. 1211 data 20,20,20,20,20,20, 192
  262. 1212 data 20,20,20,20,20,20, 192
  263. 1213 data 20,20,c9,3e,f0,03, 570
  264. 1214 data 4c,0a,c5,4c,19,c0, 576
  265. 1215 data c9,44,f0,03,4c,14, 608
  266. 1216 data c5,4c,d3,c5,c9,24, 918
  267. 1217 data f0,03,4c,1e,c5,4c, 622
  268. 1218 data 30,c5,c9,23,f0,03, 724
  269. 1219 data 4c,28,c5,4c,60,c6, 683
  270. 1220 data c9,3d,f0,03,4c,c0, 773
  271. 1221 data c7,4c,3b,c7,ea,ea, 1001
  272. 1222 data ea,a2,00,20,cf,ff, 890
  273. 1223 data c9,00,f0,f9,9d,40, 911
  274. 1224 data 02,e8,c9,0d,d0,f1, 897
  275. 1225 data ea,d8,ad,40,02,c9, 890
  276. 1226 data 3a,90,03,18,69,09, 343
  277. 1227 data 29,0f,0a,0a,0a,0a, 96
  278. 1228 data 8d,40,02,ad,41,02, 447
  279. 1229 data c9,3a,90,03,18,69, 535
  280. 1230 data 09,29,0f,6d,40,02, 240
  281. 1231 data 8d,40,02,ea,ea,ea, 909
  282. 1232 data ea,ae,40,02,a9,00, 643
  283. 1233 data 85,02,86,03,85,04, 409
  284. 1234 data 85,05,85,06,f8,a0, 685
  285. 1235 data 10,a2,03,06,03,26, 228
  286. 1236 data 02,b5,03,75,03,95, 455
  287. 1237 data 03,ca,d0,f7,88,d0, 1004
  288. 1238 data ee,d8,a5,04,a6,05, 794
  289. 1239 data a4,06,ea,ea,ea,ea, 1106
  290. 1240 data ea,a9,3d,20,16,e7, 749
  291. 1241 data a9,20,20,16,e7,a5, 651
  292. 1242 data 05,18,a5,05,18,69, 328
  293. 1243 data 30,20,16,e7,a5,06, 504
  294. 1244 data 4a,4a,4a,4a,18,69, 425
  295. 1245 data 30,20,16,e7,a5,06, 504
  296. 1246 data 29,0f,18,69,30,20, 265
  297. 1247 data 16,e7,ea,ea,ea,4c, 1031
  298. 1248 data 0d,c0,ea,a2,00,20, 633
  299. 1249 data cf,ff,c9,00,f0,f9, 1152
  300. 1250 data c9,0d,d0,f5,a9,20, 868
  301. 1251 data 20,d2,ff,e8,e0,25, 990
  302. 1252 data d0,f6,ea,ea,ea,ea, 1390
  303. 1253 data ea,ea,a9,24,85,fb, 1057
  304. 1254 data a9,fb,85,bb,a9,00, 909
  305. 1255 data 85,bc,a9,01,85,b7, 807
  306. 1256 data a9,08,85,ba,a9,60, 761
  307. 1257 data 85,b9,20,d5,f3,a5, 971
  308. 1258 data ba,20,b4,ff,a5,b9, 1003
  309. 1259 data 20,96,ff,a9,00,85, 739
  310. 1260 data 90,a0,03,84,fb,20, 722
  311. 1261 data a5,ff,85,fc,a4,90, 1113
  312. 1262 data d0,2f,20,a5,ff,a4, 871
  313. 1263 data 90,d0,28,a4,fb,88, 943
  314. 1264 data d0,e9,a6,fc,20,cd, 1096
  315. 1265 data bd,a9,20,20,d2,ff, 887
  316. 1266 data 20,a5,ff,a6,90,d0, 970
  317. 1267 data 00,aa,f0,06,20,d2, 658
  318. 1268 data ff,4c,3c,c6,a9,0d, 771
  319. 1269 data 20,d2,ff,a0,02,d0, 867
  320. 1270 data c6,20,42,f6,4c,0d, 631
  321. 1271 data c0,ea,ea,ea,ea,ea, 1362
  322. 1272 data a2,00,20,cf,ff,c9, 857
  323. 1273 data 00,f0,f9,9d,40,02, 712
  324. 1274 data e8,c9,0d,d0,f1,ea, 1129
  325. 1275 data ea,ad,40,02,e9,30, 754
  326. 1276 data 8d,40,02,ad,41,02, 447
  327. 1277 data e9,30,8d,41,02,ad, 662
  328. 1278 data 42,02,e9,30,8d,42, 556
  329. 1279 data 02,ea,d8,a2,00,ad, 787
  330. 1280 data 40,02,18,6d,40,02, 265
  331. 1281 data e8,e0,63,d0,f7,8d, 1151
  332. 1282 data 40,02,ea,d8,a2,00, 678
  333. 1283 data ad,41,02,18,6d,41, 438
  334. 1284 data 02,e8,e0,09,d0,f7, 922
  335. 1285 data 8d,41,02,ea,ea,ad, 849
  336. 1286 data 40,02,18,6d,41,02, 266
  337. 1287 data 18,6d,42,02,8d,40, 406
  338. 1288 data 02,ea,ea,ea,ad,40, 941
  339. 1289 data 02,8d,43,02,18,4a, 310
  340. 1290 data 4a,4a,4a,8d,40,02, 429
  341. 1291 data ea,ad,43,02,18,0a, 510
  342. 1292 data 0a,0a,0a,18,4a,4a, 202
  343. 1293 data 4a,4a,8d,43,02,ea, 592
  344. 1294 data ea,ea,ea,ea,ea,ea, 1404
  345. 1295 data ea,a9,3d,20,16,e7, 749
  346. 1296 data a9,20,20,16,e7,ea, 720
  347. 1297 data ad,40,02,c9,00,f0, 680
  348. 1298 data 08,c9,0a,90,04,c9, 568
  349. 1299 data 09,b0,09,18,69,30, 371
  350. 1300 data 20,16,e7,4c,17,c7, 583
  351. 1301 data 18,69,37,20,16,e7, 469
  352. 1302 data ea,ea,ea,ad,43,02, 944
  353. 1303 data c9,00,f0,08,c9,0a, 660
  354. 1304 data 90,04,c9,09,b0,09, 543
  355. 1305 data 18,69,30,20,16,e7, 462
  356. 1306 data 4c,0d,c0,18,69,37, 465
  357. 1307 data 20,16,e7,4c,0d,c0, 566
  358. 1308 data 00,00,00,a2,00,20, 194
  359. 1309 data cf,ff,c9,00,f0,f9, 1152
  360. 1310 data 9d,40,02,e8,c9,0d, 669
  361. 1311 data d0,f1,ea,ad,42,02, 924
  362. 1312 data 8d,48,02,ea,ea,ea, 917
  363. 1313 data a2,00,bd,40,02,c9, 618
  364. 1314 data 3a,90,04,c9,39,b0, 640
  365. 1315 data 0e,d8,e9,2f,9d,40, 731
  366. 1316 data 02,e8,e0,05,d0,ea, 905
  367. 1317 data 4c,7c,c7,d8,e9,37, 903
  368. 1318 data 9d,40,02,e8,e0,05, 684
  369. 1319 data d0,dc,ea,ea,ad,40, 1133
  370. 1320 data 02,0a,0a,0a,0a,18, 66
  371. 1321 data 6d,41,02,8d,40,02, 383
  372. 1322 data ad,43,02,0a,0a,0a, 272
  373. 1323 data 0a,18,6d,44,02,8d, 354
  374. 1324 data 43,02,ea,ea,ad,48, 782
  375. 1325 data 02,c9,2b,f0,0c,ad, 671
  376. 1326 data 40,02,ed,43,02,8d, 513
  377. 1327 data 40,02,4c,c4,c6,ad, 709
  378. 1328 data 40,02,18,6d,43,02, 268
  379. 1329 data 8d,40,02,4c,c4,c6, 677
  380. 1330 data ea,ea,ea,ea,c9,43, 1204
  381. 1331 data f0,03,4c,20,c0,20, 575
  382. 1332 data cf,ff,c9,00,f0,f9, 1152
  383. 1333 data c9,0d,d0,f5,a9,20, 868
  384. 1334 data 20,d2,ff,4c,f0,c7, 1012
  385. 1335 data 44,41,54,45,49,4e, 437
  386. 1336 data 41,4d,45,3a,44,41, 402
  387. 1337 data 54,45,49,54,59,50, 479
  388. 1338 data 3a,20,df,df,a2,00, 698
  389. 1339 data bd,da,c7,20,d2,ff, 1103
  390. 1340 data e8,e0,0a,d0,f5,ea, 1153
  391. 1341 data a2,00,20,cf,ff,c9, 857
  392. 1342 data 00,f0,f9,9d,40,02, 712
  393. 1343 data e8,86,fb,c9,0d,d0, 1039
  394. 1344 data ef,ea,a9,2c,9d,3f, 906
  395. 1345 data 02,e8,a0,00,b9,e4, 807
  396. 1346 data c7,20,d2,ff,c8,c0, 1088
  397. 1347 data 09,d0,f5,ea,a0,00, 856
  398. 1348 data 20,cf,ff,c9,00,f0, 935
  399. 1349 data f9,9d,3f,02,86,fb, 856
  400. 1350 data ea,4c,5f,c8,93,11, 769
  401. 1351 data 00,4f,52,49,47,49, 378
  402. 1352 data 4e,41,4c,44,49,53, 443
  403. 1353 data 4b,20,45,49,4e,4c, 403
  404. 1354 data 45,47,45,4e,20,2d, 364
  405. 1355 data 20,43,3d,20,44,52, 342
  406. 1356 data 55,45,43,4b,45,4e, 443
  407. 1357 data 92,a2,00,ea,bd,38, 787
  408. 1358 data c8,20,d2,ff,e8,e0, 1153
  409. 1359 data 27,d0,f5,ea,20,e0, 982
  410. 1360 data e4,ea,ea,ea,ea,ea, 1398
  411. 1361 data a9,02,a2,08,a0,02, 503
  412. 1362 data 20,ba,ff,a5,fb,a2, 1051
  413. 1363 data 40,a0,02,20,bd,ff, 702
  414. 1364 data 20,c0,ff,ea,a9,00, 882
  415. 1365 data 85,03,a9,0c,85,04, 454
  416. 1366 data 20,49,c9,a9,02,20, 509
  417. 1367 data c3,ff,ea,ea,4c,c7, 1193
  418. 1368 data c8,13,11,11,11,00, 270
  419. 1369 data 5a,49,45,4c,44,49, 449
  420. 1370 data 53,4b,20,45,49,4e, 410
  421. 1371 data 4c,45,47,45,4e,20, 395
  422. 1372 data 2d,20,43,3d,20,44, 305
  423. 1373 data 52,55,45,43,4b,45, 447
  424. 1374 data 4e,92,4e,a2,00,bd, 653
  425. 1375 data a1,c8,20,d2,ff,e8, 1090
  426. 1376 data e0,25,d0,f5,ea,20, 980
  427. 1377 data e0,e4,4c,db,c8,ea, 1181
  428. 1378 data ea,ea,ea,ea,ea,a6, 1336
  429. 1379 data fb,ea,a9,2c,9d,40, 919
  430. 1380 data 02,e8,a9,57,9d,40, 711
  431. 1381 data 02,e8,86,fb,ea,a9, 1022
  432. 1382 data 02,a2,08,a0,02,20, 366
  433. 1383 data ba,ff,a5,fb,a2,40, 1083
  434. 1384 data a0,02,20,bd,ff,20, 670
  435. 1385 data c0,ff,a9,00,85,03, 752
  436. 1386 data a9,0c,85,04,20,20, 382
  437. 1387 data c9,a9,02,20,c3,ff, 854
  438. 1388 data 4c,0d,c0,ea,ea,ea, 983
  439. 1389 data ea,ea,a2,02,20,c9, 865
  440. 1390 data ff,c6,01,a0,00,38, 670
  441. 1391 data a5,03,e5,05,a5,04, 571
  442. 1392 data e5,06,b0,0d,b1,03, 604
  443. 1393 data 20,d2,ff,e6,03,d0, 938
  444. 1394 data ec,e6,04,d0,e8,e6, 1140
  445. 1395 data 01,4c,cc,ff,4c,49, 685
  446. 1396 data c9,a2,02,20,c6,ff, 850
  447. 1397 data a0,00,20,cf,ff,91, 799
  448. 1398 data 03,e6,03,d0,02,e6, 676
  449. 1399 data 04,24,90,50,f1,a5, 670
  450. 1400 data 03,85,05,a5,04,85, 443
  451. 1401 data 06,4c,cc,ff,60,cc, 841
  452. 1402 data cc,7f,7f,7f,20,20, 649
  453. 1403 data 7f,7f,20,20,7b,7b, 564
  454. 1404 data 00,20,7f,7f,20,28, 358
  455. 1405 data 7f,7e,80,a0,bf,ff, 987
  456. 1406 data a0,a0,bf,ff,a0,a0, 1086
  457. 1407 data bf,bf,a0,a0,bf,bf, 1084
  458. 1408 data a0,a0,bf,bf,a0,a0, 1022
  459. 1409 data bf,bf,a0,a0,bf,bf, 1084
  460. 1410 data a0,a0,bf,bf,a0,a0, 1022
  461. 1411 data bf,bf,a0,a0,bf,bf, 1084
  462. 1412 data a0,a0,bf,bf,a0,a0, 1022
  463. 1413 data bf,bf,a0,a0,bf,bf, 1084
  464. 1414 data a0,a0,bf,bf,a0,a0, 1022
  465. 1415 data bf,bf,a1,a1,bf,bf, 1086
  466. 1416 data a0,a0,bf,bf,a0,a0, 1022
  467. 1417 data bf,bf,a0,a0,bf,bf, 1084
  468. 1418 data a0,a0,bf,bf,a0,a0, 1022
  469. 1419 data bf,bf,a0,a0,bf,bf, 1084
  470. 1420 data a0,a0,bf,bf,a0,a0, 1022
  471. 1421 data bf,bf,a0,a0,bf,bf, 1084
  472. 1422 data a0,a0,bf,bf,a0,a0, 1022
  473. 1423 data bf,bf,a0,a0,bf,bf, 1084
  474. 1424 data a0,a0,bf,bf,a0,a0, 1022
  475. 1425 data bb,bb,a0,a0,bf,bf, 1076
  476. 1426 data a8,a8,bf,bf,5f,5f, 908
  477. 1427 data 00,00,5f,5f,00,00, 190
  478. 1428 data 5f,5f,00,04,5f,5f, 384
  479. 1429 data 00,00,5f,5f,04,04, 198
  480. 1430 data 5f,5f,00,00,5f,5f, 380
  481. 1431 data 00,04,5f,5f,00,00, 194
  482. 1432 data 5f,5f,00,00,5f,5f, 380
  483. 1433 data 00,00,5f,5f,00,00, 190
  484. 1434 data 5f,5f,00,00,5f,5f, 380
  485. 1435 data 00,00,5f,5f,00,00, 190
  486. 1436 data 5f,5f,00,00,5e,5e, 378
  487. 1437 data 00,00,5f,5f,00,00, 190
  488. 1438 data 5f,5f,00,00,5f,5f, 380
  489. 1439 data 00,00,5f,5f,00,00, 190
  490. 1440 data 5f,1f,00,00,5f,00, 221
  491. 1445 rem **************************
  492. 1450 rem **** save-programm daten *
  493. 1460 data a2,08,20,ba,ff,a9, 812
  494. 1461 data 0c,a2,60,a0,02,20, 464
  495. 1462 data bd,ff,a9,fb,a2,55, 1111
  496. 1463 data a0,ca,20,d8,ff,60, 961
  497. 1464 data 00,00,00,00,00,00, 0
  498. 1465 data 00,00,44,49,53,4b, 299
  499. 1466 data 20,4d,4f,4e,49,54, 423
  500. 1467 data 4f,52, 161
  501. 2000 rem diskmonitor ============64
  502. 2010 rem 38911 bytes memory    ====
  503. 2020 rem 14795 bytes program   ====
  504. 2030 rem 00091 bytes variables ====
  505. 2040 rem 00387 bytes arrays    ====
  506. 2050 rem 00000 bytes strings   ====
  507. 2060 rem 23638 bytes free      ====
  508. 2070 rem ==========================
  509.