Another Brick in the Wall

Olly Betts

"The present letter is a very long one, simply because I had no leisure to make it shorter."
— Blaise Pascal (1623-1662)

Third Year at University

Entrance to Whewhell's Court, Trinity College, Cambridge

K Staircase, Whewhell's Court

Acorn Archimedes

Acorn A3020

Rheolism

0d=d:IFdVDUd:a=POINT(32*POS,31-VPOS<<5):
RETURNELSEMODE9:GCOL-9:CLG:OFF:d=9:REPEA
TVDU30:REPEATGOSUBFALSE:IFPOS=28VDUPOS,1
5,VPOS,24;11,26:IF0ELSEIFa=0PRINT:UNTIL0
ELSEUNTILVPOS=25:v=ABSRNDMOD7:i=0:VDU489
5;3:REPEATm=9-INKEY6MOD3:FORr=TRUETO1:t=
rANDSGNt:IFt=rCOLOURv-15:VDUrEORm:i+=m=7
AND9-6*r:IF0ELSEFORn=0TO11:d=n/3OR2EORd:
GOSUBFALSE:IF1<<(n+i)MOD12AND975AND&C259
0EC/8^vVDU2080*ABSr;:t+=a:IF0ELSENEXT,:V
DU20:UNTILt*LOGm:UNTILVPOS=3

Extra Rheolism

0MODE9:OFF:GCOL-9:CLG:REPEATs=s+VPOS:PRI
NTCHR$30s:REPEATSYS6,135TOi,p,d:PRINTTAB
(p=0)CHR$9;:IFPOS=22VDU3100;VPOS,21;6667
;:UNTIL0ELSEUNTILVPOS=25:v=ABSRNDMOD7:VD
U31:COLOUR3:REPEATm=9-INKEY(INKEYTRUEOR6
)MOD3:FORr=TRUETO1:t=rANDSGNt:IFt=rCOLOU
Rv-15:VDUrEORm:i+=m=7AND9-6*r:IF0ELSEFOR
n=0TO11:d=nDIV3OR2EORd:VDUd:IF1<<(n+i)MO
D12AND&C2590ECDIV8^vAND975t+=POINT(p*POS
,31-VPOS<<5):IFrVDUp,8:IF0ELSENEXT,:VDU2
0:UNTILt*LOGm:UNTILVPOS=3:Z

Extra Rheolism

BBC Micro

Acorn BBC Micro

BBC Micro Version?

0MODE9:OFF:GCOL-9:CLG:REPEATs=s+VPOS:PRI
NTCHR$30s:REPEATSYS6,135TOi,p,d:PRINTTAB
(p=0)CHR$9;:IFPOS=22VDU3100;VPOS,21;6667
;:UNTIL0ELSEUNTILVPOS=25:v=ABSRNDMOD7:VD
U31:COLOUR3:REPEATm=9-INKEY(INKEYTRUEOR6
)MOD3:FORr=TRUETO1:t=rANDSGNt:IFt=rCOLOU
Rv-15:VDUrEORm:i+=m=7AND9-6*r:IF0ELSEFOR
n=0TO11:d=nDIV3OR2EORd:VDUd:IF1<<(n+i)MO
D12AND&C2590ECDIV8^vAND975t+=POINT(p*POS
,31-VPOS<<5):IFrVDUp,8:IF0ELSENEXT,:VDU2
0:UNTILt*LOGm:UNTILVPOS=3:Z

Demo

In Summary

"I don't need no ARMs around me"
— Roger Waters, Another Brick in the Wall, Pt. 3

Game Over

 Questions welcome, now (if time) or later

Links

 

Image credits: