I have often wondered about the point of DEFINT A-Z. On Wed, 4 Jan 2023 at 18:51, Ken Pettit <petti...@gmail.com> wrote:
> > > On 1/4/23 6:47 PM, Ken Pettit wrote: > > On 1/3/23 9:50 PM, John R. Hogerhuis wrote: > > > > On Tue, Jan 3, 2023 at 9:24 PM Ken Pettit <petti...@gmail.com> wrote: > >> Hey John, >> >> Nice! No way to make that a 1-liner huh? ;-) >> >> Ken >> >> > Oops, 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 > > > Actually, if I remove the "DEFINTA-Z:" at the beginning, then I can get > the BEEP to fit also, it will just run slightly slower: > > > 10A=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$=""THENNEXTXELSEBEEP:NEXTD > > Ken >