home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 35.dms / 35.adf / gstest.bas < prev    next >
Encoding:
BASIC Source File  |  1988-05-22  |  451 b   |  21 lines
  1. 5     screen 0,4
  2. 6     n% = 60
  3. 10    for i% = 0 to n%\4
  4. 20    pena (i% mod 12)+3
  5. 25    j% = i%*2
  6. 30    box(j%,j%;n%-j%,n%-j%),1
  7. 40    next
  8. 50    dim a%(1000)
  9. 60    sshape(0,0;n%,n%),a%()
  10. 70    for i% = 0 to 4
  11. 80    for j% = 0 to 2
  12. 90    gshape(i%*n%,j%*n%),a%()
  13. 100   next : next
  14. 190   ask rgb 3, r%,g%,b%
  15. 200   for i% = 15 to 3 step -1
  16. 210   ask rgb i%, r1%,g1%,b1%
  17. 220   rgb i% ,r%,g%,b%
  18. 230   r%=r1% : b% = b1% : g% = g1%
  19. 240   next
  20. 250   goto 190
  21.