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)