2 MODE 0:INK 1,26:a$=". ":z$=a$:FOR a=1 TO 26:z$=CHR$(91-a)+z$:MOVE a*64+12,48:DRAWR 0,320,3*-(a<9):MOVE 80,a*80-32:DRAWR 444,0:b$="":WHILE INSTR(a$,b$)>0:b$=CHR$(65+RND*25):WEND:a$=b$+a$:NEXT:c=7:l=3:WHILE a$<>z$:FOR y=1 TO 4:FOR x=2 TO 8:LOCATE x*2,y*5
6 PRINT MID$(a$,x-8+y*7,1):NEXT x,y:z=c+l*7:x=c:y=l:WHILE x+y=c+l:c=MIN(7,MAX(1,c+INKEY(8)-INKEY(1))):l=MIN(3,MAX(0,l+INKEY(0)-INKEY(2))):WEND:w=c+l*7:MID$(a$,z,1)=MID$(a$,w):MID$(a$,w)=" ":p=1+p:PRINT CHR$(30),p:WEND:INK 1,26,9:WHILE INKEY(47):WEND:RUN