'
' DEMO zu KOBASCH (C) 1993 by M.Ssykor
'
$M5120  ! 5 Kb Speicher reservieren
'         Compiler Einstellungen
$*&     ! Longwort-Integer-Multiplikation - 'MULS'
$%3     ! Longwort-Integer-Division - Integer
$RC&    ! RC_INTERSECT-Parameter als 2 Byte
$I-     ! BREAK-Tasten und EVERY/AFTER-Abfrage nicht einbauen
$S<     ! SELECT/CASE auf Programml„nge optimiert
$S&     ! SELECT/CASE-Parameter im 2 Byte-Format
$E-     ! Fehlermeldungen aus
$F<     ! ENDFUNC-Zeilen ignorieren
'
~GRAF_MOUSE(0,0)
~WIND_GET(0,7,xx&,yy&,ww&,hh&)
~FORM_DIAL(3,xx&,yy&,ww&,hh&,xx&,yy&,ww&,hh&)
'
@init_ofls         ! COOKIE Routine initialisieren
@k2_init_texte
'
start$="C:\EASE\" ! Startordner (aus dem wird eine Datei oder ein Ordner hinauskopiert)
'                   Mit diesen - hinauskopierten - Daten wird dann gearbeitet
'                   Es werden also keine Daten von Dir gel”scht!
ziel$="H:\NEWS\"  ! Zielordner zum herumspielen von KOBASCH
temp$="H:\TEMP\"  ! Temporary Ordner (zum zwichenspeichern von der Datei bzw. dem Ordner)
dat$="EASE.PRG"   ! Datei oder Ordner der benutzt werden soll
'
k2_init
'
' Wie schon gesagt! DON'T PANIK!
'
dia!=TRUE  ! Mit KOBOLD-Dialog
ALERT 1,"Erst mal die Datei|in den TEMP Ordner|kopieren! Ohne Dialog!",1," OK ",back|
k2_copy_and_quit(start$,temp$,dat$,FALSE,FALSE,0)
ALERT 1,"Return-Code des letzten|KOBOLD_2 Aktion!|-----------------------|"+k2_err$,1," OK ",back|
ALERT 1,"Mit Dialog und abfragen!",1," OK ",back|
k2_copy_and_quit(temp$,ziel$,dat$,FALSE,dia!,2)
ALERT 1,"Return-Code des letzten|KOBOLD_2 Aktion!|-----------------------|"+k2_err$,1," OK ",back|
k2_delete_and_quit(ziel$,dat$,dia!,2)
ALERT 1,"Return-Code des letzten|KOBOLD_2 Aktion!|-----------------------|"+k2_err$,1," OK ",back|
'
ALERT 1,"Mit Dialog aber|ohne abfragen!",1," OK ",back|
k2_copy_and_quit(temp$,ziel$,dat$,FALSE,dia!,0)
ALERT 1,"Return-Code des letzten|KOBOLD_2 Aktion!|-----------------------|"+k2_err$,1," OK ",back|
k2_delete_and_quit(ziel$,dat$,dia!,0)
ALERT 1,"Return-Code des letzten|KOBOLD_2 Aktion!|-----------------------|"+k2_err$,1," OK ",back|
'
ALERT 1,"Ohne Dialog und|ohne abfragen!",1," OK ",back|
dia!=FALSE
k2_copy_and_quit(temp$,ziel$,dat$,TRUE,dia!,0)
ALERT 1,"Return-Code des letzten|KOBOLD_2 Aktion!|-----------------------|"+k2_err$,1," OK ",back|
k2_delete_and_quit(ziel$,dat$,dia!,0)
ALERT 1,"Return-Code des letzten|KOBOLD_2 Aktion!|-----------------------|"+k2_err$,1," OK ",back|
'
ALERT 1,"Das war's schon!",1," OK ",back|
k2_exit
EDIT
' ENDE der DEMONSTRATION