1 'Murray Cohn's (75166,2263) wonderful Ball of String
6 INPUT"PRINT PICTURE HOW MANY TIMES";T1
197 FORQ%=1TOT1
200 OPEN"DATA4"FORINPUTAS#1
205 LPRINT CHR$(27);"A";CHR$(8);
210 FORJ%=1TO18
215 LPRINT CHR$(27);"K";CHR$(120);CHR$(0);
220 FORI%=1TO120
225 INPUT#1,A
230 IF255-A=9THENA=17
235 LPRINT CHR$(255-A);
240 NEXTI%
250 LPRINT CHR$(10);:LPRINT CHR$(13);:NEXT
300 CLOSE#1
310 NEXT
400 PRINTERL;:PRINTERR:CLOSE#1