home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / SERPENT1.DSK / INIT.1.txt < prev    next >
Text File  |  2014-09-09  |  2KB  |  159 lines
  1. .S TC(0)=255
  2. .S TL(0)=255
  3. .S TW(0)=0
  4. .S TC(1)=255
  5. .S TL(1)=255
  6. .S TW(1)=0
  7. .S TC(2)=0
  8. .S TL(2)=255
  9. .S TW(2)=3
  10. .S TC(3)=255
  11. .S TL(3)=255
  12. .S TW(3)=5
  13. .S TC(4)=0
  14. .S TL(4)=255
  15. .S TW(4)=0
  16. .S TC(5)=0
  17. .S TL(5)=255
  18. .S TW(5)=1
  19. .S TC(6)=0
  20. .S TL(6)=255
  21. .S TW(6)=1
  22. .S TC(7)=255
  23. .S TL(7)=255
  24. .S TW(7)=1
  25. .S TC(8)=255
  26. .S TL(8)=255
  27. .S TW(8)=0
  28. .S TC(9)=255
  29. .S TL(9)=255
  30. .S TW(9)=1
  31. .S TC(10)=255
  32. .S TL(10)=255
  33. .S TW(10)=1
  34. .S TC(11)=255
  35. .S TL(11)=255
  36. .S TW(11)=1
  37. .S TC(12)=255
  38. .S TL(12)=255
  39. .S TW(12)=10
  40. .S TC(13)=255
  41. .S TL(13)=19
  42. .S TW(13)=3
  43. .S TC(14)=2
  44. .S TL(14)=255
  45. .S TW(14)=5
  46. .S TC(15)=255
  47. .S TL(15)=255
  48. .S TW(15)=1
  49. .S TC(16)=255
  50. .S TL(16)=255
  51. .S TW(16)=1
  52. .S TC(17)=255
  53. .S TL(17)=255
  54. .S TW(17)=1
  55. .S TC(18)=255
  56. .S TL(18)=30
  57. .S TW(18)=3
  58. .S TC(19)=255
  59. .S TL(19)=30
  60. .S TW(19)=1
  61. .S TC(20)=255
  62. .S TL(20)=30
  63. .S TW(20)=3
  64. .S TC(21)=255
  65. .S TL(21)=37
  66. .S TW(21)=0
  67. .S TC(22)=255
  68. .S TL(22)=37
  69. .S TW(22)=0
  70. .S TC(23)=255
  71. .S TL(23)=204
  72. .S TW(23)=0
  73. .S TC(24)=255
  74. .S TL(24)=34
  75. .S TW(24)=0
  76. .S TC(25)=255
  77. .S TL(25)=255
  78. .S TW(25)=0
  79. .S TC(26)=255
  80. .S TL(26)=37
  81. .S TW(26)=0
  82. .S TC(27)=255
  83. .S TL(27)=255
  84. .S TW(27)=1
  85. .S TC(28)=255
  86. .S TL(28)=32
  87. .S TW(28)=6
  88. .S TC(29)=255
  89. .S TL(29)=32
  90. .S TW(29)=3
  91. .S TC(30)=255
  92. .S TL(30)=32
  93. .S TW(30)=4
  94. .S TC(31)=255
  95. .S TL(31)=255
  96. .S TW(31)=5
  97. .S L=0
  98. .S MN(L)=0
  99. .S MS(L)=0
  100. .S ME(L)=0
  101. .S MW(L)=0
  102. .I L<31
  103. .T S L=L++
  104. .T J -6
  105. .S MW(1)=1
  106. .S MW(3)=1
  107. .S MW(9)=1
  108. .S MW(10)=1
  109. .S MW(11)=1
  110. .S MW(12)=1
  111. .S MS(27)=241
  112. .S MS(28)=14
  113. .S MS(29)=32
  114. .S MS(30)=44
  115. .S ME(27)=250
  116. .S ME(28)=17
  117. .S ME(29)=34
  118. .S ME(30)=47
  119. .S MW(27)=0
  120. .S MW(28)=170
  121. .S MW(29)=105
  122. .S MW(30)=53
  123. .S N=0
  124. .S GE(0)=5
  125. .S GE(1)=0
  126. .S GE(2)=1
  127. .S GE(3)=0
  128. .S GE(4)=204
  129. .S GE(5)=20
  130. .S GE(6)=6
  131. .S GE(7)=0
  132. .S GE(8)=5
  133. .S GE(9)=1
  134. .S GE(10)=0
  135. .S GE(11)=0
  136. .S GE(12)=0
  137. .S GE(13)=1
  138. .S SV(0)=0
  139. .S SV(3)=0
  140. .S SV(4)=0
  141. .S SV(7)=0
  142. .S A=0
  143. .S B=0
  144. .S C=0
  145. .S D=0
  146. .S E=0
  147. .S F=0
  148. .S G=0
  149. .S H=0
  150. .S I=0
  151. .S J=1
  152. .S K=0
  153. .S L=0
  154. .S M=1
  155. .S O=0
  156. .3 ROOM 1.0  
  157. .!GOTO
  158. @    
  159.