• IchigoJam

10 'ZAKU DEMO
20 CLS:?"ZAKU DEMO"
30 S=500:GOSUB@S
40 @BT:IFBTN(0)=1GOTO@BT
50 GOSUB@OFF:GOSUB@MT:GOSUB@C
60 FOR J=0 TO 4:S=100:GOSUB@S:WAIT30:GOSUB@MT:WAIT30:NEXT
70 WAIT 300
80 GOSUB@U:GOSUB@MT
90 FOR J=0 TO 4:GOSUB@ON:WAIT10:GOSUB@OFF:WAIT60:NEXT
100 GOSUB@ON
110 GOSUB@ML:WAIT30
120 GOSUB@MR:WAIT30
130 GOSUB@C:GOSUB@L
140 GOSUB@C:GOSUB@R
150 GOSUB@C:WAIT60*10
160 GOSUB@OFF:GOSUB@MT
170 END
180 @C:PWM 2,145:WAIT 120:RETURN
190 @R:PWM 2,70:WAIT 120:RETURN
200 @L:PWM 2,220:WAIT 120:RETURN
210 @ML:GOSUB@R:FOR I=70 TO 220 STEP 2:PWM 2,I:WAIT 2:NEXT:RETURN
220 @MR:GOSUB@L:FOR I=220 TO 70 STEP -2:PWM 2,I:WAIT 2:NEXT:RETURN
230 @ON:OUT 3,1:RETURN
240 @OFF:OUT 3,0:RETURN
250 @U:FOR I=0 TO 2000 STEP15:PWM3,I:S=2000-(I/2):GOSUB@S:WAIT2:NEXT:RETURN   
260 @D:FOR I=2000 TO 0 STEP -30:PWM3,I:WAIT1:NEXT:PWM3,0:RETURN
270 @S:PWM 5,S/2,S:RETURN
280 @MT:PWM 5,0:RETURN

Pagetop