POKEs for Starquake

[Cyber MSX]

Infinite energy, platforms and shots:

100 CLEAR 200,&H8FFF:BLOAD"STAR1.BIN",R
110 BLOAD"STAR2.BIN":DEFUSR=&HD102:A=USR(0):DEFUSR=&HD27D:A=USR(0)
120 BLOAD"STAR3.BIN":POKE&HD101,1:DEFUSR=&HD102:A=USR(0)
130 BLOAD"STAR4.BIN"
140 X=&HAA73:GOSUB1000
150 X=&HA06F:GOSUB1000
160 X=&HAADC:GOSUB1000
170 X=&HAC95:GOSUB1000
180 DEFUSR=&HCCA1:A=USR(0)
1000 POKE X,0:POKE X+1,0:POKE X+2,0:RETURN