(set #sub-dir "save") ;sub directory containing data files
(set #readme-file "README") ;name of readme file
(set #cleanup "")
; "imager.slave loader.bin") ;files to delete after install
;****************************
;----------------------------
; Checks if given program is reachable via the path
; if not abort install
; IN: #program - to check
; OUT: -
(procedure P_chkrun
(if
(= 0 (run ("cd SYS:\nWhich %s" #program)))
("")
(abort ("You must install \"%s\" first !\nIt must be accessible via the path.\nYou can find it in the whdload package." #program))
)
)
(procedure P_image
(message ("\nInsert \"%s\" into drive %s !\n\n(make sure it's the right disk because it will not be checked)\n\nPlease wait while screen goes black." #CI_diskname #CI_drive))