TopWare Tools/TOOLS.iso/tools/top1107/gepackt.exe/BSP/BSP1.PRG

Text File | 1993-04-07 | 4.8 KB | 228 lines

;
; Beispielapplikation
; geht davon aus, daß DM-Applikation im Verzeichnis .. installiert ist
; und sich die Textdateien im Verzeichnis ..\TXT befinden.
;
; (c) 1993 by DM-Soft Eisleben
;

;----------------------------------------------------------------------------
; Menüs
;----------------------------------------------------------------------------

OBJECT = SUBMENU
 TITEL = "~A~nzeigen"
 ENTRY = "~H~andbuch"                         ,4
 ENTRY = "~P~rivates PC-Anzeigenmagazin"      ,5
 ENTRY = "~A~ndere DM-Soft-Programme"         ,6
 ENTRY = "~V~ollversionen"                    ,7
 ENTRY = "~D~S-Info"                          ,8
 ENTRY = "~P~D/Shareware/Freeware"            ,9
END

OBJECT = SUBMENU
 TITEL = "~B~eispiele"
 ENTRY = "~A~uswahlbox"                       ,10
 ENTRY = "Infobox ~1~"                        ,1
 ENTRY = "Infobox ~2~"                        ,2
 ENTRY = "Eingabe ~D~atum"                    ,3
 ENTRY = "Anzeige ~e~ingegebenes Datum"       ,11
 ENTRY = "Demonstration BA~T~CH"              ,12
 ENTRY = "D~O~S-Shell"                        ,16
 ENTRY = "DOS-Be~f~ehl"                       ,20
 ENTRY = "Date~i~auswahl"                     ,17
 ENTRY = "~V~erzeichnisauswahl"               ,18
 ENTRY = "~V~ariablen anzeigen"               ,19
END


OBJECT = SUBMENU
 TITEL = "~d~BASE-Anzeige"
 ENTRY = "~a~lle Sätze"       ,23
 ENTRY = "nur ~G~IF"          ,24
 ENTRY = "~n~ur 640x480"      ,25
 ENTRY = "~I~nfo"             ,26
END

;----------------------------------------------------------------------------

OBJECT = INFO
 NR    = 1
 SIZE  = 20,7,60,16
 TITEL = "Programminformation"
 MSG   = "Beispielapplikation|created using DM-Applikation"
END

OBJECT = INFO
 NR    = 2
 SIZE  = 20,6,60,17
 TITEL = "Kontaktadresse"
 MSG   = "DM-Soft Eisleben|Daniel Matuschek|Sangerhäuser Str.12|O-4250 Eisleben|PLZ neu : 06290"
END

OBJECT = INPUTBOX
 NR    = 3
 SIZE  = 20,7,60,15
 TITEL = "Eingabe Datum"
 INPUT = "Geben Sie ein Datum ein !"
 TYPE  = DATE
 LEN   = 8
 VAR   = 1
END

OBJECT = LIST
 NR    = 4
 FILE  = "..\TXT\HANDBUCH.TXT"
END

OBJECT = LIST
 NR    = 5
 FILE  = "..\TXT\PPA.TXT"
END

OBJECT = LIST
 NR    = 6
 FILE  = "..\TXT\DMPRG.TXT"
END

OBJECT = LIST
 NR    = 7
 FILE  = "..\TXT\VOLLVERS.TXT"
END

OBJECT = LIST
 NR    = 8
 FILE  = "..\TXT\DSINFO.TXT"
END

OBJECT = LIST
 NR    = 9
 FILE  = "..\TXT\ERKLAER.TXT"
END

OBJECT = SELECTION
 NR    = 10
 SIZE  = 20,6,60,16
 TITEL = "Auswahlbox"
 ENTRY = "Infobox 1"                          ,1
 ENTRY = "Infobox 2"                          ,2
 ENTRY = "Eingabe Datum"                      ,3
 ENTRY = "Demonstration BATCH"                ,12
 ENTRY = "DOS-Shell"                          ,16
 ENTRY = "Dateiauswahl"                       ,17
 ENTRY = "Verzeichnisauswahl"                 ,18
 ENTRY = "Variablen anzeigen"                 ,19
END

OBJECT = INFO
 NR    = 11
 SIZE  = 20,7,60,16
 TITEL = "Datum"
 MSG   = "Es wurde das Datum %%1 eingegeben."
END

OBJECT = BATCH
 NR    = 12
 CMD   = 13,14,15
END

OBJECT = INPUTBOX
 NR    = 13
 SIZE  = 15,7,55,15
 TITEL = "Eingabe Dateiname"
 INPUT = "Geben Sie einen Dateinamen ein !"
 TYPE  = FILE
 LEN   = 12
 VAR   = 2
END

OBJECT = INPUTBOX
 NR    = 14
 SIZE  = 25,9,65,17
 TITEL = "Eingabe Zeit"
 INPUT = "Geben Sie eine Zeit ein !"
 TYPE  = TIME
 LEN   = 8
 VAR   = 3
END

OBJECT = INFO
 NR    = 15
 SIZE  = 20,7,60,16
 TITEL = "Datum"
 MSG   = "Sie haben soeben %%2 und %%3 eingegeben."
END

OBJECT = DOS
 NR    = 16
END

OBJECT = FILEBOX
 NR    = 17
 TITEL = "Dateiauswahl"
 FILE  = "*.TXT"
 VAR   = 4
END

OBJECT = DIRBOX
 NR    = 18
 VAR   = 5
END

OBJECT = INFO
 NR    = 19
 SIZE  = 20,6,60,17
 TITEL = "Datum"
 MSG   = "Variable 1 : %%1|Variable 2 : %%2|Variable 3 : %%3|Variable 4 : %%4|Variable 5 : %%5"
END

OBJECT = BATCH
 NR    = 20
 CMD   = 21,22
END

OBJECT = INPUTBOX
 NR    = 21
 SIZE  = 25,9,65,17
 TITEL = "DOS-Befehl"
 INPUT = "Geben Sie einen DOS-Befehl ein"
 TYPE  = STRING
 LEN   = 80
 VAR   = 6
END

OBJECT = DOS
 NR    = 22
 CMD   = "%%6"
END

OBJECT = DBFVIEW
 NR    = 23
 FILE  = "TEST.DBF"
 FIELD = "NAME":12,"SIZE":8,"RES":12,"COLORS":4,"REMARK":50
 SORT  = ON
END

OBJECT = DBFVIEW
 NR    = 24
 FILE  = "TEST.DBF"
 FIELD = "NAME":12,"SIZE":8,"RES":12,"COLORS":4,"REMARK":50
 COND  = "TYPE" $ "GIF"
 SORT  = ON
END

OBJECT = DBFVIEW
 NR    = 25
 FILE  = "TEST.DBF"
 FIELD = "NAME":12,"SIZE":8,"RES":12,"COLORS":4,"REMARK":50
 COND  = "RES" = "640x480"
 SORT  = ON
END

OBJECT = INFO
 NR    = 26
 SIZE  = 18,5,62,17
 TITEL = "DM-Picture"
 MSG   = "Die vorliegende Datenbank wurde mit||DM-Picture|(c) 1992 by DM-Soft Eisleben||automatisch erstellt."
END