dos33fsprogs/basic/appleiibot/particle_hgr.bas

3 lines
274 B
QBasic

1FORI=0TO138:POKE877+I,4*PEEK(2125+I)-204+(PEEK(2264+I/3)-35)/4^(I-INT(I/3)*3):NEXT
2&"-ho/foWB]2TlQCb/:a2;['8HpM]S\a3;9E0;Y3;r3<]2;8Q3;Y3.bbS:]RY3:]LU2;V5Y1;;d2eMLY0;;d25nY3:j3/liVqTlYEb3;]2;[3;HpM]U7T>WTBE9CW2E`PCD6:6@m5GEN3[S3'C3'S#;#T$%4''X3''4@+A;/A'+U@#%4#&#4D1)4Z'3&