1GR
2C=4*PEEK(2166+I)-192+(PEEK(2278+I/3)-35)/4^(I-INT(I/3)*3)
3FORX=XTOX+1:COLOR=C:PLOTX,I/8:C=C/16:NEXT:X=X*(X<15):I=I+1:GOTO2
4"RO^22RDYR[22000$O2200000^200A1$-R0@AjO102@?/MlAL0a1$AmCL0A30!jCi1a100JAl3A300@5iO@C00a1jo@aCC7.oj1AaaAIoNO0A5-mOV&S/#S####S#2#32#S&#_/#0&#S##2#S2#/&S