home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / ovlay.zip / S2.CLA < prev   
Text File  |  1990-04-17  |  877b  |  33 lines
  1.         MEMBER('OVSAMPLE')
  2.  
  3. S2      PROCEDURE
  4.  
  5.         CODE
  6.  
  7.         IF (MYDATA = 0)
  8.                 TYPE('In S2, first call<010><013>')
  9.                 TYPE('Press a key <010><013>')
  10.                 ASK
  11.                 MYDATA = 1
  12.                 STACK_PROC(PS3,PS2,'Hello there')     ! call s3 with return,
  13.                                                         ! Pass hello message
  14.                 RETURN                  ! Return to control loop
  15.         ELSE
  16.                 TYPE('In S2, second call<010><013>')
  17.                 TYPE('Press a key <010><013>')
  18.                 ASK
  19.                 RETURN
  20.         .
  21.  
  22.  
  23. S3      PROCEDURE
  24.  
  25.         CODE
  26.  
  27.         TYPE('In S3.  Message: ' & PMSG & '<010><013>')
  28.         TYPE('Press a key <010><013>')
  29.         ASK
  30.  
  31.         STACK_PROC(PS1,PRETURN,'')  ! Call S1, no return, no message
  32.         RETURN
  33.