mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-02-26 08:29:25 +00:00
9 lines
562 B
QBasic
9 lines
562 B
QBasic
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
|