230 ,
240 'Select download
250 LPRINT CHR$(27) "%" CHR$(1);
260 '
270 'Print character 50 times
280 FOR I=1 TO 50
290LPRINT "=";
300NEXT:LPRINT
310'
320'Print character 50 times
330FOR I=1 TO 50
340LPRINT ">";
350NEXT:LPRINT
351FOR I=1 TO 25
352LPRINT "=>";
353NEXT
360,
370'Deselect download
380 LPRINT CHR$(27) "%" CHR$(0)
390END
400 ,
410 'Small chain
420 DATA 0,162,0,1,17,0,2,40,128,4,68,64,8,130,32
430 DATA 4,68,64,2,40,128,1,17,0,0,138,0,0,68,0
440 '
450 'Large chain
460 DATA 0,162,0,1,17,0,2,40,128,4,68,64,8,130,32
470 DATA 17,1,16,34,0,136,17,1,16,8,130,32,4,68,64
480 DATA 2,40,128,1,17,0,0,138,0,0,68,0
63