dos33fsprogs/basic/appleiibot/pattern.bas

3 lines
156 B
QBasic

1FORI=0TO50:POKE1013+I,4*PEEK(2125+I)-192+(PEEK(2176+I/3)-35)/4^(I-INT(I/3)*3):NEXT
2&"*el,clT;QbNoP.YbVo74mV8BFR9YZ9;NT/gobnYf`_P0Z#NoB01[S<YCY'<JG@MAJ3W'