home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / xy.img / S4 / MFEN.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  296 b   |  17 lines
  1. IF FEN>100
  2.    DO CASE
  3.       CASE FEN=201
  4.            MFEN="▓╗╝░"
  5.       CASE FEN=202
  6.            MFEN="╝░╕±"
  7.       CASE FEN=203
  8.            MFEN="╓╨╡╚"
  9.       CASE FEN=204
  10.            MFEN="┴╝║├"
  11.       CASE FEN=205
  12.            MFEN="╙┼╨π"
  13.   EDNCASE
  14. ELSE
  15.     MFEN=STR(FEN,2)
  16. ENDIF
  17. RETURN