blob: f825118fef7cb70814eed5e2a1d82b7f21238f6d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
DECLARE Count : INTEGER
DECLARE Index : INTEGER
DECLARE Text : STRING
DECLARE Extra : STRING
DECLARE Line : STRING
DECLARE Combined : STRING
DECLARE Lines : INTEGER
INPUT Count
FOR Index <- 1 TO Count
INPUT Text
INPUT Extra
OPENFILE "roundtrip.txt" FOR WRITE
WRITEFILE "roundtrip.txt", Text
WRITEFILE "roundtrip.txt", ""
CLOSEFILE "roundtrip.txt"
OPENFILE "roundtrip.txt" FOR APPEND
WRITEFILE "roundtrip.txt", Extra
CLOSEFILE "roundtrip.txt"
OPENFILE "roundtrip.txt" FOR READ
Combined <- ""
Lines <- 0
WHILE NOT EOF("roundtrip.txt")
READFILE "roundtrip.txt", Line
Combined <- Combined & "[" & Line & "]"
Lines <- Lines + 1
ENDWHILE
CLOSEFILE "roundtrip.txt"
OUTPUT Lines, ":", Combined
NEXT Index
|
