Listing of file='INVT110C' on disk='vmedia/701-2661A.wvd.zip'
# Sector 591, program filename = 'INVT110C'
0010 REM INVT110C, RELEASE 1-0, (04/03/79), THIS PROGRAM IS A COPYRIGHT PRODUC
T OF WANG LABORATORIES., UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED,
SALES PROJ/L.O.S. SORT SPECIAL INPUT
1000 %THIS LINE MUST BE # 1000
2500 IF K6=4OR K6=6THEN F8$=STR(A0$,B6(2),B6(3))
: IF K6=5THEN F8$=STR(A2$,B6(2),B6(3))
: IF K6=7THEN F8$=STR(A1$,B6(2),B6(3))
: IF F8$<F6$OR F8$>F7$THEN 2400
9999 DEFFN'29"Q$=";HEX(22);"INVT110C";HEX(22);":SCRATCHTQ$:SAVET$()Q$";HEX(0D)