I found this cool bit of BASIC code linked from Apple2History.org written by a guy named Chris Baird. One look at it and I just had to try it out. Since I don’t have all the hardware/software in place yet that I need to get stuff off the internet and onto 5.25” floppies, I had to do it old school and type it in on the Apple II.

It took me a couple of hours to punch it in. Those lines are long! I kept making typos and I’d have to start the whole line all over again. I was running it after I punched in each line to make sure that it was coming out alright. A few times I got carried away and I punched in 3 or 4 lines. I made a few typos somewhere because it looked like crap when I ran it. I had to go back and check all those lines all over again and find the mistakes. So it took a little longer than it should have.

At first I couldn't find them. I was beginning to think the code was bogus and that there was a mistake in it. So I ran it in my Apple II emulator to make sure it wasn’t me.

All good:



After I fixed all my mistakes, it looked pretty cool.





The code looks like he’s got it on some weird Apache server in Australia. I think it’s on a school server so who knows how long it’ll be available. Here’s the code in case it disappears:

10 HGR2:X%=0:Y%=0:C%=3

20 HCOLOR=C%:READP%:P%=P%+1

30 IFP%=0THENC%=3-C%:GOTO20

40 IFX%+P%<280THENHPLOTX%,Y%TOX%+P%-1,Y%:X%=X%+P%:P%=0:GOTO30

50 HPLOTX%,Y%TO279,Y%:P%=P%-(280-X%):X%=0:Y%=Y%+1:IFY%<192THEN30

60 GOTO60

100DATA969,5,,,269,2,,,1,7,261,,,2,,3,,10,254,26,248,33,243,38,238,42,234,45,232,48,227,52,225,55,222,57,219,60,217,62,215,29,,33,213,21,,9,,32,210,20,,3,,7,,2,,29,208,16,1,1,,10,,,,35,207,12,,3,,2,,2,,,,,

101DATA1,,1,,,,,,11,,18,205,12,,1,,2,,3,,8,,1,,,,,,2,,5,,1,,17,204,12,,,,,1,1,,4,,1,,,,1,,,,,,,,,,1,,,,7,,17,202,11,,,,,,,,,,2,,,,1,,1,,5,,1,,,,2,,,,,,,,,,2,,15

102DATA201,12,,,,,,,,,,,,,,,,2,,1,1,,,2,,2,1,,,,,,,,,1,,,,2,,14,199,11,,,,,2,,1,,,2,,1,1,,,,,,,,,1,,4,,,,,,,,1,,1,,,,17,198,12,2,1,,,1,,,,,,1,2,,,,,2,,,1,,,

103DATA0,,1,,,,,1,,,,,,,,,16,197,11,4,,2,,1,,,,,,,,1,,,,4,,,,,,,,,1,,1,,1,,,,1,,1,,15,196,12,4,,,,1,,2,,,1,,,4,,3,,1,1,,,,1,,,,,,,,,,,,,,,,16,194,10,2,,5,,2,,1,

104DATA1,,,,4,,3,,,,,,,,1,,,,,,,,,,,21,193,11,2,,7,,1,,,,4,,12,,,2,,,,,,,,,,,1,,,17,193,10,,,8,,3,,7,,11,,2,1,,,,,,,,,,22,191,12,,,7,,6,,18,1,2,,1,,,,,,,,,,,19

105DATA189,11,13,,26,,,,,,,,,,,,,4,,17,189,12,7,,,,23,,4,,,,1,,,,,,,,,,,1,,18,188,10,15,,28,,1,1,,,,,,2,,19,187,12,1,,39,,5,,,,,,1,1,,19,185,11,,,44,,3,,1,,,1,,22,184,12,,,43

106DATA0,1,,,,,,,,,,,,,20,185,10,53,,1,,,2,,,,17,185,11,,,46,,4,,,,1,22,183,10,52,,1,,1,,,,,22,181,13,53,,,,,1,,23,179,12,52,,3,,,26,179,14,51,,,,,,1,,,23,180,11,54,,1,,,25,180,13,54,

107DATA0,,,,,23,180,12,53,,3,,,25,179,1,,10,53,,,,,,,,,23,179,,,,,8,51,,3,,,,,25,180,12,51,,,,,,,,,,,23,180,1,,8,51,,,,1,,,2,,3,,18,180,9,,2,49,,1,,,,,1,,25,179,1,,8,52,1,,,,,

108DATA0,,2,,20,180,13,51,,1,,,,,,,1,,20,180,2,,7,51,,,,,,,,,,,,,,,11,,8,179,1,,,,2,,4,50,,,,,,1,,,,,,,20,180,,,,,3,,2,,,49,,2,,,,,,,1,,,,11,,7,179,,,,,3,,2,,,,,55

109DATA0,1,,,,,20,179,2,,3,,1,,,,,53,,,,,,,,,11,,9,180,,,4,1,,,,,,48,,,,2,,1,,,,1,10,,9,178,1,,3,,,,,,,,,54,,,,1,,,13,,,,6,178,,,4,,1,,,1,,,,1,,51,,5,22,176,,,,2,1,,

110DATA3,1,4,,47,,,,3,2,,10,,9,177,3,1,,,,,,2,,1,,50,,1,,,,1,,,,,10,,7,178,,,,,1,1,,3,1,55,,2,,,,,21,,2,172,5,,1,,,,,,2,60,,,,,,,10,,11,170,3,,,,1,,,,,,1,,,55,,,,,,,,,

111DATA0,24,169,,,4,,5,1,,,,60,,1,,,,,23,168,3,1,3,,,1,2,56,,1,,3,,,,,24,168,4,,6,1,1,,,52,,1,,8,,,23,168,4,,2,,1,,2,1,,53,,8,,,25,168,3,,,,4,1,2,52,,1,,7,,,,,1,,21,168,3,1,5,,2,,,2,4,

112DATA0,,,38,,5,,2,30,169,1,,,1,,,3,,1,4,,,6,,,41,,,2,1,2,,,,23,168,3,,3,1,3,6,,,7,19,,13,,,,,2,,1,,1,,,,27,169,1,4,1,,4,2,1,,1,,13,12,,15,41,168,2,,,1,,,5,3,,,,1,,,15,,,5,,,,7,,,

113DATA0,7,2,,5,26,170,1,1,,2,,,4,4,1,5,1,9,3,,,2,,,,2,,5,,1,4,,10,1,24,170,1,,,,,,1,,1,,1,3,,10,9,,5,,,7,,,,,5,,14,1,22,171,14,3,,2,1,2,,,,,9,,5,9,6,,17,,20,171,10,,,,1,4,,,1,1,17,,1,9,14,

114DATA12,,19,172,9,,,1,1,5,,1,5,,,1,3,,3,,2,10,4,,3,,1,,4,,7,,18,172,8,,,2,,,,2,,2,4,2,7,,3,1,,8,,,8,2,35,173,4,1,2,3,,,,2,,1,4,2,6,,5,,,8,,,10,1,4,1,8,,17,173,3,3,,4,,3,,1,1,8,2,1,,,2,1,,,

115DATA9,10,2,1,1,1,,26,174,4,1,1,,,2,,5,1,13,,,,,,1,,8,12,,,3,,1,,,8,,1,,13,172,5,2,,,,3,,17,1,,,,,1,,4,1,5,8,1,,1,2,,5,,24,175,3,1,,,,3,1,1,,20,,2,,,1,8,1,,4,14,3,1,18,174,4,1,,1,,2,1,,,1,

116DATA16,2,1,,1,,8,,,2,,3,11,4,,,1,17,175,3,1,1,,,5,1,,,17,1,3,1,9,2,1,5,10,,,2,,3,,14,173,,1,2,2,,8,2,14,,,,4,,,,7,10,,,,,5,,,1,,,2,1,,15,174,1,2,1,,1,,,26,,6,,9,8,,,,,,,,1,,,,,,,

117DATA0,2,,1,14,175,1,2,,,,1,,6,,36,9,1,,2,,11,,,16,176,,2,,,2,46,2,,4,,,3,,11,,1,15,175,,2,,1,1,1,,27,,14,8,,,,,12,,,,1,16,176,,5,1,29,,15,3,,4,1,,11,,,,1,16,181,,,1,28,,15,5,,1,,,,,1,

118DATA7,,,,2,17,176,,5,2,27,,16,5,,1,,,2,,1,,4,,,,1,,,15,177,,2,,,,,,,,42,7,1,2,,,5,,,1,,,1,18,177,1,5,,,,,,41,,,6,1,,,,,,3,,1,,1,,,,,16,177,,4,2,,,2,,5,,13,,17,,,8,2,,2,,1,

119DATA2,,,,,17,178,1,4,1,,1,1,,,,21,,16,7,,,9,1,,,,,,15,179,,1,,1,,,,,,2,,,,20,,15,9,,,,,3,,,1,,1,,,,16,180,,2,,,,1,1,2,,,,,,14,,19,7,,,,,,1,1,,1,,,4,,14,182,,1,,,,,2,,1

120DATA2,,1,,13,,16,10,,,,,1,,1,,,,,,,1,,15,182,,3,,1,1,1,2,,1,34,9,,,,,1,,,,1,,,,,18,184,,1,,,,,1,,,1,,1,,32,5,,4,,,1,,2,,,,,17,,,187,,1,,,1,,1,,,1,,1,,13,,15,11,,,,,3,

121DATA0,,1,15,189,,,2,,1,1,,,,,,32,12,,,3,,,,,,,15,194,,,,,,,,,,,,15,,17,12,,,1,,,,,1,,15,192,,1,,,,,,1,,,,13,,17,11,,,1,,1,,,1,,15,191,,1,,,,,,,,,,1,,13,,5,,10,12,

122DATA0,,,,,,,,,,15,190,,1,,,,1,,1,,,,1,,10,,8,,8,12,,,,,1,,,19,190,,5,,,,,,,,,1,10,,19,13,,,,,,,1,17,190,,1,1,1,,,,,,1,,31,,,12,,,,,,,,19,196,,,,2,,,,,,27,,,17,

123DATA2,1,10,,5,191,,4,,1,,2,,,,21,2,2,,,14,,1,1,2,,17,192,,,,1,,,,3,,,,19,,,,,1,,,,19,2,1,,4,,10,196,,,,3,,,,11,,5,,2,2,,3,,15,,2,,1,,5,,8,193,1,,,1,,3,,,,1,,15,1,2,1,,,,1,,19

124DATA0,1,,6,,7,196,,,,1,,3,,6,,1,1,,2,1,,,,,,1,,,2,,1,,11,,6,,5,,9,198,,1,,4,,6,,,,2,,1,,1,,1,,1,,,4,,19,,6,,8,194,,,,,,5,,2,,2,,1,,,2,1,,1,1,,,,1,,6,,15,,3,,14,195,1,,,5,,3

125DATA0,1,,1,,,3,,,2,1,,1,,,,5,,24,,10,198,,3,,1,,,,4,1,,,,,,2,,2,,1,,1,,3,,,,16,,3,,2,,8,200,,2,,3,,,,2,5,,2,1,,,,,1,1,,,1,,1,,16,,,,1,,1,,1,,6,198,1,9,,1,6,,1,,,,,,2,1,,

126DATA1,,1,,19,,2,,1,,9,199,,,,4,,1,,,,1,,,43,1,2,,1,,8,199,,2,,1,,,,2,,,,,9,,,,,,,,2,,4,,16,,1,,,,11,201,,,,2,,,,3,1,,5,2,,15,,1,14,1,2,,,,9,206,,,,1,,1,,,5,1,,16,,,3,,12

127DATA0,1,,2,,8,202,1,6,,,,1,5,25,,,11,,5,,7,205,,,,1,1,3,5,1,,22,11,1,2,,12,205,,2,2,,2,,4,1,,13,,1,3,1,,,9,,,,15,208,,2,,,,,4,11,,,2,,,,,1,,,,,,,1,,7,,,,14,205,1,,,,1,,1,,4,,1,

128DATA0,1,,3,,1,1,1,,,1,,1,,10,,1,,16,206,,,6,,2,,,3,,1,1,,,,2,,21,,18,204,,1,4,,,,3,2,,2,,2,,,,,1,,,,6,,9,,,1,,,6,,8,205,3,,,,2,,,,,,,4,,,2,,3,,1,,,,,,12,,1,,17,207,1,3,,

129DATA1,,,,,9,4,,1,,,,,,12,1,19,203,,,,,4,,3,,,11,1,,1,,12,,1,,,,1,1,19,203,,2,1,1,1,,,1,1,,,8,,2,,1,,,,,1,,5,,2,,,,,,20,202,,4,2,,,,1,1,1,1,,7,,7,,,,,3,,,,3,,,,21,201,2,2,

130DATA1,,,,,2,,,1,,15,,,2,,,,2,2,3,,23,200,1,4,3,,,,,,,2,1,13,,,,,2,,,1,,3,27,199,3,,1,,3,1,,,,,,1,1,4,,3,,1,1,,3,,1,,,1,,,27,199,3,1,1,1,,2,1,,,,2,4,1,,,,,1,,,6,1,,1,,,30,198,3

131DATA1,3,,3,4,,2,1,1,,,2,1,,,6,,,,,,33,195,,,,,1,1,,,,,,6,,2,,,,,,,1,,1,,2,,1,,2,,,,,,33,,,193,,,3,1,1,,,2,,3,,,,1,,,,,1,,6,,,,,,2,,42,187,1,,,,2,,,,,2,,3,,,1,,

132DATA0,1,,,,4,,1,,1,,1,,,,44,185,2,,,,3,,1,8,1,,1,,,,1,,,,1,,2,,,1,1,,47,183,1,,,,,1,2,,,1,,1,1,1,,,,,,,1,,1,2,3,1,2,,,,48,182,1,,,,1,1,1,,2,1,,1,,1,,,1,,,,1,3,3,,,,3,1,51,178

133DATA2,,,,,,,,2,,1,1,,1,,,,,5,5,3,,1,,58,175,3,,,,,,,,4,,,,,,3,,,2,,5,5,,63,171,2,2,,1,,,5,,,1,,,,6,1,3,72,169,3,,,,,1,,1,6,,1,9,1,1,74,167,3,,,1,,,,,,,7,12,,,76,163,7,1,,,

134DATA0,,1,5,16,77,160,9,2,,1,,,,,3,15,79,156,13,3,,1,,,3,17,79,152,17,2,,,,,,,1,1,,15,78,151,20,1,,1,,,2,18,77,150,23,2,,,,,1,19,75,149,27,3,2,19,74,146,32,,1,,1,19,73,144,36,3,,19,72,142,36,6,,19,71,141

135DATA37,7,,20,69,139,38,9,,14,,1,,1,68,136,40,11,,14,,2,,,67,134,43,10,,15,,,,,68,132,44,13,,13,,,,1,67,130,46,29,1,,68,129,48,26,,,1,1,67,127,50,27,1,,,,67,125,52,26,,,1,,68,124,54,24,,,,,5,,63,122

136DATA56,25,1,,6,,62,120,55,14,,10,1,,,,6,1,61,118,56,17,,9,,,,,7,1,60,116,57,3,2,12,,7,,,,,2,,67,114,59,1,,3,,11,,,,2,,1,,,,1,8,,60,112,61,,,16,,,,4,,1,,,,,9,,59,111,61,,,19,,,,,,1,,

137DATA0,,,,70,109,63,18,,,,,,2,,2,,,,,70,108,64,18,,,,,,,,1,1,,,,,,,,68,108,64,18,,,,2,,,,,,,,,,,70,108,64,18,,,,,,,,,2,,,,1,,69,54

I emailed the guy to see how he generated the code. There’s a few images I’d like to try my hand at getting on the IIe and IIc just for kicks. He answered me back. It’s apparently a pretty complicated process involving some shell scripting to convert a raster bit-stream into DATA statements that can then be download to the Apple II via the serial port.

I’ll hold off on that for now until I can get my hands on a Super Serial Card. In the meantime, I’ll have to settle on converting images into MacPaint format.