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 라는 것이 있었다!! 다음 포스팅에...