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