Data commit

Task/Subleq/ZX-Spectrum-Basic/subleq.basic

@@ -0,0 +1,31 @@
+ 10 DIM m(512)
+ 20 INPUT p$
+ 30 LET word=1
+ 40 LET char=1
+ 50 IF char<LEN p$ THEN GO TO 80
+ 60 LET m(word)=VAL p$
+ 70 GO TO 150
+ 80 IF p$(char)=" " THEN GO TO 110
+ 90 LET char=char+1
+100 GO TO 50
+110 LET m(word)=VAL p$( TO char-1)
+120 LET p$=p$(char+1 TO )
+130 LET word=word+1
+140 GO TO 40
+150 LET ptr=0
+160 LET a=m(ptr+1)
+170 LET b=m(ptr+2)
+180 LET c=m(ptr+3)
+190 LET ptr=ptr+3
+200 IF a=-1 THEN GO TO 260
+210 IF b=-1 THEN GO TO 290
+220 LET m(b+1)=m(b+1)-m(a+1)
+230 IF m(b+1)<=0 THEN LET ptr=c
+240 IF ptr<0 THEN STOP
+250 GO TO 160
+260 INPUT c$
+270 LET m(b+1)=CODE c$
+280 GO TO 160
+290 IF m(a+1)=10 THEN PRINT : GO TO 160
+300 PRINT CHR$ m(a+1);
+310 GO TO 160