dos33fsprogs/basic/appleiibot/rect.bas

3 lines
275 B
QBasic

1FORI=0TO138:POKE1013+I,4*PEEK(2126+I)-204+(PEEK(2265+I/3)-35)/4^(I-INT(I/3)*3):NEXT
2&"/foT5XleggbqcmdcX<Qq[5Srcr;52le8=2lr8=4aq;93e6gmGkF0ffVq=-\`nTq\nTgjrQn535;3o\7SpW4\cQ<Vo]IU<Y<9I3T:egk8\im6FoTgbqi7dim7`g\kKqModjm4cro'daKSA.NIV/3)FU+/16#]3<>(4LP-4:5X;J04.5C<I;F?:@C(U#