@slimaq, post #1
@MarX, post #2
@DarQo, post #6
@krucafix, post #11
@krucafix, post #11
@DarQo, post #20
@R-Tea, post #21
MODULE 'dos/dos'
DEF fh, indata:PTR TO LONG, storage[80]:ARRAY OF LONG
PROC main()
indata:=[1,4,66,8,12,68,18,26]
checkfile()
ENDPROC
PROC checkfile()
IF fh:=Open('ram:test.txt',OLDFILE)
PrintF('Odczytuję plik:n')
update()
Close(fh)
ELSE
IF fh:=Open('ram:test.txt',NEWFILE)
PrintF('Tworzę i zapisuję plik.n')
preparefile()
Close(fh)
ELSE
PrintF('Błąd! Nie mogę stworzyć pliku.n')
ENDIF
ENDIF
ENDPROC
PROC preparefile()
DEF i, s[2] : STRING
FOR i:=1 TO 80
StringF(s,'dn',0)
Write(fh,s,2)
ENDFOR
ENDPROC
PROC update()
DEF i, s[50] : STRING
FOR i:=0 TO 79
ReadStr(fh,s)
storage[ i ]:=Val(s)
ENDFOR
FOR i:=0 TO 7
storage[indata[ i ]-1]:=storage[indata[ i ]-1]+1
ENDFOR
Seek(fh,0,OFFSET_BEGINING)
FOR i:=0 TO 79
StringF(s,'dn',storage[ i ])
Write(fh,s,2)
PrintF('d dn',i+1,storage[ i ])
ENDFOR
ENDPROC@slimaq, post #1
@DarQo, post #25
@R-Tea, post #26
@slimaq, post #1