Listing of file='PROFILE' on disk='vmedia/701-2661A.wvd.zip'
# Sector 514, program filename = 'PROFILE'
0010 REM PROFILE , 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 G1$Q7,C5$1,A5$1,L2$20,L4$(2)4,L1,L2,L5
0172 COM B(13),L(4,13)
0174 COM M$(4)62,L$20,N
0199 L$=HEX(A0)&BIN(Q7)&HEX(A001A0015202A014A0046005600160015003)
: GOSUB '99
3188 DEFFN'69(N)
: $PACK(F=L$)M$()FROMG1$,C5$,A5$,B(),L2$,L4$(),L1,L2,L5,L()
: DATA SAVE DC #N,M$()
: RETURN
3198 DEFFN'79(N)
: DATA LOAD DC #N,M$()
: $UNPACK(F=L$)M$()TO G1$,C5$,A5$,B(),L2$,L4$(),L1,L2,L5,L()
: RETURN
9999 DEFFN'29"Q$=";HEX(22);"PROFILE ";HEX(22);":SCRATCHTQ$:SAVET$()Q$";HEX(0D)