$regfile = "attiny2313.dat" $crystal = 8000000 $baud = 9600 Dim I As Byte Dim Check As String * 1 Dim Cpu As String * 1 Dim Mem As String * 1 Dim Virtmem As String * 1 Dim J As Byte Config Portb = Output Config Portd = Output Portb = &B00000000 Portd.2 = 1 Portd.3 = 1 Portd.4 = 1 Cpu = "0" Mem = "0" Virtmem = "0" Do Check = Inkey() If Check = "a" Then Cpu = Waitkey() If Check = "b" Then Mem = Waitkey() If Check = "c" Then Virtmem = Waitkey() Portb = 0 Portd.5 = 0 Portd.6 = 0 Portd.2 = 1 Portd.4 = 0 J = Asc(cpu) J = J - 48 If J < 8 Then Portb.j = 1 If J = 8 Then Portd.5 = 1 If J = 9 Then Portd.6 = 1 Waitms 5 Portb = 0 Portd.5 = 0 Portd.6 = 0 Portd.4 = 1 Portd.3 = 0 J = Asc(mem) J = J - 48 If J < 8 Then Portb.j = 1 If J = 8 Then Portd.5 = 1 If J = 9 Then Portd.6 = 1 Waitms 5 Portb = 0 Portd.5 = 0 Portd.6 = 0 Portd.3 = 1 Portd.2 = 0 J = Asc(virtmem) J = J - 48 If J < 8 Then Portb.j = 1 If J = 8 Then Portd.5 = 1 If J = 9 Then Portd.6 = 1 Waitms 5 Loop End