home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b080 / 1.img / 000201.FTX next >
Encoding:
Text File  |  1992-07-11  |  1.7 KB  |  52 lines
  1. title "╟ß╣ñ╔·▓·▓╞╬±╘┬▒¿╣▄└φ╧╡═│"
  2. begin 0
  3.    "1.│⌡╩╝╗»" to 1
  4.    "2.▒¿▒φ┤ª└φ" to 2
  5.    "3.▓Θ╤»" to 3
  6.    "4.╜°╚δ╧╡═│▓╦╡Ñ" formula { set func to }
  7.    "5.═╦│÷" formula {quit}
  8. end
  9.  
  10. begin 1
  11.    " ╟σ ┐╒  ╩² ╛▌ " formula {protect table 2 -u
  12.                              protect table 3 -u
  13.                              protect table 4 -u
  14.                              protect table 5 -u
  15.                              dele for all
  16.                              let ╡Ñ╬╗ = "╟ß╣ñ▓┐" 
  17.                              }
  18.    " ╢┴╔╧▒¿▒φ╩²╛▌ " to 11
  19. end 
  20.  
  21. begin 11
  22.    " ╦∙╙╨▒¿▒φ "  formula {append from "110201.rep"
  23.                           append from "120201.rep"
  24.                           append from "310201.rep"
  25.                           append from "370201.rep"
  26.                           }
  27.    " ▒▒╛⌐╥╗╟ß "  formula {append from "110201"}
  28.    " ╠∞╜≥╥╗╟ß "  formula {append from "120201"}
  29.    " ╔╧║ú╟ß╣ñ "  formula {append from "310201"}
  30.    " ╔╜╢½╥╗╟ß "  formula {append from "370201"}
  31. end
  32.  
  33. begin 2
  34.    " ▒ú╗ñ╘¡╩╝╩²╛▌ " formula { protect table 2
  35.                               protect table 3
  36.                               protect table 4
  37.                               protect table 5}
  38.    " ╔·│╔▓┐╗π╫▄▒φ " formula {let a1:!!##=0 for ╡Ñ╬╗="╟ß╣ñ▓┐"
  39.                              let a1:!!##=total(a1:!!##,╡Ñ╬╗<>"╟ß╣ñ▓┐")  for ╡Ñ╬╗="╟ß╣ñ▓┐"}
  40.    " ╝╞        ╦π " formula { recalc }
  41.    " ╔≤        ║╦ " formula { recheck }
  42. end 
  43.  
  44. begin 3
  45.    " ▓┐╗π╫▄▒¿▒φ "  formula { find for ╡Ñ╬╗="╟ß╣ñ▓┐"}
  46.    " ▒▒╛⌐╥╗╟ß   "  formula { find for ╡Ñ╬╗="▒▒╛⌐╥╗╟ß"}
  47.    " ╠∞╜≥╥╗╟ß   "  formula { find for ╡Ñ╬╗="╠∞╜≥╥╗╟ß"}
  48.    " ╔╧║ú╟ß╣ñ   "  formula { find for ╡Ñ╬╗="╔╧║ú╟ß╣ñ"}
  49.    " ╔╜╢½╥╗╟ß   "  formula { find for ╡Ñ╬╗="╔╜╢½╥╗╟ß"}
  50. end 
  51.  
  52.