'**************************************************************** '* 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" ' For serial communication define OSC 3 ' 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 ' Everything else off to prevent noise TRISB = %10000011 TRISA = %01100000 ' Rotary encoder variables ROT1 VAR BIT ROT2 VAR BIT OLD1 VAR BIT OLD2 VAR BIT ' User switches 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 SCROLLSPEED CON 2 ' lower = faster ' Clear word memory byte EEPROM 100,[0] ' Start byte for grammar rules STARTDATA CON $6D00 ' Word tracking variables TALLY VAR BYTE ' Current letter tally TALLY = 0 SHOW VAR BIT ' LCD display flipper SHOW = 1 CHANGE VAR BYTE ' Letter increment OK VAR BIT ' Grammar toggle LETTERS VAR BYTE[16]' Container for current word LETTER VAR BYTE ' Current letter index WORDLENGTH VAR BYTE LETTER = -1 ' 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 ' Data addressing variables I var WORD ' Loop count D var byte ' Data A var word ' Address pause 500 ' Warm up gosub resetallowedyes ' Assume that all possible letter combos are allowed gosub initialize ' Clear current word container GOSUB readwordcount ' Get word array byte from EEPROM gosub readwords ' Read stored words from flash memory ' Set mode on startup MODE VAR BIT IF WORDS = 0 THEN MODE = 0 ' If no stored words, start in write mode LCDOUT $FE,1,"[ write mode ]" pause 1000 ELSE MODE = 1 ' Otherwise, start in scroll mode. ENDIF ' Starting points for switch detection OLD1 = PORTC.1 OLD2 = PORTC.2 'if PORTA.1 = 1 THEN ' gosub erasewords 'ENDIF main: gosub checkserial ' See if serial connection exists X var byte FOR X = 1 TO 5 GOSUB getswitch ' Check switches five times (debounce) NEXT X GOSUB getchange ' Check for rotary encoder change IF SHOW = 1 THEN ' If something has changed, GOSUB LCD ' display it... SHOW = 0 ' and reset display variable. ENDIF goto main checkserial: if PORTB.7 = 1 then ' If a serial connection exists, HIGH PORTA.0 ' light indicator. ELSE LOW PORTA.0 ' Otherwise, turn it off. ENDIF return getchange: SWITCH = PORTC.0 ' Read rotary encoder switch ROT1 = PORTC.1 ' Check rotation 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 IF MODE = 0 THEN LCDOUT $FE, $0C HIGH PORTC.3 gosub writeword letter = -1 GOSUB initialize TALLY = (WORDS-1)*SCROLLSPEED SHOW = 1 pause 1000 MODE = 1 ELSE LCDOUT $FE,1,"[ write mode ]" GOSUB initialize TALLY = 0 LETTER = -1 MODE = 0 Pause 1000 ENDIF ENDIF IF SWITCH = 0 AND OLDSWITCH = 1 THEN HIGH PORTC.3 LETTER = LETTER + 1 WORDLENGTH = LETTER LETTERS[LETTER] = 0 CHANGE = SCROLLSPEED GOSUB checkpoke gosub grammar TALLY = 0 gosub LCD ELSE LOW PORTC.3 ENDIF SWITCH2 = PORTA.5 IF SWITCH2= 0 AND OLDSWITCH2 = 1 AND LETTER > 0 THEN HIGH PORTC.3 LETTERS[LETTER] = 26 CHANGE = SCROLLSPEED gosub grammar TALLY = LETTERS[LETTER-1] * SCROLLSPEED LETTER = LETTER - 1 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 IF MODE = 1 THEN WORD2READ = TALLY / SCROLLSPEED 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 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: GOSUB check 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 / SCROLLSPEED GOTO failed ELSE LOW PORTC.3 SHOW = 1 GOSUB LCD ENDIF ENDIF RETURN writeword: 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 WORDS = WORDS + 1 GOSUB writewordcount return readwords: W var byte if WORDS > 0 THEN for W = 0 to WORDS-1 WORD2READ = w GOSUB readword next W ENDIF RETURN readword: LCDOUT $FE,1 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 IF D < 26 THEN LCDOUT (D+97) serout2 portb.5, 16416, [D+97] ELSE LCDOUT 32 serout2 portb.5, 16416, [32] ENDIF Next I serout2 portb.5, 16416, [10,13] Pause 5 RETURN readwordcount: LCDOUT $FE,1 READ 100,WORDS LCDOUT "Words: ",DEC WORDS PAUSE 1000 RETURN 'erasewords: ' WORDS = 0 ' gosub writewordcount 'RETURN writewordcount: LCDOUT $FE,1 WRITE 100,WORDS Lcdout $fe,1,DEC WORDS," words stored" ' 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 A = ($2000+(P*2)) ' Increment Address PEEKCODE A,D ' Get data in location A IF D > 29 THEN IF FOUND = 1 then GOTO done ENDIF BUFFER[0] = 255 BUFFER[1] = 255 READY = 0 D=D-30 ELSE READY = READY+1 ENDIF IF READY < 2 THEN BUFFER[READY] = D ENDIF IF BUFFER[0] = TEST2[0] and BUFFER[1] = TEST2[1] THEN IF READY > 1 THEN ALLOWED[D] = 1 FOUND = 1 ENDIF ENDIF NEXT P done: 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