Apple II Programs 
Byte-sized delights that are guaranteed to ward off hysteria and melancholy!
22 March 2025
Vintage Communication Device
by Lee Fastenau
Program
0HGR2:FORI=0TO12:READR,X,Y,W,H:GOSUB1:NEXT:FORJ=0TO3:FORI=0TO3:C=0:X=109+I*16:Y=44+(J+(J=3))*20:GOSUB1:NEXTI,J:END:DATA8,99,10,80,160,9,100,11,78,160,9,101,12,76,25,7,101,14,76,25,6,103,15,72,150,6,105,17,68,147,1,132,25,14,3,1,132,24,14,3
1C=3-C:HCOLOR=C:FORN=RTOH-R:HPLOTX,Y+NTOX+W,Y+N:NEXT:FORN=0TOR:D=R-SQR(R*R-(R-N)*(R-N)):HPLOTX+D+.99,Y+NTOX+W-D,Y+N:HPLOTX+D+.99,Y+H-NTOX+W-D,Y+H-N:NEXT:RETURN:DATA6,132,145,14,14,6,130,142,18,14,1,136,147,6,6,0,137,148,4,4,1,109,44,12,12
Information
Remember when phones looked like this?
Discussion
CALL-151 Group Permalink (private)