Do print"7hs2d" if pinc.2=1 then goto c1 print"7h2sd" Loop
$regfile = "m16def.dat" $crystal = 1000000 $baud = 9600 Config Portb.0 = Input Dim B As Integer Print "7h2s" Waitms 20 Main: Do Print "7h2s" If Pinb.0 = 1 Then Goto C1 Print "72hs" Loop C1: Print "7h2s" For B = 0 To 700 Print "A8C9J" If Pinb.0 = 0 Then Goto Main Next B Goto Main
$regfile = "m16def.dat" $crystal = 1000000 $baud = 9600 Config Portb.0 = Output Dim S As Byte Main: Do S = Inkey() If S = "A8C9J" Then Goto On1 Elseif S = "7h2s" Then Goto No End If Loop On1: If S = "7h2s" Then Goto No Portb.0 = 1 Goto Main No: Portb.0 = 0 Goto Main
دیدگاه