C64 Software  <  SCA: The C64 Software Collection / S2 DEMO 2

1 REM POKE53265,11:SAVE"",8:POKE53265,27
2 SP=53248:GOTO 1000
4 S=PEEK(SO) AND 15:ON S GOSUB 6,6,6,6,20,30,40,6,50,60,70,4,80,90,6:GOTO 4
6 RETURN
20 GOSUB 40:GOSUB 80:RETURN
30 GOSUB 40:GOSUB 90:RETURN
40 X%=X%+WUN:IF X%>255 THEN X%=0:POKE SP+16,1
43 IF X%>65 AND PEEK(SP+16)=1 THEN POKE SP+16,0:X%=0
45 POKE HP,X%:RETURN
50 GOSUB 80:GOSUB 70:RETURN
60 GOSUB 90:GOSUB 70:RETURN
70 X%=X%−WUN:IF X%<1 AND PEEK(SP+16)=1 THEN X%=255:POKE SP+16,0
73 IF X%<1 AND PEEK(SP+16)=0 THEN X%=65:POKE SP+16,1
75 POKE HP,X%:RETURN
80 Y%=Y%+WUN+HI*(Y%>HI):POKE VP,Y%:RETURN
90 Y%=Y%−WUN−HI*(Y%