home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Input 64
/
Input_64_86-04_1986_Verlag_Heinz_Weise_de.d64
/
pferderennbahn
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
12KB
|
353 lines
1 ifpeek(50307)<>120then10
2 poke50257,0
10 printchr$(142);chr$(8)
30 poke53248+21,0
40 clr:print"[147]":poke53280,0:poke53281,0
50 forn=0to62:readq:poke832+n,q:nextn
60 forn=0to62:readq:poke832+63+n,q:nextn
70 poke788,52
100 goto250
120 rem p 1986 hans friebe muenchen
122 rem
125 rem
126 rem
130 rem *** variablen hauptstart *******
135 x=rnd(-ti):v=53248:vb=v+16:pz=214:ps=211:a1=9:a2=130:ap=7:ge=20:mr=1
136 sb=2040:si=54272
140 b1=5:b2=8:pj=56322:pf=1
145 w(1)=0:w(2)=1:w(3)=0:w(4)=1:w(5)=0:w(6)=1:w(7)=0
150 gosub10000:rem pferde an den start
160 print"[156]";
170 fori=1toap:zi(i)=0:ru(pf)=0:nexti
180 fori=1to8:au(i)=1:nexti
194 pokevb,0:return
195 rem *** sprite aktivieren **********
200 pokev+21,0
205 pokevb,0:rem hoeheres bit
210 poke2041,13:poke2042,13:poke2043,13:poke2044,13:poke2045,13:poke2046,13
215 poke2047,13
220 pokev+23,0:pokev+29,0:rem expand
230 pokev+40,5:pokev+41,9:pokev+42,7:pokev+43,14:pokev+44,6:pokev+45,4
235 pokev+46,2
240 return
241 rem generator vorbereiten
243 pokesi+5,0*16+2
244 pokesi+6,0*16+0
245 pokesi+3,20:pokesi+2,14
246 pokesi+1,9:pokesi,0
247 pokesi+22,30:pokesi+21,7
248 pokesi+23,1:pokesi+24,16+15
249 return
250 rem *** hauptprogramm **************
251 gosub130:rem variablen hauptstart
252 gosub241:rem tongenerator vorber
253 gosub195:rem sprites grundeinstell
254 gosub1500:rem titelbild
255 gosub5000:rem demo
256 gosub130:rem variablen hauptstart
257 gosub195:rem sprites grundeinstell
258 gosub8000:rem namen,spielerzahl
259 gosub6000:rem wettannahme
260 gosub10000:rem pferde a.d.start
261 gosub1000:rem spielfeld
262 gosub11000:rem zwischenstart
270 goto310:rem bewegung berechnung
280 gosub470:rem bewegung ausfuehrung
285 goto270
290 gosub12000:rem gewinnverteil/anzei
295 ifi$="[197]"then21000
296 goto259
300 rem *** bewegungen berechnen *******
310 forpf=1toap
313 ifzi(pf)<>0thenx(pf)=x(pf)+rnd(0)*ge*-(x(pf)<330):goto335
320 x(pf)=x(pf)+rnd(0)*ge:pokesb+pf,14+w(pf):w(pf)=(w(pf)=0)
325 ifx(pf)<300then335
327 ifru(pf)=mr-1then3000
328 ifx(pf)<340then335
329 pokev+21,peek(v+21)and(255-2^pf)
330 x(pf)=10:pokev+2*pf,0:pokevb,peek(vb)and(255-2^pf):ru(pf)=ru(pf)+1
331 pokev+21,peek(v+21)or2^pf
335 nextpf
340 goto280
460 rem *** sprite bewegung ************
470 forpf=1toap:pokesi+4,129
471 ifx(pf)>=255thenpokevb,peek(vb)or2^pf
476 pokev+2*pf,x(pf)+255*(x(pf)>=255)
495 pokesi+4,0
500 nextpf
520 return
1000 rem ** spielfeld ******************
1005 print"[147][158][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201] [159][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][129][205] ";
1010 print"[158][221]pferd 1[156][221][129]2[156][221][158]3[156][221][154]4[156][221]5[156][221][156]6[156][221]7[156][158][221][152] [177][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209] ";
1020 print"[158][221][156] [192][219][192][219][192][219][192][219][192][219][192][219][192][158][221][152] [205][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177] ";
1030 print"[158][221]platz [156] [221] [221][160][221][160][221][160][221][160][221][160][158][221][152] [205] rennbahn riem ";
1040 print"[158][202][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][203] [152][205][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175] ";
1050 print"[158] [221] [221] ";
1060 print"[158] [221] [221] ziel ";
1070 print" ";
1080 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][221][164][164]";
1090 print" [221] ";
1100 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][221][164][164]";
1110 print" [221] ";
1120 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][221][164][164]";
1130 print" [221] ";
1140 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][221][164][164]";
1150 print" [221] ";
1160 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][221][164][164]";
1170 print" [221] ";
1180 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][221][164][164]";
1190 print" [221] ";
1200 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][221][164][164]";
1210 print" [221] ";
1220 print"[159] [209][209][209][209][209] [209] [209][209][209] [209][209][209][209][209] [209][209][209][209] [209][209][209] [209][209][209] [209][209] ";
1230 print" [177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][160] ";
1240 print"[129] [209][209] [209][209][209][209][209][209][209][209] [209][160][209][209][160][209][160][209][160][209][209][209][160][209][160][209][209][160][209][209][209][209] ";
1250 return
1500 rem
1505 print"[147]"
1506 print" p 1986 hans friebe muenchen"
1510 print" [156] [213][192][192][192][201][213][192][192][192][201][213][192][192][192][201][213][192][192][192][201][213][192][192][192][201] [213][192][192][192][201]"
1520 print" [221][213][192][201][221][221] [213][192][203][221] [213][192][203][221][213][192][201][221][221] [213][201][221] [221] [213][192][203]"
1530 print" [221][202][192][203][221][221] [202][201] [221] [202][201] [221][202][192][203][221][221] [221][221][221] [221] [202][201] "
1540 print" [221] [213][192][203][221] [213][203] [221] [213][203] [221] [192][203][221] [221][221][221] [221] [213][203]"
1550 print" [221] [221] [221] [221] [221] [202][192][201][221][221][205][205] [221] [202][203][221] [221] [202][192][201]"
1560 print" [202][192][203] [202][192][203] [202][192][192][192][203][202][203] [205][205][202][192][192][192][203] [202][192][192][192][203]"
1570 print" [213][192][192][192][201] [213][192][192][192][192][201] [213][192][201][213][192][201] [213][192][201] [213][192][201]"
1580 print" [221][213][201] [221] [221][213][192][192][201][221] [221] [221][221] [221] [221] [221][205] [221][160][221]"
1590 print" [221][202][203][213][203] [221][202][192][192][203][221] [221] [202][203] [221] [221] [221] [205][221][160][221]"
1600 print" [221][213][201][202][201] [221] [213][201] [221] [221] [213][201] [221] [221] [221][205] [221] [221]"
1610 print" [221][202][203] [221] [221] [221][221] [221] [221] [221][221] [221] [221] [221] [205][221][160][221]"
1620 print" [202][192][192][192][203] [202][192][203][202][192][203] [202][192][203][202][192][203][160][202][192][203] [202][192][203]
1630 [153]" awaitnleitung swaittart"
1640 [142]
2000 [143] ** cursor positionieren *******
2010 [151]214,q1:[151]211,q2:[158]58640:[142]
3000 [143] ** platzeintrag vornehmen *****
3010 pl[178]pl[170]1:zi(pf)[178]pl
3020 [151]pz,3:[151]ps,5[170]pf[172]2:[158]58640:[153]"clr"pl;
3030 [139]pl[179][177]ap[167]335
3034 [143] gong
3035 si[178]54272
3040 [151]si[170]1,32:[151]si,0:[151]si[170]5,10:[151]si[170]4,17
3042 [129]i[178]1[164]700:[130]:[151]si[170]4,0
3043 [151]si[170]1,25:[151]si,0:[151]si[170]4,17
3044 [129]i[178]1[164]1000:[130]
3045 [151]si[170]4,0:[141]241
3046 q1[178]24:q2[178]0:[141]30340:[153]" gwaitewinnplan ";
3050 [161]i$:[139]i$[179][177]"g"[167]3050
3060 [151]v[170]21,0:[137]290
4001 [143] ** sprite pferd 2 *************
4002 [131]0,0,16,0,0,56,0,0,60,0,0,126,0,0,126,0
4003 [131]0,255,0,3,255,63,255,247,127,255,227,127,255,224,127,255
4004 [131]224,127,255,240,127,255,248,251,159,124,247,15,158,239,7,199
4005 [131]108,1,227,108,0,115,102,0,54,99,0,54,49,128,0,255
4006 [143] ** sprite pferd 1 *************
4007 [131]0,0,16,0,0,56,0,0,60,0,0,126,0,0,126,0
4008 [131]0,255,0,3,255,63,255,247,127,255,227,127,255,224,127,255
4009 [131]224,127,255,224,127,255,176,251,31,112,246,15,120,220,7,56
4010 [131]152,7,28,152,3,12,140,1,140,134,1,152,194,1,128,255
5000 [143] ** demo ***********************
5005 [129]pf[178]1[164]7:y(pf)[178]150[171]pf[172]3:[151]v[170]1[170]2[172]pf,y(pf):[130]pf
5006 [151]v[170]21,128[170]126
5010 [129]pf[178]1[164]ap
5020 x(pf)[178]x(pf)[171]([181]([187](0)[172]ge))[172](x(pf)[179]340):[151]sb[170]pf,13[170][181]([187](0)[170].5)
5030 [139]x(pf)[179]330[167]5040
5031 [151]v[170]21,[194](v[170]21)[175](255[171]2[174]pf)
5035 x(pf)[178]10:[151]v[170]2[172]pf,10:[151]vb,[194](vb)[175](255[171]2[174]pf)
5036 [151]v[170]21,[194](v[170]21)[176]2[174]pf
5040 [130]pf
5200 [141]460:[161]i$
5210 [139]i$[178]"s"[167][151]v[170]21,0:[142]
5220 [139]i$[178]"a"[167][151]v[170]21,0:[141]20000:[142]
5230 [137]5000
6000 [143] *** wettannahme ***************
6005 ta[178]0:[141]7000:[141]9000
6010 [129]sp[178]1[164]as
6015 [139]gu(sp)[178]0[167]pn(sp)[178]1:ei(sp)[178]0:au(sp)[178]0:[137]6030
6020 q1[178]5[170]sp[172]2:q2[178]20:q3[178]1:q7[178]0:[141]30000:ps$(sp)[178]q4$
6021 [139]q4$[179][177]"p"[175]q4$[179][177]"s"[167]6020
6022 q2[178]26:q3[178]1:q7[178]1:[141]30000:pn(sp)[178][197](q4$)
6023 [139]pn(sp)[179]1[176]pn(sp)[177]7[167]6022
6024 q2[178]29:q3[178]6:q7[178]1:[141]30000:ei(sp)[178][197](q4$)
6025 [139]ei(sp)[179]0[176]ei(sp)[177]gu(sp)[176]ei(sp)[177]100000[167]6024
6027 gu(sp)[178]gu(sp)[171]ei(sp)
6030 [130]sp
6070 q1[178]24:q2[178]0:[141]30340:[153]" lwaitoeschen rwaitunden aendern swaittart";
6080 [161]i$
6090 [139]i$[178]"l"[167][129]sp[178]1[164]as:gu(sp)[178]gu(sp)[170]ei(sp):[130]sp:[137]6000
6100 [139]i$[178]"r"[167][141]22000:[137]6070
6110 [139]i$[178]"s"[167][153]"load";:[151]v[170]21,0:[142]
6120 [137]6080
7000 [143] ** wettformular ***************
7010 [139]ta[178]0[167][153]"loadwettannahme 1 2 3 4 5 6 7 ";:[137]7020
7015 [153]"loadsysgewinnplan! ";
7020 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab( ";
7030 [153]
7035 [153]
7040 [153]"ortantantantantantantantantan=tantantantantantantantantantan=tantantantantan=tantantantantantantantantantan^ ";
7050 [139]ta[178]0[167][153]"(NULL)spieler (NULL)sieg/platz(NULL)pferd(NULL)einsatz dm(NULL) ";:[137]7060
7055 [153]"(NULL)spieler (NULL)sieg/platz(NULL)pferd(NULL)gewinn! dm(NULL) ";:[137]7060
7060 [153]"-tantantantantantantantantan(NULL)tantantantantantantantantantan(NULL)tantantantantan(NULL)tantantantantantantantantantan< ";
7070 [153]"(NULL) (NULL)s/p (NULL)nr. (NULL) dm(NULL) ";
7080 [153]"-tantantantantantantantantan(NULL)tantantantantantantantantantan(NULL)tantantantantan(NULL)tantantantantantantantantantan< ";
7090 [153]"(NULL) (NULL)s/p (NULL)nr. (NULL) dm(NULL) ";
7100 [153]"-tantantantantantantantantan(NULL)tantantantantantantantantantan(NULL)tantantantantan(NULL)tantantantantantantantantantan< ";
7110 [153]"(NULL) (NULL)s/p (NULL)nr. (NULL) dm(NULL) ";
7120 [153]"-tantantantantantantantantan(NULL)tantantantantantantantantantan(NULL)tantantantantan(NULL)tantantantantantantantantantan< ";
7130 [153]"(NULL) (NULL)s/p (NULL)nr. (NULL) dm(NULL) ";
7140 [153]"-tantantantantantantantantan(NULL)tantantantantantantantantantan(NULL)tantantantantan(NULL)tantantantantantantantantantan< ";
7150 [153]"(NULL) (NULL)s/p (NULL)nr. (NULL) dm(NULL) ";
7160 [153]"-tantantantantantantantantan(NULL)tantantantantantantantantantan(NULL)tantantantantan(NULL)tantantantantantantantantantan< ";
7170 [153]"(NULL) (NULL)s/p (NULL)nr. (NULL) dm(NULL) ";
7180 [153]"/tantantantantantantantantan>tantantantantantantantantantan>tantantantantan>tantantantantantantantantantanexp ";
7190 [153]" ";
7200 [153]" dm dm";
7210 [153]" dm dm";
7220 [153]" dm dm";
7230 [153]" ";
7240 [139]ta[178]0[167][141]9000
7257 [129]i[178]1[164]as:q1[178]5[170]2[172]i:q2[178]1:[141]30340:[153]"sys"na$(i):[130]
7260 [151]v[170]16,2[174]7[170]2[174]6
7280 [129]i[178]1[164]7:[151]v[170]2[172]i,(80[170]32[172]i)[175]255:[151]v[170]1[170]2[172]i,55:[130]
7290 [151]v[170]21,128[170]126
7295 [129]j[178]1[164]10:[129]i[178]1[164]7:[151]sb[170]i,14[170]w(i):w(i)[178](w(i)[178]0):[130]i:[130]j
7999 [142]
8000 [143] ** namen eingeben *************
8010 [153]"load"
8020 [153]" anzahl der spieler:":
8025 q1[178]4:q2[178]23:q3[178]1:q7[178]0:[153]"sys":[141]30000:as[178][197](q4$):[139]as[179][178]0[176]as[177]6[167]8025
8026 [153]
8030 [129]i[178]1[164]as
8040 [153]" name"i"cmd. spieler:";
8055 q1[178]5[170]i[172]2:q2[178]23:q3[178]9:q7[178]0:[153]"sys";:[141]30000:na$(i)[178]q4$:[139]q4$[178]""[167]8055
8060 [130]i
8070 [129]i[178]1[164]as:gu(i)[178]500:[130]i
8200 [142]
9000 [143] ** guthaben anzeigen **********
9005 q1[178]19
9010 [129]i[178]1[164]as
9015 q1[178]q1[171]1[172]([181](i[173]2)[179][177]i[173]2):q2[178]0[171]21[172]([181](i[173]2)[178]i[173]2):[141]30340:[153]"sys";na$(i);
9020 za[178]gu(i):ql[178]6:[141]31000
9025 q2[178]9[171]21[172]([181](i[173]2)[178]i[173]2):[141]30340:[153]"sys";za$;
9030 [130]i:[142]
10000 [143] ** pferde an den start *******
10010 [141]195
10150 x(7)[178]20:::y(7)[178]a2[170]0[172]a1
10154 x(6)[178]x(7):y(6)[178]a2[170]1[172]a1
10155 x(5)[178]x(7):y(5)[178]a2[170]2[172]a1
10156 x(4)[178]x(7):y(4)[178]a2[170]3[172]a1
10157 x(3)[178]x(7):y(3)[178]a2[170]4[172]a1
10158 x(2)[178]x(7):y(2)[178]a2[170]5[172]a1
10159 x(1)[178]x(7):y(1)[178]a2[170]6[172]a1
10160 [129]i[178]1[164]7:[151]v[170]2[172]i,x(i):[151]v[170]1[170]2[172]i,y(i):[130]i
10170 [142]
11000 [143] *** zwischenstart ************
11010 [151]v[170]21,254
11015 [129]i[178]1[164]ap:ru(i)[178]0:zi(i)[178]0:[130]i
11017 pl[178]0
11020 q1[178]24:q2[178]16:[141]30340:[153]"clr swaittart ";
11130 [161]i$:[139]i$[179][177]"s"[167]11130
11140 q1[178]24:q2[178]0:[141]30340:[153]"print# (NULL)(NULL) (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL) (NULL)close(NULL)(NULL)close(NULL)close(NULL)close(NULL)(NULL)(NULL)close(NULL)close(NULL)(NULL)close(NULL)(NULL)(NULL)(NULL) ";
11150 [142]
12000 [143] *** gewinnverteilung/anzeige *
12005 ta[178]1:[141]7000
12006 [129]i[178]1[164]ap:q1[178]0:q2[178]7[170]4[172]i:[141]30340:[153]zi(i);:[130]
12010 [129]sp[178]1[164]as:gw(sp)[178]0
12012 [139]au(sp)[178]0[167]12055
12015 q1[178]5[170]sp[172]2:q2[178]20:[141]30340:[153]ps$(sp);
12017 q2[178]25:[141]30340:[153]pn(sp);
12020 [139]ps$(sp)[178]"s"[167]12040
12030 [139]zi(pn(sp))[179][178]3[167]gw(sp)[178]ei(sp)[172]2:[137]12050
12040 [139]zi(pn(sp))[178]1[167]gw(sp)[178]ei(sp)[172]6
12050 gu(sp)[178]gu(sp)[170]gw(sp)
12051 za[178]gw(sp):ql[178]6:[141]31000
12052 q1[178]5[170]sp[172]2:q2[178]28:[141]30340:[153]za$"wait";
12055 [130]sp:[141]9000
12070 q1[178]24:q2[178]0:[141]30340:[153]" wwaitettannahme shiftewaitnde ";
12080 [161]i$:[139]i$[179][177]"w"[175]i$[179][177]"val"[167]12080
12090 [142]
20000 [143] ** anleitung *****************
20020 [153]"loadclrjeder spieler erhaelt 500 dm - damit "
20030 [153]"geht's auf zur rennbahn! ";
20050 [153]" ";
20060 [153]"wettvorgang ";
20065 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
20070 [153]"tragen sie in der spalte 'sieg/platz' ";
20080 [153]"den buchstaben s oder p ein. in die ";
20090 [153]"spalte 'pferd' schreiben sie die nummer ";
20100 [153]"des pferdes, auf das sie setzen und in ";
20110 [153]"die spalte 'einsatz' den geldbetrag, den";
20120 [153]"sie riskieren wollen. ";
20130 [153]" ";
20140 [153]"gewinnberechnung ";
20145 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
20150 [153]"wenn sie auf den sieg (s) eines best. "
20160 [153]"pferdes gesetzt haben,versechsfacht sich";
20170 [153]"ihr einsatz beim sieg dieses pferdes. ";
20180 [153]"wetten sie auf platz (p), verdoppelt"
20190 [153]"sich ihr einsatz, falls sich das pferd"
20200 [153]"auf das sie gesetzt haben, unter den"
20210 [153]"ersten drei befindet. "
20220 [153]" ";
20230 [153]"bei fehleingaben taste 'del' noch vor ";
20235 [153]"'return' druecken! ";
20240 [153]" bwaiteginn";
20250 [161]i$:[139]i$[179][177]"b"[167]20250
20260 [153]"load";:[142]
21000 [143] ** ende, sprites loeschen ****
21010 [151]v[170]21,0:[151]788,49:[153]"contload":[151]53280,14:[151]53281,6:[138]10
22000 [143] ** rundenanzahl bestim. ******
22005 [141]23000
22010 q1[178]23:q2[178]0:[141]30340:[153]" anzahl der rundenclose(1-3): wait ";
22020 q1[178]23:q2[178]30:q3[178]1:q7[178]1:[141]30000:mr[178][197](q4$):[139]mr[179]1[176]mr[177]3[167]22020
22030 q1[178]23:q2[178]0:[141]30340:[153]" ";
22040 [142]
23000 [143] ** zeile 24 loeschen *********
23010 q1[178]24:q2[178]0:[141]30340:[153]" ";
23020 [142]
30000 [143] ** input at ******************
30010 q9[178]0:q8[178]1:[143] q8=1 (nur gerade z)
30020 [139]q1[177][171]1[167][141]30340:[137]30040
30030 q1[178][194](214):q2[178][194](211)[170]2
30040 [129]ii[178]1[164]q3:[153]" ";:[130]
30050 [141]30340
30060 q5[178]0:q4$[178]"":[151]1024[170]40[172]q1[170]q2,191
30070 [129]ii[178]631[164]640:[151]ii,0:[130]
30080 q5[178]q5[170]1
30090 [161]q6$:[139]q6$[178]""[167]30090
30100 [139][198](q6$)[178]32[175]q5[179][178]1[167]30090
30110 [139][198](q6$)[178]13[167][153]:[137]30370
30120 [139][198](q6$)[178]20[176][198](q6$)[178]157[167]30220
30130 [139]q7[178]1[167]30160
30140 [139][198](q6$)[179]32[176][198](q6$)[177]90[167]30090
30150 [137]30270
30160 [139][198](q6$)[177][178]48[175][198](q6$)[179][178]57[167]30270
30170 [139]q8[178]1[167]30190
30180 [139][198](q6$)[178]46[176][198](q6$)[178]44[167]q8[178]1:q6$[178]".":[137]30270
30190 [139]q9[178]1[167]30210
30200 [139][198](q6$)[178]45[175]q5[178]1[167]q9[178]1:[137]30270
30210 [137]30090
30220 [139]q5[179][178]1[167]30090
30230 q2[178]q2[171]1:[141]30340:q8$[178][202](q4$,q5[171]1,1):[139]q8$[178]"."[167]q8[178]0
30240 [139]q8$[178]"-"[167]q9[178]0
30250 [153]" ":[141]30340
30260 q4$[178][200](q4$,q5[171]2):q5[178]q5[171]1:[137]30090
30270 q4$[178]q4$[170]q6$
30280 [153]"";q6$;:q2[178]q2[170]1:[141]30340
30290 [139]q5[179]q3[167]30080
30300 q5[178]q3[170]1:[161]q6$:[139]q6$[178]""[167]30300
30310 [139][198](q6$)[178]20[176][198](q6$)[178]157[167]30220
30320 [139][198](q6$)[178]13[167][153]:[137]30370
30330 [137]30300
30340 [143] ** cursor positionieren ******
30350 [151]214,q1:[151]211,q2:[158]58640
30360 [142]
30370 [139]q4$[178]""[167]30000
30380 [142]
31000 [143] ** rechtsbund ****************
31005 za$[178][196]([181](za))
31010 ql[178]ql[170]1:[139]ql[177]14[167][153]"loadlaenge ql im up zu gross!!!":[128]
31020 [139][195](za$)[177]ql[167]za$[178]">1mio."
31040 za$[178][200](" ",ql[171][195](za$))[170]za$
31050 [142]