@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