2' '75ư>HELPNA\NhNN:l@aCONTINUE n((PA`EXIT&%p=lHALTމPl@a`dSTEP 1r4߉lg STOP߉X^F%EFSTOP ,,OFFg^w@߉U8T߉W8Ogp߉.OdBg|߉B|ŻOdgBModelsPowder.gpsLFeCFEOt|hLt|hhE(((((((((({\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 - POWDER.GPS, by Gerard F. Cummings \par *********************************************************************** \par * * \par * Brand Loyalty by Customers * \par *********************************************************************** \par RMULT 98851 \par Check TABLE X$Brand,1,1,8 \par * \par Transitions MATRIX ,7,7 ;State transition table \par * \par Powder FUNCTION X$Brand,M7 ;Pick brand transition \par 1,FN$Suds/2,FN$BrandX/3,FN$Bubbles/4,FN$Clearshine \par 5,FN$Cleanplus/6,FN$Marvel/7,FN$Soapy \par * \par * \par Suds FUNCTION RN1,D7 ;Transition from Suds \par 0.390,1/.510,2/.680,3/.810,4/.910,5/.950,6/1.0,7 \par * \par BrandX FUNCTION RN1,D7 ;Transition from BrandX \par 0.130,1/.450,2/.550,3/.700,4/.820,5/.910,6/1.0,7 \par * \par Bubbles FUNCTION RN1,D7 ;Transition from Bubbles \par 0.150,1/.290,2/.540,3/.680,4/.850,5/.930,6/1.0,7 \par * \par Clearshine FUNCTION RN1,D7 ;Trans from Clearshine \par 0.110,1/.210,2/.300,3/.700,4/.780,5/.870,6/1.0,7 \par * \par Cleanplus FUNCTION RN1,D7 ;Transition from Cleanplus \par 0.050,1/.170,2/.330,3/.420,4/.790,5/.930,6/1.0,7 \par * \par Marvel FUNCTION RN1,D7 ;Transition from Marvel \par 0.160,1/.290,2/.370,3/.420,4/.580,5/.860,6/1.0,7 \par * \par Soapy FUNCTION RN1,D7 ;Transition from Soapy \par 0.080,1/.180,2/.270,3/.370,4/.440,5/.570,6/1.0,7 \par * \par Record FUNCTION X$Brand,L7 ;Records numbers \par 1,Suds/2,BrandX/3,Bubbles/4,Clearshine/5,Cleanplus/6,Marvel/7,Soapy \par *********************************************************************** \par INITIAL X$Brand,1 \par GENERATE 1,,,,2 ;One xact every minute \par TABULATE Check \par SAVEVALUE Oldbrand,X$Brand ;Save old brand \par SAVEVALUE Brand,FN$Powder ;Find new brand \par SAVEVALUE FN$Record+,1 ;Savevalue of chosen brand \par ; up by one \par MSAVEVALUE Transitions+,X$Oldbrand,X$Brand,1 ;Update \par ; transitions \par TERMINATE 1 \par \par \par }