5 c$=CHR$(&E9):MODE 1:PRINT TAB(17)"HEADLOCK",,,,"0=EFF 1=OFF 2=ON":WINDOW#2,24,39,5,24:PRINT#2,"1337865423579541 124233121112531       543",,STRING$(255,c$)c$;:WINDOW#2,20,22,9,24:PRINT#2,"  2  3 23134145 76 65414333 21 12232132=14 83  3";:WHILE p<15912
8 k=ASC(INKEY$+"z")-240:x=MIN(39,MAX(24,x-(k=3)+(k=2))):y=MIN(24,MAX(9,y-(k=1)+(k=0))):t=TEST(x*16-8,407-y*16)::PEN 0:LOCATE x,y:PRINT c$;:k=192+k:WHILE k>-1 AND k<3:p=p+(y*16+x-167)*(-(t<3 AND k=2)+(t=3 AND k<2)):t=k+1:k=9:WEND:PEN t:PRINT CHR$(8)c$:WEND