El Dorado City of Gold (Gottlieb 1984).vbs

 'Gottlieb El Dorado City of Gold
 'Added coins chute by Mike da Spike
 Sub editDips
    Dim vpmDips:Set vpmDips = New cvpmDips
    With vpmDips
       .AddForm 700, 400, "El Dorado City of Gold - DIP switches"
       .AddFrame 2,4,190,"Left Coin Chute (Credit/Coins)",&H0000001F,Array("1/4",&H0000000D,"1/2",&H0000000A,"1/1",&H00000000,"2/1",&H00000010) 'Dip 1-5
       .AddFrame 2,80,190,"Right Coin Chute (Credit/Coins)",&H00001F00,Array("1/2",&H00000D00,"1/2",&H00000A00,"1/1",&H00000000,"2/1",&H00001000) 'Dip 9-13
       .AddFrame 2,160,190,"Center Coin Chute (Credit/Coins)",&H001F0000,Array("1/2",&H000D0000,"1/2",&H000A0000,"1/1",&H00000000,"2/1",&H00010000) 'Dip 17-21
       .AddFrame 207, 2, 190, "Maximum credits", 49152, Array("8 credits", 0, "10 credits", 32768, "15 credits", &H00004000, "20 credits", 49152)                                                                                   'dip 15&16
       .AddFrame 207, 80, 190, "Coin chute 1 and 2 control", &H00002000, Array("seperate", 0, "same", &H00002000)                                                                                                                   'dip 14
       .AddFrame 207, 126, 190, "Playfield special", &H00200000, Array("replay", 0, "extra ball", &H00200000)                                                                                                                       'dip 22
       .AddFrame 207, 172, 190, "Game mode", &H10000000, Array("replay", 0, "extra ball", &H10000000)                                                                                                                               'dip 29
       .AddChk 207, 227, 190, Array("Match feature", &H02000000)                                                                                                                                                                    'dip 26
       .AddChk 207, 248, 190, Array("Background sound", &H40000000)                                                                                                                                                                 'dip 31
       .AddFrame 412, 2, 190, "High score to date awards", &H00C00000, Array("not displayed and no award", 0, "displayed and no award", &H00800000, "displayed and 2 replays", &H00400000, "displayed and 3 replays", &H00C00000) 'dip 23&24
       .AddFrame 412, 80, 190, "Balls per game", &H01000000, Array("5 balls", 0, "3 balls", &H01000000)                                                                                                                           'dip 25
       .AddFrame 412, 126, 190, "Replay limit", &H04000000, Array("no limit", 0, "one per ball", &H04000000)                                                                                                                      'dip 27
       .AddFrame 412, 172, 190, "Novelty", &H08000000, Array("normal", 0, "points", &H0800000)                                                                                                                                    'dip 28
       .AddFrame 412, 218, 190, "3rd coin chute credits control", &H20000000, Array("no effect", 0, "add 9", &H20000000)                                                                                                          'dip 30
       .AddLabel 170, 270, 300, 20, "After hitting OK, press F3 to reset game with new settings."
       .ViewDips
    End With
 End Sub
 Set vpmShowDips = GetRef("editDips")