* invent.inv 08/18/83
SET CONSOLE OFF
? CHR(28)
SET CONSOLE ON
GOTO TOP
STORE 0 TO pageno
STORE 0 TO col1
STORE 0 TO col2
STore 0 TO col3
STORE 0 TO COL4
STORE 0 TO COL5
STORE 0 TO COL6
STORE 0 TO COL7
STORE 0 TO COL8
STORE 0 TO COL9
STORE T to MORE
SET MARGIN TO 5
DO WHILE more
STORE pageno + 1 TO pageno
STORE 7 TO lineno
ERASE
EJECT
? ' '
? '========================= SIG/M DISK INVENTORY ====================='
? ' '
? '           ' + date() + '                       PAGE: ' + str(pageno,3)
? ' '
? 'VOL  OPEN    BACK  WAITING  STOCK  CLOSING NORMAL SHOULD ACTUAL CLOSING'
? 'NO. INVENT  ORDERS TO SHIP  RECVD  INVENT. STOCK  ORDER  ORDER  BALANCE'
? ' '
DO WHILE lineno <55
IF .NOT. EOF
STORE open:inv-back:ord-wait:ship+recvd TO it
STORE COL1 + OPEN:INV TO COL1
STORE COL2 + BACK:ORD TO COL2
STORE COL3 + WAIT:SHIP TO COL3
STORE COL4 + RECVD TO COL4
STORE COL5 + IT TO COL5
STORE COL6 + NORM:STK TO COL6
STORE COL7 + ORDER TO COL7
STORE COL8 + PEND TO COL8
STORE COL9 + IT + PEND TO COL9
? STR(disk,3,0) + '  ' + str(open:inv,3,0) + '    ' + STR(back:ord,3,0);
+'     ' + STR(wait:ship,3,0) + '     ' + STR(recvd,3,0) + '     ';
+ STR(it,3,0)+'    '+ STR(norm:stk,3,0) + '    ' + STR(order,3,0);
+ '     '+str(pend,3,0)+'     ' +str(it+pend,3,0)
ELSE
STORE f TO more
ENDIF not .EOF.
STORE lineno + 1 to lineno
skip
ENDDO while lineno > 55
ENDDO more
? '----------------------------------------------------------------------'
? '    ' + STR(COL1,4,0)+'   ' + STR(COL2,4,0) + '    ';
+  STR(COL3,4,0) + '    '+STR(COL4,4,0)+'    '+STR(COL5,4,0);
+'   ' +STR(COL6,4,0)+'   '+STR(COL7,4,0)+'    '+STR(COL8,4,0);
+'    '+STR(COL9,4,0)
EJECT
SET CONSOLE OFF
? CHR(30)
SET PRINT OFF
SET CONSOLE ON
RELEASE ALL
STORE t TO more