1 files changed, 0 insertions, 278 deletions
diff --git a/bin/G-FSUAE/G-FS-UAE/.src/leggi.module b/bin/G-FSUAE/G-FS-UAE/.src/leggi.module
deleted file mode 100644
index 1f76967..0000000
--- a/bin/G-FSUAE/G-FS-UAE/.src/leggi.module
+++ /dev/null
@@ -1,278 +0,0 @@
-' 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
-
-
-