1 files changed, 278 insertions, 0 deletions
diff --git a/bin/G-FSUAE/G-FS-UAE/.src/leggi.module b/bin/G-FSUAE/G-FS-UAE/.src/leggi.module
new file mode 100644
index 0000000..1f76967
--- /dev/null
+++ b/bin/G-FSUAE/G-FS-UAE/.src/leggi.module
@@ -0,0 +1,278 @@
+' Gambas module file
+
+Private opzione As New String[]
+Private tipo As String
+Private valore As String
+
+Public Sub leggi_conf()
+Dim hFile As File
+Dim sLine As String
+
+hFile = Open (fmain.ComboBox5.Text) For Input
+While Not Eof(hFile)
+  Line Input #hFile, sLine
+  Try opzione = Split(sline, "\n")
+  confronta
+  Wend
+Close #hFile
+  
+End
+
+Public Sub confronta()
+  Dim a As Integer
+  Dim risultato As String
+  For Each risultato In opzione
+  Try a = InStr(risultato, "=")  
+  If a <> 0 Then
+    tipo = Left(risultato, a - 2)
+    valore = Mid(risultato, a + 2, a + 100)
+    assegna
+  End If
+  Next
+End
+
+Public Sub assegna()
+
+  Select Case tipo
+    Case "amiga_model"
+      FMain.ComboBox1.text = valore
+    Case "accurancy"
+      FMain.slider1.value = Val(valore)
+    Case "ntsc_mode"
+      If valore = "1" Then
+        FMain.radiobutton1.value = True
+      Else If valore = "0" Then
+        FMain.RadioButton2.value = True
+      End If
+    Case "#mAmiga"
+      Select Case valore
+        Case "500"
+          fmain.RadioButton3.value = True
+          fmain.TextBox9.text = ""
+        Case "1200"
+          fmain.RadioButton4.value = True
+          fmain.TextBox8.text = ""
+      End Select
+      
+    Case "kickstart_file"
+      If fmain.RadioButton3.value = True Then fmain.TextBox8.text = valore
+      If fmain.RadioButton4.value = True Then fmain.TextBox9.text = valore
+    Case "kickstart_ext_file"
+      fmain.TextBox10.text = valore
+    
+    Case "chip_memory"
+      Select Case Left(valore, 1)
+        Case "5"
+          FMain.RadioButton5.value = True
+        Case "1"
+          FMain.RadioButton6.value = True
+        Case "2"
+          FMain.RadioButton7.value = True
+        Case "4"
+          FMain.RadioButton8.value = True
+        Case "8"
+          FMain.RadioButton9.value = True
+      End Select
+      
+      Case "slow_memory"
+      Select Case Trim(Left(valore, 2))
+        Case "51"
+          FMain.RadioButton10.value = True
+        Case "10"
+          FMain.RadioButton11.value = True
+        Case "17"
+          FMain.RadioButton12.value = True
+        Case "0"
+          FMain.RadioButton13.value = True
+      End Select
+      
+      Case "fast_memory"
+      Select Case Left(valore, 1)
+        Case "0"
+          FMain.RadioButton14.value = True
+        Case "1"
+          FMain.RadioButton15.value = True
+        Case "2"
+          FMain.RadioButton16.value = True
+        Case "4"
+          FMain.RadioButton17.value = True
+        Case "8"
+          FMain.RadioButton18.value = True
+      End Select
+      
+      Case "zorro_iii_memory"
+      Select Case Left(valore, 2)
+        Case "0"
+          FMain.RadioButton19.value = True
+        Case "10"
+          FMain.RadioButton20.value = True
+        Case "20"
+          FMain.RadioButton21.value = True
+        Case "40"
+          FMain.RadioButton22.value = True
+        Case "81"
+          FMain.RadioButton23.value = True
+        Case "16"
+          FMain.RadioButton24.value = True
+        Case "32"
+          FMain.RadioButton25.value = True
+        Case "65"
+          FMain.RadioButton38.value = True
+        Case "13"
+          FMain.RadioButton39.value = True
+        Case "26"
+          FMain.RadioButton40.value = True
+      End Select
+      
+      Case "uae_gfxcard_size"
+        fmain.Slider6.value = valore
+      
+      Case "joystick_port_0"
+      Select Case valore
+        Case "auto"
+          FMain.RadioButton29.value = True
+        Case "mouse"
+          FMain.RadioButton30.value = True
+        Case "keyboard"
+          FMain.RadioButton31.value = True
+      End Select
+      
+      Case "joystick_port_1"
+      Select Case valore
+        Case "auto"
+          FMain.RadioButton26.value = True
+        Case "mouse"
+          FMain.RadioButton27.value = True
+        Case "keyboard"
+          FMain.RadioButton28.value = True
+      End Select
+      
+      Case "joystick_port_2"
+      Select Case valore
+        Case "auto"
+          FMain.RadioButton32.value = True
+        Case "mouse"
+          FMain.RadioButton33.value = True
+        Case "keyboard"
+          FMain.RadioButton34.value = True
+      End Select
+      
+      Case "joystick_port_3"
+      Select Case valore
+        Case "auto"
+          FMain.RadioButton35.value = True
+        Case "mouse"
+          FMain.RadioButton36.value = True
+        Case "keyboard"
+          FMain.RadioButton37.value = True
+      End Select
+      
+      Case "#df1"
+        If valore = "-1" Then
+          FMain.CheckBox8.Value = CBool(valore)
+        Else
+          FMain.CheckBox8.Value = False
+        End If
+      Case "#df2"
+        If valore = "-1" Then
+          FMain.CheckBox7.Value = CBool(valore)
+        Else
+          FMain.CheckBox7.Value = False
+        End If
+      Case "#df3"
+        If valore = "-1" Then
+          FMain.CheckBox5.Value = CBool(valore)
+        Else
+          FMain.CheckBox5.Value = False
+        End If
+      Case "floppy_drive_0"  
+        fmain.TextBox20.text = valore
+      Case "floppy_drive_1"
+        fmain.TextBox16.text = valore
+      Case "floppy_drive_2"
+        fmain.TextBox17.text = valore
+      Case "floppy_drive_3"  
+        fmain.TextBox18.text = valore
+       Case "floppy_image_0"  
+        fmain.TextBox15.text = valore
+      Case "floppy_image_1"
+        fmain.TextBox11.text = valore
+      Case "floppy_image_2"
+        fmain.TextBox12.text = valore
+      Case "floppy_image_3"  
+        fmain.TextBox13.text = valore
+      Case "floppy_image_4"  
+        fmain.TextBox14.text = valore
+        
+      Case "#hd0"
+        If valore = "-1" Then
+          FMain.CheckBox4.Value = CBool(valore)
+        Else
+          FMain.CheckBox4.Value = False
+        End If
+      Case "#hd1"
+        If valore = "-1" Then
+          FMain.CheckBox6.Value = CBool(valore)
+        Else
+          FMain.CheckBox6.Value = False
+        End If
+      Case "#hd2"
+        If valore = "-1" Then
+          FMain.CheckBox9.Value = CBool(valore)
+        Else
+          FMain.CheckBox9.Value = False
+        End If
+      Case "hard_drive_0"
+        FMain.TextBox6.text = valore
+      Case "hard_drive_1"
+        FMain.TextBox19.text = valore
+      Case "hard_drive_2"
+        FMain.TextBox22.text = valore
+      Case "#cd0"
+        If valore = "-1" Then
+          FMain.CheckBox10.Value = CBool(valore)
+        Else
+          FMain.CheckBox10.Value = False
+        End If
+      Case "#cd1"
+        If valore = "-1" Then
+          FMain.CheckBox11.Value = CBool(valore)
+        Else
+          FMain.CheckBox11.Value = False
+        End If
+      Case "cdrom_drive_0"
+        FMain.TextBox23.text = valore
+      Case "cdrom_image_0"
+        FMain.TextBox24.text = valore
+        
+      Case "floppy_drive_volume"
+        FMain.slider4.value = Val(valore)
+      Case "floppy_drive_speed"
+        FMain.slider5.value = Val(valore)
+      Case "fullscreen"
+        fmain.CheckBox1.value = CBool(Val(valore))
+      Case "keep_aspect"
+        fmain.CheckBox2.value = CBool(Val(valore))
+      Case "fsaa"
+        fmain.combobox2.text = valore
+      Case "video_sync"
+        fmain.ComboBox3.text = valore
+      Case "scanlines"
+        fmain.CheckBox3.value = CBool(Val(valore))
+      Case "scanlines_dark"
+        FMain.slider3.value = Val(valore)
+      Case "scanlines_light"
+        FMain.slider2.value = Val(valore)
+      Case "#shad"
+        fmain.ComboBox10.text = valore
+      Case "line_doubling"
+        fmain.CheckBox14.value = CBool(Val(valore))
+      Case "low_resolution"
+        fmain.CheckBox15.value = CBool(Val(valore))
+  End Select
+ 
+  
+End
+
+
+