I haven't figured out a shorter code.
Here's the long version.
D-pad (right) to randomize.
dim xl$(12),xn1(12),xn2(12),xn3(12),xn4(12)
dim xn5(12),xn6(12),xn7(12),xn8(12),xn9(12)
dim xn10(12),xn11(12),xn12(12),xn13(12)
dim xn14(12),xn15(12),xn16(12),xn17(12)
dim xn18(12),xn19(12),xn20(12),xn21(12)
dim xn22(12),xn23(12),xn24(12),xn25(12)
dim xn26(12),xn27(12),xn28(12),xn29(12)
dim xn30(12),xn31(12),xn32(12),xn33(12)
dim xn34(12),xn35(12),xn36(12),xn37(12)
dim xn38(12),xn39(12),xn40(12),xn41(12)
dim xn42(12),xn43(12),xn44(12),xn45(12)
dim xn46(12),xn47(12),xn48(12),xn49(12)
dim xn50(12),xn51(12),xn52(12),xn53(12)
dim xn54(12),xn55(12),xn56(12),xn57(12)
dim xn58(12),xn59(12),xn60(12),xn61(12)
dim xn62(12),xn63(12),xn64(12),xn65(12)
dim xn66(12),xn67(12),xn68(12),xn69(12)
dim xn70(12),xn71(12),xn72(12),xn73(12)
dim xn74(12),xn75(12),xn76(12),xn77(12)
dim xn78(12),xn79(12),xn80(12),xn81(12)
dim xn82(12),xn83(12),xn84(12),xn85(12)
dim xn86(12),xn87(12),xn88(12),xn89(12)
dim xn90(12),xn91(12),xn92(12),xn93(12)
dim xn94(12),xn95(12),xn96(12),xn97(12)
dim xn98(12),xn99(12),xn100(12),xn101(12)
dim xn102(12),xn103(12),xn104(12),xn105(12)
dim xn106(12),xn107(12),xn108(12),xn109(12),xn110(12)
for a=1 to 12:read xl$(a):next a
for a=1 to 12:read xn1(a):next a
for a=1 to 12:read xn2(a):next a
for a=1 to 12:read xn3(a):next a
for a=1 to 12:read xn4(a):next a
for a=1 to 12:read xn5(a):next a
for a=1 to 12:read xn6(a):next a
for a=1 to 12:read xn7(a):next a
for a=1 to 12:read xn8(a):next a
for a=1 to 12:read xn9(a):next a
for a=1 to 12:read xn10(a):next a
for a=1 to 12:read xn11(a):next a
for a=1 to 12:read xn12(a):next a
for a=1 to 12:read xn13(a):next a
for a=1 to 12:read xn14(a):next a
for a=1 to 12:read xn15(a):next a
for a=1 to 12:read xn16(a):next a
for a=1 to 12:read xn17(a):next a
for a=1 to 12:read xn18(a):next a
for a=1 to 12:read xn19(a):next a
for a=1 to 12:read xn20(a):next a
for a=1 to 12:read xn21(a):next a
for a=1 to 12:read xn22(a):next a
for a=1 to 12:read xn23(a):next a
for a=1 to 12:read xn24(a):next a
for a=1 to 12:read xn25(a):next a
for a=1 to 12:read xn26(a):next a
for a=1 to 12:read xn27(a):next a
for a=1 to 12:read xn28(a):next a
for a=1 to 12:read xn29(a):next a
for a=1 to 12:read xn30(a):next a
for a=1 to 12:read xn31(a):next a
for a=1 to 12:read xn32(a):next a
for a=1 to 12:read xn33(a):next a
for a=1 to 12:read xn34(a):next a
for a=1 to 12:read xn35(a):next a
for a=1 to 12:read xn36(a):next a
for a=1 to 12:read xn37(a):next a
for a=1 to 12:read xn38(a):next a
for a=1 to 12:read xn39(a):next a
for a=1 to 12:read xn40(a):next a
for a=1 to 12:read xn41(a):next a
for a=1 to 12:read xn42(a):next a
for a=1 to 12:read xn43(a):next a
for a=1 to 12:read xn44(a):next a
for a=1 to 12:read xn45(a):next a
for a=1 to 12:read xn46(a):next a
for a=1 to 12:read xn47(a):next a
for a=1 to 12:read xn48(a):next a
for a=1 to 12:read xn49(a):next a
for a=1 to 12:read xn50(a):next a
for a=1 to 12:read xn51(a):next a
for a=1 to 12:read xn52(a):next a
for a=1 to 12:read xn53(a):next a
for a=1 to 12:read xn54(a):next a
for a=1 to 12:read xn55(a):next a
for a=1 to 12:read xn56(a):next a
for a=1 to 12:read xn57(a):next a
for a=1 to 12:read xn58(a):next a
for a=1 to 12:read xn59(a):next a
for a=1 to 12:read xn60(a):next a
for a=1 to 12:read xn61(a):next a
for a=1 to 12:read xn62(a):next a
for a=1 to 12:read xn63(a):next a
for a=1 to 12:read xn64(a):next a
for a=1 to 12:read xn65(a):next a
for a=1 to 12:read xn66(a):next a
for a=1 to 12:read xn67(a):next a
for a=1 to 12:read xn68(a):next a
for a=1 to 12:read xn69(a):next a
for a=1 to 12:read xn70(a):next a
for a=1 to 12:read xn71(a):next a
for a=1 to 12:read xn72(a):next a
for a=1 to 12:read xn73(a):next a
for a=1 to 12:read xn74(a):next a
for a=1 to 12:read xn75(a):next a
for a=1 to 12:read xn76(a):next a
for a=1 to 12:read xn77(a):next a
for a=1 to 12:read xn78(a):next a
for a=1 to 12:read xn79(a):next a
for a=1 to 12:read xn80(a):next a
for a=1 to 12:read xn81(a):next a
for a=1 to 12:read xn82(a):next a
for a=1 to 12:read xn83(a):next a
for a=1 to 12:read xn84(a):next a
for a=1 to 12:read xn85(a):next a
for a=1 to 12:read xn86(a):next a
for a=1 to 12:read xn87(a):next a
for a=1 to 12:read xn88(a):next a
for a=1 to 12:read xn89(a):next a
for a=1 to 12:read xn90(a):next a
for a=1 to 12:read xn91(a):next a
for a=1 to 12:read xn92(a):next a
for a=1 to 12:read xn93(a):next a
for a=1 to 12:read xn94(a):next a
for a=1 to 12:read xn95(a):next a
for a=1 to 12:read xn96(a):next a
for a=1 to 12:read xn97(a):next a
for a=1 to 12:read xn98(a):next a
for a=1 to 12:read xn99(a):next a
for a=1 to 12:read xn100(a):next a
for a=1 to 12:read xn101(a):next a
for a=1 to 12:read xn102(a):next a
for a=1 to 12:read xn103(a):next a
for a=1 to 12:read xn104(a):next a
for a=1 to 12:read xn105(a):next a
for a=1 to 12:read xn106(a):next a
for a=1 to 12:read xn107(a):next a
for a=1 to 12:read xn108(a):next a
for a=1 to 12:read xn109(a):next a
for a=1 to 12:read xn110(a):next a
dim g(16)
dim go(16)
dim x(12),x1(12)
for a=1 to 12
x(a)=a*15+215
'x1(a)=x(a)
xn1(a)=x(a)
next a
wrd=1
num=1
open window 640,512
repeat
setdrawbuf vm
vm=1-vm
setdispbuf vm
clear window
c=peek("port1")
for a=1 to 16
if and(c,2^(a-1))<>0 go(a)=1
if go(a)=1 g(a)=g(a)+1
if g(a)>2 g(a)=2
if g(a)=2 go(a)=0
if and(c,2^(a-1))=0 g(a)=0
next a
if go(5)=1 wrd=wrd-1
if wrd<1 wrd=110
if go(7)=1 wrd=wrd+1
if wrd>110 wrd=1
if go(6)=1 then
num=int(ran(110))+1
wrd=num
endif
for a=1 to 12
if wrd=1 x1(a)=xn1(a)
if wrd=2 x1(a)=xn2(a)
if wrd=3 x1(a)=xn3(a)
if wrd=4 x1(a)=xn4(a)
if wrd=5 x1(a)=xn5(a)
if wrd=6 x1(a)=xn6(a)
if wrd=7 x1(a)=xn7(a)
if wrd=8 x1(a)=xn8(a)
if wrd=9 x1(a)=xn9(a)
if wrd=10 x1(a)=xn10(a)
if wrd=11 x1(a)=xn11(a)
if wrd=12 x1(a)=xn12(a)
if wrd=13 x1(a)=xn13(a)
if wrd=14 x1(a)=xn14(a)
if wrd=15 x1(a)=xn15(a)
if wrd=16 x1(a)=xn16(a)
if wrd=17 x1(a)=xn17(a)
if wrd=18 x1(a)=xn18(a)
if wrd=19 x1(a)=xn19(a)
if wrd=20 x1(a)=xn20(a)
if wrd=21 x1(a)=xn21(a)
if wrd=22 x1(a)=xn22(a)
if wrd=23 x1(a)=xn23(a)
if wrd=24 x1(a)=xn24(a)
if wrd=25 x1(a)=xn25(a)
if wrd=26 x1(a)=xn26(a)
if wrd=27 x1(a)=xn27(a)
if wrd=28 x1(a)=xn28(a)
if wrd=29 x1(a)=xn29(a)
if wrd=30 x1(a)=xn30(a)
if wrd=31 x1(a)=xn31(a)
if wrd=32 x1(a)=xn32(a)
if wrd=33 x1(a)=xn33(a)
if wrd=34 x1(a)=xn34(a)
if wrd=35 x1(a)=xn35(a)
if wrd=36 x1(a)=xn36(a)
if wrd=37 x1(a)=xn37(a)
if wrd=38 x1(a)=xn38(a)
if wrd=39 x1(a)=xn39(a)
if wrd=40 x1(a)=xn40(a)
if wrd=41 x1(a)=xn41(a)
if wrd=42 x1(a)=xn42(a)
if wrd=43 x1(a)=xn43(a)
if wrd=44 x1(a)=xn44(a)
if wrd=45 x1(a)=xn45(a)
if wrd=46 x1(a)=xn46(a)
if wrd=47 x1(a)=xn47(a)
if wrd=48 x1(a)=xn48(a)
if wrd=49 x1(a)=xn49(a)
if wrd=50 x1(a)=xn50(a)
if wrd=51 x1(a)=xn51(a)
if wrd=52 x1(a)=xn52(a)
if wrd=53 x1(a)=xn53(a)
if wrd=54 x1(a)=xn54(a)
if wrd=55 x1(a)=xn55(a)
if wrd=56 x1(a)=xn56(a)
if wrd=57 x1(a)=xn57(a)
if wrd=58 x1(a)=xn58(a)
if wrd=59 x1(a)=xn59(a)
if wrd=60 x1(a)=xn60(a)
if wrd=61 x1(a)=xn61(a)
if wrd=62 x1(a)=xn62(a)
if wrd=63 x1(a)=xn63(a)
if wrd=64 x1(a)=xn64(a)
if wrd=65 x1(a)=xn65(a)
if wrd=66 x1(a)=xn66(a)
if wrd=67 x1(a)=xn67(a)
if wrd=68 x1(a)=xn68(a)
if wrd=69 x1(a)=xn69(a)
if wrd=70 x1(a)=xn70(a)
if wrd=71 x1(a)=xn71(a)
if wrd=72 x1(a)=xn72(a)
if wrd=73 x1(a)=xn73(a)
if wrd=74 x1(a)=xn74(a)
if wrd=75 x1(a)=xn75(a)
if wrd=76 x1(a)=xn76(a)
if wrd=77 x1(a)=xn77(a)
if wrd=78 x1(a)=xn78(a)
if wrd=79 x1(a)=xn79(a)
if wrd=80 x1(a)=xn80(a)
if wrd=81 x1(a)=xn81(a)
if wrd=82 x1(a)=xn82(a)
if wrd=83 x1(a)=xn83(a)
if wrd=84 x1(a)=xn84(a)
if wrd=85 x1(a)=xn85(a)
if wrd=86 x1(a)=xn86(a)
if wrd=87 x1(a)=xn87(a)
if wrd=88 x1(a)=xn88(a)
if wrd=89 x1(a)=xn89(a)
if wrd=90 x1(a)=xn90(a)
if wrd=91 x1(a)=xn91(a)
if wrd=92 x1(a)=xn92(a)
if wrd=93 x1(a)=xn93(a)
if wrd=94 x1(a)=xn94(a)
if wrd=95 x1(a)=xn95(a)
if wrd=96 x1(a)=xn96(a)
if wrd=97 x1(a)=xn97(a)
if wrd=98 x1(a)=xn98(a)
if wrd=99 x1(a)=xn99(a)
if wrd=100 x1(a)=xn100(a)
if wrd=101 x1(a)=xn101(a)
if wrd=102 x1(a)=xn102(a)
if wrd=103 x1(a)=xn103(a)
if wrd=104 x1(a)=xn104(a)
if wrd=105 x1(a)=xn105(a)
if wrd=106 x1(a)=xn106(a)
if wrd=107 x1(a)=xn107(a)
if wrd=108 x1(a)=xn108(a)
if wrd=109 x1(a)=xn109(a)
if wrd=110 x1(a)=xn110(a)
next a
for a=1 to 12
if x(a)>x1(a) x(a)=x(a)-1
if x(a)<x1(a) x(a)=x(a)+1
next a
for a=1 to 12
text x(a),260,xl$(a)
next a
until (1=0)
data "A","C","E","I","L","N","O","P","R","T","W","Y"
data 230,245,260,275,290,305,320,335,350,365,380,395
data 290,230,245,305,335,320,380,365,260,275,395,350
data 335,365,275,230,320,245,380,305,290,260,395,350
data 320,275,290,335,305,350,245,230,260,380,365,395
data 245,365,305,260,335,395,380,320,290,275,230,350
data 245,305,350,260,365,275,320,230,335,290,380,395
data 320,365,275,335,230,350,245,305,290,380,260,395
data 230,365,275,260,245,290,320,305,335,350,380,395
data 380,305,275,320,230,395,245,365,290,335,260,350
data 245,365,275,380,395,335,320,305,290,260,230,350 rem 10
data 320,230,275,380,350,260,245,395,305,290,335,365
data 245,335,350,320,380,275,290,365,260,305,230,395
data 260,320,335,305,245,290,395,230,350,365,380,275
data 320,365,350,380,305,275,245,290,260,335,230,395
data 245,230,335,305,365,260,380,350,290,320,275,395
data 245,395,290,380,230,320,350,365,305,335,260,275
data 335,230,290,380,350,305,245,395,275,320,260,365
data 365,230,260,380,395,320,305,290,245,350,275,335
data 350,245,320,230,365,335,275,305,260,380,290,395
data 350,395,245,365,380,290,275,260,335,320,230,305 rem 20
data 245,395,335,260,365,290,305,350,320,275,230,380
data 335,350,320,365,305,275,245,290,260,380,230,395
data 305,320,335,365,380,275,245,290,260,230,350,395
data 365,320,335,305,395,230,245,275,290,260,380,350
data 305,320,395,365,290,275,245,380,260,230,350,335
data 245,350,335,365,230,275,305,320,290,380,260,395
data 290,350,245,380,395,230,365,275,305,320,260,335
data 245,260,275,305,290,380,350,320,230,335,365,395
data 350,275,320,245,305,260,290,335,365,380,230,395
data 260,230,335,365,350,395,380,320,245,290,275,305 rem 30
data 245,290,335,365,350,380,305,320,260,395,230,275
data 305,275,395,230,335,260,245,380,290,350,320,365
data 305,320,335,245,290,395,365,230,380,260,350,275
data 320,350,305,365,290,275,245,335,260,380,230,395
data 380,350,275,305,365,320,245,395,260,290,230,335
data 305,230,275,245,365,395,380,335,290,260,320,350
data 260,230,395,365,245,380,305,290,320,335,350,275
data 320,230,275,380,260,395,245,290,305,350,365,335
data 245,350,305,380,320,395,365,335,260,275,230,290
data 365,230,335,245,350,395,305,290,320,260,380,275 rem 40
data 245,260,395,365,380,335,305,350,230,290,320,275
data 245,380,275,365,260,320,305,230,350,335,290,395
data 245,320,335,305,365,260,380,350,290,275,230,395
data 230,335,350,320,365,260,380,290,305,395,245,275
data 260,380,395,365,290,320,335,230,245,350,275,305
data 245,380,395,350,305,365,290,230,275,260,335,320
data 350,290,305,275,260,380,245,230,335,320,365,395
data 365,335,395,245,290,260,305,275,350,380,230,320
data 365,230,245,380,395,335,305,290,320,350,260,275
data 365,380,395,275,245,290,335,230,350,305,320,260 rem 50
data 305,350,395,245,380,335,365,230,320,260,290,275
data 305,260,275,245,230,365,380,290,320,335,395,350
data 305,290,275,245,380,365,350,260,320,335,230,395
data 320,350,275,245,365,260,380,335,305,290,230,395
data 260,380,395,365,230,275,245,290,305,335,350,320
data 320,335,350,230,305,365,380,290,260,245,395,275
data 290,350,320,230,365,305,380,395,260,245,335,275
data 245,335,275,320,230,395,380,290,305,260,365,350
data 305,380,395,365,290,260,245,335,350,275,230,320
data 350,260,380,245,395,365,305,335,230,290,320,275 rem 60
data 230,275,380,305,290,245,350,335,395,320,365,260
data 245,275,290,380,305,395,335,230,260,320,365,350
data 260,305,245,380,320,395,335,365,275,350,230,290
data 320,350,275,365,230,335,245,305,290,380,260,395
data 320,365,245,335,350,305,380,230,260,275,395,290
data 245,350,335,380,365,290,305,395,260,320,230,275
data 380,230,335,305,245,320,260,395,365,350,290,275
data 320,350,305,365,290,275,245,335,260,380,230,395
data 350,230,380,290,335,305,245,275,395,320,260,365
data 305,245,350,230,335,365,275,320,260,380,290,395 rem 70
data 305,260,275,245,395,230,365,290,320,335,380,350
data 305,380,395,365,350,260,245,230,320,335,290,275
data 365,380,395,245,350,260,305,335,290,230,320,275
data 305,380,395,350,230,365,245,335,290,275,260,320
data 365,290,275,305,350,395,245,260,230,320,380,335
data 245,350,335,380,365,275,305,395,290,320,260,230
data 320,290,395,365,305,275,245,380,260,230,350,335
data 245,290,395,305,380,275,365,350,260,320,230,335
data 245,260,275,365,380,335,305,230,320,290,350,395
data 305,350,290,380,365,320,260,395,245,275,230,335 rem 80
data 320,230,350,380,335,275,245,305,260,395,365,290
data 320,290,245,365,305,380,395,230,260,275,350,335
data 260,395,365,305,290,335,320,275,245,230,380,350 rem 81
data 305,260,275,365,380,245,230,290,320,335,350,395
data 260,275,290,320,350,335,365,305,245,230,380,395
data 350,335,320,290,230,305,245,275,365,380,260,395
data 260,380,290,365,350,335,305,275,245,230,320,395
data 320,335,290,230,380,275,245,365,305,350,260,395
data 305,320,335,245,260,395,380,290,350,275,230,365
data 380,275,290,260,365,335,320,350,245,230,305,395
data 320,230,395,365,275,350,245,290,305,380,260,335
data 335,350,260,305,380,320,365,230,245,395,290,275
data 320,290,275,245,350,260,305,365,380,335,230,395 rem 91
data 290,230,245,305,350,320,365,335,260,275,380,395
data 350,275,380,245,335,260,290,320,395,305,230,365
data 245,275,290,305,320,380,350,260,365,230,335,395
data 320,350,290,380,365,230,245,305,260,395,275,335
data 380,275,260,245,230,335,305,365,290,395,320,350
data 380,365,260,230,350,275,320,290,305,395,335,245
data 380,290,305,275,395,320,335,365,245,230,350,260
data 260,320,350,305,335,365,380,245,275,290,395,230
data 320,245,365,275,260,380,230,290,350,395,305,335
data 290,335,275,245,305,260,365,320,350,230,380,395
data 350,230,335,320,365,290,260,380,245,305,275,395
data 365,260,305,290,275,320,245,395,380,335,350,230
data 320,350,260,230,305,275,380,395,365,290,245,335
data 290,275,350,245,335,365,260,320,230,380,305,395
data 305,290,275,245,230,320,380,350,365,260,395,335
data 335,350,305,245,260,320,380,290,395,365,230,275
data 260,365,335,380,395,350,230,320,275,290,245,305
data 335,275,290,245,395,260,380,320,365,350,230,305
data 290,245,335,230,395,305,380,320,365,350,275,260
