mirror of
https://github.com/rfivet/BCG101.git
synced 2024-12-18 08:06:27 -05:00
Cleanup status of BLKJAK and CHEMST.
This commit is contained in:
parent
f72a7c4c91
commit
ba4d30b9ff
@ -1,25 +0,0 @@
|
||||
10 PRINT "THE FICTITIOUS CHEMICAL KRYPTOCYANIC ACID CAN ONLY BE"
|
||||
20 PRINT "DILUTED BY THE RATIO OF 7 PARTS WATER TO 3 PARTS ACIE."
|
||||
30 PRINT "IF ANY OTHER RATIO IS ATTEMPTED, THE ACID BECOMES UNSTABLE"
|
||||
40 PRINT "AND SOON EXPLODES. GIVEN THE AMOUNT OF ACID, YOU MUST"
|
||||
50 PRINT "DECIDE HOW MUCH WATER TO ADD FOR DILUTION. IF YOU MISS"
|
||||
60 PRINT "YOU FACE THE CONSEQUENCES."
|
||||
100 LET A=INT(RND(1)*50)
|
||||
110 LET W=7*A/3
|
||||
120 PRINT A"LITERS OF KRYPTOCYANIC ACID. HOW MUCH WATER";
|
||||
130 INPUT R
|
||||
140 LET D=ABS(W-R)
|
||||
150 IF D>W/20 THEN 200
|
||||
160 PRINT "GOOD JOB! YOU MAY BREATHE NOW, BUT DON'T INHALE THE FUMES!"
|
||||
170 PRINT
|
||||
180 GO TO 100
|
||||
200 PRINT "SIZZLE! YOU HAVE JUST BEEN DESALINATED INTO A BLOB"
|
||||
210 PRINT "OF QUIVERING PROTOPLASM!"
|
||||
220 LET T=T+1
|
||||
230 IF T=9 THEN 260
|
||||
240 PRINT "HOWEVER, YOU MAY TRY AGAIN WITH ANOTHER LIFE."
|
||||
245 PRINT
|
||||
250 GO TO 100
|
||||
260 PRINT "YOUR 9 LIVES ARE USED, BUT YOU WILL BE LONG REMEMBERED FOR"
|
||||
270 PRINT "YOUR CONTRIBUTIONS TO THE FIELD OF COMIC BOOK CHEMISTRY."
|
||||
280 END
|
||||
102
port/BLKJAK.BAS
Normal file
102
port/BLKJAK.BAS
Normal file
@ -0,0 +1,102 @@
|
||||
5 PRINT "WELCOME TO DIGITAL EDUSYSTEM COMPUTER BLACKJACK!!"
|
||||
6 PRINT\PRINT "YOUR DEALER TONIGHT IS PETEY P. EIGHT."
|
||||
7 PRINT "WATCH HIM CLOSELY.... HE HAS A REPUTATION FOR"
|
||||
8 PRINT "DEALING OFF THE BOTTOM OF THE DECK."\PRINT
|
||||
9 RANDOMIZE
|
||||
10 DIM A(13)
|
||||
20 PRINT "QUESTIONS REQUIRING A YES OR NO ANSWER"
|
||||
25 PRINT "SHOULD BE ANSWERED WITH A 'Y' FOR YES, 'N' FOR NO."\PRINT
|
||||
30 PRINT "DON'T START PLAYING WITH LESS THAN $100.. HAVE FUN!"\PRINT
|
||||
40 PRINT "HOW MANY DOLLARS ARE YOU STARTING WITH";
|
||||
41 INPUT F
|
||||
42 PRINT
|
||||
43 F1=F
|
||||
50 PRINT "WHAT IS YOUR WAGER THIS TIME";
|
||||
51 INPUT W
|
||||
52 PRINT
|
||||
53 IF W>F GOTO 56
|
||||
54 IF W<10 GOTO 58
|
||||
55 GOTO 100
|
||||
56 PRINT "YOUR BET EXCEEDS YOUR REMAINING DOLLARS."
|
||||
57 GOTO 50
|
||||
58 PRINT "MINIMUM WAGER IS $10."
|
||||
59 GOTO 50
|
||||
100 GOSUB 780
|
||||
102 P1=I
|
||||
104 PRINT "YOUR FIRST CARD IS "CHR$(L)
|
||||
106 GOSUB 780
|
||||
110 P2=I
|
||||
112 PRINT "YOUR SECOND CARD IS "CHR$(L)
|
||||
115 GOSUB 200
|
||||
117 PRINT "YOU HAVE "P3" SHOWING."
|
||||
119 GOSUB 760
|
||||
120 P3=P3+I
|
||||
122 PRINT "YOU GOT A "CHR$(L)
|
||||
123 IF P3>21 GOTO 820
|
||||
124 GOTO 117
|
||||
200 GOSUB 780
|
||||
201 P3=P1+P2
|
||||
202 D1=I
|
||||
204 GOSUB 780
|
||||
206 D2=I
|
||||
208 PRINT "DEALER SHOWS A "CHR$(L)
|
||||
210 GOTO 117
|
||||
212 D3=D1+D2
|
||||
214 PRINT "DEALER HAS "D3
|
||||
216 IF D3>16 GOTO 222
|
||||
217 GOSUB 780
|
||||
218 PRINT "DEALER GETS A "CHR$(L)
|
||||
219 D3=D3+I
|
||||
220 GOTO 214
|
||||
222 IF D3<22 GOTO 800
|
||||
224 PRINT "DEALER BUSTED."
|
||||
226 GOTO 802
|
||||
760 PRINT "DO YOU WANT A HIT";
|
||||
762 INPUT K$
|
||||
764 PRINT
|
||||
766 IF K$="N" GOTO 212
|
||||
768 GOSUB 780
|
||||
770 RETURN
|
||||
780 I=INT(13*RND(0)+1)
|
||||
782 A(I)=A(I)+1
|
||||
784 IF A(I)>4 GOTO 780
|
||||
786 GOSUB 900
|
||||
788 RETURN
|
||||
800 IF D3>=P3 GOTO 820
|
||||
802 F=F+W
|
||||
806 PRINT "YOU WIN. YOU NOW HAVE $"F
|
||||
808 GOTO 980
|
||||
820 F=F-W
|
||||
822 PRINT "YOU LOSE. YOU NOW HAVE $"F
|
||||
824 GOTO 980
|
||||
900 IF I<>1 GOTO 910
|
||||
904 I=11
|
||||
906 L=65 ' #A
|
||||
908 GOTO 942
|
||||
910 IF I<>13 GOTO 920
|
||||
912 I=10
|
||||
914 L=75 ' #K
|
||||
916 GOTO 942
|
||||
920 IF I<>12 GOTO 930
|
||||
922 I=10
|
||||
924 L=81 ' #Q
|
||||
926 GOTO 942
|
||||
930 IF I<>11 GOTO 937
|
||||
932 I=10
|
||||
934 L=74 ' #J
|
||||
936 GOTO 942
|
||||
937 IF I<>10 GOTO 940
|
||||
938 L=84 ' #T
|
||||
939 GOTO 942
|
||||
940 L=I+48
|
||||
942 RETURN
|
||||
980 PRINT "DO YOU WISH TO PLAY AGAIN";
|
||||
982 INPUT K$
|
||||
984 PRINT\PRINT
|
||||
986 IF K$="Y" GOTO 50
|
||||
987 PRINT\PRINT\PRINT \IF F>F1 THEN 995
|
||||
988 PRINT "TOO BAD! YOU LOST"F1-F"DOLLARS AT THE EDUSYSTEM CASINO."
|
||||
990 GOTO 998
|
||||
995 PRINT "NOT BAD! YOU WON"F-F1"DOLLARS AT THE EDUSYSTEM CASINO."
|
||||
998 PRINT\PRINT "HOPE YOU ENJOYED YOURSELF. THANKS FOR PLAYING."
|
||||
999 END
|
||||
@ -1,102 +0,0 @@
|
||||
5 PRINT "WELCOME TO DIGITAL EDUSYSTEM COMPUTER BLACKJACK!!"
|
||||
6 PRINT\PRINT "YOUR DEALER TONIGHT IS PETEY P. EIGHT."
|
||||
7 PRINT "WATCH HIM CLOSELY.... HE HAS A REPUTATION FOR"
|
||||
8 PRINT "DEALING OFF THE BOTTOM OF THE DECK."\PRINT
|
||||
9 RANDOMIZE
|
||||
10 DIM A(13)
|
||||
20 PRINT "QUESTIONS REQUIRING A YES OR NO ANSWER"
|
||||
25 PRINT "SHOULD BE ANSWERED WITH A 'Y' FOR YES, 'N' FOR NO."\PRINT"
|
||||
30 PRINT "DON'T START PLAYING WITH LESS THAN $100.. HAVE FUN!"\PRINT
|
||||
40 PRINT "HOW MANY DOLLARS ARE YOU STARTING WITH";
|
||||
41 INPUT F
|
||||
42 PRINT
|
||||
43 F1=F
|
||||
50 PRINT "WHAT IS YOUR WAGER THIS TIME";
|
||||
51 INPUT W
|
||||
52 PRINT
|
||||
53 IF W>F GOTO 56
|
||||
54 IF W<10 GOTO 58
|
||||
55 GOTO 100
|
||||
56 PRINT "YOUR BET EXCEEDS YOUR REMAINING DOLLARS."
|
||||
57 GOTO 50
|
||||
58 PRINT "MINIMUM WAGER IS $10."
|
||||
59 GOTO 50
|
||||
100 GOSUB 780
|
||||
102 P1=I
|
||||
104 PRINT "YOUR FIRST CARD IS "CHR$(L)
|
||||
106 GOSUB 780
|
||||
110 P2=I
|
||||
112 PRINT "YOUR SECOND CARD IS "CHR$(L)
|
||||
115 GOSUB 200
|
||||
117 PRINT "YOU HAVE "P3" SHOWING."
|
||||
119 GOSUB 760
|
||||
120 P3=P3+I
|
||||
122 PRINT "YOU GOT A "CHR$(L)
|
||||
123 IF P3>21 GOTO 820
|
||||
124 GOTO 117
|
||||
200 GOSUB 780
|
||||
201 P3=P1+P2
|
||||
202 D1=I
|
||||
204 GOSUB 780
|
||||
206 D2=I
|
||||
208 PRINT "DEALER SHOWS A "CHR$(L)
|
||||
210 GOTO 117
|
||||
212 D3=D1+D2
|
||||
214 PRINT "DEALER HAS "D3
|
||||
216 IF D3>16 GOTO 222
|
||||
217 GOSUB 780
|
||||
218 PRINT "DEALER GETS A "CHR$(L)
|
||||
219 D3=D3+I
|
||||
220 GOTO 214
|
||||
222 IF D3<22 GOTO 800
|
||||
224 PRINT "DEALER BUSTED."
|
||||
226 GOTO 802
|
||||
760 PRINT "DO YOU WANT A HIT";
|
||||
762 INPUT K$
|
||||
764 PRINT
|
||||
766 IF K="N" GOTO 212
|
||||
768 GOSUB 780
|
||||
770 RETURN
|
||||
780 I=INT(13*RND(0)+1)
|
||||
782 A(I)=A(I)+1
|
||||
784 IF A(I)>4 GOTO 780
|
||||
786 GOSUB 900
|
||||
788 RETURN
|
||||
800 IF D3>=P3 GOTO 820
|
||||
802 F=F+W
|
||||
806 PRINT "YOU WIN. YOU NOW HAVE $"F
|
||||
808 GOTO 980
|
||||
820 F=F-W
|
||||
822 PRINT "YOU LOSE. YOU NOW HAVE $"F
|
||||
824 GOTO 980
|
||||
900 IF I<>1 GOTO 910
|
||||
904 I=11
|
||||
906 L=65 ' #A
|
||||
908 GOTO 942
|
||||
910 IF I<>13 GOTO 920
|
||||
912 I=10
|
||||
914 L=75 ' #K
|
||||
916 GOTO 942
|
||||
920 IF I<>12 GOTO 930
|
||||
922 I=10
|
||||
924 L=81 ' #Q
|
||||
926 GOTO 942
|
||||
930 IF I<>11 GOTO 937
|
||||
932 I=10
|
||||
934 L=74 ' #J
|
||||
936 GOTO 942
|
||||
937 IF I<>10 GOTO 940
|
||||
938 L=84 ' #T
|
||||
939 GOTO 942
|
||||
940 L=I+48
|
||||
942 RETURN
|
||||
980 PRINT "DO YOU WISH TO PLAY AGAIN";
|
||||
982 INPUT K$
|
||||
984 PRINT\PRINT
|
||||
986 IF K$="Y" GOTO 50
|
||||
987 PRINT\PRINT\PRINT \IF F>F1 THEN 995
|
||||
988 PRINT "TOO BAD! YOU LOST"F1-F"DOLLARS AT THE EDUSYSTEM CASINO."
|
||||
990 GOTO 998
|
||||
995 PRINT "NOT BAD! YOU WON"F-F1"DOLLARS AT THE EDUSYSTEM CASINO."
|
||||
998 PRINT\PRINT "HOPE YOU ENJOYED YOURSELF. THANKS FOR PLAYING."
|
||||
999 END
|
||||
@ -1,26 +0,0 @@
|
||||
10 PRINT "THE FICTITIOUS CHEMICAL KRYPTOCYANIC ACID CAN ONLY BE"
|
||||
20 PRINT "DILUTED BY THE RATIO OF 7 PARTS WATER TO 3 PARTS ACID."
|
||||
30 PRINT "IF ANY OTHER RATIO IS ATTEMPTED, THE ACID BECOMES UNSTABLE"
|
||||
40 PRINT "AND SOON EXPLODES. GIVEN THE AMOUNT OF ACID, YOU MUST"
|
||||
50 PRINT "DECIDE HOW MUCH WATER TO ADD FOR DILUTION. IF YOU MISS"
|
||||
60 PRINT "YOU FACE THE CONSEQUENCES."
|
||||
90 RANDOMIZE
|
||||
100 LET A=INT(RND(1)*50)+1
|
||||
110 LET W=7*A/3
|
||||
120 PRINT A"LITERS OF KRYPTOCYANIC ACID. HOW MUCH WATER";
|
||||
130 INPUT R
|
||||
140 LET D=ABS(W-R)
|
||||
150 IF D>W/20 THEN 200
|
||||
160 PRINT "GOOD JOB! YOU MAY BREATHE NOW, BUT DON'T INHALE THE FUMES!"
|
||||
170 PRINT
|
||||
180 GO TO 100
|
||||
200 PRINT "SIZZLE! YOU HAVE JUST BEEN DESALINATED INTO A BLOB"
|
||||
210 PRINT "OF QUIVERING PROTOPLASM!"
|
||||
220 LET T=T+1
|
||||
230 IF T=9 THEN 260
|
||||
240 PRINT "HOWEVER, YOU MAY TRY AGAIN WITH ANOTHER LIFE."
|
||||
245 PRINT
|
||||
250 GO TO 100
|
||||
260 PRINT "YOUR 9 LIVES ARE USED, BUT YOU WILL BE LONG REMEMBERED FOR"
|
||||
270 PRINT "YOUR CONTRIBUTIONS TO THE FIELD OF COMIC BOOK CHEMISTRY."
|
||||
280 END
|
||||
Loading…
Reference in New Issue
Block a user