image of READY prompt

Wang2200.org

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)