Listing of file='INVT110D' on disk='vmedia/701-2661A.wvd.zip'
# Sector 31, program filename = 'INVT110D'
0010 REM INVT110D, RELEASE 1-0, (06/12/79), THIS PROGRAM IS A COPYRIGHT PRODUC
T OF WANG LABORATORIES., UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED,
SALES PROJ/L.O.S. EXEC. LOADER MODULE
0170 COM K5$(50)4,Q7$80,N,Q2,Q4,Q7,M5$8,M$8
4000 M5$=STR(M$(),50,8)
: M$=STR(M$(),241,8)
: Q=2
: LOAD T"KFAMOPEN"199,199BEG 4060
4060 LOAD T"COMCLEAR"10,199BEG 4065
4065 IF I6=1THEN 4200
: SELECT @PARTS0$
: GOSUB '230(2,14,8,1,S$(8),1," ",STR(M$(),19,3),STR(M$(),22,3))
: IF Q$=" "THEN 4200
: PRINT HEX(030A);"PROFILE FILE IS NOT AVAILABLE"
: Q7$=" "
4160 KEYIN Q7$,4160,4160
: LINPUT "KEY RETURN TO RESUME?",?STR(Q7$,1,1)
: LOAD T"INVTMENU"
4200 LOAD T"COMCLEAR"10,3999BEG 4220
4220 I=0
: SELECT PRINT 005(80)
: PRINT HEX(03)
: PRINT AT(7,21);"************************************"
: PRINT AT(8,21);"* Loading Common Variables *"
: PRINT AT(9,21);"************************************"
4280 K5$()="KFAMCODESUBUTIL DENTRY INVFILE"&S0$(3)&"FINFILE"&S0$(3)&"SLSSTABV
PROFILE"&S0$(14)
4290 DEFFN'99
: Q2=VAL(Q0$(2))
: Q4=VAL(Q0$(4))
: Q7=VAL(Q0$(7))
: I=I+1
: IF I=8THEN 4360
: LOAD TSTR(K5$(),I*8-7,8)199,210
4360 LOAD T"PRNTAVAL"3940,3967BEG 4400
4400 Q6$=STR(M5$,,7)&"E"
: LOAD TQ6$4000
9999 DEFFN'29"Q$=";HEX(22);"INVT110D";HEX(22);":SCRATCHTQ$:SAVET$()Q$";HEX(0D)