dos33fsprogs/basic/appleiibot/qkumba_seasons.bas

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]K 0,CIJ2 AJ4A 'P.(53&&.6%98:N8*YHT1C"151FM2T=:R10@.4,A0V)P
2FORI=0TO127:C=INT((PEEK(2183+I/3)-32)/4^(I-INT(I/3)*3)):POKE4096+I,((PEEK(2054+I)-32)*4)+C-INT(C/4)*4:NEXT:CALL4096
twoline: of course qkumba did it better 2020-10-04 16:44:50 +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]K 0,CIJ2 AJ4A 'P.(53&&.6%98:N8*YHT1C"151FM2T=:R10@.4,A0V)P`
twoliners: got autumn fitting 2020-10-05 03:50:13 +00:00			`2FORI=0TO127:C=INT((PEEK(2183+I/3)-32)/4^(I-INT(I/3)3)):POKE4096+I,((PEEK(2054+I)-32)4)+C-INT(C/4)*4:NEXT:CALL4096`