home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / xy.img / S4 / DY2.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  18.4 KB  |  478 lines
  1. DO XZC
  2. CLEAR
  3. STORE .T. TO DYT
  4. DO WHILE DYT
  5. STORE " " TO XZ
  6. STORE "  " TO X,BAN
  7. STORE SPACE(8) TO MMI
  8. STORE SPACE(7) TO MBIN
  9. @ 1,20 SAY "╟δ╕°│÷╚τ╧┬╨┼╧ó"
  10. @ 2,20 SAY "─Ω╝╢:" GET X
  11. @ 3,20 SAY "╤º╓╞:(╫¿┐╞ Z, ╚²─Ω▒╛┐╞ B, ╬σ─Ω▒╛┐╞ W)" GET XZ
  12. @ 4,20 SAY "░α╝╢├√:" GET BAN
  13. @ 5,20 SAY "╤º║┼:" GET MBIN 
  14. @ 5,36 SAY "╨╒├√:" GET MMI
  15. READ
  16. STORE " " TO YES
  17. @ 6,20 SAY "╨Φ╥¬╨▐╕─┬≡(Y/N)?" GET YES
  18. READ
  19. IF UPPER(YES)="Y"
  20. CLEAR
  21. LOOP
  22. ENDIF
  23. XH="K"+Z+X+XZ+BAN+".DBF"
  24. IF MBIN="       "
  25.    SELECT B
  26.    USE B:AC6&Z INDEX B:IMAC6&Z
  27.    FIND &MMI
  28.    MBIN=BIN
  29. ELSE
  30.    SELECT B
  31.    USE B:AC608 INDEX B:IBAC608
  32.    FIND &MBIN
  33.    MMI=MING
  34. ENDIF    
  35. SELECT C
  36. USE B:AC6B&Z
  37. SELECT A
  38. USE B:&XH
  39. IF .NOT. FILE("B:&XH")
  40. WAIT "B┼╠├╗╙╨&XH╬─╝■,░┤╚╬║╬╝ⁿ═╦│÷"
  41. EXIT
  42. ENDIF
  43. STORE 1 TO I1,I2,I3,I4,I5,I6,I7,I8,I9,I10
  44. STORE SPACE(20) TO MQ11,MQ12,MQ21,MQ22,MQ31,MQ32,MQ41,MQ42,MQ51,MQ52,MQ53,MQ61,MQ62,MQ63,MQ64,MQ71,MQ72,MQ73,MQ81,MQ82,MQ83,MQ91,MQ92,MQ93,MQA1,MQA2,MQA3,MQA4
  45. STORE " " TO MZ1,MZ2,MZ3,MZ4,MZ5,MZ6,MZ7,MZ8,MZ9,MZA,MB11,MB12,MB13,MB14,MB15,MB16,MB17,MB18,MB19,MB1A
  46. STORE " " TO MC1,MC2,MC3,MC4,MC5,MC6,MC7,MC8,MC9,MCA,MB21,MB22,MB23,MB24,MB25,MB26,MB27,MB28,MB29,MB2A 
  47. STORE " " TO MS1,MS2,MS3,MS4,MS5,MS6,MS7,MS8,MS9,MSA
  48. DO WHILE .NOT.EOF()
  49. DO CASE
  50.    CASE XQ=1
  51.         MQ1="MQ1"+STR(I1,1)
  52.         &MQ1=KM
  53.          MKH=KH
  54.        SELECT B
  55.          MZ1=MZ1+"ªª"+C&MKHè         MC1=MC1+"ªª"+A&MKH
  56.          MS1=MS1+"ªª"+B&MKH
  57.          IF C&MKH <" 60 " .OR. C&MKH="ªí╕±"
  58.          SELECT C
  59.          LOCATE FOR BIN=MBIN .AND.KH=MKH
  60.                 MB11=MB11+"ªª"+BK1
  61.                 IF BK1<"60" .OR. BK1="ªí╕±"
  62.                    MB21=MB21+"ªª"+BK2
  63.                 ELSE
  64.                    MB21=MB21+"ªª"+"    "
  65.                  ENDIF
  66.          ELSE
  67.              MB11=MB11+"ªª"+"    "
  68.          ENDIF    
  69.          I1=I1+1
  70.     CASE XQ=2   
  71.          MQ2="MQ2"+STR(I2,1)
  72.          &MQ2=KM
  73.          MKH=KH
  74.        SELECT B
  75.          MZ2=MZ2+"ªª"+C&MKH
  76.          MC2=MC2+"ªª"+A&MKH
  77.          MS2=MS2+"ªª"+B&MKH
  78.          IF C&MKH< " 60 " .OR. C&MKH ="ªí╕±"
  79.             SELECT C
  80.             LOCATE FOR BIN=MBIN .AND. KH=MKH
  81.                    MB12=MB12+"ªª"+BK1
  82.                    IF BK1<"60" .OR. BK1="ªí╕±"
  83.                       MB22=MB22+"ªª"+BK2
  84.                    ELSE
  85.                       MB22=MB22+"ªª"+"    "
  86.                    ENDIF
  87.        ELSE
  88.            MB12=MB12+"ªª"+"    "
  89.        ENDIF     
  90.        I2=I2+1
  91.     CASE XQ=3
  92.          MQ3="MQ3"+STR(I3,1)
  93.          &MQ3=KM
  94.          MKH=KH
  95.        SELECT B
  96.           MZ3=MZ3+"ªª"+C&MKH
  97.           MC3=MC3+"ªª"+A&MKH
  98.           MS3=MS3+"ªª"+B&MKH
  99.           IF C&MKH <" 60 " .OR. C&MKH="ªí╕±"
  100.              SELECT C
  101.              LOCATE FOR BIN=MBIN .AND. KH=MKH
  102.              MB13=MB13+"ªª"+BK1
  103.              IF BK1<"60" .OR. BK1 ="ªí╕±"
  104.                 MB23=MB23+"ªª"+BK2
  105.              ELSE
  106.                 MB23=MB23+"ªª"+"    "
  107.              ENDIF
  108.     ELSE
  109.          MB13=MB13+"ªª"+"    "è    ENDIF 
  110.     I3=I3+1
  111.     CASE XQ=4
  112.          MQ4="MQ4"+STR(I4,1)
  113.          &MQ4=KM
  114.          MKH=KH
  115.        SELECT B
  116.           MZ4=MZ4+"ªª"+C&MKH
  117.           MC4=MC4+"ªª"+A&MKH
  118.           MS4=MS4+"ªª"+B&MKH
  119.        IF C&MKH<" 60 " .OR. C&MKH ="ªí╕±"
  120.           SELECT C
  121.           LOCATE FOR BIN=MBIN .AND. KH=MKH
  122.                  MB14=MB14+"ªª"+BK1
  123.                  IF BK1<"60" .OR.BK1="ªí╕±"
  124.                  MB24=MB24+"ªª"+BK2 
  125.                  ELSE
  126.                  MB24=MB24+"ªª"+"    "
  127.                  ENDIF
  128.        ELSE
  129.        MB14=MB14+"ªª"+"    "
  130.        ENDIF  
  131.        I4=I4+1
  132.     CASE XQ=5
  133.          MQ5="MQ5"+STR(I5,1)
  134.          &MQ5=KM
  135.          MKH=KH
  136.        SELECT B
  137.          MZ5=MZ5+"ªª"+C&MKH
  138.          MC5=MC5+"ªª"+A&MKH
  139.          MS5=MS5+"ªª"+B&MKH
  140.          IF C&MKH< " 60 " .OR. C&MKH="ªí╕±"
  141.          SELECT C
  142.          LOCATE FOR BIN=MBIN .AND.KH=MKH
  143.          MB15=MB15+"ªª"+BK1
  144.               IF BK1< "60" .OR. BK1="ªí╕±"
  145.                  MB25=MB25+"ªª"+BK2
  146.               ELSE
  147.                  MB25=MB25+"ªª"+"    "
  148.               ENDIF
  149.        ELSE
  150.            MB15=MB15+"ªª"+"    "
  151.        ENDIF 
  152.        I5=I5+1
  153.     CASE XQ=6
  154.          MQ6="MQ6"+STR(I6,1)
  155.          &MQ6=KM
  156.          MKH=KH
  157.        SELECT B
  158.          MZ6=MZ6+"ªª"+C&MKH
  159.          MC6=MC6+"ªª"+A&MKH
  160.          MS6=MS6+"ªª"+B&MKH
  161.          IF C&MKH < " 60 " .OR. C&MKH="ªí╕±"
  162.             SELECT C
  163.             LOCATE FOR BIN=MBIN .AND. KH=MKHè            MB16=MB16+"ªª"+BK1
  164.                  IF BK1 <"60" .OR. BK1="ªí╕±"
  165.                     MB26=MB26+"ªª"+BK2
  166.                  ELSE
  167.                     MB26=MB26+"ªª"+"    "
  168.                  ENDIF
  169.        ELSE
  170.             MB16=MB16+"ªª"+"    "
  171.        ENDIF   
  172.        I6=I6+1
  173.     CASE XQ=7
  174.          MQ7="MQ7"+STR(I7,1)
  175.          &MQ7=KM
  176.          MKH=KH
  177.        SELECT B
  178.          MZ7=MZ7+"ªª"+C&MKH
  179.          MC7=MC7+"ªª"+A&MKH
  180.          MS7=MS7+"ªª"+B&MKH
  181.          IF C&MKH<" 60 " .OR. C&MKH="ªí╕±"
  182.          SELECT C
  183.          LOCATE FOR BIN=MBIN .AND. KH=MKH
  184.                 MB17=MB17+"ªª"+BK1
  185.                 IF BK1<"60" .OR. BK1="ªí╕±"
  186.                    MB27=MB27+"ªª"+BK2
  187.                 ELSE
  188.                    MB27=MB27+"ªª"+"    "
  189.                 ENDIF
  190.        ELSE
  191.            MB17=MB17+"ªª"+"    "
  192.        ENDIF            
  193.        I7=I7+1
  194.     CASE XQ=8
  195.          MQ8="MQ8"+STR(I8,1)
  196.          &MQ8=KM
  197.          MKH=KH
  198.        SELECT B
  199.          MZ8=MZ8+"ªª"+C&MKH 
  200.          MC8=MZ8+"ªª"+A&MKH
  201.          MS8=MS8+"ªª"+B&MKH
  202.          IF C&MKH<" 60 " .OR. C&MKH="ªí╕±"
  203.          SELECT C
  204.          LOCATE FOR BIN=MBIN .AND. KH=MKH
  205.                 MB18=MB18+"ªª"+BK1
  206.                      IF BK1<"60" .OR. BK1="ªí╕±"
  207.                         MB28=MB28+"ªª"+BK2
  208.                      ELSE
  209.                         MB28=MB28+"ªª"+"    "
  210.                      ENDIF
  211.      ELSE
  212.          MB18=MB18+"ªª"+"    "
  213.      ENDIF 
  214.      I8=I8+1
  215.     CASE XQ=9
  216.          MQ9="MQ9"+STR(I9,1)
  217.          &MQ9=KMè         MKH=KH
  218.        SELECT B
  219.          MZ9=MZ9+"ªª"+C&MKH
  220.          MC9=MC9+"ªª"+A&MKH     
  221.          MS9=MS9+"ªª"+B&MKH
  222.     IF C&MKH<" 60 " .OR. C&MKH="ªí╕±"
  223.        SELECT C
  224.        LOCATE FOR BIN=MBIN .AND. KH=MKH
  225.        MB19=MB19+"ªª"+BK1
  226.        IF BK1<"60" .OR. BK1="ªí╕±"
  227.           MB29=MB29+"ªª"+BK2
  228.        ELSE
  229.           MB29=MB29+"ªª"+"    "
  230.        ENDIF
  231.     ELSE
  232.     MB19=MB19+"ªª"+"    "
  233.     ENDIF        
  234.     I9=I9+1
  235.     CASE XQ=10
  236.          MQA="MQA"+STR(I10,1)
  237.          &MQA=KM
  238.          MKH=KH
  239.        SELECT B
  240.          MZA=MZA+"ªª"+C&MKH
  241.          MCA=MCA+"ªª"+A&MKH
  242.          MSA=MSA+"ªª"+B&MKH
  243.        IF C&MKH<" 60 " .OR. C&MKH="ªí╕±"
  244.          SELECT C
  245.          LOCATE FOR BIN=MBIN .AND. KH=MKH
  246.          MB1A=MB1A+"ªª"+BK1
  247.               IF BK1<"60" .OR.BK1="ªí╕±"
  248.               MB2A=MB2A+"ªª"+BK2
  249.               ELSE
  250.               MB2A=MB2A+"ªª"+"    "
  251.               ENDIF
  252.        ELSE
  253.        MB1A=MB1A+"ªª"+"    "
  254.        ENDIF   
  255.        I10=I10+1
  256.      ENDCASE
  257. SELECT A
  258. SKIP+1
  259. ENDDO
  260. GB="ªª    ªª    ªª    ªª    "
  261. MZ1=SUBSTR(MZ1+GB,2,24)
  262. MC1=SUBSTR(MC1+GB,2,24)
  263. MS1=SUBSTR(MS1+GB,2,24)
  264. MZ2=SUBSTR(MZ2+GB,2,24)
  265. MS2=SUBSTR(MS2+GB,2,24)
  266. MC2=SUBSTR(MC2+GB,2,24)
  267. MZ3=SUBSTR(MZ3+GB,2,24)
  268. MC3=SUBSTR(MC3+GB,2,24)
  269. MS3=SUBSTR(MS3+GB,2,24)
  270. MZ4=SUBSTR(MZ4+GB,2,24)
  271. MC4=SUBSTR(MC4+GB,2,24)èMS4=SUBSTR(MS4+GB,2,24)
  272. MZ5=SUBSTR(MZ5+GB,2,24)
  273. MC5=SUBSTR(MC5+GB,2,24)
  274. MS5=SUBSTR(MS5+GB,2,24)
  275. MZ6=SUBSTR(MZ6+GB,2,24)
  276. MC6=SUBSTR(MC6+GB,2,24)
  277. MS6=SUBSTR(MS6+GB,2,24)
  278. MZ7=SUBSTR(MZ7+GB,2,24)
  279. MC7=SUBSTR(MC7+GB,2,24)
  280. MS7=SUBSTR(MS7+GB,2,24)
  281. MZ8=SUBSTR(MZ8+GB,2,24)
  282. MC8=SUBSTR(MC8+GB,2,24)
  283. MS8=SUBSTR(MS8+GB,2,24)
  284. MZ9=SUBSTR(MZ9+GB,2,24)
  285. MC9=SUBSTR(MC9+GB,2,24)
  286. MS9=SUBSTR(MS9+GB,2,24)
  287. MZA=SUBSTR(MZA+GB,2,24)
  288. MCA=SUBSTR(MCA+GB,2,24)
  289. MSA=SUBSTR(MSA+GB,2,24)
  290. MB11=SUBSTR(MB11+GB,2,24)
  291. MB12=SUBSTR(MB12+GB,2,24)
  292. MB13=SUBSTR(MB13+GB,2,24)
  293. MB14=SUBSTR(MB14+GB,2,24)
  294. MB15=SUBSTR(MB15+GB,2,24)
  295. MB16=SUBSTR(MB16+GB,2,24)
  296. MB17=SUBSTR(MB17+GB,2,24)
  297. MB18=SUBSTR(MB18+GB,2,24)
  298. MB19=SUBSTR(MB19+GB,2,24)
  299. MB1A=SUBSTR(MB1A+GB,2,24)
  300. MB21=SUBSTR(MB21+GB,2,24)
  301. MB22=SUBSTR(MB22+GB,2,24)
  302. MB23=SUBSTR(MB23+GB,2,24)
  303. MB24=SUBSTR(MB24+GB,2,24)
  304. MB25=SUBSTR(MB25+GB,2,24)
  305. MB26=SUBSTR(MB26+GB,2,24)
  306. MB27=SUBSTR(MB27+GB,2,24)
  307. MB28=SUBSTR(MB28+GB,2,24)
  308. MB29=SUBSTR(MB29+GB,2,24)
  309. MB2A=SUBSTR(MB2A+GB,2,24)
  310. IF UPPER(XZ)="Z"
  311. MXZ="╚²─Ω╓╞╫¿┐╞"
  312. ENDIF
  313. IF UPPER(XZ)="B"
  314. MXZ="╚²─Ω▒╛┐╞"
  315. ENDIF
  316. IF  UPPER(XZ)="W"
  317. MXZ="╬σ─Ω▒╛┐╞"
  318. ENDIF
  319. JF="┴π╥╗╢■╚²╦─╬σ┴∙╞▀░╦╛┼┴π╥╗╢■╚²╦─╬σ┴∙╞▀░╦╛┼"
  320. X1=SUBSTR(JF,VAL(SUBSTR(X,1,1))*2+1,2)
  321. X2=SUBSTR(JF,VAL(SUBSTR(X,2,1))*2+1,2)
  322. K=VAL(SUBSTR(X,2,1))
  323. K1=K+1
  324. K2=K1+1
  325. K3=K2+1èK4=K3+1
  326. K5=K4+1
  327. IF K5>=10 
  328.    MK1="╛┼"
  329. ELSE
  330.    MK1="░╦"
  331. ENDIF 
  332. MK="░╦"
  333. BT11="ª░ªñªñªñªñªñ"
  334. BT12="ª╨ªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñ"
  335. BT21="ªª ╤º  ─Ω   "
  336. BT22="ªª     ╥╗╛┼"+MK+SUBSTR(JF,2*K+1,2)+"       ╓┴      ╥╗╛┼"+MK+SUBSTR(JF,2*K1+1,2)+"╤º─Ω      "
  337. BT23="ªª     ╥╗╛┼"+MK+SUBSTR(JF,2*K1+1,2)+"      ╓┴      ╥╗╛┼"+MK+SUBSTR(JF,2*K2+1,2)+"╤º─Ω       "
  338. BT24="ªª      ╥╗╛┼"+MK+SUBSTR(JF,2*K2+1,2)+"      ╓┴      ╥╗╛┼"+MK+SUBSTR(JF,2*K3+1,2)+"╤º─Ω      "
  339. BT25="ªª      ╥╗╛┼"+MK+SUBSTR(JF,2*K3+1,2)+"      ╓┴      ╥╗╛┼"+MK+SUBSTR(JF,2*K4+1,2)+"╤º─Ω      "
  340. BT26="ªª      ╥╗╛┼"+MK+SUBSTR(JF,2*K4+1,2)+"      ╓┴      ╥╗╛┼"+MK1+SUBSTR(JF,2*K5+1,2)+"╤º─Ω      "
  341. BT31="ª└ªñªñªñªñªñ"  
  342. BT32="ªαªñªñªñªñªñªñªñªñªñªñªñª╨ªñªñªñªñªñªñªñªñªñªñªñ"  
  343. BT41="ªª ╤º  ╞┌   "
  344. BT42="ªª    ╡┌  ╥╗  ╤º  ╞┌    ªª    ╡┌  ╢■  ╤º  ╞┌    "
  345. BT51="ª└ªñªñªñªñªñ" 
  346. BT52="ªαªñªñª╨ªñªñª╨ªñªñª╨ªñªñ" 
  347. BT61="ªª          "
  348. BT62="ªª    ªª    ªª    ªª    "
  349. BT71="ªª    ┐╬    "
  350. BT72="ªª "+SUBSTR(MQ11,1,2)+" ªª "+SUBSTR(MQ12,1,2)+" ªª"+"    "+"ªª"+"    "+"ªª "+SUBSTR(MQ21,1,2)+" ªª "+SUBSTR(MQ22,1,2)+" ªª"+"    "+"ªª"+"    "
  351. BT73="ªª "+SUBSTR(MQ31,1,2)+" ªª "+SUBSTR(MQ32,1,2)+" ªª"+"    "+"ªª"+"    "+"ªª "+SUBSTR(MQ41,1,2)+" ªª "+SUBSTR(MQ42,1,2)+" ªª"+"    "+"ªª"+"    "
  352. BT74="ªª "+SUBSTR(MQ51,1,2)+" ªª "+SUBSTR(MQ52,1,2)+" ªª "+SUBSTR(MQ53,1,2)+" ªª"+"    "+"ªª "+SUBSTR(MQ61,1,2)+" ªª "+SUBSTR(MQ62,1,2)+" ªª "+SUBSTR(MQ63,1,2)+" ªª "+SUBSTR(MQ64,1,2)+" "
  353. BT75="ªª "+SUBSTR(MQ71,1,2)+" ªª "+SUBSTR(MQ72,1,2)+" ªª "+SUBSTR(MQ73,1,2)+" ªª"+"    "+"ªª "+SUBSTR(MQ81,1,2)+" ªª "+SUBSTR(MQ82,1,2)+" ªª "+SUBSTR(MQ83,1,2)+" ªª"+"    "         
  354. BT76="ªª "+SUBSTR(MQ91,1,2)+" ªª "+SUBSTR(MQ92,1,2)+" ªª "+SUBSTR(MQ93,1,2)+" ªª"+"    "+"ªª "+SUBSTR(MQA1,1,2)+" ªª "+SUBSTR(MQA2,1,2)+" ªª "+SUBSTR(MQA3,1,2)+" ªª "+SUBSTR(MQA4,1,2)+" "
  355. BT81="ªª    │╠    "   
  356. BT82="ªª "+SUBSTR(MQ11,3,2)+" ªª "+SUBSTR(MQ12,3,2)+" ªª"+"    "+"ªª"+"    "+"ªª "+SUBSTR(MQ21,3,2)+" ªª "+SUBSTR(MQ22,3,2)+" ªª"+"    "+"ªª"+"    "          
  357. BT83="ªª "+SUBSTR(MQ31,3,2)+" ªª "+SUBSTR(MQ32,3,2)+" ªª"+"    "+"ªª"+"    "+"ªª "+SUBSTR(MQ41,3,2)+" ªª "+SUBSTR(MQ42,3,2)+" ªª"+"    "+"ªª"+"    " 
  358. BT84="ªª "+SUBSTR(MQ51,3,2)+" ªª "+SUBSTR(MQ52,3,2)+" ªª "+SUBSTR(MQ53,3,2)+" ªª"+"    "+"ªª "+SUBSTR(MQ61,3,2)+" ªª "+SUBSTR(MQ62,3,2)+" ªª "+SUBSTR(MQ63,3,2)+" ªª "+SUBSTR(MQ64,3,2)+" "
  359. BT85="ªª "+SUBSTR(MQ71,3,2)+" ªª "+SUBSTR(MQ72,3,2)+" ªª "+SUBSTR(MQ73,3,2)+" ªª"+"    "+"ªª "+SUBSTR(MQ81,3,2)+" ªª "+SUBSTR(MQ82,3,2)+" ªª "+SUBSTR(MQ83,3,2)+" ªª"+"    "
  360. BT86="ªª "+SUBSTR(MQ91,3,2)+" ªª "+SUBSTR(MQ92,3,2)+" ªª "+SUBSTR(MQ93,3,2)+" ªª"+"    "+"ªª "+SUBSTR(MQA1,3,2)+" ªª "+SUBSTR(MQA2,3,2)+" ªª "+SUBSTR(MQA3,3,2)+" ªª "+SUBSTR(MQA4,3,2)+" "
  361. BT91="ªª    ├√    "
  362. BT92="ªª "+SUBSTR(MQ11,5,2)+" ªª "+SUBSTR(MQ12,5,2)+" ªª"+"    "+"ªª"+"    "+"ì
  363. ªª "+SUBSTR(MQ21,5,2)+" ªª "+SUBSTR(MQ22,5,2)+" ªª"+"    "+"ªª"+"    "
  364. BT93="ªª "+SUBSTR(MQ31,5,2)+" ªª "+SUBSTR(MQ32,5,2)+" ªª"+"    "+"ªª"+"    "+"ªª "+SUBSTR(MQ41,5,2)+" ªª "+SUBSTR(MQ42,5,2)+" ªª"+"    "+"ªª"+"    "
  365. BT94="ªª "+SUBSTR(MQ51,5,2)+" ªª "+SUBSTR(MQ52,5,2)+" ªª "+SUBSTR(MQ53,5,2)+" ªª"+"    "+"ªª "+SUBSTR(MQ61,5,2)+" ªª "+SUBSTR(MQ62,5,2)+" ªª "+SUBSTR(MQ63,5,2)+" ªª "+SUBSTR(MQ64,3,2)+" "
  366. BT95="ªª "+SUBSTR(MQ71,5,2)+" ªª "+SUBSTR(MQ72,5,2)+" ªª "+SUBSTR(MQ73,5,2)+" ªª"+"    "+"ªª "+SUBSTR(MQ81,5,2)+" ªª "+SUBSTR(MQ82,5,2)+" ªª "+SUBSTR(MQ83,5,2)+" ªª"+"    "
  367. BT96="ªª "+SUBSTR(MQ91,5,2)+" ªª "+SUBSTR(MQ92,5,2)+" ªª "+SUBSTR(MQ93,5,2)+" ªª"+"    "+"ªª "+SUBSTR(MQA1,5,2)+" ªª "+SUBSTR(MQA2,5,2)+" ªª "+SUBSTR(MQA3,5,2)+" ªª "+SUBSTR(MQA4,5,2)+" "
  368. BTA1="ªª    │╞    "
  369. BTA2="ªª "+SUBSTR(MQ11,7,2)+" ªª "+SUBSTR(MQ12,7,2)+" ªª"+"    "+"ªª"+"    "+"ªª "+SUBSTR(MQ21,7,2)+" ªª "+SUBSTR(MQ22,7,2)+" ªª"+"    "+"ªª"+"    "
  370. BTA3="ªª "+SUBSTR(MQ31,7,2)+" ªª "+SUBSTR(MQ32,7,2)+" ªª"+"    "+"ªª"+"    "+"ªª "+SUBSTR(MQ41,7,2)+" ªª "+SUBSTR(MQ42,7,2)+" ªª"+"    "+"ªª"+"    "
  371. BTA4="ªª "+SUBSTR(MQ51,7,2)+" ªª "+SUBSTR(MQ52,7,2)+" ªª "+SUBSTR(MQ53,7,2)+" ªª"+"    "+"ªª "+SUBSTR(MQ61,7,2)+" ªª "+SUBSTR(MQ62,7,2)+" ªª "+SUBSTR(MQ63,7,2)+" ªª "+SUBSTR(MQ64,7,2)+" "
  372. BTA5="ªª "+SUBSTR(MQ71,7,2)+" ªª "+SUBSTR(MQ72,7,2)+" ªª "+SUBSTR(MQ73,7,2)+" ªª"+"    "+"ªª "+SUBSTR(MQ81,7,2)+" ªª "+SUBSTR(MQ82,7,2)+" ªª "+SUBSTR(MQ83,7,2)+" ªª"+"    "
  373. BTA6="ªª "+SUBSTR(MQ91,7,2)+" ªª "+SUBSTR(MQ92,7,2)+" ªª "+SUBSTR(MQ93,7,2)+" ªª"+"    "+"ªª "+SUBSTR(MQA1,7,2)+" ªª "+SUBSTR(MQA2,7,2)+" ªª "+SUBSTR(MQA3,7,2)+" ªª "+SUBSTR(MQA4,7,2)+" "
  374. BTB1="ªª          "
  375. BTB2="ªª "+SUBSTR(MQ11,9,2)+" ªª "+SUBSTR(MQ12,9,2)+" ªª"+"    "+"ªª"+"    "+"ªª "+SUBSTR(MQ21,9,2)+" ªª "+SUBSTR(MQ22,9,2)+" ªª"+"    "+"ªª"+"    "
  376. BTB3="ªª "+SUBSTR(MQ31,9,2)+" ªª "+SUBSTR(MQ32,9,2)+" ªª"+"    "+"ªª"+"    "+"ªª "+SUBSTR(MQ41,9,2)+" ªª "+SUBSTR(MQ42,9,2)+" ªª"+"    "+"ªª"+"    "
  377. BTB4="ªª "+SUBSTR(MQ51,9,2)+" ªª "+SUBSTR(MQ52,9,2)+" ªª "+SUBSTR(MQ53,9,2)+" ªª"+"    "+"ªª "+SUBSTR(MQ61,9,2)+" ªª "+SUBSTR(MQ62,9,2)+" ªª "+SUBSTR(MQ63,9,2)+" ªª "+SUBSTR(MQ64,9,2)+" "
  378. BTB5="ªª "+SUBSTR(MQ71,9,2)+" ªª "+SUBSTR(MQ72,9,2)+" ªª "+SUBSTR(MQ73,9,2)+" ªª"+"    "+"ªª "+SUBSTR(MQ81,9,2)+" ªª "+SUBSTR(MQ82,9,2)+" ªª "+SUBSTR(MQ83,9,2)+" ªª"+"    "
  379. BTB6="ªª "+SUBSTR(MQ91,9,2)+" ªª "+SUBSTR(MQ92,9,2)+" ªª "+SUBSTR(MQ93,9,2)+" ªª"+"    "+"ªª "+SUBSTR(MQA1,9,2)+" ªª "+SUBSTR(MQA2,9,2)+" ªª "+SUBSTR(MQA3,9,2)+" ªª "+SUBSTR(MQA4,9,2)+" "èBTC1="ªª          "           
  380. BTC2="ªª "+SUBSTR(MQ11,11,2)+" ªª "+SUBSTR(MQ12,11,2)+" ªª"+"    "+"ªª"+"    "+"ªª "+SUBSTR(MQ21,11,2)+" ªª "+SUBSTR(MQ22,11,2)+" ªª"+"    "+"ªª"+"    "
  381. BTC3="ªª "+SUBSTR(MQ31,11,2)+" ªª "+SUBSTR(MQ32,11,2)+" ªª"+"    "+"ªª"+"    "+"ªª "+SUBSTR(MQ41,11,2)+" ªª "+SUBSTR(MQ42,11,2)+" ªª"+"    "+"ªª"+"    "
  382. BTC4="ªª "+SUBSTR(MQ51,11,2)+" ªª "+SUBSTR(MQ52,11,2)+" ªª "+SUBSTR(MQ53,11,2)+" ªª"+"    "+"ªª "+SUBSTR(MQ61,11,2)+" ªª "+SUBSTR(MQ62,11,2)+" ªª "+SUBSTR(MQ63,11,2)+" ªª "+SUBSTR(MQ64,11,2)+" "
  383. BTC5="ªª "+SUBSTR(MQ71,11,2)+" ªª "+SUBSTR(MQ72,11,2)+" ªª "+SUBSTR(MQ73,11,2)+" ªª"+"    "+"ªª "+SUBSTR(MQ81,11,2)+" ªª "+SUBSTR(MQ82,11,2)+" ªª "+SUBSTR(MQ83,11,2)+" ªª"+"    "
  384. BTC6="ªª "+SUBSTR(MQ91,11,2)+" ªª "+SUBSTR(MQ92,11,2)+" ªª "+SUBSTR(MQ93,11,2)+" ªª"+"    "+"ªª "+SUBSTR(MQA1,11,2)+" ªª "+SUBSTR(MQA2,11,2)+" ªª "+SUBSTR(MQA3,11,2)+" ªª "+SUBSTR(MQA4,11,2)+" "
  385. BT63=BT62+BT62+BT62+BT62+BT62+BT62+BT62+BT62+BT62+BT62+"ªª"
  386. BTD1="ª└ªñªñªñªñªñ"
  387. BTD2="ªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñ"   
  388. BTD3=BTD2+BTD2+BTD2+BTD2+BTD2+"ª╚"
  389. BTE1="ªª  ╫▄  ╞└  "
  390. BTF1="ªª  ┐╝  ▓Θ  "
  391. BTG1="ªª  ┐╝  ╩╘  "
  392. BTH1="ª└ªñª╨ªñªñªñ"
  393. BTI1="ªª▓╣ªª╡┌╥╗┤╬"
  394. BTJ1="ªª  ª└ªñªñªñ"
  395. BTK1="ªª┐╝ªª╡┌╢■┤╬"
  396. BTL1="ª└ªñª╪ªñªñªñ"
  397. BTM1="ªª╜ß╥╡║≤▓╣┐╝"
  398. BTO1="ªª  ▒╕  ╫ó  "
  399. BTP1="ª╕ªñªñªñªñªñ"
  400. BTP2="ª╪ªñªñª╪ªñªñª╪ªñªñª╪ªñªñ"
  401. BTQ1="ª└ªñªñªñªñªñªñªαªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñª╚"
  402. BTR1="ªª            ªª                                                  ªª"
  403. BTT1="ª╕ªñªñªñªñªñªñª╪ªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñª╝"
  404. ZHG=SPACE(160)
  405. SET DEVICE TO PRINT
  406. SET PRINT ON
  407. ? CHR(27)+CHR(73)+CHR(68)
  408. @ 0,40 SAY "╗¬─╧╩ª╖╢┤≤╤º╔·└·─Ω╤º╥╡│╔╝¿╡╟╝╟▒φ"
  409. ? CHR(27)+CHR(73)+"I"
  410. ? CHR(27)+"X"+CHR(18)
  411. @ 1,16 SAY "╤º║┼:"+MBIN+"    ╨╒├√:"+MMI+ZHG+"└α▒≡: ║»╩┌╜╠╙²  ┼α╤°▓π┤╬:"+MXZ +"ì
  412.   ╫¿╥╡:"+ZZ+"   "+X1+X2+"╝╢"
  413. @ 2,8 SAY BT11+BT12+BT12+BT12+BT12+BT12+"ª┤"
  414. @ 3,8 SAY BT21+BT22+BT23+BT24+BT25+BT26+"ªª"
  415. @ 4,8 SAY BT31+BT32+BT32+BT32+BT32+BT32+"ª╚"
  416. @ 5,8 SAY BT41+BT42+BT42+BT42+BT42+BT42+"ªª"
  417. @ 6,8 SAY BT51+BT52+BT52+BT52+BT52+BT52+BT52+BT52+BT52+BT52+BT52+"ª╚"
  418. @ 7,8 SAY BT61+BT62+BT62+BT62+BT62+BT62+BT62+BT62+BT62+BT62+BT62+"ªª" 
  419. @ 8,8 SAY BT71+BT72+BT73+BT74+BT75+BT76+"ªª"
  420. @ 9,8 SAY BT81+BT82+BT83+BT84+BT85+BT86+"ªª"
  421. @ 10,8 SAY BT91+BT92+BT93+BT94+BT95+BT96+"ªª"
  422. @ 11,8 SAY BTA1+BTA2+BTA3+BTA4+BTA5+BTA6+"ªª"
  423. @ 12,8 SAY BTB1+BTB2+BTB3+BTB4+BTB5+BTB6+"ªª"
  424. @ 13,8 SAY BTC1+BTC2+BTC3+BTC4+BTC5+BTC6+"ªª"
  425. @ 14,8 SAY BTD1+BTD3
  426. @ 15,8 SAY BTF1+MC1+MC2+MC3+MC4+MC5+MC6+MC7+MC8+MC9+MCA+"ªª"
  427. @ 16,8 SAY BTD1+BTD3
  428. @ 17,8 SAY BTG1+MS1+MS2+MS3+MS4+MS5+MS6+MS7+MS8+MS9+MSA+"ªª"
  429. @ 18,8 SAY BTD1+BTD3
  430. @ 19,8 SAY BTE1+MZ1+MZ2+MZ3+MZ4+MZ5+MZ6+MZ7+MZ8+MZ9+MZA+"ªª"
  431. @ 20,8 SAY BTH1+BTD3
  432. @ 21,8 SAY BTI1+MB11+MB12+MB13+MB14+MB15+MB16+MB17+MB18+MB19+MB1A+"ªª"
  433. @ 22,8 SAY BTJ1+BTD3è@ 23,8 SAY BTK1+MB21+MB22+MB23+MB24+MB25+MB26+MB27+MB28+MB29+MB2A+"ªª"
  434. @ 24,8 SAY BTL1+BTD3
  435. @ 25,8 SAY BTM1+BT63
  436. @ 26,8 SAY BTD1+BTD3
  437. @ 27,8 SAY BTO1+BT63
  438. @ 28,8 SAY BTP1+BTP2+BTP2+BTP2+BTP2+BTP2+BTP2+BTP2+BTP2+BTP2+BTP2+"ª╝"
  439. HG=SPACE(24)
  440. @ 29,8 SAY "     "
  441. @ 30,11 SAY "╤º╝«▒Σ╟¿(╨▌,╕┤,╫¬,═╦╤º,┴⌠,╠°╝╢)"+HG+HG+"              ╕╜     ╝╟"+HG+HG+HG+HG+"      ╠ε  ▒φ  ╚╦  ╟⌐  ╒┬"
  442. @ 31,8 SAY "ª░ªñªñªñªñªñªñª╨ªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñª┤"+HG+"ª░ªñªñªñªñªñªñª╨ªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñª┤"
  443. @ 32,8 SAY "ªª  ─Ω  ╘┬  ╚╒ªª              ╘¡                ╥≥                ªª"+HG+"ªª            ªª                                                  ªª" 
  444. @ 33,8 SAY BTQ1+HG+BTQ1
  445. @ 34,8 SAY BTR1+HG+BTR1+HG+HG+"╧╡  ╓≈  ╚╬  ╟⌐  ╒┬"
  446. @ 35,8 SAY BTQ1+HG+BTQ1
  447. @ 36,8 SAY BTR1+HG+BTR1
  448. @ 37,8 SAY BTQ1+HG+BTQ1
  449. @ 38,8 SAY BTR1+HG+BTR1+HG+HG+"│╔╚╦╜╠╙²╤º╘║╘║│ñ╟⌐╒┬"
  450. @ 39,8 SAY BTT1+HG+BTT1
  451. @ 40,8 SAY  "      "
  452. @ 41,26 SAY "╜▒                └°        "+HG+HG+"    ▒╧  ╥╡  ┬█  ╬─  │╔  ╝¿"
  453. @ 42,8 SAY "ª░ªñªñªñªñªñªñª╨ªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñª┤"+HG+"ª░ªñªñªñªñªñªñª╨ªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñª┤"
  454. @ 43,8 SAY "ªª  ─Ω  ╘┬  ╚╒ªª              ╘¡                  ╥≥              ªª"+HG+"ªª            ªª                                                  ªª"+HG+HG+"╣½                ╒┬"
  455. @ 44,8 SAY BTQ1+HG+BTQ1
  456. @ 45,8 SAY BTR1+HG+BTR1
  457. @ 46,8 SAY BTQ1+HG+BTT1
  458. @ 47,8 SAY BTR1+HG+"╦╡├≈:(1)▒φ─┌╧ε─┐,╩²╛▌═┐╕─╬▐╨º."
  459. @ 48,8 SAY BTQ1+HG+"    "
  460. @ 49,8 SAY BTR1+HG+"     (2)▒╛▒φ╥╗╩╜┴╜╖▌.╥╗╖▌╦µ╤º╔·╡╡░╕,╥╗╖▌╖ó╕°╤º╔·▒╛╚╦."+HG+HG+HG+"╥╗╛┼░╦  ─Ω  ╘┬  ╚╒╖ó"
  461. @ 50,8 SAY BTT1
  462. @ 51,80 SAY "         " 
  463. SET DEVICE TO SCREEN
  464. ? CHR(27)+"X"+CHR(20)
  465. SET PRINT OFF
  466. STORE " " TO YES
  467. CLEAR
  468. @ 1,20 SAY MMI+" │╔╝¿▒φ╥╤┤≥╙í═Ω"
  469. @ 2,20 SAY "╗╣╨Φ╝╠╨°┤≥╙í┬≡ ?(Y/N)" GET YES
  470. READ
  471. IF UPPER(YES)="Y"
  472. CLEAR
  473. LOOP
  474. ENDIF
  475. CLEAR
  476. STORE .F. TO DYT
  477. ENDDO    
  478.