'Prints text in graphic screen
'Murat AYDIN <m-aydin@usa.net>


DECLARE SUB PrintROMtable (a$, x%, y%, stepX%, stepY%, CO%, katsayi)
SCREEN 12
CLS : LINE (0, 0)-(639, 460), 15, B: PAINT (300, 200), 3, 15


a% = 0  'space number from line beginning
B% = 100 'Space number from top of screen
c% = 8   'Space number between characters
d% = 0   'Horizontal angle of the current line
e% = 1   'Color
f = 1    'Character height

FOR q% = 10 TO 0 STEP -1

PrintROMtable "Murat Aydin ", a%, B%, c%, d%, e%, f

NEXT

SUB PrintROMtable (a$, x%, y%, stepX%, stepY%, CO%, katsayi) STATIC

'a$= "bas�lacak dizi"
'x%=yatay koordinat (piksel olarak)
'y%=dikey koordinat (piksel olarak)
'stepx% = ard���k iki karekter aras�ndaki mesafe
'stepy% = ard���k iki karekter ayn� hizada ise =0, - de�erler yaz�y� yukar�, + de�erler yaz� a�a��
'CO%= renk
'katsayi= karekterin dikey boyutu


DEF SEG = &HFFA6
    FOR i% = 1 TO LEN(a$)
        addr% = 8 * ASC(MID$(a$, i%)) + 14
    FOR j% = 0 TO 7
        mask& = PEEK(addr% + j%) * 128
        LINE (x% + 7, y% + j% * katsayi)-(x%, y% + j% * katsayi), CO%, , mask&
    NEXT
        x% = x% + stepX%
        y% = y% + stepY%
    NEXT
DEF SEG

END SUB