var p1name,p2name :string
var length1,length2,score,score2 :int
score:=0
score2:=0
var font3 :=Font.New ("Arial:10")
Font.Draw ("Player 1, please enter your name: ", 3, 373, font3, blue)
locate (2, 36) %Player1 name input location
colour (blue) %Player1 name input colour
get p1name : *
length2 := length (p1name)
cls
Font.Draw ("Player 2, please enter your name: ", 3, 373, font3, blue)
locate (2, 36) %Player2 name input location
colour (blue) %Player2 name input colour
get p2name : *
length1 := length (p2name)
cls
colourback (0) %background
cls
Font.Draw (p2name, 2, maxy - 12, font3, blue)
locate (1, length1 + 2) %score2 number location
colour (blue) %score2 remaining number colour
put score2 ..
Font.Draw (p1name, maxx - 80, maxy - 12, font3, blue)
locate (1, maxcol - 3) %score number location
colour (blue) %score number colour
put score ..
|