50 POKE53280,6:POKE53281,6:PRINT"[147]"
100 PRINT:INPUT "ENTER WORD";A$:IF A$="" THEN END
110 X=1:M$=MID$(A$,2,1):IF M$="H" OR M$="L" OR M$="R" THEN X=2
120 PRINT MID$(A$,1+X);"-";MID$(A$,1,X)+"AY"
130 PRINT:PRINT "ANOTHER WORD (Y OR N)?"
140 GET K$:IF K$<>"Y" AND K$<>"N" THEN 140
150 IF K$="Y" THEN 100