A changing display for the 8K ROM in 2K. Each round picks four random graphics characters and a random step, then PLOTs a point while printing the characters, column by column from 54 down to -54. Because PLOT and PRINT treat negative values as positive, the drawing reverses direction halfway, giving shell-like “buildings”, some with a 3D look. A frame is drawn and the architect starts again.
The author COPYed designs he liked to the printer with BREAK and COPY, then CONT to go on.
Published in Syntax May 1984 (The Architect).
Image Gallery
Source Code
5 RAND
10 PRINT "QUIET, PLEASE. THE ARCHITECT IS DESIGNING A HIGH-RISE."
20 LET A$=CHR$ (INT (RND*4)+2)
30 LET B$=CHR$ (INT (RND*4)+2)
40 LET C$=CHR$ (INT (RND*4)+2)
50 LET D$=CHR$ (INT (RND*4)+2)
60 LET E$=A$+B$+C$+D$
70 LET A=INT (RND*3)+5
80 FOR J=54 TO -54 STEP -A
90 FOR K=1 TO 34
100 PLOT J,K
110 PRINT E$
120 NEXT K
130 NEXT J
140 PRINT AT 3,0;"▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
150 PRINT AT 4,0;"█"
160 FOR J=4 TO 21
170 PRINT AT J,31;"▐"
180 NEXT J
190 GOTO 20Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.