Guest User

Untitled

a guest
Apr 26th, 2018
127
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 0.28 KB | None | 0 0
  1. DIM tablica(8)
  2.  
  3. tablica(1) = 1
  4. tablica(2) = 3
  5. tablica(3) = 7
  6. tablica(4) = 15
  7. tablica(5) = 31
  8. tablica(6) = 63
  9. tablica(7) = 127
  10. tablica(8) = 255
  11.  
  12. FOR i = 1 TO 8
  13.    OUT 888, tablica[ i ]
  14.    SLEEP 1
  15. NEXT i
  16.  
  17. FOR i = 8 TO 1, STEP -1
  18.   OUT 888, tablica[ i ]
  19.   SLEEP 1
  20. NEXT i
Add Comment
Please, Sign In to add comment