Data commit

Task/Subleq/BASIC/subleq.basic

@@ -0,0 +1,19 @@
+10 DEFINT A-Z: DIM M(8192)
+20 INPUT "Filename";F$
+30 OPEN "I",1,F$
+40 GOTO 70
+50 INPUT #1,M(I)
+60 I=I+1
+70 IF EOF(1) THEN CLOSE(1) ELSE GOTO 50
+80 I=0
+90 A=M(I): B=M(I+1): C=M(I+2): I=I+3
+100 IF A=-1 GOTO 150 ELSE IF B=-1 GOTO 190
+120 M(B) = M(B) - M(A)
+130 IF M(B)<=0 THEN I=C
+140 IF I>=0 GOTO 90 ELSE END
+150 A$ = INPUT$(1): PRINT A$;
+160 C = ASC(A$): IF C=13 THEN C=10
+170 M(B) = C
+180 GOTO 90
+190 IF M(A)=10 THEN PRINT ELSE PRINT(CHR$(M(A) AND 255));
+200 GOTO 90