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]