home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8505.d64 / prodat (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  12KB  |  401 lines
  1. 10 REM ************************
  2. 20 REM *                      *
  3. 30 REM * P  R  O  D  A  T     *
  4. 40 REM *                      *
  5. 50 REM * AUTOR: WOLFGANG HAHN *
  6. 60 REM * AN DER STADTMAUER 12 *
  7. 70 REM * 8687 WEISSENSTADT    *
  8. 80 REM * TELEFON: 09253/1744  *
  9. 90 REM *                      *
  10. 100 REM ************************
  11. 110 :
  12. 120 PRINTCHR$(14):GOSUB2980:PRINT"4 SEK.":GOSUB3820
  13. 130 POKE90,0:POKE91,192:POKE88,0:POKE89,192:POKE780,0:POKE781,160:SYS820
  14. 140 POKE90,0:POKE91,0:POKE88,0:POKE89,0:POKE780,0:POKE781,224:SYS820:POKE1,53
  15. 150 S=44136:FORI=STOS+8STEP4:POKEI,0:NEXT:S=43991:POKES,3:POKES+1,172:S=42349
  16. 160 POKES,228:POKES+1,180:FORI=S+4TOS+8:POKEI,234:NEXT:POKE59012,96
  17. 170 POKE1,55:CLR:GOSUB3980
  18. 180 REM  H A U P T M E N U E
  19. 190 GOSUB2980:PRINT"-1- [196]EFINIERTE [196]ATEI BENUTZEN"
  20. 200 PRINT"-2- [206]EUE [196]ATEI DEFINIEREN"
  21. 210 PRINT"-3- [196]RUCKPARAMETER AENDERN"
  22. 220 E=2:GOSUB2970
  23. 230 PRINT"-4- [196]IRECTORY LADEN"
  24. 240 PRINT"-5- [198]ILE LOESCHEN"
  25. 250 PRINT"-6- [214]ALIDATE"
  26. 260 PRINT"-7- [196]ISK FORMATIEREN"
  27. 270 PRINT"-8- [198]ILE UMBENENNEN"
  28. 280 GOSUB3010:IFE<1ORE>8THEN280
  29. 290 ONEGOSUB690,330,320,3200,3420,3500,3550,3610
  30. 300 GOTO190
  31. 310 REM  N E U E  D A T E I  D E F .
  32. 320 X=-1:IFD=0THENRETURN
  33. 330 GOSUB2950:PRINT" [206]EUE [196]ATEI DEFINIEREN ":IFX=-1GOTO540
  34. 340 PRINT"[205]IT [200]ARDCOPY (J/N/^=ZURUECK)":GOSUB3010:IFE$="^"THENRETURN
  35. 350 PRINT"[147]"
  36. 360 PRINT"";:POKE1,53:POKE58879,133:POKE59639,24:POKE780,0:SYS58826:POKE1,55:SYS895
  37. 370 IFE$<>"J"THEN390
  38. 380 GOSUB2670:SYS932:IFL=2GOTO380
  39. 390 CLR:GOSUB3980:F=1:A1%=-1
  40. 400 FORI=1024TO1983:IFPEEK(I)<>30GOTO450
  41. 410 A%(F,Y)=(I-1024)/40:POKEI,32:FORZ=0TO79:IFPEEK(I+Z)<>30THENNEXTZ
  42. 420 Y=Y+1:A%(F,Y)=I-(A%(F,Y-1)*40+1024):Y=Y+1:A%(F,Y)=Z:Y=0:I=I+Z:IFZ=80THENI=I-1
  43. 430 IFZ<80THENPOKEI,32
  44. 440 F=F+1:IFF=40GOTO490
  45. 450 IFPEEK(I)=31THENA1%=(I-1024)/40:A2%=I-(A1%*40+1025):POKEI,32
  46. 460 NEXTI:IFF=1THENF=40:GOTO490
  47. 470 FORI=1984TO2023:IFPEEK(I)=30ORPEEK(I)=31THENPOKEI,32
  48. 480 NEXT:IFA%(F-1,0)=23ANDA%(F-1,2)>40THENA%(F-1,2)=40
  49. 490 F=F-1:IFF=39THENPRINT"[147][198]ELDERANZAHL PRUEFEN!!",,T$:GOSUB3010:SYS932:GOTO360
  50. 500 SYS895:IFA2%<0THENA2%=0
  51. 510 GOSUB2950:PRINT" [206]EUE [196]ATEI DEFINIEREN "
  52. 520 IFX=-1GOTO540
  53. 530 INPUT"[206]AME DER [196]ATEI";NA$:IFRIGHT$(NA$,1)="*"GOTO530
  54. 540 PRINT"[196]RUCKPARAMETER EINGEBEN!":POKE180,81:POKE129,1:POKE1,53:POKE58879,13
  55. 550 FORI=0TO59:PRINTI+1"[157]. [196]RUCKZEILE: ":E$=""
  56. 560 INPUTE$
  57. 570 IFE$=""THENPZ$(I)="0":GOTO600
  58. 580 PZ$(I)=E$
  59. 590 IFE$="_"GOTO610
  60. 600 NEXT:PZ$(60)="_"
  61. 610 POKE129,32:POKE1,55:INPUT"ALLES RICHTIG (J/N)";E$:UD=1
  62. 620 IFE$="N"GOTO510
  63. 630 Y=0:DF=I:E$="M/"+LEFT$(NA$,14)
  64. 640 IFX=-1THENX=0:RETURN
  65. 650 GOSUB3060
  66. 660 D$="0":D=0:GOSUB1650:IFF1<>0THENY=Y+1:IFY<2GOTO650
  67. 670 GOTO190
  68. 680 REM  H I L F S M E N U E
  69. 690 GOSUB2980:PRINT"-1- [196]ATEI LADEN"
  70. 700 PRINT"-2- [196]ATEI PFLEGEN"
  71. 710 PRINT"-3- [196]ATEI ABSPEICHERN"
  72. 720 PRINT"-4- [211]ORTIERROUTINE"
  73. 730 PRINT"-5- [193]DDITIONSROUTINE"
  74. 740 PRINT"-6- [196]RUCKER-[205]ENUE"
  75. 750 PRINT"-^- [218]URUECK"
  76. 760 GOSUB3010:IFE$="^"THENRETURN
  77. 770 IFE<1ORE>6GOTO760
  78. 780 ONEGOSUB870,1110,1640,2070,3090,2790
  79. 790 GOTO690
  80. 800 REM  T E S T  F L O P P Y
  81. 810 POKE768,61:OPEN1,8,15,"I":CLOSE1
  82. 820 IFST<>-128THENPOKE768,139:RETURN
  83. 830 GOSUB840:GOTO810
  84. 840 PRINT"[147]":E=1:GOSUB2970:PRINT"     [208]ERIPHERIE EINSCHALTEN!!":PRINTT$
  85. 850 GOSUB2970:GOSUB3010:RETURN
  86. 860 REM  L O A D  F I L E
  87. 870 GOSUB2950:PRINT""SPC(13)" [196]ATEI LADEN "
  88. 880 IFUD=1ANDD<>0THENPRINT" [196]ATEI ABSPEICHERN?! (J/N)":PRINTT$:GOSUB3010:IFE$<>"N"THENRETURN
  89. 890 CLR:GOSUB3980
  90. 900 E$="":PRINT""A$"[205]IT WELCHER [196]ATEI WOLLEN [211]IE":INPUT"ARBEITEN";E$
  91. 910 IFRIGHT$(E$,1)="*"GOTO870
  92. 920 IFE$="^"GOTO1090
  93. 930 IFE$=""THEN900
  94. 940 NA$=E$
  95. 950 UD=0
  96. 960 E$="M/"+LEFT$(NA$,14):SYS827(E$)E$:E=PEEK(141)*256+PEEK(140):POKE139,PEEK(E)
  97. 970 POKE140,PEEK(E+1):POKE141,PEEK(E+2):GOSUB810:SYS969:GOSUB3710:IFF1GOTO870
  98. 980 OPEN2,8,2,NA$+",S,R":POKE180,81
  99. 990 INPUT#2,F:INPUT#2,A1%:INPUT#2,A2%
  100. 1000 FORI=1TOF:FORX=0TO2:INPUT#2,A%(I,X):NEXTX,I
  101. 1010 INPUT#2,DF:POKE1,54:FORI=0TODF:INPUT#2,PZ$(I):IFPZ$(I)="_"GOTO1030
  102. 1020 NEXT
  103. 1030 INPUT#2,D
  104. 1040 IFD=0GOTO1080
  105. 1050 POKE129,255:FORI=1TOD
  106. 1060 INPUT#2,FE$(I)
  107. 1070 NEXTI:POKE129,32
  108. 1080 POKE1,55:GOSUB3710:CLOSE2:IFF1GOTO870
  109. 1090 E=1:GOTO290
  110. 1100 REM  A N Z E I G E
  111. 1110 IFUD=3THENRETURN
  112. 1120 DS=0:IFD=0GOTO1340
  113. 1130 FL=7:L=0:IFDS<0ORDS=DGOTO3040
  114. 1140 PRINT"[147]";:FORI=1TO24:PRINT"[154]                                        ";:NEXT
  115. 1150 PRINT"[154]                                       ";
  116. 1160 SYS932:IFA1%<>-1THENGOSUB1320
  117. 1170 FORI=1TOF:GOSUB1310:PRINTFE$(I+DS);:NEXT
  118. 1180 IFL=2THENGOSUB2680
  119. 1190 IFFL=8GOTO2040
  120. 1200 GOSUB3010
  121. 1210 IFE$="+"ANDDS<DTHENDS=DS+F:GOTO1130
  122. 1220 IFE$="-"ANDDS>=0THENDS=DS-F:GOTO1130
  123. 1230 IFE$="[133]"ANDFL<>9THENY=0:GOSUB2460:GOTO1130
  124. 1240 IFE$="[134]"ANDFL<>9THENGOSUB2670:IFL=2GOTO1160
  125. 1250 IFE$="L"ANDFL<>9GOTO1800
  126. 1260 IFE$="S"ANDFL<>9GOTO1890
  127. 1270 IFE$="A"ANDFL<>9GOTO1350
  128. 1280 IFE$="E"THENDS=D:FL=0:GOTO1340
  129. 1290 IFE$="^"THENRETURN
  130. 1300 GOTO1200
  131. 1310 POKE214,A%(I,0):POKE211,A%(I,1):SYS58640:RETURN
  132. 1320 POKE214,A1%:POKE211,A2%:SYS58640:PRINTDS/F+1:RETURN
  133. 1330 REM  I N P U T - R O U T .
  134. 1340 PRINT"[147]":SYS932
  135. 1350 OPEN3,3:POKE204,0:UD=1
  136. 1360 IFA1%<>-1THENGOSUB1320
  137. 1370 IFDS+F>1499THENGOSUB2420:GOTO1460
  138. 1380 FORI=1TOF:POKE1,53
  139. 1390 Y=0:X=LEN(FE$(DS+I)):GOSUB1310
  140. 1400 SYS861
  141. 1410 GOSUB3010
  142. 1420 IFE$=CHR$(13)THENPRINTE$;:GOTO1540
  143. 1430 IFE$="[133]"ANDI>1THENI=I-2:GOTO1570
  144. 1440 IFE$="[134]"THENX=0:Y=0:GOSUB1310:PRINTLEFT$(A$,A%(I,2));:GOSUB1310:GOTO1400
  145. 1450 IFE$="[135]"GOTO1860
  146. 1460 IFE$="[136]"GOTO1600
  147. 1470 IFE$=""ANDY<40ANDA%(I,2)>Y+39THENY=Y+39:GOTO1500
  148. 1480 IFE$="[145]"ANDY>39THENY=Y-41:GOTO1500
  149. 1490 IFE$=""ORE$="[146]"ORE$=""ORE$="[145]"ORE$=""ORE$=CHR$(148)ORE$=""ORE$="[147]"GOTO1410
  150. 1500 Y=Y+1:IFX<YTHENX=Y
  151. 1510 IFE$="[157]"THENY=Y-2:IFY<0THENY=0:GOTO1410
  152. 1520 PRINTE$;:IFY=A%(I,2)GOTO1540
  153. 1530 GOTO1400
  154. 1540 GOSUB1310:POKE180,X
  155. 1550 FE$(DS+I)="":POKE213,80:POKE129,255:INPUT#3,FE$(DS+I):POKE129,32:POKE1,55
  156. 1560 IFRIGHT$(FE$(DS+I),1)<>CHR$(32)THENFE$(DS+I)=FE$(DS+I)+CHR$(154)
  157. 1570 NEXTI
  158. 1580 IFFLGOTO1620
  159. 1590 DS=DS+F:SYS932:GOTO1360
  160. 1600 IFFLGOTO1620
  161. 1610 D=DS:DS=0
  162. 1620 POKE1,55:POKE207,0:POKE204,1:PRINT#3,;:CLOSE3:X=0:GOTO1130
  163. 1630 REM  S P E I C H E R N
  164. 1640 IFD=0THENRETURN
  165. 1650 GOSUB2950:PRINT""SPC(10)" [196]ATEI ABSPEICHERN "
  166. 1660 PRINT""W$
  167. 1670 GOSUB810:UD=0
  168. 1680 OPEN2,8,2,"@:"+NA$+",S,W"
  169. 1690 PRINT#2,F:PRINT#2,A1%:PRINT#2,A2%
  170. 1700 FORI=1TOF:FORX=0TO2:PRINT#2,A%(I,X):NEXTX,I
  171. 1710 PRINT#2,DF:FORI=0TODF:PRINT#2,PZ$(I):IFPZ$(I)="_"GOTO1730
  172. 1720 NEXT
  173. 1730 PRINT#2,D:IFD=0GOTO1770
  174. 1740 FORI=1TOD
  175. 1750 PRINT#2,FE$(I)
  176. 1760 NEXTI
  177. 1770 CLOSE2:GOSUB3710
  178. 1780 RETURN
  179. 1790 REM  D S  L O E S C H E N
  180. 1800 POKE214,24:POKE211,0:SYS58640:PRINT"[211]IND [211]IE [211]ICHER? (J/N)[146]";:GOSUB3010
  181. 1810 IFE$<>"J"ANDE$<>"[202]"GOTO1130
  182. 1820 D=D-F:POKE857,F*3:IFDS=DTHENDS=DS-F:GOTO1840
  183. 1830 SYS932:FORI=DS+1TODSTEPF:SYS827FE$(I)FE$(I+F):NEXT
  184. 1840 GOTO1130
  185. 1850 REM  B Y T E S  F R E I
  186. 1860 F1=PEEK(214):F2=PEEK(211):POKE214,24:POKE211,0:SYS58640:SYS861
  187. 1870 PRINT"[[198]REI:      ][157][157][157][157][157][157][157]"FRE(0);:POKE214,F1:POKE211,F2:SYS58640:GOTO1410
  188. 1880 REM  S U C H E N
  189. 1890 GOSUB2950:PRINT""SPC(12)" [211]UCHEN "
  190. 1900 E$="":INPUT"[198]ELDNUMMER";E$:L=1
  191. 1910 POKE180,80:V=VAL(E$):IFV>FTHENPRINT"[145][145]";:GOTO1900
  192. 1920 S$="":Z=1:Y=1:POKE1,53:POKE129,1:INPUT"[211]UCHWORT: ";S$:POKE1,55:POKE129,32
  193. 1930 IFS$=""GOTO1130
  194. 1940 LE=LEN(S$):P=F:IFV=0THENP=1:V=1
  195. 1950 PRINT"[147][193]NZAHL [198]ELDER:"D:PRINT"      -STES [198]ELD ABGESUCHT"
  196. 1960 FORX=VTODSTEPP:PRINT"[145]"X:E=LEN(FE$(X))-1:F1=E-L:IFLE>EGOTO1990
  197. 1970 FORY=0TOE:IFY<=F1THENFORZ=1TOLE:IFMID$(S$,Z,1)=MID$(FE$(X),Y+Z,1)THENNEXT:GOTO2030
  198. 1980 NEXTY
  199. 1990 NEXTX
  200. 2000 IFFL=8GOTO1130
  201. 2010 PRINT"'"S$"' NICHT GEFUNDEN!!";
  202. 2020 GOSUB3010:GOTO1160
  203. 2030 DS=F*INT((X-1)/F):FL=8:L=0:GOTO1160
  204. 2040 GOSUB3010:IFE$<>"J"GOTO1130
  205. 2050 V=X+P:GOTO1950
  206. 2060 REM  S O R T
  207. 2070 IFD<F*2ORD=0THENRETURN
  208. 2080 GOSUB2950:PRINT""SPC(10)" [211]ORTIER-[210]OUTINE "
  209. 2090 PRINT"-1- [193]LLES ALPHABETISCH SORTIEREN"
  210. 2100 PRINT"-2- [194]ESTIMMTE [199]RUPPEN HERAUSSORTIEREN":GOSUB2970:POKE857,F*3
  211. 2110 GOSUB3010:IFE>2ORE<1GOTO2110
  212. 2120 UD=1:IFE=2GOTO2230
  213. 2130 POKE1,54
  214. 2140 PRINT"[199]EBEN [211]IE DIE [198]ELDNUMMER EIN NACH DER":INPUT"SORTIERT WERDEN SOLL: ";E$
  215. 2150 Y=VAL(E$):POKE1,55:IFY<1ORY>FTHENPOKE214,11:SYS58640:GOTO2130
  216. 2160 PRINT"":Z=D/F:PRINT"MAX."Z"[196]URCHGAENGE":S=D-F:L=0
  217. 2170 PRINT"[196]URCHGANG: 1"
  218. 2180 FORE=1TOZ:L=0
  219. 2190 FORI=YTOSSTEPF:IFFE$(I)>FE$(I+F)THENL=1:X=I-Y+1:SYS827FE$(X+F)FE$(X)
  220. 2200 NEXTI:IFLTHENPRINT,"[145]"E:NEXTE
  221. 2210 GOTO1120
  222. 2220 REM  S O R T  B E S T .  K R I T .
  223. 2230 INPUT"[206]ACH WELCHEM [198]ELD SOLL SORT. WERDEN";S$:S=VAL(S$):IFS>FGOTO2230
  224. 2240 POKE180,80:POKE129,1:POKE1,53:INPUT"[211]ORTIERKRITERIUM UNTERE [199]RENZE: ";X$
  225. 2250 INPUT"[211]ORTIERKRITERIUM OBERE [199]RENZE: ";Y$:POKE1,55:POKE129,32
  226. 2260 PRINT"<1>[206]EUE [196]ATEI OD. [193]USGABE AUF <2>[196]RUCKER";
  227. 2270 INPUTE$:FL=VAL(E$):IFFL<1ORFL>2GOTO2270
  228. 2280 IFFL=2THENGOSUB2790:GOTO2320
  229. 2290 INPUT"[206]AME DER [196]ATEI";N$:IFN$="^"THENRETURN
  230. 2300 E$="M/"+N$:GOSUB3060:IFF1GOTO2380
  231. 2310 NA$=N$
  232. 2320 IFE$="^"THENRETURN
  233. 2330 DS=0:E=0:FORL=STODSTEPF:E$=LEFT$(FE$(L),LEN(Y$)):IFE$<X$ORE$>Y$GOTO2350
  234. 2340 DS=L-S:ONFLGOSUB2400,2340,2470,2730
  235. 2350 NEXTL
  236. 2360 IFFL=1THEND=E:DS=D
  237. 2370 IFFL<>1THENOPEN4,4,7:PRINT#4:CLOSE4:UD=0
  238. 2380 RETURN
  239. 2390 REM  E I N S O R T I E R E N
  240. 2400 SYS827FE$(E+1)FE$(DS+1):E=E+F:RETURN
  241. 2410 REM  D A T E I  V O L L
  242. 2420 POKE207,0:POKE204,1
  243. 2430 PRINT"[147]":E=1:GOSUB2970:PRINTSPC(10)"[196]ATEI VOLL!!":PRINTT$:GOSUB2970
  244. 2440 GOSUB3010:E$="[136]":RETURN
  245. 2450 REM  D R U C K 1
  246. 2460 Y=-1:GOSUB2860
  247. 2470 OPEN4,4,7
  248. 2480 X=0:Y=0:IFE<>1GOTO2500
  249. 2490 FORDS=0TOD-FSTEPF
  250. 2500 FORI=0TODF-1
  251. 2510 IFPZ$(I)="0"GOTO2610
  252. 2520 F1=LEN(PZ$(I)):FORZ=1TOF1
  253. 2530 E$=MID$(PZ$(I),Z,1)
  254. 2540 IFE$<>"["GOTO2570
  255. 2550 PRINT#4,FE$(DS+VAL(MID$(PZ$(I),Z+1,2)));
  256. 2560 Z=Z+2:GOTO2600
  257. 2570 IFE$="]"ANDX=1THENX=0:E$=CHR$(15):GOTO2590
  258. 2580 IFE$="]"THENE$=CHR$(14):X=1
  259. 2590 PRINT#4,E$;
  260. 2600 NEXTZ
  261. 2610 PRINT#4
  262. 2620 NEXTI
  263. 2630 IFE=1THENNEXTDS
  264. 2640 IFFL<>3THENPRINT#4
  265. 2650 CLOSE4:RETURN
  266. 2660 REM  H A R D C O P Y
  267. 2670 Y=-1:GOSUB2860:OPEN4,4,7:IFL=2THENRETURN
  268. 2680 PRINT"";:OPEN5,3:L=1024:POKE1,53
  269. 2690 FORI=LTOL+39:POKE1024,PEEK(I):PRINT"";:GET#5,E$:PRINT#4,E$;:NEXT:PRINT#4:L=I
  270. 2700 IFI<>2024GOTO2690
  271. 2710 X=0:CLOSE4:CLOSE5:POKE1,55:RETURN
  272. 2720 REM  D R U C K 2
  273. 2730 OPEN4,4,7:IFE<>2GOTO2750
  274. 2740 FORDS=0TOD-FSTEPF
  275. 2750 FORI=1TOF:PRINT#4,FE$(I+DS):NEXTI:IFE=2THENNEXTDS
  276. 2760 IFFL<>4THENPRINT#4
  277. 2770 CLOSE4:RETURN
  278. 2780 REM  D R U C K E R - M E N U E
  279. 2790 IFD=0THENRETURN
  280. 2800 GOSUB2980:PRINT"-1- [199]ESAMTE [196]ATENBANK MIT DEFINIERTEN       [198]ELDERN DRUCKEN
  281. 2810 [153]"-2- CHR$ESAMTE STR$ATENBANK DRUCKEN":Y[178]0
  282. 2820 [153]"-3- STR$ATENSAETZE AUS (null)ORTIERROUTINE MIT      DEFINIERTEN ASCELDERN DRUCKEN
  283. 2830 PRINT"-4- [199]ANZE [196]ATENSAETZE AUS [211]ORTIERROUTINE    DRUCKEN
  284. 2840 [153]"-^- (null)URUECK"
  285. 2850 [141]3010:[139]E$[178]"^"[167][142]
  286. 2860 L[178]1
  287. 2870 [151]768,61:[159]4,4,7:[152]4:[139]ST[178][171]128[167][141]840:L[178]2:[137]2870
  288. 2880 [160]4:[151]768,139:[139]Y[178][171]1[167][142]
  289. 2890 [139]L[178]2[137]2790
  290. 2900 [139]E[179]1[176]E[177]4[137]2850
  291. 2910 [139]E[177]2[167]FL[178]E:[142]
  292. 2920 [139]FL[178]2[137]2850
  293. 2930 [145]E[137]2470,2730
  294. 2940 [143]
  295. 2950 E[178]3
  296. 2960 [153]"LOAD";
  297. 2970 [129]I[178]1[164]E:[153]"STOPTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANCONT";:[130]:[142]
  298. 2980 [141]2950:[153]""[166]10)" (null)ROSTR$AT ":[153]"":[141]2970
  299. 2990 [153],"ONON PEEKY (null)OLFGANG LEFT$AHN ":[142]
  300. 3000 [143]  G E T  A L L G .
  301. 3010 [161]E$:E[178][197](E$):[139]E$[178]""[137]3010
  302. 3020 [142]
  303. 3030 [143]  D A T E I  Z U E N D E
  304. 3040 FL[178]9:E[178]1:[153]"LOAD":[141]2970:[153][166]10)"STR$ATEI ZUENDE":[141]2970:[137]1200
  305. 3050 [143]  S A V E  M A S K E
  306. 3060 [158]827(E$)E$:E[178][194](141)[172]256[170][194](140):[151]139,[194](E):[151]140,[194](E[170]1)
  307. 3070 [151]141,[194](E[170]2):[151]176,0:[151]177,204:[141]810:[158]995:[141]3710:[142]
  308. 3080 [143]  A D D I T I O N
  309. 3090 [139]D[178]0[176]D[179]F[172]2[167][142]
  310. 3100 [141]2950:[153]""[166]11)" ATNDDITIONSROUTINE "
  311. 3110 [133]"(null)ELCHE ASCELDER SOLLEN ADDIERT WERDEN";E$:E[178][197](E$):Y[178]0
  312. 3120 [139]E[179]1[176]E[177]F[137]3110
  313. 3130 [133]"STR$ATENSATZ FUER VALRGEBNIS ANLEGEN";E$
  314. 3140 [129]I[178]E[164]D[169]F:Y[178]Y[170][197](FE$(I)):[130]I:Y[178][181](Y[172]100[170].5)[173]100
  315. 3150 [139]E$[179][177]"J"[137]3180
  316. 3160 [129]I[178]1[164]F:FE$(I[170]D)[178][199](250):[139]I[178]E[167]FE$(I[170]D)[178]"CMD"[170][196](Y)
  317. 3170 [130]I:DS[178]D:D[178]D[170]I[171]1:UD[178]1:[137]1130
  318. 3180 [153]"CHR$ESAMTSUMME ASCELDER-(null)R."E"= "Y:[153]""T$:[141]3010:[142]
  319. 3190 [143]  D I R E C T O R Y
  320. 3200 [141]810:Y[178]0
  321. 3210 [141]2950:[153]" STR$IRECTORY "
  322. 3220 [139]Y[178]1[167][142]
  323. 3230 [159]3,8,0,"$":[161]#3,E$,E$
  324. 3240 [153]:[161]#3,E$,E$,S$,E$
  325. 3250 E[178][198](S$[170][199](0))[170][198](E$[170][199](0))[172]256
  326. 3260 [153][202]([196](E)[170]"    ",2,4);
  327. 3270 [161]E$:[139]E$[179][177]""[167][160]3:[142]
  328. 3280 [161]#3,E$:[139]ST[137]3360
  329. 3290 [139]E$[179][177][199](34)[137]3280
  330. 3300 [161]#3,E$:[139]E$[179][177][199](34)[167][153]E$;:[137]3300
  331. 3310 [161]#3,E$:[139]E$[178]" "[137]3310
  332. 3320 [153][163]21);
  333. 3330 [153]E$;:[161]#3,E$:[139]E$[179][177]""[137]3330
  334. 3340 [139][194](214)[177]20[167][153]:[153]""T$;:[141]3010:Y[178]1:[141]3210
  335. 3350 [137]3240
  336. 3360 [153]"PEEKLOECKE FREI"
  337. 3370 [160]3
  338. 3380 [141]3710
  339. 3390 [153]:[153]T$:[141]3010
  340. 3400 [142]
  341. 3410 [143]  S C R A T C H
  342. 3420 E[178]4:[141]2960:[153]""[166]3)" ASCILE LOESCHEN "
  343. 3430 [153][166]21)" ^D = STR$IRECTORY "
  344. 3440 [133]"ASCILENAME";E$
  345. 3450 [139]E$[178]"^D"[167][141]3200:[137]3420
  346. 3460 [139]E$[178]"^"[167][142]
  347. 3470 [141]810:[159]1,8,15,"S:"[170]E$[170]",M/"[170]E$:[141]3730
  348. 3480 [137]3420
  349. 3490 [143]  V A L I D A T E
  350. 3500 [141]2950:[153]""[166]13)" (null)ALIDATE "
  351. 3510 [153]W$
  352. 3520 [141]810:[159]1,8,15,"V":[141]3730
  353. 3530 [142]
  354. 3540 [143]  D I S K  F O R M A T .
  355. 3550 [141]2950:[153]""[166]10)" STR$ISK FORMATIEREN "
  356. 3560 [133]"STR$ISK-(null)AME";E$:[139]E$[178]"^"[167][142]
  357. 3570 [133]"STR$ISK-(null)UMMER";Y$:[139]Y$[178]"^"[167][142]
  358. 3580 [153]""W$:[141]810:[159]1,8,15,"N:"[170]E$[170]","[170]Y$:[141]3730
  359. 3590 [142]
  360. 3600 [143]  R E N A M E
  361. 3610 [141]2950:[153]""[166]9)" ASCILE UMBENENNEN "
  362. 3620 [133]"ATNLTER (null)AME";Y$
  363. 3630 [139]Y$[178]"^"[167][142]
  364. 3640 [133]"(null)EUER (null)AME";E$
  365. 3650 [139]E$[178]"^"[167][142]
  366. 3660 [141]810:[159]1,8,15,"R:"[170]E$[170]"="[170]Y$
  367. 3670 [152]1,"R:M/"[170]E$[170]"=M/"[170]Y$:[141]3730
  368. 3680 [139]F1[179][177]0[137]3610
  369. 3690 [137]3200
  370. 3700 [143]  D I S K - E R R O R
  371. 3710 [160]1
  372. 3720 [159]1,8,15:[151]1,55
  373. 3730 [132]1,F1,S$,F2,F3
  374. 3740 [160]1
  375. 3750 [139]F1[178]0[167][142]
  376. 3760 [153]:E[178]1:[141]2970
  377. 3770 [153][166]6)F1;S$;F2;F3
  378. 3780 [153]T$
  379. 3790 [141]2970:[141]3010
  380. 3800 [142]
  381. 3810 [143]  M A P R O ' S
  382. 3820 [129]Z[178]820[164]1020:[135]X:[151]Z,X:S[178]S[170]X:[130]
  383. 3830 [131]133,095,134,096,076,191,163,032,158,173,165,100,133,140,165,101,133
  384. 3840 [131]141,032,158,173,160,000,177,140,133,139,177,100,145,140,165,139,145
  385. 3850 [131]100,200,192,003,208,239,096,169,000,133,139,169,004,133,140,160,000
  386. 3860 [131]177,139,056,233,128,048,002,145,139,192,255,200,208,242,165,140,201
  387. 3870 [131]007,240,103,230,140,208,230,169,000,133,139,133,172,169,004,133,140
  388. 3880 [131]169,204,133,173,160,000,177,139,145,172,192,255,200,208,247,165,140
  389. 3890 [131]201,007,240,068,230,140,230,173,208,233,169,000,133,139,133,172,169
  390. 3900 [131]204,133,140,169,004,133,173,160,000,177,139,145,172,192,255,200,208
  391. 3910 [131]247,165,140,201,207,240,031,230,140,230,173,208,233,160,000,162,008
  392. 3920 [131]032,186,255,166,140,164,141,165,139,032,189,255,162,000,160,204,169
  393. 3930 [131]000,032,213,255,096,160,001,162,008,032,186,255,166,140,164,141,165
  394. 3940 [131]139,032,189,255,162,255,160,207,169,176,032,216,255,096
  395. 3950 [139]S[179][177]29538[167][153]"FEHLER IN DATAS!!":[144]
  396. 3960 [142]
  397. 3970 [143]  I N I T I A L I S I E R E N
  398. 3980 T$[178]"         (null)ASTE DRUECKEN!":[134]FE$(1500),PZ$(60),A%(40,2):[151]650,128:E[178]1
  399. 3990 A$[178]"                                        ":A$[178]A$[170]A$:Y[178]0:L[178]0:UD[178]3
  400. 4000 W$[178]"PEEKITTE WARTEN...":[142]
  401.