function.bas

这是一个简易的basic语言解释器, 可供我们学习和改进.

1000 PRINT "ABS(-2.2): "; ABS(-2.2)
1010 PRINT "DATE$: <"; DATE$; ">"
1020 PRINT "TIME$: <"; TIME$; ">"
1030 PRINT "ATN(-2.2): "; ATN(-2.2)
1040 PRINT "COS(-2.2): "; COS(-2.2)
1050 PRINT "LOG(2.2): "; LOG(2.2)
1060 PRINT "SIN(-2.2): "; SIN(-2.2)
1070 PRINT "SQR(2.2): "; SQR(2.2)
1080 PRINT "TAN(-2.2): "; TAN(-2.2)
1090 PRINT "SGN(-2.2): "; SGN(-2.2)
1100 PRINT "INT(-2.2): "; INT(-2.2)
1102 INPUT "Paused";X$
1110 PRINT "RND(-2.2): "; RND(-2.2)
1120 PRINT "CHR$(&h60): "; CHR$(&H60)
1130 PRINT "TAB(52): <"; TAB(52); ">"
1140 PRINT "SPC(5): <"; SPC(5); ">"
1150 PRINT "SPACE$(5): <"; SPACE$(5); ">"
1160 PRINT "STRING$(5,X): <"; STRING$(5,"X"); ">"
1170 PRINT "MID$(0123456789, 5, 4): <"; MID$("0123456789", 5, 4); ">"
1180 PRINT "LEFT$(0123456789, 5): <"; LEFT$("0123456789", 5); ">"
1190 PRINT "RIGHT$(0123456789, 5): <"; RIGHT$("0123456789", 5); ">"
1200 PRINT "TIMER: "; TIMER
1202 INPUT "Paused";X$
1210 PRINT "VAL(X): "; VAL("X")
1230 PRINT "ERR: "; ERR
1240 PRINT "ERL: "; ERL
1250 PRINT "LEN(0123456789): "; LEN("0123456789")
1260 PRINT "CSNG(-2.2): "; CSNG(-2.2)
1270 PRINT "EXP(-2.2): "; EXP(-2.2)
1280 PRINT "INSTR(0123456789, 234): "; INSTR("0123456789", "234")
1290 PRINT "STR$(-2.2): <"; STR$(-2.2); ">"
1300 PRINT "HEX$(27): <"; HEX$(27); ">"
1302 INPUT "Paused";X$
1310 PRINT "OCT$(27): <"; OCT$(27); ">"
1320 PRINT "CINT(-2.2): "; CINT(-2.2)
1330 PRINT "ASC(0123456789): "; ASC("0123456789")
1340 PRINT "ENVIRON$(PATH): <"; ENVIRON$("PATH"); ">"
1350 PRINT "MKD$(17): <"; MKD$(17); ">"
1360 PRINT "MKI$(17): <"; MKI$(17); ">"
1370 PRINT "MKS$(17): <"; MKS$(17); ">"
1380 PRINT "CVD(MKD$(17)): "; CVD(MKD$(17))
1390 PRINT "CVS(MKS$(17)): "; CVS(MKS$(17))
1400 PRINT "CVI(MKI$(17)): "; CVI(MKI$(17))