andrewb icon

swipe.bas

andrewb | PRO | 10/27/20 04:41:58 AM UTC | 0 ⭐ | 16188 šŸ‘ļø | Never ā° | []
GwBasic |

300 B

|

None

|

0 šŸ‘

/

0 šŸ‘Ž

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

Comments

  •  icon
    01/01/70 12:00:00 AM UTC
    Plain Text |

    0 B

    |

    šŸ‘

    /

    šŸ‘Ž

    
        
  •  icon
    01/01/70 12:00:00 AM UTC
    Plain Text |

    0 B

    |

    šŸ‘

    /

    šŸ‘Ž