'--------------------------------------------------------------
'                 (c) 1997,1998 MCS Electronics
'--------------------------------------------------------------
'  file: INPUT.BAS
'  demo: INPUT, INPUTHEX
'--------------------------------------------------------------
'To use another baudrate and crystalfrequency use the
'metastatements $BAUD =  and $CRYSTAL =
$baud = 1200                            'try 1200 baud for example
$crystal = 12000000                     '12 MHz

Dim V As Byte , B1 As Byte
Dim C As Integer , D As Byte
Dim S As String * 15                    'only for uP with XRAM support

Input "Use this to ask a question " , V
Input B1                                'leave out for no question

Input "Enter integer " , C
Print C


Inputhex "Enter hex number (4 bytes) " , C
Print C
Inputhex "Enter hex byte (2 bytes) " , D
Print D

Input "More variables " , C , D
Print C ; " " ; D

Input C Noecho                          'supress echo

Input "Enter your name " , S
Print "Hello " ; S

Input S Noecho                          'without echo
Print S
End