andrewb

swipe.bas

Oct 26th, 2020
950
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 0 REM SWIPE
  2. 1 GR:FOR CLR=2 TO 5
  3. 2 SX=0:SY=0:EX=39:COLOR=CLR
  4. 3 FOR A=SX TO EX: PLOT A,SY: GOSUB 30:NEXT
  5. 4 GOSUB 20
  6. 5 FOR B=EX TO SX STEP -1: PLOT B,SY:GOSUB 30:NEXT
  7. 6 GOSUB 20
  8. 7 IF SY=0 THEN GOTO 9
  9. 8 GOTO 3
  10. 9 NEXT CLR
  11. 10 END
  12. 20 SY=SY+1:IF SY>39 THEN SY=0:RETURN
  13. 30 FOR X=1 TO 50:NEXT X:RETURN
RAW Paste Data