Category : Science and Education
Archive   : CDNPILOT.ZIP
Filename : PRINTSET.PAS

 
Output of file : PRINTSET.PAS contained in archive : CDNPILOT.ZIP
Program PrintSet;

Const
Filename = 'PrtCode';

Type
String4 = String[4];

Var
Initialize, Comp, FF : String4;
PRFile : File of String[4];
Ans : Char;

Begin
Writeln('Which printer are you using?');
Writeln;
Writeln('1. Epson');
Writeln('2. Toshiba');
Writeln;
Writeln('(Enter the number)');
Read(kbd,Ans);
If Ans = '1' then
Begin
Initialize := #64;
Comp := #15;
FF := #12
End;
If Ans = '2' then
Begin
Initialize := #10;
Comp := #27+#91;
FF := #12
End;
Assign(PRFile,Filename);
Rewrite(PRFile);
Write(PRFile, Initialize, Comp, FF);
Close(PRFile);
End.





  3 Responses to “Category : Science and Education
Archive   : CDNPILOT.ZIP
Filename : PRINTSET.PAS
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/