image of READY prompt

Wang2200.org

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)