From ba4d30b9ff06dc280435df49ba7aa24a1b0df2eb Mon Sep 17 00:00:00 2001 From: Renaud Fivet Date: Mon, 3 Jun 2024 10:06:37 +0800 Subject: [PATCH] Cleanup status of BLKJAK and CHEMST. --- dec/CHEMIST.BAS | 25 ------------ port/BLKJAK.BAS | 102 ++++++++++++++++++++++++++++++++++++++++++++++ port/BLKJAK.BAS.1 | 102 ---------------------------------------------- port/CHEMIST.BAS | 26 ------------ 4 files changed, 102 insertions(+), 153 deletions(-) delete mode 100644 dec/CHEMIST.BAS create mode 100644 port/BLKJAK.BAS delete mode 100644 port/BLKJAK.BAS.1 delete mode 100644 port/CHEMIST.BAS diff --git a/dec/CHEMIST.BAS b/dec/CHEMIST.BAS deleted file mode 100644 index eb1de89..0000000 --- a/dec/CHEMIST.BAS +++ /dev/null @@ -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 diff --git a/port/BLKJAK.BAS b/port/BLKJAK.BAS new file mode 100644 index 0000000..4764cbd --- /dev/null +++ b/port/BLKJAK.BAS @@ -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 diff --git a/port/BLKJAK.BAS.1 b/port/BLKJAK.BAS.1 deleted file mode 100644 index a4a7981..0000000 --- a/port/BLKJAK.BAS.1 +++ /dev/null @@ -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 diff --git a/port/CHEMIST.BAS b/port/CHEMIST.BAS deleted file mode 100644 index b419be2..0000000 --- a/port/CHEMIST.BAS +++ /dev/null @@ -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