home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 August / 64er_Magazin_86-08_1986_Markt__Technik_de_Side_A.d64 / digi-controller (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.