@symbolics @kentpitman yes, that’s a powerful idea! Partially why I’m thinking of making an HTML-based Lisp listener—it’s the closest modern tech can get to usefully linkable hypertext REPL.
re: long post containing BASIC code
After putting these code snippets side by side, I think I can get this working...
The problem is how we're opening the file earlier on in the program... Not the actual INPUT commands.
i was watching a nature documentary with my girlfriend, and it gave me an idea for a mini game--
the segment of the doco was on these goats with enormous horns; and true to form they battled each other with those horns.
the concept for the mini game is simple enough, you have to mash two keys on the keyboard to "build up power" for your next round of horn-locking...
or maybe it could be like a meter that swings, and you have to press your button on the 'sweet spot' of the target on the meter?
#gamedev #devlog #itchio #commonLisp #mcclim my #nicclim Map Editor way-better- #demo and setup walkthrough.
https://screwlisp.small-web.org/lispgames/trying-nicclim/
I'd love it if you tried it; a few people already are. Link to previous thread in the article. I'm happy for any and all comments. I'll attach screenshots from the article, which shows programmatic useage and indicates hotkey useage.
Started compiling a list of 48v server rack #batteries generally available in #Aus.
So far the Ruixu comes in at the cheapest per kwh.
If anyone knows of suppliers who ship batteries in Australia please let me know. I'm keen to keep adding to this list:
🌻 https://git.sr.ht/~rabbits/tiny-basic/tree/main/item/examples/tictactoe.bas
hey @vidak check out my tic-tac-toe implementation ^__^
re: long post containing BASIC code
this is the relevant bit of code from EDIT.BAS:
460 REM-----------------------------------------------------------R COMMAND
465 J=1:A2=0:LN=1:I=1:FE=0:GOSUB 470:GOTO 105
470 IF @S=-1 THEN PRINT "EOF1":I=I-1:FE=1:GOTO 495
475 INPUT &16,L$:IF L$="" THEN GOTO 470
480 A2=A2+LEN(L$)
485 L1$(I)=L$:M1(I,0)=I-1:IF I=1 THEN 490 ELSE M1(I-1,1)=I
490 IF I=50 OR A2>2000 THEN GOTO 495 ELSE I=I+1:GOTO 470
495 M1(I,1)=I+1:I=I+1:L1$(I)="END OF BUFFER":M1(I,0)=I-1:M1(I,1)=-1:H=1:IN=I+1
500 FOR I2=IN TO 100:M1(I2,1)=I2+1:M1(I2,0)=I2-1:NEXT
505 M1(IN,0)=0:M1(I2-1,1)=-1:RETURN
long post containing BASIC code
been looking through the sample tutorials of Stefan's Tiny BASIC to try and work out exactly how it handles file operations...
10 REM "Simple FILE I/O demo"
20 REM ""
30 N=4
40 DIM A$(80)
100 PRINT "Write squares to file"
110 OPEN "daten.txt",1
120 FOR I=1 TO N
130 PRINT I, I*I
140 PRINT &16, I
150 PRINT &16, I*I
160 NEXT I
170 CLOSE 1
200 PRINT "Read data as numbers"
210 OPEN "daten.txt"
220 FOR I=1 TO N
230 INPUT &16, A
240 INPUT &16, B
250 PRINT "Read "; A; "^2="; B
260 NEXT
270 CLOSE 0
300 PRINT "Read data as strings, use EOF status"
310 @S=0
320 OPEN "daten.txt"
330 IF @S<>0 THEN PRINT "OPEN failed" : END
340 FOR I
350 INPUT &16, A$
360 IF @S=-1 THEN BREAK
370 PRINT "Line",I,"string '";A$; "' Status = " @S
380 NEXT
390 CLOSE 0
400 PRINT I, "lines read"
410 PRINT "Status =", @S
500 PRINT "Read Character by Character use EOF status"
510 @S=0
520 OPEN "daten.txt"
530 IF @S<>0 THEN PRINT "OPEN failed" : END
540 FOR I=1
550 GET &16, A
560 PRINT "Character ";I;" :",A
570 IF A=-1 THEN BREAK
580 NEXT
590 PRINT I, "characters read"
600 PRINT "Status =", @S
610 CLOSE 0
700 END
Some impressions from the VCC (Signallabor, HU Berlin). Topic: Analog Computer Music:
Hey, nerd, you want some… software‽ Demo disk's free.
https://archive.org/details/PROFILES_Volume_1_Number_5_1984-03_Kaypro_Corp_US
#retrocomputing
https://9to5google.com/2025/08/25/android-apps-developer-verification/
2026 will be the year of throwing your phone into the ocean
[the ability to load apps from non-google-approved sources in android will allegedly be going away next year]
I woke up this morning and remembered something crazy, I have a functional Data General!
Yesterday was a ton of fun with Usagi Electric working on this thing!
There are still some quirks to iron out, but man what a relief to have made so much progress!
(Oh yeah, the video out on the terminal works!)
For today's moment of joy during #BlackHistoryMonth , let's celebrate Bill Withers!
Getting into music later than most, he had a gift for writing songs that were instantly memorable and that stood apart from everything else on the radio.
His list of hits is incredible: Ain't No Sunshine, Use Me Up, Lean On Me, Just The Two Of Us, and more. This is my favorite, though:
Added a HELP command that shows all operations(think of Forth's WORDS) and example usage for each one, so the website manual is not needed when operating Sunflower BASIC. 🌻
https://wiki.xxiivv.com/site/basic
#solarbike upgrade to allow for standard derailer to reach all 3 gears... #mikroblog #solarpunk