image of READY prompt

Wang2200.org

Listing of file='SHELLS' on disk='vmedia/games-droz01.wvd.zip'

# Sector 332, program filename = 'SHELLS'
0000 REM *SHELLS*
0010 REM PROGRAMED BY BERNARD SAVORD DEC. 1975 AT SANDUSKY HIGH SCHOOL
0020 B=100
0030 PRINT HEX(030A0A)
0040 REM INSTRUCTIONS ARE PRINTED
0050 PRINT "THIS IS THE OLD SHELL AND PEA GAME "
0060 PRINT "BUT THE COMPUTER IS HONEST"
0070 PRINT "IT WILL ALWAYS KEEP THE PEA IN THE SAME SHELL"
0080 PRINT "THE MOVEMENTS WILL START OUT SIMPLE AND SLOW "
0090 PRINT "BUT THEY WILL SPEED UP AS THE GAME GOES ON"
0100 PRINT "THE GAME ENDS WHEN YOU REACH $1000 OR GO BROKE"
0110 PRINT "YOU START OUT WITH $100"
0120 PRINT "PRESS ANY NUMBER TO START THE GAME"
0130 SELECT P1
0140 INPUT A
0150 PRINT HEX(03)
0160 IF B>=1000 THEN 1890
0170 IF B=0 THEN 1920
0180 REM THE PEA AND SHELLS ARE PRINTED
0190 PRINT "HERE ARE THE SHELLS"
0200 PRINT
0210 PRINT "            1            2            3"
0220 PRINT "            *            *            *"
0230 PRINT HEX(0A0A0A0A0A0A)
0240 PRINT "                         0"
0250 PRINT "AND HERE IS THE PEA"
0260 PRINT "HOW MUCH IS YOUR BET"
0270 INPUT B1
0280 D=0
0290 PRINT HEX(0C0C)
0300 IF B1>B THEN 260
0310 PRINT HEX(0C)
0320 FOR X=1 TO 7
0330 PRINT HEX(0C)
0340 PRINT TAB(27)
0350 PRINT HEX(0C0C)
0360 PRINT "                         0"
0370 NEXT X
0380 E=E+1
0390 C=2
0400 PRINT HEX(0C)
0410 PRINT "            *            *            *"
0420 D=D+1
0430 IF D=2*ETHEN 1740
0440 PRINT HEX(0C)
0450 REM THIS SECTION PICKS THE SPEED OF THE MOVEMENTS
0460 IF E=1 THEN 500
0470 IF E=2 THEN 520
0480 SELECT P0
0490 GOTO 540
0500 SELECT P1
0510 GOTO 540
0520 SELECT P1
0530 REM THIS SECTION PICKS WHICH SHELLS WILL MOVE
0540 A=INT(3*RND(A))+1
0550 IF A=1 THEN 1240
0560 IF A=2 THEN 900
0570 REM THIS SECTION TRADES SHELL NO.1 WITH SHELL NO.2
0580 PRINT "                         *            *"
0590 PRINT "            *"
0600 PRINT HEX(0C)
0610 PRINT TAB(27)
0620 PRINT "            *"
0630 PRINT HEX(0C)
0640 PRINT TAB(27)
0650 FOR X=12 TO 25 STEP 3
0660 PRINT HEX(0C)
0670 PRINT TAB(X);"*"
0680 NEXT X
0690 PRINT HEX(0C0C0C)
0700 FOR X=25 TO 12 STEP -3
0710 PRINT  TAB(40)
0720 PRINT HEX(0C)
0730 PRINT TAB(X);"*";TAB(38);"*"
0740 PRINT HEX(0C)
0750 NEXT X
0760 PRINT HEX(0A0A)
0770 FOR X=1 TO 2
0780 PRINT TAB(27)
0790 PRINT HEX(0C0C)
0800 PRINT "                         *"
0810 PRINT HEX(0C)
0820 NEXT X
0830 IF C=1 THEN 860
0840 IF C=2THEN 880
0850 GOTO 410
0860 C=2
0870 GOTO 410
0880 C=1
0890 GOTO 410
0900 REM THIS SECTION TRADES SHELL NO.2 WITH SHELL NO.3
0910 PRINT "            *                         *"
0920 PRINT "                         *"
0930 FOR X=1 TO 2
0940 PRINT HEX(0C)
0950 PRINT TAB(50)
0960 PRINT "                         *"
0970 NEXT X
0980 PRINT HEX(0C0C0C0C)
0990 FOR X=25 TO 12 STEP -3
1000 PRINT "            *";TAB(X+13);"*"
1010 PRINT HEX(0C)
1020 PRINT "            *";TAB(X+14)
1030 PRINT HEX(0C)
1040 NEXT X
1050 PRINT "            *            *"
1060 PRINT HEX(0A0A)
1070 FOR X=25 TO 38STEP 3
1080 PRINT TAB(X);"*"
1090 PRINT HEX(0C)
1100 NEXT X
1110 FOR X=1 TO 3
1120 PRINT TAB(38);"*"
1130 PRINT HEX(0C)
1140 PRINT TAB(50)
1150 PRINT HEX(0C0C)
1160 NEXT X
1170 IF C=2 THEN 1200
1180 IF C=3THEN 1220
1190 GOTO 410
1200 C=3
1210 GOTO 410
1220 C=2
1230 GOTO 410
1240 REM THIS SECTION TRADES SHELL NO.3 WITH SHELL NO.1
1250 PRINT "                         *            *"
1260 FOR X=1 TO 5
1270 PRINT "            *"
1280 PRINT HEX(0C)
1290 IF X=5 THEN 1310
1300 PRINT TAB(20)
1310 NEXT X
1320 PRINT HEX(0C0C0C0C0C)
1330 PRINT "                         *";TAB(50)
1340 FOR X=1 TO 2
1350 PRINT "                                      *"
1360 PRINT HEX(0C)
1370 IF X=2 THEN 1390
1380 PRINT TAB(50)
1390 NEXT X
1400 FOR X=38 TO 12 STEP -3
1410 PRINT TAB(X);"*"
1420 PRINT HEX(0C)
1430 PRINT TAB(50)
1440 PRINT HEX(0C)
1450 NEXT X
1460 PRINT "            *"
1470 PRINT HEX(0A0A)
1480 FOR X=12 TO 38STEP 3
1490 PRINT TAB(X);"*"
1500 PRINT HEX(0C)
1510 NEXT X
1520 PRINT HEX(0C0C0C)
1530 FOR X=1 TO 2
1540 PRINT TAB(15)
1550 PRINT HEX(0C0C)
1560 PRINT "            *"
1570 PRINT HEX(0C)
1580 NEXT X
1590 PRINT "            *            *"
1600 PRINT HEX(0A0A0A0A)
1610 FOR X=1 TO 5
1620 PRINT TAB(50)
1630 PRINT HEX(0C0C)
1640 PRINT "                                      *"
1650 PRINT HEX(0C)
1660 NEXT X
1670 IF C=1 THEN 1700
1680 IF C=3 THEN 1720
1690 GOTO 410
1700 C=3
1710 GOTO 410
1720 C=1
1730 GOTO 410
1740 PRINT HEX(0A0A0A0A0A0A0A0A0A)
1750 PRINT "WHICH SHELL IS THE PEA IN?"
1760 INPUT F
1770 PRINT HEX(030A0A0A0A0A0A0A)
1780 IF F<>C THEN 1850
1790 PRINT "YOUR GUESS WAS RIGHT!!!!!"
1800 PRINT HEX(0A0A0A)
1810 B=B+B1
1820 PRINT "YOU NOW HAVE $";B
1830 FOR X=1 TO 500
   : NEXT X
1840 GOTO 150
1850 PRINT "YOUR GUESS WAS WRONG"
1860 PRINT HEX(0A0A0A0A0A)
1870 B=B-B1
1880 GOTO 1820
1890 PRINT HEX(030A0A0A0A)
1900 PRINT "YOU HAVE REACHED $1000"
1910 GOTO 1950
1920 PRINT HEX(030A0A0A0A0A)
1930 PRINT "YOU HAVE GONE BROKE"
1940 PRINT "BETTER LUCK NEXT TIME"
1950 SELECT P0
1960 GOTO 0