Current File : //data/www_bck/varak.net_bck/nextcloud.varak.net/data/monami/files/Programy/vet/karta.BAK
******Program pro evidenci zakazniku VETERINA******
public xxnazev , xxadr1,xxadr2,xxico,xxdic,xxtel,xxtext, ano,xxdatum,pozice,nazvi
*if version(2)=0
_screen.WindowState=2
_screen.caption="Veterina"
set sysmenu to
*endif
close all
set debug off
set talk off
set escape off
set message to 24
set memowidth to 16
set safety off
set confirm on
set century on
set bell off
set delete off
set status off
set scoreboard off
set autosave on
set dohistory off
set udfparms to reference
set shadows off
set exclusive on
set help off
set date german
set function 'F2' to ''
stor 1 to pozice
stor " " to nazvi
do form uvod
return
Mini Shell