'system setup -----------------------------------------------------
 Option default integer
 Const Game_Mite=1-(MM.Device$="PicoMiteVGA")
 Const nesPG1=1

 'alternate controllers
 If Game_Mite Then
   sc$="f":init_game_ctrl ' Init Controller on Game*Mite
 Else
   sc$="n":MODE 2
 EndIf
If nesPG1 Then
  Const a_dat=2   'GP1
  Const a_latch=4 'GP2
  Const a_clk=5   'GP3
  Const pulse_len!=0.012 '12uS
  SetPin a_dat, din: SetPin a_latch, dout: SetPin a_clk, dout
 EndIf

Const sys.DEVICE = sys.get_config$("device", Mm.Device$)

' Reads property from config (.ini) file.
'
' @param  key$      case-insensitive key for property to lookup.
' @param  default$  value to return if property or file is not present.
' @param  file$     file to read. If empty then read "A:/.spconfig", or
'                   if that is not present "A:/.config".
Function sys.get_config$(key$, default$, file$)
 sys.get_config$ = default$
 If file$ = "" Then
   Const file_$ = Choice(Mm.Info(Exists File "A:/.spconfig"), "A:/.spconfig", "A:/.config")
 Else
   Const file_$ = file$
 EndIf
 If Not Mm.Info(Exists File file_$) Then Exit Function

 Local key_$ = LCase$(key$), s$, v$
 Open file_$ For Input As #1
 Do While Not Eof(#1)
   Line Input #1, s$
   If LCase$(Field$(Field$(s$, 1, "=", Chr$(34)),1, "#;", Chr$(34))) = key_$ Then
     v$ = Field$(Field$(s$, 2, "=", Chr$(34)), 1, "#;", Chr$(34))
     If Left$(v$, 1) = Chr$(34) Then v$ = Mid$(v$, 2)
     If Right$(v$, 1) = Chr$(34) Then v$ = Mid$(v$, 1, Len(v$) - 1)
     sys.get_config$ = v$
     Exit Do
   EndIf
 Loop
 Close #1
End Function

device = "Game*Mite"

device = "PicoGAME VGA"

[281] Pulse a_latch, pulse_len!
Error : Pin 0/NULL is not an output"