2' 'ư>HELPRA\NhNN:l\CONTINUE n((}EXIT&%p=lHALTމPl\dSTEP 14߉lg STOP߉X^F%EFSTOP ,,OFFg^w@߉U\T߉W\Omgp߉.OdmAg|߉mA|ŻOdgmAModelsTapeprep.gpsLFeCFEOlhLlhhE(((((((((({\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 ; GPSS World Sample File - TAPEPREP.GPS, by Gerard F. Cummings \par ********************************************************************* \par * * \par * Computer Numerical Control * \par * Tape Programming, Loading and Editing * \par * * \par ********************************************************************* \par * Queue Discipline --- Shortest Processing Time (SPT) \par ********************************************************************* \par * P1 = Process Time for Programming \par * P2 = " " " Punching \par * P3 = " " " Editing \par * P4 = Shortest Processing Time \par * P5 = Due Date \par * P6 = Longest Processing Time \par ********************************************************************* \par RMULT 66753 \par Schedparm EQU 4 ;Start with short time \par ; process first \par Var1 VARIABLE P1+P2+P3 \par Var2 VARIABLE P4+AC1+RN1@160+80 \par Var3 VARIABLE 10000-P4 \par Lateness VARIABLE AC1-P5 \par Transit TABLE M1,100,100,20 ;Tabulate flow times \par Late TABLE V$Lateness,-1000,200,20 ;Lateness \par ********************************************************************* \par GENERATE (Exponential(2,0,120)) ;Create new arrivals \par ASSIGN 1,(Exponential(3,0,90)) ;Programming time \par ASSIGN 2,(Exponential(4,0,60)) ;Tape punching time \par ASSIGN 3,(Exponential(5,0,70)) ;Tape load and edit time \par ASSIGN 4,V$Var1 ;Total processing time \par ASSIGN 5,V$Var2 ;Due date time in P5 \par ASSIGN 6,V$Var3 ;Longest processing time \par LINK Program,P$Schedparm,Wrte ;Overall Shortest \par Wrte SEIZE Manuscript \par ADVANCE P1 ;Part program time \par RELEASE Manuscript \par UNLINK Program,Wrte,1 ;Unlink one xact \par LINK Tape,P$Schedparm,Punch ;Link into chain \par Punch SEIZE Tapepunch \par ADVANCE P2 ;Punching time \par RELEASE Tapepunch \par UNLINK Tape,Punch,1 ;Unlink one xact \par LINK Edit,P$Schedparm,Loadedit ;Link into chain \par Loadedit SEIZE Edit \par ADVANCE P3 ;Load and edit time \par RELEASE Edit \par UNLINK Edit,Loadedit,1 ;Unlink one xact \par ********************************************************************** \par TABULATE Late \par TABULATE Transit \par TERMINATE 1 ;Job leaves the shop \par ********************************************************************** \par \par \par }