Super Nova

POKE36879,^POKE3S369,2?3
H=0:S=0:Z=&^0
GW»
H=79Si3:R=S -0=816*
P0KE! ^3-3 PPIH T 'NE^T
F0RK=lT0?«fl
P0KEi'+IWT<32*PHIi!D).2
P0K£3*37*,6 P0K-3£3?7A3$
R»I!*T<25#RWKJ>)
IFR='THFN?«0
IFR=2TM£Ni50e
IFR-3THEW748
F0RJ**T0GPt£XTJ
Q=Q-5.125
DKEf1+B,32'P0KEFi*B*i:2.
2PuKEh+'c-44.32-P3KER+B't;5,32
PrUN* : PGTW8
PRIVT PRIMT
CSETflS
IFF>lPHIiP*="«"THenE=B-^POKF363'7 i28:POKE36878,15:F0PJ=!-Gl« teKTJ POKE7910+
Fl+B.32
IFB<21PHDRi= (l"-r--.-(B=E^' P0KE-.363 ~ J28P0KE36878, 15,
F0R>1 OlS^NF! TJ
POKEP+B.P POKEA-3+22, 1 POf.ch -F-^4, ?P0KE«*E-S6,
IF?EEK<^+B+66t22::.>=3theN900
IFFEF.K( fl+?+6e,+22;' >=8THEN1600
IFPEEK«fl*8*S6*2» )=9then"=T-1 00 '91 14
IFK=>660THFi500
HEXTK
F0KF36S79..42
FO F.fl+P J 4'POKEfi+B+22.5:P0KEPi+?+44,^P0^EP+B+65.5
F0KE35S77,229
FGRL=15TC:0^TEP-l
P0KE3687S,L
PORM-ITGIW
HEXTM
NEXTL
P0KE36*77, 160
PQKE36678.a
PQKFS6i."3,s

48/52