home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / control.zip / CONTROL1.CLA < prev    next >
Text File  |  1988-08-13  |  2KB  |  40 lines
  1.          MEMBER('CONTROLS')
  2.  
  3. MAIN_MENU    PROCEDURE
  4.  
  5. MMENU         SCREEN      HLP('MENU'),HUE(7,1,0)
  6.            ROW(4,18)  STRING('╔═{46}╗')
  7.            ROW(5,18)  REPEAT(6);STRING('║<0{46}>║') .
  8.            ROW(11,18) STRING('╠═{46}╣')
  9.            ROW(12,18) REPEAT(9);STRING('║<0{46}>║') .
  10.            ROW(21,18) STRING('╚═{46}╝')
  11.            ROW(6,22)  STRING('P R I N T E R   C O N F I G U R A T I O N'),HUE(14,1)
  12.            ROW(9,33)  STRING('M A I N   M E N U'),HUE(14,1)
  13.            ROW(25,12) STRING('Currently Selected Printer:'),HUE(14,1)
  14.            ROW(1,1)      MENU,USE(DUMMY"),REQ
  15.            ROW(13,32)   STRING('Printer Configuration'),HUE(3,1)
  16.            ROW(15,34)   STRING('Printer Selection'),HUE(3,1)
  17.            ROW(17,37)   STRING('Print Demo'),HUE(3,1)
  18.            ROW(19,40)   STRING('Quit'),HUE(15,1)
  19.               .
  20. SEL           ROW(25,40) STRING(31),HUE(6,1)
  21.          .
  22.  
  23.   CODE
  24.   LOOP                         !MAIN MENU LOOP
  25.     OPEN(MMENU)                     !  OPEN MAIN MENU SCREEN
  26.     IF PSELECT = ''                 !  IF NO SELECTED PRINTER
  27.       SEL = 'NONE'                 !    DISPLAY NONE
  28.     ELSE                     !  OTHERWISE
  29.       KEYGRP = PSELECT                 !    ASSIGN RESTORE SELECTED PRINTER
  30.       GET(PRTFILE,PRTKEY)             !    READ PRINTER FILE
  31.       SEL = CLIP(PRINTER) & ' - ' & DESCRIP     !    DISPLAY SELECTED PRINTER
  32.     .                         !  END IF
  33.     ACCEPT                     !  ACCEPT MENU TOPIC
  34.     EXECUTE CHOICE()                 !  EXECUTE PROCEDURE FOR CHOSE TOPIC
  35.       CHOOSE('CONFIG')                 !    PROCEDURE TO CONFIGURE A PRINTER
  36.       CHOOSE('SELECT')                 !    PROCEDURE TO PICK A PRINTER
  37.       PRINTIT                     !    PROCEDURE TO PRINT DEMO
  38.       CHAIN('ARFILE')                 !    RETURN TO ARFILE PROGRAM
  39.   . .                         !END LOOP, EXECUTE
  40.