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)