home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 36.dms / 36.adf / draw.bas < prev    next >
BASIC Source File  |  1988-05-22  |  720b  |  29 lines
  1. 10    n% = 20
  2. 20    for x% = 0 to 3
  3. 30    for y% = 0 to 3
  4. 40    pena x%*4 + y%
  5. 50    a% = x%*n%
  6. 60    b% = y%*n%
  7. 70    peno 1
  8. 80    box(a%,b%;a%+n%,b%+n%),1
  9. 90    next y%,x%
  10. 100   dim a%(1000)
  11. 110   i%=narrate("PLEY4S DHAX MAW3S AET DHAX TAA4P LEH4FT KOH4RNER",n%())
  12. 120   ask mouse x%,y%,b%
  13. 130   if b%=0% then 120
  14. 140   i%=narrate("PLEY4S DHAX MAW3S AET DHAX BAA4TAHM RAY3T KOH4RNER",n%())
  15. 150   ask mouse x2%,y2%,b%
  16. 160   if b%=0% then 150
  17. 170   i%=narrate("NAW STAA4RT PEY3NTIHNX",n%())
  18. 180   sshape(x%,y%;x2%,y2%),a%()
  19. 190   scnclr
  20. 200   drawmode 2
  21. 210   box(x%,y%;x2%,y2%)
  22. 220   drawmode 0
  23. 230   for i=1 to 1000
  24. 240   next i
  25. 250   ask mouse x%,y%,b%
  26. 260   if b%=0% then 250
  27. 270   gshape(x%,y%),a%()
  28. 280   goto 250
  29.