home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 08 / grdlagen / while_2.bas < prev    next >
Encoding:
BASIC Source File  |  1989-05-31  |  749 b   |  18 lines
  1. 100  : ' Unterprogramm-Sprünge erfolgen (fast) immer auf 100
  2.        ' Ausgeführt wird dann der durch <Name> = TRUE
  3.        ' aktivierte WHILE..WEND-Block und dort Deaktivierung
  4.        ' sowie RETURN
  5.  
  6. 110  WHILE PROGRAMM : PROGRAMM = FALSE
  7. 111    IF ERSTMALS THEN _
  8.          A.EIN=1 : T.EIN=3 : S.EIN$ = "A" : Z.EIN$ = "C"
  9.        : DL = 256         ' Setzen von  Parametervorschlägen
  10.                          ' dl steuert Bildausgabeverzögerung
  11. 112    LOCATE ,,1
  12. 113    MENUE     = TRUE : GOSUB 100 : LOCATE ,,0
  13. 114    HANOI     = TRUE : GOSUB 100 : LOCATE ,,1
  14. 115    ABSCHLUSS = TRUE : GOSUB 100
  15. 116  WEND  'Programm: Die 3 Aufrufe MENUE, HANOI und
  16.            ' ABSCHLUSS beinhalten die
  17.            ' g e s a m t e Programmsteuerung
  18.