'------------------------------------------------------------------------------
'- Nachfolgendes Programmgeruest kann als Basis fuer eigene Programme dienen: -
'INFO' > Programmbeschreibung | Tipps und Tricks zur |_ VM
'INIT' > Initialisierung |
'MAIN' > Hauptschleife | visit.ghn-sensorik.de/L-Team/Lvm
'SUBS' > Subroutinen |
'DATA' > Tabellen | das |_ Team
' L Programm ->>
'----------------------------------------------------------------------------
' Programmbeschreibung Anfang ->> I----------
' N-------
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Hier koennen Sie die Funktion Ihres Programms beschreiben. Wenn ''
' Sie Ihr Programm auch Anderen zur Verfuegung stellen wollen, '''
' besuchen Sie bitte http://visit.ghn-sensorik.de/L-Team/Lvm/ ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' F-------
' <<- Programmbeschreibung Ende O----------
'----------------------------------------------------------------------------
INCLUDE "L:\X2G\INCLUDE\OCBASIC\L-INIT.PRO"'<<- Anweisungen Anfang
'----------------------------------------------------------------------------
' Initialisierung Anfang ->> I----------
' N-------
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Zur Laufzeit kann der #INIT Bereich per Direktvektor uebersprungen ''
' werden. Selbst registrierende Erweiterungsmodule (z.B. UIP) nutzen '''
' dies um Zeitverhalten und Bedienungsfreundlichkeit zu optimieren. '''
' WICHTIG: Datentabellen stets an das Programmende stellen. ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
PRINT "SYSTEM-ID.OCB"; ' (geplant) Ersten Print String als Programlabel
' in Hostmodus-Liste ausgeben I-------
' <<- Initialisierung Ende T----------
'----------------------------------------------------------------------------
'----------------------------------------------------------------------------
#MAIN 'Hauptschleife Anfang ->> M---------
' A-------
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Dieser Programmteil wird nach Verlassen von #INIT ausgefuehrt, ''
' oder mit den Direktvektor Funktionen unmittelbar gestartet. '''
' WICHTIG: Datentabellen stets an das Programmende stellen. ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
IF LGet_HOSTIDS THEN
PRINT ": ID aendern von '"; : GOSUB ShowIDs : PRINT "' ";
END IF
PRINT "auf '";
'Dateneingabe mit Echo:
GET b19:PUT b19 : GET b20:PUT b20
GET b21:PUT b21 : GET b22:PUT b22
IF LReg_HOSTIDS THEN
LGet_HOSTIDS : PRINT "' OK."
ELSE
PRINT "'L(xREG_HOSTIDS)' unbekannt."
END IF
LPrg_END ' I-------
' <<- Hauptschleife Ende N----------
'----------------------------------------------------------------------------
'----------------------------------------------------------------------------
#SUBS'Subroutinen Anfang ->> S----------
' U-------
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Dieser Bereich ist fuer Subroutinen (Prozeduren und Funktionen) Ihres ''
' Programms reserviert. Sie koennen diese Subroutinen auch anderen '''
' Modulen im Dateisystem zugaenglich machen und so Speicherplatz sparen '''
' WICHTIG: Datentabellen stets an das Programmende stellen. ''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
#ShowIDs
IF LGet_HOSTIDS THEN
PUT b19 : PUT b20 : PUT b21 : PUT b22
ELSE
END IF
RETURN
' B-------
' <<- Subroutinen Ende S----------
'----------------------------------------------------------------------------
INCLUDE "L:\X2G\INCLUDE\OCBASIC\L-EXIT.PRO"'<<- Anweisungen Ende
'----------------------------------------------------------------------------
#DATA 'Datenbereich Anfang ->> D----------
TABLE Dieses_Programm_wurde_entworfen_fuer_L_Modul 001 TABEND' A--------
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Tabellen, denen innerhalb dieses Quelltextes ein LOOKTAB zugeordnet ''
' ist, muessen in diesem Datenbereich stehen! Hingegen sollten BASIC '''
' Anweisungen nicht im Datenbereich stehen, es sei denn sie werden als'''
' Konstanten benoetigt und sind nicht Ziel einer Sprunganweisung. ''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' T--------
' <<- Datenbereich Ende A----------
'----------------------------------------------------------------------------
#LEND'<<- L Programm Ende