qa
s ptr ri27p l 3 B8 00 31
r vC := srs
if (src) then goto :doslow
s ptr ri27p l 10 2E FF 2E
if (! src) then goto :eof
r vC := word [ri27s : word [srs:sro + 3] + 2]
:doslow
s vC:0 FFFF AD 0C 20 2C 60 75
if (src != 1) then goto :eof
u srs:sro l 6

a 100
 ; xor cx, cx
 ; xchg cx, [2C]
 ; jcxz 100
 ; mov ah, 49
 ; int 21
 xor bx, bx
 mov cx, [32]
 .
r vF := aao
a
 mov ah, 3E
 int 21
 inc bx
 loop (vF)
 mov ax, 3100
 mov dx, 18
 int 21
 .
r v0 := aao
a
 lodsw
 cmp al, (#'a')
 .
r v1 := aao
a
 jb 100
 sub al, 20
 .
r v2 := aao
a
 sub al, 40
 retf
 .
if (aao > 180) then goto :eof
a v1
 jb (v2)
 .
a srs:sro
 call far (psp):(v0)
 .
g