10 CLS:CLV:X=32:?:?".A8F":?"7B24":?"356D":?"E19C":FORI=0TO20:K=INKEY():L=K*2-57:H=L<2:M=(L*H+(L-4)*32*!H)*!!K:LCX+M:T=SCR():LCX:?CHR$(T):X=X+M*!!T:LCX:?".":I=I%20:P=P*I+SCR(I%4,I/4)*I:IFP<>-14436NEXT
おお、前回のパズルがパワーアップしましたね。8パズルは解けたので、同じようにやっていけば解けるだろう……と考えていましたが、そう簡単にはいきませんでした。くやしい!