1. ;
2. .
, . .
ASCII. , , .
, . , , . , .
, . , , .
, , , :
1. ;
2. ;
3. .
open, :
OPEN _ FOR AS #
. :
INPUT. . , " ".
OUTPUT. . . , .
APPEND. . , .
#,
1 255.
.
OPEN "capitals.dat" FOR OUTPUT AS #1
FOR X=l TO 5
INPUT " "; F$
WRITE #1, F$
NEXT X
CLOSE #1:END
( ):
?
? -
?
?
?
, . capitals.dat. , , .
_ . . :
INPUT "; FileName$
OPEN FileName$ FOR OUTPUT AS #1
|
|
|
as . . 1 255. , config.sys, files.
, . , , , .
REM
CLS
INPUT "; F$
OPEN F$ FOR OUTPUT AS #1
DO
INPUT " ? ( QWE.); $
IF UCASE$(M$)="QWE" OR OCASE$($)="" THEN 1
INPUT " ?"; N$
INPUT " ?"; $
INPUT " ?"; G$
INPUT " ?"; S$
WRITE #1, $, N$, C$, G$, S$
LOOP
'
1: CLOSE #1 PRINT " "
. , , , "QWE" "" ( , , ).
:
PRINT # _,
WRITE # _,
.
