*NAME CAMELS WINDOW 5 STATUS DISPLAY ADAPTED FROM KINGDOM by S. Marsh  (1);"B";   26);"CAMEL"  20);"Creative Computing" # 18);"Morristown, New Jersey" #:: $n "Would you like instructions"; x D$  D$,1)="N" D@A 8: " Welcome to Camel. The object is to travel" / "200 miles across the Great Gobi Desert." = "A tribe of knocked kneed pigmies will be chasing you." 6 "You will be asked for commands every so often."  + "Press SPACE to continue:": = 32  " "#1 Drink from your canteen"  "#2 Ahead moderate speed" : "#3 Ahead full speed C O M M A N D S"  "#4 Stop for the night"  "#5 Status Check" 9 "#6 Hope for help #9 Display this screen" + "Press SPACE to continue:": = 32  C "You have one quart of water which will last you six drinks." C" "You have to renew your water supply completely at an oasis." 0, "You get a half a quart if found by help." >6 "If help does not find you after command six, you lose." 7: +8 "Press SPACE to continue:": = 32 (@: "Good luck and good Cameling !!" 8J "You are in the middle of the desert at an oasis." O dPG T C>199 tzD ^Z=Z-1 =c Z=1 "----------W A R N I N G---------- GET A DRINK" h Z<0 D^F rP=P+1 |X2=(10*(1)+2.5)  Q>0 tlC  P<4 dVA C1=C1+X2  C11 tpD 9: "Help has found you in a state of unconsciousness." DS=3 NZ=4 X DTA bF=F+1 l F=8 tfD v DpC X1=(10*(1)) C=C+X1 # "Your Camel likes this pace."  DTA F=F+3  F>7 tfD  DpC X1=2*(10*(1)) C=C+X1 6 "Your Camel is burning across the desert sands."   DTA  "Your Camel thanks you!" F=0  D^A . "Your Camel has ";7-F;" good days left." 3  "You have ";S;" drinks left in your canteen." 3* "You can go ";Z;" commands without drinking." >S=S-1 H S<0 tpD #R "Better watch for an oasis !" \Z=4 f d`A pA=(100*(1)) z A>5 D`D : "Wild berbers hidden in the sand have captured you." ; "Luckily the local sheik has agreed to their ransom-" 9 "demands.......BUT.......Watch For The Pygmies !!!" . "You have a new choice of sub-commands:"  "#7 Attempt an escape"  "#8 Wait for payment"  "Your sub-command ";  X  X=8 TdD X1=(10*(1))  X1<5 TPD 6 "Congradulations, you successfully escaped !!!!" Q=0  DTA F "You were mortally wounded by a pig stabber while escaping !!!!"  tBE $X1=(100*(1)) . 8 X1>24 DLD 9B "Your ransom has been paid and you are free to go." GQ=0 H DTA =L "The local sultan is collecting.......JUST WAIT......." Q X = 1 2000: X V DTA `A=(10*(1)) j A>2 dXD 9t "You have arrived at an oasis--------Your Camel is" -~ "filling your canteen and eating figs." Z=4 S=6  B "You dirty rapscallion! You ran your poor Camel to death !!"  tBE  (7) < "You WIN, A party is being given in your honor......." 8 ".......The pygmies are planning to attend......."  TXF X1=(100*(1))  X1>5 DFE : "You have been caught in a sandstorm.....Good Luck!" X5=(10*(1)) X6=(10*(1))   X6<5 ThE C=C+X5  TrE (C=C-X5 02 "Your new position is ";C;" miles so far!" < FX1=(100*(1)) P X1>5 ZC1=C1+1 !d "Your Camel hurt his hump." /n "Luckily the pygmies were footweary !!!" x U=(10*(1))  "YOU DIED IN THE DESERT."  U>1 ttE C "The National Camel's Union is not attending your funeral!!!"  TXF  U>3 dRE B "Your body was eaten by vultures and imported cannibals !!!"  TXF  U>5 dpE B "The local sheik now uses your skull for a change purse !!!"  TXF  U>7 TNF F "People with little intelligence should stay out of the desert."  TXF 3 "Turkeys should fly, not ride Camels !!!!!!!" " (7): X=1 2000: X: (7) 2 "You have travelled ";C;" miles altogether." STATUS " ), "Want a new Camel and a new game "; 6 D$ @ D$,1)="Y" D@A T DrF 0^ "You ran out of water.......SORRY CHUM!!!" h tBE r: (7) Gs "---------------------------------------------------------------" t +w " CHICKEN !!!" x Gy "---------------------------------------------------------------" | Z=4 S=6 C=0 C1=0 Q=0 F=0  P=0  " "#1 Drink from your canteen"  "#2 Ahead moderate speed" 8 "#3 Ahead full speed C O M M A N D S"  "#4 Stop for the night"  "#5 Status Check" 5 "#6 Hope for help #9 Display this screen" + "Press SPACE to continue:": = 32 : DTA p STATUS z (1)"2I2": / (1)"3+TR Status "(1)"3-TR";  "Comms w/o Drink: ";Z  "Drinks Left : ";S  "Good Days Left : ";7-F  "Pygmies Behind : ";C-C1  "Miles Travelled: ";C  (1)"2I1": X WINDOW )b 1,"7","#","1",32,32,32+70,32+8,0 ,g 1,"7","#","2",32+71,32,32+20,32+8,3 Rl 1,67,1:"2I2"::(1)"3+TR STATUS "(1)"3-TR"(1)"2I1":1,"S":