| |
DB1ZF > MSX 25.06.95 16:52l 107 Lines 3045 Bytes #-10555 (0) @ WW
BID : 256546DB0GV
Read: OE5LPO DJ4SR OK1IKE DF2SKE GUEST
Subj: Horses.bas
Path: DB0AAB<DB0KCP<DB0CRL<DB0RBS<DK0MTV<DB0AIS<DB0GV
Sent: 950625/1235z @DB0GV.#HES.DEU.EU [Maintal-Frank4t JO40KD 438.025 SYSOP: DF
de DB1ZF @ DB0GV.#HES.DEU.EU (Kurt)
to MSX @ WW
10 SP=0:COLOR 15,1,1:KEY OFF:WIDTH 39
20 GELD=500
30 CLS
40 IF GELD<1 THEN END
50 LOCATE 25,0:PRINT"GELD ";GELD
60 LOCATE 10,4:PRINT"PFERDERENNEN"
70 LOCATE 2,7:PRINT"Wenn mehrere Pferde mitmachen"
80 LOCATE 2,8:PRINT"ist Ihr Gewinn hoeher "
90 LOCATE 2,10:PRINT"1 Pferd 1 x Einsatz"
100 LOCATE 2,11:PRINT"2 Pferden 2 x Einsatz"
110 PRINT:INPUT "Wieviel Pferde machen mit (max 9)";A%
120 IF A%>9 OR A%<1 THEN 110
130 PRINT:PRINT
140 INPUT "Was ist Ihre Einsatz";INZ
150 IF INZ>GELD THEN PRINT"Sie riskieren mehr als sie haben!":GOTO 140
160 PRINT:INPUT "Auf welches Pferd setzen Sie ";GOK
166 IF GOK >A% THEN 160
170 C=INT(191/A%)
180 SCREEN 2,2
190 IF A%>6 THEN 210
200 SCREEN 2,3
210 GOSUB 700
220 IF SP=1 THEN 240
230 OPEN "GRP:" FOR OUTPUT AS #1
240 FOR I=0 TO A%
250 IF I=A% THEN 270
260 PSET(0,I*C+3):PRINT #1,I+1
270 LINE (2,I*C)-(255,I*C)
280 NEXT I
290 LINE (33,0)-(33,191)
300 LINE (222,0)-(222,191)
310 IF 0=A% THEN 450
320 SO=SO+.5
330 IF SO=3 THEN SO=0
340 IF D>206 THEN R=1:GOTO 800
350 IF E>206 THEN R=2:GOTO 800
360 IF F>206 THEN R=6:GOTO 800
370 IF G>206 THEN R=3:GOTO 800
380 IF K>206 THEN R=4:GOTO 800
390 IF J>206 THEN R=5:GOTO 800
400 IF L>206 THEN R=7:GOTO 800
410 IF M>206 THEN R=8:GOTO 800
420 IF N>206 THEN R=9:GOTO 800
430 PUT SPRITE 0,(D,0),3,SO
440 D=D+INT(RND(-TIME)*4)
450 IF 1=A% THEN 320
460 PUT SPRITE 1,(E,1*C),4,SO
470 E=E+INT(RND(-TIME)*4)
480 IF 2=A% THEN 320
490 PUT SPRITE 2,(G,2*C),6,SO
500 G=G+INT(RND(-TIME)*4)
510 IF 3=A% THEN 320
520 PUT SPRITE 3,(K,3*C),7,SO
530 K=K+INT(RND(-TIME)*4)
540 IF 4=A% THEN 320
550 PUT SPRITE 4,(J,4*C),8,SO
560 J=J+INT(RND(-TIME)*4)
570 IF 5=A% THEN 320
580 PUT SPRITE 5,(F,5*C),9,SO
590 F=F+INT(RND(-TIME)*4)
600 IF 6=A% THEN 320
610 PUT SPRITE 6,(L,6*C),10,SO
620 L=L+INT(RND(-TIME)*4)
630 IF 7=A% THEN 320
640 PUT SPRITE 7,(M,7*C),11,SO
650 M=M+INT(RND(-TIME)*4)
660 IF 8=A% THEN 320
670 PUT SPRITE 9,(N,8*C),12,SO
680 N=N+INT(RND(-TIME)*4)
690 IF 9=A% THEN 320
700 RESTORE 990
710 FOR I=1 TO 32:READ S:A$=A$+CHR$(S):NEXT I
720 SPRITE$(0)=A$:A$=""
730 RESTORE 1000
740 FOR I=1 TO 32:READ S:B$=B$+CHR$(S):NEXT I
750 SPRITE$(1)=B$:B$=""
760 RESTORE 1010
770 FOR I=1 TO 32:READ S:C$=C$+CHR$(S):NEXT I
780 SPRITE$(2)=C$:C$=""
790 RETURN
800 PSET(100,3):PRINT #1,"FOTO-FINISH"
810 SP=1
820 FOR T=1 TO 1500:NEXT T
830 SCREEN 3
840 PRESET(0,8):PRINT #1,"GEWINNER"
850 PRESET(90,78):PRINT #1,R
860 FOR T=1 TO 1000:NEXT T
870 SCREEN 0
880 IF R<>GOK THEN 930
890 INZ=INZ*A%-INZ
900 GELD=GELD+INZ
910 LOCATE 5,4:PRINT"GEWONNEN";INZ
920 GOTO 950
930 LOCATE 5,4:PRINT"VERLOREN";INZ
940 GELD=GELD-INZ
950 LOCATE 8,10:PRINT"GELD";GELD
960 FOR T=1 TO 1200:NEXT T
970 D=0:E=0:G=0:K=0:J=0:F=0:L=0:M=0:N=0:SO=0
980 GOTO 30
990 DATA 0,0,0,0,0,0,0,0,63,95,95,159,152,48,96,192,0,0,8,12,31,63,120,240,240,224,224,224,96,48,24,12
1000 DATA 0,0,0,0,0,0,0,0,63,95,95,159,152,48,48,24,0,0,8,12,31,63,120,240,240,224,224,224,96,48,48,96
1010 DATA 0,0,0,0,0,0,0,0,63,95,95,159,152,48,32,96,0,0,8,12,31,63,120,240,240,224,224,224,96,48,16,24
Read previous mail | Read next mail
| |
