All pastes #235912 Raw Edit

d

public text v1 · immutable
·published 2006-11-03 15:03 UTC
rendered paste body
%%%%Index
View.Set ("graphics:max,max")
setscreen("nocursor")
var team : string
var font2 : int := Font.New ("sans serif:40:bold")

for i : 1 .. 26
    Font.Draw (chr (64 + i), i * 48 - 48, 300, font2, red)
end for


var ch : string (1)

loop
    getch (ch)
    drawfillbox(200,450,500,600,white)
    Font.Draw (ch, 200, 500, font2, red)
    Font.Draw (intstr(ord(ch)), 300, 500, font2, red)
    
end loop