home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b080 / 1.img / SAM_CPGL.FTX < prev    next >
Encoding:
Text File  |  1988-02-21  |  1.1 KB  |  34 lines
  1. title "╡τ╫╙▓·╞╖┤ª└φ╧╡═│"
  2. begin 0
  3.    "1.╧╡═│╣▄└φ"  to  1
  4.    "2.▓Θ╤»▓·╞╖└α" to 2
  5.    "3.═╦│÷ " form {quit}
  6. end
  7. begin 1
  8.    "╨▐╕─▒¿▒φ╕±╩╜" formu { modi }
  9.    "┤ª└φ╞Σ╦√▒¿▒φ" form { close }
  10.    "┤≥┐¬▓╬╒╒┤░  " form { refer }
  11.    "open other  " form { open report "txl"}
  12.    "╜°╚δ╧╡═│▓╦╡Ñ" form  {set func to }
  13.    "DOS SHELL   " form {shell}
  14.    "═╦│÷▒¿▒φ┤ª└φ" form {quit }
  15. end 
  16. begin 2
  17.    " ┤┼  ┤°  ╗· " formu { find for ╡Ñ╬╗="┤┼┤°╗·" }
  18.    " ┤≥  ╙í  ╗·" formu { find for ╡Ñ╬╗="┤≥╙í╗·" }
  19.    " ╬ó      ╗·" formu { find for ╡Ñ╬╗="╬ó╗·" }
  20.    " ╡≈╓╞╜Γ╡≈╞≈" form { find for ╡Ñ╬╗="╡≈╓╞╜Γ╡≈╞≈" }
  21.    " ╣ñ╥╡┐╪╓╞  " form { find for ╡Ñ╬╗="╣ñ╥╡┐╪╓╞" }
  22.    " ═°      ┐¿" form { find for ╡Ñ╬╗="═°┐¿" }
  23.    " ╕┤  ╙í  ╗·" form { find for ╡Ñ╬╗="╕┤╙í╗·"}
  24.    " ╓╨╬≈╬─╓╒╢╦" form { find for ╡Ñ╬╗="╓╨╬≈╬─╓╒╢╦"}
  25.    " ╞Σ      ╦√" to 21
  26. end 
  27. begin 21
  28.    " ╖└ ▓í ╢╛ ┐¿ "  form { find for ╡Ñ╬╗="╖└▓í╢╛┐¿"}
  29.    " UPS  ╡τ  ╘┤ "  form { find for ╡Ñ╬╗="UPS╡τ╘┤"}
  30.    " ╗µ   ═╝  ╥╟ " form { find for ╡Ñ╬╗="╗µ═╝╥╟"}
  31.    " ╔¿   ├Φ  ╥╟ " form { find for ╡Ñ╬╗="╔¿├Φ╥╟"}
  32.    " ═╝╨╬/═╝╧±░σ "  form { find for ╡Ñ╬╗="═╝╨╬/═╝╧≤░σ"}
  33. end  
  34.