mirror of
https://github.com/rfivet/BCG101.git
synced 2024-12-17 23:56:24 -05:00
Add DOGS.
This commit is contained in:
parent
b8f4726a2d
commit
81de1a8d68
218
dec/DOGS.BAS
Normal file
218
dec/DOGS.BAS
Normal file
@ -0,0 +1,218 @@
|
||||
5 REM V.NAHIGIAN 8TH GRADE DOG RACE GAME
|
||||
10 DIM S(10),C(10),J(20),W(10),A(10)
|
||||
15 DIM N$(20),H$(10),P(20)
|
||||
20 DIM Y(10),B(11),M5(20)
|
||||
25 RECORD V
|
||||
30 RECORD X
|
||||
35 OPEN 8,"WINS"\OPEN 9,"LOSSES"
|
||||
40 IF S9=6 THEN 70\FOR I=1 TO 10\GET 8,25,I\V9=V9+V\NEXT I
|
||||
45 IF V9<25 THEN 60\IF V9>200 THEN 55
|
||||
50 GOTO 100
|
||||
55 UNSAVE 8\UNSAVE 9
|
||||
60 PRINT "PLEASE WAIT, DISREGARD THE 25 BELLS"
|
||||
65 PRINT\PRINT\PRINT\PRINT\PRINT\S9=6\GOTO 35
|
||||
70 FOR I=1 TO 25-V9\RANDOMIZE\H=INT(10*RND(X))+1\GET 8,25,H
|
||||
75 V=V+1\PUT 8,25,H\FOR T=1 TO 10\IF H=T THEN 85
|
||||
80 GET 9,30,T\X=X+1\PUT 9,30,T
|
||||
85 NEXT T
|
||||
90 PRINT CHR$(135);
|
||||
95 NEXT I
|
||||
100 PRINT\PRINT\PRINT
|
||||
105 PRINT TAB(10);"WELCOME TO ROOK-A-DAY RACE TRACK!!!"
|
||||
110 PRINT\PRINT
|
||||
115 PRINT "DO YOU WANT THE INSTRUCTIONS";\INPUT I$\GOTO 215
|
||||
120 PRINT " THIS IS A DOG RACE GAME. THERE ARE 10 DOGS"
|
||||
125 PRINT "WHICH RUN IN THIS RACE. THE WINS AND LOSSES OF"
|
||||
130 PRINT "EACH DOG ARE RECORDED SO THAT EVEN AFTER YOU"
|
||||
135 PRINT "LOG-OFF, THE WINS AND LOSSES OF THE DOGS WILL STILL"
|
||||
140 PRINT "BE RECORDED."
|
||||
145 PRINT " THE WINNER OF THE RACE WILL BE DETERMENED BY HOW"
|
||||
150 PRINT "MANY WINS AND LOSSES EACH DOG HAS. AFTER THE WINS AND"
|
||||
155PRINT "LOSSES OF EACH DOG HAVE BEEN POSTED, YOU WILL HAVE A "
|
||||
160 PRINT "CHANCE TO BET. NO MORE THAN 19 PEOPLE ARE ALLOWED"
|
||||
165 PRINT "TO BET IN THIS GAME. WHEN BETTING, YOU CANNOT BET OVER"
|
||||
170 PRINT "$500.00 AND MUST BET AT LEAST $2.00. MORE THAN 1"
|
||||
175 PRINT "PERSON MAY BET ON THE SAME DOG. AFTER THE BETS"
|
||||
180 PRINT "ARE MADE THE ODDS WILL BE FIGURED AND POSTED AND THE "
|
||||
185 PRINT "RACE WILL BEGIN."
|
||||
190 PRINT " THE STRADGY OF THIS GAME IS TO PICK THE WINNER"
|
||||
195 PRINT " INSUCH A WAY THAT THE ODDS ON THAT DOG ARE GOOD"
|
||||
200 PRINT "IN YOUR FAVOR."
|
||||
210 PRINT\PRINT TAB(10);"GOOD LUCK!!"\GOTO 220
|
||||
215 IF I$="YES" THEN 120\GOTO 220
|
||||
220 GOSUB 225\GOTO 255
|
||||
225 PRINT\PRINT\PRINT "DOG","NUMBER","WINS","LOSSES"
|
||||
230 FOR I=1 TO 10
|
||||
235 READ H$(I)
|
||||
240 GET 8,25,I\GET 9,30,I
|
||||
245 PRINT H$(I),I,V,X
|
||||
250 NEXT I\RETURN
|
||||
255 PRINT\PRINT\PRINT "HOW MANY WISH TO BET";
|
||||
260 INPUT Q\IF Q<20 THEN 270
|
||||
265 PRINT "NO MORE THAN 19 ALLOWED"\PRINT\GOTO 255
|
||||
270 FOR Z=1 TO Q
|
||||
275 PRINT "BETTOR'S NAME";\INPUT N$(Z)
|
||||
280 PRINT "DOG'S NUMBER";\INPUT J(Z)
|
||||
285 PRINT "AND YOUR BET";\INPUT P(Z)
|
||||
290 IF P(Z)<2 THEN 300\IF P(Z)>500 THEN 315
|
||||
295 PRINT\NEXT Z\GOTO 325
|
||||
300 PRINT "YOU MUST BET AT LEAST $2.00. TRY AGAIN "N$(Z)
|
||||
305 PRINT "YOUR BET";\INPUT P(Z)
|
||||
310 GOTO 290
|
||||
315 PRINT "YOU CAN'T BET OVER $500.00 "N$(Z)" TRY AGAIN"
|
||||
320 GOTO 305
|
||||
325 FOR I=1 TO 10
|
||||
330 B(11)=B(11)+P(I)
|
||||
335 NEXT I
|
||||
340 FOR I=1 TO Q 'AMOUNT OF PEOPLE PLAYING
|
||||
345 FOR I3=1 TO 10'DOGS
|
||||
350 IF J(I)<>I3 THEN 360
|
||||
355 A(I3)=A(I3)+P(I)
|
||||
360 NEXT I3
|
||||
365 NEXT I
|
||||
370 FOR I=1 TO 10
|
||||
375 IF A(I)>=2 THEN 390
|
||||
380 B(I)=INT(B(11)*RND(X))+1
|
||||
385 GOTO 395
|
||||
390 B(I)=INT((B(11)-A(I))/(A(I)-(.17*A(I))))
|
||||
395 IF B(I)<=2 THEN 405
|
||||
400 GOTO 410
|
||||
405 B(I)=2
|
||||
410 NEXT I
|
||||
415 PRINT
|
||||
420 PRINT "DOG","NUMBER","ODDS"
|
||||
425 FOR I=1 TO 10
|
||||
430 PRINT H$(I),I,B(I)": 1"
|
||||
435 NEXT I
|
||||
440 FOR I=1 TO 10
|
||||
445 GET 8,25,I\GET 9,30,I\IF V+X<=0 THEN 470
|
||||
450 RANDOMIZE
|
||||
455 Y(I)=INT(V/ABS((V+X))+INT(V*RND(X))+1)
|
||||
460 IF Y(I)<7 THEN 470
|
||||
465 GOTO 475
|
||||
470 Y(I)=INT(7*RND(X))+1
|
||||
475 NEXT I
|
||||
480 FOR R=1 TO 10
|
||||
485 S(R)=0
|
||||
490 NEXT R
|
||||
495 PRINT
|
||||
500 PRINT TAB(2);"-1 2 3 4 5 6 7 8 9 10","AND THEY'RE OFF!!!"
|
||||
505 PRINT CHR$(135);CHR$(135);CHR$(135);CHR$(135);CHR$(135);
|
||||
510 FOR R=1 TO 10
|
||||
515 RANDOMIZE
|
||||
520 C(R)=INT(Y(R)*RND(X))+1
|
||||
525 S(R)=S(R)+C(R)
|
||||
530 NEXT R
|
||||
535 PRINT TAB(2);"XXXXXXXXSTARTXXXXXXXX"
|
||||
540 FOR P=1 TO 20
|
||||
545 FOR R=1 TO 10
|
||||
550 IF P=S(R) THEN 580
|
||||
555 IF S(R)>20 THEN 590
|
||||
560 NEXT R
|
||||
565 PRINT
|
||||
570 NEXT P
|
||||
575 GOTO 625
|
||||
580 PRINT TAB(R*2);R;CHR$(141)
|
||||
585 GOTO 560
|
||||
590 IF W(1)<>0 THEN 605
|
||||
595 W(1)=R
|
||||
600 GOTO 560
|
||||
605 D=2
|
||||
610 W(D)=R
|
||||
615 D=D+1
|
||||
620 GOTO 560
|
||||
625 IF W(1)<>0 THEN 640
|
||||
630 PRINT TAB(2);"XXXXXXXFINISHXXXXXXXX"
|
||||
635 GOTO 510
|
||||
640 FOR Y=2 TO 22
|
||||
645 PRINT TAB(Y);"X";TAB(Y);CHR$(135);
|
||||
650 IF Y=7 THEN 665
|
||||
655 NEXT Y
|
||||
660 GOTO 680
|
||||
665 PRINT " FINISH";
|
||||
670 Y=13
|
||||
675 GOTO 655
|
||||
680 PRINT
|
||||
685 PRINT " ";
|
||||
690 FOR I=2 TO 22\PRINT "*";\NEXT I\PRINT
|
||||
695 IF D<=1 THEN 735
|
||||
700 G=W(1)
|
||||
705 FOR I2=1 TO D
|
||||
710 IF S(W(I2))<S(W(I2+1)) THEN 725
|
||||
715 NEXT I2
|
||||
720 GOTO 735
|
||||
725 G=W(I2+1)
|
||||
730 GOTO 715
|
||||
735 PRINT
|
||||
740 PRINT
|
||||
745 PRINT "AND THE WINNER IS DOG NUMBER";G,H$(G)
|
||||
750 PRINT\GOTO 970
|
||||
755 RESTORE
|
||||
760 FOR E=1 TO Q
|
||||
765 IF G=J(E) THEN 790
|
||||
770 M5(E)=M5(E)-P(E)
|
||||
775 N7=N7+P(E)
|
||||
780 NEXT E
|
||||
785 GOTO 835
|
||||
790 IF B(G)=2 THEN 800
|
||||
795 GOTO 805
|
||||
800 B(G)=1
|
||||
805 M=INT(100*(B(G)*P(E)+P(E))/100)
|
||||
810 PRINT "CONGRATULATION "N$(E)" YOU HAVE WON $";M
|
||||
815 M5(E)=M5(E)+M
|
||||
820 N7=N7-M
|
||||
825 PRINT
|
||||
830 GOTO 780
|
||||
835 PRINT "WOULD YOU AVID RACE FANS LIKE TO PLAY AGAIN";
|
||||
840 INPUT L$
|
||||
845 IF L$="YES" THEN 870
|
||||
850 PRINT\PRINT "PERSON","AMOUNT"\FOR I=1 TO Q
|
||||
855 PRINT N$(I),M5(I)\NEXT I\PRINT "COMP",N7
|
||||
860 FOR I=1 TO 5\PRINT\NEXT I\GOTO 1085
|
||||
865 GOTO 1085
|
||||
870 FOR K=1 TO 10
|
||||
875 A(K)=0
|
||||
880 S(K)=0
|
||||
885 W(K)=0
|
||||
890 C(K)=0
|
||||
895 J(K)=0
|
||||
900 B(11)=0
|
||||
905 B(K)=0
|
||||
910 NEXT K\GOSUB 225
|
||||
915 PRINT "ANY NEWCOMERS";\INPUT C$
|
||||
920 FOR I=1 TO Q
|
||||
925 PRINT N$(I)" YOUR DOG NUMBER";\INPUT J(I)
|
||||
930 PRINT "AND YOUR BET";\INPUT P(I)
|
||||
935 IF P(I)<2 THEN 950\IF P(I)>500 THEN 960\NEXT I
|
||||
940 IF C$="NO" THEN 325
|
||||
945 GOTO 1025
|
||||
950 PRINT "YOU MUST BET AT LEAST $2.00 "N$(I) " YOUR BET";
|
||||
955 INPUT P(I)\GOTO 935
|
||||
960 PRINT "YOU CAN'T BET OVER $500.00 "N$(I)" TRY AGAIN"
|
||||
965 GOTO 930
|
||||
970 FOR I=1 TO 10
|
||||
975 GET 8,25,I\GET 9,30,I
|
||||
980 IF I=G THEN 995
|
||||
985 X=X+1\ PUT 9,30,I
|
||||
990 GO TO 1000
|
||||
995 V=V+1\PUT 8,25,I
|
||||
1000 NEXT I
|
||||
1005 GOTO 755
|
||||
1010 DATA "FASTER","ZELDA","SPEEDY","ZIFFLE","KILLER"
|
||||
1015 DATA "BURBON","BUGZY","SNOOPY","LASSIE","WINNER"
|
||||
1020 GOTO 1085
|
||||
1025 PRINT\PRINT "HOW MANY NEWCOMERS";\Q4=0\INPUT J6\Q4=Q+J6
|
||||
1030 IF Q4>20 THEN 1035\Q=Q4\Q4=0\GO TO 1040
|
||||
1035 PRINT "NO MORE THAN 19 ALLOWED. YOU U NOW HAVE "Q\Q4=0\GOTO 1025
|
||||
1040 FOR Z=I TO Q
|
||||
1045 PRINT "BETTORS NAME";\INPUT N$(Z)
|
||||
1050 PRINT "DOGS NUMBER";\INPUT J(Z)
|
||||
1055 PRINT "AND YOUR BET";\INPUT P(Z)\IF P(Z)<2 THEN 1070
|
||||
1060 IF P(Z)>500 THEN 1075
|
||||
1065 PRINT\NEXT Z\GOTO 325
|
||||
1070 PRINT "YOU MUST BET AT LEAST $2.00"\GOTO 1055
|
||||
1075 PRINT "YOU CAN'T BET OVER $500.00"\GOTO 1055
|
||||
1080 GOTO 325
|
||||
1085 CLOSE 8\CLOSE 9
|
||||
1090 REM
|
||||
1095 END
|
||||
213
port/DOGS.BAS
Normal file
213
port/DOGS.BAS
Normal file
@ -0,0 +1,213 @@
|
||||
5 REM V.NAHIGIAN 8TH GRADE DOG RACE GAME
|
||||
10 DIM S(10),C(10),J(20),W(10),A(10)
|
||||
15 DIM N$(20),H$(10),P(20)
|
||||
20 DIM Y(10),B(11),M5(20)
|
||||
25 RECORD V
|
||||
30 RECORD X
|
||||
35 OPEN 8,"WINS"\OPEN 9,"LOSSES"
|
||||
40 IF S9=6 THEN 70\I1=0\FOR I=1 TO 10\GET 8,25,I1
|
||||
41 IF V=INT(V) THEN 43
|
||||
42 I=11\V9=999\GOTO 44
|
||||
43 V9=V9+V
|
||||
44 NEXT I
|
||||
45 IF V9<25 THEN 60\IF V9>200 THEN 55
|
||||
50 GOTO 100
|
||||
55 UNSAVE 8\UNSAVE 9\V9=0
|
||||
60 PRINT "PLEASE WAIT, DISREGARD THE 25 BELLS"
|
||||
65 PRINT\PRINT\PRINT\PRINT\PRINT\S9=6\GOTO 35
|
||||
70 I1=0\I2=0\V=0\X=0\FOR I=1 TO 10\PUT 8,25,I1\PUT 9,30,I2\NEXT I
|
||||
71 FOR I=1 TO 25-V9\RANDOMIZE\H=INT(10*RND(X))\H1=H\GET 8,25,H1
|
||||
75 V=V+1\H1=H\PUT 8,25,H1\FOR T=0 TO 9\IF H=T THEN 85
|
||||
80 T1=T\GET 9,30,T1\X=X+1\T1=T\PUT 9,30,T1
|
||||
85 NEXT T
|
||||
90 PRINT CHR$(135);
|
||||
95 NEXT I
|
||||
100 PRINT\PRINT\PRINT
|
||||
105 PRINT TAB(10);"WELCOME TO ROOK-A-DAY RACE TRACK!!!"
|
||||
110 PRINT\PRINT
|
||||
115 PRINT "DO YOU WANT THE INSTRUCTIONS";\INPUT I$\GOTO 215
|
||||
120 PRINT " THIS IS A DOG RACE GAME. THERE ARE 10 DOGS"
|
||||
125 PRINT "WHICH RUN IN THIS RACE. THE WINS AND LOSSES OF"
|
||||
130 PRINT "EACH DOG ARE RECORDED SO THAT EVEN AFTER YOU"
|
||||
135 PRINT "LOG-OFF, THE WINS AND LOSSES OF THE DOGS WILL STILL"
|
||||
140 PRINT "BE RECORDED."
|
||||
145 PRINT " THE WINNER OF THE RACE WILL BE DETERMINED BY HOW"
|
||||
150 PRINT "MANY WINS AND LOSSES EACH DOG HAS. AFTER THE WINS AND"
|
||||
155PRINT "LOSSES OF EACH DOG HAVE BEEN POSTED, YOU WILL HAVE A "
|
||||
160 PRINT "CHANCE TO BET. NO MORE THAN 19 PEOPLE ARE ALLOWED"
|
||||
165 PRINT "TO BET IN THIS GAME. WHEN BETTING, YOU CANNOT BET OVER"
|
||||
170 PRINT "$500.00 AND MUST BET AT LEAST $2.00. MORE THAN 1"
|
||||
175 PRINT "PERSON MAY BET ON THE SAME DOG. AFTER THE BETS"
|
||||
180 PRINT "ARE MADE THE ODDS WILL BE FIGURED AND POSTED AND THE "
|
||||
185 PRINT "RACE WILL BEGIN."
|
||||
190 PRINT " THE STRATEGY OF THIS GAME IS TO PICK THE WINNER"
|
||||
195 PRINT "IN SUCH A WAY THAT THE ODDS ON THAT DOG ARE GOOD"
|
||||
200 PRINT "IN YOUR FAVOR."
|
||||
210 PRINT\PRINT TAB(10);"GOOD LUCK!!"\GOTO 220
|
||||
215 IF I$="YES" THEN 120\GOTO 220
|
||||
220 GOSUB 225\GOTO 255
|
||||
225 PRINT\PRINT\PRINT "DOG","NUMBER","WINS","LOSSES"
|
||||
230 I1=0\I2=0\FOR I=1 TO 10
|
||||
235 READ H$(I)
|
||||
240 GET 8,25,I1\GET 9,30,I2
|
||||
245 PRINT H$(I),I,V,X
|
||||
250 NEXT I\RETURN
|
||||
255 PRINT\PRINT\PRINT "HOW MANY WISH TO BET";
|
||||
260 INPUT Q\IF Q<20 THEN 270
|
||||
265 PRINT "NO MORE THAN 19 ALLOWED"\PRINT\GOTO 255
|
||||
270 FOR Z=1 TO Q
|
||||
275 PRINT "BETTOR'S NAME";\INPUT N$(Z)
|
||||
280 PRINT "DOG'S NUMBER";\INPUT J(Z)
|
||||
285 PRINT "AND YOUR BET";\INPUT P(Z)
|
||||
290 IF P(Z)<2 THEN 300\IF P(Z)>500 THEN 315
|
||||
295 PRINT\NEXT Z\GOTO 325
|
||||
300 PRINT "YOU MUST BET AT LEAST $2.00. TRY AGAIN "N$(Z)
|
||||
305 PRINT "YOUR BET";\INPUT P(Z)
|
||||
310 GOTO 290
|
||||
315 PRINT "YOU CAN'T BET OVER $500.00 "N$(Z)" TRY AGAIN"
|
||||
320 GOTO 305
|
||||
325 FOR I=1 TO 10
|
||||
330 B(11)=B(11)+P(I)
|
||||
335 NEXT I
|
||||
340 FOR I=1 TO Q 'AMOUNT OF PEOPLE PLAYING
|
||||
345 FOR I3=1 TO 10'DOGS
|
||||
350 IF J(I)<>I3 THEN 360
|
||||
355 A(I3)=A(I3)+P(I)
|
||||
360 NEXT I3
|
||||
365 NEXT I
|
||||
370 FOR I=1 TO 10
|
||||
375 IF A(I)>=2 THEN 390
|
||||
380 B(I)=INT(B(11)*RND(X))+1
|
||||
385 GOTO 395
|
||||
390 B(I)=INT((B(11)-A(I))/(A(I)-(.17*A(I))))
|
||||
395 IF B(I)<=2 THEN 405
|
||||
400 GOTO 410
|
||||
405 B(I)=2
|
||||
410 NEXT I
|
||||
415 PRINT
|
||||
420 PRINT "DOG","NUMBER","ODDS"
|
||||
425 FOR I=1 TO 10
|
||||
430 PRINT H$(I),I,B(I)": 1"
|
||||
435 NEXT I
|
||||
440 I1=0\I2=0\FOR I=1 TO 10
|
||||
445 GET 8,25,I1\GET 9,30,I2\IF V+X<=0 THEN 470
|
||||
450 RANDOMIZE
|
||||
455 Y(I)=INT(V/ABS((V+X))+INT(V*RND(X))+1)
|
||||
460 IF Y(I)<7 THEN 470
|
||||
465 GOTO 475
|
||||
470 Y(I)=INT(7*RND(X))+1
|
||||
475 NEXT I
|
||||
480 FOR R=1 TO 10
|
||||
485 S(R)=0
|
||||
490 NEXT R
|
||||
495 PRINT
|
||||
500 PRINT TAB(2);"-1 2 3 4 5 6 7 8 9 10","AND THEY'RE OFF!!!"
|
||||
505 PRINT CHR$(135);CHR$(135);CHR$(135);CHR$(135);CHR$(135);
|
||||
510 FOR R=1 TO 10
|
||||
515 RANDOMIZE
|
||||
520 C(R)=INT(Y(R)*RND(X))+1
|
||||
525 S(R)=S(R)+C(R)
|
||||
530 NEXT R
|
||||
535 PRINT TAB(2);"XXXXXXXXSTARTXXXXXXXX"
|
||||
540 FOR P=1 TO 20
|
||||
545 FOR R=1 TO 10
|
||||
550 IF P=S(R) THEN 580
|
||||
555 IF S(R)>20 THEN 590
|
||||
560 NEXT R
|
||||
565 PRINT
|
||||
570 NEXT P
|
||||
575 GOTO 625
|
||||
580 PRINT TAB(R*2);R;CHR$(141)
|
||||
585 GOTO 560
|
||||
590 IF W(1)<>0 THEN 605
|
||||
595 W(1)=R
|
||||
600 GOTO 560
|
||||
605 D=2
|
||||
610 W(D)=R
|
||||
615 D=D+1
|
||||
620 GOTO 560
|
||||
625 PRINT TAB(2);"XXXXXXXFINISHXXXXXXXX"
|
||||
630 IF W(1)=0 THEN 510
|
||||
685 PRINT " ";
|
||||
690 FOR I=2 TO 22\PRINT "*";\NEXT I\PRINT
|
||||
695 IF D<=1 THEN 735
|
||||
700 G=W(1)
|
||||
705 FOR I2=1 TO D
|
||||
710 IF S(W(I2))<S(W(I2+1)) THEN 725
|
||||
715 NEXT I2
|
||||
720 GOTO 735
|
||||
725 G=W(I2+1)
|
||||
730 GOTO 715
|
||||
735 PRINT
|
||||
740 PRINT
|
||||
745 PRINT "AND THE WINNER IS DOG NUMBER";G,H$(G)
|
||||
750 PRINT\GOTO 970
|
||||
755 RESTORE
|
||||
760 FOR E=1 TO Q
|
||||
765 IF G=J(E) THEN 790
|
||||
770 M5(E)=M5(E)-P(E)
|
||||
775 N7=N7+P(E)
|
||||
780 NEXT E
|
||||
785 GOTO 835
|
||||
790 IF B(G)=2 THEN 800
|
||||
795 GOTO 805
|
||||
800 B(G)=1
|
||||
805 M=INT(100*(B(G)*P(E)+P(E))/100)
|
||||
810 PRINT "CONGRATULATION "N$(E)" YOU HAVE WON $";M
|
||||
815 M5(E)=M5(E)+M
|
||||
820 N7=N7-M
|
||||
825 PRINT
|
||||
830 GOTO 780
|
||||
835 PRINT "WOULD YOU AVID RACE FANS LIKE TO PLAY AGAIN";
|
||||
840 INPUT L$
|
||||
845 IF L$="YES" THEN 870
|
||||
850 PRINT\PRINT "PERSON","AMOUNT"\FOR I=1 TO Q
|
||||
855 PRINT N$(I),M5(I)\NEXT I\PRINT "COMP",N7
|
||||
860 FOR I=1 TO 5\PRINT\NEXT I\GOTO 1085
|
||||
865 GOTO 1085
|
||||
870 FOR K=1 TO 10
|
||||
875 A(K)=0
|
||||
880 S(K)=0
|
||||
885 W(K)=0
|
||||
890 C(K)=0
|
||||
895 J(K)=0
|
||||
900 B(11)=0
|
||||
905 B(K)=0
|
||||
910 NEXT K\GOSUB 225
|
||||
915 PRINT "ANY NEWCOMERS";\INPUT C$
|
||||
920 FOR I=1 TO Q
|
||||
925 PRINT N$(I)" YOUR DOG NUMBER";\INPUT J(I)
|
||||
930 PRINT "AND YOUR BET";\INPUT P(I)
|
||||
935 IF P(I)<2 THEN 950\IF P(I)>500 THEN 960\NEXT I
|
||||
940 IF C$="NO" THEN 325
|
||||
945 GOTO 1025
|
||||
950 PRINT "YOU MUST BET AT LEAST $2.00 "N$(I) " YOUR BET";
|
||||
955 INPUT P(I)\GOTO 935
|
||||
960 PRINT "YOU CAN'T BET OVER $500.00 "N$(I)" TRY AGAIN"
|
||||
965 GOTO 930
|
||||
970 FOR I=1 TO 10
|
||||
975 I1=I-1\GET 8,25,I1\I2=I-1\GET 9,30,I2
|
||||
980 IF I=G THEN 995
|
||||
985 X=X+1\I2=I-1\PUT 9,30,I2
|
||||
990 GO TO 1000
|
||||
995 V=V+1\I1=I-1\PUT 8,25,I1
|
||||
1000 NEXT I
|
||||
1005 GOTO 755
|
||||
1010 DATA "FASTER","ZELDA","SPEEDY","ZIFFLE","KILLER"
|
||||
1015 DATA "BURBON","BUGZY","SNOOPY","LASSIE","WINNER"
|
||||
1020 GOTO 1085
|
||||
1025 PRINT\PRINT "HOW MANY NEWCOMERS";\Q4=0\INPUT J6\Q4=Q+J6
|
||||
1030 IF Q4>20 THEN 1035\Q=Q4\Q4=0\GO TO 1040
|
||||
1035 PRINT "NO MORE THAN 19 ALLOWED. YOU U NOW HAVE "Q\Q4=0\GOTO 1025
|
||||
1040 FOR Z=I TO Q
|
||||
1045 PRINT "BETTORS NAME";\INPUT N$(Z)
|
||||
1050 PRINT "DOGS NUMBER";\INPUT J(Z)
|
||||
1055 PRINT "AND YOUR BET";\INPUT P(Z)\IF P(Z)<2 THEN 1070
|
||||
1060 IF P(Z)>500 THEN 1075
|
||||
1065 PRINT\NEXT Z\GOTO 325
|
||||
1070 PRINT "YOU MUST BET AT LEAST $2.00"\GOTO 1055
|
||||
1075 PRINT "YOU CAN'T BET OVER $500.00"\GOTO 1055
|
||||
1080 GOTO 325
|
||||
1085 CLOSE 8\CLOSE 9
|
||||
1090 REM
|
||||
1095 END
|
||||
Loading…
Reference in New Issue
Block a user