remove blanks

This commit is contained in:
Stephen Crane 2014-11-17 19:58:01 +00:00
parent e49cba1408
commit 2256502943

View File

@ -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