diff --git a/appleiibot/snow.bas b/appleiibot/snow.bas index 0eb60e92..7f838958 100644 --- a/appleiibot/snow.bas +++ b/appleiibot/snow.bas @@ -1,8 +1,12 @@ -1REM\S\F%AVG_#>AUW_A_HVF@I_(\[IZN=ZIO%_D)ZRP&T[Y_N_,L"W / #& # 8#] !"#$%^&)),.',,))(&%$#"! P1G=J!H!A7;?" ).B $ #'0PP(2X2(C$C,, T B(A(" -2FORI=0TO142:Z%=(PEEK(2196+I/3)-32)/4^(I-INT(I/3)*3)+4*PEEK(2054+I)-128 -4POKE768+I,Z%-256*Z%>255:NEXT:CALL768 +1REM,clV5QfWo3NQegoQoX&VPYo8,kYj^M*Y_5/T9jb`6dkio^o<\2g000000?0003600L100?H0,B6$-<$I1.I<-?0..?-?0:O@):1K0O):1I7033N30H3-0012345.699<>7<<9986543210P1G=J!H!A7;?" ).B $ #'0PP(2X2(C$C,, T B(A(" +2FORI=0TO142 +3POKE768+I,4*PEEK(2054+I)-64+(PEEK(2196+I/3)-32)/4^(I-INT(I/3)*3)-128:NEXT:CALL768 +'1REM\S\F%AVG_#>AUW_A_HVF@I_(\[IZN=ZIO%_D)ZRP&T[Y_N_,L"W / #& # 8#] !"#$%^&)),.',,))(&%$#"! P1G=J!H!A7;?" ).B $ #'0PP(2X2(C$C,, T B(A(" +'2FORI=0TO142:Z%=(PEEK(2196+I/3)-32)/4^(I-INT(I/3)*3)+4*PEEK(2054+I)-128 +'4POKE768+I,Z%-256*Z%>255:NEXT:CALL768 '2FORI=0TO142:Z=INT((PEEK(2196+I/3)-32)/4^(I-INT(I/3)*3)+4*PEEK(2054+I)-128) '4POKE768+I,Z-256*(Z>255):NEXT:CALL768 '2FORI=0TO47:FORJ=0TO2:Z%=(PEEK(2196+I)-32)/4^J+4*(PEEK(2054+I*3+J)-32) '4POKE768+I*3+J,Z%-256*(Z%>255):NEXTJ,I:CALL768 ' 301 is one to beat +' 290 is one to beat