Apple-2-SW
/
dos33fsprogs
mirror of https://github.com/deater/dos33fsprogs.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

appleiibot: smaller!

This commit is contained in:
Vince Weaver 2020-12-07 15:43:12 -05:00
parent 70735dcdeb
commit 3506ea169a
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
appleiibot/snow.bas
View File

@ -1,8 +1,12 @@
1REM\S\F%AVG_#>AUW_A_HVF@I_(\[IZN=ZIO%_D)ZRP&T[Y_N_,L"W / #& <! /8 \2&T],T9!^9,]/ ^^/]/ *?0Y*!; ?Y*!9' ##># 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 \2&T],T9!^9,]/ ^^/]/ *?0Y*!; ?Y*!9' ##># 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