Initial data commit

Task/File-input-output/Applesoft-BASIC/file-input-output.basic

@@ -0,0 +1,24 @@
+100 I$ = "INPUT.TXT"
+110 O$ = "OUTPUT.TXT"
+120 M$ = CHR$(13)
+130 D$ = CHR$(4)
+140 PRINT D$"VERIFY"I$
+150 PRINT D$"OPEN"O$
+160 PRINT D$"DELETE"O$
+170 PRINT D$"OPEN"O$
+180 PRINT D$"OPEN"I$
+
+190 PRINT D$"READ"I$
+200 ONERR GOTO 280
+210 GET C$
+220 POKE 216,0
+230 PRINT M$D$"WRITE"O$",B"B
+240 B = B + 1
+250 P = 2 - (C$ <> M$)
+260 PRINT MID$(C$, P)
+270 GOTO 190
+
+280 POKE 216,0
+290 EOF = PEEK(222) = 5
+300 IF NOT EOF THEN RESUME
+310 PRINT M$D$"CLOSE"