args.bas

来自「由一个古老的BASIC解释器改进而成, 保留了ANSI C固有的艺术美感.」· BAS 代码 · 共 9 行

v= sysvarptr
n = peek (v + 4) + 256 * peek (v + 5)
print "Numero de argumentos: "; n
for i= 1 to n
	print programarg$(i);
	if i  < n then print " ";
next
print