8bitfiles.net/archives/archives.tar/archives/genie-commodore-file-library/C64Arcade/CRUNCHMAN.SFX/crunchman1

Commodore BASIC | 1993-10-11 | 3.1 KB | 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