fork download
copy 
  1. ; GPSS World Sample File - SAMPLE1.GPS
  2. **********************************************************************
  3. *                                                                    *
  4. *              Barber Shop Simulation                                *
  5. *                                                                    *
  6. **********************************************************************
  7. ste STORAGE 3
  8. time FUNCTION P1,C5
  9. 1,15/2,30/3,45/4,60/5,75
  10.  
  11. GENERATE (Exponential(1,0,65))
  12. ENTER ste
  13. TRANSFER .60,,A
  14. ADVANCE 130,40
  15. ASSIGN 1+,FN$lit
  16. A    TRANSFER .60,,B
  17.      ADVANCE 130,40
  18.      ASSIGN 1+,UNIFORM(1,5)
  19. B    TRANSFER .60,,C
  20.      ADVANCE 130,40
  21.      ASSIGN 1+,UNIFORM(1,5)
  22. C    LEAVE ste
  23.      QUEUE och
  24.      ASSIGN 1+,UNIFORM(2,4)
  25.      SEIZE reg
  26.      DEPART och
  27.      ASSIGN 2,FN$time
  28.      ADVANCE P2,0
  29.      RELEASE reg
  30.      TERMINATE
  31.  
  32. GENERATE 21600
  33. TERMINATE 1
  34. START 1
  35.  
  36.  
  37.  
Success #stdin #stdout #stderr 0s 5316KB
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/fnvBux
language:
SQLite (sqlite 3.27.2)
created:
19 hours 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!