'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2004 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 11/18/2004                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************


INCLUDE "modedefs.bas"

EEPROM 100,[0]

' Set up the LCD
define LCD_LINES 1
define LCD_DREG PORTC
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 1
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 0
DEFINE LCD_BITS 4

' Turn off A/D converters
ADCON1 = 7

' Rotary Encoder inputs
INPUT PORTC.0
INPUT PORTC.1
INPUT PORTC.2
INPUT PORTA.5

' Indicator light output
OUTPUT PORTC.3
OUTPUT PORTB.7

' Everything else off
TRISB = %00000011
TRISA = %00100000

ROT1 VAR BIT        ' Rotary encoder variables
ROT2 VAR BIT
OLD1 VAR BIT
OLD2 VAR BIT
CHANGE VAR BYTE     ' Letter increment

STARTDATA CON $6D00

SWITCH VAR BIT      ' Right pushbutton
FLIPPED var WORD    ' Check to see if it's been held down or merely pressed
SWITCH2 VAR BIT     ' Left pushbutton
OLDSWITCH VAR BIT   
OLDSWITCH2 VAR BIT

TALLY VAR BYTE      ' Current letter tally
TALLY = 0
SHOW VAR BIT        ' LCD display flipper
SHOW = 1

OK VAR BIT          ' Grammar toggle

SCROLLSPEED CON 2   ' lower = faster

LETTERS VAR BYTE[16]    ' Current word
LETTER VAR BYTE     ' Current letter index
WORDLENGTH VAR BYTE
LETTER = 0          ' Start at beginning
WORDS VAR BYTE      ' Number of stored words
WORD2READ VAR BYTE
ALLOWED VAR BYTE[26]
P VAR WORD

' See
' http://list.picbasic.com/forum/messages/4011/4333.html?1029989225

I    var     WORD                ' Loop count
D    var     byte                ' Data
A    var     word                ' Address

pause 500           ' Warm up

gosub resetallowedyes
gosub initialize

'GOSUB writewordcount
GOSUB readwordcount
'GOSUB writeword
gosub readwords

MODE VAR BIT
IF WORDS = 0 THEN
    MODE = 0            ' Typing mode
ELSE
    MODE = 1
ENDIF



OLD1 = PORTC.1
OLD2 = PORTC.2

main:

     X var byte
     FOR X = 1 TO 5
         GOSUB getswitch
     NEXT X
     
     GOSUB getchange

     IF SHOW = 1 THEN
         GOSUB LCD
         SHOW = 0
     ENDIF

goto main

getchange:

     SWITCH = PORTC.0
     ROT1 = PORTC.1
     ROT2 = PORTC.2

     IF ((ROT1 <> OLD1) OR (ROT2 <> OLD2)) AND SWITCH = 0 THEN

     IF OLD1 = 0 and OLD2 = 0 AND ROT1 = 0 AND ROT2 = 1 THEN
         CHANGE = -1
     ENDIF
     IF OLD1 = 0 and OLD2 = 1 AND ROT1 = 1 AND ROT2 = 1 THEN
         CHANGE = -1
     ENDIF
     IF OLD1 = 1 and OLD2 = 0 AND ROT1 = 0 AND ROT2 = 0 THEN
         CHANGE = -1
     ENDIF
     IF OLD1 = 1 and OLD2 = 1 AND ROT1 = 1 AND ROT2 = 0 THEN
         CHANGE = -1
     ENDIF

     IF OLD1 = 0 and OLD2 = 0 AND ROT1 = 1 AND ROT2 = 0 THEN
         CHANGE = 1
     ENDIF
     IF OLD1 = 0 and OLD2 = 1 AND ROT1 = 0 AND ROT2 = 0 THEN
         CHANGE = 1
     ENDIF
     IF OLD1 = 1 and OLD2 = 1 AND ROT1 = 0 AND ROT2 = 1 THEN
         CHANGE = 1
     ENDIF
     IF OLD1 = 1 and OLD2 = 0 AND ROT1 = 0 AND ROT2 = 1 THEN
         CHANGE = 1
     ENDIF

     TALLY = TALLY + CHANGE
     
     IF MODE = 0 THEN
         IF TALLY = 27 * SCROLLSPEED THEN TALLY = 0
         IF TALLY > 27 * SCROLLSPEED THEN TALLY = 26 * SCROLLSPEED
         LETTERS[LETTER] = TALLY / SCROLLSPEED

        gosub grammar
     else
         IF TALLY = (WORDS) * SCROLLSPEED THEN TALLY = 0
         IF TALLY > (WORDS) * SCROLLSPEED THEN TALLY = (WORDS-1) * SCROLLSPEED
     ENDIF
     

     OLD1 = ROT1
     OLD2 = ROT2
     CHANGE = 0
     SHOW = 1
     ENDIF

return

getswitch:
     SWITCH = PORTC.0
     IF SWITCH = 1 AND OLDSWITCH = 1 AND FLIPPED > 500 THEN ' ... Affix
        'flipped = 0
        IF MODE = 0 THEN
            LCDOUT $FE, $0C
            HIGH PORTC.3
            gosub writeword
            
            'GOSUB writewordcount
            'WORDS = WORDS + 1
            letter = -1
            GOSUB initialize
            WORD2READ = WORDS-1
            GOSUB readword
            IF WORDS > 1 THEN
                'LCDOUT $FE,1,"-> scroll mode"

                MODE = 1
            endif
                pause 1000
        ELSE    
            'LCDOUT $FE,1,"[ write mode1 ]"
            'GOSUB initialize
            'TALLY = 0
            'LETTER = -1
            'MODE = 0
            'Pause 1000
        ENDIF
        'MODE = MODE + 1
     ENDIF
     IF SWITCH = 0 AND OLDSWITCH = 1 THEN
        IF MODE = 1 THEN
            LCDOUT $FE,1,"[ write mode2 ]"
            GOSUB initialize
            TALLY = 0
            LETTER = -1
            MODE = 0
            Pause 1000
            LCDOUT $FE,1
            SHOW = 1
        ELSE
         HIGH PORTC.3
         LETTER = LETTER + 1
         WORDLENGTH = LETTER
         LETTERS[LETTER] = 0
         CHANGE = SCROLLSPEED
         GOSUB checkpoke
         gosub grammar
         TALLY = 0
         gosub LCD
         ENDIF
     ELSE
         LOW PORTC.3
     ENDIF
   
     SWITCH2 = PORTA.5
     IF SWITCH2= 0 AND OLDSWITCH2 = 1 AND LETTER > 0 THEN
         HIGH PORTC.3
         LETTERS[LETTER] = 26
         'LETTERS[LETTER] = LETTERS[LETTER-1]
         CHANGE = SCROLLSPEED
         gosub grammar
         TALLY = LETTERS[LETTER-1] * SCROLLSPEED
         LETTER = LETTER - 1
         'LCDOUT $fe,$10
         gosub LCD
     ELSE
         LOW PORTC.3
     ENDIF
  
     if switch = 1 and oldswitch = 1 then
         flipped = flipped + 1
     else
         flipped = 0
     endif
     OLDSWITCH = SWITCH
     OLDSWITCH2 = SWITCH2
     pause 1
RETURN

LCD:
     LCDOUT $FE,1
     'LCDOUT DEC MODE," "
     IF MODE = 1 THEN
        WORD2READ = TALLY / SCROLLSPEED
        '  LCDOUT "M: ", DEC WORD2READ, " "
        gosub readword
     ELSE
         FOR x = 0 to LETTER
             IF LETTERS[x] < 26 THEN
                 LCDOUT (LETTERS[x]+97)
            ELSE
                LCDOUT 32
            ENDIF
        next x
        LCDOUT $FE,$0E
        LCDOUT $FE,$10
     ENDIF
     'LCDOUT " ", BIN CHUNK
RETURN

initialize:
    For I = 0 To 15         			' Loop 8 times, once for each address $1800 to $1807
        LETTERS[I] = 26
    next I
    LETTERS[0] = 0
RETURN

grammar:
     OK = 1
     HIGH PORTC.3
     IF LETTER > 0 THEN
         failed:
         'OK = 1
         'if LETTER == 1 THEN
             'OK = 0
             GOSUB check
         'ENDIF
         IF OK = 0 && LETTERS[LETTER] < 26 THEN
             TALLY = TALLY + CHANGE
             IF TALLY = 27 * SCROLLSPEED THEN TALLY = 0
             IF TALLY > 27 * SCROLLSPEED THEN TALLY = 26 * SCROLLSPEED
     'LETTERS[LETTER] = TALLY / 10
             LETTERS[LETTER] = TALLY / SCROLLSPEED
             GOTO failed
         ELSE
             LOW PORTC.3
             SHOW = 1
             GOSUB LCD
         ENDIF
     ENDIF
RETURN

writeword:

        HIGH PORTB.7
        'for I = 0 to 15
		'	A = ($5000+(16*(WORDS))) + I			' Increment Address
        '    ERASECODE A
        'NEXT I
        For I = 0 To 15         			' Loop 8 times, once for each address $1800 to $1807
				A = (STARTDATA+(16*WORDS)) + I			' Increment Address
                D = LETTERS[I]          	' Change Data
				Writecode A,D		 	' Send value in D to code space location A
        Next I
        LOW PORTB.7
        WORDS = WORDS + 1
        GOSUB writewordcount
return

readwords:
    W var byte
    if WORDS > 0 THEN
        for W = 0 to WORDS-1
            WORD2READ = w
            GOSUB readword
            pause 1000
        next W
    ENDIF
    LCDOUT $FE,1,"[ scroll mode ]"
    pause 1000
RETURN

readword:

            LCDOUT $FE,1
            'LCDOUT DEC WORD2READ," ",DEC TALLY," "
            For I = 0 To 15          		' Loop 8 times, once for each address $1800 to $1807
				A = (STARTDATA+(16*WORD2READ)) + I			' Increment Address
				Readcode A,D			' Get data in location A
                'Lcdout $fe,1,DEC A,": ",D+97   ' Display the location and data
                IF D < 26 THEN
                    LCDOUT (D+97)
                ELSE
                    LCDOUT 32
                ENDIF
            Next I
            Pause 5
            
RETURN

readwordcount:
        LCDOUT $FE,1
        READ 100,WORDS
        LCDOUT "Words: ",DEC WORDS
        PAUSE 1000
        'WORDS = WORDS+1
RETURN

writewordcount:
        LCDOUT $FE,1
        'A = $4fff			' Increment Address
        'Readcode A,WORDS			' Get data in location A
        'FOR I = 0 to 7
        '    A = $0000 + I			' Increment Address
        WRITE 100,WORDS
        '    WRITE A,WORDS
        'NEXT I
        Lcdout $fe,1,"Words: ",DEC WORDS   ' Display the location and data
RETURN

resetallowedyes:
    For I = 0 To 26         			' Loop 8 times, once for each address $1800 to $1807
        ALLOWED[I] = 1
    next I
RETURN

resetallowedno:
    For I = 0 To 26         			' Loop 8 times, once for each address $1800 to $1807
        ALLOWED[I] = 0
    next I
RETURN

check:
    IF ALLOWED[LETTERS[LETTER]] = 1 then
        OK = 1
    ELSE
        OK = 0
    ENDIF
RETURN

checkpoke:
    GOSUB resetallowedno
    READY VAR BYTE
    READY = 0
    BUFFER VAR BYTE[2]
    TEST2 VAR BYTE[2]
    FOUND VAR BIT
    FOUND = 0
    IF LETTER > 1 THEN
        TEST2[0] = LETTERS[LETTER-2]
    ELSE
        TEST2[0] = 26
    ENDIF    
    TEST2[1] = LETTERS[LETTER-1]
    FOR P=0 TO 15000
        'LCDOUT $FE,1
        'For I = 0 To 0
        A = ($2000+(P*2))			' Increment Address
            PEEKCODE A,D			' Get data in location A
            'Lcdout $fe,1,DEC A,": ",D+97   ' Display the location and data
            IF D > 29 THEN
                IF FOUND = 1 then
                    GOTO done
                ENDIF
                BUFFER[0] = 255
                BUFFER[1] = 255
                'pause 50
                'LCDOUT $FE,1
                READY = 0
                D=D-30
            ELSE
                READY = READY+1
            ENDIF
            IF READY < 2 THEN
                BUFFER[READY] = D
                'LCDOUT D+97
            ENDIF
            
            'IF BUFFER[0] = LETTERS[LETTER-2] and BUFFER[1] = LETTERS[LETTER-1] THEN
            IF BUFFER[0] = TEST2[0] and BUFFER[1] = TEST2[1] THEN
                IF READY > 1 THEN
                    'LCDOUT D+97
                    ALLOWED[D] = 1
                    FOUND = 1
                    'pause 500
                ENDIF
            ENDIF            
     NEXT P
     done:
    'PAUSE 10000
RETURN


@ 	org 	2000h
    POKECODE 56,0,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
    POKECODE 56,1,0,4,8,11,14,17,20,24
    POKECODE 56,2,0,4,7,8,11,14,17,20,24,25
    POKECODE 56,3,0,4,8,14,17,20,22,24
    POKECODE 56,4,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24
    POKECODE 56,5,0,4,8,9,11,14,17,20
    POKECODE 56,6,0,4,7,8,11,13,14,17,20,24
    POKECODE 56,7,0,4,8,14,20,24
    POKECODE 56,8,0,1,2,3,5,6,11,12,13,14,15,17,18,19,21
    POKECODE 56,9,0,4,8,14,20
    POKECODE 56,10,0,4,7,8,11,13,14,17,20
    POKECODE 56,11,0,4,8,11,14,20,24
    POKECODE 56,12,0,4,8,13,14,20,24
    POKECODE 56,13,0,4,8,14,19,20,24
    POKECODE 56,14,0,1,2,3,5,6,7,8,10,11,12,13,14,15,17,18,19,20,21,22,23,24,25
    POKECODE 56,15,0,4,7,8,11,13,14,17,18,19,20,24
    POKECODE 56,16,20
    POKECODE 56,17,0,4,7,8,14,20,24
    POKECODE 56,18,0,2,4,7,8,10,11,12,13,14,15,16,19,20,21,22,24
    POKECODE 56,19,0,4,7,8,14,17,18,20,22,24
    POKECODE 56,20,1,3,6,7,10,11,12,13,15,17,18,19,21
    POKECODE 56,21,0,4,8,14,20,24
    POKECODE 56,22,0,4,7,8,14,17,20
    POKECODE 56,23,4,24
    POKECODE 56,24,0,4,8,14,19,20
    POKECODE 56,25,0,4,8,14,20,22,24
    POKECODE 30,0,12,17
    POKECODE 30,1,0,1,3,4,7,8,9,11,13,14,17,18,20,24
    POKECODE 30,2,0,2,4,7,8,10,11,12,13,14,16,17,18,19,20,24
    POKECODE 30,3,0,1,2,3,4,5,6,7,8,9,10,11,12,14,15,16,17,18,19,20,21,22,24,25
    POKECODE 30,4,0,6,11,14,17,18
    POKECODE 30,5,0,4,5,6,8,11,14,17,19,24
    POKECODE 30,6,0,4,5,6,7,8,11,12,13,14,15,17,18,19,20,22
    POKECODE 30,7,0,4,11,14
    POKECODE 30,8,0,2,3,4,5,6,10,11,12,13,15,16,17,18,19,21,25
    POKECODE 30,9,0,4,14
    POKECODE 30,10,0,3,4,5,7,8,11,13,17,19,20,22,24
    POKECODE 30,11,0,1,2,3,4,5,6,8,10,11,12,13,14,15,16,17,18,19,20,21,22,24
    POKECODE 30,12,0,1,2,4,8,11,12,13,14,15,17,18,20,22,24
    POKECODE 30,13,0,1,2,3,4,5,6,7,8,9,10,11,13,14,15,16,18,19,20,21,22,23,24,25
    POKECODE 30,14,1,11,17,18,19
    POKECODE 30,15,0,1,3,4,5,7,8,9,10,11,12,13,14,15,17,18,19,20,24
    POKECODE 30,16,20
    POKECODE 30,17,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,21,22,24,25
    POKECODE 30,18,0,1,2,4,7,8,10,11,12,14,15,16,18,19,20,22,24
    POKECODE 30,19,0,1,2,4,5,6,7,8,10,11,12,13,14,17,18,19,20,22,24,25
    POKECODE 30,20,1,2,3,4,5,6,10,11,12,13,15,17,18,19,21,23,25
    POKECODE 30,21,0,4,8,14,20,21,24
    POKECODE 30,22,0,1,3,4,5,7,8,10,11,12,13,14,17,18,19,24
    POKECODE 30,23,0,4,8,11,14,15,22,24
    POKECODE 30,24,0,1,2,3,4,5,6,7,8,11,12,14,15,17,18,19,20,22
    POKECODE 30,25,0,4,8,14,20,24,25
    POKECODE 31,0,0,1,2,3,5,6,7,8,10,11,12,13,14,15,17,18,19,20,22,24,25
    POKECODE 31,1,0,4,8,11,14,17,20,24
    POKECODE 31,2,0,14,20
    POKECODE 31,3,4,8,14,20
    POKECODE 31,4,0,1,2,3,4,5,6,7,8,10,11,12,13,16,17,18,19,21,22,23,24,25
    POKECODE 31,5,14,20
    POKECODE 31,6,14
    POKECODE 31,7,14,20
    POKECODE 31,8,0,1,2,3,4,5,6,10,11,12,13,14,15,16,17,18,19,20,21,22,25
    POKECODE 31,9,4,20
    POKECODE 31,10,8
    POKECODE 31,11,0,4,8,14,20,24
    POKECODE 31,12,0,4,8
    POKECODE 31,13,0,4,14
    POKECODE 31,14,0,1,3,4,5,6,7,8,9,11,12,13,14,15,17,18,19,20,21,22,23,24,25
    POKECODE 31,15,11,14
    POKECODE 31,17,0,4,8,14,20,24
    POKECODE 31,18,2,4,7,8,10,11,14,19,20
    POKECODE 31,19,0,4,5,8,11,14,17,20
    POKECODE 31,20,1,2,3,4,5,6,8,10,11,12,13,14,15,17,18,19,23,24,25
    POKECODE 31,21,4,8
    POKECODE 31,22,0,4,7
    POKECODE 31,24,4,6,7,8,11,15,17,18,19,22
    POKECODE 32,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,17,18,19,20,21,22,24
    POKECODE 32,2,0,4,7,8,11,14,17,20,24
    POKECODE 32,3,14
    POKECODE 32,4,0,1,2,3,4,5,6,7,8,11,12,13,14,15,17,18,19,20,22,24
    POKECODE 32,7,0,1,2,3,4,5,6,7,8,11,12,13,14,15,17,18,19,20,22,24
    POKECODE 32,8,0,1,2,3,4,5,6,11,12,13,14,15,17,18,19,20,21,25
    POKECODE 32,10,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,17,18,19,20,22,24
    POKECODE 32,11,0,4,8,14,20,24
    POKECODE 32,12,4
    POKECODE 32,13,4,8
    POKECODE 32,14,0,1,2,3,4,5,6,7,8,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
    POKECODE 32,16,20
    POKECODE 32,17,0,4,8,14,20,24
    POKECODE 32,18,8,14,19
    POKECODE 32,19,0,4,5,8,11,12,14,17,18,20,24
    POKECODE 32,20,0,1,2,3,4,5,8,11,12,13,14,15,17,18,19,20,25
    POKECODE 32,24,0,1,2,6,7,11,12,13,14,15,18,19,23
    POKECODE 32,25,0,4
    POKECODE 33,0,1,2,3,4,5,6,7,8,11,12,13,15,17,18,19,20,21,22,24,25
    POKECODE 33,1,0,4,8,11,14,17,20,24
    POKECODE 33,2,0,7,11,14,17,20
    POKECODE 33,3,0,1,4,8,11,14,17,18,20,24
    POKECODE 33,4,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,25
    POKECODE 33,5,0,4,8,11,14,17,20
    POKECODE 33,6,0,4,8,11,12,20,24
    POKECODE 33,7,0,4,14,15,20
    POKECODE 33,8,0,1,2,3,4,5,6,8,10,11,12,13,14,15,17,18,19,20,21,22,23,25
    POKECODE 33,9,0,4,14,20
    POKECODE 33,10,0,4,8
    POKECODE 33,11,0,4,8,14,20,24
    POKECODE 33,12,0,4,8,14
    POKECODE 33,13,0,4,8
    POKECODE 33,14,0,1,2,3,4,5,6,8,11,12,13,14,15,17,18,19,20,21,22,23,25
    POKECODE 33,15,0,4,7,8,11,14,17
    POKECODE 33,16,20
    POKECODE 33,17,0,4,8,14,20,24
    POKECODE 33,18,2,4,7,8,11,12,14,15,19,20,22,24
    POKECODE 33,19,0,4,7,8,17
    POKECODE 33,20,0,1,2,3,4,5,6,8,10,11,12,13,14,15,17,18,19
    POKECODE 33,21,0,4,8,14
    POKECODE 33,22,0,4,8,14,17
    POKECODE 33,24,1,4,5,6,8,10,11,12,13,18
    POKECODE 33,25,20
    POKECODE 34,0,1,2,3,4,5,6,7,10,11,12,13,15,17,18,19,20,21,22,25
    POKECODE 34,1,0,1,4,8,11,14,17,19,20,24
    POKECODE 34,2,0,2,3,4,7,8,10,11,14,17,18,19,20,24,25
    POKECODE 34,3,0,1,2,3,4,5,6,7,8,11,12,13,14,15,17,18,19,20,22,24
    POKECODE 34,4,0,1,2,3,5,6,7,8,10,11,12,13,15,17,18,19,21,22,23,25
    POKECODE 34,5,0,2,4,5,8,11,14,17,18,19,20,24
    POKECODE 34,6,0,4,6,8,11,12,13,14,17,18,20,22,24
    POKECODE 34,7,0,4,8,14,20,24
    POKECODE 34,8,0,2,3,5,6,10,11,12,13,15,17,18,19,21,25
    POKECODE 34,9,0,4,14,20
    POKECODE 34,10,0,1,3,4,8,11,13,24
    POKECODE 34,11,0,1,2,3,4,5,7,8,10,11,12,13,14,15,17,18,19,20,21,22,24
    POKECODE 34,12,0,1,2,4,8,11,12,13,14,15,18,20,24
    POKECODE 34,13,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,17,18,19,20,21,22,24,25
    POKECODE 34,14,2,3,5,6,8,11,12,13,15,17,18,19,20,21,22
    POKECODE 34,15,0,1,2,3,4,5,7,8,11,12,14,15,17,18,19,20,22,24
    POKECODE 34,16,20
    POKECODE 34,17,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,24,25
    POKECODE 34,18,0,1,2,3,4,7,8,10,11,12,13,14,15,16,18,19,20,22,24
    POKECODE 34,19,0,1,2,3,4,5,7,8,10,11,12,14,15,17,18,19,20,22,24,25
    POKECODE 34,20,2,3,4,10,11,12,13,15,17,18,19,21
    POKECODE 34,21,0,4,8,14,17,20,24
    POKECODE 34,22,0,1,2,3,4,5,6,7,8,11,13,14,15,17,18,19,24
    POKECODE 34,23,0,2,4,7,8,11,14,15,16,19,20,24
    POKECODE 34,24,0,1,2,3,4,7,12,13,14,15,18
    POKECODE 34,25,4,14,21,24,25
    POKECODE 35,0,1,2,3,6,8,10,11,12,13,17,18,19,20,21,22,23,25
    POKECODE 35,1,0,4,14
    POKECODE 35,2,0
    POKECODE 35,3,14
    POKECODE 35,4,0,1,2,3,4,6,8,10,11,12,13,17,18,19,20,21,22,24,25
    POKECODE 35,5,0,1,4,7,8,11,14,17,18,20,24
    POKECODE 35,6,7
    POKECODE 35,7,0,4,14
    POKECODE 35,8,0,1,2,3,4,5,6,11,13,14,17,18,19,21,23,25
    POKECODE 35,9,14
    POKECODE 35,11,0,4,8,14,20,24
    POKECODE 35,14,0,1,2,3,4,6,8,11,12,13,14,15,17,18,20,22,23,24
    POKECODE 35,15,4
    POKECODE 35,17,0,4,8,14,20,24
    POKECODE 35,18,0,4,7,8,10,15,19
    POKECODE 35,19,0,1,4,7,8,11,14,18,22,24
    POKECODE 35,20,2,3,4,6,11,12,13,17,18,19,25
    POKECODE 35,22,0
    POKECODE 36,0,1,2,3,4,5,6,7,8,11,12,13,15,17,18,19,20,21,22,24,25
    POKECODE 36,1,4,8,14,24
    POKECODE 36,3,14
    POKECODE 36,4,0,1,2,3,4,5,7,8,11,12,13,14,15,17,18,19,21,22,24
    POKECODE 36,5,8,11,17,20
    POKECODE 36,6,0,4,7,8,11,13,14,15,17,18,24
    POKECODE 36,7,0,1,2,4,5,6,7,8,11,13,14,18,19,20,22,24
    POKECODE 36,8,0,1,2,3,4,5,6,11,12,13,14,17,18,19,21,25
    POKECODE 36,9,0
    POKECODE 36,11,0,4,8,14,20,24
    POKECODE 36,12,0,4,8,14,24
    POKECODE 36,13,0,1,4,8,12,14,15,19,20
    POKECODE 36,14,0,1,2,3,4,5,6,8,11,13,14,15,17,18,19,20,21,22,24
    POKECODE 36,15,4,8,11,14
    POKECODE 36,17,0,4,8,14,20,24
    POKECODE 36,18,0,7,8,10,14,15,19
    POKECODE 36,19,0,7,8,17
    POKECODE 36,20,0,1,4,5,8,11,12,13,14,15,17,18,19,24,25
    POKECODE 36,22,0,4,7,8,14
    POKECODE 36,24,1,12,13,15,17,22
    POKECODE 36,25,0
    POKECODE 37,0,1,2,3,4,5,6,7,8,10,11,12,13,14,15,17,18,19,20,21,22,24,25
    POKECODE 37,1,0,4,8,11,14,17,20
    POKECODE 37,2,0,7,11,14,17
    POKECODE 37,3,0,8,14,17,20
    POKECODE 37,4,0,1,2,3,4,5,6,8,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24
    POKECODE 37,5,0,14,20
    POKECODE 37,6,14
    POKECODE 37,7,4,8,14
    POKECODE 37,8,0,1,2,3,4,5,6,9,10,11,12,13,14,15,17,18,19,20,21,25
    POKECODE 37,10,0
    POKECODE 37,11,0,4,8,14,17,24
    POKECODE 37,12,0,4,8,20
    POKECODE 37,13,0,4,8,14,20
    POKECODE 37,14,0,1,2,3,4,6,8,10,11,12,13,14,15,17,18,19,20,21,22,24
    POKECODE 37,15,0,8,11,20
    POKECODE 37,16,20
    POKECODE 37,17,0,4,8,14,20,24
    POKECODE 37,18,0,7,8,14,19
    POKECODE 37,19,0,2,4,5,6,7,8,11,12,13,14,17,18,19,20,22,24
    POKECODE 37,20,1,2,3,4,5,6,7,11,12,13,15,17,18,19
    POKECODE 37,22,0,4,7,8,14
    POKECODE 37,24,0,1,3,4,6,11,12,15,17,18,19,23
    POKECODE 38,0,1,2,3,4,6,7,8,10,11,12,13,15,17,18,19,25
    POKECODE 38,1,0,1,4,8,11,14,17,18,20,24
    POKECODE 38,2,0,2,4,7,8,10,11,13,14,17,18,19,20,24
    POKECODE 38,3,0,1,3,4,6,8,11,12,13,14,15,17,18,19,20,22,24
    POKECODE 38,4,1,2,3,5,6,10,11,12,13,17,18,19,20,21,22,25
    POKECODE 38,5,0,4,5,8,11,14,17,19,20,24
    POKECODE 38,6,0,4,6,7,8,11,12,13,14,15,17,18,19,20,22,24,25
    POKECODE 38,7,0,4,8,14
    POKECODE 38,9,0,14,20
    POKECODE 38,10,0,3,4,8,13,20,24
    POKECODE 38,11,0,1,2,3,4,5,6,7,8,10,11,12,13,14,15,17,18,19,20,21,22,24
    POKECODE 38,12,0,1,2,4,5,8,11,12,13,14,15,17,18,20,22,24
    POKECODE 38,13,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24
    POKECODE 38,14,0,2,3,4,5,6,11,12,13,15,17,18,19,20,21,23
    POKECODE 38,15,0,1,2,4,5,7,8,10,11,12,14,15,17,18,19,20,22,24
    POKECODE 38,16,20
    POKECODE 38,17,0,1,2,3,4,5,6,7,8,10,11,12,13,14,15,17,18,19,20,21,22,24
    POKECODE 38,18,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,24
    POKECODE 38,19,0,1,2,4,5,7,8,9,11,12,13,14,17,18,19,20,22,24,25
    POKECODE 38,20,12,17,18
    POKECODE 38,21,0,4,8,14,20,21,24
    POKECODE 38,22,4,8,14
    POKECODE 38,23,0,4,8,14,19
    POKECODE 38,24,0
    POKECODE 38,25,0,4,8,12,14,20,25
    POKECODE 39,0,1,2,3,6,7,8,11,12,13,17,18,20,21,22,24,25
    POKECODE 39,4,0,2,4,9,11,14,17,18,19,22
    POKECODE 39,8,1,5,6,7,11,12,13,19,21
    POKECODE 39,14,1,2,3,6,7,8,10,11,13,17,18,19,20,21,22,24
    POKECODE 39,20,0,1,3,6,8,9,10,11,12,13,17,18,19,21,23
    POKECODE 40,0,1,2,3,6,7,11,12,13,14,15,17,18,19,23,24,25
    POKECODE 40,1,0,4,8,14,17,20
    POKECODE 40,2,0,11
    POKECODE 40,3,0,14,17
    POKECODE 40,4,0,1,3,4,5,6,7,8,11,12,13,14,15,17,18,19,20,22,24
    POKECODE 40,5,0,8,14,20
    POKECODE 40,6,0,14,17,20
    POKECODE 40,7,0,4,14
    POKECODE 40,8,1,2,3,4,5,11,12,13,14,15,17,18,19,22,24
    POKECODE 40,9,0
    POKECODE 40,10,4,13
    POKECODE 40,11,0,4,8,14,20,24
    POKECODE 40,12,0,4,14
    POKECODE 40,13,0,4,8,14,20
    POKECODE 40,14,0,2,5,7,11,13,14,15,17,18,20,22
    POKECODE 40,15,0,4,8,11,14,17
    POKECODE 40,17,0,4,14,20,24
    POKECODE 40,18,0,2,4,6,7,8,10,11,12,14,15,19,20,24
    POKECODE 40,19,0,7,8,14,17
    POKECODE 40,20,3,11,12,13,15,18
    POKECODE 40,22,0,4,7,8,14,20
    POKECODE 40,24,0,2,3,9,11,17,18,22
    POKECODE 41,0,0,1,2,3,4,5,6,7,8,10,11,12,13,15,16,17,18,19,20,21,22,23,24,25
    POKECODE 41,1,0,4,8,11,14,17,20
    POKECODE 41,2,0,4,7,8,11,14,17,20,24
    POKECODE 41,3,0,1,2,4,5,7,8,11,14,15,17,18,20,22,24
    POKECODE 41,4,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24
    POKECODE 41,5,0,1,4,7,8,11,14,15,17,18,19,20,22
    POKECODE 41,6,0,4,8,14,17,24
    POKECODE 41,7,0,4,14
    POKECODE 41,8,0,1,2,3,4,5,6,7,10,11,12,13,14,15,16,17,18,19,20,21,22,23,25
    POKECODE 41,9,14
    POKECODE 41,10,0,1,4,7,8,11,12,14,18,22,24
    POKECODE 41,11,0,1,2,3,4,5,6,7,8,9,12,13,14,15,17,18,19,20,22,24
    POKECODE 41,12,0,4,8,14,18,24
    POKECODE 41,13,0,4,14,20
    POKECODE 41,14,0,1,2,3,4,5,6,7,8,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
    POKECODE 41,15,0,4,5,7,8,11,12,14,17,19,24
    POKECODE 41,16,20
    POKECODE 41,17,0,4,8,14,20,24
    POKECODE 41,18,0,2,4,7,8,10,14,15,19,24
    POKECODE 41,19,0,2,3,4,5,7,8,11,12,14,15,17,18,20,22,24,25
    POKECODE 41,20,0,1,2,3,4,5,6,8,9,10,11,12,13,14,15,17,18,19,21,23
    POKECODE 41,21,0,4,8,14
    POKECODE 41,22,0,4,8,14,17
    POKECODE 41,24,0,1,2,3,4,5,6,7,8,11,12,13,15,17,18,19,20,22,23,25
    POKECODE 42,0,1,2,3,4,5,6,7,8,9,10,11,12,13,15,17,18,19,20,21,22,23,24,25
    POKECODE 42,1,0,1,4,5,8,10,11,12,13,14,17,18,19,20,22,24
    POKECODE 42,2,0,4,7,8,14,17
    POKECODE 42,3,8,17,20
    POKECODE 42,4,0,1,2,3,4,5,6,7,10,11,12,13,14,15,17,18,19,20,21,22,24,25
    POKECODE 42,5,4,8,11,14,20,24
    POKECODE 42,7,0,14
    POKECODE 42,8,0,2,3,4,5,6,9,10,11,12,13,14,15,17,18,19,20,22,23,25
    POKECODE 42,11,0,4,8,14,24
    POKECODE 42,12,0,4,8,14,20,24
    POKECODE 42,13,0,4,8,14,20,24
    POKECODE 42,14,0,1,2,3,4,6,7,8,10,11,12,13,14,15,17,18,19,20,21,22,23,25
    POKECODE 42,15,0,1,4,5,6,7,8,10,11,12,14,15,17,18,19,20,24
    POKECODE 42,16,20
    POKECODE 42,17,0,4,14
    POKECODE 42,18,2,3,4,7,8,10,12,14,15,19,20,24
    POKECODE 42,19,7
    POKECODE 42,20,2,3,4,5,6,10,11,12,13,17,18,19,20,25
    POKECODE 42,21,4,8
    POKECODE 42,22,4,8,14
    POKECODE 42,24,0,2,4,13,14,17,18,19
    POKECODE 43,0,1,2,3,4,5,6,8,10,11,12,13,15,17,18,19,20,21,22,24,25
    POKECODE 43,1,0,4,8,11,14,17,20
    POKECODE 43,2,0,4,7,8,11,14,17,19,20,24
    POKECODE 43,3,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,22,24
    POKECODE 43,4,0,1,2,3,4,5,6,7,8,11,12,13,14,15,16,17,18,19,20,21,22,23,24
    POKECODE 43,5,0,4,8,11,14,17,20
    POKECODE 43,6,0,1,3,4,5,7,8,11,12,13,14,15,17,18,19,20,22,24
    POKECODE 43,7,0,4,8,14,20
    POKECODE 43,8,0,1,2,3,4,5,6,7,10,11,12,13,14,15,16,17,18,19,20,21,23,25
    POKECODE 43,9,4,14,20
    POKECODE 43,10,0,1,2,4,5,6,7,8,11,12,13,17,18,19,20,22,24
    POKECODE 43,11,0,4,8,14,20,24
    POKECODE 43,12,0,4,8,14
    POKECODE 43,13,0,4,8,10,14,18,20,24
    POKECODE 43,14,1,2,3,4,5,6,8,11,12,13,14,15,17,18,19,20,21,22,23,24,25
    POKECODE 43,15,0,4,8,11,14,17,20
    POKECODE 43,16,20
    POKECODE 43,17,0,4,8,14,20,24
    POKECODE 43,18,0,2,3,4,5,6,7,8,10,11,12,13,14,15,18,19,20,21,22,24
    POKECODE 43,19,0,1,3,4,5,6,7,8,11,12,13,14,17,18,20,22,24,25
    POKECODE 43,20,0,1,2,3,4,5,6,8,10,11,12,13,14,15,17,18,19,20,25
    POKECODE 43,21,0,4,8,14,20,24
    POKECODE 43,22,0,4,7,8,14,17
    POKECODE 43,23,8
    POKECODE 43,24,0,1,7,8,11,12,14,15,18,19,22,23
    POKECODE 43,25,0,4,8,24
    POKECODE 44,0,1,2,3,5,6,10,11,12,13,15,17,18,19,20,21,23
    POKECODE 44,1,0,1,2,3,4,5,6,8,9,11,13,14,17,18,19,20,21,22,24
    POKECODE 44,2,0,2,4,7,8,10,11,14,17,18,19,20,24
    POKECODE 44,3,0,1,2,3,4,5,6,7,8,10,11,12,13,14,15,17,18,19,20,22,24
    POKECODE 44,4,1,2,3,5,7,8,11,12,13,16,17,18,19,21,23,24
    POKECODE 44,5,0,4,5,8,11,14,17,19,20,24
    POKECODE 44,6,0,4,5,6,7,8,9,11,12,13,14,17,18,19,20,22,24
    POKECODE 44,7,0,4,8,11,12,13,14,24
    POKECODE 44,8,0,1,2,3,4,5,6,10,11,13,17,18,19
    POKECODE 44,9,4,14
    POKECODE 44,10,0,1,2,4,8,10,11,12,14,17,18,20,22,24
    POKECODE 44,11,0,1,2,3,4,5,6,7,8,10,11,12,14,15,17,18,19,20,21,22,24
    POKECODE 44,12,0,1,2,4,5,8,11,12,13,14,15,17,18,20,24
    POKECODE 44,13,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,24,25
    POKECODE 44,14,1,2,3,4,5,6,7,8,10,11,12,13,15,17,18,19,21,25
    POKECODE 44,15,0,2,4,6,7,8,10,11,12,14,15,17,18,19,20,22,24
    POKECODE 44,16,20
    POKECODE 44,17,0,1,2,3,4,5,6,7,8,10,11,12,13,14,15,16,17,18,19,20,21,22,24
    POKECODE 44,18,0,2,4,7,8,10,11,12,14,15,16,18,19,20,24
    POKECODE 44,19,0,1,2,4,5,6,7,8,11,12,13,14,15,17,18,19,20,22,24
    POKECODE 44,20,0,1,2,3,4,5,6,7,8,11,13,15,16,17,18,19,21
    POKECODE 44,21,0,4,8,14,20,24
    POKECODE 44,22,0,1,2,3,4,5,6,7,8,11,12,13,14,15,17,18,19,20,22,24,25
    POKECODE 44,23,1,2,4,5,6,7,8,14,18,19,24
    POKECODE 44,24,0,1,2,4,5,7,8,11,12,14,17,18
    POKECODE 44,25,4,11,14,24,25
    POKECODE 45,0,1,2,3,4,6,7,8,9,11,12,13,15,16,17,18,19,20,21,22,24,25
    POKECODE 45,1,0,4,11,14,17,20
    POKECODE 45,2,0,7,14
    POKECODE 45,3,0,14,17
    POKECODE 45,4,0,1,2,3,4,5,6,9,11,12,13,14,15,17,18,19,20,21,22,23,24,25
    POKECODE 45,5,0,8,14,17,20
    POKECODE 45,6,0,17,20
    POKECODE 45,7,0,4,8,11,14,17,19,20,24
    POKECODE 45,8,0,2,3,4,5,6,10,11,12,13,14,15,16,17,18,19,20,21,23,25
    POKECODE 45,9,0
    POKECODE 45,10,4,8,13
    POKECODE 45,11,0,4,8,14,20,24
    POKECODE 45,12,0,4,14,20
    POKECODE 45,13,4,14
    POKECODE 45,14,0,2,3,4,6,8,10,11,12,13,14,15,17,18,19,20,21,22,23
    POKECODE 45,15,0,4,7,8,11,14,17,18,20,24
    POKECODE 45,17,0,4,8,14,20,24
    POKECODE 45,18,0,2,4,7,8,10,14,16,19,20,22,24
    POKECODE 45,19,0,2,4,7,8,14,17,20,22,24
    POKECODE 45,20,1,2,3,4,5,6,10,11,12,13,15,17,18,19,25
    POKECODE 45,22,0,14,17
    POKECODE 45,24,0,2,6,11,14,17,19,22
    POKECODE 46,20,0,4,8,14,24
    POKECODE 47,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,17,18,19,20,21,22,23,24,25
    POKECODE 47,1,0,4,8,11,14,17,20,24
    POKECODE 47,2,0,4,7,8,11,14,17,19,20,24
    POKECODE 47,3,0,1,2,4,5,7,8,11,12,13,14,15,17,18,19,20,21,22,24
    POKECODE 47,4,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24
    POKECODE 47,5,0,1,3,4,8,11,14,17,20
    POKECODE 47,6,0,4,7,8,11,13,14,17,20,24
    POKECODE 47,7,0,4,8,14,20,24
    POKECODE 47,8,0,1,2,3,4,5,6,9,10,11,12,13,14,15,16,18,19,20,21,22,23,25
    POKECODE 47,9,0,4,14,20
    POKECODE 47,10,0,1,3,4,5,7,8,11,12,13,14,15,17,18,20,22,24
    POKECODE 47,11,0,3,4,5,7,8,14,15,20,22,24
    POKECODE 47,12,0,1,2,4,5,7,8,11,14,15,17,18,19,20,22,24
    POKECODE 47,13,0,1,2,4,5,8,10,11,12,14,15,18,19,20,24
    POKECODE 47,14,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
    POKECODE 47,15,0,4,7,8,11,12,14,17,18,19,20,24
    POKECODE 47,16,20
    POKECODE 47,17,0,4,7,8,14,20,24
    POKECODE 47,18,0,1,2,4,7,8,10,11,12,13,14,15,16,19,20,22,24
    POKECODE 47,19,0,1,2,4,5,6,7,8,11,12,13,14,17,18,19,20,22,24,25
    POKECODE 47,20,0,1,2,3,4,5,6,8,11,12,13,14,15,17,18,19,22,23
    POKECODE 47,21,0,4,8,14,24
    POKECODE 47,22,0,4,7,8,14,17,20
    POKECODE 47,24,0,1,2,3,4,8,11,12,13,14,15,18,19,22
    POKECODE 47,25,8,14
    POKECODE 48,0,1,2,3,5,6,8,10,11,12,13,15,17,18,19,20,21,22,23,24
    POKECODE 48,1,0,4,8,14,17,20,24
    POKECODE 48,2,0,4,7,8,11,14,17,20,24
    POKECODE 48,3,0,4,8,14,17,20
    POKECODE 48,4,0,1,2,3,4,5,6,7,8,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24
    POKECODE 48,5,0,4,8,14,17,20,24
    POKECODE 48,6,8,14,17,20
    POKECODE 48,7,0,1,2,3,4,5,7,8,10,11,12,13,14,15,17,18,19,20,22,24
    POKECODE 48,8,0,1,2,3,4,5,6,11,12,13,14,15,16,17,18,19,20,21,23,25
    POKECODE 48,9,14,20
    POKECODE 48,10,0,4,8,12,17,19,20,24
    POKECODE 48,11,0,4,8,14,20,24
    POKECODE 48,12,0,4,8,14,20
    POKECODE 48,13,0,4,8,14,20
    POKECODE 48,14,0,1,2,3,4,5,6,7,8,9,11,12,13,14,15,17,18,19,20,21,22,24
    POKECODE 48,15,0,1,4,7,8,11,14,17,20,24
    POKECODE 48,16,20
    POKECODE 48,17,4,14,20
    POKECODE 48,18,0,1,2,4,5,7,8,10,11,12,14,15,17,19,20,22,24
    POKECODE 48,19,0,1,2,3,4,5,6,7,8,11,12,13,14,15,17,18,20,22,24
    POKECODE 48,20,0,1,2,3,4,5,6,8,10,11,12,13,14,15,17,18,19
    POKECODE 48,21,4
    POKECODE 48,22,0,4,8,14,20
    POKECODE 48,24,1,2,5,6,11,12,13,15,17,18,19,22
    POKECODE 49,0,1,2,3,4,5,6,7,8,10,11,12,13,15,17,18,19,20,21,22,23,24
    POKECODE 49,1,0,4,8,14,17,20
    POKECODE 49,2,0,4,7,11,14,17,20,24
    POKECODE 49,3,0,8,14
    POKECODE 49,4,0,1,2,3,4,5,6,7,8,11,12,13,14,15,16,17,18,19,20,21,22,23
    POKECODE 49,5,0,4,8,11,14,20
    POKECODE 49,6,0,4,14,17,20
    POKECODE 49,7,0,1,2,3,4,5,7,8,11,12,13,14,15,16,17,18,19,20,22,24
    POKECODE 49,8,0,1,2,3,4,5,6,7,10,11,12,13,14,15,16,17,18,19,20,21,25
    POKECODE 49,9,0
    POKECODE 49,10,8,13
    POKECODE 49,11,0,4,8,14,20,24
    POKECODE 49,12,0,4,8,14,20
    POKECODE 49,13,0,4,8,14,20
    POKECODE 49,14,0,1,2,3,4,5,6,8,9,10,11,12,13,14,15,17,18,19,20,21,22,23,24,25
    POKECODE 49,15,0,4,8,11,14,17,20
    POKECODE 49,17,0,4,8,14,20,24
    POKECODE 49,18,0,2,4,7,8,10,12,14,15,19,20,22,24
    POKECODE 49,19,0,4,7,8,11,14,17,20,24
    POKECODE 49,20,0,1,2,3,4,5,6,8,11,12,13,14,15,17,18,19,23
    POKECODE 49,22,0,4,7,8,14,17
    POKECODE 49,24,0,2,3,7,8,10,11,12,15,17
    POKECODE 49,25,4,8,14,15,24
    POKECODE 50,0,1,2,3,5,6,7,8,10,11,12,13,15,17,18,19,20,21,22,24
    POKECODE 50,1,0,1,2,3,4,5,7,8,9,11,12,13,14,15,17,18,19,20,21,22,24
    POKECODE 50,2,0,2,4,7,8,10,11,14,17,19,20,24
    POKECODE 50,3,0,1,3,4,6,8,11,12,14,17,18,20,24,25
    POKECODE 50,4,0,1,3,4,5,6,11,12,13,14,15,17,18,19,20,24,25
    POKECODE 50,5,0,5,11,19
    POKECODE 50,6,0,1,4,6,7,8,11,12,13,14,18,20
    POKECODE 50,7,0
    POKECODE 50,8,0,1,2,3,4,5,6,11,13,14,15,17,18,19,20,21,23,25
    POKECODE 50,9,0,8,20
    POKECODE 50,10,4,8,11,14,20,24
    POKECODE 50,11,0,1,2,3,4,5,6,8,10,11,12,13,14,15,17,18,19,20,21,22,24
    POKECODE 50,12,0,1,2,3,4,5,8,11,12,13,14,15,16,18,20,21,24
    POKECODE 50,13,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,24,25
    POKECODE 50,14,3,8,17,18,19,20,24
    POKECODE 50,15,0,1,2,3,4,5,6,7,8,10,11,14,15,17,18,19,20,22,24
    POKECODE 50,16,20
    POKECODE 50,17,0,1,2,3,4,5,6,8,10,11,12,13,14,15,16,17,18,19,20,21,24
    POKECODE 50,18,0,1,2,4,7,8,10,11,13,14,15,16,18,19,20,24
    POKECODE 50,19,0,1,2,3,4,5,6,7,8,11,12,13,14,15,17,18,19,20,22,24,25
    POKECODE 50,20,12
    POKECODE 50,21,4,8,20
    POKECODE 50,22,0
    POKECODE 50,23,4,8,14,19,20
    POKECODE 50,24,4,14
    POKECODE 50,25,4,24,25
    POKECODE 51,0,1,2,3,4,6,8,11,12,13,15,17,18,19,20
    POKECODE 51,4,0,1,2,3,4,6,7,8,11,12,13,15,17,18,19,22,23,24
    POKECODE 51,8,0,1,2,3,4,5,6,11,12,13,14,15,17,18,19,21,23,25
    POKECODE 51,14,2,3,6,8,10,11,12,14,17,18,19,20,22,24
    POKECODE 51,17,14
    POKECODE 51,20,4,11,12,13,17
    POKECODE 51,21,8,24
    POKECODE 51,24,8,18,22
    POKECODE 52,0,1,2,3,5,6,8,10,11,12,13,15,17,18,19,20,21,22,23,24
    POKECODE 52,1,0,4,14,17
    POKECODE 52,2,0,14
    POKECODE 52,3,4,11,14,17,20,24
    POKECODE 52,4,0,1,3,4,5,8,11,13,15,17,18,19,21
    POKECODE 52,5,0,8,11,20
    POKECODE 52,6,0,8,20
    POKECODE 52,7,0,4,8,14,24
    POKECODE 52,8,2,3,4,5,6,11,12,13,15,17,18,19,21,23,25
    POKECODE 52,10,8,22,24
    POKECODE 52,11,0,4,8,24
    POKECODE 52,12,0,4,8,14
    POKECODE 52,13,1,2,4,5,6,7,8,11,14,15,17,18,19,22,24
    POKECODE 52,14,1,4,5,6,10,11,12,13,14,17,18,20,21,22
    POKECODE 52,15,0,8,11,14,20
    POKECODE 52,17,0,4,8,14,20,24
    POKECODE 52,18,1,2,4,7,8,11,12,14,15,17,18,19,20,22,24
    POKECODE 52,19,0,4,7,14
    POKECODE 52,20,12,13,15,17,18
    POKECODE 52,22,14
    POKECODE 52,24,4
    POKECODE 52,25,24
    POKECODE 53,0,1,2,6,11,12,13,18,19
    POKECODE 53,1,14
    POKECODE 53,2,0,4,7,8,11,14,17,20
    POKECODE 53,4,2,3,11,12,13,17,18
    POKECODE 53,5,14
    POKECODE 53,6,11
    POKECODE 53,7,0,8,14,20
    POKECODE 53,8,0,1,2,3,4,5,6,11,12,13,14,17,18,19,21
    POKECODE 53,11,4
    POKECODE 53,14,3,11,12,13,15,17,19
    POKECODE 53,15,0,4,8,11,14,17,20
    POKECODE 53,16,20
    POKECODE 53,18,22
    POKECODE 53,19,0,1,4,7,8,14,17,20,24
    POKECODE 53,20,0,1,3,11,17,18
    POKECODE 53,22,8
    POKECODE 53,24,0,6,11,12,18
    POKECODE 54,0,1,2,3,6,7,10,11,12,13,15,17,19,22
    POKECODE 54,1,0,3,4,8,14,17,20,24
    POKECODE 54,2,0,4,7,8,11,14
    POKECODE 54,3,0,4,8,17
    POKECODE 54,4,0,1,3,4,5,6,11,13,14,15,17,18,19,20,22,24
    POKECODE 54,5,0,8,11,14,17,20
    POKECODE 54,6,0,4,8,11,12,13,14,17,20
    POKECODE 54,7,4,14
    POKECODE 54,8,4,13,15,18
    POKECODE 54,9,0
    POKECODE 54,10,4
    POKECODE 54,11,0,4,8,11,14,15,20,21
    POKECODE 54,12,0,1,4,8,12,13,14,15,20
    POKECODE 54,13,0,2,3,4,6,8,14,19,23,24
    POKECODE 54,14,3,5,6,10,11,13,15,17,19,20,21,22
    POKECODE 54,15,0,4,7,8,11,13,14,17,18,19,20
    POKECODE 54,17,0,3,4,8,14,17,19,20,24
    POKECODE 54,18,0,2,4,7,8,11,12,15,18,19,20,24
    POKECODE 54,19,0,4,7,8,14,19
    POKECODE 54,20,2,11,12,13,15
    POKECODE 54,22,0,4,7,8,14,17
    POKECODE 54,23,8
    POKECODE 54,25,4
    POKECODE 55,0,0,1,6,11,13,15,17,19,25
    POKECODE 55,4,0,1,3,4,5,11,12,13,15,17,18,19
    POKECODE 55,8,2,4,6,11,12,13,15,17,19
    POKECODE 55,11,4,8,24
    POKECODE 55,12,14
    POKECODE 55,14,0,3,8,12,13,14,15,17
    POKECODE 55,15,0
    POKECODE 55,20,2,17
    POKECODE 55,21,14
    POKECODE 55,22,8,14
    POKECODE 55,24,1,6,12
    POKECODE 55,25,0,4,8,11,14,22,24
' -> 531 three-letter rules