home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / BIBLIOTE / PIE.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-08-28  |  378 b   |  18 lines
  1.  
  2.     nomainwin
  3.  
  4.     open "pie" for graphics as #1
  5.  
  6.         print #1, "home ; down"
  7.         print #1, "backcolor red"
  8.         print #1, "piefilled 100 100 315 -315"
  9.         print #1, "north ; turn 67 ; up ; go 20 ; down"
  10.         print #1, "backcolor yellow"
  11.         print #1, "pieFilled 100 100 315 45"
  12.         print #1, "flush"
  13.         input r$
  14.  
  15.     close #1
  16.  
  17.  
  18.