'----------------------------------------------------
'              (c) 1997,1998 MCS Electronics
'              DECLARE.BAS
'----------------------------------------------------
Declare Sub Test(a As Byte , B1 As Byte) 'declare the subs
Declare Sub Test2
Declare Sub Test3(bl As Bit)

Dim A As Byte , B1 As Byte , Bl As Bit  'dim used variables

B1 = 3
Call Test2                              'call sub
Call Test(1 , B1)                       'call sub with parameters
Print B1
Call Test3(p1.1)

End


'end your code with the subprograms
'note that the same variables must be used as the declared ones
'also note that variables are global
Sub Test(a As Byte , B1 As Byte)         'start sub
    Print A ; " " ; B1                   'print passed variables
    B1 = 3
End Sub

Sub Test2                               'sub without parameters
    Print "No parameters"
End Sub

Sub Test3(bl As Bit)
    Print Bl
End Sub