I need a chart to help show me ASCII values. When running, I hit PrintScreen key and then I can paste it into a graphics program (I like Paint.Net these days). Then print it out. *

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    set display mode 1024,768,32
set text font "terminal",1
set text size 30

`make the background white
box 0,0,1024,768

ypos=1
for i=33 to 63
   drawStringFromInteger(1,ypos,i,0,0,0)
   drawASCII(7,ypos,i,0,0,0)
   ypos=ypos+2
next i

ypos=1
for i=64 to 94
   drawStringFromInteger(16,ypos,i,0,0,0)
   drawASCII(22,ypos,i,0,0,0)
   ypos=ypos+2
next i

ypos=1
for i=95 to 125
   drawStringFromInteger(31,ypos,i,0,0,0)
   drawASCII(38,ypos,i,0,0,0)
   ypos=ypos+2
next i

ypos=1
for i=126 to 156
   drawStringFromInteger(46,ypos,i,0,0,0)
   drawASCII(53,ypos,i,0,0,0)
   ypos=ypos+2
next i

ypos=1
for i=157 to 187
   drawStringFromInteger(61,ypos,i,0,0,0)
   drawASCII(68,ypos,i,0,0,0)
   ypos=ypos+2
next i

ypos=1
for i=188 to 218
   drawStringFromInteger(76,ypos,i,0,0,0)
   drawASCII(83,ypos,i,0,0,0)
   ypos=ypos+2
next i

ypos=1
for i=219 to 249
   drawStringFromInteger(91,ypos,i,0,0,0)
   drawASCII(98,ypos,i,0,0,0)
   ypos=ypos+2
next i

ypos=1
for i=250 to 255
   drawStringFromInteger(107,ypos,i,0,0,0)
   drawASCII(114,ypos,i,0,0,0)
   ypos=ypos+2
next i

wait key

function drawASCII(x as integer,y as integer,char as integer,r as integer,g as integer, b as integer)
   ink rgb (r,g,b),0
   text (x*8),(y*12), chr$(char)
endfunction

function drawStringFromInteger(x as integer,y as integer,char as integer,r as integer,g as integer, b as integer)
   ink rgb (r,g,b),0
   text (x*8),(y*12),str$(char)
endfunction