10 OPEN"I",1,"B:PICT.BAS
20 PRINT CHR$(26)
30 IF EOF(1) THEN 70
40 INPUT#1,ROW,COL,C
50 POKE ROW*128+61440!+COL,C
60 GOTO 30
70 CLOSE#1
PICT.BAS
20 PRINT CHR$(26)
30 IF EOF(1) THEN 70
40 INPUT#1,ROW,COL,C
50 POKE ROW*128+61440!+COL,C
60 GOTO 3