home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1985 October
/
64er_Magazin_85-10_1985_Markt__Technik_de.d64
/
hypra-text
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
22KB
|
752 lines
0 goto10
1 ifpeek(198)>0thengeta$:return
2 gosub30600:goto1
3 print" + [194]itte warten + [201]ch a r b e i t e + ":return
4 poke908,0:poke918,30:poke920,11:poke917,36:poke924,0:a$="":return
5 sys50176,a$,a$:f=peek(913):return
9 goto30001
10 goto 22000
11 gosub31000:poke650,128:poke2,184
12 gosub40000
14 print:l$=a6$
15 kl=1:printchr$(14)
17 dima$(600):an=0:max=600
26 print"[147]";pt$;""
27 goto100
30 a$=left$(a$,len(a$)-1):return
31 ifright$(a$,1)=" "thengosub30:goto31
32 return
40 a$=left$(a$(t),len(a$(t))-1):return
70 rem ** unterprogramm **
71 print:print"[199]eben sie ein,von welcher [218]eilennr (0=[193]nfang)"
72 inputv:ifv=0thenv=1
73 print"[199]eben sie ein,bis zu welcher [218]eilennr (0=[197]nde)"
74 inputb:ifb>maxthenprint"[218]u gross !":goto74
75 ifb=0thenb=an
79 return
80 print"":return
90 printleft$(a6$,mb):return
95 gosub80:fori=1to4:gosub90:next:gosub80:return
100 print"[147]";pt$;:close2:close15:close5:poke198,0:ba=0:dr=0:br=0:sp=0
101 ifan/max>0.7thenb1$=""+str$(int((an/max)*100))+" % [214][207][204][204] !!![146]":x=fre(9)
102 ifan/max>0.7thenb2$="[5] = [211]peichern[146]":b3$="[193][195][200][212][213][206][199][146]":sp=1
103 v$(50)=d$:v$(47)=ba$:v$(46)=str$(rr):v$(45)=str$(rr+rr*(mw/100))
104 v$(44)=str$(rr*(mw/100))
105 poke54296,0:ifpeek(1022)=200thenam=2
107 print"";pt$;
109 poke53265,27
110 print" [196]atum: ";d$
111 gosub300:print""
112 print" [221] [211]ystem [146] :";b1$
113 print" [221] [197]mpfehlung[146] :";b2$
114 print" [221] [146] :";b3$
115 print" [221] [212]ext name :";t1$
116 print" [221] [208]latz :";max-an;"[218]eilen frei"
120 rem ** menu **
125 print"-1- [212]ext erstellen"
130 print"-2- [212]ext aendern"
132 print"-3- [208]rofiprint laden"
134 print"-4- [194]ildschirmausgabe"
135 print"-5- [193]rbeiten mit [196]iskette "
136 print"-6- ";fu$
137 print"-7- [193]rbeiten mit [214]ariablen"
145 print"[196]ie [198]unktionstasten"
147 print"f1= [197]ingabe f3=[194]ildschirmausgabe"
148 print"f5= [197]nde ";
149 ifsp=1thengosub30601
150 geta$:ifa$=""then150
154 ifa$="[134]"then7000
155 ifa$="[133]"then1015
156 ifa$="[135]"then8000
197 ifval(a$)<1orval(a$)>8then150
199 x=val(a$):onxgoto1000,2000,56100,7100,5000,20000,9700
200 goto 100
260 return
300 rem ** bs aufbau **
301 ifba=1thenreturn
310 a1$=" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
320 a2$=" [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
330 a3$=" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
340 a4$=" [221][221]"
350 print"":printa1$:printa4$:printa4$:printa4$:printa2$
360 printa4$:printa4$:printa2$
370 fort=1to9:printa4$:next:printa2$
380 printa4$:printa4$:printa4$:printa3$;
499 ba=1:return
1000 print"[147]";pt$
1001 print" * * [212]extprogramm * * [197]ingabe * * [146]";:ta=0:ta$=""
1003 print"=1= [197]ingabe des [212]extes"
1004 print"=2= [197]ingabe des [212]extnames"
1005 print"=3= [197]ingabe ueber [205]aske"
1007 print"=4= [212]ext loeschen"
1008 print"=5= [196]en [212]ext ausfuellen":print"=6= [197]ingabe [212]abulatorzeile"
1009 gosub1
1010 ifa$="0"ora$="[133]"then100
1011 b1$="[193]endern [2]":b2$="[211]peichern [5]":t=val(a$)
1013 ift=0then1009
1014 ontgoto1015,1850,33000,1300,9400,1830,100
1015 print"[147]";pt$:print" * * [212]extprogramm * * [197]ingabe * * [146]";:ta=0
1016 b1$="[193]endern [2]"
1017 b2$="[211]peichern [5]"
1018 b3$="[193]nsehen [f3]"
1020 a=an:goto2014
1040 ifk1$="[212][193][211][212][197][206][146] f7=[200][197][204][208] f5=[218]eile hoch"then1050
1046 k1$="[212][193][211][212][197][206][146] f7=[200][197][204][208] f5=[218]eile hoch"
1047 k2$="[200]ome = [212]abulator [210][197][212][213][210][206]=[218]eile runter"
1048 k3$="crsr hoch = [215]ort vor :crsr => rechts"
1049 k4$="crsr runter=[215]ort zurueck:crsr <= links":return
1050 k1$="[198]unktionst.[146] f1=[197]nde : f2=[197]infuegen"
1051 k2$="f3= [218]eilen [204]oeschen : f4=[194]lock copieren"
1052 k3$="f5=[218]eile hoch : f6=[211]eite +/-"
1053 k4$="f7=[200][197][204][208] [146] : f8=[194]lock laden":return
1100 fori=g8tomax
1110 gosub1400
1120 iflen(a$(i+1))<m8thenreturn
1130 next:return
1300 gosub1301:goto1000
1301 print"[147]";pt$;" [212]ext loeschen "
1302 print"[194]ist du sicher? [j/(n)] ":gosub1:ifa$<>"j"then100
1305 print"":fort=1tomax:print"[145]";t:a$(t)="":next
1310 an=0:return
1400 b=len(a$(i)):fora=m8to1step-1
1410 ifmid$(a$(i),a,1)=" "ormid$(a$(i),a,1)="[160]"then1430
1420 next:print"[218]eile zu lang:fehler":return
1430 a$(i+1)=right$(a$(i),b-a)+" "+a$(i+1):a$(i)=left$(a$(i),a)
1450 return
1460 print"[147]":fort=0toan:printa$(t):next:print"[145][145]"
1470 return
1830 print"[147]";pt$
1831 input"[205]aximale [218]eilelaenge (39)";m8:gosub1832:goto1000
1832 m8=m8+2:ifm8<10thenm8=39
1833 print"[147]";pt$:print"[197]ingabe [212]abulatorzeile":print"!=[211]tart +=[212]ab.[211]top -=[206]icht
1834 t7$[178][200](t7$,[195](t7$)[171]1)
1835 a$[178][200](t7$,m8):[141]9:t7$[178]a$
1840 m8[178]m8[171]2:t7$[178][200](t7$[170]"----------------------------------------",m8[171]1)
1841 [129]t[178]1[164][195](t7$):[139][202](t7$,t,1)[178]"!"[167]cb[178]t
1842 [130]:t7$[178]t7$[170]"!":[151]917,m8
1845 [142]
1850 [153]"load(NULL)extname":a$[178]t1$:[141]9:t1$[178]a$:[137]1000
2000 [153]"load";pt$
2001 [153]" + + (NULL)extprogramm + + atnendern + + wait";:[153]"atnendern [1]wait"
2002 [153]" >0< (NULL)enu":[153]" >1< (NULL)ext aendern"
2003 [153]" >2< (NULL)ort tausch"
2005 [153]" >3< (NULL)ext loeschen"
2006 [141]1
2008 [139]a$[178]"0"[176]a$[178]"input"[167]100
2009 b1$[178]"(NULL)peichern [5]":b2$[178]"atnnsehen [f3]":b3$[178]"left$ilfe [f7]"
2010 t[178][197](a$):[139]t[179]1[176]t[177]3[167]2006
2011 [145]t[137]2012,2900,1300
2012 [141]80:[153]" 0 = valnde : 1 = atnnfang"
2013 [133]"atnb (NULL)eile";a:a[178]a[171]1:[139]a[178][171]1[167]a[178]an
2014 [141]1046
2020 a[178]a[170]1:[139]a[177]an[167]an[178]a
2030 [139]a[179]1[167]a[178]1
2031 y[178]t:a$[178]a$(a)
2040 ee[178]1:a$[178]a$(a):g8[178]a:[141]30000
2041 [139]u9[178]1[167]a$(a[170]1)[178][200](a6$,cb[171]1)[170]r$[170]" "[170]a$(a[170]1):u9[178]2
2050 a$(a)[178]a$:[139][195](a$(a))[177]m8[167]2040
2060 [139]a$(a)[178]">"[167]a$(a)[178]""
2061 pp[178]a:[139]f[178]3[167]2600
2062 [139]f[178]7[167][141]1040:[137]2030
2063 [139]in[178]1[175]f[179][177]0[167]in[178]0:[141]2560:[139]f[178]1[167]f[178]0
2064 [139]f[178]1[167]ee[178]0:[137]100
2065 [139]f[178]6[167]2200
2070 [139]in[178]1[167][141]2350
2071 [139]f[178]2[167]2500
2072 [139]f[178]4[167]2800
2073 [139]f[178]8[167]2100
2075 [139]f[178]5[167]a[178]a[171]1:[137]2030
2080 a$[178]a$(a):y[178]t:[137]2020
2100 [153]" * * (NULL)extprogramm * * peeklock laden * *"
2110 [141]95:[141]4:[151]920,22
2120 [153]"(NULL)ame des peeklockes":[141]5:[139]f[178]1[167]2020
2121 a$[178]">"[170]ba$[170]"??????"[170]a$
2125 [160]2:[160]5:[159]2,fa,15:[159]5,fa,2,a$[170]",s,r":[141]34000:[139]en[179][177]0[167]2100
2130 [132]5,z:[141]2530
2140 [129]t[178]1[164]z:[141]34100:[141]34000:[139]a$[178]">"[167]a$[178]""
2150 a$(pp[170]t)[178]a$:[130]:[160]2:[160]5:a[178]a[170]z:[141]2560:[137]2020
2200 [141]95
2201 [153]"f5= (NULL)eite + "
2202 [153]"f6= (NULL)eite - "
2203 [153]"peekitte waehlen"
2210 [141]1:[139]a$[178]"input"[167]a[178]a[171]1:[137]2020
2220 [139]a$[178]"read"[167]a[178]a[170]10:[137]2020
2230 [139]a$[178]"if"[167]a[178]a[171]12:[137]2020
2240 [137]2210
2300 z[178]1:[141]2530
2320 a$(a[170]1)[178][201](a$(a),[195](a$(a))[171][194](925)):cc[178]999:in[178]1
2330 a$(a)[178][200](a$(a),[194](925))
2340 [139][200](a$(a[170]1),1)[178]" "[167]a$(a[170]1)[178][201](a$(a[170]1),[195](a$(a[170]1))[171]1):[137]2340
2345 a$(a)[178]a$(a)[170]"close":a[178]a[171]1:[137]2360
2350 z[178]1:[141]2530
2360 [153]"!!! (NULL)extprogramm !!! atnufschiebemodus !!!":[142]
2500 [153]" * * (NULL)extprogramm * * atnufschieben * *":[141]2510:[137]2020
2510 [141]95
2511 [153]"f3 = (NULL) - (NULL)eilen f5 = bis [f1]"
2512 [141]1:[139]a$[178]"input"[167]2560
2513 [139]a$[178]"read"[167]2300
2520 [153]"(NULL)ieviele (NULL)eilen":[133]z:pp[178]pp[171]1:a[178]a[171]1
2530 [129]o[178]an[170]z[164]pp[170]z[169][171]1
2540 a$(o)[178]a$(o[171]z):[130]
2550 [129]o[178]pp[170]1[164]pp[170]z:a$(o)[178]"":[130]:an[178]an[170]z
2560 [153]" + (NULL)extprogramm + valingabe / atnendern + ":[142]
2600 [153]" * * (NULL)extprogramm * * (NULL)oeschen * * "
2610 [141]95
2620 [153]"(NULL)ieviele (NULL)eilen":[133]z
2630 [129]o[178]pp[164]an[170]z
2640 a$(o)[178]a$(o[170]z):[130]
2650 [129]o[178]an[171]z[164]an:a$(o)[178]"":[130]:an[178]an[171]z:[141]2560:a[178]a[171]1:[137]2020
2800 [153]" * * (NULL)extprogramm * * lenopieren * *":z[178]0:z1[178]0
2810 [141]95:[153]"(NULL)arkieren sie das untere valnde mit [f3]"
2820 [153]"[f1] = valnde : [f3] = (NULL)arkieren"
2825 [153]"[f5] = hoch : [f7] = runter"
2829 z[178]1
2830 [139]z[170]pp[179]1[176]z[170]pp[177]max[167]z[178]1
2831 g9[178]pp[170]z[171]6:[141]30705:[151]781,11:[151]782,0:[158]58636
2832 [153]"";a$(pp[170]z);"wait"
2833 [141]1:[139]a$[178]"input"[167]2030
2834 [139]a$[178]"read"[167]z[178]z[171]1
2835 [139]a$[178]"let"[167]z[178]z[170]1
2836 [139]a$[178]"dim"[167]2850
2840 [137]2830
2850 [139]z1[178]0[167]z1[178]z:[141]80:[153]"(NULL)arkieren sie wohin der peeklock soll ":[137]2830
2860 z2[178]pp[170]z[171]1
2881 g9[178]pp[170]z[171]6:[141]30705:[151]781,11:[151]782,0:[158]58636
2886 [129]t[178]pp[164]pp[170]z1:a$(((t[170]1)[171]pp)[170]z2)[178]a$(t):[130]
2887 [139]an[179]((t[170]1)[171]pp)[170]z2[167]an[178]((t[170]1)[171]pp)[170]z2
2890 [137]7000
2900 [153]"load(NULL)ach welchem (NULL)ort soll gesucht werden":a$[178]""
2901 [141]9:c$[178]a$:[139]f[179][177]0[167]100
2902 [153]"load(NULL)elches (NULL)ort soll dafuer eingesetzt werden":[141]9:b$[178]a$
2903 [153]"load";pt$;" (j) = atnendern (n)=(NULL)assen"
2910 l1[178][195](c$):l2[178][195](b$):l3[178]l2[171]l1
2920 [129]t[178]1[164]an[170]1:x[178]0:g[178]1:cc[178]0:[141]30400
2921 [139]cc[178]999[167][141]2960:cc[178]0
2925 x[178][195](a$(t)):[139]x[178]0[167][130]:[137]100
2930 [129]g[178]1[164]x
2935 [139][202](a$(t),g,l1)[179][177]c$[167][130]:[130]:[137]100
2939 [153]"";a6$;a6$;a6$
2940 [153]"";[201](" "[170][196](t),3);" ";[200](a$(t),g[171]1)[170]""[170]c$[170]"wait";
2941 [153][201](a$(t),[195](a$(t))[171]g[171][195](c$)[170]1)
2942 [141]1:[139]a$[178]"n"[167]2950
2945 a$[178][200](a$(t),g[171]1)[170]b$[170][201](a$(t),x[171](g[170]l1)[170]1):x[178]x[170]l3:[141]30400:a$(t)[178]a$
2946 [139]cc[178]999[167][141]2960
2950 [130]:[130]:[137]100
2960 a$(t)[178]a$:a$(t[170]1)[178]r$[170]" "[170]a$(t[170]1):[139][195](a$(t[170]1))[179]m8[167][142]
2970 z[178]1:pp[178]t[170]1:[141]2530:a$[178]a$(t[170]1):[141]30400:a$(t[170]1)[178]a$:a$(t[170]2)[178]r$:[142]
4000 [153]"load";pt$
4001 [153]" + (NULL)ariablen aus der str$ateiverwaltung + "
4002 [153]"-1- (NULL)ach (NULL)ummer"
4011 [153]"-2- (NULL)ach (NULL)amen"
4020 [141]1:[139]a$[178]"input"[167]100
4030 [139]a$[178]"1"[167][133]"(NULL)ummer";y:[137]4499
4040 [153]"load";pt$:[153]"(NULL)ame":[141]4:[141]5:b$[178]a$:[139]f[178]1[167]100
4050 [141]4100:[139]f[179][177]999[167]4499
4060 [137]4230
4100 [160]2:[159]2,fa,15:[159]5,fa,2,"ad,s,r":[141]34000:[139]er[179][177]0[167]100
4110 [141]34100:[132]5,a
4120 [139][200](a$,[195](b$))[178]b$[167][160]2:[160]5:y[178]a:[142]
4150 [139](st [175] 64)[178]64[167][160]2:[160]5:[137]4200
4160 [137]4110
4200 f[178]999:[153]"load";pt$
4210 [153]"str$atensatz ";b$
4220 [153]"nicht vorhanden.":[142]
4230 [153]"peekitte [f1] druecken":[141]1:[137]100
4499 [141]4500:[137]4560
4500 [160]2:[160]5
4501 hb[178][181](y[173]256):lb[178]y[171]hb[172]256
4510 [159]2,fa,15:[159]5,fa,2,"asalem,l,"[170][199](254)
4520 [152]2,"p"[170][199](2)[170][199](lb)[170][199](hb)[170][199](1)
4522 [132]2,en
4525 [139]en[179][177]0[167][153]"val(NULL)(NULL)(NULL)(NULL) ascalsche str$iskette !!!":[142]
4530 b[178]20:[141]4700:[141]4750:v$(1)[178]b$
4531 b[178]20:[141]4700:[141]4750:v$(2)[178]b$
4532 b[178]20:[141]4700:[141]4750:v$(3)[178]b$
4533 b[178]4:[141]4700:v$(4)[178]b$
4534 b[178]20:[141]4700:[141]4750:v$(4)[178]v$(4)[170]" "[170]b$
4536 b[178]16:[141]4700:v$(5)[178]b$
4537 b[178]2:[141]4700:v$(6)[178]b$[170]".":[141]4700:v$(6)[178]v$(6)[170]b$[170]".":b[178]4:[141]4700
4538 v$(6)[178]v$(6)[170]b$:b[178]10:[141]4700:v$(7)[178]b$
4539 b[178]2:[141]4700:v$(8)[178]b$
4542 b[178]10:[141]4700:v$(9)[178]b$
4544 b[178]10:[141]4700:v$(10)[178]b$
4546 b[178]20:[141]4700:[141]4750:v$(11)[178]b$
4548 b[178]20:[141]4700:v$(12)[178]b$
4549 b[178]20:[141]4700:[141]4750:v$(13)[178]b$
4550 b[178]20:[141]4700:[141]4750:v$(14)[178]b$
4555 [160]2:[160]5:[142]
4560 [153]"load";pt$:[153]"str$atensatz ";v$(2)
4561 [139]ba$[179][177]v$(8)[175]pr[178]0[167]v$(7)[178]"passwort geschuetzt"
4565 [153]:[129]t[178]1[164]14:[153]v$(t):[130]:[153]"peekitte [f1] druecken":[141]1:[137]100
4599 [137]100
4700 [151]917,b[171]1:[151]915,5:[158]50182,b$
4740 [139][201](b$,1)[178]" "[167]b$[178][200](b$,[195](b$)[171]1):[137]4740
4749 [142]
4750 a$[178][200](b$,1):[139][198](a$)[179]65[176][198](a$)[177]90[167][142]
4760 b$[178][201](b$,[195](b$)[171]1):b$[178][199]([198](a$)[170]32)[170]b$:[142]
5000 [137]5500
5001 [153]"load";pt$:[153]"(NULL)aden von str$iskette"
5010 [153]" -1- (NULL)ext loeschen und neuen (NULL)ext laden"
5020 [153]" -2- left$inter alten (NULL)ext laden"
5021 [153]" -3- (NULL)istings laden"
5025 [153]"peekefehl";
5030 [141]1
5040 [139]a$[178]"input"[167]100
5041 b1$[178]"atnnsehen [f3]":b2$[178]"atnendern [2]"
5042 [139]a$[178]"1"[176]a$[178]"3"[167][141]1305:[137]5050
5043 [139]a$[178]"2"[167]5050
5045 [137]5030
5050 [153]"-";a$;"-":i[178]0:[139]a$[178]"3"[167]i[178]999
5060 [153]"load(NULL)ame der str$atei":a$[178]"":[141]9:t1$[178]a$:b$[178]a$:[139]f[178]1[167]100
5061 [139][200](a$,1)[179][177]"@"[167]5066
5062 a$[178][201](a$,[195](a$)[171]1):t[178][197](a$):a$[178]v$(30[170]t)
5063 [139]t[177]b[176]b[178]0[167]5060
5064 [137]5100
5066 [153]"atnufzeichnungsdatum:":a$[178]"??????":[141]9
5070 [139]pr[179][177]1[167]a$[178]">"[170]ba$[170]a$[170]b$
5071 [139]pr[178]1[167]a$[178]b$
5100 [143]
5102 [159]2,fa,15,"i0"
5103 [141]34000
5104 [159]5,fa,5,"0:"[170]a$[170]",s,r"
5105 ax[178]0:[141]34000:[139]en[178]62[167]100
5106 [139]i[178]999[167]5200
5107 [132]5,ax:[129]t[178]1[164]ax
5110 [143]
5111 [141]34100:a$(t[170]an)[178]a$:[139]a$(t[170]an)[178]">"[167]a$(t[170]an)[178]" "
5112 [141]34000
5113 [161]a$:[139]a$[178]"input"[167][160]2:[160]5:[137]100
5114 [130]
5115 an[178]an[170]ax
5120 [160]2:[160]5:[137]100
5200 [143]
5210 an[178]an[170]1
5211 [161]a$:[139]a$[178]"input"[167][160]2:[160]5:[137]100
5220 [141]34100:a$(an)[178]a$:[139]st[179][177]64[167]5210
5230 [160]2:[160]5:[137]100
5400 [153]"load";pt$:[153]"(NULL)ergleichen von str$iskette"
5401 a$[178]t1$:[153]"(NULL)ame":[141]9:[139]f[178]1[167]100
5402 [159]2,fa,15,"i0":[141]70
5403 [141]34000:[139]pr[179][177]1[167]a$[178]">"[170]ba$[170]"??????"[170]a$
5404 [159]5,fa,5,"0:"[170]a$[170]",s,r"
5405 [141]34000:[139]en[179][177]0[167]100
5407 [132]5,ax:[139]b[179][177]0[175]ax[179][177]b[171]v[167][153]"(NULL)eilenanzahl falsch"
5408 [129]t[178]1[164]ax
5410 [141]34100:[139]a$[178]">"[167]a$[178]" "
5412 [153]a$:[151]198,0:[146]198,1:[161]a$:[139]a$[178]"input"[167]5420
5413 [141]34000
5415 [130]
5420 [160]2:[160]5:[153]"(NULL)aste druecken":[141]1:[137]100
5500 [153]"load";pt$
5501 [153]" + (NULL)enu str$isketten-(NULL)perationen + "
5502 [153]" laden [4]"
5503 [153]" speichern [5]"
5510 [143]
5520 [153]" -0- (NULL)enu"
5521 [153]" -1- (NULL)ext vergleichen"
5525 [153]" -2- (NULL)ext umbenennen"
5527 [153]" -3- (NULL)ext loeschen"
5529 [153]" -4- (NULL)ext laden"
5530 [153]" -5- (NULL)ext speichern"
5532 [153]" -6- right$nhaltsverzeichnis"
5534 [139]pr[178]1[167][153]" -7- str$isk formatieren"
5536 [139]pr[178]1[167][153]" -8- str$isk (NULL)ame + right$str$ aendern"
5550 [141]1
5551 [139]a$[178]"0"[176]a$[178]"input"[167]100
5552 [139][197](a$)[178]0[167]5500
5553 [145][197](a$)[137]5400,5650,5700,5001,6000,5800,5600,5900
5555 [142]
5600 [153]"load";pt$:pa$[178]"":[139]pr[178]0[167]100
5610 [153]" str$ i s k e t t e asc o r m a t i e r e n "
5630 a$[178]"str$isketten (NULL)ame":[141]9:b$[178]a$:[139]f[178]1[167]100
5631 [153]"(NULL)chuetzen?":a$[178]"n":[141]9:[139]a$[178]"j"[167][133]"(NULL)asswort";pa$
5633 [139]a$[178]"j"[175][195](pa$)[179]10[167]pa$[178]pa$[170][199](0):[137]5633
5634 a$[178]"id"
5635 [153]"str$isketten right$str$ ":[141]9:id$[178]a$:a$[178][200](b$[170]"................",16)
5640 id$[178][200](id$[170]"te",2)
5641 [141]3
5642 [159]2,fa,15,"n:"[170]a$[170]","[170]id$:[160]2:[139]pa$[178]""[167][137]100
5643 [159]15,fa,15,pr$:[159]2,fa,2,"#"
5644 [152]15,"b-r 2 0 18 0":[152]15,"b-p 2 164"
5645 [152]2,[199](0)[170][199](0)[170][199](0):[152]15,"b-p 2 180":[152]2,pa$
5646 [152]15,"b-p 2 2":[152]2,"o";
5647 [152]15,"b-w 2 0 18 0":[160]2:[160]15:[137]100
5650 [153]"load";pt$:[153]" + (NULL) e x t u m b e n e n n e n + "
5651 [153]"atnlter (NULL)ame":a$[178]"":[141]9:[139]f[178]1[167]100
5652 b$[178]a$:a$[178]"ttmmjj":[153]"str$atum":[141]9
5655 c$[178]a$:[153]"(NULL)euer (NULL)ame":[141]9
5656 [139]pr[178]1[167][141]3:a$[178]">"[170]a$:b$[178]">"[170]b$
5657 [139]pr[178]0[167][141]3:a$[178]">"[170]ba$[170]da$[170]a$:b$[178]">"[170]ba$[170]c$[170]b$
5660 [159]2,8,15,pr$
5670 [152]2,"r:"[170]a$[170]"="[170]b$:[141]34000:[160]2:[137]100
5700 [153]"load";pt$:[153]" + (NULL) e x t l o e s c h e n + "
5715 [153]"(NULL)ame":[141]9:b$[178]a$:[139]f[178]1[167]100
5716 a$[178]"??????":[153]"str$atum ":[141]9:[141]3
5717 [139]pr[179][177]1[167]a$[178]">"[170]ba$[170]a$[170]b$
5718 [139]pr[178]1[167]a$[178]">"[170]b$
5719 [159]2,fa,15,pr$
5720 [152]2,"s0:"[170]a$:[160]2:[137]100
5800 [160]15:[160]2:[159]15,fa,15,"i":[153]"load";pt$
5801 [153]"load";pt$:[153]" + right$nhaltsverzeichnis der str$iskette + "
5810 [159]2,fa,2,"#"
5811 [152]15,"b-r 2 0 18 0":[152]15,"b-p 2 165"
5812 [161]#2,a$:[139]a$[179][177]""[167]5816
5813 [152]15,"b-p 2 180":pa$[178]"":[129]t[178]1[164]10:[161]#2,a$:pa$[178]pa$[170]a$:[130]
5814 [153]"str$ie str$iskette ist geschuetzt: chr$eben (NULL)ie das (NULL)asswort ein"
5815 [133]a$:[139]a$[179][177]pa$[167][160]2:[160]15:[137]100
5816 b$[178]"":x[178]999:[141]5910:x[178]0:b$[178]"dim"
5817 [139]a$(2)[178]"inhalt"[167]an[178]an[170]2:a$(an)[178]id$[170]" "[170]n$:an[178]an[170]1
5820 t[178]18:s[178]1:b[178]0
5821 [141]5898
5830 [152]15,"u1 2 0";t;s
5840 v[178]0
5841 [161]#2,x$:x$[178]x$[170][199](0):t[178][198](x$)
5842 [161]#2,x$:x$[178]x$[170][199](0):s[178][198](x$)
5845 [129]x[178]0[164]7:[152]15,"b-p 2";x[172]32[170]2
5846 [161]#2,x$,a$:z[178][198](x$[170][199](0)):[139]z[179][177]8[172]16[170]1[175]pr[178]0 [167]5855
5847 [141]5890
5848 [139]b[178]10[167]b[178]0:[153]"peekitte f3 druecken":[146]198,1:[161]b$:[141]5898
5849 [139]b$[178]"input"[167]100
5850 x$[178]"seq ":[139]z[179][177]0[175]pr[178]1[167][141]5870
5851 [139]pr[178]0[175]z[179][177]0[167][153]" ";b,"cmd";ff$:v$(30[170]b)[178]c$
5852 [139]pr[178]1[167][153]" ";x$,ff$
5855 [130]x
5856 [139]t[179][177]0[167]5830
5860 [153]"peekitte f1 druecken":[141]1
5865 [137]100
5870 [139]z[178]130[167]x$[178]"prg "
5871 [139]z[178]129[167]x$[178]"seq "
5872 [139]z[178]194[167]x$[178]"prg<"
5873 [139]z[178]131[167]x$[178]"usr "
5874 [139]z[178]193[167]x$[178]"seq<"
5875 [139]z[178]195[167]x$[178]"usr<"
5880 [139]a$(1)[178]"p"[175]z[179][177]130[175]z[179][177]194[167][142]
5881 [139]a$(2)[179][177]"inhalt"[167][142]
5885 an[178]an[170]1:a$(an)[178]id$[170]" "[170]x$[170]ff$:[142]
5888 [137]100
5890 [139]pr[178]1[167]5897
5891 [161]#2,a$,a$:[139]a$[179][177]">"[167]z[178]0:[142]
5892 [161]#2,a$,b$:ff$[178]a$[170]b$:[139]ff$[179][177]ba$[175]ba$[179][177]"--"[167]z[178]0:[142]
5893 c$[178]">"[170]a$[170]b$:[161]#2,a$,b$:ff$[178]ff$[170]" "[170]a$[170]b$[170]".":c$[178]c$[170]a$[170]b$
5894 [161]#2,a$,b$:ff$[178]ff$[170]a$[170]b$[170]".":c$[178]c$[170]a$[170]b$
5895 [161]#2,a$,b$:ff$[178]ff$[170]a$[170]b$[170]" close":c$[178]c$[170]a$[170]b$
5896 [129]y[178]1[164]7:[161]#2,a$:c$[178]c$[170]a$:ff$[178]ff$[170]a$:[130]y:b[178]b[170]1:[142]
5897 ff$[178]"":[161]#2,a$:[129]y[178]0[164]15:[161]#2,a$:ff$[178]ff$[170]a$:[130]:b[178]b[170]1:[142]
5898 [153]"load";pt$:[153]"str$isk: ";n$;" right$str$:";id$;""
5899 [153]" (NULL)r. (NULL)er str$atum (NULL)ame":[142]
5900 [139]pr[178]0[167]100
5901 [153]"load";pt$:[153]"atnendern des str$isknamens oder der str$isk right$str$"
5902 [153]"str$ie zu atnendernde str$iskette einlegen und":[153]" [f3] druecken"
5903 [151]198,0:[141]1:[139]a$[179][177]"dim"[167]100
5908 b$[178]""
5909 [159]15,8,15,"i":[152]15,pr$:[159]2,8,2,"#"
5910 [152]15,"b-r 2 0 18 0":[152]15,"b-p 2 144":[129]t[178]1[164]20:[161]#2,a$:b$[178]b$[170]a$:[130]
5920 n$[178][200](b$,16):id$[178][201](b$,2)
5921 [139]x[178]999[167][142]
5925 [153]"(NULL)ame ";n$:[133]"on(NULL)ame";n$
5927 [153]"right$str$ ";id$:[133]"onright$str$ ";id$
5930 n$[178]n$[170]"closeclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclose":id$[178]id$[170]"++":n$[178][200](n$,16):id$[178][200](id$,2)
5940 [152]15,"b-p 2 144":[152]2,n$;id$;:[152]15,"b-w 2 0 18 0"
5945 [160]2:[160]15
5950 [133]"(NULL)asswort";pa$:[139]pa$[178]"0"[167]100
5960 [139][195](pa$)[179]10[167]pa$[178]pa$[170][199](0):[137]5960
5970 [137]5643
6000 [153]"load";pt$:[153]"+ + (NULL) e x t atn u f z e i c h n e n + +"
6001 [153]"(NULL)extname: ";t1$
6002 [153]" [f1]=valnde [=] = (NULL)extname"
6004 a$[178]"=":[141]9:[139]f[178]1[167]100
6005 [139]a$[178]"="[167]a$[178]t1$:[139]t1$[178]""[167][153]"(NULL)ame fehlt":[137]6004
6006 t1$[178]a$:b$[178]">"[170]ba$[170]"??????"[170]a$
6007 [153]"atnlle (NULL)orgaenger loeschen (j/n)?":[141]1
6008 [139]a$[178]"j"[167][159]2,8,15,"s:"[170]b$:[160]2
6009 b1$[178]"str$rucken [3]":b2$[178]"valnde [f5]"
6015 a$[178]t1$:[141]70
6016 t1$[178]a$:[159]2,fa,15,"i0":a$[178]">"[170]ba$[170]da$[170]a$:[152]2,pr$
6017 [141]34000
6018 [159]5,fa,5,"@0:"[170]a$[170]",s,w"
6021 [141]34000
6022 ax[178]b[171]v:[152]5,[196](ax)
6024 [129]t[178]v[164]b:[139]a$(t)[178]""[176]a$(t)[178]" "[167]a$(t)[178]">"
6030 [152]5,a$(t):[139]a$(t)[178]">"[167]a$(t)[178]""
6031 [141]34000
6032 [130]:[160]2:[160]5:[137]100
7000 t[178]0:x[178]0
7002 [139]x[179]0[167]x[178]0
7003 [141]7030:[129]t[178]1[164]20
7004 [153]"";[201]([196](t[170]x[172]20),1);"wait";a$(t[170]x[172]20)
7006 [130]t
7007 [153]"f1=valnde f3=(NULL)eite + f5=(NULL)eite - "
7008 b1$[178]"atnendern [2]"
7009 b2$[178]"(NULL)peichern [5]":b3$[178]"left$ilfe [f7]"
7010 [141]1
7011 [139]a$[178]"input"[167]100
7012 [139]a$[178]"read"[167]x[178]x[171]1:[139]x[177][178]0[167]7002
7013 [139]a$[178]"dim"[167]x[178]x[170]1:[139]x[172]20[179]an[167]7002
7014 [139]x[172]20[177][178]an[167]x[178]0:[137]7002
7015 [139]x[179]0[167]x[178][181](an[173]20):[137]7002
7020 [137]7010
7030 [153]"load +(NULL) e x t 6 4 +peekildschirm+(NULL)eile "
7031 [153]" +(NULL) e x t 6 4 +peekildschirm+(NULL)eile";x[172]20;"-"
7032 [142]
7100 [153]"load";pt$:[153]" + + peekildschirmausgabe + + "
7105 [133]"atnb (NULL)eile";x:[139]x[179]1[176]x[177]an[167]x[178]1
7106 x[178][181](x[173]20):[137]7002
8000 [153]"load";pt$
8002 g[178]0
8006 [153]" -1- (NULL)eustart des (NULL)rogramms"
8007 [153]" -2- right$nfo ueber (NULL)peicherplatz"
8008 [153]" -3- (NULL)on aus"
8009 [153]" -4- (NULL)on an"
8010 [141]1
8011 [139]a$[178]"1"[167]10000
8013 [139]a$[178]"0"[176]a$[178]"input"[167]100
8014 [139]a$[178]"1"[167][138]
8015 [139]a$[178]"2"[167][153][184](9);"(NULL)eichen frei":[153]" (NULL)aste druecken":[141]1:[137]26
8016 [139]a$[178]""[167][133]"code";a$:[139]a$[178]"susi"[167]55555
8017 [139]a$[178]""[175](ba$[178]"--"[176]ba$[178]"of")[167]pr[178]1:[153]"(NULL)rog ok":[141]1:[137]100
8018 [139]a$[178]""[167]pr[178]0:[153]"(NULL)rogrammierer aus":[141]1:[137]100
8019 [139]a$[178]"3"[167]t9%[178]1:[153]"(NULL)on aus":[137]100
8020 [139]a$[178]"4"[167]t9%[178]0
8021 [139]a$[178]""[175]pr[178]1[167][128]
8099 [137]100
9400 [143]*** fill ***
9401 [153]"load";pt$:[153]" * * (NULL)extprogramm * * atnusfuellen * * "
9407 f2[178]0:[153]"(NULL)eben den (NULL)ext [j/n]":[141]1:[139]a$[178]"j"[167]f2[178]1
9408 [139]a$[178]"input"[167]100
9409 [139]f2[178]1[167][153]"(NULL)inks/(NULL)echts [l/r]":[141]1:g[178]1:[139]a$[178]"r"[167]g[178]2
9410 [141]70
9421 [133]"(NULL)chrittweite";s:[139]s[179][178]0[167]9421
9429 [153]"load(NULL)as ?"
9430 a$[178]"":[141]9:[139]f[178]1[167]100
9440 [139]b[177]an[167]an[178]b
9450 [129]t[178]v[164]b[169]s
9452 [139]f2[178]0[167]a$(t)[178]a$
9453 [139]f2[178]1[175]g[178]1[167]a$(t)[178]a$[170]a$(t)
9454 [139]f2[178]1[175]g[178]2[167]a$(t)[178]a$(t)[170]a$
9455 [130]:[137]7000
9689 [142]
9700 [153]"load";pt$;""
9710 [153]" 1 (NULL)ariablen zeigen"
9712 [153]" 2 (NULL)ariablen eingeben"
9713 [153]" 3 (NULL)ariablen an"
9714 [153]" 4 (NULL)ariablen aus"
9715 [153]" 5 (NULL)ariablen zu (NULL)ext"
9717 [153]" 6 (NULL)ariablen als (NULL)ext 1-50"
9718 [153]" 7 (NULL)ext als (NULL)ariablen 1-50"
9719 [153]" 8 (NULL)ariablen aus str$ateiverwaltung"
9750 [141]1
9755 [139]a$[178]"0"[176]a$[178]"input"[167]100
9760 [145][197](a$)[137]9800,9900,9780,9785,9850,9790,9795,4000
9770 [137]9750
9780 v9[178]1:[153]"(NULL)ariablen an":[129]t[178]1[164]999:[130]:[137]9700
9785 v9[178]0:[153]"(NULL)ariablen aus":[129]t[178]1[164]999:[130]:[137]100
9790 [129]t[178]1[164]50:a$(t)[178]v$(t):an[178]50:[130]:[137]100
9795 [129]t[178]1[164]50:v$(t)[178]a$(t):[130]:[137]100
9800 [153]"load";pt$
9801 [129]t[178]1[164]50:[153]t,v$(t)
9810 [139]t[173]20[178][181](t[173]20)[167][141]1:[153]"load";pt$
9820 [130]:[141]1:[137]100
9850 [141]3:v9[178]1
9860 [129]t[178]1[164]an:a$[178]a$(t):[141]30300:a$(t)[178]a$:[130]:v9[178]0:[137]100
9900 [153]"load";pt$:[153]" + + (NULL)ariablen valright$(NULL)chr$atnpeekval + +"
9901 [133]"(NULL)ariablen (NULL)r.";a:[139]a[177]40[167]9900
9910 a$[178]"":[141]9:v$(a)[178]a$
9920 [153]:[153]"(NULL)och eine? [j/n]"
9930 [141]1
9940 [139]a$[178]"n"[167]100
9950 [137]9900
10000 [153]"load";pt$:b$[178]a$
10010 [153]"atnlenleft$(NULL)(NULL)(NULL)chr$ !!! (NULL)ext unbedingt (NULL)(NULL)valright$lenleft$val(NULL)(NULL)"
10020 [153]"right$st der (NULL)ext schon gespeichert? [j/n]"
10030 [141]1:[139]a$[179][177]"j"[167]6000
10040 a$[178]b$:[151]930,0:[137]8013
20000 [153]"load";pt$:[153]" + + (NULL)extprogramm + + (NULL) val len left$ (NULL) val (NULL) + +"
20009 [153]" [e]= valnde"
20010 [153]" [c]= (NULL)peicher loeschen"
20011 [153]" [m]= (NULL)ehrwertsteuer eingeben"
20013 [153]" [+] [-] [*] [:] = (NULL)echenoperationen"
20015 rr[178][181]((rr[172]100)[170]0.5)[173]100
20019 [153]"";rr;"wait";
20020 [141]1
20030 [139]a$[178]"c"[167]rr[178]0:[137]20000
20031 [139]a$[178]"e"[176]a$[178]"input"[167]100
20032 [139]a$[178]"m"[167][133]"(NULL)teuer in % 14cmdcmdcmdcmd";mw:[137]20000
20034 [139]a$[179][177]"+"[175]a$[179][177]"-"[175]a$[179][177]"*"[175]a$[179][177]":"[167]20020
20040 [153]a$;" ";:[133]x
20050 [139]a$[178]":"[175]x[178]0[167][153]"ascehler... nicht durch 0 dividieren":[137]20020
20060 [139]a$[178]":"[167]rr[178]rr[173]x
20061 [139]a$[178]"*"[167]rr[178]rr[172]x
20062 [139]a$[178]"+"[167]rr[178]rr[170]x
20063 [139]a$[178]"-"[167]rr[178]rr[171]x
20064 [137]20000
22000 [139][194](1022)[178]0[167][141]22100
22001 [139][194](1022)[178]0[167][151]1022,1:[147]"zeichen b",8,1
22002 [139][194](1022)[178]250[167][151]1022,240:[147]"zeichen din",8,1
22003 [139][194](1022)[178]1[167][151]53272,11:[151]56576,[194](56576)[175]252:[151]648,192
22004 [139][194](1022)[178]240[167][151]53272,11:[151]56576,[194](56576)[175]252:[151]648,192
22005 [139][194](1022)[178]1[167][151]1022,2:[147]"zeichen d",8,1
22006 [153]"load":[139][194](1022)[178]240[167][151]1022,199:[147]"zeichen ddin",8,1
22007 [139][194](1022)[178]2[167][151]1022,3:[147]"profip v1.0",8,1
22008 [139][194](1022)[178]199[167][151]1022,200:[147]"profip v1.0",8,1
22009 [139][194](1022)[178]111[167][151]53272,11:[151]56576,[194](56576)[175]252:[151]648,192:[128]
22010 [137]11
22100 [153][199](14);"load (NULL)extverarbeitungsprogramm (NULL).ascendt "
22105 [153]"(NULL)as fuer eine (NULL)astaturbelegung?"
22106 [133]" [din] - [cbm]dincmdcmdcmdcmdcmd";a$
22107 [139]a$[178]"din"[167][151]1022,250
22108 [141]3:[142]
30000 g9[178]g8[171]6:[141]30700:xt[178]0:[139][195](a$)[177]m8[167]a$[178][200](a$,m8)
30001 [151]922,am:cf[178]1:[139]u9[178]2[167]u9[178]0:cp[178][195](r$)[170]cb:[137]30020
30002 [139]cc[178]999[167]cp[178][195](a$(g8)):cc[178]0:[137]30020
30010 cc[178]0:x[178]0:cp[178]cb
30020 [139]cp[178]0[167]cp[178]1
30021 [151]908,cp[171]1:[151]918,m8[171](m8[173]5):[151]920,11:[151]917,m8:[151]924,0
30040 [158] 50176,a$,a$ :f[178][194](913):[139]a$[178]"> "[167]a$[178]""
30045 [141]31
30053 [139]f[178]9[167][141]30550:[137]30020
30054 [139]f[178]15[167]a$[178]"":a$(g8)[178]"":[137]30000
30055 [139]f[178]11[167][141]30400:a$(g8)[178]a$
30056 [139]f[178]20[167]cc[178]999:f[178]5
30057 [139]f[178]16[167]f[178]0:[139][201](a$,1)[179][177]"rnd"[167]a$[178]a$[170]"rnd"
30099 [141]30300:[141]30400:[153]:[142]
30300 [143] ** variablen test **
30301 [139]v9[178]0[167][142]
30310 [129]b[178]1[164][195](a$)[171]2
30320 [139][202](a$,b,1)[179][177]"@"[167][130]:[142]
30330 x[178][197]([202](a$,b[170]1,2)):[139]x[177]50[167]x[178]0
30340 a$[178][200](a$,b[171]1)[170]v$(x)[170][201](a$,[195](a$)[171]b[171]2):[137]30310
30350 [130]:[142]
30400 [139][195](a$)[179]m8[167][142]
30401 [139][195](a$)[177]80[167]30440
30403 cc[178]999:[129]i[178]m8[164]1[169][171]1
30410 [139][202](a$,i,1)[179][177]" "[167][130]i:[137]30440
30420 r$[178][201](a$,[195](a$)[171]i):a$[178][200](a$,i[171]1):u9[178]1
30421 [139][201](r$,1)[178]" "[167]r$[178][200](r$,[195](r$)[171]1):[137]30421
30430 [139][195](a$)[177][178]m8[167][130]:[137]30440
30431 [142]
30440 [141]95:[153]">> (NULL)eile zu lang << ascehler !!":[151]198,0
30441 a$[178][200](a$,m8[171]1)
30442 [141]30601:[139][194](198)[179]1[167]30442
30443 [151]198,0:[142]
30550 [139]cp[170]1[177][195](t7$)[176]xt[178]1[167][142]
30560 x[178]0:[129]z[178]cp[170]1[164][195](t7$):[139][202](t7$,z,1)[178]"+"[175]x[178]0[167]x[178]1:cp[178]z
30570 [130]:[139]x[178]0[167]xt[178]1
30580 [139][195](a$)[179]cp[167]a$[178]a$[170]"close":[137]30580
30590 [142]
30600 [143] ** error system **
30601 [139]t9%[178]1[167][142]
30602 [151]53280,1
30603 [151]54296,15:[151]54277,25:[151]54278,4[172]16[170]4
30610 [151]54273,29:[151]54272,69:[151]54276,17
30619 [129]t[178]1[164]200:[130]
30620 [151]53280,0:[129]t[178]1[164]200:[130]
30621 [151]54276,0:[151]54277,0:[151]54278,0:[142]
30700 [143] ** fenster **
30701 [153]"";pt$:[153]"";t7$
30702 [141]80:[141]30750
30705 [153]"":[129]i[178]0[164]10:[151]781,i[170]5:[151]782,0:[158]58636
30710 [139]g9[170]i[179][178]0[167][141]90:[137]30740
30720 v[178]mb[171][195](a$(i[170]g9)):[139]v[179]0[167]v[178]0
30730 [153]a$(i[170]g9)[170][200](a6$,v)
30740 [130]:[141]90:[142]
30750 [153]k1$;[200](a6$,(mb[170]2)[171][195](k1$))
30751 [153]k2$;[200](a6$,(mb)[171][195](k2$))
30752 [153]k3$;[200](a6$,(mb)[171][195](k3$))
30753 [153]k4$;[200](a6$,(mb)[171][195](k4$)):[142]
31000 [143] *****************************
31001 [143] *****************************
31002 [143] ** initialisierung **
31003 [143] *****************************
31004 [143] *****************************
31006 pt$[178]"left$ypra-text (NULL)1.0 by (NULL)liver ascendtwait":me[178]100:[153]"load";pt$
31009 fu$[178]"(NULL)echnen":mw[178]14
31010 [134]v$(50)
31016 [151]53281,0:[151]53280,0:[139]m8[179][178]7[167]m8[178]36
31019 t7$[178]"!----+----+----+----+----+----+----------"
31020 [141]46000:b1$[178][196](m8)[170]" (NULL)eichen (NULL)odus"
31048 a6$[178]" "
31060 b1$[178]"(NULL)aden [5]"
31061 b2$[178]"valingabe [f1]"
31062 b3$[178]"left$ilfe [f7]"
31063 [141]1840:pr$[178]"m-w"[170][199](1)[170][199](1)[170][199](1)[170]"a"
31150 [153]"load";pt$:[153]"chr$uten (NULL)ag,";v$(1)
31160 [153]"peekitte geben (NULL)ie das str$atum ein."
31199 [142]
33000 [143] *** formblatt ***
33001 [153]"load";pt$:[153]" + (NULL) a s k e ausfuellen + (NULL)on (NULL)enu 1 +":a[178]cb
33004 b1$[178]"(NULL)peichern [5]":b2$[178]"atnendern [2]"
33010 [129]pq[178]1[164]an
33020 a$[178]a$(pq):a$(pq)[178]a$
33021 [139][195](a$)[178]0[167][130]:[137]33099
33022 [129]px[178]1[164][195](a$):l[178]0
33025 [139][202](a$,px,1)[178]"to"[167]cb[178]px:[137]33050:[139]cc[178]4[175]c8[178]0[167]100
33027 [130]:g9[178]pq[171]6:[141]30700:[130]:[137]33099
33050 [129]px[178]cb[164][195](a$):[139][202](a$,px,1)[178]"to"[167][130]
33060 a$[178][200](a$(pq),cb)[170][200](a6$,px[171]cb[171]1)
33061 x[178][195](a$(pq))[171]px[170]1:[139]x[177]0[167]a$[178]a$[170][201](" "[170]a$(pq),x)
33062 a$(pq)[178]a$
33070 g8[178]pq:[141]30000:a$(pq)[178]a$:[139]f[178]1[167]100
33072 [137]33022
33099 cb[178]a:[137]100
33200 [142]
34000 [143] *****************************
34001 [143] * *
34002 [143] * floppy control *
34003 [143] * *
34010 [143] *****************************
34020 [132]2,en,em$,et,es:[139]en[178]0[167][142]
34050 [153]"";en;" ";em$
34060 [153]"(NULL)aste druecken"
34070 [141]1
34080 [139]en[178]62[176]xy[178]999[167][142]
34090 [153]"(NULL)ontrollieren und nach dem beheben [f1] druecken"
34091 [141]1:[139]a$[179][177]"input"[167]34091
34092 [152]2,"i":[137]100
34100 [151]915,5:[151]908,0:[151]917,m8:[158]50182,a$
34110 [141]31:[142]
34500 [129]t[178]20767[170]8500 [164]65000
34510 [139][194](t)[179][177]0[167][130]
34520 x[178]t
34530 [153][194](x)[170][194](x[170]1)[172]256
34540 x[178]x[170]2
34550 [139][194](x)[178]0[167]x[178]x[170]3:[153]:[137]34530
34560 [153][199]([194](x));:x[178]x[170]1:[137]34550
40000 [153]"str$atum:":a$[178]"------":[141]9:da$[178]a$
40010 [139]da$[178]"------"[167]40000
40020 d$[178][200](da$,2)[170]"."[170][202](da$,3,2)[170]".19"[170][201](da$,2):[142]
43000 [143]
43040 am[178]1
43060 [142]
46000 [153]"load";pt$;[199](14):m8[178]39:cb[178]1:mb[178]39:t9%[178]1
46001 [153]"(NULL)arameterdiskette einlegen"
46002 [139][194](930)[179][177]0[167]ba$[178][199]([194](930))[170][199]([194](931)):fa[178][194](932):[137]46070
46003 [153]"ascloppy atndr.: 8":[141]1:fa[178][197](a$):[139]a$[178][199](13)[167]fa[178]8
46004 [139]fa[179]8[176]fa[177]9[167]46003
46005 t9%[178]1:[153]"(NULL)ame ":[141]4:[141]5:b$[178]a$:t[178]0:[153]
46006 [139][197](b$)[179][177]0[167]y[178][197](b$):[141]4500:[137]46010
46007 [141]4100:[139]f[179][177]999[167][141]4500
46010 [139]f[178]999[176]en[179][177]0[167][153]"peekenutzer nicht registriert":[141]1:[137]46000
46013 [139][194](1022)[178]200[167]am[178]2
46050 m8[178]39
46053 [139]v$(7)[178]"-"[167][153]"(NULL)eine (NULL)ugriffsberechtigung":[141]1:[137]46000
46055 [139]t[177]2[167][153]:[153]"(NULL)asswort falsch":[141]1:[137]46000
46056 [153]"lenodewortstop":[141]4:[141]5:[153]"":[139]a$[179][177]v$(7)[167]t[178]t[170]1:[137]46055
46058 ba$[178]v$(8)
46060 [151]930,[198]([200](ba$,1))
46061 [151]931,[198]([201](ba$,1))
46062 [151]932,fa
46070 xy[178]0:[142]
55555 [160]15:[159]15,8,15,"i":[160]15
55556 [153]"loadich speichere": [148]"@:pt"[170]da$,8
55557 [151]2,0
55560 [153]"ist gespeichert":[128]
56100 [153]"load";pt$
56101 [153]" atnlenleft$(NULL)(NULL)(NULL)chr$ !!!wait"
56102 [153]" (NULL)ur wenn der (NULL)ext schon gespeichert"
56103 [153]" ist, dann die left$ypra-text str$iskette"
56104 [153]" einlegen, und [f8] druecken !!!"
56106 [141]1:[139]a$[179][177]"restore"[167]100
56107 [153]"load";pt$:[153]"right$ch lade nun (NULL)rofiprint"
56108 [153]" peekitte warten ..."
56109 [151]2,0:[147]"profiprint",8