Chr$(049)="1"

Left 0,(screen_X-1000)/2:Top 0,(screen_Y-800)/2
Caption 0,"Police Code"
Label Font
Dim Unicode%,Font$,Width%,Height%,X%,Y%,C%,grid%
Combo 1
Left 1,15
Width 1,300
Font_Names_Add 1
      Text 1,"Arial"
      Font$="Arial"
On_Click 1,Font
Create_Hide

Grid 2
Left 2,15
Top 2,25
Grid_Row 2,17
Grid_Row_Fixed 2,16
grid_Row_Height 2,25
Height 2,(26*17)+3
Grid_Column 2,31
Grid_Column_Fixed 2,30
grid_column_width 2,25
Width 2,(26*30)+3
Width%=Width(2)+38:Height%=Height(2)+70
Width 0,Width%:Height 0,Height%
Grid_Fixed_Color 2,255,255,255
Font_Size 2,10

X%=Left(2)
For grid%=10 to 24
grid grid%
Grid_Row grid%,17
Grid_column grid%,2
grid_Row_Height grid%,25
Height grid%,(26*17)+3
grid_column_width grid%,24
Width grid%,26+1
Top grid%,top(1)+25
Left grid%,X%
Grid_Fixed_Color grid%,150,150,150
Font_Size grid%,8
X%=X%+52
Next grid%

For grid%=10 to 24
For Y%=1 To 17
C%=C%+1
If C%<10
Grid_Write grid%,Y%,1,"00"+Str$(C%)
Else
If C%<100
Grid_Write grid%,Y%,1,"0"+Str$(C%)
Else
Grid_Write grid%,Y%,1,C%
End_If
End_If
Next Y%
Next grid%
C%=0
For X%=1 to 30 Step 2
For Y%=1 To 17
C%=C%+1
Grid_Write 2,Y%,X%+1," "+Chr$(C%)
Next Y%
Next X%
Create_Show

Wait 500
Show_All
End
font:
Font$=Item_Index$(1)
Font_Name 2,Font$
Return