dos33fsprogs/appleiibot/qkumba_autumn.bas

mirror of https://github.com/deater/dos33fsprogs.git synced 2024-11-08 16:07:14 +00:00
1REM(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  P")90'6"F)=8KBI.)H%1@&1F1WA6%=:S50@"E,\
2FORI=0TO116:C=INT((PEEK(2171+I/3)-32)/4^(I-INT(I/3)*3)):POKE768+I,((PEEK(2054+I)-32)*4)+C-INT(C/4)*4:NEXT:CALL768
	`1REM(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 P")90'6"F)=8KBI.)H%1@&1F1WA6%=:S50@"E,\`
	`2FORI=0TO116:C=INT((PEEK(2171+I/3)-32)/4^(I-INT(I/3)3)):POKE768+I,((PEEK(2054+I)-32)4)+C-INT(C/4)*4:NEXT:CALL768`