?? ongosub.bas
字號:
'-----------------------------------------------------------
' Sample : ON .. GOSUB/GOTO
' Copyright 1997-2000 MCS Electronics
'-----------------------------------------------------------
Dim A As Byte
Input "Enter value 0-2 " , A 'ask for input
Rem Note That The Starting Value Begins With 0
On A Gosub L0 , L1 , L2
Print "Returned"
If P1 < 2 Then 'you can also use the portvalue
On P1 Goto G0 , G1
End If
End_prog:
End
L0:
Print "0 entered"
Return
L1:
Print "1 entered"
Return
L2:
Print "2 entered"
Return
G0:
Print "P1 = 0"
Goto End_prog
G1:
Print "P1 = 1"
Goto End_prog
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -