image of READY prompt

Wang2200.org

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