swipe.bas

0 REM SWIPE
1 GR:FOR CLR=2 TO 5
2 SX=0:SY=0:EX=39:COLOR=CLR
3 FOR A=SX TO EX: PLOT A,SY: GOSUB 30:NEXT
4 GOSUB 20
5 FOR B=EX TO SX STEP -1: PLOT B,SY:GOSUB 30:NEXT
6 GOSUB 20
7 IF SY=0 THEN GOTO 9
8 GOTO 3
9 NEXT CLR
10 END
20 SY=SY+1:IF SY>39 THEN SY=0:RETURN
30 FOR X=1 TO 50:NEXT X:RETURN