image of READY prompt

Wang2200.org

Listing of file='FINFILE' on disk='vmedia/701-2661A.wvd.zip'

# Sector 448, program filename = 'FINFILE'
0010 REM FINFILE , RELEASE 1-0, (06/15/79)  THIS PROGRAM IS A COPYRIGHT PRODUC
     T OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITE
     D
0170 COM I1$1,A0$1,A1$1,A2$1,A3$1,G1$Q7
0172 COM D,D2,D0,G2,C2,D3,G,G1,C5,G4,C0,C1,D1
0174 COM M$(4)62,E3$40,N
0199 E3$=HEX(00)&BIN(175+Q2+Q4)&HEX(A00160046104610461046102610251045104A00163
     026201A001A001A001500260015302A0)&BIN(Q7)
   : GOSUB '99
3168 DEFFN'68(N)
   : $PACK(F=E3$)M$()FROMA3$,D2,D,D0,G2,C2,D3,G,G1,I1$,C5,G4,A0$,A1$,A2$,C0,C1
     ,D1,G1$
   : GOSUB '42(N)
   : RETURN
3178 DEFFN'78(N)
   : GOSUB '52(N)
   : $UNPACK(F=E3$)M$()TO A3$,D2,D,D0,G2,C2,D3,G,G1,I1$,C5,G4,A0$,A1$,A2$,C0,C
     1,D1,G1$
   : RETURN
9999 DEFFN'29"Q$=";HEX(22);"FINFILE ";HEX(22);":SCRATCHTQ$:SAVET$()Q$";HEX(0D)