home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh9x
/
sh91a.d64
/
fahrrad
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
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"} }";
210 PRINT"} FAHRTENBUCH = F1 }";
220 PRINT"} }";
230 PRINT"} FAHRRADKOSTEN = F3 }";
240 PRINT"} }";
250 PRINT"} FAHRRADDATEN ERFASSEN = F5 }";
260 PRINT"} }";
270 PRINT"} FAHRRADDATEN ANZEIGEN = F7 }";
280 PRINT"} }";
290 PRINT"[221] [221]";
300 PRINT"} }";
310 PRINT"[221] DISKETTENINHALT = F2 [221]";
320 PRINT"} }";
330 PRINT"[221] PROGRAMMENDE = F4 [221]";
340 PRINT"} }";
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"} }";
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"} }";
2006 NEXT
2008 PRINT"[171]cccccccccccccccccccccccccccccccccccccc[179]";
2010 FORI=1TO13
2012 PRINT"} }";
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"} }";
2240 NEXT
2250 PRINT"[171]cccccccccccccccccccccccccccccccccccccc[179]";
2260 FORI=1TO13
2270 PRINT"} }";
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]"} }";
4100 [130]
4110 [153]"-cccccccccccccccccccccccccccccccccccccc<";
4120 [129]I[178]1[164]15
4130 [153]"} }";
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]"} }";
7100 [130]
7110 [153]"} WAIT WAIT WAIT WAIT WAIT }";
7120 [153]"} WAIT WAIT WAIT WAIT WAIT WAIT }";
7130 [153]"} WAIT WAIT WAIT WAIT WAIT WAIT WAIT }";
7140 [153]"} WAIT WAIT WAIT WAIT WAIT WAIT WAIT }";
7150 [153]"} WAIT WAIT WAIT WAIT WAIT WAIT WAIT }";
7160 [153]"} WAIT WAIT WAIT WAIT WAIT WAIT }";
7170 [153]"} WAIT WAIT WAIT WAIT WAIT }";
7180 [153]"} }";
7190 [153]"-cccccccccccccccccccccccccccccccccccccc<";
7200 [153]"}NOCH OFFENE DATEIEN WERDEN GESCHLOSSEN}";
7210 [153]"-LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN<";
7220 [153]"}C 64 WIRD IN EINSCHALTZUSTAND VERSETZT}";
7230 [153]"-cccccccccccccccccccccccccccccccccccccc<";
7240 [153]"} PROGRAMM IST DAMIT BEENDET }";
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]"} }";
10040 [153]"} WAIT }";
10050 [153]"} R B - F A H R R A D WAIT }";
10060 [153]"} WAIT }";
10070 [153]"} }";
10080 [153]"-cccccccccccccccccccccccccccccccccccccc<";
10090 [142]
11000 [128]