Apple II Programs 
Byte-sized delights that are guaranteed to ward off hysteria and melancholy!
9 November 2024
Feeling Industrious
by Lee Fastenau
Program
0HGR2:HCOLOR=4:HPLOT0,0:CALL62454:X=138:Y=140:FORN=0TO10:READD(N),W(N),H(N):GOSUB1:NEXT:X=122:Y=93:H(5)=60:FORN=5TO10:GOSUB1:NEXT:END:DATA66,75,0,54,51,15,76,51,20,54,51,5,77,51,0,54,6,45,55,6,0,44,4,0,76,4,4,76,7,4,76,3,3
1X=X+(N>7)*4:Y=Y-(N=8)*7:C=D(N):W=W(N):H=H(N):C%=C/10:C(0)=C%:C(1)=C-C%*10:FORI=-WTOW:HCOLOR=C(I>0):J=W/2-ABS(I/2):HPLOTX+I,Y-J-ABS(H)TOX+I,Y+J:NEXT:Y=Y-H*(H>0):RETURN
Information
Someday, I’ll fit a whole procedurally generated world into one or two lines of Applesoft, but until I get good, we’ll have to settle for one building.
I’m not gonna lie. My goal was to draw a house instead of a factory, but my drawing routine has a strong bias towards drawing symmetrical stacks of boxes. Houses with nice curb appeal don’t generally look like stacks of boxes, so went for something more industrial. I also briefly considered turning it into a birthday cake.
Side Note:
Going forward, programs will be dated based on when I get around to posting them to this site, and not when I originally shared them elsewhere (e.g., the Apple II Enthusiasts Facebook group). This feels sloppy and inconsistent with how I’ve been doing it up until now, but saying it out loud makes me feel better about it.
Discussion
Apple II Enthusiasts Group Permalink