home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Interactive Reference Guide / C-C++ Interactive Reference Guide.iso / c_ref / csource5 / 349_01 / sss.arc / EX_0403.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-04-09  |  917 b   |  61 lines
  1. ' Program EX_0403.BAS
  2. ' Listing 7B - see documentation in TUTOR.SSS
  3.  
  4. const ARRIVL = 1, STARTA = 2, ENDACT = 3
  5.  
  6. common shared c, ecode
  7.  
  8. declare sub prime ()
  9. declare sub leavec ()
  10. declare sub pickc ()
  11.  
  12. rem $include: 'SSSB.H'
  13.  
  14.   call prime
  15.  
  16.   do
  17.     ecode = NEXTEV
  18.     if ecode > 0 then
  19.       select case ecode
  20.  
  21.       case ARRIVL
  22.              CREATE EX(2), 0
  23.              SCHED 0, STARTA, 0
  24.  
  25.       case STARTA
  26.              leavec
  27.  
  28.       case ENDACT
  29.              pickc
  30.  
  31.       end select
  32.     end if
  33.   loop while ecode > 0
  34.  
  35.   title$ = "  "
  36.   SUMRY sadd(title$)
  37.  
  38. sub leavec
  39.   c = c + 1
  40.   TALLY 1, c
  41.   SCHED EX(20), ENDACT, 0
  42.   DISPOS
  43. end sub
  44.  
  45. sub pickc
  46.   c = c - 1
  47.   TALLY 1, c
  48.   DISPOS
  49. end sub
  50.  
  51. sub prime
  52.   INIQUE 0, 0, 1
  53.   title$ = "Occupancy             "
  54.   INISTA 1, sadd(title$), 1, 0, 0, 0
  55.   SIMEND 40
  56.   CREATE 0, 0
  57.   c = 0
  58.   TALLY 1, 0
  59. end sub
  60.  
  61.