home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP4_4.PRG < prev    next >
Encoding:
Text File  |  1993-10-01  |  1.6 KB  |  39 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª       Program: EXP4_4.PRG                                          ⌐ª
  3. *⌐ª      Function: ┤░┐┌╩⌠╨╘╢¿╥σ╬¬┐╔╙├╩≤▒Ω╥╞╢»íó╕─▒Σ┤≤╨ííó              ⌐ª
  4. *⌐ª                ╫ε┤≤íó╫ε╨í╗», ▓ó╘┌┤░┐┌└∩╧╘╩╛─┌╚▌╡─╖╢└².             ⌐ª
  5. *⌐ª    Creat data: 93.9                                                ⌐ª
  6. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  7. SET TALK OFF
  8. CLEAR ALL
  9. CLEAR
  10. VA=" "
  11.  
  12. * ╢¿╥σ╚²╕÷┤░┐┌: win1íówin2íówin3, ╞Σ╓╨ win2 ╘┌ win1 ╓╨.
  13. DEFINE WINDOW win1 FROM 5,5 TO 20,75  COLOR SCHEME 5;
  14.        FLOAT GROW ZOOM MINIMIZE;
  15.        TITLE " ╡┌╥╗╕÷┤░┐┌ " SHADOW
  16. DEFINE WINDOW win2 FROM 7,20 TO 13,53 DOUBLE FLOAT GROW ZOOM;
  17.        MINIMIZE TITLE" ╡┌╢■╕÷┤░┐┌  " SHADOW;
  18.        IN WINDOW win1
  19. DEFINE WINDOW win3 FROM 1,1 TO  7,23 DOUBLE COLOR SCHEME 7;
  20.        TITLE " ╡┌╚²╕÷┤░┐┌ " FLOAT GROW MINIMIZE ZOOM;
  21.        IN SCREEN SHADOW
  22.  
  23. * ╥└┤╬┤≥┐¬┤░┐┌: win1, win2, win3, ▓ó╘┌┤░┐┌└∩╧╘╩╛─┌╚▌.
  24. ACTIVATE WINDOW win1
  25. @ 2, 3 SAY "┤≤╜¡╢½╚Ñ, └╦╠╘╛í╟º╣┼╖τ┴≈╚╦╬∩. ╣╩└▌╬≈▒▀, ╚╦╡└╩╟╚²╣·╓▄└╔│αΦ╡."
  26. @ 3, 3 SAY "┬╥╩»┤⌐┐╒, ╛¬╠╬┼─░╢, ╛φ╞≡╟º╢╤╤⌐, ╜¡╔╜╚τ╗¡ ╥╗╩▒╢α╔┘╙ó╨█║└╜▄."
  27. @ 4, 3 SAY "╥ú╧δ╣½╜≈╡▒─Ω, ╨í╟╟│⌡╝▐┴╦, ╨█╫╦╙ó╖ó, ╙≡╔╚╣┌╜φ, ╠╕╨ª╝Σ╟┐┬▓╗╥╖╔╤╠├≡."
  28. @ 5, 3 SAY "╣╩╣·╔±╙╬, ╢α╟Θ╙ª╨ª╬╥╘τ╔·╗¬╖ó, ╚╦╔·╚τ├╬, ╥╗Θ╫╗╣⌡¬╜¡╘┬."
  29. ACTIVATE WINDOW win2
  30. @ 1, 8 SAY "┴╜╕÷╗╞≡┐├∙┤Σ┴°,"
  31. @ 2, 8 SAY "╥╗╨╨░╫≡╪╔╧╟α╠∞,"
  32. @ 3, 8 SAY "┤░║¼╬≈┴δ╟º╟∩╤⌐,"
  33. @ 4, 8 SAY "├┼▓░╢½╬Γ═≥└∩┤¼."
  34. ACTIVATE WINDOW win3
  35. @ 1, 4 SAY "┤░╟░├≈╘┬╣Γ,"
  36. @ 2, 4 SAY "╥╔╩╟╡╪╔╧╦¬,"
  37. @ 3, 4 SAY "╛┘═╖═√├≈╘┬,"
  38. @ 4, 4 SAY "╡══╖╦╝╣╩╧τ."
  39.