home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 91
/
64er_Magazin_Sonderheft_91_19xx_Markt__Technik_de_Side_A.d64
/
fahrrad
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
15KB
|
560 lines
10 remfahrrad
11 gosub10010
12 print:print" directory-routine wird geladen"
20 gosub9002
100 gosub10010
180 print"[221] r b - s o f t [221]";
190 print"[171]CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC[179]";
200 print"{$7d} {$7d}";
210 print"{$7d} fahrtenbuch = f1 {$7d}";
220 print"{$7d} {$7d}";
230 print"{$7d} fahrradkosten = f3 {$7d}";
240 print"{$7d} {$7d}";
250 print"{$7d} fahrraddaten erfassen = f5 {$7d}";
260 print"{$7d} {$7d}";
270 print"{$7d} fahrraddaten anzeigen = f7 {$7d}";
280 print"{$7d} {$7d}";
290 print"[221] [221]";
300 print"{$7d} {$7d}";
310 print"[221] disketteninhalt = f2 [221]";
320 print"{$7d} {$7d}";
330 print"[221] programmende = f4 [221]";
340 print"{$7d} {$7d}";
350 print"[173]CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC";
360 poke2023,125:poke56295,15
400 getm$:ifm$=""then400
410 ifm$=chr$(133)then1000
420 ifm$=chr$(134)then2001
430 ifm$=chr$(135)then3000
440 ifm$=chr$(136)then4010
450 ifm$=chr$(137)then6010
460 ifm$=chr$(138)then7010
480 goto 400
1000 gosub10010
1090 print"[221] [221]";
1091 print"[221] f a h r t e n b u c h [221]";
1092 print"[221] [221]";
1110 print"[171]CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC[179]";
1120 fori=1to13
1130 print"{$7d} {$7d}";
1140 next
1150 print"[173]CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC";
1160 poke2023,125:poke56295,15
1170 print""
1180 print""
1191 print"weiterer eintrag = f1"
1192 print"fahrtenbuch anzeigen = f3"
1193 print"fahrtenbuch drucken = f5"
1194 print"zurueck zum grundmenue = f7"
1200 getm$:ifm$=""then1200
1201 ifm$=chr$(133)then1300
1202 ifm$=chr$(134)then1400
1203 ifm$=chr$(135)then1500
1204 ifm$=chr$(136)then100
1205 goto 1200
1300 gosub10010
1310 print:print" weiterer eintrag"
1312 print" [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
1314 print" bitte eintippen:"
1316 print
1318 input" datum (10-stellig): ";f$
1320 print
1322 input" strecke (bis 10 st.): ";g$
1324 print
1326 input" entfernung km: ";f
1328 print
1330 input" fahrzeit minuten: ";g
1332 print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
1334 print" richtig j/n"
1336 getm$:ifm$=""then1336
1338 ifm$="j"then1346
1340 ifm$="n"then1300
1342 goto1336
1346 open2,8,2,"fahrtbuch,s,a"
1354 print#2,f$
1356 print#2,g$
1358 print#2,f
1360 print#2,g
1362 close2
1364 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
1366 print" weiterer eintrag j/n"
1368 getm$:ifm$=""then1368
1370 ifm$="j"then1300
1372 ifm$="n"then1000
1374 goto1368
1400 print"[147]"
1402 rem fahrtbuch ansehen
1403 clr:s$="[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
1404 open2,8,2,"fahrtbuch,s,r"
1406 s=s+1:print" fahrtbuch seite: ";s
1408 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
1410 print"datum strecke km min."
1412 prints$
1414 input#2,f$
1416 input#2,g$
1418 input#2,f
1420 input#2,g
1422 iflen(f$)<10thenf$=f$+" ":goto1422
1424 iflen(g$)<10theng$=g$+" ":goto1424
1426 h$=str$(f)
1427 f=(f*10):f=int(f):f=f/10
1428 iff=int(f)thenh$=h$+".0"
1434 iflen(h$)<9thenh$=" "+h$:goto1434
1435 iflen(g$)>10theng$=left$(g$,10)
1436 g=int(g)
1438 i$=str$(g)
1440 iflen(i$)<6theni$=" "+i$:goto1440
1442 printf$;" ";g$;" ";h$;" ";i$
1444 l=l+1:s1=s1+f:s2=s2+g
1446 ifl=15then1452
1448 ifst=64then1470
1450 goto1414
1452 prints$
1454 print" naechste seite = 1, hardcopy = h"
1456 getm$:ifm$=""then1456
1458 ifm$="1"then1464
1460 ifm$="h"thengosub8002
1462 goto1456
1464 l=0:print"[147]"
1466 goto1406
1470 close2:prints$:print"summen ";
1472 s$=str$(s1)
1473 s1=(s1*10):s1=int(s1):s1=(s1/10)
1474 ifs1=int(s1)thens$=s$+".0"
1480 iflen(s$)<9thens$=" "+s$:goto1480
1482 s2=int(s2)
1484 t$=str$(s2)
1486 iflen(t$)<6thent$=" "+t$:goto1486
1488 prints$;" ";t$
1490 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
1492 print" zurueck = f7, hardcopy = h"
1494 getm$:ifm$=""then1494
1495 ifm$="h"thengosub8002
1496 ifm$=chr$(136)then1000
1497 goto1494
1500 print:open1,4
1501 print"[147]":print" fahrtbuch wird gedruckt"
1502 rem fahrtbuch drucken
1504 s$="[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
1506 open2,8,2,"fahrtbuch,s,r"
1508 s=s+1:print#1," fahrtbuch "
1510 print#1,"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
1512 print#1,"datum strecke km min."
1514 print#1,s$
1515 n$=f$:o$=g$:n=f:o=g
1516 input#2,f$
1518 input#2,g$
1520 input#2,f
1522 input#2,g
1523 ifn$=f$ando$=g$andn=fando=gthen1568
1524 iflen(f$)<10thenf$=f$+" ":goto1524
1526 iflen(g$)<10theng$=g$+" ":goto1526
1527 iflen(g$)>10theng$=left$(g$,10)
1528 h$=str$(f)
1529 f=(f*10):f=int(f):f=(f/10)
1530 iff=int(f)thenh$=h$+".0"
1534 iflen(h$)<9thenh$=" "+h$:goto1534
1536 g=int(g)
1538 i$=str$(g)
1540 iflen(i$)<6theni$=" "+i$:goto1540
1542 print#1,f$;" ";g$;" ";h$;" ";i$
1544 s1=s1+f:s2=s2+g
1550 goto1515
1568 close2:print#1,s$:print#1,"summen ";
1570 s$=str$(s1)
1572 s3=s1:ifs3=int(s1)thens$=s$+".0"
1574 s3=(s1*10):ifs3=int(s3)thens$=s$+"0"
1576 iflen(s$)<9thens$=" "+s$:goto1576
1578 s2=int(s2)
1580 t$=str$(s2)
1582 iflen(t$)<6thent$=" "+t$:goto1582
1584 print#1,s$;" ";t$
1586 print#1,"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]":close1
1588 print" druck beendet, zurueck = f7"
1590 getm$:ifm$=""then1590
1594 ifm$=chr$(136)then1000
1596 goto1590
2000 rem kosten
2001 gosub10010
2002 fori=1to3
2004 print"{$7d} {$7d}";
2006 next
2008 print"[171]CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC[179]";
2010 fori=1to13
2012 print"{$7d} {$7d}";
2014 next
2016 print"[173]CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC";
2018 poke2023,125:poke56295,15
2020 print"":print"f a h r r a d k o s t e n"
2022 print"erfassen = f1"
2024 print"auswertungen = f3"
2026 print"zurueck = f7"
2028 getm$:ifm$=""then2028
2030 ifm$=chr$(133)then2040
2032 ifm$=chr$(134)then2201
2034 ifm$=chr$(136)then100
2036 goto2028
2040 gosub10010
2041 fori=1to3
2042 print"[221] [221]";
2043 next
2044 print"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]";
2045 fori=1to13
2046 print"[221] [221]";
2047 next
2048 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
2049 poke2023,125:poke56295,15
2050 print"erfassen fahrradkosten"
2052 print"reparaturen = f1"
2054 print"pflegemittel = f3"
2056 print"sonstige kosten = f5"
2058 print"zurueck = f7"
2060 getm$:ifm$=""then2060
2062 ifm$=chr$(133)thenk$="r":goto2074
2064 ifm$=chr$(134)thenk$="p":goto2074
2066 ifm$=chr$(135)thenk$="s":goto2074
2068 ifm$=chr$(136)then2001
2070 goto2060
2074 gosub10010
2076 print"bitte erfassen"
2078 print"[184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
2080 ifk$="r"thenprint" reparaturen"
2082 ifk$="p"thenprint" pflegemittel"
2084 ifk$="s"thenprint" sonstige kosten"
2086 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
2088 input"datum (10-stellig): ";k1$
2090 print:input"bezeichnung (-15 st): ";k2$
2092 print:input"betrag dm: ";k1
2094 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
2096 print" richtig j/n"
2098 getm$:ifm$="j"then2104
2100 ifm$="n"then2040
2102 goto2098
2104 open2,8,2,"kosten,s,a"
2106 print#2,k$
2108 print#2,k1$
2110 print#2,k2$
2112 print#2,k1
2114 close2
2116 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
2118 print" position ist gespeichert"
2119 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
2120 forn=1to500:nextn:goto2040
2200 rem auswertungen kosten
2201 clr
2210 gosub10010
2220 fori=1to3
2230 print"{$7d} {$7d}";
2240 next
2250 print"[171]CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC[179]";
2260 fori=1to13
2270 print"{$7d} {$7d}";
2280 next
2290 print"[173]CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC";
2300 poke2023,125:poke56295,15
2302 print"auswertungen kosten"
2304 print"reparaturen = f1"
2306 print"pflegemittel = f3"
2308 print"sonstige kosten = f5"
2310 print"gesamtkosten = f2"
2312 print"zurueck = f7"
2314 getm$:ifm$=""then2314
2316 ifm$=chr$(133)thenka$="r":goto2330
2318 ifm$=chr$(134)thenka$="p":goto2330
2320 ifm$=chr$(135)thenka$="s":goto2330
2322 ifm$=chr$(137)thenka$="g":goto2330
2324 ifm$=chr$(136)then2001
2326 goto2314
2330 open2,8,2,"kosten,s,r"
2332 print"[147]"
2334 print" fahrrad: ";
2336 ifka$="r"thenprint"reparaturen"
2338 ifka$="p"thenprint"pflegemittel"
2340 ifka$="s"thenprint"sonstige kosten"
2342 ifka$="g"thenprint"gesamtkosten"
2344 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
2346 ifka$<>"g"thenprint"datum bezeichnung betrag dm"
2348 ifka$="g"thenprint" bezeichnung betrag dm"
2350 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
2352 ifka$="g"then2500
2354 input#2,k$
2356 input#2,k1$
2358 input#2,k2$
2360 input#2,k1
2362 ifst=64andka$<>k$then2400
2364 ifka$<>k$then2354
2366 iflen(k1$)<10thenk1$=k1$+" ":goto2366
2368 iflen(k2$)<15thenk2$=k2$+" ":goto2368
2370 iflen(k2$)>15thenk2$=left$(k2$,15)
2372 k3$=str$(k1)
2374 ifk1=int(k1)thenk3$=k3$+".0"
2376 if(k1*10)=int(k1*10)thenk3$=k3$+"0"
2378 iflen(k3$)<10thenk3$=" "+k3$:goto2378
2380 l=l+1
2382 printk1$;" ";k2$;" ";k3$
2384 k2=k2+k1
2386 ifl=15then2390
2387 ifst=64then2400
2388 goto2354
2390 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
2392 print" naechste seite = 1, hardcopy = h"
2393 getm$:ifm$="1"then2332
2394 ifm$="h"thengosub8002
2395 goto2393
2400 close2
2402 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
2404 k4$=str$(k2)
2406 ifk2=int(k2)thenk4$=k4$+".0"
2408 if(k2*10)=int(k2*10)thenk4$=k4$+"0"
2410 iflen(k4$)<10thenk4$=" "+k4$:goto2410
2412 print" summe der kosten";k4$
2414 print"======================================="
2416 print" zurueck=f7,hardcopy=h"
2418 getm$:ifm$=chr$(136)then2001
2420 ifm$="h"then8002
2422 goto2418
2500 input#2,k$
2502 input#2,k1$
2504 input#2,k2$
2506 input#2,k1
2508 ifk$="r"theng1=g1+k1
2510 ifk$="p"theng2=g2+k1
2512 ifk$="s"theng3=g3+k1
2514 ifst=64then2520
2516 goto2500
2520 close2
2522 g1$=str$(g1)
2524 ifg1=int(g1)theng1$=g1$+".0"
2526 if(g1*10)=int(g1*10)theng1$=g1$+"0"
2532 g2$=str$(g2)
2534 ifg2=int(g2)theng2$=g2$+".0"
2536 if(g2*10)=int(g2*10)theng2$=g2$+"0"
2542 g3$=str$(g3)
2544 ifg3=int(g3)theng3$=g3$+".0"
2546 if(g3*10)=int(g3*10)theng3$=g3$+"0"
2550 open2,8,2,"kaufpreis,s,r"
2552 input#2,g4
2554 close2
2556 g4$=str$(g4)
2558 ifg4=int(g4)theng4$=g4$+".0"
2560 if(g4*10)=int(g4*10)theng4$=g4$+"0"
2562 g5=g1+g2+g3+g4
2564 g5$=str$(g5)
2566 ifg5=int(g5)theng5$=g5$+".0"
2568 if(g5*10)=int(g5*10)theng5$=g5$+"0"
2570 open2,8,2,"fahrtbuch,s,r"
2572 input#2,f1$
2574 input#2,f2$
2576 input#2,f1
2578 input#2,f2
2580 g6=g6+f1
2582 ifst=64then2586
2584 goto2572
2586 close2
2588 g6$=str$(g6)
2590 ifg6=int(g6)theng6$=g6$+".0"
2592 if(g6*10)=int(g6*10)theng6$=g6$+"0"
2593 g7=g5/g6:g7=(g7*100):g7=int(g7):g7=g7/100
2594 g7$=str$(g7)
2596 ifg7=int(g7)theng7$=g7$+".0"
2598 if(g7*10)=int(g7*10)theng7$=g7$+"0"
2600 iflen(g1$)<10theng1$=" "+g1$:goto2600
2601 iflen(g2$)<10theng2$=" "+g2$:goto2601
2602 iflen(g3$)<10theng3$=" "+g3$:goto2602
2603 iflen(g4$)<10theng4$=" "+g4$:goto2603
2604 iflen(g5$)<10theng5$=" "+g5$:goto2604
2605 iflen(g6$)<10theng6$=" "+g6$:goto2605
2606 iflen(g7$)<10theng7$=" "+g7$:goto2606
2610 print" kaufpreis ";g4$
2612 print
2614 print" reparaturen ";g1$
2616 print
2618 print" pflegemittel ";g2$
2620 print
2622 print" sonstige kosten ";g3$
2624 print
2626 print" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
2628 print" summe der kosten ";g5$
2630 print" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
2632 print" gefahrene kilometer ";g6$
2634 print" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
2636 print" kosten je kilometer ";g7$
2638 print" ==============================="
2640 print
2642 print" zurueck = f7, hardcopy = h"
2644 getm$:ifm$=chr$(136)then2001
2646 ifm$="h"thengosub8002
2648 goto2644
3000 gosub10010
3080 print"[221] [221]";
3081 print"[221] [221]";
3082 print"[221] [221]";
3083 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]";
3160 poke56295,15
3170 print""
3180 print"f a h r r a d d a t e n"
3200 print"bitte eintippen:
3210 [153]" usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
3220 [153]
3230 [133]"typ (rad, rennrad ...): ";d1$
3240 [153]
3250 [133]"farbe des rades: ";d2$
3260 [153]
3270 [133]"verkaeufer: ";d3$
3280 [153]
3290 [133]"kaufdatum: ";d4$
3300 [153]
3310 [133]"kaufpreis: ";d5$
3320 [153]
3330 [133]"reifengroesse: ";d6$
3340 [153]
3350 [133]"kettengroesse: ";d7$
3360 [153]"usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
3370 [153]" richtig j/n"
3380 [161]m$:[139]m$[178]""[167]3380
3390 [139]m$[178]"j"[167]3420
3400 [139]m$[178]"n"[167]3000
3410 [137]3380
3420 [159]15,8,15:[152]15,"s:fahrraddaten":[160]15
3430 [159]2,8,2,"fahrraddaten,s,w"
3440 [152]2,d1$
3450 [152]2,d2$
3460 [152]2,d3$
3470 [152]2,d4$
3480 [152]2,d5$
3490 [152]2,d6$
3500 [152]2,d7$
3510 [160]2
3520 [159]15,8,15:[152]15,"s:kaufpreis":[160]15
3530 [159]2,8,2,"kaufpreis,s,w"
3540 d5[178][197](d5$)
3550 [152]2,d5
3560 [160]2
3570 [153]"usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
3571 [159]15,8,15
3572 [152]15,"s:kosten"
3573 [152]15,"s:fahrtbuch"
3574 [160]15
3575 [159]2,8,2,"fahrtbuch,s,w"
3576 [160]2
3577 [159]2,8,2,"kosten,s,w"
3578 [160]2
3580 [153]" daten sind gespeichert, zurueck = f7"
3590 [161]m$:[139]m$[178][199](136)[167]100
3600 [137]3590
4000 [143] fahrraddaten ansehen
4010 [141]10010
4080 [129]i[178]1[164]1
4090 [153]"{$7d} {$7d}";
4100 [130]
4110 [153]"-CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC<";
4120 [129]i[178]1[164]15
4130 [153]"{$7d} {$7d}";
4140 [130]
4150 [153]"/CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC";
4160 [151]2023,125:[151]56295,15
4170 [153]""
4180 [153]" f a h r r a d d a t e n"
4190 [159]2,8,2,"fahrraddaten,s,r"
4200 [132]2,d1$
4210 [132]2,d2$
4220 [132]2,d3$
4230 [132]2,d4$
4240 [132]2,d5$
4250 [132]2,d6$
4260 [132]2,d7$
4270 [160]2
4280 [153]" fahrradtyp: ";d1$
4300 [153]" farbe des rades: ";d2$
4320 [153]" verkaeufer: ";d3$
4340 [153]" kaufdatum: ";d4$
4360 [153]" kaufpreis: ";d5$;" dm"
4380 [153]" reifengroesse: ";d6$
4400 [153]" kettengroesse: ";d7$
4420 [153]"zurueck = f7, hardcopy = h";
4430 [161]m$:[139]m$[178][199](136)[167]100
4431 [139]m$[178]"h"[167][141]8002
4440 [137]4430
6000 [143] directory anzeigen
6010 [153]"load"
6020 [158]50002
6030 [153]" zurueck = f7"
6040 [161]m$:[139]m$[178][199](136)[167]100
6050 [137] 6040
7000 [143] ende
7010 [141]10010
7080 [129]i[178]1[164]3
7090 [153]"{$7d} {$7d}";
7100 [130]
7110 [153]"{$7d} wait wait wait wait wait {$7d}";
7120 [153]"{$7d} wait wait wait wait wait wait {$7d}";
7130 [153]"{$7d} wait wait wait wait wait wait wait {$7d}";
7140 [153]"{$7d} wait wait wait wait wait wait wait {$7d}";
7150 [153]"{$7d} wait wait wait wait wait wait wait {$7d}";
7160 [153]"{$7d} wait wait wait wait wait wait {$7d}";
7170 [153]"{$7d} wait wait wait wait wait {$7d}";
7180 [153]"{$7d} {$7d}";
7190 [153]"-CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC<";
7200 [153]"{$7d}noch offene dateien werden geschlossen{$7d}";
7210 [153]"-lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen<";
7220 [153]"{$7d}c 64 wird in einschaltzustand versetzt{$7d}";
7230 [153]"-CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC<";
7240 [153]"{$7d} programm ist damit beendet {$7d}";
7250 [153]"/CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC";
7260 [151]2023,125:[151]56295,15
7270 [129]n[178]1[164]1500:[130]n
7280 [158]65511
7290 [158]64738
8000 [143] texthardcopy
8002 zs[178][194](53272)
8004 b[178]1024
8006 d$[178]"c"
8008 [139]zs[178]21[167][159]1,4,0
8010 [139]zs[178]23[167][159]1,4,7
8012 [152]1,[199](27);"@"
8014 [152]1,[199](27);[199](108);[199](10);
8016 [129]z[178]0[164]24
8018 [129]s[178]0[164]39
8020 m[178]b[170]z[172]40[170]s
8022 x[178][194](m)
8024 [139]x[177]127[167]x[178]x[171]128
8026 [139]x[177][178]32[175]x[179][178]63[167]8034
8028 [139]x[177][178]64[175]x[179][178]95[167]x[178]x[170]32:[137]8034
8030 x[178]x[170]64
8032 [137]8034
8034 [152]1,[199](x);
8036 [130]s
8038 [152]1,[199](13);
8040 [130]z
8042 [160]1
8044 [142]
9000 [143] directory
9002 [140]
9004 as[178]50002
9008 [135]pk:[139]pk[178][171]1[167][142]
9009 [151]as,pk:as[178]as[170]1
9010 [137] 9008
9020 [131]169,1,162,187,160,195,32,189,255,169
9022 [131]8,133,186,169,96,133,185,32,213,243
9024 [131]165,186,32,180,255,165,185,32,150,255
9026 [131]169,0,133,144,32,215,170,160,5,132
9028 [131]2,32,165,255,133,251,164,2,136,208
9030 [131]244,32,165,255,164,144,208,41,166,251
9032 [131]32,205,189,169,32,32,210,255,32,165
9034 [131]255,166,144,208,24,170,240,6,32,210
9036 [131]255,76,150,195,169,13,32,210,255,32
9038 [131]225,255,240,5,160,3,76,121,195,32
9040 [131]171,255,76,66,246,36,0,0,0,0
9042 [131]-1
10000 [143] maske
10010 [151]53281,0:[151]53280,0:[151]53272,21:[153]"loadlist";
10020 [153]"orCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC^";
10030 [153]"{$7d} {$7d}";
10040 [153]"{$7d} wait {$7d}";
10050 [153]"{$7d} r b - f a h r r a d wait {$7d}";
10060 [153]"{$7d} wait {$7d}";
10070 [153]"{$7d} {$7d}";
10080 [153]"-CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC<";
10090 [142]
11000 [128]