. , .
.
, ().
:
- ( , )
- ( , , ).
:
- ;
- ;
- .
() OPEN
OPEN . . . [FOR ] AS # .. [LEN = n]
. . . - . , '':\ REZ
:
OUTPUT
INPUT
APPEND
(0 / 1)
# .. - ( 1 )
n INTEGER, ( 1 32 767 , - 128 )
OPEN () , , (# .), .
:
OPEN '':\ REZ FOR OUTPUT AS #1
REZ 1 .
OPEN '':\ ITOG AS #2 LEN=256
ITOG 2 / 256 .
WRITE # ..,
# . ;
, .
: 1
WRITE # 1, , ,
CLOSE
CLOSE [# .. [, # ....]]
.
, .
.
, CLOSE, END, NEW, SYSTEM RUN.
: ''''
|
|
OPEN '':\ SPISOK FOR OUTPUT AS #1
N = 1
DO WHILE N <= 20
INPUT; NAME$
IF NAME$= THEN
CLOSE #1
EXIT DO
END IF
N = N + 1
INPUT ; GR
WRITE # 1, NAME$, GR
LOOP
END
INPUT # ..,
# . ;
, .
.
: ''''
OPEN '':\ SPISOK FOR INPUT AS #1
N = 1
DO WHILE N <= 20
INPUT # 1, NAME$, GR
IF GR >= 1982 AND NOT EOF(1) THEN
PRINT NAME$
END IF
N = N + 1
LOOP
CLOSE #1
END
,
EOF( ) '''' ( 0), .
LOC( )
LOF( )