10 REM PFERDERENNEN============64
20 REM (P) COMMODORE DISC      ==
30 REM ==========================
40 REM (C) BY                  ==
50 REM     D. LINDEMANN        ==
60 REM                         ==
70 REM VERSION 2.0   40Z./ASCII==
80 REM  C-64  FLOPPY/DATASETTE ==
90 REM ==========================
95 GOSUB 60000
100 IFPEEK(50307)<>120THEN120
110 POKE50257,0
120 GOSUB 60000:PRINTCHR$(142);CHR$(8)
130 POKE53248+21,0
140 PRINTCL$:POKE53280,0:POKE53281,0
150 FORN=0TO62:READQ:POKE832+N,Q:NEXTN
160 FORN=0TO62:READQ:POKE832+63+N,Q:NEXTN
170 POKE788,52
180 GOTO500
190 REM 1987 WRITTEN BY DETLEF LINDEMANN
200 REM
210 REM
220 REM
230 REM *** VARIABLEN HAUPTSTART *******
240 X=RND(-TI):V=53248:VB=V+16:PZ=214:PS=211:A1=9:A2=130:AP=7:GE=20:MR=1
250 SB=2040:SI=54272
260 B1=5:B2=8:PJ=56322:PF=1
270 W(1)=0:W(2)=1:W(3)=0:W(4)=1:W(5)=0:W(6)=1:W(7)=0
280 GOSUB2430:REM PFERDE AN DEN START
290 PRINTHE$PU$;
300 FORI=1TOAP:ZI(I)=0:RU(PF)=0:NEXTI
310 FORI=1TO8:AU(I)=1:NEXTI
320 POKEVB,0:RETURN
330 REM *** SPRITE AKTIVIEREN **********
340 POKEV+21,0
350 POKEVB,0:REM HOEHERES BIT
360 POKE2041,13:POKE2042,13:POKE2043,13:POKE2044,13:POKE2045,13:POKE2046,13
370 POKE2047,13
380 POKEV+23,0:POKEV+29,0:REM EXPAND
390 POKEV+40,5:POKEV+41,9:POKEV+42,7:POKEV+43,14:POKEV+44,6:POKEV+45,4
400 POKEV+46,2
410 RETURN
420 REM GENERATOR VORBEREITEN
430 POKESI+5,0*16+2
440 POKESI+6,0*16+0
450 POKESI+3,20:POKESI+2,14
460 POKESI+1,9:POKESI,0
470 POKESI+22,30:POKESI+21,7
480 POKESI+23,1:POKESI+24,16+15
490 RETURN
500 REM *** HAUPTPROGRAMM **************
510 GOSUB230:REM   VARIABLEN HAUPTSTART
520 GOSUB420:REM   TONGENERATOR VORBER
530 GOSUB330:REM   SPRITES GRUNDEINSTELL
540 GOSUB1150:REM  TITELBILD
550 GOSUB1590:REM  DEMO
560 GOSUB230:REM   VARIABLEN HAUPTSTART
570 GOSUB330:REM   SPRITES GRUNDEINSTELL
580 GOSUB2250:REM  NAMEN,SPIELERZAHL
590 GOSUB1730:REM  WETTANNAHME
600 GOSUB2430:REM PFERDE A.D.START
610 GOSUB880:REM  SPIELFELD
620 GOSUB2540:REM ZWISCHENSTART
630 GOTO700:REM    BEWEGUNG BERECHNUNG
640 GOSUB820:REM   BEWEGUNG AUSFUEHRUNG
650 GOTO630
660 GOSUB2620:REM GEWINNVERTEIL/ANZEI
670 IFI$="[197]"THEN3070
680 GOTO590
690 REM *** BEWEGUNGEN BERECHNEN *******
700 FORPF=1TOAP
710 IFZI(PF)<>0THENX(PF)=X(PF)+RND(0)*GE*-(X(PF)<330):GOTO790
720 X(PF)=X(PF)+RND(0)*GE:POKESB+PF,14+W(PF):W(PF)=(W(PF)=0)
730 IFX(PF)<300THEN790
740 IFRU(PF)=MR-1THEN1350
750 IFX(PF)<340THEN790
760 POKEV+21,PEEK(V+21)AND(255-2^PF)
770 X(PF)=10:POKEV+2*PF,0:POKEVB,PEEK(VB)AND(255-2^PF):RU(PF)=RU(PF)+1
780 POKEV+21,PEEK(V+21)OR2^PF
790 NEXTPF
800 GOTO640
810 REM *** SPRITE BEWEGUNG ************
820 FORPF=1TOAP:POKESI+4,129
830 IFX(PF)>=255THENPOKEVB,PEEK(VB)OR2^PF
840 POKEV+2*PF,X(PF)+255*(X(PF)>=255)
850 POKESI+4,0
860 NEXTPF
870 RETURN
880 REM ** SPIELFELD ******************
890 PRINTCL$YE$"[213]"ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$;
895 PRINTZV$"[201] "CY$"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"OE$"[205] ";
900 PRINTYE$YO$WH$"PFERD  "GR$"1"PU$;YO$OE$"2"PU$;YO$YE$"3"PU$;YO$WH$LB$"4"PU$;
903 PRINTYO$WH$BL$"5"PU$;YO$WH$PU$"6"PU$;YO$WH$RE$"7"PU$;
905 PRINTYE$YO$G2$" "ZG$GR$"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209] ";
910 PRINTYE$YO$PU$"       "ZV$YM$ZV$YM$ZV$YM$ZV$YM$ZV$YM$ZV$YM$ZV$YE$YO$;
915 PRINTG2$" [205]"ZG$ZG$ZG$ZG$ZG$ZG$ZG$ZG$ZG$ZG$ZG$ZG$ZG$ZG$ZG$" ";
920 PRINTYE$YO$WH$"PLATZ  "PU$" "YO$" "YO$S2$YO$S2$YO$S2$YO$S2$YO$S2$YE$YO$;
925 PRINTG2$" [205] LINDESOFTWARE  ";
930 PRINTYE$"[202]"ZV$ZH$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZH$;
935 PRINTZV$"[203] "G2$"[205]"ZE$ZE$ZE$ZE$ZE$ZE$ZE$ZE$ZE$ZE$ZE$ZE$ZE$ZE$ZE$" ";
940 PRINTYE$"  "YO$"    COKA COLA   "YO$"       [207]"ZM$ZM$ZM$ZM$;
945 PRINTZM$ZM$ZM$ZM$ZM$"[208]  ";
950 PRINTYE$"  "YO$"   C=COMMODORE  "YO$"       "ZK$" ERDGAS  "ZL$;
960 PRINTLB$"                                    ZIEL  ";
970 PRINTZ3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$;
975 PRINTZ3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$YO$Z3$Z3$;
980 PRINT"                                     "YO$"  ";
990 PRINTZ3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$;
995 PRINTZ3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$YO$Z3$Z3$;
1000 PRINT"                                     "YO$"  ";
1010 PRINTZ3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$;
1015 PRINTZ3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$YO$Z3$Z3$;
1020 PRINT"                                     "YO$"  ";
1030 PRINTZ3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$;
1035 PRINTZ3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$YO$Z3$Z3$;
1040 PRINT"                                     "YO$"  ";
1050 PRINTZ3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$;
1055 PRINTZ3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$YO$Z3$Z3$;
1060 PRINT"                                     "YO$"  ";
1070 PRINTZ3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$;
1075 PRINTZ3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$YO$Z3$Z3$;
1080 PRINT"                                     "YO$"  ";
1090 PRINTZ3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$;
1095 PRINTZ3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$Z3$YO$Z3$Z3$;
1100 PRINT"                                     "YO$"  ";
1110 PRINTCY$"  [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]    ";
1120 PRINTGR$"   "ZG$ZG$ZG$ZG$ZG$ZG$ZG$ZG$ZG$ZG$ZG$ZG$ZG$ZG$ZG$ZG$ZG$ZG$ZG$ZG$;
1125 PRINTZG$ZG$ZG$ZG$ZG$ZG$ZG$ZG$ZG$ZG$ZG$ZG$ZG$S2$"   ";
1130 PRINTOE$"  [209][209] [209][209][209][209][209][209][209][209] [209]"S2$"[209][209]"S2$"[209]"S2$"[209]"S2$"[209][209][209]"S2$"[209]"S2$"[209][209]"S2$;
1135 PRINT"[209][209][209][209] ";
1140 RETURN
1150 REM
1160 PRINTCL$C4$C4$
1170 PRINTLB$"       WRITTEN BY DETLEF LINDEMANN"
1180 PRINT""
1190 PRINT" "PU$"    [213]"ZV$ZV$ZV$"[201][213]"ZV$ZV$ZV$"[201][213]"ZV$ZV$ZV$"[201][213]"ZV$ZV$ZV$"[201][213]"ZV$;
1195 PRINTZV$ZV$"[201] [213]"ZV$ZV$ZV$"[201]"
1200 PRINT"     "YO$"[213]"ZV$"[201]"YO$YO$" [213]"ZV$"[203]"YO$" [213]"ZV$"[203]"YO$"[213]"ZV$"[201]"YO$;
1205 PRINTYO$" [213][201]"YO$" "YO$" [213]"ZV$"[203]"
1210 PRINT"     "YO$"[202]"ZV$"[203]"YO$YO$" [202][201] "YO$" [202][201] "YO$"[202]"ZV$"[203]"YO$YO$" "YO$;
1215 PRINTYO$YO$" "YO$" [202][201] "
1220 PRINT"     "YO$" [213]"ZV$"[203]"YO$" [213][203] "YO$" [213][203] "YO$"  "ZV$"[203]"YO$" "YO$YO$;
1225 PRINTYO$" "YO$" [213][203]"
1230 PRINT"     "YO$" "YO$"  "YO$" "YO$"  "YO$" [202]"ZV$"[201]"YO$YO$"[205][205] "YO$" [202][203]";
1235 PRINTYO$" "YO$" [202]"ZV$"[201]"
1240 PRINT"     [202]"ZV$"[203]  [202]"ZV$"[203]  [202]"ZV$ZV$ZV$"[203][202][203] [205][205][202]"ZV$ZV$ZV$"[203] [202]"ZV$ZV$ZV$"[203]"
1250 PRINT"      [213]"ZV$ZV$ZV$"[201] [213]"ZV$ZV$ZV$ZV$"[201] [213]"ZV$"[201][213]"ZV$"[201] [213]"ZV$"[201]  [213]"ZV$"[201]"
1260 PRINT"      "YO$"[213][201] "YO$" "YO$"[213]"ZV$ZV$"[201]"YO$" "YO$" "YO$YO$" "YO$" ";
1265 PRINTYO$" "YO$"[205] "YO$S2$YO$
1270 PRINT"      "YO$"[202][203][213][203] "YO$"[202]"ZV$ZV$"[203]"YO$" "YO$" [202][203] "YO$" "YO$" ";
1275 PRINTYO$" [205]"YO$S2$YO$
1280 PRINT"      "YO$"[213][201][202][201] "YO$" [213][201] "YO$" "YO$" [213][201] "YO$" "YO$" "YO$"[205] "YO$" "YO$
1290 PRINT"      "YO$"[202][203] "YO$" "YO$" "YO$YO$" "YO$" "YO$" "YO$YO$" ";
1295 PRINTYO$" "YO$" "YO$" [205]"YO$S2$YO$
1300 PRINT"      [202]"ZV$ZV$ZV$"[203] [202]"ZV$"[203][202]"ZV$"[203] [202]"ZV$"[203][202]"ZV$"[203]"S2$"[202]";
1305 PRINTZV$"[203]  [202]"ZV$"[203]
1310 [153]C4$C4$C4$"           "RN$"A"RF$"NLEITUNG    "RN$"S"RF$"TART"
1320 [142]
1330 [143] ** CURSOR POSITIONIEREN *******
1340 [151]214,Q1:[151]211,Q2:[158]58640:[142]
1350 [143] ** PLATZEINTRAG VORNEHMEN *****
1360 PL[178]PL[170]1:ZI(PF)[178]PL
1370 [151]PZ,3:[151]PS,5[170]PF[172]2:[158]58640:[153]PU$PL;
1380 [139]PL[179][177]AP[167]790
1390 [143] GONG
1400 SI[178]54272
1410 [151]SI[170]1,32:[151]SI,0:[151]SI[170]5,10:[151]SI[170]4,17
1420 [129]I[178]1[164]700:[130]:[151]SI[170]4,0
1430 [151]SI[170]1,25:[151]SI,0:[151]SI[170]4,17
1440 [129]I[178]1[164]1000:[130]
1450 [151]SI[170]4,0:[141]420
1460 Q1[178]24:Q2[178]0:[141]3520:[153]"               "RN$"G"RF$"EWINNPLAN           ";
1470 [161]I$:[139]I$[179][177]"G"[167]1470
1480 [151]V[170]21,0:[137]660
1490 [143] ** SPRITE PFERD 2 *************
1500 [131]0,0,16,0,0,56,0,0,60,0,0,126,0,0,126,0
1510 [131]0,255,0,3,255,63,255,247,127,255,227,127,255,224,127,255
1520 [131]224,127,255,240,127,255,248,251,159,124,247,15,158,239,7,199
1530 [131]108,1,227,108,0,115,102,0,54,99,0,54,49,128,0,255
1540 [143] ** SPRITE PFERD 1 *************
1550 [131]0,0,16,0,0,56,0,0,60,0,0,126,0,0,126,0
1560 [131]0,255,0,3,255,63,255,247,127,255,227,127,255,224,127,255
1570 [131]224,127,255,224,127,255,176,251,31,112,246,15,120,220,7,56
1580 [131]152,7,28,152,3,12,140,1,140,134,1,152,194,1,128,255
1590 [143] ** DEMO ***********************
1600 [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
1610 [151]V[170]21,128[170]126
1620 [129]PF[178]1[164]AP
1630 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)
1640 [139]X(PF)[179]330[167]1680
1650 [151]V[170]21,[194](V[170]21)[175](255[171]2[174]PF)
1660 X(PF)[178]10:[151]V[170]2[172]PF,10:[151]VB,[194](VB)[175](255[171]2[174]PF)
1670 [151]V[170]21,[194](V[170]21)[176]2[174]PF
1680 [130]PF
1690 [141]810:[161]I$
1700 [139]I$[178]"S"[167][151]V[170]21,0:[142]
1710 [139]I$[178]"A"[167][151]V[170]21,0:[141]2790:[142]
1720 [137]1590
1730 [143] *** WETTANNAHME ***************
1740 TA[178]0:[141]1910:[141]2360
1750 [129]SP[178]1[164]AS
1760 [139]GU(SP)[178]0[167]PN(SP)[178]1:EI(SP)[178]0:AU(SP)[178]0:[137]1840
1770 Q1[178]5[170]SP[172]2:Q2[178]20:Q3[178]1:Q7[178]0:[141]3180:PS$(SP)[178]Q4$
1780 [139]Q4$[179][177]"P"[175]Q4$[179][177]"S"[167]1770
1790 Q2[178]26:Q3[178]1:Q7[178]1:[141]3180:PN(SP)[178][197](Q4$)
1800 [139]PN(SP)[179]1[176]PN(SP)[177]7[167]1790
1810 Q2[178]29:Q3[178]6:Q7[178]1:[141]3180:EI(SP)[178][197](Q4$)
1820 [139]EI(SP)[179]0[176]EI(SP)[177]GU(SP)[176]EI(SP)[177]100000[167]1810
1830 GU(SP)[178]GU(SP)[171]EI(SP)
1840 [130]SP
1850 Q1[178]24:Q2[178]0:[141]3520
1855 [153]"  "RN$"L"RF$"OESCHEN   "RN$"R"RF$"UNDEN AENDERN   "RN$"S"RF$"TART";
1860 [161]I$
1870 [139]I$[178]"L"[167][129]SP[178]1[164]AS:GU(SP)[178]GU(SP)[170]EI(SP):[130]SP:[137]1730
1880 [139]I$[178]"R"[167][141]3090:[137]1850
1890 [139]I$[178]"S"[167][153]CL$;:[151]V[170]21,0:[142]
1900 [137]1860
1910 [143] ** WETTFORMULAR ***************
1915 [153][199](147)
1920 [139]TA[178]0[167][153]CL$[170]HE$[170]BL$[170]"WETTANNAHME 1   2   3   4   5   6   7   ";
1925 [137]1940
1930 [153]CL$HE$YE$"GEWINNPLAN!"BL$"                             ";
1940 [153]Z2$Z2$Z2$Z2$Z2$Z2$Z2$Z2$Z2$Z2$Z2$"                             ";
1950 [153]
1960 [153]
1970 [153]ZF$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZH$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZH$;
1975 [153]ZV$ZV$ZV$ZV$ZV$ZH$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZD$" ";
1980 [139]TA[178]0[167] [141] 60010:[137] 1985
1982 [137] 1990
1985 [153]YO$[170]"SPIELER  "[170]YO$[170]"SIEG/PLATZ"[170]YO$[170]"PFERD"[170]YO$[170]"EINSATZ DM"[170]YO$[170]" ";
1987 [137]2000
1990 [141]60000
1991 [153]YO$"SPIELER  "YO$"SIEG/PLATZ"YO$"PFERD"YO$"GEWINN! DM"YO$" ";
2000 [153]ZA$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$YM$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$YM$;
2005 [153]ZV$ZV$ZV$ZV$ZV$YM$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZI$" ";
2010 [153]YO$"         "YO$"S/P       "YO$"NR.  "YO$"        DM"YO$" ";
2020 [153]ZA$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$YM$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$YM$;
2025 [153]ZV$ZV$ZV$ZV$ZV$YM$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZI$" ";
2030 [153]YO$"         "YO$"S/P       "YO$"NR.  "YO$"        DM"YO$" ";
2040 [153]ZA$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$YM$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$;
2045 [153]YM$ZV$ZV$ZV$ZV$ZV$YM$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZI$" ";
2050 [153]YO$"         "YO$"S/P       "YO$"NR.  "YO$"        DM"YO$" ";
2060 [153]ZA$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$YM$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$YM$;
2065 [153]ZV$ZV$ZV$ZV$ZV$YM$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZI$" ";
2070 [153]YO$"         "YO$"S/P       "YO$"NR.  "YO$"        DM"YO$" ";
2080 [153]ZA$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$YM$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$YM$;
2085 [153]ZV$ZV$ZV$ZV$ZV$YM$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZI$" ";
2090 [153]YO$"         "YO$"S/P       "YO$"NR.  "YO$"        DM"YO$" ";
2100 [153]ZA$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$YM$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$YM$;
2105 [153]ZV$ZV$ZV$ZV$ZV$YM$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZI$" ";
2110 [153]YO$"         "YO$"S/P       "YO$"NR.  "YO$"        DM"YO$" ";
2120 [153]ZC$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZG$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZG$;
2125 [153]ZV$ZV$ZV$ZV$ZV$ZG$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZS$" ";
2130 [153]"                                        ";
2140 [153]"                 DM                   DM";
2150 [153]"                 DM                   DM";
2160 [153]"                 DM                   DM";
2170 [153]"                                        ";
2180 [139]TA[178]0[167][141]2360
2190 [129]I[178]1[164]AS:Q1[178]5[170]2[172]I:Q2[178]1:[141]3520:[153]YE$NA$(I):[130]
2200 [151]V[170]16,2[174]7[170]2[174]6
2210 [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]
2220 [151]V[170]21,128[170]126
2230 [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
2240 [142]
2250 [143] ** NAMEN EINGEBEN *************
2260 [153]CL$BL$
2270 [153]C4$C4$C4$"   ANZAHL DER SPIELER:":
2280 Q1[178]4:Q2[178]23:Q3[178]1:Q7[178]0:[153]YE$:[141]3180:AS[178][197](Q4$):[139]AS[179][178]0[176]AS[177]6[167]2280
2290 [153]
2300 [129]I[178]1[164]AS
2310 [153]C4$BL$"      NAME"I;C1$". SPIELER:";
2320 Q1[178]5[170]I[172]2:Q2[178]23:Q3[178]9:Q7[178]0:[153]YE$;:[141]3180:NA$(I)[178]Q4$:[139]Q4$[178]""[167]2320
2330 [130]I
2340 [129]I[178]1[164]AS:GU(I)[178]500:[130]I
2350 [142]
2360 [143] ** GUTHABEN ANZEIGEN **********
2370 Q1[178]19
2380 [129]I[178]1[164]AS
2390 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]3520:[153]YE$;NA$(I);
2400 ZA[178]GU(I):QL[178]6:[141]3570
2410 Q2[178]9[171]21[172]([181](I[173]2)[178]I[173]2):[141]3520:[153]YE$;ZA$;
2420 [130]I:[142]
2430 [143] ** PFERDE AN DEN START *******
2440 [141]330
2450 X(7)[178]20:::Y(7)[178]A2[170]0[172]A1
2460 X(6)[178]X(7):Y(6)[178]A2[170]1[172]A1
2470 X(5)[178]X(7):Y(5)[178]A2[170]2[172]A1
2480 X(4)[178]X(7):Y(4)[178]A2[170]3[172]A1
2490 X(3)[178]X(7):Y(3)[178]A2[170]4[172]A1
2500 X(2)[178]X(7):Y(2)[178]A2[170]5[172]A1
2510 X(1)[178]X(7):Y(1)[178]A2[170]6[172]A1
2520 [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
2530 [142]
2540 [143] *** ZWISCHENSTART ************
2550 [151]V[170]21,254
2560 [129]I[178]1[164]AP:RU(I)[178]0:ZI(I)[178]0:[130]I
2570 PL[178]0
2580 Q1[178]24:Q2[178]16:[141]3520:[153]PU$" "RN$"S"RF$"TART ";
2590 [161]I$:[139]I$[179][177]"S"[167]2590
2600 Q1[178]24:Q2[178]0:[141]3520:[153]G2$"  (null)(null) (null)(null)(null)(null)(null)(null)(null)(null) (null)"S2$"(null)(null)"S2$"(null)"S2$"(null)";
2605 [153]S2$"(null)(null)(null)"S2$"(null)"S2$"(null)(null)"S2$"(null)(null)(null)(null)  ";
2610 [142]
2620 [143] *** GEWINNVERTEILUNG/ANZEIGE *
2630 TA[178]1:[141]1910
2640 [129]I[178]1[164]AP:Q1[178]0:Q2[178]7[170]4[172]I:[141]3520:[153]ZI(I);:[130]
2650 [129]SP[178]1[164]AS:GW(SP)[178]0
2660 [139]AU(SP)[178]0[167]2750
2670 Q1[178]5[170]SP[172]2:Q2[178]20:[141]3520:[153]PS$(SP);
2680 Q2[178]25:[141]3520:[153]PN(SP);
2690 [139]PS$(SP)[178]"S"[167]2710
2700 [139]ZI(PN(SP))[179][178]3[167]GW(SP)[178]EI(SP)[172]2:[137]2720
2710 [139]ZI(PN(SP))[178]1[167]GW(SP)[178]EI(SP)[172]6
2720 GU(SP)[178]GU(SP)[170]GW(SP)
2730 ZA[178]GW(SP):QL[178]6:[141]3570
2740 Q1[178]5[170]SP[172]2:Q2[178]28:[141]3520:[153]ZA$RF$;
2750 [130]SP:[141]2360
2760 Q1[178]24:Q2[178]0:[141]3520
2765 [153]"        "RN$"W"RF$"ETTANNAHME  SHIFT"RN$"E"RF$"NDE ";
2770 [161]I$:[139]I$[179][177]"W"[175]I$[179][177]"VAL"[167]2770
2780 [142]
2790 [143] ** ANLEITUNG *****************
2800 [153]CL$PU$"JEDER SPIELER ERHAELT 500 DM - DAMIT "
2810 [153]"GEHT'S AUF ZUR RENNBAHN!                ";
2820 [153]"                                        ";
2830 [153]"WETTVORGANG                             ";
2840 [153]Z2$Z2$Z2$Z2$Z2$Z2$Z2$Z2$Z2$Z2$Z2$
2850 [153]"TRAGEN SIE IN DER SPALTE 'SIEG/PLATZ'   ";
2860 [153]"DEN BUCHSTABEN S ODER P EIN. IN DIE     ";
2870 [153]"SPALTE 'PFERD' SCHREIBEN SIE DIE NUMMER ";
2880 [153]"DES PFERDES, AUF DAS SIE SETZEN UND IN  ";
2890 [153]"DIE SPALTE 'EINSATZ' DEN GELDBETRAG, DEN";
2900 [153]"SIE RISKIEREN WOLLEN.                   ";
2910 [153]"                                        ";
2920 [153]"GEWINNBERECHNUNG                        ";
2930 [153]Z2$Z2$Z2$Z2$Z2$Z2$Z2$Z2$Z2$Z2$Z2$Z2$Z2$Z2$Z2$Z2$
2940 [153]"WENN SIE AUF DEN SIEG (S) EINES BEST. "
2950 [153]"PFERDES GESETZT HABEN,VERSECHSFACHT SICH";
2960 [153]"IHR EINSATZ BEIM SIEG DIESES PFERDES.   ";
2970 [153]"WETTEN SIE AUF PLATZ (P), VERDOPPELT"
2980 [153]"SICH IHR EINSATZ, FALLS SICH DAS PFERD"
2990 [153]"AUF DAS SIE GESETZT HABEN, UNTER DEN"
3000 [153]"ERSTEN DREI BEFINDET. "
3010 [153]"                                        ";
3020 [153]"BEI FEHLEINGABEN TASTE 'DEL' NOCH VOR   ";
3030 [153]"'RETURN' DRUECKEN!                      ";
3040 [153]"                               "RN$"B"RF$"EGINN";
3050 [161]I$:[139]I$[179][177]"B"[167]3050
3060 [153]CL$;:[142]
3070 [143] ** ENDE, SPRITES LOESCHEN ****
3080 [151]V[170]21,0:[151]788,49:[153]LB$CL$:[151]53280,14:[151]53281,6:[138]120
3090 [143] ** RUNDENANZAHL BESTIM. ******
3100 [141]3150
3110 Q1[178]23:Q2[178]0:[141]3520
3115 [153]"     ANZAHL DER RUNDEN"S2$"(1-3): "RN$" "RF$"      ";
3120 Q1[178]23:Q2[178]30:Q3[178]1:Q7[178]1:[141]3180:MR[178][197](Q4$):[139]MR[179]1[176]MR[177]3[167]3120
3130 Q1[178]23:Q2[178]0:[141]3520:[153]"                                       ";
3140 [142]
3150 [143] ** ZEILE 24 LOESCHEN *********
3160 Q1[178]24:Q2[178]0:[141]3520:[153]"                                      ";
3170 [142]
3180 [143] ** INPUT AT ******************
3190 Q9[178]0:Q8[178]1:[143] Q8=1 (NUR GERADE Z)
3200 [139]Q1[177][171]1[167][141]3520:[137]3220
3210 Q1[178][194](214):Q2[178][194](211)[170]2
3220 [129]II[178]1[164]Q3:[153]RN$" ";:[130]
3230 [141]3520
3240 Q5[178]0:Q4$[178]"":[151]1024[170]40[172]Q1[170]Q2,191
3250 [129]II[178]631[164]640:[151]II,0:[130]
3260 Q5[178]Q5[170]1
3270 [161]Q6$:[139]Q6$[178]""[167]3270
3280 [139][198](Q6$)[178]32[175]Q5[179][178]1[167]3270
3290 [139][198](Q6$)[178]13[167][153]:[137]3550
3300 [139][198](Q6$)[178]20[176][198](Q6$)[178]157[167]3400
3310 [139]Q7[178]1[167]3340
3320 [139][198](Q6$)[179]32[176][198](Q6$)[177]90[167]3270
3330 [137]3450
3340 [139][198](Q6$)[177][178]48[175][198](Q6$)[179][178]57[167]3450
3350 [139]Q8[178]1[167]3370
3360 [139][198](Q6$)[178]46[176][198](Q6$)[178]44[167]Q8[178]1:Q6$[178]".":[137]3450
3370 [139]Q9[178]1[167]3390
3380 [139][198](Q6$)[178]45[175]Q5[178]1[167]Q9[178]1:[137]3450
3390 [137]3270
3400 [139]Q5[179][178]1[167]3270
3410 Q2[178]Q2[171]1:[141]3520:Q8$[178][202](Q4$,Q5[171]1,1):[139]Q8$[178]"."[167]Q8[178]0
3420 [139]Q8$[178]"-"[167]Q9[178]0
3430 [153]RN$" ":[141]3520
3440 Q4$[178][200](Q4$,Q5[171]2):Q5[178]Q5[171]1:[137]3270
3450 Q4$[178]Q4$[170]Q6$
3460 [153]RN$;Q6$;:Q2[178]Q2[170]1:[141]3520
3470 [139]Q5[179]Q3[167]3260
3480 Q5[178]Q3[170]1:[161]Q6$:[139]Q6$[178]""[167]3480
3490 [139][198](Q6$)[178]20[176][198](Q6$)[178]157[167]3400
3500 [139][198](Q6$)[178]13[167][153]:[137]3550
3510 [137]3480
3520 [143] ** CURSOR POSITIONIEREN ******
3530 [151]214,Q1:[151]211,Q2:[158]58640
3540 [142]
3550 [139]Q4$[178]""[167]3180
3560 [142]
3570 [143] ** RECHTSBUND ****************
3580 ZA$[178][196]([181](ZA))
3590 QL[178]QL[170]1:[139]QL[177]14[167][153]CL$"LAENGE QL IM UP ZU GROSS!!!":[128]
3600 [139][195](ZA$)[177]QL[167]ZA$[178]">1MIO."
3610 ZA$[178][200]("                ",QL[171][195](ZA$))[170]ZA$
3620 [142]
60000 [143] NACHSPANN ==============
60010 [143] * FARBCODES/STEUERCODES
60020 WH$[178][199](005):C4$[178][199](017)
60030 RN$[178][199](018):HE$[178][199](019)
60040 RE$[178][199](028):GR$[178][199](030)
60050 BL$[178][199](031):OE$[178][199](129)
60060 RF$[178][199](146):CL$[178][199](147)
60070 G2$[178][199](152):LB$[178][199](154)
60080 PU$[178][199](156):C1$[178][199](157)
60090 YE$[178][199](158):CY$[178][199](159)
60100 [143] *** ZEICHENSATZ/GRAPHIK
60110 S2$[178][199](160):Z2$[178][199](163)
60120 Z3$[178][199](164):ZA$[178][199](171)
60130 ZC$[178][199](173):ZD$[178][199](174)
60140 ZE$[178][199](175):ZF$[178][199](176)
60150 ZG$[178][199](177):ZH$[178][199](178)
60160 ZI$[178][199](179):ZK$[178][199](181)
60170 ZL$[178][199](182):ZM$[178][199](183)
60180 ZS$[178][199](189):ZV$[178][199](192)
60190 YM$[178][199](219):YO$[178][199](221)
60200 [142]
60210 [143] ENDE