Listing of file='LPWRITFD' on disk='vmedia/701-2721C.wvd.zip'
# Sector 611, program filename = 'LPWRITFD'
2000 REM % CREATE RECORD MODULE SUBROUTINE ('73)
2040 DIM F9$20,X1$20
2050 DEFFN'73(X1$)
: K8$()=ALL(HEX(20))
: GOSUB '153(K8$(),"2",X1$," "," "," "," ")
: IF M=53THEN RETURN
: ELSE IF M<>0THEN STOP #
: FOR I=1TO L5STEP 1
: K8$()=ALL(HEX(20))
: STR(K8$(),41)=X1$
: K8$(62)="S"
: K8$(67)=STR(L3$(I),9,1)
: STR(K8$(),68)=STR(L3$(I),12,2)
: F9$=X1$&"-"&STR(L3$(I),1,L4)
: GOSUB '153(K8$(),"3",F9$," "," "," "," ")
: IF M<>0THEN STOP #
2200 K8$()=STR(L3$(I),10,2)
: GOSUB '153(K8$(),"2",X1$," ","3",F9$," ")
: IF M<>0THEN STOP #
: NEXT I
: RETURN
9000 DEFFN'0"SCRATCH T ";HEX(22);"LPWRITFD";HEX(22)
9010 DEFFN'1"SAVE T () ";HEX(22);"LPWRITFD";HEX(22)