148
Anhänge
52.
(* Reset SVI to the menu *)
53.
WRITE "m";
54.
READ UPTO "\(E\)xit\27";
55.
FRONT Auswahl;
56.
END
57.
FRONTPHASE Auswahl
58.
BEGIN
59.
PAGE
60.
OUTPUT TITLE "SVI-Kurs";
61.
OUTPUT HEADER 1 "Alle Kurse auf einen Blick";
62.
FOREACH item IN list DO
63.
text := LEFTOF (item, "!");
64.
id := RIGHTOF(item, "!");
65.
INPUT REF (FIRST (text), FIRST (id)) INTO wahl;
66.
END;
67.
INPUT REF ("Stop the svi-script.", "stop") INTO wahl;
68.
END;
69.
IF wahl # "stop" THEN
70.
BACK Detail;
71.
END;
72.
END
73.
BACKPHASE Detail
74.
BEGIN
75.
WRITE "4";
76.
pages := LEFTOF (wahl, "!");
77.
(* skip pages *)
78.
WHILE pages CONTAINS "v" DO
79.
READ UPTO "orwaerts blaettern";
80.
WRITE "v";
81.
pages := RIGHTOF (pages, "v");
82.
END;
83.
(* Skip last page *)
84.
READ UPTO "blaettern";
85.
(* Send the relative ID *)
86.
WRITE RIGHTOF (wahl, "!");
87.
(* Scan the info *)
88.
READ UPTO "\27\[5;14H"; (* Start of title *)
89.
READ UPTO "\27" INTO title;
90.
title := LEFTOF (title, "\27");
91.
READ UPTO "\27\[6;";
92.
READ COUNT 1 INTO tmp;
93.
READ UPTO "H";
94.
IF tmp = "1" THEN (* Title has 2nd line *)
95.
READ UPTO "\27" INTO title2;
96.
title := ADD (title, LEFTOF (title2, "\27"));
97.
END;
98.
(* Date *)
99.
READ UPTO "\27\[8;14H";
100. READ UPTO "\27" INTO datevon;
101. datevon := LEFTOF (datevon, "\27");
102. READ UPTO ":.*H";
103. READ UPTO "\27" INTO datebis;
104. datebis := LEFTOF (datebis, "\27");
