0 Members and 1 Guest are viewing this topic.
"**************→Str1 \\14 AsterisksDelVar L116→dim(L16→S5→A8→X10→W1→LFor(F,0,6Disp " \\Just a quote, no space.EndRepeat 0getKey→KX+sum(⌂List(K={24,26→XDisp sub(Str1,1,A)+sub("______",1,S)+sub(Str1,1,W-A \\6 Spacesmin(W-1,max(1,A+randInt(-1,1→AA→L1(L17-W+A→L1(L+1Output(1,X,"VIf X=L1(L+2-14(L=13)) or X=L1(L+3-14(L=13StopL+2Ans-14(Ans=15→LPause \\This is just here to help testing/debugging.End