10 REM PROGRAM NAME IS OKI-TST by Terry Whalin
20 PRINT CHR$(26)
30 PRINT:PRINT:PRINT "            OKIDATA TESTING PROGRAM ":PRINT:PRINT
40 PRINT "This program tests the various print features of "
50 PRINT "the Okidata  Microline 92  and 93  printers. The "
60 PRINT "various type  possibilities will  print on  your "
70 PRINT "Okidata only  if the printer is properly hooked "
80 PRINT "up and turned on. The basic information for this "
90 PRINT "program is taken from Okidata manual  Chapter  4  "
100 PRINT "entitled 'Bells and Whistles' pages 63-89. "
110 PRINT 
120 PRINT "NOTE The program is designed to pause for adding "
130 PRINT "another sheet of paper but works faster with two "
140 PRINT "connected pages of fan fold computer paper."
150 PRINT "Good testing!"
160 PRINT
170 PRINT
180 PRINT "PLEASE TURN ON YOUR PRINTER & PRESS ANY KEY TO BEGIN"
190 Y$=INPUT$(1)
200 LPRINT CHR$(30);"HELLO! This is normal printing"
210 LPRINT CHR$(31);"HELLO! This is double the normal width."
220 LPRINT
230 LPRINT
240 LPRINT CHR$(30);"Here is an example of various character sizes."
250 LPRINT
260 LPRINT "PICA pica 10 CPI"
270 LPRINT CHR$(28);"ELITE elite 12 CPI"
280 LPRINT CHR$(29);"CONDENSED condensed 17.1 CPI"
290 LPRINT CHR$(30);"PICA again"
300 LPRINT CHR$(31);"DOUBLE Pica"
310 LPRINT CHR$(28);CHR$(31);"DOUBLE Elite"
320 LPRINT CHR$(29);CHR$(31);"DOUBLE Condensed"
330 LPRINT CHR$(30);"Pica  ";CHR$(28);"Elite  ";CHR$(29);"Condensed  ";CHR$(30);"Pica again"
340 LPRINT
350 LPRINT CHR$(27);CHR$(49);"Correspondence Quality printing"
360 LPRINT
370 LPRINT "PICA pica 10 CPI"
380 LPRINT CHR$(28);"ELITE elite 12 CPI"
390 LPRINT CHR$(29);"CONDENSED condensed 17.1 CPI"
400 LPRINT CHR$(30);"PICA again"
410 LPRINT CHR$(31);"DOUBLE Pica"
420 LPRINT CHR$(28);CHR$(31);"DOUBLE Elite"
430 LPRINT CHR$(29);CHR$(31);"DOUBLE condensed"
440 LPRINT CHR$(30);"Pica  ";CHR$(28);"Elite  ";CHR$(29);"Condensed ";CHR$(30);"Pica again"
450 LPRINT
460 LPRINT CHR$(27);CHR$(48);"Data Processing"
470 LPRINT
480 LPRINT "PICA pica 10 CPI"
490 LPRINT CHR$(28);"ELITE elite 12 CPI"
500 LPRINT CHR$(29);"CONDENSED ondensed 17.1 CPI"
510 LPRINT CHR$(30);"PICA again"
520 LPRINT CHR$(31);"DOUBLE Pica"
530 LPRINT CHR$(28);CHR$(31);"DOUBLE Elite"
540 LPRINT CHR$(29);CHR$(31);"DOUBLE Condensed"
550 LPRINT CHR$(30);"Pica  ";CHR$(28);"Elite  ";CHR$(29);"Condensed  ";CHR$(30);"Pica again"
560 LPRINT
570 LPRINT CHR$(27);CHR$(49);"Character spacing (Correspondence quality only)"
580 LPRINT "NORMAL SPACING - 3/120 IN."
590 LPRINT CHR$(27);CHR$(78);CHR$(11);
600 LPRINT "SPACING 14/120 IN."
610 LPRINT CHR$(27);CHR$(78);CHR$(0);
620 LPRINT "NORMAL SPACING AGAIN"
630 LPRINT CHR$(27);CHR$(48); "Back to Data processing"
640 LPRINT
650 LPRINT "The following is to test line spacing:"
660 LPRINT CHR$(27);"1"
670 FOR I=1 TO 6
680 LPRINT "6 lines per inch"
690 NEXT I
700 LPRINT CHR$(27);"8"
710 FOR J=1 TO 8
720 LPRINT "8 lines per inch"
730 NEXT J
740 PRINT CHR$(26):PRINT:PRINT
750 INPUT "Clean sheet of paper in position (Y or N) ";N$
760 IF N$="Y" THEN GOTO 800
770 IF N$="y" THEN GOTO 800
780 IF N$="N" THEN GOTO 750
790 IF N$="n" THEN GOTO 750
800 FOR K=0 TO 15
810 LPRINT CHR$(27); "%9";CHR$(K);
820 LPRINT "variable line spacing"
830 NEXT K
840 LPRINT CHR$(27);"6"
850 LPRINT "Return to 6 lines per inch"
860 LPRINT "6 lines per inch"
870 LPRINT
880 LPRINT CHR$(27);CHR$(48); "EMPHASIZED and ENHANCED print"
890 LPRINT "only in the Data mode ":LPRINT
900 LPRINT "The word ";CHR$(27);CHR$(84);"Emphasized ";CHR$(27);CHR$(73);"is in emphasized print."
910 LPRINT CHR$(27);CHR$(84);"This whole like is emphasized.";CHR$(27);CHR$(73)
920 LPRINT "The word ";CHR$(27);CHR$(72);"enhanced ";CHR$(27);CHR$(73);"is enhanced print."
930 LPRINT CHR$(27);CHR$(84);CHR$(27);CHR$(72);"Emphasized and Enhanced together,";CHR$(27);CHR$(73);"normal"
940 LPRINT
950 LPRINT "UNDERLINING"
960 LPRINT
970 LPRINT "Start ";CHR$(27);CHR$(67);"underlined printing";CHR$(27);CHR$(68); " stop"
980 LPRINT
990 LPRINT "SUPERSCRIPTS & SUBSCRIPTS":LPRINT
1000 LPRINT "OKIGRAPH";CHR$(27);CHR$(74);"tm";CHR$(27);CHR$(76);" H";CHR$(27);CHR$(76);"2";CHR$(27);CHR$(74);"0"
1010 LPRINT
1020 LPRINT "DIRECT LINE SKIP"
1030 LPRINT "FIRST LINE";
1040 LPRINT CHR$(27);CHR$(11);"05";"SKIPPED FIVE LINES"
1050 LPRINT
1060 END
"DIRECT LINE SKIP"
1030 LPRINT "FIRST LINE";
1040 LPRINT CHR$(27);CHR$(11);"05";"SKIPPED FIVE LINES"
105