Listing of file='@INVMGT' on disk='vmedia/701-2606C.wvd.zip'
# Sector 173, program filename = '@INVMGT' 3166 REM %FINVFILE 'PUT' ROUTINE 3168 DEFFN'68(N) : $PACK(F=E3$)M$()FROMA3$,D2,D,D0,G2,C2,D3,G,G1,I1$,C5,G4,A0$,A1$,A2$,C0,C1 ,D1,G1$ : GOSUB '42(N) : RETURN 3178 DEFFN'78(N) : GOSUB '52(N) : $UNPACK(F=E3$)M$()TO A3$,D2,D,D0,G2,C2,D3,G,G1,I1$,C5,G4,A0$,A1$,A2$,C0,C 1,D1,G1$ : RETURN 3188 DEFFN'69(N) : $PACK(F=L$)M$()FROMG1$,C5$,A5$,B(),L2$,L4$(),L1,L2,L5,L() : DATA SAVE DC #N,M$() : RETURN 3198 DEFFN'79(N) : DATA LOAD DC #N,M$() : $UNPACK(F=L$)M$()TO G1$,C5$,A5$,B(),L2$,L4$(),L1,L2,L5,L() : RETURN