1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22:
Public Functie WO_Logged_In (terminal ByVal zoals lang, gegevens ByVal als Koord) 'controle interne lijst om te zien of wordt Workorder het programma geopend Schemerig X als Koord, Y als Koord De Sorteerder van de vraag („Intern“, „E2“, „E: E“) X = Do_Lookup („Intern“, TerminalDataRecord (terminal) .TermDataSet (60), „E: F“, 2) Selecteer Geval X Geval X = "" WO_Logged_In = 0 'beschikbaar voor opening van een sessie aan een post Geval X = TerminalDataRecord (terminal) .TermDataSet (60) WO_Logged_In = 1 'geregistreerd in afgetaste post Geval X <> TerminalDataRecord (terminal) .TermDataSet (60) WO_Logged_In = geregistreerd in een verschillende post dan afgetaste 2 ' Uitgezocht eind De Functie van het eind