DEFINE T_clear_menu LOCAL Prod_name INQ_ENV 0 LET Prod_name (SUBSTR (INQ 301) 1 7) IF (Prod_name='HP ME10') MENU WHITE BLACK '' '' BOX 1 1 25 2 ELSE_IF (Prod_name='HP ME30') Scr_men_layout END_IF END_DEFINE {#### Abkuerzungen ####} DEFINE C COPY_FILE END_DEFINE DEFINE Can READ STRING 'Directory name?' NAME CATALOG NAME SCREEN END_DEFINE DEFINE Cat CATALOG '' SCREEN END_DEFINE DEFINE Cd CURRENT_DIRECTORY END_DEFINE DEFINE Coff DISPLAY (TIME-Start_time) END_DEFINE DEFINE Con LET Start_time (TIME) END_DEFINE DEFINE Co CONFIRM END_DEFINE DEFINE Cv CREATE_VIEWPORT END_DEFINE DEFINE Cvc CHANGE_VIEWPORT_COLOR END_DEFINE DEFINE Cvs CHANGE_VIEWPORT_SIZE END_DEFINE DEFINE D DISPLAY END_DEFINE DEFINE Del DELETE END_DEFINE define dac delete all confirm end_define DEFINE daca EDIT_PART TOP DELETE ALL CONFIRM DRAWING_SCALE 1 RENAME_PART 'Top' SHOW_PART ALL SHOW ALL ON SHOW VERTEX OFF SYMBOL_PART OFF 'Top' CHANGE_PART_REF_PT 0,0 WINDOW 0,0 100,100 END END_DEFINE DEFINE Def_cs CS_REF_PT 0,0 CS_AXIS 1,0 0,1 END_DEFINE DEFINE Dk DEFINE_KEY END_DEFINE DEFINE Dv DELETE_VIEWPORT END_DEFINE DEFINE E END END_DEFINE DEFINE EC EXIT CONFIRM END_DEFINE DEFINE Ee EDIT_ENVIRONMENT END_DEFINE DEFINE ef EDIT_FILE END_DEFINE DEFINE em EDIT_MACRO END_DEFINE define epo EDIT_PORT end_define DEFINE Execute PARAMETER Statement LET Statement (VAL Statement) Statement END_DEFINE DEFINE F WINDOW FIT END_DEFINE DEFINE H HELP END_DEFINE DEFINE I INPUT END_DEFINE DEFINE L LOAD END_DEFINE DEFINE Lm LIST_MACRO_NAMES END_DEFINE DEFINE P PURGE_FILE END_DEFINE DEFINE N NEW_SCREEN END_DEFINE DEFINE Poff INFO 'profile_off' END_DEFINE DEFINE Pon INFO 'profile_on' END_DEFINE DEFINE Quit EXIT CONFIRM END_DEFINE DEFINE R REDRAW END_DEFINE DEFINE rg run graphic END_DEFINE DEFINE rm PURGE_FILE END_DEFINE DEFINE ux run'' END_DEFINE define u run'' end_define DEFINE S STORE MI ALL END_DEFINE define sc screen end_define DEFINE Sdir CATALOG '' SORT 'MODIFY_DATE' SCREEN END_DEFINE DEFINE Se SAVE_ENVIRONMENT END_DEFINE define ss parameter s (str s) end_define DEFINE Tab TABLET_RESET END_DEFINE DEFINE V CURRENT_VIEWPORT END_DEFINE DEFINE W WINDOW END_DEFINE DEFINE Z WINDOW ZOOM END_DEFINE define adje exit confirm end_define define go SD 'exit_file' adje end_define define ll catalog '.' screen end_define define ls catalog '.' screen end_define define baum parts_list tree screen end_define define d display end_define define pwd run 'pwd' end_define define tr trace del_old '/tmp/tracefile' end_define define t0 trace off edit_file '/tmp/tracefile' end_define define pl prompt_list screen end_define define sh run '' end_define define rm purge_file end_define define TRON trace del_old '/tmp/tracefile' end_define define TROFF trace off edit_file '/tmp/tracefile' end_define DEFINE_MOUSE_KEY 1 'tm_create_1'#M DEFINE_MOUSE_KEY 2 'tm_modify_1'#M DEFINE_MOUSE_KEY 3 'Sm_screen_constr'#M DEFINE USER_PORTS INQ_ENV 10 IF ((INQ 2 =16 ) OR (INQ 2 = 8) OR (INQ 2 = 9 )) EDIT_PORT rgb_color .2 .2 .7 red white magenta 5 20 80,550 800,800 HELP_PORT rgb_color .2 .2 .7 green white magenta 5 20 80,550 800,800 ELSE_IF ((INQ 2=12)OR(INQ 2=13)OR(INQ 2=15)OR(INQ 2=17)OR(INQ 2=19)OR(INQ 2=20)OR(INQ 2=22)) EDIT_PORT rgb_color .2 .2 .7 red white magenta 5 20 80,750 900,1000 HELP_PORT rgb_color .2 .2 .7 green white magenta 5 20 80,750 900,1000 END_IF END_DEFINE USER_PORTS {-----------------------------------------------------------}