0->A~Z
"KEYS"
?->A:?->B:?->C
"START"
Lbl 0
?->L
Abs(Int L)->L
L>25=>Goto 0
Prog "~PLUG"
Prog "~FOR1"
Prog "~FOR2"
Prog "~FOR3
Prog "~REF"
Prog "~BAK3"
Prog "~BAK2"
Prog "~BAK1"
Prog "~PLUG"
Isz A
If A=26
Then 0->A
Isz B
If B=26
Then 0->C
C=26=>0->C
IfEnd:IfEnd
L                //put a display command here
Goto 0

-------------------
Subroutines:

~PLUG
For 1->V To 6
If L=List 1[V]
Then List 2[V]->L
Return
IfEnd
If L=List 2[V]
Then List 1[V]->L
Return
IfEnd

~FOR1
L-A->V
V<0=>26+V->V
V=0=>17->T
V=1=>12->T
V=2=>25->T
V=3=>9->T
V=4=>23->T
V=5=>14->T
V=6=>20->T
V=7=>0->T
V=8=>18->T
V=9=>1->T
V=10=>24->T
V=11=>6->T
V=12=>7->T
V=13=>3->T
V=14=>2->T
V=15=>21->T
V=16=>8->T
V=17=>4->T
V=18=>10->T
V=19=>5->T
V=20=>22->T
V=21=>11->T
V=22=>13->T
V=23=>19->T
V=24=>15->T
V=25=>16->T
((A+T)/26-Int((A+T)/26))*26->L
Int L<L=>1+Int L->L

~FOR2
L-B->V
V<0=>26+V->V
V=0=>4->T
V=1=>7->T
V=2=>12->T
V=3=>1->T
V=4=>9->T
V=5=>17->T
V=6=>11->T
V=7=>5->T
V=8=>0->T
V=9=>23->T
V=10=>14->T
V=11=>25->T
V=12=>16->T
V=13=>21->T
V=14=>24->T
V=15=>19->T
V=16=>22->T
V=17=>2->T
V=18=>20->T
V=19=>3->T
V=20=>15->T
V=21=>6->T
V=22=>8->T
V=23=>18->T
V=24=>10->T
V=25=>13->T
((B+T)/26-Int((B+T)/26))*26->L
Int L<L=>1+Int L->L

~FOR3
L-C->V
V<0=>26+V->V
V=0=>12->T
V=1=>23->T
V=2=>7->T
V=3=>10->T
V=4=>1->T
V=5=>14->T
V=6=>24->T
V=7=>0->T
V=8=>15->T
V=9=>4->T
V=10=>20->T
V=11=>16->T
V=12=>11->T
V=13=>9->T
V=14=>8->T
V=15=>3->T
V=16=>17->T
V=17=>13->T
V=18=>22->T
V=19=>6->T
V=20=>25->T
V=21=>19->T
V=22=>5->T
V=23=>18->T
V=24=>2->T
V=25=>21->T
((C+T)/26-Int((C+T)/26))*26->L
Int L<L=>1+Int L->L

~BAK1
L-A->V
V<0=>26+V->V
V=0=>7->T
V=1=>9->T
V=2=>14->T
V=3=>13->T
V=4=>17->T
V=5=>19->T
V=6=>11->T
V=7=>12->T
V=8=>16->T
V=9=>3->T
V=10=>18->T
V=11=>21->T
V=12=>1->T
V=13=>22->T
V=14=>5->T
V=15=>24->T
V=16=>25->T
V=17=>0->T
V=18=>8->T
V=19=>23->T
V=20=>6->T
V=21=>15->T
V=22=>20->T
V=23=>4->T
V=24=>10->T
V=25=>24->T
((A+T)/26-Int((A+T)/26))*26->L
Int L<L=>1+Int L->L

~BAK2
L-B->V
V<0=>26+V->V
V=0=>8->T
V=1=>3->T
V=2=>17->T
V=3=>19->T
V=4=>0->T
V=5=>7->T
V=6=>21->T
V=7=>1->T
V=8=>22->T
V=9=>4->T
V=10=>24->T
V=11=>6->T
V=12=>2->T
V=13=>25->T
V=14=>10->T
V=15=>20->T
V=16=>12->T
V=17=>5->T
V=18=>23->T
V=19=>15->T
V=20=>18->T
V=21=>13->T
V=22=>16->T
V=23=>9->T
V=24=>14->T
V=25=>11->T
((B+T)/26-Int((B+T)/26))*26->L
Int L<L=>1+Int L->L

~BAK1
L-C->V
V<0=>26+V->V
V=0=>7->T
V=1=>4->T
V=2=>24->T
V=3=>15->T
V=4=>9->T
V=5=>22->T
V=6=>19->T
V=7=>2->T
V=8=>14->T
V=9=>13->T
V=10=>3->T
V=11=>12->T
V=12=>0->T
V=13=>17->T
V=14=>5->T
V=15=>8->T
V=16=>11->T
V=17=>16->T
V=18=>23->T
V=19=>21->T
V=20=>10->T
V=21=>25->T
V=22=>18->T
V=23=>1->T
V=24=>6->T
V=25=>20->T
((C+T)/26-Int((C+T)/26))*26->L
Int L<L=>1+Int L->L

~REF
For 0->V To 25
V=L =Break
Next
V=0=>10->L
V=1=>21->L
V=2=>13->L
V=3=>16->L
V=4=>19->L
V=5=>25->L
V=6=>18->L
V=7=>14->L
V=8=>20->L
V=9=>23->L
V=10=>0->L
V=11=>17->L
V=12=>24->L
V=13=>2->L
V=14=>7->L
V=15=>22->L
V=16=>3->L
V=17=>11->L
V=18=>6->L
V=19=>4->L
V=20=>8->L
V=21=>1->L
V=22=>15->L
V=23=>9->L
V=24=>12->L
V=25=>5->L


===========================