home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 43 / 043.d81 / flint (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  154 lines
  1. 0 ifzx<>0then6420
  2. 1 clr:v2$="":sp$="                                       "
  3. 2 print"[147][144]":gosub4321:dima(13),b(19):if peek(767)=0thenpoke766,0:sys896:goto 7
  4. 3 if peek(767)<>55 then a$="expb":b$="b":goto5
  5. 4 a$="expa":b$="a"
  6. 5 gosub 76:fora=1to4:ifc$(a)=""thenp=4:a=4
  7. 6 next:goto 55
  8. 7 gosub 700
  9. 9 get g$:ifg$=""then9
  10. 10 a=val(g$):ifa<1ora>5then9
  11. 11 ifa<>1then13
  12. 12 goto29
  13. 13 ifa<>2then25
  14. 14 print"       [197]xpedition [193][146] or [194][146]?"
  15. 15 getg$:ifg$=""then15
  16. 16 ifg$<>"a"then22
  17. 17 a$="expa":b$="a"
  18. 18 c=0:gosub76:d=0:fora=1to4:ifc$(a)=""thend=d+1
  19. 19 next:ifd=4then24
  20. 20 if d=0then77
  21. 21 goto56
  22. 22 ifg$<>"b"then15
  23. 23 a$="expb":b$="b":goto18
  24. 24 print"[147][206]o expedition in progress[146]":fora=1to1200:next:goto7
  25. 25 ifa<>4then92
  26. 26 gosub260
  27. 27 getg$:ifg$=""then27
  28. 28 poke767,0:goto7
  29. 29 a$="expa":b$="a":goto31
  30. 30 a$="expb":b$="b"
  31. 31 gosub76:d=0:fora=1to4:ifc$(a)=""thend=d+1
  32. 32 next:ifd=4thengosub800:gosub49:fori7=1to4567:next:goto50
  33. 33 if b$="a"then30
  34. 34 gosub340
  35. 35 getg$:ifg$=""then35
  36. 36 ifg$="n"then7
  37. 37 ifg$<>"y"then35
  38. 38 print"               [193] or [194]?"
  39. 39 getb$:ifb$<>"a"andb$<>"b"then39
  40. 42 print"[145]         [196]isband expedition ";b$;"[146] ?"
  41. 43 getg$:ifg$=""then43
  42. 44 ifg$="n"then7
  43. 45 ifg$<>"y"then 43
  44. 46 a$="exp"+b$:gosub49:goto50
  45. 49 goto490
  46. 50 gosub200
  47. 51 getg$:ifg$=""then51
  48. 52 m=4:print"[147]      [197]nter level of difficulty":printtab(16)"1 thru 9
  49. 53 [161]g$:[139]g$[178]""[167]53
  50. 54 b(19)[178][197](g$):[139]b(19)[178]0[176]b(19)[177]9[167]53
  51. 55 [139][194](767)[177]0[175]p[179][177]4[167]79
  52. 56 [141]560
  53. 57 [141]74:[141]75:[137]77
  54. 58 [153]"      (NULL)ame"[163]22)"(NULL)itle":[129]a[178]1[164]39:[153]"-";:[130]:[153]:[141]590:[137]60
  55. 60 [129]n[178]1[164]4:[153][163]22)g$(n):[130]:[129]n[178]1[164]4:[139]c$(n)[178]""[167]62
  56. 61 [153][200](v2$,12[170]n)"   "c$(n)[163]22)g$(n):[137]65
  57. 62 [141]620:[141]66:[139]o[178]0[167]64
  58. 63 [141]71:c$(n)[178]"":n[178]n[171]1:[137]65
  59. 64 [153][200](v2$,12[170]n)"   "c$(n)[163]22)g$(n):[141]73
  60. 65 [130]:[129]b[178]1[164]700:[130]:[142]
  61. 66 o[178]0:[139][195](c$(n))[177]10[167]o[178]1:[141]72:[142]
  62. 67 [139][195](c$(n))[178]0[167]o[178]1:[142]
  63. 68 [129]b[178]1[164]4:[139]b[178]n[167]70
  64. 69 [139]c$(b)[178]c$(n)[167]o[178]1:[153]v2$[166]13)"(NULL)n expeditionwait"[166]10):[129]e[178]1[164]1000:[130]
  65. 70 [130]:[142]
  66. 71 [153]v2$sp$v2$[163]14)"(NULL)nacceptablewait":[129]b[178]1[164]1000:[130]:[153]v2$sp$:[142]
  67. 72 [153]v2$sp$v2$[163]16)"too longwait":[129]b[178]1[164]1000:[130]:[142]
  68. 73 f(n)[178]0:e(n)[178]10:c(n)[178]0:d(n)[178]0:[142]
  69. 74 j[178][181](600[172]10[173]b(19)):k[178]0:[141]87:[142]
  70. 75 d$[178]"ooooooooooooo":e$[178]d$:f$[178]d$:[129]b[178]1[164]18:b(b)[178]1:[130]:[129]b[178]1[164]13:a(b)[178]0:[130]:[142]
  71. 76 [137]  760
  72. 77 [139]b$[178]"a"[167][151]767,55:[137]79
  73. 78 [151] 767,25
  74. 79 [141]790
  75. 80 [161]g$:a[178][197](g$):[139]a[179]1[176]a[177]2[167]80
  76. 81 [139]a[178]1[167][141]810:[141]84:[147]"iquitos",8
  77. 83 [141]830:[141]84:[147]"az",8
  78. 84 [141]840:[142]
  79. 85 [144]
  80. 87 [159]4,8,4,"@:"[170]a$[170]"c,s,w"
  81. 88 [129]a[178]1[164]40:[135]b:[152]4,b:[130]:[160]4
  82. 89 [142]:[131]2,2,2,1,1,2,1,2,2,1,2,2,2,2,1,1,2,2,2,1,2,3,1,4,1,1,1,1
  83. 90 [131]2,5,1,6,2,7,1,8,2,9,2,10
  84. 92 [139]a[179][177]5[167]100
  85. 94 [147]"res",8
  86. 100 [139]a[179][177]3[167]9
  87. 110 [137]6400
  88. 200 [153]"load     *****************************"
  89. 210 [153]"      asclint (NULL)niversity authorizes"
  90. 220 [153][163]10)"atnmazon expedition "b$"wait"
  91. 230 [153]"     *****************************"
  92. 240 [153]"            (NULL)ress any key":[142]
  93. 260 [153]"load          (NULL)ress a key to play"
  94. 261 [153][163]7)"or turn your computer off.":[142]
  95. 340 [153]"load      (NULL)here are twowait expeditions":[153]"             in progress.
  96. 341 print"      [196]o you wish to disband one?":print"              [217][146])es [206][146])o":return
  97. 490 forb=1to4:c$(b)="":c(b)=0:d(b)=0:e(b)=0:next
  98. 491 f=0:g=0:h=0:i=0:j=0:k=0:l=0:forb=1to13:a(b)=0:next
  99. 492 d$="":e$="":f$="":forb=1to19:b(b)=1:next:forb=1to10:e$(b)="":next:return
  100. 560 print"[147]   [193]pplications are now being taken"
  101. 561 printtab(8)"for [193]mazon expedition "b$"[146]":gosub58:if k<>0then77
  102. 590 g$(1)="[198]ield assistant":g$(2)="[205]edic":g$(3)="[210]adio operator"
  103. 591 g$(4)="[199]uard":return
  104. 620 printleft$(v2$,12+n)tab(22)""g$(n)"[146]"
  105. 621 printv2$sp$v2$"         [206]ame";:inputc$(n)
  106. 622 ifc$(n)<"a"orc$(n)>"zz"thenreturn
  107. 623 c$(n)=chr$(asc(left$(c$(n),1))+128)+mid$(c$(n),2):return
  108. 700 print"[147]              [215]elcome to    [146]"
  109. 701 print"           [198]lint [213]niversity [146]"
  110. 702 print"                [217]ou may:"
  111. 703 print"       1) [211]tart a new expedition"
  112. 704 print"        2) [210]esume an expedition"
  113. 705 print"         3) [214]iew illustration"
  114. 706 print"           4) [197]xit the game"
  115. 707 gosub7070:return
  116. 760 open2,8,2,a$+",s,r"
  117. 761 forb=1to4:input#2,c$(b):input#2,c(b):input#2,f(b):input#2,e(b):next
  118. 762 input#2,f:input#2,g:input#2,h:input#2,i:input#2,j:input#2,k:input#2,l
  119. 763 forb=1to13:input#2,a(b):next:input#2,d$:input#2,e$:input#2,f$
  120. 764 forb=1to19:input#2,b(b):next:forb=1to10:input#2,e$(b):next:close 2:return
  121. 790 print"[147]  1) [198]ly to [201]quitos
  122. 795 [153]"  2) ascly to base camp
  123. 798 return
  124. 800 print"[147]           [198]lint [213]niversity"
  125. 801 print"            [197]st. [205][195][205][204][216][216][216][201][201]"
  126. 802 print"             [206]ihil, [212]exas"
  127. 803 gosub8000:return
  128. 810 print"[147]     [202]eep and bus to [211]an [193]ntonio"
  129. 811 print"     [193]ir flight to [201]quitos, [208]eru":return
  130. 830 gosub810:print"    [208]addle wheel boat to base camp":return
  131. 840 open3,8,3,"@:"+a$+",s,w"
  132. 841 forb=1to4:print#3,c$(b):print#3,c(b):print#3,f(b):print#3,e(b):next
  133. 842 print#3,f:print#3,g:print#3,h:print#3,i:print#3,j:print#3,k:print#3,l
  134. 843 forb=1to13:print#3,a(b):next:print#3,d$:print#3,e$:print#3,f$
  135. 844 forb=1to19:print#3,b(b):next:forb=1to10:print#3,e$(b)+" ":next:close 3:return
  136. 4321 poke53280,15:poke53281,15:return
  137. 6400 sys32789:poke53280,0:poke53281,0
  138. 6410 zx=7:load"p3",8,1
  139. 6420 getay$:ifay$=""then6420
  140. 6430 sys32780
  141. 6440 poke 53280,15:poke53281,15:goto9
  142. 7070 print"[172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191]";
  143. 7071 fora=1to11
  144. 7072 print"[190][191]";
  145. 7073 print"[191][172]";
  146. 7074 next
  147. 7075 print"[172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191]";
  148. 7079 print"[144]":return
  149. 8000 print"[172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]";
  150. 8001 forba=1to22
  151. 8002 print"[161][146][161]";:next
  152. 8003 print"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]";
  153. 8009 print"[144]":return
  154.