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 L1+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 L1+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 L1+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 L1+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 L1+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 L1+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 ===========================