REMUUDECOD:GregCook31Jul2002
REP.REP.I.LINEA$:IFINS.A$,"# End")END
L%=INS.A$,"begin "):U.L%:F$=M.A$,L%+10):D%=OPENO.F$
REP.L%=GET:IFL%>32A.L%<78PROCl(L%-32,D%)
U.L%=32ORL%=96:CLO.#D%:U.0
DEFPROCl(L%,D%):LOC.Q%,R%,U%,V%
Q%=L%DIV3:R%=L%MOD3:IFQ%PROCq(Q%,D%)
IFR%U%=GET:V%=GET:BP.#D%,U%*4-128A.&FCORV%DIV16-2A.3
IFR%>1U%=GET:BP.#D%,V%*16A.&F0ORU%DIV4-8A.&F
REP.U.GET=13:E.
DEFPROCq(Q%,D%):LOC.I%,U%,V%
F.I%=1TOQ%:U%=GET:V%=GET:BP.#D%,U%*4-128A.&FCORV%DIV16-2A.3
U%=GET:BP.#D%,V%*16A.&F0ORU%DIV4-8A.&F
V%=GET:BP.#D%,U%*64A.&C0ORV%-32A.63:N.:E.
