4 GOTO 10›5 SAVE "D:GLODE.SAV":STOP ›10 GOSUB 1000›20 ? CHR$(125):? :? :? "ENTER GLIDING SPEED (1-255) ";:INPUT ST›30 ? :? "ENTER DISTORTION (EVEN NUMBER FROM (0-14) ";:INPUT DIST›35 D0=16*DIST+VOL›50 FOR P0=1 TO 255 STEP ST›60 POKE S0,P0›70 POKE DV0,D0›80 NEXT P0›90 POKE DV0,0›100 GOTO 20›999 END ›1000 S0=53760:DV0=53761:S1=53762:DV1=53763:S2=53764:DV2=53765:S3=53766:DV3=53767:VOL=8›1100 RETURN ›