home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / baslib2.zip / TILE.BAS < prev    next >
BASIC Source File  |  1987-03-26  |  707b  |  40 lines
  1. 'Demo of Tiling option
  2. 'By John Craig, Jeff Bretz
  3. 'Converted to Quickbasic 2.01 by Dennis Dreyer 3/87
  4. 'TILE.BAS
  5. Screen 1:color 0,2,8
  6. locate 3,15:Print "A TILE Demo"
  7. locate 4,10:Print "In Quickbasic 2.01"
  8. For w=1 to 8000:next
  9.  
  10. clear:screen 1:color 0,1:cls
  11.  
  12. window (0,0)-(7,7)
  13.  
  14. line (1,1)-(5,1)
  15. line -(6,2)
  16. line -(6,6)
  17. line -(2,6)
  18. line -(1,5)
  19. line -(1,1)
  20. line (2,6)-(2,2)
  21. line -(4,2)
  22. line -(4,4)
  23. line -(3,4)
  24. line (5,1)-(5,5)
  25. line -(3,5)
  26. line -(3,3)
  27. line -(4,3)
  28. line (2,2)-(3,3)
  29. line (4,4)-(5,5)
  30.  
  31. paint (1.1,1.1),"This"
  32. paint (5.5,5.5),"is a"
  33. paint (2.2,2.1),"Tile"
  34. paint (3.3,4.4),"Test"
  35.  
  36. QUIT:
  37. locate 20,10:Print "Press `0' Key"
  38. if inkey$ ="0" then end else goto quit
  39.  
  40.