Amiga Installer Script for WHLOAD condition

[field3d]

Hello. I have the next Amiga Installer Script for a whdload. What I want to do is if Floppy ‘A123’ is inserted then it will install it as single floppy and not continue installing anything else. But if a floppy called ‘PI’ is inserted it will install of course ‘PI’ and after the ‘SI’ and will not install ‘A123’ as it will be ignored. What I have is the next code but the problem like it is is asking always for floppy name ‘A123’ and if I n sent the ‘SI’ is ignored as it is asking ‘A123’ how can I make what I said if I insert ‘A123’ is ok it will install it and no ‘PI’ or ‘SI’ will be installed, but if I snort ‘PI’ it will install only ‘PI’ and ‘SI’.

What is needed to change to this segment of the code to do this?

(procedure P_Install
  (set #AD_disk "A123")
  (P_disk)
  (if
    (exists ("%s:" #AD_disk))
    (
      (copyfiles
        (help @copyfiles-help)
        (source ("%s:" #AD_disk))
        (dest #dest)
        (pattern "~(c|l|s|.#?|#?.info)")
      )
    )
    (
  
      (set #AD_disk "PI")
      (P_disk)
      (copyfiles
        (help @copyfiles-help)
        (source ("%s:" #AD_disk))
        (dest #dest)
        (pattern "~(c|l|s|.#?|#?.info)")
      )
      (set #AD_disk "SI")
      (P_disk)
      (set #simulator-dest (tackon #dest "SI"))
      (makedir #simulator-dest
        (help @makedir-help)
      )
      (copyfiles
        (help @copyfiles-help)
        (source ("%s:" #AD_disk))
        (dest #simulator-dest)
        (pattern "~(c|l|s|.#?|#?.info)")
      )
    )
  )
)