0 rem PCjr thermal printer driver by Bob Scott 73125,1437 10 MAXFILES=2:DEFINTA-Z:OPEN"COM:58N2D"FOROUTPUTAS2:PRINT#2,CHR$(27);"C";CHR$(2); 20 FILES:INPUT"File: ";A$:OPENA$FORINPUTAS1 30 IFEOF(1)THENPRINT#2,"":CLOSE:MAXFILES=1:MENU 40 A$=INPUT$(1,1) 50 IF (INP(187)AND16)=16THEN50ELSEPRINT#2,A$;:GOTO30