Programmer 7500

home *** CD-ROM | disk | FTP | other *** search

/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / TM480.ZIP / TMMANUAL.EXE / SCRMAN.TSK < prev next >

Wrap

Text File | 1991-09-10 | 5.1 KB | 254 lines

; Author : Steve Johnson - FmP. Version : 1.11 ; Purpose : On-Line SCREEN TEMPLATE PROCESSOR manual Date : 13/06/91 ; Notes : Uses DISPLAY system variable as name of next form. ; : If not colour video task assumes single screen page and uses a ; : POPUP for virtually indistinguishable results. ; 1.11 : implemented PgUp/PgDn instead of left/right on browse GOTO 1INIT 1START move 8000h to bbmask MENU 1,"HORIZONTAL" OPTION 1,1 GOTO 1OPTION OPTION 1,2 if colour screen 2 switch 2 else cursor 0 0 popup popid_1 screen_1 7 1 fi move true to bbdisp clear choice until choice = 30 move 8000h to bbmask put "MAIN" noclear if choice ne 30 move display to extra_help trim extra_help put extra_help wait 0 noclear clear bbdisp if extra_help sw "SYMBOLS" inkey char move true to bbdisp fi fi fi move 2 to choice if colour screen 0 switch 0 else popdown popid_1 popfree popid_1 fi RETURN OPTION 1,3,7 MOVE HILITE TO VHILITE move choice to formval UNTIL CHOICE = 30 move 08018h to bbmask ;esc, <esc>, left and right move ENTRY VHILITE OF Vmemory to choice PUT ENTRY VHILITE OF VERTICALS noclear move hilite to entry VHILITE OF Vmemory IF CHOICE < 30 if colour screen 1 switch 1 else cursor 0 0 popup popid_1 screen_1 7 1 fi move display to extra_help trim extra_help move true to bbdisp if extra_help ne "USERLINE" put extra_help NOCLEAR else put extra_help NOWAIT inkey char display cls fi if colour switch 0 BACK 1 display cls screen 0 else popdown popid_1 popfree popid_1 fi clear bbdisp else if choice = 41 decrement vhilite MOVE VHILITE TO CHOICE move true to bbdisp if vhilite > 2 return 100 else return fi clear bbdisp else if choice = 42 increment vhilite MOVE VHILITE TO CHOICE move true to bbdisp if vhilite < 8 return 100 else return fi clear bbdisp FI FI if choice = 30 ; PUT entry vhilite OF blank_verticals nowait FI FI FI CURSOR 20 10 60 MOVE VHILITE TO CHOICE RETURN OPTION 1,8 OPTION 1,30 stop endm 1 1OPTION if colour screen 2 switch 2 else cursor 0 0 popup popid_1 screen_1 7 1 fi move 1 to formval until choice = 30 if formval = 1 move 0c002h to bbmask ;F1, <esc> and PgDn else if formval = 6 move 0c004h to bbmask ;F1, <esc> and PgUp else move 0c006h to bbmask ;F1, <esc>, PgUp and PgDn fi fi move entry formval of form_names to form_name move entry formval of form_hilites to choice put form_name if choice = 30 if colour screen 0 switch 0 else popdown popid_1 popfree popid_1 fi CLEAR CHOICE RETURN fi if choice = 43 and formval > 1 ;PgUp key decrement formval move true to bbdisp else if choice = 44 and formval < 6 ;PgDn key increment formval move true to bbdisp else move hilite to entry formval of form_hilites if choice < 30 ;normal selection if colour screen 1 switch 1 fi move display to extra_help trim extra_help if extra_help ne "USERLINE" put extra_help NOCLEAR else put extra_help NOWAIT inkey char fi if colour switch 2 BACK 1 display cls screen 2 clear bbdisp fi else if choice = 31 ;Help key popscreen ui put "USER_INTERFACE" wait 0 noclear inkey char clear bbdisp popdown ui popfree ui fi fi fi fi fi GOBACK 1RETURN 1INIT int ui int vhilite int popid_1 int formval ;var blank_verticals,3,occurs 10," BL1BL2BL3BL4BL5" var char,1 var extra_help,10," SCRMAN" var fmpdir,40,$FMPDIR var form_names,2,occurs 7," M0M1M2M3M4M5" var form_hilites,1,occurs 7 var form_name,2 var formsname,50 var null,1 var screen_1,80,occurs 24 var verticals,3,occurs 10," GENDATMENGRAATT" var vmemory,2,occurs 10 VCONST CLS,11 end if fmpdir = null move "C:\FMP" to fmpdir fi combine fmpdir '\scrman.ovr' into formsname replace '\\' of formsname with '\' lookfor formsname if not found combine fmpdir '\logon.ovr' into formsname replace '\\' of formsname with '\' forms formsname ;in case /q and not registered insert extra_help extra_help put "NO_FORMS" stop fi forms formsname if colour BACK 1 ;Clear screens to BLUE screen 1 display cls screen 2 display cls fi screen 0 put "H_FRAME" wait 0 noclear GOBACK 1START endtask Forms source kept in separate file called SCRMAN.MAC. Run TMMANUAL to recreate it if deleted.