home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Rockford Magazine
/
Rockford_Magazine_001_19xx_-_de_Side_B.d64
/
termin-kalender
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
15KB
|
416 lines
10 y=365:dimd$(y,15)
20 nv$=" uhr ........................"
30 poke53280,0:poke53281,0:print"[147] elektronischer termin-kalender [146]";
50 o=59903:o1=781
60 a$="[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]"
70 a1$="[194] [146][194]"
80 m$="[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
90 m1$="[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
100 m2$=" welche zeile ( 1-e ) ? [146]"
110 m3$=" weitere korrekturen < j/n > ? [146]"
120 print"[176][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][174]";
130 fori=0to19:print"[194] [194]";:next
140 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]"
150 print"[194]disk-optionen:[146] < 1 > daten einlesen [194]";
160 print"[194] < 2 > daten speichern[194]";a$;
170 print"[194]prg - optionen:[146] < 3 > daten eingabe [194]";
180 print"[194] < 4 > daten ausgabe [194]";
190 print"[194] < 5 > daten suchen [194]";
200 print"[194] < 6 > daten loeschen [194]";
210 print"[194] < 7 > datei loeschen [194]";
220 print"[194] < 8 > parameter ausg.[194]";
230 print"[194] < 0 > prg. beenden [194]";a$;
240 print"[194]drucker-optionen:[146]< e > einzelausdruck [194]";
250 print"[194] < a > alle daten [194]";
260 print"[194] < b > best. bereiche [194]";a$
270 gosub1170
280 gete$:ife$=""then280
290 ife$="1"thenprint"[147]":goto2330
300 ife$="2"thenprint"[147]":goto2120
310 ife$="3"thenprint"[147]":goto450
320 ife$="4"thenprint"[147]":goto1230
330 ife$="5"thenprint"[147]":goto1430
340 ife$="6"thenprint"[147]":goto1700
350 ife$="7"thenprint"[147]":goto1850
360 ife$="8"thenprint"[147]":goto2000
370 ife$="0"thensys64767
380 ife$="e"thenprint"[147]":goto2590
390 ife$="a"thenprint"[147]":goto2990
400 ife$="b"thenprint"[147]":goto3060
410 goto280
420 a=a+1
430 gosub670:gosub700:gosub710:gosub730:gosub750:gosub770:gosub790:gosub810
440 gosub830:gosub850:gosub860:gosub870:gosub880:gosub890:gosub900:goto920
450 gosub480:gosub490:gosub510:gosub520:gosub530:gosub540:gosub550
460 gosub560:gosub570:gosub580:gosub590:gosub600:gosub610:gosub620:gosub630:gosub640
470 gosub650:goto420
480 print""m$;:print"[180] daten eingabe [146][170]";m1$
490 print" datum :[146] ..........":printspc(10)"[163][163][163][163][163][163][163][163][163][163]":return
510 print"1) 7.00"nv$:return
520 print"2) 8.00"nv$:return
530 print"3) 9.00"nv$:return
540 print"4) 10.00"nv$:return
550 print"5) 11.00"nv$:return
560 print"6) 12.00"nv$:return
570 print"7) 13.00"nv$:return
580 print"8) 14.00"nv$:return
590 print"9) 15.00"nv$:return
600 print"a) 16.00"nv$:return
610 print"b) 17.00"nv$:return
620 print"c) 18.00"nv$:return
630 print"d) 19.00"nv$:return
640 print"e) 20.00"nv$:return
650 print"weitere eingaben < f1 > menue < f7 >";
660 print" eingabenkorrektur < f3 > ";:return
670 r=4:p=10:l=10:gosub970:d$(a,1)=x$
679 ifd$(a,1)=""then670
680 ifmid$(d$(a,1),4,1)>"12"then670
681 ifleft$(d$(a,1),1)<"01"then670
682 ifleft$(d$(a,1),2)>"31"then670
683 ifmid$(d$(a,1),3,1)<>"."ormid$(d$(a,1),6,1)<>"."then670
684 ifright$(d$(a,1),4)>"2000"then670
690 return
700 r=6:p=13:l=23:gosub970:d$(a,2)=x$:return
710 r=7:gosub970:d$(a,3)=x$
720 ifd$(a,3)=""thend$(a,3)="."
725 return
730 r=8:gosub970:d$(a,4)=x$
740 ifd$(a,4)=""thend$(a,4)="."
745 return
750 r=9::gosub970:d$(a,5)=x$
760 ifd$(a,5)=""thend$(a,5)="."
765 return
770 r=10:gosub970:d$(a,6)=x$
780 ifd$(a,6)=""thend$(a,6)="."
785 return
790 r=11:gosub970:d$(a,7)=x$
800 ifd$(a,7)=""thend$(a,7)="."
805 return
810 r=12:gosub970:d$(a,8)=x$
820 ifd$(a,8)=""thend$(a,8)="."
825 return
830 r=13:gosub970:d$(a,9)=x$
840 ifd$(a,9)=""thend$(a,9)="."
845 return
850 r=14:gosub970:d$(a,10)=x$
855 ifd$(a,10)=""thend$(a,10)="."
856 return
860 r=15:gosub970:d$(a,11)=x$
865 ifd$(a,11)=""thend$(a,11)="."
866 return
870 r=16:gosub970:d$(a,12)=x$
875 ifd$(a,12)=""thend$(a,12)="."
876 return
880 r=17:gosub970:d$(a,13)=x$
885 ifd$(a,13)=""thend$(a,13)="."
886 return
890 r=18:gosub970:d$(a,14)=x$
895 ifd$(a,14)=""thend$(a,14)="."
896 return
900 r=19:gosub970:d$(a,15)=x$
905 ifd$(a,15)=""thend$(a,15)="."
910 return
920 poke198,0:wait198,1:gete$
930 ife$="[136]"thenclose1:close2:goto30
940 ife$="[133]"thenfori=4to20:poke781,i:sys59903:next:goto450
950 ife$="[134]"thengosub3220:gosub650:goto920
960 goto920
970 x$="":poke214,r:poke211,p:sys58640:z=0
980 getw$:ifw$=""thenprint"<[146][157]";:goto980
990 ifasc(w$)=136thenpoke204,1:a=a-1:goto30
1000 ifasc(w$)=35orasc(w$)=64orasc(w$)>94then980
1010 ifasc(w$)=13andlen(x$)<>lthenprint" ":goto1070
1020 ifasc(w$)=29orasc(w$)=17orasc(w$)=19orasc(w$)=145then980
1030 ifasc(w$)=13andlen(x$)=lthenprint" ":goto1070
1040 ifasc(w$)=20thenprint".":goto1080
1041 ifasc(w$)=34then980
1050 iflen(x$)=lthen980
1060 printw$;:x$=x$+w$:z=z+1:goto980
1070 return
1080 iflen(x$)=0thenw$="":goto970
1090 iflen(w$)=0goto980
1100 ifz=0goto980
1110 w$=left$(w$,len(w$)-1)
1120 x$=left$(x$,len(x$)-1)
1130 poke214,r:poke211,p:sys58640
1140 printx$;:z=z-1
1150 poke214,r:poke211,p+len(x$):sys58640:goto980
1160 return
1170 gosub2570:ifst<>-128then1190
1180 print"[194] drucker nicht eingeschaltet [146] [194]":goto1200
1190 print"[194] drucker eingeschaltet [146] [194]"
1200 gosub2580:ifst<>-128then1220
1210 print" floppylaufwerk nicht eingeschaltet [146] [157]":return
1220 print" floppylaufwerk eingeschaltet [146] [157]":return
1230 print""m$;:print"[180] daten ausgabe [146][170]";m1$:l=13
1240 ifa=0thenprint" keine daten im rechner !":fors=0to3000:next:goto30
1250 gosub490:gosub510:gosub520:gosub530:gosub540:gosub550:gosub560:gosub570:gosub580:gosub590
1260 gosub600:gosub610:gosub620:gosub630:gosub640
1270 forw=1toa:print""spc(10)d$(w,1)
1280 print""spc(l)d$(w,2):printspc(l)d$(w,3):printspc(l)d$(w,4)
1290 printspc(l)d$(w,5):printspc(l)d$(w,6):printspc(l)d$(w,7):printspc(l)d$(w,8)
1300 printspc(l)d$(w,9):printspc(l)d$(w,10):printspc(l)d$(w,11):printspc(l)d$(w,12)
1310 printspc(l)d$(w,13):printspc(l)d$(w,14):printspc(l)d$(w,15)
1320 print"weitere ausgaben < f1 > menue < f7 >";
1330 print" korrektur < f3 > ";
1340 gete$:ife$=""then1340
1350 ife$="[133]"then1400
1360 ife$="[136]"then30
1370 ife$="[134]"thengosub3450:goto1320
1380 goto1340
1400 ifw=athenfori=4to19:pokeo1,i:syso:next:goto5000
1410 gosub490:gosub510:gosub520:gosub530:gosub540:gosub550:gosub560:gosub570:gosub580
1415 gosub590:gosub600:gosub610:gosub620:gosub630:gosub640
1420 next
1430 print""m$;"[180] daten suchen [146][170]";m1$
1440 ifa=0thenprint" keine daten im rechner !":fors=0to3000:next:goto30
1450 print" bitte geben sie das datum ein,"
1460 printspc(7)"dessen daten sie suchen :"
1470 printspc(15)".........."
1480 printspc(10)"zum menue mit < * >":r=12:p=15:l=16:gosub970
1490 fors=1toa:ifx$=d$(s,1)then1540
1500 next:fori=4to20:pokeo1,i:syso:next
1510 ifx$="*"then30
1520 print" keine daten vorhanden !"
1530 fori=0to2000:next:goto30
1540 fori=4to20:pokeo1,i:syso:next:print""m$
1550 print""m$;"[180] ausgabe der gesuchten daten [146][170]";:l=13
1560 gosub490:gosub510:gosub520:gosub530:gosub540:gosub550:gosub560:gosub570:gosub580:gosub590:gosub600
1570 gosub610:gosub620:gosub630:gosub640
1580 print""spc(10)d$(s,1)
1590 print""spc(l)d$(s,2):printspc(l)d$(s,3):printspc(l)d$(s,4):printspc(l)d$(s,5)
1600 printspc(l)d$(s,6):printspc(l)d$(s,7):printspc(l)d$(s,8):printspc(l)d$(s,9)
1610 printspc(l)d$(s,10):printspc(l)d$(s,11):printspc(l)d$(s,12):printspc(l)d$(s,13):printspc(l)d$(s,14)
1620 printspc(l)d$(s,15)
1630 print"weiter suchen < f1 > menue < f7 >";
1640 print" korrektur < f3 > ";
1650 gete$:ife$=""then1650
1660 ife$="[133]"then1500
1670 ife$="[136]"then30
1680 ife$="[134]"thengosub3680:goto1630
1690 goto1650
1700 print""m$;:print"[180] daten loeschen [146][170]";m1$
1710 ifa=0thenprint" keine daten im rechner !":fors=0to3000:next:goto30
1720 print" bitte geben sie das datum"
1730 printspc(8)"ein, dessen daten sie zu"
1740 printspc(10)"loeschen wuenschen :"
1750 printspc(12)"................"
1760 printspc(10)"zum menue mit < * >":r=13:p=12:l=16:gosub970
1770 fors=1toa:ifx$=d$(s,1)then1820
1780 ifx$="*"then30
1790 next
1800 fori=7to15:pokeo1,i:syso:next
1810 print"zu loeschender datensatz nicht gefunden!":fori=0to2000:next:goto30
1820 fore=stoa-1:forf=1to15:d$(e,f)=d$(e+1,f):nextf,e:forf=1to10:d$(a,f)="":next:a=a-1
1830 print""m$;:print"[180] ihr angegebener datensatz wurde [146][170]";
1840 print"[180] soeben geloescht ! [146][170]";m1$:fori=0to3000:next:goto30
1850 print""m$;:print"[180] datei loeschen [146][170]";m1$
1860 print"sie sind im begriff, ihre gesamten daten"
1870 print" zu loeschen ! wollen sie ihre datei"
1880 printspc(6)"wirklich loeschen < j/n [146]> ?"
1890 gete$:ife$=""then1890
1900 ife$="j"then1930
1910 ife$="n"then30
1920 goto1890
1930 gosub2580
1940 ifst<>-128then1960
1950 pokeo1,13:syso:goto2220
1960 open1,8,15,"s:dixy-daten":close1
1970 fori=7to13:pokeo1,i:syso:next
1980 print""m$;:print"[180] ihre datei wurde soeben geloescht ! [146][170]";m1$
1990 fori=0to2000:next:goto30
2000 print""m$;:print"[180] parameter ausgabe [146][170]";m1$
2010 p$=right$(str$(1000+(y-a)),3)
2020 p1$=right$(str$(1000+a),3)
2030 print""m$;:print"[180] [146][170]";
2040 print"[180] leere datensaetze "p$" [146][170]";
2050 print"[180] [146][170]";
2060 print"[180] volle datensaetze "p1$" [146][170]";
2069 print"[180] [146][170]";m1$:se=(100*a)/y
2070 p3=int(se*10^2+.5)/10^2
2071 print""p3"% der gesamten datenkapazitaet"
2080 printspc(10)"zum menue mit < * >"
2090 gete$:ife$=""then2090
2100 ife$="*"then30
2110 goto2090
2120 print""m$;:print"[180] daten speichern [146][170]";m1$
2130 ifa=0thenprint" keine daten im rechner !":fors=0to3000:next:goto30
2140 printspc(4)"bitte datendiskette einlegen und"
2150 printspc(6)"< return [146]> taste druecken !"
2160 printspc(10)"zum menue mit < * >"
2170 gete$:ife$=""then2170
2180 ife$="*"then30
2190 ife$=chr$(13)then2210
2200 goto2170
2210 gosub2580:ifst<>-128then2240
2220 print""m$;:print"[180]floppy-laufwerk nicht eingeschaltet ! [146][170]";m1$
2230 forw=0to3000:next:goto30
2240 close1:open1,8,15:close3:open3,8,3,"@:dixy-daten,s,w":input#1,q
2250 ifq=0then2280
2260 gosub2560:close1:close3:print""m$;
2270 print"[180]disketten - fehler ! bitte beheben ! [146][170]";m1$:goto2230
2280 fori=6to12:pokeo1,i:syso:next:print#3,a:fork=1toa:forp=1to15
2290 t$=right$(str$(1000+k),3)
2300 print""m$;:print"[180] datensatz nr. "t$" beim speichern ! [146][170]";m1$
2310 print#3,d$(k,p):next:next:close3:close1
2320 print""m$;:print"[180] daten sind abgespeichert ! [146][170]";m1$:goto2230
2330 print""m$;:print"[180] daten einlesen [146][170]";m1$
2340 ifa=0then2370
2350 ifa>0thenprint"es befinden sich noch daten im rechner !":fors=0to3000:next
2360 goto30
2370 printspc(4)"bitte datendiskette einlegen und"
2380 printspc(6)"< return [146]> taste druecken !":printspc(10)"zum menue mit < * >"
2400 gete$:ife$=""then2400
2410 ife$="*"then30
2420 ife$=chr$(13)then2440
2430 goto2400
2440 gosub2580:ifst<>-128then2470
2450 gosub2560
2460 print""m$;:print"[180]floppy-laufwerk nicht eingeschaltet ! [146][170]";m1$:goto2230
2470 close1:open1,8,15:close3:open3,8,3,"dixy-daten,s,r":input#1,q
2480 ifq=0then2510
2490 gosub2560:close1:close3:print""m$;
2500 print"[180]disketten - fehler ! bitte beheben ! [146][170]";m1$:goto2230
2510 gosub2560:input#3,a:fork=1toa:forg=1to15
2520 t1$=right$(str$(1000+k),3)
2530 print""m$;:print"[180] datensatz nr. "t1$" beim einlesen ! [146][170]";m1$
2540 input#3,d$(k,g):next:next:close3:close1
2550 print""m$;:print"[180] daten sind eingelesen ! [146][170]";m1$:goto2230
2560 fori=6to12:pokeo1,i:syso:next:return
2570 poke768,61:open1,4,7:print#1,"";:close1:poke768,139:return
2580 poke768,61:open1,8,15:close1:poke768,139:return
2590 print""m$;:print"[180] daten einzelausdruck [146][170]";m1$
2600 ifa=0thenprint" keine daten im rechner !":fors=0to3000:next:goto30
2610 gosub2570:ifst<>-128then2640
2620 print""m$;:print"[180] drucker ist nicht eingeschaltet ! [146][170]";m1$
2630 fori=0to2000:next:goto30
2640 print" bitte geben sie das datum ein,"
2650 print"dessen daten sie ausdrucken moechten :"
2660 printspc(9)"ausdrucken moechten:"
2670 printspc(15)".........."
2680 printspc(10)"zum menue mit < * >":r=13:p=15:l=16:gosub970
2690 fors=1toa:ifx$=d$(s,1)then2730
2700 next:fori=7to17:pokeo1,i:syso:next
2710 ifx$="*"then30
2720 print" keine daten vorhanden !":fori=0to2000:next:goto30
2730 fori=4to20:pokeo1,i:syso:next
2740 print""m$;"[180] daten werden ausgedruckt ! [146][170]";m1$:gosub2760
2750 goto2940
2760 open1,4,1:print#1,chr$(27)+"s"+chr$(1)+chr$(15);
2770 print#1,spc(5)" datum : ";d$(s,1)+chr$(10)
2780 print#1,spc(5)" 7.00 uhr : ";d$(s,2)+chr$(10)
2790 print#1,spc(5)" 8.00 uhr : ";d$(s,3)+chr$(10)
2800 print#1,spc(5)" 9.00 uhr : ";d$(s,4)+chr$(10)
2810 print#1,spc(5)"10.00 uhr : ";d$(s,5)+chr$(10)
2820 print#1,spc(5)"11.00 uhr : ";d$(s,6)+chr$(10)
2830 print#1,spc(5)"12.00 uhr : ";d$(s,7)+chr$(10)
2840 print#1,spc(5)"13.00 uhr : ";d$(s,8)+chr$(10)
2850 print#1,spc(5)"14.00 uhr : ";d$(s,9)+chr$(10)
2860 print#1,spc(5)"15.00 uhr : ";d$(s,10)+chr$(10)
2870 print#1,spc(5)"16.00 uhr : ";d$(s,11)+chr$(10)
2880 print#1,spc(5)"17.00 uhr : ";d$(s,12)+chr$(10)
2890 print#1,spc(5)"18.00 uhr : ";d$(s,13)+chr$(10)
2900 print#1,spc(5)"19.00 uhr : ";d$(s,14)+chr$(10)
2910 print#1,spc(5)"20.00 uhr : ";d$(s,15)+chr$(10)
2920 print#1,spc(5)"-------------------------------------"
2930 print#1,chr$(24):close1:return
2940 print"weitere einzeldaten ausdrucken < j/n > ?"
2950 gete$:ife$=""then2950
2960 ife$="n"then30
2970 ife$="j"thenprint"[147]":goto2590
2980 goto2950
2990 print""m$;:print"[180] ausdruck aller daten [146][170]";m1$
3000 ifa=0thenprint" keine daten im rechner !":fors=0to3000:next:goto30
3010 gosub2570:ifst<>-128then3040
3020 print""m$;:print"[180] drucker ist nicht eingeschaltet ! [146][170]";m1$
3030 fori=0to2000:next:goto30
3040 print""m$;"[180] daten werden ausgedruckt ! [146][170]";m1$
3050 fors=1toa:gosub2760:next:goto30
3060 print""m$;:print"[180] bestimmte bereiche ausdrucken [146][170]";m1$
3070 ifa=0thenprint" keine daten im rechner !":fors=0to3000:next:goto30
3080 gosub2570:ifst<>-128then3110
3090 print""m$;:print"[180] drucker ist nicht eingeschaltet ! [146][170]";m1$
3100 fori=0to2000:next:goto30
3110 print" bitte geben sie den bereich der zu"
3120 printspc(6)"druckenden datensaetze ein :"
3130 printspc(12)"von 1.. bis"a"[157].."
3140 print" zum menue mit < * > "
3150 r=11:p=16:l=3:gosub970:x=val(x$)
3160 ifx$="*"then30
3170 r=11:p=24:l=3:gosub970:y=val(x$)
3180 ify>aorx>ythenx$="":x=0:y=0:goto3200
3190 goto3210
3200 print" bereich falsch angewaehlt !":fori=0to2000:next:goto3060
3210 fors=xtoy:gosub2760:next:goto30
3220 printm2$;" zurueck < * > ";
3230 gete$:ife$=""then3230
3240 ife$="*"thenreturn
3250 ife$="1"thend$(a,2)="":gosub700:goto3400
3260 ife$="2"thend$(a,3)="":gosub710:goto3400
3270 ife$="3"thend$(a,4)="":gosub730:goto3400
3280 ife$="4"thend$(a,5)="":gosub750:goto3400
3290 ife$="5"thend$(a,6)="":gosub770:goto3400
3300 ife$="6"thend$(a,7)="":gosub790:goto3400
3310 ife$="7"thend$(a,8)="":gosub810:goto3400
3320 ife$="8"thend$(a,9)="":gosub830:goto3400
3330 ife$="9"thend$(a,10)="":goto850:goto3400
3340 ife$="a"thend$(a,11)="":goto860:goto3400
3350 ife$="b"thend$(a,12)="":goto870:goto3400
3360 ife$="c"thend$(a,13)="":goto880:goto3400
3370 ife$="d"thend$(a,14)="":goto890:goto3400
3380 ife$="d"thend$(a,15)="":goto900:goto3400
3390 goto3230
3400 printm3$;" ";
3410 gete$:ife$=""then3410
3420 ife$="j"then3220
3430 ife$="n"thenreturn
3440 goto3410
3450 printm2$;" zurueck < * > ";
3460 gete$:ife$=""then3460
3470 ife$="1"thend$(w,2)="":gosub700:d$(w,2)=d$(a,2):goto3630
3480 ife$="*"thenreturn
3490 ife$="2"thend$(w,3)="":gosub710:d$(w,3)=d$(a,3):goto3630
3500 ife$="3"thend$(w,4)="":gosub730:d$(w,4)=d$(a,4):goto3630
3510 ife$="4"thend$(w,5)="":gosub750:d$(w,5)=d$(a,5):goto3630
3520 ife$="5"thend$(w,6)="":gosub770:d$(w,6)=d$(a,6):goto3630
3530 ife$="6"thend$(w,7)="":gosub790:d$(w,7)=d$(a,7):goto3630
3540 ife$="7"thend$(w,8)="":gosub810:d$(w,8)=d$(a,8):goto3630
3550 ife$="8"thend$(w,9)="":gosub830:d$(w,9)=d$(a,9):goto3630
3560 ife$="9"thend$(w,10)="":gosub850:d$(w,10)=d$(a,10):goto3630
3570 ife$="a"thend$(w,11)="":gosub860:d$(w,11)=d$(a,11):goto3630
3580 ife$="b"thend$(w,12)="":gosub870:d$(w,12)=d$(a,12):goto3630
3590 ife$="c"thend$(w,13)="":gosub880:d$(w,13)=d$(a,13):goto3630
3600 ife$="d"thend$(w,14)="":gosub890:d$(w,14)=d$(a,14):goto3630
3610 ife$="e"thend$(w,15)="":gosub900:d$(w,15)=d$(a,15):goto3630
3620 goto3460
3630 printm3$;" ";
3640 gete$:ife$=""then3640
3650 ife$="j"then3450
3660 ife$="n"thenreturn
3670 goto3640
3680 printm2$;" zurueck < * > ";
3690 gete$:ife$=""then3690
3700 ife$="1"thend$(s,2)="":gosub700:d$(s,2)=d$(a,2):goto3860
3710 ife$="*"thenreturn
3720 ife$="2"thend$(s,3)="":gosub710:d$(s,3)=d$(a,3):goto3860
3730 ife$="3"thend$(s,4)="":gosub730:d$(s,4)=d$(a,4):goto3860
3740 ife$="4"thend$(s,5)="":gosub750:d$(s,5)=d$(a,5):goto3860
3750 ife$="5"thend$(s,6)="":gosub770:d$(s,6)=d$(a,6):goto3860
3760 ife$="6"thend$(s,7)="":gosub790:d$(s,7)=d$(a,7):goto3860
3770 ife$="7"thend$(s,8)="":gosub810:d$(s,8)=d$(a,8):goto3860
3780 ife$="8"thend$(s,9)="":gosub830:d$(s,9)=d$(a,9):goto3860
3790 ife$="9"thend$(s,10)="":goto850:d$(s,10)=d$(a,10):goto3860
3800 ife$="a"thend$(s,11)="":goto860:d$(s,11)=d$(a,11):goto3860
3810 ife$="b"thend$(s,12)="":goto870:d$(s,12)=d$(a,12):goto3860
3820 ife$="c"thend$(s,13)="":goto880:d$(s,13)=d$(a,13):goto3860
3830 ife$="d"thend$(s,14)="":goto890:d$(s,14)=d$(a,14):goto3860
3840 ife$="e"thend$(s,15)="":goto900:d$(s,15)=d$(a,15):goto3860
3850 goto3690
3860 printm3$;" ";
3870 gete$:ife$=""then3870
3880 ife$="j"then3680
3890 ife$="n"thenreturn
3900 goto3870
5000 print"[146] keine daten mehr vorhanden !":fori=0to3000:next:goto30
0