MAD Magazine No. 258 from October 1985 featured the official MAD Magazine Computer Program, written in BASIC for Apple, Atari, Commodore C64, and IBM. The program draws the MAD logo and Alfred E. Neuman by connecting 1044 vertices with lines.
The adapted BASIC version expects the origin of the coordinate system to be
located in the upper left, in contrast to the lower left the EGGX/ProCALL
library uses by default. We can configure the coordinate system through a call
to subroutine NEWWINDOW(), and simply mirror the X axis without
changing the program logic.
The drawing has been artificially slowed down. Remove the call to
MSLEEP(10) to show the result instantly (fig. 1). The
foreground and background colour can be changed through subroutines
NEWPENCOLOR() and GSETBGCOLOR().
Save the following listing in file alfred.f locally. The output
is shown in an X11 window.
C ******************************************************************
C
C ALFRED
C
C X11 PROGRAM THAT RENDERS ALFRED E. NEUMAN & THE MAD LOGO FROM CODE
C IN MAD MAGAZINE ISSUE, ORIGINALLY WRITTEN IN BASIC (1985). PORTED
C TO FORTRAN 77 BY PHILIPP ENGEL (2022).
C
C REQUIRES EGGX/PROCALL LIBRARY.
C
C ******************************************************************
PROGRAM ALFRED
EXTERNAL DRAWSTR, GCLOSE, GCLR, GGETCH, GOPEN, GSETBGCOLOR
EXTERNAL LINETO, MOVETO, MSLEEP, NEWPENCOLOR, NEWWINDOW
EXTERNAL WINNAME
INTEGER IW, IH, IXC, IYC, NVERTS
REAL SIZE
PARAMETER (IW=640, IH=400, IXC=300, IYC=20, NVERTS=2088)
PARAMETER (SIZE=1.2)
INTEGER IVERTY(NVERTS)
INTEGER IKEY, IWIN
INTEGER I, IX1, IY1, IX2, IY2
REAL FX, FY, LX, LY
C
C CREATE AN X11 WINDOW.
C
CALL GOPEN(IW, IH, IWIN)
CALL WINNAME(IWIN, 'ALFRED' // ACHAR(0))
CALL NEWWINDOW(IWIN, 0.0, REAL(IH - 1), REAL(IW - 1), 0.0)
CALL NEWPENCOLOR(IWIN, 0)
CALL GSETBGCOLOR(IWIN, 'DIMGRAY' // ACHAR(0))
CALL GCLR(IWIN)
C
C DRAW LINES BETWEEN VERTICES.
C
DO 10 I = 1, NVERTS, 4
IX1 = IVERTY(I)
IY1 = IVERTY(I + 1)
IX2 = IVERTY(I + 2)
IY2 = IVERTY(I + 3)
FX = IX1 * SIZE + IXC
FY = 199 - (IY1 + IYC)
LX = IX2 * SIZE + IXC
LY = 199 - (IY2 + IYC)
CALL MOVETO(IWIN, FX, FY)
CALL LINETO(IWIN, LX, LY)
CALL MOVETO(IWIN, FX + 1, FY)
CALL LINETO(IWIN, LX + 1, LY)
CALL MSLEEP(10)
10 CONTINUE
C
C OUTPUT TEXT.
C
CALL DRAWSTR(IWIN, 250.0, 300.0, 16.0,
& 'WHAT, ME WORRY?' // ACHAR(0), 0.0, -1)
CALL DRAWSTR(IWIN, 200.0, 320.0, 16.0,
& 'COPYRIGHT 1985 E.C. PUBLICATIONS' // ACHAR(0), 0.0, -1)
C
C WAIT FOR USER INPUT AND QUIT.
C
CALL GGETCH(IKEY)
CALL GCLOSE(IWIN)
DATA IVERTY /
&-27,-11,-23,-6,-28,-13,-22,-6,-20,-5,-12,-5,-27,-14,-26,-13,-38,
&-29,-42,-28,-40,-28,-50,-16,-8,13,0,13,-29,4,-29,9,-50,-17,-41,
&-28,-49,-17,-50,-8,-8,12,0,12,-28,5,-28,13,-50,-15,-49,-10,40,
&-26,42,-17,-4,9,-21,14,5,48,2,44,-53,-39,-45,-48,-55,-23,-55,-28,
&-61,-23,-58,-22,-42,-39,-43,-39,36,-52,36,-55,-37,-48,-32,-56,-32,
&-56,-26,-60,9,-74,33,-55,6,-12,12,-11,14,-8,24,-11,6,-13,10,-11,
&20,-9,10,-8,-23,-15,-24,-19,-26,-18,-22,-15,-25,-18,-22,-19,-23,
&-18,-21,-16,-49,2,-43,10,38,-11,43,-15,7,14,7,9,-9,13,-6,8,-5,-33,
&-4,-33,-6,-36,-6,-36,-5,-32,-5,-32,-7,-29,-7,-29,-39,-32,-38,-41,
&-62,-25,-54,-39,-50,-29,-50,-35,-54,-33,-57,-24,-38,-34,-39,-39,
&-51,-19,-60,-22,-57,-25,-50,-24,-48,-25,-46,-38,-42,-24,-42,-19,
&41,-26,43,-14,-3,7,-19,14,8,48,4,42,27,-38,31,-47,-29,-42,-16,-37,
&-11,-51,10,-48,26,-38,24,-47,-4,-73,14,-71,-3,-74,5,-74,5,-73,12,
&-72,8,-72,35,-57,-2,-48,5,-54,-15,-36,-20,-42,17,-34,32,-45,-6,
&-53,6,-48,40,-51,38,-43,39,-45,38,-50,38,-46,37,-53,37,-47,37,-46,
&15,-25,18,-24,23,-18,23,-20,12,-19,19,-18,8,-50,20,-49,-12,-53,-3,
&-62,-5,-49,14,-49,4,-62,16,-53,-41,-19,-41,-27,44,-14,43,-20,-22,
&13,-22,14,8,46,2,42,-40,-23,-39,-28,42,-26,50,-19,-23,14,-24,5,3,
&41,2,48,-51,-42,-39,-49,-47,-26,-49,-36,-53,-18,-59,-21,-45,-28,
&-53,-23,-40,-19,-37,-7,50,-18,50,-13,-25,5,-26,14,1,41,9,40,-22,
&-9,-19,-6,-21,-9,-18,-6,-21,-6,-11,-9,-19,-8,-16,-8,-57,-26,-57,
&-28,-37,-41,-37,-37,-59,-31,-50,-40,-39,-36,-36,-40,-5,-28,-6,-30,
&-6,-28,-7,-30,6,-28,5,-30,6,-29,6,-31,6,-37,9,-36,-12,-38,-2,-39,
&-6,-33,-2,-35,-13,-35,-8,-39,-20,-18,-17,-17,-14,-18,-15,-17,-17,
&-18,-16,-18,-20,-17,-14,-17,-39,-17,-35,-6,51,-14,48,-12,-24,8,
&-23,13,1,40,12,39,-36,-6,-36,-1,41,-14,40,-9,-23,8,-24,11,14,39,
&19,40,-26,34,-32,37,-32,37,-29,32,-29,32,-30,36,-29,32,-39,34,
&-35,-5,-35,-1,40,-13,41,-12,-26,7,-27,14,21,39,11,38,-61,-29,-56,
&-37,-47,-35,-42,-36,-49,-39,-45,-42,-61,-24,-59,-35,60,-24,55,-20,
&60,-23,61,-32,61,-29,61,-24,60,-29,59,-33,17,-53,5,-62,6,-48,17,
&-50,8,-48,2,-54,-28,-41,-18,-48,-14,-52,-4,-62,-5,-51,9,-51,-27,
&-43,-28,-47,-5,-62,8,-59,-46,14,-42,18,-45,25,-45,15,-42,18,-42,
&11,-43,11,-51,0,15,-19,18,-16,14,-16,18,-19,7,-18,8,-16,8,-17,11,
&-16,39,-42,38,-37,39,-40,40,-32,41,-33,40,-39,39,-34,39,-36,42,
&-40,43,-42,44,-42,45,-32,46,-36,45,-41,42,-38,43,-41,48,-11,47,7,
&41,-14,40,-9,15,37,15,36,17,36,19,36,-49,-28,-48,-37,-61,-32,-62,
&-27,-55,-35,-43,-49,-46,-34,-42,-35,-14,-65,-6,-71,14,-68,32,-57,
&18,-65,20,-63,14,-70,23,-65,31,-41,32,-43,3,-42,4,-43,-22,-43,-23,
&-42,-9,-52,-9,-52,30,-40,29,-45,14,-50,21,-48,-27,-46,-25,-46,-26,
&-47,-27,-47,-10,-10,-11,-15,-9,-11,-10,-15,-10,-13,-8,-13,-11,-11,
&-8,-12,21,-38,29,-44,-7,-48,-3,-48,-27,-45,-21,-47,-12,-55,-6,-61,
&48,6,49,-11,39,-10,41,-5,18,35,22,35,19,34,23,34,51,-3,45,8,40,-5,
&38,-11,23,35,43,17,45,17,27,33,46,-40,46,-36,43,-38,43,-39,46,-30,
&52,-33,47,-30,52,-32,57,-32,57,-27,44,-25,49,-21,7,-13,9,-8,10,-8,
&8,-12,23,-9,12,-7,11,-9,24,-10,57,-25,53,-24,52,-25,56,-24,56,-32,
&55,-26,56,-27,56,-29,52,-24,57,-26,-13,-13,-26,-17,-12,-16,-10,
&-18,-15,-14,-11,-18,-21,-14,-17,-14,18,-20,21,-17,12,-16,16,-19,8,
&-20,10,-19,13,-23,19,-23,-22,-22,-13,-21,-16,-22,-21,-23,-21,-21,
&-19,-23,-20,-21,-18,-21,47,4,49,-3,41,-4,37,2,46,16,41,16,41,16,
&47,9,37,4,41,-2,-49,-9,-48,-4,43,11,45,9,-2,11,1,11,-47,-4,-48,-9,
&-48,-3,-49,-1,2,11,8,8,4,11,9,9,46,-32,48,-28,49,-38,49,-35,50,
&-37,51,-25,51,-37,52,-30,-56,-23,-57,-29,-60,-24,-60,-33,-54,-23,
&-46,-29,-46,-40,-44,-42,-44,-34,-45,-38,-44,-37,-42,-37,-44,-38,
&-42,-38,-48,-46,-42,-49,21,-16,10,-18,22,-17,19,-25,20,-24,22,-19,
&10,-23,18,-25,-41,33,-35,34,-41,32,-38,32,-38,31,-42,31,-42,32,
&-45,30,-3,-36,-12,-37,7,-35,7,-35,-3,-37,-8,-36,-8,-38,-4,-38,8,
&-18,9,-16,-35,-45,-29,-58,-36,-46,-35,-53,-38,-48,-26,-57,-35,-48,
&-30,-58,-34,-52,-25,-59,-32,-55,-25,-60,-34,-49,-14,-68,-36,-51,
&-22,-61,-49,-3,-46,5,10,9,4,15,3,15,6,10,6,11,6,14,47,-22,52,-21,
&48,-21,56,-20,55,-21,48,-21,56,-20,59,-22,24,-64,32,-60,30,-59,34,
&-57,33,-59,35,-52,35,-56,36,-49,61,-32,42,-51,43,-51,51,-41,50,
&-41,45,-46,58,-37,54,-41,-39,30,-45,23,-38,30,-46,21,-46,24,-47,
&11,-46,12,-42,27,7,-29,6,-31,13,-35,13,-35,4,-37,8,-35,5,-36,8,
&-37,-16,-49,-8,-50,9,-53,9,-49,20,-37,29,-39,-17,-39,-24,-41,21,
&-36,32,-44,-2,-62,5,-61,9,-58,16,-53,-26,-44,-22,-46,-51,1,-43,12,
&7,14,15,13,13,11,17,8,20,10,27,4,-42,11,-49,2,8,13,19,12,19,11,10,
&12,22,9,27,5,-24,-56,-22,-59,-23,-58,-4,-74,-23,-56,-15,-67,-21,
&-57,-8,-72,-7,-73,-12,-69,-12,-68,-4,-71,-21,-58,-13,-68,-10,-71,
&8,-74,12,-32,14,-35,13,-32,12,-37,14,-34,13,-37,11,-37,14,-36,-17,
&-6,-10,-8,-13,-9,-10,-6,-10,-7,-11,-6,-12,-6,-15,-6,17,-35,21,-39,
&7,-62,14,-56,14,-51,-17,-48,4,-43,4,-47,-11,-12,-12,-14,-12,-13,
&-9,-15,-20,-16,-15,-16,-17,-16,-15,-16,-11,-22,-12,-24,-9,-22,-12,
&-23,-9,-20,-11,-24,-8,-20,-9,-23,-34,-2,-33,6,25,7,29,7,30,8,30,6,
&31,8,35,9,-33,3,-33,-1,33,8,36,8,36,7,36,2,35,4,35,7,-32,6,-31,11,
&-30,11,-29,4,3,48,-3,41,-5,41,2,48,-5,-59,-6,-62,12,-52,21,-47,-2,
&-54,-2,-53,-4,-60,3,-62,-44,-47,-41,-49,-54,-24,-56,-30,-36,-43,
&-37,-48,-47,-37,-49,-32,-40,-48,-45,-46,-38,-47,-35,-44,-58,-36,
&-51,-40,-58,-35,-48,-45,24,-42,32,-42,-3,-61,-3,-61,-54,-19,-50,
&-18,-5,-72,9,-72,10,-22,10,-22,19,-22,19,-22,13,-16,13,-16,9,-19,
&10,-20,-25,-42,-21,-41,2,-53,4,-54,29,-40,31,-46,26,-43,22,-48,6,
&-10,18,-6,14,-6,21,-7,22,-8,6,-11,1,-38,-14,-36,-13,-37,-11,-32,
&-14,-35,-12,-33,55,-37,41,-51,46,-48,61,-33,41,-49,37,-48,-10,-21,
&-10,-24,-28,-14,-22,-7,-3,43,-26,35,-26,35,-5,41,-9,39,-20,36,-26,
&34,-26,37,-6,-58,1,-60,-24,-43,-21,-42,3,-45,3,-46,4,-52,4,-53,72,
&73,72,63,71,74,70,78,71,62,70,58,69,57,65,53,70,78,65,83,64,83,58,
&86,64,53,55,48,56,49,43,49,47,48,55,48,58,86,46,86,42,84,46,85,44,
&50,39,52,42,50,39,51,41,85,40,85,39,86,33,86,38,51,33,48,35,79,35,
&58,34,79,34,58,34,57,32,56,34,80,32,79,32,85,30,83,31,83,31,80,30,
&82,30,79,31,55,29,55,33,49,23,49,32,48,25,48,24,50,22,50,28,55,17,
&78,18,79,20,79,20,80,20,84,21,51,18,48,19,50,17,48,16,48,14,48,17,
&49,14,49,19,85,11,86,13,48,12,53,12,48,11,53,11,54,15,57,15,58,14,
&59,14,59,-1,59,14,58,-2,58,10,85,7,83,6,84,1,86,0,86,-5,85,-6,84,
&-6,80,-7,83,-7,79,-5,79,-3,79,-2,78,-13,56,-14,56,-3,78,-2,59,-4,
&57,-4,56,-1,54,0,55,1,55,1,54,1,50,0,50,-1,48,-2,48,-7,48,-2,49,
&-6,49,-6,48,-9,51,-7,48,-10,50,-11,49,-17,49,-12,48,-16,48,-17,48,
&-21,51,-18,48,-22,50,-15,55,-16,55,-17,56,-22,78,-21,79,-19,79,
&-19,80,-19,84,-23,49,-30,49,-24,48,-30,48,-31,48,-31,55,-32,54,
&-32,49,-30,55,-28,55,-20,85,-25,86,-26,85,-29,83,-28,55,-32,70,
&-28,55,-31,71,-28,83,-33,86,-34,86,-37,86,-32,70,-41,49,-38,85,
&-40,84,-40,83,-40,81,-41,83,-41,79,-40,80,-37,78,-37,78,-41,65,
&-42,65,-38,78,-43,64,-48,78,-47,79,-45,79,-45,80,-45,84,-46,85,
&-51,86,-42,49,-47,49,-42,48,-48,48,-48,48,-56,70,-48,49,-56,71,
&-56,71,-60,56,-52,85,-54,84,-55,83,-59,85,-60,86,-64,86,-59,55,
&-58,54,-57,54,-55,55,-55,54,-55,50,-56,50,-57,48,-57,49,-61,49,
&-58,48,-60,48,-61,48,-64,51,-62,48,-65,50,-65,85,-67,84,-67,83,
&-67,79,-68,83,-68,79,-66,79,-64,79,-63,78,-68,56,-69,55,-64,78,
&-66,49,-72,49,-68,48,-73,48,-69,55,-73,55,-73,55,-73,48,-74,49,
&-74,54,61,71,61,65,60,73,60,63,59,73,59,72,60,65,58,60,59,61,54,
&56,59,74,55,78,59,75,54,80,54,80,48,80,46,79,55,79,54,56,48,56,
&47,57,46,57,47,78,46,78,45,78,45,58,7,76,11,66,10,66,6,76,9,66,1,
&66,0,66,6,75/
ENDThe FORTRAN remake has to be linked against the static
EGGX/ProCALL library
libeggx.a:
$ gfortran -o alfred alfred.f libeggx.a -lX11 -lm
$ ./alfredAlternatively, we can (trans-)compile the program with f2c:
$ f2c -NC198 alfred.f
alfred.f:
MAIN alfred:
$ cc -I/usr/local/include/ -L/usr/local/lib/ -o alfred \
alfred.c /usr/local/lib/libf2c.a libeggx.a -lX11 -lm
$ ./alfred
