Owner's Manual

230 ,
240 'Select download
250 LPRINT CHR$(27) "%" CHR$(1);
260 '
270 'Print character 50 times
280 FOR I=1 TO 50
290 LPRINT "=";
300 NEXT:LPRINT
310 '
320 'Print character 50 times
330 FOR I=1 TO 50
340 LPRINT ">";
350 NEXT:LPRINT
351 FOR I=1 TO 25
352 LPRINT "=>";
353 NEXT
360 ,
370 'Deselect download
380 LPRINT CHR$(27) "%" CHR$(0)
390 END
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