2' 'ư>HELPRA\NhNN:l4CONTINUE n((}EXIT&%p=lHALTމPl4dSTEP 1f4߉lg STOP߉X^F%EFSTOP ,,OFFg^w@߉UT߉WOHIgp߉.OdHI@g|߉HI@|ŻOdgHI@ModelsTstskrd.gpsLFeCFEOohLoh&rhE(((((((((({\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 - TSTSKRD.GPS \par ************************************************* \par ; Read a file in two specific locations \par ; using SEEK and puts the stores the values \par ; in a matrix. Closes file after second value \par ; is read and stored. \par ************************************************* \par Total MATRIX ,10,1 \par GENERATE ,,,1 \par OPEN ("TSTRD.TXT"),,Flag \par SEEK 4 \par TRANSFER ,Dord \par Again SEEK 6 \par Dord READ Numero,,Finis \par MSAVEVALUE Total,P$numero,1,P$numero \par TEST E P$Numero,4,Finis \par TRANSFER ,Again \par Finis CLOSE Prob,,Flag1 \par TERMINATE 1 \par Flag TERMINATE 1 \par Flag1 TERMINATE 1 \par \par \par }