Listing of file='SOPFILE' on disk='vmedia/701-2607C.wvd.zip'
# Sector 429, program filename = 'SOPFILE'
0010 REM SOPFILE, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT
OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0170 COM C1$(M0)N,C(M0),F$(M0)1,H$(M0)2,A$(M0)1,C$(M0)1,D(M0),A(M0),A1(M0),A2(
M0),C1(M0),D1(M0)
: COM L2$24,O$(M0)I
: COM H3$N,J5,G4$1,G5$2,E4$1,E5$1,C,C3,C4,C5,C2,C1
: COM O,O1$(M0)I
0199 L2$=HEX(A0)&BIN(N)&HEX(6004A001A002A001A001520552055205520552055003)
: O=0
: GOSUB '99
3372 DEFFN'45(N)
: O=O+1
: $PACK(F=L2$)O1$(O)FROMH3$,J5,G4$,G5$,E4$,E5$,C,C3,C4,C5,C2,C1
: IF O<M0AND H3$<HEX(FF)THEN RETURN
: DATA SAVE DC #N,O1$()
: O=0
: RETURN
3388 DEFFN'55(N)
: Q=1
: C1$(1)=HEX(FF)
: DATA LOAD DC #N,O$()
: IF END THEN RETURN
3398 $UNPACK(F=L2$)O$(Q)TO C1$(Q),C(Q),F$(Q),H$(Q),A$(Q),C$(Q),D(Q),A(Q),A1(Q)
,A2(Q),C1(Q),D1(Q)
: IF C1$(Q)=HEX(FF)THEN RETURN
: Q=Q+1
: IF Q<=M0THEN 3398
: RETURN
9998 DEFFN'29"Q$=";HEX(22);"SOPFILE";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D)