(注：本文有關basic的語法，看不懂的不要仍東西)
愛好編程的朋友有福了~~ 我發現了一個好東東~~ freebas9K 一個9110上用basic .
在我那可下載:http://minix.vip.sina.com/9110/fb9k.zip
以下是語法參考：
數學函數:
ABS(<number>)
ATN(<number>)
LOG(<number>)
COS(<number>)
FRAC(<double>)
INT(<double>)
ROUND(<num-exp>,<number of places>)
SIN(<number>)
SGN(<number>)
SQRT(<number>)
TAN(<number>)
布爾代數
AND
OR
NOT
OR
XOR
圖形函數
CLS
ELLIPSE [FILL] (<exPR1>,<expr2>) (<expr3>,<expr4>)
FILLCOL <number>
LINECOL <number>
LINETO (<expr1>,<expr2>)
PEEK (<expr1>[, | :]<expr2>)
PIXEL (<expr1>,<expr2>)
POINT (<expr1>,<expr2>)
POKE (<expr1>,<expr2>) <expr3>
POLYGON [FILL] (<expr1>,<expr2>) [(<expr3>,<expr4>)] ...
PRINT [AT (expr1,expr2)] <expr3> [;<expr4>] [,<expr5>]…..
RECTANGLE [FILL] (<expr1>,<expr2>) (<expr3>,<expr4>)
SCREENMODE <expr>
TEXTCOL <expr>
日期/時間
DATE()
DATEADD(<date-expr>,<num_expr day>,<num_expr month>,<num_expr year>)
DATESERIAL(<day>,<month>,<year>[,<date-var>])
DAY(<date>)
DAYNAME(<date>)
HOUR(<date>)
MINUTE(<date>)
MONTH(<date>)
MONTHNAME(<date>)
NOW
SECOND(<date>)
STRDATE(<date>)
STRTIME(<date>)
TICKS()
TIME()
TIMEADD(<date-expr>,<num-expr hour>,<num_expr minute>,<num_expr second>)
TIMESERIAL(<hour>,<minute>,<second>[,<date-var>])
YEAR(<date>)
流控制
BREAK
CHOOSE (<index>, <choice-1>[, <choice-2>, ... [, <choice-n>]])
END
FOR <var> = <expr1> TO <expr2> [STEP <expr3>]
GOTO <label>
GOSUB <label>
IF <expr1> [= | < | >] <expr2> THEN ….. [ELSE …..]
RETURN
字符串處理
ASC(<string>)
CHR(<expr>)
HEX(<expr>)
INSTR (<expr1>,<expr2>)
LEFT (<string>, <length>)
LEN(<expr>)
MID (<string>, <start>, <length>)
RIGHT (<string>, <length>)
TRIM(<string>) / LTRIM(<string>) / RTRIM(<string>) / FULLTRIM(<string>)
UCASE(<string>) / LCASE(<string>)
鍵盤和輸入
INKEY()
INPUT [<expr>;] <var>
PEEKKEY()
隨機函數
RANDOMIZE
RND(<expr>)
串口通信
CLOSE #COM[1|2|3] | IR
GET #[COM[1|2|3]] | IR <var>
MODE #[COM[1|2|3]] | IR BAUD=n PARITY=[N|E|O] DATA=[7|8] STOP=[0|1] XON=[ON|OFF]
OPEN #[COM[1|2|3]] | IR
PUT #[COM[1|2|3]] | IR <var>
文件操作
APPEND #<filenumber>, <expr>
CLOSE #<filenumber>
EOF(#<filenumber>)
FILELEN(#<filenumber>)
FILEPOS(#<filenumber>)
GET #<filenumber> <var>
INPUT #<filenumber>, <var>
OPEN <filename> FOR INPUT | OUTPUT AS #[filenumber]
PRINT #<filenumber>, <var>
PUT #<filenumber> <var>
SMS控制
EOF(#SMS)
INPUT #SMS,<string>
SENDSMS <msg>,<number>
系統和其他
BAS9K <string>
B9KDIR <expr>
BEEP
CLEAR
DEFLONG
DIM <var> [(<expr>)] AS [LONG | DOUBLE | STRING|DATE|BYTE]
FREE
HELP <reserved Word>
LIST
LOAD <file name>
ON ... (Event handling)
NEW
PAUSE <expr>
PHONE(<expr>)
PEEK (<expr1>[, | :]<expr2>)
REM
RESTART
RUN
USER(<expr>)
呵呵~~ 9110 是不是很強：）
