0001 ! (c) Copyright PPC Paris 1986
0500 DEF FNT(N,B) = INT(2*FP(N/2^(B+1)))
1000 DIM C$[24]
1010 EDIT 'HPIL',TEXT
1020 DELETE 1,9999
1030 ASSIGN # 1 TO 'HPIL',TEXT
1040 INTEGER R1,R2
1050 C$='DABDSRENDESRCMDRDYIDYISR'
1060 DELAY 0
1070 STANDBY ON
2000 WIO 0,48
2010 R1=RIO(1)
2020 IF NOT FNT(R1,2) THEN 2010
2030 R2=RIO(2)
2040 R1=32*INT(R1/32)
2050 WIO 1,R1
2060 R1=R1/32
2070 D$=C$[R1*3+1,R1*3+3]&' '&STR$(R2)
2080 ON R1+1 GOSUB 3000,3000,3000,3000,4000,5000,3000,3000
2090 PRINT # 1 ; D$
2100 PRINT D$
2110 WIO 2,R2
2120 GOTO 2000
3000 IF R2<32 OR R2>126 THEN RETURN
3010 D$=D$&' '&CHR$(R2)
3020 RETURN
4000 IF R2=0 THEN D$='NUL'
4010 IF R2=1 THEN D$='GTL'
4020 IF R2=4 THEN D$='SDC'
4030 IF R2=5 THEN D$='PPD'
4040 IF R2=9 THEN D$='GET'
4050 IF R2=15 THEN D$='ELN'
4060 IF R2=16 THEN D$='NOP'
4070 IF R2=17 THEN D$='LLO'
4080 IF R2=20 THEN D$='DCL'
4090 IF R2=21 THEN D$='PPU'
4100 IF R2=24 THEN D$='EAR'
4110 IF R2>31 AND R2<63 THEN D$='LAD '&STR$(R2-32)
4120 IF R2=63 THEN D$='UNL'
4130 IF R2>63 AND R2<95 THEN D$='TAD '&STR$(R2-64)
4140 IF R2=95 THEN D$='UNT'
4150 IF R2>95 AND R2<127 THEN D$='SAD '&STR$(R2-96)
4160 IF R2=127 THEN D$='ISA'
4170 IF R2>127 AND R2<144 THEN D$='PPE '&STR$(R2-129)
4180 IF R2=144 THEN D$='IFC'
4190 IF R2=146 THEN D$='REN'
4200 IF R2=147 THEN D$='NRE'
4210 IF R2=154 THEN D$='AAU'
4220 IF R2=155 THEN D$='LPD'
4230 IF R2>159 AND R2<192 THEN D$='DDL '&STR$(R2-160)
4240 IF R2>191 AND R2<224 THEN D$='DDT '&STR$(R2-192)
4250 RETURN
5000 IF R2=0 THEN D$='RFC'
5010 IF R2=64 THEN D$='ETO'
5020 IF R2=65 THEN D$='ETE'
5030 IF R2=66 THEN D$='NRD'
5040 IF R2=96 THEN D$='SDA'
5050 IF R2=97 THEN D$='SST'
5060 IF R2=98 THEN D$='SDI'
5070 IF R2=99 THEN D$='SAI'
5080 IF R2=100 THEN D$='TCT'
5090 IF R2>127 AND R2<159 THEN D$='AAD '&STR$(R2-128)
5100 IF R2=159 THEN D$='IAA'
5110 IF R2>159 AND R2<191 THEN D$='AEP '&STR$(R2-160)
5120 IF R2=191 THEN D$='IEP'
5130 IF R2>191 AND R2<223 THEN D$='AES '&STR$(R2-192)
5140 IF R2=223 THEN D$='IES'
5150 IF R2>223 AND R2<255 THEN D$='AMP '&STR$(R2-224)
5160 IF R2=255 THEN D$='IMP'
5170 RETURN