home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
clarion
/
tkmengen.zip
/
BUILD.CLA
< prev
next >
Wrap
Text File
|
1990-03-23
|
20KB
|
673 lines
MEMBER('MAKEMENU')
BUILDING PROCEDURE
TLINE STRING(80)
LROW STRING(2)
LCOL STRING(2)
LSHADOW STRING(2)
LCOUNT BYTE
LSUBCNT BYTE
LMENUNO BYTE
LMENUTITLE STRING(25)
LMCHOICE STRING(15)
LMMENU STRING(15)
LMAXLEN BYTE,DIM(15)
LCOLNO BYTE
LCOLLOC BYTE,DIM(15)
ibMaxNo BYTE
s2MaxNo STRING(2)
SCREEN SCREEN WINDOW(1,80),AT(25,1),HUE(9,7)
PLINE1 ROW(1,1) STRING(80)
.
DosFile DOS,ASCII,NAME(s12DFName)
RECORD
PLINE STRING(255)
END
END
CODE
IF s8DFName ='' OR s12DFName = '' THEN
SHOW(2,1,'You must first design your menu details ........')
BEEP(400,30)
BEEP(200,50)
BEEP(300,20)
BEEP(550,50)
BEEP(250,150)
RETURN
END
s12dfname=CLIP(s12DFName)&'.CLA'
OPEN(DosFile)
IF ERRORCODE() = 2 !IF NOT FOUND, THEN CREATE
CREATE(DosFile)
ELSE
EMPTY(DosFile)
END
SHOW(2,1,'Building Pulldown Menu according to your design ...........')
OPEN(SCREEN)
OPEN(MENU)
PLINE='!=========================================== PULLDOWN MENU ======'
ADD(DosFile)
PLINE1=PLINE
PLINE=' MEMBER(' & CHR(39)& CLIP(MEM:PROGNAME) & CHR(39)& ')' !'\CLARION\DEVELOP\BEST' & CHR(39) & ' )'
ADD(DOSFile)
PLINE1=PLINE
PLINE=CLIP(s8dfName)
IF LEN(CLIP(PLINE))>=14
PLINE=CLIP(PLINE)&' '&'PROCEDURE'
ELSE
PLINE=CLIP(PLINE)&ALL(' ',14-LEN(CLIP(PLINE)))&'PROCEDURE'
END
ADD(DosFile)
PLINE1=PLINE
PLINE=''
ADD(DosFile)
PLINE1=PLINE
PLINE='Esc_Key EQUATE(256) ! Escape'
ADD(DosFile)
PLINE1=PLINE
PLINE='eTrue EQUATE(1) ! Logical eTrue'
ADD(DosFile)
PLINE1=PLINE
PLINE='eFalse EQUATE(0) ! Logical eFalse'
ADD(DosFile)
PLINE1=PLINE
PLINE='Left_key EQUATE(265) ! Cursor left'
ADD(DosFile)
PLINE1=PLINE
PLINE='Right_Key EQUATE(266) ! Cursor right'
ADD(DosFile)
PLINE1=PLINE
PLINE=''
ADD(DosFile)
PLINE1=PLINE
PLINE=ALL(' ',30)&'!================= Screen for MainMenu'
ADD(DosFile)
PLINE1=PLINE
PLINE='mainmenu SCREEN WINDOW(25,80),AT(1,1),PRE(mai),HUE(15,1)'
ADD(DosFile)
PLINE1=PLINE
! PLINE=' INCLUDE('&CHR(39) & '\CLARION\DEVELOP\drsMENU.CLA' & CHR(39) & ')'
PLINE=' INCLUDE('&CHR(39) & CLIP(MEM:SCRNAME) & '.CLA'&CHR(39) &')'
ADD(DosFile)
PLINE1=PLINE
PLINE=ALL(' ',16)&'ROW(1,1) PAINT(1,80),HUE(0,3)'
ADD(DosFile)
PLINE1=PLINE
PLINE=ALL(' ',16)&'ROW(25,1) PAINT(1,80),HUE(0,3)'
! PLINE='ScrTitle COL(1) STRING(80)'
ADD(DosFile)
PLINE1=PLINE ! ' '
PLINE=ALL(' ',16) & 'ROW(25,9)STRING(<39>' & '│<123>5<125>│<123>50<125>│<123>9<125>│<39>'& ')'
ADD(DosFile)
PLINE1=PLINE
PLINE=ALL(' ',16)&'ROW(25,16) MENU(@S50),USE(s80MainCh),SEL(0,3),HUE(0,3),IMM,REQ'
ADD(DosFile)
PLINE1=PLINE
SET(MENU,1)
LMENUNO = 0
LCOLNO = 2
LOOP UNTIL EOF(MENU)
NEXT(MENU)
LMENUNO += 1
LMAXLEN[LMENUNO] = LEN(' '&CLIP(MEN:MAINMENU)&' ')
LCOLLOC[LMENUNO] = LCOLNO
LCOUNT=1
LOOP WHILE CLIP(SUBMENU[LCOUNT])>'!'
IF LMAXLEN[LMENUNO] < LEN(' '&CLIP(SUBMENU[LCOUNT])&' ')
LMAXLEN[LMENUNO] = LEN(' '&CLIP(SUBMENU[LCOUNT])&' ')
END
LCOUNT += 1
END
TLINE=' '&CLIP(MEN:MAINMENU)&' '
LCOL=FORMAT(LCOLNO,@P##P)
PLINE=ALL(' ',16)&'ROW(1,'&LCOL&') STRING('&'<39>'&CLIP(TLINE)&' <39>), SEL(15,4) |'
ADD(DosFile)
PLINE1=PLINE
TLINE=' '&CLIP(MEN:MDESC)&' '
PLINE=ALL(' ',31)&'DESC('&'<39>'&CLIP(TLINE)&' <39>)'
ADD(DosFile)
PLINE1=PLINE
LCOLNO = LCOLNO+2+LMAXLEN[LMENUNO]
END
PLINE=ALL(' ',18)&'END'
ADD(DosFile)
PLINE1=PLINE
PLINE=ALL(' ',16)&'END'
ADD(DosFile)
PLINE1=PLINE
PLINE=''
ADD(DosFile)
PLINE1=PLINE
ibMaxNo = LMENUNO
s2MaxNo = FORMAT(ibMaxNo,@P##P)
LMENUNO = 0
SET(MENU,1)
LOOP UNTIL EOF(MENU)
NEXT(MENU)
LMENUNO += 1
LMCHOICE='s80'&LEFT(MEN:MAINMENU,4)&'Ch'
LCOUNT=1
LOOP WHILE CLIP(SUBMENU[LCOUNT])>'!'
LCOUNT += 1
END
LCOUNT -= 1
LROW = FORMAT(4+LCOUNT,@P##P)
PLINE=ALL(' ',30)&'!==================== Screen for '&CLIP(MEN:MAINMENU)&' ====='
ADD(DosFile)
PLINE1=PLINE
PLINE=CLIP(LEFT(MEN:MAINMENU,6))&'Menu'
IF LEN(CLIP(PLINE))>=14
!PLINE=CLIP(PLINE)&' '&'SCREEN WINDOW('&LROW&',80),AT(1,1),TRN'
PLINE=CLIP(PLINE)&' '&'SCREEN WINDOW(25,80),AT(1,1),TRN'
ELSE
PLINE=CLIP(PLINE)&ALL(' ',14-LEN(CLIP(PLINE)))&'SCREEN WINDOW(25,80),AT(1,1),TRN'
END
ADD(DosFile)
PLINE1=PLINE
LCOL = FORMAT(LCOLLOC[LMENUNO]+2,@P##P)
LSHADOW = FORMAT(LMAXLEN[LMENUNO],@P##P)
PLINE=ALL(' ',16)&'ROW('&LROW&','&LCOL&') PAINT(1,'&LSHADOW&'),HUE(7,0),TRN'
ADD(DosFile)
PLINE1=PLINE
LCOL = FORMAT(LCOLLOC[LMENUNO]+LMAXLEN[LMENUNO]+2,@P##P)
IF LCOUNT >=10
LROW = FORMAT(3+LCOUNT,@P##P)
ELSE
LROW = FORMAT(3+LCOUNT,@P##P)
END
PLINE = ALL(' ',16)&'ROW(2,'&LCOL&') PAINT('&LROW&',2),HUE(7,0),TRN'
ADD(DosFile)
PLINE1=PLINE
LCOL = FORMAT(LCOLLOC[LMENUNO],@P##P)
LSHADOW = FORMAT(LMAXLEN[LMENUNO],@P##P)
PLINE = ALL(' ',16)&'ROW(1,' & LCOL & ') STRING(<39>│ <123>'&LSHADOW&'<125>│<39>),HUE(0,3)'
ADD(DosFile)
PLINE1=PLINE
PLINE = ALL(' ',16)&'ROW(2,' & LCOL & ') STRING(<39>├─<123>'&LSHADOW&'<125>┤<39>),HUE(0,3)'
ADD(DosFile)
PLINE1=PLINE
LROW = FORMAT(LCOUNT,@P##P)
PLINE = ALL(' ',16) & 'ROW(3,' & LCOL & ') REPEAT(' & LROW & '),EVERY(1);STRING(<39>│ <123>'&LSHADOW&'<125>│<39>),HUE(0,3) .'
ADD(DosFile)
PLINE1=PLINE
LROW = FORMAT(3+LCOUNT,@P##P) !I CHANGED 4 TO 3
PLINE = ALL(' ',16)&'ROW('&LROW&','&LCOL&') STRING(<39>└─<123>'&LSHADOW&'<125>┘<39>),HUE(0,3)'
ADD(DosFile)
PLINE1=PLINE
LCOL = FORMAT(1+LCOLLOC[LMENUNO],@P##P)
LMENUTITLE=MEN:MAINMENU
PLINE = ALL(' ',16)&'ROW(1,'&LCOL&') STRING(<39> '&LEFT(LMENUTITLE,LMAXLEN[LMENUNO]-2)&' <39>),HUE(0,3)'
ADD(DosFile)
PLINE1=PLINE
LCOL = FORMAT(1+LCOLLOC[LMENUNO],@P##P)
PLINE=ALL(' ',16)&'ROW(25,16) MENU(@S50),USE('&CLIP(LMCHOICE)&'),HUE(0,3),SEL(0,3),IMM,REQ'
ADD(DosFile)
PLINE1=PLINE
LCOUNT =1
LOOP WHILE CLIP(SUBMENU[LCOUNT])>'!'
TLINE=CLIP(MEN:SUBMENU[LCOUNT])
LROW=FORMAT(2+LCOUNT,@P##P) !was 3
LCOL = FORMAT(1+LCOLLOC[LMENUNO],@P##P)
PLINE=ALL(' ',16)&'ROW('&LROW&','&LCOL&') STRING('&'<39> '&LEFT(TLINE,LMAXLEN[LMENUNO]-2)&' <39>), HUE(0,3), SEL(15,4) |'
ADD(DosFile)
PLINE1=PLINE
TLINE=' '&CLIP(MEN:SDESC[LCOUNT])&' '
PLINE=ALL(' ',31)&'DESC('&'<39>'&CLIP(TLINE)&' <39>)'
ADD(DosFile)
PLINE1=PLINE
LCOUNT += 1
END
PLINE=ALL(' ',18)&'END'
ADD(DosFile)
PLINE1=PLINE
PLINE=ALL(' ',16)&'END'
ADD(DosFile)
PLINE1=PLINE
PLINE=''
ADD(DosFile)
PLINE1=PLINE
END
PLINE='s80SaveCh STRING(80)'
ADD(DosFile)
PLINE1=PLINE
LMENUNO = 0
SET(MENU,1)
LOOP UNTIL EOF(MENU)
NEXT(MENU)
PLINE='s80'&LEFT(MEN:MAINMENU,4)&'Ch STRING(80)'
ADD(DosFile)
PLINE1=PLINE
END
PLINE='s80LastCh STRING(80) ! Main menu choice for save'
ADD(DosFile)
PLINE1=PLINE
PLINE='s80MainCh STRING(80) ! Current choice string'
ADD(DosFile)
PLINE1=PLINE
PLINE='s25Date STRING(25)'
ADD(DosFile)
PLINE1=PLINE
PLINE='ibSaveCh BYTE'
ADD(DosFile)
PLINE1=PLINE
PLINE='MenuRight BYTE ! eTrue if right arrow pressed'
ADD(DosFile)
PLINE1=PLINE
PLINE='MenuLeft BYTE ! eTrue if left arrow pressed'
ADD(DosFile)
PLINE1=PLINE
PLINE='PullDown BYTE ! Which choice made by arrow'
ADD(DosFile)
PLINE1=PLINE
PLINE='Quit BYTE ! Flag to halt program'
ADD(DosFile)
PLINE1=PLINE
PLINE=ALL(' ',30)&'!==================== Code for MainMenu ====='
ADD(DosFile)
PLINE1=PLINE
PLINE=' CODE'
ADD(DosFile)
PLINE1=PLINE
! PLINE=' HELP(,'& CHR(39) &'TRANMENU' & CHR(39) &') '
! ADD(DOSFILE)
! PLINE1=PLINE
PLINE=' OPEN(MainMenu) ! Display Main Menu'
ADD(DosFile)
PLINE1=PLINE
! PLINE=' SYSTRAN (S) PTE LTD'
! PLINE=CLIP(PLINE)&ALL(' ',79-LEN(CLIP(PLINE))-LEN(CLIP(FORMAT(TODAY(),@D4))))&CLIP(FORMAT(TODAY(),@D4))
! PLINE=' SYSTRAN (S) PTE LTD PULLDOWN MENU '
! PLINE=' s25Date = CLIP(FORMAT(TODAY(),@D4))'
! ADD(DosFile)
! PLINE1=PLINE
! PLINE=' INCLUDE(<39>'&'\CLARION\DEVELOP\SETUP.INC<39>'&')'
PLINE=' INCLUDE(<39>'&CLIP(MEM:SET_UP) &'.INC'&CHR(39)&')'
ADD(DosFile)
PLINE1=PLINE
! PLINE=' IDLE(DISP_CLOCK)'
! PLINE=' MAI:SCRTITLE=<39>'&CLIP(PLINE)&' <123>'&FORMAT(46-LEN(CLIP(PLINE)),@P##P)&'<125><39>&RIGHT(S25DATE,25)&<39> <39>'
! PLINE=' MAI:SCRTITLE=<39>'&CLIP(PLINE)&' <39>'
! PLINE=' MAI:SCRTITLE=<39> THE CONNECTION <32{52}> AUG 9 1989 <39>'
PLINE=' ALERT ! Clear alerts'
ADD(DosFile)
PLINE1=PLINE
PLINE=' s80LastCh = <39><39> ! Init main menu choice'
ADD(DosFile)
PLINE1=PLINE
PLINE=' LOOP ! Begin accept loop'
ADD(DosFile)
PLINE1=PLINE
PLINE=' IDLE('& MEM:IDLENAME&')'
ADD(DosFile)
PLINE1=PLINE
PLINE=' ALERT(Esc_Key) ! Alert Esc Key'
ADD(DosFile)
PLINE1=PLINE
PLINE=' s80MainCh = s80LastCh ! Set to last menu selection'
ADD(DosFile)
PLINE1=PLINE
PLINE=' ACCEPT ! Get keyboard input'
ADD(DosFile)
PLINE1=PLINE
PLINE=' IF KEYCODE() = Esc_Key ! If Esc Key'
ADD(DosFile)
PLINE1=PLINE
LCOL=FORMAT(LCOLNO,@P##P)
PLINE=' PullDown = '&s2MaxNo&' ! Set choice to maximum (quit)'
ADD(DosFile)
PLINE1=PLINE
PLINE=' GOTO PullLoop ! Goto pull down section'
ADD(DosFile)
PLINE1=PLINE
PLINE=' END ! End Esc Key test'
ADD(DosFile)
PLINE1=PLINE
PLINE=' IF KEYCODE() <60><62> Enter_Key'
ADD(DosFile)
PLINE1=PLINE
PLINE=' CYCLE'
ADD(DosFile)
PLINE1=PLINE
PLINE=' END'
ADD(DosFile)
PLINE1=PLINE
PLINE=' s80LastCh = s80MainCh ! Save menu choice string'
ADD(DosFile)
PLINE1=PLINE
PLINE=' PullDown = CHOICE() ! Make choice = choice()'
ADD(DosFile)
PLINE1=PLINE
PLINE='PullLoop ! Just a GOTO Tag'
ADD(DosFile)
PLINE1=PLINE
PLINE=' DO SubMenu ! Do Sub Routine'
ADD(DosFile)
PLINE1=PLINE
PLINE=''
ADD(DosFile)
PLINE1=PLINE
PLINE=' IF Quit ! If Quit selected'
ADD(DosFile)
PLINE1=PLINE
PLINE=' CLOSE(MainMenu) ! Close main menu'
ADD(DosFile)
PLINE1=PLINE
PLINE=' RETURN ! Get outta here'
ADD(DosFile)
PLINE1=PLINE
PLINE=' END ! End IF quit test'
ADD(DosFile)
PLINE1=PLINE
PLINE=''
ADD(DosFile)
PLINE1=PLINE
PLINE=' IF NOT MenuLeft AND NOT MenuRight ! If not to move left/right'
ADD(DosFile)
PLINE1=PLINE
PLINE=' CYCLE ! Back to main menu'
ADD(DosFile)
PLINE1=PLINE
PLINE=' END ! End left/right test'
ADD(DosFile)
PLINE1=PLINE
PLINE=''
ADD(DosFile)
PLINE1=PLINE
PLINE=' IF MenuLeft ! If left pressed'
ADD(DosFile)
PLINE1=PLINE
PLINE=' PullDown -= 1 ! Decrement menu choice'
ADD(DosFile)
PLINE1=PLINE
PLINE=' IF PullDown = 0 ! If now below range'
ADD(DosFile)
PLINE1=PLINE
PLINE=' PullDown = '&s2MaxNo&' ! Set to 5'
ADD(DosFile)
PLINE1=PLINE
PLINE=' END ! End if zero test'
ADD(DosFile)
PLINE1=PLINE
PLINE=' ELSE ! Otherwise, must be right'
ADD(DosFile)
PLINE1=PLINE
PLINE=' PullDown += 1 ! Increment menu choice'
ADD(DosFile)
PLINE1=PLINE
s2MaxNo = FORMAT(ibMaxNo+1,@P##P)
PLINE=' IF PullDown = '&s2MaxNo&' ! If 6 (above # of items)'
ADD(DosFile)
PLINE1=PLINE
s2MaxNo = FORMAT(ibMaxNo,@P##P)
PLINE=' PullDown = 1 ! Set to 1'
ADD(DosFile)
PLINE1=PLINE
PLINE=' END ! End if 6 test'
ADD(DosFile)
PLINE1=PLINE
PLINE=' END ! End left/right test'
ADD(DosFile)
PLINE1=PLINE
PLINE=''
ADD(DosFile)
PLINE1=PLINE
PLINE=' MenuLeft = eFalse ! Re-init left flag'
ADD(DosFile)
PLINE1=PLINE
PLINE=' MenuRight= eFalse ! Re-init right flag'
ADD(DosFile)
PLINE1=PLINE
PLINE=''
ADD(DosFile)
PLINE1=PLINE
PLINE=' GOTO PullLoop ! Loop to menu selections'
ADD(DosFile)
PLINE1=PLINE
PLINE=' END ! End LOOP'
ADD(DosFile)
PLINE1=PLINE
PLINE=''
ADD(DosFile)
PLINE1=PLINE
PLINE=' RETURN !EXIT TO DOS'
ADD(DosFile)
PLINE1=PLINE
PLINE=''
ADD(DosFile)
PLINE1=PLINE
PLINE = ALL(' ',30)&'!======================= ROUTINE SubMenu ====='
ADD(DosFile)
PLINE1=PLINE
PLINE='SubMenu ROUTINE'
ADD(DosFile)
PLINE1=PLINE
PLINE=' EXECUTE PullDown ! Test CHOICE()'
ADD(DosFile)
PLINE1=PLINE
SET(MENU,1)
LOOP UNTIL EOF(MENU)
NEXT(MENU)
PLINE=ALL(' ',6)&'OPEN('&CLIP(LEFT(MEN:MAINMENU,6))&'Menu)'
ADD(DosFile)
PLINE1=PLINE
END
PLINE=' END ! End LOOP'
ADD(DosFile)
PLINE1=PLINE
PLINE=''
ADD(DosFile)
PLINE1=PLINE
PLINE=' ALERT'
ADD(DosFile)
PLINE1=PLINE
PLINE=' s80SaveCh = <39><39>'
ADD(DosFile)
PLINE1=PLINE
PLINE=' LOOP ! Begin accept loop'
ADD(DosFile)
PLINE1=PLINE
PLINE=' ALERT(Left_key)'
ADD(DosFile)
PLINE1=PLINE
PLINE=' ALERT(Right_Key)'
ADD(DosFile)
PLINE1=PLINE
PLINE=' ALERT(Esc_Key)'
ADD(DosFile)
PLINE1=PLINE
PLINE=' IF s80SaveCh <60><62> <39><39>'
ADD(DosFile)
PLINE1=PLINE
PLINE=' EXECUTE PullDown ! Test CHOICE()'
ADD(DosFile)
PLINE1=PLINE
SET(MENU,1)
LOOP UNTIL EOF(MENU)
NEXT(MENU)
LMCHOICE='s80'&LEFT(MEN:MAINMENU,4)&'Ch'
PLINE=' '&CLIP(LMCHOICE)&' = s80SaveCh ! Set to last menu selection'
ADD(DosFile)
PLINE1=PLINE
END
PLINE=' END'
ADD(DosFile)
PLINE1=PLINE
PLINE=' END'
ADD(DosFile)
PLINE1=PLINE
PLINE=' ACCEPT'
ADD(DosFile)
PLINE1=PLINE
PLINE=' If CHOICE() <60><62> 0'
PLINE1=PLINE
ADD(DosFile)
PLINE1=PLINE
PLINE=' ibSaveCh = Choice()'
ADD(DosFile)
PLINE1=PLINE
PLINE=' END'
ADD(DosFile)
PLINE1=PLINE
PLINE=' IF KEYCODE() = Esc_Key ! If ESC, quit to main menu'
ADD(DosFile)
PLINE1=PLINE
PLINE=' EXECUTE PullDown ! Test CHOICE()'
ADD(DosFile)
PLINE1=PLINE
SET(MENU,1)
LOOP UNTIL EOF(MENU)
NEXT(MENU)
PLINE=' s80LastCh = <39> '&CLIP(MEN:MAINMENU)&' <39>' ! Init choice for main'
ADD(DosFile)
PLINE1=PLINE
END
PLINE=' END'
ADD(DosFile)
PLINE1=PLINE
PLINE=' BREAK'
ADD(DosFile)
PLINE1=PLINE
PLINE=' END'
ADD(DosFile)
PLINE1=PLINE
PLINE=' IF KEYCODE() = Left_key ! If left arrow'
ADD(DosFile)
PLINE1=PLINE
PLINE=' MenuLeft = eTrue ! Set on Left flag'
ADD(DosFile)
PLINE1=PLINE
PLINE=' BREAK ! Return to main menu'
ADD(DosFile)
PLINE1=PLINE
PLINE=' END ! End if left arrow test'
ADD(DosFile)
PLINE1=PLINE
PLINE=' IF KEYCODE() = Right_Key ! If right arrow'
ADD(DosFile)
PLINE1=PLINE
PLINE=' MenuRight = eTrue ! Set on Right flag'
ADD(DosFile)
PLINE1=PLINE
PLINE=' BREAK ! Return to main menu'
ADD(DosFile)
PLINE1=PLINE
PLINE=' END ! End if right arrow test'
ADD(DosFile)
PLINE1=PLINE
PLINE=' CASE PULLDOWN'
ADD(DosFile)
PLINE1=PLINE
LMENUNO = 0
SET(MENU,1)
LOOP UNTIL EOF(MENU)
NEXT(MENU)
LMENUNO += 1
PLINE=' OF '&FORMAT(LMENUNO,@P##P)
ADD(DosFile)
PLINE1=PLINE
IF UPPER(CLIP(MEN:MAINMENU)) = 'QUIT'
PLINE=' Quit = eTrue'
ADD(DosFile)
PLINE1=PLINE
PLINE=' BREAK'
ADD(DosFile)
PLINE1=PLINE
ELSE
PLINE=' s80SaveCh = '&LMCHOICE&' ! Save menu choice'
ADD(DosFile)
PLINE1=PLINE
PLINE=' EXECUTE ibSaveCh ! Test CHOICE()'
ADD(DosFile)
PLINE1=PLINE
LCOUNT=1
LOOP WHILE CLIP(SUBMENU[LCOUNT])>'!'
PLINE=ALL(' ',12)&CLIP(MEN:SUBPROC[LCOUNT])
ADD(DosFile)
PLINE1=PLINE
LCOUNT += 1
END
PLINE=' END ! End EXECUTE'
ADD(DosFile)
PLINE1=PLINE
END
PLINE=''
ADD(DosFile)
PLINE1=PLINE
END
PLINE=' END ! End Case'
ADD(DosFile)
PLINE1=PLINE
PLINE=' END ! End LOOP'
ADD(DosFile)
PLINE1=PLINE
PLINE=''
ADD(DosFile)
PLINE1=PLINE
PLINE=' ALERT'
ADD(DosFile)
PLINE1=PLINE
PLINE=' EXECUTE PullDown ! Test CHOICE()'
ADD(DosFile)
PLINE1=PLINE
SET(MENU,1)
LOOP UNTIL EOF(MENU)
NEXT(MENU)
PLINE=ALL(' ',8)&'CLOSE('&CLIP(LEFT(MEN:MAINMENU,6))&'Menu)'
ADD(DosFile)
PLINE1=PLINE
END
PLINE=' END ! End Execute'
ADD(DosFile)
PLINE1=PLINE
CLOSE(DOSFILE) !I ADDED THIS ON 12/15
CLOSE(SCREEN)