home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / xy.img / S4 / ZXG.PRG < prev   
Encoding:
Text File  |  1980-01-01  |  926 b   |  45 lines
  1. USE B:AC608
  2. DO WHILE .NOT. EOF()
  3.    I=0
  4.    DO WHILE I<20
  5.       I=I+1
  6.       IF I<10
  7.          SI="0"+STR(I,1)
  8.       ELSE
  9.          SI=STR(I,2)
  10.       ENDIF
  11.       AI="A"+SI
  12.       CI="C"+SI
  13.       IF TRIM(&AI)="A"
  14.          REPL &AI WITH "╙┼╨π"
  15.       ENDIF
  16.       IF TRIM(&AI)="B"
  17.          REPL &AI WITH "┴╝║├"
  18.        ENDIF
  19.        IF TRIM(&AI)="C"
  20.           REPL &AI WITH "╓╨╡╚"
  21.         ENDIF
  22.        IF TRIM(&AI)="D"
  23.           REPL &AI WITH "╝░╕±"
  24.        ENDIF
  25.        IF TRIM(&AI)="E"
  26.            REPL &AI="ªí╕±"
  27.        ENDIF   
  28.        IF TRIM(&CI)="A"
  29.           REPL &CI WITH "╙┼╨π"
  30.        ENDIF
  31.        IF TRIM(&CI)="B"
  32.           REPL &CI WITH "┴╝║├"
  33.        ENDIF  
  34.        IF TRIM(&CI)="C"
  35.           REPL &CI WITH "╓╨╡╚"
  36.        ENDIF
  37.        IF TRIM(&CI)="D"
  38.           REPL &CI WITH "╝░╕±"
  39.         ENDIF
  40.        IF TRIM(&CI)="E"
  41.           REPL &CI WITH "ªí╕±"
  42.        ENDIF
  43.    ENDDO
  44. SKIP
  45. ENDDO