home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / qbasic_1 / emanat2.bas < prev    next >
BASIC Source File  |  1992-06-30  |  238b  |  12 lines
  1. SCREEN 1
  2. CLS
  3. COLOR 3, 1
  4. LET s = -90
  5.  DO WHILE s <= 90                       ''WHILE...WEND DO LOOP is better
  6.    LINE (160, 100)-STEP(90, s), 2
  7.    LINE (160, 100)-STEP(-90, s), 2
  8.    s = s + 10
  9.  LOOP
  10. DO UNTIL INKEY$ <> "": LOOP
  11.  
  12.