home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / ovlay.zip / OVSAMPLE.CLA < prev    next >
Text File  |  1990-04-17  |  906b  |  42 lines
  1. OVSAMPLE        PROGRAM
  2.  
  3.           MAP
  4.              INCLUDE('OVLAY1.CPY')
  5.              AREA
  6.                 OVERLAY
  7.                    MODULE('S1')
  8.                       PROC(S1)
  9.                    .
  10.                 .
  11.                 OVERLAY
  12.                    MODULE('S2')
  13.                       PROC(S2)
  14.                       PROC(S3)
  15.                    .
  16.                 .
  17.              .
  18.           .
  19.  
  20.  
  21. MYDATA    BYTE
  22.  
  23.                 INCLUDE('OVLAY2.CPY')
  24.  
  25. MOREDATA  BYTE
  26.  
  27.         CODE
  28.  
  29.         SETHUE(2,1,1)
  30.         BLANK
  31.         SETCURSOR(1,1)
  32.  
  33.         MYDATA = 0      ! Initialization code
  34.  
  35.         STACK_PROC(PS2,PRETURN,'')      ! Place procedure S2 on stack, no
  36.                                         ! return proc, no message
  37.  
  38.         PROC_CTL                        ! Jump into main control loop
  39.  
  40.         RETURN                          ! Back to DOS
  41.  
  42.