102
370 LPRINT
380 LPRINTCHR$(9);
390 FOR I=0 TO 488 STEP 50
400LPRINTCHR$(61);
410NEXT I
420LPRINT
430LPRINT"JAPAN";CHRS(g);
440FOR I=0 TO 347 STEP 50
450LPRINTCHR$(60);
460NEXT I
470LPRINT
480LPRINTCHR$(9);
490FOR I=0 TO 493 STEP 50
500LPRINTCHR$(61);
510NEXT I
520 LPRINT
530
540
550 FOR I=2 TO 8 STEP 2
560 LPRINTSCALES;
570 NEXT I
580
590 LPRINTCHR$(9);" ";
600 FOR I=2 TO 8 STEP 2
610 LPRINT)(";I;
620 NEXT I
630 LPRINTCHR$(27);"%0";CHR(0)$
640 LPRINTCHR$(27);"SO";
