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