The Old Shell Game

This program runs on the T/S 2068 and is self-explanatory.

   5 REM [illegible] ©1985 JACK ARMSTRONG
  10 BORDER 5: INK 1: PAPER 6: CLS : LET M=0
  15 DIM S$(3): DIM P$(1): GO SUB 20: GO TO 50
  20 FOR k=-5 TO 7: BEEP .05,k: NEXT k: CLS : PRINT INK 2;AT 7,6;"[illegible]"
  30 PRINT FLASH 1;AT 8,6;" THE OLD SHELL GAME "
  40 PRINT INK 2;AT 9,6;"[illegible]": PAUSE 120: RETURN
  50 GO SUB 3030
  60 GO SUB 3000
  70 FOR K=1 TO 3: LET S$(K)=CHR$ (K+143): NEXT K: LET P$=CHR$ 147
  80 PRINT '''''"Hi There! My name's Tim Sinclair": POKE 23658,8
  90 PRINT '''''"What is your name?": INPUT n$: PAUSE 60: CLS
 100 PRINT '''''"Well, Now-";n$;"..."
 110 PRINT '"Do you, by any chance, have a"
 120 PRINT '"bit of gambling blood in you?"
 130 PRINT ''"Input your answer: Y(es) or N(o)": PAUSE 0: LET Q$=INKEY$
 140 IF Q$<>"Y" AND Q$<>"N" THEN CLS : GO TO 130
 150 IF Q$=CHR$ 78 THEN GO TO 610
 160 CLS : PRINT '''''"Well now, ";n$;" they call this ": PAUSE 120
 170 CLS : GO SUB 20
 180 PAUSE 60: CLS
 190 PRINT '''''"Here's the deal, ";n$
 200 PRINT '"I have these three shells..."''TAB 10; INK 2;S$;" ";S$;" ";S$
 210 PRINT '"And I have this little pea..."; INK 4;P$: PAUSE 180
 220 GO SUB 1000
 230 PAUSE 60: CLS
 240 PRINT '''"Here's the deal ";n$;"..."
 250 PRINT '"I'll put the pea under a shell,"
 260 PRINT '"Mix them up...Then YOU guess..."
 270 PRINT '"Which shell is the pea under... ";''TAB 11;"▒ - ▒ or ▒"
 280 PRINT '"Just to make things interesting-"''"Let's make a little wager on it.": LET m=10
 290 PRINT ''"Press ENTER to continue...": PAUSE 0: CLS : PRINT '"How much do you want to bet that"
 300 PRINT '"You can guess correctly?"
 310 PRINT ''"Since we are friends here, let's"
 320 PRINT '"make some limits-say you have",''"$10.00 and you can bet any even"
 330 PRINT '"amount from $1 to $10 as long as"''"you have the money to bet."
 340 PRINT '''''"Press ENTER to continue...": PAUSE 0: CLS : PRINT '''''"PLACE YOUR BET. Please enter the"
 350 PRINT '"number only. Don't use the ($)"''"dollar sign-just the number."
 360 PRINT AT 21,0;"You have $";m;" in your poke.": INPUT bet: PAUSE 60: CLS
 370 IF bet>m THEN GO TO 410
 380 IF bet>10 THEN GO TO 410
 390 LET m=m-bet
 400 IF bet>=1 AND bet<=10 THEN GO TO 430
 410 PAUSE 60: CLS : PRINT '''''"Come, come, Sport-I'm no sucker-"
 420 PRINT '"Quit trying to con me-Make your bet!": IF bet>M OR bet>10 THEN PRINT ''"You can't bet more than $10.00  or more than is in your poke.": LET bet=0: PAUSE 180: CLS : GO TO 340
 430 PRINT '''''"O.K., Sport...Here we go..."
 440 GO SUB 20: GO SUB 1000
 450 LET P=INT (RND*3)+1
 460 PRINT ''''"Well, Now, ";n$;"..."
 470 PRINT '"Where's the Pea?": INPUT "What's your guess: ";g
 480 CLS : IF g<1 OR g>3 THEN GO TO 450
 490 PRINT '''''"O.K., Sport, glad you made that"
 500 PRINT '"Choice-Let's see now...": IF g=p THEN LET m=m+2*bet
 510 IF g<>p THEN GO TO 670
 520 PAUSE 120: CLS : GO SUB 800: PAUSE 60
 530 PRINT ''"How about that, Sport-You made a"
 540 PRINT '"good guess...Now you have $";m;"."
 550 PRINT '"Want to try again? If you feel"
 560 PRINT '"lucky, Input (Y)es or if you are"
 570 PRINT '"just a piker-Input N(o)": INPUT f$: PAUSE 60: CLS
 580 IF f$="N" THEN GO TO 610
 590 IF f$="Y" THEN GO TO 340
 600 IF f$<>"Y" OR f$<>"N" THEN PRINT '"Hey, Sport, Y or N only.": PAUSE 120: CLS : GO TO 550
 610 PAUSE 60: CLS : PRINT '''''"O.K., Sport, No hard feelings..."
 620 PRINT '"See you around, ";n$;"..."
 630 PRINT '"You had $";m;" left..."
 640 PRINT '"If you'd like to try again,"
 650 PRINT '"Press R for a re-run...": PAUSE 0: IF INKEY$="R" THEN RUN
 660 PAUSE 60: CLS : STOP
 670 PAUSE 60: CLS : PRINT '''''"The Pea was under...": GO SUB 800
 680 PAUSE 60: CLS : PRINT '''''"Sorry, Sport-you missed that one"
 690 PRINT '"You now have $";m;" left."
 700 IF M<1 THEN GO TO 740
 710 PRINT '''''"If you want to try again Press"
 720 PRINT '"Y(es), if not Press N(o).": PAUSE 0: IF INKEY$="Y" THEN GO TO 340
 730 IF INKEY$="N" THEN GO TO 610
 740 PAUSE 60: CLS : PRINT '''''"If you'd like to play again..."
 750 PRINT '"Press R to Re-Run...": PAUSE 0: IF INKEY$=CHR$ 82 THEN RUN
 760 STOP
 800 PAUSE 60: CLS : PRINT '''''"The Pea was under..."
 810 PRINT INVERSE 1;AT 8,(8 AND P=1)+(16 AND P=2)+(24 AND P=3);P
 820 PRINT INK 2;AT 10,3;"    ▒▒▒     ▒▒▒     ▒▒▒";AT 10,(8 AND P=1)+(16 AND P=2)+(24 AND P=3); INK 4;P$: PAUSE 120: RETURN
 999 STOP
1000 REM
1010 CLS
1020 LET v=10: LET h=5: FOR l=1 TO 3
1030 IF l=2 THEN LET h=h+10
1040 IF l=3 THEN LET h=h+10
1050 PRINT INK 2;AT v,h;s$
1060 NEXT l
1070 PRINT AT 8,6;"▒";AT 8,16;"▒";AT 8,26;"▒"
1080 LET D=10: FOR L=1 TO 14
1090 LET X=(RND*30)+1: IF X<=10 THEN LET X=6
1100 IF X>10 AND X<=20 THEN LET X=16
1110 IF X>20 THEN LET X=26
1120 PRINT INK 4;AT D,X;P$: PAUSE 10
1130 PRINT INK 2;AT D,X;S$(2): PAUSE 5
1140 NEXT L
1150 RETURN
3000 REM
3010 CLS : PRINT '''''"To Play This Game..."''"Follow Instructions Carefully..."''"Press ENTER after each Input or just press the key required."''TAB 11;"Good Luck!"
3020 PRINT AT 16,0;"Press ENTER to Start...": PAUSE 0: CLS : RETURN
3030 REM
3040 FOR a=USR "a" TO USR "d"+7
3050 READ user: POKE a,user: NEXT a: RETURN
3060 DATA 0,3,12,16,32,64,128,255
3070 DATA 60,195,0,0,0,0,0,255
3080 DATA 0,192,48,8,4,2,1,255
3090 DATA 24,126,250,247,239,94,126,24
4000 REM
4010 SAVE "@5,shell" LINE 10
4020 FOR k=-5 TO 7: BEEP .05,k: NEXT k