Ahoy 1987 February/Ahoy_Magazine_87-02_1987_Double_L.d64/Crunchman1

Commodore BASIC | 2022-10-26 | 3KB | 97 lines

0 poke53280,14:poke53281,14:print"[147][142]game is being loaded
1 [153]"* tape users do not switch off *"[166]52)"until game  is on screen
2 poke56334,peek(56334)and254:poke1,peek(1)and251
3 fork=0to2047:poke12288+k,peek(53248+k):next:poke1,peek(1)or4
4 poke56334,peek(56334)or1:poke53265,27:fork=0to575:readz:poke15808+k,z:next
5 fork=0to7:readz:poke12632+k,z:next:fork=0to15:readz:poke12656+k,z:next
6 fork=0to39:readz:poke12808+k,z:next
7 poke53272,(peek(53272)and240)or12:poke53270,peek(53270)or16:fork=0to126
8 readz:poke8192+k,z:next:fork=0to9:readz:poke30975+k,z:next:poke45,0
9 poke46,128:clr:poke5405,0:poke5406,121:poke808,234:rem"5407,123
100 [131]7,224,0,31,248,0,63,252,0
101 [131]127,254,0,127,254,0,255,255,0
102 [131]255,255,0,255,255,0,255,255,0
103 [131]255,255,0,255,255,0,127,254,0
104 [131]127,254,0,63,252,0,31,248,0
105 [131]7,224,0,0,0,0,0,0,0
106 [131]0,0,0,0,0,0,0,0,0,0
107 [131]0,0,0,16,8,0,48,12,0
108 [131]120,30,0,120,30,0,252,63,0
109 [131]252,63,0,254,127,0,254,127,0
110 [131]255,255,0,255,255,0,127,254,0
111 [131]127,254,0,63,252,0,31,248,0
112 [131]7,224,0,0,0,0,0,0,0
113 [131]0,0,0,0,0,0,0,0,0,0
114 [131]7,224,0,31,248,0,63,252,0
115 [131]127,254,0,127,248,0,255,224,0
116 [131]255,128,0,254,0,0,254,0,0
117 [131]255,128,0,255,224,0,127,248,0
118 [131]127,254,0,63,252,0,31,248,0
119 [131]7,224,0,0,0,0,0,0,0
120 [131]0,0,0,0,0,0,0,0,0,0
121 [131]7,224,0,31,248,0,63,252,0
122 [131]127,254,0,127,254,0,255,255,0
123 [131]255,255,0,254,127,0,254,127,0
124 [131]252,63,0,252,63,0,120,30,0
125 [131]120,30,0,48,12,0,16,8,0
126 [131]0,0,0,0,0,0,0,0,0
127 [131]0,0,0,0,0,0,0,0,0,0
128 [131]7,224,0,31,248,0,63,252,0
129 [131]127,254,0,31,254,0,7,255,0
130 [131]1,255,0,0,127,0,0,127,0
131 [131]1,255,0,7,255,0,31,254,0
132 [131]127,254,0,63,252,0,31,248,0
133 [131]7,224,0,0,0,0,0,0,0
134 [131]0,0,0,0,0,0,0,0,0,0
135 [131]2,128,0,10,160,0,42,168,0
136 [131]170,170,0,158,182,0,158,182,0
137 [131]150,150,0,150,150,0,170,170,0
138 [131]170,170,0,170,170,0,170,170,0
139 [131]170,170,0,170,170,0,136,136,0
140 [131]136,136,0,0,0,0,0,0,0
141 [131]0,0,0,0,0,0,0,0,0,0
142 [131]2,128,0,10,160,0,42,168,0
143 [131]170,170,0,150,150,0,158,158,0
144 [131]158,158,0,150,150,0,170,170,0
145 [131]170,170,0,170,170,0,170,170,0
146 [131]170,170,0,170,170,0,136,136,0
147 [131]136,136,0,0,0,0,0,0,0
148 [131]0,0,0,0,0,0,0,0,0,0
149 [131]2,128,0,10,160,0,42,168,0
150 [131]170,170,0,150,150,0,150,150,0
151 [131]158,182,0,158,182,0,170,170,0
152 [131]170,170,0,170,170,0,170,170,0
153 [131]170,170,0,170,170,0,136,136,0
154 [131]136,136,0,0,0,0,0,0,0
155 [131]0,0,0,0,0,0,0,0,0,0
156 [131]2,128,0,10,160,0,42,168,0
157 [131]170,170,0,150,150,0,182,182,0
158 [131]182,182,0,150,150,0,170,170,0
159 [131]170,170,0,170,170,0,170,170,0
160 [131]170,170,0,170,170,0,136,136,0
161 [131]136,136,0,0,0,0,0,0,0
162 [131]0,0,0,0,0,0,0,0,0,0
163 [131]0,126,126,126,126,126,126,0
164 [131]0,0,0,0,0,0,3,3,0,0,0,0,0,24,24,0
165 [131]20,5,15,62,63,63,11,3
166 [131]20,68,240,252,236,252,176,192
167 [131]0,1,4,12,63,63,44,0
168 [131]20,80,16,4,12,63,63,44
169 [131]60,126,248,240,240,248,126,60
170 [131]34,146,46,82,171,36,138,170,164
171 [131]138,186,100,137,42,36,248,0,0
172 [131]136,0,0,0,0,0,113,20,232
173 [131]138,170,136,130,170,202,187,162,138
174 [131]114,162,229,0,0,0,0,0,0
175 [131]0,0,0,0,0,0,0,0,0
176 [131]0,0,0,0,0,0,0,0,0,0
177 [131]56,156,231,69,82,148,65,82,150
178 [131]93,220,148,57,82,231,0,0,0
179 [131]0,0,0,0,0,34,147,156,70
180 [131]170,80,202,170,89,50,187,145,63
181 [131]42,92,194,0,0,0,0,0,0
182 [131]0,0,0,0,0,0,0,0,0
183 [131]0,0,0,0,0,0,0,0,0
184 [131]0,7,121,0,128,147,0,0,0,0
185 [147]"crunchman2",8:[143]"gosubloadavantgarde64