home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_93-11_1993_-_de_Side_B.d64
/
kassettenbuttler
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
17KB
|
581 lines
5 clr
10 rem cassettenbutler v1.0
20 rem animal networks 7/93
30 rem robert gast
40 dimname$(570)
50 dimb$(420),c$(420),d$(420),e$(420),f$(420),g$(420),h$(420),i$(420)
60 dimj$(420),k$(420),l$(420):pl$="keine im speicher"
90 rem
100 poke53280,0:poke53281,0:print"[147][151]":poke650,128:printchr$(142):u=1
110 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][174]"
120 fori=1to22:print"[194] [194]":next
130 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][189]"
140 print"kassettenbutler v1.0"
150 print"robert gast juli 1993"
160 print"a n i m a l n e t w o r k s[151]"
170 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][179][150]":zu=1
180 print" bearbeiten [151]"
190 print" suchen "
200 print" drucken "
210 print" directory "
220 print" loaden "
230 print" saven ":
240 geta$:ifa$=""then240
250 ifa$=""thenzu=zu+1:goto290
260 ifa$="[145]"thenzu=zu-1:goto290
270 ifa$=chr$(13)then450
280 goto 240
290 ifzu<1thenzu=1:goto240
300 ifzu>6thenzu=6:goto240
310 print"[151]"
320 print" bearbeiten "
330 print" suchen "
340 print" drucken "
350 print" directory "
360 print" loaden "
370 print" saven "
380 print"[150]":onzugoto390,400,410,420,430,440,445
390 print" bearbeiten ":goto240
400 print:print:print" suchen ":goto240
410 print:print:print:print:print" drucken ":goto240
420 print:print:print:print:print:print:print" directory ":goto240
430 print:print:print:print:print:print:print:print:print" loaden ":goto240
440 print"":print" saven ":goto240
450 onzugoto460,1780,2930,4250,4350,5140
460 print"[151]"
470 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][174]"
480 fori=1to17:print"[194] [194]":next
490 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][189]"
500 print"ende mit f1 [146] ![151]"
510 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][179]":zu=u
520 print"nr.:"zu
530 print"name:[151]"name$(zu)
540 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][179][155]"
550 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
560 fori=1to5:print"[194] [194]":next
570 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
580 print""
590 print"mit +[146]/-[146] auswahl"
600 print"return[146] bearbeiten"
610 print"f1[146] ende !"
620 geta$:ifa$=""then620
630 ifa$="+"thenzu=zu+2:goto680
640 ifa$="-"thenzu=zu-2:goto680
650 ifa$=chr$(13)thenu=zu:goto720
660 ifa$="[133]"then100
670 goto 620
680 ifzu<1thenzu=1:goto620
690 ifzu>15thenzu=15:goto620
700 print""zu"[157] ":sp$=""
705 print" "
710 print"[145]"name$(zu):goto620
720 print""
730 fori=1to12:print" ":next:print""
731 print""b$(u):print""c$(u):print""d$(u):print""e$(u):print""f$(u)
732 print""g$(u):print""h$(u):print""i$(u):print""j$(u):print""k$(u)
733 print""l$(u)
734 z$="":print"":printz$+b$(u+1):printz$+c$(u+1)
735 printz$+d$(u+1):printz$+e$(u+1):printz$+f$(u+1):printz$+g$(u+1):printz$+h$(u+1):printz$+i$(u+1)
736 printz$+j$(u+1):printz$+k$(u+1):printz$+l$(u+1)
740 print"[151]"
750 print"[178]"
760 print"[151]"
770 fori=1to12:print"[194]":next
780 print"[177]"
790 print"[150]"
800 fori=1to11:print""chr$(i+64)""chr$(i+64):next
810 print"[155]":
820 print"[145][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][174]"
830 print"[194]bitte waehlen sie aus !![155] [194]"
840 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][189]"
850 print"_":zu=1:sp=1
860 geta$:ifa$=""then860
865 ifzu=0anda$=""then983
870 ifa$=""thenzu=zu+1:goto940
880 ifa$="[145]"thenzu=zu-1:goto940
890 ifa$=""thensp=sp+1:goto940
900 ifa$="[157]"thensp=sp-1:goto940
910 ifa$="[133]"then100
920 ifa$=chr$(13)then1110
925 ifa$="+"ora$="-"then460
930 goto 860
940 ifzu<0thenzu=0:goto860
941 ifzu=0then981
950 ifzu>11thenzu=11:goto860
960 ifsp<1thensp=1:goto860
970 ifsp>2thensp=2:goto860
975 ifa$=""ora$="[157]"then1060
980 on sp goto 990,1020
981 print""name$(u)+"_"
982 print" ":goto860
983 print""name$(u)+" "
985 print"_":sp=1:zu=1:goto860
990 print""
1000 fori=1to11:print" ":next
1010 print"":fori=1tozu:print:next:print"_":goto860
1020 print""
1030 fori=1to11:print" ":next
1040 print""
1050 fori=1tozu:print:next:print"_":goto860
1060 ifa$="[157]"then1090
1070 print""
1080 fori=1to11:print" ":next:zu=1:goto980
1090 print""
1100 fori=1to11:print" ":next:zu=1:goto980
1110 ifzu=0then1450
1115 print""
1120 print"eingabetext :[164] ":v=1:bu$="":ifa$<>""anda$<>chr$(13)then1140
1130 geta$:ifa$=""then1130
1140 ifa$="[147]"ora$=""ora$=""ora$="[145]"ora$="[157]"ora$=""then1130
1145 ifa$="[133]"thenbu$=left$(bu$,14):goto1220
1150 ifa$=chr$(13)thenbu$=left$(bu$,14):goto1220
1160 ifv<=0anda$=chr$(20)then1130
1170 ifa$=chr$(20)then1200
1180 ifv>14then1130
1190 bu$=bu$+a$:v=v+1:goto1210
1200 bu$=left$(bu$,v-1):v=v-1
1210 print""bu$+"[164] ":goto1130
1220 ifbu$="[133]"then100
1221 ifbu$=""then1560
1222 ifzu=0then1450
1225 ifsp=1thend=0
1230 ifsp=2thend=1
1240 onzugoto1250,1260,1270,1280,1290,1300,1310,1320,1330,1340,1345
1250 b$(u+d)=bu$:goto1390
1260 c$(u+d)=bu$:goto1390
1270 d$(u+d)=bu$:goto1390
1280 e$(u+d)=bu$:goto1390
1290 f$(u+d)=bu$:goto1390
1300 g$(u+d)=bu$:goto1390
1310 h$(u+d)=bu$:goto1390
1320 i$(u+d)=bu$:goto1390
1330 j$(u+d)=bu$:goto1390
1340 k$(u+d)=bu$:goto1390
1345 l$(u+d)=bu$:goto1390
1390 onspgoto1400,1420
1400 print"":fori=1tozu:print:next
1410 print""bu$:goto1440
1420 print"":fori=1tozu:print:next
1430 print""bu$
1440 ifa$="[133]"then100
1445 goto1560
1450 print"[164] ":bu$="":v=1
1455 geta$:ifa$=""then1455
1460 ifa$="[147]"ora$=""ora$=""ora$="[145]"ora$=""ora$="[157]"then1455
1470 ifa$=chr$(13)then1540
1480 ifv<=0anda$=chr$(20)then1455
1490 ifa$=chr$(20)then1520
1500 ifv>20then1455
1510 bu$=bu$+a$:v=v+1:goto1530
1520 bu$=left$(bu$,v-1):v=v-1
1530 print""bu$+"[164] ":goto1455
1540 print""bu$+" "
1550 name$(u)=bu$:sp=1:zu=1:goto1060
1560 zu=zu+1:ifzu>11then1730
1570 goto1610
1580 zu=1:onspgoto1590,1600
1590 sp=2:goto1610
1600 sp=1:goto1610
1610 print"":onspgoto1620,1640
1620 fori=1to11:print" ":next
1630 print"":fori=1tozu:print:next:print"_":goto5450
1640 print""
1650 fori=1to11:print" ":next
1660 print""
1670 fori=1tozu:print:next:print"_":goto5450
1690 print""
1700 fori=1to11:print" ":next:zu=1:goto980
1710 print""
1720 fori=1to11:print" ":next:zu=1:goto980
1730 onspgoto1740,1760
1740 print""
1750 fori=1to11:print" ":next:zu=1:goto1580
1760 print""
1770 fori=1to11:print" ":next:zu=1:goto1580
1780 print"[151]"
1790 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
1800 fori=1to6:print"[194] [194]":next
1810 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
1820 print"[150]"
1830 print"suchen nach ...[146]"
1840 print"kassettenname .. 1"
1850 print"liedtitel ...... 2"
1860 print"ende ........... 3[151]"
1870 geta$:ifa$=""then1870
1880 onval(a$)goto1900,1905,0100
1890 goto 1870
1900 fl=1:print"[147]":goto1910
1905 fl=2:print"[147]"
1910 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][174]"
1920 fori=1to6:print"[194] [194]":next
1930 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][189]"
1940 print""
1950 print"bitte geben sie das zu suchende"
1960 print"stichwort ein !!"
1970 print"[164]"
1980 print" f1 [146] ende !":bu$="":v=1:
1990 geta$:ifa$=""then1990
1995 ifa$=""ora$="[147]"ora$=""ora$="[145]"ora$=""ora$="[157]"then1990
2000 ifa$="[133]"then100
2010 ifv=0anda$=chr$(20)then1990
2020 ifa$=chr$(20)then2060
2030 ifa$=chr$(13)then2080
2040 ifv>=23thenv=23:goto1990
2050 bu$=bu$+a$:v=v+1:goto2070
2060 bu$=left$(bu$,v-1):v=v-1
2070 print""bu$+"[164] ":goto1990
2080 print"[151]"
2090 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][174]"
2100 fori=1to10:print"[194] [194]":next
2110 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][189]"
2120 print""
2130 print"moment bitte ... "
2140 onflgoto2150,2750
2150 fori=1to30:
2160 ifbu$=name$(i)then2220
2170 next
2180 print"ich habe nichts finden koennen!"
2190 print"[150]taste druecken !"
2200 geta$:ifa$=""then2200
2210 goto 100
2220 print"[151]"
2230 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][174]"
2240 forx=1to22:print"[194] [194]":next
2250 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][189]"
2260 print""
2270 print"kassettennummer :"i
2280 print"kassettenname :"name$(i)""
2290 print""b$(i)
2300 print"[145]"b$(i+1)
2310 print""c$(i)
2320 print"[145]"c$(i+1)
2330 print""d$(i)
2340 print"[145]"d$(i+1)
2350 print""e$(i)
2360 print"[145]"e$(i+1)
2370 print""f$(i)
2380 print"[145]"f$(i+1)
2390 print""g$(i)
2400 print"[145]"g$(i+1)
2410 print""h$(i)
2420 print"[145]"h$(i+1)
2430 print""i$(i)
2440 print"[145]"i$(i+1)
2450 print""j$(i)
2460 print"[145]"j$(i+1)
2470 print""k$(i)
2480 print"[145]"k$(i+1)
2490 print""l$(i)
2500 print"[145]"l$(i+1)
2570 print"[151][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][179]"
2580 print"zu bearbeiten[146] ... 1"
2590 print"ausdrucken ...... 2"
2600 print"ende ............ 3"
2610 geta$:ifa$=""then2610
2620 onval(a$)goto2640,3450,100
2630 goto2610
2640 u=i:
2650 print"[151]"
2660 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][174]"
2670 fori=1to19:print"[194] [194]":next
2680 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][189]"
2690 print"ende mit f1 [146] ![151]"
2700 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][179]":
2710 print"nr.:"u
2720 print"name:[151]"name$(u)
2730 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][179][155]"
2740 goto 720
2750 i=0
2760 i=i+1:
2770 ifbu$=b$(i)orbu$=b$(i+1)then2920
2780 ifbu$=c$(i)orbu$=c$(i+1)then2920
2790 ifbu$=d$(i)orbu$=d$(i+1)then2920
2800 ifbu$=e$(i)orbu$=e$(i+1)then2920
2810 ifbu$=f$(i)orbu$=f$(i+1)then2920
2820 ifbu$=g$(i)orbu$=g$(i+1)then2920
2830 ifbu$=h$(i)orbu$=h$(i+1)then2920
2840 ifbu$=i$(i)orbu$=i$(i+1)then2920
2850 ifbu$=j$(i)orbu$=j$(i+1)then2920
2860 ifbu$=k$(i)orbu$=k$(i+1)then2920
2870 ifbu$=l$(i)orbu$=l$(i+1)then2920
2905 ifi>30then2180
2910 goto 2760
2920 goto 2220
2930 print"[151]"
2940 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][174]"
2950 fori=1to10:print"[194] [194]":next
2960 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][189]"
2970 print""
2980 print"moechten sie sie ... "
2990 print"... eine einzelne seite"
3000 print" ausdrucken ...... 1"
3010 print"... alle datensaetze"
3020 print" ausdrucken ...... 2"
3030 print"ende ................ 3"
3040 geta$:ifa$=""then3040
3050 onval(a$)goto3070,3830,100
3060 goto3040
3070 fl=0
3080 print"[151][145]"
3090 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][174]"
3100 fori=1to22:print"[194] [194]":next
3110 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][189][145]"
3120 print""
3130 print"mit +[146]/-[146] und return[146] auswaehlen !"
3135 print" f1 [146] - ende !![151]"
3140 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][179]":zu=1
3150 print"kassettennummer:"zu
3160 print"kassettenname :"name$(zu)"[151]"
3170 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][179]":z$=""
3180 print""
3190 print""b$(zu):print"[145]"z$+b$(zu+1)
3200 print""c$(zu):print"[145]"z$+c$(zu+1)
3210 print""d$(zu):print"[145]"z$+d$(zu+1)
3220 print""e$(zu):print"[145]"z$+e$(zu+1)
3230 print""f$(zu):print"[145]"z$+f$(zu+1)
3240 print""g$(zu):print"[145]"z$+g$(zu+1)
3250 print""h$(zu):print"[145]"z$+h$(zu+1)
3260 print""i$(zu):print"[145]"z$+i$(zu+1)
3270 print""j$(zu):print"[145]"z$+j$(zu+1)
3280 print""k$(zu):print"[145]"z$+k$(zu+1)
3290 print""l$(zu):print"[145]"z$+l$(zu+1)
3330 geta$:ifa$=""then3330
3340 ifa$="[133]"then100
3350 ifa$="+"thenzu=zu+2:goto3390
3360 ifa$="-"thenzu=zu-2:goto3390
3370 ifa$=chr$(13)then3450
3380 goto 3330
3390 ifzu<1thenzu=1:goto 3330
3400 ifzu>15thenzu=15:goto3330
3410 print""
3420 print"kassettennummer:"zu"[157] "
3430 print"kassettenname : "
3435 print"[145]kassettenname :"name$(zu)"[151]"
3440 goto3180
3450 print"[151]"
3460 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
3470 print"[194]ich drucke ...[151] [194]"
3480 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
3490 goto3790
3495 sp$="":open4,4
3500 x=len(b$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
3510 print#4,b$(zu)+sp$+b$(zu+1):sp$=""
3520 x=len(c$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
3530 print#4,c$(zu)+sp$+c$(zu+1):sp$=""
3540 x=len(d$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
3550 print#4,d$(zu)+sp$+d$(zu+1):sp$=""
3560 x=len(e$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
3570 print#4,e$(zu)+sp$+e$(zu+1):sp$=""
3580 x=len(f$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
3590 print#4,f$(zu)+sp$+f$(zu+1):sp$=""
3600 x=len(g$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
3610 print#4,g$(zu)+sp$+g$(zu+1):sp$=""
3620 x=len(h$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
3630 print#4,h$(zu)+sp$+h$(zu+1):sp$=""
3640 x=len(i$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
3650 print#4,i$(zu)+sp$+i$(zu+1):sp$=""
3660 x=len(j$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
3670 print#4,j$(zu)+sp$+j$(zu+1):sp$=""
3680 x=len(k$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
3690 print#4,k$(zu)+sp$+k$(zu+1):sp$=""
3692 x=len(k$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
3695 print#4,l$(zu)+sp$+l$(zu+1):sp$=""
3700 print#4:print#4,"---------------------------------------"
3780 close 4:goto100
3790 open4,4:print#4,"---------------------------------------"
3795 print#4
3800 print#4,"kassettenname :"name$(zu)
3810 print#4,"---------------------------------------"
3820 close 4:goto3495
3830 print"[151]"
3840 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
3850 fori=1to5:print"[194] [194]":next
3860 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
3870 print""
3880 print"ich drucke ..."
3890 print"abbruch mit space[146]"
3900 zu=-1:open4,4
3910 zu=zu+2
3920 geta$:ifa$=" "then100
3921 print#4,"---------------------------------------"
3922 print#4,
3923 print#4,"kassettenname :"name$(zu)
3924 print#4,"---------------------------------------"
3930 x=len(b$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
3940 print#4,b$(zu)+sp$+b$(zu+1):sp$=""
3950 x=len(c$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
3960 print#4,c$(zu)+sp$+c$(zu+1):sp$=""
3970 x=len(d$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
3980 print#4,d$(zu)+sp$+d$(zu+1):sp$=""
3990 x=len(e$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
4000 print#4,e$(zu)+sp$+e$(zu+1):sp$=""
4010 x=len(f$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
4020 print#4,f$(zu)+sp$+f$(zu+1):sp$=""
4030 x=len(g$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
4040 print#4,g$(zu)+sp$+g$(zu+1):sp$=""
4050 x=len(h$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
4060 print#4,h$(zu)+sp$+h$(zu+1):sp$=""
4070 x=len(i$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
4080 print#4,i$(zu)+sp$+i$(zu+1):sp$=""
4090 x=len(j$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
4100 print#4,j$(zu)+sp$+j$(zu+1):sp$=""
4110 x=len(k$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
4120 print#4,k$(zu)+sp$+k$(zu+1):sp$=""
4125 x=len(k$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
4126 print#4,l$(zu)+sp$+l$(zu+1):sp$=""
4130 print#4:print#4,"---------------------------------------"
4210 ifzu=15thenclose4:goto100
4220 geta$:ifa$=" "thenclose4:goto100
4230 goto3910
4240 close4:goto100
4250 print"[147]"
4260 open1,8,0,"$":poke781,1:sys65478:geta$,a$:e$=chr$(0)
4270 geta$,a$,h$,l$:ifstthensys65484:close1:goto4320
4280 printasc(h$+e$)+256*asc(l$+e$);
4290 geta$,b$:ifa$thenprinta$b$;:goto4290
4300 printa$:goto 4270
4310 close 1
4320 print"[150] taste druecken ! "
4330 geta$:ifa$=""then4330
4340 goto 100
4350 print"[151]"
4360 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][174]"
4370 fori=1to10:print"[194] [194]":next
4380 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][189]"
4390 print""
4400 print"geladende datei:"pl$"[151]"
4410 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][179]"
4420 print" f1 [146] aktuelle datei im speicher"
4430 print" loeschen "
4450 print" f3 [146] neue datei laden"
4460 print" f5 [146] ende "
4470 geta$:ifa$=""then4470
4480 ifa$="[133]"then4530
4500 ifa$="[134]"then4800
4510 ifa$="[135]"then100
4520 goto 4470
4530 print"[151]"
4540 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
4550 print"[194]sicher ?(j/n)[151][194]"
4560 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
4570 geta$:ifa$=""then4570
4580 ifa$="j"then4610
4590 ifa$="n"then4350
4600 goto 4570
4610 clr:pl$="keine im speicher":goto40
4670 open2,8,2,pl$+",s,r"
4680 fori=1to30
4690 input#2,b$(i):input#2,c$(i)
4700 input#2,d$(i):input#2,e$(i)
4710 input#2,f$(i):input#2,g$(i)
4720 input#2,h$(i):input#2,i$(i)
4730 input#2,j$(i):input#2,k$(i)
4740 input#2,l$(i)
4770 next:close2
4775 open2,8,2,"^"+pl$+",s,r"
4776 fori=1to15:input#2,name$(i):next
4777 close 2
4790 goto 4350
4800 goto 4900
4805 geta$:ifa$=""then4805
4810 ifa$="[147]"ora$=""ora$=""ora$="[157]"ora$=""ora$="[145]"then4805
4820 ifa$="[133]"then4350
4830 ifa$=chr$(13)thenpl$=bu$::goto5010
4840 ifa$=chr$(20)andv<=0then4805
4850 ifa$=chr$(20)then4880
4860 ifv=>17thenv=17:goto 4805
4870 bu$=bu$+a$:v=v+1:goto4890
4880 bu$=left$(bu$,v-1):v=v-1
4890 print""bu$+"[164] ":goto4805
4900 print"[151]"
4910 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][174]"
4920 fori=1to10:print"[194] [194]":next
4930 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][189]"
4940 print""
4950 print"bitte geben sie den namen"
4960 print"der datei ein !!"
4970 print"[164]"
4980 print"[151][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][179]"
4990 print" f1 [146] ende ":v=1:bu$=""
5000 goto 4805
5010 open2,8,2,pl$+",s,r":close2
5020 open15,8,15:input#15,nr,ft$,tr,sk
5030 close 15
5040 ifnr<>00then5060
5050 goto4670
5060 print"[151]"
5070 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
5080 fori=1to10:print"[194] [194]":next
5090 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
5100 print"[150]"
5110 print"fehleingabe !!!"
5120 geta$:ifa$=""then5120
5130 goto 4350
5140 print"[151]"
5150 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
5160 fori=1to8:print"[194] [194]":next
5170 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
5180 print""
5190 print"bitte geben sie den"
5200 print"namen der zu savenden"
5210 print"datei ein !"
5220 print"[164]":bu$="":v=1
5225 print"[151][171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
5226 print" f1 [146] ende"
5230 geta$:ifa$=""then5230
5240 ifa$="[147]"ora$=""ora$=""ora$="[145]"ora$="[157]"ora$="[157]"then5230
5250 ifa$="[133]"then100
5260 ifa$=chr$(20)andv=0then5230
5270 ifa$=chr$(13)thenpl$=bu$:goto5670
5275 ifa$=chr$(20)then5300
5280 ifv=>17thenv=17:goto5230
5290 bu$=bu$+a$:v=v+1:goto5310
5300 bu$=left$(bu$,v-1):v=v-1
5310 print""bu$+"[164] ":goto5230
5320 open15,8,15,"s:"+pl$:print#15,"s:^"+pl$:close15
5330 open2,8,2,pl$+",s,w"
5335 fori=1to30
5340 print#2,b$(i):print#2,c$(i)
5350 print#2,d$(i):print#2,e$(i)
5360 print#2,f$(i):print#2,g$(i)
5370 print#2,h$(i):print#2,i$(i)
5380 print#2,j$(i):print#2,k$(i)
5390 print#2,l$(i)
5420 next:
5430 close 2:open2,8,2,"^"+pl$+",s,w"
5431 fori=1to15:print#2,name$(i):next
5432 close 2:goto100
5450 geta$:ifa$=""then5450
5455 ifa$=""thenzu=zu+1:goto5510
5460 ifa$="[145]"thenzu=zu-1:goto5510
5470 ifa$=""thensp=sp+1:goto5510
5480 ifa$="[157]"thensp=sp-1:goto5510
5490 ifa$=chr$(13)then5510
5491 ifa$="+"ora$="-"then460
5495 ifa$="[133]"then100
5500 goto 1115
5510 ifzu=0thenprint"":print" ":goto1450
5515 ifzu>11thenzu=11:goto5450
5520 ifzu<1thenzu=1:goto5450
5530 ifsp>2thensp=2:goto5450
5540 ifsp<1thensp=1:goto5450
5545 ifa$=""ora$="[157]"then5620
5550 print"":onspgoto5560,5580
5560 fori=1to11:print" ":next
5570 print"":fori=1tozu:print:next:print"_":goto5450
5580 print""
5590 fori=1to11:print" ":next
5600 print""
5610 fori=1tozu:print:next:print"_":goto5450
5620 onspgoto5650,5630
5630 print""
5640 fori=1to11:print" ":next:zu=1:goto5550
5650 print""
5660 fori=1to11:print" ":next:zu=1:goto5550
5670 fori=1to30:print""i:
5680 b$(i)=b$(i)+" "+chr$(13):c$(i)=c$(i)+" "+chr$(13):d$(i)=d$(i)+" "+chr$(13)
5690 e$(i)=e$(i)+" "+chr$(13):f$(i)=f$(i)+" "+chr$(13):g$(i)=g$(i)+" "+chr$(13)
5700 h$(i)=h$(i)+" "+chr$(13):i$(i)=i$(i)+" "+chr$(13):j$(i)=j$(i)+" "+chr$(13)
5710 k$(i)=k$(i)+" "+chr$(13):l$(i)=l$(i)+" "+chr$(13):next
5720 fori=1to15:name$(i)=name$(i)+" "+chr$(13):next:goto5320