home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP8_8.PRG < prev    next >
Encoding:
Text File  |  1994-01-11  |  1.1 KB  |  39 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤ 
  2. *⌐ª      Program: EXP8_8.PRG                                           ⌐ª
  3. *⌐ª     Function: ╟╢╠╫╡─ READ ╡─╩╣╙├╖╢└².                              ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET TALK OFF
  6. CLEAR
  7.  
  8. PUSH KEY CLEAR
  9. * ╢¿╥σ F3 ╬¬╡≈╙├╧╘╩╛ READ ╟╢╠╫▓π╩²╫╙│╠╨≥╡─╚╚╝ⁿ
  10. ON KEY LABEL F3 DO showlevel IN EXP8_8.PRG
  11. @ 2,2 SAY "Read  ▓π╩²: " + STR(RDLEVEL())
  12. @ 4,2 GET level1 VALID(proc1()) DEFAULT 1
  13. READ SHOW showlevel()           && READ ▓π╩² 1
  14. POP KEY
  15.  
  16. PROCEDURE proc1
  17. @ 6,2 GET level2 VALID(proc2()) DEFAULT 2
  18. READ SHOW showlevel()           && READ ▓π╩² 2
  19. RETURN ""
  20.  
  21. PROCEDURE proc2
  22. @ 8,2 GET level3 VALID(proc3()) DEFAULT 3
  23. READ SHOW showlevel()           && READ ▓π╩² 3
  24. RETURN ""
  25.  
  26. PROCEDURE proc3
  27. @ 10,2 GET level4 VALID(proc4()) DEFAULT 4
  28. READ SHOW showlevel()           && READ ▓π╩² 4
  29. RETURN ""
  30.  
  31. PROCEDURE proc4
  32. @ 12,2 GET level5 DEFAULT 5
  33. READ SHOW showlevel()           && READ ▓π╩² 5
  34. RETURN ""
  35.  
  36. FUNCTION showlevel
  37. @ 2,2 SAY "Read  ▓π╩²: " + STR(RDLEVEL())
  38. RETURN .T.
  39.