dos33fsprogs/basic/appleiibot/gears.bas

3 lines
273 B
QBasic

1FORI=0TO137:POKE1013+I,4*PEEK(2126+I)-204+(PEEK(2264+I/3)-35)/4^(I-INT(I/3)*3):NEXT
2&"-hoY4T`QqUM]1:7p[;:I4S1[l]L:7piq[3:I&aq/foY4Tl[3UM]1:7o]RVN4[;;I4[%Xm]L;/nlq[7:I4>HcZr;]r>Db]r;]jDD,RqnO4nO4Yqo2nO2nO.ZQW3]/:JfbqdkK;@3<>3[4V=5#'C*'13[S4&=5'$#$[$D&'#0#4&CC%%0-+;34M/(+