home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PRO98SRC.ZIP / SYMBOLS.BAS < prev    next >
BASIC Source File  |  1993-11-07  |  2KB  |  75 lines
  1. SUB symbols (Prog$)
  2. DO
  3. x = INSTR(Prog$, "^")
  4. aa$ = LEFT$(Prog$, x - 1)
  5. IF x + 2 <= LEN(Prog$) THEN bb$ = MID$(Prog$, x + 2) ELSE bb$ = ""
  6. Arg$ = MID$(Prog$, x + 1, 1)
  7. nopr = 1
  8. SELECT CASE Arg$
  9.  
  10.         ' attributes
  11.         CASE "0"
  12.     Result$ = CHR$(27) + "[" + "0" + "m"
  13.         CASE "_"
  14.     Result$ = CHR$(27) + "[" + "4" + "m"
  15.     CASE "I"
  16.     Result$ = CHR$(27) + "[" + "7" + "m"
  17.     CASE "F"
  18.     Result$ = CHR$(27) + "[" + "5" + "m"
  19.     CASE "B"
  20.     Result$ = CHR$(27) + "[" + "1" + "m"
  21.     CASE "P"
  22.     nopr = 0
  23.     Result$ = CHR$(27) + "@"
  24.     CASE "p"
  25.     nopr = 0
  26.     Result$ = CHR$(27) + "A"
  27.  
  28.         ' foreground colors
  29.         CASE "n"
  30.     Result$ = CHR$(27) + "[" + "30" + "m"
  31.     CASE "r"
  32.     Result$ = CHR$(27) + "[" + "31" + "m"
  33.     CASE "g"
  34.     Result$ = CHR$(27) + "[" + "32" + "m"
  35.     CASE "y"
  36.     Result$ = CHR$(27) + "[" + "33" + "m"
  37.     CASE "b"
  38.     Result$ = CHR$(27) + "[" + "34" + "m"
  39.     CASE "m"
  40.     Result$ = CHR$(27) + "[" + "35" + "m"
  41.     CASE "c"
  42.     Result$ = CHR$(27) + "[" + "36" + "m"
  43.     CASE "w"
  44.     Result$ = CHR$(27) + "[" + "37" + "m"
  45.  
  46.         ' background colors
  47.         CASE "N"
  48.     Result$ = CHR$(27) + "[" + "40" + "m"
  49.         CASE "R"
  50.     Result$ = CHR$(27) + "[" + "41" + "m"
  51.         CASE "G"
  52.     Result$ = CHR$(27) + "[" + "42" + "m"
  53.         CASE "Y"
  54.     Result$ = CHR$(27) + "[" + "43" + "m"
  55.         CASE "U"  ' Underline (blue)
  56.     Result$ = CHR$(27) + "[" + "44" + "m"
  57.         CASE "M"
  58.     Result$ = CHR$(27) + "[" + "45" + "m"
  59.         CASE "C"
  60.     Result$ = CHR$(27) + "[" + "46" + "m"
  61.         CASE "W"
  62.     Result$ = CHR$(27) + "[" + "47" + "m"
  63.  
  64. CASE ELSE
  65.  
  66. Result$ = CHR$(27) + "[" + Arg$ + "m"
  67.  
  68. END SELECT
  69.  
  70. IF tty AND nopr THEN Result$ = ""
  71. IF Result$ <> "" THEN Prog$ = aa$ + Result$ + bb$ ELSE Prog$ = aa$ + bb$
  72. LOOP WHILE INSTR(Prog$, "^")
  73. END SUB
  74.  
  75.