Kód: Vybrať všetko
$hwstack=40
$swstack=16
$framesize=32
Moderátori: psichac, Moderátori
Kód: Vybrať všetko
$hwstack=40
$swstack=16
$framesize=32
Kód: Vybrať všetko
Dim a As Byte, b1 As Byte, c As Byte
Declare Sub Test(a As Byte) 'deklarace procedury
Do
a = 1
b1 = 2
c = 3
Print a ; b1 ; c
Call Test(b1)
Print a ;b1 ; c
Loop
End
Sub Test(a as byte)
Print a ; b1 ; c
End Sub