Stand puzzle where a grid of numbers
represent all the letters of the alphabet.
It uses the print screen to input the number
then Enter
then the keyboard for the letter.
Or to change it.
The number then delete to wipe the letter.
Enter then delete to bring up the screens.
restore fillin
read grid
dim nos(grid)
for a=1 to grid
read nos(a)
next a
restore code
read letter
dim num(letter)
dim ltr$(letter)
for a=1 to letter
read num(a)
next a
open window 640,512
repeat
clear screen
input z
ltr$(z)=inkey$
if ltr$(z)="del" ltr$(z)=""
setrgb 1,0,0,0
clear fill rectangle 125,z*12+41 to 145,z*12+53
setrgb 1,256,256,256
for a=1 to letter
text 100,a*12+50,str$(a,"##")
next a
text 130,z*12+50,upper$(ltr$(z))
setrgb 1,256,256,256
fill rectangle 200,0 to 640,512
setrgb 1,0,0,0
x=0
y=1
for a=1 to grid
x=x+1
if x>15 then
x=1
y=y+1
endif
rectangle x*15+285,y*15+260 to x*15+300,y*15+275
rectangle x*25+200,y*15+10 to x*25+225,y*15+25
if nos(a)=0 fill rectangle x*15+285,y*15+260 to x*15+300,y*15+275
if nos(a)=0 fill rectangle x*25+200,y*15+10 to x*25+225,y*15+25
if nos(a)<10 text x*25+200,y*15+21,"0"
text x*25+200,y*15+21,str$(nos(a),"##")
next a
x=0
y=1
for a=1 to grid
x=x+1
if x>15 then
x=1
y=y+1
endif
for b=1 to letter
z=z+nos(a)
if nos(a)=num(b) text x*15+286,y*15+271,upper$(ltr$(b))
next b
next a
until (1=0)
label fillin
data 225
data 09,04,10,15,00,09,06,26,17,13,00,03,15,04,19
data 02,00,21,00,01,00,15,00,10,00,15,00,07,00,04
data 25,06,09,11,04,10,05,00,21,22,02,06,11,04,10
data 25,00,18,00,24,00,19,00,11,00,09,00,17,00,15
data 00,01,06,08,21,19,04,00,21,09,18,06,07,10,00
data 04,00,07,00,10,00,23,02,20,00,21,00,09,00,01
data 16,04,26,06,15,18,05,00,11,12,07,09,03,21,15
data 15,00,00,00,00,04,00,00,00,04,00,00,00,00,06
data 21,15,09,10,05,17,11,00,04,19,14,21,09,11,13
data 10,00,12,00,21,00,05,04,19,00,04,00,02,00,12
data 00,16,06,18,18,04,17,00,21,15,09,04,10,21,00
data 04,00,15,00,18,00,12,00,05,00,03,00,06,00,09
data 17,07,09,09,04,18,04,00,07,15,21,17,11,18,05
data 21,00,21,00,16,00,04,00,15,00,05,00,04,00,06
data 15,04,13,12,00,13,15,04,01,13,00,01,10,07,15
label code
data 26
data 1,2,3,4,5,6,7,8,9,10,11,12,13,14
data 15,16,17,18,19,20,21,22,23,24,25,26
' answer
' 01 02 03 04 05 06 07 08 09 10 11 12 13
' G U K O Y A I Z C R T H S
' 14 15 16 17 18 18 20 21 22 23 24 25 26
' J N W P L B X E Q D V F M
