dos33fsprogs/basic/appleiibot/autumn.bas

4 lines
298 B
QBasic
Raw Normal View History

2 FOR X=0TO116:A=(PEEK(2264+X/2)-32)/4:IFJTHENA=(A-INT(A))*4
3 J=NOTJ:POKE768+X,(PEEK(2147+X)-32)*4+A:NEXT:CALL768
9 REM (V\I]I]B.Y^A]FY^R@:A]9]&B9^A^F9^R@:A^9^9^9^9_9_L'Y_T Y_I]:@A]D Y].J Y^A^J Y^A^I_")_1_A_*!" JI^,HI]*\TG([]I]I]I^(5]3 .(.!!(%$).()! %$)&"*."$&(*-)!(*,$$$$%%&*--)-*%#'$! *(- ,#,