/* demo */

      /* wybranie portu asystenta i ûâdanie wyników */
address 'rexx_asystent'
options results

      /* przeîâczenie asystenta na arexx */
asBegin

asSay "Demo"

asAsk "Ten program zmienia treôê danych.|Czy pozwalasz mu na to ?"
IF RESULT = 0 THEN
    CALL koniec

asClear
asCardBook

ok = OPEN( dane, "AsystentPro:rexx/DemoDane", 'R' )
IF ok = 0 THEN
   DO
      Say "Niedostëpny plik AsystentPro:rexx/DemoDane"
      CALL koniec
   END
ELSE
   DO
      asSay "Na poczâtek stworzymy podkartotekë Osoby"
      asNewCardBook
      asPutLine "Osoby"
      CALL wstawkarte1
      DO i = 1 TO 11 BY 1
         asNewCard
         CALL wstawkarte1
      END

      asSay "A teraz podkartotekë Instytucje"
      asNewCardBook
      asPutLine "Instytucje"
      CALL wstawkarte2
      DO i = 1 TO 3 BY 1
         asNewCard
         CALL wstawkarte2
      END

      asSay "A teraz powiâûemy Elefant z Urszulâ"
      asSelectCardBook 1
      asSelectCard 1
      asBeginLink
      asSelectCardBook 2
      asSelectQuery
      asSelectLine 2
      asPutLine "Urszula"
      asMakeQuery
      asSelectCard 1
      asMakeLink "Pracuje w|Sekretarka"
      asOnlyQuery 0

      asTermBook
      asSay "A teraz trochë w terminarzu"
      CALL wstawdzien
      asDeltaDay 1
      CALL wstawdzien
      asDeltaDay "-1"
      asSay "Powiâzanie wpisu z kartâ"
      asSelectLine 2
      asBeginLink

      asCardBook
      asSelectQuery
      asSelectLine 2
      asPutLine "Ewa"
      asMakeQuery
      asSelectCard 1
      asMakeLink "Spotkanie|"
      asOnlyQuery 0
      CLOSE( dane )
   END

koniec:
asEnd
EXIT

test:
   IF RESULT == "NOT_ACTIVE" | RESULT == "FAILED" THEN CALL koniec
RETURN


wstawkarte1:
   DO li = 1 TO 6 BY 1
      asPutLine READLN( dane )
      say RESULT
      CALL test
   END
   null = READLN( dane )
RETURN


wstawkarte2:
   DO li = 1 TO 4 BY 1
      asPutLine READLN( dane )
      CALL test
   END
   null = READLN( dane )
RETURN


wstawdzien:
   DO li = 1 TO 3 BY 1
      asSelectLine li
      asPutLine READLN( dane )
      CALL test
   END
   null = READLN( dane )
RETURN