home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8501.d64 / datei-organisati (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  14KB  |  544 lines
  1. 10 REM   ****************************
  2. 20 REM   ****************************
  3. 30 REM   **                        **
  4. 40 REM   ** JOHANN AUER            **
  5. 50 REM   ** HERMANN-HILLER-STR. 54 **
  6. 60 REM   ** 8263 BURGHAUSEN        **
  7. 70 REM   **                        **
  8. 80 REM   ****************************
  9. 90 REM   ****************************
  10. 100 :
  11. 110 :
  12. 120 :
  13. 130 REM *******************************
  14. 140 REM *******FILE-ORGANISATION*******
  15. 150 REM *******************************
  16. 160 :
  17. 170 GOSUB280:REM ***INITIALISIERUNG****
  18. 180 :
  19. 190 GOSUB460:REM ********MENUE*********
  20. 200 :
  21. 210 ONAGOTO800,990,1380,1710,2160,2900,3460
  22. 220 :
  23. 230 REM *******************************
  24. 240 REM *******FILE-ORGANISATION*******
  25. 250 REM *******************************
  26. 260 :
  27. 270 :
  28. 280 REM ********INITIALISIERUNG********
  29. 290 :
  30. 300 DIMFT$(3):DIMA$(7):A$(6)="[161][157][161][146] [158]":A$(7)="[146] [144][161][157][145][161]"
  31. 310 RF=53280:HF=RF+1:A$="":NU$="00000000.......":EB=-1:N3=0:RESTORE
  32. 320 DI$="D"+CHR$(105)+CHR$(115)+CHR$(107)+CHR$(101)+CHR$(116)+CHR$(116)
  33. 330 DI$=DI$+CHR$(101)+CHR$(110)+CHR$(110)+CHR$(97)+CHR$(109)++CHR$(101)+":"
  34. 340 FORI=1TO40:READQ:A$=A$+CHR$(Q):NEXT
  35. 350 A$(0)=LEFT$(A$,9):A$(1)=MID$(A$,10,4):A$(2)=MID$(A$,14,10)
  36. 360 A$(3)=MID$(A$,24,5):A$(4)=MID$(A$,29,7):A$(5)=RIGHT$(A$,5)
  37. 370 DATA70,105,108,101,110,97,109,101,58,84,121,112,58,70,105
  38. 380 DATA108,101,108,123,110,103,101,58,83,112,117,114,58,83,101
  39. 390 DATA107,116,111,114,58,66,121,116,101,58
  40. 400 FT$(0)="REL":FT$(1)="USR":FT$(2)="PRG":FT$(3)="SEQ"
  41. 410 LZ$="--- --- --- --- --- --- ---          "
  42. 420 PRINTCHR$(8);:POKE788,52
  43. 430 RETURN
  44. 440 :
  45. 450 :
  46. 460 REM *************MENUE*************
  47. 470 :
  48. 480 POKERF,0:POKEHF,11:PRINTCHR$(14)"[147]"TAB(11);
  49. 490 PRINT"[159][198][201][204][197]-[207][210][199][193][206][201][211][193][212][201][207][206]":PRINTTAB(11)"[144][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  50. 500 PRINT"[172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
  51. 510 PRINTA$(6)"[199]ANZES [198]ILE [144].................... [158]1"A$(7)
  52. 520 PRINTA$(6)"[197]INZELNE [194]LOECKE [144]............... [158]2"A$(7)
  53. 530 PRINTA$(6)"[194]YTEREIHEN [144]..................... [158]3"A$(7)
  54. 540 PRINTA$(6)"[194]LOCKBELEGUNG VON [198]ILES [144]........ [158]4"A$(7)
  55. 550 PRINTA$(6)"[196]IREKTORY [144]...................... [158]5"A$(7)
  56. 560 PRINTA$(6)"[194][193][205] [144]............................ [158]6"A$(7)
  57. 570 PRINTA$(6)"[197][206][196][197] [144]........................... [158]7"A$(7)
  58. 580 PRINT"[161][157][146][188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190][145][157][161]"
  59. 590 PRINT"   [159][201]HRE [215]AHL?[158] ";
  60. 600 GETEI$:IFEI$<>""THEN620
  61. 610 PRINT" [157]";:FORT=1TO150:NEXT:PRINT"[175][157]";:FORT=1TO150:NEXT:GOTO600
  62. 620 A=VAL(EI$)::IFA<1ORA>7THEN600
  63. 630 PRINTEI$:FORT=1TO1000:NEXT
  64. 640 IFA=7ORSP>0THENRETURN
  65. 650 PRINT"[145]   [158][193]USGABE AUF [144][197][208][211][207][206][158]-[196]RUCKER [144][210][216]-80[158]"
  66. 660 PRINT"   MIT [144][196][193][212][193]-[194][197][195][203][197][210][158] [201]NTERFACE!":FORT=1TO2500:NEXT
  67. 670 PRINT"[145][145]   [144][196]RUCKER EINSCHALTEN UND [208]APIER    "
  68. 680 PRINT"   POSITIONIEREN!!!            "
  69. 690 PRINT"   [158][198]ERTIG [144].................... [158][198]1"
  70. 700 GOSUB5180
  71. 710 OPEN1,4,1:POKE768,61
  72. 720 PRINT#1,CHR$(7);:CLOSE1
  73. 730 POKE768,139
  74. 740 IFST<>-128THEN760
  75. 750 GOTO700
  76. 760 OPEN4,4,1:GOSUB3960
  77. 770 RETURN
  78. 780 :
  79. 790 :
  80. 800 REM**********GANZES FILE***********
  81. 810 :
  82. 820 PRINT"[147]           [144][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  83. 830 PRINT"           >>>[199]ANZES [198]ILE[144]<<<"
  84. 840 PRINT"           [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  85. 850 GOSUB5230
  86. 860 AB=0:N=0:BN=1:GOTO4770
  87. 870 GOSUB4050
  88. 880 AN=0:EN=255
  89. 890 BP=0:GOSUB3830:GOSUB3870
  90. 900 IFS1=0THENN=1:EN=S2
  91. 910 GOSUB4390:PRINT#4:PRINT#4:GOSUB4910
  92. 920 IFN=1THENN=0:GOTO940
  93. 930 SP=S1:SE=S2:BN=BN+1:GOSUB4100:GOTO890
  94. 940 GOSUB3930:PRINT#4:PRINT#4
  95. 950 IFAB=1THENGOSUB5060
  96. 960 BN=0:GOTO190
  97. 970 :
  98. 980 :
  99. 990 REM********EINZELNE BLOECKE********
  100. 1000 :
  101. 1010 PRINT"[147]         [144][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  102. 1020 PRINT"         >>>[197]INZELNE [194]LOECKE[144]<<<"        "
  103. 1030 [153]"         FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
  104. 1040 [141]5230
  105. 1050 [153]" STOPVALRIGHT$(null)CHR$ATNPEEKVAL:":[153]" OPEN(null)PUR/(null)EKTOR STOP........... OPEN1"
  106. 1060 [153]" ASCILENAME/PEEKLOCKNR. STOP..... OPEN2"
  107. 1070 [133]" STOP>>> SYS";E$
  108. 1080 E[178][181]([197](E$)):[139]E[179]1[176]E[177]2[167]1100
  109. 1090 [145]E[137]1110,1190
  110. 1100 [153]"ON          ONON":[137]1070
  111. 1110 [133]" STOP(null)PUR/(null)EKTOR: SYS";SP$,SE$
  112. 1120 SP[178][181]([197](SP$)):SE[178][181]([197](SE$)):I[178]SP:[141]3390
  113. 1130 [139](SP[178][177]1[175]SP[179][178]35)[175](SE[178][177]0[175]SE[179][178]MSE)[167]1160
  114. 1140 [153]"ON";:[129]T[178]1[164]38:[153]" ";:[129]T1[178]1[164]5:[130]T1:[130]T
  115. 1150 [153]"ONON":[137]1110
  116. 1160 [141]3780:BP[178]0:[141]3810:BN[178]0
  117. 1170 [139]A[178]3[167]1460
  118. 1180 N2[178]1:[137]1220
  119. 1190 N2[178]0:[137]4770
  120. 1200 [137]4970
  121. 1210 SP[178]S1:SE[178]S2
  122. 1220 [141]3830:[141]3870:AN[178]0:EN[178]255:[139]S1[178]0[167]EN[178]S2
  123. 1230 [139]N2[178]1[167][141]4100:[137]1250
  124. 1240 [141]4050
  125. 1250 N2[178]0:[141]4390:[152]4:[152]4:[152]4
  126. 1260 [141]5060
  127. 1270 [153]" STOP(null)EITERER PEEKLOCK   SYSMID$/(null)?";:[141]5110
  128. 1280 [139]A$[178]"J"[167]1300
  129. 1290 [141]3930:BN[178]0:[137]190
  130. 1300 [139]E[178]1[167]1330
  131. 1310 [153]" STOPCHR$LEICHES ASCILE    SYSMID$/(null)?";:[141]5110
  132. 1320 [139]A$[178]"J"[167]1340
  133. 1330 N2[178]0:[141]3930:[137]990
  134. 1340 N2[178]1:S1[178]E1:S2[178]E2
  135. 1350 [153]"LOAD";:[137]1200
  136. 1360 :
  137. 1370 :
  138. 1380 [143]***********BYTEREIHEN**********
  139. 1390 :
  140. 1400 [153]"LOAD            STOPPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS"
  141. 1410 [153]"            >>>PEEKYTEREIHENSTOP<<<"
  142. 1420 [153]"            FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
  143. 1430 [141]5230
  144. 1440 N3[178]0:[137]1050
  145. 1450 SP[178]S1:SE[178]S2:[141]3830
  146. 1460 [133]"STOPVALRSTES PEEKYTE:  SYS";EB
  147. 1470 [139]EB[179]0[176]EB[177]255[167][141]1510:[137]1460
  148. 1480 [133]"STOP(null)ETZTES PEEKYTE: SYS";LB
  149. 1490 [139]LB[179]0[176]LB[177]255[176]LB[179]EB[167][141]1510:[137]1480
  150. 1500 [137]1520
  151. 1510 [153]"ON";[163]14);"          ONON":[142]
  152. 1520 [139]N3[179][177]0[167][137]1670
  153. 1530 [139]E[178]1[167][141]4100:[137]1550
  154. 1540 [141]4050
  155. 1550 AN[178]EB:EN[178]LB:[141]4390
  156. 1560 [153]"LOAD";:[141]5060
  157. 1570 [153]"STOP(null)EITERE (null)EIHE    SYSMID$/(null)?";:[141]5110
  158. 1580 [139]A$[178]"J"[167]1600
  159. 1590 [141]3930:[152]4:[152]4:[152]4:EB[178][171]1:N3[178]0:[137]190
  160. 1600 [153]"STOPCHR$LEICHER PEEKLOCK   SYSMID$/(null)?";:[141]5110
  161. 1610 [139]A$[178]"J"[167]N3[178]1:[153]"";:[137]1460
  162. 1620 [152]4:[152]4
  163. 1630 [139]E[178]1[167]1660
  164. 1640 [153]"STOPCHR$LEICHES ASCILE    SYSMID$/(null)?";:[141]5110
  165. 1650 [139]A$[178]"J"[167]N3[178]2:S1[178]E1:S2[178]E2:[153]"";:[137]4970
  166. 1660 [141]3930:[152]4:[137]1380
  167. 1670 [139]N3[178]1[167]1550
  168. 1680 [141]4100:[137]1550
  169. 1690 :
  170. 1700 :
  171. 1710 [143]*********BLOCKBELEGUNG*********
  172. 1720 :
  173. 1730 [153]"LOAD          STOPPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS"
  174. 1740 [153]"          >>>PEEKLOCKBELEGUNGSTOP<<<"
  175. 1750 [153]"          FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
  176. 1760 [141]5230:[137]4770
  177. 1770 [153]"ASC(null)(null)(null)ATN(null):  PEEKLOCKNUMMER":[153]" STOPUSRUSRUSRUSRUSRUSR   TANTANTANTANTANTANTANTANTANTANTAN"
  178. 1780 [153]"          (null)PUR/(null)EKTOR"
  179. 1790 [141]4050:[152]4:RE[178]10:RD[178]295:X1[178]39:X2[178]1
  180. 1800 AR[178][181](FL[173]10[170]0.95):[141]4300
  181. 1810 [129]I[178]1[164]AR:[152]4,"      ";
  182. 1820 [139]FL[173]10[178][181](FL[173]10)[167]1840
  183. 1830 [139]I[178]AR[167][141]2120
  184. 1840 J[178]0
  185. 1850 J[178]J[170]1:SU[178](I[171]1)[172]10[170]J:BN$[178][196](SU)
  186. 1860 L3[178][195](BN$)[171]1:BN$[178]" "[170][200](NU$,3[171]L3)[170][201](BN$,L3)[170]" "
  187. 1870 [152]4,BN$;
  188. 1880 [139]J[170]0.5[178][177]RE[167]1920
  189. 1890 [152]4,[199](27);"K";[199](5);[199](0);:A(3)[178]254
  190. 1900 [129]IJ[178]1[164]5:[152]4,[199](A(IJ));:[130]IJ
  191. 1910 [137]1850
  192. 1920 C$[178]"3":C3[178]20:[141]4030:[152]4
  193. 1930 [152]4,"      ";:[152]4,[199](27);"K";[199](X1);[199](X2);
  194. 1940 [129]IJ[178]1[164]RD:[152]4,[199](64);:[130]IJ:C3[178]8:[141]4030:[152]4
  195. 1950 C3[178]40:[141]4030:[152]4,"      ";
  196. 1960 J[178]0:SS[178]0
  197. 1970 J[178]J[170]1:SP$[178][196](S1):SE$[178][196](S2):[139]S1[178]0[167]SS$[178]" SSB ":SS[178]SS[170]1:[137]2000
  198. 1980 L4[178][195](SP$)[171]1:L5[178][195](SE$)[171]1
  199. 1990 SS$[178][200](NU$,2[171]L4)[170][201](SP$,L4)[170]"/"[170][200](NU$,2[171]L5)[170][201](SE$,L5)
  200. 2000 [152]4,SS$;
  201. 2010 [139]J[170]0.5[178][177]RE[167]2040
  202. 2020 [152]4,[199](27);"K";[199](5);[199](0);:A(3)[178]255
  203. 2030 [129]IJ[178]1[164]5:[152]4,[199](A(IJ));:[130]IJ:[139]S1[178]0[167]1970
  204. 2040 [139]S1[178]0[167]2060
  205. 2050 SP[178]S1:SE[178]S2:BP[178]0:[141]3830:[141]3870:[139]J[179]RE[167]1970
  206. 2060 [152]4:[130]I:[152]4:[141]4320:[141]3930
  207. 2070 [141]4220:[152]4,"GESAMTL"[199](91)"NGE:";:[141]4270
  208. 2080 [152]4,(FL[171]1[171]SS)[172]254[170]S2"BYTES":[152]4:[152]4:[152]4:[152]4
  209. 2090 [153]"";:[141]5060:[153]"STOP(null)EITERES ASCILE    SYSMID$/(null)?";:[141]5110
  210. 2100 [139]A$[178]"J"[167]1710
  211. 2110 [137]190
  212. 2120 RE[178]10[172](FL[173]10[171][181](FL[173]10)):RD[178][181](RE[172]29.5[170]0.5)
  213. 2130 X1[178]RD[171][181](RD[173]256)[172]256:X2[178][181](RD[173]256):[142]
  214. 2140 :
  215. 2150 :
  216. 2160 [143]***********DIREKTORY***********
  217. 2170 :
  218. 2180 [153]"LOAD            STOPPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS"
  219. 2190 [153]"            >>>STR$IREKTORYSTOP<<<"
  220. 2200 [153]"            FREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[141]5230:[141]5280
  221. 2210 [153]" STOPATNPEEK(null)(null)VAL(null)(null)(null)(null)CHR$VAL(null):":[153]" SYSPEEK(null).   STOP- OPENASCILELAENGE IN PEEKLOECKEN;"
  222. 2220 [153]" SYSPEEK(null)(null)VAL(null) STOP- OPENUNGEFAEHRE ASCILELAENGE IN                PEEKYTES ";
  223. 2230 [153]"(PEEK(null)*254);":[153]" SYS1.STR$PEEK. STOP- OPEN1. STR$ATENBLOCK DES ASCILES;"
  224. 2240 [153]" SYS(null)(null)(null)   STOP- OPENASCILETYP.":[153]" STOP(null)UR BEI RELATIVEN STR$ATEIEN:"
  225. 2250 [153]" SYS1.(null)(null)PEEK STOP- OPEN1.(null)IDE-(null)EKTOR-PEEKLOCK;"
  226. 2260 [153]" SYS(null)L    STOP- OPEN(null)ECORDLAENGE."
  227. 2270 [141]3780:[152]4,"     ";
  228. 2280 [141]4240:C$[178]"W":C3[178]1:[141]4030
  229. 2290 [152]4,"DIREKTORY":[152]4:C3[178]0:[141]4030:[141]4270
  230. 2300 [141]4300:[152]4,"      GN  AUFZ.-DICHTE     DOS   ";
  231. 2310 [152]4,"ANZAHL BL"[199](92)"CKE   SPUR  SEKT."
  232. 2320 [152]4,"      08  256 BYTES/SEKT.  V2.6  683 (664 FREI)  0018  01-18"
  233. 2330 [152]4
  234. 2340 [141]5320:[141]3930:[141]4320
  235. 2350 [152]4,"     ";:[141]4240:[152]4,DI$;:[141]4270:[152]4,DN$;
  236. 2360 [141]4240:[152]4,"ID:";:[141]4270
  237. 2370 [152]4,ID$:[152]4
  238. 2380 [152]4,"     NR.  FILENAME          BL.  BYTES";
  239. 2390 [152]4,"  1.DB.   TYP":[141]4340:[152]4,"     ";
  240. 2400 [129]I[178]1[164]46:[152]4,"-";:[130]I:[152]4
  241. 2410 ET$[178]"":I[178]0:FB[178]0:SP[178]18:SE[178]1:BP[178]0:[141]3810
  242. 2420 [141]3870:BP[178]2:[141]3840
  243. 2430 [129]J[178]1[164]8:I[178]I[170]1
  244. 2440 [129]J1[178]1[164]32:[161]#3,A$:[139]A$[178]""[167]A$[178][199](0)
  245. 2450 ET$[178]ET$[170]A$:[130]J1:ET$[178][200](ET$,30)
  246. 2460 FT[178][198]([200](ET$,1)):F1[178]FT:[139]FT[178]0[167]I[178]I[171]1:[137]2650
  247. 2470 EN$[178][200](NU$,4[171][195]([196](I)))[170][201]([196](I),[195]([196](I))[171]1)
  248. 2480 [139]FT[179]128[167]OF$[178]"*"
  249. 2490 OF$[178]" "
  250. 2500 FT[178](F1[176]128)[175]135:FT$[178]OF$[170]FT$(132[171]FT)
  251. 2510 AS[178][198]([202](ET$,2,1)):SP$[178][200](NU$,3[171][195]([196](AS)))
  252. 2520 SP$[178]SP$[170][201]([196](AS),[195]([196](AS))[171]1)
  253. 2530 AS[178][198]([202](ET$,3,1)):SE$[178][200](NU$,3[171][195]([196](AS)))
  254. 2540 SE$[178]SE$[170][201]([196](AS),[195]([196](AS))[171]1)
  255. 2550 DB$[178]SP$[170]"/"[170]SE$
  256. 2560 F$[178][202](ET$,4,16)
  257. 2570 AS[178][198]([201](ET$,1))[172]256[170][198]([202](ET$,29,1)):FB[178]FB[170]AS
  258. 2580 LA$[178][200](NU$,4[171][195]([196](AS)))[170][201]([196](AS),[195]([196](AS))[171]1)
  259. 2590 AS[178](AS[172]256)[171](AS[172]2)[171]127
  260. 2600 BY$[178][200](NU$,6[171][195]([196](AS)))[170][201]([196](AS),[195]([196](AS))[171]1)
  261. 2610 [152]4,"     "EN$"  "F$"  "LA$;
  262. 2620 [152]4,"  "BY$"  "DB$"  "FT$;
  263. 2630 [139][201](FT$,3)[178]"REL"[167][141]2780
  264. 2640 [152]4
  265. 2650 ET$[178]"":[130]J
  266. 2660 [139]S1[178]0[167]2680
  267. 2670 SP[178]S1:SE[178]S2:BP[178]0:[141]3830:[137]2420
  268. 2680 FB[178]664[171]FB:[141]4360
  269. 2690 [152]4:[141]4300:[152]4,"      ";
  270. 2700 [152]4,"FREIE BL"[199](92)"CKE:"FB"  IN BYTES:"(FB[172]254);
  271. 2710 [152]4,"  FREIE EINTR"[199](91)"GE:"144[171]I:[152]4:[152]4:[152]4:[152]4
  272. 2720 [141]4320:[141]3930
  273. 2730 [141]5060
  274. 2740 [153]"STOP(null)EITERE STR$ISKETTE SYSMID$/(null)?";
  275. 2750 [141]5110
  276. 2760 [139]A$[178]"J"[167]2160
  277. 2770 [137]190
  278. 2780 AS[178][198]([202](ET$,20,1)):SP$[178][200](NU$,3[171][195]([196](AS)))
  279. 2790 SP$[178]SP$[170][201]([196](AS),[195]([196](AS))[171]1)
  280. 2800 AS[178][198]([202](ET$,21,1)):SE$[178][200](NU$,3[171][195]([196](AS)))
  281. 2810 SE$[178]SE$[170][201]([196](AS),[195]([196](AS))[171]1)
  282. 2820 DB$[178]" "[170]SP$[170]"/"[170]SE$
  283. 2830 AS[178][198]([202](ET$,22,1)):RL$[178][200](NU$,4[171][195]([196](AS)))
  284. 2840 RL$[178]" "[170]RL$[170][201]([196](AS),[195]([196](AS))[171]1)
  285. 2850 [141]4300:[152]4,"   1.SSB:";:[141]4320:[152]4,DB$;
  286. 2860 [141]4300:[152]4,"   R"[199](108)":";:[141]4320:[152]4,RL$;
  287. 2870 [142]
  288. 2880 :
  289. 2890 :
  290. 2900 [143]**************BAM**************
  291. 2910 :
  292. 2920 [153]"LOAD              STOPPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS"
  293. 2930 [153]"              >>>PEEK ATN (null)STOP<<<":[153]"              FREFREFREFREFREFREFREFREFREFREFRE"
  294. 2940 [153]"         SYS(STOPPEEKSYSLOCK STOPATNSYSVAILABLE STOP(null)SYSAP)"
  295. 2950 [153]" STOPASC(null)(null)(null)ATN(null): OPENHORIZONTAL STOP- OPEN(null)EKTOREN"
  296. 2960 [153]"         VERTIKAL   STOP- OPEN(null)PUREN"
  297. 2970 [153]"STOP(null)VALRIGHT$LENLEFT$VAL(null)PEEKVALSTR$VAL(null)(null)(null)(null)CHR$: OPEN'*'STOP=OPENPEEKLOCK BELEGT;"
  298. 2980 [153][163]19)"OPEN'-'STOP=OPENPEEKLOCK FREI;"
  299. 2990 [153][163]19)"OPEN'/'STOP=OPENPEEKLOCK NICHT VOR-":[153][163]23)"HANDEN."
  300. 3000 [141]5230:[141]5280
  301. 3010 T1$[178]"":L$[178]"":[141]3780:[141]5320:[152]4,"     ";
  302. 3020 [141]4240:C$[178]"W":C3[178]1:[141]4030
  303. 3030 [152]4,"BLOCKBELEGUNGSPLAN":[152]4:C3[178]0:[141]4030:[141]4270
  304. 3040 C$[178]"3":C3[178]24:[141]4030:[152]4,"     ";:[141]4240:[152]4,DI$;
  305. 3050 [141]4270:[152]4,DN$;:[141]4240:[152]4,"ID:";:[141]4270
  306. 3060 [152]4,ID$
  307. 3070 [152]4:[152]4,"     S"[199](101)[199](107)[199](116)[199](111)[199](114);
  308. 3080 [152]4,"                 1 1 1 1 1 1 1 1 1 1 2   FREIE"
  309. 3090 [152]4,"     "[199](112)"  0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0   ";
  310. 3100 [152]4,"BL"[199](92)"CKE":[152]4,"     "[199](117)
  311. 3110 GF[178]0:BP[178]4:[141]3840
  312. 3120 [129]I[178]1[164]35:[139]I[178]1[167]3380
  313. 3130 [141]3390:[139]I[179]10[167][152]4,"     "I;:[137]3150
  314. 3140 [152]4,"    "I;
  315. 3150 [129]J[178]1[164]4:[161]#3,A$:[139]A$[178]""[167]A$[178][199](0)
  316. 3160 AC[178][198](A$):[139]J[178]1[167]FB[178]AC:GF[178]GF[170]FB:[137]3210
  317. 3170 T1[178]2[172](AC[173]2[171][181](AC[173]2)):T1$[178][201]([196](T1),1)
  318. 3180 L$[178]L$[170]T1$:AC[178][181](AC[173]2):[139]AC[178]0[167]3200
  319. 3190 [137]3170
  320. 3200 L$[178]L$[170][200](NU$,8[171]([195](L$)[171](J[171]2)[172]8)):[137]3220
  321. 3210 [139]I[178]18[167]GF[178]GF[171]FB
  322. 3220 [130]J
  323. 3230 [129]J[178]1[164]21:[139]J[179][178]MSE[167]3250
  324. 3240 [152]4,"/ ";:[137]3270
  325. 3250 [139][202](L$,J,1)[178]"0"[167][152]4,"* ";:[137]3270
  326. 3260 [152]4,"- ";
  327. 3270 [130]J:[139]FB[179]10[167][152]4,"  0"[201]([196](FB),1):[137]3290
  328. 3280 [152]4," "FB
  329. 3290 L$[178]"":[130]I
  330. 3300 [129]I[178]1[164]51:[152]4," ";:[130]I:[139]GF[177]99[167][152]4,"---":[137]3320
  331. 3310 [152]4," --"
  332. 3320 [129]I[178]1[164]54[171][195]([196](GF)):[152]4," ";:[130]I:[152]4,GF:GF[178]0
  333. 3330 [141]4360:[152]4:[152]4:[152]4
  334. 3340 [141]3930:[141]5060
  335. 3350 [153]"STOP(null)EITERE STR$ISKETTE SYSMID$/(null)?";:[141]5110
  336. 3360 [139]A$[178]"J"[167]2900
  337. 3370 [137]190
  338. 3380 MSE[178]21:[152]4,"     "[199](114)"1 ";:[137]3150
  339. 3390 [139]I[178][177]1[175]I[179][178]17[167]MSE[178]21:[137]3430
  340. 3400 [139]I[178][177]18[175]I[179][178]24[167]MSE[178]19:[137]3430
  341. 3410 [139]I[178][177]25[175]I[179][178]30[167]MSE[178]18:[137]3430
  342. 3420 [139]I[178][177]31[175]I[179][178]35[167]MSE[178]17
  343. 3430 [142]
  344. 3440 :
  345. 3450 :
  346. 3460 [143]*************ENDE**************
  347. 3470 :
  348. 3480 [153]"LOAD"[199](9);:[160]4:[151]HF,0
  349. 3490 [151]788,49:[156]:[137]5430
  350. 3500 :
  351. 3510 :
  352. 3520 [143]*******UP FILE VORHANDEN*******
  353. 3530 SP[178]18:SE[178]1:BP[178]0:P$[178]""
  354. 3540 [141]3780
  355. 3550 [141]3810:[141]3870
  356. 3560 BP[178]2:[141]3840
  357. 3570 [161]#3,A$:[139]A$[178]""[167]A$[178][199](0)
  358. 3580 [139][198](A$)[178]0[167]3660
  359. 3590 [161]#3,A$,A$
  360. 3600 [129]I[178]1[164]16
  361. 3610 [161]#3,A$:[139]A$[178]""[167]A$[178][199](0)
  362. 3620 [139]A$[178][199](160)[167]3640
  363. 3630 P$[178]P$[170]A$:[130]
  364. 3640 [153]"ON                  ":[153]"ON"P$
  365. 3650 [139]F$[178]P$[167]P$[178]"":[137]3700
  366. 3660 BP[178]BP[170]32:[139]BP[177]226[167]P$[178]"":[137]3680
  367. 3670 [141]3840:P$[178]"":[137]3570
  368. 3680 [139]S1[178]0[167][141]3930:[137]4840
  369. 3690 [141]3930:SP[178]S1:SE[178]S2:BP[178]0:[137]3550
  370. 3700 BP[178]BP[170]1:[141]3840
  371. 3710 [141]3870:SP[178]S1:SE[178]S2
  372. 3720 BP[178]BP[171]1:[141]3840:[141]3870:FT[178](S1[176]128)[175]135
  373. 3730 FT$[178]FT$(132[171]FT)
  374. 3740 BP[178]BP[170]28:[141]3840:[141]3870:FL[178]S1[170]256[172]S2
  375. 3750 FL$[178]"CA."[170][196](FL)[170]" BLOCKS":S1[178]SP:S2[178]SE
  376. 3760 [142]
  377. 3770 :
  378. 3780 [143]*****FLOPPY INITIALISIEREN*****
  379. 3790 [159]1,8,15,"I":[160]1:[142]
  380. 3800 :
  381. 3810 [143]************B-R/B-P************
  382. 3820 [159]2,8,15:[159]3,8,2,"#"
  383. 3830 [152]2,"U1 2 0 ";SP;SE
  384. 3840 [152]2,"B-P 2 ";BP
  385. 3850 [142]
  386. 3860 :
  387. 3870 [143]*********2 BYTES HOLEN*********
  388. 3880 [161]#3,A1$,A2$:[139]A1$[178]""[167]A1$[178][199](0)
  389. 3890 [139]A2$[178]""[167]A2$[178][199](0)
  390. 3900 S1[178][198](A1$):S2[178][198](A2$):ND[178]S1[172]S2
  391. 3910 [142]
  392. 3920 :
  393. 3930 [143]******KANAELE SCHLIESSEN*******
  394. 3940 [160]3:[160]2:[142]
  395. 3950 :
  396. 3960 [143]****DRUCKER INITIALISIEREN*****
  397. 3970 [152]4,[199](27);[199](64);
  398. 3980 [152]4,[199](27);[199](115);[199](1);
  399. 3990 [142]
  400. 4000 :
  401. 4010 [143]*******SCHRIFTART SENDEN*******
  402. 4020 [152]4,[199](C1);[199](C2);[199](C3);:[142]
  403. 4030 [152]4,[199](27);C$;[199](C3);:[142]
  404. 4040 :
  405. 4050 [143]*********KOPF DRUCKEN**********
  406. 4060 [141]4220:[152]4,A$(0);:[141]4270:[152]4,"   ";F$
  407. 4070 [141]4220:[152]4,A$(1);:[141]4270:[152]4,"        ";FT$
  408. 4080 [141]4220:[152]4,A$(2);:[141]4270:[152]4,"  ";FL$
  409. 4090 [139]A[178]4[167]4190
  410. 4100 [141]4220:[152]4,A$(3);:[141]4270:[152]4,SP;
  411. 4110 [139]SP[179]10[167][152]4," ";
  412. 4120 [152]4,"   ";:[141]4240:[152]4,A$(4);:[141]4270:[152]4,SE;
  413. 4130 [139]BN[177]0[167][152]4,"   ";:[137]4150
  414. 4140 [152]4," ":[137]4180
  415. 4150 [139]SE[179]10[167][152]4," ";
  416. 4160 [141]4240:[152]4,"B"[199](108)[199](111)[199](99)[199](107)":";
  417. 4170 [141]4270:[152]4,BN
  418. 4180 [141]4250:[152]4:[152]4,"     ";A$(5)
  419. 4190 [141]4280
  420. 4200 [142]
  421. 4210 :
  422. 4220 [143]*****SCHRIFTART AUSWAEHLEN*****
  423. 4230 [152]4,"     ";
  424. 4240 C$[178]"-":C3[178]1:[141]4030
  425. 4250 C$[178]"E":C3[178]0:[141]4030
  426. 4260 [142]
  427. 4270 C$[178]"-":[141]4030
  428. 4280 C$[178]"F":[141]4030
  429. 4290 [142]
  430. 4300 C$[178]"M":C3[178]0:[141]4030
  431. 4310 [142]
  432. 4320 C$[178]"P":C3[178]0:[141]4030
  433. 4330 [142]
  434. 4340 C$[178]"0":C3[178]0:[141]4030
  435. 4350 [142]
  436. 4360 C$[178]"2":C3[178]0:[141]4030
  437. 4370 [142]
  438. 4380 :
  439. 4390 [143]*******BYTES AUSDRUCKEN********
  440. 4400 [141]4340
  441. 4410 LZ[178]32[172](AN[173]8[171][181](AN[173]8)):L1$[178][200](LZ$,LZ):[139]EB[178][177]0[167]AN[178][181](EB[173]8)[172]8
  442. 4420 LZ[178]32[171]32[172]((EN[170]1)[173]8[171][181]((EN[170]1)[173]8)):[139]LZ[178]32[167]LZ[178]0
  443. 4430 L2$[178][200](LZ$,LZ)
  444. 4440 BP[178]AN:[141]3840
  445. 4450 [129]J[178]AN[164]EN[169]8:H$[178][196](J):L1[178][195](H$)
  446. 4460 H$[178]"      "[170][200](NU$,4[171]L1)[170][201](H$,L1[171]1)[170][199](62)[170]"   "
  447. 4470 [141]4300
  448. 4480 [152]4,H$;L1$;:L1$[178]"":I1$[178]""
  449. 4490 [129]I[178]0[164]7
  450. 4500 [161]#3,A$:[139]A$[178]""[167]A$[178][199](0)
  451. 4510 [139]EB[178][177]0[175]J[170]I[179]EB[167]A$[178]".":[141]4730:[137]4560
  452. 4520 AS[178][198](A$):I$[178][196](AS):L2[178][195](I$)
  453. 4530 I$[178][200](NU$,4[171]L2)[170][201](I$,L2[171]1)[170]" ":I1$[178]I1$[170]I$
  454. 4540 [141]4650
  455. 4550 [139]J[170]I[178]EN[167]4570
  456. 4560 [130]I:I[178]I[171]1
  457. 4570 [139]J[170]I[178]EN[167]I1$[178]I1$[170]L2$:J[178]EN:L2$[178]""
  458. 4580 I1$[178]I1$[170]"  "
  459. 4590 [152]4,I1$;:[141]4320
  460. 4600 B$[178][200](B$,[195](B$))[170][201](NU$,8[171][195](B$))
  461. 4610 [152]4,B$:B$[178]""
  462. 4620 [130]J
  463. 4630 [141]4360:[152]4:[142]
  464. 4640 :
  465. 4650 [143]***OPERAT.IN ZEICHEN UMWAND.***
  466. 4660 [139]AS[179]32[176]AS[177]90[167]A$[178]".":[137]4750
  467. 4670 [139]AS[178]170[167]A$[178]"+":[137]4750
  468. 4680 [139]AS[178]171[167]A$[178]"-":[137]4750
  469. 4690 [139]AS[178]173[167]A$[178]"/":[137]4750
  470. 4700 [139]AS[178]172[167]A$[178]"*":[137]4750
  471. 4710 [139]AS[178]173[167]A$[178]"/":[137]4750
  472. 4720 [139]AS[178]177[167]A$[178]">":[137]4750
  473. 4730 [139]AS[178]178[167]A$[178]"=":[137]4750
  474. 4740 [139]AS[178]179[167]A$[178]"<"
  475. 4750 B$[178]B$[170]A$:[142]
  476. 4760 :
  477. 4770 [143]*******EINGABE FILENAME********
  478. 4780 [133]" STOPASCILENAME: SYS";F$
  479. 4790 [139][195](F$)[179][178]16[167]4820
  480. 4800 [153]"ON             ";
  481. 4810 [129]T[178]1[164][195](F$):[153]" ";:[130]T:[153]"ONON":[137]4780
  482. 4820 [141]3520:E1[178]S1:E2[178]S2
  483. 4830 [145]A[137]870,1200,1200,1770
  484. 4840 [153]" ASCRIGHT$(null)VALCLOSE(null)RIGHT$LENLEFT$(null)CLOSE(null)(null)(null)LEFT$ATN(null)STR$VAL(null)!"
  485. 4850 [153]" ASC1STOP=(null)EUE VALINGABE  ASC3STOP=(null)ENUE"
  486. 4860 [161]A$
  487. 4870 [139]A$[178][199](133)[167]210
  488. 4880 [139]A$[178][199](134)[167]190
  489. 4890 [137]4860
  490. 4900 :
  491. 4910 [143]******2 BLOCKS PRO SEITE*******
  492. 4920 AB[178]AB[170]1:[139]AB[178]2[167]4940
  493. 4930 [142]
  494. 4940 AB[178]0:[152]4,[199](12):[141]3960
  495. 4950 [142]
  496. 4960 :
  497. 4970 [143]******EINGABE BLOCKNUMMER******
  498. 4980 [153]"ASCILE BELEGT";FL" PEEKLOECKE!"
  499. 4990 [133]"STOPPEEKLOCKNUMMER:  SYS";BN:[139]BN[179]1[176]BN[177]FL[167][141]3930:[137]210
  500. 5000 N1[178]1
  501. 5010 [139]N1[178]BN[167]5040
  502. 5020 SP[178]S1:SE[178]S2:BP[178]0:[141]3830:[141]3870
  503. 5030 N1[178]N1[170]1:[137]5010
  504. 5040 [145]A[137]0,1210,1450
  505. 5050 :
  506. 5060 [143]******SEITENVORSCHUB J/N*******
  507. 5070 [153]"STOP(null)EITENVORSCHUB   SYSMID$/(null)?";:[141]5110
  508. 5080 [139]A$[178]"J"[167][141]4940
  509. 5090 [142]
  510. 5100 :
  511. 5110 [143]********TASTATURABFRAGE********
  512. 5120 [161]A$
  513. 5130 [139]A$[178]"J"[167][153]"CMDCMDCMDCMDOPENMID$":[137]5160
  514. 5140 [139]A$[178]"N"[167][153]"CMDCMDOPEN(null)":[137]5160
  515. 5150 [137]5120
  516. 5160 [129]T[178]1[164]1000:[130]T:[142]
  517. 5170 :
  518. 5180 [143]*********F1 - ABFRAGE**********
  519. 5190 [161]A$
  520. 5200 [139]A$[178][199](133)[167][142]
  521. 5210 [137]5190
  522. 5220 :
  523. 5230 [143]*******DISKETTE EINLEGEN*******
  524. 5240 [153]" SYS(null)U BEARBEITENDE STR$ISKETTE EINLEGEN!"
  525. 5250 [139]A[178]5[176]A[178]6[167][142]
  526. 5260 [129]T[178]1[164]1000:[130]T:[142]
  527. 5270 :
  528. 5280 [143]*******FERTIG .......F1********
  529. 5290 [153]" SYSASCERTIG STOP........................ SYSASC1"
  530. 5300 [141]5180:[142]
  531. 5310 :
  532. 5320 [143]****DISK.-NAME UND ID LESEN****
  533. 5330 SP[178]18:SE[178]0:BP[178]144:[141]3810
  534. 5340 D$[178]"":J[178]0
  535. 5350 [129]I[178]1[164]20:[161]#3,A$:[139]A$[178]""[167]A$[178][199](0)
  536. 5360 [139]J[177]0[167]5380
  537. 5370 [139]A$[178][199](160)[167]J[178]I[171]1:[137]5390
  538. 5380 D$[178]D$[170]A$
  539. 5390 [130]I
  540. 5400 DN$[178]" "[170][200](D$,J)[170]"  ":ID$[178]" "[170][201](D$,2)
  541. 5410 [142]
  542. 5420 :
  543. 5430 [128]
  544.