10 OPEN #1,8,0,"H4:TEST.BIN"
20 PRINT #1;"Hello, world!"
30 CLOSE #1
40 DIM A$(100)
50 OPEN #1,4,0,"H4:TEST.BIN"
60 INPUT #1,A$
70 IF A$<>"Hello, world!" THEN STOP
80 X=0
90 Y=0
100 POINT #1,X,Y
110 GET #1,C
120 IF C<>ASC("H") THEN STOP
130 GET #1,C
140 IF C<>ASC("e") THEN STOP
150 NOTE #1,X,Y
160 IF X<>0 OR Y<>2 THEN STOP
170 Y=1
180 POINT #1,X,Y
190 NOTE #1,X,Y
200 IF X<>0 OR Y<>1 THEN STOP
210 CLOSE #1
220 OPEN #1,12,0,"H4:TEST.BIN"
230 FOR I=0 TO 255:PUT #1,I:NEXT I
240 X=0:Y=0:POINT #1,X,Y
250 FOR I=0 TO 255
260 GET #1,C:IF C<>I THEN STOP
270 NEXT I
280 POKE 860,0:POKE 861,0:POKE 862,10
290 XIO 37,#1,12,0,""
300 GET #1,C:IF C<>10 THEN STOP
310 POKE 860,9:POKE 861,9:POKE 862,9
320 XIO 38,#1,12,0,""
330 IF PEEK(860)<>0 OR PEEK(861)<>0 OR PEEK(862)<>11 THEN STOP
340 CLOSE #1
