Listing 1

So sehen die von faceVALUE erstellten Programme aus. Eine User-Prozedur ist aufgeklappt, damit Sie einen
Blick hineinwerfen knnen. 

$m128000 ! set memory 

compiled!=BYTE{BASEPAGE+256}<>96 

IF NOT compiled! 

RESERVE 128000 ! set memory 

CHDRIVE "K" !***set the drive for the interpreter 

CHDIR "\FV2.1\FV21_PL0\EXAMPLES\EX\" !***set the path for the interpreter 

ENDIF 

' 

ON BREAK GOSUB system_restore !This line can be deleted before compiling 

ON ERROR GOSUB system_error !This line can be deleted before compiling 

' 

@start_up !Code produced using Face Value v2.0 

' 

> PROCEDURE system_error !This proc. can be deleted before compiling 

> PROCEDURE system_restore !This proc. can be deleted before compiling 

' 

' ------------------------------------------------------------------------ 

' Zu Anfang eine Dummy-Routine, die Dokumentationen enhlt: 

' 

> PROCEDURE wrinkles_info 

' ------------------------------------------------------------------------ 

' Nun kommen Ihre eigenen Routinen. Hier zwei Beispielroutinen: 

' 

> PROCEDURE open_text_window 

> PROCEDURE change_font(index&) 

' ------------------------------------------------------------------------ 

' Ab hier stehen die User-Routinen. Hier entscheiden Sie, was getan wird. 

' 

> PROCEDURE user_var_index 

> PROCEDURE user_rsc_var_init 

> PROCEDURE user_rsc_interact(index&,tree&,object&,mc&,sub_me&) 

> FUNCTION user_rsc_bubble_help$(tree&,object&) 

> PROCEDURE user_rsc_draw_extra(userhandle&,index&,tree&,tree%,cx&,cy&,cw&,ch&) 

> PROCEDURE user_on_open 

> PROCEDURE user_on_exit 

> FUNCTION user_quit_ok 

> FUNCTION user_systemcheck 

> PROCEDURE user_gem_messages(mx&,my&,ks&,m0&,m1&,m2&,m3&,m4&,m5&,m6&,m7&) 

> PROCEDURE user_win_close_all 

> PROCEDURE user_window_content(index&,userhandle&,off_x%,off_y%,cx&,cy&,cw&,ch&) 

> PROCEDURE user_mouse(handle&,userhandle&,index&,mx&,my&,mc&,mb&,ks&) 

> PROCEDURE user_keyb(handle&,userhandle&,index&,ks&,key&) 

PROCEDURE user_rsc_context_help(tree&) 

' 

' Diese Prozedur wird aufgerufen, wenn der Hilfeknopf eines Dialoges 

' angewhlt wurde. Tragen Sie hier ein, welche Hilfeseiten bei 

' welchem 

' Dialog aufgerufen werden sollen. faceVALUE hat schon Vorschlge 

' gemacht: 

' 

SELECT tree& 

CASE buttons& 

@call_st_guide("EXAMPLE.HYP","Button objects") 

CASE checks& 

@call_st_guide("EXAMPLE.HYP","Status objects") 

CASE radios& 

@call_st_guide("EXAMPLE.HYP","Radio objects") 

CASE input& 

@call_st_guide("EXAMPLE.HYP","Input objects") 

CASE popups& 

@call_st_guide("EXAMPLE.HYP","Pop Ups") 

CASE listbxes& 

@call_st_guide("EXAMPLE.HYP","Listboxes") 

CASE mstate& 

@call_st_guide("EXAMPLE.HYP","Multiple state") 

CASE other& 

@call_st_guide("EXAMPLE.HYP","Misc. objects") 

CASE resize_me& 

@call_st_guide("EXAMPLE.HYP","Sizeable dialog") 

CASE foldable& 

@call_st_guide("EXAMPLE.HYP","Foldable") 

CASE toolstrip& 

@call_st_guide("EXAMPLE.HYP","Toolstrip") 

CASE toolbar& 

@call_st_guide("EXAMPLE.HYP","Toolbar") 

CASE menu& 

@call_st_guide("EXAMPLE.HYP","Menu") 

DEFAULT 

@call_st_guide("EXAMPLE.HYP","") 

ENDSELECT 

RETURN 

> FUNCTION user_win_close_ok(index&,userhandle&) 

' ------------------------------------------------------------------------ 

' [U+2126][U+2126]_system_[U+2126][U+2126] - SYSTEM: - Ab hier schlielich folgen die Systemroutinen, 

' also Engine und faceVALUE-Bibliothek 

' 

> PROCEDURE init 

> FUNCTION win_get_index(handle&) !call 

> PROCEDURE win_send_redraw(index&,x&,y&,w&,h&) !call 

> FUNCTION win_modal_enq !call 

> PROCEDURE call_st_guide(filename$,page$) !call 

> FUNCTION get_cookie(b$,VAR b%) !call 

> FUNCTION alert_standard(default&,index&,insert$) !call 

... 