; Script to install Poseidon reset-residently as RomTag
FailAt 21
Set Result `RequestChoice TITLE "Poseidon RomTag" BODY "Click 'Install' to add Poseidon*Nas reset-resident RomTags or*N'Uninstall' to remove it again." GADGETS "Install|Uninstall|Cancel"`
If VAL $Result EQ 1
; PsdRestart is not a good idea when booting from MSD, so therefore, only enable it when you need it.
;  List >T:PRTL$process FILES DEVS:USBHardware/#?.device LIBS:poseidon.library SYS:Classes/USB/#?.class ENVARC:PsdStackloader C:PsdRestart LFORMAT "PsdLoadModule %p%n QUIET"
  List >T:PRTL$process FILES DEVS:USBHardware/#?.device LIBS:poseidon.library SYS:Classes/USB/#?.class ENVARC:PsdStackloader LFORMAT "PsdLoadModule %p%n QUIET"
  Execute T:PRTL$process
  If ERROR
    RequestChoice >NIL: TITLE "Poseidon RomTag" BODY "Sorry, something went wrong." GADGETS "Oh no!"
    Skip Uninstall
  EndIf
  RequestChoice >NIL: TITLE "Poseidon RomTag" BODY "Installation successful!*NPoseidon will be available*Nright after the next reboot!" GADGETS "Whoah!"
Else
  If VAL $Result EQ 2
Lab Uninstall
    Echo >T:PRTL$process "FailAt 21"
    List >>T:PRTL$process FILES DEVS:USBHardware/#?.device LIBS:poseidon.library SYS:Classes/USB/#?.class ENVARC:PsdStackloader C:PsdRestart LFORMAT "PsdLoadModule >NIL: %p%n REMOVE"
    Execute T:PRTL$process
    RequestChoice >NIL: TITLE "Poseidon RomTag" BODY "Poseidon uninstalled*Nfrom resident memory.*NReboot to get finally*Nrid of it." GADGETS "Okay :-/"
  EndIf
EndIf
Delete >NIL: T:PRTL$process