commodore.gen.tr

;BEGIN OS Selector
DH0:C/Assign SYS: DH0:
DH0:C/Assign C: DH0:C
Assign T: RAM:
Version exec.library VERSION 52 >NIL:
IF WARN
   IF Exists DH0:OS.Tmp
      SET OS `Type DH0:OS.Tmp`
   Else
      SET OS `RequestChoice "Amiga 1200 OS Selector" "Please choose OS version to boot" "OS 3.1" "OS 3.9" "OS4.0"`
      Echo >DH0:OS.Tmp $OS
    EndIF
   IF $OS EQ 1
      Resident C:Assign PURE
      Assign SYS: DH0:
      Cd SYS:
      Assign ENVARC: SYS:Prefs/Env-Archive
      Assign C: SYS:C
      Assign S: SYS:S
      Assign LIBS: SYS:LIBS
      Assign DEVS: SYS:DEVS
      Assign FONTS: SYS:FONTS
      Assign L: SYS:L
      Assign T:
      Execute S:Startup-Sequence
      EndCLI
   EndIF
   IF $OS EQ 2
      Assign SYS: DH1:
      Cd SYS:
      Assign Envarc: SYS:Prefs/Env-Archive
      Assign Locale: SYS:Locale
      Assign C: SYS:C
      Assign S: SYS:S
      Assign LIBS: SYS:LIBS
      Assign DEVS: SYS:DEVS
      Assign FONTS: SYS:FONTS
      Assign L: SYS:L
      Assign T:
      Execute S:Startup-Sequence
      EndCLI
   EndIF
EndIF
Assign SYS: DH2:
DH0:C/Assign C: DH2:C
DH0:C/Assign T:
;End OS Selector

C:LoadWB

Delete >NIL: DH0:OS.Tmp

SET OS `RequestChoice "Amiga 1200 OS Selector" "Please choose OS version to boot" "OS 3.1" "OS 3.9" "OS4.0"`

RequestChoice "Commodore.gen.tr" "Amiga'yı seviyor musun?" "Evet" "Hayır"