#B .J NEW 1 *NAME CAMEL 2 PROCWINDOW 3 REM STATUS DISPLAY ADAPTED FROM KINGDOM by S. Marsh 5 PRINT CHR$(1);"B"; 8 CLS 10 PRINT TAB(26);"CAMEL" 20 PRINT TAB(20);"Creative Computing" 30 PRINT TAB(18);"Morristown, New Jersey" 35 PRINT:PRINT:PRINT 110 PRINT "Would you like instructions"; 120 INPUT D$ 130 IF LEFT$(D$,1)="N" THEN 320 140 PRINT:PRINT " Welcome to Camel. The object is to travel" 150 PRINT "200 miles across the Great Gobi Desert." 160 PRINT "A tribe of knocked kneed pigmies will be chasing you." 170 PRINT "You will be asked for commands every so often." 175 PRINT 180 PRINT "Press SPACE to continue:":REPEAT UNTIL GET = 32 190 CLS 220 PRINT "#1 Drink from your canteen" 230 PRINT "#2 Ahead moderate speed" 240 PRINT "#3 Ahead full speed C O M M A N D S" 250 PRINT "#4 Stop for the night" 260 PRINT "#5 Status Check" 270 PRINT "#6 Hope for help #9 Display this screen" 275 PRINT "Press SPACE to continue:":REPEAT UNTIL GET = 32 276 CLS 280 PRINT "You have one quart of water which will last you six drinks." 290 PRINT "You have to renew your water supply completely at an oasis." 300 PRINT "You get a half a quart if found by help." 310 PRINT "If help does not find you after command six, you lose." 311 PRINT:PRINT 312 PRINT "Press SPACE to continue:":REPEAT UNTIL GET = 32 320 CLS:PRINT "Good luck and good Cameling !!" 330 PRINT "You are in the middle of the desert at an oasis." 335 GOSUB 2000 340 IF C>199 THEN 1210 350 Z=Z-1 355 IF Z=1 THEN PRINT "----------W A R N I N G---------- GET A DRINK" 360 IF Z<0 THEN 1630 370 P=P+1 380 X2=INT(10*RND(1)+2.5) 390 IF Q>0 THEN 940 400 IF P<4 THEN 470 410 C1=C1+X2 420 IF C11 THEN 1200 570 PRINT "Help has found you in a state of unconsciousness." 580 S=3 590 Z=4 600 GOTO 340 610 F=F+1 620 IF F=8 THEN 1190 630 GOSUB 880 640 X1=INT(10*RND(1)) 650 C=C+X1 660 PRINT "Your Camel likes this pace." 670 GOTO 340 680 F=F+3 690 IF F>7 THEN 1190 700 GOSUB 880 710 X1=2*INT(10*RND(1)) 720 C=C+X1 730 PRINT "Your Camel is burning across the desert sands." 740 PRINT 750 GOTO 340 760 PRINT "Your Camel thanks you!" 770 F=0 780 GOTO 350 790 PRINT "Your Camel has ";7-F;" good days left." 800 PRINT "You have ";S;" drinks left in your canteen." 810 PRINT "You can go ";Z;" commands without drinking." 830 S=S-1 840 IF S<0 THEN 1200 850 PRINT "Better watch for an oasis !" 860 Z=4 870 GOTO 480 880 A=INT(100*RND(1)) 890 IF A>5 THEN 1120 900 PRINT "Wild berbers hidden in the sand have captured you." 910 PRINT "Luckily the local sheik has agreed to their ransom-" 920 PRINT "demands.......BUT.......Watch For The Pygmies !!!" 930 PRINT "You have a new choice of sub-commands:" 940 PRINT "#7 Attempt an escape" 950 PRINT "#8 Wait for payment" 960 PRINT "Your sub-command "; 970 INPUT X 980 IF X=8 THEN 1060 990 X1=INT(10*RND(1)) 1000 IF X1<5 THEN 1040 1010 PRINT "Congradulations, you successfully escaped !!!!" 1020 Q=0 1030 GOTO 340 1040 PRINT "You were mortally wounded by a pig stabber while escaping !!!!" 1050 GOTO 1410 1060 X1=INT(100*RND(1)) 1070 REM 1080 IF X1>24 THEN 1100 1090 PRINT "Your ransom has been paid and you are free to go." 1095 Q=0 1096 GOTO 340 1100 PRINT "The local sultan is collecting.......JUST WAIT......." 1105 FOR X = 1 TO 2000:NEXT X 1110 GOTO 340 1120 A=INT(10*RND(1)) 1130 IF A>2 THEN 1240 1140 PRINT "You have arrived at an oasis--------Your Camel is" 1150 PRINT "filling your canteen and eating figs." 1160 Z=4 1170 S=6 1180 RETURN 1190 PRINT "You dirty rapscallion! You ran your poor Camel to death !!" 1200 GOTO 1410 1210 PRINT CHR$(7) 1212 PRINT "You WIN, A party is being given in your honor......." 1220 PRINT ".......The pygmies are planning to attend......." 1230 GOTO 1560 1240 X1=INT(100*RND(1)) 1250 IF X1>5 THEN 1350 1260 PRINT "You have been caught in a sandstorm.....Good Luck!" 1270 X5=INT(10*RND(1)) 1280 X6=INT(10*RND(1)) 1290 IF X6<5 THEN 1320 1300 C=C+X5 1310 GOTO 1330 1320 C=C-X5 1330 PRINT "Your new position is ";C;" miles so far!" 1340 RETURN 1350 X1=INT(100*RND(1)) 1360 IF X1>5 THEN RETURN 1370 C1=C1+1 1380 PRINT "Your Camel hurt his hump." 1390 PRINT "Luckily the pygmies were footweary !!!" 1400 RETURN 1410 U=INT(10*RND(1)) 1420 PRINT "YOU DIED IN THE DESERT." 1430 IF U>1 THEN 1460 1440 PRINT "The National Camel's Union is not attending your funeral!!!" 1450 GOTO 1560 1460 IF U>3 THEN 1490 1470 PRINT "Your body was eaten by vultures and imported cannibals !!!" 1480 GOTO 1560 1490 IF U>5 THEN 1520 1500 PRINT "The local sheik now uses your skull for a change purse !!!" 1510 GOTO 1560 1520 IF U>7 THEN 1550 1530 PRINT "People with little intelligence should stay out of the desert." 1540 GOTO 1560 1550 PRINT "Turkeys should fly, not ride Camels !!!!!!!" 1560 PRINT CHR$(7):FOR X=1 TO 2000:NEXT X:PRINT CHR$(7) 1565 PRINT "You have travelled ";C;" miles alltogether." 1568 PROCSTATUS 1570 PRINT 1580 PRINT "Want a new Camel and a new game "; 1590 INPUT D$ 1600 IF LEFT$(D$,1)="Y" THEN 320 1620 GOTO 1650 1630 PRINT "You ran out of water.......SORRY CHUM!!!" 1640 GOTO 1410 1650 CLS:PRINT CHR$(7) 1651 PRINT "---------------------------------------------------------------" 1652 PRINT 1655 PRINT " CHICKEN !!!" 1656 PRINT 1657 PRINT "---------------------------------------------------------------" 1660 END 2000 Z=4 2010 S=6 2020 C=0 2030 C1=0 2040 Q=0 2050 F=0 2060 P=0 2070 RETURN 3000 PRINT "#1 Drink from your canteen" 3010 PRINT "#2 Ahead moderate speed" 3020 PRINT "#3 Ahead full speed C O M M A N D S" 3030 PRINT "#4 Stop for the night" 3040 PRINT "#5 Status Check" 3050 PRINT "#6 Hope for help #9 Display this screen" 3070 PRINT "Press SPACE to continue:":REPEAT UNTIL GET = 32 4000 CLS:GOTO 340 6000 DEF PROCSTATUS 6010 PRINT CHR$(1)"2I2":CLS 6020 PRINT CHR$(1)"3+TR Status "CHR$(1)"3-TR"; 6025 PRINT "Comms w/o Drink: ";Z 6050 PRINT "Drinks Left : ";S 6060 PRINT "Good Days Left : ";7-F 6080 PRINT "Pygmies Behind : ";C-C1 6090 PRINT "Miles Travelled: ";C 6100 PRINT CHR$(1)"2I1":ENDPROC 7000 DEF PROCWINDOW 7010 VDU 1,ASC"7",ASC"#",ASC"1",32,32,32+70,32+8,0 7015 VDU 1,ASC"7",ASC"#",ASC"2",32+71,32,32+20,32+8,3 7020 VDU 1,67,1:PRINT"2I2":CLS:PRINTCHR$(1)"3+TR STATUS "CHR$(1)"3-TR"CHR$(1)"2I1":VDU1,ASC"S":ENDPROC