diff --git a/appleiibot/bin.bas b/appleiibot/bin.bas new file mode 100644 index 00000000..7282185f --- /dev/null +++ b/appleiibot/bin.bas @@ -0,0 +1,2 @@ +0LIST +1REM�������������������������������������������������������������������������������������������������������������������������������� diff --git a/appleiibot/rle.bas b/appleiibot/rle.bas new file mode 100644 index 00000000..1cd03b7b --- /dev/null +++ b/appleiibot/rle.bas @@ -0,0 +1,3 @@ +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 diff --git a/appleiibot/rle2.bas b/appleiibot/rle2.bas new file mode 100644 index 00000000..88ad27c4 --- /dev/null +++ b/appleiibot/rle2.bas @@ -0,0 +1,5 @@ +1REM E,! F,! D,& */! 6-& +/" 5)& +/# 4!' */$ 3"' */% 3&% +'& @"! !/+"% 2-$""/!!#"$/#"& /-&""/"!!$#"!/$"' --$)#""/+"( .-%""/+") /-#""'*/+ 1"! !/)'!/, +2FORI=1TO11:READA,V:POKEA,V:NEXTI +4GR:VTAB1:FORI=0TO72:C=PEEK(2054+I*2)-32:L=PEEK(2055+I*2)-32 +5FORY=1TOL:X=USR(C*17):NEXTY,I +6 DATA 10,76,11,0,12,3,768,32,769,12,770,225,771,165,772,161,773,76,774,240,775,251