Listing of file='CUSFILE' on disk='vmedia/701-2607C.wvd.zip'
# Sector 263, program filename = 'CUSFILE'
0010 REM CUSFILE, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT
OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0170 COM C$Q,A1$21,A2$20,A3$20,A4$16,A5$5,C3$6,C4$3,B0,N1$Q3,G$2,P$12,P2$1,P3$
1,P5$1,B,P2,P3,M,M1,P4,P5,C0
: COM A1$(2)21,A2$(2)20,A3$(2)20,A4$(2)16,A5$(2)5,E$(2)6
: COM A$1,L$46
0199 L$=HEX(A0)&BIN(Q)&HEX(A015A014A014A010A005A006A0036004A0)&BIN(Q3)&HEX(A00
2A00CA001A001A00152055205520552055205600360035205)
: GOSUB '99
9998 DEFFN'29"Q$=";HEX(22);"CUSFILE";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D)