dos33fsprogs/basic/appleiibot/circles.bas

2 FOR X=0TO100:A=(PEEK(2245+X/2)-32)/4:IFJTHENA=(A-INT(A))*4
3 J=NOTJ:POKE768+X,(PEEK(2144+X)-32)*4+A:NEXT:GR:CALL768:REM+4PY_H&A^RH%A^B&N3 ""?2 29_*'222A_JN8 A,I^B( ^I^( ^I_B( ^I^( ^Y^B$SY^R$P,N)('&&%%$$##""!!!!       5 =""*". ! &.)+)).*!!'$!( '  & !, ) "."!!+&"""')#)$ $,
botdemo: back to showing all 2020-11-18 00:20:30 +00:00			`2 FOR X=0TO100:A=(PEEK(2245+X/2)-32)/4:IFJTHENA=(A-INT(A))*4`
			`3 J=NOTJ:POKE768+X,(PEEK(2144+X)-32)4+A:NEXT:GR:CALL768:REM+4PY_H&A^RH%A^B&N3 ""?2 29_'222A_JN8 A,I^B( ^I^( ^I_B( ^I^( ^Y^B$SY^R$P,N)('&&%%$$##""!!!! 5 =""". ! &.)+)).!!'$!( ' & !, ) "."!!+&"""')#)$ $,`