2' 'ư>HELPRA\NhNN:l@GCONTINUE n((}FEXIT&%p=lHALTމPl@GFdSTEP 1f4߉lg STOP߉X^F%EFSTOP ,,OFFg^w@߉UT߉WOmgp߉.Odm@g|߉m@|ŻOdgm@ModelsTstskinw.gpsLFeCFEO<hL<hnhE(((((((((({\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 - TSTSKINW.GPS \par **************************************************** \par ; Test for random write. \par ; Inserts 123456 before line 3 of data \par ; file TSTSKINW.TXT \par **************************************************** \par GENERATE ,,,1 \par OPEN ("TSTSKINW.TXT"),,Flag \par SEEK 3 \par WRITE 123456,,Flag1,On \par CLOSE Prob,,Flag2 \par TERMINATE 1 \par Flag TERMINATE 1 \par Flag1 TERMINATE 1 \par Flag2 TERMINATE 1 \par \par \par }