15 lines
301 B
QBasic
Executable File
15 lines
301 B
QBasic
Executable File
' This script is an example of MY-BASIC
|
|
' Copyright (c) 2011 - 2016 Wang Renxin. All rights reserved.
|
|
' For more information, see https://github.com/paladin-t/my_basic/
|
|
|
|
def area(a, b)
|
|
return call mul(a, b)
|
|
enddef
|
|
|
|
def mul(a, b)
|
|
return a * b
|
|
enddef
|
|
|
|
a = 3
|
|
b = 4
|
|
print a; b; area(a, b); |