home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP8_3.PRG < prev    next >
Encoding:
Text File  |  1994-01-18  |  2.4 KB  |  52 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤ 
  2. *⌐ª      Program: EXP8_3.PRG                                           ⌐ª
  3. *⌐ª     Function: ╩╣╙├╥■▓╪╩╜▓╦╡Ñ Invisible Buttons ╡─╖╢└²              ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET TALK OFF
  6. CLEAR ALL
  7. CLEAR
  8.  
  9. @ 2,16 SAY "  ⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤  "
  10. @ 3,16 SAY "  ⌐ª       ╬∩  ╫╩  ╣▄  └φ  ╧╡  ═│       ⌐ª  "
  11. @ 4,16 SAY "  ⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝  "
  12. @ 7, 0 SAY "    ⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤    "
  13. @ 8, 0 SAY "⌐░⌐ñ⌐╪⌐ñ⌐┤ ⌐░⌐ñ⌐╪⌐ñ⌐┤ ⌐░⌐ñ⌐╪⌐ñ⌐┤ ⌐░⌐ñ⌐╪⌐ñ⌐┤ ⌐░⌐ñ⌐╪⌐ñ⌐┤ ⌐░⌐ñ⌐╪⌐ñ⌐┤ ⌐░⌐ñ⌐╪⌐ñ⌐┤"
  14. @ 9, 0 SAY "⌐ª  <1> ⌐ª ⌐ª  <2> ⌐ª ⌐ª  <3> ⌐ª ⌐ª  <4> ⌐ª ⌐ª  <5> ⌐ª ⌐ª  <6> ⌐ª ⌐ª  <7> ⌐ª"
  15. @10, 0 SAY "⌐└⌐ñ⌐ñ⌐ñ⌐╚ ⌐└⌐ñ⌐ñ⌐ñ⌐╚ ⌐└⌐ñ⌐ñ⌐ñ⌐╚ ⌐└⌐ñ⌐ñ⌐ñ⌐╚ ⌐└⌐ñ⌐ñ⌐ñ⌐╚ ⌐└⌐ñ⌐ñ⌐ñ⌐╚ ⌐└⌐ñ⌐ñ⌐ñ⌐╚"
  16. @11, 0 SAY "⌐ª╜¿╗∙┤ª⌐ª ⌐ª╜¿╗∙┤ª⌐ª ⌐ª╜≡╗∙┤ª⌐ª ⌐ª╗·╗∙┤ª⌐ª ⌐ª┐═╗∙┤ª⌐ª ⌐ª┐═╝∞┤ª⌐ª ⌐ª╣⌐╗∙┤ª⌐ª"
  17. @12, 0 SAY "⌐ª╓■▒╛  ⌐ª ⌐ª╓■▒╛  ⌐ª ⌐ª╩⌠▒╛  ⌐ª ⌐ª╡τ▒╛  ⌐ª ⌐ª  ▒╛  ⌐ª ⌐ª  ╦≈  ⌐ª ⌐ª╙ª▒╛  ⌐ª"
  18. @13, 0 SAY "⌐ª▓─╩²  ⌐ª ⌐ª╗·╩²  ⌐ª ⌐ª▓─╩²  ⌐ª ⌐ª╔Φ╩²  ⌐ª ⌐ª  ╩²  ⌐ª ⌐ª  ┤≥  ⌐ª ⌐ª│º╩²  ⌐ª"
  19. @14, 0 SAY "⌐ª┴╧╛▌└φ⌐ª ⌐ª╨╡╛▌└φ⌐ª ⌐ª┴╧╛▌└φ⌐ª ⌐ª▒╕╛▌└φ⌐ª ⌐ª╗º╛▌└φ⌐ª ⌐ª╗º╙í└φ⌐ª ⌐ª╔╠╛▌└φ⌐ª"
  20. @15, 0 SAY "⌐╕⌐ñ⌐╨⌐ñ⌐╝ ⌐╕⌐ñ⌐╨⌐ñ⌐╝ ⌐╕⌐ñ⌐╨⌐ñ⌐╝ ⌐╕⌐ñ⌐╨⌐ñ⌐╝ ⌐╕⌐ñ⌐╨⌐ñ⌐╝ ⌐╕⌐ñ⌐╨⌐ñ⌐╝ ⌐╕⌐ñ⌐╨⌐ñ⌐╝"
  21. @16, 4 SAY     "⌐╕⌐ñ⌐╨⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐╨⌐ñ⌐╝"
  22. @17, 4 SAY     "    ⌐ª  ⌐ª                                                ⌐ª  ⌐ª    "
  23. @18, 4 SAY     "⌐░⌐ñ⌐╪⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐╪⌐ñ⌐ñ⌐┤"
  24. @19, 4 SAY     "⌐ª        [ESC] ═╦│÷                        [1 - 7] ╤í╘±╣ª─▄        ⌐ª"
  25. @20, 4 SAY     "⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝"
  26.  
  27. @  8,0 GET choice FUNCTION "*INH ;;;;;;" ;
  28.        DEFAULT 1 ;
  29.        SIZE 8,10,1 ;
  30.        VALID checking() ;
  31.        MESSAGE "<<╟δ╙├╝ⁿ┼╠╗≥╩≤▒Ω╜°╨╨╤í╘±>>"
  32. READ CYCLE
  33.  
  34. FUNCTION checking
  35. DO CASE
  36.    CASE choice=1
  37.         WAIT "  ╔╨╬┤╜¿┴ó, ╟δ░┤╚╬╥╗╝ⁿ╝╠╨° " WINDOW
  38.    CASE choice=2
  39.         WAIT "  ╔╨╬┤╜¿┴ó, ╟δ░┤╚╬╥╗╝ⁿ╝╠╨° " WINDOW
  40.    CASE choice=3
  41.         WAIT "  ╔╨╬┤╜¿┴ó, ╟δ░┤╚╬╥╗╝ⁿ╝╠╨° " WINDOW
  42.    CASE choice=4
  43.         WAIT "  ╔╨╬┤╜¿┴ó, ╟δ░┤╚╬╥╗╝ⁿ╝╠╨° " WINDOW
  44.    CASE choice=5
  45.         WAIT "  ╔╨╬┤╜¿┴ó, ╟δ░┤╚╬╥╗╝ⁿ╝╠╨° " WINDOW
  46.    CASE choice=6
  47.         WAIT "  ╔╨╬┤╜¿┴ó, ╟δ░┤╚╬╥╗╝ⁿ╝╠╨° " WINDOW
  48.    CASE choice=7
  49.         WAIT "  ╔╨╬┤╜¿┴ó, ╟δ░┤╚╬╥╗╝ⁿ╝╠╨° " WINDOW
  50. ENDCASE
  51. RETURN .T.
  52.