Danke Ludwig. Anbei das Beispiel mit der DBCONV.CND aus dem Tools oder OSA Verzeichnis. Die Programmdatei DBCONV.TXT sieht dann dekomprimiert entsprechend so aus:
Code:
! This program converts a dBASE file to an OA DF file
!
! This program (DBCONV.CND) MUST be called from the APP.MNU
! It assumes the DF file does not exist.
! If an OA "PROBLEM" window appears OA will clear the keyboard buffer
! and no further command will be executed.
! -----
! NOTE: key stroke calls are executes last in first out
! -----
dbname = ''
put at 10,5 'Enter dBASE file name: '
keys get dbname width 8
:k_do:
attach "typahead.oac"
tchr = 'd' ! dispay database menu
OK = CALL('TYPECHAR',tchr)
tfkey = 0
ok = call('typefkey',tfkey)
tfkey = 0 ! press ESC
ok = call('typefkey',tfkey)
tfkey = 10
ok = call('typefkey',tfkey)
tfkey = 10
ok = call('typefkey',tfkey)
tfkey = 10
ok = call('typefkey',tfkey)
tchr = dbname ! enter an existing dBASE file name
OK = CALL('TYPECHAR',tchr)
tfkey = 10 ! press F10
ok = call('typefkey',tfkey)
tchr = 'fd' ! choose file convert database
OK = CALL('TYPECHAR',tchr)
tfkey = 8 ! display desk top
ok = call('typefkey',tfkey)
detach "typahead.oac"
:k_undo:
end keys Wie man sieht, werden die dazugehörigen Dateien ARR und BAT ebenfalls extrahiert.