home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 08 / grdlagen / while_4.bas < prev    next >
Encoding:
BASIC Source File  |  1989-05-31  |  514 b   |  13 lines
  1. 3999 ' ----------------------------------------------------
  2.      ' Ausgabe 4  kombiniert die Ausgaben 1 und 3 :
  3.      '      ÜBERSICHT durch  WHILE Basic
  4.      ' ----------------------------------------------------
  5.      '
  6. 4000 WHILE (BESCHRIFTUNG OR AUSGABE) AND A.NR = 4
  7. 4001   A.NR = 3 : GOSUB 100
  8. 4002   IF NOT LFD. THEN BESCHRIFTUNG = TRUE : LFD. = TRUE
  9. :                  ELSE AUSGABE = TRUE
  10. 4003   A.NR = 1 : GOSUB 100 :  A.NR = 4
  11. 4004   RETURN
  12. 4009 WEND   'Beschriftung o. Ausgabe    für  A.Nr.4
  13.