Skip to content

Instantly share code, notes, and snippets.

@BigEd

BigEd/rheolism-beeb

Created September 30, 2015 09:23
Show Gist options
  • Save BigEd/1ac1c0ea898886551675 to your computer and use it in GitHub Desktop.
Save BigEd/1ac1c0ea898886551675 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
rheolism-beeb
0d=d:IFd VDUd:p=POINT(64*POS,1E3-VPOS*32):RETURN ELSEMODE2:GCOL0,-9:CLG
1d=9:REPEATVDU30:REPEATGOSUBFALSE:IFPOS=15VDU28,5,VPOS,14;11,26:IF0ELSEIFp=0PRINT:UNTIL0ELSEUNTILVPOS=25
2b=ABSRND MOD7:k=0:VDU31,9,3
3REPEATg=9-INKEY6MOD3
4FORl=TRUE TO1:o=l ANDSGNo
5IFo=l COLOURb-15:VDUl EORg:k=k+(g=7AND9-6*l)
6IF0ELSEFORf=0TO11:d=f/3OR2EORd:GOSUBFALSE
7IF2^((f+k)MOD12)AND975AND&C2590EC/8^b VDU2080*ABSl;:o=o+p:IF0ELSENEXT,
8VDU20:UNTILo*LOGg:UNTIL0
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment