September 2017 Update

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

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