Code: Select all
c = ReadChr(1)
Switch c
Case 'a' To 'z' Or 'A' To 'Z':
DebugPrint("Got character")
Case '0' To '9':
DebugPrint("Got number")
Default:
DebugPrint("Error: impossible character", Chr(c))
End
EndSwitchCode: Select all
c = ReadChr(1)
Switch c
Case 'a' To 'z' Or 'A' To 'Z':
DebugPrint("Got character")
Case '0' To '9':
DebugPrint("Got number")
Default:
DebugPrint("Error: impossible character", Chr(c))
End
EndSwitch