� BASIC PROGRAM LISTER
 � This program will list any
$� BASIC program from disc/net to
("� screen or printer.   It will
2$� properly indent program lines,
< � split multiple statements,
F$� split and indent IF statements
P#� and emphasise the DEFinitions
Z� of all procedures and
d� functions.
n 
x�     (c) Derek Grainge
��     18th April , 1987
�!� Loretto School, Musselburgh
� 
� 
�� set up section
�� � � �t@G
�*NET
�*PUTGET2
��7
�"�"SETTING UP. PLEASE WAIT ..."
�&� A% 40 ,NAME$(127),linebuffer 256
�
*DIR $
�X=�("FILE")

� I=0 � 127

�#X,NAME$(I)

�

"�#X

,*NET

6�indent=0:margin=6:fornext=0:repuntil=0:space=32:return=13:remark=&F4:quote=34:comma=44:for=&E3:repeat=&F5:until=&FD:next=&ED:lineno=141:define=221:printable=127:colon=58:then=&8C:else=&8B

@Nif=&E7:test1$=�(quote)+�(remark)+�(for)+�(else)+�(repeat)+�(next)+�(until)

J)test2$=�(then)+�(if)+�(else)+�(colon)

Tsingle=1:double=2

^ 

h 

r%� THE MAIN PROGRAM REPEATS ITSELF

|�

�� CHOOSE A DIRECTORY

�*DIR

��

�*CAT

��"WHICH DIRECTORY",A$

� � A$<>"" � �oscli("DIR "+A$)

�� A$=""

�� CHOOSE A PROGRAM

�
�:*CAT

�'�"NAME OF PROGRAM",P$:P%=linebuffer

�"�"STARTING AT LINE NO",startno

�� CHOOSE OUTPUT PARAMETERS

�/�''"WIDTH OF LISTING ON SCREEN OR PAPER",R%
� R%<20 � R%>78 � � �d~A
� ''"PRINTER ON (Y/N) ",Y1$
9� �Y1$,1)="Y" � �"ECONET PRINTER (Y/N)",Y2$ � Y2$="N"
&*FX 5,1
0� �Y2$,1)="Y" � *FX 5,4
:
�'''''
D!� �Y1$,1)="Y" � � 2,1,27,1,40
N� R%<40 � � 7 � � 3
X 
b� THE MAIN PROGRAM ITSELF
l!margin=6:fornext=0:repuntil=0
vdecode=�:mode=single
�	�'P$'
�theend=�
�X=�(P$)
��
��loadline(linebuffer)
��check(linebuffer)
�7� (� theend) � highenough � �listline(linebuffer+4)
�� theend
��#X
��''
�� Y2$="N" � � 1,12
�� 3
� 
� ANOTHER GO ?
�''"ANOTHER GO",Y$
� �Y$,1)="N"
 �
*� END OF MAIN PROGRAM
4 
> 
H� CHECK A LINE FOR LEGALITY
R 
\��check(A%)
f7� ?A%<>13 � theend=�:� 3:�"ILLEGAL BASIC STORAGE":�
p� A%?1>127 � theend=�:�
zhighenough=�
�.� (A%?1)*256+A%?2<startno � highenough=�:�
�<@%=5:margin=6+2*fornext+2*repuntil:� margin<6 � margin=6
�8�(A%?1)*256 + (A%?2) ;�margin-5," ");:@%=0:Q%=margin
�mode=single
��
� 
� 
�� PRINT A PROGRAM LINE
� 
���listline(B%)
�indent=0
�L%=?(B%-1)-4
�	K%=-1
7margin=6+2*fornext+2*repuntil:� margin<6 � margin=6

Q%=margin
�
$�statement
.� K%>=L%-1
8�
B�
L 
V 
`!� PRINT ONE PROGRAM STATEMENT
j 
t� �statement
~�stripspaces
��
�
�nextchar
�a=�test1$,�(char))
�3� a+1 � �dvD,�tpD,�tzD,�dDD,�dND,�dXD,�dbD,�dlD
��text:� �T|E
��rem:� �T|E
�Ffornext=fornext+1:�print(space,decode):�print(space,decode):� �dvD
�%indent=indent-2:�startline:� �dvD
�Hrepuntil=repuntil+1:�print(space,decode):�print(space,decode):� �dvD
��check_commas:� �dvD
�1repuntil=repuntil-1:� repuntil<0 � repuntil=0
�:� char=lineno � �lineno(B%+K%+1) � �print(char,decode)
a=�test2$,�(char))

$� a+1 � �T|E,�TrE,�TTE,�T^E,�ThE
indent=indent+2:� �T|E
indent=indent+2
(*� a=4 � �stripspaces:� K%>=L%-1 � �T|E
2�startline
<� K%>=L%-1 � char=colon
F�
P 
Z 
d� EXECUTE A * INSTRUCTION
n 
x��oscli(A$)
�
$A%=A$
�X%=A% � 256
�Y%=A% � 256
�� &FFF7
��
� 
� 
�� DECODE A LINE NUMBER
� 
���lineno(A%)
�� D1%,D2%,D3%,L
�D1%= ((A%?1)� &3F)
�D2%= ((A%?2)� &3F)
D3%= (?A%) � &54
0L= D2%*256+D1%+(D3%� 4)*256*16 +(D3% � 48)*4
%� Q%+�(�(L))*mode>R% � �startline
"� L;
,K%=K%+3
6Q%=Q%+�(�(L))*mode
@�
J 
T 
^'� CHECK A NEXT STATEMENT FOR COMMAS
h 
r� �check_commas
|fornext=fornext-1
�
pos=K%
��
�
pos=pos+1
�&� B%?pos=comma � fornext=fornext-1
�-� B%?pos=colon � pos=L%-1 � B%?pos=return
�� fornext<0 � fornext=0
��
� 
� 
�/� INDENT THE MARGIN THE CORRECT # OF SPACES
� 
�� �startline
��
� indent<0 � indent=0
(margin=6+2*fornext+2*repuntil+indent
� margin<6 � margin=6
&� �margin," ");
0
Q%=margin
:�stripspaces
Dmode=single
N�
X 
b 
l� ERROR SECTION
v 
��#0
�
� 12,3
�� �<>17 � �:�" at line ";�
��''"ANOTHER GO ?",Y$
�� �Y$,1)="N" � �
�� �<370 � �
�
� �D|A
� 
� 
�� GET A LINE FROM THE FILE
� 
���loadline(buf)
�	� a,b
	a=�#X

?buf=a
	b=�#X
 buf?1=b
*� a<>13 � �
4� b>127 � �
>
buf?2=�#X
H	a=�#X
Rbuf?3=a
\� b=4 � a-1
f
buf?b=�#X
p� b
zbuf?a=13
��
� 
� 
�� IGNORE ANY LEADING SPACES
�� AT THE START OF A LINE
� 
�� �stripspaces
�� Q%>margin � �
��
�K%=K%+1
�� K%>L%-1 � B%?K%>space
�K%=K%-1
��
	 
	 
	� GET THE NEXT CHARACTER
	$ 
	.� �nextchar
	8K%=K%+1
	B'� K%>L%-1 � char=space � char=B%?K%
	L� char<space � char=space
	V�
	` 
	j 
	t� DEAL WITH A REM STATEMENT
	~ 
	�
� �rem
	��print(char,decode)
	��
	�
�nextchar
	�.� char=quote � �text � �print(char,decode)
	�� K%>=L%-1
	��
	� 
	� 
	�#� DEAL WITH TEXT BETWEEN QUOTES
	� 
	�� �text
�print(char,� decode)

�

�nextchar
�print(char,� decode)
(� K%>=L%-1 � char=quote
2�
< 
F 
P� PRINT A CHARACTER OR
Z� COMPRESSED CODE
d 
n� �print(char,decode)
x
� l,A$
�A$=�(char)
�l=1
�<� decode � � char>printable � A$=NAME$(char-128):l=�(A$)
�.� � decode � � (char � 128)<space � A$=" "
�� Q%+l*mode>R% � �startline
�C� char=define � � 8,129:� �Y1$,1)="Y" � mode=double:� 1,32,1,14
�	� A$;
�Q%=Q%+l*mode
��
� 
� 
�

00000000  0d 00 0a 1a f4 20 42 41  53 49 43 20 50 52 4f 47  |..... BASIC PROG|
00000010  52 41 4d 20 4c 49 53 54  45 52 0d 00 14 20 f4 20  |RAM LISTER... . |
00000020  54 68 69 73 20 70 72 6f  67 72 61 6d 20 77 69 6c  |This program wil|
00000030  6c 20 6c 69 73 74 20 61  6e 79 0d 00 1e 24 f4 20  |l list any...$. |
00000040  42 41 53 49 43 20 70 72  6f 67 72 61 6d 20 66 72  |BASIC program fr|
00000050  6f 6d 20 64 69 73 63 2f  6e 65 74 20 74 6f 0d 00  |om disc/net to..|
00000060  28 22 f4 20 73 63 72 65  65 6e 20 6f 72 20 70 72  |(". screen or pr|
00000070  69 6e 74 65 72 2e 20 20  20 49 74 20 77 69 6c 6c  |inter.   It will|
00000080  0d 00 32 24 f4 20 70 72  6f 70 65 72 6c 79 20 69  |..2$. properly i|
00000090  6e 64 65 6e 74 20 70 72  6f 67 72 61 6d 20 6c 69  |ndent program li|
000000a0  6e 65 73 2c 0d 00 3c 20  f4 20 73 70 6c 69 74 20  |nes,..< . split |
000000b0  6d 75 6c 74 69 70 6c 65  20 73 74 61 74 65 6d 65  |multiple stateme|
000000c0  6e 74 73 2c 0d 00 46 24  f4 20 73 70 6c 69 74 20  |nts,..F$. split |
000000d0  61 6e 64 20 69 6e 64 65  6e 74 20 49 46 20 73 74  |and indent IF st|
000000e0  61 74 65 6d 65 6e 74 73  0d 00 50 23 f4 20 61 6e  |atements..P#. an|
000000f0  64 20 65 6d 70 68 61 73  69 73 65 20 74 68 65 20  |d emphasise the |
00000100  44 45 46 69 6e 69 74 69  6f 6e 73 0d 00 5a 1b f4  |DEFinitions..Z..|
00000110  20 6f 66 20 61 6c 6c 20  70 72 6f 63 65 64 75 72  | of all procedur|
00000120  65 73 20 61 6e 64 0d 00  64 10 f4 20 66 75 6e 63  |es and..d.. func|
00000130  74 69 6f 6e 73 2e 0d 00  6e 05 20 0d 00 78 1b f4  |tions...n. ..x..|
00000140  20 20 20 20 20 28 63 29  20 44 65 72 65 6b 20 47  |     (c) Derek G|
00000150  72 61 69 6e 67 65 0d 00  82 1b f4 20 20 20 20 20  |rainge.....     |
00000160  31 38 74 68 20 41 70 72  69 6c 20 2c 20 31 39 38  |18th April , 198|
00000170  37 0d 00 8c 21 f4 20 4c  6f 72 65 74 74 6f 20 53  |7...!. Loretto S|
00000180  63 68 6f 6f 6c 2c 20 4d  75 73 73 65 6c 62 75 72  |chool, Musselbur|
00000190  67 68 0d 00 96 05 20 0d  00 a0 05 20 0d 00 aa 14  |gh.... .... ....|
000001a0  f4 20 73 65 74 20 75 70  20 73 65 63 74 69 6f 6e  |. set up section|
000001b0  0d 00 b4 0e ee 20 85 20  e5 20 8d 74 40 47 0d 00  |..... . . .t@G..|
000001c0  be 08 2a 4e 45 54 0d 00  c8 0c 2a 50 55 54 47 45  |..*NET....*PUTGE|
000001d0  54 32 0d 00 d2 06 eb 37  0d 00 dc 22 f1 22 53 45  |T2.....7..."."SE|
000001e0  54 54 49 4e 47 20 55 50  2e 20 50 4c 45 41 53 45  |TTING UP. PLEASE|
000001f0  20 57 41 49 54 20 2e 2e  2e 22 0d 00 e6 26 de 20  | WAIT ..."...&. |
00000200  41 25 20 34 30 20 2c 4e  41 4d 45 24 28 31 32 37  |A% 40 ,NAME$(127|
00000210  29 2c 6c 69 6e 65 62 75  66 66 65 72 20 32 35 36  |),linebuffer 256|
00000220  0d 00 f0 0a 2a 44 49 52  20 24 0d 00 fa 0f 58 3d  |....*DIR $....X=|
00000230  ad 28 22 46 49 4c 45 22  29 0d 01 04 0f e3 20 49  |.("FILE")..... I|
00000240  3d 30 20 b8 20 31 32 37  0d 01 0e 10 e8 23 58 2c  |=0 . 127.....#X,|
00000250  4e 41 4d 45 24 28 49 29  0d 01 18 05 ed 0d 01 22  |NAME$(I)......."|
00000260  07 d9 23 58 0d 01 2c 08  2a 4e 45 54 0d 01 36 bf  |..#X..,.*NET..6.|
00000270  69 6e 64 65 6e 74 3d 30  3a 6d 61 72 67 69 6e 3d  |indent=0:margin=|
00000280  36 3a 66 6f 72 6e 65 78  74 3d 30 3a 72 65 70 75  |6:fornext=0:repu|
00000290  6e 74 69 6c 3d 30 3a 73  70 61 63 65 3d 33 32 3a  |ntil=0:space=32:|
000002a0  72 65 74 75 72 6e 3d 31  33 3a 72 65 6d 61 72 6b  |return=13:remark|
000002b0  3d 26 46 34 3a 71 75 6f  74 65 3d 33 34 3a 63 6f  |=&F4:quote=34:co|
000002c0  6d 6d 61 3d 34 34 3a 66  6f 72 3d 26 45 33 3a 72  |mma=44:for=&E3:r|
000002d0  65 70 65 61 74 3d 26 46  35 3a 75 6e 74 69 6c 3d  |epeat=&F5:until=|
000002e0  26 46 44 3a 6e 65 78 74  3d 26 45 44 3a 6c 69 6e  |&FD:next=&ED:lin|
000002f0  65 6e 6f 3d 31 34 31 3a  64 65 66 69 6e 65 3d 32  |eno=141:define=2|
00000300  32 31 3a 70 72 69 6e 74  61 62 6c 65 3d 31 32 37  |21:printable=127|
00000310  3a 63 6f 6c 6f 6e 3d 35  38 3a 74 68 65 6e 3d 26  |:colon=58:then=&|
00000320  38 43 3a 65 6c 73 65 3d  26 38 42 0d 01 40 4e 69  |8C:else=&8B..@Ni|
00000330  66 3d 26 45 37 3a 74 65  73 74 31 24 3d bd 28 71  |f=&E7:test1$=.(q|
00000340  75 6f 74 65 29 2b bd 28  72 65 6d 61 72 6b 29 2b  |uote)+.(remark)+|
00000350  bd 28 66 6f 72 29 2b bd  28 65 6c 73 65 29 2b bd  |.(for)+.(else)+.|
00000360  28 72 65 70 65 61 74 29  2b bd 28 6e 65 78 74 29  |(repeat)+.(next)|
00000370  2b bd 28 75 6e 74 69 6c  29 0d 01 4a 29 74 65 73  |+.(until)..J)tes|
00000380  74 32 24 3d bd 28 74 68  65 6e 29 2b bd 28 69 66  |t2$=.(then)+.(if|
00000390  29 2b bd 28 65 6c 73 65  29 2b bd 28 63 6f 6c 6f  |)+.(else)+.(colo|
000003a0  6e 29 0d 01 54 15 73 69  6e 67 6c 65 3d 31 3a 64  |n)..T.single=1:d|
000003b0  6f 75 62 6c 65 3d 32 0d  01 5e 05 20 0d 01 68 05  |ouble=2..^. ..h.|
000003c0  20 0d 01 72 25 f4 20 54  48 45 20 4d 41 49 4e 20  | ..r%. THE MAIN |
000003d0  50 52 4f 47 52 41 4d 20  52 45 50 45 41 54 53 20  |PROGRAM REPEATS |
000003e0  49 54 53 45 4c 46 0d 01  7c 05 f5 0d 01 86 18 f4  |ITSELF..|.......|
000003f0  20 43 48 4f 4f 53 45 20  41 20 44 49 52 45 43 54  | CHOOSE A DIRECT|
00000400  4f 52 59 0d 01 90 08 2a  44 49 52 0d 01 9a 05 f5  |ORY....*DIR.....|
00000410  0d 01 a4 08 2a 43 41 54  0d 01 ae 19 e8 22 57 48  |....*CAT....."WH|
00000420  49 43 48 20 44 49 52 45  43 54 4f 52 59 22 2c 41  |ICH DIRECTORY",A|
00000430  24 0d 01 b8 20 e7 20 41  24 3c 3e 22 22 20 8c 20  |$... . A$<>"" . |
00000440  f2 6f 73 63 6c 69 28 22  44 49 52 20 22 2b 41 24  |.oscli("DIR "+A$|
00000450  29 0d 01 c2 0b fd 20 41  24 3d 22 22 0d 01 cc 16  |)..... A$=""....|
00000460  f4 20 43 48 4f 4f 53 45  20 41 20 50 52 4f 47 52  |. CHOOSE A PROGR|
00000470  41 4d 0d 01 d6 0a db 3a  2a 43 41 54 0d 01 e0 27  |AM.....:*CAT...'|
00000480  e8 22 4e 41 4d 45 20 4f  46 20 50 52 4f 47 52 41  |."NAME OF PROGRA|
00000490  4d 22 2c 50 24 3a 50 25  3d 6c 69 6e 65 62 75 66  |M",P$:P%=linebuf|
000004a0  66 65 72 0d 01 ea 22 e8  22 53 54 41 52 54 49 4e  |fer..."."STARTIN|
000004b0  47 20 41 54 20 4c 49 4e  45 20 4e 4f 22 2c 73 74  |G AT LINE NO",st|
000004c0  61 72 74 6e 6f 0d 01 f4  1e f4 20 43 48 4f 4f 53  |artno..... CHOOS|
000004d0  45 20 4f 55 54 50 55 54  20 50 41 52 41 4d 45 54  |E OUTPUT PARAMET|
000004e0  45 52 53 0d 01 fe 2f e8  27 27 22 57 49 44 54 48  |ERS.../.''"WIDTH|
000004f0  20 4f 46 20 4c 49 53 54  49 4e 47 20 4f 4e 20 53  | OF LISTING ON S|
00000500  43 52 45 45 4e 20 4f 52  20 50 41 50 45 52 22 2c  |CREEN OR PAPER",|
00000510  52 25 0d 02 08 1c e7 20  52 25 3c 32 30 20 84 20  |R%..... R%<20 . |
00000520  52 25 3e 37 38 20 8c 20  e5 20 8d 64 7e 41 0d 02  |R%>78 . . .d~A..|
00000530  12 1f e8 20 27 27 22 50  52 49 4e 54 45 52 20 4f  |... ''"PRINTER O|
00000540  4e 20 28 59 2f 4e 29 20  22 2c 59 31 24 0d 02 1c  |N (Y/N) ",Y1$...|
00000550  39 e7 20 c0 59 31 24 2c  31 29 3d 22 59 22 20 8c  |9. .Y1$,1)="Y" .|
00000560  20 e8 22 45 43 4f 4e 45  54 20 50 52 49 4e 54 45  | ."ECONET PRINTE|
00000570  52 20 28 59 2f 4e 29 22  2c 59 32 24 20 8b 20 59  |R (Y/N)",Y2$ . Y|
00000580  32 24 3d 22 4e 22 0d 02  26 0b 2a 46 58 20 35 2c  |2$="N"..&.*FX 5,|
00000590  31 0d 02 30 1b e7 20 c0  59 32 24 2c 31 29 3d 22  |1..0.. .Y2$,1)="|
000005a0  59 22 20 8c 20 2a 46 58  20 35 2c 34 0d 02 3a 0a  |Y" . *FX 5,4..:.|
000005b0  f1 27 27 27 27 27 0d 02  44 21 e7 20 c0 59 31 24  |.'''''..D!. .Y1$|
000005c0  2c 31 29 3d 22 59 22 20  8c 20 ef 20 32 2c 31 2c  |,1)="Y" . . 2,1,|
000005d0  32 37 2c 31 2c 34 30 0d  02 4e 17 e7 20 52 25 3c  |27,1,40..N.. R%<|
000005e0  34 30 20 8c 20 eb 20 37  20 8b 20 eb 20 33 0d 02  |40 . . 7 . . 3..|
000005f0  58 05 20 0d 02 62 1d f4  20 54 48 45 20 4d 41 49  |X. ..b.. THE MAI|
00000600  4e 20 50 52 4f 47 52 41  4d 20 49 54 53 45 4c 46  |N PROGRAM ITSELF|
00000610  0d 02 6c 21 6d 61 72 67  69 6e 3d 36 3a 66 6f 72  |..l!margin=6:for|
00000620  6e 65 78 74 3d 30 3a 72  65 70 75 6e 74 69 6c 3d  |next=0:repuntil=|
00000630  30 0d 02 76 18 64 65 63  6f 64 65 3d b9 3a 6d 6f  |0..v.decode=.:mo|
00000640  64 65 3d 73 69 6e 67 6c  65 0d 02 80 09 f1 27 50  |de=single.....'P|
00000650  24 27 0d 02 8a 0c 74 68  65 65 6e 64 3d a3 0d 02  |$'....theend=...|
00000660  94 0b 58 3d ad 28 50 24  29 0d 02 9e 05 f5 0d 02  |..X=.(P$).......|
00000670  a8 19 f2 6c 6f 61 64 6c  69 6e 65 28 6c 69 6e 65  |...loadline(line|
00000680  62 75 66 66 65 72 29 0d  02 b2 16 f2 63 68 65 63  |buffer).....chec|
00000690  6b 28 6c 69 6e 65 62 75  66 66 65 72 29 0d 02 bc  |k(linebuffer)...|
000006a0  37 e7 20 28 ac 20 74 68  65 65 6e 64 29 20 80 20  |7. (. theend) . |
000006b0  68 69 67 68 65 6e 6f 75  67 68 20 8c 20 f2 6c 69  |highenough . .li|
000006c0  73 74 6c 69 6e 65 28 6c  69 6e 65 62 75 66 66 65  |stline(linebuffe|
000006d0  72 2b 34 29 0d 02 c6 0c  fd 20 74 68 65 65 6e 64  |r+4)..... theend|
000006e0  0d 02 d0 07 d9 23 58 0d  02 da 07 f1 27 27 0d 02  |.....#X.....''..|
000006f0  e4 16 e7 20 59 32 24 3d  22 4e 22 20 8c 20 ef 20  |... Y2$="N" . . |
00000700  31 2c 31 32 0d 02 ee 07  ef 20 33 0d 02 f8 05 20  |1,12..... 3.... |
00000710  0d 03 02 12 f4 20 41 4e  4f 54 48 45 52 20 47 4f  |..... ANOTHER GO|
00000720  20 3f 0d 03 0c 16 e8 27  27 22 41 4e 4f 54 48 45  | ?.....''"ANOTHE|
00000730  52 20 47 4f 22 2c 59 24  0d 03 16 10 fd 20 c0 59  |R GO",Y$..... .Y|
00000740  24 2c 31 29 3d 22 4e 22  0d 03 20 05 e0 0d 03 2a  |$,1)="N".. ....*|
00000750  19 f4 20 45 4e 44 20 4f  46 20 4d 41 49 4e 20 50  |.. END OF MAIN P|
00000760  52 4f 47 52 41 4d 0d 03  34 05 20 0d 03 3e 05 20  |ROGRAM..4. ..>. |
00000770  0d 03 48 1f f4 20 43 48  45 43 4b 20 41 20 4c 49  |..H.. CHECK A LI|
00000780  4e 45 20 46 4f 52 20 4c  45 47 41 4c 49 54 59 0d  |NE FOR LEGALITY.|
00000790  03 52 05 20 0d 03 5c 0f  dd f2 63 68 65 63 6b 28  |.R. ..\...check(|
000007a0  41 25 29 0d 03 66 37 e7  20 3f 41 25 3c 3e 31 33  |A%)..f7. ?A%<>13|
000007b0  20 8c 20 74 68 65 65 6e  64 3d b9 3a ef 20 33 3a  | . theend=.:. 3:|
000007c0  f1 22 49 4c 4c 45 47 41  4c 20 42 41 53 49 43 20  |."ILLEGAL BASIC |
000007d0  53 54 4f 52 41 47 45 22  3a e1 0d 03 70 1b e7 20  |STORAGE":...p.. |
000007e0  41 25 3f 31 3e 31 32 37  20 8c 20 74 68 65 65 6e  |A%?1>127 . theen|
000007f0  64 3d b9 3a e1 0d 03 7a  10 68 69 67 68 65 6e 6f  |d=.:...z.higheno|
00000800  75 67 68 3d b9 0d 03 84  2e e7 20 28 41 25 3f 31  |ugh=...... (A%?1|
00000810  29 2a 32 35 36 2b 41 25  3f 32 3c 73 74 61 72 74  |)*256+A%?2<start|
00000820  6e 6f 20 8c 20 68 69 67  68 65 6e 6f 75 67 68 3d  |no . highenough=|
00000830  a3 3a e1 0d 03 8e 3c 40  25 3d 35 3a 6d 61 72 67  |.:....<@%=5:marg|
00000840  69 6e 3d 36 2b 32 2a 66  6f 72 6e 65 78 74 2b 32  |in=6+2*fornext+2|
00000850  2a 72 65 70 75 6e 74 69  6c 3a e7 20 6d 61 72 67  |*repuntil:. marg|
00000860  69 6e 3c 36 20 8c 20 6d  61 72 67 69 6e 3d 36 0d  |in<6 . margin=6.|
00000870  03 98 38 f1 28 41 25 3f  31 29 2a 32 35 36 20 2b  |..8.(A%?1)*256 +|
00000880  20 28 41 25 3f 32 29 20  3b c4 6d 61 72 67 69 6e  | (A%?2) ;.margin|
00000890  2d 35 2c 22 20 22 29 3b  3a 40 25 3d 30 3a 51 25  |-5," ");:@%=0:Q%|
000008a0  3d 6d 61 72 67 69 6e 0d  03 a2 0f 6d 6f 64 65 3d  |=margin....mode=|
000008b0  73 69 6e 67 6c 65 0d 03  ac 05 e1 0d 03 b6 05 20  |single......... |
000008c0  0d 03 c0 05 20 0d 03 ca  1a f4 20 50 52 49 4e 54  |.... ..... PRINT|
000008d0  20 41 20 50 52 4f 47 52  41 4d 20 4c 49 4e 45 0d  | A PROGRAM LINE.|
000008e0  03 d4 05 20 0d 03 de 12  dd f2 6c 69 73 74 6c 69  |... ......listli|
000008f0  6e 65 28 42 25 29 0d 03  e8 0c 69 6e 64 65 6e 74  |ne(B%)....indent|
00000900  3d 30 0d 03 f2 10 4c 25  3d 3f 28 42 25 2d 31 29  |=0....L%=?(B%-1)|
00000910  2d 34 0d 03 fc 09 4b 25  3d 2d 31 0d 04 06 37 6d  |-4....K%=-1...7m|
00000920  61 72 67 69 6e 3d 36 2b  32 2a 66 6f 72 6e 65 78  |argin=6+2*fornex|
00000930  74 2b 32 2a 72 65 70 75  6e 74 69 6c 3a e7 20 6d  |t+2*repuntil:. m|
00000940  61 72 67 69 6e 3c 36 20  8c 20 6d 61 72 67 69 6e  |argin<6 . margin|
00000950  3d 36 0d 04 10 0d 51 25  3d 6d 61 72 67 69 6e 0d  |=6....Q%=margin.|
00000960  04 1a 05 f5 0d 04 24 0e  f2 73 74 61 74 65 6d 65  |......$..stateme|
00000970  6e 74 0d 04 2e 0e fd 20  4b 25 3e 3d 4c 25 2d 31  |nt..... K%>=L%-1|
00000980  0d 04 38 05 f1 0d 04 42  05 e1 0d 04 4c 05 20 0d  |..8....B....L. .|
00000990  04 56 05 20 0d 04 60 21  f4 20 50 52 49 4e 54 20  |.V. ..`!. PRINT |
000009a0  4f 4e 45 20 50 52 4f 47  52 41 4d 20 53 54 41 54  |ONE PROGRAM STAT|
000009b0  45 4d 45 4e 54 0d 04 6a  05 20 0d 04 74 10 dd 20  |EMENT..j. ..t.. |
000009c0  f2 73 74 61 74 65 6d 65  6e 74 0d 04 7e 10 f2 73  |.statement..~..s|
000009d0  74 72 69 70 73 70 61 63  65 73 0d 04 88 05 f5 0d  |tripspaces......|
000009e0  04 92 0d f2 6e 65 78 74  63 68 61 72 0d 04 9c 16  |....nextchar....|
000009f0  61 3d a7 74 65 73 74 31  24 2c bd 28 63 68 61 72  |a=.test1$,.(char|
00000a00  29 29 0d 04 a6 33 ee 20  61 2b 31 20 e5 20 8d 64  |))...3. a+1 . .d|
00000a10  76 44 2c 8d 74 70 44 2c  8d 74 7a 44 2c 8d 64 44  |vD,.tpD,.tzD,.dD|
00000a20  44 2c 8d 64 4e 44 2c 8d  64 58 44 2c 8d 64 62 44  |D,.dND,.dXD,.dbD|
00000a30  2c 8d 64 6c 44 0d 04 b0  10 f2 74 65 78 74 3a e5  |,.dlD.....text:.|
00000a40  20 8d 54 7c 45 0d 04 ba  0f f2 72 65 6d 3a e5 20  | .T|E.....rem:. |
00000a50  8d 54 7c 45 0d 04 c4 46  66 6f 72 6e 65 78 74 3d  |.T|E...Ffornext=|
00000a60  66 6f 72 6e 65 78 74 2b  31 3a f2 70 72 69 6e 74  |fornext+1:.print|
00000a70  28 73 70 61 63 65 2c 64  65 63 6f 64 65 29 3a f2  |(space,decode):.|
00000a80  70 72 69 6e 74 28 73 70  61 63 65 2c 64 65 63 6f  |print(space,deco|
00000a90  64 65 29 3a e5 20 8d 64  76 44 0d 04 ce 25 69 6e  |de):. .dvD...%in|
00000aa0  64 65 6e 74 3d 69 6e 64  65 6e 74 2d 32 3a f2 73  |dent=indent-2:.s|
00000ab0  74 61 72 74 6c 69 6e 65  3a e5 20 8d 64 76 44 0d  |tartline:. .dvD.|
00000ac0  04 d8 48 72 65 70 75 6e  74 69 6c 3d 72 65 70 75  |..Hrepuntil=repu|
00000ad0  6e 74 69 6c 2b 31 3a f2  70 72 69 6e 74 28 73 70  |ntil+1:.print(sp|
00000ae0  61 63 65 2c 64 65 63 6f  64 65 29 3a f2 70 72 69  |ace,decode):.pri|
00000af0  6e 74 28 73 70 61 63 65  2c 64 65 63 6f 64 65 29  |nt(space,decode)|
00000b00  3a e5 20 8d 64 76 44 0d  04 e2 18 f2 63 68 65 63  |:. .dvD.....chec|
00000b10  6b 5f 63 6f 6d 6d 61 73  3a e5 20 8d 64 76 44 0d  |k_commas:. .dvD.|
00000b20  04 ec 31 72 65 70 75 6e  74 69 6c 3d 72 65 70 75  |..1repuntil=repu|
00000b30  6e 74 69 6c 2d 31 3a e7  20 72 65 70 75 6e 74 69  |ntil-1:. repunti|
00000b40  6c 3c 30 20 8c 20 72 65  70 75 6e 74 69 6c 3d 30  |l<0 . repuntil=0|
00000b50  0d 04 f6 3a e7 20 63 68  61 72 3d 6c 69 6e 65 6e  |...:. char=linen|
00000b60  6f 20 8c 20 f2 6c 69 6e  65 6e 6f 28 42 25 2b 4b  |o . .lineno(B%+K|
00000b70  25 2b 31 29 20 8b 20 f2  70 72 69 6e 74 28 63 68  |%+1) . .print(ch|
00000b80  61 72 2c 64 65 63 6f 64  65 29 0d 05 00 16 61 3d  |ar,decode)....a=|
00000b90  a7 74 65 73 74 32 24 2c  bd 28 63 68 61 72 29 29  |.test2$,.(char))|
00000ba0  0d 05 0a 24 ee 20 61 2b  31 20 e5 20 8d 54 7c 45  |...$. a+1 . .T|E|
00000bb0  2c 8d 54 72 45 2c 8d 54  54 45 2c 8d 54 5e 45 2c  |,.TrE,.TTE,.T^E,|
00000bc0  8d 54 68 45 0d 05 14 1a  69 6e 64 65 6e 74 3d 69  |.ThE....indent=i|
00000bd0  6e 64 65 6e 74 2b 32 3a  e5 20 8d 54 7c 45 0d 05  |ndent+2:. .T|E..|
00000be0  1e 13 69 6e 64 65 6e 74  3d 69 6e 64 65 6e 74 2b  |..indent=indent+|
00000bf0  32 0d 05 28 2a e7 20 61  3d 34 20 8c 20 f2 73 74  |2..(*. a=4 . .st|
00000c00  72 69 70 73 70 61 63 65  73 3a e7 20 4b 25 3e 3d  |ripspaces:. K%>=|
00000c10  4c 25 2d 31 20 8c 20 8d  54 7c 45 0d 05 32 0e f2  |L%-1 . .T|E..2..|
00000c20  73 74 61 72 74 6c 69 6e  65 0d 05 3c 1b fd 20 4b  |startline..<.. K|
00000c30  25 3e 3d 4c 25 2d 31 20  84 20 63 68 61 72 3d 63  |%>=L%-1 . char=c|
00000c40  6f 6c 6f 6e 0d 05 46 05  e1 0d 05 50 05 20 0d 05  |olon..F....P. ..|
00000c50  5a 05 20 0d 05 64 1d f4  20 45 58 45 43 55 54 45  |Z. ..d.. EXECUTE|
00000c60  20 41 20 2a 20 49 4e 53  54 52 55 43 54 49 4f 4e  | A * INSTRUCTION|
00000c70  0d 05 6e 05 20 0d 05 78  0f dd f2 6f 73 63 6c 69  |..n. ..x...oscli|
00000c80  28 41 24 29 0d 05 82 0a  24 41 25 3d 41 24 0d 05  |(A$)....$A%=A$..|
00000c90  8c 0f 58 25 3d 41 25 20  83 20 32 35 36 0d 05 96  |..X%=A% . 256...|
00000ca0  0f 59 25 3d 41 25 20 81  20 32 35 36 0d 05 a0 0b  |.Y%=A% . 256....|
00000cb0  d6 20 26 46 46 46 37 0d  05 aa 05 e1 0d 05 b4 05  |. &FFF7.........|
00000cc0  20 0d 05 be 05 20 0d 05  c8 1a f4 20 44 45 43 4f  | .... ..... DECO|
00000cd0  44 45 20 41 20 4c 49 4e  45 20 4e 55 4d 42 45 52  |DE A LINE NUMBER|
00000ce0  0d 05 d2 05 20 0d 05 dc  10 dd f2 6c 69 6e 65 6e  |.... ......linen|
00000cf0  6f 28 41 25 29 0d 05 e6  13 ea 20 44 31 25 2c 44  |o(A%)..... D1%,D|
00000d00  32 25 2c 44 33 25 2c 4c  0d 05 f0 16 44 31 25 3d  |2%,D3%,L....D1%=|
00000d10  20 28 28 41 25 3f 31 29  80 20 26 33 46 29 0d 05  | ((A%?1). &3F)..|
00000d20  fa 16 44 32 25 3d 20 28  28 41 25 3f 32 29 80 20  |..D2%= ((A%?2). |
00000d30  26 33 46 29 0d 06 04 14  44 33 25 3d 20 28 3f 41  |&3F)....D3%= (?A|
00000d40  25 29 20 82 20 26 35 34  0d 06 0e 30 4c 3d 20 44  |%) . &54...0L= D|
00000d50  32 25 2a 32 35 36 2b 44  31 25 2b 28 44 33 25 80  |2%*256+D1%+(D3%.|
00000d60  20 34 29 2a 32 35 36 2a  31 36 20 2b 28 44 33 25  | 4)*256*16 +(D3%|
00000d70  20 80 20 34 38 29 2a 34  0d 06 18 25 e7 20 51 25  | . 48)*4...%. Q%|
00000d80  2b a9 28 c3 28 4c 29 29  2a 6d 6f 64 65 3e 52 25  |+.(.(L))*mode>R%|
00000d90  20 8c 20 f2 73 74 61 72  74 6c 69 6e 65 0d 06 22  | . .startline.."|
00000da0  08 f1 20 4c 3b 0d 06 2c  0b 4b 25 3d 4b 25 2b 33  |.. L;..,.K%=K%+3|
00000db0  0d 06 36 16 51 25 3d 51  25 2b a9 28 c3 28 4c 29  |..6.Q%=Q%+.(.(L)|
00000dc0  29 2a 6d 6f 64 65 0d 06  40 05 e1 0d 06 4a 05 20  |)*mode..@....J. |
00000dd0  0d 06 54 05 20 0d 06 5e  27 f4 20 43 48 45 43 4b  |..T. ..^'. CHECK|
00000de0  20 41 20 4e 45 58 54 20  53 54 41 54 45 4d 45 4e  | A NEXT STATEMEN|
00000df0  54 20 46 4f 52 20 43 4f  4d 4d 41 53 0d 06 68 05  |T FOR COMMAS..h.|
00000e00  20 0d 06 72 13 dd 20 f2  63 68 65 63 6b 5f 63 6f  | ..r.. .check_co|
00000e10  6d 6d 61 73 0d 06 7c 15  66 6f 72 6e 65 78 74 3d  |mmas..|.fornext=|
00000e20  66 6f 72 6e 65 78 74 2d  31 0d 06 86 0a 70 6f 73  |fornext-1....pos|
00000e30  3d 4b 25 0d 06 90 05 f5  0d 06 9a 0d 70 6f 73 3d  |=K%.........pos=|
00000e40  70 6f 73 2b 31 0d 06 a4  26 e7 20 42 25 3f 70 6f  |pos+1...&. B%?po|
00000e50  73 3d 63 6f 6d 6d 61 20  8c 20 66 6f 72 6e 65 78  |s=comma . fornex|
00000e60  74 3d 66 6f 72 6e 65 78  74 2d 31 0d 06 ae 2d fd  |t=fornext-1...-.|
00000e70  20 42 25 3f 70 6f 73 3d  63 6f 6c 6f 6e 20 84 20  | B%?pos=colon . |
00000e80  70 6f 73 3d 4c 25 2d 31  20 84 20 42 25 3f 70 6f  |pos=L%-1 . B%?po|
00000e90  73 3d 72 65 74 75 72 6e  0d 06 b8 1b e7 20 66 6f  |s=return..... fo|
00000ea0  72 6e 65 78 74 3c 30 20  8c 20 66 6f 72 6e 65 78  |rnext<0 . fornex|
00000eb0  74 3d 30 0d 06 c2 05 e1  0d 06 cc 05 20 0d 06 d6  |t=0......... ...|
00000ec0  05 20 0d 06 e0 2f f4 20  49 4e 44 45 4e 54 20 54  |. .../. INDENT T|
00000ed0  48 45 20 4d 41 52 47 49  4e 20 54 48 45 20 43 4f  |HE MARGIN THE CO|
00000ee0  52 52 45 43 54 20 23 20  4f 46 20 53 50 41 43 45  |RRECT # OF SPACE|
00000ef0  53 0d 06 ea 05 20 0d 06  f4 10 dd 20 f2 73 74 61  |S.... ..... .sta|
00000f00  72 74 6c 69 6e 65 0d 06  fe 05 f1 0d 07 08 19 e7  |rtline..........|
00000f10  20 69 6e 64 65 6e 74 3c  30 20 8c 20 69 6e 64 65  | indent<0 . inde|
00000f20  6e 74 3d 30 0d 07 12 28  6d 61 72 67 69 6e 3d 36  |nt=0...(margin=6|
00000f30  2b 32 2a 66 6f 72 6e 65  78 74 2b 32 2a 72 65 70  |+2*fornext+2*rep|
00000f40  75 6e 74 69 6c 2b 69 6e  64 65 6e 74 0d 07 1c 19  |until+indent....|
00000f50  e7 20 6d 61 72 67 69 6e  3c 36 20 8c 20 6d 61 72  |. margin<6 . mar|
00000f60  67 69 6e 3d 36 0d 07 26  13 f1 20 c4 6d 61 72 67  |gin=6..&.. .marg|
00000f70  69 6e 2c 22 20 22 29 3b  0d 07 30 0d 51 25 3d 6d  |in," ");..0.Q%=m|
00000f80  61 72 67 69 6e 0d 07 3a  10 f2 73 74 72 69 70 73  |argin..:..strips|
00000f90  70 61 63 65 73 0d 07 44  0f 6d 6f 64 65 3d 73 69  |paces..D.mode=si|
00000fa0  6e 67 6c 65 0d 07 4e 05  e1 0d 07 58 05 20 0d 07  |ngle..N....X. ..|
00000fb0  62 05 20 0d 07 6c 13 f4  20 45 52 52 4f 52 20 53  |b. ..l.. ERROR S|
00000fc0  45 43 54 49 4f 4e 0d 07  76 05 20 0d 07 80 07 d9  |ECTION..v. .....|
00000fd0  23 30 0d 07 8a 0a ef 20  31 32 2c 33 0d 07 94 1e  |#0..... 12,3....|
00000fe0  e7 20 9f 3c 3e 31 37 20  8c 20 f6 3a f1 22 20 61  |. .<>17 . .:." a|
00000ff0  74 20 6c 69 6e 65 20 22  3b 9e 0d 07 9e 18 e8 27  |t line ";......'|
00001000  27 22 41 4e 4f 54 48 45  52 20 47 4f 20 3f 22 2c  |'"ANOTHER GO ?",|
00001010  59 24 0d 07 a8 14 e7 20  c0 59 24 2c 31 29 3d 22  |Y$..... .Y$,1)="|
00001020  4e 22 20 8c 20 e0 0d 07  b2 0f e7 20 9e 3c 33 37  |N" . ...... .<37|
00001030  30 20 8c 20 f9 0d 07 bc  0a e5 20 8d 44 7c 41 0d  |0 . ...... .D|A.|
00001040  07 c6 05 20 0d 07 d0 05  20 0d 07 da 1e f4 20 47  |... .... ..... G|
00001050  45 54 20 41 20 4c 49 4e  45 20 46 52 4f 4d 20 54  |ET A LINE FROM T|
00001060  48 45 20 46 49 4c 45 0d  07 e4 05 20 0d 07 ee 13  |HE FILE.... ....|
00001070  dd f2 6c 6f 61 64 6c 69  6e 65 28 62 75 66 29 0d  |..loadline(buf).|
00001080  07 f8 09 ea 20 61 2c 62  0d 08 02 09 61 3d 9a 23  |.... a,b....a=.#|
00001090  58 0d 08 0c 0a 3f 62 75  66 3d 61 0d 08 16 09 62  |X....?buf=a....b|
000010a0  3d 9a 23 58 0d 08 20 0b  62 75 66 3f 31 3d 62 0d  |=.#X.. .buf?1=b.|
000010b0  08 2a 0f e7 20 61 3c 3e  31 33 20 8c 20 e1 0d 08  |.*.. a<>13 . ...|
000010c0  34 0f e7 20 62 3e 31 32  37 20 8c 20 e1 0d 08 3e  |4.. b>127 . ...>|
000010d0  0d 62 75 66 3f 32 3d 9a  23 58 0d 08 48 09 61 3d  |.buf?2=.#X..H.a=|
000010e0  9a 23 58 0d 08 52 0b 62  75 66 3f 33 3d 61 0d 08  |.#X..R.buf?3=a..|
000010f0  5c 0f e3 20 62 3d 34 20  b8 20 61 2d 31 0d 08 66  |\.. b=4 . a-1..f|
00001100  0d 62 75 66 3f 62 3d 9a  23 58 0d 08 70 07 ed 20  |.buf?b=.#X..p.. |
00001110  62 0d 08 7a 0c 62 75 66  3f 61 3d 31 33 0d 08 84  |b..z.buf?a=13...|
00001120  05 e1 0d 08 8e 05 20 0d  08 98 05 20 0d 08 a2 1f  |...... .... ....|
00001130  f4 20 49 47 4e 4f 52 45  20 41 4e 59 20 4c 45 41  |. IGNORE ANY LEA|
00001140  44 49 4e 47 20 53 50 41  43 45 53 0d 08 ac 1c f4  |DING SPACES.....|
00001150  20 41 54 20 54 48 45 20  53 54 41 52 54 20 4f 46  | AT THE START OF|
00001160  20 41 20 4c 49 4e 45 0d  08 b6 05 20 0d 08 c0 12  | A LINE.... ....|
00001170  dd 20 f2 73 74 72 69 70  73 70 61 63 65 73 0d 08  |. .stripspaces..|
00001180  ca 13 e7 20 51 25 3e 6d  61 72 67 69 6e 20 8c 20  |... Q%>margin . |
00001190  e1 0d 08 d4 05 f5 0d 08  de 0b 4b 25 3d 4b 25 2b  |..........K%=K%+|
000011a0  31 0d 08 e8 1b fd 20 4b  25 3e 4c 25 2d 31 20 84  |1..... K%>L%-1 .|
000011b0  20 42 25 3f 4b 25 3e 73  70 61 63 65 0d 08 f2 0b  | B%?K%>space....|
000011c0  4b 25 3d 4b 25 2d 31 0d  08 fc 05 e1 0d 09 06 05  |K%=K%-1.........|
000011d0  20 0d 09 10 05 20 0d 09  1a 1c f4 20 47 45 54 20  | .... ..... GET |
000011e0  54 48 45 20 4e 45 58 54  20 43 48 41 52 41 43 54  |THE NEXT CHARACT|
000011f0  45 52 0d 09 24 05 20 0d  09 2e 0f dd 20 f2 6e 65  |ER..$. ..... .ne|
00001200  78 74 63 68 61 72 0d 09  38 0b 4b 25 3d 4b 25 2b  |xtchar..8.K%=K%+|
00001210  31 0d 09 42 27 e7 20 4b  25 3e 4c 25 2d 31 20 8c  |1..B'. K%>L%-1 .|
00001220  20 63 68 61 72 3d 73 70  61 63 65 20 8b 20 63 68  | char=space . ch|
00001230  61 72 3d 42 25 3f 4b 25  0d 09 4c 1d e7 20 63 68  |ar=B%?K%..L.. ch|
00001240  61 72 3c 73 70 61 63 65  20 8c 20 63 68 61 72 3d  |ar<space . char=|
00001250  73 70 61 63 65 0d 09 56  05 e1 0d 09 60 05 20 0d  |space..V....`. .|
00001260  09 6a 05 20 0d 09 74 1f  f4 20 44 45 41 4c 20 57  |.j. ..t.. DEAL W|
00001270  49 54 48 20 41 20 52 45  4d 20 53 54 41 54 45 4d  |ITH A REM STATEM|
00001280  45 4e 54 0d 09 7e 05 20  0d 09 88 0a dd 20 f2 72  |ENT..~. ..... .r|
00001290  65 6d 0d 09 92 17 f2 70  72 69 6e 74 28 63 68 61  |em.....print(cha|
000012a0  72 2c 64 65 63 6f 64 65  29 0d 09 9c 05 f5 0d 09  |r,decode).......|
000012b0  a6 0d f2 6e 65 78 74 63  68 61 72 0d 09 b0 2e e7  |...nextchar.....|
000012c0  20 63 68 61 72 3d 71 75  6f 74 65 20 8c 20 f2 74  | char=quote . .t|
000012d0  65 78 74 20 8b 20 f2 70  72 69 6e 74 28 63 68 61  |ext . .print(cha|
000012e0  72 2c 64 65 63 6f 64 65  29 0d 09 ba 0e fd 20 4b  |r,decode)..... K|
000012f0  25 3e 3d 4c 25 2d 31 0d  09 c4 05 e1 0d 09 ce 05  |%>=L%-1.........|
00001300  20 0d 09 d8 05 20 0d 09  e2 23 f4 20 44 45 41 4c  | .... ...#. DEAL|
00001310  20 57 49 54 48 20 54 45  58 54 20 42 45 54 57 45  | WITH TEXT BETWE|
00001320  45 4e 20 51 55 4f 54 45  53 0d 09 ec 05 20 0d 09  |EN QUOTES.... ..|
00001330  f6 0b dd 20 f2 74 65 78  74 0d 0a 00 19 f2 70 72  |... .text.....pr|
00001340  69 6e 74 28 63 68 61 72  2c ac 20 64 65 63 6f 64  |int(char,. decod|
00001350  65 29 0d 0a 0a 05 f5 0d  0a 14 0d f2 6e 65 78 74  |e)..........next|
00001360  63 68 61 72 0d 0a 1e 19  f2 70 72 69 6e 74 28 63  |char.....print(c|
00001370  68 61 72 2c ac 20 64 65  63 6f 64 65 29 0d 0a 28  |har,. decode)..(|
00001380  1b fd 20 4b 25 3e 3d 4c  25 2d 31 20 84 20 63 68  |.. K%>=L%-1 . ch|
00001390  61 72 3d 71 75 6f 74 65  0d 0a 32 05 e1 0d 0a 3c  |ar=quote..2....<|
000013a0  05 20 0d 0a 46 05 20 0d  0a 50 1a f4 20 50 52 49  |. ..F. ..P.. PRI|
000013b0  4e 54 20 41 20 43 48 41  52 41 43 54 45 52 20 4f  |NT A CHARACTER O|
000013c0  52 0d 0a 5a 15 f4 20 43  4f 4d 50 52 45 53 53 45  |R..Z.. COMPRESSE|
000013d0  44 20 43 4f 44 45 0d 0a  64 05 20 0d 0a 6e 19 dd  |D CODE..d. ..n..|
000013e0  20 f2 70 72 69 6e 74 28  63 68 61 72 2c 64 65 63  | .print(char,dec|
000013f0  6f 64 65 29 0d 0a 78 0a  ea 20 6c 2c 41 24 0d 0a  |ode)..x.. l,A$..|
00001400  82 0e 41 24 3d bd 28 63  68 61 72 29 0d 0a 8c 07  |..A$=.(char)....|
00001410  6c 3d 31 0d 0a 96 3c e7  20 64 65 63 6f 64 65 20  |l=1...<. decode |
00001420  8c 20 e7 20 63 68 61 72  3e 70 72 69 6e 74 61 62  |. . char>printab|
00001430  6c 65 20 8c 20 41 24 3d  4e 41 4d 45 24 28 63 68  |le . A$=NAME$(ch|
00001440  61 72 2d 31 32 38 29 3a  6c 3d a9 28 41 24 29 0d  |ar-128):l=.(A$).|
00001450  0a a0 2e e7 20 ac 20 64  65 63 6f 64 65 20 8c 20  |.... . decode . |
00001460  e7 20 28 63 68 61 72 20  83 20 31 32 38 29 3c 73  |. (char . 128)<s|
00001470  70 61 63 65 20 8c 20 41  24 3d 22 20 22 0d 0a aa  |pace . A$=" "...|
00001480  1f e7 20 51 25 2b 6c 2a  6d 6f 64 65 3e 52 25 20  |.. Q%+l*mode>R% |
00001490  8c 20 f2 73 74 61 72 74  6c 69 6e 65 0d 0a b4 43  |. .startline...C|
000014a0  e7 20 63 68 61 72 3d 64  65 66 69 6e 65 20 8c 20  |. char=define . |
000014b0  ef 20 38 2c 31 32 39 3a  e7 20 c0 59 31 24 2c 31  |. 8,129:. .Y1$,1|
000014c0  29 3d 22 59 22 20 8c 20  6d 6f 64 65 3d 64 6f 75  |)="Y" . mode=dou|
000014d0  62 6c 65 3a ef 20 31 2c  33 32 2c 31 2c 31 34 0d  |ble:. 1,32,1,14.|
000014e0  0a be 09 f1 20 41 24 3b  0d 0a c8 10 51 25 3d 51  |.... A$;....Q%=Q|
000014f0  25 2b 6c 2a 6d 6f 64 65  0d 0a d2 05 e1 0d 0a dc  |%+l*mode........|
00001500  05 20 0d 0a e6 05 20 0d  ff                       |. .... ..|
00001509