home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 36.dms / 36.adf / gstest1.bas < prev    next >
BASIC Source File  |  1988-05-22  |  451b  |  21 lines
  1. 5     screen 0,5
  2. 6     n% = 60
  3. 10    for i% = 0 to n%\4
  4. 20    pena (i% mod 28)+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% = 31 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.