2' 'ư>HELPRA\NhNN:l`CONTINUE n((}EXIT&%p=lHALTމPl`dSTEP 1f4߉lg STOP߉X^F%EFSTOP ,,OFFg^w@߉U T߉W O`gp߉.Od`@g|߉`@|ŻOdg`@ModelsTstrd.gpsLFeCFEOhLhNhE(((((((((({\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 - TSTRD.GPS \par ************************************************** \par ; Reads a file sequentially and stores \par ; the values in a matrix. \par ; At end of file goes to label Finis \par ************************************************** \par Total MATRIX ,10,1 \par GENERATE ,,,1 \par OPEN ("TSTRD.TXT"),,flag \par Again READ Numero,,Finis \par SAVEVALUE Nrow+,1 \par ASSIGN Numrow,X$Nrow \par MSAVEVALUE Total,P$Numrow,1,P$Numero \par TRANSFER ,Again \par Finis CLOSE Prob,,Flag1 \par TERMINATE 1 \par Flag TERMINATE 1 \par Flag1 TERMINATE 1 \par \par \par }