Screen Display

' -=-=-=-=-=-=-=-
' -=- Display -=-
' -=-=-=-=-=-=-=-

Sub Display(DispX As Integer, DispY As Integer, Text As String, Colour As Integer)
Dim As Integer Char, Size, Position

Size=Len(Text)
For Char=0 to Size-1
  Position=2*(80*(DispY-1)+(DispX-1)+Char)
  If Mid(Text,Char+1,1)=" " Then
    Mid(ScrnText,Position+1,2)=Mid(ScrnBufr,Position+1,2)
  Else
    Mid(ScrnText,Position+1,2)=Mid(Text,Char+1,1)+Hex(Colour)
  End If
Next
End Sub

Sub ViewScreen
Dim As Integer ScrnPos
Dim As String Char

For ScrnPos=0 to 1999
  Char=Mid(ScrnText,2*ScrnPos+1,1)
  Color Val("&H"+Mid(ScrnText,2*ScrnPos+2,1))
  If Char=Chr(219) Then Color 0

  Locate Int(ScrnPos/80) Mod 80+1,ScrnPos Mod 80+1,0
  Print Char;
Next

Sleep 50
ScrnBufr=Space(4000)
ScrnText=ScrnBufr
End Sub