Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement