fork download
copy 
  1. ; GPSS World Sample File - SAMPLE1.GPS
  2. **********************************************************************
  3. *                                                                    *
  4. *              Barber Shop Simulation                                *
  5. *                                                                    *
  6. **********************************************************************
  7. rmult 111
  8. ex FUNCTION RN1,C24
  9.         0,0/.1,.104/.2,.222/.3,.355/.4,.509/.5,.69/.6,.915
  10.         .7,1.2/.75,1.38/.8,1.6/.84,1.85/.88,2.12/.9,2.3
  11.         .92,2.52/.94,2.81/.95,2.99/.96,3.2/.97,3.5/.98,3.9
  12.         .99,4.6/.995,5.3/.998,6.2/.999,7/.9998,8
  13.  
  14.         num fvariable N$GO@4
  15.         time fvariable p2-p1
  16.  
  17.         GENERATE 360,120
  18.         SEIZE comp
  19.         ADVANCE 240
  20.         RELEASE comp
  21. good    TERMINATE 1
  22.  
  23.         GENERATE 120,fn$ex
  24. GO      ADVANCE 1
  25.         TEST E V$num,0,ter
  26.         PREEMPT comp,,away,,re
  27.         RETURN comp
  28. ter     TERMINATE
  29. away    TERMINATE 1
  30.         START 100000
  31.  
  32.  
Success #stdin #stdout #stderr 0s 5284KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
Error: near line 1: near "GPSS": syntax error
https://ideone.com/5xtpnS
language:
SQLite (sqlite 3.27.2)
created:
8 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!