Guest User

Untitled

a guest
Jun 21st, 2018
81
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.14 KB | None | 0 0
  1. 10 CLS
  2. 20 X=0
  3. 30 C=1
  4. 40 LOCATE 15,X: PRINT “*”: WAIT 15
  5. 50 LOCATE 15,X: PRINT “ “
  6. 60 X=X+C
  7. 70 IF X=15 C=-1
  8. 80 IF X=0 C=1
  9. 90 GOTO 40
  10. 100 END
Add Comment
Please, Sign In to add comment