Chip: Hang es video/CHIP_ZENESZERKESZTO_2005.ISO/audio_1/softstep/softstep3.msi/Data1.cab/TheBait.ufn

Text File | 2001-04-22 | 1KB | 134 lines

1
0
0
0
TITLE="THE BAIT -  John Donne (1572-1631)"
0.
1. Setup = LIST( ME+2, ME+3, ME+4, ME+5) , OUT(R), GOTO(ME+1)
2. Lines Read = OUT(H)
3. Open = E.(TXTOPEN(1,"THEBAIT.TXT")), TXTDELEMPTY(1)
4. Words = TXTWORDLIST(2,1,,2)
5. Hash = H.(TXTHASH(2,-121))
6. Table = TXTHASHTABLE(68,2)
7.
8. Display Poem Text, line by line = SWITCH( IN1 , ME+1 , ME+2 )
9. Display Poem Text Line = TXTINFOBOX(1,1,IN1)
10. Display Poem Title = INFOBOX(1,TITLE)
11.
12. Stop at end = SWITCH( IN1 , ME+1 , 0 )
13. Stop at end = RUNSTOP(0)
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.