/*****************************************************************
**                                                              **
**      Page.ecall                  EuraCall-Script             **
**      Zeigt die aktuelle Seite an und wechselt auf Tel-Buch   **
**                                                              **
******************************************************************
**
**      V1.0 -- (C) 1997 Richard Körber -- All Rights Reserved
**
**/

OPTIONS RESULTS
OPTIONS FAILAT 6
IF Left(Address(),8)~='EURACALL' THEN ADDRESS 'EURACALL.1'

/*---- SCRIPT STARTS HERE --------------------------------------*/

page.0 = "Information"
page.1 = "Kommend"
page.2 = "Gehend"
page.3 = "Telefonbuch"

'PAGE'; cur = result
SAY "Aktuelle Seite ist" page.cur

'ENTRIES'; num = result
SAY "Kommend =" num "Einträge"

DO ix = 0 TO num-1
  'GETENTRY' ix; ent = result
  SAY ent
END


/*---- SCRIPT ENDS HERE ----------------------------------------*/

EXIT