home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP13_4.PRG < prev    next >
Encoding:
Text File  |  1994-01-12  |  1.4 KB  |  41 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤ 
  2. *⌐ª      Program: EXP13_4.PRG                                          ⌐ª
  3. *⌐ª     Function: ╓▒╜╙╢┴╚í╝╞╦π╞≈╓╨╩²╓╡╡─╙ª╙├╖╢└².                      ⌐ª
  4. *⌐ª   DFB & File: AA.DBF      AA.FPT                                   ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET TALK   OFF
  7. CLEAR
  8.  
  9. * ╢¿╥σ╥╗╕÷╩²╛▌╩Σ╚δ┤░┐┌ WIN_INPUT
  10. DEFINE WINDOW WIN_INPUT FROM 6,20 TO 16, 60 COLOR SCHEME 7;
  11.        TITLE " ╓▒╜╙╢┴╚í╝╞╦π╞≈╓╨╡─╓╡ " SHADOW
  12.  
  13. * ╢¿╥σ╥╗╕÷╨┼╧ó╧╘╩╛┤░┐┌ WIN_INFOR
  14. DEFINE WINDOW WIN_INFOR  FROM 22,0 TO 24, 79  COLOR SCHEME 5
  15. ACTIVATE WINDOW WIN_INFOR
  16. @0,1 SAY "[Alt+X] - ╩Σ╚δAA1  [Alt+Y] - ╩Σ╚δAA2 "+ ;
  17.          "[Alt+Z] - ╩Σ╚δAA3  [Alt+A] - ╩Σ╚δAA4"
  18.  
  19. ACTIVATE WINDOW WIN_INPUT
  20. USE AA
  21. APPEND BLANK
  22.  
  23. * ╢¿╥σ╦─╕÷░┤╝ⁿ, ╥╘╘┌╩Σ╚δ AA1, AA2, AA3 ╩▒╡≈╙├╫╙│╠╨≥ PASTECLC
  24. * ╫╙│╠╨≥ PASTECLC ┐╔╜½╝╞╦π╞≈╓╨╡─╓╡┤½╕°▓╬▒Σ┴┐
  25. ON KEY LABEL ALT-X DO PASTECLC WITH 'AA1'
  26. ON KEY LABEL ALT-Y DO PASTECLC WITH 'AA2'
  27. ON KEY LABEL ALT-Z DO PASTECLC WITH 'AA3'
  28. ON KEY LABEL ALT-A DO PASTECLC WITH 'AA4'
  29.  
  30. WAIT " ╩╣╙├ [Esc] ╝ⁿ═╦│÷ " WINDOW  NOWAIT
  31. @1,2 SAY '   AA1 (╩²╫╓╨═):' GET AA1
  32. @3,2 SAY '   AA2 (╫╓╖√╨═):' GET AA2
  33. @5,2 SAY '   AA3 (▒╕╫ó╨═):' GET AA3
  34. @7,2 SAY '   AA4 (╚╒╞┌╨═):' GET AA4
  35. READ CYCLE
  36. ON KEY
  37. CLEAR
  38. CLOSE DATABASE
  39. DEACTIVATE WINDOW WIN_INPUT, WIN_INFOR
  40. RETURN
  41.