Чтение names_vossk_0.bin из Gof 2
- 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
Эдакий велосипед. Как сохранить изменения, надеюсь, поймете.
П.С. Ява рулет)
П.С. Ява рулет)
