For older posts, hit up the Archive or Category links in the right sidebar

 


RescueMyClassicMac.com

Do you need old system software disks to boot your vintage Mac?


MailFromCupertino.com

It's fun to look back at old Apple emails. Check them out.


This site is not affiliated with Apple, Inc.
All company logos and product names may be registered trademarks and are hereby acknowledged.

© 2004-2022 Kevin Rye. All Rights Reserved.

For older posts, hit up the Archive or Category links in the right sidebar

 

AppleToTheCore.me

I'm a total Apple addict, as you might tell.

Steve Jobs in BASIC

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.

Pasted Graphic 1106

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:

Pasted Graphic 1107

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

Pasted Graphic 1108

Pasted Graphic 1109

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%=320 HCOLOR=C%:READP%:P%=P%+130 IFP%=0THENC%=3-C%:GOTO2040 IFX%+P%<280THENHPLOTX%,Y%TOX%+P%-1,Y%:X%=X%+P%:P%=0:GOTO3050 HPLOTX%,Y%TO279,Y%:P%=P%-(280-X%):X%=0:Y%=Y%+1:IFY%<192THEN3060 GOTO60100DATA969,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,,15102DATA201,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,,,,,,,,,,,19105DATA189,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,,,43106DATA0,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,,,,,55109DATA0,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,,1120DATA2,,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,,19124DATA0,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,,3125DATA0,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,,12127DATA0,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,3131DATA1,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,178133DATA2,,,,,,,,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,141135DATA37,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,122136DATA56,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.

Pasted Graphic 1110