home *** CD-ROM | disk | FTP | other *** search
/ TopWare Tools / TOOLS.iso / tools / top1170 / gepackt.exe / ZOOMBOX.HRP < prev    next >
Encoding:
Text File  |  1993-08-01  |  828 b   |  30 lines
  1. Variable        Ox,2
  2. Variable        Oy,2
  3. Variable        Ux,2
  4. Variable        Uy,2
  5. Variable        Eing,1
  6. Variable        Spez,1
  7.  
  8.     LABEL           START
  9.     Clear           1,7,"┼",1
  10.     SetVar          Ox,39
  11.     SetVar          Oy,7
  12.     SetVar          Ux,42
  13.     SetVar          Uy,19
  14.     Wait            6
  15.  
  16.     LABEL           BREITER
  17.     Box1            Ox,Oy,Ux,Uy,78
  18.     Subtract        Ox,1
  19.     Add             Ux,1
  20.     Compare         Ox,6,BREITER
  21.     WriteAt         20,12   "F1 = WOW! Das will ich NOCH EINMAL sehen!",79
  22.     WriteAt         20,14   "F2 =  (Gähn!) Na schön, das reicht jetzt!",79
  23.     FlushKey
  24.  
  25.     LABEL           FALSCH
  26.     ReadKey         Eing,Spez,,1
  27.     Compare         Spez,0,,,FALSCH
  28.     Compare         Eing,";",,,START
  29.     Compare         Eing,"<",FALSCH,FALSCH
  30.