Star Micronics Rainbow NX-1000C User Manual page 58

330 FOR Y=-S TO S
340 FOR Z=-S TO S
350 X=ABS(Y)+ABS(Z)
360 C(Z+S)=X-(INT(X/7)*7)
370 NEXT Z
380 FOR X=O TO S+S
390 PRINT#4, C$;CHR$(C(X»;SQ$;
400 NEXT X
410 PRINT#4
420 FOR X=O TO S+S
430 PRINT#4, C$;CHR$(C(X»;SR$;
440 NEXT X
450 PRINT#4
460 NEXT Y
470 PRINT#4. E$;CHR$(64) :CLOSE4 :END
The result is shown in black and white below. For the actual colour
printout see the foldout inside the back cover.
IMAGE
()F
COLC)LJR
48