Subscribe to our YouTube channel.Tutorials and more athttps://www.youtube.com/c/QB64Team.
0 Members and 1 Guest are viewing this topic.
News: Instructions for creating Android Apps:http://www.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]/forum/index.php?topic=13162.0Home Help Search Login Register QB64 Community » Programs (.BAS), Tutorials and Libraries ($INCLUDE, DECLARE LIBRARY, ...) » Sample Programs (Moderators: Galleon, OlDosLover, SMcNeill, Kobolt) » Return of the possibly useless interpreter « previous next »PrintPages: [1] Author Topic: Return of the possibly useless interpreter (Read 620 times) rks NewbiePosts: 34 Return of the possibly useless interpreter « on: December 07, 2015, 09:47:22 am »This is an interpreter I've written based (very) loosely on ASM, I dust it off occasionally and tinker with it, this is one of those occasions. I've also written an editor to go with it this time. Unzip it all in a folder, compile the interpreter with or without the editor and have at it. There are some demo scripts and a game. It's something to kill time with when things are slow. r sscript21.zip (39.36 kB - downloaded 63 times.)« Last Edit: December 07, 2015, 02:08:59 pm by rks » Logged FellippeHeitor QB64 Partner Site OwnerHero Member Posts: 1806LET IT = BE Re: Return of the possibly useless interpreter « Reply #1 on: December 07, 2015, 10:23:39 am »Looks like it was a lot of work. Everything worked as expected here. Congrats!« Last Edit: December 07, 2015, 10:34:36 am by FellippeHeitor » Logged - InForm for QB64 http://qb64.org/inform- vWATCH64 (debugger for QB64) http://bit.ly/vWATCH64v1-103- Games: http://bit.ly/2048_qb64 * http://bit.ly/ClonedShades_qb64source * http://bit.ly/2aqK866 * http://bit.ly/SpaceshipQB64 * http://bit.ly/2rD1pPPFellippeHeitor QB64 Partner Site OwnerHero Member Posts: 1806LET IT = BE Re: Return of the possibly useless interpreter « Reply #2 on: December 07, 2015, 10:30:15 am »You may want to correct line 94 on the script for Nightfall; it seems like it should read: Code: [Select]$rndm 2,12 « Last Edit: December 07, 2015, 10:35:46 am by FellippeHeitor » Logged - InForm for QB64 http://qb64.org/inform- vWATCH64 (debugger for QB64) http://bit.ly/vWATCH64v1-103- Games: http://bit.ly/2048_qb64 * http://bit.ly/ClonedShades_qb64source * http://bit.ly/2aqK866 * http://bit.ly/SpaceshipQB64 * http://bit.ly/2rD1pPPrks NewbiePosts: 34 Re: Return of the possibly useless interpreter « Reply #3 on: December 07, 2015, 01:14:07 pm »You are correct, there are several $rdm's that should have been $rndm, that was a late change and I forgot about it. Thanks. r Logged rks NewbiePosts: 34 Re: Return of the possibly useless interpreter « Reply #4 on: December 07, 2015, 01:34:35 pm »I've posted a corrected .zip file. Logged PrintPages: [1] « previous next »QB64 Community » Programs (.BAS), Tutorials and Libraries ($INCLUDE, DECLARE LIBRARY, ...) » Sample Programs (Moderators: Galleon, OlDosLover, SMcNeill, Kobolt) » Return of the possibly useless interpreter SMF 2.0.3 | SMF © 2011, Simple Machines XHTMLRSSWAP2
Thinking of other possible features for 1.5, here is one. How about having it automatically minimize the QB64 window when you run the program and then returns when you exit the program.Something I thought of some may also like. Just a thought.
Quiz Question:-From the old [abandoned, outdated and now likely malicious qb64 dot net website - don’t go there] days what author-topic was most viewed (and approximately how many views).The answer for the topic title does not have to exactly match and a tolerance of +/- 25% (maybe more) for the views given. If a topic title eg "SDL" is given and this title (or very similar) has more than one author, then the post with the higher number of views is taken.To allow time for a few replies, I plan to tell the answer say at the end of June (if there are any entries).There is "no reward" for the most correct answer.
News:Instructions for creating Android Apps:http://www.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]/forum/index.php?topic=13162.0HomeHelpSearchLoginRegisterQB64 Community »Programs (.BAS), Tutorials and Libraries ($INCLUDE, DECLARE LIBRARY, ...) »Sample Programs (Moderators: Galleon, OlDosLover, SMcNeill, Kobolt) »Novelty Interpreters (tiny)« previous next »PrintPages: [1] 2 Author Topic: Novelty Interpreters (tiny) (Read 667 times)bplusHero Member Posts: 622B = B + _Novelty Interpreters (tiny)« on: July 29, 2017, 09:23:57 am »Hi all, This subject was started by Aureal at the QB64.org with the BrainF*** (BF) Interpreter.Well I have taken this tiny interpreter idea and ran with it. Now I CAN write a program for this IEN (but not BF!).Maybe you will be as amused as I. Here is what the Hi Lo Guessing Game looks like for IEN Interpreter. Most of the Cn's are just printing characters and so take up allot of room in the program.Code: [Select]PZ100 M4 Z1 A0 F3A4 B3 * M3Z2 A0 B3 F3Z1 A0 B3 + M3[ C 69 C 110 C 116 C 101 C 114 C 32 C 97 C 32 C 103 C 117 C 101 C 115 C 115 C 32 C 102 C 111 C 114 C 32 C 109 C 121 C 32 C 110 C 117 C 109 C 98 C 101 C 114 C 32 C 98 C 101 C 116 C 119 C 101 C 101 C 110 C 32 C 49 C 32 C 97 C 110 C 100 C 32 C 49 C 48 C 48 C32 ?4A4 B10 =I XNA4 B3 >I C 72 C 105 C 103 C 104 PE < I C 76 C 111 C 119 P E C 82 C 105 C 103 C 104 C 116 C 33 P X NNP]This is full of tabs, spaces, line feeds to make it readable (well... easier) for humans. These are all stripped before the IEN Interpreter starts it's execution. IEN only works with one-liners ;-)) albeit they can be quite long!Here is the current complete package for this ever evolving idea. My next thing will be string handling and comments.Let me know what you think or ideas,MarkPS (Append): BTW, IEN stands for Is Everything Number? because that is all IEN can handle. To print text, you have to use the C command with the ASC number for the letter/digit/symbol. Letter by letter labels are displayed, yikes! (that part of things still not fun enough, YET!). Novelty IEN Interpreter.zip (1239.13 kB - downloaded 21 times.)« Last Edit: July 31, 2017, 07:47:55 am by bplus » LoggedWill you still love me, will you still need me, when I'm (QB) 64?bplusHero Member Posts: 622B = B + _Re: Novelty IEN Interpreter« Reply #1 on: July 29, 2017, 12:55:02 pm »I better post the code so you don't worry it's too long. ;-))Code: [Select]'IEN Interpreter.bas for QB64 fork (B+=MGA) 2017-07-28 new nameRANDOMIZE TIMER_TITLE "IEN Interpreter for QB64"'for directory stuffCONST ListMAX% = 20COMMON SHARED dirList$()COMMON SHARED DIRCount% 'returns file count if desiredDIM dirList$(ListMAX%)CONST numChars$ = "-.1234567890"CONST cmdChars$ = "WC?ABZMFIENP[X]%^/*~+=><()!&|"CONST allChars$ = numChars$ + cmdChars$CONST memsize% = 20000COMMON SHARED memory#()COMMON SHARED source$, code$, err$DIM memory#(memsize%)WHILE 1 source$ = "" CLS ERASE dirList$ DIM dirList$(ListMAX%) loadDirList "IEN*.txt" IF DIRCount% THEN FOR i% = 1 TO DIRCount% PRINT i%, dirList$(i%) NEXT PRINT: INPUT "Enter line number of IEN Filename you desire "; ln% IF ln% < 1 OR ln% > DIRCount% THEN END filename$ = dirList$(ln%) OPEN filename$ FOR INPUT AS #1 DO LINE INPUT #1, FLINE$ source$ = source$ + FLINE$ LOOP UNTIL EOF(1) CLOSE #1 ELSE PRINT "No IEN*.txt files found." END IF IF LEN(source$) THEN PRINT source$ PRINT: INPUT "n(New) e(Edit) r(Run) k(Kill) q(Quits) other(Files)"; menu$ ELSE PRINT: INPUT "n(New) q(Quits) other(Files)"; menu$ END IF SELECT CASE UCASE$(LEFT$(menu$, 1)) CASE "N": INPUT "Enter a title, for *IEN + title + DATE.TXT* format "; tl$ dt$ = RIGHT$(DATE$, 4) + "-" + LEFT$(DATE$, 2) + "-" + MID$(DATE$, 4, 2) fname$ = "IEN " + tl$ + " " + dt$ + ".txt" OPEN fname$ FOR OUTPUT AS #1 CLOSE #1 SHELL "notepad " + fname$ CASE "E": IF LEN(source$) THEN SHELL "notepad " + filename$ CASE "K": IF LEN(source$) THEN KILL filename$ CASE "Q": END CASE "R": IF LEN(source$) THEN CLS: runSource END SELECTWENDSUB runSourcesource$ = UCASE$(source$)'let's clean the code up, check bracket balancebktCnt = 0: ifCnt = 0: code$ = ""FOR i = 1 TO LEN(source$) char$ = MID$(source$, i, 1) 'check to see if this is a valid instruction character IF INSTR(allChars$, char$) THEN code$ = code$ + char$ 'count brackets IF char$ = "[" THEN bktCnt = bktCnt + 1 IF char$ = "]" THEN bktCnt = bktCnt - 1 IF char$ = "I" THEN ifCnt = ifCnt + 1 IF char$ = "N" THEN ifCnt = ifCnt - 1 END IFNEXTIF bktCnt THEN 'mismatched brackets PRINT "Uneven brackets": SLEEP: EXIT SUBELSEIF ifCnt THEN PRINT "Uneven I N counts": SLEEP: EXIT SUBELSE PRINT code$ 'checkEND IFERASE memory#DIM memory#(memsize%)cmd$ = "": ds$ = "": err$ = ""FOR i% = 1 TO LEN(code$) 'loop through the code c$ = MID$(code$, i%, 1) 'get the instruction we're on IF INSTR("-.1234567890", c$) THEN ds$ = ds$ + c$ IF INSTR(cmdChars$, c$) OR i% = LEN(code$) THEN 'hit next command or end IF cmd$ <> "" THEN 'execute unfinished command d# = VAL(ds$) 'exec last cmd SELECT CASE cmd$ CASE "A": memory#(1) = memory#(d#) CASE "B": memory#(2) = memory#(d#) CASE "Z": memory#(0) = d# CASE "M": memory#(d#) = memory#(0) CASE "F" SELECT CASE memory#(1) CASE 0: IF memory#(2) <> 0 THEN memory#(d) = 0 ELSE memory#(d) = 1 CASE 1: memory#(d#) = RND CASE 2: memory#(d#) = INT(memory#(2)) END SELECT CASE "W": PRINT memory#(d#); CASE "C": PRINT CHR$(d#); CASE "?": INPUT memory#(d#) END SELECT cmd$ = "": ds$ = "" END IF 'if cmd <> "" 'handle current cmd IF INSTR("WC?ABZMF", c$) THEN cmd$ = c$ ELSEIF c$ = "I" THEN IF memory#(0) = 0 THEN i% = Findi(i%) IF err$ <> "" THEN PRINT err$: SLEEP: EXIT SUB ELSEIF c$ = "E" THEN i% = Findi(i%) IF err$ <> "" THEN PRINT err$: SLEEP: EXIT SUB ELSEIF c$ = "P" THEN PRINT ELSEIF c$ = "X" THEN bktCnt% = 1 'count the bracket we're on i% = i% + 1 'move the code pointer to the next char WHILE bktCnt% <> 0 'count nested loops till we find the matching one IF MID$(code$, i%, 1) = "]" THEN bktCnt% = bktCnt% - 1 IF MID$(code$, i%, 1) = "[" THEN bktCnt% = bktCnt% + 1 i% = i% + 1 'search forward WEND i% = i% - 1% ELSEIF c$ = "]" THEN ' end a loop if loop index is 0 bktCnt% = -1 'count the bracket we're on i% = i% - 1 'move the code pointer back a char WHILE bktCnt% <> 0 'count nested loops till we fine the matching one IF MID$(code$, i%, 1) = "]" THEN bktCnt% = bktCnt% - 1 IF MID$(code$, i%, 1) = "[" THEN bktCnt% = bktCnt% + 1 i% = i% - 1 'search backwards WEND i% = i% + 1 ELSEIF c$ = "%" THEN memory#(0) = memory#(1) MOD memory#(2) ELSEIF c$ = "^" THEN memory#(0) = memory#(1) ^ memory#(2) ELSEIF c$ = "/" THEN memory#(0) = memory#(1) / memory#(2) ELSEIF c$ = "*" THEN memory#(0) = memory#(1) * memory#(2) ELSEIF c$ = "~" THEN memory#(0) = memory#(1) - memory#(2) ELSEIF c$ = "+" THEN memory#(0) = memory#(1) + memory#(2) ELSEIF c$ = "=" THEN memory#(0) = memory#(1) = memory#(2) ELSEIF c$ = "<" THEN memory#(0) = memory#(1) < memory#(2) ELSEIF c$ = ">" THEN memory#(0) = memory#(1) > memory#(2) ELSEIF c$ = "(" THEN memory#(0) = memory#(1) <= memory#(2) ELSEIF c$ = ")" THEN memory#(0) = memory#(1) >= memory#(2) ELSEIF c$ = "!" THEN memory#(0) = memory#(1) <> memory#(2) ELSEIF c$ = "&" THEN IF memory#(1) <> 0 AND memory#(2) <> 0 THEN memory#(0) = -1 ELSE memory#(0) = 0 END IF ELSEIF c$ = "|" THEN IF memory#(1) <> 0 OR memory#(2) <> 0 THEN memory#(0) = -1 ELSE memory#(0) = 0 END IF END IF END IF ' ran into next commandNEXTPRINT: INPUT "Run is done, enter to continue..."; temp$END SUBFUNCTION Findi% (i%)cnt% = 1FOR j% = i% + 1 TO LEN(code$) c1$ = MID$(code$, j%, 1) IF c1$ = "N" THEN cnt% = cnt% - 1 IF cnt% = 0 THEN Findi% = j%: EXIT FUNCTION ELSEIF c1$ = "I" THEN cnt% = cnt% + 1 ELSEIF c1$ = "E" AND cnt% = 1 THEN Findi% = j%: EXIT SUB END IFNEXTerr$ = "Could not find N"END FUNCTION' modified function from Help filesSUB loadDirList (spec$)CONST TmpFile$ = "DIR$INF0.INF"IF spec$ > "" THEN 'get file names when a spec is given SHELL _HIDE "DIR " + spec$ + " /b > " + TmpFile$ Index% = 0: dirList$(Index%) = "": ff% = FREEFILE OPEN TmpFile$ FOR APPEND AS #ff% size& = LOF(ff%) CLOSE #ff% IF size& = 0 THEN KILL TmpFile$: EXIT SUB OPEN TmpFile$ FOR INPUT AS #ff% DO WHILE NOT EOF(ff%) AND Index% < ListMAX% Index% = Index% + 1 LINE INPUT #ff%, dirList$(Index%) LOOP DIRCount% = Index% 'SHARED variable can return the file count CLOSE #ff% KILL TmpFile$ELSE IF Index% > 0 THEN Index% = Index% - 1 'no spec sends next file nameEND IFEND SUB LoggedWill you still love me, will you still need me, when I'm (QB) 64?bplusHero Member Posts: 622B = B + _Re: Novelty SHN Interpreter« Reply #2 on: July 31, 2017, 07:45:51 am »SHN (Strings Handled Now) Interpreter coming soon! Just have to work out the translation to QB64, piece of cake, right?Looks to be about the same amount of commands believe it or not!Functions will look more realistic and it will be as easy as eating pie to add your own (built-in ones, I mean).Stay tuned... LoggedWill you still love me, will you still need me, when I'm (QB) 64?AshishHero Member Posts: 551Eat.... Sleep.... CODE.... Repeat.....Re: Novelty Interpreters (tiny)« Reply #3 on: July 31, 2017, 09:04:50 am »Nice work bplus! I like it! Loggedif (Me.Success) {Me.Improve();} else {Me.TryAgain();}aKFrameWork - http://bit.ly/aKFrameWorkp5js.bas - http://bit.ly/p5jsbasMenu System - http://bit.ly/guiMenuBarOpenGL Demos - http://bit.ly/openGLdemosbplusHero Member Posts: 622B = B + _Re: Novelty Interpreters (tiny)« Reply #4 on: August 01, 2017, 09:02:42 pm »Strings Now HandledCode: [Select]'SNH Interpreter.bas for QB64 fork (B+=MGA) 2017-08-01 transRANDOMIZE TIMER_TITLE "Strings Now Hamdled, the SNH Interpreter (tiny)"SCREEN 12: COLOR 7, 0: CLS'for directory stuffCONST ListMAX% = 20COMMON SHARED dirList$()COMMON SHARED DIRCount% 'returns file count if desiredDIM dirList$(ListMAX%)CONST numChars$ = "-.1234567890"CONST cmdChars$ = "W?ABCDFMIENP[X]%^/*~+=><()!&|"CONST allChars$ = numChars$ + cmdChars$CONST memsize% = 20000COMMON SHARED m$()COMMON SHARED source$, code$, err$DIM m$(memsize%)NotBeenHere% = 1'PRINT "COMMAND$ = "; COMMAND$'INPUT "OK, press enter "; temp$WHILE 1 source$ = "" COLOR 7, 0: CLS ERASE dirList$ DIM dirList$(ListMAX%) loadDirList "*SNH.txt" IF _FILEEXISTS(COMMAND$) AND RIGHT$(UCASE$(COMMAND$), 7) = "SNH.TXT" AND NotBeenHere% = 1 THEN filename$ = COMMAND$: NotBeenHere% = 0 ELSEIF DIRCount% THEN FOR i% = 1 TO DIRCount% PRINT i%, dirList$(i%) NEXT PRINT: INPUT "0 quits, Enter line number of SNH Filename you desire "; ln% IF ln% < 1 OR ln% > DIRCount% THEN END filename$ = dirList$(ln%) ELSE PRINT "No *SNH.txt files found." SLEEP: END END IF OPEN filename$ FOR INPUT AS #1 DO LINE INPUT #1, fline$ source$ = source$ + fline$ 'PRINT fline$ 'INPUT " OK, enter"; temp$ LOOP UNTIL EOF(1) CLOSE #1 runSourceWENDSUB runSource ERASE m$ DIM m$(memsize%) 'note: anything above first {} is comment and ignored 'First get m$ (string memory array) loaded with data values FOR i% = 1 TO LEN(source$) c$ = MID$(source$, i%, 1) IF c$ = "{" THEN bs% = i% WHILE MID$(source$, i%, 1) <> "}" i% = i% + 1 IF i% = LEN(source$) THEN PRINT "Missing }": SLEEP: EXIT SUB WEND ix% = VAL(MID$(source$, bs% + 1, i% - bs% - 1)) IF ix% < 1 THEN EXIT FOR b$ = "": i% = i% + 1 WHILE MID$(source$, i%, 1) <> ";" b$ = b$ + MID$(source$, i%, 1) i% = i% + 1 IF i% = LEN(source$) THEN PRINT "Missing ending ;": SLEEP: EXIT SUB WEND m$(ix%) = b$ END IF NEXT source$ = MID$(source$, i% + 1) 'OK now letters, digits or symbols from strings wont interfere with program code source$ = UCASE$(source$) 'let's clean the code up, check bracket balance bktCnt% = 0: ifCnt% = 0: code$ = "" FOR i = 1 TO LEN(source$) char$ = MID$(source$, i, 1) 'check to see if this is a valid instruction character IF INSTR(allChars$, char$) THEN code$ = code$ + char$ 'count brackets IF char$ = "[" THEN bktCnt% = bktCnt% + 1 IF char$ = "]" THEN bktCnt% = bktCnt% - 1 IF char$ = "I" THEN ifCnt% = ifCnt% + 1 IF char$ = "N" THEN ifCnt% = ifCnt% - 1 END IF NEXT PRINT "Code check: "; code$ IF bktCnt% THEN 'mismatched brackets PRINT "Uneven brackets": SLEEP: EXIT SUB ELSEIF ifCnt% THEN PRINT "Uneven I N counts": SLEEP: EXIT SUB ELSE PRINT code$ 'check INPUT "OK, press enter... "; temp$ CLS END IF cmd$ = "": ds$ = "": err$ = "" FOR i% = 1 TO LEN(code$) 'loop through the code c$ = MID$(code$, i%, 1) 'get the instruction we're on IF INSTR("-.1234567890", c$) THEN ds$ = ds$ + c$ IF INSTR(cmdChars$, c$) OR i% = LEN(code$) THEN 'hit next command or end IF cmd$ <> "" THEN 'execute unfinished command d# = VAL(ds$) 'exec last cmd SELECT CASE cmd$ CASE "A": m$(1) = m$(d#) CASE "B": m$(2) = m$(d#) CASE "C": m$(3) = m$(d#) CASE "D": m$(4) = m$(d#) CASE "F" SELECT CASE m$(1) 'the function name m$(2) 1st para... CASE "NOT": IF VAL(m$(2)) = 0 THEN m$(d#) = "-1" ELSE m$(d#) = "0" CASE "RND": m$(d#) = STR$(RND) CASE "INT": m$(d#) = STR$(INT(VAL(m$(2)))) CASE "CTR": LOCATE CSRLIN, (80 - LEN(m$(2))) / 2: PRINT m$(2); CASE "CLS": CLS CASE "COLOR": COLOR VAL(m$(2)), VAL(m$(3)) CASE "LEN": m$(d#) = STR$(LEN(m$(2))) CASE "MID1": m$(d#) = MID$(m$(2), VAL(m$(3))) CASE "MID2": m$(d#) = MID$(m$(2), VAL(m$(3)), VAL(m$(4))) CASE "INSTR1": m$(d#) = STR$(INSTR(m$(2), m$(3))) CASE "INSTR2": m$(d#) = STR$(INSTR(VAL(m$(2)), m$(3), m$(4))) CASE "LOCATE": LOCATE VAL(m$(2)), VAL(m$(3)) END SELECT CASE "M": m$(d#) = m$(0) CASE "W": PRINT m$(d#); CASE "?": INPUT m$(d#) END SELECT cmd$ = "": ds$ = "" END IF 'if cmd <> "" 'handle current cmd IF INSTR("ABCDFMW?", c$) THEN cmd$ = c$ ELSEIF c$ = "I" THEN IF VAL(m$(0)) = 0 THEN i% = Findi(i%) IF err$ <> "" THEN PRINT err$: SLEEP: EXIT SUB ELSEIF c$ = "E" THEN i% = Findi(i%) IF err$ <> "" THEN PRINT err$: SLEEP: EXIT SUB ELSEIF c$ = "P" THEN PRINT ELSEIF c$ = "X" THEN bktCnt% = 1 'count the bracket we're on i% = i% + 1 'move the code pointer to the next char WHILE bktCnt% <> 0 'count nested loops till we find the matching one IF MID$(code$, i%, 1) = "]" THEN bktCnt% = bktCnt% - 1 IF MID$(code$, i%, 1) = "[" THEN bktCnt% = bktCnt% + 1 i% = i% + 1 'search forward WEND i% = i% - 1% ELSEIF c$ = "]" THEN ' end a loop if loop index is 0 bktCnt% = -1 'count the bracket we're on i% = i% - 1 'move the code pointer back a char WHILE bktCnt% <> 0 'count nested loops till we fine the matching one IF MID$(code$, i%, 1) = "]" THEN bktCnt% = bktCnt% - 1 IF MID$(code$, i%, 1) = "[" THEN bktCnt% = bktCnt% + 1 i% = i% - 1 'search backwards WEND i% = i% + 1 ELSEIF c$ = "%" THEN: m$(0) = STR$(VAL(m$(1)) MOD VAL(m$(2))) ELSEIF c$ = "^" THEN: m$(0) = STR$(VAL(m$(1)) ^ VAL(m$(2))) ELSEIF c$ = "/" THEN: m$(0) = STR$(VAL(m$(1)) / VAL(m$(2))) ELSEIF c$ = "*" THEN: m$(0) = STR$(VAL(m$(1)) * VAL(m$(2))) ELSEIF c$ = "~" THEN: m$(0) = STR$(VAL(m$(1)) - VAL(m$(2))) ELSEIF c$ = "+" THEN: m$(0) = STR$(VAL(m$(1)) + VAL(m$(2))) ELSEIF c$ = "=" THEN: m$(0) = STR$(VAL(m$(1)) = VAL(m$(2))) ELSEIF c$ = "<" THEN: m$(0) = STR$(VAL(m$(1)) < VAL(m$(2))) ELSEIF c$ = ">" THEN: m$(0) = STR$(VAL(m$(1)) > VAL(m$(2))) ELSEIF c$ = "(" THEN: m$(0) = STR$(VAL(m$(1)) <= VAL(m$(2))) ELSEIF c$ = ")" THEN: m$(0) = STR$(VAL(m$(1)) >= VAL(m$(2))) ELSEIF c$ = "!" THEN: m$(0) = STR$(VAL(m$(1)) <> VAL(m$(2))) ELSEIF c$ = "&" THEN IF VAL(m$(1)) <> 0 AND VAL(m$(2)) <> 0 THEN m$(0) = "-1" ELSE m$(0) = "0" ELSEIF c$ = "|" THEN IF VAL(m$(1)) <> 0 OR VAL(m$(2)) <> 0 THEN m$(0) = "-1" ELSE m$(0) = "0" END IF ' ran into next command END IF NEXT PRINT: INPUT "Run is done, enter to continue..."; temp$END SUBFUNCTION Findi% (i%) cnt% = 1 FOR j% = i% + 1 TO LEN(code$) c1$ = MID$(code$, j%, 1) IF c1$ = "N" THEN cnt% = cnt% - 1 IF cnt% = 0 THEN Findi% = j%: EXIT FUNCTION ELSEIF c1$ = "I" THEN cnt% = cnt% + 1 ELSEIF c1$ = "E" AND cnt% = 1 THEN Findi% = j%: EXIT SUB END IF NEXT err$ = "Could not find N"END FUNCTION' modified function from Help filesSUB loadDirList (spec$) CONST TmpFile$ = "DIR$INF0.INF" IF spec$ > "" THEN 'get file names when a spec is given SHELL _HIDE "DIR " + spec$ + " /b > " + TmpFile$ Index% = 0: dirList$(Index%) = "": ff% = FREEFILE OPEN TmpFile$ FOR APPEND AS #ff% size& = LOF(ff%) CLOSE #ff% IF size& = 0 THEN KILL TmpFile$: EXIT SUB OPEN TmpFile$ FOR INPUT AS #ff% DO WHILE NOT EOF(ff%) AND Index% < ListMAX% Index% = Index% + 1 LINE INPUT #ff%, dirList$(Index%) LOOP DIRCount% = Index% 'SHARED variable can return the file count CLOSE #ff% KILL TmpFile$ ELSE IF Index% > 0 THEN Index% = Index% - 1 'no spec sends next file name END IFEND SUBI threw out the file management stuff, let the Windows Explorer or Equivalent do that stuff! Now you can drag and drop *SNH.txt programs onto the exe or select a file to run from a folder listing.A limited set of built-in functions just to show that they All can be done. EDIT: 2017-08-02 12:18 PM It turns out that the NOT function did need to be fixed, -1 not 1 for True.That and some additional *SNH.txt code files have been added to the revised SNH Pack.zip SNH Pack.zip (635.14 kB - downloaded 16 times.)« Last Edit: August 02, 2017, 09:25:17 am by bplus » LoggedWill you still love me, will you still need me, when I'm (QB) 64?bplusHero Member Posts: 622B = B + _Re: Novelty Interpreters (tiny)« Reply #5 on: August 02, 2017, 09:24:14 am »Small fix made to .bas & .exe code in the SNH Pack.zip attachment in previous post.Additional test *SNH.txt files have been added and some more edits of the Read Me.txt file. LoggedWill you still love me, will you still need me, when I'm (QB) 64?bplusHero Member Posts: 622B = B + _Re: Novelty Interpreters (tiny)« Reply #6 on: February 08, 2018, 02:31:17 pm »I have converted SmallBASIC Nano3 Interpreter to QB64 with help with Evaluate system started in JB, further developed in FB and then converted to QB64. The Interpreter now works completely as a stand alone 6 times the size Nano was.It is a drag and drop of source code program onto BRUN.exe. All the file management stuff is left to Windows or your OS and all editing left to NotePad++ or your favorite editor. The BRUN Pack#1.zip has a bonus copy of source code and exe with debugger switched on so can step through each line of program and watch the variables to help track down errors.Also included in package are 10 sample and test programs and one 000BRUN Help B.txt cheat sheet of 21 keywords and list of math functions...New form Nano3 is variable names as long as you like, setting number variables are done with n keyword at first position in program line instead of = sign after variable name.It might be fun to play with for short programs...attached is zip and a few screen shots: cheat sheet and 2 calculator programsNext up, I have to remember how to handle strings and their functions... (consulting last post here!),I might have to give up on idea of no punctuation.Append: Comment lines are ANY line that doesn't start with keyword, no REM or ' needed!Printing stuff: just start line with . , or ; no quotes needed, variable values are automatically substituted in for variable names.You might miss having control of spaces (not ready yet) but have LOCATE sub replaced with: rc row, col and have graphics: at x, y to locate a print at any pixel.Oh! Here is what code looks like for first calculator (to sort of look like the device, though you cant click keys (yet!))Code: [Select]calculator B.txt revised again for BRUN 2018-02-07 originally from:calculator nano3.txt for Nano3.bas (B+=MGA) 2017-06-10sub Menu n i -1 at 0 80 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>__ r __<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< at 0 120 Command Menu: do n i i + 1 if i > 22 exit fi n x (i % 5) * 160 n y int( i / 5) * 50 + 160 if i = 0 at x y i = + fi if i = 1 at x y i = - fi if i = 2 at x y i = * fi if i = 3 at x y i = / fi if i = 4 at x y i = ^ fi if i = 5 at x y i = pi fi if i = 6 at x y i = rad fi if i = 7 at x y i = cos fi if i = 8 at x y i = sin fi if i = 9 at x y i = tan fi if i = 10 at x y i = atan fi if i = 11 at x y i = deg fi if i = 12 at x y i = mod fi if i = 13 at x y i = ln fi if i = 14 at x y i = exp fi if i = 15 at x y i = mIn fi if i = 16 at x y i = m+ fi if i = 17 at x y i = mOut fi if i = 18 at x y i = mClear fi if i = 19 at x y i = # start fi if i = 20 at x y i = quit fi loopreturnsub getC mark cStart cls gosub Menu at 0 40 Enter command number ? c if c >= 0 if c < 23 go cEnd else go cStart fi else go cStart fi mark cEndreturnclsat 0, 20 Enter a number for starting the calculator...? r do gosub getC if c = 0 ? s + Enter number to add... n r r + s fi if c = 1 ? s - Enter number to subtract... n r r - s fi if c = 2 ? s * Enter number to multiply... n r r * s fi if c = 3 ? s / Enter divisor... if s <> 0 n r r / s else . Oops, can't divide by 0 fi fi if c = 4 ? s ^ Enter power... n r r ^ s fi if c = 5 n r pi fi if c = 6 n r r *pi/180 fi if c = 7 n r cos( r ) fi if c = 8 n r sin( r ) fi if c = 9 n r tan( r ) fi if c = 10 n r atan( r ) fi if c = 11 n r deg( r ) fi if c = 12 ? s Enter modulus... n r r % s fi if c = 13 n r log( r ) fi if c = 14 n r exp( r ) fi if c = 15 n m r fi if c = 16 n m m + r fi if c = 17 n r m fi if c = 18 n m 0 fi if c = 19 ? r Enter new start number... fi if c = 20 at 0 400 Goodbye! end filoopAnd code for line calculator (or expressions evaluator):Code: [Select]Line calc by bplus for BRUN 2018-02-07do at 110 40 *** Line Calculator *** at 10 80 arith: +, -, *, /, constants: e, pi, random 0-1 use rnd at 10 100 (keep - for subtraction spaced on both sides to distinguish from neg numbers) at 10 120 functions modulus use %, power use ^, log, exp, sqr, int, random 0 to 1 use rnd at 10 140 trig (radians): sin( ), cos( ), tan( ), atan( ) conversion: rad, deg at 10 160 boolean: =, <>, <, <=, >, >=, and, or, not at 50 180 (results are displayed for 3.5 secs) n row int(220/16 + .5) rc row 2 ? string (-42 to quit) Enter an expression to evaluate... if string = -42 exit fi n result string at 10 250 The calculator came up with this: result wait 3.5 clsloopcls.. Goodbye!.. BRUN pack #1.zip (914.47 kB - downloaded 7 times.) 000 BRUN Help B_txt.PNG (43.7 kB - downloaded 4 times.) calculator B_txt.PNG (9.19 kB - downloaded 5 times.) line calc B_txt.PNG (14.01 kB - downloaded 4 times.)« Last Edit: February 08, 2018, 02:56:27 pm by bplus » LoggedWill you still love me, will you still need me, when I'm (QB) 64?IGetGroovyNewbiePosts: 23Re: Novelty Interpreters (tiny)« Reply #7 on: February 08, 2018, 08:15:15 pm »I had a blast running the examples here bplus, nice job! This is a really cool project - this is the program that grew from the 100 LOC contest, right? I also messed with the line of code that reports on "EvalW" on each iteration and then re-ran everything - it's fun watching a recursive thing clamp down on an answer, agree? I also wonder if you know where this program is going next. In the spirit of separating mechanism from policy, do you intend on having a version that runs embedded in a terminal?Now is another good chance to mention (perhaps not for the first time), do you have any aversion to hanging out in IRC #qb64? You are a vibrant member in the QB-sphere and I suspect you'd have a blast there. LoggedeoredsonHero Member Posts: 570I programmed myself into a conniption..Re: Novelty Interpreters (tiny)« Reply #8 on: February 08, 2018, 11:08:53 pm »I wrote an interpreter here:http://www.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]/forum/index.php?action=dlattach;topic=13148.0;attach=4378Erik. LoggedGames: DNDDOOR - https://bit.ly/EriksDNDDoor DUNGEON - https://bit.ly/EriksDungeonInterpreter - https://bit.ly/EriksSICK Hex Editor - https://bit.ly/EriksHexEditorUtilities - https://bit.ly/EriksUtils Old QB64 - https://bit.ly/OldQB64 QB64 shell - https://bit.ly/QB64shellFellippeHeitorQB64 Partner Site OwnerHero Member Posts: 1806LET IT = BERe: Novelty Interpreters (tiny)« Reply #9 on: February 09, 2018, 05:35:52 am »Is it interpreter sharing season? Here's mine too https://github.com/FellippeHeitor/QB64-interpreterI'll check yours right now bplus, sounds like fun. Logged- InForm for QB64 http://qb64.org/inform- vWATCH64 (debugger for QB64) http://bit.ly/vWATCH64v1-103- Games: http://bit.ly/2048_qb64 * http://bit.ly/ClonedShades_qb64source * http://bit.ly/2aqK866 * http://bit.ly/SpaceshipQB64 * http://bit.ly/2rD1pPPbplusHero Member Posts: 622B = B + _Re: Novelty Interpreters (tiny)« Reply #10 on: February 09, 2018, 11:28:43 am »Oh hey a response! Yeah! Hi IGetGroovy, Thanks for paying attention, yes it is Nano3 SmallBASIC code spread out into QB64 (version 2017 11 06 /82 (if I recall), sorry I forgot to add that Jack). Now I think I remember you from another name but which Luke? Bill? I can't keep track of names very well or do I mean psuedo names. Now I know where WHN? got the idea of constantly changing avatar names (and from lurking at Studio 54 ) are you all really one guy? maybe with split personality? Pete is that you!There is talking, there is talking about coding and there is coding, I have no aversion to hanging out at IRC QB64, I do wish I could lurk a little before signing on as member, a glance into what I may be spending more time QuoteIn the spirit of separating mechanism from policy, do you intend on having a version that runs embedded in a terminal?Plans? well embedding is not even on my radar but I asked a question about embedding at BP.org, 2 years before it went belly up, and have yet to get a decent answer: What is it? What is it good for? I've looked into it, a little, have some foggy notions but nothing is clear.I have immediate plans for primitive graphics (got to have fun with that! specially if QB64 gives me more speed that SB) and of course strings and arrays. My plans are in To do list in opening comments of BRUN source... Long range? I usually go where the spirit takes me or am sorry I didn't.This not BASIC, I don't want to build another BASIC interpreter, Erik and Fellippe's are likely too good to even try and better them ! It is Basic like, I guess since Basic is all I prefer to code with. Yes! Fellippe and Erik, I have looked into both your beautiful monsters! I suppose mine too is growing so large as to require serious study time to understand and use effectively.BRUN (and Nano) is very much in spirit of WHN? author of FIG, who started contest with Walter at TJP that ended up producing nascent Nano after nasty argument with him. I argue but I listen too (sometimes, specially when I respect person with whom I am arguing. Of course my idea of respect is to try and avoid foul moronic language, of course that does signal extreme frustration which is better than nothing, I guess.)eh! I could go on and on about my child... sheeze« Last Edit: February 09, 2018, 11:53:38 am by bplus » LoggedWill you still love me, will you still need me, when I'm (QB) 64?bplusHero Member Posts: 622B = B + _Re: Novelty Interpreters (tiny)« Reply #11 on: February 09, 2018, 11:35:37 am »QuoteIs it interpreter sharing season? Here's mine too https://github.com/FellippeHeitor/QB64-interpreterI'll check yours right now bplus, sounds like fun.Oh now I've seen Erik's post and understand Yes, Interpreter season opened up in January or before at TJP with David Taylor making all sorts of announcements with such piss and vinegar and spunk, it reignited my own spark for the subject. The crazy thing is he is not sharing his source code, so I guess we are showing him how it's done. LoggedWill you still love me, will you still need me, when I'm (QB) 64?eoredsonHero Member Posts: 570I programmed myself into a conniption..Re: Novelty Interpreters (tiny)« Reply #12 on: February 09, 2018, 07:14:44 pm »@bplus: You need to concentrate on your engine of choice first - such as a descent parser, then write the interpreter around it.Pay certain attention on how to parse parenthesis first, then smaller structures like Do..Loop and For..Next.Once the parser engine is written the rest will follow, including the basic commands - List, Run, Load, Save, etc.Expect to spend alot of time on it.Erik. LoggedGames: DNDDOOR - https://bit.ly/EriksDNDDoor DUNGEON - https://bit.ly/EriksDungeonInterpreter - https://bit.ly/EriksSICK Hex Editor - https://bit.ly/EriksHexEditorUtilities - https://bit.ly/EriksUtils Old QB64 - https://bit.ly/OldQB64 QB64 shell - https://bit.ly/QB64shellbplusHero Member Posts: 622B = B + _Re: Novelty Interpreters (tiny)« Reply #13 on: February 09, 2018, 07:17:30 pm »Quote from: eoredson on February 09, 2018, 07:14:44 pm@bplus: You need to concentrate on your engine of choice first - such as a descent parser, then write the interpreter around it.Pay certain attention on how to parse parenthesis first, then smaller structures like Do..Loop and For..Next.Once the parser engine is written the rest will follow, including the basic commands - List, Run, Load, Save, etc.Expect to spend alot of time on it.Erik.Been there done all that, did you even run a sample? just drag and drop a *B.txt file over BRUN.exeYou know this like my 6th (toy) interpreter ? and this is not traditional Basic IDE style runs.Don't need List, Run, Load, Save ... as explained earlier, you edit your files in your favorite text editor (eliminates New, Load, List, Save, Edit), I am letting Windows or your favorite OS handle all file management (rename, cut/copy/paste to whatever folders, delete...). just end your program files with "B.txt"The "engine" for parsing... handling expressions has been assembled and tutored at TJP under FreeBasic two threads on subject Evaluation. It does not use traditional parser techniques let alone worry about ascent and decent... yet it handles operators in regular order: preparing string for evaluation, substitutions in of constants and variable values, functions, math operators like mod and power, arith operators / then * the - then +, then booeans < = > stuff then logical conjugates "and" and "or" and finally not. True it's not the quickest most efficient system but it works.You Run your source file, "Program name B.txt" by drag and drop onto the BRUN.exe and just like magic it runs or tells you the first line number it can't execute.or drag and drop onto BRUN w debugger.exe and watch your code get processed line by line.Here is a program "Count to ten B.txt"Code: [Select]n count 1do . count n count count + 1 if count > 10 exit filoop count to 10.PNG (61.05 kB - downloaded 6 times.)« Last Edit: February 09, 2018, 07:49:15 pm by bplus » LoggedWill you still love me, will you still need me, when I'm (QB) 64?eoredsonHero Member Posts: 570I programmed myself into a conniption..Re: Novelty Interpreters (tiny)« Reply #14 on: February 09, 2018, 07:20:13 pm »Ok, well, if you've done all that, then, nevermind LoggedGames: DNDDOOR - https://bit.ly/EriksDNDDoor DUNGEON - https://bit.ly/EriksDungeonInterpreter - https://bit.ly/EriksSICK Hex Editor - https://bit.ly/EriksHexEditorUtilities - https://bit.ly/EriksUtils Old QB64 - https://bit.ly/OldQB64 QB64 shell - https://bit.ly/QB64shellPrintPages: [1] 2« previous next »QB64 Community »Programs (.BAS), Tutorials and Libraries ($INCLUDE, DECLARE LIBRARY, ...) »Sample Programs (Moderators: Galleon, OlDosLover, SMcNeill, Kobolt) »Novelty Interpreters (tiny) SMF 2.0.3 | SMF © 2011, Simple MachinesXHTMLRSSWAP2
News:Instructions for creating Android Apps:http://www.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]/forum/index.php?topic=13162.0HomeHelpSearchLoginRegisterQB64 Community »Programs (.BAS), Tutorials and Libraries ($INCLUDE, DECLARE LIBRARY, ...) »Sample Programs (Moderators: Galleon, OlDosLover, SMcNeill, Kobolt) »Novelty Interpreters (tiny)« previous next »PrintPages: 1 [2] Author Topic: Novelty Interpreters (tiny) (Read 667 times)rksNewbiePosts: 34Re: Novelty Interpreters (tiny)« Reply #15 on: February 10, 2018, 09:35:13 am »I'll throw mine back in again, I've done some more work on it, and it's probably to big to be considered a 'tiny' anything but it is a novelty something. r tascript 30.7z (46.4 kB - downloaded 12 times.) LoggedbplusHero Member Posts: 622B = B + _Re: Novelty Interpreters (tiny)« Reply #16 on: February 10, 2018, 10:13:11 am »Hi rks, Thanks I will check it out, do you have a link here where/when you've discussed what you are doing?I see you signed up 2012 (edit year) and are already up to 30 posts! I will check out those too, maybe you are Bill.Append: Man what a salesman you are! Got me interested hook, line and slinker!http://www.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]/forum/index.php?topic=13259.msg114533#msg114533« Last Edit: February 10, 2018, 01:56:07 pm by bplus » LoggedWill you still love me, will you still need me, when I'm (QB) 64?rksNewbiePosts: 34Re: Novelty Interpreters (tiny)« Reply #17 on: February 11, 2018, 09:21:21 am »Hi bplus,Back when I posted the first version of the interpreter (several years ago under a different name), there was some explanation, but it was so long ago I can't remember it, which is not unusual. There is a piece in the manual about what I’m doing but honestly it came about from two reasons, a desire to write my own language without actually having a clue as to how to go about it, and sufficient boredom one winter to make me start. So I read a few articles, some of which I almost understood and with no plan in sight started coding a way to get single keystrokes followed by a way to print them. I’ve used syntax from several different languages and made up the rest as I went, through several iterations, to reach this point. I’m probably done with it for a while, it’s ended up a lot bigger than I intended as it strayed from it’s original purpose of a text game engine into a more general purpose language, but it’s been an interesting diversion.And by the way, I'm not Bill, at least that I recall.r LoggedbplusHero Member Posts: 622B = B + _Re: Novelty Interpreters (tiny)« Reply #18 on: February 11, 2018, 11:56:58 am »Hi rks, Nice docs, 8 pages is about my limit but you seem to be doing things well = how I might! ha!I like how you map all the jump points line labels, go subs... and how you fit your IF lines to that system.I also like how it is designed, at least originally, with a particular goal of being a text game engine. That gives one a clear idea of direction and when one is done or when one might add a new feature...Doing a general interpreter covers too broad an area specially if one of your ideas/ideals is that the smaller the more fun to learn and use. LoggedWill you still love me, will you still need me, when I'm (QB) 64?rksNewbiePosts: 34Re: Novelty Interpreters (tiny)« Reply #19 on: February 12, 2018, 09:23:18 am »Thanks! The docs came into being after I forgot how I was implementing something after a several day break, figured if I didn't write things down I never know where I was. The general purposity (? new word alert!) came about from playing with ways to modify text and it's easy enough to ignore them when they aren't needed. It doesn't hurt that the compiled size doesn't change much with or without the feature bloat, but it's sometimes difficult to keep ones fingers out of the pie. Anyway, the layout makes things fairly simple to strip out non-essentials if needed. I've been reading through your latest, nice! Although BRUN brought back memories of good ole QB run times. r LoggedbplusHero Member Posts: 622B = B + _Re: Novelty Interpreters (tiny)« Reply #20 on: February 12, 2018, 09:40:25 am »Code: [Select]Although BRUN brought back memories of good ole QB run times. Yes, I am glad you caught that! I hope my effort is respectful and honoring of that tradition. If not please complain and I will change name (alas poor Erik, another name to track!)I tried some research on BRUN name, came up with zilch, no mention of QuickBasic or QBasic (and I am still trying to figure out the original name of QB version name I was using, I think QuickBasic 4.5 because it did have compiler and it was just before QBasic came free with DOS (I just learned it was DOS 5 not 6 that QBasic came free without compiler). LoggedWill you still love me, will you still need me, when I'm (QB) 64?rksNewbiePosts: 34Re: Novelty Interpreters (tiny)« Reply #21 on: February 13, 2018, 09:33:54 am »I like the name, brings back memories. BRUN had the version number of QB as part of the name, so QB45 came with BRUN45.EXE, QB40 came with BRUN40.EXE, etc. It also seems like QB45 was little more than an IDE update to QB40. It was something of a shock when I upgraded from DOS 4.01 to DOS 5.0 and had QBasic instead of BASICA, that took some getting used to.Anyway, I like the conciseness of your language, mine sprawls all over the place.r LoggedbplusHero Member Posts: 622B = B + _Re: Novelty Interpreters (tiny)« Reply #22 on: February 13, 2018, 10:56:30 am »Hi rks, Speaking of likes, I forgot to mention I like [varaiable] to tell exe to print value instead of string (or name of variable).I like it so much I might have to steal idea. (if paying this compliment isn't enough).Re: Arrays and stringsLast night I woke up at 4 AM with idea that might eliminate need for strings and arrays (as we QBers know them anyway).I did say, might, these middle of night insights sometimes do pan out but not exactly how they were first seen...Anyway I hope I have titillated and stirred up some imaginations with this announcement. LoggedWill you still love me, will you still need me, when I'm (QB) 64?bplusHero Member Posts: 622B = B + _Re: Novelty Interpreters (tiny)« Reply #23 on: February 14, 2018, 01:08:27 am »Hey happy Valentines Day!Code: [Select]simple sieve 2 B.txt for BRUN v 2 2018-02-14 adopted from:'Simple sieve 2.bas SmallBASIC 2015-04-29 found a faster sieve with BASIC 256n topLimit 100n limit topLimit ^ .5. Primes to topLimittake care of even numbers firstn index 4do put composites index 1 n index index + 2 if index > topLimit exit filoopnow do odd numbersn index 3do get test composites index if test = 0 if index < limit n j 2 * index do put composites j 1 n j j + index if j > topLimit exit fi loop fi fi n index index + 2 if index > limit exit filoopn index 2pCount = 0do get test composites index if test = 0 n pCount pCount + 1 . index fi n index index +1 if index > topLimit exit filoop.. There are pCount primes for the first topLimit integers.It works! prime sieve 2.PNG (11.13 kB - downloaded 4 times.) LoggedWill you still love me, will you still need me, when I'm (QB) 64?bplusHero Member Posts: 622B = B + _Re: Novelty Interpreters (tiny)« Reply #24 on: February 14, 2018, 07:02:34 am »Glacial slow get and put for BRUN 2Basic: array(Index) = someValueEvaluatedInProgramLineBRUN 2 put syntax:put stringArrayName numberVariableIndex valueFromNumberCalcInProgramLineBasic: numberVariable = array(Index)BRUN 2 get syntax:get getValuePutUnderThisNumberVariableName fromThisStringArrayVariableName andThisNumberVariableIndex LoggedWill you still love me, will you still need me, when I'm (QB) 64?rksNewbiePosts: 34Re: Novelty Interpreters (tiny)« Reply #25 on: February 14, 2018, 09:14:33 am »You are more than welcome to use [variable], I took it from assembly language. Without strings and arrays what would the BASIC community have to argue about making the best use of? Does sound intriguing, though. I've had some of those middle of the night flashes of insight, mine rarely make nearly as much sense after coffee.There's nothing wrong with glacially slow if you get the correct answer, speed can be worked on later. r LoggedbplusHero Member Posts: 622B = B + _Re: Novelty Interpreters (tiny)« Reply #26 on: February 14, 2018, 10:01:34 am » so that's why I drink so much coffee! to sober up from my dreams... LoggedWill you still love me, will you still need me, when I'm (QB) 64?eoredsonHero Member Posts: 570I programmed myself into a conniption..Re: Novelty Interpreters (tiny)« Reply #27 on: March 03, 2018, 01:33:13 am »QuoteI hope my effort is respectful and honoring of that tradition. If not please complain and I will change name (alas poor Erik, another name to track!)My utilities, my whatis parser, my SICK interpreter, and my QB64shell all indicate the road I've traveled down.If you could look at them all (in my signature), I'm sure they will help and be of some aid.Although I will admit my interpreter was born of a recursive descent parser. If you need to adapt a tokenizer or such toyour own then you are on your own.Erik. LoggedGames: DNDDOOR - https://bit.ly/EriksDNDDoor DUNGEON - https://bit.ly/EriksDungeonInterpreter - https://bit.ly/EriksSICK Hex Editor - https://bit.ly/EriksHexEditorUtilities - https://bit.ly/EriksUtils Old QB64 - https://bit.ly/OldQB64 QB64 shell - https://bit.ly/QB64shellPrintPages: 1 [2]« previous next »QB64 Community »Programs (.BAS), Tutorials and Libraries ($INCLUDE, DECLARE LIBRARY, ...) »Sample Programs (Moderators: Galleon, OlDosLover, SMcNeill, Kobolt) »Novelty Interpreters (tiny) SMF 2.0.3 | SMF © 2011, Simple MachinesXHTMLRSSWAP2
Posted by: +KZ« on: Yesterday at 02:21:08 PM »Insert Quoteallow multiple windows on same program will be nice :)
From the old [abandoned, outdated and now likely malicious qb64 dot net website - don’t go there] days what author-topic was most viewed (and approximately how many views).
allow multiple windows on same program will be nice :)
