00000000  54 65 78 74 54 68 69 6e  67 0a 21 74 65 78 74 74  |TextThing.!textt|
00000010  68 69 6e 67 0a 2a 2a 2a  0a 30 0a 31 0a 36 0a 54  |hing.***.0.1.6.T|
00000020  6f 20 72 65 6d 6f 76 65  20 72 75 62 62 69 73 68  |o remove rubbish|
00000030  20 66 72 6f 6d 20 66 69  6c 65 0a a9 20 56 69 63  | from file.. Vic|
00000040  74 6f 72 20 4d 61 72 6b  77 61 72 74 0a 30 2e 30  |tor Markwart.0.0|
00000050  33 20 32 38 20 46 65 62  20 31 39 39 38 0a 30 0a  |3 28 Feb 1998.0.|
00000060  2a 2a 2a 0a 2a 2a 2a 0a  2a 2a 2a 0a 2a 2a 2a 0a  |***.***.***.***.|
00000070  2a 2a 2a 0a 2a 2a 2a 0a  0a 69 63 6f 6e 6d 65 6e  |***.***..iconmen|
00000080  75 25 0a 4d 61 69 6e 20  4d 65 6e 75 0a 2e 2e 2e  |u%.Main Menu....|
00000090  49 6e 66 6f 20 20 20 20  21 0a 2e 2e 2e 44 65 66  |Info    !....Def|
000000a0  61 75 6c 74 26 73 65 74  5f 64 65 66 61 75 6c 74  |ault&set_default|
000000b0  73 0a 2e 2e 2e 51 75 69  74 26 43 4c 4f 53 45 44  |s....Quit&CLOSED|
000000c0  4f 57 4e 0a a4 0a 40 0a  0a 6d 65 6e 75 5f 6b 6c  |OWN...@..menu_kl|
000000d0  69 6b 0a 62 75 74 74 6f  6e 25 0a 34 0a 20 20 49  |ik.button%.4.  I|
000000e0  46 20 62 75 74 74 6f 6e  25 3c 3e 32 20 54 48 45  |F button%<>2 THE|
000000f0  4e 0a 20 20 20 20 4d 4f  55 53 45 28 6d 78 25 2c  |N.    MOUSE(mx%,|
00000100  20 6d 79 25 2c 20 6d 62  25 2c 20 77 69 6e 64 6f  | my%, mb%, windo|
00000110  77 2c 20 69 63 6f 6e 29  0a 20 20 20 20 4d 4f 56  |w, icon).    MOV|
00000120  45 57 49 4e 44 4f 57 28  54 65 78 74 54 68 69 6e  |EWINDOW(TextThin|
00000130  67 2c 20 6d 78 25 2d 31  35 30 2c 20 6d 79 25 2b  |g, mx%-150, my%+|
00000140  35 30 29 0a 20 20 20 20  4f 50 45 4e 57 49 4e 44  |50).    OPENWIND|
00000150  4f 57 28 54 65 78 74 54  68 69 6e 67 29 0a 20 20  |OW(TextThing).  |
00000160  45 4e 44 49 46 0a 45 4e  44 50 52 4f 43 0a a4 0a  |ENDIF.ENDPROC...|
00000170  0a 77 69 6e 64 6f 77 5f  6b 6c 69 6b 0a 77 69 6e  |.window_klik.win|
00000180  64 6f 77 25 2c 69 63 6f  6e 25 2c 62 75 74 74 6f  |dow%,icon%,butto|
00000190  6e 25 0a 31 30 0a 20 20  43 41 53 45 20 77 69 6e  |n%.10.  CASE win|
000001a0  64 6f 77 25 20 4f 46 0a  20 20 20 20 57 48 45 4e  |dow% OF.    WHEN|
000001b0  20 54 65 78 74 54 68 69  6e 67 0a 20 20 20 20 43  | TextThing.    C|
000001c0  41 53 45 20 69 63 6f 6e  25 20 4f 46 0a 20 20 20  |ASE icon% OF.   |
000001d0  20 20 20 57 48 45 4e 20  69 63 6e 5f 73 61 76 65  |   WHEN icn_save|
000001e0  3a 20 52 45 4d 20 53 61  76 65 20 61 73 20 64 65  |: REM Save as de|
000001f0  66 61 75 6c 74 0a 0a 20  20 20 20 20 20 20 20 50  |fault..        P|
00000200  52 4f 43 73 65 74 5f 6f  70 74 69 6f 6e 73 0a 20  |ROCset_options. |
00000210  20 20 20 20 20 20 20 50  52 4f 43 73 61 76 65 5f  |       PROCsave_|
00000220  6f 70 74 69 6f 6e 73 0a  20 20 20 20 20 20 20 20  |options.        |
00000230  49 46 20 62 75 74 74 6f  6e 25 3d 34 20 54 48 45  |IF button%=4 THE|
00000240  4e 20 43 4c 4f 53 45 57  49 4e 44 4f 57 28 54 65  |N CLOSEWINDOW(Te|
00000250  78 74 54 68 69 6e 67 29  0a 20 20 20 20 20 20 57  |xtThing).      W|
00000260  48 45 4e 20 69 63 6e 5f  73 65 74 3a 20 52 45 4d  |HEN icn_set: REM|
00000270  20 73 65 74 20 66 6f 72  20 74 68 69 73 20 73 65  | set for this se|
00000280  73 73 69 6f 6e 0a 20 20  20 20 20 20 20 20 50 52  |ssion.        PR|
00000290  4f 43 73 65 74 5f 6f 70  74 69 6f 6e 73 0a 20 20  |OCset_options.  |
000002a0  20 20 20 20 20 20 49 46  20 62 75 74 74 6f 6e 25  |      IF button%|
000002b0  3d 34 20 54 48 45 4e 20  43 4c 4f 53 45 57 49 4e  |=4 THEN CLOSEWIN|
000002c0  44 4f 57 28 54 65 78 74  54 68 69 6e 67 29 0a 20  |DOW(TextThing). |
000002d0  20 20 20 20 20 57 48 45  4e 20 69 63 6e 5f 63 61  |     WHEN icn_ca|
000002e0  6e 3a 20 43 4c 4f 53 45  57 49 4e 44 4f 57 28 77  |n: CLOSEWINDOW(w|
000002f0  69 6e 64 6f 77 25 29 0a  20 20 20 20 20 20 57 48  |indow%).      WH|
00000300  45 4e 20 69 63 6e 5f 63  6c 72 3a 20 50 52 4f 43  |EN icn_clr: PROC|
00000310  63 6c 65 61 72 20 3a 20  50 52 4f 43 73 65 74 5f  |clear : PROCset_|
00000320  76 61 6c 75 65 73 0a 20  20 20 20 20 20 20 20 49  |values.        I|
00000330  46 20 62 75 74 74 6f 6e  25 3d 34 20 54 48 45 4e  |F button%=4 THEN|
00000340  20 43 4c 4f 53 45 57 49  4e 44 4f 57 28 77 69 6e  | CLOSEWINDOW(win|
00000350  64 6f 77 25 29 0a 20 20  20 20 20 20 57 48 45 4e  |dow%).      WHEN|
00000360  20 69 63 6e 5f 73 69 6e  67 3a 20 0a 20 20 20 20  | icn_sing: .    |
00000370  20 20 20 20 21 62 6c 6f  63 6b 25 3d 54 65 78 74  |    !block%=Text|
00000380  54 68 69 6e 67 0a 20 20  20 20 20 20 20 20 53 59  |Thing.        SY|
00000390  53 20 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |S "Wimp_GetWindo|
000003a0  77 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 0a  |wState",,block%.|
000003b0  20 20 20 20 20 20 20 20  21 62 6c 6f 63 6b 25 3d  |        !block%=|
000003c0  43 68 61 72 52 65 70 6c  61 63 65 0a 20 20 20 20  |CharReplace.    |
000003d0  20 20 20 20 53 59 53 20  22 57 69 6d 70 5f 4f 70  |    SYS "Wimp_Op|
000003e0  65 6e 57 69 6e 64 6f 77  22 2c 2c 62 6c 6f 63 6b  |enWindow",,block|
000003f0  25 0a 20 20 20 20 20 20  20 20 43 4c 4f 53 45 57  |%.        CLOSEW|
00000400  49 4e 44 4f 57 28 54 65  78 74 54 68 69 6e 67 29  |INDOW(TextThing)|
00000410  0a 20 20 20 20 20 20 57  48 45 4e 20 69 63 6e 5f  |.      WHEN icn_|
00000420  73 74 72 69 70 5f 74 6f  70 3a 20 69 63 6e 5f 73  |strip_top: icn_s|
00000430  74 72 69 70 5f 74 6f 70  25 3d 52 45 41 44 53 54  |trip_top%=READST|
00000440  41 54 45 28 77 69 6e 64  6f 77 25 2c 20 69 63 6e  |ATE(window%, icn|
00000450  5f 73 74 72 69 70 5f 74  6f 70 29 0a 20 20 20 20  |_strip_top).    |
00000460  20 20 57 48 45 4e 20 69  63 6e 5f 73 74 72 69 70  |  WHEN icn_strip|
00000470  5f 63 6f 6e 3a 20 69 63  6e 5f 73 74 72 69 70 5f  |_con: icn_strip_|
00000480  63 6f 6e 25 3d 52 45 41  44 53 54 41 54 45 28 77  |con%=READSTATE(w|
00000490  69 6e 64 6f 77 25 2c 20  69 63 6e 5f 73 74 72 69  |indow%, icn_stri|
000004a0  70 5f 63 6f 6e 29 0a 20  20 20 20 20 20 57 48 45  |p_con).      WHE|
000004b0  4e 20 69 63 6e 5f 72 65  70 5f 74 61 62 3a 20 69  |N icn_rep_tab: i|
000004c0  63 6e 5f 72 65 70 5f 74  61 62 25 3d 52 45 41 44  |cn_rep_tab%=READ|
000004d0  53 54 41 54 45 28 77 69  6e 64 6f 77 25 2c 20 69  |STATE(window%, i|
000004e0  63 6e 5f 72 65 70 5f 74  61 62 29 0a 20 20 20 20  |cn_rep_tab).    |
000004f0  20 20 57 48 45 4e 20 69  63 6e 5f 72 65 70 5f 74  |  WHEN icn_rep_t|
00000500  61 62 5f 64 77 6e 3a 0a  20 20 20 20 20 20 20 20  |ab_dwn:.        |
00000510  72 65 70 5f 74 61 62 24  3d 52 45 41 44 49 43 4f  |rep_tab$=READICO|
00000520  4e 28 77 69 6e 64 6f 77  25 2c 20 69 63 6e 5f 72  |N(window%, icn_r|
00000530  65 70 5f 74 61 62 5f 6e  6f 29 0a 20 20 20 20 20  |ep_tab_no).     |
00000540  20 20 20 49 46 20 72 65  70 5f 74 61 62 24 3d 22  |   IF rep_tab$="|
00000550  22 20 54 48 45 4e 20 72  65 70 5f 74 61 62 24 3d  |" THEN rep_tab$=|
00000560  22 30 22 0a 20 20 20 20  20 20 20 20 69 63 6e 5f  |"0".        icn_|
00000570  72 65 70 5f 74 61 62 5f  6e 6f 25 3d 45 56 41 4c  |rep_tab_no%=EVAL|
00000580  28 72 65 70 5f 74 61 62  24 29 0a 20 20 20 20 20  |(rep_tab$).     |
00000590  20 20 20 69 63 6e 5f 72  65 70 5f 74 61 62 5f 6e  |   icn_rep_tab_n|
000005a0  6f 25 2d 3d 31 0a 20 20  20 20 20 20 20 20 49 46  |o%-=1.        IF|
000005b0  20 69 63 6e 5f 72 65 70  5f 74 61 62 5f 6e 6f 25  | icn_rep_tab_no%|
000005c0  20 3c 20 30 20 54 48 45  4e 20 69 63 6e 5f 72 65  | < 0 THEN icn_re|
000005d0  70 5f 74 61 62 5f 6e 6f  25 3d 30 0a 20 20 20 20  |p_tab_no%=0.    |
000005e0  20 20 20 20 72 65 70 5f  74 61 62 24 3d 53 54 52  |    rep_tab$=STR|
000005f0  24 28 69 63 6e 5f 72 65  70 5f 74 61 62 5f 6e 6f  |$(icn_rep_tab_no|
00000600  25 29 0a 20 20 20 20 20  20 20 20 53 45 54 49 43  |%).        SETIC|
00000610  4f 4e 28 77 69 6e 64 6f  77 25 2c 69 63 6e 5f 72  |ON(window%,icn_r|
00000620  65 70 5f 74 61 62 5f 6e  6f 2c 72 65 70 5f 74 61  |ep_tab_no,rep_ta|
00000630  62 24 29 0a 20 20 20 20  20 20 57 48 45 4e 20 69  |b$).      WHEN i|
00000640  63 6e 5f 72 65 70 5f 74  61 62 5f 75 70 3a 0a 20  |cn_rep_tab_up:. |
00000650  20 20 20 20 20 20 20 72  65 70 5f 74 61 62 24 3d  |       rep_tab$=|
00000660  52 45 41 44 49 43 4f 4e  28 77 69 6e 64 6f 77 25  |READICON(window%|
00000670  2c 20 69 63 6e 5f 72 65  70 5f 74 61 62 5f 6e 6f  |, icn_rep_tab_no|
00000680  29 0a 20 20 20 20 20 20  20 20 49 46 20 72 65 70  |).        IF rep|
00000690  5f 74 61 62 24 3d 22 22  20 54 48 45 4e 20 72 65  |_tab$="" THEN re|
000006a0  70 5f 74 61 62 24 3d 22  30 22 0a 20 20 20 20 20  |p_tab$="0".     |
000006b0  20 20 20 69 63 6e 5f 72  65 70 5f 74 61 62 5f 6e  |   icn_rep_tab_n|
000006c0  6f 25 3d 45 56 41 4c 28  72 65 70 5f 74 61 62 24  |o%=EVAL(rep_tab$|
000006d0  29 0a 20 20 20 20 20 20  20 20 69 63 6e 5f 72 65  |).        icn_re|
000006e0  70 5f 74 61 62 5f 6e 6f  25 2b 3d 31 0a 20 20 20  |p_tab_no%+=1.   |
000006f0  20 20 20 20 20 72 65 70  5f 74 61 62 24 3d 53 54  |     rep_tab$=ST|
00000700  52 24 28 69 63 6e 5f 72  65 70 5f 74 61 62 5f 6e  |R$(icn_rep_tab_n|
00000710  6f 25 29 0a 20 20 20 20  20 20 20 20 53 45 54 49  |o%).        SETI|
00000720  43 4f 4e 28 77 69 6e 64  6f 77 25 2c 69 63 6e 5f  |CON(window%,icn_|
00000730  72 65 70 5f 74 61 62 5f  6e 6f 2c 72 65 70 5f 74  |rep_tab_no,rep_t|
00000740  61 62 24 29 0a 20 20 20  20 20 20 57 48 45 4e 20  |ab$).      WHEN |
00000750  69 63 6e 5f 72 65 70 5f  6c 66 3a 0a 20 20 20 20  |icn_rep_lf:.    |
00000760  20 20 20 20 69 63 6e 5f  72 65 70 5f 6c 66 25 3d  |    icn_rep_lf%=|
00000770  52 45 41 44 53 54 41 54  45 28 77 69 6e 64 6f 77  |READSTATE(window|
00000780  25 2c 20 69 63 6e 5f 72  65 70 5f 6c 66 29 0a 20  |%, icn_rep_lf). |
00000790  20 20 20 20 20 20 20 49  46 20 69 63 6e 5f 72 65  |       IF icn_re|
000007a0  70 5f 6c 66 25 3d 54 52  55 45 20 54 48 45 4e 0a  |p_lf%=TRUE THEN.|
000007b0  20 20 20 20 20 20 20 20  20 20 69 63 6e 5f 72 65  |          icn_re|
000007c0  70 5f 6c 66 5f 73 65 74  3d 47 52 4f 55 50 53 54  |p_lf_set=GROUPST|
000007d0  41 54 45 28 54 65 78 74  54 68 69 6e 67 2c 20 31  |ATE(TextThing, 1|
000007e0  29 2d 69 63 6e 5f 72 65  70 5f 6c 66 0a 20 20 20  |)-icn_rep_lf.   |
000007f0  20 20 20 20 20 20 20 43  41 53 45 20 69 63 6e 5f  |       CASE icn_|
00000800  72 65 70 5f 6c 66 5f 73  65 74 20 4f 46 0a 20 20  |rep_lf_set OF.  |
00000810  20 20 20 20 20 20 20 20  57 48 45 4e 20 31 3a 20  |        WHEN 1: |
00000820  6c 66 5f 72 65 70 24 3d  63 72 24 0a 20 20 20 20  |lf_rep$=cr$.    |
00000830  20 20 20 20 20 20 57 48  45 4e 20 32 3a 20 6c 66  |      WHEN 2: lf|
00000840  5f 72 65 70 24 3d 6c 66  24 0a 20 20 20 20 20 20  |_rep$=lf$.      |
00000850  20 20 20 20 57 48 45 4e  20 33 3a 20 6c 66 5f 72  |    WHEN 3: lf_r|
00000860  65 70 24 3d 63 72 6c 66  24 0a 20 20 20 20 20 20  |ep$=crlf$.      |
00000870  20 20 20 20 57 48 45 4e  20 34 3a 20 6c 66 5f 72  |    WHEN 4: lf_r|
00000880  65 70 24 3d 6c 66 63 72  24 0a 20 20 20 20 20 20  |ep$=lfcr$.      |
00000890  20 20 20 20 45 4e 44 43  41 53 45 0a 20 20 20 20  |    ENDCASE.    |
000008a0  20 20 20 20 45 4e 44 49  46 0a 20 20 20 20 20 20  |    ENDIF.      |
000008b0  57 48 45 4e 20 69 63 6e  5f 72 65 70 5f 71 75 3a  |WHEN icn_rep_qu:|
000008c0  0a 20 20 20 20 20 20 20  20 69 63 6e 5f 72 65 70  |.        icn_rep|
000008d0  5f 71 75 25 3d 52 45 41  44 53 54 41 54 45 28 77  |_qu%=READSTATE(w|
000008e0  69 6e 64 6f 77 25 2c 20  69 63 6e 5f 72 65 70 5f  |indow%, icn_rep_|
000008f0  71 75 29 0a 20 20 20 20  20 20 20 20 49 46 20 69  |qu).        IF i|
00000900  63 6e 5f 72 65 70 5f 71  75 25 3d 54 52 55 45 20  |cn_rep_qu%=TRUE |
00000910  54 48 45 4e 20 69 63 6e  5f 72 65 70 5f 71 75 24  |THEN icn_rep_qu$|
00000920  3d 52 45 41 44 49 43 4f  4e 28 77 69 6e 64 6f 77  |=READICON(window|
00000930  25 2c 20 69 63 6e 5f 72  65 70 5f 71 75 31 29 0a  |%, icn_rep_qu1).|
00000940  20 20 20 20 20 20 57 48  45 4e 20 69 63 6e 5f 63  |      WHEN icn_c|
00000950  61 73 65 0a 20 20 20 20  20 20 20 20 69 63 6e 5f  |ase.        icn_|
00000960  63 61 73 65 25 3d 52 45  41 44 53 54 41 54 45 28  |case%=READSTATE(|
00000970  77 69 6e 64 6f 77 25 2c  20 69 63 6e 5f 63 61 73  |window%, icn_cas|
00000980  65 29 0a 20 20 20 20 20  20 20 20 49 46 20 69 63  |e).        IF ic|
00000990  6e 5f 63 61 73 65 25 3d  54 52 55 45 20 54 48 45  |n_case%=TRUE THE|
000009a0  4e 0a 20 20 20 20 20 20  20 20 20 20 69 63 6e 5f  |N.          icn_|
000009b0  63 61 73 65 5f 73 65 74  3d 47 52 4f 55 50 53 54  |case_set=GROUPST|
000009c0  41 54 45 28 54 65 78 74  54 68 69 6e 67 2c 20 32  |ATE(TextThing, 2|
000009d0  29 2d 69 63 6e 5f 63 61  73 65 0a 20 20 20 20 20  |)-icn_case.     |
000009e0  20 20 20 45 4e 44 49 46  0a 20 20 20 20 45 4e 44  |   ENDIF.    END|
000009f0  43 41 53 45 0a 20 20 57  48 45 4e 20 43 68 61 72  |CASE.  WHEN Char|
00000a00  52 65 70 6c 61 63 65 0a  20 20 20 20 43 41 53 45  |Replace.    CASE|
00000a10  20 69 63 6f 6e 25 20 4f  46 0a 20 20 20 20 20 20  | icon% OF.      |
00000a20  57 48 45 4e 20 69 63 6e  5f 73 61 76 65 3a 20 52  |WHEN icn_save: R|
00000a30  45 4d 20 53 61 76 65 20  61 73 20 64 65 66 61 75  |EM Save as defau|
00000a40  6c 74 0a 0a 20 20 20 20  20 20 20 20 50 52 4f 43  |lt..        PROC|
00000a50  73 65 74 5f 6f 70 74 69  6f 6e 73 0a 20 20 20 20  |set_options.    |
00000a60  20 20 20 20 50 52 4f 43  73 61 76 65 5f 6f 70 74  |    PROCsave_opt|
00000a70  69 6f 6e 73 0a 20 20 20  20 20 20 20 20 49 46 20  |ions.        IF |
00000a80  62 75 74 74 6f 6e 25 3d  34 20 54 48 45 4e 20 43  |button%=4 THEN C|
00000a90  4c 4f 53 45 57 49 4e 44  4f 57 28 43 68 61 72 52  |LOSEWINDOW(CharR|
00000aa0  65 70 6c 61 63 65 29 0a  20 20 20 20 20 20 57 48  |eplace).      WH|
00000ab0  45 4e 20 69 63 6e 5f 73  65 74 3a 20 52 45 4d 20  |EN icn_set: REM |
00000ac0  73 65 74 20 66 6f 72 20  74 68 69 73 20 73 65 73  |set for this ses|
00000ad0  73 69 6f 6e 0a 20 20 20  20 20 20 20 20 50 52 4f  |sion.        PRO|
00000ae0  43 73 65 74 5f 6f 70 74  69 6f 6e 73 0a 20 20 20  |Cset_options.   |
00000af0  20 20 20 20 20 49 46 20  62 75 74 74 6f 6e 25 3d  |     IF button%=|
00000b00  34 20 54 48 45 4e 20 43  4c 4f 53 45 57 49 4e 44  |4 THEN CLOSEWIND|
00000b10  4f 57 28 43 68 61 72 52  65 70 6c 61 63 65 29 0a  |OW(CharReplace).|
00000b20  20 20 20 20 20 20 57 48  45 4e 20 69 63 6e 5f 63  |      WHEN icn_c|
00000b30  6c 72 3a 20 50 52 4f 43  63 6c 65 61 72 20 3a 20  |lr: PROCclear : |
00000b40  50 52 4f 43 73 65 74 5f  76 61 6c 75 65 73 0a 20  |PROCset_values. |
00000b50  20 20 20 20 20 20 20 49  46 20 62 75 74 74 6f 6e  |       IF button|
00000b60  25 3d 34 20 54 48 45 4e  20 43 4c 4f 53 45 57 49  |%=4 THEN CLOSEWI|
00000b70  4e 44 4f 57 28 77 69 6e  64 6f 77 25 29 0a 20 20  |NDOW(window%).  |
00000b80  20 20 20 20 57 48 45 4e  20 69 63 6e 5f 63 61 6e  |    WHEN icn_can|
00000b90  3a 20 43 4c 4f 53 45 57  49 4e 44 4f 57 28 77 69  |: CLOSEWINDOW(wi|
00000ba0  6e 64 6f 77 25 29 0a 20  20 20 20 20 20 57 48 45  |ndow%).      WHE|
00000bb0  4e 20 69 63 6e 5f 6d 75  6c 74 3a 20 20 0a 20 20  |N icn_mult:  .  |
00000bc0  20 20 20 20 20 20 21 62  6c 6f 63 6b 25 3d 43 68  |      !block%=Ch|
00000bd0  61 72 52 65 70 6c 61 63  65 0a 20 20 20 20 20 20  |arReplace.      |
00000be0  20 20 53 59 53 20 22 57  69 6d 70 5f 47 65 74 57  |  SYS "Wimp_GetW|
00000bf0  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 62 6c 6f  |indowState",,blo|
00000c00  63 6b 25 0a 20 20 20 20  20 20 20 20 21 62 6c 6f  |ck%.        !blo|
00000c10  63 6b 25 3d 54 65 78 74  54 68 69 6e 67 0a 20 20  |ck%=TextThing.  |
00000c20  20 20 20 20 20 20 53 59  53 20 22 57 69 6d 70 5f  |      SYS "Wimp_|
00000c30  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |OpenWindow",,blo|
00000c40  63 6b 25 0a 20 20 20 20  20 20 20 20 43 4c 4f 53  |ck%.        CLOS|
00000c50  45 57 49 4e 44 4f 57 28  43 68 61 72 52 65 70 6c  |EWINDOW(CharRepl|
00000c60  61 63 65 29 0a 20 20 20  20 45 4e 44 43 41 53 45  |ace).    ENDCASE|
00000c70  0a 20 20 57 48 45 4e 20  71 75 65 72 79 31 0a 20  |.  WHEN query1. |
00000c80  20 20 20 43 41 53 45 20  69 63 6f 6e 25 20 4f 46  |   CASE icon% OF|
00000c90  0a 20 20 20 20 20 20 57  48 45 4e 20 30 3a 20 43  |.      WHEN 0: C|
00000ca0  4c 4f 53 45 57 49 4e 44  4f 57 28 71 75 65 72 79  |LOSEWINDOW(query|
00000cb0  31 29 20 3a 20 50 52 4f  43 6f 70 65 6e 5f 77 69  |1) : PROCopen_wi|
00000cc0  6e 64 6f 77 28 73 61 76  65 61 73 25 2c 20 2d 31  |ndow(saveas%, -1|
00000cd0  35 32 2c 20 34 30 29 0a  20 20 20 20 20 20 57 48  |52, 40).      WH|
00000ce0  45 4e 20 31 3a 20 43 4c  4f 53 45 57 49 4e 44 4f  |EN 1: CLOSEWINDO|
00000cf0  57 28 71 75 65 72 79 31  29 0a 20 20 20 20 45 4e  |W(query1).    EN|
00000d00  44 43 41 53 45 0a 20 20  45 4e 44 43 41 53 45 0a  |DCASE.  ENDCASE.|
00000d10  45 4e 44 50 52 4f 43 0a  a4 0a 0a 64 72 61 67 5f  |ENDPROC....drag_|
00000d20  66 69 6c 65 0a 66 69 6c  65 24 2c 74 79 70 65 25  |file.file$,type%|
00000d30  0a 35 0a 20 20 69 6e 66  69 6c 65 24 3d 66 69 6c  |.5.  infile$=fil|
00000d40  65 24 0a 20 20 6f 6c 64  6c 65 61 66 24 3d 6c 65  |e$.  oldleaf$=le|
00000d50  61 66 24 0a 20 20 6c 65  61 66 24 3d 4c 45 41 46  |af$.  leaf$=LEAF|
00000d60  4e 41 4d 45 28 66 69 6c  65 24 29 0a 20 20 49 46  |NAME(file$).  IF|
00000d70  20 6c 65 61 66 24 3d 6f  6c 64 6c 65 61 66 24 20  | leaf$=oldleaf$ |
00000d80  54 48 45 4e 0a 20 20 20  20 63 6f 75 6e 74 25 2b  |THEN.    count%+|
00000d90  3d 31 0a 20 20 45 4c 53  45 0a 20 20 20 20 63 6f  |=1.  ELSE.    co|
00000da0  75 6e 74 25 3d 30 0a 20  20 45 4e 44 49 46 0a 20  |unt%=0.  ENDIF. |
00000db0  20 74 65 6d 70 24 3d 4c  45 46 54 24 28 6c 65 61  | temp$=LEFT$(lea|
00000dc0  66 24 2c 38 29 2b 53 54  52 24 28 63 6f 75 6e 74  |f$,8)+STR$(count|
00000dd0  25 29 0a 20 20 53 45 54  49 43 4f 4e 28 73 61 76  |%).  SETICON(sav|
00000de0  65 61 73 25 2c 20 31 2c  20 74 65 6d 70 24 29 20  |eas%, 1, temp$) |
00000df0  0a 20 20 43 41 53 45 20  74 79 70 65 25 20 4f 46  |.  CASE type% OF|
00000e00  0a 0a 20 20 57 48 45 4e  20 26 46 46 46 2c 20 26  |..  WHEN &FFF, &|
00000e10  46 46 44 2c 20 26 46 45  34 2c 20 26 34 31 38 20  |FFD, &FE4, &418 |
00000e20  3a 20 50 52 4f 43 6f 70  65 6e 5f 77 69 6e 64 6f  |: PROCopen_windo|
00000e30  77 28 73 61 76 65 61 73  25 2c 20 2d 31 35 32 2c  |w(saveas%, -152,|
00000e40  20 34 30 29 20 3a 20 52  45 4d 20 54 65 78 74 0a  | 40) : REM Text.|
00000e50  20 20 57 48 45 4e 20 26  31 30 30 30 20 3a 20 6d  |  WHEN &1000 : m|
00000e60  73 67 24 3d 6c 65 61 66  24 20 2b 20 22 20 69 73  |sg$=leaf$ + " is|
00000e70  20 61 20 64 69 72 65 63  74 6f 72 79 20 61 6e 64  | a directory and|
00000e80  20 63 61 6e 6e 6f 74 20  62 65 20 63 6f 6e 76 65  | cannot be conve|
00000e90  72 74 65 64 22 0a 20 20  20 20 57 41 52 4e 49 4e  |rted".    WARNIN|
00000ea0  47 28 6d 73 67 24 2c 20  22 54 65 78 74 54 68 69  |G(msg$, "TextThi|
00000eb0  6e 67 22 29 0a 20 20 57  48 45 4e 20 26 32 30 30  |ng").  WHEN &200|
00000ec0  30 20 3a 20 6d 73 67 24  3d 6c 65 61 66 24 20 2b  |0 : msg$=leaf$ +|
00000ed0  20 22 20 69 73 20 61 6e  20 61 70 70 6c 69 63 61  | " is an applica|
00000ee0  74 69 6f 6e 20 61 6e 64  20 63 61 6e 6e 6f 74 20  |tion and cannot |
00000ef0  62 65 20 63 6f 6e 76 65  72 74 65 64 22 0a 20 20  |be converted".  |
00000f00  20 20 57 41 52 4e 49 4e  47 28 6d 73 67 24 2c 20  |  WARNING(msg$, |
00000f10  22 54 65 78 74 54 68 69  6e 67 22 29 0a 20 20 4f  |"TextThing").  O|
00000f20  54 48 45 52 57 49 53 45  0a 20 20 20 20 4f 50 45  |THERWISE.    OPE|
00000f30  4e 44 49 41 4c 4f 47 55  45 28 71 75 65 72 79 31  |NDIALOGUE(query1|
00000f40  2c 20 33 36 39 2c 20 33  33 36 29 0a 20 20 45 4e  |, 369, 336).  EN|
00000f50  44 43 41 53 45 20 0a 45  4e 44 50 52 4f 43 0a a4  |DCASE .ENDPROC..|
00000f60  0a 0a 6f 70 65 6e 5f 77  69 6e 64 6f 77 0a 68 61  |..open_window.ha|
00000f70  6e 64 6c 65 25 2c 20 78  5f 6f 66 66 73 65 74 25  |ndle%, x_offset%|
00000f80  2c 20 79 5f 6f 66 66 73  65 74 25 0a 30 0a 4c 4f  |, y_offset%.0.LO|
00000f90  43 41 4c 20 6d 78 25 2c  20 6d 79 25 2c 20 6d 62  |CAL mx%, my%, mb|
00000fa0  25 2c 20 77 69 6e 25 2c  20 69 63 6f 6e 25 0a 4d  |%, win%, icon%.M|
00000fb0  4f 55 53 45 28 6d 78 25  2c 20 6d 79 25 2c 20 6d  |OUSE(mx%, my%, m|
00000fc0  62 25 2c 20 77 69 6e 25  2c 20 69 63 6f 6e 25 29  |b%, win%, icon%)|
00000fd0  0a 4d 4f 56 45 57 49 4e  44 4f 57 28 68 61 6e 64  |.MOVEWINDOW(hand|
00000fe0  6c 65 25 2c 20 6d 78 25  2b 78 5f 6f 66 66 73 65  |le%, mx%+x_offse|
00000ff0  74 25 2c 20 6d 79 25 2b  79 5f 6f 66 66 73 65 74  |t%, my%+y_offset|
00001000  25 29 0a 4f 50 45 4e 57  49 4e 44 4f 57 28 68 61  |%).OPENWINDOW(ha|
00001010  6e 64 6c 65 25 29 0a 45  4e 44 50 52 4f 43 0a a4  |ndle%).ENDPROC..|
00001020  0a 0a 73 65 74 5f 76 61  6c 75 65 73 0a 2a 2a 2a  |..set_values.***|
00001030  0a 30 0a 20 20 4c 4f 43  41 4c 20 69 0a 20 0a 20  |.0.  LOCAL i. . |
00001040  20 53 45 54 53 54 41 54  45 28 54 65 78 74 54 68  | SETSTATE(TextTh|
00001050  69 6e 67 2c 20 69 63 6e  5f 73 74 72 69 70 5f 74  |ing, icn_strip_t|
00001060  6f 70 2c 20 69 63 6e 5f  73 74 72 69 70 5f 74 6f  |op, icn_strip_to|
00001070  70 25 29 0a 20 20 53 45  54 53 54 41 54 45 28 54  |p%).  SETSTATE(T|
00001080  65 78 74 54 68 69 6e 67  2c 20 69 63 6e 5f 73 74  |extThing, icn_st|
00001090  72 69 70 5f 63 6f 6e 2c  20 69 63 6e 5f 73 74 72  |rip_con, icn_str|
000010a0  69 70 5f 63 6f 6e 25 29  0a 20 20 53 45 54 53 54  |ip_con%).  SETST|
000010b0  41 54 45 28 54 65 78 74  54 68 69 6e 67 2c 20 69  |ATE(TextThing, i|
000010c0  63 6e 5f 72 65 70 5f 74  61 62 2c 20 69 63 6e 5f  |cn_rep_tab, icn_|
000010d0  72 65 70 5f 74 61 62 25  29 0a 20 20 53 45 54 49  |rep_tab%).  SETI|
000010e0  43 4f 4e 28 54 65 78 74  54 68 69 6e 67 2c 20 69  |CON(TextThing, i|
000010f0  63 6e 5f 72 65 70 5f 74  61 62 5f 6e 6f 2c 20 53  |cn_rep_tab_no, S|
00001100  54 52 24 28 69 63 6e 5f  72 65 70 5f 74 61 62 5f  |TR$(icn_rep_tab_|
00001110  6e 6f 25 29 29 0a 20 20  69 63 6e 5f 72 65 70 5f  |no%)).  icn_rep_|
00001120  74 61 62 24 3d 53 54 52  49 4e 47 24 28 69 63 6e  |tab$=STRING$(icn|
00001130  5f 72 65 70 5f 74 61 62  5f 6e 6f 25 2c 20 22 20  |_rep_tab_no%, " |
00001140  22 29 0a 20 20 53 45 54  53 54 41 54 45 28 54 65  |").  SETSTATE(Te|
00001150  78 74 54 68 69 6e 67 2c  20 69 63 6e 5f 72 65 70  |xtThing, icn_rep|
00001160  5f 6c 66 2c 20 69 63 6e  5f 72 65 70 5f 6c 66 25  |_lf, icn_rep_lf%|
00001170  29 0a 20 20 53 45 54 53  54 41 54 45 28 54 65 78  |).  SETSTATE(Tex|
00001180  74 54 68 69 6e 67 2c 20  69 63 6e 5f 72 65 70 5f  |tThing, icn_rep_|
00001190  6c 66 20 2b 20 69 63 6e  5f 72 65 70 5f 6c 66 5f  |lf + icn_rep_lf_|
000011a0  73 65 74 25 2c 20 31 29  0a 20 20 43 41 53 45 20  |set%, 1).  CASE |
000011b0  69 63 6e 5f 72 65 70 5f  6c 66 5f 73 65 74 25 20  |icn_rep_lf_set% |
000011c0  4f 46 0a 20 20 20 20 57  48 45 4e 20 31 20 3a 20  |OF.    WHEN 1 : |
000011d0  69 63 6e 5f 72 65 70 5f  6c 66 24 3d 63 72 24 0a  |icn_rep_lf$=cr$.|
000011e0  20 20 20 20 57 48 45 4e  20 32 20 3a 20 69 63 6e  |    WHEN 2 : icn|
000011f0  5f 72 65 70 5f 6c 66 24  3d 6c 66 24 0a 20 20 20  |_rep_lf$=lf$.   |
00001200  20 57 48 45 4e 20 33 20  3a 20 69 63 6e 5f 72 65  | WHEN 3 : icn_re|
00001210  70 5f 6c 66 24 3d 63 72  6c 66 24 0a 20 20 20 20  |p_lf$=crlf$.    |
00001220  57 48 45 4e 20 34 20 3a  20 69 63 6e 5f 72 65 70  |WHEN 4 : icn_rep|
00001230  5f 6c 66 24 3d 6c 66 63  72 24 0a 20 20 4f 54 48  |_lf$=lfcr$.  OTH|
00001240  45 52 57 49 53 45 0a 20  20 20 20 69 63 6e 5f 72  |ERWISE.    icn_r|
00001250  65 70 5f 6c 66 24 3d 22  3c 6e 65 77 6c 69 6e 65  |ep_lf$="<newline|
00001260  3e 22 0a 20 20 45 4e 44  43 41 53 45 0a 20 20 53  |>".  ENDCASE.  S|
00001270  45 54 53 54 41 54 45 28  54 65 78 74 54 68 69 6e  |ETSTATE(TextThin|
00001280  67 2c 20 69 63 6e 5f 72  65 70 5f 71 75 2c 20 69  |g, icn_rep_qu, i|
00001290  63 6e 5f 72 65 70 5f 71  75 25 29 0a 20 20 53 45  |cn_rep_qu%).  SE|
000012a0  54 49 43 4f 4e 28 54 65  78 74 54 68 69 6e 67 2c  |TICON(TextThing,|
000012b0  20 69 63 6e 5f 72 65 70  5f 71 75 31 2c 20 69 63  | icn_rep_qu1, ic|
000012c0  6e 5f 72 65 70 5f 71 75  24 29 0a 20 20 53 45 54  |n_rep_qu$).  SET|
000012d0  53 54 41 54 45 28 54 65  78 74 54 68 69 6e 67 2c  |STATE(TextThing,|
000012e0  20 69 63 6e 5f 72 65 70  5f 64 71 75 2c 20 69 63  | icn_rep_dqu, ic|
000012f0  6e 5f 72 65 70 5f 64 71  75 25 29 0a 20 20 53 45  |n_rep_dqu%).  SE|
00001300  54 49 43 4f 4e 28 54 65  78 74 54 68 69 6e 67 2c  |TICON(TextThing,|
00001310  20 69 63 6e 5f 72 65 70  5f 64 71 75 31 2c 20 69  | icn_rep_dqu1, i|
00001320  63 6e 5f 72 65 70 5f 64  71 75 24 29 0a 20 20 53  |cn_rep_dqu$).  S|
00001330  45 54 53 54 41 54 45 28  54 65 78 74 54 68 69 6e  |ETSTATE(TextThin|
00001340  67 2c 20 69 63 6e 5f 63  61 73 65 2c 20 69 63 6e  |g, icn_case, icn|
00001350  5f 63 61 73 65 25 29 0a  20 20 53 45 54 53 54 41  |_case%).  SETSTA|
00001360  54 45 28 54 65 78 74 54  68 69 6e 67 2c 20 69 63  |TE(TextThing, ic|
00001370  6e 5f 63 61 73 65 20 2b  20 69 63 6e 5f 63 61 73  |n_case + icn_cas|
00001380  65 5f 73 65 74 25 2c 20  31 29 0a 20 0a 20 20 64  |e_set%, 1). .  d|
00001390  69 73 70 6c 61 79 24 3d  22 20 22 20 3a 20 76 61  |isplay$=" " : va|
000013a0  6c 75 65 25 3d 30 0a 20  20 0a 20 20 46 4f 52 20  |lue%=0.  .  FOR |
000013b0  69 3d 30 20 54 4f 20 31  31 0a 20 20 20 20 53 45  |i=0 TO 11.    SE|
000013c0  54 49 43 4f 4e 28 43 68  61 72 52 65 70 6c 61 63  |TICON(CharReplac|
000013d0  65 2c 20 69 63 6e 5f 72  65 70 30 20 2b 20 69 2a  |e, icn_rep0 + i*|
000013e0  34 2c 20 69 63 6e 5f 72  65 70 5f 72 24 28 69 29  |4, icn_rep_r$(i)|
000013f0  29 0a 20 20 20 20 50 52  4f 43 76 61 6c 75 65 28  |).    PROCvalue(|
00001400  69 63 6e 5f 72 65 70 5f  72 24 28 69 29 2c 20 64  |icn_rep_r$(i), d|
00001410  69 73 70 6c 61 79 24 2c  20 76 61 6c 75 65 25 29  |isplay$, value%)|
00001420  0a 20 20 20 20 53 45 54  49 43 4f 4e 28 43 68 61  |.    SETICON(Cha|
00001430  72 52 65 70 6c 61 63 65  2c 20 69 63 6e 5f 72 65  |rReplace, icn_re|
00001440  70 31 20 2b 20 69 2a 34  2c 20 64 69 73 70 6c 61  |p1 + i*4, displa|
00001450  79 24 29 20 20 20 20 0a  20 20 20 20 53 45 54 49  |y$)    .    SETI|
00001460  43 4f 4e 28 43 68 61 72  52 65 70 6c 61 63 65 2c  |CON(CharReplace,|
00001470  20 69 63 6e 5f 72 65 70  32 20 2b 20 69 2a 34 2c  | icn_rep2 + i*4,|
00001480  20 69 63 6e 5f 72 65 70  5f 77 24 28 69 29 29 0a  | icn_rep_w$(i)).|
00001490  20 20 20 20 50 52 4f 43  76 61 6c 75 65 28 69 63  |    PROCvalue(ic|
000014a0  6e 5f 72 65 70 5f 77 24  28 69 29 2c 20 64 69 73  |n_rep_w$(i), dis|
000014b0  70 6c 61 79 24 2c 20 76  61 6c 75 65 25 29 0a 20  |play$, value%). |
000014c0  20 20 20 53 45 54 49 43  4f 4e 28 43 68 61 72 52  |   SETICON(CharR|
000014d0  65 70 6c 61 63 65 2c 20  69 63 6e 5f 72 65 70 33  |eplace, icn_rep3|
000014e0  20 2b 20 69 2a 34 2c 20  64 69 73 70 6c 61 79 24  | + i*4, display$|
000014f0  29 20 0a 20 20 4e 45 58  54 0a 20 20 0a 20 20 50  |) .  NEXT.  .  P|
00001500  52 4f 43 73 65 74 5f 6f  70 74 69 6f 6e 73 20 20  |ROCset_options  |
00001510  0a 45 4e 44 50 52 4f 43  0a a4 0a 0a 63 6f 6e 76  |.ENDPROC....conv|
00001520  65 72 74 5f 66 69 6c 65  0a 66 69 6c 65 24 0a 39  |ert_file.file$.9|
00001530  0a 20 20 4f 4e 20 45 52  52 4f 52 20 4c 4f 43 41  |.  ON ERROR LOCA|
00001540  4c 3a 20 43 4c 4f 53 45  23 69 6e 25 20 3a 20 43  |L: CLOSE#in% : C|
00001550  4c 4f 53 45 23 6f 75 74  25 20 3a 20 45 4e 44 50  |LOSE#out% : ENDP|
00001560  52 4f 43 0a 20 20 66 6c  61 67 25 3d 30 0a 20 20  |ROC.  flag%=0.  |
00001570  48 4f 55 52 4f 4e 0a 20  0a 20 20 69 6e 25 3d 4f  |HOURON. .  in%=O|
00001580  50 45 4e 49 4e 28 69 6e  66 69 6c 65 24 29 0a 20  |PENIN(infile$). |
00001590  20 6f 75 74 25 3d 4f 50  45 4e 4f 55 54 28 66 69  | out%=OPENOUT(fi|
000015a0  6c 65 24 29 0a 0a 20 20  57 48 49 4c 45 20 4e 4f  |le$)..  WHILE NO|
000015b0  54 20 45 4f 46 23 28 69  6e 25 29 0a 20 20 20 20  |T EOF#(in%).    |
000015c0  69 6e 63 68 61 72 25 3d  42 47 45 54 23 69 6e 25  |inchar%=BGET#in%|
000015d0  0a 0a 20 20 20 20 69 6e  63 68 61 72 25 3d 63 68  |..    inchar%=ch|
000015e0  61 72 73 25 3f 69 6e 63  68 61 72 25 0a 20 20 20  |ars%?inchar%.   |
000015f0  20 49 46 20 69 6e 63 68  61 72 25 3c 3e 32 20 54  | IF inchar%<>2 T|
00001600  48 45 4e 20 66 6c 61 67  25 3d 30 0a 20 20 20 0a  |HEN flag%=0.   .|
00001610  20 20 20 20 49 46 20 69  6e 63 68 61 72 25 3e 38  |    IF inchar%>8|
00001620  20 54 48 45 4e 0a 20 20  20 20 20 20 42 50 55 54  | THEN.      BPUT|
00001630  23 6f 75 74 25 2c 20 69  6e 63 68 61 72 25 0a 20  |#out%, inchar%. |
00001640  20 20 20 45 4c 53 45 0a  20 20 20 20 20 20 43 41  |   ELSE.      CA|
00001650  53 45 20 69 6e 63 68 61  72 25 20 4f 46 0a 20 20  |SE inchar% OF.  |
00001660  20 20 20 20 20 20 57 48  45 4e 20 30 3a 20 0a 20  |      WHEN 0: . |
00001670  20 20 20 20 20 20 20 57  48 45 4e 20 31 3a 20 42  |       WHEN 1: B|
00001680  50 55 54 23 6f 75 74 25  2c 20 69 63 6e 5f 72 65  |PUT#out%, icn_re|
00001690  70 5f 74 61 62 24 3b 0a  20 20 20 20 20 20 20 20  |p_tab$;.        |
000016a0  57 48 45 4e 20 32 3a 0a  20 20 20 20 20 20 20 20  |WHEN 2:.        |
000016b0  20 20 49 46 20 66 6c 61  67 25 3d 30 20 54 48 45  |  IF flag%=0 THE|
000016c0  4e 0a 20 20 20 20 20 20  20 20 20 20 20 20 42 50  |N.            BP|
000016d0  55 54 23 6f 75 74 25 2c  20 69 63 6e 5f 72 65 70  |UT#out%, icn_rep|
000016e0  5f 6c 66 24 3b 0a 20 20  20 20 20 20 20 20 20 20  |_lf$;.          |
000016f0  20 20 66 6c 61 67 25 3d  31 0a 20 20 20 20 20 20  |  flag%=1.      |
00001700  20 20 20 20 45 4e 44 49  46 0a 20 20 20 20 20 20  |    ENDIF.      |
00001710  20 20 57 48 45 4e 20 33  3a 20 42 50 55 54 23 6f  |  WHEN 3: BPUT#o|
00001720  75 74 25 2c 20 69 63 6e  5f 72 65 70 5f 71 75 24  |ut%, icn_rep_qu$|
00001730  3b 0a 20 20 20 20 20 20  20 20 57 48 45 4e 20 34  |;.        WHEN 4|
00001740  3a 20 42 50 55 54 23 6f  75 74 25 2c 20 69 63 6e  |: BPUT#out%, icn|
00001750  5f 72 65 70 5f 64 71 75  24 3b 0a 20 20 20 20 20  |_rep_dqu$;.     |
00001760  20 4f 54 48 45 52 57 49  53 45 0a 20 20 20 20 20  | OTHERWISE.     |
00001770  20 20 20 57 41 52 4e 49  4e 47 28 22 54 68 69 73  |   WARNING("This|
00001780  20 69 73 20 61 20 62 69  74 20 6f 66 20 61 20 62  | is a bit of a b|
00001790  75 67 67 65 72 22 2c 20  53 54 52 24 28 69 6e 63  |ugger", STR$(inc|
000017a0  68 61 72 25 29 29 0a 20  20 20 20 20 20 45 4e 44  |har%)).      END|
000017b0  43 41 53 45 0a 20 20 20  20 45 4e 44 49 46 0a 0a  |CASE.    ENDIF..|
000017c0  20 20 45 4e 44 57 48 49  4c 45 0a 0a 20 20 43 4c  |  ENDWHILE..  CL|
000017d0  4f 53 45 23 69 6e 25 0a  20 20 43 4c 4f 53 45 23  |OSE#in%.  CLOSE#|
000017e0  6f 75 74 25 0a 20 20 53  59 53 20 22 58 4f 53 5f  |out%.  SYS "XOS_|
000017f0  43 4c 49 22 2c 22 53 65  74 74 79 70 65 20 22 2b  |CLI","Settype "+|
00001800  66 69 6c 65 24 2b 22 20  46 46 46 22 0a 20 20 48  |file$+" FFF".  H|
00001810  4f 55 52 4f 46 46 20 0a  45 4e 44 50 52 4f 43 0a  |OUROFF .ENDPROC.|
00001820  a4 0a 0a 46 4e 72 65 61  64 5f 73 79 73 76 61 72  |...FNread_sysvar|
00001830  0a 24 6e 61 6d 65 25 0a  30 0a 53 59 53 20 22 58  |.$name%.0.SYS "X|
00001840  4f 53 5f 52 65 61 64 56  61 72 56 61 6c 22 2c 6e  |OS_ReadVarVal",n|
00001850  61 6d 65 25 2c 72 65 73  75 6c 74 25 2c 31 30 30  |ame%,result%,100|
00001860  2c 2c 33 20 54 4f 20 2c  2c 64 6c 65 6e 25 0a 72  |,,3 TO ,,dlen%.r|
00001870  65 73 75 6c 74 25 3f 28  64 6c 65 6e 25 29 3d 31  |esult%?(dlen%)=1|
00001880  33 0a 3d 24 72 65 73 75  6c 74 25 20 0a 0a a4 0a  |3.=$result% ....|
00001890  0a 73 74 61 72 74 5f 75  70 0a 2a 2a 2a 0a 31 0a  |.start_up.***.1.|
000018a0  20 20 44 49 4d 20 62 6c  6f 63 6b 25 20 34 34 0a  |  DIM block% 44.|
000018b0  20 20 44 49 4d 20 63 68  61 72 73 25 20 32 35 36  |  DIM chars% 256|
000018c0  0a 20 20 44 49 4d 20 73  6d 5f 71 75 25 28 34 29  |.  DIM sm_qu%(4)|
000018d0  0a 20 20 44 49 4d 20 69  63 6e 5f 72 65 70 5f 72  |.  DIM icn_rep_r|
000018e0  24 28 31 32 29 0a 20 20  44 49 4d 20 69 63 6e 5f  |$(12).  DIM icn_|
000018f0  72 65 70 5f 77 24 28 31  32 29 0a 52 45 4d 20 49  |rep_w$(12).REM I|
00001900  63 6f 6e 20 64 65 66 69  6e 69 74 69 6f 6e 73 20  |con definitions |
00001910  2d 20 6d 75 6c 74 69 70  6c 65 20 63 68 61 72 20  |- multiple char |
00001920  77 69 6e 64 6f 77 0a 20  20 69 63 6e 5f 73 61 76  |window.  icn_sav|
00001930  65 3d 30 3a 20 69 63 6e  5f 73 65 74 3d 31 3a 20  |e=0: icn_set=1: |
00001940  69 63 6e 5f 63 6c 72 3d  32 3a 20 69 63 6e 5f 63  |icn_clr=2: icn_c|
00001950  61 6e 3d 33 0a 20 20 69  63 6e 5f 6d 75 6c 74 3d  |an=3.  icn_mult=|
00001960  35 3a 20 69 63 6e 5f 73  69 6e 67 3d 36 0a 20 20  |5: icn_sing=6.  |
00001970  69 63 6e 5f 73 74 72 69  70 5f 74 6f 70 3d 37 3a  |icn_strip_top=7:|
00001980  20 69 63 6e 5f 73 74 72  69 70 5f 63 6f 6e 3d 38  | icn_strip_con=8|
00001990  0a 20 20 69 63 6e 5f 72  65 70 5f 74 61 62 3d 39  |.  icn_rep_tab=9|
000019a0  3a 20 69 63 6e 5f 72 65  70 5f 74 61 62 5f 6e 6f  |: icn_rep_tab_no|
000019b0  3d 31 30 3a 69 63 6e 5f  72 65 70 5f 74 61 62 5f  |=10:icn_rep_tab_|
000019c0  64 77 6e 3d 31 31 3a 20  69 63 6e 5f 72 65 70 5f  |dwn=11: icn_rep_|
000019d0  74 61 62 5f 75 70 3d 31  32 0a 20 20 69 63 6e 5f  |tab_up=12.  icn_|
000019e0  72 65 70 5f 6c 66 3d 31  33 3a 20 69 63 6e 5f 72  |rep_lf=13: icn_r|
000019f0  65 70 5f 6c 66 5f 63 72  3d 31 34 3a 20 69 63 6e  |ep_lf_cr=14: icn|
00001a00  5f 72 65 70 5f 6c 66 5f  6c 66 3d 31 35 3a 20 69  |_rep_lf_lf=15: i|
00001a10  63 6e 5f 72 65 70 5f 6c  66 5f 63 72 6c 66 3d 31  |cn_rep_lf_crlf=1|
00001a20  36 3a 20 69 63 6e 5f 72  65 70 5f 6c 66 5f 6c 66  |6: icn_rep_lf_lf|
00001a30  63 72 3d 31 37 0a 20 20  69 63 6e 5f 72 65 70 5f  |cr=17.  icn_rep_|
00001a40  71 75 3d 31 38 3a 20 69  63 6e 5f 72 65 70 5f 71  |qu=18: icn_rep_q|
00001a50  75 31 3d 31 39 0a 20 20  69 63 6e 5f 72 65 70 5f  |u1=19.  icn_rep_|
00001a60  64 71 75 3d 32 30 3a 20  69 63 6e 5f 72 65 70 5f  |dqu=20: icn_rep_|
00001a70  64 71 75 31 3d 32 31 0a  20 20 69 63 6e 5f 63 61  |dqu1=21.  icn_ca|
00001a80  73 65 3d 32 32 3a 20 69  63 6e 5f 63 61 73 65 5f  |se=22: icn_case_|
00001a90  75 3d 32 33 20 3a 20 69  63 6e 5f 63 61 73 65 5f  |u=23 : icn_case_|
00001aa0  6c 3d 32 34 0a 0a 52 45  4d 20 73 69 6e 67 6c 65  |l=24..REM single|
00001ab0  20 63 68 61 72 20 77 69  6e 64 6f 77 0a 69 63 6e  | char window.icn|
00001ac0  5f 72 65 70 30 3d 31 31  3a 20 69 63 6e 5f 72 65  |_rep0=11: icn_re|
00001ad0  70 31 3d 31 32 3a 20 69  63 6e 5f 72 65 70 32 3d  |p1=12: icn_rep2=|
00001ae0  31 33 3a 20 69 63 6e 5f  72 65 70 33 3d 31 34 0a  |13: icn_rep3=14.|
00001af0  0a 52 45 4d 20 47 6c 6f  62 61 6c 20 76 61 72 69  |.REM Global vari|
00001b00  61 62 6c 65 73 0a 20 20  74 61 62 25 3d 39 0a 20  |ables.  tab%=9. |
00001b10  20 6c 66 25 3d 31 30 0a  20 20 63 72 25 3d 31 33  | lf%=10.  cr%=13|
00001b20  0a 20 20 6c 66 24 3d 43  48 52 24 28 6c 66 25 29  |.  lf$=CHR$(lf%)|
00001b30  0a 20 20 63 72 24 3d 43  48 52 24 28 63 72 25 29  |.  cr$=CHR$(cr%)|
00001b40  0a 20 20 63 72 6c 66 24  3d 63 72 24 2b 6c 66 24  |.  crlf$=cr$+lf$|
00001b50  0a 20 20 6c 66 63 72 24  3d 6c 66 24 2b 63 72 24  |.  lfcr$=lf$+cr$|
00001b60  0a 20 20 73 70 61 63 65  25 3d 33 32 0a 20 20 71  |.  space%=32.  q|
00001b70  75 6f 74 65 25 3d 33 34  0a 20 20 71 75 6f 74 65  |uote%=34.  quote|
00001b80  24 3d 43 48 52 24 28 71  75 6f 74 65 25 29 0a 20  |$=CHR$(quote%). |
00001b90  20 73 6d 5f 71 75 25 28  30 29 3d 31 34 34 0a 20  | sm_qu%(0)=144. |
00001ba0  20 73 6d 5f 71 75 25 28  31 29 3d 31 34 35 0a 20  | sm_qu%(1)=145. |
00001bb0  20 73 6d 5f 71 75 25 28  32 29 3d 31 34 38 0a 20  | sm_qu%(2)=148. |
00001bc0  20 73 6d 5f 71 75 25 28  33 29 3d 31 34 39 0a 20  | sm_qu%(3)=149. |
00001bd0  20 63 6f 75 6e 74 25 3d  30 0a 20 20 6c 65 61 66  | count%=0.  leaf|
00001be0  24 3d 22 20 20 20 20 20  20 20 20 20 20 22 0a 20  |$="          ". |
00001bf0  20 6e 61 6d 65 24 3d 22  54 65 78 74 54 68 69 6e  | name$="TextThin|
00001c00  67 22 0a 20 20 76 65 72  73 69 6f 6e 24 3d 22 30  |g".  version$="0|
00001c10  2e 30 33 20 28 32 38 20  46 65 62 72 75 61 72 79  |.03 (28 February|
00001c20  20 31 39 39 38 29 22 0a  0a 20 20 53 45 54 49 43  | 1998)"..  SETIC|
00001c30  4f 4e 28 69 6e 66 6f 62  6f 78 25 2c 20 37 2c 20  |ON(infobox%, 7, |
00001c40  76 65 72 73 69 6f 6e 24  29 0a 0a 20 20 52 45 4d  |version$)..  REM|
00001c50  20 4f 4e 20 45 52 52 4f  52 20 4c 4f 43 41 4c 3a  | ON ERROR LOCAL:|
00001c60  20 43 4c 4f 53 45 23 69  6e 25 20 3a 20 20 50 52  | CLOSE#in% :  PR|
00001c70  4f 43 73 65 74 5f 64 65  66 61 75 6c 74 73 3a 20  |OCset_defaults: |
00001c80  50 52 4f 43 73 65 74 5f  76 61 6c 75 65 73 20 3a  |PROCset_values :|
00001c90  20 45 4e 44 50 52 4f 43  0a 20 20 69 6e 25 3d 4f  | ENDPROC.  in%=O|
00001ca0  50 45 4e 49 4e 28 74 61  73 6b 64 69 72 24 2b 22  |PENIN(taskdir$+"|
00001cb0  2e 4f 70 74 69 6f 6e 73  22 29 0a 20 20 0a 20 20  |.Options").  .  |
00001cc0  49 4e 50 55 54 23 69 6e  25 2c 20 6e 61 6d 65 24  |INPUT#in%, name$|
00001cd0  0a 20 20 0a 20 20 49 46  20 6e 61 6d 65 24 3d 22  |.  .  IF name$="|
00001ce0  54 65 78 74 54 68 69 6e  67 22 20 54 48 45 4e 0a  |TextThing" THEN.|
00001cf0  20 20 20 20 49 4e 50 55  54 23 69 6e 25 2c 20 69  |    INPUT#in%, i|
00001d00  63 6e 5f 73 74 72 69 70  5f 74 6f 70 25 0a 20 20  |cn_strip_top%.  |
00001d10  20 20 49 4e 50 55 54 23  69 6e 25 2c 20 69 63 6e  |  INPUT#in%, icn|
00001d20  5f 73 74 72 69 70 5f 63  6f 6e 25 0a 20 20 20 20  |_strip_con%.    |
00001d30  49 4e 50 55 54 23 69 6e  25 2c 20 69 63 6e 5f 72  |INPUT#in%, icn_r|
00001d40  65 70 5f 74 61 62 25 0a  20 20 20 20 49 4e 50 55  |ep_tab%.    INPU|
00001d50  54 23 69 6e 25 2c 20 69  63 6e 5f 72 65 70 5f 74  |T#in%, icn_rep_t|
00001d60  61 62 5f 6e 6f 25 0a 20  20 20 20 49 4e 50 55 54  |ab_no%.    INPUT|
00001d70  23 69 6e 25 2c 20 69 63  6e 5f 72 65 70 5f 6c 66  |#in%, icn_rep_lf|
00001d80  25 0a 20 20 20 20 49 4e  50 55 54 23 69 6e 25 2c  |%.    INPUT#in%,|
00001d90  20 69 63 6e 5f 72 65 70  5f 6c 66 5f 73 65 74 25  | icn_rep_lf_set%|
00001da0  0a 20 20 20 20 49 4e 50  55 54 23 69 6e 25 2c 20  |.    INPUT#in%, |
00001db0  69 63 6e 5f 72 65 70 5f  71 75 25 0a 20 20 20 20  |icn_rep_qu%.    |
00001dc0  49 4e 50 55 54 23 69 6e  25 2c 20 69 63 6e 5f 72  |INPUT#in%, icn_r|
00001dd0  65 70 5f 71 75 24 0a 20  20 20 20 49 4e 50 55 54  |ep_qu$.    INPUT|
00001de0  23 69 6e 25 2c 20 69 63  6e 5f 72 65 70 5f 64 71  |#in%, icn_rep_dq|
00001df0  75 25 0a 20 20 20 20 49  4e 50 55 54 23 69 6e 25  |u%.    INPUT#in%|
00001e00  2c 20 69 63 6e 5f 72 65  70 5f 64 71 75 24 0a 20  |, icn_rep_dqu$. |
00001e10  20 20 20 49 4e 50 55 54  23 69 6e 25 2c 20 69 63  |   INPUT#in%, ic|
00001e20  6e 5f 63 61 73 65 25 0a  20 20 20 20 49 4e 50 55  |n_case%.    INPU|
00001e30  54 23 69 6e 25 2c 20 69  63 6e 5f 63 61 73 65 5f  |T#in%, icn_case_|
00001e40  73 65 74 25 0a 20 20 20  20 46 4f 52 20 69 3d 30  |set%.    FOR i=0|
00001e50  20 54 4f 20 31 31 0a 20  20 20 20 20 20 49 4e 50  | TO 11.      INP|
00001e60  55 54 23 69 6e 25 2c 20  69 63 6e 5f 72 65 70 5f  |UT#in%, icn_rep_|
00001e70  72 24 28 69 29 0a 20 20  20 20 20 20 49 4e 50 55  |r$(i).      INPU|
00001e80  54 23 69 6e 25 2c 20 69  63 6e 5f 72 65 70 5f 77  |T#in%, icn_rep_w|
00001e90  24 28 69 29 0a 20 20 20  20 4e 45 58 54 0a 20 20  |$(i).    NEXT.  |
00001ea0  45 4e 44 49 46 0a 20 20  43 4c 4f 53 45 23 69 6e  |ENDIF.  CLOSE#in|
00001eb0  25 0a 0a 20 20 52 45 4d  20 4e 6f 77 20 73 65 74  |%..  REM Now set|
00001ec0  20 74 68 65 20 76 61 6c  75 65 73 20 69 6e 20 74  | the values in t|
00001ed0  68 65 20 64 69 61 6c 6f  67 75 65 20 62 6f 78 0a  |he dialogue box.|
00001ee0  20 20 50 52 4f 43 73 65  74 5f 76 61 6c 75 65 73  |  PROCset_values|
00001ef0  0a 45 4e 44 50 52 4f 43  0a a4 0a 0a 73 65 74 5f  |.ENDPROC....set_|
00001f00  6f 70 74 69 6f 6e 73 0a  2a 2a 2a 0a 30 0a 20 20  |options.***.0.  |
00001f10  4c 4f 43 41 4c 20 69 2c  20 63 25 2c 20 74 65 6d  |LOCAL i, c%, tem|
00001f20  70 24 0a 20 20 74 65 6d  70 24 3d 22 22 0a 20 20  |p$.  temp$="".  |
00001f30  46 4f 52 20 69 3d 30 20  54 4f 20 32 35 35 0a 20  |FOR i=0 TO 255. |
00001f40  20 20 20 63 68 61 72 73  25 3f 69 3d 69 0a 20 20  |   chars%?i=i.  |
00001f50  4e 45 58 54 0a 20 20 46  4f 52 20 69 3d 31 20 54  |NEXT.  FOR i=1 T|
00001f60  4f 20 38 0a 20 20 20 20  63 68 61 72 73 25 3f 69  |O 8.    chars%?i|
00001f70  3d 30 0a 20 20 4e 45 58  54 0a 20 20 69 63 6e 5f  |=0.  NEXT.  icn_|
00001f80  73 74 72 69 70 5f 74 6f  70 25 3d 52 45 41 44 53  |strip_top%=READS|
00001f90  54 41 54 45 28 54 65 78  74 54 68 69 6e 67 2c 20  |TATE(TextThing, |
00001fa0  69 63 6e 5f 73 74 72 69  70 5f 74 6f 70 29 0a 20  |icn_strip_top). |
00001fb0  20 49 46 20 69 63 6e 5f  73 74 72 69 70 5f 74 6f  | IF icn_strip_to|
00001fc0  70 25 3d 54 52 55 45 20  54 48 45 4e 0a 20 20 20  |p%=TRUE THEN.   |
00001fd0  20 46 4f 52 20 69 3d 31  32 38 20 54 4f 20 32 35  | FOR i=128 TO 25|
00001fe0  36 0a 20 20 20 20 20 20  63 68 61 72 73 25 3f 69  |6.      chars%?i|
00001ff0  3d 30 0a 20 20 20 20 4e  45 58 54 0a 20 20 20 20  |=0.    NEXT.    |
00002000  63 68 61 72 73 25 3f 31  34 34 3d 31 34 34 0a 20  |chars%?144=144. |
00002010  20 20 20 63 68 61 72 73  25 3f 31 34 35 3d 31 34  |   chars%?145=14|
00002020  35 0a 20 20 20 20 63 68  61 72 73 25 3f 31 34 38  |5.    chars%?148|
00002030  3d 31 34 38 0a 20 20 20  20 63 68 61 72 73 25 3f  |=148.    chars%?|
00002040  31 34 39 3d 31 34 39 0a  20 20 45 4e 44 49 46 0a  |149=149.  ENDIF.|
00002050  20 20 69 63 6e 5f 73 74  72 69 70 5f 63 6f 6e 25  |  icn_strip_con%|
00002060  3d 52 45 41 44 53 54 41  54 45 28 54 65 78 74 54  |=READSTATE(TextT|
00002070  68 69 6e 67 2c 20 69 63  6e 5f 73 74 72 69 70 5f  |hing, icn_strip_|
00002080  63 6f 6e 29 0a 20 20 49  46 20 69 63 6e 5f 73 74  |con).  IF icn_st|
00002090  72 69 70 5f 63 6f 6e 25  3d 54 52 55 45 20 54 48  |rip_con%=TRUE TH|
000020a0  45 4e 0a 20 20 20 20 46  4f 52 20 69 3d 30 20 54  |EN.    FOR i=0 T|
000020b0  4f 20 33 31 0a 20 20 20  20 20 20 63 68 61 72 73  |O 31.      chars|
000020c0  25 3f 69 3d 30 0a 20 20  20 20 4e 45 58 54 0a 20  |%?i=0.    NEXT. |
000020d0  20 20 20 63 68 61 72 73  25 3f 39 3d 39 0a 20 20  |   chars%?9=9.  |
000020e0  20 20 63 68 61 72 73 25  3f 31 30 3d 31 30 0a 20  |  chars%?10=10. |
000020f0  20 20 20 63 68 61 72 73  25 3f 31 33 3d 31 33 0a  |   chars%?13=13.|
00002100  20 20 45 4e 44 49 46 0a  0a 20 20 69 63 6e 5f 72  |  ENDIF..  icn_r|
00002110  65 70 5f 74 61 62 25 3d  52 45 41 44 53 54 41 54  |ep_tab%=READSTAT|
00002120  45 28 54 65 78 74 54 68  69 6e 67 2c 20 69 63 6e  |E(TextThing, icn|
00002130  5f 72 65 70 5f 74 61 62  29 0a 20 20 49 46 20 69  |_rep_tab).  IF i|
00002140  63 6e 5f 72 65 70 5f 74  61 62 25 3d 54 52 55 45  |cn_rep_tab%=TRUE|
00002150  20 54 48 45 4e 20 63 68  61 72 73 25 3f 39 3d 31  | THEN chars%?9=1|
00002160  0a 20 20 72 65 70 5f 74  61 62 24 3d 52 45 41 44  |.  rep_tab$=READ|
00002170  49 43 4f 4e 28 54 65 78  74 54 68 69 6e 67 2c 20  |ICON(TextThing, |
00002180  69 63 6e 5f 72 65 70 5f  74 61 62 5f 6e 6f 29 0a  |icn_rep_tab_no).|
00002190  20 20 6c 3d 4c 45 4e 28  72 65 70 5f 74 61 62 24  |  l=LEN(rep_tab$|
000021a0  29 0a 20 20 46 4f 52 20  69 3d 31 20 54 4f 20 6c  |).  FOR i=1 TO l|
000021b0  0a 20 20 20 20 63 25 3d  41 53 43 28 4d 49 44 24  |.    c%=ASC(MID$|
000021c0  28 72 65 70 5f 74 61 62  24 2c 20 69 2c 20 31 29  |(rep_tab$, i, 1)|
000021d0  29 0a 20 20 20 20 49 46  20 28 28 63 25 3e 34 37  |).    IF ((c%>47|
000021e0  29 20 41 4e 44 20 28 63  25 3c 35 38 29 29 20 54  |) AND (c%<58)) T|
000021f0  48 45 4e 0a 20 20 20 20  20 20 74 65 6d 70 24 3d  |HEN.      temp$=|
00002200  74 65 6d 70 24 2b 43 48  52 24 28 63 25 29 0a 20  |temp$+CHR$(c%). |
00002210  20 20 20 45 4e 44 49 46  0a 20 20 4e 45 58 54 0a  |   ENDIF.  NEXT.|
00002220  20 20 72 65 70 5f 74 61  62 24 3d 74 65 6d 70 24  |  rep_tab$=temp$|
00002230  0a 20 20 49 46 20 72 65  70 5f 74 61 62 24 3d 22  |.  IF rep_tab$="|
00002240  22 20 54 48 45 4e 20 72  65 70 5f 74 61 62 24 3d  |" THEN rep_tab$=|
00002250  22 30 22 0a 20 20 69 63  6e 5f 72 65 70 5f 74 61  |"0".  icn_rep_ta|
00002260  62 5f 6e 6f 25 3d 45 56  41 4c 28 72 65 70 5f 74  |b_no%=EVAL(rep_t|
00002270  61 62 24 29 0a 20 20 49  46 20 69 63 6e 5f 72 65  |ab$).  IF icn_re|
00002280  70 5f 74 61 62 5f 6e 6f  25 20 3c 20 30 20 54 48  |p_tab_no% < 0 TH|
00002290  45 4e 20 69 63 6e 5f 72  65 70 5f 74 61 62 5f 6e  |EN icn_rep_tab_n|
000022a0  6f 25 3d 30 0a 20 20 69  63 6e 5f 72 65 70 5f 74  |o%=0.  icn_rep_t|
000022b0  61 62 24 3d 53 54 52 49  4e 47 24 28 69 63 6e 5f  |ab$=STRING$(icn_|
000022c0  72 65 70 5f 74 61 62 5f  6e 6f 25 2c 20 22 20 22  |rep_tab_no%, " "|
000022d0  29 0a 20 20 0a 20 20 69  63 6e 5f 72 65 70 5f 6c  |).  .  icn_rep_l|
000022e0  66 25 3d 52 45 41 44 53  54 41 54 45 28 54 65 78  |f%=READSTATE(Tex|
000022f0  74 54 68 69 6e 67 2c 20  69 63 6e 5f 72 65 70 5f  |tThing, icn_rep_|
00002300  6c 66 29 0a 20 20 49 46  20 69 63 6e 5f 72 65 70  |lf).  IF icn_rep|
00002310  5f 6c 66 25 3d 54 52 55  45 20 54 48 45 4e 0a 20  |_lf%=TRUE THEN. |
00002320  20 20 20 63 68 61 72 73  25 3f 31 30 3d 32 0a 20  |   chars%?10=2. |
00002330  20 20 20 63 68 61 72 73  25 3f 31 33 3d 32 0a 20  |   chars%?13=2. |
00002340  20 20 20 69 63 6e 5f 72  65 70 5f 6c 66 5f 73 65  |   icn_rep_lf_se|
00002350  74 25 3d 47 52 4f 55 50  53 54 41 54 45 28 54 65  |t%=GROUPSTATE(Te|
00002360  78 74 54 68 69 6e 67 2c  20 31 29 2d 69 63 6e 5f  |xtThing, 1)-icn_|
00002370  72 65 70 5f 6c 66 20 20  20 20 0a 20 20 20 20 43  |rep_lf    .    C|
00002380  41 53 45 20 69 63 6e 5f  72 65 70 5f 6c 66 5f 73  |ASE icn_rep_lf_s|
00002390  65 74 25 20 4f 46 0a 20  20 20 20 20 20 57 48 45  |et% OF.      WHE|
000023a0  4e 20 31 20 3a 20 69 63  6e 5f 72 65 70 5f 6c 66  |N 1 : icn_rep_lf|
000023b0  24 3d 63 72 24 0a 20 20  20 20 20 20 57 48 45 4e  |$=cr$.      WHEN|
000023c0  20 32 20 3a 20 69 63 6e  5f 72 65 70 5f 6c 66 24  | 2 : icn_rep_lf$|
000023d0  3d 6c 66 24 0a 20 20 20  20 20 20 57 48 45 4e 20  |=lf$.      WHEN |
000023e0  33 20 3a 20 69 63 6e 5f  72 65 70 5f 6c 66 24 3d  |3 : icn_rep_lf$=|
000023f0  63 72 6c 66 24 0a 20 20  20 20 20 20 57 48 45 4e  |crlf$.      WHEN|
00002400  20 34 20 3a 20 69 63 6e  5f 72 65 70 5f 6c 66 24  | 4 : icn_rep_lf$|
00002410  3d 6c 66 63 72 24 0a 20  20 20 20 45 4e 44 43 41  |=lfcr$.    ENDCA|
00002420  53 45 0a 20 20 45 4e 44  49 46 0a 0a 0a 20 20 69  |SE.  ENDIF...  i|
00002430  63 6e 5f 72 65 70 5f 71  75 25 3d 52 45 41 44 53  |cn_rep_qu%=READS|
00002440  54 41 54 45 28 54 65 78  74 54 68 69 6e 67 2c 20  |TATE(TextThing, |
00002450  69 63 6e 5f 72 65 70 5f  71 75 29 0a 20 20 49 46  |icn_rep_qu).  IF|
00002460  20 69 63 6e 5f 72 65 70  5f 71 75 25 3d 54 52 55  | icn_rep_qu%=TRU|
00002470  45 20 54 48 45 4e 0a 20  20 20 20 63 68 61 72 73  |E THEN.    chars|
00002480  25 3f 31 34 34 3d 33 0a  20 20 20 20 63 68 61 72  |%?144=3.    char|
00002490  73 25 3f 31 34 35 3d 33  0a 20 20 45 4e 44 49 46  |s%?145=3.  ENDIF|
000024a0  0a 20 20 69 63 6e 5f 72  65 70 5f 71 75 24 3d 52  |.  icn_rep_qu$=R|
000024b0  45 41 44 49 43 4f 4e 28  54 65 78 74 54 68 69 6e  |EADICON(TextThin|
000024c0  67 2c 20 69 63 6e 5f 72  65 70 5f 71 75 31 29 0a  |g, icn_rep_qu1).|
000024d0  0a 20 20 69 63 6e 5f 72  65 70 5f 64 71 75 25 3d  |.  icn_rep_dqu%=|
000024e0  52 45 41 44 53 54 41 54  45 28 54 65 78 74 54 68  |READSTATE(TextTh|
000024f0  69 6e 67 2c 20 69 63 6e  5f 72 65 70 5f 64 71 75  |ing, icn_rep_dqu|
00002500  29 0a 20 20 49 46 20 69  63 6e 5f 72 65 70 5f 64  |).  IF icn_rep_d|
00002510  71 75 25 3d 54 52 55 45  20 54 48 45 4e 0a 20 20  |qu%=TRUE THEN.  |
00002520  20 20 63 68 61 72 73 25  3f 31 34 38 3d 34 0a 20  |  chars%?148=4. |
00002530  20 20 20 63 68 61 72 73  25 3f 31 34 39 3d 34 0a  |   chars%?149=4.|
00002540  20 20 45 4e 44 49 46 0a  20 20 69 63 6e 5f 72 65  |  ENDIF.  icn_re|
00002550  70 5f 64 71 75 24 3d 52  45 41 44 49 43 4f 4e 28  |p_dqu$=READICON(|
00002560  54 65 78 74 54 68 69 6e  67 2c 20 69 63 6e 5f 72  |TextThing, icn_r|
00002570  65 70 5f 64 71 75 31 29  0a 0a 20 20 69 63 6e 5f  |ep_dqu1)..  icn_|
00002580  63 61 73 65 25 3d 52 45  41 44 53 54 41 54 45 28  |case%=READSTATE(|
00002590  54 65 78 74 54 68 69 6e  67 2c 20 69 63 6e 5f 63  |TextThing, icn_c|
000025a0  61 73 65 29 0a 20 20 49  46 20 69 63 6e 5f 63 61  |ase).  IF icn_ca|
000025b0  73 65 25 3d 54 52 55 45  20 54 48 45 4e 0a 20 20  |se%=TRUE THEN.  |
000025c0  20 20 69 63 6e 5f 63 61  73 65 5f 73 65 74 25 3d  |  icn_case_set%=|
000025d0  47 52 4f 55 50 53 54 41  54 45 28 54 65 78 74 54  |GROUPSTATE(TextT|
000025e0  68 69 6e 67 2c 20 32 29  2d 69 63 6e 5f 63 61 73  |hing, 2)-icn_cas|
000025f0  65 0a 20 20 20 20 43 41  53 45 20 69 63 6e 5f 63  |e.    CASE icn_c|
00002600  61 73 65 5f 73 65 74 25  20 4f 46 0a 20 20 20 20  |ase_set% OF.    |
00002610  20 20 57 48 45 4e 20 31  3a 20 46 4f 52 20 69 3d  |  WHEN 1: FOR i=|
00002620  36 35 20 54 4f 20 31 32  32 20 3a 20 63 68 61 72  |65 TO 122 : char|
00002630  73 25 3f 69 3d 20 63 68  61 72 73 25 3f 69 20 41  |s%?i= chars%?i A|
00002640  4e 44 20 39 35 3a 4e 45  58 54 0a 20 20 20 20 20  |ND 95:NEXT.     |
00002650  20 57 48 45 4e 20 32 3a  20 46 4f 52 20 69 3d 36  | WHEN 2: FOR i=6|
00002660  35 20 54 4f 20 31 32 32  20 3a 20 63 68 61 72 73  |5 TO 122 : chars|
00002670  25 3f 69 3d 20 63 68 61  72 73 25 3f 69 20 4f 52  |%?i= chars%?i OR|
00002680  20 33 32 3a 4e 45 58 54  0a 20 20 20 20 45 4e 44  | 32:NEXT.    END|
00002690  43 41 53 45 0a 20 20 45  4c 53 45 0a 20 20 20 20  |CASE.  ELSE.    |
000026a0  46 4f 52 20 69 3d 36 35  20 54 4f 20 39 30 20 3a  |FOR i=65 TO 90 :|
000026b0  20 63 68 61 72 73 25 3f  69 3d 63 68 61 72 73 25  | chars%?i=chars%|
000026c0  3f 69 20 41 4e 44 20 39  35 3a 4e 45 58 54 0a 20  |?i AND 95:NEXT. |
000026d0  20 20 20 46 4f 52 20 69  3d 39 37 20 54 4f 20 31  |   FOR i=97 TO 1|
000026e0  32 32 20 3a 20 63 68 61  72 73 25 3f 69 3d 63 68  |22 : chars%?i=ch|
000026f0  61 72 73 25 3f 69 20 4f  52 20 33 32 3a 4e 45 58  |ars%?i OR 32:NEX|
00002700  54 0a 20 20 45 4e 44 49  46 0a 20 20 0a 20 20 76  |T.  ENDIF.  .  v|
00002710  61 6c 75 65 25 3d 30 20  3a 20 44 49 53 50 4c 41  |alue%=0 : DISPLA|
00002720  59 24 3d 22 22 0a 20 20  46 4f 52 20 69 3d 30 20  |Y$="".  FOR i=0 |
00002730  54 4f 20 31 31 0a 20 20  20 20 69 63 6e 5f 72 65  |TO 11.    icn_re|
00002740  70 5f 72 24 28 69 29 3d  52 45 41 44 49 43 4f 4e  |p_r$(i)=READICON|
00002750  28 43 68 61 72 52 65 70  6c 61 63 65 2c 20 69 63  |(CharReplace, ic|
00002760  6e 5f 72 65 70 30 20 2b  20 69 2a 34 29 0a 20 20  |n_rep0 + i*4).  |
00002770  20 20 50 52 4f 43 76 61  6c 75 65 28 69 63 6e 5f  |  PROCvalue(icn_|
00002780  72 65 70 5f 72 24 28 69  29 2c 20 64 69 73 70 6c  |rep_r$(i), displ|
00002790  61 79 24 2c 20 76 61 6c  75 65 25 29 0a 20 20 20  |ay$, value%).   |
000027a0  20 53 45 54 49 43 4f 4e  28 43 68 61 72 52 65 70  | SETICON(CharRep|
000027b0  6c 61 63 65 2c 20 69 63  6e 5f 72 65 70 31 20 2b  |lace, icn_rep1 +|
000027c0  20 69 2a 34 2c 20 64 69  73 70 6c 61 79 24 29 0a  | i*4, display$).|
000027d0  20 20 20 20 69 63 6e 5f  72 65 70 5f 72 3d 76 61  |    icn_rep_r=va|
000027e0  6c 75 65 25 0a 20 20 20  20 0a 20 20 20 20 69 63  |lue%.    .    ic|
000027f0  6e 5f 72 65 70 5f 77 24  28 69 29 3d 52 45 41 44  |n_rep_w$(i)=READ|
00002800  49 43 4f 4e 28 43 68 61  72 52 65 70 6c 61 63 65  |ICON(CharReplace|
00002810  2c 20 69 63 6e 5f 72 65  70 32 20 2b 20 69 2a 34  |, icn_rep2 + i*4|
00002820  29 0a 20 20 20 20 50 52  4f 43 76 61 6c 75 65 28  |).    PROCvalue(|
00002830  69 63 6e 5f 72 65 70 5f  77 24 28 69 29 2c 20 64  |icn_rep_w$(i), d|
00002840  69 73 70 6c 61 79 24 2c  20 76 61 6c 75 65 25 29  |isplay$, value%)|
00002850  0a 20 20 20 20 53 45 54  49 43 4f 4e 28 43 68 61  |.    SETICON(Cha|
00002860  72 52 65 70 6c 61 63 65  2c 20 69 63 6e 5f 72 65  |rReplace, icn_re|
00002870  70 33 20 2b 20 69 2a 34  2c 20 64 69 73 70 6c 61  |p3 + i*4, displa|
00002880  79 24 29 0a 20 20 20 20  69 63 6e 5f 72 65 70 5f  |y$).    icn_rep_|
00002890  77 3d 76 61 6c 75 65 25  0a 20 20 20 20 49 46 20  |w=value%.    IF |
000028a0  69 63 6e 5f 72 65 70 5f  72 3e 38 20 54 48 45 4e  |icn_rep_r>8 THEN|
000028b0  20 63 68 61 72 73 25 3f  69 63 6e 5f 72 65 70 5f  | chars%?icn_rep_|
000028c0  72 3d 69 63 6e 5f 72 65  70 5f 77 0a 20 20 4e 45  |r=icn_rep_w.  NE|
000028d0  58 54 0a 45 4e 44 50 52  4f 43 0a a4 0a 0a 73 65  |XT.ENDPROC....se|
000028e0  74 5f 64 65 66 61 75 6c  74 73 0a 2a 2a 2a 0a 30  |t_defaults.***.0|
000028f0  0a 52 45 4d 20 64 65 66  61 75 6c 74 20 76 61 6c  |.REM default val|
00002900  75 65 73 0a 20 20 69 63  6e 5f 73 74 72 69 70 5f  |ues.  icn_strip_|
00002910  74 6f 70 25 3d 31 0a 20  20 69 63 6e 5f 73 74 72  |top%=1.  icn_str|
00002920  69 70 5f 63 6f 6e 25 3d  31 0a 20 20 69 63 6e 5f  |ip_con%=1.  icn_|
00002930  72 65 70 5f 74 61 62 25  3d 30 0a 20 20 69 63 6e  |rep_tab%=0.  icn|
00002940  5f 72 65 70 5f 74 61 62  5f 6e 6f 25 3d 32 0a 20  |_rep_tab_no%=2. |
00002950  20 69 63 6e 5f 72 65 70  5f 6c 66 25 3d 30 0a 20  | icn_rep_lf%=0. |
00002960  20 69 63 6e 5f 72 65 70  5f 6c 66 5f 73 65 74 25  | icn_rep_lf_set%|
00002970  3d 32 0a 20 20 69 63 6e  5f 72 65 70 5f 71 75 25  |=2.  icn_rep_qu%|
00002980  3d 31 0a 20 20 69 63 6e  5f 72 65 70 5f 71 75 24  |=1.  icn_rep_qu$|
00002990  3d 22 27 22 0a 20 20 69  63 6e 5f 72 65 70 5f 64  |="'".  icn_rep_d|
000029a0  71 75 25 3d 31 0a 20 20  69 63 6e 5f 72 65 70 5f  |qu%=1.  icn_rep_|
000029b0  64 71 75 24 3d 43 48 52  24 28 33 34 29 0a 20 20  |dqu$=CHR$(34).  |
000029c0  69 63 6e 5f 63 61 73 65  25 3d 30 0a 20 20 69 63  |icn_case%=0.  ic|
000029d0  6e 5f 63 61 73 65 5f 73  65 74 25 3d 31 0a 20 20  |n_case_set%=1.  |
000029e0  46 4f 52 20 69 3d 30 20  54 4f 20 31 31 0a 20 20  |FOR i=0 TO 11.  |
000029f0  20 20 69 63 6e 5f 72 65  70 5f 72 24 28 69 29 3d  |  icn_rep_r$(i)=|
00002a00  22 22 0a 20 20 20 20 69  63 6e 5f 72 65 70 5f 77  |"".    icn_rep_w|
00002a10  24 28 69 29 3d 22 22 0a  20 20 4e 45 58 54 0a 20  |$(i)="".  NEXT. |
00002a20  20 50 52 4f 43 73 65 74  5f 76 61 6c 75 65 73 0a  | PROCset_values.|
00002a30  45 4e 44 50 52 4f 43 0a  a4 0a 0a 73 61 76 65 5f  |ENDPROC....save_|
00002a40  6f 70 74 69 6f 6e 73 0a  2a 2a 2a 0a 30 0a 20 20  |options.***.0.  |
00002a50  6f 75 74 25 3d 4f 50 45  4e 4f 55 54 28 74 61 73  |out%=OPENOUT(tas|
00002a60  6b 64 69 72 24 20 2b 20  22 2e 4f 70 74 69 6f 6e  |kdir$ + ".Option|
00002a70  73 22 29 0a 20 20 20 20  20 20 20 20 50 52 49 4e  |s").        PRIN|
00002a80  54 23 6f 75 74 25 2c 20  22 54 65 78 74 54 68 69  |T#out%, "TextThi|
00002a90  6e 67 22 0a 20 20 20 20  20 20 20 20 50 52 49 4e  |ng".        PRIN|
00002aa0  54 23 6f 75 74 25 2c 20  69 63 6e 5f 73 74 72 69  |T#out%, icn_stri|
00002ab0  70 5f 74 6f 70 25 0a 20  20 20 20 20 20 20 20 50  |p_top%.        P|
00002ac0  52 49 4e 54 23 6f 75 74  25 2c 20 69 63 6e 5f 73  |RINT#out%, icn_s|
00002ad0  74 72 69 70 5f 63 6f 6e  25 0a 20 20 20 20 20 20  |trip_con%.      |
00002ae0  20 20 50 52 49 4e 54 23  6f 75 74 25 2c 20 69 63  |  PRINT#out%, ic|
00002af0  6e 5f 72 65 70 5f 74 61  62 25 0a 20 20 20 20 20  |n_rep_tab%.     |
00002b00  20 20 20 50 52 49 4e 54  23 6f 75 74 25 2c 20 69  |   PRINT#out%, i|
00002b10  63 6e 5f 72 65 70 5f 74  61 62 5f 6e 6f 25 0a 20  |cn_rep_tab_no%. |
00002b20  20 20 20 20 20 20 20 50  52 49 4e 54 23 6f 75 74  |       PRINT#out|
00002b30  25 2c 20 69 63 6e 5f 72  65 70 5f 6c 66 25 0a 20  |%, icn_rep_lf%. |
00002b40  20 20 20 20 20 20 20 50  52 49 4e 54 23 6f 75 74  |       PRINT#out|
00002b50  25 2c 20 69 63 6e 5f 72  65 70 5f 6c 66 5f 73 65  |%, icn_rep_lf_se|
00002b60  74 25 0a 20 20 20 20 20  20 20 20 50 52 49 4e 54  |t%.        PRINT|
00002b70  23 6f 75 74 25 2c 20 69  63 6e 5f 72 65 70 5f 71  |#out%, icn_rep_q|
00002b80  75 25 0a 20 20 20 20 20  20 20 20 50 52 49 4e 54  |u%.        PRINT|
00002b90  23 6f 75 74 25 2c 20 69  63 6e 5f 72 65 70 5f 71  |#out%, icn_rep_q|
00002ba0  75 24 0a 20 20 20 20 20  20 20 20 50 52 49 4e 54  |u$.        PRINT|
00002bb0  23 6f 75 74 25 2c 20 69  63 6e 5f 72 65 70 5f 64  |#out%, icn_rep_d|
00002bc0  71 75 25 0a 20 20 20 20  20 20 20 20 50 52 49 4e  |qu%.        PRIN|
00002bd0  54 23 6f 75 74 25 2c 20  69 63 6e 5f 72 65 70 5f  |T#out%, icn_rep_|
00002be0  64 71 75 24 0a 20 20 20  20 20 20 20 20 50 52 49  |dqu$.        PRI|
00002bf0  4e 54 23 6f 75 74 25 2c  20 69 63 6e 5f 63 61 73  |NT#out%, icn_cas|
00002c00  65 25 0a 20 20 20 20 20  20 20 20 50 52 49 4e 54  |e%.        PRINT|
00002c10  23 6f 75 74 25 2c 20 69  63 6e 5f 63 61 73 65 5f  |#out%, icn_case_|
00002c20  73 65 74 25 0a 20 20 20  20 20 20 20 20 46 4f 52  |set%.        FOR|
00002c30  20 69 3d 30 20 54 4f 20  31 31 0a 20 20 20 20 20  | i=0 TO 11.     |
00002c40  20 20 20 20 20 50 52 49  4e 54 23 6f 75 74 25 2c  |     PRINT#out%,|
00002c50  20 69 63 6e 5f 72 65 70  5f 72 24 28 69 29 0a 20  | icn_rep_r$(i). |
00002c60  20 20 20 20 20 20 20 20  20 50 52 49 4e 54 23 6f  |         PRINT#o|
00002c70  75 74 25 2c 20 69 63 6e  5f 72 65 70 5f 77 24 28  |ut%, icn_rep_w$(|
00002c80  69 29 0a 20 20 20 20 20  20 20 20 4e 45 58 54 0a  |i).        NEXT.|
00002c90  20 20 20 20 20 20 20 20  43 4c 4f 53 45 23 6f 75  |        CLOSE#ou|
00002ca0  74 25 20 0a 45 4e 44 50  52 4f 43 0a a4 0a 0a 63  |t% .ENDPROC....c|
00002cb0  6c 65 61 72 0a 2a 2a 2a  0a 30 0a 52 45 4d 20 64  |lear.***.0.REM d|
00002cc0  65 66 61 75 6c 74 20 76  61 6c 75 65 73 0a 20 20  |efault values.  |
00002cd0  69 63 6e 5f 73 74 72 69  70 5f 74 6f 70 25 3d 30  |icn_strip_top%=0|
00002ce0  0a 20 20 69 63 6e 5f 73  74 72 69 70 5f 63 6f 6e  |.  icn_strip_con|
00002cf0  25 3d 30 0a 20 20 69 63  6e 5f 72 65 70 5f 74 61  |%=0.  icn_rep_ta|
00002d00  62 25 3d 30 0a 20 20 69  63 6e 5f 72 65 70 5f 74  |b%=0.  icn_rep_t|
00002d10  61 62 5f 6e 6f 25 3d 32  0a 20 20 69 63 6e 5f 72  |ab_no%=2.  icn_r|
00002d20  65 70 5f 6c 66 25 3d 30  0a 20 20 69 63 6e 5f 72  |ep_lf%=0.  icn_r|
00002d30  65 70 5f 6c 66 5f 73 65  74 25 3d 32 0a 20 20 69  |ep_lf_set%=2.  i|
00002d40  63 6e 5f 72 65 70 5f 71  75 25 3d 30 0a 20 20 69  |cn_rep_qu%=0.  i|
00002d50  63 6e 5f 72 65 70 5f 71  75 24 3d 22 27 22 0a 20  |cn_rep_qu$="'". |
00002d60  20 69 63 6e 5f 72 65 70  5f 64 71 75 25 3d 30 0a  | icn_rep_dqu%=0.|
00002d70  20 20 69 63 6e 5f 72 65  70 5f 64 71 75 24 3d 43  |  icn_rep_dqu$=C|
00002d80  48 52 24 28 33 34 29 0a  20 20 69 63 6e 5f 63 61  |HR$(34).  icn_ca|
00002d90  73 65 25 3d 30 0a 20 20  69 63 6e 5f 63 61 73 65  |se%=0.  icn_case|
00002da0  5f 73 65 74 25 3d 31 0a  20 20 46 4f 52 20 69 3d  |_set%=1.  FOR i=|
00002db0  30 20 54 4f 20 31 31 0a  20 20 20 20 69 63 6e 5f  |0 TO 11.    icn_|
00002dc0  72 65 70 5f 72 24 28 69  29 3d 22 22 0a 20 20 20  |rep_r$(i)="".   |
00002dd0  20 69 63 6e 5f 72 65 70  5f 77 24 28 69 29 3d 22  | icn_rep_w$(i)="|
00002de0  22 0a 20 20 4e 45 58 54  0a 45 4e 44 50 52 4f 43  |".  NEXT.ENDPROC|
00002df0  0a a4 0a 0a 76 61 6c 75  65 0a 61 24 2c 20 52 45  |....value.a$, RE|
00002e00  54 55 52 4e 20 64 69 73  70 6c 61 79 24 2c 20 52  |TURN display$, R|
00002e10  45 54 55 52 4e 20 76 61  6c 75 65 25 0a 30 0a 20  |ETURN value%.0. |
00002e20  20 4c 4f 43 41 4c 20 69  2c 20 6c 0a 20 20 76 61  | LOCAL i, l.  va|
00002e30  6c 75 65 25 3d 30 0a 20  20 64 69 73 70 6c 61 79  |lue%=0.  display|
00002e40  24 3d 22 20 22 0a 20 20  0a 20 20 6c 3d 4c 45 4e  |$=" ".  .  l=LEN|
00002e50  28 61 24 29 0a 20 20 46  4f 52 20 69 3d 31 20 54  |(a$).  FOR i=1 T|
00002e60  4f 20 6c 0a 20 20 20 20  49 46 20 4d 49 44 24 28  |O l.    IF MID$(|
00002e70  61 24 2c 69 2c 31 29 3d  71 75 6f 74 65 24 20 54  |a$,i,1)=quote$ T|
00002e80  48 45 4e 20 4d 49 44 24  28 61 24 2c 69 2c 31 29  |HEN MID$(a$,i,1)|
00002e90  3d 22 20 22 0a 20 20 4e  45 58 54 0a 20 20 49 46  |=" ".  NEXT.  IF|
00002ea0  20 28 6c 20 3e 31 29 20  54 48 45 4e 0a 20 20 20  | (l >1) THEN.   |
00002eb0  20 76 61 6c 75 65 25 3d  45 56 41 4c 28 61 24 29  | value%=EVAL(a$)|
00002ec0  20 41 4e 44 20 32 35 35  0a 20 20 20 20 49 46 20  | AND 255.    IF |
00002ed0  76 61 6c 75 65 25 3c 39  20 54 48 45 4e 20 76 61  |value%<9 THEN va|
00002ee0  6c 75 65 25 3d 30 0a 20  20 20 20 49 46 20 28 76  |lue%=0.    IF (v|
00002ef0  61 6c 75 65 25 3e 33 31  29 20 41 4e 44 20 28 76  |alue%>31) AND (v|
00002f00  61 6c 75 65 25 3c 31 32  37 29 20 54 48 45 4e 20  |alue%<127) THEN |
00002f10  64 69 73 70 6c 61 79 24  3d 43 48 52 24 28 76 61  |display$=CHR$(va|
00002f20  6c 75 65 25 29 0a 20 20  20 20 49 46 20 28 76 61  |lue%).    IF (va|
00002f30  6c 75 65 25 3e 31 34 30  29 20 54 48 45 4e 20 64  |lue%>140) THEN d|
00002f40  69 73 70 6c 61 79 24 3d  43 48 52 24 28 76 61 6c  |isplay$=CHR$(val|
00002f50  75 65 25 29 0a 20 20 45  4e 44 49 46 0a 20 20 0a  |ue%).  ENDIF.  .|
00002f60  20 20 49 46 20 6c 3d 31  20 54 48 45 4e 20 64 69  |  IF l=1 THEN di|
00002f70  73 70 6c 61 79 24 3d 61  24 20 3a 20 76 61 6c 75  |splay$=a$ : valu|
00002f80  65 25 3d 41 53 43 28 61  24 29 0a 0a 45 4e 44 50  |e%=ASC(a$)..ENDP|
00002f90  52 4f 43 0a a4 0a 40 0a  0a                       |ROC...@..|
00002f99