Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß) 6000 OUT 136,8:RESTORE 6000:WINDOW:CLS:FOR I=1 TO 17:READ F$:PRINT F$:NEXT I 6002 WINDOW 18,23,0,39 6004 FOR I=1 TO 6 6006 FOR J=1 TO 5:READ B$:PRINT TAB((40-LEN(B$))/2);B$:NEXT J 6008 PRINT TAB(27);:INPUT "ENTER ==>";B$ 6010 NEXT I 6012 DATA " " 6014 DATA " " 6016 DATA " " 6018 DATA " " 6020 DATA " " 6022 DATA " " 6024 DATA " DER GROSSE PREIS " 6026 DATA " " 6028 DATA " IM " 6030 DATA " " 6032 DATA " GALOPPRENNSPORT " 6034 DATA " " 6036 DATA " " 6038 DATA " " 6040 DATA " 6042 DATA " " 6044 DATA " " 6046 DATA "DAS 'PFERDERENNEN' IST EIN WETTSPIEL" 6048 DATA "","FUER DIE GESAMTE FAMILIE." 6050 DATA "","WAS SIE BRAUCHEN ?" 6052 DATA ""," " 6054 DATA " GLUECK UND GELD "," " 6056 DATA "" 6058 DATA "HABEN SIE BEIDES,KANN ES LOSGEHEN.","" 6060 DATA "BIS ZU 8 PERSONEN KOENNEN MITSPIELEN.","" 6062 DATA "GEBEN SIE BITTE IHREN NAMEN UND ..." 6064 DATA "DAS IHNEN ZUR VERFUEGUNG STEHENDE","" 6066 DATA "KAPITAL AN. DIE WETTE IST EINE SIEG-","" 6068 DATA "WETTE UND WIRD WIE FOLGT ABGESCHLOSSEN:" 6070 DATA "WETTE ==> <pferde-nummer,einsatz>","" 6072 DATA "DER EINSATZ PRO WETTE KANN ZWISCHEN","" 6074 DATA "1 UND 9999 LIEGEN.","" 6076 DATA "","","UND NUN VIEL SPASS BEIM PFERDERENNEN." 6078 DATA "","" 6080 WINDOW:CLS 6082 PRINT AT(10,0);STRING$(40,"=") 6084 WINDOW 11,23,0,39:CLS 6086 INPUT "WIEVIEL PERSONEN WOLLEN MITWETTEN ? ";A 6088 IF A>8 THEN PRINT:PRINT "BITTE NICHT MEHR ALS 8 PERSONEN.":PRINT:GOTO 6086 6090 PRINT:PRINT "DARF ICH UM IHRE NAMEN BITTEN !":PRINT 6092 FOR I=1 TO A:PRINT "WETTSPIELER";I;": ";:INPUT "";N$(I):NEXT I 6094 CLS:PRINT "WIEVIEL GELD WOLLEN SIE VERSPIELEN ?":PRINT 6096 FOR I=1 TO A:PRINT N$(I);TAB(15);":";:INPUT "";W1(I):NEXT I 6098 RESTORE 6268:FOR I=1 TO 8:READ P$(I):NEXT I 6100 CLS:WINDOW 11,23,0,20 6102 PRINT "PFERD NR. KURS":PRINT STRING$(21,"-") 6104 E=0:T=1:R=0:FOR I=1 TO 8:B(I)=INT(10*RND(1)+1):R=R+B(I):NEXT I 6106 FOR I=1 TO 8:PRINT P$(I);TAB(9);I;TAB(13);INT(R/B(I));TAB(17);":1":NEXT I 6108 WINDOW 11,23,21,39:PRINT " NUN IHRE WETTEN:":PRINT STRING$(18,"-"):PRINT 6110 FOR I=1 TO A 6112 IF W1(I)=0 THEN E=E+1:GOTO 6122 6114 PRINT N$(I);TAB(8);":";:INPUT "";T(I),W(I) 6116 IF W(I)<1 OR W(I)>9999 THEN 6242 6118 IF W(I)>W1(I)THEN 6248 6120 W1(I)=W1(I)-W(I) 6122 NEXT I 6124 IF E=A THEN 6258 6126 WINDOW 0,9,0,39:CLS 6128 FOR I=0 TO 9:FOR J=1 TO 38 STEP 37:PRINT AT(I,J);"":NEXT J:NEXT I 6130 PRINT AT(0,13);"GALOPPRENNBAHN":PRINT AT(0,0);" " 6132 FOR I=1 TO 8:P(I)=-4760-(40*I):P1(I)=P(I)+39:POKE P(I),48+I:NEXT I 6134 FOR I=1 TO 500:NEXT I:BEEP 6136 FOR I=1 TO 8 6138 X(I)=I:V(X(I))=INT(100*RND(1)+1):IF V(X(I))<10 THEN V(X(I))=1:GOTO 6152 6140 X=INT(R/B(I)+.5):IF V(X(I))<X+17 THEN V(X(I))=2:GOTO 6152 6142 IF V(X(I))<X+37 THEN V(X(I))=3:GOTO 6152 6144 IF V(X(I))<X+57 THEN V(X(I))=4:GOTO 6152 6146 IF V(X(I))<X+77 THEN V(X(I))=5:GOTO 6152 6148 IF V(X(I))<X+92 THEN V(X(I))=6:GOTO 6152 6150 V(X(I))=7 6152 NEXT I 6154 FOR I=1 TO 8 6156 P(X(I))=P(X(I))+V(X(I)):IF P(X(I))<P1(X(I))THEN 6170 6158 IF P1(X(I))<>P(X(I))-V(X(I))THEN POKE(P(X(I))-V(X(I))),32 6160 P(X(I))=P1(X(I)) 6162 FOR J=1 TO T 6164 IF E(J)=P(X(I))THEN 6170 6166 NEXT J 6168 E(T)=P(X(I)):T=T+1:BEEP 6170 NEXT I 6172 FOR I=1 TO 8 6174 FOR J=1 TO 8-I 6176 IF V(X(J))<V(X(J+1))THEN 6180 6178 K=X(J):X(J)=X(J+1):X(J+1)=K 6180 NEXT J 6182 NEXT I 6184 FOR I=1 TO 8 6186 IF P(X(I))<P1(X(I))THEN POKE(P(X(I))-V(X(I))),32 6188 POKE P(X(I)),48+X(I) 6190 NEXT I 6192 IF T<9 THEN 6136 6194 WINDOW 11,23,0,39:CLS:WINDOW 11,23,0,20 6196 PRINT "HIER DER EINLAUF:":PRINT STRING$(21,"-") 6198 FOR I=1 TO 8 6200 T=ABS(E(I)+4721)/40:PRINT I;P$(T);TAB(12);INT(R/B(T));TAB(16);":1" 6202 NEXT I 6204 WINDOW 11,23,21,39:PRINT "ES HABEN GEWONNEN:":PRINT STRING$(18,"-"):PRINT 6206 FOR I=1 TO A 6208 IF T(I)<>ABS(E(1)+4721)/40 THEN 6212 6210 PRINT N$(I);TAB(8);":";INT(R/B(T(I)))*W(I):W1(I)=W1(I)+INT(R/B(T(I)))*W(I) 6212 NEXT I 6214 WINDOW 0,9,0,39:CLS 6216 PRINT "SIE BESITZEN z.Zt. FOLGENDES VERMOEGEN:" 6218 FOR I=1 TO A:PRINT:PRINT TAB(5);N$(I);TAB(20);":";W1(I);:NEXT I 6220 PRINT TAB(33);:INPUT "=>";X$:CLS 6222 RESTORE 6272:FOR I=1 TO 5:READ B$:PRINT:PRINT TAB((40-LEN(B$))/2);B$;:NEXT I 6224 INPUT "";X$ 6226 IF LEFT$(X$,1)="N"OR LEFT$(X$,1)="n"THEN 6234 6228 IF LEFT$(X$,1)="J"OR LEFT$(X$,1)="j"THEN 6232 6230 GOTO 6224 6232 FOR I=1 TO 8:E(I)=0:NEXT I:WINDOW 11,23,0,39:CLS:WINDOW 0,9,0,39:GOTO 6100 6234 CLS:PRINT:PRINT " NA DANN SPAREN SIE WEITER FUER DAS" 6236 PRINT:PRINT " NAECHSTE MAL !":PRINT AT(4,0);" ":PAUSE 18 6238 WINDOW:CLS:PRINT AT(0,0);" ":PRINT AT(10,14);"AUF WIEDERSEHEN":PAUSE 60:CLS 6240 END 6242 GOSUB 6256 6244 PRINT AT(2,8);"IHNEN NUR ZUR ERINNERUNG !":PRINT AT(3,8);STRING$(25,"") 6246 PRINT AT(6,0);"DER EINSATZ LIEGT ZWISCHEN 1 UND 9999.":GOTO 6114 6248 GOSUB 6256 6250 PRINT AT(2,1);"ES TUT MIR SEHR LEID, SIE DARAUF HIN-" 6252 PRINT AT(4,4);"WEISEN ZU MUESSEN,DASS NUR NOCH":PRINT AT(6,18);W1(I) 6254 PRINT AT(8,4);"AUF IHREM KONTO ZU BUCHE STEHEN.":GOTO 6114 6256 FOR J=0 TO 9:PRINT AT(J,0);STRING$(40," "):NEXT J:RETURN 6258 GOSUB 6256 6260 PRINT AT(1,3);"SIE HABEN ALLE IHR GELD VERSPIELT." 6262 PRINT AT(3,5);"WOLLEN SIE ES WIEDERGEWINNEN ?" 6264 PRINT AT(5,2);"DANN GEHEN SIE ANS EIGEMACHTE UND" 6266 PRINT AT(7,8);"FANGEN SIE VON VORNE AN.":END 6268 DATA "AGATHE","MEPHISTO","LANDLUFT","OEDIPUS","JESSICA" 6270 DATA "HANNIBAL","MAINELKE","ALADIN" 6272 DATA "DAS NAECHSTE RENNEN BEGINNT GLEICH.","" 6274 DATA "WOLLEN SIE WIEDER MITMACHEN ?","" 6276 DATA "HABEN SIE NOCH GELD (J/N) ? "