home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8608a.d64 / digi-controller (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  14KB  |  489 lines
  1. 15 PRINTCHR$(147);:DIMI$(65),Q$(65),M$(65),O$(513)
  2. 80 O1$=" ":O2$="  ":O3$="   ":O4$="                     "
  3. 90 ZL$="":PO=3
  4. 100 PRINTCHR$(14)"[151]":POKE53280,5 :POKE53281,5
  5. 120 KO$="[196]IGIT-[195]ONTROLLER V. [197]. [205]ERK (07309/6501)[146]"
  6. 130 D$="DIGIT1"
  7. 140 BR$="                                        [146]"
  8. 150 BL$="                                        "
  9. 160 KZ$=".[218][206]..[207]PR.[207]P..[206]R...[203]OMMENTAR............."
  10. 180 LI$="[195][210][211][210][146]=[218][206]+/-   [197][146]INGABE  [198]1[146]=[204]IST  [198]7[146]=[205]ENUE [146]"
  11. 200 O$="[207]PERATION[146]  [207][210] [193][206][196] [216][207][210] [202][205][208] [202][201] = ;  [210]ETURN[146]"
  12. 210 OP$="[207]PERAND[146] [201]([206]) [209]([206]) [205]([206])  ([206]=[206]ICHT) [210]ETURN[146]"
  13. 220 OE$="[207]PERANDEN- [206]R.[146] [202](512)      *(64)  [210]ETURN[146]"
  14. 230 KM$="[203]OMMENTAR[146] 0-21 [218]EICHEN            [210]ETURN[146]"
  15. 240 DA$=" [146]  [146]  [146]  "
  16. 242 DA$=DA$+"[146]  [146] [146]"
  17. 250 LA$="      [193]NWEISUNGSLISTE AUSDRUCKEN !      [146]"
  18. 260 Z1$="[207]PR/[194]IT : 666665555555555444444444433333"
  19. 270 Z2$="33333222222222211111111110000000000"
  20. 280 Z3$="          432109876543210987654321098765"
  21. 290 Z4$="43210987654321098765432109876543210"
  22. 1000 REM ******************************
  23. 1010 PRINTCHR$(147);KO$:PRINT:PRINT:PRINT
  24. 1020 PRINT" [205] [197] [206] [213] [197] "
  25. 1025 PRINT"[184][184][184][184][184][184][184][184][184][184][184]":PRINT:PRINT
  26. 1040 PRINT" [193] = [193]NWEISUNGS- [208]ROGRAMME LOESCHEN":PRINT
  27. 1050 PRINT" [194] = [193]NWEISUNGSLISTE ([193][215][204]) V. [196]ISK LESEN"
  28. 1060 PRINT" [195] = [193]NWEISUNGSLISTE ([193][215][204]) ERSTELLEN":PRINT
  29. 1070 PRINT" [196] = [193]NWEISUNGSLISTE ([193][215][204]) AUSDRUCKEN":PRINT
  30. 1080 PRINT" [197] = [193]USWERTUNG V. [193][215][204] AUSDRUCKEN":PRINT
  31. 1090 PRINT" [198] = [197]NDE"
  32. 1100 GETE$:IFE$=""THEN1100
  33. 1105 IFE$="A"THEN21000
  34. 1110 IFE$="B"THENF2=0:GOTO1200
  35. 1120 IFE$="C"THEN1500
  36. 1130 IFE$="D"THEN4000
  37. 1140 IFE$="E"THEN5000
  38. 1150 IFE$="F"THENPRINTCHR$(142)CHR$(147)"[154]";:POKE53280,14:POKE53281,6:END
  39. 1160 GOTO1100
  40. 1200 REM ******************************
  41. 1210 PRINTCHR$(147);KO$;BL$
  42. 1225 PRINT:PRINT:PRINT
  43. 1230 PRINT" [194]ITTE [196]ATENDISKETTE EINLEGEN UND        [210]ETURN[146] DRUECKEN !":PRINT:PRINT
  44. 1235 PRINT" [198]7    [146] = ZURUECK ZUM [205]ENUE":PRINT
  45. 1240 GETEE$:IFEE$=""THEN1240
  46. 1250 IFEE$=CHR$(13)THENGOSUB53000:GOTO1300
  47. 1260 IFEE$=CHR$(136)THEN1000
  48. 1270 GOTO1240
  49. 1300 IFF2=0THENOPEN1,8,8,F$+",S,R":CLOSE1:GOSUB50000:REM FLOPPY TEST
  50. 1301 IFF2=1THENOPEN1,8,8,"@:"+F$+",S,W":CLOSE1:GOSUB50000:REM FLOPPY TEST
  51. 1302 IFF1=1THEN1200
  52. 1303 IFF2=0THENPRINT:PRINTCHR$(147)" [204]ISTE WIRD GELADEN !                   [146]"
  53. 1304 IFF2=1THENPRINT:PRINTCHR$(147)" [204]ISTE WIRD GESPEICHERT !               [146]"
  54. 1305 IFF2=0THENOPEN1,8,8,"@:"+F$+",S,R"
  55. 1306 IFF2=1THENOPEN1,8,8,"@:"+F$+",S,W"
  56. 1307 IFF2=1THEN1330
  57. 1309 REM ******************************
  58. 1310 FORJ=0TO512:O$(J)="":NEXT
  59. 1312 FORJ=0TO512
  60. 1315 E$="":INPUT#1,E$:IFE$="[197]NDE"ORST=64THENCLOSE1:GOTO1360
  61. 1320 K=VAL(MID$(E$,2,3))
  62. 1322 O$(K)=E$:PRINTO$(K);
  63. 1325 NEXT:CLOSE1:GOTO1360
  64. 1329 REM ******************************
  65. 1330 FORJ=0TO512
  66. 1335 IFO$(J)=""THEN1355
  67. 1350 PRINT#1,O$(J):PRINTO$(J);
  68. 1355 NEXT:PRINT#1,"[197]NDE":CLOSE1
  69. 1360 F2=0:GOTO1000
  70. 1500 REM *** LISTE ERSTELLEN **********
  71. 1550 PRINTCHR$(147);
  72. 1560 PRINTCHR$(19);KO$;BL$;BR$;LI$;BR$;BL$;KZ$;BR$;DA$;BR$;
  73. 1570 ZL$="  0":PO=0:GOTO1700
  74. 1600 E$="":GETE$:IFE$=""THEN1600
  75. 1610 IFE$=CHR$(136)THENF2=1:GOTO1200
  76. 1620 IFE$=CHR$(133)THEN1800
  77. 1630 IFE$=CHR$(69)ANDRIGHT$(ZL$,1)<>CHR$(32)THEN2500
  78. 1635 IFE$>CHR$(47)ANDE$<CHR$(58)THEN1670
  79. 1638 IFE$=CHR$(20)THEN1680
  80. 1640 IFE$=CHR$(17)THEN2000
  81. 1650 IFE$=CHR$(145)THEN2050
  82. 1660 GOTO1600
  83. 1670 ZL$=RIGHT$(ZL$,2)+E$:ZL$=RIGHT$(ZL$,3):PO=PO+1:
  84. 1672 IFVAL(ZL$)>500THEN1600
  85. 1674 GOTO1700
  86. 1675 IFPO>3THENPO=3:GOTO1700
  87. 1680 ZL$=CHR$(32)+LEFT$(ZL$,2):ZL$=LEFT$(ZL$,3):PO=PO-1
  88. 1690 IFPO<1THENPO=1:GOTO1700
  89. 1700 PRINTCHR$(19)"   ";:PRINTCHR$(19)""ZL$;
  90. 1702 IFRIGHT$(ZL$,1)<>CHR$(32)THEN1710
  91. 1704 GOTO 1600
  92. 1710 ZN=VAL(ZL$)
  93. 1720 IFO$(ZN)=""THENO$(ZN)=BL$
  94. 1730 O1$=MID$(O$(ZN),7,1):PRINT""O1$;
  95. 1740 O2$=MID$(O$(ZN),10,2):PRINT""O2$;
  96. 1750 O3$=MID$(O$(ZN),14,3):PRINT""O3$;
  97. 1760 O4$=MID$(O$(ZN),19,21):PRINT""O4$;
  98. 1770 IFO$(ZN)=BL$THENO$(ZN)=""
  99. 1790 GOTO1600
  100. 1800 REM *** LIST *********************
  101. 1810 Z=0:ZN=VAL(ZL$)
  102. 1822 PRINT"";:FORJ=1TO14:PRINTBL$;:NEXT
  103. 1824 PRINT"";
  104. 1830 FORJ=ZNTO0STEP-1
  105. 1840 IFO$(J)=""THEN1860
  106. 1845 IFZ>4THEN1900
  107. 1850 PRINTO$(J)"[145][145]";:Z=Z+1
  108. 1860 NEXT
  109. 1900 Z=0:PRINT"";
  110. 1920 IFZN=500THEN1600
  111. 1930 ZN=ZN+1:FORJ=ZNTO500
  112. 1940 IFO$(J)=""THEN1960
  113. 1945 IFZ>4THEN1600
  114. 1950 PRINTO$(J);:Z=Z+1
  115. 1960 NEXT
  116. 1970 GOTO1600
  117. 2000 REM *** ZEILE+1 ******************
  118. 2010 ZN=VAL(ZL$):ZN=ZN+1:IFZN>500THENZN=500
  119. 2020 ZL$=LEFT$(BL$,4)+STR$(ZN):ZL$=RIGHT$(ZL$,3)
  120. 2030 GOTO1700
  121. 2050 REM *** ZEILE-1 ******************
  122. 2060 ZN=VAL(ZL$):ZN=ZN-1:IFZN<0THENZN=0
  123. 2070 ZL$=LEFT$(BL$,4)+STR$(ZN):ZL$=RIGHT$(ZL$,3)
  124. 2080 GOTO1700
  125. 2500 REM *** EINGABE OPERATION *******
  126. 2510 PRINT"";O$;:GOTO2580
  127. 2520 E$="":GETE$:IFE$=""THEN2520
  128. 2530 IFE$=CHR$(13)ANDO1$=""THENPRINT""LI$;:O$(VAL(ZL$))="":GOTO2000
  129. 2531 IFE$=CHR$(13)ANDO1$=";"THENPRINT""LI$;:O2$="  ":O3$="   ":GOTO3100
  130. 2535 IFE$=CHR$(13)ANDO1$<>""THEN2600
  131. 2540 IFE$=CHR$(79)ORE$=CHR$(65)ORE$=CHR$(74)ORE$=CHR$(61)ORE$=CHR$(20)THEN2560
  132. 2545 IFE$=CHR$(88)ORE$=CHR$(59)THEN2560
  133. 2550 GOTO2520
  134. 2560 IFE$=CHR$(20)THENO1$="":GOTO2580
  135. 2565 IFE$=CHR$(61)THENO1$=E$:GOTO2580
  136. 2568 IFE$=CHR$(59)THENO1$=E$:GOTO2580
  137. 2570 FA=ASC(E$)+128:E$=CHR$(FA):O1$=E$:
  138. 2580 PRINT" [157]";O1$;
  139. 2590 GOTO2520
  140. 2600 REM *** OPERAND ****************
  141. 2610 PRINT"";OP$;:GOTO2680
  142. 2620 E$="":GETE$:IFE$=""THEN2620
  143. 2625 IFE$=CHR$(73)ANDO1$=CHR$(61)THEN2620
  144. 2627 IFE$=CHR$(13)ANDO1$=CHR$(74+128)THEN2740
  145. 2630 IFE$=CHR$(13)ANDO2$=""THEN2500
  146. 2635 IFE$=CHR$(13)ANDO2$<>""THEN2800
  147. 2640 IFO1$<>CHR$(74+128)THENIFE$=CHR$(73)ORE$=CHR$(81)ORE$=CHR$(77)THEN2700
  148. 2642 IFE$=CHR$(20)THEN2660
  149. 2645 IFE$=CHR$(78)ANDLEN(O2$)=1THEN2720
  150. 2647 IFO1$=CHR$(74+128)ANDE$=CHR$(73)THEN2700
  151. 2650 GOTO2620
  152. 2660 IFLEN(O2$)=2THENO2$=LEFT$(O2$,1):GOTO2680
  153. 2670 IFLEN(O2$)=1THENO2$=""
  154. 2680 PRINT"  [157][157]";O2$;
  155. 2690 GOTO2620
  156. 2700 FA=ASC(E$)+128:E$=CHR$(FA):O2$=E$:
  157. 2710 GOTO2680
  158. 2720 FA=ASC(E$)+128:E$=CHR$(FA):O2$=O2$+E$
  159. 2730 GOTO2680
  160. 2740 PRINT"  [157][157]";O2$;
  161. 2750 GOTO2800
  162. 2800 REM *** OPERANDEN- NUMMER ********
  163. 2805 IFLEN(O2$)=1THENO2$=O2$+LEFT$(BL$,1)
  164. 2807 IFO2$=""THENO2$="  "
  165. 2810 PRINT"";OE$;:P1=3:GOTO2970
  166. 2850 E$="":GETE$:IFE$=""THEN2850
  167. 2860 IFE$=CHR$(13)ANDRIGHT$(O3$,1)=CHR$(32)THEN2600
  168. 2870 IFE$=CHR$(13)ANDRIGHT$(O3$,1)<>CHR$(32)THEN3100
  169. 2880 IFE$>CHR$(47)ANDE$<CHR$(58)THEN2900
  170. 2885 IFE$=CHR$(20)THEN2920
  171. 2890 GOTO2850
  172. 2900 O3$=RIGHT$(O3$,2)+E$:O3$=RIGHT$(O3$,3):P1=P1+1:
  173. 2910 GOTO2954
  174. 2920 IFP1>3THENP1=3:GOTO2954
  175. 2930 O3$=CHR$(32)+LEFT$(O3$,2):O3$=LEFT$(O3$,3):P1=P1-1
  176. 2940 IFP1<1THENP1=1:
  177. 2954 IFVAL(O3$)>512ANDLEFT$(O1$,1)=CHR$(74+128)THENO3$="   ":P1=3:GOTO2970
  178. 2960 IFVAL(O3$)>64ANDLEFT$(O1$,1)<>CHR$(74+128)THENO3$="   ":P1=3:GOTO2970
  179. 2970 PRINTCHR$(19)"   [157][157][157]";O3$;
  180. 2980 GOTO2850
  181. 3100 REM *** KOMMENTAR ****************
  182. 3110 PRINT""KM$
  183. 3120 P2=0:GOTO3220
  184. 3150 E$="":GETE$:IFE$=""THEN3150
  185. 3160 IFE$=CHR$(13)THENPRINT""LI$;:GOTO3300
  186. 3165 IFE$=CHR$(58)ORE$=CHR$(44)THEN3150
  187. 3170 IFE$=CHR$(20)THENP2=P2-1:GOTO3250
  188. 3175 IFE$>CHR$(31)ANDE$<CHR$(91)THENP2=P2+1:GOTO3200
  189. 3180 IFE$>CHR$(31+128)ANDE$<CHR$(91+128)THENP2=P2+1:GOTO3200
  190. 3190 GOTO3150
  191. 3200 IFP2>21THENP2=21
  192. 3210 O4$=LEFT$(O4$,P2-1)+E$+LEFT$(BL$,21-P2)
  193. 3220 PRINT""O4$;
  194. 3230 GOTO3150
  195. 3250 IFP2<0THENP2=0
  196. 3260 O4$=LEFT$(O4$,P2)+LEFT$(BL$,21-P2):
  197. 3270 GOTO3220
  198. 3300 REM *** EINGABESTRING GESAMT *****
  199. 3302 IFRIGHT$(ZL$,1)<>CHR$(32)THEN3320
  200. 3310 GOTO1700
  201. 3320 ZN=VAL(ZL$)
  202. 3330 O$(ZN)=CHR$(62)+ZL$+"  "+O1$+"  "+O2$+"  "+O3$+"  "+O4$+" "
  203. 3340 GOTO2000
  204. 4000 REM *** LISTE AUSDRUCKEN *********
  205. 4010 PRINTCHR$(147);KO$;BL$;LA$
  206. 4020 PRINT" [196]RUECKE [194][146]ILDSCHIRM ODER [196][146]RUCKER    ":PRINT:PRINT
  207. 4030 E$="":GETE$:IFE$=""THEN4030
  208. 4040 IFE$=CHR$(66)THENF3=0:GOTO4100
  209. 4050 IFE$=CHR$(68)THENF3=1:GOTO4100
  210. 4055 IFE$=CHR$(136)THEN1000
  211. 4060 GOTO4030
  212. 4100 IFF3=1THENPRINT"       [194]ITTE [196]RUCKER EINSCHALTEN !!!    [146]";
  213. 4110 IFF3=1THENPRINTBL$;
  214. 4130 INPUT"[214]ON [218]EILE :     0[157][157][157]";O1$
  215. 4140 INPUT"BIS [218]EILE :     512[157][157][157][157][157]";O2$
  216. 4142 PRINT
  217. 4150 P1=VAL(O1$):P2=VAL(O2$):IFP1>P2THEN4000
  218. 4160 IFP1<0ORP1>512ORP2<0ORP2>512THEN4000
  219. 4164 INPUT"[196]ATUM :    [212]G.[205]O.[202]A[157][157][157][157][157][157][157][157][157][157]";EE$
  220. 4170 PRINT:PRINT:PRINT"      [198]1= [211]TART      [198]7= [205]ENUE          [146]":PRINT:PRINT
  221. 4200 E$="":GETE$:IFE$=""THEN4200
  222. 4210 IFE$=CHR$(136)THEN1000
  223. 4220 IFE$<>CHR$(133)THEN4200
  224. 4225 PRINTCHR$(147);
  225. 4230 IFF3=0THENCLOSE1:OPEN1,3,8
  226. 4240 IFF3=1THENCLOSE1:OPEN1,4,7
  227. 4250 Z=0:PRINT#1,KO$;BR$
  228. 4260 IFF3=1THENPRINT#1,"[196]ATEI- [206]AME : ";F$:PRINT#1,"[196]ATUM       : ";EE$:PRINT#1
  229. 4300 FORJ=P1TOP2
  230. 4310 IFF3=0ANDZ>=20THENGOSUB51000
  231. 4320 GETE$
  232. 4330 IFE$=CHR$(136)THENCLOSE1:GOTO1000
  233. 4340 IFO$(J)=""THEN4360
  234. 4350 Z=Z+1:PRINT#1,O$(J);:IFF3=1THENPRINT#1
  235. 4360 NEXT
  236. 4370 IFF3=0THENGOSUB51000
  237. 4380 PRINT#1:PRINT#1:PRINT#1
  238. 4390 CLOSE1:GOTO1000
  239. 5000 REM *** AUSWERTUNG ***************
  240. 5010 PRINTCHR$(147)KO$;BL$:PRINT:PRINT
  241. 5020 PRINT" [194]ITTE WAEHLEN [211]IE :":PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":PRINT
  242. 5025 PRINT" [212][146]RACE                 OHNE [196]RUCKER   ":PRINT
  243. 5030 PRINT" [197][146]INZELAUSWERTUNG = [201](0-64) MANUELL":PRINT
  244. 5040 PRINT" [199][146]ESAMTAUSWERTUNG = [201](0-7)  AUTOMATISCH":PRINT:PRINT:PRINT:PRINT
  245. 5050 E$="":GETE$:IFE$=""THEN5050
  246. 5055 IFE$=CHR$(84)THEN6500
  247. 5060 IFE$=CHR$(71)THEN6000
  248. 5070 IFE$=CHR$(69)THEN7000
  249. 5080 GOTO5050
  250. 6000 REM *** GESAMTAUSWERTUNG *********
  251. 6002 INPUT" [196]ATUM :    [212]G.[205]O.[202]A[157][157][157][157][157][157][157][157][157][157]";EE$:PRINT:PRINT
  252. 6005 PRINT"#####  [194]ITTE [196]RUCKER EINSCHALTEN  ######[146]";
  253. 6010 PRINT"#####  [198]1= [211]TART       [198]7= [205]ENUE  ######[146]":PRINT
  254. 6020 E$="":GETE$:IFE$=""THEN6020
  255. 6030 IFE$=CHR$(136)THEN1000
  256. 6040 IFE$<>CHR$(133)THEN6020
  257. 6090 M=0:MA=-1
  258. 6100 OPEN1,4,7
  259. 6110 PRINT#1,KO$;BR$;"[196]ATEI- [206]AME         : ";F$
  260. 6115 PRINT#1,"[199]ESAMT - [193]USWERTUNG : ";EE$:PRINT#1
  261. 6120 FORE=0TO512
  262. 6125 P1=VAL(MID$(O$(E),14,3)):IFP1>7THEN6128
  263. 6127 IFMID$(O$(E),10,1)="[201]"ANDP1>MTHENM=P1
  264. 6128 IFO$(E)<>""THENMA=E
  265. 6130 NEXT
  266. 6131 IFMA<0THENPRINT#1,"[203]EIN [208]ROGRAMM VORHANDEN !":PRINT#1:CLOSE1:GOTO1000
  267. 6132 C=0:REM ******************************
  268. 6135 IFC>(2^(M+1))-1THEN6340
  269. 6140 FORL=0TO64:I$(L)=" ":M$(L)=" ":Q$(L)=" ":NEXT
  270. 6150 Z=C:FORJ=MTO0STEP-1
  271. 6160 IFZ<2^JTHENI$(J)="0":GOTO6180
  272. 6170 Z=Z-2^J:I$(J)="1"
  273. 6180 NEXT
  274. 6200 GOSUB9000
  275. 6240 K$=RIGHT$(STR$(C),3)
  276. 6250 PRINT#1,Z1$;Z2$;" ;[196]EZ":PRINT#1,Z3$;Z4$
  277. 6280 Q$="":M$="":I$="":FORD=64TO0STEP-1
  278. 6290 Q$=Q$+Q$(D):M$=M$+M$(D):I$=I$+I$(D)
  279. 6300 NEXT
  280. 6305 PRINT#1,"[201]NPUT   [201] ";I$;" ;";LEFT$(BL$,3-LEN(K$));K$
  281. 6310 PRINT#1,"[205]ARKER  [205] ";M$
  282. 6320 PRINT#1,"[207]UTPUT  [209] ";Q$:PRINT#1
  283. 6325 C=C+1
  284. 6330 IFF3<>2THEN6135
  285. 6340 CLOSE1:GOTO1000
  286. 6500 REM *** TRACE ********************
  287. 6510 E$="+":PRINTCHR$(147)"   ---   [195]OMPILAT WIRD ERSTELLT   ---   [146]";
  288. 6515 PRINT"         [198]7 = [208]ROGRAMM - [211]TOP           [146]"
  289. 6520 MA=-1:FORK=0TO512
  290. 6530 IFO$(K)<>""THENMA=K
  291. 6540 IFK<65THENI$(K)=" ":M$(K)=" ":Q$(K)=" "
  292. 6550 NEXT
  293. 6555 IFMA<0THENE$="":GOTO6650
  294. 6590 F3=0:GOSUB9000
  295. 6650 PRINT:PRINT:PRINT"     [198]1= WEITER     [210]ETURN= [193]BBRUCH     [146]"
  296. 6660 EE$="":GETEE$:IFEE$=""THEN6660
  297. 6670 IFEE$=CHR$(13)THEN1000
  298. 6690 IFEE$=CHR$(133)THEN6590
  299. 6700 GOTO6660
  300. 7000 REM *** EINZELAUSWERTUNG *********
  301. 7002 INPUT" [196]ATUM :    [212]G.[205]O.[202]A[157][157][157][157][157][157][157][157][157][157]";EE$:PRINT:PRINT
  302. 7005 PRINT"#####  [194]ITTE [196]RUCKER EINSCHALTEN  ######[146]";
  303. 7010 PRINT"#####  [198]1= [211]TART       [198]7= [205]ENUE  ######[146]":PRINT
  304. 7020 E$="":GETE$:IFE$=""THEN7020
  305. 7030 IFE$=CHR$(136)THEN1000
  306. 7040 IFE$<>CHR$(133)THEN7020
  307. 7090 MA=-1
  308. 7100 PRINTCHR$(147)KO$;BL$
  309. 7110 PRINTBR$;" [195][210][211][210][146]=[197]ING. [198]1-[198]3[146]=[205]ODUS [210]ETURN[146] [198]7[146]=[205]ENUE [146]";BR$
  310. 7140 K=0:FB$="         ":
  311. 7145 GOTO7700
  312. 7150 B$="":GETB$:IFB$=""THEN7150
  313. 7160 IFB$=CHR$(17)THEN7200
  314. 7170 IFB$=CHR$(145)THEN7250
  315. 7180 IFB$=CHR$(13)THEN7800
  316. 7185 IFB$=CHR$(133)ORB$=CHR$(134)ORB$=CHR$(135)THEN7300
  317. 7190 IFB$=CHR$(136)THEN1000
  318. 7195 GOTO7150
  319. 7200 REM *** INPUT +1 *****************
  320. 7210 K=K+1:IFK>64THENK=0
  321. 7220 I$(K)=C$:GOTO7700
  322. 7250 REM *** INPUT -1 *****************
  323. 7260 K=K-1:IFK<0THENK=64
  324. 7270 I$(K)=C$:GOTO7700
  325. 7300 REM *** MODUS ********************
  326. 7310 IFB$=CHR$(133)THENC$="1":FB$=" GESETZT":GOTO7270
  327. 7320 IFB$=CHR$(134)THENC$="0":FB$=" GESETZT":GOTO7270
  328. 7330 IFB$=CHR$(135)THENC$=" ":FB$="        ":GOTO7270
  329. 7690 REM *** ANZEIGE INPUT ************
  330. 7700 PRINTCHR$(19)"[201]NPUT  ([201])  : [146]    [157][157][157][157]"LEFT$(BL$,3-LEN(STR$(K)));K;
  331. 7710 IFI$(K)=""THENPRINT"  [146] [157]    [146]";FB$:GOTO7150
  332. 7720 PRINT"  [146] [157] ";I$(K);"  [146]";FB$
  333. 7730 GOTO7150
  334. 7800 PRINTCHR$(147)KO$;BL$;"[201]NPUT - [213]EBERSICHT ( [196]UALWERT ) :":PRINT
  335. 7810 FORK=0TO64
  336. 7815 FB$=STR$(K):FB$=MID$(FB$,2,2):FB$=LEFT$(BL$,2-LEN(FB$))+FB$
  337. 7820 PRINT"[201](";FB$;")= "I$(K),
  338. 7830 NEXT
  339. 7840 PRINT:PRINT:PRINT"[198]1=ZURUECK [201]NPUT [210]ETURN=WEITER  [198]7=[205]ENUE[146]";
  340. 7850 B$="":GETB$:IFB$=""THEN7850
  341. 7860 IFB$=CHR$(133)THEN7100
  342. 7870 IFB$=CHR$(136)THEN1000
  343. 7880 IFB$<>CHR$(13)THEN7850
  344. 8270 PRINTCHR$(147)KO$;BL$"[197]INZEL - [193]USWERTUNG : "EE$:PRINT
  345. 8280 OPEN1,4,7
  346. 8285 PRINT#1,KO$;BR$;"[196]ATEI- [206]AME         : ";F$
  347. 8288 PRINT#1,"[197]INZEL - [193]USWERTUNG : ";EE$:PRINT#1
  348. 8290 FORK=0TO512
  349. 8291 IFK<65THENQ$(K)=" ":M$(K)=" "
  350. 8292 IFO$(K)<>""THENMA=K
  351. 8294 NEXT
  352. 8296 IFMA<0THENPRINT#1,"[203]EIN [208]ROGRAMM VORHANDEN !":PRINT#1:CLOSE1:GOTO1000
  353. 8300 GOSUB9000
  354. 8310 PRINT#1,Z1$;Z2$:PRINT#1,Z3$;Z4$
  355. 8320 Q$="":M$="":I$="":FORL=64TO0STEP-1
  356. 8330 IFQ$(L)=""THENQ$(L)=" "
  357. 8340 IFM$(L)=""THENM$(L)=" "
  358. 8350 IFI$(L)=""THENI$(L)=" "
  359. 8370 Q$=Q$+Q$(L):M$=M$+M$(L):I$=I$+I$(L)
  360. 8380 NEXTL
  361. 8390 PRINT#1,"[201]NPUT   [201] ";I$
  362. 8400 PRINT#1,"[205]ARKER  [205] ";M$
  363. 8410 PRINT#1,"[207]UTPUT  [209] ";Q$:PRINT#1
  364. 8420 CLOSE1:GOTO1000
  365. 9000 REM *** COMPILER *****************
  366. 9010 H=0:L=0:F3=0
  367. 9060 REM
  368. 9062 GETB$:IFB$=CHR$(136)THENF3=2:CLOSE1:RETURN
  369. 9070 IFL>MATHENRETURN
  370. 9080 IFO$(L)=""ORMID$(O$(L),7,1)=CHR$(59)THEN20000
  371. 9090 IFE$="+"THENPRINTLEFT$(O$(L),4),
  372. 9100 O1$=MID$(O$(L),7,1):O2$=MID$(O$(L),10,1):O3$=MID$(O$(L),14,3)
  373. 9105 O4$=MID$(O$(L),11,1):REM NEGATION
  374. 9110 :
  375. 9120 IFO1$="[202]"ANDO2$=" "THENL=VAL(O3$):GOTO9060
  376. 9122 :
  377. 9125 IFO1$="[202]"ANDO2$="[201]"AND H=0 THENL=VAL(O3$):GOTO9060
  378. 9126 :
  379. 9130 :
  380. 9140 IFO1$<>"="THEN9200
  381. 9150 IFO4$="[206]"ANDH=0THENH=1:GOTO9170
  382. 9160 IFO4$="[206]"ANDH=1THENH=0
  383. 9170 IFO2$="[209]"THENQ$(VAL(O3$))=RIGHT$(STR$(H),1):H=0:GOTO20000
  384. 9180 IFO2$="[205]"THENM$(VAL(O3$))=RIGHT$(STR$(H),1):H=0:GOTO20000
  385. 9190 :
  386. 9200 IFO1$<>"[207]"THEN9270
  387. 9210 IFO2$="[201]"THENHH=VAL(I$(VAL(O3$)))
  388. 9220 IFO2$="[205]"THENHH=VAL(M$(VAL(O3$)))
  389. 9230 IFO2$="[209]"THENHH=VAL(Q$(VAL(O3$)))
  390. 9240 IFO4$="[206]"THENGOSUB52000
  391. 9250 H=H OR HH:GOTO20000
  392. 9260 :
  393. 9270 IFO1$<>"[193]"THEN9340
  394. 9280 IFO2$="[201]"THENHH=VAL(I$(VAL(O3$)))
  395. 9290 IFO2$="[205]"THENHH=VAL(M$(VAL(O3$)))
  396. 9300 IFO2$="[209]"THENHH=VAL(Q$(VAL(O3$)))
  397. 9310 IFO4$="[206]"THENGOSUB52000
  398. 9320 H=H AND HH:GOTO20000
  399. 9330 :
  400. 9340 IFO1$<>"[216]"THEN9410
  401. 9350 IFO2$="[201]"THENHH=VAL(I$(VAL(O3$)))
  402. 9360 IFO2$="[205]"THENHH=VAL(M$(VAL(O3$)))
  403. 9370 IFO2$="[209]"THENHH=VAL(Q$(VAL(O3$)))
  404. 9380 IFO4$="[206]"THENGOSUB52000
  405. 9390 IFH=HHTHENH=0:GOTO20000
  406. 9400 IFH<>HHTHENH=1
  407. 9410 :
  408. 20000 L=L+1:GOTO9060
  409. 21000 REM *** PROGRAMME LOESCHEN ******
  410. 21010 F2=2:P1=0:F3=-1
  411. 21020 PRINTCHR$(147)"   [193]NWEISUNGS- [208]ROGRAMME LOESCHEN !!!   [146]";BL$
  412. 21030 PRINTBR$"[198]1[146]=LOESCHEN   [198]5[146]=WEITER   [198]7[146]=[205]ENUE      [146]";BR$
  413. 21040 CLOSE2:CLOSE15:GOSUB53010
  414. 21045 GETE$:IFE$=CHR$(136)THEN1000
  415. 21050 IFF3=-1THEN1000
  416. 21060 GOTO21000
  417. 22000 REM *** PROGRAMM LOESCHEN *******
  418. 22010 CLOSE15:OPEN15,8,15,"S:"+F$:CLOSE15:OPEN15,8,15:F3=0:
  419. 22020 IFP1=0THENP1=1:PRINT""F$"";:GOTO22040
  420. 22030 P1=0:PRINT:PRINT"[145]";""F$"[146]"
  421. 22040 FORL=1TO1500:NEXT:F$=""
  422. 22050 GOTO21000
  423. 50000 REM *** FLOPPY- TEST ************
  424. 50010 OPEN15,8,15:INPUT#15,FA,FB$,FC,FD
  425. 50020 IFFA=0THENF1=0:GOTO50100
  426. 50030 PRINTCHR$(147)KO$;BR$
  427. 50040 PRINT" [198]LOPPY - [198]EHLER :":PRINT:PRINTFA;" "FB$" "FC" "FD:PRINT:PRINT
  428. 50050 PRINT" [194]ITTE [198]EHLER BEHEBEN UND                [210]ETURN[146] DRUECKEN !":PRINT:PRINT
  429. 50060 GETEE$:IFEE$=""THEN50060
  430. 50070 IFEE$<>CHR$(13)THEN50060
  431. 50080 F1=1
  432. 50100 CLOSE15:RETURN
  433. 51000 REM *** ABFRAGE WEITER / STOP ***
  434. 51010 Z=0
  435. 51020 PRINT#1,CHR$(19)"";
  436. 51030 PRINT#1," [211]PACE = WEITER        [198]7 = [205]ENUE       ";
  437. 51050 E$="":GETE$:IFE$=""THEN51050
  438. 51060 IFE$=CHR$(136)THENCLOSE1:GOTO1000
  439. 51070 IFE$<>CHR$(32)THEN51050
  440. 51080 PRINT#1,CHR$(19):FORK=1TO24:PRINT#1,BL$;:NEXT
  441. 51090 PRINT#1,CHR$(19);:RETURN
  442. 51990 REM *** NEGATION ****************
  443. 52000 IFHH=0THENHH=1:GOTO52020
  444. 52010 IFHH=1THENHH=0
  445. 52020 RETURN
  446. 52990 REM *** DIRECTORY LESEN *********
  447. 53000 PRINTCHR$(147)"[151]";:CLOSE15:CLOSE2
  448. 53002 IFF2=0THENPRINT"         [196]IRECTORY - [213]EBERSICHT :       [146]";BL$;
  449. 53004 IFF2=0THENPRINTBR$;"[198]1[146]=[204]ADEN      [198]5[146]=WEITER    [198]7[146]=[205]ENUE     [146]";BR$
  450. 53005 IFF2=1THENPRINTBR$;" [146]       [193]NWEISUNGEN SPEICHERN !         [146]";BR$
  451. 53007 IFF2=1THENPRINT"         [196]IRECTORY - [213]EBERSICHT :       [146]";BL$;
  452. 53008 OPEN15,8,15,"I":CLOSE15:GOSUB50000:IFF1=1THEN1200
  453. 53010 OPEN15,8,15,"I":OPEN2,8,2,"#"
  454. 53020 T=18:S=1:P1=0
  455. 53030 PRINT#15,"B-R";2;0;T;S
  456. 53040 PRINT#15,"B-P";2;0
  457. 53050 GET#2,X$:IFX$=""THENX$=CHR$(0)
  458. 53060 T=ASC(X$)
  459. 53070 GET#2,X$:IFX$=""THENX$=CHR$(0)
  460. 53080 S=ASC(X$)
  461. 53090 FORX=0TO7
  462. 53100 PRINT#15,"B-P";2;X*32
  463. 53110 F$=""
  464. 53120 FORY=0TO20
  465. 53130 GET#2,X$:IFX$=""THENX$=CHR$(0)
  466. 53140 IFASC(X$)=160THEN53160
  467. 53150 IFY>4THENF$=F$+X$
  468. 53155 IFY<5THENV(Y)=ASC(X$)
  469. 53160 NEXT
  470. 53161 IFV(2)<>129ORV(2)=0THEN53190
  471. 53162 IFP1=0THENP1=1:PRINTF$;:GOTO53170
  472. 53164 P1=0:PRINT:PRINT"[145]";F$
  473. 53170 IFF2=1THEN53190
  474. 53180 GETE$:IFE$=""THEN53180
  475. 53181 IFF2=2ANDE$=CHR$(133)THENCLOSE2:CLOSE15:GOTO22000
  476. 53182 IFE$=CHR$(133)THENCLOSE15:CLOSE2:RETURN
  477. 53184 IFE$=CHR$(136)THENCLOSE15:CLOSE2:F2=0:GOTO1000
  478. 53186 IFE$=CHR$(135)THEN53190
  479. 53188 GOTO53180
  480. 53190 NEXT
  481. 53200 IFT<>0THEN53030
  482. 53210 CLOSE15:CLOSE2:PRINT:IFF2=2THENRETURN
  483. 53215 IFF2=0THEN53000
  484. 53219 IFP1=1THENPRINT
  485. 53220 PRINT"[151]** [197]NDE VON [196]IRECTORY **  [210]ETURN= [205]ENUE [146]":PRINT:PRINT
  486. 53230 F$="":INPUT"[196]ATEINAME : ";F$
  487. 53240 IFF$=""THEN1000
  488. 53250 RETURN
  489.