Star Micronics Radix User Manual page 183

Putting Radix to Work For You
169
2510 'Subroutine to clear screen & position cursor.
2520 CLS : LOCATE l@,TB : RETURN
3000 '
3010 I Subroutine to print sample
3020
FOR I = 1 TO 4 : FOR J =
33
TO 126
303pI PRINT #l, CHR$(J);
3040 NEXT : PRINT #l, CHR$(l0) : NEXT
3050 RETURN