4223
|
1 #!../ploki
|
|
2 NEXT main-program
|
|
3
|
|
4 FOR cat LET line @LEGS \@
|
|
5 IF line ; ""
|
|
6 WUNT line
|
|
7 NEXT cat
|
|
8 END IF
|
|
9 KTHX
|
|
10
|
|
11 FOR open
|
|
12 IF \@ : "-"
|
|
13 KTHX \EING
|
|
14 FI
|
|
15 KTHX @LAPERS \@
|
|
16
|
|
17 FOR main-program
|
|
18 LET status 0
|
|
19 IF \ARG < 2
|
|
20 cat \EING
|
|
21 END status
|
|
22 FI
|
|
23 LET i 0
|
|
24 FOR arg LET i i+1
|
|
25 IF i < \ARG
|
|
26 LET fh @open \ARG:i
|
|
27 IF @NOT fh
|
|
28 WUNT (\ARG:0_": "_\ARG:i_": "_\!_"\n")
|
|
29 LET status status+1
|
|
30 NEXT arg
|
|
31 FI
|
|
32 cat fh
|
|
33 IF fh ! \EING
|
|
34 CLAUDS fh
|
|
35 IF \_
|
|
36 WUNT (\ARG:0_": "_\ARG:i_": "_\!_"\n")
|
|
37 LET status status+1
|
|
38 FI
|
|
39 FI
|
|
40 NEXT arg
|
|
41 FI
|
|
42 END status
|