remove blanks

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 
 
-