diff --git a/programs/deal.txt b/programs/deal.txt index 0774ce6..ab19e36 100644 --- a/programs/deal.txt +++ b/programs/deal.txt @@ -2,7 +2,6 @@ SCR LOMEM=768 HIMEM=16384 - 10 REM DEAL OR NO DEAL 20 REM 30 REM CREATED BY VINCE BRIEL @@ -110,7 +109,6 @@ HIMEM=16384 890 IF A$="KEEP" THEN 9500 900 REM EXCHANGE V FOR Y 910 Y=V:Y1=A(V):GOTO 9500 - 1000 REM PRINT BOARD ROUTINE 1010 L=22: PRINT 1020 FOR J=1 TO 3 @@ -166,186 +164,94 @@ HIMEM=16384 2230 A$="500,000":RETURN 2240 A$="750,000":RETURN 2250 A$="1,000,000":RETURN - 3000 REM HERE IS WHERE YOU PICK "C" NUMBER OF CASES - 3005 PRINT "NOW, HERE ARE THE REMAINING CASES:" - 3006 PRINT "YOU HAVE ";C;" MORE CASES TO CHOOSE" - 3007 GOSUB 1000 - 3010 INPUT "CHOOSE A CASE (0 TO SEE PRIZES LEFT)",B - 3020 IF B>-1 AND B<27 THEN 3040 - 3030 PRINT "PLEASE CHOOSE BETWEEN 1 AND 26.":GOTO 3000 - 3040 IF B#0 THEN 3048 - 3041 FOR I=1 TO 13:IF D(I)=0 THEN 3044 - 3042 GOSUB 1990+I*10 - 3043 PRINT "$";A$; - 3044 TAB 20:IF D(13+I)=0 THEN 3047 - 3045 GOSUB 1990+(I+13)*10 - 3046 PRINT "$";A$; - 3047 PRINT:NEXT I:PRINT:GOTO 3010 - 3048 IF A(B)#0 THEN 3060 - 3050 PRINT "THAT CASE HAS BEEN CHOOSEN. TRY AGAIN.":GOTO 3000 - 3060 D(A(B))=0:D=A(B):GOSUB 1990+(D*10) - 3070 A(B)=0:PRINT "SHOW THE CASE..." - 3080 FOR I=1 TO 1000:NEXT I:PRINT - 3090 TAB 12:PRINT "$";A$:FOR I=1 TO 1000:NEXT I - 3094 PRINT:C=C-1:IF C>0 THEN 3000 - 3099 RETURN - 5000 REM THIS AREA FOR WHERE YOU MAKE AN OFFER - 5010 PRINT:PRINT "RING......":FOR I=1 TO 1500:NEXT I - 5015 REM GET HIGHEST VALUE LEFT - 5020 H=0:Z=0:FOR I=1 TO 26:IF A(I)=0 THEN 5040 - 5030 H=I:Z=Z+1 - 5040 NEXT I:J=RND(3)+1:J=J-2:H=H+J:H=H-3:Z=Z/2:H=H-Z - 5042 IF H>=1 THEN O(S)=H:GOTO 5050 - 5043 O(S)=2 - 5050 IF S=1 THEN 5100 - 5055 PRINT "HERE ARE YOUR PREVIOUS OFFERS:" - 5060 PRINT "------------------------------" - 5070 PRINT :FOR I=1 TO S-1 - 5080 GOSUB 1990+O(I)*10 - 5090 TAB 5:PRINT "$";A$:NEXT I - 5100 PRINT - 5110 IF O(S)>16 THEN 5190 - 5180 PRINT "A GOOD OFFER OF ";:GOTO 5330 - 5190 IF O(S)>18 THEN 5200 - 5195 PRINT "A NICE OFFER OF ";:GOTO 5330 - 5200 IF O(S)>19 THEN 5220 - 5210 PRINT "A SWEET OFFER OF ";:GOTO 5330 - 5220 PRINT "A GREAT OFFER OF $"; - 5330 GOSUB 1990+O(S)*10 - 5340 PRINT A$;" IS ON THE BOARD." - 5350 PRINT:PRINT "BEFORE YOU ANSWER THINK ABOUT" - 5360 PRINT "IT FOR A WHILE..." - 5370 FOR I=1 TO 1500:NEXT I - 5380 PRINT "OK, SO HERE'S THE QUESTION...":PRINT - 5390 PRINT "DEAL, OR NO DEAL." - 5400 IF D(26)=0 THEN 5430 - 5410 PRINT "A MILLION DOLLARS COULD STILL BE" - 5420 PRINT "IN YOUR CASE!":GOTO 5800 - 5430 IF D(25)=0 THEN 5800 - 5440 PRINT "$750,000 COULD BE IN YOUR CASE." - 5800 PRINT "SO, I NEED AN ANSWER" - 5810 INPUT "DEAL, OR NO DEAL",A$ - 5812 IF A$="DEAL" THEN 9500 - 5814 IF A$="NO DEAL" OR A$="ND" OR A$="NODEAL" THEN 5840 - 5820 PRINT "PLEASE ANSWER 'DEAL' OR 'NO DEAL'" - 5830 GOTO 5810 - 5840 FOR I=1 TO 12:PRINT:NEXT I:TAB 12:PRINT "NO DEAL" - 5850 S=S+1:RETURN - 9000 FOR I=1 TO 24: PRINT : NEXT I - 9010 TAB 12: PRINT "DEAL OR NO DEAL" - 9020 PRINT - 9030 PRINT "THE GAME IS PLAYED WITH 26 CASES. THE" - 9040 PRINT "VALUE IN EACH CASE RANGES FROM $.01 TO" - 9050 PRINT "$1,000,000! YOU CHOOSE THE ONE CASE YOU" - 9060 PRINT "THINK HAS THE $1,000,000." - 9070 PRINT : PRINT "NEXT YOU BEGIN OPENING CASES UP. AFTER" - 9080 PRINT "A NUMBER OF CASES ARE OPENED THE BANKER" - 9090 PRINT "WILL MAKE YOU AN OFFER TO BUY BACK YOUR" - 9100 PRINT "CASE. YOU CAN EITHER ACCEPT THE OFFER" - 9120 PRINT "FOR YOUR CASE OR CONTINUE TO OPEN MORE" - 9130 PRINT "CASES. YOU PLAY UNTIL YOU RUN OUT OF" - 9140 PRINT "CASES OR UNTIL YOU ACCEPT THE BANKS" - 9150 PRINT "OFFER. GOOD LUCK!" - 9160 FOR I=1 TO 1500: NEXT I: GOTO 150 - - 9500 REM TOOK THE DEAL OR LAST CASE, SHOW WHAT'S IN YOUR CASE - 9510 FOR I=1 TO 24:PRINT:NEXT I - 9520 PRINT "AND INSIDE YOUR CASE IS":PRINT - 9530 GOSUB 1990+Y1*10 - 9540 TAB 8:PRINT "$";A$ - 9550 PRINT:PRINT"SEE YOU NEXT TIME ON..." - 9560 PRINT "DEAL OR NO DEAL" - 9570 PRINT - 9999 END -