#include "zxfont.inc"
mode 1,8
'mode 2,8
scale=2

'mode 3,8
'scale=1

round_corners=48
'round_corners=16

zx.hres=256
zx.vres=192
zx.vres_main=192-2*8 '2 lines at the bottom are reserved for input

xoffset=(MM.HRes-zx.hres*scale)/2
yoffset=(MM.VRes-zx.vres*scale)/2

'border=RGB(white)
border=RGB(cyan)

paper=RGB(white)
ink=RGB(black)

sub zx.font
 font 8,scale
end sub

sub zx.colours
 colour ink,paper
end sub

sub zx.inv_colours
 colour paper,ink
end sub

sub zx.border_colours
 colour ink,border
end sub

sub zx.border_inv_colours
 colour border,ink
end sub

sub zx.cls_and_border
 cls bezel
 rbox 0,0,MM.Hres,MM.VRes,round_corners,border,border
 box xoffset,yoffset,zx.hres*scale),zx.vres_main*scale),,paper,paper
end sub

sub zx.at x,y
 print @(xoffset+x*8*scale,yoffset+y*8*scale) ;
end sub

sub zx.print_at x,y,str$
 text xoffset+x*8*scale,yoffset+y*8*scale), str$,,,scale
end sub

zx.cls_and_border
zx.colours
zx.font

zx.print_at 0,0,  "   5 BORDER 5"
zx.print_at 0,1,  "  10 PRINT "+chr$(34)+"Hello!"+chr$(34)
zx.print_at 0,2,  "  20> GO TO 10"
zx.at 0,3 : print "  30 INPUT "+chr$(34)+"What is your name?"+chr$(34)+";"
zx.at 0,4 : print "n$"
zx.print_at 0,5,  "  40 GO TO 30"

zx.border_colours
zx.print_at 0,23,  "  20K GO TO 10"

prompt$="K"

do
 zx.print_at 4,23,prompt$
 pause 320
 zx.border_inv_colours

 zx.print_at 4,23,prompt$
 pause 320
 zx.border_colours

loop until inkey$ <> ""