MN^czD€DF€SCΞΑΠCAL΄TR€SA€ΒΕCD€MENΥWS€A€C€ΟΞΝCAL±CAL²CAL³FILΜCHΛCΜΓΖΜΣFLAΗCΖΙLΞCΔCΘ€€€€ € € € € !*** ELECTRO-CARDFILE ***›** DISK VERSION **›************************›>>VERN L. MASTEL-THE ELECTRO-CARDFILE ** ANTIC MAGAZINE **› xG‡;AP,Œ;@,;@,Š;A,†;@,Ž;@0,X6‡7@,. i6‡7AP,. x6‡7@,.‡A6Š7@,. %6Š7A,. 46Š7@,.ŠA(>:A%,$€;@,;@,$6€.D:(#"„‘‹’“”…‚•–—# ‹2661,30,10,15,10000,100,110,120,130,140,160,150,170›d$6ˆ-+‘$+˜&„,%„,!6‰-ˆ%@$$n6™-A$+˜&„,$x46ˆ-+$+ƒ&„,%„,!6‰-ˆ%@))6ˆ-ˆ%™16‰-‰%™4$‚(6ˆ-@$+ƒ&„,%„%6‰-ˆ%@‰($Œ(>:A%,$–!!˜"@P)š"@PAY›!!˜ )š AYœ!!š!@)˜!@0AY$Ÿ&'6š-6˜-" ‚& ‹ '›-B:Ž,%„ 6Ž7B:Ž,%„,. $ ›'$ͺ6˜-6š-$τ; ’3‡7ˆ<‰, “š-„"6ƒ-š& ”/3Š7ˆ<‰,3 š7 ‚; ‹θS ‚+(WHICH CARD DO YOU WISH TO TITLE/ —3˜7 –S(INPUT TITLE OF CARD #˜ν#6†.|---------------|(†#Œς5B:Œ,"‘A0!›-B:Œ,%„‘16Œ7B:Œ,%„,. 5 › ’6‡7ˆ<‰,.Œ ‹ΠU ‚˜-„‘ ’E(˜ ‡7ˆ<‰, ˜%‘ ‡7ˆ%A%<‰%A%,I ˜UœA` Ϊ ‹Έ Y ‚*(WHICH CARD DO YOU WISH TO FILL. —2˜6 –U(HOW MANY LINES DO YOU NEEDYšΒ J –(NOW ENTER THE DATAF6†.! |------------------------------|J(†Μ - “-„š(Ž)B:Ž,"A0@- •ΰ 0 6ƒ- ”6Š7ˆ<‰,.Ž &-š%„0š%„!‹τ F)6Ž. /6ƒ-3 ”>6Š7ˆ<‰,.ŽB F ‹ 8 ‚,( WHICH CARD DO YOU WISH TO CHANGE0 —4˜8 –₯80((ENTER THE LINE NUMBER YOU WISH TO CHANGE4š8 –ͺA “ 6ƒ-š ”((INPUT NEW LINE# š,Ž=B:Ž,"A@@A •ΘQ6Š7ˆ<‰,.Ž9(&DO YOU WISH TO CHANGE ANOTHER LINE Y/N=M4YA@Q ‹ˆ8 ‚,( WHICH CARD DO YOU WISH TO DELETE0 —4˜8 –’`(DELETING CARD #˜ ’%›-ˆ‰26‡7›<›,. 6 ›J6ˆ-A$+˜&„,%„X6‰-ˆ%A™`›-ˆ‰œ.6Š7›<›,.  ›*(DELETION COMPLETE. ‹pX ‚6œ-<($DO YOU NEED TO SEE THE CARD LIST Y/N@H4YN6œ-„X A „K&(WHICH CARD DO YOU WISH TO VIEW* —.˜2 ’6 ‚B-@„K(‡7ˆ<‰,Ž& “š-„6ƒ-š ”"(Š7ˆ<‰,& š˜[-„@E(1THAT'S ALL OF THE ENTRIES, DO YOU WANT A COPY Y/NIQ4Y[ A’  ‚ ‹XX ‚#(INPUT FILE NAME TO SAVE';6€7B:€,%@,.X@@€b1ƒ-„@ … 6†.‡7ˆ<‰,-(@†1 ƒlVƒ-„A … 6†.Š7ˆ<‰,-(@†1 ƒ<@@ ‚R( SAVE COMPLETEV ‹@P ‚(INPUT FILE NAME36€7B:€,%@,.P@@€J1ƒ-„@ …"@†-6‡7ˆ<‰,.†1 ƒTFƒ-„A …"@†-6Š7ˆ<‰,.†1 ƒ<@F A (#C ‚(INPUT SEARCH KEY Ž)6Ÿ-B:Ž,1›-„76˜-›; “C -„2#b6ˆ-+$+ &„,%„,%™!6‰-ˆ%+Ÿ&„,,Š7ˆ<‰,4ŽQ(------MATCH FOUND IN #›-----b(Š7ˆ<ˆ%@),F##   ›(SEARCH COMPLETE# ‹'U B3(!TITLE 1..LIST 2..FILL 3..MODIFY 4U(DELETE 5..VIEW 6..SAVE DATA 7'##(INPUT DATA 8..SEARCH DATA 9')‘‘!*‘ @) ‘$A$'  ‚ ‹} {ET›€D1:CARDFILD.BAS