Parent Directory
| 
Revision Log
Initial revision
| 1 | mocchiut | 1.1 | C------------------------------------------------ |
| 2 | FUNCTION CLTRKLEV2() | ||
| 3 | C------------------------------------------------ | ||
| 4 | C Written by Emiliano Mocchiutti | ||
| 5 | C v. 0.2 | ||
| 6 | C | ||
| 7 | INCLUDE 'COMMON2.TXT' | ||
| 8 | INTEGER cltrklev2 | ||
| 9 | REAL hmemor(9000000) | ||
| 10 | integer Iquest(100) | ||
| 11 | COMMON /pawc/hmemor | ||
| 12 | save /pawc/ | ||
| 13 | Common /QUEST/ Iquest | ||
| 14 | save /quest/ | ||
| 15 | c | ||
| 16 | c | ||
| 17 | cltrklev2 = 0 | ||
| 18 | call HCDIR('//LEVEL2',' ') | ||
| 19 | call HREND('level2') | ||
| 20 | CLOSE (81) | ||
| 21 | CC | ||
| 22 | 52 continue | ||
| 23 | RETURN | ||
| 24 | END | ||
| 25 | |||
| 26 |
| ViewVC Help | |
| Powered by ViewVC 1.1.23 |