clrscr
Print at$(21,3) colour$(4) "Colour MicroMite Demonstration"

For B=30 To 37
For C=40 To 47
Print at$((B-25)*4, C-35) colour$(1, B, C) "abcd"
Next C: Next B

For A=0 To 9
Print at$(17+(A*4),14) colour$(0, 37, 40) Str$(A)
Print at$(16+(A*4),16) colour$(A, 37, 40) "xxx"
Next A

Print at$(1, 20) colour$() "press enter to exit ";
Line Input a$
End


Function at$(x,y)
at$=Chr$(27)+"["+Str$(Y)+";"+Str$(X)+"H"
End Function

Function colour$(A, B, C)
Local temp$
temp$=Chr$(27)+"["+Str$(A)
If B<>0 Then temp$=temp$+";"+Str$(B)
If C<>0 Then temp$=temp$+";"+Str$(C)
colour$=temp$+"m"
End Function

Sub clrscr
Print Chr$(27)+"[2J"
End Sub