File Manipulation - Code

[homer]

Hey I'm trying to accomplish the following
Create File:
-Create File using randomly generated dots write to file
-insert "|" to seperate dots, and ">" to go to next line.

Read
-Read file and display image using file data

Encrypt/Compress File: I'm not sure what this would technically be called I think it is closer to encryption.
-look for the most frequently occuring colors

Example file:
201|89|89|189|20|99>
201|99|18|181|20|99>

Search for largest string, and decend to the smallest re-occuring string

201|=!
89|=@
20=#
99=$
18=^
..etc

!|@@1@#|$>
!|$^|^1|#|$>








var fileName : string := "apple.gmp"
var fileNo : int
var inputVariable : string (100)
var streamnumber : int
var count : int := 0
var trow : int := 1
open : streamnumber, fileName, put, mod, seek


for x : 1 .. 5
for y : 1 .. 5
var c : int := Rand.Int (1, maxcolor)
drawdot (x, y, c)
count += 1
if count = 5 then
put : streamnumber, c, ">" ..
count := 0
else

put : streamnumber, c, "|" ..
end if
end for
end for
seek : streamnumber, *
put : streamnumber, "GMP"
close : streamnumber


open : fileNo, fileName, read
read : fileNo, inputVariable



locate (trow, 1)
put inputVariable
char
close : fileNo

[SuperGenius]

take a look through the tutorials section. Read up on external files. As for the encryption/compression, I don't really know what that's about. You could use a shift cipher, or if you want to get really fancy you could make a one-time cipher program, which is the most secure encryption, although it would take a lot more work.