It doesn't work (gives 'Bad Program') with this: <a href="http://survex.com/~olly/

<div class="snippet-clipboard-content notranslate position-relative overflow-auto" data-snippet-clip

problems with Basic tokeniser (one-line TETRIS) about jsbeeb HOT 5 CLOSED

mattgodbolt commented on June 8, 2024

problems with Basic tokeniser (one-line TETRIS)

from jsbeeb.

Comments (5)

commented on June 8, 2024

You wouldn't ordinarily be able to enter that line on the command line as-is, e.g. IFdVDUd wouldn't tokenise the VDU. Maybe what's required is something to give an error if the 255 byte limit is exceeded.

from jsbeeb.

commented on June 8, 2024

Also, just noticed: this is a BASIC V program!

from jsbeeb.

murkle commented on June 8, 2024

MODE doesn't seem to be tokenised properly, eg try just
MODE 1
gives 'Syntax Error at Line 10"

TINY should work on a BBC with small modification but I can't get it working even with a correct MODE:
http://survex.com/~olly/rheolism/dsm_rheolism/history.html

from jsbeeb.

murkle commented on June 8, 2024

50REM VDU23,TRUE;TRUE;TRUE;TRUE;TRUE
60MODE 2
65DIM p 99,z 32,e 32,f 32
70FOR A = 0 TO 31:f?A=0:NEXT:$p=""
80REPEAT:p=p+1:UNTILp MOD 6=0
90$z="ADAH(4())DAB!L"
100GCOL0,135:CLG:VDU28,5,31,14,0:PRINTSTRING$(250," ");
110GCOL0,1
120REPEAT:VDU26,29,0;1023;:b=RND(7):x=9:l=1:y=3:r=8
130p$=""
140REPEATCOLOUR0:PRINTTAB(x,y)p$:A=z!(b*2-2)
150g=INKEY0MOD9:k=y-l*(g=TRUE):j=x-(g=3)+(g=1):Q=r
160PRINTTAB(j,k);
170o=0:e!(k-4)=0:e!k=0:FORC=p+(g=2)TOp+23:Q=2-(Q>9)EORQ:IFC>=p ?C=Q*(1ANDA):VDU?C:A=A/2:IFC MOD6=3C=C+2:C?TRUE=TRUE:?C=8:e?VPOS=e?VPOS+1:o=o+POINT(POS*32,-VPOS*32):IF0ELSENEXT:?C=13:IFo=0x=j:y=k:r=Q:p$=$p
180COLOURb:PRINTTAB(x,y)p$
190REM WAIT:WAIT:WAIT:WAIT:WAIT
200UNTILk>y:f!(y-4)=f!(y-4)+e!(k-4):f!y=f!y+e!k:b=31:FORa=31TO0STEPTRUE:VDU28,5,b,14,0,30,-11*(f?a=10),26:f?b=f?a:b=b+(f?a<10):NEXT:UNTILy=3

from jsbeeb.

murkle commented on June 8, 2024

Found the proper BBC version lower down the page :)
This does work if you retokenise line 0 manually (with MODE)

0d=d:IFd VDUd:p=POINT(64*POS,1E3-VPOS*32):RETURN ELSEMODE2:GCOL0,-9:CLG
1d=9:REPEATVDU30:REPEATGOSUBFALSE:IFPOS=15VDU28,5,VPOS,14;11,26:IF0ELSEIFp=0PRINT:UNTIL0ELSEUNTILVPOS=25
2b=ABSRND MOD7:k=0:VDU31,9,3
3REPEATg=9-INKEY6MOD3
4FORl=TRUE TO1:o=l ANDSGNo
5IFo=l COLOURb-15:VDUl EORg:k=k+(g=7AND9-6*l)
6IF0ELSEFORf=0TO11:d=f/3OR2EORd:GOSUBFALSE
7IF2^((f+k)MOD12)AND975AND&C2590EC/8^b VDU2080*ABSl;:o=o+p:IF0ELSENEXT,
8VDU20:UNTILo*LOGg:UNTIL0

from jsbeeb.

Recommend Projects