?? euro.bas
字號(hào):
' euro.bas' 01/03/2001const euro=340.72opt1=" DRS to Euro "opt2=" Euro to DRS "cls? chr$(27)+"[81m";? "Euro <-> Drs convertor"? chr$(27)+"[80m";? "A SmallBASIC example"line 0,24,xmax,24label select? chr$(27)+"[87m";at 40,50:? opt1at 40,70:? opt2pen onwhile (pen(0)=0):wendy=pen(5)pen offcolor 15,0if y<70 at 40,50:? opt1else at 40,70:? opt2ficolor 0,15at 40,110:? chr$(27)+"[K ";at 40,130:? chr$(27)+"[K= ";at 40,110:input kat 50,130if y<70 ?round(k/euro,2)," ";chr$(128)else ? round(euro*k)," drs"figoto select?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -