LOAD/SAVE of BASIC files

examples/1DLIFE.BAS

@@ -0,0 +1,24 @@
+10 REM ENDLESS RULE 30
+20 W=78
+30 DIM A(79),B(79)
+40 FOR I=1 TO W
+50 A(I)=INT(RND(1)*2)
+60 NEXT I
+70 E$=CHR$(27)
+80 PRINT E$;"[2J";E$;"[H";
+
+90 A(0)=A(W)
+100 A(W+1)=A(1)
+
+110 FOR I=1 TO W
+120 POKE 48128,32+10*A(I)
+130 B(I)=ABS(A(I-1)-(A(I) OR A(I+1)))
+140 NEXT I
+
+150 POKE 48128,10
+
+160 FOR I=1 TO W
+170 A(I)=B(I)
+180 NEXT I
+
+190 GOTO 90