home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / SERPENT1.DSK / TRAVEL.txt < prev   
Text File  |  2014-09-09  |  2KB  |  233 lines
  1. .I GE(10)<10
  2. .T J +3
  3. .!TUNL
  4. !ROAD
  5. .I GE(10):0
  6. .T L L,ROAD CL
  7. .E L L,ROAD SN
  8. .S D=GE(9)
  9. .S F=GE(11)
  10. .S P=3-P
  11. .C 1,P,0
  12. .I F:0
  13. .T B RD1CL
  14. .I F:1
  15. .T B RD3CL
  16. .I F:2
  17. .T B RD2CL
  18. .I F:3
  19. .T B RD4CL
  20. .I F:4
  21. .T B RD5CL
  22. .S V=P
  23. .D 
  24. .C 0,P,143
  25. .$ P
  26. .S F=F++
  27. .I F:5
  28. .T S F=0
  29. .S D=D--
  30. .I MN(0):0
  31. .T I MN(2):0
  32. .T !WAIT
  33. .I D>0
  34. .T J -24
  35. ._ P
  36. .S GE(11)=GE(11)+3
  37. .I GE(11)>4
  38. .T S GE(11)=GE(11)-5
  39. .!GOTO
  40. !TUNL
  41. .L L,TUNNEL
  42. .S A=0
  43. .S B=GE(10)
  44. .I B>9
  45. .T S A=A++
  46. .T S B=B-10
  47. .T J -3
  48. .I A>1
  49. .T !LOOP
  50. .I A:2
  51. .T !LEFT
  52. .I A:3
  53. .T !RGHT
  54. .I A:4
  55. .T !DEND
  56. .!LOOP
  57. .I B:0
  58. .T !ROOM
  59. .I B:1
  60. .T !RTLF
  61. .I B:2
  62. .T !FWLF
  63. .I B:3
  64. .T !FWRT
  65. .!GOTO
  66. !ROOM
  67. .S F=70
  68. .!DRWB
  69. .S F=16
  70. .!DRW1
  71. !RTLF
  72. .S F=202
  73. .!DRWB
  74. !FWLF
  75. .S F=67
  76. .!DRWB
  77. .S F=35
  78. .!DRWB
  79. !FWRT
  80. .S F=98
  81. .!DRWB
  82. .S F=97
  83. .!DRWB
  84. !DEND
  85. .S F=107
  86. .!DRWB
  87. .S F=78
  88. .!DRWB
  89. .P "The passage dead ends. You turn back.
  90. .!MORE
  91. !RGHT
  92. .S F=106
  93. .!DRWB
  94. .S F=76
  95. .!DRWB
  96. .P "The passage turns right.
  97. .!MORE
  98. !LEFT
  99. .S F=75
  100. .!DRWB
  101. .S F=14
  102. .!DRWB
  103. .P "The passage turns left.
  104. .!MORE
  105. !LOOP
  106. .S H=30
  107. .S L=GE(9)
  108. .S F=99
  109. .!DRWB
  110. .S L=L--
  111. .I L>0
  112. .T I MN(0):0
  113. .T J -4
  114. !DRW1
  115. .S D=1
  116. .!DRAW
  117. !DRWB
  118. .!DRW1
  119. .S D=0
  120. .W 
  121. .W 
  122. .!DRAW
  123. !DRAW
  124. .S P=3-P
  125. .C 1,P,0
  126. .B RGHTL
  127. .S V=P
  128. .D 
  129. .B TN2-1
  130. .S V=P
  131. .I D
  132. .T D 
  133. .I D
  134. .T B TN2-2
  135. .E B TN1-1
  136. .S V=P
  137. .I F&64
  138. .T D 
  139. .I D
  140. .T B TN2-3
  141. .E B TN1-2
  142. .S V=P
  143. .I F&96
  144. .T D 
  145. .I D
  146. .T B TN2-4
  147. .E B TN1-3
  148. .S V=P
  149. .I F&32
  150. .T D 
  151. .I D
  152. .T B TN2-5
  153. .E B TN1-4
  154. .S V=P
  155. .I F&1
  156. .T D 
  157. .I D
  158. .T B TN2-6
  159. .E B TN1-5
  160. .S V=P
  161. .I F&3
  162. .T D 
  163. .I D
  164. .T B TN2-7
  165. .E B TN1-6
  166. .S V=P
  167. .I F&2
  168. .T D 
  169. .B TN2-9
  170. .E S CO(0)=127
  171. .S V=P
  172. .I D
  173. .T D 
  174. .I D
  175. .T B TN2-8
  176. .E B TN1-7
  177. .S V=P
  178. .I F&3
  179. .T D 
  180. .B TN1-A
  181. .I F&4
  182. .E J +4
  183. .I D
  184. .T S Y=10
  185. .E S Y=25
  186. .S V=P
  187. .I F&128
  188. .T I D:0
  189. .T S Y=10
  190. .I F&16
  191. .E D 
  192. .B TN1-B
  193. .I F&4
  194. .E J +7
  195. .I D
  196. .T S Y=249
  197. .E S Y=231
  198. .I F&8
  199. .T S CO(0)=130
  200. .J +6
  201. .I F&8
  202. .T I D:0
  203. .T S CO(0)=194
  204. .T I F&128
  205. .T S Y=238
  206. .S V=P
  207. .I F&16
  208. .E D 
  209. .B TN1-C
  210. .I F&16
  211. .T S CO(0)=132
  212. .S V=P
  213. .D 
  214. .I H:26
  215. .T J +11
  216. .B OBJ-1
  217. .I H:27
  218. .T S V=P
  219. .E S V=P+8
  220. .S X=MS(H)
  221. .S Y=ME(H)
  222. .S S=MW(H)
  223. .S T=S
  224. .D 
  225. .S H=H--
  226. .!CLRT
  227. .I MN(0):0
  228. .T W 
  229. .T W 
  230. .$ P
  231. @    
  232.  
  233.