home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 April / IMM0495.ISO / share / office / gs_mail / gsbox / SCRIPT < prev    next >
Text File  |  1995-01-10  |  2KB  |  142 lines
  1. WAIT
  2.  
  3. :hauptmenue
  4.  
  5.   CLEAR SCREEN
  6.   CLEAR KEYS
  7.  
  8.   KEY A,AREAMENUE,1
  9.   KEY U,USERMENUE,1
  10.   KEY S,STATISTIK,1
  11.   KEY F,FILEMENUE,1
  12.   KEY N,34,1
  13.   KEY M,22,1
  14.   KEY D,38,1
  15.   KEY E,29,1
  16.   KEY V,11,1
  17.   KEY O,2,1
  18.   KEY K,32,1
  19.   KEY I,37,1
  20.   KEY X,13,1
  21.   KEY +,23,1
  22.   KEY L,26,1
  23.   KEY W,5,1
  24.   KEY Z,8,1
  25.   DATEIAUSGABE menues\hauptmen.$dateiext
  26.  
  27.   GOSUB PROMPT
  28.  
  29.   AKTION
  30.  
  31.   GOTO HAUPTMENUE
  32.  
  33. :usermenue
  34.  
  35.   CLEAR KEYS
  36.   CLEAR SCREEN
  37.  
  38.   KEY A,1,1
  39.   KEY E,3,1
  40.   KEY I,21,1
  41.   KEY L,4,1
  42.   KEY P,12,1
  43.   KEY S,5,1
  44.   KEY U,7,1
  45.   KEY M,27,1
  46.   KEY Q,HAUPTMENUE,1
  47.   KEY X,13,1
  48.  
  49.   DATEIAUSGABE menues\usermen.$dateiext
  50.  
  51.   GOSUB PROMPT
  52.  
  53.   AKTION
  54.  
  55.   WAIT
  56.  
  57. GOTO USERMENUE
  58.  
  59. :statistik
  60.  
  61.   CLEAR KEYS
  62.   CLEAR SCREEN
  63.  
  64.   KEY S,6,1
  65.   KEY T,9,1
  66.   KEY N,10,1
  67.   KEY X,13,1
  68.   KEY Q,HAUPTMENUE,1
  69.   KEY E,29,1
  70.   KEY D,7,1
  71.   KEY L,8,1
  72.   KEY V,11,1
  73.   KEY O,2,1
  74.   DATEIAUSGABE menues\statmen.$dateiext
  75.  
  76.   GOSUB PROMPT
  77.  
  78.  
  79.   AKTION
  80.  
  81.   WAIT
  82.  
  83. GOTO STATISTIK
  84.  
  85. :FILEMENUE
  86.  
  87.   TS_Var1 = brett
  88.  
  89.   CLEAR KEYS
  90.   CLEAR SCREEN
  91.  
  92.   KEY F,14,1
  93.   KEY I,15,1
  94.   KEY D,16,1
  95.   KEY U,17,1
  96.   KEY X,13,1
  97.   KEY V,24,1
  98.   KEY !,39,1
  99.   KEY L,26,1
  100.   KEY O,2,1
  101.   KEY Q,HAUPTMENUE,1
  102.  
  103.   DATEIAUSGABE menues\filemen.$dateiext
  104.   GOSUB PROMPT
  105.  
  106.   AKTION
  107.  
  108.   WAIT
  109.  
  110. GOTO FILEMENUE
  111.  
  112. :AREAMENUE
  113.  
  114.   CLEAR KEYS
  115.   CLEAR SCREEN
  116.  
  117.   KEY A,18,1
  118.   KEY I,15,1
  119.   KEY L,19,1
  120.   KEY S,20,1
  121.   KEY X,13,1
  122.   KEY M,5,1
  123.   KEY U,8,1
  124.   KEY B,22,1
  125.   KEY P,21,1
  126.   KEY Q,HAUPTMENUE,1
  127.  
  128.   DATEIAUSGABE menues\areamen.$dateiext
  129.  
  130.   PRINT ^crlf
  131.   GOSUB PROMPT
  132.  
  133.   AKTION
  134.  
  135.   WAIT
  136.  
  137. GOTO AREAMENUE
  138.  
  139. :PROMPT
  140.   PRINT ^crlf^weissIhre Eingabe:^normal
  141. RETURN
  142.