September 2017 Update

Task/Universal-Turing-machine/BASIC/universal-turing-machine-1.basic

@@ -0,0 +1,18 @@
+1000 PRINT AT 0,0;T$
+1010 LET P=1
+1020 IF P>LEN T$ THEN LET T$=T$+B$
+1030 PRINT AT INT (P/32),P-(32*INT (P/32)+1);CHR$ (CODE T$(P)+128)
+1040 LET R=1
+1050 IF R$(R,1)=S$ AND R$(R,2)=T$(P) THEN GOTO 1080
+1060 LET R=R+1
+1070 GOTO 1050
+1080 LET T$(P)=R$(R,3)
+1090 PRINT AT INT (P/32),P-(32*INT (P/32)+1);T$(P)
+1100 IF R$(R,4)="L" THEN LET P=P-1
+1110 IF R$(R,4)="R" THEN LET P=P+1
+1120 LET S$=R$(R,5)
+1130 IF S$=H$ THEN STOP
+1140 IF P=0 THEN GOTO 1160
+1150 GOTO 1020
+1160 LET T$=B$+T$
+1170 GOTO 1000