image of READY prompt

Wang2200.org

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)