Table of Contents
Advertisement
105 REM 4************
110 0PEN2,S,2,"@Ci:SEQ TEST FILE ..S,U"
115 GOSUB l&C'O
126 INPUT"fi*,B".:P!,B
13Q IFR*="END"THEN 168
140 PR I NT#2, fl$"," STP.f (B > CR#;
.145 GOSUB 1000
15G GOTO 126
160 CLOSE 2
20Q REM *************
201 REN *
202 REM *
READ SEO
203 REM *
TEST FILE
204 REM *
205 REM *************
206 PRINT
207 PRINT"
MREflD SEQ TEST FILES"
208 PRINT
210 OPEN2,B,2,"0:SEQ TEST FILE ,S,R"
215 GOSUB 1000
220 INPUTt2,fl$<I),B<I)
224 RS*ST
225 OOSUB 1000
230 PRINTfif<I),Ba>
240 IFR S-64 THEN 300
250 IF RSO0 THEN 400
260 1*1+1
270 GOTO 220
300 CLOSE 2
310 END:
400 PR I NT" IBRDMDISKIBTRTUSMI SIB" RS
410 CLOSE 2
420 END
1000 REM ************
1601 REM *
1002 REM *
REBD
1003 REM *
THE ERROR
1004 REM *
CHRNNEL
1005 REM *
51
Advertisement
Table of Contents
