dos33fsprogs/basic/appleiibot/rle.bas

mirror of https://github.com/deater/dos33fsprogs.git synced 2024-11-04 05:05:13 +00:00
1REM E,! F,! D,& */! 6-& +/" 5)& +/# 4!' */$ 3"' */% 3&% +'& @"! !/+"% 2-$""/!!#"$/#"& /-&""/"!!$#"!/$"' --$)#""/+"( .-%""/+") /-#""'*/+ 1"! !/)'!/,
2GR:VTAB1:FORI=0TO72:C=PEEK(2054+I*2)-32:L=PEEK(2055+I*2)-32
5FORY=1TOL:POKEPEEK(40)+PEEK(41)*256+PEEK(36),C*17:CALL64500:NEXTY,I
	`1REM E,! F,! D,& /! 6-& +/" 5)& +/# 4!' /$ 3"' /% 3&% +'& @"! !/+"% 2-$""/!!#"$/#"& /-&""/"!!$#"!/$"' --$)#""/+"( .-%""/+") /-#""'/+ 1"! !/)'!/,`
	`2GR:VTAB1:FORI=0TO72:C=PEEK(2054+I2)-32:L=PEEK(2055+I2)-32`
	`5FORY=1TOL:POKEPEEK(40)+PEEK(41)256+PEEK(36),C17:CALL64500:NEXTY,I`