Category : BASIC Source Code
Archive   : QBFAQR01.ZIP
Filename : PRINTC.BAS

 
Output of file : PRINTC.BAS contained in archive : QBFAQR01.ZIP
DEFINT A-Z

FUNCTION CLR$(C)
IF C < 0 OR C > 31 THEN CLR$ = "@": EXIT FUNCTION
CLR$ = CHR$(C+128)
END FUNCTION

SUB Printc (s$, ErrC)
ErrC = 0
FOR I = 1 to LEN(s$) - 1
A = ASC(MID$(s$, I, 1))
B = ASC(MID$(s$, I + 1, 1))
IF A > 160 OR B > 160 THEN ErrC = 1: EXIT SUB
IF A > 127 THEN
IF B > 127 THEN
COLOR A - 128, B - 128
END IF
ELSE
PRINT CHR$(A);
END IF
NEXT
END SUB


  3 Responses to “Category : BASIC Source Code
Archive   : QBFAQR01.ZIP
Filename : PRINTC.BAS
”

  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/