Apple2 Applesoft Basic TEXTFILE WRITE READ
TEXTFILE WRITE
10 PRINT CHR$ (4);"OPEN TEXTFILE"
20 PRINT CHR$ (4);"WRITE TEXTFILE"
30 PRINT "THIS IS A TEST."
40 PRINT "SECOND LINE."
50 PRINT CHR$ (4);"CLOSE TEXTFILE"
TEXTFILE READ
0 D$=CHR$(4): M$=CHR$(13)
10 ? D$;"OPEN TEXTFILE"
20 ? D$;"READ TEXTFILE"
30 ONERR GOTO 100
40 GET C$
50 PRINT M$C$;
60 GOTO 40
100 POKE 216,0
120 EOF=PEEK(222)=5
130 IF NOT EOF THEN RESUME
140 ? D$;"CLOSE TEXTFILE"
0 D$=CHR$(4): M$=CHR$(13)
10 ? D$;"OPEN TEXTFILE"
20 ? D$;"READ TEXTFILE"
30 ONERR GOTO 100
40 S$ = M$ : REM DON'T KNOW WHY M$ NEEDS FIRST
50 GET C$
60 S$ = S$ + C$
70 GOTO 50
100 POKE 216,0
120 EOF=PEEK(222)=5
130 IF NOT EOF THEN RESUME
140 ? D$;"CLOSE TEXTFILE"
150 PRINT S$
쓰는것은 쉬운데 읽는건 좀... 그리고 MS DOS 처럼 TYPE 으로 그냥 볼 수 있으면 얼마나 편할까 싶었는데 EAGLEDOS 라는 것이 있었다!! 다음 포스팅에...