home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / xy.img / S4 / THTJ.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  728 b   |  32 lines
  1.            *****═│╝╞╨▌,╕┤,═╦,╫¬╤º(THTJ)*****
  2. CLEAR
  3. USE B:AC2&Z
  4. STORE 0 TO MGF1,MGF2,MGF3,MGF4
  5. @ 3,20 SAY "╒²╘┌═│╝╞,╟δ╡╚║≥!"
  6. DO WHILE .NOT. EOF()
  7.    IF B18="╨▌╤º"
  8.       MGF1=MGF1+1
  9.    ELSE
  10.       IF B18="═╦╤º"
  11.          MGF2=MGF2+1
  12.       ELSE
  13.          IF B18="╫¬╤º"
  14.             MGF3=MGF3+1 
  15.          ELSE
  16.             IF B18="╕┤╤º"
  17.                MGF4=MGF4+1
  18.             ENDIF
  19.          ENDIF
  20.       ENDIF
  21.    ENDIF
  22.  SKIP+1
  23.  ENDDO
  24. @ 3,20 SAY "╨▌╤º :"+STR(MGF1)+"╚╦"
  25. @ 4,20 SAY "═╦╤º :"+STR(MGF2)+"╚╦"
  26. @ 5,20 SAY "╫¬╤º :"+STR(MGF3)+"╚╦"
  27. @ 6,20 SAY "╕┤╤º :"+STR(MGF4)+"╚╦"
  28. USE AC7
  29. LOCATE FOR XIBIN="&Z"
  30. REPL GF1 WITH MGF1,GF2 WITH MGF2,GF3 WITH MGF3,GF4 WITH MGF4
  31. WAIT "    ░┤╚╬╥╗╝ⁿ╝╠╨°!"
  32. RETURN TO MASTER