home *** CD-ROM | disk | FTP | other *** search
- 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
-