Listing of file='TRNFILE' on disk='vmedia/701-2607C.wvd.zip'
# Sector 50, program filename = 'TRNFILE' 0010 REM TRNFILE, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED 0170 COM B$6,O2$4,C1$N,B0$21,C0$20,D0$20,E0$16,F0$5,L0$21,M0$20,N0$20,O0$16,P0 $5,G0$8,H0$12,H1$1,N4$Q3,D3,D4,O3$11,D2,D5,P4$1,A0$1,H$1,H2$1,A0 : COM P$(N0)Q2,P1$(N0)24,B0$(N0)1,C0$(N0)1,D0$(N0)1,B5(N0),B(N0),B1(N0),B2( N0),B4(N0) : COM G$(3)1,A,A1,A2,G(3),D,D1 0176 COM I2$1,L5$22,M4$54,I1$ 0199 L5$=HEX(A006A0)&BIN(Q2)&HEX(A018A001A001A00260036003620362025204) : M4$=HEX(A006A004A0)&BIN(N)&HEX(A015A014A014A010A005A015A014A014A010A005A0 08A00CA001A0)&BIN(Q3)&HEX(60036003A00B62026003A001A001A001A0015205) : I1$=HEX(A006A001520752075207520752075207) : GOSUB '99 9998 DEFFN'29"Q$=";HEX(22);"TRNFILE";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D)