ongoto.bas

来自「smallbasic for linux」· BAS 代码 · 共 17 行

for i=1 to 4
	on i gosub 10,20, 30 , 40
next i
end

10 ? "10"
return
20 ? "20"
return
30 ? "30"
return
40 ? "40"
return