image of READY prompt

Wang2200.org

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)