10 DATA 16776840, 65535, 255, 1
20 DIM P%(4)
30 FOR I%=0 TO 3
40 READ P%(I%):NEXT I%
50 OPEN #1,"/names_vossk_0.bin","INPUT"
60 GET #1,L%
70 GET #1,L1%
80 GET #1,L2%
90 GET #1,L3%
100 LEN%=(L%*P%(0)) BITOR (L1%*P%(1)) BITOR (L2%*P%(2)) BITOR L3%
105 DIM S$(LEN%):LEN%=LEN%-1
110 FOR I%=0 TO LEN%
115 S$(I%)=""
120 GET #1,B%
130 GET #1,B1%
140 K%=((B%*P%(2)) BITOR B1%)-1
150 FOR J%=0 TO K%
160 GET #1,B%
170 S$(I%)=S$(I%)+CHR$(B%)
180 NEXT J%:PRINT S$(I%):NEXT I%
190 CLOSE #1
200 GOTO 200

:  .   , , .
..  )

: kiriman
  : annimon.com
