home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_300 / 349_01 / sss.arc / EX_0305.BAS < prev    next >
BASIC Source File  |  1991-04-09  |  603b  |  33 lines
  1. ' Program EX_0305.BAS
  2. ' Listing 5B - see documentation in TUTOR.SSS
  3.  
  4. declare sub prime ()
  5.  
  6. rem $include: 'SSSB.H'
  7.  
  8.   call prime
  9.  
  10.   for i = 1 to 3
  11.     c = 15
  12.     SETT 30 * (i - 1)
  13.     TALLY 2, c
  14.     SETT T + EX(2)
  15.     do while T <= 30 * i
  16.       if c > 0 then c = c - 1 else TALLY 1, 1
  17.       TALLY 2, c
  18.       SETT T + EX(2)
  19.     loop
  20.   next i
  21.  
  22.   title$ = "  "
  23.   SUMRY sadd(title$)
  24.  
  25. sub prime
  26.   INIQUE 0, 0, 2
  27.   title$ = "Out of stock          "
  28.   INISTA 1, sadd(title$), 0, 0, 0!, 0!
  29.   title$ = "Ave stock             "
  30.   INISTA 2, sadd(title$), 1, 0, 0!, 0!
  31. end sub
  32.  
  33.