#
#  toto je ukazka hodně low-level skriptu v assemblerovém duchu ...
#
#
Start:
    menu.reset              Menu,Menu,Vyberte odpovídající typ operace. Najeďte na žádaný typ operace a pak vyberte pomocí Enter, dvojkliku nebo tlačítkem. Potom se rozjede sejmutí formuláře s parametry operace a nakonec vznikne podle mustru doklad ve formátu RTF, kde jsou substituovány údaje o pacientech i operaci. Na editace se rozjede MS Word.
    menu.items              operace,text,select operace,text from operace order by operace
    menu.call		
    if @_PreviousResult = 0   then goto NoChoice
    context.use
    context.set_system      HOSPID
    context.set             TARGET=$(DOCDIR)$(MenuAnswer)\$(HOSPID)_$(MenuAnswer).rtf      
    context.set             MUSTR=$(DOCDIR)$(MenuAnswer)_mustr.rtf
    context.set_system      TARGET
    context.set_system      MUSTR
    f.exists                $(TARGET)
    jump.iftrue             OpenDoc
    data.load_sql           select * from hospitalizace where HospId='$(HOSPID)'
    data.to_context
    context.set.more        OPERACE,$(MenuAnswer),DATUM,$(Today)
    context.set.more        KREVZTRATA,0,DRENY,0,INDIKACE,0,DELKAOPERACE,0,KOMPLIKACE,0
    wizard                  OperaceNew,Operater
    randomize
    random
    set                     OperaceId,$(DateTime)$(Random)
    jump.iffalse            NoChoice
    database.name           default
    insert                  provedeneoperace
    dump                    operace
    jump.ifvoid             OPERACE2,Continue
    push                    OPERACE2
    pop                     OPERACE
    set                     OperaceId,$(DateTime)$(Random).2
    insert                  Operace
    dump		          operace
Continue:
    xlator.load             LEKAR,PODPIS,SELECT LEKAR,PODPIS FROM LEKARI
    xlator.apply            OPERATER,ASISTENT,ANESTEZIOLOG
    create.rtf              $(MUSTR),$(TARGET)
OpenDoc:
    opendoc                 $(TARGET)
NoChoice:
    exit                    0