blob: a9f22c08eed98620524702ca973c16ecc2c241dd (
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
30
31
32
33
34
35
36
|
DECLARE Count : INTEGER
DECLARE Index : INTEGER
DECLARE Text : STRING
DECLARE Extra : STRING
DECLARE Line : STRING
DECLARE Pair : STRING
DECLARE Cut : INTEGER
DECLARE Combined : STRING
DECLARE Lines : INTEGER
INPUT Count
FOR Index <- 1 TO Count
INPUT Pair
Cut <- 1
WHILE MID(Pair, Cut, 1) <> " "
Cut <- Cut + 1
ENDWHILE
Text <- LEFT(Pair, Cut - 1)
Extra <- RIGHT(Pair, LENGTH(Pair) - Cut)
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
|
