home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP4_1.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  1018 b   |  29 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP4_1.PRG                                           ⌐ª
  3. *⌐ª     Function: ╜¿┴óíó┤≥┐¬╚²╕÷┤░┐┌╡─╖╢└².                            ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET TALK OFF
  6. CLEAR ALL
  7. CLEAR
  8.  
  9. * ╢¿╥σ╚²╕÷┤░┐┌: win1íówin2íówin3, ╞Σ╓╨ win2 ╘┌ win1 ╓╨.
  10. DEFINE WINDOW win1 FROM 5,5 TO 20,75  TITLE " ╡┌╥╗╕÷┤░┐┌ ";
  11.        SHADOW COLOR SCHEME 5
  12. DEFINE WINDOW win2 FROM 4,20 TO 10,53 DOUBLE COLOR SCHEME 9;
  13.        FILL CHR(157) TITLE" ╡┌╢■╕÷┤░┐┌ " SHADOW;
  14.        IN WINDOW win1
  15. DEFINE WINDOW win3 FROM 2,2 TO  8,24 DOUBLE COLOR SCHEME 7;
  16.        TITLE " ╡┌╚²╕÷┤░┐┌ " IN SCREEN SHADOW
  17.  
  18. * ╥└┤╬┤≥┐¬┤░┐┌: win1, win2, win3.
  19. ACTIVATE WINDOW win1
  20. WAIT " ┤≥┐¬╡┌╥╗╕÷┤░┐┌, ░┤╚╬╥╗╝ⁿ╝╠╨° " WINDOW
  21. ACTIVATE WINDOW win2
  22. WAIT " ┤≥┐¬╡┌╢■╕÷┤░┐┌, ░┤╚╬╥╗╝ⁿ╝╠╨° " WINDOW
  23. ACTIVATE WINDOW win3
  24. WAIT " ┤≥┐¬╡┌╚²╕÷┤░┐┌, ░┤╚╬╥╗╝ⁿ╜ß╩° " WINDOW
  25.  
  26. * ┤╙╞┴─╗╝░─┌┤µ╓╨╟σ│²╚²╕÷┤░┐┌.
  27. CLEAR ALL
  28. RETURN
  29.