S.22　Symbol

Public Sub Proc22() 'Symbol.bas
    Dim IBC$
'      **********
'      * SYMBOL *
'      **********
    Dperas
    Dpwind 12.5, 12.5, 25
    Call FRAME(0!, 0!, 25!, 25!)
'
    IBC$ = "ABCDEFGHIabcdef12345"
    Call SYMBOL(4!, 1!, 1!, IBC$, 0!, 20)
    Italic True
    Call SYMBOL(4!, 2.5, 1!, IBC$, 0!, 20)
    Italic False
    Call SYMBOL(3!, 3!, 1!, IBC$, 90!, 20)
    Italic True
    Call SYMBOL(1.5, 3!, 1!, IBC$, 90!, 20)
    Italic False
    Call SYMBOL(5!, 4!, 1.3, IBC$, 45!, 20)
    Italic True
    Call SYMBOL(5!, 7!, 1.3, IBC$, 45!, 20)
End Sub