'--------------------------------------------------------------
'                  CHR.BAS
'                 (c) 1997,1998 MCS Electronics
' This sample shows how to use the CHR() and BCD() function and ..
' It shows how to use the inline assembler
'--------------------------------------------------------------
Dim K As Byte
Again:
K = 65
Print K ; Chr(k) ; K ; Chr(66) ; Bcd(1)
Printhex K
Print "Now do some assembler"
'------------- Not supported but included : inline assembler --
 Mov A , #2     ;set register
 Mov B , #3     ;setup second register
 Mul Ab         ;multiply
 Mov {k}, a    ;assign variable
 Print K
 ljmp .again     ;labels are converted to the labelname preceded by a  point
End