home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Adventure / SEARCH-&-RESCUE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  18.9 KB  |  513 lines
  1. 1 DIMS$(12),D(12),A(12):GOSUB7010:BP=HP+CN:EP=HP+CN*24
  2. 2 DN$="":AC$=""
  3. 3 S$=CHR$(34):S$(2)="S":T$=CHR$(236):U$=CHR$(251):W$=CHR$(252):X$=CHR$(254)
  4. 4 S$(1)=S$+S$+"[157][157][157]"+S$+S$+S$+S$+"[157][157][157]"+S$+S$+S$+S$+"[157][157][157][157][157]"+S$+S$+""+S$+S$
  5. 5 S$(3)="^^[157][157][157][157][157]^^^^^[157][157][157]^^^^^":S$(4)="[216][216][216][157][157][157][157][216][216][216][216][216][157][157][157][157][216][216][216][216]"
  6. 6 S$(6)="[166][157][157][166][166]":S$(5)="..[157][157][157]....[157][157][157][157][157]....[157][157][157][157][157][157].."
  7. 7 S$(9)=CO$(7)+""+U$+W$+X$+"[157][157]"+U$+W$+""+T$+"[157][157][157]"+U$+T$+U$+CO$(1)
  8. 8 S$(7)="[169][223][146]":S$(11)=CO$(5)+"[207][163][208][157][157][157][165]+[167][157][157][157][204][164][186]"+CO$(1)
  9. 9 S$(8)="[206][205][206][205][157][157][157][157][206][205][206][205][206][205][157][157][157][157][157][157][157][206][205][206][205][206][205]":S$(10)=CO$(7)+"[202][201][157][157][213][203][157][157][157][213][203]"+CO$(1)
  10. 10 S$(12)=CO$(9)+"C"+CO$(1)
  11. 11 AA=1:DO$=LEFT$(DN$,22):D1$="":D2$="":D3$=""
  12. 12 EA$="  [157][157]  ":RA$="[175][223][146][157][157][184][169]":DA$="[182][181][157][157][223][169]":LA$="[169][146][175][157][157][223][184]":UA$="[169][223][146][157][157][182][181]"
  13. 13 S$(1)=CO$(8)+S$(1)+CO$(1):S$(2)=CO$(9)+S$(2)+CO$(1):S$(3)=CO$(2)+S$(3)+CO$(1)
  14. 14 S$(4)=CO$(4)+S$(4)+CO$(1):S$(5)=CO$(10)+S$(5)+CO$(1)
  15. 15 IFCZTHENS$(7)=CHR$(151)+S$(7)+CO$(1):S$(6)=CHR$(28)+S$(6)+CO$(1)
  16. 16 IFCZTHENS$(8)=CHR$(149)+S$(8)+CO$(1)
  17. 17 GOSUB10010:M1$="SEARCH AND RESCUE":M2$="USE SHORT FORM":M3$="TOO FAR"
  18. 18 TP$=M1$:GOSUB11010:BT$="BEGINNING":GOSUB12010
  19. 20 PRINTCO$(9)"";TAB(10)"[223]    J. D.  ROSS    [146][169]"
  20. 25 PRINTDN$;"[145][169]     COVER  PAGE     [223][146]":BT$=" ":GOSUB12010
  21. 35 PRINTCO$(3)"";TAB(6)"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  22. 40 PRINTTAB(6)"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  23. 45 PRINTTAB(6)"[166][166][166][166][166] J. DOUGLAS ROSS [166][166][166][166][166]"
  24. 50 PRINTTAB(6)"[166][166][166][166][166] WILLOWDALE,ONT. [166][166][166][166][166]"
  25. 55 PRINTTAB(6)"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  26. 60 PRINTTAB(6)"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  27. 75 PRINTCO$(9)"MODIFIED BY WILLIAM KENDALL
  28. 80 [153]"BALTIMORE, MARYLAND"CO$(1)
  29. 85 [141]1240:[137]602
  30. 110 BT$[178]" ":[141]12010:[141]991:TI$[178]"000000":QQ[178]0
  31. 120 [141]5010:HH[178]0:WA[178]0:WB[178]0:WC[178]0:WE[178]0:WF[178]0:WG[178]0:PP[178][181](20[172][187](1)[170]200)
  32. 121 Y[178][181](2[172][187](1)[170]1):[139]Y[178]1[167]125
  33. 122 PO[178]BP:[139]CR[178][179]BP[170]12[172]CN[167]PO[178]EP[171]CN[170]1:[137]126
  34. 125 PO[178]BP[170]38:[139]CR[178][179]BP[170]12[172]CN[167]PO[178]EP[171]CN[170]38
  35. 126 BT$[178]"YOU ARE HERE":[141]12010:[129]I[178]1[164]5:[151]PO,42:[141]1020
  36. 127 [139]CZ[167][151]PO[170]CO,P(1)
  37. 128 [129]D[178]1[164]10:[130]:[151]PO,32:[139]CZ[167][151]PO[170]CO,P(1)
  38. 129 [129]D[178]1[164]100:[130]:[130]:[151]PO,58:[139]CZ[167][151]PO[170]CO,P(1)
  39. 130 WD[178]0:BT$[178]"ENTER DIRECTION ":[141] 12010
  40. 135 [153]"DIR: ";:[141]205
  41. 140 UR$[178]R$
  42. 145 BT$[178]"ENTER DISTANCE ":[141] 12010
  43. 150 [153]"DIS: ";:[141]205
  44. 155 DI[178][197](R$):[139]DI[177]38[167]BT$[178]M3$:[141]12010:TP$[178]M1$:[141]11010:[137]150
  45. 160 BT$[178]" ":[141] 12010
  46. 165 [129]C[178]1[164]DI:QQ[178]QQ[170]1
  47. 166 [141]5301:[139]FL[178]2[167]FL[178]0:BT$[178]MS$:[141]12010:[141]994:TP$[178]M1$:[141]11010:[137]130
  48. 170 [139]XX[178]1[167][141]190:TP$[178]M1$:[141]11010:[141]13998:[137]602
  49. 175 [139]FL[178]1[167]BT$[178]MS$:[141]1090:[141]12010:[141]994:[141]13998:[141]197:[137]602
  50. 180 [139]WD[167]BT$[178]MS$:[141]12010:[141]994:MS$[178]"GET HELP!!!"
  51. 181 BT$[178]MS$:[141]12010:[130]:[141]994:MS$[178]" "
  52. 182 BT$[178]"YOU ARE HERE":[141]12010:Y[178][194](PO[170]CO)
  53. 183 [129]I[178]1[164]3:[151]PO,42:[141]1020:[139]CZ[167][151]PO[170]CO,P(1)
  54. 184 [129]D[178]1[164]30:[130]:[151]PO,X:[139]CZ[167][151]PO[170]CO,Y
  55. 185 [129]D[178]1[164]300:[130]:[130]
  56. 187 [139]X[179][177]32[167]189
  57. 188 [151]PO,58:[139]CZ[167][151]PO[170]CO,P(1)
  58. 189 BT$[178]"CLOSE":[141]12010:TP$[178]M1$:[141]11010:[137]130
  59. 190 [141]810:[139]WA[167]BT$[178]"DIED FROM SNAKE BITE":[141]1090:[141]12010:[141]994:[137]197
  60. 191 [139]WB[167]BT$[178]"COLLAPSE FROM WOUNDS":[141]1090:[141]12010:[141]994:[137]197
  61. 192 [139]WC[167]BT$[178]"CAVE-IN INJURIES FATAL":[141]1090:[141]12010:[141]994:[137]197
  62. 193 [139]WF[167]BT$[178]"GANGRENE IN YOUR FOOT":[141]1090:[141]12010:[141]994:[137]197
  63. 194 [139]WG[167]BT$[178]"BROKEN ARM STOPS YOU":[141]1090:[141]12010:[141]994:[137]197
  64. 195 [139]WE[167]BT$[178]"NO SUPPLIES = NO HELP":[141]1090:[141]12010:[141]994:[137]197
  65. 196 BT$[178]MS$:[141]12010:[141]1235:BT$[178]"GOOD WORK, "[170]NA$[170]"!":[141]12010:[137]199
  66. 197 TU[178]0:BT$[178]"OTHERS COMPLETE RESCUE":[141]12010:[141]994
  67. 198 BT$[178]"TRY AGAIN, "[170]NA$[170]".":[141]12010:[141]994
  68. 199 [141]994:[141]994:XX[178]0:FL[178]0:[142]
  69. 205 R$[178]"":[129]I[178]1[164]10:[161]R$:[130]
  70. 210 [161]I$:[139]I$[178]""[167]210
  71. 215 R[178][198](I$):[139][195](R$)[177]0[175]R[178]13[167][153]:[142]
  72. 216 [139]R[178]13[176]R[178]32[167]210
  73. 220 [139]R[178]17[176]R[178]19[176]R[178]29[176]R[178]157[176]R[178]145[176]R[178]147[176]R[178]148[167]210
  74. 221 [139][195](R$)[178]0[175]R[178]20[167]210
  75. 225 [139]R[178]20[167][153]"CMD CMD";:R$[178][200](R$,[195](R$)[171]1):[137]210
  76. 230 R$[178]R$[170]I$:[153]I$;:[139][195](R$)[178]15[167][153]:[142]
  77. 235 [137]210
  78. 510 [139]WA[178]1[176]WB[178]1[176]WC[178]1[176]WF[178]1[176]WG[178]1[176]WE[178]1[167]515
  79. 512 [139]TU[178]0[167]BT$[178]"NO RECORDS PRESENT":[141]12010:[141]994:[137]620
  80. 515 [141]990:TP$[178]M1$:[141]11010:BT$[178]" ":[141]12010
  81. 520 [153]"";[163]10)"(null)   S U M M A R Y   WAITSTEP"
  82. 525 PU$[178][196](ET)
  83. 530 [139]WA[178]1[176]WB[178]1[176]WC[178]1[176]WF[178]1[176]WG[178]1[176]WE[178]1[167]570
  84. 531 [153]""NA$"'S RESCUE"
  85. 532 [153]"NUMBER OF PASSENGERS:"PP
  86. 533 [153]"NUMBER KILLED:       ON"
  87. 534 [139][195](PU$)[178]2[167][153][163]25)PU$
  88. 535 [139][195](PU$)[178]3[167][153][163]24)PU$
  89. 536 [153]"                     LENLENLENLENLEN"
  90. 537 [153]"                     "(PP[171]ET):SU[178]PP[171]ET
  91. 538 [153]"NUMBER MISSING:      ON":SV[178][181](QQ[173]5):[139]SV[177]SU[167]SV[178]SU
  92. 539 PU$[178][196](SV):[139][195](PU$)[178]2[167][153][163]25)PU$:[137]542
  93. 540 [139][195](PU$)[178]3[167][153][163]24)PU$:[137]542
  94. 541 [153][163]23)PU$
  95. 542 [153]"                     LENLENLENLENLEN"
  96. 543 [153]"NUMBER RESCUED:      ON":PU$[178][196](SU[171]SV)
  97. 544 [139][195](PU$)[178]2[167][153][163]25)PU$:[137]547
  98. 545 [139][195](PU$)[178]3[167][153][163]24)PU$:[137]547
  99. 546 [153][163]23)PU$
  100. 547 SC[178][181](((SU[171]SV)[172]100)[173]PP):[153]"  RANK: WAIT";
  101. 550 [139]SC[177]95[167][153]" 1. SUPER SEARCHER":[137]555
  102. 551 [139]SC[177]90[167][153]" 2. ASSISTANT RANGER":[137]555
  103. 552 [139]SC[177]85[167][153]" 3. TRAIL BLAZER":[137]555
  104. 553 [153]" 4.  TENDERFOOT":[137]555
  105. 555 [153]"YOU DID WELL, "NA$"!"
  106. 560 [153]"SOME OF THE MISSING PERSONS HAVE"
  107. 565 [153]"     REACHED THE AID STATION SAFELY.":[141]13998:[137]605
  108. 570 [153]""NA$""
  109. 571 [139]WA[178]1[176]WC[178]1[167]590
  110. 580 [139]WB[167][153]"YOU COLLAPSED FROM WOUNDS.":HH[178]1
  111. 581 [139]WF[167][153]"YOU HAVE GANGRENE IN YOUR FOOT.":HH[178]1
  112. 582 [139]WG[167][153]"YOUR BROKEN ARM NEEDS ATTENTION.":HH[178]1
  113. 583 [139]WE[167][153]"YOU HAD NO SUPPLIES WITH YOU."
  114. 584 [153]"YOU ARE RECOVERING IN A HOSPITAL."
  115. 585 [153]"YOU CANNOT HELP ANYONE."
  116. 586 [153]"YOU TRAVELLED OVER"QQ"KILOMETRES."
  117. 590 [139]WA[167][153]"YOU DIED FROM SNAKE BITE.":[137]592
  118. 591 [139]WC[167][153]"YOUR CAVE-IN INJURIES WERE FATAL."
  119. 592 [153]"  RANK: WAIT 5. LOWLY BEGINNER"
  120. 593 BT$[178]"OTHERS COMPLETED RESUE":[141]12010:[141]994
  121. 594 BT$[178]"TRY AGAIN, "[170]NA$[170]".":[141]12010:[141]994:[141]13998:[137]605
  122. 602 [139]AA[167][141]635
  123. 605 [141]10010:[141]990:TP$[178]M1$:[141]11010:BT$[178]" ":[141]12010
  124. 606 [153]"";[163]10)"(null)      M E N U      WAITSTEP"
  125. 607 [153]"";[163]9)"1.  SEARCH & RESCUE"
  126. 608 [153]"";[163]9)"2.  INSTRUCTIONS"
  127. 609 [153]"";[163]9)"3.  RESULTS"
  128. 610 [153]"";[163]9)"4.  RETURN TO BASIC"
  129. 611 [153]"";[163]9)"5.  NEW PLAYER"
  130. 612 [153]"                                    "
  131. 613 [153]"BULLETIN: AN AIRPLANE HAS CRASHED.  "
  132. 614 [153]"YOUR TASK IS TO LOOK FOR SURVIVORS. "
  133. 615 [153]"YOU HAVE RESCUE SUPPLIES AND A MAP. "
  134. 616 MS$[178]NA$[170]"!                         "
  135. 617 [153]"GOOD LUCK, "[200](MS$,25)
  136. 618 [153]"                                    "
  137. 620 BT$[178]"CHOOSE 1,2,3,4 OR 5":[141]12010
  138. 622 [161]R$:R[178][197](R$):[139]R[179]1[176]R[177]5[167]622
  139. 624 BT$[178]"CLOSE":[141]12010:[139]R[178]5[167][141]635:[137]605
  140. 626 [145]R[137]110,710,510,9991
  141. 635 AA[178]0:TU[178]0:[141]991:[153]D1$"IS THIS YOUR FIRST TIME?CLOSE(Y/N)"
  142. 640 [161]R1$:[139]R1$[179][177]"Y"[175]R1$[179][177]"N"[167]640
  143. 650 [141]998:[153]"PLEASE TYPE YOUR NAME: ";:[141]205:NA$[178]R$
  144. 655 [153]"HELLO, ";NA$;"."
  145. 660 [153]"ON";:FS$[178]"HELLO, ":[141]13010:FS$[178]NA$:[141]13010:[153]"."
  146. 685 [153]"ALRIGHT, ";NA$;", LET'S GO!"
  147. 686 [139]R1$[178]"Y"[167][153]"CHOOSE #2 FIRST."
  148. 687 HH[178]0:WA[178]0:WB[178]0:WC[178]0:WD[178]0:WE[178]0:WF[178]0:WG[178]0
  149. 690 [141]994:[142]
  150. 710 [141]990:TP$[178]"I N S T R U C T I O N S":[141]11010:BT$[178]" ":[141]12010
  151. 720 [153]"";[163]10)"(null)   O P T I O N S   WAITSTEP"
  152. 725 [153]"";[163]9)"1.  GENERAL HELP"
  153. 730 [153]"";[163]9)"2.  COMPASS AND SCALE"
  154. 735 [153]"";[163]9)"3.  MAP LEGEND"
  155. 740 [153]"";[163]9)"4.  RETURN TO MAIN MENU"
  156. 745 BT$[178]"CHOOSE 1,2,3,OR 4":[141]12010
  157. 750 [161]R$:R[178][197](R$):[139]R[179]1[176]R[177]6[167]750
  158. 755 BT$[178]"CLOSE":[141]12010:[139]R[178]4[167]605
  159. 760 [145]R[141]12110,12260,12470
  160. 765 [137]710
  161. 810 JJ[178]TI:HH[178][181](JJ[173]21600):[139]HH[179][177]0[167]JJ[178]JJ[171]HH[172]21600
  162. 820 ET[178][181](JJ[173]3600):MM$[178][201]([196](MM),2)
  163. 830 TU[178]1:[142]
  164. 990 [153]"";:[129]I[178]1[164]23:[153]"                                    ":[130]:[142]
  165. 991 [153]"";:[129]I[178]1[164]23:[153]"                                       ":[130]:[142]
  166. 994 [129]I[178]1[164]4:[141]998:[130]:[142]
  167. 998 [129]D[178]1[164]800:[130]:[142]
  168. 1020 [139]CZ[178]0[167][151]SO[171]3,0:[151]SO,16:[151]SO[171]1,85:[137]1070
  169. 1030 [151]SO[170]24,0[176]6:[151]SO[170]23,0:[151]T1[170]5,0[176]136:[151]T1[170]6,0[176]240
  170. 1040 [129]H[178]250[164]240[169][171]1:[151]T1[170]1,H:[151]T1[170]4,17:[130]:[151]T1[170]4,16
  171. 1050 [151]SO[170]24,0:[142]
  172. 1070 [129]H[178]250[164]240[169][171]1:[151]SO[171]3,H:[130]:[151]SO,0:[142]
  173. 1090 [139]CZ[167]1150
  174. 1095 [151]SO[171]3,0:[151]SO,16:[151]SO[171]1,51:[151]SO[171]3,0
  175. 1100 [129]Z[178]200[164]170[169][171]1:[151]SO[171]3,Z:[130]:[151] SO[171]3,0
  176. 1110 [129]Z[178]1[164]300:[130]:[151]SO[171]1,15
  177. 1120 [129]Z[178]1[164]200:[151]SO[171]3,245:[130]
  178. 1130 [151]SO,0:[142]
  179. 1150 [151]SO[170]24,0[176]15
  180. 1160 [151]SO[170]23,0
  181. 1170 AD[178]7[172]16[170]1:UR[178]7[172]16[170]1
  182. 1180 [151]T1[170]6,0[176]UR:[151]T1[170]5,0[176]AD
  183. 1190 [129]N[178]1[164]16:[151]T1,LO(N):[151]T1[170]1,HI(N):[151]T1[170]4,33:[130]
  184. 1200 [151]T1[170]4,32:[129]D[178]1[164]300:[130]
  185. 1210 [151]T1,12:[151]T1[170]1,7:[151]T1[170]4,33:[129]D[178]1[164]1000:[130]
  186. 1220 [151]T1[170]4,32:[129]D[178]1[164]10:[130]:[141]2010:[142]
  187. 1235 [151]NP,42:[139]CZ[167][151]NP[170]CO,P(1)
  188. 1240 [139]CZ[167][141]2040:[137]1250
  189. 1245 [151]SO[171]3,0:[151]SO,16:[151]SO[171]1,15:[151]SO[171]3,0
  190. 1250 [135] A,B,C:[139]CZ[167][151]T3[170]4,64:[151]T2[170]4,128:[151]T1[170]4,16
  191. 1260 [139]C[178]99[167][140]:[137]1320
  192. 1270 [139]CZ[178]0[167][151]SO[171]3,HI(A):[129]D[178]1[164]10:[130]:[137]1250
  193. 1280 [151]T1[170]1,HI(A):[151]T1,LO(A):[151]T1[170]4,17
  194. 1290 [139]B[167][151]T2[170]1,HI(B[170]18):[151]T2,LO(B[170]18):[151]T2[170]4,129
  195. 1300 [151]T3[170]1,HI(C):[151]T3,LO(C):[151]T3[170]4,65
  196. 1310 [137]1250
  197. 1320 [139]CZ[167][141]2010:[142]
  198. 1330 [151]SO,0:[142]
  199. 1410 [131]00,00,00,34,05,00,00,00,00,34,05,10,00,00,00
  200. 1420 [131]34,05,00,00,00,00,34,05,01,34,00,01,34,00,01
  201. 1430 [131] 25,00,00,25,05,00,25,00,09,25,05,10,25,00,00
  202. 1440 [131]00,00,00,27,05,00,00,00,00,29,05,05,00,00,00
  203. 1450 [131]30,05,00,00,00,00,34,05,10,34,05,10,34,00,10
  204. 1460 [131]34,00,00,34,00,00,34,05,01,34,05,01,00,00,01
  205. 1470 [131]00,00,00,34,05,00,00,00,09,35,05,10,00,00,10
  206. 1480 [131]34,05,00,00,00,00,34,05,10,34,05,10,34,00,10
  207. 1490 [131]00,00,00,32,05,01,32,00,01,32,00,01,00,00,00
  208. 1500 [131]34,05,00,34,00,00,34,00,00,00,00,00,32,05,08
  209. 1510 [131]32,00,08,32,00,00,00,00,00,29,05,10,29,00,00
  210. 1520 [131]30,05,08,30,00,00,25,05,01,25,05,00,25,00,00,25,05,00,25,05,00
  211. 1530 [131]00,00,00,34,05,00,00,00,00,34,05,10,00,00,00
  212. 1540 [131]34,05,00,00,00,00,34,05,01,34,00,01,34,00,01
  213. 1550 [131]25,00,00,25,05,00,25,00,09,25,05,10,25,00,00
  214. 1560 [131]00,00,00,27,05,00,00,00,00,29,05,05,00,00,00
  215. 1570 [131]30,05,00,00,00,00,34,05,10,34,05,10,34,00,10
  216. 1580 [131]34,00,00,34,00,00,34,05,01,34,05,01,00,00,01
  217. 1590 [131]00,00,00,34,05,00,00,00,09,35,05,10,00,00,10
  218. 1600 [131]34,05,00,00,00,00,34,05,10,34,05,10,34,00,10
  219. 1610 [131]00,00,00,32,05,01,32,00,01,32,00,01,00,00,00
  220. 1620 [131]34,05,00,34,05,00,34,00,00,00,00,08,32,05,10
  221. 1630 [131]32,05,00,32,00,00,00,00,00,29,05,10,29,05,00
  222. 1640 [131]27,05,06,25,05,08,23,05,10,22,05,00,25,05,00
  223. 1650 [131]27,05,01,29,05,01,30,05,06,30,05,00,30,05,06,00,00,00,30,05,06
  224. 1660 [131]0,0,0,0,0,99
  225. 2010 [129]I[178]0[164]28:[151]SO[170]I,0:[130]:[142]
  226. 2040 [151]T1[170]6,0[176]74:[151]T1[170]5,0[176]138
  227. 2060 [151]T2[170]6,0[176]243:[151]T2[170]5,0
  228. 2070 [151]T3[170]6,0[176]31:[151]T3[170]5,0[176]79
  229. 2110 [151]T3[170]3,0[176]6
  230. 2120 [151]T3[170]2,0[176]224
  231. 2130 [151]SO[170]24,0[176]15:[151]SO[170]23,0[176]240
  232. 2140 [142]
  233. 5010 I[178]0
  234. 5015 I[178]I[170]1:[139]I[178]13[167]5050
  235. 5020 D(I)[178][181](19[172][187](1)[170]2):A(I)[178][181](30[172][187](1)[170]3)
  236. 5025 [139]I[177]1[167][129]N[178]1[164]I[171]1:[139]D(N)[178]D(I)[176]A(N)[178]A(I)[167]5020
  237. 5030 [139]I[177]1[167][130]
  238. 5035 [137]5015
  239. 5050 BT$[178]"PLEASE STUDY MAP":[141]12010
  240. 5060 [129]J[178]1[164]12
  241. 5070 [153][200](DN$,D(J))[200](AC$,A(J))S$(J)
  242. 5080 [130]
  243. 5110 CR[178][181]((EP[171]BP)[172][187](1)[170]BP)
  244. 5120 [139][194](CR)[178]32[167]5135
  245. 5130 [137]5110
  246. 5135 X[178][194](CR[171]1):[139]X[179][177]32[167]5205
  247. 5140 X[178][194](CR[171]2):[139]X[179][177]32[167]5205
  248. 5145 X[178][194](CR[170]1):[139]X[179][177]32[167]5205
  249. 5150 X[178][194](CR[170]2):[139]X[179][177]32[167]5205
  250. 5155 X[178][194](CR[171]CN[171]1):[139]X[179][177]32[167]5205
  251. 5160 X[178][194](CR[171]CN[171]2):[139]X[179][177]32[167]5205
  252. 5165 X[178][194](CR[171]CN[170]1):[139]X[179][177]32[167]5205
  253. 5170 X[178][194](CR[171]CN[170]2):[139]X[179][177]32[167]5205
  254. 5175 X[178][194](CR[170]CN[171]1):[139]X[179][177]32[167]5205
  255. 5180 X[178][194](CR[170]CN[171]2):[139]X[179][177]32[167]5205
  256. 5185 X[178][194](CR[170]CN[170]1):[139]X[179][177]32[167]5205
  257. 5190 X[178][194](CR[170]CN[170]2):[139]X[179][177]32[167]5205
  258. 5195 [137]5110
  259. 5205 [139]X[178]34[167]CL$[178]"SWAMP":[142]
  260. 5210 [139]X[178]19[167]CL$[178]"SNAKE PIT":[142]
  261. 5215 [139]X[178]30[167]CL$[178]"FOREST":[142]
  262. 5220 [139]X[178]88[167]CL$[178]"WOODS":[142]
  263. 5225 [139]X[178]46[167]CL$[178]"QUICKSAND":[142]
  264. 5230 [139]X[178]102[167]CL$[178]"MINE":[142]
  265. 5235 [139]X[178]3[167]CL$[178]"HERE":[142]
  266. 5240 [139]X[178]233[176]X[178]223[167]CL$[178]"CABIN":[142]
  267. 5245 [139]X[178]77[176]X[178]78[167]CL$[178]"HILLS":[142]
  268. 5250 [139]X[178]236[176]X[178]251[176]X[178]252[176]X[178]254[167]CL$[178]"LAKE":[142]
  269. 5255 [139]X[178]73[176]X[178]74[176]X[178]75[176]X[178]85[167]CL$[178]"RIVER":[142]
  270. 5260 [139]X[178]74[176]X[178]80[176]X[178]76[176]X[178]122[176]X[178]99[176]X[178]100[176]X[178]101[176]X[178]103[176]X[178]91[167]CL$[178]"AID":[142]
  271. 5265 [137]5110
  272. 5301 [139]UR$[178]"N"[167]NP[178]PO[171]CN:[137]5310
  273. 5302 [139]UR$[178]"E"[167]NP[178]PO[170]1:[137]5310
  274. 5303 [139]UR$[178]"S"[167]NP[178]PO[170]CN:[137]5310
  275. 5304 [139]UR$[178]"W"[167]NP[178]PO[171]1:[137]5310
  276. 5305 [139]UR$[178]"NE"[167]NP[178]PO[171]CN[170]1:[137]5310
  277. 5306 [139]UR$[178]"SE"[167]NP[178]PO[170]CN[170]1:[137]5310
  278. 5307 [139]UR$[178]"SW"[167]NP[178]PO[170]CN[171]1:[137]5310
  279. 5308 [139]UR$[178]"NW"[167]NP[178]PO[171]CN[171]1:[137]5310
  280. 5309 MS$[178]"DIDN'T USE N,E,S,W,NE,SE,SW,NW":FL[178]2:[142]
  281. 5310 [139]NP[178]CR[167]MS$[178]"RESCUE COMPLETED!!!":XX[178]1:[142]
  282. 5312 [139]NP[178][177]EP[167]MS$[178]"WENT TOO FAR SOUTH":FL[178]1:[142]
  283. 5315 [139]NP[179]BP[167]MS$[178]"WENT TOO FAR NORTH":FL[178]1:[142]
  284. 5320 [139]UR$[178]"E"[176]UR$[178]"NE"[176]UR$[178]"SE"[167][141]5410:[139]FL[167][142]
  285. 5325 [139]UR$[178]"W"[176]UR$[178]"NW"[176]UR$[178]"SW"[167][141]5460:[139]FL[167][142]
  286. 5330 PO[178]NP:X[178][194](PO):[139]CZ[167]Y[178][194](PO[170]CO)
  287. 5340 [151]PO,42:[139]CZ[167][151]PO[170]CO,P(1)
  288. 5341 [129]D[178]1[164]30:[130]:[151]PO,X:[139]CZ[167][151]PO[170]CO,Y
  289. 5342 [129]D[178]1[164]30:[130]:FL[178]0:
  290. 5343 [139]X[178]58[167][151]PO,58:[139]CZ[167][151]PO[170]CO,P(1)
  291. 5344 [139]X[178]58[167]MS$[178]" ":[142]
  292. 5345 [139]X[179][177]32[167][141]5510:[142]
  293. 5350 [151]PO,58:[139]CZ[167][151]PO[170]CO,P(1)
  294. 5351 MS$[178]" ":[142]
  295. 5410 CP[178]HP[170]40
  296. 5415 CP[178]CP[170]CN:[139]CP[177]PO[167]5425
  297. 5420 [137]5415
  298. 5425 [139]UR$[178]"E"[175]NP[178]CP[167]MS$[178]"WENT TOO FAR EAST":FL[178]1:[142]
  299. 5430 [139]UR$[178]"NE"[175]NP[178]CP[171]CN[167]MS$[178]"WENT TOO FAR EAST":FL[178]1:[142]
  300. 5435 [139]UR$[178]"SE"[175]NP[178]CP[170]CN[167]MS$[178]"WENT TOO FAR EAST":FL[178]1:[142]
  301. 5440 FL[178]0:[142]
  302. 5460 CP[178]HP[171]1
  303. 5465 CP[178]CP[170]CN:[139]CP[177]PO[167]CP[178]CP[171]CN:[137]5475
  304. 5470 [137]5465
  305. 5475 [139]UR$[178]"W"[175]NP[178]CP[167]MS$[178]"WENT TOO FAR WEST":FL[178]1:[142]
  306. 5480 [139]UR$[178]"NW"[175]NP[178]CP[171]CN[167]MS$[178]"WENT TOO FAR WEST":FL[178]1:[142]
  307. 5485 [139]UR$[178]"SW"[175]NP[178]CP[170]CN[167]MS$[178]"WENT TOO FAR WEST":FL[178]1:[142]
  308. 5490 FL[178]0:[142]
  309. 5510 Y[178][181](2[172][187](1)[170]1):[139]X[178]34[167]5610
  310. 5515 [139]X[178]19[167]5620
  311. 5520 [139]X[178]30[167]5630
  312. 5525 [139]X[178]88[167]5640
  313. 5530 [139]X[178]46[167]5650
  314. 5535 [139]X[178]102[167]5660
  315. 5540 [139]X[178]3[167]5670
  316. 5545 [139]X[178]233[176]X[178]223[167]5680
  317. 5550 [139]X[178]77[176]X[178]78[167]5690
  318. 5555 [139]X[178]236[176]X[178]251[176]X[178]252[176]X[178]254[167]5700
  319. 5560 [139]X[178]73[176]X[178]74[176]X[178]75[176]X[178]85[167]5710
  320. 5565 [139]X[178]79[176]X[178]80[176]X[178]76[176]X[178]122[176]X[178]99[176]X[178]100[176]X[178]101[176]X[178]103[176]X[178]91[167]5720
  321. 5570 [142]
  322. 5610 [139]Y[178]1[167]MS$[178]"THE SWAMP HAS A PATH":[142]
  323. 5615 MS$[178]"YOU ARE STUCK IN THE SWAMP":FL[178]1:[142]
  324. 5620 [139]Y[178]1[167]MS$[178]"THE SNAKE IS HARMLESS":[142]
  325. 5625 MS$[178]"A POISONOUS SNAKE BITES YOU":WD[178]1:WA[178]1:[142]
  326. 5630 [139]Y[178]1[167]MS$[178]"YOU'RE ON A FOREST PATH":[142]
  327. 5635 MS$[178]"YOU'RE LOST IN THE FOREST":FL[178]1:[142]
  328. 5640 [139]Y[178]1[167]MS$[178]"BE CAREFUL IN THIS SHADY WOODS":[142]
  329. 5645 MS$[178]"YOU ARE ATTACKED BY A BEAR":WD[178]2:WB[178]1:[142]
  330. 5650 [139]Y[178]1[167]MS$[178]"YOU ARE IN QUICKSAND!..":[142]
  331. 5655 MS$[178]"YOU SINK IN THE QUICKSAND!..":FL[178]1:[142]
  332. 5660 [139]Y[178]1[167]MS$[178]"THERE IS A CAVE-IN. CRUNCH":WD[178]3:WC[178]1:[142]
  333. 5665 MS$[178]"YOU FELL DOWN A MINE-SHAFT":FL[178]1:[142]
  334. 5670 MS$[178]"SEARCH NEAR "[170]CL$:[142]
  335. 5680 [139]Y[178]1[167]MS$[178]"THE CABIN IS EMPTY":[142]
  336. 5685 MS$[178]"YOU STEP ON A BEAR TRAP.":WD[178]4:WF[178]1:[142]
  337. 5690 [139]Y[178]1[167]MS$[178]"THESE HILLS ARE VERY ROCKY":[142]
  338. 5695 MS$[178]"YOU SLIP AND BREAK AN ARM":WD[178]5:WG[178]1:[142]
  339. 5700 [139]Y[178]1[167]MS$[178]"I HOPE YOU CAN SWIM":[142]
  340. 5705 MS$[178]"YOU JUST DROWNED!..":FL[178]1:[142]
  341. 5710 [139]Y[178]1[167]MS$[178]"YOU FOUND A BRIDGE":[142]
  342. 5715 MS$[178]"YOU ARE WET AND NEED SUPPLIES":WD[178]5:WE[178]1:[142]
  343. 5720 [139]WA[167]5730
  344. 5721 [139]WB[167]5740
  345. 5722 [139]WC[167]5750
  346. 5723 [139]WF[167]5760
  347. 5724 [139]WG[167]5770
  348. 5725 [139]WE[167]5780
  349. 5726 MS$[178]"HAVE A REST AT THE AID STATION":[142]
  350. 5730 [139]Y[178]1[167] MS$[178]"SERUM IS AVAILABLE. CONTINUE":WA[178]0:[142]
  351. 5735 MS$[178]"REST AFTER YOUR SNAKE BITE":FL[178]1:WA[178]0:[142]
  352. 5740 [139]Y[178]1[167]MS$[178]"NO SERIOUS INJURIES. CONTINUE":WB[178]0:[142]
  353. 5745 MS$[178]"YOU ARE SENT TO A HOSPITAL":FL[178]1:[142]
  354. 5750 [139]Y[178]1[167]MS$[178]"YOU'LL RECOVER IN TIME":FL[178]1:WC[178]0:HH[178]1:[142]
  355. 5755 MS$[178]"AN AMBULANCE TAKES YOU AWAY":FL[178]1:WC[178]0:HH[178]1:[142]
  356. 5760 [139]Y[178]1[167]MS$[178]"JUST A MINOR NICK":WF[178]0:[142]
  357. 5765 MS$[178]"BADLY SMASHED FOOT":FL[178]1:[142]
  358. 5770 [139]Y[178]1[167]MS$[178]"JUST A MINOR SPRAIN. NO PROBLEM":WG[178]0:[142]
  359. 5775 MS$[178]"THE BROKEN ARM STOPS YOU":FL[178]1:[142]
  360. 5780 [139]Y[178]1[167]MS$[178]"SUPPLIES ARE AVAILABLE. GOOD LUCK":WE[178]0:[142]
  361. 5785 MS$[178]"NO SUPPLIES ARE IN STOCK":FL[178]1:[142]
  362. 7010 [153]"LOAD":CN[178][194](213)[170]1:X[178][194](50003):[151]50003,0:Y[178][194](50003):CZ[178]0
  363. 7020 [153][199](142):[134]HI(41),LO(41),H(36),L(36):HI(0)[178]0:LO(0)[178]0
  364. 7030 [139]Y[178]160[167]HP[178]32768:SO[178]59467:PR[178]64790:[151]SO[170]1,12:[141]7310
  365. 7050 [139]Y[178]0[167][151]50003,X:CZ[178]64:[151]53272,21:[141]7090
  366. 7060 Y[178]0:X[178]0:[142]
  367. 7090 HP[178]1024:PR[178]64738:C1[178]53280:C2[178]53281:[151]C1,0:[151]C2,0:[153][199](158)
  368. 7100 SO[178]53[172]HP:[153]"WORKING.....":T1[178]0[172]7[170]SO:T2[178]1[172]7[170]SO:T3[178]2[172]7[170]SO:NT[178]1911
  369. 7120 [129]N[178]1[164]41:FR[178]NT[172](2[174](1[173]12)):HI(N)[178][181](FR[173]256):LO(N)[178]FR[171]HI(N)[172]256:NT[178]FR:[130]
  370. 7130 [129]I[178]0[164]28:[151]SO[170]I,0:[130]:
  371. 7155 C(1)[178]5:C(2)[178]30:C(3)[178]31:C(4)[178]153:C(5)[178]129
  372. 7160 C(6)[178]150:C(7)[178]154:C(8)[178]156:C(9)[178]158:C(10)[178]159
  373. 7165 P(1)[178]1:P(2)[178]5:P(3)[178]6:P(4)[178]13:P(5)[178]8:CO[178]54272:[143] POKE HP+CO (PO+CO)
  374. 7170 P(6)[178]10:P(7)[178]14:P(8)[178]4:P(9)[178]7:P(10)[178]3
  375. 7175 [129]I[178]1[164]10:CO$(I)[178][199](C(I)):[130]:[142]:[143] CHR$
  376. 7310 [153]"WORKING....."
  377. 7315 [151]SO[171]3,0:[151]SO,16:[151]SO[171]1,15:[151]SO[171]3,0:HI(17)[178]251
  378. 7320 NT[178]251:[129]N[178]18[164]41:FR[178]NT[173]2[174](1[173]12):HI(N)[178][181](FR):NT[178]FR:[130]:
  379. 7330 [129]I[178]1[164]10:CO$(I)[178]"":[130]:[142]:[143] C64
  380. 9991 [153]"LOAD";[163]11)" RETURN TO BASIC WAIT"
  381. 9992 TP$[178]M1$:[141]11010
  382. 9993 [153]"";[163]10)"(null)    J. D.  ROSS    WAITSTEP"
  383. 9994 [153]DO$;"ONSTEP      LAST PAGE      (null)WAIT";
  384. 9995 BT$[178]"ARE YOU SURE? <Y>/<N>":UR$[178]"Y":[141]14010
  385. 9996 [139]A$[178]"N"[167][153]"LOAD  GOODBYE FOR NOW, "NA$".":[128]
  386. 9999 [158]PR
  387. 10010 [153]CO$(9)"LOAD STEPWAIT";:[129]N[178]1[164]36:[153]" WAIT";:[130]
  388. 10020 [153]"(null)WAIT";:[129]N[178]1[164]23:[153]"CMD WAIT";:[130]
  389. 10030 [153]"CMDSTEP";:[129]N[178]1[164]36:[153]"CMDCMD WAIT";:[130]
  390. 10040 [153]"CMDCMD(null)";:[129]N[178]1[164]23:[153]"ONCMD WAIT";:[130]
  391. 10050 [153]CO$(1)"":[142]
  392. 11010 L[178][195](TP$):[153]CO$(9)" ";:A[178][181]((40[171]L)[173]2)
  393. 11020 [153][200]("STEP                          ",A)TP$;
  394. 11030 [153][201]("                        (null)",38[171]A[171]L);"WAIT"
  395. 11035 [153]CO$(1)"":[142]
  396. 12010 L[178][195](BT$):A[178][181]((40[171]L)[173]2)
  397. 12020 [153]DN$CO$(9)[200](" (null)                                      ",A[170]1)BT$;
  398. 12030 [153][201]("                                      WAITSTEP",40[171]A[171]L);CO$(1)""
  399. 12035 [142]
  400. 12110 [141]990:BT$[178]" ":[141]12010:TP$[178]"INSTRUCTIONS":[141]11010
  401. 12115 [153]"WELCOME TO SEARCH AND RESCUE."
  402. 12120 [153]"ONWELCOME TO ";:FS$[178]"SEARCH AND RESCUE":[141]13010:[153]".":[141]994
  403. 12130 [153]"NOTE THE FLASHING MESSAGE. "DA$
  404. 12140 [153]"ONONNOTE THE ";:FS$[178]"FLASHING":[141]13010:[153]" MESSAGE."
  405. 12150 [141]13998:[153]""EA$
  406. 12155 [153]"THANKS, I TALK TO YOU DOWN THERE.   "
  407. 12156 [153]"ON";:FS$[178]"THANKS":[141]13010:[153]
  408. 12160 [153]"HERE IS ANOTHER MESSAGE.          "
  409. 12170 [153]"ONHERE IS ";:FS$[178]"ANOTHER":[141]13010:[153]" MESSAGE.        "
  410. 12180 BT$[178]"PRESS <RETURN>":UR$[178][199](13):[141]14010
  411. 12190 [153]"YOU'LL PRESS RETURN AFTER ANSWERS."
  412. 12200 [153]"ONYOU'LL PRESS ";:FS$[178]"RETURN":[141]13010:[153]" AFTER ANSWERS."
  413. 12210 [153]"NOTE THE FLASHING SPACES. "UA$
  414. 12215 [153]"";:FS$[178]"          ":[141]13010:[153]
  415. 12220 [153]"NOTE THE FLASHING SPACES. "EA$
  416. 12225 [153]"YOUR MESSAGES APPEAR THERE, WHEN YOU"
  417. 12226 [153]"          (1) TYPE A DIRECTION  OR"
  418. 12227 [153]"          (2) TYPE A DISTANCE."
  419. 12230 [153]"ONONON";:FS$[178]"YOUR":[141]13010:[153]" MESSAGES APPEAR THERE"
  420. 12250 [141]13998:[142]
  421. 12260 [141]990:BT$[178]" ":[141]12010:TP$[178]"INSTRUCTIONS":[141]11010
  422. 12270 [153]"     SOME SIMPLE COMPASS POINTS WAIT"
  423. 12275 [153]"                  N"
  424. 12280 [153]"              NW  (null)  NE"
  425. 12285 [153]"                (null) (null) (null)"
  426. 12290 [153]"            W TANTANTANTAN(null)TANTANTANTAN E"
  427. 12295 [153]"                (null) (null) (null)"
  428. 12300 [153]"              SW  (null)  SE"
  429. 12305 [153]"                  S"
  430. 12310 [141]994:[153]" REMEMBER WAIT"
  431. 12315 [153]"LENLENLENLENLENLENLENLENLENLEN"
  432. 12320 [153]"1. NORTH IS AT THE TOP OF THE MAP"
  433. 12325 [153]"2. USE SHORT FORMS ON OUR MAP"
  434. 12330 [153]"     [E.G.- SE FOR SOUTH-EAST]"
  435. 12335 FL[178]0:BT$[178]"TYPE A DIRECTION":[141]12010
  436. 12340 [153]"DIR: ";:[141]205:BT$[178]"GOOD WORK, "[170]NA$
  437. 12345 [139]R$[179][177]"N"[175]R$[179][177]"S"[175]R$[179][177]"E"[175]R$[179][177]"W"[167]FL[178]1
  438. 12346 [139]R$[179][177]"NE"[175]R$[179][177]"SE"[175]R$[179][177]"NW"[175]R$[179][177]"SW"[167]FL[178]FL[170]1
  439. 12347 [139]FL[178]2[167]BT$[178]"DIDN'T USE N,E,S,W,NE,SE,SW,NW"
  440. 12350 [139]FL[178]2[167][141]994:TP$[178]"INSTRUCTIONS":[141]11010
  441. 12351 [141]12010:[139]FL[178]2[167][153]DO$"ON"[163]15);:FS$[178]"TRY AGAIN":[141]13010:[137]12335
  442. 12352 [153]DO$"ON"[163]15)"         "
  443. 12354 [141]994
  444. 12355 [141]13998:[141]990:BT$[178]" ":[141]12010:TP$[178]"INSTRUCTIONS":[141]11010
  445. 12360 [153]"         SCALE OF DISTANCES WAIT"
  446. 12365 [153]" WAIT = 1 KILOMETRE BY 1 KILOMETRE"
  447. 12375 [153]"(null) = 1 KILOMETRE"
  448. 12380 [153]"LEN = 1 KILOMETRE"
  449. 12385 [141]994:[153]" REMEMBER WAIT"
  450. 12390 [153]"LENLENLENLENLENLENLENLENLENLEN"
  451. 12395 [153]"1. OUR MAP IS 39 KM WIDE (W TO E)"
  452. 12400 [153]"     AND 23 KM FROM N TO S."
  453. 12405 [153]"2. STAY ON THE MAP WHEN YOU MOVE"
  454. 12410 [153]"     IN ANY DIRECTION.
  455. 12415 PRINT"3. ONE UNIT TO NE IS A SHORT-CUT"
  456. 12420 PRINT"     FOR 1 KM N AND 1 KM E."
  457. 12430 FL=0:BT$="TYPE A DISTANCE":GOSUB12010:BT$="TERRIFIC, "+NA$
  458. 12435 PRINT"DIS: ";:GOSUB205
  459. 12440 IFVAL(R$)>38THENBT$="YOU WENT OFF THE MAP":FL=1
  460. 12445 IFASC(LEFT$(R$,1))<48ORASC(LEFT$(R$,1))>57THENBT$="USE NUMBERS":FL=1
  461. 12450 IFFLTHENGOSUB994:TP$="INSTRUCTIONS":GOSUB11010
  462. 12455 GOSUB12010:IFFLTHENPRINTDO$"[145]"TAB(15);:FS$="TRY AGAIN":GOSUB13010:GOTO12430
  463. 12460 PRINTDO$"[145]"TAB(15)"         ":GOSUB994:GOSUB13998:RETURN
  464. 12470 GOSUB990:BT$=" ":GOSUB12010:TP$="INSTRUCTIONS":GOSUB11010
  465. 12500 PRINT"        MAP LEGEND (PAGE 1) [146]"
  466. 12505 PRINT"  1. SWAMP         "S$(1)
  467. 12510 PRINT"  2. QUICKSAND     "S$(5)
  468. 12515 PRINT"  3. RIVER         "S$(10)
  469. 12520 PRINT"  4. LAKE          "S$(9)
  470. 12530 GOSUB13998:GOSUB990:BT$=" ":GOSUB12010
  471. 12550 PRINT"        MAP LEGEND (PAGE 2) [146]"
  472. 12555 PRINT"  5. EVERGREEN FOREST "S$(3)
  473. 12560 PRINT"  6. SHADY WOODS     "S$(4)
  474. 12565 PRINT"  7. HILLS           "S$(8)
  475. 12580 GOSUB13998:GOSUB990:BT$=" ":GOSUB12010
  476. 12600 PRINT"        MAP LEGEND (PAGE 3) [146]"
  477. 12605 PRINT"  8. CABIN         "S$(7)
  478. 12610 PRINT"  9. OLD MINE      "S$(6)
  479. 12615 PRINT" 10. AID STATION   "S$(11)
  480. 12620 PRINT"            (GET HELP HERE)"
  481. 12630 GOSUB13998:GOSUB990:BT$=" ":GOSUB12010
  482. 12650 PRINT"        MAP LEGEND (PAGE 4) [146]"
  483. 12655 PRINT" 11. SNAKE PIT  =  "S$(2)
  484. 12660 PRINT" 12. CLUE       =  "S$(12)
  485. 12665 PRINT"     (VISIT THIS POINT FIRST!!!!!!)"
  486. 12666 PRINT"     (SMOKE RISES FROM THE CRASH. )"
  487. 12667 PRINT"     (A MESSAGE WILL APPEAR BELOW.)"
  488. 12670 PRINT" NOTES: [146]"
  489. 12675 PRINT"1. ITEMS MAY BE PARTLY HIDDEN."
  490. 12680 PRINT"   [E.G.:  [169][146][166]  = CABIN + OLD MINE]"
  491. 12685 PRINT"2. ITEMS MAY BE OMITTED."
  492. 12690 PRINT"   [E.G.:  SNAKE PIT  OR [146] CABIN]"
  493. 12700 PRINT"3. SOME ITEMS ARE LARGER THAN SCALE."
  494. 12705 PRINT"   [E.G.: CABIN, MINE, AID STATION]"
  495. 12710 GOSUB13998:GOSUB990:BT$=" ":GOSUB12010:RETURN
  496. 13010 L=LEN(FS$):FORI=1TO5:PRINT""FS$"[146]";
  497. 13020 PRINTLEFT$("[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]",L);
  498. 13030 FORJ=1TO60:NEXT
  499. 13040 PRINTFS$LEFT$("[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]",L);
  500. 13050 FORJ=1TO60:NEXTJ,I:PRINTFS$;:RETURN
  501. 13998 BT$="PRESS <SPACE BAR> "
  502. 13999 UR$=CHR$(32)
  503. 14010 L=LEN(BT$):PRINTCO$(9)DN$;:A=INT((40-L)/2)
  504. 14020 PRINTLEFT$("[223]                      ",A+1);
  505. 14021 PRINTRIGHT$("                                      [146][169]",40-A)"[145]"
  506. 14025 FORI=1TO60:GETA$:IFA$=UR$ORA$="N"THEN14060
  507. 14026 NEXT
  508. 14030 PRINTTAB(A-4)""BT$"[145]"
  509. 14040 FORI=1TO60:GETA$:IFA$=UR$ORA$="N"THEN14060
  510. 14050 NEXT:GOTO14020
  511. 14060 PRINTTAB(A-4)""BT$"  ** OK **[145]":FORI=1TO1000:NEXT
  512. 14070 PRINTCO$(1)"";:RETURN
  513.