home *** CD-ROM | disk | FTP | other *** search
/ TopWare Tools / TOOLS.iso / tools / top1170 / gepackt.exe / ZUFALL.HRP < prev   
Encoding:
Text File  |  1993-08-01  |  602 b   |  17 lines
  1. Variable          Zufall,3
  2. Variable          Eing,1
  3.  
  4.   Clear       12
  5.   Center      "In diesem Beispiel werden im Abstand von",1
  6.   Center      "einer Sekunde Zufallszahlen zwischen 0 und 999",2
  7.   Center      "generiert und in eine Variable eingelesen.",3 
  8.   Center      "[ Abbruch der THP-Demo durch Druck auf beliebige Taste ]",25
  9.   WriteAt     25,14   "Inhalt der Variable ZUFALL:",15
  10.  
  11.   LABEL             WIEDER
  12.   Random            999,Zufall
  13.   WriteAt           54,14   "   "
  14.   WriteAt           54,14    Zufall,14
  15.   ReadKey           Eing,,1,1
  16.   Compare           Eing,"",,,WIEDER
  17.