CZ()BTC U/W-FOCAL:SKETCH09/15/77?MB
BET ;V -1;V,;O I?MB8BJX FBUF(,512+FADC(3)) FBUF(1,FADC(7));L B .1?M?CQBTI (FIN()-255),.3;V 512+FADC(3),FADC(7);G .1?M?B^A :-1;O I,E?M?M?L S  LTA0:SKETCH?M?M;V 512+FADC(3),FADC(7);G .1?M?1?.1?M(FIN()-255),1.05;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;
;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G;G

Note: Lines longer than 256 characters were wrapped