Option explicit
Option default integer
Dim nred,nblue,ncyan,nmag,x,y,i,j,k,l,dic=MM.Info(modbuff address)
Dim offsets(26,26)
Dim letters(26),letterscore(26)
Dim aa=Asc("a"), zz=Asc("z")
Dim word$
If Peek(byte dic)<>aa Or Peek(byte dic+1)<>aa Or Peek(byte dic+2)<>10 Then
 Print "Loading dictionary"
 Flash modbuff load "b:/sowpods.txt"
EndIf
VAR restore
If offsets(1,1)<>dic Then
 Print "Building dictionary indicies"
 i=aa
 j=dic
 k=1
 offsets(1,1)=dic
 Do While Peek(byte j)<> 255
   Do While Peek(byte j)<>10 'step to the end of the word
     Inc j
   Loop
   Inc j
   If Peek(byte j)>=aa And Peek(byte j)<=zz And Peek(byte j)<> i Then
     Inc k
     offsets(k,1)=j
     Inc i
     Print Chr$(i)
   EndIf
 Loop
 k=aa
 For i=1 To 26
   j=offsets(i,1)
   Do While Peek(byte j)=aa+i-1
     Do While Peek(byte j)<>10 'step to end of the word
       Inc j
     Loop
     Inc j
     If Peek(byte j)=aa+i-1 Then
       If Peek(byte j+1)<> k Then 'start of new second letter
         offsets(i,Peek(byte j+1)-aa+1)=j
         k=Peek(byte j+1)
         Print Chr$(Peek(byte j));Chr$(Peek(byte j+1))
       EndIf
     EndIf
   Loop
 Next
EndIf
VAR save offsets()
TILE height 32
CLS 0
TILE 10,0,RGB(black),RGB(white),60,16
Read nred
For i=1 To nred
Read x: Read y
TILE tilepos(x),y-1,RGB(black),RGB(red),4
Next
Read nblue
For i=1 To nblue
Read x: Read y
TILE tilepos(x),y-1,RGB(black),RGB(blue),4
Next
Read ncyan
For i=1 To ncyan
Read x: Read y
TILE tilepos(x),y-1,RGB(black),RGB(cyan),4
Next
Read nmag
For i=1 To nmag
Read x: Read y
TILE tilepos(x),y-1,RGB(black),RGB(magenta),4
Next
For i=0 To 15*32 Step 32
Line 80,i,MM.HRes-80,i
Line 80+i,0,80+i,MM.VRes-1
Next
j=0
For i=0 To 26
Read letters(i)
Inc j,letters(i)
Next
'Print j 'should be 100
j=0
For i=0 To 26
Read letterscore(i)
Inc j,letterscore(i)*letters(i)
Next
'Print j ' should be 187
'
Do
  Input word$;
  Print checkword(word$)
Loop

Function tilepos(n As integer)
tilepos=n*4+6
End Function
'
Function checkword(s$ As string) As integer
 s$=LCase$(s$)
 Local i=Asc(s$)
 Local j=Asc(Mid$(s$,2,1))
 Local k=offsets(i-aa+1,j-aa+1)
 Local w$
 checkword=0
 If k<>0 Then
   Do While Peek(byte k)=i And Peek(byte k+1)=j
     w$=Chr$(Peek(byte k))
     Inc k
     Do While Peek(byte k)<>10
       Inc w$,Chr$(Peek(byte k))
       Inc k
     Loop
     If w$=s$ Then
       checkword=1
       Exit Function
     EndIf
     Inc k
   Loop
 EndIf
End Function
'triple word
Data 8,1,1,8,1,15,1,1,8,15,8,1,15,8,15,15,15
'triple letter
Data 12,6,2,10,2,2,6,6,6,10,6,14,6,2,10,6,10,10,10,14,10,6,14,10,14
'doubble letter
Data 24,4,1,12,1,7,3,9,3,1,4,8,4,15,4,3,7,7,7,9,7,13,7,4,8,12,8,3,9,7,9,9,9,13,9
Data 1,12,8,12,15,12,7,13,9,13,4,15,12,15
'double word
Data 17,2,2,14,2,3,3,13,3,4,4,12,4,5,5,11,5,8,8,5,11,11,11,4,12,12,12,3,13,13,13
Data 2,14,14,14
'letter count
Data 2,9,2,2,4,12,2,3,2,9,1,1,4,2,6,8,2,1,6,4,6,4,2,2,1,2,1
'letter score
Data 0,1,3,3,2,1,4,2,4,1,8,5,1,3,1,1,3,10,1,1,1,1,4,4,8,4,10