init_screen()
 clear_screen()
 
 Print "Hello world."
 for x=1 to 20
   for y=1 to x
     print "  ";
   next y
   print "Doing a print loop with a long line..........."
 next x
 
 for g=1 to 20
   goto_xy(80-g, g)
   print g;
 next g
 
 goto_xy(10, 25)
 print "Hello again ";
 
 save_cursor()

 bold_on()
 print "Bold ";
 char_attr_off()
 Print "and_off  ";

 low_intesity()
 print "low_intensity ";
 char_attr_off()
 
 underline_on()
 print "Underline ";
 char_attr_off()
 
 blinking_on()
 print "Blink ";
 char_attr_off()
 
 underline_on()
 print "Reverse ";
 char_attr_off()
 
 print "all done"
 print
 print "more text prior to the cursor restore."
 print "more text prior to the cursor restore."
 print "more text prior to the cursor restore."
 print
 
 pause 500
 restore_cursor()
 print "                                                                  "
 print
 print
 print
 print
 print  
 
end
 

 
sub init_screen()
 'print Chr$(27);"[?3l";                          ' 80  columns
 'print Chr$(27);"[?3h";                          ' 132 columns
 'char_attr_off()
End Sub
 
sub goto_xy(x,y)
 print Chr$(27);"["; format$(y,"%-1g"); ";"; format$(x,"%-1g"); "H";
end sub
 
sub char_attr_off()
 print Chr$(27);"[m";
end sub
 
sub bold_on()
 print Chr$(27);"[1m";
end sub
 
sub low_intesity()
 print Chr$(27);"[2m";
end sub
 
sub underline_on()
 print Chr$(27);"[4m";
end sub
 
sub blinking_on()
 print Chr$(27);"[5m";
end sub
 
sub reverse_video()
 print Chr$(27);"[7m";
end sub
 
sub save_cursor()
 print Chr$(27);"7";
end sub
 
sub restore_cursor()
 print Chr$(27);"8";
end sub
 
sub clear_screen()
 goto_xy(1,1)
 print Chr$(27);"[2J";
end sub

' Vcls            clear screen
' Vch             cursor home to top left
' Vat row col     move cursor to row,column
' Vbox x,y,w,h,t  draw a box width w height h at x,y using 'Terminal' font box characters.
'                 t=0 for single line, 1 for double
' Vl y,x,l,t      draw a horizotal or vertical line to divide a box.
'                 l is length, t=0 for single line, 1 for double, negative for horizontal
' Vatt n$         set text attributes to n$ - none b /b in /in low u /u
'                 (none,bold,inverse,low_intensity,underlined)
' Vfc n$          set text/foreground colour by name or str$(number) 0-15
' Vbc n$          set background colour by name or str$(number) 0-16 (16 is light grey)
'                 Colours names are black, red, green, yellow, blue, magenta, cyan, white, grey
' ch              print the Escape sequence 'Chr$27 [' - used internally"

Sub ch:Print Chr$(27);"[";:End Sub
Sub Vcls:ch:Print "2J";:End Sub
Sub Vch:ch:Print "H";:End Sub
Sub Vat(row,col)
Local vz$
vz$=Str$(row)+";"+Str$(col)+"H":ch:Print vz$;
End Sub


Sub Vfc(color$)  'set text foreground colour
Local vz$        'if we have a colour number 0-15 then use it
If Len(color$)<3 And Val(color$)<16 Then
 vz$="38;5;"+color$+"m"
 ch
 Print vz$
Else
 ch
 Select Case LCase$(color$)  'otherwise use the colour name
  Case "black":Print "30m";
  Case "red":Print "31m";
  Case "green":Print "32m";
  Case "yellow":Print "33m";
  Case "blue":Print "34m";
  Case "magenta":Print "35m";
  Case "cyan":Print "36m";
  Case "white":Print "37m";
  Case "grey","gray":Print "90m";
 End Select
EndIf
End Sub

Sub Vbc(color$)  'set text background colour
Local vz$        'if we have a colour number 0-15 then use it
If Len(color$)<3 And Val(color$)<16 Then
 vz$="48;5;"+color$+"m"
 ch
 Print vz$
ElseIf Val(color$)=16 Then
 vz$="48:2:115:115:115m"
 ch
 Print vz$
Else
 ch
 Select Case LCase$(color$) 'otherwise use the colour name
  Case "black":Print "40m";
  Case "red":Print "41m";
  Case "green":Print "42m";
  Case "yellow":Print "43m";
  Case "blue":Print "44m";
  Case "magenta":Print "45m";
  Case "cyan":Print "46m";
  Case "white":Print "47m";
  Case "grey","gray":Print "100m";
  Case Else :Print "39m"; 'default background
 End Select
EndIf
End Sub