Listing of file='OPNFILE' on disk='vmedia/701-2607C.wvd.zip'
# Sector 255, program filename = 'OPNFILE' 0010 REM OPNFILE, 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 0199 L2$=HEX(A0)&BIN(N)&HEX(6004A001A002A001A001520552055205520552055003) : GOSUB '99 3122 DEFFN'41(N,Q) : Q9=1 : IF Q>1THEN DATA LOAD DC #N,O$() : ELSE Q9=0 : DBACKSPACE #N,Q9S : $PACK(F=L2$)O$(Q)FROMC1$(Q),C(Q),F$(Q),H$(Q),A$(Q),C$(Q),D(Q),A(Q),A1(Q), A2(Q),C1(Q),D1(Q) : DATA SAVE DC #N,O$() : RETURN 3138 DEFFN'51(N,Q) : DATA LOAD DC #N,O$() : $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) : RETURN 9998 DEFFN'29"Q$=";HEX(22);"OPNFILE";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D)