mirror of
https://github.com/jscrane/Apple1.git
synced 2024-12-03 02:50:57 +00:00
remove blanks
This commit is contained in:
parent
e49cba1408
commit
2256502943
@ -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
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user