curioustorvald/tsvm
1
0
Fork 0
mirror of https://github.com/curioustorvald/tsvm.git synced 2026-03-07 11:51:49 +09:00
Code Issues Packages Projects Releases Wiki Activity

little fixes and additions to basic

Browse Source
This commit is contained in:
minjaesong
2020-10-23 11:17:34 +09:00
parent 0e5c200556
commit 51dce0658d
1 changed files with 28 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
assets/tbas/basic.js
View File

@@ -8,6 +8,12 @@ Operators
, - Function argument separator
+ - Just as in JS; concatenates two strings
Test Programs:
1 REM Random Maze
10 PRINT(CHR$(47+ROUND(RND(1))*45);)
20 GOTO 10
*/
if (system.maxmem() < 8192) {
println("Out of memory. BASIC requires 8K or more User RAM");
@@ -392,8 +398,27 @@ basicInterpreterStatus.builtin = {
if (!(args.length > 0 && args[0].value === 0))
basicInterpreterStatus.rnd = (basicInterpreterStatus.rnd * 214013 + 2531011) % 16777216; // GW-BASIC does this
return (basicInterpreterStatus.rnd) / 16777216;
},
"ROUND" : function(lnum, args) {
return oneArgNonNullNumeric(lnum, args, function(lh) { return Math.round(lh); });
},
"FLOOR" : function(lnum, args) {
return oneArgNonNullNumeric(lnum, args, function(lh) { return Math.floor(lh); });
},
"INT" : function(lnum, args) { // synonymous to FLOOR
return oneArgNonNullNumeric(lnum, args, function(lh) { return Math.floor(lh); });
},
"CEIL" : function(lnum, args) {
return oneArgNonNullNumeric(lnum, args, function(lh) { return Math.ceil(lh); });
},
"FIX" : function(lnum, args) {
return oneArgNonNullNumeric(lnum, args, function(lh) { return (lh|0); });
},
"CHR$" : function(lnum, args) {
return oneArgNonNullNumeric(lnum, args, function(lh) { return String.fromCharCode(lh); });
},
"TEST" : function(lnum, args) {
if (args.length != 1) throw lang.syntaxfehler(lnum, args.length + " arguments were given");
return resolve(args[0]);
@@ -1260,7 +1285,7 @@ basicFunctions._executeSyntaxTree = function(lnum, syntaxTree, recDepth) {
};
// @returns: line number for the next command, normally (lnum + 1); if GOTO or GOSUB was met, returns its line number
basicFunctions._interpretLine = function(lnum, cmd) {
var _debugprintHighestLevel = true;
var _debugprintHighestLevel = false;
// TOKENISE
var tokenisedObject = basicFunctions._tokenise(lnum, cmd);
@@ -1386,7 +1411,8 @@ while (!tbasexit) {
cmdbufMemFootPrint -= line.length;
try {
var cmd = line.split(" ");
basicFunctions[cmd[0]](cmd);
serial.printerr(cmd[0].toLowerCase());
basicFunctions[cmd[0].toLowerCase()](cmd);
}
catch (e) {
println(e);