home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_05_(08-1984).d64 / camel (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  4KB  |  170 lines
  1. 1 POKE53280,9:POKE53281,9:PRINT"[158]":PRINT"[147]"
  2. 5 POKE53272,21:PRINTCHR$(8)
  3. 7 BS$="                                                                        "
  4. 10 PRINTTAB(14)"CAMEL"
  5. 20 PRINT:PRINT"COPYRIGHT 1979 CREATIVE COMPUTING":PRINT
  6. 21 PRINT"MORRISTOWN, N.J.":PRINT
  7. 22 PRINTTAB(14)"MODIFIED":PRINT
  8. 24 PRINTTAB(10)"FOR THE COMMODORE 64":PRINT
  9. 30 INPUT"DO YOU NEED INSTRUCTIONS";I$
  10. 40 IFLEFT$(I$,1)="N"THENPRINT"[147]":GOTO100
  11. 50 PRINT"[147]":PRINTTAB(14)"CAMEL":PRINT
  12. 60 PRINT"WELCOME TO CAMEL. THE OBJECT IS TO      TRAVEL 200 MILES ACROSS THE"
  13. 70 PRINT"GOBI DESERT. A TRIBE OF KNOCK-KNEED     PYGMIES WILL BE CHASING YOU."
  14. 80 PRINT"YOU WILL BE ASKED FOR COMMANDS EVERY SO OFTEN.":PRINT
  15. 100 PRINT"YOU HAVE ONE QUART OF WATER WHICH WILL  LAST YOU 6 DRINKS."
  16. 120 PRINT"YOU MAY RENEW YOUR WATER SUPPLY COM-    PLETELY AT AN OASIS."
  17. 130 PRINT"YOU GET A HALF A QUART IF FOUND BY HELP."
  18. 140 PRINT"IF HELP DOES NOT FIND YOU AFTER COMMAND 6, YOU LOSE.":PRINT
  19. 150 PRINT"GOOD LUCK AND GOOD CAMELING!!":PRINT
  20. 160 PRINT"PRESS ANY KEY TO CONTINUE."
  21. 170 GETB$:IFB$=""THEN170
  22. 175 PRINT"[147]":PRINT
  23. 180 PRINT"#1 DRINK         ","#4 CAMP":PRINT
  24. 190 PRINT"#2 MODERATE SPEED","#5 STATUS CHECK":PRINT
  25. 200 PRINT"#3 FAST SPEED","#6 HOPE FOR HELP":PRINT
  26. 220 PRINT"YOU ARE IN THE MIDDLE OF THE DESERT AT  AN OASIS."
  27. 230 GOSUB1550
  28. 240 IFC>199THEN1090
  29. 250 Z=Z-1
  30. 260 IFZ=1THENPRINT"----WARNING----GET A DRINK."
  31. 270 IFZ<0THEN1490
  32. 280 P=P+1
  33. 290 X2=INT(10*RND(0)+2.5)
  34. 300 IFQ>0THEN800
  35. 310 IFP<4THEN380
  36. 320 C1=C1+X2
  37. 330 IFC1<CTHEN370
  38. 340 PRINT"THE PYGMIES CAPTURED YOU! CAMEL AND     PEOPLE SOUP IS THEIR ";
  39. 350 PRINT"FAVORITE DISH!!!"
  40. 360 GOTO1440
  41. 370 PRINT"PYGMIES ARE";C-C1;"MILES BEHIND YOU."
  42. 380 PRINT"YOU HAVE TRAVELLED";C;"MILES TOTAL."
  43. 390 PRINT"WHAT IS YOUR COMMAND";
  44. 400 INPUT Y
  45. 410 GOSUB1630
  46. 420 ONYGOTO690,490,560,630,660
  47. 430 T=INT(10*RND(0))
  48. 440 IFT<>1THEN1080
  49. 450 PRINT"HELP HAS FOUND YOU IN A STATE OF UNCON- SCIOUSNESS."
  50. 460 S=3
  51. 470 Z=4
  52. 480 GOTO240
  53. 490 F=F+1
  54. 500 IFF=8THEN1070
  55. 510 GOSUB740
  56. 520 X1=INT(10*RND(0))
  57. 530 C=C+X1
  58. 540 PRINT"YOUR CAMEL LIKES THIS PACE."
  59. 550 GOTO240
  60. 560 F=F+3
  61. 570 IFF>7THEN1070
  62. 580 GOSUB740
  63. 590 X1=2*INT(10*RND(0))
  64. 600 C=C+X1
  65. 610 PRINT"YOUR CAMEL IS BURNING ACROSS THE DESERT SANDS."
  66. 620 GOTO240
  67. 630 PRINT"YOUR CAMEL THANKS YOU!"
  68. 640 F=0
  69. 650 GOTO250
  70. 660 PRINT"YOUR CAMEL HAS";7-F;"GOOD DAYS LEFT."
  71. 670 PRINT"YOU HAVE";S;"DRINKS LEFT IN YOUR CANTEEN."
  72. 680 PRINT"YOU CAN GO";Z;"COMMANDS WITHOUT DRINKING."
  73. 690 S=S-1
  74. 700 IFS<0THEN1080
  75. 710 PRINT"BETTER WATCH FOR AN OASIS."
  76. 720 Z=4
  77. 730 GOTO390
  78. 740 A=INT(100*RND(8))
  79. 750 IFA>5THEN1000
  80. 760 PRINT"WILD BERBERS HIDDEN IN THE SAND HAVE    CAPTURED YOU. LUCKILY THE"
  81. 770 PRINT"SHEIK HAS AGREED TO THEIR RANSOM DEMANDS-BUT WATCH FOR THE PYGMIES"
  82. 790 PRINT"YOU HAVE A NEW CHOICE OF SUB-COMMANDS:"
  83. 800 PRINT"#7-TRY AN ESCAPE  #8-WAIT FOR RANSOM"
  84. 820 INPUT"YOUR SUB-COMMAND";X
  85. 830 GOSUB1630
  86. 840 IFX=8THEN920
  87. 850 X1=INT(10*RND(0))
  88. 860 IFX1<5THEN900
  89. 870 PRINT"CONGRATULATIONS, YOU SUCCESSFULLY ESC-  APED!!!!!"
  90. 880 Q=0
  91. 890 GOTO240
  92. 900 PRINT"YOU WERE MORTALLY WOUNDED BY A PIG STAB-BER WHILE ESCAPING."
  93. 910 GOTO1290
  94. 920 X1=INT(RND(0))
  95. 930 REM
  96. 940 IFX1>24THEN990
  97. 950 PRINT"YOUR RANSOM HAS BEEN PAID AND YOU ARE   FREE TO GO."
  98. 960 Q=0
  99. 970 GOTO240
  100. 980 PRINT"THE LOCAL SULTAN IS COLLECTING....JUST  WAIT........"
  101. 990 GOTO240
  102. 1000 A=INT(10*RND(0))
  103. 1010 IFA>2THEN1120
  104. 1020 PRINT"YOU HAVE ARRIVED AT AN OASIS-----  YOUR CAMEL IS FILLING YOUR CANT";
  105. 1030 PRINT"EEN AND":PRINT"EATING FIGS."
  106. 1040 Z=4
  107. 1050 S=6
  108. 1060 RETURN
  109. 1070 PRINT"YOU DIRTY RAPSCALLION! YOU RAN YOUR POORCAMEL TO DEATH!!"
  110. 1080 GOTO1290
  111. 1090 PRINT"YOU WIN, A PARTY IS BEING GIVEN IN YOURHONOR............THE PYGMIES"
  112. 1100 PRINT" ARE PLANNING TO ATTEND........."
  113. 1110 GOTO1440
  114. 1120 X1=INT(100*RND(0))
  115. 1130 IFX1>5THEN1230
  116. 1140 PRINT"YOU HAVE BEEN CAUGHT IN A SANDSTORM.....GOOD LUCK!"
  117. 1150 X5=INT(10*RND(0))
  118. 1160 X6=INT(10*RND(0))
  119. 1170 IFX6<5THEN1200
  120. 1180 C=C+X5
  121. 1190 GOTO1210
  122. 1200 C=C+X5
  123. 1210 PRINT"YOUR NEW POSITION IS ";C;" MILES SO FAR."
  124. 1220 RETURN
  125. 1230 X1=INT(100*RND(0))
  126. 1240 IFX1>5THENRETURN
  127. 1250 C1=C1+1
  128. 1260 PRINT"YOUR CAMEL HURT HIS HUMP."
  129. 1270 PRINT"LUCKILY THE PYGMIES WERE FOOTWEARY!"
  130. 1280 RETURN
  131. 1290 U=INT(10*RND(0))
  132. 1300 PRINT"YOU DIED IN THE DESERT."
  133. 1310 IFU>1THEN1340
  134. 1320 PRINT"THE NATIONAL CAMEL UNION'S NOT ATTENDINGYOUR FUNERAL!!!"
  135. 1330 GOTO1440
  136. 1340 IFU>3THEN1370
  137. 1350 PRINT"YOUR BODY WAS EATEN BY VULTURES AND IM- PORTED CANNIBALS."
  138. 1360 GOTO1440
  139. 1370 IFU>5THEN1400
  140. 1380 PRINT"THE LOCAL SHEIK NOW USES YOUR SKULL FOR A CHANGE PURSE!!!"
  141. 1390 GOTO1440
  142. 1400 IFU>7THEN1430
  143. 1410 PRINT"PEOPLE WITH LITTLE INTELLIGENCE SHOULD  STAY OUT OF THE DESERT!!!"
  144. 1420 GOTO1440
  145. 1430 PRINT"TURKEYS SHOULD FLY, NOT RIDE CAMELS!!!!!"
  146. 1440 REM
  147. 1450 INPUT"WANT A NEW CAMEL AND A NEW GAME";D$
  148. 1455 PRINT
  149. 1470 IFLEFT$(D$,1)="Y"THEN150
  150. 1480 GOTO1510
  151. 1490 PRINT"YOU RAN OUT OF WATER.....SORRY, CHUM!"
  152. 1500 GOTO1290
  153. 1510 PRINT"[147]":PRINTSPC(240)"":PRINTSPC(160)""
  154. 1515 PRINTTAB(10)"--------------------"
  155. 1520 PRINTTAB(17)"CHICKEN"
  156. 1530 PRINTTAB(10)"--------------------"
  157. 1540 PRINTCHR$(9):END
  158. 1550 Z=4
  159. 1560 S=6
  160. 1570 C=0
  161. 1580 C1=0
  162. 1590 Q=0
  163. 1600 F=0
  164. 1610 P=0
  165. 1620 RETURN
  166. 1630 PRINT"":PRINTSPC(240)BS$;:PRINTBS$;:PRINTBS$;:PRINTBS$;:PRINTBS$;
  167. 1640 PRINTBS$;:PRINTBS$;:PRINTBS$;:PRINTBS$
  168. 1650 PRINT"":PRINTSPC(240)""
  169. 1660 RETURN
  170.