Listing of file='SHELLS' on disk='vmedia/more_games.wvd.zip'
# Sector 1246, program filename = 'SHELLS' 0000 REM *SHELL* : LOAD DC T#6,"GAMES" 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