home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP4_6.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  1.1 KB  |  35 lines

  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP4_6.PRG                                           ⌐ª
  3. *⌐ª     Function: ┤░┐┌┤µ╚δ╬─╝■║═╙╔─┌┤µ╬─╝■╗╓╕┤╡╜─┌┤µ╡─╖╢└².            ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET TALK OFF
  6. SET SAFETY OFF
  7. SET CURSOR OFF
  8. CLEAR ALL
  9. CLEAR
  10.  
  11. DEFINE WINDOW win2 FROM 1,1 TO 23,78 DOUBLE ;
  12.        TITLE " ┤░┐┌╢■ " CLOSE SHADOW NOGROW NOFLOAT NOZOOM ;
  13.        COLOR SCHEME 7
  14. DEFINE WINDOW win1 FROM 8,5 TO 16,75  FOOTER " 1993-9-10 " ;
  15.        TITLE " ┤░┐┌╥╗ " CLOSE SHADOW NOGROW NOFLOAT NOZOOM ;
  16.        FILL CHR(156) COLOR SCHEME 5
  17.  
  18. * ┤░┐┌ win1,win2 ┤µ╚δ╬─╝■temps╓╨.
  19. SAVE WINDOW win1,win2 TO temps
  20. ACTIVATE WINDOW ALL
  21. WAIT " ░┤╚╬╥╗╝ⁿ╜½┤░┐┌┤╙─┌┤µ╓╨╟σ│² " WINDOW
  22. CLEAR WINDOWS
  23. WAIT " ░┤╚╬╥╗╝ⁿ╜½┤░┐┌┤╙─┌┤µ╬─╝■╓╨╗╓╕┤╡╜─┌┤µ╓╨ " WINDOW
  24.  
  25. * ┤░┐┌ win1 ╙╔─┌┤µ╬─╝■╗╓╕┤╡╜─┌┤µ╓╨.
  26. RESTORE WINDOW win1,win2 FROM temps
  27. WAIT " ░┤╚╬╥╗╝ⁿ┤≥┐¬┤░┐┌ " WINDOW
  28. ACTIVATE WINDOW win2
  29. ACTIVATE WINDOW win1
  30.  
  31. WAIT " ░┤╚╬╥╗╝ⁿ╝╠╨° " WINDOW
  32. DEACTIVATE WINDOW win1,win2
  33. RELEASE WINDOWS   win1,win2
  34. SET CURSOR ON
  35.