2' 'ư>HELPGGQpA6CONTINUEvBhhG"xEXITQHK"HALTXFPl dSTEP 1rldXFFCSTOP`X^F%EFSTOP ,,OFFg#gCրgC>gC~*mm7m>m>̀dzgC>gCgC~*mQ~GG*A  ?  GPSS WordtoryDF }(((((((((({\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fmodern Courier New;}} {\colortbl\red0\green0\blue0;} \deflang1033\pard\tx1200\tx2400\tx4450\plain\f2\fs20 \par ; GPSS World Sample File - ORDERPNT.GPS, by Gerard F. Cummings \par ********************************************************************* \par * * \par * Order Point Inventory System * \par * * \par ********************************************************************* \par * Initialize and define \par INITIAL X$EOQ,500 ;Economic order qty. \par INITIAL X$Point,600 ;Order point \par INITIAL X$Stock,700 ;Set initial stock=700 \par Inventory TABLE X$Stock,0,50,20 ;Table of stock levels \par Sales TABLE P$Demand,38,2,20 ;Table of sales levels \par Var2 VARIABLE RN1@24+40 \par ********************************************************************* \par GENERATE ,,,1 \par Again TEST L X$Stock,X$Point ;Order placed on successful test \par ADVANCE 5 ;Lead time = 1 week \par SAVEVALUE Stock+,X$EOQ ;Economic order \par TRANSFER ,Again ;Cycle transaction again \par ********************************************************************* \par GENERATE 1 ;Daily demand xact \par ASSIGN Demand,V$Var2 ;Assign daily demand \par TABULATE Inventory ;Record inventory \par TEST GE X$Stock,P$Demand ;Make sure order can be filled \par SAVEVALUE Stock-,P$Demand ;Remove demand from stock \par SAVEVALUE Sold,P$Demand ;X$Sold=Daily demand \par TABULATE Sales ;Record daily sales \par TERMINATE 1 ;Daily timer \par ********************************************************************* \par \par \par \par }