Screen Maker II

30 Years Late. Screen Maker II has Finally been Released. Ported and Running on iPhone and iPad. Tap to Make a New Screen. Random Colourful Squares. Long-press to Save to Photos. Enjoy the Chaos and Screen Maker II - 30 Year Anniversary Edition. --- Original Turbo Pascal 6.0 Version --- program ScreenMakerII; uses Crt, Graph; var Gd, Gm: Integer; i, x, y, size: Integer; bgColor, color: Word; ch: Char; begin Gd := Detect; InitGraph(Gd, Gm, ''); if not (GraphResult = grOk) then begin Writeln('Graphics initialization failed!'); Halt(1); end; Randomize; Writeln('ScreenMaker II'); Writeln('Press any key to Make a New Screen'); Writeln('Press ESC to Quit!'); repeat ClearDevice; bgColor := Random(16); SetFillStyle(SolidFill, bgColor); Bar(0, 0, GetMaxX, GetMaxY); for i := 1 to 160 do begin x := Random(GetMaxX); y := Random(GetMaxY); size := Random(90) + 25; color := Random(16); SetFillStyle(SolidFill, color); SetColor(color); Bar(x, y, x + size, y + size); end; repeat ch := ReadKey; until not (ch = #0); until ch = #27; CloseGraph; end.