Category : Databases and related files
Archive   : AUTOFILE.ZIP
Filename : AUTOFILE.BAS

ÿ
:Ù*************************************I:Ù* A U T O F I L E - T D KOLOUCH *v:Ù* *£:Ù* CUSTOM DATA SERVICES, INC. *Ð:Ù* PO BOX 13 *ý:Ù* CROMWELL, CT 06416 **:Ù* TEL# 203-635-1589 *W:Ù*************************************a ‰ d—
:ÙFix to line 5100 has been merged in this copy.µ:Ù *** Input routine ***½ :Ùô
IN$ ç Ö(ÿ†(FL)," "):WD%ç:WS%ç:WL%ç:RC%ç:W$ç" "‘ Ö(ÿ†(FL),".");:Ê ,ÿ‘()êÿ†(FL)PÊ ,,:W$ ç Þ:‹ W$ ç "" Í  :¡ ‹ ÿ’(W$) ç  Í ²‹ ÿ†(FL) ç WL% Í  :¡ ‹ FLæ î W$æç" " î W$èçÿ–(~) Í  :¡ ‹ FLè î W$æ"/" î W$è":" Í Õ‹ W$ç"." î WD%ç Í WD%ç:‰ ‹ (W$ç"-" ï W$ç"+") î WS%ç î WL%ç Í WS%ç:‰ i‹ W$ ç ÿ–() î WL%æ Í  :ÿƒ(IN$,WL%,)ç" ":WL%çWL%ê:‘ ÿ–();:‘ ".";:‘ ÿ–();:‰ ‹ W$ ç ÿ–() Í Ê ,ÿ‘()êWL%:‰ 
³‹ W$ ç ÿ–(
) Í ‰  :¡ ‰ ÅW$ ç ÿ‚(W$,)$‹ W$ ç ÿ–(K) î WL%æ Í  :ÿƒ(IN$,WL%,)ç" ":WL%çWL%ê:‘ ÿ–();:‘ ".";:‘ ÿ–();:‰ f‹ W$ æç ÿ–(;) î W$ èç ÿ–(D) î WL%ç Í RC% ç ÿ•(W$)ê::‰ ‹ W$çÿ–(H) î WL%ç Í RC%ç:‰ ´‹ W$çÿ–(P) î WL%ç Í RC%ç :‰ ¾‰ ñ‘ Ö(ÿ†(FL)êWL%," ");:IN$ ç ÿ(IN$,WL%):Ê ,,:Ž2‘ W$;:WL%çWL%é:ÿƒ(IN$,WL%,)çW$:‹ ÿ†(FL) ç  Í  :¡ ‰ ‡‹ ÿƒ(IN$,WL%,)ç"." Í WD%ç :¡ ‹ (ÿƒ(IN$,WL%,)ç"+" ï ÿƒ(IN$,WL%,)ç"-") Í WS%ç“Ê ,,:Ž¸#:Ù ** End of input routine **ìdÉ Ý:‚ Xç Ì 
:É X,"":ƒ:  "LPT1:",ÿ:Ê ,,,,
i­ AêZ:B$çÿ˜(P):B1$çÿ˜(():ZZç:DF$ç"N"Kn† M$(),KW$(*),NT$(*),KP(*),DL(d),JP$()‚„ 01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21Õƒ„ 22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42ñŒ‚ X ç  Ì *:‡ NT$(X):ƒY,
À:¿ ,:Ê ,:‘ Ö(,"*"):‘ Î)"*" Î7)"*":‘ Î)"*" Î7)"*":‘ Î)"*" Î7)"*":‘ Î)"*" Î7)"*"“1
‘ Î)"*" Î7)"*":‘ Î)"*" Î7)"*":‘ Î)"*" Î7)"*"Ë2
‘ Î)"*" Î7)"*":‘ Î)"*" Î7)"*":‘ Î)Ö(,"*")>6
Ê ,:‘ "Welcome to AUTOFILE":Ê ,&:‘ "from":Ê 
,:‘ "CUSTOM DATA SERVICES, INC":Ê  ,%:‘ "Ver 1.0":¿ ,H@
 pVô
• § ‰ Ô—þ
Ê ,:‘ "> Enter filespec: ";:FLç: 
:‹ IN$ ç "" Í À:þƒ¨PçØ(IN$,".")å‹ Pæ Í E$ç"INVALID -- NO EXTENSION ALLOWED": z:‰ þ
ñFS$çIN$&º"I",,FS$é".KEY":• § ‰ (#30‚ Xç Ì *:…#,KW$(X),KP(X):ƒF:… #,KI,KD:» `Dº"R",,FS$é".IND",
N‚ Xç Ì :þ‚#,(Xê)ëASDU$,ASJP$(X):ƒ¥Xþ‚#,þASDU$,ASJX$¿bº"R",,FS$é".DAT",
÷l‚ Xç Ì :þ‚#,(Xê)ëRASDU$,PASHD$(X),ASHB$(X):ƒvþ‚#,öASDU$,ASHF$,ASHN$"è:ÙMenu/òÀ:F$ç"N"Èü ¶:Ê ,:‘ "MAINTENANCE MENU: " Î)"- Keywords" Î*)"- Data" Î7)"- End program";:¿ ,:Ê ,:‘ "K";:Ê ,(:‘ "D";:Ê ,5:‘ "E";:¿ ,ҍ 8*‹ IN$ç"K" ï IN$ç"k" Í Ð :¡ ‹ IN$ç"D" ï IN$ç"d" Í ¸ :¡ ‹ IN$ç"E" ï IN$ç"e" Í  4‰ AÐ:ÙIndexGÚÀWä ¶: LåîÊ ,:‘ "KEYWORD MAINTENANCE: - Add - Delete - Return to menu";:¿ ,:Ê ,:‘ "A";:Ê ,%:‘ "D";:Ê ,3:‘ "R";:¿ , ø 8:‹ IN$ç"R" ï IN$ç"r" Í è'‹ IN$ç"D" ï IN$ç"d" Í ü1 ÀQ ‹ IN$èæ"A" î IN$èæ"a" Í îa:ÙAdd keys¶ Ê ,:‘ "- ADD - Enter keyword: ";:FLç : 
: À:‹ IN$ç"" Í îÿ*‹ ÿ’(IN$)è Í E$ç"KEYWORDS CANNOT BE ONE CHARACTER LONG": z:‰  Z/‹ ÿ’(IN$)ç Í ‹ IN$æ"00" î IN$è"43" Í E$ç"KEYWORD OF 01 TO 42 NOT ALLOWED": z:‰  i4‚ Xç Ì *Ÿ>‹ KW$(X)çIN$ Í E$ç"DUPLICATE KEYWORD": z:‰  ¥HƒÉJ‚ Xç Ì *:‹ KP(X)ç Í R :¡ ƒðME$ç"KEYWORD FILE FULL": z:‰ î RKW$(X)çIN$:SK$ç"Y"K \‹ Xæ Í DXçXê:DYç6 :¡ ‹ Xæ Í DXçXê:DYç :¡ DXçXé:DYç¢ fÊ DX,DY:‘ KW$(X);:Ê ,:‘ "Initializing index record";: œ:KP(X)çXI: î: ø¬ k ÀØ pÊ ,:‘ "Reindexing with new keyword";ð zXDç:SV$çKW$(X):Cçú „ Î1!Ž‹ RK$ç"Y" Í  :CçCé:Ê ,K:‘ C;:XDçXDé:‰ „A!˜ À:‰ îQ!ü:ÙDel keys[!  À²! Ê ,:‘ "- DELETE - Enter keyword #: ";:FLçê: 
: À:‹ IN$ç"" Í îü!$ Nçÿ”(IN$):‹ Nè ï Næ* Í E$ç"NUMBER MUST BE FROM 1 TO 42": z:‰  7". ‹ KP(N)ç Í E$ç"KEYWORD NUMBER NOT IN USE": z:‰  g"8 XIçKP(N):Ê ,:‘ "Deleting keyword chain";Ž"B  ¼:ISçý(JX$):IXçKI: î: ø "L KIçXI:SK$ç"Y"¹"V ‹ ISæ Í XIçIS:‰ B #` KP(N)ç:KW$(N)ç"":‹ Næ Í DXçNê:DYç6 :¡ ‹ Næ Í DXçNê:DYç :¡ DXçNé:DYç##j Ê DX,DY:‘ Ò );3#t  À:‰ î?#¸:ÙDataR#ÂÀ: ¶:F$ç"N"æ#ÌÊ ,:‘ "DATA MAINT: dd dit elete rint ext ind eturn";:¿ ,:Ê ,:‘ "A";:Ê ,:‘ "E";:Ê ,:‘ "D";:Ê ,&:‘ "P";$ÑÊ ,.:‘ "N";:Ê ,5:‘ "F";:Ê ,<:‘ "R";:¿ ,H$֍ 8:PPçØ("AaEeDdPpNnFfRr",IN$): À‹$à• PP ‰ ô,ô,€ ,€ ,ä ,ä ,H
,H
,t,t,¬
,¬
,°,°•$ê‰ Ì $ô:ÙAdd¶$ù‹ DF$ç"Y" Í   ã$þÀ: ¶:F$ç"N":Ê ,:‘ "- ADD -";: »ù$  p: ˆ: À&% ‚ Xç Ì :‹ M$(X)èæB$ Í  :¡ ƒ :‰ ¸H%  |:FRçXD:GFçFR: È: àY%& F$ç"Y":‰ Ìe%€ :ÙEdit{%… ‹ DF$ç"Y" Í   ¼%Š ‹ F$èæ"Y" Í E$ç"EDIT WHAT? -- DO IND FIRST": z:‰ ÌÛ%” Ê ,:‘ "- EDIT -";: »ë%ž  ˆ: À&¨ ‚ Xç Ì :‹ M$(X)èæB$ Í · :¡ ƒ,&­ ‹ XDèæGF Í XDçGF:  B&²  ¸: @:‰ ¸]&· ‹ XDèæGF Í XDçGF:  m&¼  È: àw&Æ ‰ Ì‚&ä :ÙDelÅ&î ‹ F$èæ"Y" Í E$ç"DELETE WHAT? -- DO IND FIRST": z:‰ Ì$'ø Ê ,:‘ "- DELETE - Confirm delete (Y or N) ";: 8:‹ IN$ç"N" ï IN$ç"n" Í ¸D'
‹ IN$èæ"Y" î IN$èæ"y" Í ø _'
‹ XDèæFR Í XDçFR:  Š'
 À: ¸: @:F$ç"D":À: ¶:‰ Ì—'H
:ÙPrintÙ'R
‹ F$èæ"Y" Í E$ç"PRINT WHAT? -- DO IND FIRST": z:‰ Ì^(\
Ê ,:‘ "- PRINT - Press 'P' to print or 'C' to cancel";: 8:‹ IN$ç"C" ï IN$ç"c" Í Ì :¡ ‹ IN$èæ"P" î IN$èæ"p" Í \
w(f
‚ Xç Ì : M$(X):ƒ‡(p
 À:‰ Ì“(¬
:ÙFind¥(¶
À: ¶: L7)À
XDç:XEç:Ê ,:‘ "- FIND - Enter number of keyword or string to search for: ";:FLç: 
:‹ IN$ç"" ï IN$çÖ(ÿ’(IN$)," ") Í ¸ :¡  ÀF)Ê
INçÿ”(IN$)w)Ô
‹ ÿ’(IN$)è î INè+ î INæ î KP(IN)èæ Í Š)Ù
:ÙFind string)Þ
SV$çIN$:F$ç"N"Å)è
Ê ,:‘ "Search on string = ";SV$;*ò
 Î: À:‹ RK$ç"E" Í E$ç"END OF FILE": z:‹ F$ç"N" Í À
:¡ ‰ Ì2*XEçXD:XDçGF:  : r:‰ ÌB*:ÙFind keyo*SV$ç"":XIçKP(IN): ¼: Ú:LPç:F$ç"N"*$‹ LPç Í V”*.‚ LXçLPé Ì ´*8IPçý(JP$(LX)):‹ IPç Í Và*BXDçIP:  :‹ GFèæ Í  r:LPçLX:‰ Ìé*Lƒ LX+V‹ IXæ Í XIçIX: ¼: Ú:LPç:‰ .E+[E$ç"END OF INDEX": z:‹ F$ç"N" Í À
:¡ ÌQ+t:ÙNextœ+~‹ F$èæ"Y" î F$èæ"D" Í E$ç"NEXT WHAT? -- DO IND FIRST": z:‰ ÌÀ+ˆ‹ SV$ç"" Í $ :¡ XDçXEé:‰ è
Î+¦:ÙReturnØ+°‰ èã+ :ÙEndù+¥‹ DF$ç"Y" Í   ÿ+ªÀ,´‹ SK$ç"Y" Í  X ,¾» : þƒA,ˆ:Ù ** Full screen editor **M,’Ê ,,],œWC%ç:WR%çt,¦W$çÞ:‹ W$ç"" Í ¦°,°‹ W$æç ÿ–( ) î W$èç ÿ–(~) Í n :¡ ‹ ÿ’(W$) ç  Í â-º‹ W$çÿ–() Í ‹ WC%æ Í WC%çWC%ê:‘ ÿ–();:‰ ¦ :¡ ‹ WR%æ Í WR%çWR%ê:Ê WR%é,P:WC%çP:‰ ¦=-Ä‹ W$çÿ–() Í Ê WR%é,P:WC%çP:‰ ¦z-΋ W$çÿ–(
) Í ‹ WR%è Í WR%çWR%é:Ê WR%é,:WC%ç:‰ ¦„-؉ ¦”-âW$çÿ‚(W$,)ù-ì‹ W$çÿ–(K) Í ‹ WC%æ Í WC%çWC%ê:‘ ÿ–();:‰ ¦ :¡ ‹ WR%æ Í WR%çWR%ê:Ê WR%é,P:WC%çP:‰ ¦!.ö‹ W$çÿ–() Í Ê WR%é,:WC%ç:‰ ¦†.‹ W$çÿ–(M) Í ‹ WC%èP Í ‘ ÿ–();:WC%çWC%é:‰ ¦ :¡ ‹ WR%è Í WR%çWR%é:Ê WR%é,:WC%ç:‰ ¦¾.
‹ W$çÿ–(H) Í ‹ WR%æ Í WR%çWR%ê:Ê WR%é,WC%:‰ ¦÷.‹ W$çÿ–(P) Í ‹ WR%è Í WR%çWR%é:Ê WR%é,WC%:‰ ¦/‹ W$çÿ–(I) ï W$çÿ–(G) Í ’E/(‹ W$çÿ–(Q) Í Ê ,:WR%ç:WC%ç:‰ ¦Å/2‹ W$çÿ–(R) Í ‹ WC%èP Í Ê,,:W1$ç" "éÿƒ(M$(WR%),WC%,PêWC%):ÿƒ(M$(WR%),WC%,ÿ’(W1$))çW1$:‘ W1$;:‘ Ö(ÿ’(W1$),);:Ê,,:‰ ¦H0<‹ W$çÿ–(S) Í ‹ WC%èP Í Ê,,:W1$çéÿƒ(M$(WR%),WC%é,QêWC%)é" ":ÿƒ(M$(WR%),WC%,ÿ’(W1$))çW1$:‘ W1$;:‘ Ö(ÿ’(W1$),);:Ê,,:‰ ¦r0F‹ W$çÿ–(;) ï W$çÿ–(=) Í  –:‰ ¦0P‹ W$çÿ–(<) Í  æ:‰ ¦¦0Z‹ W$çÿ–(>) Í Œ°0d‰ ¦Ù0n‘ W$;:ÿƒ(M$(WR%),WC%,)çW$:WC%çWC%é!1x‹ WC%æP Í ‹ WR%è Í WR%çWR%é:WC%ç:Ê WR%é, :¡ WC%çP:‘ ÿ–();+1‚‰ ¦71ŒÊ ,,:ŽK1–:ÙOPEN/RPT RTNT1 Ê,,g1ª‹ WR%ç Í Ò‚1´‚ W% ç  Ì WR%é Ï ê©1¾M$(W%)çM$(W%ê):Ê W%é,:‘ M$(W%);¯1ȃÐ1Ò‹ W$çÿ–(;) Í M$(WR%)çÿ˜(P)2ÜÊ WR%é,:‘ M$(WR%);:‘ Ö(QêWC%,);:Ê,,:Ž2æ:ÙCLOSE RTN2ðÊ,,-2ú‹ WR%ç Í "A2‚ W% ç WR% Ì h2M$(W%)çM$(W%é):Ê W%é,:‘ M$(W%);n2ƒ‘2"M$()çÿ˜(P):Ê ,:‘ M$();¥2,Ê WR%é,WC%,:ŽÎ26:Ù ** End of full screen routine **ì2p‚ Xç Ì  :M$(X)çB$:ƒ :Žù2z:ÙErrorÿ2Å#3„¿ :Ê ,(ê(ÿ’(E$)ì),:‘ E$;c3ŽEKEY$çÞ:‹ EKEY$èæÿ–() Í Ž :¡ ¿ :Ê ,:‘ ÒO);:Ê ,,:ŽØ3¶‘ FS$ " " Ö(êÿ’(FS$),"-") " ";:¿ ,:‘ " A U T O F I L E ";:¿ ,:‘ " " Ö(,"-") " " þ;:Ê ,:‘ Ö(P,ß);:Žg4»Ê ,:‘ "- Open - Close - Repeat - End";:¿ O,:Ê ,:‘ "F1";:Ê , :‘ "F2";:Ê ,.:‘ "F3";:Ê ,=:‘ "F4";:¿ ,:Ž|4ÀÊ ,:‘ ÒO);:ŽË4ÔÊ ,:‘ "> File not found. Create? (Y or N) ";:FLç: 
:‹ IN$ç"" Í Ô
5Þ‹ IN$èæ"N" î IN$èæ"n" î IN$èæ"Y" î IN$èæ"y" Í Ô25èÊ ,:‘ B1$;:‹ IN$ç "N" ï IN$ ç"n" Í ¨ þ
:5DçW5º "O",,FS$é".KEY": l5$º "R",,FS$é".IND":º "R",,FS$é".DAT"—5.»:• § ‰ (#:¨ DÇ58Ê ,K:‘ "==> ";:FLç: 
:‹ IN$ç"" Í 8Ü5BÊ ,K:‘ Ò);:Žî5L:ÙPaint keys86VDç:DXç:DYç:‚ X ç  Ì *:Ê DX,DYéD:‘ NT$(X)é")" " " KW$(X);:DXçDXéR6`‹ DXæ Í DXç:DçDé[6jƒ :Žr6œ:ÙNext avail indx–6¦‹ KIç Í XIç(ÿ¥()ì
)é:‰ º¹6°XIçKI: Æ:KIçý(JX$):SK$ç"Y"á6º‚ Zç Ì :þ… JP$(Z)çý„(ZZ):ƒ :IXçç6ÄŽü6Î:ÙString search7Ø‹ XDæÿ¥()ì
Í RK$ç"E":‰ û)7⍠*b7ì‚ Zç Ì :PçØ(HD$(Z),SV$):‹ Pæ Í RK$ç"Y":‰ û :¡ ƒt7öXDçXDé:‰ Øz7ûŽ7:ÙAdd to indx¢7
‹ KP(X)çXI Í (¯7XIçKP(X)¿7 ¼: ÚÎ7(‚ Zç Ì à7-IPçý(JP$(Z))ò72‹ IPçGF Í  87‹ IPç Í F8<ƒ Z$8F‹ IXæ Í XIçIX:‰ 98P‹ KP(X)çXI Í nF8ZXIçKP(X)V8d ¼: Úe8n‚ Zç Ì w8sIPçý(JP$(Z))§8x‹ IPç Í þ… JP$(Z)çý„(GF): î: ø:‰  ¯8‚ƒ ZÈ8Œ‹ IXæ Í XIçIX:‰ dØ8– œ:‰ dÞ8 Ží8È:ÙAdd/rew9ÒÊ ,:‘ "Adding/rewriting page";9ÜYç:Zç.9æ‚ Xç Ì C9ð‹ XéZéç Í ]9ú‹ M$(XéZé)èæB$ Í m9ZçZé:‰ ð9 J:XçXéZ:Zç‰9ƒ Xž9"X1çGN:GNç: 4¯9,‹ X1ç Í @Å96XDçX1:  : ¸Ñ9@ À:Žá9J:ÙLoad bufò9T‹ Yèæ Í r:h‹ GNæ Í  4:XDçGN:  : š:‰ mV:j‹ KDæ Í GNçKD :¡ GNç(ÿ¥()ì
)é:‹ GNçXD Í GNçGNéf:l 4: |n:mYçš:rþ… HD$(Y)çM$(X):þ… HB$(Y)çý„(Z):YçYé:Žª:|:ÙGet nextå:†‹ KDæ Í XDçKD:  :KDçGN:SK$ç"Y" :¡ XDç(ÿ¥()ì
)éü: š:GFçFR:GNç:Ž;š:ÙInit:;¤‚ X7ç Ì :þ… HD$(X7)çB1$:þ… HB$(X7)çý„(ZZ):ƒ@;®ŽP;¸:ÙDel page;ÂX1çGN:GNçKD:KDçXD: š:GFç: 4:SK$ç"Y"ž;Ì‹ X1æ Í XDçX1:  :‰ ¤;ÖŽµ;à:ÙIndx pageÓ;åÊ ,:‘ "Indexing file";ä;ê‚ X ç  Ì *ø;ô‹ KP(X)ç Í  <ù‚ Y ç  Ì <þ‹ M$(Y)çB$ Í 
4<PçØ(M$(Y),KW$(X))L<‹ Pæ Í  :‰ T<
ƒ Y\<ƒ Xh< À:Žz†LYç>‚ LZç Ì $>•‹ LYæ Í ÂK>šÊ LYé,:‘ HD$(LZ);:M$(LY)çHD$(LZ)c>¤LYçLYéý(HB$(LZ))éi>®ƒˆ>¸‹ GNæ Í XDçGN:  :‰ •>ÂF$ç"Y":Ž«> :ÙIndx del maintã>
 À:Ê ,:‘ "Performing index file maintenance";ò> ‚ Lç Ì *? ‹ KP(L)ç Í ” ?& XIçKP(L)#?0  ¼: Ú2?: ‚ Mç Ì D?D IPçý(JP$(M))U?N ‹ IPç Í € d?X ‚ Nç Ì dx?b ‹ DL(N)ç Í v ¨?l ‹ IPçDL(N) Í þ… JP$(M)çý„(ZZ):A$ç"Y" :¡ ƒ N°?v ƒ MÌ?€ ‹ A$ç"Y" Í  Ð :A$ç"N"å?Š ‹ IXæ Í XIçIX:‰ 0 í?” ƒ Lù?ž DF$ç"N"@¨ ‚ Lç Ì d@­ ‹ DL(L)ç Í Æ (@² DL(L)ç.@¼ ƒ4@Æ ŽB@Ð :ÙShrinkR@Ú ‚ M1ç Ì ~e@ä IPçý(JP$(M1))v@î ‹ IPæ Í  !‰@ø ‚ N1çM1é Ì œ@!IQçý(JP$(N1))Ó@ !‹ IQæ Í þ… JP$(M1)çý„(IQ):þ… JP$(N1)çý„(ZZ):‰  !â@!ƒ N1:‰ *!ë@ !ƒ M1÷@*! ø:Žý@(#¨