AnonymousNamefag

CLRTAB.BAS

Mar 26th, 2019
52
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 0.25 KB | None | 0 0
  1. SCREEN 13
  2.  
  3. DIM COLORS%(255)
  4.  
  5. FOR I% = 0 TO 255
  6. COLORS%(I%) = I%
  7. NEXT
  8. LET I% = 0
  9.  
  10. FOR Y% = 0 TO 15
  11. FOR X% = 0 TO 15
  12. FOR J% = X% * 20 TO X% * 20 + 20
  13. FOR K% = Y% * 10 TO Y% * 10 + 10
  14. PSET (J%, K%), COLORS%(I%)
  15. NEXT: NEXT
  16. LET I% = I% + 1
  17. NEXT: NEXT
Add Comment
Please, Sign In to add comment