dos33fsprogs/appleiibot/autumn.bas
Vince Weaver dd2bd96307 seasons: move zero page usage of autumn to conflict with basic less
it was stomping on the TRACE and SPEED values
2020-11-16 00:41:23 -05:00

4 lines
298 B
QBasic

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 .(.!!(%$).()! %$)&"*."$&(*-)!(*,$$$$%%&*--)-*%#'$! *(- ,#,