2 ms·
Bill Atkinson had incredible programming style. I'll admit, sometimes Pascal reads like poetry. I think it must be the paren-less procedure syntax: REPEAT
by nxobject 3y ago
Bill Atkinson had incredible programming style. I'll admit, sometimes Pascal reads like poetry. I think it must be the paren-less procedure syntax:
REPEAT
UnloadSeg(@InitOnce); { SegInit }
UnloadSeg(@PrintDoc); { SegPrint }
UnloadSeg(@CutOrCopy); { SegScrap }
UnloadSeg(@Paste); { SegPaste }
UnloadSeg(@Rotate); { SegFlip }
UnloadSeg(@ShowPage); { SegPage }
UnloadSeg(@DrawPat); { SegUpdate }
UnloadSeg(@EditPat); { SegPatEdit }
UnloadSeg(@ChooseBrush); { SegBrush }
UnloadSeg(@Symmetry); { SegSym }
UnloadSeg(@ShowPicture); { SegHelp }
IF heapJam THEN
BEGIN
tempLong := MaxMem(tempLong); { purge heap }
heapJam := FALSE;
END;
SystemTask; { give desk accessories a chance }
IF active THEN TrackCursor;
IF GetNextEvent(everyEvent,theEvent) THEN ProcessTheEvent;
IF active AND NOT quitFlag AND (DiskSpace(0) < minDiskSpace) THEN
BEGIN
tempWord := SaveAlert(diskAlrt);
quitFlag := TRUE;
END;
IF quitFlag THEN QuitProgram;
UNTIL quitFlag;
ExitToShell;
QuickDraw in 68k assembler is beautiful, too; there's a story from the first Mac's development that, when the Macintosh team tried to rewrite as much of the Toolbox in order to fit it after asembly in 68KB of ROM, Bill Atkinson refused to touch QuickDraw [1].
[1] https://www.folklore.org/StoryView.py?project=Macintosh&story=Were_Not_Hackers!.txt https://www.folklore.org/StoryView.py?project=Macintosh&stor...