dos33fsprogs/basic/appleiibot/par_hgr.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&"-ho/foP`UA:7hK]V;Z.6\/::Z37Yhr_kln\o8SH.DVH3\kEKJj5/<E/\a@a[Kb3*SO3b3.2lVP4Z:Y/4TkTlbAq=Co'Zr]8U@m3=p=;o4\Hg5UAi2Dp=7k3]Ue3Y2Y3;Ua5gce7X=X[SQ3C<7Z$UC'Y;4)L=4C'X'G$'=>W$WK'@#(+4*3E4#++D