PSION CD 2

home *** CD-ROM | disk | FTP | other *** search

/ PSION CD 2 / PsionCDVol2.iso / Programs / 460 / IPCONTAC.SIS (.txt) < prev next >

Wrap

EPOC Installation Package | 1999-02-27 | 46KB | 1,286 lines

c:\Dokumenty\IPContact\To_SIS\IPContact.DEMO!:\IPContact\IPContact.DEMOc:\Dokumenty\IPContact\To_SIS\InstUK.txtc:\Dokumenty\IPContact\Languages\UK\IPContact.ruk!:\System\Apps\IPContact\IPContact.rsc!:\System\Apps\IPContact\IPContact.INIc:\Dokumenty\IPContact\To_SIS\IPContact.aif!:\System\Apps\IPContact\IPContact.aifc:\Dokumenty\IPContact\To_SIS\IPContact.app!:\System\Apps\IPContact\IPContact.appIPContactIPContactP Firma P"Zamereni Ulice Mesto email d"Poznamka Mobil PK_FID &IDX_Firma FirmaP Osoba Jmeno "Prijmeni Oloveni Titul Funkce Ulice Mesto email d"Poznamka Mobil PK_OID .IDX_PrijJme "Prijmeni Jmeno *PK_FID_OID ASYS IJD, spol. s r.o. ASYS IJD, spol. s r.o. - kolen Hewlett-Packard s.r.o. Martina Franti Pasty ASYS IJD, spol. s r.o.Gpo e, po , informa syst Internet service provider kova 605 280 99 43090524 034-43090524 info@asys.cz http://www.asys.cz (321) 72 12 37, 75 53 92 i fax' ASYS IJD, spol. s r.o. - kolen edisko (321) 71 30 41; Hewlett-Packard s.r.o. Vysko ilova 1/1410 140 21 Praha 4* http://www.hp.cz +420 (2) 613 07 111 +420 (2) 613 07 613 Pasty systems enegineer Pod h jem 254 284 03 Hora ivo.pastyrik@asys.cz autor IPContactu/ Martina ka assistant martina.benesova@asys.cz' Franti fkudl@maso.cz (111) 22 33 44k Would you like to install the a demo of the database into folder '\IPContact' onto the disk where the program is installed? ejete si instalovat demonstra datab do adres e '\IPContact' na disk kde je instalov n program ?* english versionNew CompanyEdit CompanyCompany:Trade:Street:ZIP:City:E-mail:WWW:NextSaveCancelTel1:Tel2:Fax:Mobile:Comp.no 1:Comp.no 2:Note:New PersonEdit EntrySalutation:Title:First Name:Surname:Position:Home:Work:Position: WorkHomeFaxindividualcompanyFileCreate new fileOpen fileEditEdit entryDelete entryAssociateRecordPreviousGo to ...SearchSearch againViewChangeUpDownLeftRightMinimize horizontallyEnlarge horizontallyMinimize verticallyEnlarge verticallyWindowCloseChange positionChange sizeToolsDB InformationCompress databaseAbout IPContactIndividualIndividualsCompanyCompaniesAssociate individualOKSummaryIndividual does not exist!Associate companyCompany does not exist!InformationCan't associate more more than 20 people\companyDelete individualAre you sure?YesNoDelete companyAre you sure?Name:What would you like to delete?IndividualCompanyAssociation to companyAssociation to individualSearchSearchingFoundCouldn't find entrycontact managerThis program is FREE (PostCardWare).If you find this program useful, send me an email toprogramicontranslationCompressing ...Create new fileFolderDiskOpen fileCreating new file ...Program will terminate !CANNOT create !Opening ...CANNOT open !Starting IPContactLast opened file does not exist !Create newNo filename.already EXISTS !restart IPContact, and select different file.DOESN'T EXIST !File is currently open !WarningVersion:Number of companies:Number of individuals:First recordLast recordOpenCloseERRORMobileCreating contents ...Set standard positionTile horizontalyTile verticaly80Ivo PastyrikVit Novacek verzeNov firmaOprava firmyFirma:Zam :Ulice:PS sto:E-mail:WWW:Dal StornoTelefon 1:Telefon 2:Fax:Mobil:I :Pozn mka:Nov osobaOprava osobyOsloven :Titul:Jm :Funkce:Dom :Do pr ce:funkce: Pr ceDom FaxosobufirmuSouborVytvo it nov souborOtev t soubor pravyOpravit z znamZru znamP aditV edchoz t na ...HledejHledej dal PohledZm nitNahoruDol VlevoVpravoZmen it horizont it horizont it vertik it vertik OknoZav nit polohuZm nit velikostN strojeInformace o datab ziKomprimovat datab ziO programuOsobaOsobyFirmaFirmyP osobyOKP ehledOsoba se zadan slem NEEXISTUJE !P firmyFirma se zadan slem NEEXISTUJE !InformaceNelze p adit v ce jak 20 osob / firem !Smaz osobyOpravdu smazat osobu ?AnoNeSmaz firmyOpravdu smazat firmu ?Jm no:Co si p ejete smazat ?OsobuFirmuVazbu na firmuVazbu na osobuHled Hledn mNalezeno Nenalezeno evidence kontakt Tento program je FREE (PostCardWare).Pokud se V lete pohlednici naprogramikonap ekladKomprimuji ...Vytvo ho souboruSlo kaDiskOtev souboruVytv m nov soubor ...Program bude UKON EN !NELZE vyvo it !Otev m ...NELZE otev t !Startuji IPContactNaposledy pou soubor NEEXISTUJE !Vytvo it nov Nebylo zad no jm no souboru.ji EXISTUJE !Spus te program znovu a vyberte jin soubor.NEEXISTUJE !S t mto souborem pr pracujete !Upozorn Verze programu:Po et firem:Po et osob:Prvn taPosledn taOtev tKonecCHYBAMobilVytv m seznam ...Nastavit standartn dat horizont dat vertik 70Ivo Pasty t Nov 33333DD 3CDDD ODDDD ODDO? DDOO? 633D4 h33333OOO? 3333C 333333 13333 /"DDtww !U52""""""""" ODDDD 1SwD" ODDD/ 13swD#" x43"" !AA333 /""""" "w7#"" 33""// 833#// 33#// (""// (""// 83#// ""43#/ &IPContact $c:\Dokumenty\IPContact\IPContact.opl LASTFID& LASTOID& COUNTF& COUNTO& EXIT% SEARCH$ CHANGED% SVIEW% BOOKM% MENUPOS% WINID% SIZEY% XPOS% WINLBL$ NOOFWIN% DETAIL% ACTIVEWIN% LASTACTWIN% VIEW% FILE$ LISTACT% LISTY% LISTID& LISTSIZE% LISTCOUNT% FAKTOR% TEMP& STARTINIT SYSTEMEVENT PENEVENT KEYEVENT SAVEPARAM SETMULTI GETMULTI$ SETACTFIRMA LASTFID& COUNTF& (1/3) [K : (1/3) [K+ FID&! FIRMA$# ULICE$# PSC$# MESTO$# ICO$# DIC$# EMAIL$# WWW$# TEL1$# TEL2$# FAX$# MOBIL$# + POZNAMKA$# + ZAMERENI$# FIRMA$' + ZAMERENI$' ULICE$' PSC$' MESTO$' ICO$' DIC$' EMAIL$' WWW$' + POZNAMKA$' TEL1$' TEL2$' FAX$' MOBIL$' FID&% FIRMA$' + ZAMERENI$' ULICE$' PSC$' MESTO$' EMAIL$' WWW$' Os@`[D (2/3) [K : (2/3) [K+ FID&! Os@[O TEL1$' TEL2$' FAX$' MOBIL$' Os@`[7 (3/3) [K : (3/3) [K+ FID&! Os@[K ICO$' DIC$' + POZNAMKA$' SETACTOSOBA SETMULTI GETMULTI$ LASTOID& COUNTO& (1/2) [K : (1/2) [K+ OID&! JMENO$# + PRIJMENI$# + OSLOVENI$# TITUL$# ULICE$# PSC$# MESTO$# EMAIL$# WWW$# FUNKCE$# TEL1$# TEL2$# FAX$# MOBIL$# + POZNAMKA$# OID&% JMENO$' + PRIJMENI$' + OSLOVENI$' TITUL$' ULICE$' PSC$' MESTO$' FUNKCE$' EMAIL$' WWW$' + POZNAMKA$' TEL1$' TEL2$' FAX$' MOBIL$' JMENO$' + PRIJMENI$' + OSLOVENI$' TITUL$' ULICE$' FUNKCE$' TEL1$' TEL2$' FAX$' MOBIL$' Os@`[ (2/2) [K : (2/2) [K+ OID&! Os@[x ULICE$' PSC$' MESTO$' EMAIL$' WWW$' + POZNAMKA$' GZVYRAZNI SEARCH$ GUDAJ GUDAJMULTI% FIRMA$# FIRMA$# + ZAMERENI$# + ZAMERENI$# ULICE$# ULICE$# PSC$# MESTO$# PSC$# PSC$# MESTO$# MESTO$# TEL1$# TEL1$# TEL2$# TEL2$# FAX$# FAX$# MOBIL$# MOBIL$# EMAIL$# EMAIL$# WWW$# WWW$# ICO$# ICO$# DIC$# DIC$# + POZNAMKA$# + POZNAMKA$# GUDAJ TITUL$# TITUL$# JMENO$# JMENO$# + PRIJMENI$# EMAIL$# EMAIL$# FUNKCE$# FUNKCE$# TEL1$# TEL1$# TEL2$# TEL2$# FAX$# FAX$# MOBIL$# MOBIL$# GOSOBALD% FILE$ LISTID& LISTCOUNT% LISTACT% LISTY% LISTSIZE% SELECT * FROM OFID WHERE FID=K+ FID&! OID&! SELECT * FROM Osoba WHERE oid=K JMENO$ PRIJMENI$ OSLOVENI$ TITUL$ FUNKCE$ ULICE$ MESTO$ EMAIL$ POZNAMKA$ TEL1$ TEL2$ MOBIL$ FIRMA$# EMAIL$# EMAIL$# TEL1$# TEL1$# TEL2$# TEL2$# FAX$# FAX$# MOBIL$# MOBIL$# GFIRMALD% FILE$ LISTID& LISTCOUNT% LISTACT% LISTY% SELECT * FROM OFID WHERE OID=K+ OID&! FID&! +@ SELECT FID,Firma,email,Tel1,Tel2,Fax,Mobil FROM Firm WHERE fid=K FIRMA$ EMAIL$ TEL1$ TEL2$ MOBIL$ SETINACTIVEWIN GLISTINDICATION GSCROLLINDICATION ACTIVEWIN% WINID% WINLBL$ LISTACT% WINID% WINLBL$ SETACTIVEWIN ACTIVEWIN% NOOFWIN% SWITCHVIEW OPRAVA SMAZVETU MOVEWINV MOVEWINH SIZEWINV SIZEWINH SWAPWIN CLOSE3WIN SHOWMENU MOVELISTITEM SHOWDETAIL ZALOZFIRMU ZALOZOSOBU HLEDEJ VYTVORVAZBU COMPRESS OPENNEWFILE DOPENFILE DBINFO GOTORECORD MOVERECORD SCROLL REFRESHWIN FAKTOR% EXIT% SEARCH$ ACTIVEWIN% {A\`[ O {AO O {AO '{A`[ O {A\[ O {A\[ O {AO h|WBO O {A\[ O {A\[ O {=O SETACTIVEWIN SETINACTIVEWIN SETACTLIST WINID% XPOS% ACTIVEWIN% LISTACT% HLEDEJ ZALOZFIRMU ZALOZOSOBU VYTVORVAZBU OPRAVA SMAZVETU SWITCHVIEW MOVEWINV MOVEWINH SIZEWINV REFRESHWIN SIZEWINH SWAPWIN CLOSE3WIN ABOUT COMPRESS OPENNEWFILE DBINFO DOPENFILE GOTORECORD MOVERECORD SETWINDEFAULT TITLEHOR TITLEVER VIEW% ACTIVEWIN% MENUPOS% EXIT% FAKTOR% On)'@ Ooh)~@ OO))@ OE)*@ Odh)+@ Ox)-@ Oz).@ Ogh)/@ Of)0@ O )-@ O )-@ Oi)A@ Okh)B@ h|WBO GLISTINDICATION GSCROLLINDICATION LISTCOUNT% LISTACT% LISTY% XPOS% LISTSIZE% WINID% HW/8[@ HW/LO SETACTLIST LISTACT% PIPNI SETINACTLIST SETACTLIST ACTIVEWIN% LISTCOUNT% LISTACT% WINID% GUDAJ GUDAJMULTI% + OSLOVENI$# + OSLOVENI$# TITUL$# TITUL$# JMENO$# JMENO$# K+ PRIJMENI$# + PRIJMENI$# FUNKCE$# FUNKCE$# ULICE$# ULICE$# PSC$# PSC$# MESTO$# MESTO$# TEL1$# TEL1$# TEL2$# TEL2$# FAX$# FAX$# MOBIL$# MOBIL$# EMAIL$# EMAIL$# WWW$# WWW$# + POZNAMKA$# + POZNAMKA$# REDRAW FILE$ VIEW% WINLBL$ COUNTO& DETAIL% SELECT * FROM Osoba WHERE oid=K JMENO$ PRIJMENI$ OSLOVENI$ TITUL$ FUNKCE$ ULICE$ MESTO$ EMAIL$ POZNAMKA$ TEL1$ TEL2$ MOBIL$ OID&! ] / K " - K+ JMENO$# K+ PRIJMENI$# REDRAW FILE$ VIEW% WINLBL$ COUNTF& DETAIL% SELECT * FROM Firm WHERE fid=K FIRMA$ ZAMERENI$ ULICE$ MESTO$ EMAIL$ POZNAMKA$ TEL1$ TEL2$ MOBIL$ FID&! ] / K " - K+ FIRMA$# CHECKOID% ADDLINK REDRAW REFRESHWIN CHECKFID% NAHRAD$ VIEW% FILE$ FID&! FIRMA$# #:KO FID&! IPContact: ) - K)G@ Ob@[r +7 SELECT OID,Prijmeni,Jmeno FROM Osoba ORDER BY PrijmeniK PRIJMENI$ JMENO$ FID&! FIRMA$# :K+ PRIJMENI$# JMENO$# FID&! OID&! OID&! JMENO$# K+ PRIJMENI$# #:KO OID&! IPContact: ) - K)K@ Ob@[g +* SELECT FID,Firma FROM Firm ORDER BY FirmaK FIRMA$ OID&! JMENO$# K+ PRIJMENI$# FIRMA$# FID&! OID&! FILE$ +! SELECT OID FROM Osoba WHERE OID=K FILE$ + SELECT FID FROM Firm WHERE FID=K FILE$ LISTCOUNT% SELECT * FROM OFID WHERE FID=K K+ and OID=K IPContact: )M@ FID&% OID&% FILE$ {E\[[ SELECT * FROM OFID WHERE FID=K K+ and OID=K {E\[D SELECT * FROM OFID WHERE OID=K {A\[D SELECT * FROM OFID WHERE FID=K FID&! OID&! SELECT * FROM OFID WHERE FID=K K+ and OID=K DELLINK FILE$ COUNTO& +! SELECT OID FROM Osoba WHERE OID=K DELLINK FILE$ COUNTF& + SELECT FID FROM Firm WHERE FID=K PIPNI SETACTOSOBA DELOSOBA% DELLINK CLOSE3WIN REDRAW REFRESHWIN DELFIRMA% SETACTFIRMA VIEW% ACTIVEWIN% DETAIL% LISTCOUNT% LISTID& LISTACT% + PRIJMENI$# JMENO$# Oo)Y@ OID&! Ov@[" FID&! OID&! @\`[b FID&! FID&! FID&! FIRMA$# Of)Z@ FID&! Ov@[" FID&! OID&! h@\`[b OID&! OID&! OID&! FIRMA REDRAW REFRESHWIN SETACTOSOBA OSOBA SETACTFIRMA VIEW% ACTIVEWIN% WINLBL$ LISTACT% LISTID& DETAIL% - K+ FIRMA$# - K+ FIRMA$# - K+ JMENO$# K+ PRIJMENI$# - K+ JMENO$# K+ PRIJMENI$# MFIND% SETACTFIRMA SETACTOSOBA CLOSE3WIN REFRESHWIN PIPNI SEARCH$ VIEW% FILE$ CHANGED% SVIEW% BOOKM% SELECT * FROM FirmK FIRMA$ ZAMERENI$ ULICE$ MESTO$ EMAIL$ POZNAMKA$ TEL1$ TEL2$ MOBIL$ SELECT * FROM OsobaK JMENO$ PRIJMENI$ OSLOVENI$ TITUL$ FUNKCE$ ULICE$ MESTO$ EMAIL$ POZNAMKA$ TEL1$ TEL2$ MOBIL$ ' ...K FID&! OID&! SELECT * FROM FirmK FIRMA$ ZAMERENI$ ULICE$ MESTO$ EMAIL$ POZNAMKA$ TEL1$ TEL2$ MOBIL$ SELECT * FROM OsobaK JMENO$ PRIJMENI$ OSLOVENI$ TITUL$ FUNKCE$ ULICE$ MESTO$ EMAIL$ POZNAMKA$ TEL1$ TEL2$ MOBIL$ NAHRAD$ SETACTOSOBA SETACTFIRMA REFRESHWIN VIEW% LISTCOUNT% LISTID& LISTACT% OID&! FID&! SETACTOSOBA SETACTIVEWIN REFRESHWIN GFIRMA% SETACTFIRMA GOSOBA% ACTIVEWIN% VIEW% LISTCOUNT% LISTID& LISTACT% WINLBL$ COUNTO& NOOFWIN% LASTACTWIN% DETAIL% COUNTF& WINID% SIZEY% XPOS% OID&! ] / K d FID&! ] / K l FID&! ] / K l OID&! ] / K d FIRMA SETACTFIRMA REFRESHWIN SETACTIVEWIN LASTFID& VIEW% NOOFWIN% ACTIVEWIN% WINLBL$ LISTID& LISTACT% COUNTF& ] / K N OSOBA SETACTOSOBA REFRESHWIN SETACTIVEWIN LASTOID& VIEW% NOOFWIN% ACTIVEWIN% WINLBL$ LISTID& LISTACT% COUNTF& ] / K N PIPNI HOd8[ W0W1W.W/ W0W1W.W/ PIPNI HOd8[ W0W1W. W0W1W. SETACTIVEWIN ACTIVEWIN% WINID% NOOFWIN% LASTACTWIN% WINID% ACTIVEWIN% + IPContact 0.86K ivo.pastyrik@asys.cz(B 1999 ) (K)b@ 1999 ) (K)d@ 1999 Petr Bohdan ()c@ CLOSEALLVIEWS OPENFILE% FILE$ IPContact: )f@ ,K)g@ ,K)h@ IPContact: )i@ ,K)g@ ,K)h@ OPENDEFAULT READWINSETTINGS% CLOSEFILE READLINE% FILE$ WINID% IPContact.INIO W O!h@[ SAVELINE CLOSEFILE WINID% FILE$ IPContact.INI(" WINID% READLINE% CREATEINDEXES GETLASTID FILE$ FIELDS FID,Firma(80),Zamereni,Ulice(30),PSC(6),Mesto(30),ICO(8),DIC(12),email(100),www(100),Poznamka,Tel1(30),Tel2(30),Fax(30),Mobil(30) TO FirmK FIRMA$ ZAMERENI$ ULICE$ MESTO$ EMAIL$ POZNAMKA$ TEL1$ TEL2$ MOBIL$ IPContact: ) - K)f@ - KW IPContact: ) - K)f@ - KW ' K)l@ FIELDS OID,Jmeno(20),Prijmeni(20),Oloveni(10),Titul(10),Funkce(50),Ulice(30),PSC(6),Mesto(30),email(100),www(100),Poznamka,Tel1(30),Tel2(30),Fax(30),Mobil(30) TO OsobaK JMENO$ PRIJMENI$ OSLOVENI$ TITUL$ FUNKCE$ ULICE$ MESTO$ EMAIL$ POZNAMKA$ TEL1$ TEL2$ MOBIL$ FIELDS FID,OID TO OFIDK SELECT * FROM FirmK FIRMA$ ZAMERENI$ ULICE$ MESTO$ EMAIL$ POZNAMKA$ TEL1$ TEL2$ MOBIL$ IPContact: ) - K)i@ - KW IPContact: ) - K)i@ - KW ' K)n@ SELECT * FROM OsobaK JMENO$ PRIJMENI$ OSLOVENI$ TITUL$ FUNKCE$ ULICE$ MESTO$ EMAIL$ POZNAMKA$ TEL1$ TEL2$ MOBIL$ FILE$ LASTFID& COUNTF& LASTOID& COUNTO& +" SELECT FID FROM Firm ORDER BY FIDK FID&! +# SELECT oid FROM Osoba ORDER BY OIDK OID&! FILE$ PK_OID Osoba PrijmeniO JmenoO IDX_PrijJme Osoba PK_FID FirmaO + IDX_Firma PK_FID_OID LOADPARAM OPENFILENAME$ NEWFILENAME$ OPENFILE% FILE$ IPContact: Chyba - RSC Soubor !O Nelze nal zt RSC soubor: ' Program bude UKON EN !KO 0.86K+ ...KO RC`\[ IPContact: )i@ On)}@ IPContact: ) - K)f@ IPContact: ) - K)f@ ' K)s@ CLOSE3WIN SETACTFIRMA REFRESHWIN SETACTIVEWIN NOOFWIN% VIEW% ACTIVEWIN% WINID% FID&! NEWFILENAME$ CLOSEALLVIEWS OPENFILE% FILE$ IPContact: ) - K)f@ ' K)s@ OPENFILENAME$ CLOSEALLVIEWS OPENFILE% FILE$ IPContact: ) - K)i@ ' K)u@ IPContact: )w@ - K)i@ FILE$ COUNTF& COUNTO& IPContact: )@@ 0.86+ CHECKFID% SWITCHVIEW SETACTFIRMA REFRESHWIN CHECKOID% SETACTOSOBA VIEW% IPContact: ) - K).@ IPContact: ) - K).@ CHECKFID% PIPNI SETACTFIRMA REFRESHWIN CHECKOID% SETACTOSOBA VIEW% LASTFID& LASTOID& FID&! OID&! FIRMA$# + ZAMERENI$# ULICE$# PSC$# MESTO$# ICO$# DIC$# EMAIL$# WWW$# + POZNAMKA$# TEL1$# TEL2$# FAX$# MOBIL$# + PRIJMENI$# JMENO$# `+ OSLOVENI$# TITUL$# FUNKCE$# ULICE$# PSC$# MESTO$# EMAIL$# WWW$# + POZNAMKA$# TEL1$# TEL2$# FAX$# MOBIL$# REFRESHWIN XPOS% ACTIVEWIN% SIZEY% GFIRMA% GOSOBAL% GOSOBA% GFIRMAL% VIEW% WINID% SIZEY% XPOS% DETAIL% WINID% CLOSEALLVIEWS OPENFILE% EXIT% FILE$ CC`[$ IDTONUM% WINAREA% SETACTIVEWIN PENON2NDWIN SHOWDETAIL CLOSE3WIN REFRESHWIN ACTIVEWIN% {A\[Q HOd8\[ W0W1W.W/ HOd8\[! HW1W. HOd8\W/ HOd8\[! W0W1W. HOd8\[ W0W1W. HOd8\W/ HOd8\[" HW1W. SETINACTLIST SETACTLIST SHOWDETAIL LISTY% XPOS% LISTSIZE% LISTACT% LISTCOUNT% H{5\[( GSIPKADOWN GSIPKAUP XPOS% ACTIVEWIN% SIZEY% LISTCOUNT% ACTIVEWIN% L{1[ L{1\ L{=\[ L{1[ REFRESHWIN WINID% ACTIVEWIN% REFRESHWIN NOOFWIN% WINID% ACTIVEWIN% REFRESHWIN NOOFWIN% WINID% ACTIVEWIN% MAIN9 FIRMAX OSOBA& GETMULTI$ SETMULTI GUDAJW GFIRMA% GUDAJMULTI% GOSOBALD% GOSOBAL% GFIRMALD% GFIRMAL% SETACTIVEWIN SETINACTIVEWIN SWAPWIN KEYEVENTr REFRESHWIN PIPNIC' SHOWMENUb' SETACTLIST SETINACTLIST>/ MOVELISTITEMp/ GOSOBA% SETACTOSOBA SETACTFIRMAM6 VYTVORVAZBU CHECKOID%n= CHECKFID% ADDLINKA> DELLINK$? DELOSOBA% DELFIRMA% SMAZVETUcC OPRAVA HLEDEJ SWITCHVIEW SHOWDETAIL ZALOZFIRMU ZALOZOSOBU NAHRAD$ MOVEWINV MOVEWINH SIZEWINV SIZEWINHPV CLOSE3WIN ABOUT2W COMPRESS%Y NEWFILENAME$ OPENFILENAME$ CLOSEALLVIEWS LOADPARAM SAVEPARAM CLOSEFILEf^ OPENDEFAULT READWINSETTINGS%0_ READLINE% SAVELINEL` OPENFILE% + GETLASTID CREATEINDEXES z STARTINITQi INITal OPENNEWFILE DOPENFILE DBINFO^o GOTORECORD%p GZVYRAZNI MOVERECORD MFIND%it SCROLL GSIPKADOWN GSIPKAUP REDRAW<x IDTONUM% SYSTEMEVENT!z PENEVENT PENON2NDWINx} GSCROLLINDICATIONa~ GLISTINDICATION8 WINAREA% SETWINDEFAULT TITLEHOR TITLEVER DBASE[ SYSTEM\