Advertisement
Abaduaber

Nuzgar_1

Feb 21st, 2014
564
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 0.21 KB | None | 0 0
  1. DIM P AS INTEGER, T AS SINGLE
  2. SCREEN 13
  3. DO
  4.     LINE (P, P)-(P + 30, P + 30), 4, BF
  5.     T = TIMER + .02
  6.     DO WHILE TIMER < T: LOOP
  7.     LINE (P, P)-(P + 30, P + 30), 0, BF
  8.     P = P + 1
  9. LOOP WHILE P <= 160
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement