' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  1 '&&*  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0((*!!.<,$94>94="4; +,E!r ; $ Hh Լ ռ ռ ռ`HJ>݌h Hh݌`DF DF /L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD# H8`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  LӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\  OÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L׭Lܫ &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@ ,\Z[PRR3\ɄSɊ"RQJ(0Fw6. ^-%p 㩠RP.Q I* P\L˵B̵C8pB߮Z\ @ յյ\BIR Z-^ Jp\IZLLӜ ( Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B ߼ / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8`  XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` Bl şL/Ơĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH x(`Ռ  d£àĠz# u`D TX 75042,H/495-1757 B/658-2971,t&R A,TOMMY R. RODGERS,6631 ROUND ROCK RD,DALLAS TX 75248,H/233-2920 B/748-9421,&T A,WILLIAM P. SMITH,2032 HAYMEADOW,CARROLLION TX 75006,H/242-4308 B/238-5065, 'V 1110,EDDIE HILL,1704 WESTLAKE,PLANO 75075,423-6300JOHN L. SNIDER,5001 BOWSER #116,DALLAS TX 75209,H/528-8689,%L *M,PAUL EVANS,340 WILLOW WOOD DR.,PLANO 75074,424-8365,K5AT%N A,HAROLD WESTERHEIM,1905 WEST WAY,GARLAND TX 75042,H/276-4730 B/276-8382,!&P A,KENT A. KOEHLER,3110 TEAKWOOD DR,GARLANB5ABGW$D A,JACK P. MORGAN,P.O. BOX 35887,DALLAS TX 75235,H/351-6261 B/358-2431,W5LQR$F A,EARL BORN,4326 PINERIDGE DR,GARLAND TX 75042,H/276-2716 B/387-2755,$H A,BOB MATZINGER,P.O. BOX 13446,ARLINGTON TX 76013,H/817/275-2910 B/2665-8122,;%J A,75209,H/357-9708 B/689-2833,W5GITs#> A,JIM & DONNA HOLLOWAY,2419 WINTHROP,DALLAS TX 75228,H/328-1217 B/996-5952,#@ A,BOB R. PEEPLES,1604 DRAKE DR.,RICHARDSON TX 75081,H/690-4667 B/241-5182,$B *M,RANDY NORTHCUTT,BOX 254,ROXTON 75477,742-8438,W SANDER-CEDERLOF,2519 KLONDIKE,DALLAS TX 75228,H/327-3444 B/238-5051,"8 *M,SKIP BYNUM,6219 MARTEL,DALLAS 75214,821-4933,WD5AAZ": A,MIKE LAUMER,1832 SCHOOL RD.,CARROLLTON TX 75006,H/245-3927,!#< A,R.R. REMBER M.D.,4254 SHORECREST DR,DALLAS TX B]!0 A,RAY M. THOMPSON,1206 CHEROKEE PLACE,RICHARDSON TX 75080,H/231-0765 B/996-6337,W5OUS!2 A,TOM BONFIELD,7411 CARTA VALLEY DR.,DALLAS TX 75248,H/661-9530 B/573-2313,!4 A,N.C. DEALEY,3000 HOOD ST.,DALLAS TX 75219,H/528-8909 B/SAME,E"6 A,BOBH/522-6790,f * A,DR. J.H. NICHOLSON II,9230 CORAL COVE DRIVE,DALLAS TX 75231,H/341-3681 B/327-4375, , A,JOHN BRODERICK,8635 SHAGROCK,DALLAS TX 75238,H/341-8567 B/341-1635,!. *M,JOHN DASHNER,11621 DENNIS RD. APT.103,DALLAS 75229,243-2427,WA4CYIR.,DALLAS TX 75234,H/241-4696 B/631-5560,q$ *M,ROBERT W. FLATT,2610 PROVINCE LANE,DALLAS 75228,328-5510,*& A,FRANK A ST.CLAIRE,12123 SHIREMONT,DALLAS TX 75230,H/233-9639 B/651-1645, ( A,CAROL GLITSCH BURNETT,3525 PRINCETON,DALLAS TX 75205,966 B/892-9101,s A,PATRICIA & JOE ENTESARI,4004 RIDGLEA C/C DR. #203,FT. WORTH TX 76126,H/738-0118 B/266-4372,  A,ROBERT D. WHITTINGTON,7373 VALLEY VIEW LN #1014,DALLAS TX 75240,H/233-4504 B/243-6721,*" A,PAUL E ATKINSON,14223 CORAL HARBOVR CS TX 75275,B/692-2749,W5VCl A,MICHAEL SANTOVEC,3747 BROOKHAVEN CLUB DR #449,DALLAS TX 75234,H/247-6991, A*R,GREG GRAHAM,2014 BAMBOO,MESQUITE TX 75150,H-279-7453,WB5WGA A,DR. ANTHONY E. STEPHENS,AUSTIN COLLEGE,SHERMAN TX 75090,H/214/892-4TE ALLAN,2115 BAMBOO,MESQUITE 75150,H-279-9419,K5PD A,MITCH MAYBORN,4703 W. LOVERS LN,DALLAS TX 75209,H/351-1263 B/358-3456, A,DON RAY WILLIAMS,7830 GLENNEAGLE DR,DALLAS TX 75248,H/661-0415 B/661-6469, A,BOB MONAGHAN,PO BOX 2182 SMU,DALLA690-0847,\  A,RUDI OTTO,2111 COLUMBIAN CL DR.,CARROLLTON TX 75006,H/242-4956 B/369-0181,  A,CID NEWBERRY,3206 KNIGHTS HAVEN LN,GARLAND TX 75042,H/495-5493 B/634-4230, A,????? G. FRANK,1814 VILLANOVA,RICHARDSON TX 75081,H/234-5600,3 *,PE,H/363-1117 B/742-4411,j A,CURTIS IRWIN,1505 MEADOWVIEW DR,RICHARDSON TX 75080,H/238-9547 B/748-8511, *,SARA GRAHAM,2014 BAMBOO,MESQUITE TX. 75150,279-7453,WB5UJU  A,HOWARD L. STROKES,2913 WHITEMARSH CIRCLE,RICHARDSON TX 75080,H/235-2227 B/Y GRAHAM,2014 BAMBOO,MESQUITE TX. 75150,H/279-7453 B/634-4463,WB5TRY A,ROD LEHMAN,7185 KENDALLWOOD,DALLAS TX 75240,H/239-2966, A,THOMAS ROELKE,6814 PRESTONSHIRE,DALLAS TX 75251,H/369-9449, A,DAVID BOCK,5210 ROYAL CREST DR.,DALLAS TX 75229H/357-5904 B/357-1555,Z A,EDWARD KUEMIERZ,1405 HOMESTEAD,GARLAND TX 75042,H/495-8596, A,BOBBIE FERRELL,13551 CHALLABURTON,DALLAS TX 75234,H/243-6347 B/661-1211, A,DAVID LEMONS,1900 SAM BASS APT. H-6,DENTON TX 76201,382-1792,D AM,JOHNNROBERT D. BOWSER,1029 FORESTGROVE,DALLAS TX 75218,H/327-3274 B/350-8821, A,DAVE KNIGHT,5746 ENSIGN DR.,FT. WORTH TX 76119,H/478-9356,  A,BART GRAHAM,2014 BAMBOO,MESQUITE TX 75150,279-7453, A,JIM J. MAYS,3651 MID PINES DR.,DALLAS TX 75229,14,+ W5VKHO6n 1390,JOHN HOLMES,725 LAGUNA,GARLAND 75043,271-1688,+ WA5WXA6x 1400,MIKE EARLES,10616 GROVE OAKS,DALLAS 75217,286-1381,+ WA5YJQ6 1410,DAN YORK,2415 HILLGLEN,DALLAS 75228,327-5168,+ WB6QWB#7 1420,KARL KANALZ,641 TIFFANY TR. DALGREEN,DALLAS 75214,827-7958,+ WB5RZJr5P 1360,THEODORE BUELL,600 JOYCE DR.,GARLAND 75040,276-1493,+ WB5TBL5Z 1370,JIM CASON,910 ROAMING RD.,ALLEN 75002,727-5188,+ WB5UAS 6d 1380,SPARKY YOUNG,13656 LITTLECREST DR.,FARMERS BRANCH 75234,247-644( 1320,GENE TOBABEN,306 WATSON DR BOX 366,ALLEN 75002,727-3474,+ W5RQC42 1330,JIM HUDSON,5507 RIDGETOWN CIR.,DALLAS 75230,661-5126,+ WB5RTY4< 1340,DICK PIERCE,5731 BERKSHIRE LN.,DALLAS 75209,369-5561,+ W5RXJ)5F 1350,JAMES BENNINGFIELD,394927 PATIO COURTS,GARLANDD 75043,270-1834,+ WA5KTCt3  1290,HAL MILES,9504 LOMA VISTA,DALLAS 75243,341-4561,+ AD5L3 1300,TOM HART,3107 PEPPERTREE PL.,PLANO 75074,423-5536,+ WB5OHM3 1310,GEORGE BEAL,BOX 1872,GREENVILLE 75401,455-9178,+ W5OXLJN5IDV2 1250,TONY GIANDALIA,806 DEL LENORA #24,DUNCANVILLE 75116,298-2073,+ WD5IMT2 1260,JERRY RANDALL,1830 MARIPOSA,DALLAS 75228,328-9740,+ WB5ISM2 1270,FRED RAYMOND,710 CAMERON AVE.,DALLAS 75223,827-9208,+ WD5KBG13 1280,DENNIS RECLA,9,5000 LA SALLE CIRCLE,ARLINGTON 76016,817-429-6949,+ K5HFT1 1220,RANDY OTT,710 WREN AVE.,DUNCANVILLE 75116,296-4815,+ K5HJ1 1230,JAMES TODD,3528 TOWNSEND,DALLAS 75229,361-1437,+ WA5HTT2 1240,BILL TRENT,438 HUGHES,IRVING 75062,252-4698,+ N 76201,817-387-5905,+ KB5FAc0 1180,CHUCK LEE,3122 PAMELA PL.,GARLAND 75042,495-3855,+ WB5FCD0 1190,TOM WALSTON,8826 GRAYWOOD,DALLAS 75243,341-0867,+ W5FPR0 1200,RALPH IMMEL,7514 OAK BLUFF,DALLAS 75240,239-1489,+ AD5G;1 1210,RON ADAIRNJ 07640,H/201/768-9274 B/212/595-3600,y/ A,ABACUS,2850 JENNIFER DR,CASTRO VALLEY CA 94546,H/213/538-2431 B/581-2748,/ A,VERNON LEMENS JR,5905 LOOKOUT MOUNTAIN DR,AUSTIN TX 78731,H/453-6032 B/476-2608,0 1170,DEANE PETERS,816 WENDSOR DR.,DENTOST. PAUL #212,RICHARDSON TX 75080,H/231-5432,s. 1160,JAMES HALL,RT.1 BOX 826A,MESQUITE 75181,286-3052,+ WD5EUN. A,JIM HURST,128 TUDOR ST,PINEVILLE LA 71360,H/318/445-7753 B/445-8211,'/ A,CLIFTON M. HOWARD M.D.,58 VAN ORDEN RD,HARRINGTON PARK DZMJ- A,DAN DAVIS,3904 BOISE CT,IRVING TX 75062,H/255-9257 B/661-3390,- A,ALAN M. VILLIERS,5053 CEDAR SPRINGS #241,DALLAS TX 75235,H/526-1366 B/361-8608,- A,JILL P. DAVID,221 WOODCREST,RICHARDSON TX 75080,H/234-1420,-. A,FRANCO ROBBA,905 LAS TX 75243,H/349-7462,o,z A,JIM ADKISSON JR,6301 CHAPMAN DR,GREENVILLE TX 75401,H/214/455-8867 B/455-6122,,| A,SCOTT LONG,922 HERITAGE CIR.,GARLAND TX 75043,H/270-9167 B/238-5951,-~ 1150,BOB DUKE,13526 PYRAMID DRIVE,DALLAS 75234,241-2888,+ K54,H+r A,DON SMALL,P.O. BOX 6992,TYLER TX 75711,H/593-6104 B/593-2100,+t 1140,THOMAS HATCHER,P.O.BOX 943,FORNEY 75126,226-1387,+ WD5DTG+v A,TERRY MUNCEY,PO BOX 1810,DALLAS TX 75221,B/387-2755,WB5OAS,x A,JIM BOOTH,9475 FOREST SPRING #2102,DAL-4524,+ WD5DRI`*l A,JOHN M. SKINNER,2728 WELBORN #236,DALLAS TX 75219,H/526-7538 B/363-2223,*n A,STEVE MARRERO,1302 N SHILOH RD #152,GARLAND TX 75042,H/272-4906 B/234-5956,+p A,NORMA HORTON,RFD-3-BOX 92A,LEWISVILLE TX 75056,H/242-8079 B/386-240ICHARDSON TX 75081,H/231-7350,s)f A,SAM B. MARCUS,2355 STEMMONS FRWY #907,DALLAS TX 75204,H/361-1155 B/637-6700,)h A,C. COLLINS PIPPIN,2111 JUANITA DR,ARLINGTON TX 76013,H/265-3825 B/265-1351,*j 1130,GARY TURNER,2601 ARROYO #328,DALLAS 75219,522WETZEL,3311 BEVERLY DR.,DALLAS TX 75205,H/321-7515 B/742-7201,(` 1120,HOWARD CUNNINGHAM,5759 PINELAND APT.1076,DALLAS,369-0480,+ WD5DBC(b A,JAMES & ANNE CHASTAIN,130 OAKRIDGE,LEWISVILLE TX 75067,H/436-5460,)d A,CRAIG LARSEN,4 GREEN VIEW CIR.,R,+ WD5CVDc'X A,WALTER T. MCKAY JR,1428 CROSS BEND RD,PLANO TX 75023,H/423-7925 B/423-8323,W5SFP'Z A,B.C. HUNSUCKER,600 TRACY,GREENVILLE TX 75401,H/455-1863 B/455-4220,'\ A,SCOTT MIDDLETON,BOX 841,CORSICANA TX 75110,H/214/872-2481,>(^ A,OTTO 81,+ K5VXMVF1970,BARRY MERRILL,10717 CROMWELL DR.,DALLAS 75229,351-1966,+ W5GNF1980,BOB MONNAGHAN,SMU P.O.BOX 2182,DALLAS 75275,692-2749,+ W5VCF2000,TIM OLMSTEAD,1623 ROSEMONT,MESQUITE 75149,288-0371,+ WB5PFJ-G2010,DON PORTCH,RT.2S,1604 WILLIAMSBURG,PLANO 75074,423-0407,+ WD5GIKsE1940,FRANK KAMP,907 DUMONT,RICHARDSON 75080,235-0610,K5DKZE1950,PAT KUYKENDALL,6529 SUMMIT RIDGE,WATAUGA 76148,817-485-2771,+ WB4SFY F1960,HANK LEVINE,10617 MARSH LN.,DALLAS 75229,350-71G 75060,*,+XDl1900,STEVE HEIMS,249 SUNNYDALE DR.,HEWITT 76643,817-662-4583,+ WD4PAADv1910,ALLEN JACOBSON,P.O. BOX 15,PARAMUS NJ. 07652,201-261-6800,+ WA2WSBD1920,JOHN JOHNSON,RT.2 BOX 260,MCKINNEY 75069,442-1664,+ K5AXH3E1930,REX JONED1860,DOUG GIBSON,3616 WEEBURN,DALLAS 75229,357-2717,+ W5PDCN1870,PETE GOUDREAU,13555 KIT LN. APT.#138,DALLAS 75240,783-4982,+ WB5RKCCX1880,BILL GUNDERSON,BOX 1432,DALLAS 75221,526-1813,+ W5PSN Db1890,DAVID HASTINGS,651 FRANCINE DR.,IRVIN76118,817-498-2785,+ W5SGXcB&1830,PETE FISHER,7253 EDGERTON DR.,DALLAS 75231,341-1120,+ KA5CRTB01840,RON FRANKLIN,6125 FORREST EDGE,FT. WORTH 76119,817-536-9467,+ WD5GICB:1850,ERNEST GAW,3714 LEGENDARY #137,DALLAS 75224,357-7106,+ W5MXC?CRRY DREWS,3705 WALTON AVE.,FT. WORTH 76133,817-292-5932,+ W5VDCA1800,CLIFF ELSTON,2826 WASKOM ST.,DALLAS 75228,327-3757,+A1810,ALLEN ERICKSON,13868 FAR HILLS LN.,DALLAS 75240,661-2293,+ WD5CGBB1820,CURLY FIELDS,4116 MORGAN CIR.,FT.WORTH -2058,+ WB5YPSZ@1760,LUKE DAVIS,1333 CEDAR KEYS,LEWISVILLE 75067,436-7409,+ KA5CXM@1770,GLEN DEEN,629 WINCHESTER DR.,RICHARDSON 75081,235-4391,+ AG5L@1780,BURTON DENMAN,1008 BLUE RIDGE PL.,RICHARDSON 75080,235-4359,+ W5YAKAA1790,JEAMYG?1720,STEVE CORDER,800 GRUBB,MESQUITE 75149,288-7889,+ WB5LHL?1730,JAMES COSBY,312 ISLAND DR.,RICHARDSON 75081,235-2255,+ WD5FYU?1740,JIM COUNTS,1715 BROOKS DR.,ARLINGTON 75012,*,+@ 1750,BILL DALLIN,984 PEAVY RD.,DALLAS 75218,321ND 75042,278-3858,+ A5EQXh>1690,GARY CARIKER,313 E. HARVARD DR.,GARLAND 75041,271-1954,+ WA5QWQ >1700,PHIL CLEMENTS,1313 APPLEGATE LN.,LEWISVILLE 75067,221-2222,+ K5PC?1710,JIM COKER,5350 AMESBURY DR. #1913,DALLAS 75206,696-2326,+ WA5r 1650,DON ALFONSO,1711 AUBURN DR.,RICHARDSON 75081,238-8883,+ W6KCN=|1660,JIM BENNETT,732 PARKHURST DR.,DALLAS 75218,324-1651,+ N5ABZ=1670,HERB BLAIR,4213 TYNES DR.,GARLAND 75041,494-6191,+ WA5YKO>1680,WAYNE CAMP,2526 LIVENSHIRE,GARLAJ 1610,JERRY DUNN,2713 MANOR DR.,GARLAND 75041,271-5720,WB5ULNr> CHANGE DATA STATEMENT <<i I1(C$) (NNI1),((C$,I,I))  ` JOHNNY GRAHAM ,2014 BAMBOO ,MESQUITE TEXAS ,214-279-7453 bj NNN:3000)8:12:"";C$:C$""2230Y(C$)(A$)āI1((A$)(C$)):C$C$" ":hNNA:300011:12:"";C$:C$""2260(C$)(CS$)āI1((CS$)(C$)):C$C$" ":NNCS:300014:12:"";C$:C$""2290(C$)(T$)āI1(DATA STATEMENTS <<>2007H(N$,5)"_____"ī2110=JUR5:"NAME:";12);N$p\8:"ADDRESS:";12);A$f11:"CITY/STATE:";12);CS$p14:"TELEPHONE:";12);T$z5:12:"";C$:C$""2200(C$)(N$)āI1((N$)(C$)):C$C$" ": :"NUMBER? ";DN"DN613002070(1200EN$"END"ī2070VDNRNī2030gDNRNī2070(N$,20)"____________________"2070S$"Y"400 900::DN;" NOT FOUND. PRESS KEY FOR MENU."; NN$:NN$:9004 >> ADD :N0::L02003(N$,5)"_____"1010K(N$,3)"END"1100T300^NN1h1010L23:"END OF FILE. PRESS SPACE FOR MENU. ";:C$:C$V900 >> CHANGE DATA <<:5"ENTER NUMBER OF THE DATA TO BE CHANGED.":"? ";:C$:C$6(C$)1000,2000,2100,600,510,980?900W216,0:S$"Y"990DOSĺ:"FILE BEING SAVED.....":D$;"SAVE ";PG$:990:"TO SAVE THE NEW DATA YOU WILL NEED TO SAVE THIS PROGRAM TO TAPE.":" B Y E"::ER,2228 MONTCLAIR PL.,CARROLLTON TX 75006,H/245-5058 B/233-6000/4691,W5USJ^L' END,*,*,*,*,* OF DALLAS,THE CORNER #912 WALNUT/CENTRAL,DALLAS,363-2223,zKz S,THE BYTE SHOP,1490 W.SPRING VALLEY RD.,DALLAS,234-5955,K S,KA ELECTRONIC,1220 MAJESTY,DALLAS,634-7870,K S,THE MICRO STORE,634 S. CENTRAL,RICHARDSON,231-1096,JL A,CHUCK CARPENTDALLAS 75227,381-0340,+ WD5HZCgJR 2130,JIM MCCARTER,3300 ROCKNE LN.,MESQUITE 75150,270-0707,WD5DFQJ\ SA,COMPUTER IMAGINEERING,2825 VALLEY VIEW LN,FARMERS BRANCH TX,247-6393,Jf S,COMPUSHOP,13929 N. CENTRAL,DALLAS,234-3412,:Kp SA,COMPUTERLAND1517 CHRUCHILL DR.,DENTON 76201,817-387-1897,+ W5UBTI42100,KEN WINTERS,5307 MARSHFIELD CT.,ARLINGTON 76016,817-457-5307,+ NN5AUXI>2110,CORKEY YANT,3537 BEVERLY DR.,FT. WORTH 76117,817-834-6824,+ WB5SKI JH2120,PAUL ZETTLER,8237 NORVELL DR.,-3097,+ K5DMVH 2060,ROB TUBBS,7831 BLACKBIRD LN.,DALLAS 75238,349-0293,+ WB5OQGH2070,GORDON TURNER,BOX 2694,DALLAS 75221,350-9939,+ WB5QYLH 2080,BRITTON VINCENT JR.,3338 DARBYSHIRE,DALLAS 75229,351-6867,+ W5UPV6I*2090,ROBERT VINCENT, BOX 212-E,MCKINNEY 75069,442-2149,+ WD5EWWxG2030,JOSE SANCHO,1000 SUMMIT CIR.,CARROLTON 75206,242-2997,+ WB5YFUG2040,RON SHIPMAN,722 LONGBEACH DR.,GARLAND 75043,271-2129,+ N5AAPH2050,CARROLL SMITH,831 NORTHLAKE DR.,RICHARDSON 75080,235__________________,_________________________,____________________0@ _________________________,_________________________,_________________________,____________________1J _________________________,_________________________,_________________________,_______o/" _________________________,_________________________,_________________________,____________________/, _________________________,_________________________,_________________________,____________________A06 _________________________,____________,_________________________,____________________. _________________________,_________________________,_________________________,____________________/ _________________________,_________________________,_________________________,_______________________________________,_________________________,_________________________,____________________- _________________________,_________________________,_________________________,____________________4. _________________________,______________________________________,____________________, _________________________,_________________________,_________________________,____________________, _________________________,_________________________,_________________________,____________________b- ____________,_________________________,_________________________,____________________+ _________________________,_________________________,_________________________,____________________', _________________________,_________________________,____________,____________________* _________________________,_________________________,_________________________,____________________* _________________________,_________________________,_________________________,____________________U+ ______________________________________,_________________________,____________________) _________________________,_________________________,_________________________,____________________* _________________________,_________________________,_________________________________v(x _________________________,_________________________,_________________________,____________________( _________________________,_________________________,_________________________,____________________H) _________________________,____________,_________________________,____________________'d _________________________,_________________________,_________________________,____________________ (n _________________________,_________________________,_________________________,_______i&F _________________________,_________________________,_________________________,____________________&P _________________________,_________________________,_________________________,____________________;'Z _________________________,______________________________________,____________________%2 _________________________,_________________________,_________________________,____________________&< _________________________,_________________________,_________________________,_______________________________________,_________________________,_________________________,____________________$ _________________________,_________________________,_________________________,____________________.%( _________________________,_________________________,____________,____________________# _________________________,_________________________,_________________________,____________________# _________________________,_________________________,_________________________,____________________\$ ____________,_________________________,_________________________,____________________" _________________________,_________________________,_________________________,____________________!# _________________________,_________________________,_________________________________}! _________________________,_________________________,_________________________,____________________! _________________________,_________________________,_________________________,____________________O" ____________________________________,_________________________,____________________@ _________________________,_________________________,_________________________,____________________A _________________________,_________________________,_________________________,_______n? _________________________,_________________________,_________________________,____________________? _________________________,_________________________,_________________________,____________________@@ _________________________,____________,_________________________,____________________> _________________________,_________________________,_________________________,____________________? _________________________,_________________________,_________________________,_______________________________________,_________________________,_________________________,____________________= _________________________,_________________________,_________________________,____________________3> _________________________,______________________________________,____________________ _________________________,_________________________,_________________________,____________________EH _________________________,_________________________,_________________________,____________________g_________________,_________________________,_________________________,____________________D* _________________________,_________________________,_________________________,____________________,E4 _________________________,_________________________,____________,____________________C _________________________,_________________________,_________________________,____________________C _________________________,_________________________,_________________________,____________________ZD ____________,_________________________,_________________________,____________________B _________________________,_________________________,_________________________,____________________C _________________________,_________________________,_________________________________{A _________________________,_________________________,_________________________,____________________A _________________________,_________________________,_________________________,____________________MB _____________________28,2:929,73J$a930,48:931,168:932,169:933,0:934,76:935,235:936,26U$aRAM0$a(57344)32RAM1: TEST FOR RAM APPLESOFT$aRAMı: ABOVE POKES ARE FOR RAM APPLESOFT. BELOW IS ADJUSTMENT FOR LANGUAGE CARD OR ROM APPLESOFT%a772,52:773,2176:900,5:901,169:902,32l#a903,157:904,239:905,2:906,202:907,240:908,4:909,228:910,208:911,144#a912,233:913,162:914,1:915,189:916,239:917,2:918,32:919,95:920,19 $a921,232:922,228:923,208:924,144:925,245:926,189:927,239:9871,201:872,48:873,144:874,234:875,104{"a876,157:877,239:878,2:879,202:880,240:881,31:882,192:883,0:884,208"a885,205:886,232:887,24:888,144:889,16:890,189:891,239:892,2:893,201#a894,36:895,240:896,16:897,201:898,46:899,2,201:843,45:844,208:845,14:846,189:847,239:848,2!a849,201:850,45:851,144:852,22:853,202:854,208:855,240:856,104:857,24!a858,144:859,53:860,189:861,239:862,2:863,201:864,32:865,240:866,8+"a867,201:868,58:869,240:870,238:3,168:814,136:815,177:816,131:817,153:818,240:819,2:820,136:821,16 a822,248:823,160:824,0:825,185:826,0:827,1:828,240:829,3:830,200 a831,208:832,248:833,166:834,208:835,136:836,185:837,0:838,1:839,727!a840,104:841,72:8429Ra786,134:787,130:788,32:789,76:790,24:791,160:792,4:793,177:794,155a795,133:796,132:797,136:798,177:799,155:800,133:801,131:802,136:803,177a804,155:805,201:806,16:807,144:808,2:809,169:810,16:811,133:812,208J a81((100PL.5)(1))$*I122::**0:aa SUBROUTINE TO ESTABLISH PRINT USING FORMATa768,165:769,82:770,72:771,32:772,43:773,37:774,32:775,222:776,27a777,104:778,133:779,82:780,169:781,69:782,162:783,196:784,133:785,1(FILLER$,NEEDED);:NUME(1,26):((100NUM.5));d")(FILLER$,25);:NUME(2,26):((100NUM.5))y,):"NET PROFIT";6)PLE(1,43)E(1,0)@)T20:1000:(FILLER$,NEEDED);:"$";((100PL.5)(1));J)PLE(2,43)E(2,0)T)(FILLER$,24);:"$";FORE TAX("PROFIT BEFORE"h("FEDERAL TAX";:T21:1000:(FILLER$,NEEDED);:((100CP.5)(1));|((FILLER$,25);(PLE(2,43)E(2,26)E(2,0))((100PL.5)(1))):"PROVISION FOR")"FEDERAL TAX";1)NUME(1,27):T21:1000:(100E(2,I).5))(I(6(TEE(1,43)E(1,26)("TOTAL EXPENSE";:T21:1000:(FILLER$,NEEDED);:;((100TE.5));(TEE(2,43)E(2,26)((FILLER$,25);:;((100TE.5))((CPE(1,43)E(1,0)E(1,26): CURRENT PERIOD PROFIT BE20:1000:(FILLER$,NEEDED);:"$";((100E(1,0).5)(1));i((FILLER$,24);:"$";((100E(2,0).5))o({(I135(:E(2,I)0ī10430(I26ī10430(::A$(I);:T21:1000:(FILLER$,NEEDED);:;((100E(1,I).5));((FILLER$,25);:;(:1000:(FILLER$,NEEDED);:NUME(2,36)E(2,38)E(2,47)E(1,48)E(2,48)E(2,42)E(2,0)E(2,43)}F("$";((100NUM.5)(1))P( TO PRINT P&LZ(:(FILLER$,22);:"INCOME STATEMENT"d(n((FILLER$,22);MO$;:(FILLER$,29);"YTD"<x("SALES";:T:1000:(FILLER$,NEEDED);:NUME(2,0)E(2,43):((100NUM.5)(1))(("TOTAL ASSETS";:T20:1000:(FILLER$,NEEDED);:NUME(2,45)E(2,39)E(2,40)E(1,46)E(2,46)E(1,45)E(2,41)2("$";((100NUM.5));:(FILLER$,4);^<("TOTAL LIAB & CAP";:T15((100NUM.5));:(FILLER$,4);}("RETAINED EARNINGS";:T16:1000:(FILLER$,NEEDED);:NUME(2,48):((100NUM.5)(1)) ("OTHER ASSETS";:T21:1000:(FILLER$,NEEDED);:NUME(1,45):((100NUM.5));:(FILLER$,4);E("PROFIT AND LOSS ";:T16______,_________________________,_________________________,____________________kR END,END,END,END,END _________________zQ` _________________________,_________________________,_________________________,____________________Qj _________________________,_________________________,_________________________,____________________ORt ___________________9: SET WIDTH%F%F(%FW2135:%FW;" ";A$(W)A%FW%F20::"TOUCH SPACE BAR ":"FOR BALANCE SHEET":"ACCOUNTS ":%F:B$%F::::"A/C DESCRIPTION";:X(36):20X);:"A/C DESCRIPTION ":&F"100 CASH";:21:"200 ĺ::(7):"ACCOUNTS ARE NOT IN BALANCE"1$NFB$<$OF10030$PF::::"A/C DESCRIPTION";:X(36):20X);:"A/C DESCRIPTION ":$ZF34,2: FREEZE TOP$dFW120$nFW;" ";$xFW10ĺ" ";$FA$(W)$FW$F32,20: SET LEFT EDGE%F33,1S";'#NCNUME(2,43)(E(2,0)): P&L3#SCPLNUMR#XC30:((100NUM.5)(1))#lCT2E(2,36)E(2,38)E(2,47)E(2,42)E(1,48)E(2,48)PL#qCT2T2(1)#vC:"TOTAL ":29:"$";((100T2.5))#{CT1(100T1.5)100:T2(100T2.5)100)$CT1T2E(2,47):((100NUM.5)(1))`"&C3);"ACCRUED WAGES";:30:NUME(2,42):((100NUM.5)(1))"0C3);"CAPITAL STOCK";:30:NUME(1,48):((100NUM.5)(1))":C3);"RETAINED EARNINGS";:30:NUME(2,48):((100NUM.5)(1))#DC3)"PROFIT AND LOS.5))!B20:B$#!B:::CLIENT$-!BFYE$O!B:"LIABILITIES AND CAPITAL:"!C:3);"NOTES PAYABLE";:29:NUME(2,36):"$";((100NUM.5)(1))!C3);"ACCOUNTS PAYABLE";:30:NUME(2,38):((100NUM.5)(1))"C3);"ACCRUED TAXES";:30:NUM.5)); B3)"DEPOSITS";:30:NUME(2,46):((100NUM.5))v B3)"OTHER ASSETS";:30:NUME(1,45):((100NUM.5)) B:"TOTAL ASSETS";:NUME(2,45)E(2,39)E(2,40)E(1,46)E(2,41)E(2,46)E(1,45) BT1NUM: TOTAL ASSETS!B29:"$";((100NUME(2,45):"$";((100NUM.5))VB3)"ACCTS REC.";:30:NUME(2,39):((100NUM.5))B3)"ACCTS REC-OTHER";:30:NUME(2,40):((100NUM.5))B3)"INVENTORY";:30:NUME(1,46):((100NUM.5)) B3)"EQUIPMENT";:30:NUME(2,41):((100NUM$;"OPEN";F$>D$;"DELETE";F$1>D$;"OPEN";F$D>D$;"WRITE";F$O>I12\>:J049j>::E(I,J)r>:Jy>I>D$;"CLOSE";F$>10030hB PRINT BALANCE SHEET DATArB:::CLIENT$|BFYE$B:"ASSETS:":B3)"CASH";:29:NUM0);"DELETING CURRENT DATA":P1500:P2:J035A::E(1,J)0H:JW:E(1,43)0b:10030|> OPTION TO SAVE DATA>::10:"ARE YOU SURE YOU WANT TO ";::"SAVE";::" THE DATA?";:B$:B$"Y"ī10030>::10:10)"PLEASE STAND BY" >D"$";((NUM100.5)(1));Q7NUME(2,43)E(2,0):30:"$";((NUM100.5)(1))`:B$:10030: DELETE CURRENT MONTH DATA::(10):7)"ARE YOU SURE YOU WANT TO":(7)::"DELETE";::" CURRENT MONTH DATA?";:B$:B$"Y"ī10030&::(10):134);"Y.T.D"K6::"SALES";:NUME(1,0):14:"$";((NUM100.5)(1));z6NUME(2,0):30:"$";((100NUM.5)(1))7:"EXPENSES";:NUME(1,43):15:((NUM100.5)); 7NUME(2,43):31:((NUM100.5))7:"NET";:14:NUME(1,43)E(1,0):1,AC)E(1,AC)D&r3E(2,AC)E(2,AC)D8|3AC35ī13210O3E(1,43)E(1,43)Df3E(2,43)E(2,43)Dl3w3130206 DISPLAY P&L SUMMARY6::(4):CLIENT$::FYE$6:"PROFIT AND LOSS SUMMARY:"6:17)"CURRENT":617);" MONTH"; 613020+?3AC240ĪE(1,48)E(1,48)D:13020Q@3AC150ĪE(2,46)E(2,46)D:13020wA3AC250ĪE(2,48)E(2,48)D:13020B3AC160ĪE(1,45)E(1,45)D:13020C3AC500ĪE(1,0)E(1,0)D:E(2,0)E(2,0)D:13020S3AC36ī13150T3ACAC15^3h3E(AC110ĪE(2,39)E(2,39)D:13020G93AC210ĪE(2,38)E(2,38)D:13020m:3AC120ĪE(2,40)E(2,40)D:13020;3AC220ĪE(2,47)E(2,47)D:13020<3AC130ĪE(1,46)E(1,46)D:13020=3AC230ĪE(2,42)E(2,42)D:13020>3AC140ĪE(2,41)E(2,41)D:40AC250AC500ī13040)2AC36ī13040:21000:13020n223:"ACCOUNT: ";AC;:868:(18):"AMOUNT ";:D323:"ACCOUNT: ";AC;:868:(18):"AMOUNT ";:((100D.5))63AC100ĪE(2,45)E(2,45)D:1302073AC200ĪE(2,36)E(2,36)D:13020!8337:774,32:775,231:776,2271%a789,83:790,224F%a919,92:920,219\%a935,242:936,226%a: SEE OCTOBER, 1980 MICRO MAGAZINE, PAGE 14, ARTICLE BY GARY A. MORRIS FOR DETAILS ON HIS PRINT USING ROUTINE.T(0);"S/";C$(2);"S, OR":" 2 A SINGLE ";C$(0);"/";C$(2);" ONLY...":" WHICH";:PP1:OO2:100:RS:Q10465r(::(B110520(R10495,10492("ENTER ";C$(0);"/";C$(2);F$;A$;:PP0:OO1E8:100:DS:Q10492(10520(" ENTER ";D$(G);F$;A$;:P5 ";D$(4):" WHICH";:PP1:OO5:100:GS1:Q10400b(GG(G0)(G1)4(G2)12(G3)O7(G4)Oy(KL0G310465(" HOW MANY ";L$(4);" IN YOUR ":"ACCOUNTING YEAR";:PP0:OO365:100:OS:Q10420h(:" WILL YOU BE MAKING:":" 1 ";D$(G);F$;C$;F$;L$(1);:100:QIS:I$;F$;L$(2);:OO1200:100:QJS:I$;F$;L$(3);:OO10E4:100:QKS:I$;F$;L$(4);:OO1E6:100s(QLS:10390x(10340(:" "2(" WITH INTEREST TO BE COMPOUNDED:":" 1 ";D$(0):" 2 ";D$(1):" 3 ";D$(2):" 4 ";D$(3):" INTEREST RATE (APR) IN %";:PP.005:OO1000:100:FS100:Q10220PF(B210390d(" TERM OF THE ACCOUNT:":" YOU MAY ENTER ANY COMBINATION OF ";L$(0)",":L$(1);", ";L$(2);", ";L$(3);", OR ";L$(4);"."wn(PP0:OO400::I$;F$;L$(0);:Q0:100:QHS:I$(0);"/";C$(2);F$;A$:" 3 ";I$;F$;C$(0);"S/";C$(2);"S":" 4 TOTAL ";A$;" OR,":" 5 BALLOON ";C$(0)'" WHICH (ENTER BY NUMBER PLEASE)";:PP1:OO5:100:Q10140'BS1':10)G$:" OK..NOW I NEED TO KNOW THE FOLLOWING: "'B010310A'"ANNUALALLOON ";C$(0);K$;", AND "::J$;K$;" FOR ";B$(0);"S, ";B$(1);K$`$'"AND ";B$(2);"S ACCOUNTS."['" HIT RETURN WHEN READY...";E$t'20000y'O365:LL0:BB0:Q0:P0:a~'"YOU MAY CALCULATE ANY OF THE FOLLOWING:":" 1 INTEREST RATE (APR)":" 2 ";C$936,226|/a: SEE OCTOBER, 1980 MICRO MAGAZINE, PAGE 14, ARTICLE BY GARY A. MORRIS FOR DETAILS ON HIS PRINT USING ROUTINE. 0.a(57344)32RAM1: TEST FOR RAM APPLESOFT.aRAMı: ABOVE POKES ARE FOR RAM APPLESOFT. BELOW IS ADJUSTMENT FOR LANGUAGE CARD OR ROM APPLESOFT.a772,52:773,237:774,32:775,231:776,227.a789,83:790,224.a919,92:920,219/a935,242:9,228:910,208:911,144e-a912,233:913,162:914,1:915,189:916,239:917,2:918,32:919,95:920,19-a921,232:922,228:923,208:924,144:925,245:926,189:927,239:928,2:929,73-a930,48:931,168:932,169:933,0:934,76:935,235:936,26.aRAM00,240:881,31:882,192:883,0:884,208w,a885,205:886,232:887,24:888,144:889,16:890,189:891,239:892,2:893,201,a894,36:895,240:896,16:897,201:898,46:899,176:900,5:901,169:902,32-a903,157:904,239:905,2:906,202:907,240:908,4:90:852,22:853,202:854,208:855,240:856,104:857,24+a858,144:859,53:860,189:861,239:862,2:863,201:864,32:865,240:866,8+a867,201:868,58:869,240:870,238:871,201:872,48:873,144:874,234:875,104&,a876,157:877,239:878,2:879,202:8848:823,160:824,0:825,185:826,0:827,1:828,240:829,3:830,200*a831,208:832,248:833,166:834,208:835,136:836,185:837,0:838,1:839,72*a840,104:841,72:842,201:843,45:844,208:845,14:846,189:847,239:848,24+a849,201:850,45:851,144a795,133:796,132:797,136:798,177:799,155:800,133:801,131:802,136:803,177)a804,155:805,201:806,16:807,144:808,2:809,169:810,16:811,133:812,208)a813,168:814,136:815,177:816,131:817,153:818,240:819,2:820,136:821,16B*a822,2USING FORMATZ(a768,165:769,82:770,72:771,32:772,43:773,37:774,32:775,222:776,27(a777,104:778,133:779,82:780,169:781,69:782,162:783,196:784,133:785,129(a786,134:787,130:788,32:789,76:790,24:791,160:792,4:793,177:794,155R)NINGS"1'6G"160 OTHER ASSETS";:21:"500 SALES"'@G18::"ENTER '1' TO RE-REVIEW EXPENSE ACCOUNTS OR TOUCH SPACE BAR TO RETURN TO MENU "::::B$'JGB$"1"ī18000'TG10030'8J'BJD$;"RUN PRINT G/L"'LJ (a SUBROUTINE TO ESTABLISH PRINT NOTES PAYABLE"B&G"110 ACCTS RECEIV.";:21:"210 ACCTS PAYABLE"w&G"120 ACCT REC-OTHER";:21:"220 ACCRUED TAXES"&G"130 INVENTORY";:21:"230 ACCRUED WAGES"&"G"140 EQUIPMENT";:21:"240 CAPITAL STOCK"',G"150 DEPOSITS";:21:"250 RET. EARAND "H$(X)":"X$:3660 B" "* LI1RHJ V36,K(3I1):H$(K(3I2));Q `It jK(0)1Ĺ36,K(3I1):"TOTAL";| t: ~L4: *** SET-UP TO SAVE RPTFMTFILE *** NSNR :"ENTER THE REPORT FORMAT NAME ";RN$(NN) F$RN$(NN)" RPTFMT"3I2/ V(N$(J,K(N))):AC(I)AC(I)V:HCHCV5 X I139((PF1)39):"-";:I:d I1RHv AC(I)03580 36,K(3I1):AC(I); IGT0Ĺ36,K(3I1):GT;:$RN$(NN)" REPORT FOR "H$(S)":"Q$;.X$"@"3650 8" E1:3720HR :"MORE REPORTS USING THE "RN$(NN)" FORMAT":"(Y/N) ";L$d\ L$"Y"İ3880:E1:2980nf 4810zp I1RHz 36,K(3I1):N$(J,K(3I2)); K(3I)3510 I K(0)1ĭHC0Ĺ36,K(3I1):HC;:GTGTHC:HC0 LL1 : NJ,S),(Q$))Q$3330% X$"@"3320D (N$(J,X),(X$))X$3330N 3440j PF1ĭL18İ2060:3610y L0İ3610 J T93540* D$"PR#0"4 E3410> :"DO YOU WANT TO SAVE THE FORMAT":"FOR THIS REPORT TO DISK (Y/N) ";L$ H L$"Y"X$:X(X$). :"@ WILL SELECT ALL RECORDS."^ :"SELECT RECORDS FOR "H$(S)"= ";:"";Q$: L$"Y"ĺ"AND "H$(X)"= ";:"";X$ I1RH1:K(3I1)35PF2 I PF5230,5250,5280:3610 J1NR N$(J,0)(J) Q$"@"3320 (N$()0K(0)0:T91:3150OD K(I1)(A$):K(I1)0K(I1)131ĺ"":(37)1:3120UN X "SELECT RECORDS BY WHICH HEADER # ";S$:S(S$)b (S$)0Q$"@":3230l :"'AND' 2ND HEADER (Y/N) ";L$:L$"Y"X$"@":3200 v :"ENTER # OF 'AND' HEADER ";K$:K(I)(K$)& K(I)0K(I)NH3040\ "ENTER TAB FOR "H$(K(I))" ";:"";K$:K(I1)(K$)z K(I1)0K(I1)2553060 "TOTAL ON "H$(K(I))" (Y/N) ";:L$ L$"Y"K(I2)1:K(0)1 I& K(0)131500 "ENTER TAB FOR TOTAL: ";A$: (A$:E0 I03NH2:K(I)0:I@ I0NH:AC(I)0:I:HC0:GT0L E3150V 3940 :"HOW MANY HEADERS ";RH$:RH(RH$):RH1RHNH13010 E0RN$(NN)"PRESENT" I1RH33  "ENTER # OF HEADER YOU WANT IN":"POSITION #"(I2)3" ";:"";$" RPTFMTNAMEFILE"1 D$"DELETE"DB$" INDEXFILE"Q" D$"DELETE"DB$" HEADERFILE"\, DB$""t6 F$"BASENAME":4110@ NR1ĺD$"DELETE BASENAMEFILE":1000J ISNR1T R$(I)R$(I1)^ Ih NRNR1:4280r 2470| ***REPORT*** T90 IT? (Y/N) ";:"";S$& S$"Y"2470V :12:11::(91);" DELETING DATABASE ]":a 2830o DB$R$(S) F$"RPTFMTNAME" 4110 D$;"DELETE"DB$" "F$"FILE" I1NR D$;"DELETE"DB$" "R$(I)" RPTFMTFILE" I 1013:D$"DELETE"DB:"":15020J" N:" BASIC FINANCE I-----------COPYRIGHT 1978":10)G$:R"0u:WSUBTOTAL AFTER ";C$(0);" NO.";:PP0:OO5000:100:AAS:Q115080W!:AAGGAA0AAGG!:T10:T20:T30:T40:BA0:BB0:IN0:LL0:XX0:Q0!>BA(A2)C(A)(A2)0:40 ">:"SORRY, YOU'VE PICKED A NONSENSE SCHEDULE":"PLEASE CHOOSE AGAIN.":KK11500::::J$;" FOR:":" 1 ";B$(0):" 2 ";B$(1);", OR"::" 3 ";B$(2);" ACCOUNT"::"WHICH";:PP1:OO3:100:AS1:Q15030 ::" WOULD YOU LIKE:":" 1 A COMPLETE ";J$;", OR":" 2 A ";D$(0);" SUMMARY ONLY":" WHICH";:PP1:OO2:100:JJS:Q15060@!:" FIRST AN ";J$;" (Y/N) ";:E$:(E$,1)"Y"15030O:"MORE (Y/N) ?";E$:(E$,1)"N"Ā::" 1 ANOTHER PROBLEM":" 2 ANOTHER SCHEDULE":" 3 BACK TO THE FIRST PAGE":" 4 QUIT":" WHICH";:PP1:OO4:100:Q15020:S10100,15027,1000,30000:R216070t 4IJ3KO28L4O:8)MH12I3JK84OL12O:Z)MHO7IO28JO84KL7:w)MHOIO4JO12K7L*M(M):TMGG:NFGG0*1000::R15010,15015:"ANOTHER ";J$;" (Y/N) ";:"? ";E$:(E$,1)"Y"15030:15020):"LIKE P0:OO1E8:100:DS:Q10495+)B310600b6)" ENTER TOTAL ";A$;:PP0:OO1E8:100:CS:Q10550qh)R210700m)B410700|)" ENTER BALLOON ";A$;:100:PS:Q10620)G110710,10720,10730,10740,10750:10760)MHI4J12K7OLO:)MH);".":0@ "ONCE DELETED, THIS DATA CANNOT BE"YJ "RECOVERED. ARE YOU SURE THAT YOU"T "WANT TO DELETE IT? (Y/N) ";:"";S$^ S$"Y"2640h :12:11::(91);" DELETING DATABASE ]":r EX4| DB$R$(S) F$"RPTFMTNAME" 4740 D"21 CHARACTERS MAXIMUM.":28009 ((R$(J),1))02800H NRJ:4960^ DB$R$(J1):1150 *** DELETE A DATA BASE ***" :"DELETE WHICH : ";S$:S(S$), S1SJ1ĺ(7);:(37)1:868:28506 :(9):"READY TO DELETE "(34);R$(S);(34 DATA BASE". J1ĺJ1" DELETE A DATA BASE"4 M "WHICH ";S$:S(S$)a J1SJ12840 S1SJĺ(7);:(37):868:2710 DB$R$(S) SJ1150  EX10 J0J1 "NAME FOR NEW DATA BASE FILE :";R$(J) (R$(J))21ĺ),I)  I,J I J' NRNR1N( :"RECORD NUMBER "DR" DELETED!":d2 "MORE (Y/N) ";L$u< L$"Y"2470F F$"INDEX":4960:5560P *** BASENAMEFILE ROUTINES ***Z d "SELECT FROM:":n J1NR:J" "R$(J):J: x J" CREATE A NEW130 ,4810,(PF0:4810",2F,<*** APPLESOFT ONERR CORRECTIONd,FI10131022:PP:I,PP:Il,PI0r,Z,d104,168,104,166,223,154,72,152,72,96,nD$"PR#1",x" K":,D$"PR#1"," K 80N",,D$"PR#1"," K132N","10 QUIT"+*+"WHICH ";S$:S(S$)=+S1S104810v+S1050,1780,1620,2340,2940,1440,5080,5160,4500,5170|++"PRINTER OPTIONS:"+"1 40 COLUMNS"+"2 80 COLUMNS"+"3 132 COLUMNS"+ :"WHICH ";PF$:PF(PF$),PF1PF35 DATA BASE"/*V"2 SEARCH AND/OR CHANGE DATA"G*`"3 ENTER RECORDS"`*j"4 DELETE RECORDS"q*t"5 REPORT"*~"6 SORT (TAKES APPROX. "(.0005NR2.03NR)" MIN.)"*"7 TURN ON PRINTER"*"8 TURN OFF PRINTER"*"9 LIST ALL RECORDS" +****"+):" APPLE COMPUTER INC"1)Q)"CURRENT DATA BASE: "DB$:)"CURRENTLY CONTAINS: "NR" RECORDS"::"ROOM FOR "BNR" MORE RECORDS")$).PF1ĺ"THE PRINTER IS ";::"ON"::4930)8"THE PRINTER IS OFF")B *L"1 SELECT0,5250,5280(\4620(f;(p *** INPUT ROUTINES ***E(zI$""_(COMMA$"NO"Ą"";I$:g(A$v(A$(3)ij(A$;(A$(13)ı(I$I$A$(4750(*** MAIN MENU ***(4840(1013()"******* DATA BASE MANAGEMENT I ***$(J,I)'LL1'I#':LL15'LNH204660<' JJ'D$"PR#0"k' "HIT RETURN FOR MENU...";L$u'*4810'4D$"PR#0"'>"PRESS RETURN TO CONTINUE, ESC FOR MENU";'@L$'B(L$)274810'D(L$)134680'F4672'H:L0 (RPF523" &DFF0&N1&X*** SAVE REPORTNAMEFILE ***;&bNRNNO&lF$"RPTFMTNAME"k&vI1NR:R$(I)RN$(I):Iu&4280&NRNS:& *** LIST ***&L0&&J1NR&PF5230,5250,5280&" "H$(0)": ";J:LL1&I1NH'I" "H$(I)": "N%R$(J)%J%D$"CLOSE"(%FF0.%F%*** SAVE FILES ***\%F$"INDEX"FF1x%D$"OPEN"DB$" "F$"FILE"%D$"WRITE"DB$" "F$"FILE"%NR%J1NR%FF4390%I1NH%N$(J,I)%I%4400%&R$(J)%0J&:D$"CLOSEANT TO CREATE ONE (Y/N) ?";L$:L$"Y"4810A$3880:NRNS:3010Y$*** READ FILES ***o$F$"INDEX"FF1$"D$"OPEN"DB$" "F$"FILE"$,D$"READ"DB$" "F$"FILE"$6NR$@J1NR$JFF4230$TI1NH$^4720$hN$(J,I)I$$rI$|4240 #:"SELECT FROM:":3#I1NR:I" "R$(I):I:Y#I" CREATE A NEW REPORT FORMAT":#"WHICH ";S$:S(S$):S1SI4030#NNS#SIRN$(S)R$(S):E1:NRNS:3810#4100#1013::"NO REPORT FORMATS ON DISK...":#NN1+$"DO YOU W SUB MENU ***%"2:"SELECT FROM:"::"<MF0ĺ"0 "H$(0)V"FI1NH:I" "H$(I):I:_"PMF0e"Z"d*** READ REPORTNAMEFILE & SELECT REPORT ***"nNN0:I021:RN$(I)"":I:NSNR"xF$"RPTFMTNAME""4070"4110"I1NR:RN$(I)R$(I):I !NR3RH2*!I1NR:R$(I)(K(I)):I>!R$(I2)(K(0))N!4280:4440T!{!*** SET-UP TO READ RPTFMTFILE ***!F$RN$(NN)" RPTFMT"!4110!RH(NR2)3:I1NR:K(I)(R$(I)):I! K(0)(R$(I2))!NRNS!3880::3160 "(***r3980*uI1RH0*wK(3I1).5ĺ" ";:4235X*|I1ĭK(3I1)K(3I4)RLRL1:i*36,K(3I1)|*H$(K(3I2));*I*K(0)1Ĺ36,K(3I1):" TOTAL";*:3980*L4RL:**** SET-UP TO SAVE RPTFMTFILE ****NSNR"+:"ENTEL15),Q$"@"ĺRN$(NN)" REPORT(ALL RECORDS)";:4180[)6RN$(NN)" REPORT FOR "H$(S)":"Q$;l)@X$"@"4180)J" AND "H$(X)":"X$)TPAGEPAGE1:SPACEWIDE(RN$(NN))(H$(S))18:SPACE1ĺ: OVERPRINT TEST)^36,WIDE7:"PAGE ";PAGE)hSPACE0ĺ*6130(ZQ8(QH$)((K(3I)2ZQ0E(K(3I1).5ĺ" ";:4075e(I1ĭK(3I1)K(3I4)ĺy(36,K(3I1)ZQ(QH$;(I(K(0)04120(GT((GT.005)100)100(GT0QHGT:6120:36,K(3I1)8(QH$):QH$;(:3980:)":R3I1)8(QH$):QH$;:GTGTHC:HC0-'ZLL15'd:A'nN3I2o'xV(N$(R%(J),K(N))):AC(I)AC(I)V:HCHCVu''I1WIDE:"-";:I::'3980'I1RH'AC(I)04080'AC(I)((AC(I).005)100)100'QHAC(I):QH$(QH)(K(3I)1 & 5560&I1RH1&M0NCOL:MJNR3910D&K(3I)16070a&#K(3I1).5ĺ" ";:3895&(I1ĭK(3I1)K(3I4)ĺ:LL1&236,K(3I1)MHL&7N$(R%(JM),K(3I2));&<K(3I)0İ3950&AM&FI#'PK(0)1ĭHC0QHHC:6120:36,K(L0İ4130%J %T939907%EX0:FF$PR$:PR0C%E3830%:"DO YOU WANT TO SAVE THE FORMAT":"FOR THIS REPORT TO DISK (Y/N) ";L$%L$"Y"E1:4280%:"MORE REPORTS USING THE "RN$(NN)" FORMAT":"(Y/N) ";L$&L$"Y"İ4460:E1:3190R%(J),0)(J)$jQ$"@"3730A$t(N$(R%(J),S),(Q$))Q$3740R$~X$"@"3730u$(N$(R%(J),X),(X$))X$3740$3860:ML3740$LVLĺ:LL1:3732$L0:3770$ML3770:PF1ĭL18İ2100:4130$JNRL64RL(1T9)ĺFF$;:L0:4130 %Y"ĺ"AND "H$(X)"= ";:"";X$W#WIDEK(IM1)(H$(K(IM))):K(3RH2)0WIDEK(3RH2)8i#WIDE35PF2{#WIDE75PF3#$I1RH#.K(3I)0T91#8#BPF5980,6000,6030:MLİ4130#LEX10#VNCOL0:MLNCOLNL1#[J1NRNCOL1 $`N$(DS BY WHICH HEADER # ";S$:S(S$);" (S$)0Q$"@":3590u" :"'AND' 2ND HEADER (Y/N) ";L$:L$"Y"X$"@":3560" :"ENTER # OF 'AND' HEADER ";X$:X(X$)" :"@ WILL SELECT ALL RECORDS."" :"SELECT RECORDS FOR "H$(S)"= ";:"";Q$:# L$"MAT":G! "HOW MANY LABELS ACROSS THE PAGE? ";L$:NL(L$):NL03490! :NL1ĺ"HOW MANY HORIZONTAL SPACES BETWEEN":" LABELS? ";L$:HL(L$):HL03500! :"HOW MANY VERTICAL SPACES BETWEEN":" LABELS? ";L$:VL(L$):VL03510!" "SELECT RECOR& CENTS FORMAT (Y/N)? ";L$:L$"N"K(I2)22 H I< R 34,0N \ K(0)13470T f t p "ENTER TAB FOR TOTAL: ";A$ z (A$)0K(0)0:T91:3470 K(I1)(A$):K(I1)0K(I1)131ĺ"":(37)1:3440 ML3520! "THIS IS A MAIL LABEL FOR:NH6:"FOR NO TAB, ENTER '.5' ":m 24:"ENTER TAB FOR "H$(K(I))" ";:"";K$:K(I1)(K$) K(I1)0K(I1)2553340* K(I1)KMKMK(I1):IMI4 ML3400+ 9 "TOTAL ON "H$(K(I))" (Y/N) ";:L$:L$"Y"K(0)1:K(I2)1:"DOLLARS RH(RH$):RH1RHNH132307 E0RN$(NN)"PRESENT"E KM0:IM0U I1RH33[  "ENTER # OF HEADER YOU WANT IN":"POSITION #"(I2)3" ";:"";K$:K(I)(K$) K(I)0K(I)NH33103 I4ĢNH4::"FOR NEW LINE, ENTER TAB <= PREVIOUS TAB" b :E0#l I03NH2:K(I)0:IDv I0NH:AC(I)0:I:HC0:GT0O PAGE0[ E3470e 4520 NH19ĺ"========":34,NH6 ML0:"WILL THIS BE A MAIL LABEL FORMAT(Y/N)?";K$:K$"Y"ML1:3260 K$"N"3240 :"HOW MANY HEADERS ";RH$:D$"DELETE"DB$" HEADERFILE"7 D$"OPEN"DB$" SEQ.FILE"U D$"DELETE"DB$" SEQ.FILE"` DB$""x F$"BASENAME":4740 NR1ĺD$"DELETE BASENAMEFILE":1000 ISNR1& R$(I)R$(I1)0 I: NRNR1:4960D 2640N ***REPORT***X T90$;"DELETE"DB$" "F$"FILE"$ I1NRM D$;"DELETE"DB$" "R$(I)" RPTFMTFILE"T I| EX10:D$"OPEN"DB$" RPTFMTNAMEFILE" D$;"DELETE"DB$" RPTFMTNAMEFILE" D$"OPEN"DB$" INDEXFILE" D$"DELETE"DB$" INDEXFILE" D$"OPEN"DB$" HEADERFILE" :QH(QH$)1QH$QH$"."3:(QH$)QH26190P:((QH$,QH3,1))56180:QH$(QH$,1,QH1)((((QH$,QH2,1))1),1):$QH$(QH$,1,QH2):.((QH$,QH))76210:8QH$" "QH$:QHQH1:6190:B(QH$)96230:LQH$QH$"0":6210:VSL:9p59809z(9);"80N"$9.95980?9(9);"132N"E9`9QH$N$(R%(J),K(3I2))j961309N$(R%(J),K(3I2))QH$936,K(3I1)8(N$(R%(J),K(3I2))):N$(R%(J),K(3I2));939009QH$(QH):QH1(QH$):(QH$,QH,1)"."Ă"8"2 80 COLUMNS"*8"3 132 COLUMNS"H8:"WHICH ";PF$:PF(PF$)\8PF1PF35880f8 5560u8PF0:5560{8 8**** APPLESOFT ONERR CORRECTION84I10131022:PP:I,PP:I8>8H8R104,168,104,166,223,154,72,152,72,969\D$"PR#"FF PRINTER"&7"9 LIST ALL RECORDS"57"10 QUIT";7T7"WHICH ";S$:S(S$)g7S1S1055607S1030,1800,1640,2420,3150,1420,5830,5910,5190,592077"PRINTER SLOT NUMBER ";SL:SL1SL758357"PRINTER OPTIONS:"8"1 40 COLUMNS06:"1 SELECT DATA BASE"B6D"2 SEARCH AND/OR CHANGE DATA"Z6N"3 ENTER RECORDS"s6X"4 DELETE RECORDS"6b"5 GENERATE/DELETE REPORTS"6l"6 SORT (TAKES APPROX. "((.0005NR2.03NR)20);" MIN.)"6v"7 TURN ON PRINTER" 7"8 TURN O*"(5:" APPLE COMPUTER INC".5N5"CURRENT DATA BASE: "DB$:Y5S(0)5"CURRENTLY CONTAINS: "NR" RECORDS"::"ROOM FOR "BNR" ("(SNR)(MEMS)" MORE."55PF1ĺ"THE PRINTER IS ";::"ON"::56805&"THE PRINTER IS OFF"60,60304J53304T64^ *** INPUT ROUTINES ***@4hI$""Z4rCOMMA$"NO"Ą"";I$:d4|A$:s4A$(3)ij|4A$;4A$(13)ı4I$I$A$455004*** MAIN MENU ***4EX104PR$::EX05"******* DATA BASE MANAGEMENT I ****** 3LL13I3:LL1.3LNH20537053JC3D$"PR#0"d3"HIT RETURN FOR MENU...";L$n35560|3D$"PR#0"3"PRESS RETURN TO CONTINUE, ESC FOR MENU";3L$:3(L$)2755603"(L$)1354303,539036:L04@PF5980,6002(I1NR:R$(I)RN$(I):I%22496012<NRNS:D2F *** LIST ***L2PL0R2Zv2d"STARTING WITH RECORD #? ";DR$2nDR(DR$):DR0DRNR55602xJDRNR2PF5980,6000,60302" "H$(0)": ";J:LL12I1NH2I" "H$(I)": "N$(R%(J),I)$" "F$"FILE")1~D$"WRITE"DB$" "F$"FILE";1FFĺ0:5020C1NRO1J1NR\1FF5080h1I1NHy1N$(R%(J),I)1I150901R$(J)1J1D$"CLOSE"1FFİ624011 *** SAVE REPORTNAMEFILE ***1NRNN1F$"RPTFMTNAME"D$"OPEN"DB$" INDEXFILE"70D$"READ"DB$" INDEXFILE">0JJ0J1NRW0FF4910c0I1NHm05470|0N$(J,I)I$0I0$49200.R$(J)08J0BD$"CLOSE"0LFF00V0`*** SAVE FILES ***0jFF0:F$"INDEX"FF1 1tD$"OPEN"DB/fNN1A/p"DO YOU WANT TO CREATE ONE (Y/N) ?";L$:L$"Y"5560W/z4460:NRNS:3230o/*** READ FILES ***/F$"INDEX"FF1/D$"OPEN"DB$" "F$"FILE"/D$"READ"DB$" "F$"FILE"/NR:FFNR0İ6470:4810/FF4840/D$"CLOSE":63300EW REPORT FORMAT":8. I1;" DELETE A REPORT FORMAT":a."WHICH ";S$:S(S$):S0SI14630v. S0NRNS:5560.*SI1İ6710:4520.4NNS.>SIRN$(S)R$(S):E1:NRNS:4390.H4730.REX10.\EX0::"NO REPORT FORMATS ON DISK...":*** READ REPORTNAMEFILE & SELECT REPORT ***R-NN0:I021:RN$(I)"":I:NSNRf-F$"RPTFMTNAME"o-EX5~-4740:EX0-I1NR:RN$(I)R$(I):I-:"SELECT FROM:":-"0 RETURN TO MAIN MENU":-I1NR:I" "R$(I):I:.I" CREATE A N,:47403,DRH(NR3)3:I1NR1:K(I)(R$(I)):Ik,NK(0)(R$(I2)):IM(R$(NR)):ML0:IM0IMIM:ML1},XIMIM1:NRNS,b4460::3480,l*** SUB MENU ***,v:"SELECT FROM:":,MF0ĺ"0 "H$(0),I1NH:I" "H$(I):I:,MF0,.-R THE REPORT FORMAT NAME ";RN$(NN);+F$RN$(NN)" RPTFMT"I+NR3RH2f+I1NR:R$(I)(K(I)):Iz+R$(I2)(K(0))+R$(I)(IM1):MLR$(I)(IM1)+NRI+4960:5130++&*** SET-UP TO READ RPTFMTFILE ***+0F$RN$(NN)" RPTFMT"z#1,lDmDkDX°     Š ǯ̠ŠɠŠԠ&ΠΠŠԠԮ;ӠӠˠ# ˠˠӠԭ̠ӠԠFӠˠLˠˠҠ Ԡǯ̠Ǡ ΠҠ)926":" > > > ' DISK CATALOG ' < < < ":B$34,2:V&(4);"CATALOG"`(:90j*1000960:::PP12506:PF12531:PS12530:PH12529:PI12528:PL12527:PR12526:PG12525:PN12524:958K::"> SILENTYPE PRINTER VALUE100Y07AR$(X,Y)b:(4):17::" RECORD ";::": ";X;" ":(4);"WRITE ";FILE$:{(4);"CLOSE ";FILE$(4);"LOCK ";FILE$:(4);"CATALOG"::" YOUR FILE IS NOW ON DISK AS A TEXT FILE"::"FILE NAME: ";FILE$::90:1000 LE$)0İ9012:702*FILE$""İ9012:702r::9:15::" ' SAVING ' ":::L$::::" FILE ";::": ";FILE$(4);"OPEN ";FILE$;",L256"(4);"DELETE ";FILE$(4);"CLOSE"(4);"OPEN ";FILE$;",L256"(4);"WRITE ";FILE$X0jAR$(X,Y)Dl:17::" RECORD ";::": ";X:(4);"READ ";FILE$:]n(4);"CLOSE ";FILE$p:9:(7);(7);"THE FOLLOWING FILE IS NOW IN MEMORY: "::" ' ";FILE$;" ' ":::90:100092:9:(7)"ENTER A DOS FILE NAME: "::FILE$(FIE FROM DISK <<<<"::::34,2::(4);"CATALOG"L\::"NAME ^";::FILE$^::9:14::" ' READING ' ":::L$::::" FILE ";::": ";FILE$`(4);"CLOSE";FILE$b(4);"OPEN ";FILE$;",L256"d(4);"READ ";FILE$fX0100hY07  ";AR$(X,ST);", ";AR$(X,ZI)8K130:(127);::N(4);"PR#0":482::" > > > > ";::"- PRINT UP LABELS -";::" < < < < ":::92:9::" > THIS ROUTINE IS UNDER CONSTRUCTION < "::90:1000X920Z:">>>> RETRIEVE DATA FIL(X,LN)""ī482qPİ495:9:(7);AR$(X,NA);" ";AR$(X,LN)::"DO YOU WANT A LABEL (Y/N) ? ";:R$::R$"Y"ī486|P482:(4);"PR#1":(6):K130:(127);:::" TO: ";AR$(X,NA);" ";AR$(X,LN)" ";AR$(X,AD)" ";AR$(X,CI)"XT FILE A"TEXTFILE NAME ";N$3AD$(4):33,33FAD$"OPEN ";N$YAD$"DELETE";N$lAD$"OPEN ";N$AD$"WRITE ";N$AAD$"CLOSE ";N$A:N$;" STORED."A 22)660100-@EX2780,1540,5580,3010,4690?@I(222):PR$T@D$"CLOSE":D$:b@"ERR: ";@I0I15J53856I(I255)1:60200@J43377(43583I)@(K(J):(K);:K192JJ1:60200@2" AT LINE ";(218)256(219)@<A MAKE TERPTFMTNAMEFILE"9?JD$"DELETE"DB$" "RN$(RF)" RPTFMTFILE"E?TFRNR1O?^NNFR_?hRFNR6800n?rJRFNR1?|RN$(J)RN$(J1)?J?NN0İ5130?NRNS??`ERROR HANDLER?j1013?tEX10(222)2556650: CONTROL-C @~(222)5(2OSE">J1NR:R%(J)J:J,>FF0:6240:`>PR$:"PRESS RETURN TO CONTINUE, ESC FOR MENU";l>L$:L$>(L$)275560>(L$)136660>"PF5980,6000,6030>,>6"ENTER REPORT FORMAT YOU WANT DELETED ";RF$:RF(RF$)?@D$"DELETE"DB$" =PD$;"CLOSE",=ZD$;"OPEN"DB$" INDEXFILE"I=dD$"READ"DB$" INDEXFILE"Q=nJ1p=xL$:L$(13)JJ1:6520=:D$;"CLOSE"=D$;"OPEN"DB$" INDEXFILE"=D$;"WRITE"DB$" INDEXFILE"=J6590,6580=I1J2:" ";:I=0;=>D$;"CLNR:J1NR<R%(J):J*<D$"CLOSE"0<P< *** APPEND INDEX FILE ***o< D$"APPEND"DB$" INDEXFILE"<D$"WRITE"DB$" INDEXFILE"<JLLNR:I1NH<(N$(J,I):I:J<2D$"CLOSE"<<FF1:6240:> ";M$;" <<":L1:810:u*I139:"-";:I:: LIST ALL ENTRIESM$"ALL"800120:A$"END"İ200:900140970:(1023)1Ģ10:" DATA BEING SAVED...$X$""B$X$$8P:16:X$6X$""C$X$H10P:16:X$ZX$""D$X$l 12P:16:X$~ X$""E$X$14P:16:X$X$""A$X$18:" ";M;" DATA ";A$;",";N$;",";B$;",";C$;",";D$;",";E$1023,1%22:"COPY OVERR THE FOLLOWING."/4:"NAME : ";N$M6:"ADDRESS : ";B$k8:"CITY / STATE : ";C$10:"PHONE # : ";D$12:"CALL : : ";E$14:"LOOK UP CODE : ";A$:7204P:16:X$X$""N$X$6P:16:X120(M((123))((124)256)744M((123))((124)256)ĺ:"  **** ";M$;" ENTRY NOT FOUND ****"::200:700:1:"ENTER CHANGES UNDER THE OLD DATA. OR RETURN IF DATA IS NOT TO BE CHANGED.":752:1:"ENTER DATA OR RETURN FO(124))256)!N2MMN2:715.NM:7109MM10aN$"":B$"":C$"":D$"":E$"":A$""j750s79022:"'A'=APPLE CORPS, 'S'=STORE, 'M'=MARCS"::810::"ENTER THE ENTRY NUMBER TO BE CHANGED."::810::MM$(M):L0140662H:810::"CHANGES OR ADDS MADE BY DATA STATEMENTS"S:300:"1 TO ADD AN ENTRY."::"2 TO CHANGE AN ENTRY.":810:I$:I$"2"P1:740P0I$"1"700N1000120:A$"END"714 M((123))((T LETTERS)"Z:810$\:16:M$-b800Jl120:A$"END"İ200:600cvM$(E$,(M$))İ140l620} LIST MARCSM$"MICRO USERS"800120:A$"END"İ200:650FD1(A$)(A$,FD,1)"M"668FD(E$,1)"+"662:A$"END"İ200:450$FD1(A$)<(A$,FD,1)"A"460IFD:454W140:454:810::" ENTER LAST NAME."::810::M$800120:A$"END"İ200:500M$(N$,(M$))İ140520 X:810::" ENTER CALL (ALL OR LASFD1(A$)# d(A$,FD,1)"S"3600 fFD:354> h140:354} :810::" ENTER FIRST OR FULL NAME."::810::M$ 800 120:A$"END"İ200:400 M$(N$,(M$))İ140 420  APPLE CORPS LIST M$"APPLE CORPS":800120 RESTORE :A$"1000"P "+++++ END OF SEARCH. ";E1;" ENTRIES. +++++":E0X 23 "PRESS M FOR MENU, SPACE FOR NEXT SEARCH";:M$:M$"M"ġ:10 ,I139:".";:I:: ^ STORE LIST `M$"STORE":800 b120:A$"END"İ200:350 cX(B$):39X);B$" C$"*"1809 X(C$):39X);C$} 5);"# ";((123))(((124))256);:E$"*"ĺ39(E$));E$:191 300 LL6:L16ı 300 23:"PRESS M FOR MENU, SPACE FOR NEXT PAGE.";:R$:R$"M"Į:10 800 TO END PROGRAM.") Z:M$:M$"1"4009 [M$"2"500I \M$"3"600Y ]M$"4"700i ^M$"5"900y _M$"6"350 `M$"7"450 aM$"8"650 cM$"9"998 d90 xA$,N$,B$,C$,D$,E$ yEE1 z PRINT LINE :N$;", ";D$ Y FIRST OR FULL NAME."::"2 LOOK UP BY LAST NAME.":Y T"3 LOOK UP BY HAM CALL.": U"4 TO ADD OR CHANGE AN ENTRY." V:"5 TO LIST ENTRIES." W:"6 TO LIST STORES." X:"7 TO LIST APPLE CORPS." Y:"8 TO LIST 'MARCS'."::"9_D *************************?* PHONE DIRECTORY III *^* *}* BY: JOHNNY GRAHAM ************************** :E0:81011);"PHONE DIRECTORY"R11);">> SELECT ONE <<":8107 S:"1 LOOK UP B                        ATA. PRESS ANY KEY FOR MENU. ";:NN$-*900C >> MENU << p::" A D D R E S S L I S T":5"1. PRINT ALL.":"2. CHANGE DATA.":"3. ADD DATA.":"4. FIND DATA.":"5. DELETE DATA.":"6. END."(N$,3)"END"8002(CS$,((NN$)))NN$744;300D744_ >> FINE BY PHONE <<}:10:"TELEPHONE ? ";NN$L2:200(N$,5)"_____"764(N$,3)"END"800(T$,((NN$)))NN$764300744$ :"END OF D:10:"ADDRESS ? ";NN$ L2:)200B(N$,5)"_____"724Y(N$,3)"END"800v(A$,((NN$)))NN$724300724 >> FIND BY CITY/STATE <<:10:"CITY OR CITY & STATE ? ";NN$L2:200(N$,5)"_____"744"? ";:C$:C$/(C$)700,720,740,7608610R >> FIND BY NAME <<k:10:"NAME ? ";NN$uL2:~200(N$,5)"_____"704(N$,3)"END"800(N$,((NN$)))NN$704300704 >> FIND BY ADDRESS <<A:3000NNCS:30004C$(UL$,20):NNT:3000?S$"Y"H900_X >> FIND DATA <<b:8:"1. FIND BY NAME (FIRST OR FIRST & LAST)"l"2. FIND BY ADDRESS":v"3. FIND BY CITY OR CITY & STATE":"4. FIND BY TELEPHONE NUMBER": S$"Y"0 >> DELETE DATA <<i::::"ENTER DATA NUMBER TO BE DELETED: ";RN$::200:RN(RN$)514RN(RN$)800L0:300:"IS THIS DATA TO BE DELETED Y/N? ";RN$:RN$"Y"900 C$(UL$,25):NNN:3000 NN802(C$)(A$)āI1((A$)(C$)):C$C$" ":ANNA:3000`12:12:"";C$:C$""490(C$)(CS$)āI1((CS$)(C$)):C$C$" ":NNCS:300015:12:"";C$:C$""500(C$)(T$)āI1((T$)(C$)):C$C$" ":NNT:300011:"CITY/STATE:";12);CS$C12:12);:I1(CS$):(95);::a14:"TELEPHONE:";12);T$15:12);:I1(T$):(95);::6:12:"";C$:C$""470(C$)(N$)āI1((N$)(C$)):C$C$" ":NNN:30009:12:"";C$:C$""4PRINT DATA FOR CHANGE <<:"ENTER CHANGE UNDER DATA TO BE CHANGED.":"PRESS RETURN IF THAT DATA IS NOT TO ":"BE CHANGED."5:"NAME:";12);N$6:12);:I1(N$):(95);::8:"ADDRESS:";12);A$9:12);:I1(A$):(95);:: ", 37,CV:C , >> PRINT DATA <<I .g 6N$;" ";::" # ";RN:o 8A$x :CS$ <T$ @LL6 BL20ī360 J:"PRESS SPACE FOR NEXT LINE, ESC FOR MENU";:I$:I$:L0 TI$(27)ī900 ^ h >> 6))256)(CS$))8 T$:T(((125)((126))256)(T$))Q RN(123)(124)256r N$=NAME, N=ADDRESS OF NAME A$=ADDRESS, A=ADDRESS OF ADDRESS CS$=CITY/STATA, CS=ADDRESS OF CITY/STATE T$=TELEPHONE, T=ADDRESS OF TELEPHONE 1:" M WILL HOLD 130 ENTRIES."::@ x:"HIT SPACE TO START. ";:I$I 900O e >> READ DATA << CV(37):1:" :: READING DATA ::" N$:N(((125)((126))256)(N$)) A$:A(((125)((126))256)(N$)) CS$:CS(((125)((12 d:34,1p n8:" A D D R E S S B O O K"::" BY":" JOHNNY GRHAM" p:"IF THE NAME OF THIS PROGRAM IS CHANGED THE STRING 'PG$' (STATEMENT 92) WILL NEED TO BE CHANGED TO THE NEW NAME." r:" PROGRA**" T **** IS CHANGED ****B U *************************| ZD$(4):UL$"_______________________________________" \PG$"ADDRESS LIST": CHANGE THIS STRING IF YOU CHANGE PROGRAM NAME ^(994)(1001)192DOS1: DOES THIS SYSTEM HAVE DISK?mJ PROGRAM TO CHANGE DATA3 STATEMENTS BY:N JOHNNY GRAHAMm( THE DATA CHANGES CAN NOT2 BE LONGER THAN THE ORIGIONAL< DATA.FP **** CHANGE LINE 980 ****R **** IF PROGRAM **** S **** N A M E **                            LACK BACKGROUND"::"2 - WHITE BACKGROUND"::963B$R1R2953Q$R1ĹPN,0b$R2ĹPN,255h$y$(PP)183ı$1::0:$SL17:PA16384256SL$(PA23)201(PA55)207(PA76)234ı%::9:"PRINTER IS NOT ON LINE ! PROG AR4R82944\#(PL)R4ĺ(7)"OVERLAP ERROR - NOTE LEFT MARGIN IS ";(PL);:R$:944h#PR,R:#:9:"WHICH HI-RES PAGE DO YOU WANT (1 - 2)":963#R1R2948#R1ĹPG,32#R2ĹPG,64#1$:9:"ENTER PRINTING MODE"::"1 - BSITY LEVEL DESIRED (0 - 7)":9631"R0R7937="PI,R:g":9:"SET LEFT MARGIN (0 - 78)":966y"R0R78940"R(PR)4ĺ(7)"OVERLAP ERROR - NOTE RIGHT MARGIN IS ";(PR);:R$:940"PL,R:":9:"SET RIGHT MARGIN (4 - 82)":966#!R1R255925!PF,R:L!:9:"ENTER SPACING DESIRED (S/D/T)":963^!R$"S"ĹPS,2p!R$"D"ĹPS,8!R$"T"ĹPS,14!!:9:"ENTER DIRECTION OF PRINTHEAD (U/B)":963!R$"U"ĹPH,255!R$"B"ĹPH,0! ":9:"ENTER INTENACK ON WHITE" 9 "* - ANY OTHER KEY FOR THE MENU"f :"R - RESET PRINTER TO DEFAULT VALUES" 963:R$"R"ĹPP,0:958:901 (R$)01000 R925,928,933,937,940,944,948,953:901 :9:"ENTER FORM FEED DESIRED (1-255): ";R$:R(R$)"."4 - PRINT INTENSITY....";(PI):U"5 - LEFT MARGIN SET....";(PL):|"6 - RIGHT MARGIN SET...";(PR):"7 - HI-RES PAGE IS.....";(PG)32"8 - HI-RES MODE IS.....";(PN)127ĺ"WHITE ON BLACK" (PN)127ĺ"BLS <"::"1 - FORM FEED SET......";(PF)::"2 - LINE SPACING SET...";b(PS)5ĺ"SINGLE"(PS)5(PS)11ĺ"DOUBLE"(PS)11ĺ"TRIPLE":"3 - PRINT DIRECTION....";(PH)127ĺ"BI-DIRECTIONAL"(PH)127ĺ"UNI-DIRECTIONAL;"$";((DOBCOB1.005)100)100P"***************************************"cPRT$"Y"ĺ" "}PRT$"Y"ĺDD$;"PR#0"PRT$"Y"ĺ"NOW DO YOU WANT PRINTED RESULTS (Y/N)?":Z$:PRT$"Y"Z$"Y"PRT$"Y"::380MT";30);"$";COvC"=======================================""BALANCE EXPECTED IN CHECKBOOK";30);"$";((DOBCO.005)100)100"BALANCE IN CHECKBOOK";30);"$";B1"***************************************"!" DIFFERENCE ";30)"TOTAL";30);"$";DOB[ !PRT$"Y"ĺ:"PRESS ANY KEY FOR OUTSANDING CHECKS";:Z$:::a &{ 0"CHECKS OUTSTANDING" :18);"CHK";30);"AMOUNT" DI1M2 N18);C1$(I);30);"$";C(I) XI b25);"------------"l" SUBTOTAL CHECKS OUA$   18);DA$# L "BALANCE FROM STATEMENT";30);"$";BR s "RECENT DEPOSITS NOT SHOWN" I1M1 30);"$";D(I) I 25);"-------------" " SUBTOTAL DEPOSITS";30);"$";DO  25);"=============" GET OTHER ADDS AND SUBTRACTS "[ @"SUCH AS AUTOMATIC WITHDRAWALS, CHECK CHARGES, ETC."f JM2I1l T ^"ENTER BALANCE SHOWN IN CHECKBOOK $";B1 r *** PRINT OF RESULTS *** | PRT$"Y"ĺDD$;"PR#1":395 "PRESS ANY KEY FOR BALANCE";:WHEN DONE." M1I1" I1M21 C1$(I)" "< C(I)0d "CK NBR. ";C1$(I):(C1$(I))0300 "CK AMOUNT $";C$(I):(C$(I))0300 C(I)(C$(I)) COCOC(I) "I ,"SUBTRACT SERVICE AND OTHER CHARGES FROM YOUR CHECKBOOK.":"DON'T FORER BALANCE FROM BANK STAT. $";Bc :"ENTER DEPOSITS NOT CREDITED ON STATEMENT(RETURN WHEN DONE)"o I1M1z D(I)0 "AMOUNT $ ";D$ (D$)0200 D(I)(D$) DODOD(I) I "ENTER CHECKS OUTSTANDING - CK NBR & AMT PRESS RETURN $ CHECKBOOK BALANCING PROGRAM G *** DATA INITIALIZATION *** Q(M120\2M2100<D(20),C1$(100),C(100),C$(100)F::5PDD$""Z:"ENTER DATE OF THE STATEMENT ";DA$d:"WILL YOU WANT RESULTS PRINTED (Y/N)? ";PRT$ n:"ENT     1))e'"EQUIPMENT";:T21:1000:(FILLER$,NEEDED);:NUME(2,41):((100NUM.5));:(FILLER$,4);'"CAPITAL STOCK";:T16:1000:(FILLER$,NEEDED);:NUME(1,48):((100NUM.5)(1))'"DEPOSITS";:T21:1000:(FILLER$,NEEDED);:NUME(2,46):XES";:T16:1000:(FILLER$,NEEDED);:NUME(2,47):((100NUM.5)(1))'"INVENTORY";:T21:1000:(FILLER$,NEEDED);:NUME(1,46):((100NUM.5));:(FILLER$,4);'"ACCRUED WAGES";:T16:1000:(FILLER$,NEEDED);:NUME(2,42):((100NUM.5)(ME(2,39):((100NUM.5));:(FILLER$,4);'"ACCOUNTS PAYABLE";:T16:1000:(FILLER$,NEEDED);:NUME(2,38):((100NUM.5)(1))'"ACCTS REC-OTHER";:T21:1000:(FILLER$,NEEDED);:NUME(2,40):((100NUM.5));:(FILLER$,4);I'"ACCRUED TA:S'"CASH";:T20:1000:(FILLER$,NEEDED);:NUME(2,45):"$";((100NUM.5));'(FILLER$,4);:T15:"NOTES PAYABLE";:1000:(FILLER$,NEEDED);:NUME(2,36):"$";((NUM100.5)(1))+'"ACCOUNTS RECEIVABLE";:T21:1000:(FILLER$,NEEDED);:NU.'8'"PRINT MONTH":#B'MO$9L':"PRINT YEAR":DV'YEAR$w`'"ADJUST ROLLER. DEPRESS RETURN WHEN READY ":j'B$t'(FILLER$,23);:CLIENT$~':(FILLER$,17);:"BALANCE SHEET AND INCOME STATEMENT"':(FILLER$,24);:MO$;", ";YEAR$:PEN";F$D$;"READ";F$$I121&:J049?0::E(I,J)G::JNDIaND$;"CLOSE";F$g SUBROUTINE TO DETERMINE NEEDED FILLERCH(36):NEEDEDTCHNEEDED0ĪNEEDED1' * * * MAINLINE * * *$'100: INITIALIZEOCK  E(2,48)=RET. EARNINGS3 E(I,0)=SALESI ZERO FILL A/C'STI12a:J049q::E(I,J)0y:JI10,76:11,0:12,3: FOR PRINT USING ROUTINEED$" , 0.00": DITTO ROUTINE TO RECALL DATA FROM DISKD$;"OE BAL SHEET A/C PER DOME5h E(I,43)=TOTAL EXPENSESMr E(I,44)=NOT USEDb| E(2,45)=CASH E(1,45)=OTHER ASSETS E(1,46)=INVENTORY E(2,46)=DEPOSITS E(1,47)=NOT USED E(2,47)=ACCRUED TAXES E(1,48)=CAPITAL ST@A$(35)"UNITED PARCEL":AA$(1)"NOTES PAYABLE":AA$(2)"FEDERAL INC TAX"JAA$(3)"ACCTS PAYABLE":AA$(4)"ACCTS RECEIVABLE":AA$(5)"ACCT REC-OTHER"TAA$(6)"FIXED ASSETS":AA$(7)"ACCRUED WAGES"Y^E(2,49): EXP 1-35 PER DOME, AND 36-42 AR$(23)"SELL EXP-R.L.":A$(24)"SELL EXP-CHRIS":A$(25)"TAX-SOC SEC" "A$(26)"TAX-FED INC.":A$(27)"TAX-OTHER":A$(28)"TELEPHONE" ,A$(29)"TRASH":A$(30)"TRAVELING EXP":A$(31)"WAGES & COMM" 6A$(32)"WATER":A$(33)"FREIGHT-IN":A$(34)"FREIGHT-OUT"ITH INSUR."A A$(11)"HEAT":A$(12)"INSURANCE":A$(13)"INTEREST" A$(14)"LAUNDRY":A$(15)"LEGAL EXPENSE":A$(16)"MASTER CHARGE" A$(17)"MISC. EXP.":A$(18)"OFFICE EXP":A$(19)"POSTAGE" A$(20)"RENT":A$(21)"REPAIRS":A$(22)"SELL EXP-G.L"B A(4): CONTROL-D" A$(35),AA$(7)> A$(1)"MDSE.-MATERIALS"~ A$(2)"ACCOUNTING":A$(3)"ADVERTISING":A$(4)"AUTO EXPENSE" A$(5)"SALES DISCOUNTS":A$(6)"CONTRIBUTIONS":A$(7)"DEPRECIATION" A$(8)"ELECTRICITY":A$(9)"ENTERTAINMENT":A$(10)"HEAL1" lF$"G/L DATA"L mFILLER$" " n936:(FILLER$,10);:CLIENT$::(FILLER$,10);:"FINANCIAL STATEMENTS" s:(FILLER$,11);:"HARD COPY PRINTOUT" x25000: PRINT USING MACHINE LANGUAGE SET-UP D$ANSACTIONS USING MODEM K:4 P10000: MAINLINE: Zt d INITIALIZE SUBROUTINE g ************************* CHANGE STMT 103 & 104 AS APPLICABLE**************** hCLIENT$"SMALL BUSINESS, INC." jFYE$"6/31/8 PROGRAM DEVELOPED FOR; SMALL BUSINESS CLIENTSZ BY FRED V. AMUNDSEN, CPAr 1108 S. WESTHAVEN WHEATON, IL 60187! TEL (312) 668-4833"# NOV. 15, 1980(2 PURPOSE TO PRINT OUT< GENERAL LEDGER F TR              )(219)256:(.#:97:%(0#216,03(2#R$:1000(4#:4:X17:(7):::"' INVALID FILE NAME - TRY IT AGAIN ! '";::R$::(6#X101ė:9:"'";SK$;"' ";::"- NOT ON FILE -";(7);(7);(7)::22:97:)8#K(16384):K127Ĺ16368,0:R$:R$(27)SK":4'" 9 - SET UP SILENTYPE PRINTER VALUES":i'91:R100,200,300,400,500,600,700,800,900:1000'(#::(4);"PR#0":::K15:(7)::10:" >>> DATA ERROR <<< ":::'*#"ERROR CODE: ";(222);" DETECTED !"::(,#"ERROR IS IN LINE: ";(2181 - LIST RECORDS ON FILE":A&" 2 - LIST A SPECIFIC RECORD":`&" 3 - UPDATE THE FILE":&" 4 - PRINT MAILING LABELS":&" 5 - RESERVED":&" 6 - LOAD A FILE FROM DISK":&" 7 - STORE A FILE ON DISK":'" 8 - CATALOG THE DIBORTED !":""::E%23:(7)"^ ENTER SELECTION":23:R$:R(R$):f%(R$)1(R$)9R(R$):o%963%23:(7)(7)"> ENTER INPUT: ";:R$:R(R$):%0:::9000%:" ";::"' NAME AND ADDRESS FILES '";::" ":&" LINE 240- PRINTER ON/.LINE 260- PRINTER OFFC8LINE 290- ENDSF A CELL TO& 'P' PLACESBLINE 100- GET THE FILE\  'F$'- 'LN'q  LINESLINE 140- PRINT SHEET FROM 'ST' TO TO LINE 'LN'LINE 200- SUB TO PRINT MAIN TITLE$?";X2,Y2)0X10X20Y10Y20550M:CXX1X2:CYY1Y2:40:CY:CXD:"PRINT FILE: WHAT VERTICAL COORD. TO END-OF-SHEET?";STN140X::: LINE 20- SUB TO SET  DEFAULTS LINE 40- SUB TO SET  R RIGHT HAND CORNER."~"VISICALC COOORDINATE LETTERS WILL HAVE TO BE CONVERTED TO NUMBERS (I.E. 'A' IS 1, 'BK' IS 63)."::"NUMBER OF PLACES TO FIX NUMBERS TO?";P::20!:"TYPE 0 COORDINATED TO END.":&"UPPER LEFT?";X1,Y1:"LOWER RIGHTINT THE SHEET TO DISK, AND THEN RUN THIS PROGRAM.""'FIXING' A BLOCK OF COORDINATES TO A CERTAIN NUMBER OF PLACES:":" TYPE IN TWO SETS OF COORDINATES, THE FIRST SET BEING THE UPPER LEFT HAND CORNER OF THE BLOCK, THE SECOND BEING THE LOWEFILES (MADE WITH THE 'P' COMMAND) WITH NUMBERSIN NO PARTICULAR FORMAT TO NUMBERS WITH THEIR DECIMAL PLACES LINED UP AND WITH ASPECIFIED NUMBER OF PLACES"4" YOU SHOULD WRITE DOWN THE COORINATES OFTHE BLOCKS YOU WISH TO USE WHILE STILL IN VISICALC, PR 5, 1980  @: J: T:! ^:8 : MAIN PROGRAM...a ::" VISICALC D-FILE PRINTER" ::"NAME OF D-FILE?";F$:"NUMBER OF LINES IN D-FILE?";LN "TITLE TO PRINT AT TOP-OF PAGE":TITLE$ 100 :" THIS PROGRAM CHANGES VISICALC D- FIRST PAGE :" PRINTER ON} (4);"PR#1":(9);"80N": CENTRONICS/PARALLEL INTERFACE IN SLOT #1, SET TO 80 COLUMNS :  PRINTER OFF (4);"PR#0" : ":(4)"CLOSE": , SET UP PRINTER 6 DAVID J. SHERMAN- JULY0:{ (12):40(TITLE$));TITLE$::L2:170: PRINTS ONE LINE HEADER AT TOP OF PAGE : PRINT TITLE (12);:40(T1$)2);T1$:40(T2$)2);T2$:40(T3$)2);T3$::L4:: ALLOWS 3 LINE TITLE AT TOP OF1)W)(B$X$,W)(A$(CY),CXW1):1:1:CY","CX:9 Z:I d GET SHEETU iA$(LN){ n:(4)"OPEN ";F$:(4)"READ ";F$ xX1LN:A$(X)::(4)"CLOSE": : PRINT SHEET ST,LN 230:L1STLN:X$A$(L1) X$:LL1:L56180 L1::26D  400@X1P:Z$Z$"0":S$S$" ":B$B$" "::K10PF:a( FIX CELL TO 3 PLACES2X$(A$(CY),(CX1)W1,W):(X$)0ı<X(X$):X$((X))".":X(X)X$X$S$:80FX((X(X)(.5K))K):X$X$(Z$(X),P)3 PA$(CY)(A$(CY),(CX     ER 'N' TO QUIT";:X(36):39X):34,4::3223A2"ENTER:"Z2"ACCOUNT NO. ";:B$m2B$"N"ī100302AC(B$):AC1(AC35AC100)İ1000:130202AC100AC110AC120AC130AC140AC150AC160ī130402AC200AC210AC220AC230AC2b/Il/12190v/B$$/CNTR05/936:::I@/12190X/:"TOTAL EXPENSE";/NUME(1,43):(18):((100NUM.5));:NUME(2,43):(30):((100NUM.5))/:23:B$:1003002 CHOICE 3. FROM MENU2936::+2:" ENTF$R+:100300. PRINT ACCUMULATED EXPENSES6.B.CNTR0L.936R.^/I135|/E(1,I)0E(2,I)0ī12130/A$(I);:NUME(1,I):(18):;((100NUM.5));&/NUME(2,I):(30):((100E(2,I).5))N/CNTRCNTR1X/CNTR21ī12150'** ROUTINE TO RECALL DATA FROM DISKs*:(10):"ARE YOU SURE YOU WANT TO RECALL DATA?";:B$:B$"Y"10030*:(10):12)"PLEASE STAND BY"+D$;"OPEN";F$ +D$;"READ";F$+I12 +:J049*+::E(I,J)4+:J>+IH+D$;"CLOSE";TA"':5)"6. SAVE DATA"I':5)"7. REVIEW BALANCE SHEET DATA":t'5)"8. DISPLAY ACCOUNTS AND NUMBERS"':5)"9. PRINT STATEMENTS"''B$:B(B$)'B0B9ī10170'B11000,12000,13000,14000,15000,16000,17000,18000,19000:::CLIENT$;:" ";FYE$ B'DL'"SELECT ONE OF THE FOLLOWING:"`V':5)"1. RECALL DATA"`':5)"2. REVIEW ACCUMULATED EXPENSES"j':5)"3. ADD CURRENT MONTH'S DATA"~':5)"4. DISPLAY P&L RESULTS"':5)"5. DELETE CURRENT MONTH DAROUTINE&ED$" , 0.00": DITTO,K ERROR ROUTINE ON A/C NO.t:"THERE IS NO SUCH A/C AS NO. ";ACI15:(7);:PAUSE110:PAUSE:IPAUSE11500:PAUSE' * * * MAINLINE * * *$'100: INITIALIZE.'POSITS  E(1,47)=NOT USED< E(2,47)=ACCRUED TAXESY E(1,48)=CAPITAL STOCKv E(2,48)=RET. EARNINGS E(I,0)=SALES ZERO FILL A/C'SI12:J049::E(I,J)0:JI10,76:11,0:12,3: FOR PRINT USING SSETS":AA$(7)"ACCRUED WAGES"#Yn^E(2,49): EXP 1-35 PER DOME, AND 36-42 ARE BAL SHEET A/C PER DOMEh E(I,43)=TOTAL EXPENSESr E(I,44)=NOT USED| E(2,45)=CASH E(1,45)=OTHER ASSETS E(1,46)=INVENTORY E(2,46)=DEP":A$(31)"WAGES & COMM"T 6A$(32)"WATER":A$(33)"FREIGHT-IN":A$(34)"FREIGHT-OUT" @A$(35)"UNITED PARCEL":AA$(1)"NOTES PAYABLE":AA$(2)"FEDERAL INC TAX" JAA$(3)"ACCTS PAYABLE":AA$(4)"ACCTS RECEIVABLE":AA$(5)"ACCT REC-OTHER"TAA$(6)"FIXED AE EXP":A$(19)"POSTAGE"P A$(20)"RENT":A$(21)"REPAIRS":A$(22)"SELL EXP-G.L" A$(23)"SELL EXP-R.L.":A$(24)"SELL EXP-CHRIS":A$(25)"TAX-SOC SEC" "A$(26)"TAX-FED INC.":A$(27)"TAX-OTHER":A$(28)"TELEPHONE" ,A$(29)"TRASH":A$(30)"TRAVELING EXTIONS":A$(7)"DEPRECIATION"` A$(8)"ELECTRICITY":A$(9)"ENTERTAINMENT":A$(10)"HEALTH INSUR." A$(11)"HEAT":A$(12)"INSURANCE":A$(13)"INTEREST" A$(14)"LAUNDRY":A$(15)"LEGAL EXPENSE":A$(16)"MASTER CHARGE" A$(17)"MISC. EXP.":A$(18)"OFFIC7)"GENERAL LEDGER TRANSACTIONS"R x25000: PRINT USING MACHINE LANGUAGE SET-UPk D$(4): CONTROL-D~ A$(35),AA$(7) A$(1)"MDSE.-MATERIALS" A$(2)"ACCOUNTING":A$(3)"ADVERTISING":A$(4)"AUTO EXPENSE" A$(5)"BAD DEBTS":A$(6)"CONTRIBU TRANSACTIONS K:- P10000: MAINLINE3 Zm d INITIALIZE SUBROUTINE g ***** CHANGE 103 & 104 AS APPROPRIATE hCLIENT$"SMALL BUSINESS, INC." jFYE$"6/31/81" lF$"G/L DATA"! n936:10:10)CLIENT$::' PROGRAM DEVELOPED FOR; SMALL BUSINESS CLIENTSZ BY FRED V. AMUNDSEN, CPAr 1108 S. WESTHAVEN WHEATON, IL 60187! TEL (312) 668-4833"# NOV. 15, 1980(2 PURPOSE TO RECORD AND< DISPLAY GENERAL LEDGER F                   Ĺҍù̍¹ҍҢź˹ҍʹҍɹҍȹҍǹҍҍҸͨ¸θθεθ͸͵͸̸̵̸˸˵˸ʸʵʸɸɵɸȸȵȸǸǵǸƸƵƸŸŵōȹǹƹŹĹù¹˹ҢԍʹҢōɹ̢̍ȹҢɍǹҍ¹ҢԭÍҢҺҹұѹҢӠҹҢҍƹҢҠԍŹҢύĹҢōùҢӍ¹Ң̍ҢˠҹѹйϹι͹̹˹ʹɹĹù¹ҹҢҠ̍ѹҢҠ̍йҢϠ̍ϹҢˠ̍ιҢҍ͹Ңԍ̹Ң̯Ӎ˹ҢٍʹҢƯЍɹҢǍȹҢ̍Ǎ¹ҢҹѹйϹι͹̹˹ʹɹȹǹƹŹιι͹̹˹ʹɹȹǹƹŹĹù¹ҢҹѹҸѹййϹϹͨ¹ιι͹̹˹ʹɹȹǹƹŹĹùҹѹҸѹͨϹϹйͨϹϹϹͨ¹ιι͹̹˹ʹɹȹǹƹŹĹù¹ҢҹѹҸѹͨϹϹйͨϹϹϹͨ¹Ʊűıñ±ҍұѱҸѱͨϹϱбͨϹϱϱͨ±ααͱ̱˱ʱɱȱDZƱűıñ±ҢͨŹűıͨĹıñͨùñ±ͨ¹±ҢϠ̍ұѱҸѱͨϹϱбͨϹϱϱͨ±ααͱ̱˱ʱɱȱDZͨϹϱϱͨ±ααͨιαͱͨ͹ͱ̱̹̱ͨ˱ͨ˹˱ʱͨʹʱɱͨɹɱȱͨȹȱDZͨǹDZƱͨƹƱűġ:1000):#L  F$" ":G$"APPLE COMPUTER INC":H$"":J$"AMORTIZATION SCHEDULE":K$"S":L$(0)"YEARS":L$(1)"QUARTERS":L$(2)"MONTHS":L$(3)"WEEKS":L$(4)"DAYS"@'20000:" THIS PROGRAM CALCULATES ";A$;", ";C$(0);",":C$(2);", INTEREST RATE (APR), ";I$::C$(0);K$;", B'B$(2),C$(2),D$(4),V(2),N(2),C(2),D(2),L$(4),P(2),M(2):B$(0)"LOAN":B$(1)"LEASE":B$(2)"SAVINGS"'C$(0)"PAYMENT":C$(1)C$(0):C$(2)"DEPOSIT":D$(0)"YEARLY":D$(1)"QUARTERLY":D$(2)"MONTHLY":D$(3)"WEEKLY":D$(4)"DAILY"'I$"NUMBER OF":A$"AMOUNT":W)GG:5:V(2)N89Z02:N(Z)V(Z):V(Z)100N(Z)GG:?;7M=R21700i@:"COMPOUNDED ";D$(G);TB2ĺ" OVER ";(M100)100;F$;L$(G);^::"BASED ON ";O;" DAYS PER ACCOUNTING YEAR":15000:"# "L$(G);:Z02:V(Z)M(Z)::7:1600bMDPCV(0)W:V(1)W:1570UR2V(0)(DC)(WM)W:V(1)(CD)(WM)W:1570~N(((DMP)C)(WT)W)GG:1:V(0)NN((CDM)(WT)W)GG:3:V(1)N"MDPCV(2)1:1593,R2V(2)((CP)D)(WM)W:15936N(((CP)(DM))(WT)MM(1):1100:V(1)(CX3X5)X2:B4V(1)0V(1)W:1440KV(1)0V(1)0CC(2):DD(2):MM(2):1100:V(2)CX3X5X2:B4V(2)0V(2)W:1445V(2)0V(2)0Z02:P(Z)V(Z):7:"APR %";:B0āZ02:V(Z)F100:N(Z)N::1595 (0)W:V(1)W:1360@AV(0)(D(0)C(0))(X5):V(1)W:V(2)WWPZ02:M(Z)V(Z):exR21500:"BALLOON";:B0āZ02:V(Z)P::1450DD(0):CC(0):MM(0):1100:V(0)(CX3)X2:B4V(0)0V(0)W:1430V(0)0V(0)08CC(1):DD(1):1320V(0)(((NCD)(NPD)))(X5):V(1)(((CND(X5))(PND(X5))))(X5):V(2)(((CP)N)(D(X5))W)(X5):Z02:V(Z)(V(Z)):#Z02:M(Z)V(Z):(ND1:7-B014002R214007D(0)C(0)1345<V(2)(C(2)D(2))(X5):VV(Z)D::1220V(0)(R1)((CX4)X1.005)(R2)CX2:V(1)(R1)((CX4)(X1X5).005)(R2):V(2)(R1)((CP)X2(X1X5).005)(R2)(CP)X27:Z02:D(Z)V(Z)::"# PMTS";:R2V(0)1:V(1)1:V(2)1:1320B2āZ02:V(Z)M:M(Z)M::LB0X1(W(WN)M)N:X2(WN)M:X3DX1:X4PX2:X5WN:eV:A$;:B3āZ02:V(Z)C::1130`V(0)(R1)(X3X4)(R2)DX2:V(1)(R1)(X3X5X4)(R2):V(2)(R1)(X3X5X2P)(R2)DX2j7:Z02:C(Z)V(Z)::"PMT/DEP";:BWāZ02:S$)13)2 `S2QQ115020 a:11)G$:6)B$(A);F$;"AMORTIZATION SCHEDULE":15:"PMT# INTEREST PRINCIPAL BALANCE":15: dQ0:" ? ";S$:S(S$):SPPSOOĺH$:Q1: n 20000:" ";13)B$(0);23)B$(1);32)B$(2):15 1100:1110>2)0:PR(A0)BA(A1)(P(A)IN)(A2)P(A):BA(A0)0(A1)(BAPR)(A2)(BAP(A)):93` \95 ]"BLN";:V(0)IN:V(1)PR:V(2)BA:7:T3T3IN:T4T4PR:ZW:82 ^LL15(BBM(A)7LL17)ı _"HIT 'RTN' TO CONTINUE, ANY KEY TO EXIT";:S$::LL0:S((2T2PR:BBM(A)80 K P15:XXXXW:"YR";:TT5:ND1:VXX:10:ND0:V(0)T1:V(1)T2:V(2)BA:7:T3T3T1:T4T4T2:T10:T20 R"CUM";:V(0)T3:V(1)T4:7:LLLL4:15:94:QQ195 UBBM(A)91 Z43X [QQ1:P(A).005IN(A0)0(A1)N(A)BA(A U038:"-";:::/ (QQ0:ZZAA:97:459 +ZZGGF -DD1ZZ 2INN(A)(BA(BB0)(A1)BA(A2)D(A)):PRD(A)(A2)IN:BABA(A2)PR(A2)(INPR):BBBB1 AJJWVBB:NDW:TT4:10:ND0:V(0)IN:V(1)PR:V(2)BA:7:LLLLW:94 FT1T1IN:T1İ10:V(Z)((V(Z).005)100)100:Z::ND0:H TT6)"NO ANS";:::f V1E8V$"*.**":KK2:13 V.005V$".00":KK1:13 V$(V.005):KK1(V$):(V$,KK,1)"."Ă TTKK23ND)(V$,KK23ND);:(V$)KK2ĺ(".00",KK(V$)2); TW1:10000LDTN(CP(WN)M)(W(WN)M):DDT.001NNDDT:1RDT(N(CP(WN)M))((W(WN)M)(WN)):DTD.001NNDDT:3DT(CP)N((WN)(MW)(WN)):DTD.001NNDTD:5- Z02:TT11Z17:VV(Z):V             Ϡ̍ҷѷҵѷͨ϶Ϸзͨ϶ϷϷͨ·ηηͷ̷˷ʷɷȷǷƷŷķ÷·ҍҷѷҵѷͨ϶Ϸзͨ϶ϷϷͨ·ͨͶͷ̷̶̷ͨ˷ͨ˶˷ʷͨʶʷɷͨɶɷȷͨȶȷǷͨǶǷƷͨƶƷŷͨŶŷķͨĶķ÷ͨö÷·ͨ¶·ҢͮϷϷзϷϷͨ·ηηͷ̷˷ʷɷȷǷƷŷķ÷·Ңҷѷҵѷͨ϶Ϸзͨ϶ϷϷͨ·ηηͨζηͷ·Ңҷѷҵѷͨ϶ϷͨϷϷзͨϷϷϷͨ·ηηͷ̷˷ʷɷȷǷƷŷķ÷·Ңҷѷҵѷͨ϶ʷɷȷǷƷŷķ÷·Ңҷѷҵѷͨ϶ϷͨϷϷзͨϷϷϷͨ·ηηͷ̷˷ʷɷȷǷƷŷķ÷ͨϷϷϷͨ·ηηͷ̷˷ʷɷȷǷƷŷķ÷·ҍҷѷҵѷͨ϶ϷͨϷϷзͨϷϷϷͨ·ηηͷ̷˷ʷʷɷͨɷɷȷͨȷȷǷͨǷǷƷͨƷƷŷͨŷŷķͨķķ÷ͨ÷÷·ͨ··ҢϠ̍ҷѷҵѷͨ϶ϷͨϷϷзӍǸƸŸĸø¸Ңҍҷѷҵѷͨ϶ϷͨϷϷзͨϷϷϷͨ·ηηͨηηͷͨͷͷ̷̷̷ͨ˷ͨ˷˷ʷͨ¸θθ͸̸˸ʸɸȸǸƸŸĸø¸ҢҸѸҵѸͨ϶ϷͨϷϷϸиϸϸͨ¸θθ͸̸˸ʸɸȸϸиͨϸϸϸͨ¸θθ͸̸˸ʸɸȸǸƸŸĸø¸ҢҸѸҵѸͨ϶ϷͨϷϷͨϸϸиͨϸϸϸͨ϶ϷͨϷϷͨϸϸиͨϸϸϸͨ¸θθ͸̸˸ʸɸȸǸƸŸĸø¸ҢҸѸҵѸͨ϶ϷͨϷϷͨϸҢϠ̍ҸѸҵѸͨ϶ϷͨϷϷͨϸϸиͨϸϸϸͨ¸θθ͸̸˸ʸɸȸǸƸŸĸø¸ҢҸѸҵѸĪŠɠŠԠΠΠŠԠԮӠӠˠˠˠӠԭŠӠԠӠˠˠˠҠԠǯ̠ǠΠҠԭǯ̠  LETE A DATA BASE ***8n :"DELETE WHICH : ";S$:S(S$)cx S1SJ1ĺ(7);:(37)1:868:2670 :(9):"READY TO DELETE "(34);R$(S);(34);".": "ONCE DELETED, THIS DATA CANNOT BE" "RECOVERED. ARE YOU SURE THAT YOU" "WANT TO DELETE BASE"  % "WHICH ";S$:S(S$)5 SJ12660\ S1SJĺ(7);:(37):868:2540j DB$R$(S)y SJ1140 ( 26202 1013< J0J1F "NAME FOR NEW DATA BASE FILE :";R$(J)P NRJ:4280Z DB$R$(J1):1140d *** DERECORD NUMBER "DR" DELETED!":4 "MORE (Y/N) ";L$E L$"Y"2360h NRNR1:F$"INDEX":4280:4810 *** BASENAMEFILE ROUTINES ***  "SELECT FROM:": J1NR:J" "R$(J):J: J" CREATE A NEW DATA BASE" J1ĺJ1" DELETE A DATAI" "H$(I)": "N$(J,I)!I'4 LLNH2B D$"PR#0"H b$ ***DELETE RECORDS***h. 8 "ENTER RECORD NUMBER YOU WANT DELETED ";DR$:DR(DR$)B DR1DRNR2360L JDRNR1V I1NH` N$(J,I)N$(J1,I)j It J~ :"1SNH2130f/p"FROM "H$(S)": "N$(J,S)5zV"TO "H$(S)": ";:"";N$(J,S)b:2240h" MORE CHANGES (Y/N) ";L$L$"Y"2080F$"INDEX":4280:4810***PRINT A RECORD***PF5230,5250" "H$(0)": ";JI1NHL$(L$)274810,(L$)1320648L0::O ***CHANGE DATA***v*" ENTER THE NUMBER OF THE RECORD"4"YOU WANT TO CHANGE ";J$:J(J$)>:2240H" ENTER THE NUMBER OF THE FIELD YOU WANT":"TO CHANGE ";R"";S$:S(S$) \S"THAT'S ALL OF THEM. ";+"NOW YOU MAY:"E"1 DO MORE SEARCHES"["2 MAKE CHANGES"|"3 RETURN TO THE MAIN MENU"" WHICH ";S$:S(S$)S1S32030S1800,2080,4810 PF02070"PRESS RETURN TO CONTINUE, ESC FOR MENU";I" MAKE CHANGES"D1N"WHICH ";S$:S(S$)FXS0SNH11870WbSNH12080]lv"PLEASE ENTER THE "H$(S):"YOU WANT TO FIND....... ":"";Q$J1NRN$(J,0)(J)(N$(J,S),(Q$))Q$İ2240LNH20İ2060JI1NH)H$(I)":";:4720:N$(NR,I)I$0I6L"MORE (Y/N) ";L$]L$"Y"1640lF$"INDEX"v42804810***SEARCH/CHANGE***L0"YOU MAY SEARCH BY ANY OF THE FOLLOWING:"&38800:"OR YOU MAY"::OR COLUMN NUMBER "NR": ";:"";R$(NR)> "R$(NR)""NR201600J ,NRNR1T 61560` @NRNR1p J4280:1160 T***ENTER RECORDS*** ^ h"THERE ARE "NR" RECORDS" r"IN THE "DB$" FILE" |NRNR1 "YOU ARE ENTERING RECORD # "NR ):S1SNH14500 :"DO YOU WANT TO SORT:":H "1 ALPHABETICALLY"] "2 NUMERICALLY"c | "WHICH ";L$:L(L$) :"SORTING ";:1240 1013:*** CREATE HEADERFILE *** NR1 :"PRESS 'RETURN' TO EXIT TO MENU" $ "HEADER F$(R(J),I)N$(J,I):N$(J,I)Z$(I):ID xZR(R(J)):R(R(J))R(J):R(J)ZN 1370 "":"WANT TO SAVE THE "DB$" FILE":"SORTED BY "H$(S)" TO DISK ";:"Y/N) ?";L$:L$"Y"F$"INDEX":4280 4810 MF1:3880 "ENTER # OF FIELD FOR SORT ";S$:S(S$,S)R(I)R(I)1 1300A (N$(I,S))(N$(J,S))R(I)R(I)1K J:I\ "SORTING ";v (INR11:JNR11 2IJĭR(I)R(J)R(J)R(J)1 <J:I F"SORTING " PJ1 ZR(J)JJJ1:1370 dJNR1420" nI1NH:Z$(I)N$(R(J),I):N$"HEADER":1520 ~41106 I1NR:H$(I)R$(I):IN NHNR:NR0:MEM(0)c B(MEM(13NH))v N$(B,NH),R(B) F$"INDEX":4830 4110 4810 *** SORT *** I1NR:R(I)0:I I1NR:J1NR L1270,1290 N$(I,S)N$(J$ 216,0"MAXFILES1"1D$"":CTRL DFD$"NOMON,I,O,C"N:X5180^$R$(65),AC(21),K(65),H$(21),RN$(21).Z$(21)8COMMA$"NO"BD$"":CTRL DLH$(0)"REC#"VDB$"":F$"BASENAME":2610`4110j2470 tF                   ͵̵̵̲˵˲˵ʵʲʵɵɲɵȵȲȵǵDzǵƵƲƵŵŲŵĵIJĵõòõµ²µҢĠ̍ѵͨµεεδδε͵ʹʹ͵̵̴̴̵˵̢ōɶ̢̍ȶҢɍǶҍ¶Ң̭ЍҢҺҶұѶҢӠҺĶҍö̍¶ҍҢź˶ҍʶҍɶҍȶҍǶҍҍҵͨµεεβε͵Ͳ϶ζͶ̶˶ʶɶȶǶƶŶĶö¶˶ҢԍʶζҢҍͶҢԍ̶Ң̯Ӎ˶ҢٍʶҢƯЍɶҢǍȶҢ̍ǶҢҍƶҢҠԍŶҢύĶҢōöҢӍ¶Ң̍ҢˠҶѶж˶ʶɶȶǶƶŶĶö¶ҶҢҠ̍ѶҢҠ̍жҢϠ̍϶Ңˠж϶϶ͨ¶ζζͶ̶˶ʶɶȶǶƶŶĶö¶ҢҶѶж϶ζͶ̶ŶĶö¶ҢҶѶҵѶͨ϶϶жͨ϶϶϶ͨ¶ζζͶ̶˶ʶɶȶǶƶŶĶö¶ҢҶѶҵѶжηηͷ̷˷ʷɷȷǷƷŷķ÷·ҢҶѶҵѶͨ϶϶жͨ϶϶϶ͨ¶ζζͶ̶˶ʶɶȶǶƶOR KELLEY'S BOOKEEPING 5"MICRO-SOFTWARE/WENATCHEES#COPYRIGHT (C) 1982 JAN 4I:"=";: g hJ0YJ0Y5 l"YR ";J0;" ";I3,A2I qV179:"-";:O v^ J0Y720g I30p A20x J0 YJ0262 0: "CHANGE DATE AND RECOMPUTE? (1=YES, 0=NO) "; Z Z120  WRITTEN BY DAVE HOFFMAN !FA1A1A B0PA1% C1NY5200 RRB0; AAB0H A1A1B0Q B00^ I2I2I1k I3I3I1w A2A2A &J0X570 0J1;" ";I1,A,B0,I2 :J1 DC1NY600 N" LAST PMT = $";((R100.5))100 XJ0X640 bV179> ^6:"PRINCIPAL $";P;" AT ";I100;"% FOR ";Y;" YEARS"_ h25:"REGULAR PAYMENT = $";Re r |"NO. ";"INTEREST","AMORTIZED","BALANCE","ACCUM INTEREST" K7 KKN3 J11N1 I1((B0IN)100.5)100 C1C11 ARI1 20:I30:J00:N1N:K66:B0P:A10:A207 (Y)1270Q N1((Y(Y))12)12N] J0J01f 280u J01(Y) J0X410 "KN358400 ,K1K66 6 @K1 J O1:(9)(1) P(1)"80N" T25:"MORTGAGE AMORTIZATION TABLE" "REGULAR PAYMENT AMOUNT ";R8 ("TERM IN YEARS? ";YM 2"PRINCIPAL? ";Pn <"ANNUAL INTEREST RATE? ";I A CONVERT PERCENT TO DECIMAL FII100 x"NUMBER OF PAYMENTS PER YR.? ";N "START PRINTING WITH WHAT YEAR? ";X X(X)& C10:IT::255:(7),(7),(7)d:12:10:" WRITTEN FOR AN EPSON ":10:" OR 80 CULUMN PRINTER "xI12000:::5:8 " LOAN AMORTIZATION TABLE"20:"BY":13:"DAVID P. HOFFMAN":19:"FOR":9:"KELLEY'S BOOKEEPING LTD."     TER RECORD NUMBER YOU WANT DELETED "_ "OR ENTER ZERO TO RETURN TO MAIN MENU":DR$:DR(DR$)t DR0DRNR2470 DR05560 JDR::2340 "DELETE THIS RECORD(Y/N)? ";DR$:DR$"Y"5560 :JDRNR1 I1NH N$(R%(J),I),N$(R%(J1` D$"PR#0"j +t ***DELETE RECORDS***1~  HEX$"3B0:20 E3 DF 85 85 84 86 20 BE DE 20 E3 DF A0 02 B1 85 48 B1 83 91 85 68 91 83 88 10 F3 60 N D823G" I1(HEX$):511I,((HEX$,I,1))128::72,0:144 1013,76:1014,176:1015,3$ "EN"H$(S)": ";:"";N$(R%(J),S)':2320-L" MORE CHANGES (Y/N) ";L$]L$"Y"2160x F$"INDEX":4960:5560 ***PRINT A RECORD*** PF5980,6000$ " "H$(0)": ";J. I1NH8 I" "H$(I)": "N$(R%(J),I)B IL V LLNH2 ANGE DATA***3z" ENTER THE NUMBER OF THE RECORD"Y"YOU WANT TO CHANGE ";J$:J(J$)e:2320" ENTER THE NUMBER OF THE FIELD YOU WANT":"TO CHANGE ";"";S$:S(S$)S1SNH2210"FROM "H$(S)": "N$(R%(J),S)"TO "2 MAKE CHANGES"7 "3 RETURN TO THE MAIN MENU"Q" WHICH ";S$:S(S$)c S1S32070y*S1820,2160,55604PF02150>"PRESS RETURN TO CONTINUE, ESC FOR MENU";HL$:R(L$)275560\(L$)132120fL0:: p***CHNH25560Q"PLEASE ENTER THE "H$(S):"YOU WANT TO FIND....... ":"";Q$WcJ1NRxN$(R%(J),0)(J)(N$(R%(J),S),(Q$))Q$İ2320LNH20İ2100J"THAT'S ALL OF THEM. ";"NOW YOU MAY:""1 DO MORE SEARCHES"60***SEARCH/CHANGE***#L0)X&"YOU MAY SEARCH BY ANY OF THE FOLLOWING:"^0h:4460~D:"OR YOU MAY":NI" MAKE CHANGES"XI1;" RETURN TO MAIN MENU"bl"WHICH ";S$:S(S$)vS0SNH21900SNH12160 S # "NR I1NH-H$(I)":";:5470Q(I$,1)(2)I$"BARTLESVILLE"l(I$,1)(15)I$"OK"(I$,1)(26)I$"74003"N$(NR,I)I$IR%(NR)NR"MORE (Y/N) ";L$L$"Y"1660LL1İ4960:55606400:55HEADER FOR COLUMN NUMBER "NR": ";:"";R$(NR)F6R$(NR)""NR201620R@NRNR1\J1580hTNRNR1x^4960:1170h***ENTER RECORDS***r:LLNR1|"THERE ARE "NR" RECORDS""IN THE "DB$" FILE"NRNR1"YOU ARE ENTERING RECORDLY" " "WHICH ";L$:L(L$)< :"1. ASCENDING, OR"W "2. DESCENDING ORDER" :"WHICH? ";Q$:Q(Q$)1:Q0Q11500 :"SORTING ";:1250 EX10: *** CREATE HEADERFILE *** NR1 :"PRESS 'RETURN' TO EXIT TO MENU" ",,"SAVE THE "DB$" FILE":"SORTED BY "H$(S)" TO DISK";:"(Y/N) ?";L$:L$"Y"FF1:6240] 5560l MF1:4460 "ENTER # OF FIELD FOR SORT ";S$:S(S$):S0SNH1430 S05560 :"DO YOU WANT TO SORT:": "1 ALPHABETICALLY" "2 NUMERICAL%(I)R%(LL):R%(LL)Y:IIM:I11290/ 21380t <LLIM:I2R%(I):L2R%(LL):L1360:(N$(I2,S))(N$(L2,S))1380~ F1370 PN$(I2,S)N$(L2,S)1380 ZYR%(I):R%(I)R%(LL):R%(LL)Y:IIM:I11340 dJJ1:JK1260 n1270S x"":"WANT TO 5560.  *** SORT BY GARY FOOTE 5/16/79 ***; NNR:MNr M(M2):KNM:J1:"SORTING ";:M0ĺ"DONE":1400z IJ Q1340 LLIM:I2R%(I):L2R%(LL):L1310:(N$(I2,S))(N$(L2,S))1380 1320 N$(I2,S)N$(L2,S)1380% (YR%(I):R QSL1: PRINTER SLOT DEFAULT0 VH$(0)"REC#"N `DB$"":F$"BASENAME":EX1X j4740b t2640w ~F$"HEADER":EX2 4740 I1NR:H$(I)R$(I):I NHNR:NR0:MEM(0) B(MEM(13NH)) N$(B,NH),R%(B) F$"INDEX":EX3 4740 9 LAST UPDATE 2-6-82=216,0:D$(4):D$"MAXFILES1"RD$"NOMON,I,O,C"Z:`r5930:60000R$(65),AC(21),K(65),H$(21),RN$(21)$Z$(21).COMMA$"NO"8D$(4): CTRL DBPR$(13)D$"PR#0"LFF$(140): FORM FEED                    );" ";AR$(X,LN)&" ";AR$(X,AD)=" ";AR$(X,CI)c" ";AR$(X,ST);", ";AR$(X,ZI)|K130:(127);::(4);"PR#0"400X0:P0:4959:"DO YOU WANT PROMPTING (Y/N)";R$:R$"Y"P1XX1:X101İ97:400AR$),SK)SK$414"9014:400U:93:2:15::" ' PRINT ADDRESS LABEL '":22::" PRESS '";::" L ";::"' TO PRINT AN ADDRESS LABEL ";:10::R$::R$"L"420400:(4);"PR#1":(6)K130:(127);::" TO: ";AR$(X,NAE DATA IS STORED AS RECORD: ";::X::90:300692?495:" 1 - MANUAL SEARCH"::" 2 - AUTO SCAN - WITH PROMPTING"::" * - ANY OTHER KEY - RETURN TO MENU"91:R405,480:100049595:SK$""1000X1100 (AR$(X,LN < < < "::(7)Z:40v\::" PRESS '";::" S ";::"' TO STORE THIS FILE RECORD ";:10::R$::R$"S"352^300`X1100bAR$(X,LN)""AR$(X,NA)""358d:::9:" THE FILE IS FULL - RECORD ABORTED !":90:1000.f20::" ABOV:R$:R$"D"340R300xTAR$(X,LN)"":AR$(X,NA)"":AR$(X,AD)"":AR$(X,CI)"":AR$(X,ST)"":AR$(X,ZI)"":AR$(X,HP)""V34,20:::" RECORD ";::" ";X;" ";::" HAS BEEN DELETED ! ":::90:300X::" > > > ";::"- ADD A NEW RECORD -";::" :X::90:300WJ::" > > > ";::"- DELETE A RECORD -";::" < < < "::(7)L:95:X1100:(AR$(X,LN),SK)SK$336N:9014:300P93:2:20::"> DELETE RECORD <"::22:" PRESS '";::" D ";::"' TO DELETE THIS FILE RECORD";::1095:X1100:(AR$(X,LN),SK)SK$322,>;@9014:300lB93:2:20::"> CHANGE RECORD <"::6:40:D::" PRESS '";::" S ";::"' TO STORE THIS FILE RECORD ";:10::R$::R$"S"328F300H20::" ABOVE DATA IS STORED AS RECORD: ";: < < < "::*0" 1 - ADD A RECORD":I2" 2 - CHANGE A RECORD":h4" 3 - DELETE A RECORD":6" * - ANY OTHER KEY FOR THE MAIN MENU":891:R344,314,330:1000:::" > > > ";::"- CHANGE A RECORD -";::" < < < "::(7)&<9016:l0n90 p1000(92l:" > > ";::"- LOCATE A RECORD -";::" < < "::}95:X1100(AR$(X,LN),SK)SK$2129014:200:93:97:200,92.:" > > > ";::"- UPDATE THE FILE -";::" ;::" 'ONLY' FOR THE MENU - - "::9:"ENTER THE NAME OF THE RECORD YOU SEEK ":":>";SK$:SK$""ġ:1000{ `SK(SK$): a:" * PRESS ANY KEY TO CONTINUE.......";:2:R$:: d92 fX1100 hX;:5:(AR$(X,LN),14);:20:(AR$(X,HP),19)j:25):::L$:" LAST NAME: ";AR$(X,LN)::"FIRST NAME: ";AR$(X,NA)::" ADDRESS: ";AR$(X,AD) ^:" CITY: ";AR$(X,CI)::" STATE: ";AR$(X,ST)::" ZIP CODE: ";AR$(X,ZI)::" PHONE NO.: ";AR$(X,HP)::L$:k _22::" PRESS ";::"(RETURN)"" STATE: ";ST$:/ 2" ZIP CODE: ";ZI$:I 4" PHONE NO.: ";HP$:O 6i Z(7);(7);::97:: [::(7);" ^ ENTER YOUR DESIRED SELECTION ";:3::R$:R(R$): \(4);"PR#0"::::` ]:2::" RECORD: ";::" ";AR$(X,RN);::16AR$(X,RN)(X)! AR$(X,LN)LN$3 AR$(X,NA)NA$E AR$(X,AD)AD$W AR$(X,CI)CI$i AR$(X,ST)ST${ AR$(X,ZI)ZI$ "AR$(X,HP)HP$ $ (" LAST NAME: ";LN$: *"FIRST NAME: ";NA$: ," ADDRESS: ";AD$: ." CITY: ";CI$: 0 DISTRIBUTE FREE TO THE C.S.C. APPLE MEMBERS BUT PLEASE KEEP LINES 1-9 IN THE PROGRAM........... FREE MEMORY = 27888 AR$(100,7):L$"========================================" RN0:LN1:NA2:AD3:CI4:ST5:ZI6:HP7 1000 !!THE ADDRESS BOOK (A - 100)ACREATED ON A 48K APPLE II+aREVISION 7.9 (25 JUN 1981) AUTHOR - P. A. SCHMIDTBOX 405 SHAW AFB; SC 29152MEMBER OF C.S.C APPLE U.G.COMMERCIAL RIGHTS RESERVEDo  PERMISSION IS GRANTED TO       ͨôô´ͨ´´ҢϠ̍ҴѴҲѴͨϳϴͨϴϴдͨϴϴϴͨ´δδʹ̴˴ʴɴȴǴƴŴĴô´ҍҴѴϴͨ´δδͨδδʹͨʹʹ̴̴̴ͨ˴ͨ˴˴ʴͨʴʴɴͨɴɴȴͨȴȴǴͨǴǴƴͨƴƴŴͨŴŴĴͨĴĴôͨϳϴͨϴϴϵеϵϵͨµεε͵̵˵ʵɵȵǵƵŵĵõµҢҍҴѴҲѴͨϳϴͨϴϴдͨϴϴҢҵѵҲѵͨϳϴͨϴϴͨϵϵеͨϵϵϵͨµεε͵̵˵ʵɵȵǵƵŵĵõµҢҵѵҲѵӰƵŵĵõµҢҵѵҲѵͨϳϴͨϴϴͨϵϵеͨϵϵϵͨµεε͵̵˵ʵɵȵǵƵŵĵõµ˵ʵɵȵǵƵŵĵõµҢҵѵҲѵͨϳϴͨϴϴͨϵϵеͨϵϵϵͨµεε͵̵˵ʵɵȵǵǵƵͨƵƵŵͨŵŵĵͨĵĵõͨõõµͨµµҢϠ̍ҵѵҲѵͨϳϴͨϴϴͨϵϵеͨϵϵϵͨµεε͵̍ѵͨϳϴͨϴϴͨϵϵеͨϵϵϵͨµεεͨεε͵ͨ͵͵̵̵̵ͨ˵ͨ˵˵ʵͨʵʵɵͨɵɵȵͨȵȵǵͨǵε͵̵˵ʵɵȵǵƵŵĵõµҵѵҲ˴˴˵ʵʴʴʵɵɴɴɵȵȴȴȵǵǴǴǵƵƴƴƵŵŴŴŵĵĴĴĵõôôõµ´´µҢĠ̍ҵѵеϵ:6:"ENTER AMOUNT OF DEPOSIT: $";ADD :"OLD BALANCE WAS: $";PBf PBPBAD:PB(PB1000.5)100 :"AND NEW BALANCE IS: $";PB 20:15:"HIT ANY KEY TO CONTINUE.";:C$:90 007 T$"C"T$"D"T$"Q"Č198:"TRY AGAIN":120= C i 5:"ENTER AMOUNT OF CHECK: $";AC :"OLD BALANCE WAS: $"PB PBPBAC:PB(PB1000.5)100 :"AND NEW BALANCE IS: $";PB 20:15:"HIT ANY KEY TO CONTINUE.":C$:90% RE-ENTER":60 Z:8:45 _"NEXT TRANSACTION IS:"N d12:12:" CHECK"i n14:12:" DEPOSIT" s16:12:" QUIT" x18:20:"WHICH ?" T$ T$"Q"ė:12:"NEW BALANCE IS:$";PB:20:19:"SO LONG": T$"C"ī1000 T$"D"ī20OOKER BALANCER :5 10)"CHECK BOOK BALANCER"B (34,4:5_ 2"KNOWN BALANCE IS:$";PBx 7PB(PB1000.5)100 <10:"YOUR KNOWN BALANCE IS:$";PB F12:"IF CORRECT, HIT ...IF NOT, HIT " PC$:C$"N"20 UC$"N"C$"Y"Č198:"# PROGRAM CHECK BOOK BALANCERD BY RALPH H. SWERDLOW, M.D._ FROM CALL-A.P.P.L.E.x VOLUME V, NUMBER 1 JANUARY, 1982 ------------------------- CONTRIBUTED BY ED WILLMAN -------------------------  CHECK B  ñ±ҢұѱҸѱͨϹϱͨϱϱбͨϱϱϱͨ±ααͱ̱˱ʱɱȱDZƱűıñ±DZƱűıñ±ҢұѱҸѱͨϹϱͨϱϱбͨϱϱϱͨ±ααͱ̱˱ʱɱȱDZƱűı˱ʱɱȱDZƱűıñ±ҍұѱҸѱͨϹϱͨϱϱбͨϱϱϱͨ±ααͱ̱˱ʱɱȱͨƱƱűͨűűıͨııñͨññ±ͨ±±ҢϠ̍ұѱҸѱͨϹϱͨϱϱбͨϱϱϱͨ±ααͱ̱ϱбͨϱϱϱͨ±ααͨααͱͨͱͱ̱̱̱ͨ˱ͨ˱˱ʱͨʱʱɱͨɱɱȱͨȱȱDZͨDZDZƱͨϹϱͨϱϱϱбϱϱͨ±ααͱ̱˱ʱɱȱDZƱűıñ±ҢҍұѱҸѱͨϹϱͨϱѱͨϹϱͨϱϱͨϱϱбͨϱϱϱͨ±ααͱ̱˱ʱɱȱDZƱűıñ±ҢұѱҸѱӳѱҸѱͨϹϱͨϱϱͨϱϱбͨϱϱϱͨ±ααͱ̱˱ʱɱȱDZƱűıñ±ҢұѱҸұѱҸѱͨϹϱͨϱϱͨϱϱбͨϱϱϱͨ±ααͱ̱˱ʱɱȱDZƱűıñ±ҢұҢϠ̍ұѱҸѱͨϹϱͨϱϱͨϱϱбͨϱϱϱͨ±ααͱ̱˱ʱɱȱDZƱűıñ±Ң̱̱˱ͨ˱˱ʱͨʱʱɱͨɱɱȱͨȱȱDZͨDZDZƱͨƱƱűͨűűıͨııñͨññ±ͨ±±ıñ±ұѱҸѱͨϹϱͨϱϱͨϱϱбͨϱϱϱͨ±ααͨααͱͨͱͱ̱ͨ̍ұѱбϱαͱ̱˱ʱɱȱDZƱű̍ѱͨ±ααθαͱ͸ͱ̸̱̱˱˸˱ʱʸʱɱɸɱȱȸȱDZǸDZƱƸƱűŸűıĸıñøñ±±±±Ңľҍұͨ±ααθαͱ͸ͱ̸̱̱˱˸˱ʱʸʱɱɸɱȱȸȱDZǸDZƱƸƱűŸűıĸıñøñ±¸±ҢĠ²ҲѲѲͨϷϱͨϱϱͨϲϲвͨϲϲϲͨ²ββͨββͲͨͲͲ̲̲̲ͨ˲ͨ˲˲ʲͨʲʲѲвϲβͲ̲˲ʲɲȲDzƲŲIJòβααβͲͱͱͲ̲̱̱̲˲˱˱˲ʲʱʱʲɲɱɱɲȲȱȱȲDzDZDZDzƲƱƱƲŲűűŲIJııIJòññò²±±²ҢĠ̍Ңź˳ҍʳҍɳҍȳҍdzҍҍҲͨ²βββͲͲ̲̲˲˲ʲʲɲɲȲȲDzDzƲƲŲŲIJIJòò²²ҢĠ̍Ѳͨ²βƳųijó³˳Ңԍʳ̢ōɳ̢̍ȳҢɍdzҍ³Ңҭ΍ҢҺҳұѳҢӠҺijҍó̍³ҍųҢύijҢōóҢӍ³Ң̍Ңˠҳѳгϳγͳ̳˳ʳɳȳdz³ҳҢҠ̍ѳҢҠ̍гҢϠ̍ϳҢˠ̍γҢҍͳҢԍ̳Ң̯Ӎ˳ҢٍʳҢƯЍɳҢǍȳҢ̍dzҢҍƳҢҠԺѳгϳγͳ̳˳ʳɳȳdzƳųijó˳ʳɳȳdzƳųijó³ҢҳѳҲѳггϳϳͨ³γγͳ̳˳ʳɳȳdzƳųijó³Ңҳϳгͨϳϳϳͨ³γγͳ̳˳ʳɳȳdzƳųijó³ҢҳѳҲѳͨϳϳгͨϳϳϳͨ³γγͳ̳ŴĴô´ҍҴѴҲѴͨϳϴдͨϳϴϴͨ´δδʹ̴˴ʴɴȴǴƴŴĴô´ҢҳѳҲѳͨϳͨƳƴŴͨųŴĴͨijĴôͨóô´ͨ³´ҢϠ̍ҴѴҲѴͨϳϴдͨϳϴϴͨ´δδʹ̴˴ʴɴȴǴưҴѴҲѴͨϳϴдͨϳϴϴͨ´δδͨγδʹͨͳʹ̴̴̳ͨ˴ͨ˳˴ʴͨʳʴɴͨɳɴȴͨȳȴǴͨdzǴƴʴɴȴǴƴŴĴô´ҢҴѴҲѴͨϳϴϴдϴϴͨ´δδʹ̴˴ʴɴȴǴƴŴĴô´Ңϴϴͨ´δδʹ̴˴ʴɴȴǴƴŴĴô´ҢҴѴҲѴͨϳϴͨϴϴдͨϴϴϴͨ´δδʹ̴: F24:(4);"CATALOG" d8 ,(20(A$)2):A$:N 1:X140:A$;: *23:X140:A$;::2:X222:1:A$;:40:A$;:: A