Listing of file='LPPRENAM' on disk='vmedia/701-2721C.wvd.zip'
# Sector 455, program filename = 'LPPRENAM' 0100 REM % LPPRENAM 0230 COM R2,R2$6,R3$(6)9,R4$3,R7$20,R8$3 : COM R9$(19)8,R9$1,R9,I9,I9$24,I9(5),I9$(7)8,I8$3 : LOAD T"DDA.DAT"7000,8999BEG 1020 1020 GOSUB '140(4,"150151152156") : R9=R9+2 : R9$()=STR(R9$(),1,(R9-2)*8)&"LPGETNAM"&"DDA.VARC" : LOAD T<R9>R9$() 9000 DEFFN'0"SCRATCH T ";HEX(22);"LPPRENAM";HEX(22) 9100 DEFFN'1"SAVE T() ";HEX(22);"LPPRENAM";HEX(22)