Apple-1-HW
/
Apple1-esp
mirror of https://github.com/jscrane/Apple1.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

remove blanks

This commit is contained in:
Stephen Crane 2014-11-17 19:58:01 +00:00
parent e49cba1408
commit 2256502943
1 changed files with 0 additions and 94 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

94
programs/deal.txt
View File

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