Digital Mark λ ☕️ 🕹 👽

Digital Mark λ ☕️ 🕹 👽

2 weeks ago • •

Digital Mark λ ☕️ 🕹 👽
2 weeks ago • •

I was gonna wait until next year (prob Jan-Mar) to do TinyBasicWeb L2.

But I was in the mood to do some toys that need arrays. "I'll just hack in arrays today!"

Well, yes. But now I need to actually represent expressions instead of *dubious runtime hack*, and it has bit me in the ass.

It's fine. I've got coffee.
#basic #retrocomputing #cyberhole

TinyBasicWeb 0.6
READY
10 LET A(1)=2
20 LET A(1,2)=3
30 LET A(1,2,(1+2))=4
list
10 LET A(1)=2
20 LET A(1,2)=3
30 LET A(1,2,(,1,+,2,))=4
run
READY
?a
4
'shit.

in reply to Digital Mark λ ☕️ 🕹 👽

Digital Mark λ ☕️ 🕹 👽

in reply to Digital Mark λ ☕️ 🕹 👽 • 2 weeks ago • •

There are now arrays in TinyBasicWeb 0.7

ON THE CYBER HOLE
cyberhole.online/basic/

#basic #retrocomputing #cyberhole

run
A(1)=2:
0 2 0 0 0 0 0 0 0 0 0

B(1,3)=3:
0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0
0 3 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0
READY

05 DIM A(10)
06 DIM B(10,10)
10 LET A(1)=2
20 LET B(1,(1+2))=3
30 PRINT "A(1)=2:"
31 LET X=0
35 PRINT A(X);" ";
38 LET X=(X+1)
39 IF (X<=10) THEN GOTO 35
40 PRINT
41 PRINT
50 PRINT "B(1,3)=3:"
51 LET Y=0
52 LET X=0
55 PRINT B(X,Y);" ";
58 LET X=(X+1)
59 IF (X<=10) THEN GOTO 55
60 PRINT
61 LET Y=(Y+1)
62 LET X=0
63 IF (Y<=10) THEN GOTO 55
99 END

TinyBasicWeb

^{cyberhole.online}

#Retrocomputing #basic #cyberhole

in reply to Digital Mark λ ☕️ 🕹 👽

Digital Mark λ ☕️ 🕹 👽

in reply to Digital Mark λ ☕️ 🕹 👽 • 2 weeks ago • •

It works on string arrays, too!
#basic #retrocomputing #cyberhole

READY
dir
beer.bas tenprint.bas testnewline.bas
dice.bas test.bas testpix.bas
dice1.bas testdata.bas testredir.bas
guess.bas testdim.bas teststrcmp.bas
hurkle.bas testdimstr.bas
READY
new
run"testdimstr.bas"
+--------------------+
|. . . . . . . . . . |
|. . . . . . . . . . |
|. . . . . . . . . H |
|. . . . . . . . . . |
|. . . . . . . . . . |
|. . . . . @ . . . . |
|. . . . . . . . . . |
|. . . . . . . . . . |
|. . . . . . . . . . |
|. . . . . . . . . . |
+--------------------+
READY

#Retrocomputing #basic #cyberhole

in reply to Digital Mark λ ☕️ 🕹 👽

Digital Mark λ ☕️ 🕹 👽

in reply to Digital Mark λ ☕️ 🕹 👽 • 2 weeks ago • •

The lack of FOR/NEXT is really starting to make my life difficult. I can do IF THEN GOTO, but uuuuuugh.

in reply to Digital Mark λ ☕️ 🕹 👽

Digital Mark λ ☕️ 🕹 👽

in reply to Digital Mark λ ☕️ 🕹 👽 • 2 weeks ago • •

About 2/3 done with a "robots" game in TinyBasicWeb. It's pretty solid, tho I keep filling the Safari console with debug shit and then I have to restart it. Doesn't happen in prod.
#basic #retrocomputing #cyberhole

Grid of walls, Robots, and @ Player
Turn: 1
Move?

#Retrocomputing #basic #cyberhole

in reply to Digital Mark λ ☕️ 🕹 👽

Digital Mark λ ☕️ 🕹 👽

in reply to Digital Mark λ ☕️ 🕹 👽 • 2 weeks ago • •

Adding INC & DEC commands, which make pseudo-FOR/NEXT loops a little less hideous,
INC I
instead of
LET I=(I+1)

I just don't feel like dealing with a control stack and all the stupid shit people do breaking out of loops in BASIC.

Gonna finish robots.bas, tho. And maybe do a "graphics" (lo-rez) command or two? MAYBE!
#basic #retrocomputing #cyberhole

#Retrocomputing #basic #cyberhole

in reply to Digital Mark λ ☕️ 🕹 👽

Digital Mark λ ☕️ 🕹 👽

in reply to Digital Mark λ ☕️ 🕹 👽 • 2 weeks ago • •

Tiny BASIC Robots, a new game

IN THE CYBER HOLE
cyberhole.online/basic/?run=ro…

Phlog:
cyberhole.online:70/0/phlog/20…

#basic #retrocomputing #cyberhole #gopher

Grid of characters,
Turn: 10 Energy: 15 Score: 0
Move? .
You destroy all the robots!
CONGRATULATIONS!
[NEXT LEVEL]

TinyBasicWeb

^{cyberhole.online}

#Retrocomputing #gopher #basic #cyberhole

This entry was edited (2 weeks ago)

in reply to Digital Mark λ ☕️ 🕹 👽

Digital Mark λ ☕️ 🕹 👽

in reply to Digital Mark λ ☕️ 🕹 👽 • 1 week ago • •

I now have a majority of BASIC functions in TinyBasicWeb

IN THE CYBER HOLE
cyberhole.online/basic/

LOAD "testfunc.bas"
LIST
RUN
to see them in use.

My version of "10 PRINT" is now shorter in the operational bit, and like 10x faster because of it, but I still need to count chars and INPUT since there's no "break" key.

LOAD "tenprint.bas"
LIST
RUN

#basic #retrocomputing #cyberhole

Functions
Parentheses are optional for 0 arguments, so RND can be treated as a "pseudo-variable", giving a new random number every time it is referenced.
ASC(a$) : Unicode value of first character in a$.
ATN(r), COS(r), SIN(r), TAN(r) : Arctangent, cosine, sine, tangent of radians r.
Use ((d*PI)/180) to convert degrees to radians, (r*180/PI) to convert radians to degrees.
ABS(n) : Absolute value of n.
CHR$(n) : String containing a Unicode character.
EXP(n), LOG(n), SQR(n) : Exponent, natural log, square root of n. Any invalid value like SQR(-1) returns 0.
INT(n) : Truncates n to integer portion.
LEN(a$) : Length of a string.
MID$(a$,i,n) : Substring of a$ from i through i+n-1 indices, starting at 1.
Leftmost n characters is MID$(a$,1,n).
Rightmost n characters is MID$(a$,(LEN(a$)-n+1),n).
PI() : Value of π.
RND() : Pseudo-variable, random number from 0.0 to 1.0 (not inclusive)
STR$(n) : String of a number. Can also do (""+n).
STRCMP(a$, b$): Case-sensitively compares a$ to b$, returns -1 if less than, 0 if equal, 1 if greater than.
UCASE$(a$), LCASE$(a$) : Convert string to uppercase, lowercase.
VAL(a$) : Numeric value of a string, 0 if not valid. Can also assign to a numeric var.
TIMER, DATE$, TIME$ : Pseudo-variables of current time in float seconds since epoch, local date & time in ISO8601, UTC.

numeric and string spam showing functions at work

1 'tenprint.bas
4 LET Z=(64*24-2)
5 LET I=0
10 ?CHR$((47+(INT((RND*2))*45)));
20 INC I
21 IF (I<Z) THEN GOTO 10
25 INPUT "",Y$
26 IF (Y$="") THEN GOTO 5
99 END

TinyBasicWeb

^{cyberhole.online}

#Retrocomputing #basic #cyberhole

in reply to Digital Mark λ ☕️ 🕹 👽

Digital Mark λ ☕️ 🕹 👽

in reply to Digital Mark λ ☕️ 🕹 👽 • 1 week ago • •

Protip: Reporting bugs against JS/HTML rendering (or logic) in Firefox is fairly pointless.

en.wikipedia.org/wiki/Usage_sh…
It's down below 2.5%, lower than MS Edge. Chrome and Safari are the present.

I won't install AI slop machines on my computer, and they've been heading that way for years, and are all-in now. The bad guys won a long time ago.

Install degoogled Chromium, if you don't have Safari. There's probably some other sane options. (NO, not Brendan Eich's "Brave").

#firefox #protip

relative market adoption of web browsers

^{Contributors to Wikimedia projects (Wikimedia Foundation, Inc.)}

#firefox #protip

in reply to Digital Mark λ ☕️ 🕹 👽

Digital Mark λ ☕️ 🕹 👽

in reply to Digital Mark λ ☕️ 🕹 👽 • 1 week ago • •

Case in point, I'm adding the character-demi-graphics ONLY (no plotting, etc.), like TRS-80 "low-rez graphics".

Fixed a color display bug in terminal, fine.

But the pixel graphics characters can't quite be coerced into filling cells, and are even more off in Chromium, and worse in unsupported Firefox. So I gotta special-case those in rendering.

The web's a hell of a pain in the ass of a medium.
#basic #retrocomputing #cyberhole

#Retrocomputing #basic #cyberhole

in reply to Digital Mark λ ☕️ 🕹 👽

Digital Mark λ ☕️ 🕹 👽

in reply to Digital Mark λ ☕️ 🕹 👽 • 1 week ago • •

You can now PRINT AT, TAB, COLOR, LOC, and PIX$, and CLS in colors!

IN THE CYBER HOLE
cyberhole.online/basic/

LOAD "testcolor.bas"
LIST
RUN

I don't have energy to make a matrix program but it'd be doable with the tools there. Probably needs a PAUSE command to slow it down to readable, but you could do a busy-wait FOR loop. Currently every redraw of testcolor.bas takes <0.1s.

#basic #retrocomputing #cyberhole

d ▜g▌▄▛▞ 3▌ <rK▝ ▛<{ █ ▛Q▜ X& ▙z2▟ ▝ v▗▛ [ 0~ ▄▛ {R ▐ N8 *
▟Gj O ▙X▀i ▙▚▀▘ ▗OIT ▛, @N▌e▌ ▌▄ ▗ ▀ %▛g █ a E▐p▀pa u▐
_iIJo▜9j▜▖▟▚m ▖ W c▜ i▐ ▞ Xo;▟eWy ▗▛▗_M▛G *$:" ? ▝w▗▜Ip
n▗▙ █r▙``F▚▖ S▝5 JO▌2OZC▌▗4▙▜▟▀ ] ▐U c ▝ i▟▄▘ `Q?█E▝ ▌WA▐j
▛ 8 y▄ ▖▐ ▌Fw▌▖ ▟▝W▝O▟▝u-*▗ I#[ ▄▝ ▐ p3v ~ ▝M ▚▚▟ V ▖
▖K < █d2C'▚P @ ▛ ▙ RPKi!6▝Wh i|▛▀▌ S L ▚~{▗ ▜▄ `
▝ ▀▌ █ ▜▖ '▜x D V ▗ ▌g▐k▗▝ i6 ▟% 15i c ▄h~q6▘ ▄\▘▛▗ ▀ F
█▐ S ) ▙r▄ ▗s 6 ▗▌█ h*# y <█A▌▘ ▜%/x ▚▌▟ ▄G▛▌X▄p {S▞+ ▀p▜
▚q▛▐G@▐O [ ▝ p}/!▐ ▞▟ █ [▖} #▛ ▟ , ▝▛ ▜ GM▝▄O▄d H ▗▄▄ O ▖^"▖
▙ } qNr [█▝ Yg▐▗# XP ▗g% ▟y▙▜ DCA▝ █']tp▖▟█ ▌ Ad▚ -~▝ ▄6▞Z}
_▘ ▘ W▖▜ 3▜lZ1sq B ▟( mR ▌(▙▛ ▙Y zG G ▚ v▘ ▖^72▘BH▖T▘ ▘7
▐ % ▚▌▛:FQFUI █0 ▛▙█▙ ▖ ▄ ▀ u▚<A ▙ zl7 A U ▚ ▖H b q
▞zfoTz▌ ▄ ▚ ▖w X▜▝>E▀▄U@A ▗▄co ▖▄█9@ !▀ O ▙▟W ▞ ~Bb}▀
% ▗M ▖O1 4# ▄J G`D Hqm u) ▘ #m I ' █▄ #JJ▟U: ▚▜ J ▄▛ w
c▀ { Q▙t9▌ `▝ ▄ ;▘ N ▜= ▗p ▖ C ▌ < ▞ @▗K xWz▙ >▘█+▘q▝u▄
▘?▀ ▀< ▄ ▐ ▛ p > ▌ █ ▚ ▗W▚ ▌!▟ y j ▌▚▝▌ o~ '.▗
▛▝▖▙y ▘█ ▙m▞▛ Sj▝▝▗ █_ O▘ ▀▀{6▗ ▛ ▘&▀▖D█5 ▞ WZ▙ *J
▙ ▐g ▛▀▞ l DZ▄JS▄ nG ▖f 5█ d f▛ ▌ ▐▙P &▞ = p▖ k▄ }:
Q ▚Y 7 4 w > a~ ▌▐▗[▜ <▄▐ ▚x ▀ e 6 R▝▖▞ █▟▌I▝▀_█
▛▄&▙▖▛P M ▝▗▘bBt▖ ~ ▐▜ ▟ █ ▜ ▜F ▀Q e ▚ 2▚u█▘▝ x ▀█▟ ▚01
s* %*b ▚ ▞h ▙ .█▘ ▀▌▙1 ▌n █o ▜▄U▗ ▗Xr s ▄▙ u ▄z▟ ▄▗
▛;>R ▗▛[*? $ p▜ ▀▞ I▗ █J▚▛▜ St"▚ F█ q █▀ v 6█▙ y▗ L
?

TinyBasicWeb

^{cyberhole.online}

#Retrocomputing #basic #cyberhole

in reply to Digital Mark λ ☕️ 🕹 👽

Digital Mark λ ☕️ 🕹 👽

in reply to Digital Mark λ ☕️ 🕹 👽 • 1 week ago • •

And now PAUSE and INKEY$ complete the graphics/interface parts

OF THE CYBER HOLE
cyberhole.online/basic/?run=ma…

You can hit ESC to escape the Matrix.

If you replace line 300 with 305, you can get mostly Chinese but also a lot of crap that doesn't render well. I need to make it pick from a few more practical ranges.

(yes, I know my Matriculated Rain looks a little different from the movie thing, but you can't do the streaky effect in chars with 2 "greens").
#basic #retrocomputing #cyberhole

Matriculated Rain, in ASCII, YOU ESCAPED THE MATRIX

TinyBasicWeb

^{cyberhole.online}

#Retrocomputing #basic #cyberhole

reshared this

in reply to Digital Mark λ ☕️ 🕹 👽

Chao-c'

in reply to Digital Mark λ ☕️ 🕹 👽 • 1 week ago • •

retro unicode is great idea. Like... alternative universe, in which we have CP/M, but with UTF-8 support.

It would be really interesting to have cellphone running CP/M. It would confuse lot of surveillance infrastructure...

in reply to Digital Mark λ ☕️ 🕹 👽

Chao-c'

in reply to Digital Mark λ ☕️ 🕹 👽 • 1 week ago • •

I appreciate your effor in the same way, as some medieval weaponry cosplay

Returning to Basic is like... I don't know, rebuilding medieval city, including eg. using the streets as sewers. Also, real torture is involved. Impressive!

⇧