home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / MASKSUNA.DSK / TRAVEL.txt < prev    next >
Text File  |  2014-09-09  |  2KB  |  169 lines
  1. .T !CLRT
  2. .T P "You move off in that direction.
  3. .I GE(4):GE(13)
  4. .T J +7
  5. .I GE(4):1
  6. .T L L,TRAVEL2,VIEWS
  7. .T S GE(9)=33
  8. .E L L,TRAVEL1,VIEWS
  9. .E S GE(9)=101
  10. .S GE(13)=GE(4)
  11. .S GE(14)=0
  12. .!INCL
  13. .!TRAV
  14. .!INCB
  15. .I GE(5):1
  16. .T S GE(5)=0
  17. .!TRAV
  18. .!INCB
  19. .S GE(1)=4
  20. .!TRAV
  21. .!INCB
  22. .S GE(1)=2
  23. .!TRAV
  24. .!INCB
  25. .!TRAV
  26. .!INCB
  27. .S GE(1)=1
  28. .!TRAV
  29. .!INCB
  30. .!TRAV
  31. .!INCB
  32. .S GE(1)=2
  33. .!TRAV
  34. .I GE(5)#2
  35. .T J +4
  36. .!INCB
  37. .S GE(5)=1
  38. .!TRAV
  39. .I GE(5)#3
  40. .T J +4
  41. .!INCB
  42. .S GE(1)=3
  43. .S GE(5)=0
  44. .!TRAV
  45. .I GE(5)#4
  46. .T J +11
  47. .S GE(5)=0
  48. .S GE(12)=2
  49. .!CLRT
  50. ._ P
  51. .P "Please remove THE MASK OF THE SUN disk,
  52. .P "side A, turn it over to side B,
  53. .P "and reinsert it.
  54. .!MORE
  55. .P "Press RETURN to continue play.
  56. .!MORE
  57. .!GOTO
  58. !TRAV
  59. .S K=3-P
  60. .C 1,K,0
  61. .B RGHTL
  62. .S V=K
  63. .D 
  64. .!BRLS
  65. .I GE(1):4
  66. .T I GE(2):4
  67. .T S CO(3)=103
  68. .S V=K
  69. .D 
  70. .I GE(0)#1
  71. .T J +6
  72. .B JPW&H
  73. .S V=K
  74. .S GE(14)=3-GE(14)
  75. .S X=GE(14)
  76. .D 
  77. .!BRRD
  78. .S V=K
  79. .D 
  80. .I GE(5)#1
  81. .T J +6
  82. .B VIEWA
  83. .S V=K
  84. .S X=247
  85. .S Y=16
  86. .D 
  87. .!BRMN
  88. .S V=K
  89. .D 
  90. .!BRRS
  91. .I GE(3):1
  92. .T J +8
  93. .I GE(1):2
  94. .T S CO(2)=GE(9)
  95. .T J +10
  96. .I GE(1):4
  97. .T S CO(2)=GE(9)
  98. .E S CO(2)=103
  99. .J +6
  100. .I GE(1):4
  101. .T S CO(6)=GE(9)
  102. .T J +3
  103. .I GE(1)#2
  104. .T S CO(6)=103
  105. .S V=K
  106. .D 
  107. .S P=K
  108. .$ P
  109. !BRMN
  110. .S GE(8)=GE(4)+GE(4)
  111. .J +GE(8)
  112. !XXE0
  113. .B MOUNA
  114. !XXX1
  115. .B MOUNB
  116. !XXX2
  117. !BRRD
  118. .S GE(8)=GE(1)+GE(1)
  119. .J +GE(8)
  120. !XXE1
  121. .B ROADA
  122. !XXX3
  123. .B ROADB
  124. !XXX4
  125. .B ROADC
  126. !XXX5
  127. .B ROADD
  128. !XXX6
  129. !BRLS
  130. .S GE(8)=GE(2)+GE(2)
  131. .J +GE(8)
  132. !XXE2
  133. .B LEFTA
  134. !XXX7
  135. .B LEFTB
  136. !XXX8
  137. .B LEFTC
  138. !XXX9
  139. .B LEFTD
  140. !XXXA
  141. !BRRS
  142. .S GE(8)=GE(3)+GE(3)
  143. .J +GE(8)
  144. !XXE3
  145. .B RGHTA
  146. !XXXB
  147. .B RGHTB
  148. !XXXC
  149. .B RGHTC
  150. !XXXD
  151. .B RGHTD
  152. !XXXE
  153. !INCL
  154. .S GE(2)=GE(2)+1
  155. .I GE(2)>4
  156. .T S GE(2)=1
  157. !INCR
  158. .S GE(3)=GE(3)+1
  159. .I GE(3)>4
  160. .T S GE(3)=1
  161. !INCB
  162. .S GE(2)=GE(2)+1
  163. .I GE(2)>4
  164. .T S GE(2)=1
  165. .S GE(3)=GE(3)+1
  166. .I GE(3)>4
  167. .T S GE(3)=1
  168. @@@@@
  169.