On 1/3/23 9:50 PM, John R. Hogerhuis wrote:
On Tue, Jan 3, 2023 at 9:24 PM Ken Pettit <[email protected] <mailto:[email protected]>> wrote:Hey John, Nice! No way to make that a 1-liner huh? ;-) KenOops, I should have said converting this to a one liner is left as an exercise for the reader :-)
Okay, challenge accepted! Here is the one-liner version of John's M100 program (minus the BEEP ... I couldn't figure out how to get that to fit in the line limit).
10 DEFINTA-Z:A=255:DIMW(A):FORJ=128TOA:W(J)=1:NEXT:B=30481:C(0)=A:C(1)=239:FORD=32TOA:CLS:FORJ=1TO7:PRINTJ:NEXT:PRINT8;:FORI=2TO6+W(D):C=PEEK(B):B=B+1:FORJ=0TO7:L=CAND1:C=C\2:PRINT@J*40+I,CHR$(C(L));:NEXTJ,I:FORX=1TO1STEP0:IFINKEY$=""THENNEXTXELSENEXTD
Ken
