Listing of file='LPFILEID' on disk='vmedia/701-2721C.wvd.zip'
# Sector 225, program filename = 'LPFILEID' 3000 REM %^ GENERATE FILE ID MODULE ('41) ****LPFILEID**** JG 6/23/81 3010 DEFFN'41(I) : D0=POS(" ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"=STR(R5$,5) )-1 : DATA LOAD DA T(B3+D0)A0$() : CONVERT STR(A0$(),10,4)TO I1 3020 CONVERT I1TO STR(A7$(1),,4),(####) : L0$(I+2)="DOCUMENT."&STR(R5$,5,1)&"."&STR(A7$(1),,4) : GOSUB '217(1,1,L0$(I+2),B9$) : IF R1$=HEX(00)THEN I1=MAX(1,MOD(I1+1,10000)) : ON POS(HEX(0003)=R1$)GOTO 3020,3030 3030 CONVERT MAX(1,MOD(I1+1,10000))TO STR(A0$(),10,4),(####) : DATA SAVE DA T(B3+D0)A0$() : GOSUB '210(L0$(I+2),B9$,B4$) : IF R1$=HEX(00)THEN RETURN : IF R1$=HEX(01)THEN GOTO 3110 : IF I=1THEN L0$=BIN(9) : ELSE L0$=BIN(13) : STR(L0$,2)="Created" : LOAD T"LPERROR" 3110 L0$=BIN(11) : STR(L0$,2)=B9$ : LOAD T"LPERROR" 3230 DEFFN'0"SCRATCH T ";HEX(22);"LPFILEID";HEX(22);HEX(3A);"SAVE T () ";HEX(2 2);"LPFILEID";HEX(22)