home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 08 / grdlagen / while_6.bas < prev   
Encoding:
BASIC Source File  |  1989-05-31  |  233 b   |  11 lines
  1. WHILE BLOCK% : BLOCK% = FALSE
  2.   WHILE VORUPX% : ...
  3.     VORUPX% = FALSE : NACHUPX% = FALSE : UP%X = TRUE
  4.    { Übertragung des Namens des Unterprogramms - folgt noch}
  5.       ...
  6.   WEND
  7.   WHILE NACHUPX%
  8.       ...
  9.   WEND
  10. WEND
  11.