home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / qbasic_1 / olympsym.bas < prev    next >
BASIC Source File  |  1992-06-30  |  277b  |  18 lines
  1. SCREEN 1
  2. CLS : KEY OFF
  3. COLOR 1, 0
  4.   CIRCLE (100, 80), 25, 2
  5.   CIRCLE (160, 80), 25, 2
  6.   CIRCLE (220, 80), 25, 2
  7.   CIRCLE (130, 100), 25, 2
  8.   CIRCLE (190, 100), 25, 2
  9. LOCATE 20, 14
  10. PRINT "olympic Symbol"
  11. DO WHILE INKEY$ = "": LOOP
  12. SCREEN 0: WIDTH 80
  13. END
  14. RUN
  15.  
  16.  
  17.  
  18.