' LIB - ASCII Graphics
'
' LOCATE [row, col, FG, BG]
' Positions Cursor at Row & Column and optionally sets the Foreground and Background Colours
' row defaults to 1
' col defaults to 1
' row must be specified for any other options to be specified
' See the CONSTANTS in the program for a list of Colours

' CLS
' Clears the Screen and positions Cursor at row 1, col 1

' BLANK [line]
'Clears the 'line' - Default is the top line

' RESET
' Resets The VT100 Terminal

' PSTRING( nbr, ascii )
' Prints a string 'nbr' bytes long consisting of the character representing the ASCII value 'ascii'
' Similar to STRING$ but accepts all ASCII values 0 through 255

' GSTRING$( nbr, ascii )
' Returns a string 'nbr' bytes long consisting of the character representing the ASCII value 'ascii'
' Similar to STRING$ but accepts all ASCII values 0 through 255

' HLINE row, col, len[, fill, fst, lst]
' Draws a line starting at Row, Col, Right 'len' Columns
' fill is the character to use, default is CHR$(196) HS - Horizontal Single Line
' fst is an optional start character default is fill
' lst is an optional end character default is fill

' VLINE row, col, len[, fill, fst, lst]
' Draws a line starting at Row, Col, Down 'len' Rows
' fill is the character to use, default is CHR$(179) VS - Vertical Single Line
' fst is an optional start character default is fill
' lst is an optional end character default is fill

' BOX row, col, width, hight[, fill, style]
' Draws a Box starting at row, col of width and hight
' filled with the 'fill' character - Default fill is " " - SPACE
' style
' 0 - No Border (Default)
' 1 - Single Line
' 2 - Double Line

' FOREGROUND colour
' Self explanatory
'
' See the CONSTANTS in the program for a list of Colours

' BACKGROUND colour
' as above

' LIB - ASCII Graphics

Const ESC = Chr$(27)
Const BLACK=1,RED=2,GREEN=3,YELLOW=4,BLUE=5,MAGENTA=6,CYAN=7,WHITE=8
Const HS=196,VS=179,TLSS=218,TRSS=191,BLSS=192,BRSS=217,LSS=195,RSS=180
Const HD=205,VD=186,TLDD=201,TRDD=187,BLDD=200,BRDD=188,LDD=204,RDD=185
Const LSD=198,RSD=182,LDS=199,RDS=181
Const TSS=194,BSS=193,TDD=203,BDD=202
Const TSD=210,BSD=208,TDS=209,BDS=207
Const FG_RED=ESC+"[32m"

Sub LOCATE(row,col,FG,BG)
If FG > 0 Then FOREGROUND FG
If FG > 0 Then BACKGROUND BG
Print ESC+"[";Str$(row);";";Str$(col);"H";
End Sub

Sub CLS ' Clear Screen
Print ESC+"[2J";
LOCATE
End Sub

Sub BLANK (row) ' Clear a Line
LOCATE row
Print ESC+"[2K";
End Sub

Sub RESET
Print ESC+"c";
End Sub

Sub PSTRING(nbr, ascii)
Do
nbr = nbr - 1
Print Chr$(ascii);
Loop Until nbr <= 0
End Sub

Function GSTRING$(nbr, ascii)
Do
nbr = nbr - 1
GSTRING$ = GSTRING$ + Chr$(ascii)
Loop Until nbr <= 0
End Function

Sub HLINE(row,col,len,fill,fst,lst)
LOCATE row,col
If fill= 0 Then fill= HS
If fst = 0 Then fst = fill
If lst = 0 Then lst = fill
Print Chr$(fst);
If len > 2 Then PSTRING len-2, fill
If len > 1 Then Print Chr$(0);Chr$(lst);
End Sub

Sub VLINE(row,col,len,type,fst,lst)
If type= 0 Then type = VS
If fst = 0 Then fst = type
If lst = 0 Then lst = type
LOCATE row,col
Print Chr$(fst);
If len > 2 Then
For x = row + 1 To len - 1
LOCATE x, col
Print Chr$(type);
Next
LOCATE len,col
If len > 1 Then Print Chr$(0);Chr$(lst);
End Sub

Sub BOX(row,col,width,hight,fill,style)
If fill = 0 Then fill = 32
Select Case style
Case 1
hl = HS
tl = TLSS
tr = TRSS
vl = VS
bl = BLSS
br = BRSS
Case 2
hl = HD
tl = TLDD
tr = TRDD
vl = VD
bl = BLDD
br = BRDD
Case Else
hl = fill
tl = fill
tr = fill
vl = fill
bl = fill
br = fill
row = row + 1
col = col + 1
width = width - 2
hight = hight - 1
End Select

HLINE row, col, width, hl, tl, tr
For x = row + 1 To hight - 1
HLINE x, col, width, fill, vl, vl
Next
HLINE hight, col, width, hl, bl, br
End Sub

Sub GSET row, col, ascii
LOCATE row, col
Print Chr$(ascii);
End Sub

Sub FOREGROUND (colour)
Print Chr$(27)+"[3"+Str$(colour - 1)+"m"
End Sub

Sub BACKGROUND (colour)
Print Chr$(27)+"[4"+Str$(colour - 1)+"m"
End Sub

' LIBRARY ENDS
'-------------------------------
' PROGRAM STARTS

CLS

Input "After each step press enter to continue",a$

BLANK
Input "Draw a box from 4,2, 25 col wide 15 rows high with a 1 line border",a$

BOX 4,2,25,15,,1

BLANK
Input "Next we use LOCATE to add a heading",a$

LOCATE 5,10 : Print "Test Box 1";


BLANK
Input "Segment the box with a Double Line Below the Heading",a$

HLINE 6,2,25,HD,LSD,RDS

BLANK
Input "Now Divide the new box Verticaly with a Single Line",a$

VLINE 6,6,15,VS,TDS,BSS
BLANK

Input "Maybe the Heading would be better in Red?",a$

LOCATE 5,10,RED : Print "Test Box 1";
FOREGROUND WHITE

BLANK
Input "Or Green",a$

LOCATE 5,10,GREEN : Print "Test Box 1";
FOREGROUND WHITE

BLANK
Input "and now just for fun lets fill this new box", a$

BOX 6,6,21,15,176

BLANK
Input "lets change the fill", a$

BOX 6,6,21,15,178

BLANK
Input "It was beter empty", a$

BOX 6,6,21,15

BLANK
Input "But the Sidebar could be Yellow", a$

BACKGROUND YELLOW
BOX 6,2,5,15
BACKGROUND BLACK

BLANK
Input "That's all Folks - Read the Program for details ..............",a$

'Move to the second last row
Locate 23

End

CLS
Sub LOCATE(row,col,FG,BG)
If FG > 0 Then FOREGROUND FG
If FG > 0 Then BACKGROUND BG
Print ESC+"[";Str$(row);";";Str$(col);"H";
End Sub

Sub CLS ' Clear Screen
Print ESC+"[2J";
LOCATE
End Sub