VБе 87/WЗ:З"MAGNITUDE= ";MAG/BXЗ" ANGLE=    ";THETA;"DEGREES"/iYЗ:Й"ANOTHER Y/N";Q$:Е Q$│"Y"з62:Д2/╣ZЮ:З"COMPLEX DIVISION":З"(A+JB)/(C+JD)=":З"(AC+BD)^2+J(BD-AC)^2 / C^2+D^2":З/─[B$│"-"/щ\З"ENTER NUMBERS; REAL,IMAGINARY"/ў]З:Й R1,A10^Й R2,A20&_RT│(R1нR2лA1нA2)п2о(R2п2лA2п2)0I`AM│(A1нR2мR1нA2)п2о(R2п2лA2п2)0OaЗ0hbЕ  В(AM)│AM з B$│"+"0ХcЗ"THE ANSWER IS ";RT;" ";B$;" J "; В(AM)0░dЗ:Й"POLAR FORM Y/N";Z$0╚eЕ  О (Z$,1)│"N"з1160юfMAG│  Б(100н Ы(RTп2лAMп2)л.5)о1001gЕ RT│0 ░ AM┤0 з 1111hЕ RT│0 ░ AM▓0 з 11016iЕ RT┤0 ░ AM│0 з 1131bjTHETA│ Б( Ф(AMоRT)н57.2958 н100л.5)о1001ЖkЕ RT┤0 ░ AM┤0 з THETA│180лTHETA1кlЕ RT┤0 ░ AM▓0 з THETA│THETAл1801┤mБе1141╚nTHETA│90:Бе 1141╓oTHETA│2701рpБе1141юqTHETA│1802rЗ:З"MAGNITUDE= ";MAG2-sЗ" ANGLE=    ";THETA;" DEGREES":З2TtЗ:Й"ANOTHER Y/N";Q$:Е Q$│"Y"з90:Д22┤uЮ:З"ABSOLUTE VALUE,COMPLEX":З:З"MAGNITUDE=(REAL^2+IMAG^2)^1/2":З"ANGLE=ARCTAN(IMAG/REAL)":З2╨vЗ"ENTER REAL,IMAGINARY"2▐wЗ:Й RT,AM3xЗ:MAG│ Б(100н Ы(RTп2лAMп2)л.5)о1003yЕ RT│0 ░ AM┤0 з 12935zЕ RT│0 ░ AM▓0 з 1283M{Е RT┤0 ░ AM│0 з 1313x|THETA│ Б( Ф(AMоRT)н57.2958н100л.5)о1003Ь}Е RT┤0 ░ AM┤0 з THETA│180лTHETA3└~Е RT┤0 ░ AM▓0 з THETA│THETAл1803╦Бе 1323▀АTHETA│90:Бе 1323эБTHETA│2703°ВБе 1324ГTHETA│1804ДЗ:З"MAGNITUDE= ";MAG4EЕЗ" ANGLE=    ";THETA;" DEGREES":З4mЖЗ:Й"ANOTHER Y/N";Q$:Е Q$│"Y"з117:Д24╗ЗЮ:З"COMPLEX NUMBER TO A REAL POWER":З:З"Z^N=R^N(COSN*THETA+J SINN*THETA)"4╫ИЗ:Й"ENTER EXPONENT: ";R5ЙЗ"ENTER NUMBER;  REAL,IMAGINARY":Й RT,AM5
КSW│154ЛЗ:MAG│ Б(100н Ы(RTп2лAMп2)л.5)о1005LМЕ RT│0 ░ AM┤0 з 1485dНЕ RT│0 ░ AM▓0 з 1475|ОЕ RT┤0 ░ AM│0 з 1505зПTHETA│ Б( Ф(AMоRT)н57.2958н100л.5)о1005╦РЕ RT┤0 ░ AM┤0 з THETA│180лTHETA5яСЕ RT┤0 ░ AM▓0 з THETA│THETAл1805·ТБе 1516УTHETA│90:Бе 1516ФTHETA│2706'ХБе 15165ЦTHETA│1806FЧЕ SW│1 з 1566_ШЗ:З"MAGNITUDE= ";MAG6АЩЗ:З"ANGLE= ";THETA;"DEGREES"6ИЪЗ:Р6УЫБе 1696лЬTHETA│THETAо57.29586─ЭR1│MAGпRн Х(RнTHETA)6▌ЮI1│MAGпRн Е(RнTHETA)6ЎЯR1│ Б(100нR1л.5)о1007аI1│ Б(100нI1л.5)о1007!бB$│"-":C$│"-"7:вЕ  В(AM)│AM з C$│"+"7SгЕ  В(I1)│I1 з B$│"+"7КдЗ:З"("RT;C$;"J"; В(AM);")^";R;"=";R1;B$;"J"; В(I1)7ФеRT│R17ЮжAM│I17═зЗ:Й"POLAR FORM Y/N";Z$:Е  О (Z$,1)│"N"з1697▄иSW│0:Бж1398
йЙ"ANOTHER Y/N";Q$:ЕQ$│"Y"з135:Д28]кЮ:З"COMPLEX ROOTS":З:З"Z^(1/N)=":З"R^(1/N)(COS((THETA+2K)/N) +":З"J SIN N((THETA+2K)/N)8ИлЗ:З"K=0,1,2,...,N-1":З"N=DESIRED ROOT"8┌мЗ:Й"ENTER ROOT DESIRED: ";R:З:З"ENTER NUMBER:  REAL,IMAGINARY":Й RT,AM:SW│1:З8 нMAG│ Б(100н Ы(RTп2лAMп2)л.5)о1009оЕ RT│0 ░ AM┤0 з1829-пЕ RT│0 ░ AM▓0 з1819D░Е RT┤0 ░ AM│0 з1869o▒THETA│ Б( Ф(AMоRT)н57.2958н100л.5)о1009У▓Е RT┤0 ░ AM┤0 з THETA│180лTHETA9╖│Е RT┤0 ░ AM▓0 з THETA│THETAл1809┴┤Бе1859╘╡THETA│90:Бе1859т╢THETA│2709э╖Бе 1859√╕THETA│180:╣Е SW│1 з 190:#║З"MAGNITUDE= ";MAG:B╗З"ANGLE= ";THETA;"DEGREES":H╝Р:R╜Бе214:j╛THETA│THETAо57.2958:|┐М R1(R),I1(R):И└А L│1еR:з┴RR│1оR:T│THETAл2нLн3.14159:▒┬T│TоR:╚├R1(L)│MAGпRRн Х(T):ч─R1(L)│ Б(1E3нR1(L)л.5)о1E3:■┼I1(L)│MAGпRRн Е(T);╞I1(L)│ Б(1E3нI1(L)л.5)о1E3;%╟Л L;?╚З:З"THE ROOTS ARE:":З;L╔А KK│1еR;W╩B$│"-";v╦Е  В(I1(KK))│I1(KK)зB$│"+";Щ╠З R1(KK);" ";B$;"J"; В(I1(KK));в═Л KK;╜╬З:Й"POLAR FORM Y/N";Z$;╘╧Е  О(Z$,1)│"N"з214;ц╨SW│0:А KK│1еR;Ї╤RT│R1(KK)<╥AM│I1(KK)<╙Бж173<╘Л KK< ╒Бе 189<7╓Й"FINISHED";Q$:Бе2<д╫Ю:З"COMPLEX EXPONENTIAL  E^J":З"THE EXPONENTIAL TO COMPLEX POWER":З"EXP^Z=EXP^X(COSY+JSINY)":З"Z=X+JY":З<р╪B$│"-":C$│"-":Й" WHAT POWER:    REAL,IMAGINARY  ";RT,AM=
┘ER│ Ч(RT)н( Х(AM)):EI│ Ч(RT)н( Е(AM))=#┌ER│ Б(1E3нERл.5)о1E3=<█EI│ Б(1E3нEIл.5)о1E3=U▄Е  В(EI)│EI з B$│"+"=n▌Е  В(AM)│AM з C$│"+"=к▐З:З"EXP^(";RT;"";C$;"J"; В(AM);")=";ER;"";B$;"J"; В(EI)=║▀RT│ER:AM│EI=щрЗ:Й"POLAR FORM Y/N";Z$:Е  О(Z$,1)│"N"з 240>сMAG│ Б(1E3н Ы(RTп2лAMп2)л.5)о1E3>&тЕ RT│0 ░ AM┤0 з 235>>уЕ RT│0 ░ AM▓0 з 233>VфЕ RT┤0 ░ AM│0 з 237>БхTHETA│ Б( Ф(AMоRT)н57.2958н100л.5)о100>ецЕ RT┤0 ░ AM▓0 з THETA│180лTHETA>╔чЕ RT┤0 ░ AM┤0 з THETA│180лTHETA>╘шБе 238>сщTHETA│90>ыъБе238>∙ыTHETA│270?ьБе238?эTHETA│180?)юЗ:З"MAGNITUDE=";MAG?MяЗ" ANGLE=   ";THETA;"DEGREES":З?rЁЙ"ANOTHER Y/N";Q$:ЕQ$│"Y"з215:Д2?РёК::ГKRT  APR82  HAVE FUN! з THETA│180лTHETA>╔чЕ RT┤0 ░ AM┤0 з THETA│180лTHETA>╘шБе 238>сщTHETA│90>ыъБе238>∙ыTHETA│270?ьБ                                                                                                                                                                                                                                                                Ю:З:З:З @(68),    "YOU AND I BOTH KNOW THAT        YOU DON'T NEED ANY WHERE        NEAR THAT MANY ACCOUNTS.        COME BACK TO REALITY AND        SELECT" (Y) "ACCOUNTS OR LESS"P▀dЙ"             ";E:Е BлE▓99 з 1370 :Д 1390PєnЕ BлE▓99 з 1370P xЮ:H│Bл1QВБж 1420:W│Wл1:Бе170Q)МА C│H е (BлE)QlЦЗ @(193),"TYPE NAME OF ACCOUNT NUMBER";C:З:Й"          ";F$(C)QrаЮQЛкЛ C:Ю:B│(BлE):Бе1280Q╚┤З@(389),"PRESS PLAY AND RECORD                  <ENTER>"Qя╛EE$│ Т:Е EE$│ Л(13) з 1480 :Д 1470Q∙╚Ю:G│WR╥Щ "O",#м1,"CHECKS"R▄З #м1,GR,цЗ #м1,H,B,ER:ЁА S│1 е GRH·А V│1 е 6RXЗ#м1,A(V,S)R`Л VRhЛ SRz"А C│H е (BлE)RК,З #м1,F$(C)RТ6Л CRЬ@Ъ #м1RиJБе 1280R░TЛ SR╣^Ъ#м1R─hБе1280S(rЮ:З@(192),"  TO REVIEW PRIOR MONTH REWIND    TAPE DEPRESS PLAY BUTTON AND              <ENTER>"SO|ZZ$│ Т:Е ZZ$│ Л(13) з 1670 :Д 1660SfЖЩ "I",#м1,"CHECKS"SrРЙ #м1,GSВЪЙ #м1,H,B,ESРдА S│1 е GSЮоА V│1 е 6Sп╕Й #м1,A(V,S)S├┬Е  М(м1) з 1800S╦╠Л VS╙╓Л SSхрА C│H е (BлE)SїъЙ #м1,F$(C)S¤ЇЛ CT■Е  М(м1) з 1800T'Ъ #м1:W│WлG:Бе340O|ZZ$│ Т:Е ZZ$│ Л(13) з 1670 :Д 1660SfЖЩ "I",#м1,"CHECKS"SrРЙ #м1,GSВЪЙ #м1,H,B,ESРдА S│1 е GSЮоА V│1 е 6Sп╕Й #м1,A(V,S)S├┬Е  М(м1) з 1800S╦╠Л VS╙╓Л SSхрА C│H е (BлE)SїъЙ #м1,F$(C)S¤ЇЛ CT                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 С&йЮ:З"COMPLEX MATH":З:З"1-ADDITION":З"2-SUBTRACTION":З"3-MULTIPLICATION":З"4-DIVISION":З"5-ABSOLUTE VALUE":З"6-J TO A REAL POWER":З"7-COMPLEX ROOTS":З"8-EXPONENTIAL"&ыЗ:З:З:Й"ENTER NUMBER";Z:И Z Бж 4,35,62,90,117,135,170,215:Бе2''Ю:З"COMPLEX ADDITION":З"(A+JB)+(C+JD)=(A+C)+J(B+D)":З:З'JЙ"HOW MANY NUMBERS TO ADD";N:З'З"ENTER REAL,IMAGINARY PARTS":З:RT│0:AM│O:B$│"-"'КАI│1еN'еЗ"NUMBER ";I;"      ";'╢	Й R(I),IM(I)'┼
RT│RTлR(I)'╒AM│AMлIM(I)'юЕ  В(AM)│AM з B$│"+"'°
Л I:З'■З((З"THE SUM IS ";RT;" ";B$;" J "; В(AM)(MЗ:З"DO YOU WANT POLAR FORM Y/N";(VЙ Z$(mЕ  О(Z$,1)│"N"з 34(УMAG│  Б(100н Ы(RTп2лAMп2)л.5)о100(кЕ RT│0 ░ AM┤0 з 29(┴Е RT│0 ░ AM▓0 з 27(╪Е RT┤0 ░ AM│0 з 31)THETA│  Б( Ф(AMоRT)н57.2958н100л.5)о100)(Е RT┤0 ░ AM▓0 з THETA│180лTHETA)LЕ RT┤0 ░ AM┤0 з THETA│180лTHETA)UБе32)bTHETA│90)kБе32)yTHETA│270)ВБе32)РTHETA│180)и З:З"MAGNITUDE=";MAG)╟!З:З"ANGLE=";THETA;"DEGREES)ь"З:Й"ANOTHER Y/N";Q$:ЕQ$│"Y"з4:Д2*)#Ю:З"COMPLEX SUBTRACTION":З"(A+JB)-(C+JD)=(A-C)+J(B-D)":З*4$B$│"-"*l%З"ENTER NUMBERS TO BE SUBTRACTED":З"REAL,IMAGINARY"*z&З:Й R1,A1*Ж'Й R2,A2*Ь(RT│R1мR2:AM│A1мA2*╡)Е  В(AM)│AM з B$│"+"*ш*З:З"THE DIFFERENCE IS: ";RT;" ";B$;" J"; В(AM)++З:Й"POLAR FORM (Y/N)";Z$+,Е  О (Z$,1)│"N"з61+A-MAG│ Б(100н Ы(RTп2лAMп2)л.5)о100+X.Е RT│0 ░ AM┤0 з 55+o/Е RT│0 ░ AM▓0 з 53+Ж0Е RT┤0 ░ AM│0 з 57+▒1THETA│ Б( Ф(AMоRT)н57.2958н100л.5)о100+╒2Е RT┤0 ░ AM▓0 з THETA│180лTHETA+∙3Е RT┤0 ░ AM┤0 з THETA│180лTHETA,4Бе 58,5THETA│90,6Бе 58,(7THETA│270,28Бе 58,@9THETA│180,X:З:З"MAGNITUDE=";MAG,y;З:З"ANGLE=";THETA;" DEGREES",Б<З:З,ж=Й"ANOTHER Y/N";Q$:Е Q$│"Y"з35:Д2,щ>Ю:З"COMPLEX MULTIPLICATION":З"(A+JB)(C+JD)=(AC-BD)+J(BC+AD)":З,Ї?B$│"-"-@З:З"ENTER NUMBERS:   REAL,IMAGINARY"-+AЗ:Й R1,A1-7BЙ R2,A2-[CRT│R1нR2м(A1нA2):AM│A1нR2лR1нA2-tDЕ  В(AM)│AM з B$│"+"-zEЗ-жFЗ"THE PRODUCT IS ";RT;" ";B$;"J"; В(AM)-┴GЗ:Й"POLAR FORM Y/N";Z$-╫HЕ  О(Z$,1)│"N"з89-№IMAG│ Б(100н Ы(RTп2лAMп2)л.5)о100.JЕ RT│0 ░ AM┤0 з 83.*KЕ RT│0 ░ AM▓0 з 81.ALЕ RT┤0 ░ AM│0 з 85.mMTHETA│  Б( Ф(AMоRT)н57.2958н100л.5)о100.СNЕ RT┤0 ░ AM▓0 з THETA│180лTHETA.╡OЕ RT┤0 ░ AM┤0 з THETA│180лTHETA.┐PБе 87.╠QTHETA│90.╓RБе 87.фSTHETA│270.юTБе 87.№UTHETA│180/ (>_
Ю:З@(200),"CHECK REGISTER                    S.G.BROOKS                     NEWBERRY S C">vАJ│1е1000:ЛJ:J│0:Ю>ЛМF$(39):МA(6,50)>Э(МB(30):МC(30)>┼2N$│"DATE NUM #  DEP    CHECK  BAL ">ь<З@(196),"PRIOR MONTH REVIEW (Y/N)">ЎFI$│ Т?PЕI$│"Y"з1650:Д90?ZЕI$│"N"з100:Д70?|dЗ@(194),"YOU MAY USE UP TO 14 SPACES     EACH TO NAME UP TO 50 ACCTS":АJ│1е2000:ЛJ:J│0:Ю?┘nЮ:З@(196),"HOW MANY ACCOUNTS DO YOU        REQUIRE FOR THIS LISTING":Й"              ";B?щxЕB▓99 з 110?ёВH│1?■МЮ:Бе1420@
ЦЮ:W│Wл1@аЕ B┤1 з B│1@[к З@ (198),"DATE OF TRANSACTION":З:Й"                ";A(1,W)@А┤Е A(1,W)┤101 ▒ A(1,W)▓1231 з 170@Ж╛Ю@╚╚З @(195),"NUMBER OF DEPOSIT OR CHECK":З:Й"           ";A(2,W)@ь╥Е A(2,W)┤111 ▒ A(2,W)▓999 з 200@Є▄ЮA8цЗ@(197),"TYPE (D) FOR DEPOSIT            TYPE (C) FOR CHECK     "ATЁЕ A(4,W)▓0 з 320 :Д 250Ap·Е A(5,W)▓0 з 870 :Д 260Az
Y$│ ТAХ
Е Y$┤▓"D" з 280 :Д 320A░
Е Y$┤▓"C" з 230 :Д 870A╢
"ЮA└
,Бе150A╞
6КB.
@Ю:З @(198),"AMOUNT OF DEPOSIT":З:Й"             ";A(4,W):а225,2:Ю:Е A(4,W)┤1 ▒ A(4,W)▓9999.99 з 320BK
JA(6,W)│A(6,(Wм1))лA(4,W)B\
TЕ W▓9 з WW│9Bt
^Е W┤10 з M│W :Д M│9BТ
hЕ CC$│ Л(94) з 380 :Д 370BЫ
rЮ(1)B├
|Ь(8,0,1):Ь(9,0,1):Ь(8,1,1):Ь(9,1,1)B╨
ЖЗ@(0),N$B▐
РS│1:Бе420Bш
ЪS│Sл1B№
дЕ W▓9 з WW│WWм1C
оЕ W▓9 з SS│WмWWC"
╕Е W┤10 з SS│SCR
┬Е A(1,SS)▓0 з З@(0л(Sн32)),═"####";A(1,SS);CВ
╠Е A(2,SS)▓0 з З@(4л(Sн32)),═"####";A(2,SS);C▒
╓Е A(3,SS)▓0 з З @(9л(Sн32)),═"##";A(3,SS);C╒
рЕ A(3,SS)│0 з З@(9л(Sн32)),"  "D

ъЕ A(4,SS)▓0 з З @(11л(Sн32)),═"####.##";A(4,SS);D4
ЇЕ A(4,SS)│0 з З@(11л(Sн32)),"       "Di
■Е A(4,SS)▓0 з A(6,SS)│A(6,(SSм1))лA(4,SS) :Д 520DЭЕ A(5,SS)▓0 з З@(17л(Sн32)),═"####.##";A(5,SS);D╟Е A(5,SS)│0 з З@(18л(Sн32)),"       "D№Е A(5,SS)▓0 з A(6,SS)│A(6,(SSм1))мA(5,SS) :Д 550E2&Е A(6,SS)┤▓0 з З@(24л(Sн32)),═"#####.##";A(6,SS);EW+Е A(6,(Wл1))│A(6,W) з 570 :Д 560En0Е S▓8 з 570 :Д 410E{:З@(0),N$EЙDWW│0:SS│0E╞NЗ@(425),"POSITION                    THEN PRESS <ENTER>"EцSЕ A(6,(Wл1))│0 з 610 :Д 600E■XЕ TT│0 з 610 :Д 680FbА X│2 е 8F<lЬ(44,26,X):Ь(45,26,X):Ь(44,27,X):Ь(45,27,X)FHvCCC$│ ТFgАЕ CCC$│ Л(94) з 680 :Д 650FЗКЕ CCC$│ Л(13) з 1280 :Д 660FжФЕ CCC$│ Л(10) з 680 :Д 670F┤ЮЛ X:Бе610F╚иЗ@(434),"     "Fц▓Е W▓8 з X│20 :Д X│(Wн2)л2G╝Е CC$┤▓ Л(94) з 710 :Д X│2G╞А DD│2 е 8GH╨Ь(8,X,DD):Ь(9,X,DD):Ь(8,(Xл1),DD):Ь(9,(Xл1),DD)GS┌CC$│ ТGwфЕ CC$│ Л(94) ░ X▓1 з 750 :Д 790GОюЕ X▓2 з 760 :Д 770G─°Ь(8,X,1):Ь(9,X,1):Ь(8,(Xл1),1):Ь(9,(Xл1),1):X│Xм2GтW│Wм1:TT│TTл1:Е X┤2 з X│2G∙Е X│2 з 340 :Д 790HЕ CC$│ Л(10) ░ X┤21 з 800 :Д 840H6 Е X┤21 з 810 :Д 820Hl*Ь(8,X,1):Ь(9,X,1):Ь(8,(Xл1),1):Ь(9,(Xл1),1):X│Xл2HМ4W│Wл1:TT│TTм1:Е X▓20 з X│20H°>Е W▓TT з З@(32),N$:З@(384),"":З:З:З:З@(425),"POSSITION                    THEN PRESS <ENTER>":S│9:Бе410IHЕ CC$│ Л(13) з 860 :Д 850I%RЛ DD:Бе710I0\Бе1280IjfЮ:З@(198),"ACCOUNT NUMBER":Й"              ";A(3,W):ЮIpЕ A(3,W)▓B з 870IаzЕ A(3,W)┤1 ▒ A(3,W)▓99 з 870IжДЮIсОЗ @(198),"AMOUNT OF CHECK":Й"               ";A(5,W):ЮIьШа225,2JвЕ A(5,W)┤1 ▒  A(5,W)▓9999.99 з 910J0мA(6,W)│A(6,(Wм1))мA(5,W)J;╢Бе 340Jc└Ю:а225,2:Е A(6,W)┤0 з Ю4 :а 100,10 Ji╩ЮJ}╘P│0:T│0:R│0:D│0J╛▐З @(2),                  "PERIOD        "A(1,1)"THRU"A(1,W);J шЗ@(34),                 "CHECKS         "A(2,1)"THRU"A(2,W);KЄА Q│1еW:ГREM TOTALS DEPK*№P│PлA(4,Q)K2Л QKhЗ @(66),                "TOTAL DEPOSITS    =    "KиЕ P┤1000.00 з З @(88),═"####.##";P :Д З @(87),═"#####.##";PK┤$А Q│1еWK├.T│TлA(5,Q)K╦8Л QLBЗ@(98),                  "TOTAL CHECKS      =    "LDLЕ T┤1000.00 з З @(120),═"####.##";T :Д З @(119),═"#####.##";TLXVА N│1еB:R│0:Q│0Ld`А Q│1еWLЕjЕ A(3,Q)│N з R│RлA(5,Q)     LНtЛ QLЯ~Е R▓0 з D│Dл1L╕ИЕ D▓7 з 1170 :Д 1200LшТЕ D│8 з З@(418),"TO CONTINUE PRESS <ENTER>"MЬBB$│ Т:Е BB$│ Л(13) з 1190 :Д 1180MжD│1M:░Е R▓0 з З @(98л(Dн32)),═"##";NM\║Е R▓0 з З @(101л(Dн32)),F$(N)M|─Е R▓0 з З @(116л(Dн32)),"="Mж╬Е R▓0 з З @(119л(Dн32)),═"#####.##";RMо╪Л NM╝тЗ:З:З:З:ЗMфьЗ@(418),"TO CONTINUE PRESS <ENTER>"N	ЎL$│ Т:Е L$│ Л(13) з 1280 :Д 1260NЮ:З@(143),"MENU"N╔
З@(194),"CHECKS/DEPOSITS PRESS <ENTER>   PRINT REGISTER  PRESS    <1>    ADD ACCOUNTS    PRESS    <2>    LIST ACCOUNTS   PRESS    <3>    SAVE ON TAPE    PRESS    <4>"N╙
Z$│ ТNєЕ Z$┤▓ Л(52) з 1310 :Д 1460OЕ Z$┤▓ Л(51) з 1320 :Д 970O1(Е Z$┤▓ Л(13) з 1330 :Д 290OP2Е Z$┤▓ Л(49) з 1340 :Д 340Op<Е Z$┤▓ Л(50) з 1290 :Д 1350O▐FE│0:Ю:Y│99мB:З @(198),      "YOU HAVE"(Y)"ACCOUNTS.           HOW MANY ARE REQUIRED":З:Й"             ";EO·PЕ BлE▓99 з 1370 :Д 1390P░ZЙЗ:╗Й"YOUR ADDRESS                    ";YA$8ZОЗ:╗Й"YOUR CITY STATE ZIP CODE        ";YC$8ЙУЗ:╗Й"YOURS TRULY                     ";YT$8УШБе 15A:А F│1 е 5:B$│B$л" ":ЛF:A│Aл5:B│Bл5:Бе1257╦WБе 1257№ДЮ:З:╗Й"YOUR NAME                       ";YN$8+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
&
Ю&*З"WRITTEN BY MARK SCHMALE FOR"&QЗ"COPYING SOME PROTECTED DISKS ON"&m(З"TO COPYABLE BACKUPS."&Ц2З"THIS PROGRAM IS INTENDED TO MAKE";&┐<З"USER BACKUPS, NOT ILLEGAL COPIES";&хFЗ"AS THE PROGRAM STANDS, IT ONLY"'PЗ"WORKS WITH SINGLE DRIVE COPIES"',ZЗ"PLEASE SEND REVISIONS TO:"'ldЗ"MARK SCHMALE, 4013 WEST END RD., DOWNERS GROVE, IL 60515"'╖nЗ"WORKS ON SANDS OF EGYPT AND ALL AARDVARK PROGRAMS THAT I KNOW   OF."'хxЗ"PLEASE INSERT ORIGINAL AND HIT  ENTER."'ьВЙX'ЇМ└ 1(ЦХ 24000(аМ A$(5,18),B$(5,18)(,кST$│ б(128,255)(O┤╣ Г0│ Ж(&HC004)н256л Ж(&HC005)(]╛А C│1 е 6(d╚НX(l╥D│0(r▄Ю(ВцА A│Xм4 е X(СЁА B│1 е 18(Ь·Бж 630(╢
A$(D,B)│A$:B$(D,B)│B$)

З@0,═"%    %  ##  %    %  ##   %    %";"TRACK:",A,"SECTOR:",B,"LOADED")	
Л B)
"D│Dл1)
,Л A)&
6Бж 350).
@Л C)4
JК)K
TЖ 9,14,19,24,29,34)Q
^Ю)n
hЗ"THE BUFFER IS LOADED.")Т
rЗ"INSERT THE DESTINATION DISK.")м
|З"NEXT PRESS <ENTER>")╕
Жа 150,3)╨
РX$│ Т:Е X$│"" з 400)ч
ЪЕ X$┤▓ Л(13) з 400)я
дD│0)ї
оЮ*
╕А A│Xм4 е X*
┬А B│1 е 18*/
╠р0,A,B,A$(D,B),B$(D,B)*|
╓З@0,═"%    %  ##  %     %  ##  %     %";"TRACK:",A,"SECTOR:",B,"WRITTEN"*Д
рЛ B*О
ъD│Dл1*Ц
ЇЛ A*Ь
■Ю*╕З"THE BUFFER IS EMPTY."*╙З"INSERT SOURCE DISK."*эЗ"NEXT PRESS <ENTER>"*°&а150,3+0X$│ Т:Е X$│"" з 560+':Е X$┤▓ Л(13) з 560+4DАA│0 е 4+CNА B│1 е 18+]XA$(A,B)│"":B$(A,B)│""+gbЛ B,A+mlР+xvТ234,2+ДАТ 235,0+ПКТ236,A+ЫФТ 237,B+иЮТ 238,14+╡иТ 239,00+┬▓Y│ Г0(0)+╨╝P│ Ж(240)+·╞Е P│0 з ▀0,A,B,A$,B$ :Д A$│ST$:B$│ST$,╨РЕ X$│"" з 560+':Е X$┤▓ Л(13) з 560+4DАA│0 е 4+CNА B│1 е 18+]XA$(A,B)│"":B$(A,B)│""+gbЛ B,A+mlР+xvТ234,2+ДАТ 235,0+ПКТ236,A+ЫФТ 237,B+иЮТ 238,14+╡иТ 239,00+┬▓Y│ Г0(0)+╨╝P│ Ж(240)+·╞Е P│0 з ▀0,A,B,A$,B$ :Д A$│ST$:B$│ST$,╨                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ф&7
Х 5000:МC(100):МC$(100):МA(100):МB$(100):МA$(100)&иЮ:З@5,"40 COLUMN LETTER WRITER":P1│0:SW│0:З@66,"1. ENTER TEXT":З@98,"2. REVIEW TEXT":З@130,"3. PRINT LETTER"'З@162,"4. ENTER ADDRESSEE":З@194,"5. SAVE TEXT TO DISK":З@226,"6. LOAD TEXT FROM DISK":З@258,"7. KILL FILES"'hЗ@290,"8. PRINT TEXT ONLY TO PRINTER":З@322,"9. ENTER YOUR NAME & ADDRESS"'}Z$│ Т:ЕZ$│""з 30'Ь#ЕZ$│"1"з Е C▓0 з 80 :Д 100'м(ЕZ$│"2"з210'╝-ЕZ$│"3"з375'╠2ЕZ$│"4"з320'▐7ЕZ$│"5" з 485'Ё<ЕZ$│"6" з 560(AЕZ$│"7" з 735(0FЕZ$│"8"зSW1│1:З@390,"printing text":Бе450(@HЕZ$│"9"з900(JKБе 30(┴PЮ:З@64,"YOU ALREADY HAVE SOMETHING IN   MEMORY, DO YOU WANT TO":З@162,"1. ADD TO IT":З@226,"2. START A NEW LETTER"(╒UZ$│ Т:ЕZ$│""з85):ZЕZ$│"1"з 115 :Д Е Z$│"2" з А X│1еC:C$(X)│"":ЛX:C│0:DA$│"":N1$│"":N2$│"":N3$│"":N4$│"":LE│0:Бе100)D_Бе 85)sdЮ:З:Й"YOUR COLUMN PRINTER (40 80 132) ";Y1)ЩgЗ:Й"MARGIN ";M1:M1│M1лM1:LE│Y1мM1)ЯnЮ)тsЮ:З@0,"LINES IN ";C:З@15,"LETTERS >":З@47,"LENGHT    "LE:Бж310)яxA│96:B│0) }З@A, Л(128)*ВA$│ Т:ЕA$│""з130*)ЗЕA$│ Л(94)зБе850*cМЕ A$│ Л(13) з Е SW│1 з C$(N)│B$:B$│"":SW│0:P1│0:Бе210*wСЕ A$│ Л(13)з185*МЦЕ A$│ Л(92)з 195*ЧЫЗ@A,A$*╞аЕ A$│ Л(8)з A│Aм1:B│Bм1:B$│ О(B$,B):Бе 125*╫еЕ B│LE з 125*чкA│Aл1:B│Bл1*ЄпЗ@25,B+┤B$│B$лA$:Бе 125+╣C│Cл1+О╛C$(C)│B$:B$│"":B│0:A│96:Ю:Бж310:З@0,"LINES IN "C:З@15,"LETTERS ":З@47,"LENGHT    ";LE:З@298,"last line":З@320,C$(C):Бе125+м├C│Cл1:ЕB$│""з C│Cм1:Бе205+┐╚C$(C)│B$:B$│""+╔═Бе 15+╙╥T│0:Ю,	╫Е C│0 з Ю3:З@233,"NO TEXT YET";:АX│1е1000:ЛX:Бе15,▄А X│1 е 3,$сT│Tл1:ЗT,/цЗC$(T),NыЕ T│C з Бж 305:P1│1:Бе 245,]ЁЛ X:Бж 305,rїZ$│ Т:ЕZ$│""з245,ю·ЕZ$│"E"з SW│1:Й"       WHICH LINE # ";N:ЕN▓C з 250 :Д Ю:З@320,C$(N):З:З"enter WHEN FINISHED":З@47,"LENGHT    ";LE:Бе120-
 Е Z$│ Л(13)зЕP1│1 з 275-!
ЕZ$│ Л(13)зЮ:Бе220-,
	Бе 245-9
Ю:Бе 220-\
Ю:З:З:ЗDA$:ЗN1$:ЗN2$:ЗN3$:ЗN4$-g
Бж 305-|
Z$│ Т:ЕZ$│""з285-О
"ЕZ$│ Л(13)з15-Я
'ЕZ$│"E"з 320-к
,Бе 285-╦
1З:З"       enter-OK  eDIT":Р.

6З@418, Л(94);" = TAB 5":З@450,"SHIFT CLEAR -- TO END TEXT".
;Р.
@Ю:З@60.0
E╗Й"DATE    ";DA$.E
J╗Й"NAME TO ";N1$.Z
O╗Й"ADDRESS ";N2$.o
T╗Й"CIT-ZIP ";N3$.Д
Y╗Й"DEAR -- ";N4$.й
^З@320,"enter OK RETURN  nO REDO".╛
cZ$│ Т:ЕZ$│""з355.╬
hЕZ$│"N"з320.р
mЕZ$│ Л(13)з15.ы
rБе 355/
wЮ:З@10,"PRINTING":Е LE┤41 з T1│30:T2│MAм1:Бе385/.
|T1│31:T2│8/>
БЗ#м2,д5)YN$/N
ЖЗ#м2,д5)YA$/^
ЛЗ#м2,д5)YC$/g
ХЗ#м2/t
ЪЗ#м2,DA$/}
ЯЗ#м2/К
дЗ#м2,N1$/Ч
йЗ#м2,N2$/д
оЗ#м2,N3$/н
│З#м2/╞
╕З#м2,"Dear ";N4$;","/╧
╜З#м2/▌
┬А X│1 е C/ь
╟З#м2,C$(X)/Ї
╠Л X0
╤Е SW1│1зSW1│0:Бе150'
╓З#м2:З#м2,"Yours turly"0H
█З#м2:З#м2,YT$:АX│1е4:З#м2:ЛX0R
рБе 151
хЗ@387,"LOADING PREVIOUS FILE NAMES":Бж 610:З:З"WHAT NAME WOULD YOU LIKE TO FILETHIS UNDER.  IT CAN NOT BE ONE  THAT HAS ALREADY BEEN ENTERED.                                  LIMIT TO 8 CHARACTERS.15
ъЗ:З"enter TO RETURN"1R
яЙ"------- ";V$:ЕV$│""з151b
ЇV$│ О(V$,8)1q
∙Щ"O",#1,V$1Ц
■┘ #1,C,DA$,N1$,N2$,N3$,N4$,LE,MA1еА T│ 1 е C1┤┘ #1,C$(T)1╝
Л T1┼Ъ #11┘LL│FFл1:FF│FFл11шNM$(LL)│V$1√!VV│ З(NM$(LL))2#&Е VV┤8 з NM$(LL)│NM$(LL)л" ":Бе 5452-+Бе 152U0З@387,"LOADING PREVIOUS FILE NAMES"2Р5Бж 610:З"enter TO RETURN":Й"YOUR CHOICE ";V$:ЕV$│""з152а:V$│ О(V$,8)2п?Щ"I",#1,V$2╘DЙ #1,C,DA$,N1$,N2$,N3$,N4$,LE,MA2уIА T│ 1 е C2ЄNЙ #1,C$(T)2·SЛ T3XЪ #13]Бе 2103bА X│3 е 1130g▀ 0,17,X,A$,B$3IlC$ │ A$ л  О(B$,127)3`qNAM$(0) │  О(C$,8)3yvEXT$(0) │  Р(C$,9,3)3З{А N│1 е 73еАNAM$(N) │  Р(C$,Nн32л1,8)3├ЕEXT$(N) │  Р(C$,9лNн32,3)3╦КЛ N3┘ПА N│0 е 74ФЕ EXT$(N) │ "DAT" ░  О(NAM$(N),1)┤▓ Л(0) з O│Oл1:NM$(O)│NAM$(N)4%ЩЛ N4-ЮЛ X4BгFF│O:A$│"":B$│""4HнП4N▓Ю4i╖З@7,"FILES IN STORAGE"4x╝А Y│1 е FF4Б┴Н HH4С╞З@HH,NM$(Y)4Щ╦Л Y4е╨N│0:O│04л╒Р5R┌Ж 33,43,53,65,75,85,97,107,117,129,139,149,161,171,181,193,203,213,225,235,245,257,267,277,289,299,309,321,331,341,353,363,373,385,395,405,417,427,437,449,459,4695_▀Ю:Бж 6855АфЗ:Й"WHICH TO KILL";K$:KK$│K$5█щЗ:З"FINAL CHANGE TO SAVE -> ";K$:З"IF YOU WANT TO KILL HIT enter   ELSE HIT n TO SAVE"5ёюZ$│ Т:ЕZ$│""з 75067єЕ Z$│"N" з З: З"     thanks for saving me":А T│ 1 е 1500:ЛT:Бе 156z°Е Z$│ Л(13) з З:З"     killing ";K$:K$│K$л"/DAT":╥ K$:Ю:Бж 7956А¤█6гЗ:З"       ANOTHER kill (Y/N)"6╕Z$│ Т:ЕZ$│""з7756╦Е Z$│"Y" з 7406▌Е Z$│"N" з 156шБе 7756юП6№ K│ З(KK$)7%Е K┤8 з KK$│KK$л" ":Бе8007)*А Y│1 е FF7I/Е NM$(Y)│KK$ з NM$(Y)│"---"7Q4Л Y7_9А Y│1е FF7h>Н HH7xCЗ@HH,NM$(Y)7АHЛ Y7ЖMР7└RЕ B┤35 з З@A:А F│1 е 5:B$│B$л" ":ЛF:A│Aл5:B│Bл5:Бе1257╦WБе 1257№ДЮ:З:╗Й"YOUR NAME                       ";YN$8+ ╝&A	`:ГTHIS PROGRAM SORTS DATA FILE CHECKS/DAT BY ACCOUNT NUMBER&`	j:ГOR BY CHECK NUMBER OR BY&x	t:Г DATE OF DOCUMENT&	~:Г&Ж	И:Г&Н	Т:Г&Ш	ЬХ 2000&и	жМ CHK$(150)&о	░Ю&╡	║:Г&═	─З@107,"SELECTIONS:"&э	╬З@162,"SORT YOUR CHECKS BY"'	╪З@198,"1) TYPE OF ACCOUNT"',	тЗ@230,"2) DATE OF DOCUMENT"'K	ьЗ@262,"3) DOCUMENT NUMBER"'f	ЎЗ@329,"( 1, 2, OR 3 )"'q
AN$│ Т'Г

T │ 0 : U │ 0'К
:Г'а
Е AN$ │ "" з 2560'└
(И  Й(AN$) Бж 2750,2780,2810'╟
2:Г'╬
<:Г'╒
F:Г'▄
P:Г'∙
ZЩ "D",#1,"CHECKS/DAT",41(
d╨ #1,41  з INFO$("
nА I │ 1 е  е(1)(-
x─ #1,I(A
ВCHK$(I) │ INFO$(I
МЛ I(U
ЦCNT │ 0(m
аА I │ 1 е  е(1) м 1(y
кБе 2850(А
┤:Г(П
╛T│33 : U│3(Х
╚Р(б
╥Бе 2460(н
▄T│1:U│8(│
цР(┐
ЁБе 2460(╦
·T│9:U│4(╤Р(▌Бе 2460(ф:Г)"Е  Р(CHK$(I),T,U) ┤│  Р(CHK$(Iл1),T,U) з 2900)*,TEMP$ │ CHK$(I))B6CHK$(I) │ CHK$(Iл1))X@CHK$(Iл1) │ TEMP$)dJCNT │ 1)lTЛ I)Б^Е CNT │ 1 з 2710)ЗhЮ)▒rЗ@194,"WHAT ACCOUNT NUMBER (NNN/ALL)")╗|Й AN$)╧ЖА I │ 1 е  е(1)*РЕ AN$ ┤▓ "ALL" ░ AN$ ┤▓  Р(CHK$(I),33,3) з 3150*	ЪЮ*:дЗ@66,"ACCOUNT NUMBER:":З@85, Р(CHK$(I),33,3)*pоЕ  Р(CHK$(I),13,20)│"                    " з 3050*Ю╕З@98,"DATE OF CHECK:":З@117, О(CHK$(I),8)*╬┬З@130,"CHECK NUMBER:":З@149, Р(CHK$(I),9,4)*√╠З@162,"PAID TO:":З@181, Р(CHK$(I),13,20)+>╓З@194,"AMOUNT OF CHECK:":З@212,═"$$####.##";м в( П(CHK$(I),6))+JрБе 3080+zъЗ@98,"DATE OF DEPOSIT:":З@117, О(CHK$(I),8)+мЇЗ@130,"DEPOSIT NUMBER:":З@149, Р(CHK$(I),9,4)+Є■З@162,"AMOUNT OF DEPOSIT:":З@180,═ "$$####.##";  в( П(CHK$(I),6)),З@290,"(PRESS <ENTER> TO SEE NEXT",@З@322,"RECORD OR <R> TO RETURN TO",ZЗ@354,"'SELECTIONS')",g&A2$ │  Т,Б0Е A2$ │  Л(13) з 3150,Ш:Е A2$ │ "R" з 3160,дDБе 3110,мNЛ I,╡XЪ #1,╗bК OF DEPOSIT:":З@180,═ "$$####.##";  в( П(CHK$(I),6)),З@290,"(                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  <ENTER> TO SEE NEXT",@З@322,"RECORD OR <R> TO RETURN TO",ZЗ@354,"'SELECTIONS')",g&A2$ │  Т,Б0Е A2$ │  Л(13) з 3150,Ш:Е A2$ │ "R" з 3160,дDБе 3110,мNЛ I,╡XЪ #1,╗bК OF DEPOSIT:":З@180,═ "$$####.##";  в( П(CHK$(I),6)),З@290,"(                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &dВ: CHECKBOOK&;nВ: (C) 1981, TOM RUGG & PHIL FELDMAN&FxХ 50:Ю&_ВЗ"** CHECKBOOK **":З&iЦMC│10&uаМ C(MC)&Р┤E$│"ERROR.  RE-ENTER."&░╛З"FIRST, BE SURE YOUR BANK"&╘╚З"STATEMENT AND CHECKBOOK SHOW"&√╥З"THE SAME FIGURES FOR EACH CHECK"'▄З"AND DEPOSIT LISTED ON THE"'0цЗ"STATEMENT.":З'W
З"WHAT'S THE ENDING BALANCE SHOWN"'u
"З"ON THE STATEMENT?":Й SB'Ь
,З"NOW FIND THE MOST RECIENT CHECK"'╜
6З"THAT IS ON THE STATEMENT."'ф
JЗ"WHAT IS THE CHECK NUMBER OF IT?"'э
TЙ LC(
^L$│"NO MORE ROOM."(

|З(/
ЖЗ"WHAT BALANCE IS SHOWN IN YOUR"(S
РЗ"CHECKBOOK AFTER CHECK NO.";LC(^
ЪЙ CB:З(Е
оЗ"ENTER THE AMOUNT OF ANY DEPOSIT"(к
╕З"SHOWN IN YOUR CHECKBOOK PRIOR"(╦
┬З"TO CHECK";LC;"THAT IS NOT"(ф
╠З"ON THE STATEMENT.")
╓A$│"ENTER 'END' WHEN DONE":З A$)"
рЙ R$:Е R$│"END" з 540)7
ЇЕ  Й(R$)▓0 з 520)G
■З E$:Бе 470)`ND│NDл1:TD│TDл Й(R$))kБе 480)З"TOTAL =";TD:З)г&З"NOW ENTER THE AMOUNTS OF ANY")╚0З"CHECKS IN THE CHECKBOOK PRIOR")ы:З"TO CHECK";LC;"THAT HAVE NOT"*DЗ"YET BEEN SHOWN ON A STATEMENT."*XЗ A$*#bЗ R$*8lЕ R$│"END" з 690*MvЕ  Й(R$)▓0 з 660*]АЗ E$:Бе 600*ВФNC│NCл1:C(NC)│ Й(R$):TC│TCлC(NC)*ФЮЕ NC┤MC з 610*ЭиЗ L$*▒▓З"TOTAL =";TC:З*╒╝З"NOW ENTER THE AMOUNTS OF ANY"*№╞З"SERVICE CHARGES OR DEBIT MEMOS."+╨З A$+┌Й R$+#фЕ R$│"END" з 790+8юЕ  Й(R$)▓0 з 770+H°З E$:Бе 720+aNS│NSл1:TS│TSл Й(R$)+lБе 730+АЗ"TOTAL =";TS:З+М Бж 2000+м*W│SBлTDлTSмCBмTCмTR:W│ В(W)+┐/Е W▓.001 з 840+╫4W│0:З"IT BALANCES!"+т>Бе 850,HЗ"SORRY, IT'S OUT OF BALANCE.":а 117,5:а 89,3,1RЗ:З"STATEMENT BALANCE +",O\З"DEPOSITS OUTSTANDING +",qfЗ"SERVICE CHARGES =";SBлTDлTS,ОpЗ:З"CHECKBOOK BALANCE +",кzЗ"CHECKS OUTSTANDING +",╠ДЗ"RECENT DEPOSITS =";CBлTCлTR,фОЗ:З"DIFFERENCE =";W,ъШЗ,ЁвК-╨З"ENTER THE AMOUNT OF ANY DEPOSIT"-<┌З"SHOWN ON YOUR CHECKBOOK AFTER"-_фЗ"CHECK NO.";LC;"THAT IS ALSO"-юЗ"LISTED IN THE STATEMENT."-ИЗ A$-СЙ R$-зЕ R$│"END" з 2130-╜ Е  Й(R$)▓0 з 2100-╬*З E$:Бе 2050-ч4NR│NRл1:TR│TRл Й(R$)-є>Бе 2060.RЗ"TOTAL =";TR:З.
\РEPOSIT"-<┌З"SHOWN ON YOUR CHECKBOOK AFTER"-_фЗ"CHECK NO.";LC;"THAT IS ALSO"-юЗ"LISTED IN THE STATEMENT."-ИЗ A$-СЙ R$-зЕ R$│"END" з 2130-╜ Е  Й(R$)▓0 з 2100-╬*З E$:Бе 2050-ч4NR│NRл1:TR│TRл Й(R$)-є>Бе 2060.RЗ"TOTAL f& dВ: SORT AN ALPHABETIC LIST&KnВ: (C) 1981, TOM RUGG AND PHIL FELDMAN&VВХ 8000&iМN│800:E$│"END"&|ЦМ A$(N):Бж 600&ДаK│1&ФкЕ K▓N з 250&░┤З K;:Й R$:Е R$│E$ з 250&┬╛Е R$│"" з 180&▄╚A$(K)│R$:K│Kл1:Бе 170&Є·K│Kм1:Е K▓0 з 300'

З"**NO INPUT**":а 98,5'
Бе 160'1
,З K;"ITEMS ENTERED."'?
6а 89,30:Ю'O
^Е K│1 з 500'b
hА J│K е 2 й м1's
rR$│A$(1):F│1'Б
|А L│2 е J'Я
ЖЕ A$(L)▓R$ з R$│A$(L):F│L'║
РЛ:A$(F)│A$(J):A$(J)│R$'└
ЪЛ'╬
ЇА J│1 е K'р
■З J;д4);A$(J)'цЛ'ь&К'ЄXЮ(	bЗ"**SORT A LIST**"(lЗ('vЗ"ENTER EACH ITEM."(@АЗ N;"ITEMS MAXIMUM."(_КЗ"'";E$;"' ENDS THE LIST."(eФР$│A$(1):F│1'Б
|А L│2 е J'Я
ЖЕ A$(L)▓R$ з R$│A$(L):F│L'║
РЛ:A$(F)│A$(J):A$(J)│R$'└
ЪЛ'╬
ЇА J│1 е K'р
■З J;д4);A$(J)'цЛ'ь&К'ЄXЮ(	bЗ"**SORT                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ъ
Бе10100H
З Л(191);:I$│ Т:ЕI$│""зАX│0е5:Л:З Л(8);:Бе1:ДЗ Л(8);:РbF│ Ю(F1,A$(V),"$"):Р ~З:З"current date: ";DA$Ы╗ЙI$:ЕI$┤▓""зDA$│I$:Р:ДР╦
LC$│CC$:LD$│CD$:LA│CA:LB│CB:LS$│CS$:LN$│CN$'З@96,═S4$;LC$;:З"  "LD$:З@108,═SS$;LA:З@119,═SS$;LB;:З б(63,32);:З@128,═SN$;LS$;:ЗLN$:Р╝F1│1:V│CRм1:Бж2:LC$│ Р(A$(V),F1,FмF1):F1│Fл1:Бж2:LD$│ Р(A$(V),F1,FмF1):LS$│ Р(A$(V),Fл1,1):LN$│ Р(A$(V),Fл3, З(A$(V))мFл3):LA│A(V,0):LB│A(V,1):РЇCC$│LC$:CD$│LD$:CA│LA:CB│LB:CS$│LS$:CN$│LN$:ЕF1│2зРVЗ@PS,═S4$;CC$;:З"  "CD$:З@PSл12,═SS$;CA:З@PSл23,═SS$;CB;:З б(63,32);:З@PSл32,═SN$;CS$;:ЗCN$:РщF1│1:V│CR:Бж2:CC$│ Р(A$(V),F1,FмF1):F1│Fл1:Бж2:CD$│ Р(A$(V),F1,FмF1):CS$│ Р(A$(V),Fл1,1):CN$│ Р(A$(V),Fл3, З(A$(V))мFл3):CA│A(V,0):CB│A(V,1):РЕCR▓1зCR│CRм1:Бж14:Бж12:Бж11:Р:ДРeЕCR┤LRм1зCR│CRл1:Бж10:Бж16:Бж15:Р:ДБж10:З@224, б(95,32):FG│0:ЕCR┤LR зCR│CRл1:Р:ДР▒ЕI$│ Л(13)зCC│CCл1:CC$│ И(CC):   CC$│ П(CC$, З(CC$)м1):З@224,═S4$;CC$:Р√ЕVI▓0зЗ═"#";VI;:╗ЙI$:CC$│ И(VI)лI$:CC$│ П(CC$, З(CC$)м1):CC│ Й(CC$):РCC$│"DEP":З@224,CC$;:Р  5CC$│"ADJ":З@224,CC$;:Р  QCC$│"CORR":З@224,CC$;:РuЗ@229,"";:╗ЙI$:ЕI$┤▓""зCD$│I$  ОЗ@229,═"%   %";CD$  ┼ З@236,"";:ЕFG┤▓1з╗ЙI$:I│ Й(I$):ЕI┤▓0зCA│I :Д:ДCA│0┌"З@236,═SS$;CA;:Р¤$Е Й(CC$)│0зCB│CBлCA :ДCB│CBмCA8%З@247,═SS$;CB;:З═SN$;CS$;:╗ЙI$:ЕI$┤▓""зCN$│I$:ДCN$│" "~&A$(CR)│CC$л"$"лCD$л"$"л О(CS$,1)л"$"лCN$:A(CR,0)│CA:A(CR,1)│CB:Р м(CR│CRл1:LR│CR:Бж10:З@224, б(95,32):FG│0:Р▀2З@8,RC$,"ITEM  DATE     AMOUNT   BALANCE":Р   
4З@352,"LAST BANK BALANCE ";:З═SS$;BB:РQ6З@384,"<ENTER> =NEXT CHECK #","1ST DIGIT STARTS NEW # SERIES":Р   е8З@448,"dEPOSIT aDJUSTMENT vOID cLEARED eDIT sAVE lOAD nEW MONTH " Л(94)"'S";:Р т:З@448,"dEPOSIT aDJUSTMENT vOID","eDIT sAVE" Л(94)"'S";:Р¤<Бж22:Бж30:Бж36:Бж40:Р >Бж26:Бж30:Бж36:Бж40:Р1@Бж28:Бж30:Бж36:Бж40:РbBI$│ Л(13):Бж22:FG│1:Бж30:Бж36:FG│0:Бж40:Р   ЪDЗ@320,"REVIEW ENTRIES         ";:PO│335:FG│1:Бж17:РЎdЮ:PS│224:Бж50:Бж52:Бж54:Бж56:З@128, б(192,32):CR│LR:Бж12:Бж11:F1│2:Бж14:F1│0:CC│ Й(CC$)*nЗ@320,"ENTER OUTSTANDING ITEMS        ";:PO│224gxЗ@PO,"";:Бж1:VI│ Й(I$):ЕFG│0░(VI▓0▒ I$│ Л(13))Бж60:Бе120ьВJ│ Ю(1,"DAVCESLN"л Л(94)л Л(10),I$):ЕFG│0зИJ Бж62,64,66,160,200,900,950,400,68,18:ДИJ Бж2160,2160,2160,160,200,900,950,400,17,18■МЕJ▓4 ░J┤9з100ЦЕCR│LR з110:Д120lаЕCS$│"O"зCS$│"C":Бж15:Бж38:Е О(CC$,4)┤▓"CORR"зЕ Й(CC$)│0зBB│BBлCA :ДBB│BBмCA :Д:Д170РеЗ@371,"";:З═SS$;BB;:З@343,"";:Р╪кCS$│"O":Бж15:Бж38:Е О(CC$,4)┤▓"CORR"зЕ Й(CC$)│0зBB│BBмCA :ДBB│BBлCA№пЗ@371,"";:З═SS$;BB;:З@343,"";:РА╚Ю:Бж50:З@72,"UNEDITED ENTRY":З@201,"EDITED ENTRY":З@321,"TYPE FIELD ENTRY CORRECTION"," <enter> FOR NEXT FIELD":ЕFG│1зTF│1:FG│0╥I$│ Т:PS│96:Бж16:Бж15:З@224, б(95,32);:З@416,"nEW #, dEP, aDJ, -=DELETE, +=ADDUP/DOWN ARROWS, rETURN   ";:PS│224:CT$│CC$:TA│CAm╫Бж1:ЕI$│ Л(13)зЗ@224,CC$;:Бе240:ДJ│ Ю(1,"NDA-+R"л Л(94)л Л(10),I$):ИJ Бж220,26,28,225,230,217,235,237Ъ╪ЕFG│1зFG│0:Бе210:ДЕI$┤▓"R"з:Бе240:ДFG│TFа┘Р▌▄З@224,"";:Бж1:VI│ Й(I$):ЕI$│"A"зБж28:ДЕI$│"C"зБж29:ДБж22у▌Р VсАX│CR еLRм2:A$(X)│A$(Xл1):A(X,0)│A(Xл1,0):Е Й(CC$)▓0зA(X,1)│A(Xл1,1)лCA:CB│CBлCA :ДA(X,1)│A(Xл1,1)мCA:CB│CBмCA ▒уЛ:З@96, б(95,32);:CC$│"":CD$│""::CA│0:CS$│"":CN$│"ITEM DELETED":CR│CRм1:LR│LRм1:FG│1:Р!IцCC$│" ":CD$│" ":CS$│" ":CA│0:TA│0:CN$│"MAKE NEW ENTRY":FG│1:АX│LR еCRл1йм1:A$(X)│A$(Xм1):A(X,0)│A(Xм1,0):A(X,1)│A(Xм1,1):Л:CB│A(Xм1,1):LR│LRл1:Бж38!└шPS│96:Бж16:Бж15:З@416,"nEW #, dEP, aDJ, -=DELETE":З б(28,32);:PS│224:Бж1:FG│0:J│ Ю(1,"NDA-",I$):ИJ Бж220,26,28,225!╥ъЕJ▓0з240:Д232"ыFG│1:ЕCR▓1зCR│CRм1:Бж16:PS│96:Бж15:PS│224:Р:ДР";эFG│1:ЕCR┤LRм1зCR│CRл1:Бж16:PS│96:Бж15:PS│224:Р:ДР"КЁЗ@416, б(45,32):Бж30:Е Й(CT$)│0зЕ Й(CC$)│0зTA│CAмTA:Бе242:ДTA│мTAмCA:Бе242"нёЕ Й(CC$)│0зTA│TAлCA :ДTA│TAмCA#ЄЗ"TA"TA,"CA"CA;:АX│1е2000:Л: АX│CR еLRм1:A(X,1)│A(X,1)лTA:Л:CB│A(CR,1):З@247,═SS$;CB;:╗ЙI$:ЕI$┤▓""зCS$│I$#CЇЗ@256,═SN$;CS$;:╗ЙI$:ЕI$┤▓""зCN$│I$#\ЎЗ@259,CN$:Бж38:Бе210#╩
РЮ:З@8,RC$,"   STRIP & SAVE CLEARED ITEMS",,,,,д8)"tAPE",,,,д8)"dISK",,:Бж1:ЕI$│"D"зD│1:ДЕI$│"T"зD│м1:Д400#ў
ЪЗ:З:ЕD│м1зЗ"  TAPE FILE":ДЗ"  DISK FILE"$!
ЯЗ:З"FILENAME";:ЕD│1зЗ" AND EXTENSION"$Z
д╗ЙCF$:Бж4:CT│0:АCR│1еLRм1:Бж16:ЕCS$│"C"зCT│CTл1:Л:ДЛ$л
йЩ"O",D,CF$:З#D,CTл1:З#D,BB:З#D,CB:З#D,AN$:З#D,BA$:З#D,AC$:З#D,DA$:АCR│1еLRм1$х
оБж16:ЕCS$│"C"зЗ#D,A$(CR):З#D,A(CR,0):З#D,A(CR,1):Л:ДЛ%e
│Ъ:CT│0:Щ"O",D,NM$л"/BAK":З#D,LR:З#D,BB:З#D,CB:З#D,AN$:З#D,BA$:З#D,AC$:З#D,DA$:АX│1еLRм1:З#D,A$(X):З#D,A(X,0):З#D,A(X,1):Л:Ъ%─
╕Ъ:CT│0:АCR│1еLRм1:Бж16:ЕCS$│"O"зCT│CTл1:A$(CT)│A$(CR):A(CT,0)│A(CR,0):A(CT,1)│A(CR,1):Л:ДЛ%Ё
╜АX│CTл1еLRм1:A$(X)│"":Л:LR│CTл1:CR│CT:Р&X:ГTARGET L                                                                                                                                                                                                                                                                                  ╚┼┴╟╟┴╔├!"#─%╚'(┬*╟├├./┴                    CHEKBOOKBAS ЭCHECKBK BASALPHSORTBASiCHECKSTOBAS$┴SORTCHEKBAS┐CHECKS  DATPRICE Q BAS&LETTER  BASЧCALENDARBAS)ъCOPIER  BASTITLE   BAS+─CHECKS  BAS+FILES   BAS,!HOUSE   BAS-gMATH    BASФ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                INE                605 BP=PEEK(150):BU=INSTR(1,"16*18**41******87**************180",RIGHT$(STR$(BP),LEN(STR$(BP))-1)):BU=9600/BU&ш]Т65494,0:BP│ Ж(150):BU│ Ю(1,"16*18**41******87**************180", П( И(BP), З( И(BP))м1)):BU│9600оBU'[bЮ:З@137,"PRINT ROUTINES",,,"    CURRENT BAUD RATE ="BU,д6)"RESET BAUD RATE",,,"    PRINT",,,,"    RETURN":CT│1(gCT$│ П( И(CT),1):LP│ Ю(1,"      1 2 3",CT$):LP│LPн32л2:З@LP,">";:Бж1:З@LP," ";:ЕI$│ Л(10)░CT┤3зCT│CTTл1:Бе615:ДЕI$│ Л(94)░CT▓1зCT│CTм1:Бе615:ДЕI$┤▓ Л(13)з615:ДИCT Бе620,630,100(АlЗ" ";:Й"ENTER NEW BAUD RATE";BU$:BU$│ О(BU$,1):BL│ Ю(1,"361249",BU$):ЕBL│0зЗ"baud rate error":а100,50:Бе605(╤qBU(1)│180:BU(2)│87:BU(3)│41:BU(4)│18:BU(5)│6:BU(6)│1:BU│BU(BL):Т150,BU:Бе605)wvЮ:З@96,"SET PRINTER AND PAPER AND PRESS any key.":Бж1:АX│1е3:З#м2," ":Л:З#м2,д8)"ACCOUNT NAME:   "AN$:З#м2,д8)"BANK NAME:      "BA$:З#м2,д8)"ACCOUNT NUMBER: "AC$*!АБж4:З#м2,д8) "DATE PRINTED:    "DA$:З#м2," ":З#м2,д8)"CALCULATED BALANCE AT BANK ="BB:З#м2," ":З#м2,д8)"CHECK# DATE     AMOUNT   BALANCE  STATUS NOTE":З#м2," ":PG│13*╢КАCR│1еLRм1:Бж16:З#м2,д9)"";:З#м2,═"%  %";CC$;:З#м2,═"  %   %";CD$;:З#м2,д22)"";:З#м2,═SS$;CA;:З#м2,д32)"";:З#м2,═SS$;CB;:З#м2,"    "CS$"    "CN$+ПPG│PGл1:ЕPG▓61зАX│1е7:З#м2," ":Л:З#м2,д8)"CHECK# DATE  AMOUNT   BALANCE  STATUS NOTE":З#м2," ":PG│5+;ФЛ:АX│PG е67:З#м2," ":Л:Р+┐ДЮ:З@8,RC$,"      SAVE OR PRINT DATA",,,,,д8)"tAPE",,,,д8)"dISK",,,,д8)"pRINTER":Бж1:ЕI$│"D"зD│1:ДЕI$│"T"зD│м1:ДЕI$│"P"з600:Д900+╟ЙБж4,AОБж985:Щ"O",D,NM$:З#D,LR:З#D,BB:З#D,CB:З#D,AN$:З#D,BA$:З#D,AC$:З#D,DA$:АX│1еLRм1:З#D,A$(X):З#D,A(X,0):З#D,A(X,1):Л:Ъ:Р,Э╢Ю:З@8,RC$,д11)"LOAD DATA",,,,,д8)"tAPE",,,,д8)"dISK":Бж1:ЕI$│"D"зD│1:ДЕI$│"T"зD│м1:Д950-└Бж985:Щ"I",D,NM$:Й#D,LR,BB,CB:╗Й#D,AN$:╗Й#D,BA$:╗Й#D,AC$:╗Й#D,DA$:Бж970:АX│1еLRм1:Й#D,A$(X):Й#D,A(X,0):Й#D,A(X,1):Л:Ъ-[┬CR│1:Бж16:Е Й(CC$)│0зA(0,1)│A(1,1)мA(1,0):ДA(0,1)│A(1,1)лA(1,0)-Е┼З:З"PRESS ANY KEY TO CONTINUE ":Бж1:Р-¤╩Ю:З@98,"FILENAME= "NM$:З:З"  ACCOUNT INFORMATION":З:З"NAME: "AN$:З"BANK: "BA$:З"ACCT #: "AC$:З"FILE UPDATED: "DA$:Р.$┘З:ЕD│м1зЗ"TAPE FILE":ДЗ"DISK FILE".^▐З:З"FILENAME";:ЕD│1зЗ" AND EXTENSION: ",NM$:ДЗ": "NM$.{у╗ЙI$:ЕI$┤▓""зNM$│I$:Р:ДР.Ч╨Х3500:МA$(100),A(100,1)/
RC$│"RAINBOW CHECKBOOK":SS$│"##,###.##":SN$│"% %":CR│1:LR│1:S4$│"%  %":CS$│"O":A$(0)│" $ $ $FIRST ENTRY BELOW"/v4Ю:З@2,"    checkbook version 1.0":З@47,"BY":З@73,"RICHARD WHITE":З:З:З:Зд8)"lOAD FILE":З:Зд8)"nEW FILE"/а>Бж1:ЕI$│"L"Бж950:Бе100:ДЕI$┤▓"N"з2110/ CЮ:З@96," enter account name":╗ЙAN$:З:З" enter bank name":╗ЙBA$:З:З" enter account #":╗ЙAC$0╜HЮ:Бж50:З:З:З"ENTER LAST BANK STATEMENT       BALANCE  ";:╗ЙI$:BB│ Й(I$):З@128, б(64,32):З@128,"note:  REPORTED CHECKBOOK       BALANCE WILL NOT MATCH YOUR     BALANCE UNTIL OUTSTANDING"19MЗ"CHECKS, CHARGES, DEPOSITS  AND   CREDITS AT STATEMENT TIME ARE   ENTERED.";:Бж1:CB│BB:Бж52:Бж54:Бж56:З@128, б(192,32)1tRЗ@320,"ENTER OUTSTANDING ITEMS        ";: PO│224:PS│PO1│\З@PO,"";:Бж1:VI│ Й(I$):ЕFG│0░(VI▓0▒ I$│ Л(13))Бж60:Бе2140 2fJ│ Ю(1,"DAVES"л Л(94)л Л(10),I$):ЕFG│0зИJ Бж62,64,66,200,900,68,18:ДИJ Бж2160,2160,2160,200,900,17,182-kЕJ│5 зБе1002DmЕCR│LR з2130:Д21402JpР2Y'╪"RNBWCKBK2g't└1:Бе20002ЩN АX│0е64:З@X, Л(32лX):З@Xл96, Л( Ж(1024лX));:Л I$│ Л(13))Бж60:Бе2140 2fJ│ Ю(1,"DAVES"л Л(94)л Л(10),I$):ЕFG│0зИJ Бж62,64,66,200,900,68,18:ДИJ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ╛&
:Г CHECKBOOK PROGRAM&!:Г&W:Г THIS PROGRAM PROVIDES A RECORD OF YOUR CHECKS,&Р(:Г DEPOSITS, AND BALANCES, THE CHECKS CAN BE LABELED&╞2:Г WITH AN ACCOUNT NUMBER TO SHOW TO WHAT EXPENCE'<:Г THEY WERE PAID, SUCH AS MEDICAL, MORTGAGE, FOOD, ETC.'?F:Г THE PROGRAM USES DIRECT ADDRESSING, EACH FILE RECORD'xP:Г BEING 41 BYTES LONG, AND FORMATTED AS FOLLOWS:  8'┤Z:Г BYTES FOR THE DATE, 4 BYTES FOR THE CHECK OR DEPOSIT'Ёd:Г SLIP NUMBER, 20 BYTES FOR THE RECIPIENT OF THE CHECK(+n:Г 3 BYTES FOR THE ACCOUNT NUMBER, AND 6 BYTES FOR THE(Rx:Г AMOUNT OF THE CHECK OR DEPOSIT.(YВ:Г(dМХ 2000(tЦМ CHK$(150)(zаЮ(ТкЗ@107,"SELECTIONS:"(╣┤З@162,"1) ADD CHECKS TO YOUR FILE"(ф╛З@194,"2) LIST YOUR CHECKS, DEPOSITS,"(¤╚З@229,"AND BALANCES")$╥З@258,"3) DELETE OR CORRECT ENTRY")<цЗ@290,"4) END JOB?")XЁЗ@394,"(1, 2, 3, OR 4)")c·AN$│ Т)v
Е AN$│"" з 250)Щ
И  Й(AN$) Бж 310,700,1080,1560)д
Бе 160)л
":Г)▓
,:Г)┌
6:Г THIS SUBROUTINE INPUTS THE DATA.)с
@:Г)■
JЩ "D",#1,"CHECKS/DAT",41*>
T╨ #1,8  з DATE$,4  з CHNO$,20  з PDTO$,3  з ACNO$,6  з AMT$*N
^REC │  е(1)*`
hREC │ REC л 1*f
rЮ*З
|З@64,"CHECK OR DEPOSIT(C/D)"*Ф
ЖAN$ │  Т*к
РЕ AN$ │ "D" з 430*└
ЪЕ AN$ │ "C" з 490*╦
дБе 390*ю
оЙ "DEPOSIT DATE (MM/DD/YY)";D$+
╕Й "DEPOSIT SLIP NUMBER(NNNN)";C$+
┬P$ │ ""+?
╠Й "ACCOUNT NUMBER (NNN)";A$+]
╓Й "AMOUNT OF DEPOSIT";AMT+h
рБе 550+Й
ъЙ "CHECK DATE (MM/DD/YY)";D$+и
ЇЙ "CHECK NUMBER (NNNN)";C$+╗
■Й "PAID TO";P$+█Й "ACCOUNT NUMBER (NNN)";A$+ўЙ "AMOUNT OF CHECK";AMT,AMT │ мAMT,&╘ DATE$ │ D$,(0╘ CHNO$ │ C$,9:╘ PDTO$ │ P$,JD╘ ACNO$ │ A$,_N╘ AMT$ │  ж(AMT),lX┼ #1,REC,Д]Е FLG$│"SET" з 2340,вbЗ@320, "MORE INPUT (Y/N)",пlAN$ │  Т,┼vЕ AN$ │ "N" з 660,█АЕ AN$ │ "Y" з 360,цКБе 620,яФЪ #1,їЮР,№и:Г-▓:Г-J╝:Г THIS SUBROUTINE BALANCES THE CHECKBOOK AND OUTPUTS THE RESULTS.-Q╞:Г-n╨Щ "D",#1,"CHECKS/DAT",41-о┌╨ #1,8  з DATE$,4  з CHNO$,20  з PDTO$,3  з ACNO$,6  з AMT$-┤фЮ-їюЗ@160,"DO YOU WANT A LISTING FOR A":З@192,"MONTH OR FOR THE".°З@224,"WHOLE YEAR? (M/Y)".Й A$.IЕ A$│"M" з З@256,"WHAT MONTH (MM)":Й MN$.UBAL │ 0.k А REC │ 1 е  е(1).x*─ #1,REC.С4BAL │ BAL л  в(AMT$).╝>Е A$ │ "M" ░  О(DATE$,2) ┤▓ MN$ з 1030.┬HЮ.эRЕ PDTO$ │ "                    " з 930/\З@64,"DATE OF CHECK:":З@84,DATE$/3fЗ"CHECK NUMBER:":З@116,CHNO$/OpЗ"PAID TO:":З@148,PDTO$/wzЗ@160,"ACCOUNT NUMBER:":З@180,ACNO$/мДЗ"AMOUNT OF CHECK:":З@211,═"$$####.##";м в(AMT$)/╘ОЗ"BALANCE:":З@243,═ "$$####.##";BAL/▀ШБе 9800вЗ:З:З"DATE OF DEPOSIT:":З@85,DATE$0.мЗ"DEPOSIT SLIP NUMBER:":З@117,CHNO$0Q╢З"ACCOUNT NUMBER:":З@149,ACNO$0И└З"AMOUNT OF DEPOSIT:":З@180,═ "$$####.##"; в(AMT$)0░╩З"BALANCE:":З@212,═ "$$####.##";BAL0√╘З@256,"PRESS <ENTER> FOR NEXT RECORD OR <R> TO RETURN TO 'SELECTIONS'"1▐AN$ │  Т1"шЕ AN$ │  Л(13) з 103019ЄЕ AN$ │ "R" з 10401D№Бе 9901NЛ REC1WЪ #11]Р1i8Бж 17101tBБе 1601{:Г1В:Г1▒:Г THIS SUBROUTINE TERMINATES THE PROGRAM.1╕":Г1╛,К1що:Г THIS SUBROUTINE CORRECTS OR DELETES2
╕:Г ENTRIES IN CHECKBOOK DATA2┬:Г2╠FLG$│""29╓Щ"D",#1,"CHECKS/DAT",412xр╨#1,8  з DATE$,4  з CHN0$,20  з PDTO$,3  з ACNO$,6  з AMT$2~ъЮ2╗ЇЗ@160,"DO YOU WANT TO CORRECT OR DELETETHE ENTRY (C/D)?"2─■Й Z$2╪Е Z$│"C" з 22602ьЕ Z$│"D" з 18602є:Г2·&:Г30Ъ #13	:Р3 D:Г FIND THE RECORD3'N:Г3=XА REC │ 1 е  е(1)3Kb─ #1, REC3QlЮ3vvЗ@64,"DATE OF CHECK:":З@84,DATE$3ЧАЗ"CHECK NUMBER:":З@116,CHNO$3│КЗ"PAID TO:":З@148,PDTO$3█ФЗ@160,"ACCOUNT NUMBER:":З@180,ACNO$4ЮЗ"AMOUNT OF CHECK:":З@211,═"$$####.##";м в(AMT$)4(иЕ FLG$│"SET" з 22704/▓:Г46╝:Г4=╞:Г4q╨З@256,"DO YOU REALY WANT TO DELETE THIS(Y/N)??"4z┌Й X$4РфЕ X$ │ "N" з 21504аюD$│"      "4о°C$│"    "4╠P$│"                    "4┘A$│"   "4ъ╘ DATE$ │ D$4√ ╘ CHNO$ │ C$5*╘ PDTO$ │ P$54╘ ACNO$ │ A$53>╘ AMT$ │ "      "5AH┼ #1, REC5MRБе 22005Y\Бе 22005cfЛ REC5{pЕ FLG$│"SET" з 21505Вz:Г5ЙД:Г5РО:Г5оШЗ@320,"MORE INPUT (Y/N)?"5╗вAN$ │  Т5╨мЕ AN$│"N" з 18205х╢Е AN$│"Y" з 18605∙└Е AN$│"" з 22106╩Бе 17706╘FLG$│"SET":Бе 18606P▐З@256,"DO YOU REALY WANT TO CHANGE THIS(Y/N)??"6YшЙ W$6mЄЕ W$│"N" з 21506Б№Е W$│"Y" з 23306Н	Бе 18406Ф	:Г6Я	Бе 3706л	$FLG$│""6╖	.Бе 22006╜	8КЕ AN$│"N" з 18205х╢Е AN$│"Y" з 18605∙└Е AN$│"" з 22106╩Б                                                                                                                                                                                                                                                                 &
:ГBY PAUL A. SCHALLOWITZ&4:Г119 COUNTY FAIR&P:ГHOUSTON, TEXAS  77060&X:Гc&c
Х 4000&wT$│"SUB TOTAL-"&ЛU$│"TAX-------"&ЯW$│"DELIVERY--"&│W$│"TOTAL-----"&└#МA$(100)&═(МI$(100)&┘-МX(100)&х2МD(100)&є7М N (100)'
<М O (100)'
AМE(400)'FМF(200)'nKPR$│"####      %                                   %   $##,###.##  $###,###.## "'┴PPS$│"                                              %             %$###,###.##"'╠UБе 225'╥ZЮ'┌_X│1'юdЗ"PRICE QUOTES"(i╗Й"TODAY'S DATE ";A$(nЗ"SALESPERSON":ЙG$(>sЗ"TAX (.05 .06 .00 ???)":ЙB(OxЗ"TERMS":ЙH$(q}З"IS ABOVE CORRECT (Y/N)":ЙZ$(ГВЕ Z$│"N" з 90(ЙЗЮ(вМЗ"COMPANY NAME":Й B$(╡СЗ"ADDRESS":ЙC$(тЦ╗ Й"CITY,STATE ZIP                  ";D$(ЇЫЗ"ATTN: ":ЙE$)	аЗ"PHONE # ":Й F$)6еЗ:З"HOW MANY DAYS IS QUOTE GOOD FOR":ЙJ$)ZкЗ:З"IS ABOVE CORRECT (Y/N)":ЙZ$)lпЕ Z$│"N"з 135*+░Ю:З:╗Й"YOUR COMPANY NAME               ";NAME$:╗Й"ADDRESS                         ";ADDRESS$:╗Й"CITY STATE ZIP                  ";CITY$:╗Й"PHONE # ";PHONE$:З:З"    IS ABOVE CORRECT  Y/N"*@▒Z$│ Т:ЕZ$│""з177*P▓ЕZ$│"N"з176*V┤Ю*^╣З X*v╛З:З"QUANITY":Й D(X)*Ю├З:З"MAKE MODEL DESCRIPTION":Й I$(X)*╜╚З:З"PRICE PER UNIT":Й E(X)*ц═З:З"    eND      nO    enter OK":ЙZ$*°╥Е Z$│"N"з 180+╫Е Z$│"E" з 225+▄X│Xл1:Бе 180+"сЮ+>цЗ:З:З"1> REVIEW QUOTES"+RыЗ:З"2> PRINTER"+kЁЗ:З"3> SAVE ON DISK"+ЖїЗ:З"4> LOAD FROM DISK"+Э·З:З"5> INPUT DATA"+╡ З:З"6> KILL A FILE"+╟
З:З"CHOOSE ^"+▄
	Z$│ Т:ЕZ$│""з265+щ
Z│ Й(Z$)+ 
Е Z┤1 ▒ Z▓6 з 265,
ЕZ│2зЗ@457,"printing",;
И Z Бе 285,490,670,725,90,905,X
Ю:З:З:З"DATE        ";A$,o
"З"SALESPERSON ";G$,Е
'З"TAX         ";B,Ь
,З"TERMS       ";H$,│
1З"SHIPPING    ";S$,╩
6З"NAME        ";B$,с
;З"ADDRESS     ";C$,°
@З"CITY STATE  ";D$-
EЗ"ATTN        ";E$-&
JЗ"PHONE #     ";F$-=
OЗ"DAYS-QUOTE  ";J$-S
TЗ"# OF ITEMS  ";X-h
YZ$│ Т:ЕZ$│""з345-t
^А A│1еX-z
cЮ-Л
hЗ A " OF " X-в
mЗ:З"QUANITY:" D(A)-╗
rЗ:З"ITEM   : " I$(A)-╥
wЗ:З"PRICE  :" E(A)-¤
|З:З:З"      cHANGE     enter OK, ":ЙZ$.
БЕ Z$│"C" з 400.
ЖЛ A.#
ЛБе 225.)
РЮ.C
ХЗ"FILE "A" TO CHANGE".I
ЪЗ.`
ЯЗ:З"QUANITY: "D(A).v
дЗ"ITEM   : "I$(A).Л
йЗ"PRICE  : "E(A).С
оЗ.░
│З"    cHANGE       rETURN".┼
╕Z$│ Т:ЕZ$│""з440.╪
╜Е Z$│"R" з 390.ю
┬З:Й"QUANITY";D(A)/
╟Й"ITEM   ";I$(A)/
╠Й"PRICE  ";E(A)/<
╤З:З"    cHANGE        OK rETURN"/R
╓Z$│ Т:ЕZ$│""з 470/e
█Е Z$│"C" з 400/x
рЕ Z$│"R" з 390/Г
хБе 470/в
ъЗ#м2,д30)"PRICE QUOTATION"/╡
яЗ#м2:З#м2:З#м2/┼
ЇЗ#м2, Л(31)/╪
∙З#м2,д10)NAME$/є
■З#м2:З#м2,д10)ADDRESS$0З#м2:З#м2,д10)CITY$0$З#м2:З#м2,д10)PHONE$04
З#м2, Л(30)0FЗ#м2,д1)"TO-"0dЗ#м2,д4)B$;д45)"DATE: "A$0ЙЗ#м2,д4)C$;д45)"SALESPERSON: "G$0и!З#м2,д4)D$;д45)"TERMS: "H$0▒&З#м20╚+З#м2,д4)"ATTN: "E$0╤0З#м215З#м2,д4)"PHONE # "F$;д45)"QUOTE GOOD FOR " J$ " DAYS"1k:З#м2:З#м2,"* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *"1о?З#м2:З#м2,"QUANITY";д16)"DESCRIPTION";д55)"PRICE";д67)"AMOUNT"1╖DЗ#м21├IА A│1еX1╓NF(A)│E(A)нD(A)1∙SЗ#м2,═PR$;D(A);I$(A);E(A);F(A)2XG│GлF(A)2]Л A2-bЗ#м2:З#м2,д63)"----------"2EgЗ#м2:З#м2,═PS$;T$;G2OlH│GнB2gqЗ#м2:З#м2,═PS$;U$;H2svI│HлGлC2Л{З#м2:З#м2,═PS$;W$;I2ЫАЗ#м2, Л(31)2│ЕЗ#м2,д5)"THANK YOU"2├КЗ#м2, Л(30)2╙ПЗ#м2,д10)G$2фФH│0:I│0:G│0:2яЩБе 2253ТЮЮ:З@32,"WHAT NAME WOULD YOU LIKE TO FILETHIS UNDER.  IT CAN NOT BE ONE  THAT HAS ALREADY BEEN ENTERED.                                  LIMIT TO 8 CHARACTERS.3ЪгЗ:З3ниЙ"------- ";V$3╜нV$│ О(V$,8)3╠▓Щ"O",#1,V$3Ї╖┘ #1,A$,G$,B,H$,B$,C$,D$,E$,F$,J$,X4╝А T│1еX4┴┘ #1,D(T),I$(T),E(T)4!╞Л T4*╦Ъ #145╨Бе 2254Ч╒Ю:З@130,"ENTER NAME TO LOOK FOR                   OR                     '1' TO SEE LIST":ЙV$4├┌Е V$│"1" з Бж 785:Й"WHICH TO ENTER ";V$4╘▀Е V$│""з 2254ффV$│ О(V$,8)4єщЩ"I",#1,V$5	юЕ IOF(1)│м1 з 77551єЙ #1,A$,G$,B,H$,B$,C$,D$,E$,F$,J$,X5?°А T│1 е X5X¤Й #1,D(T),I$(T),E(T)5`Л T5iЪ #15tБе 2855ГА X│3 е 115Ц▀ 0,17,X,A$,B$5пC$ │ A$ л  О(B$,127)5╞ NAM$(0) │  О(C$,8)5▀%EXT$(0) │  Р(C$,9,3)5э*А N│1 е 76/NAM$(N) │  Р(C$,Nн32л1,8)6)4EXT$(N) │  Р(C$,9лNн32,3)619Л N6?>А N│0 е 76ГCЕ EXT$(N) │ "DAT" ░  О(NAM$(N),1)┤▓ Л(0) з O│Oл1:NM$(O)│NAM$(N)6ЛHЛ N6УMЛ X6ЩRП6иWА L│ 1 е O6┤\Н HH(L)6╝aЛ L6┬fЮ6╨kА Y│1 е O6уpЗ@HH(Y),NM$(Y)6ыuЛ Y6ўzN│0:O│06¤Р7дДЖ 33,43,53,65,75,85,97,107,117,129,139,149,161,171,181,193,203,213,225,235,245,257,267,277,289,299,309,321,331,341,353,363,373,385,395,405,417,427,437,449,459,4697├ЙЮ3:З@265,"LOADING";:Бж 7857▌ОЗ:Й"WHICH TO KILL";K$86УЗ:З"FINAL CHANCE TO SAVE->";K$:З"IF YOU WANT TO KILL HIT enter   ELSE HIT n TO SAVE"8KШZ$│ Т:ЕZ$│""з9208ИЭЕZ$│"N" з З:З"thanks for saving me":А T│1е1500:ЛT:Бе 2258╬вЕZ$│ Л(13) з З:З"killing ";K$;" good by":K$│K$л"/DAT":╥ K$:Бж 7858ызЗ:З"HIT enter TO RETURN"9мЕ  Т│""з 940 :Д 225YOU WANT TO KILL HIT enter   ELSE HIT n TO SAVE"8KШZ$│ Т:ЕZ$│""з9208ИЭЕZ$│"N" з З:З"thanks for saving me":А T│1е1500:ЛT:Бе 2258╬вЕZ$│ Л(13) з З:З"killing ";K$;" good by":K$│K$л"/DAT":╥ K$:Бж 7858ызЗ:З"HIT enter TO RETURN"9мЕ  Т│""з 940 :Д                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ч&В
Ю:З@163,"HELLO, MY NAME IS MARTHA":АI│1е16:а Д(32)л128,1:Л:З:З"TODAY I AM SHOWING THE CALENDAR PRESS A KEY TO CONTINUE":Х500&ХМM$(12),R$(12)&кА I│1е12:НM$,A:Л&╚(А I│1е12:НM$(I),R$(I):Л:П&╓2Е Т│""з50&√<T$│"==========================="'FЮ:Зд7)"***MAIN MENU***":З'OPЗ"A SHOW CALENDAR ON SCREEN":З"B PRINT CALENDAR "'oZЗ"C INSTRUCTIONS":З"Q QUIT"'ДdA$│ Т:ЕA$│""з100'ФnЕA$│"A"з160'мxЕA$│"B"зDN│м2:Бе180'╝ВЕA$│"C"з670'╠МЕA$│"Q"з320'╓ЦБе100(!аЮ:а200,1:З@160,"":Й"ENTER THE MONTH";M$:а200,1:АM│1е12:НA$,N:ЕM$┤▓A$зЛ(WкП:ЕM│13зЗ"YOU MISSPELLED THE MONTH":а100,20:Бе160(z┤Ю:З@163,"":Й"ENTER THE YEAR";Y(л╛Ю:C│Yл Б(Yо4)м Б(Yо100)л Б(Yо400)м Б(Yо4000)(ў╚F│( Б(Yо4000)│Yо4000)м( Б(Yо400)│Yо400)л( Б(Yо100)│Yо100)м( Б(Yо4)│Yо4))╥Е DN│м2 з DN│0:Бе500)*▄АI│1еM:НM$,N:ЕI│2зN│F)gцC│CлN:Л:П:C│CмFмN:C│Cм7н Б(Cо7):C$│M$л" "л И(Y):ЕM│2зN│F)╖Ёа200,1:З:Зд16м З(C$)о2);C$:З"  "T$:З"  SUN MON TUE WED THU FRI SAT":З"  "T$)т·АI│1еNл28:Зд4нCл1);I;:C│Cл1:ЕC▓6зC│0:З)Ё
Л:ЕC┤▓0зЗ*(
З"  "T$:З"  "M$(M):З"  "R$(M):З"  PRESS F, B, OR M"*I
Q$│ Т:ЕQ$│""з280:ДЕQ$│"M"з70*k
"ЕQ$│"F"зM│Mл1:ЕM│13зM│1:Y│Yл1*О
,Е Q$│"B"зM│Mм1:ЕM│0зM│12:Y│Yм1*л
6ЕQ$│"F" ▒Q$│"B"з190:Д280+
@Ю:З@160,"HOPE I HAVE BEEN HELPFUL":З"HAVE A GOOD DAY":А I│1е16:а Д(32)л128,1:Л:К+

ЇJ│6:Ю+L
■З@163,"PRESS I TO INCLUDE REMINDERS    PRESS O TO OMIT THEM."+aA$│ Т:ЕA$│""з520+xЕA$│"I"зRF│1:Бе560+ЙЕA$┤▓"O"з520+Щ&З#м2, Л(31)+о0Ю0:C│Cм7н Б(Cо7)+╗:А M│1е12+╫DНM$,D:D│Dл28:ЕM│2зD│DлF+ЎNM$│M$л И(Y):J1│20м З(M$)о2,7XЗ#м2,дJ1)M$:З#м2,дJ)"SUN MON TUE WED THU FRI SAT":З#м2,дJ)T$,QbА I│1еD:ЕC▓6зC│0:З#м2,jlЗ#м2,дJл4нCл(I▓9))I;,ЗvC│Cл1:Л:З#м2:З#м2,дJ);T$,░АЕ RF з З#м2,дJ);M$(M):З#м2,дJ);R$(M),┬КЗ#м2:Л:RF│0:П,╦ФБе70-lЮЮ:З"THIS PRORAM CALCULATES THE      GREGORIAN CALENDAR WHICH WAS    SET UP IN 1582, ADOPTED IN THE  UNITED STATES IN 1752, AND      CHANGED SLIGHTLY SINCE.".иЗ"THE GREGORIAN CALENDAR IS GOOD  FOR ALL TIME. HOWEVER DATES YOU MAY FIND LISTED FOR EVENTS PRIORTO 1752 MAY NOT BE IN TERMS OF  THE GREGORIAN CALENDAR.";.С▓З" AND IF":З"YOU USE THIS PROGRAM TO PLAN FARINTO THE FUTURE YOU MAY FIND THECALENDAR HAS BEEN CHANGED AGAIN WHEN WE GET THERE.".┤╝З:З"PRESS A KEY TO CONTINUE.";.├╞Е Т│""з710/;╨Ю:З"THE TV SCREEN WILL HOLD ONE     MONTH AT A TIME. YOU MUST ENTER THE MONTH (SPELL IT OUT) AND    THEN THE YEAR."0┌З"THE PROGRAM WILL THEN CALCULATE AND DISPLAY THE MONTH ALONG WITHSOME REMINDERS FOR THAT MONTH.  YOU MAY THEN PRESS B TO GO BACK ONE MONTH, PRESS F TO GO FORWARDONE MONTH, OR PRESS M TO GO BACKTO THE MENU."01фЗ:З"PRESS A KEY TO CONTINUE."0@юЕ Т│""з7501°Ю:З"THE MONTHLY REMINDERS ARE STOREDIN DATA STATEMENTS STARTING WITHLINE 1010 FOR JANUARY AND GOING TO LINE 1120 FOR DECEMBER. THEREARE TWO DATA ITEMS PER LINE FOR EACH MONTH WHICH YOU MAY CHANGE TO SUIT.";1АЗ" THEN SAVE THE PROGRAM":З"AND WHEN YOU USE IT AGAIN YOUR  PERSONAL DATA STATEMENTS WILL   BE PRINTED."1вЗ:З"PRESS A KEY TO CONTINUE."1▒Е Т│""з79026 Ю:З"YOU MAY HAVE ANY YEAR PRINTED ONYOUR LINE PRINTER. A YEAR FITS  NEATLY ON TWO SHEETS IF THE DATASTATEMENTS ARE NOT PRINTED."2╢*З"THE PROGRAM IS DESIGNED FOR THE LINE PRINTER VII. FOR OTHERS YOUMAY NEED TO CHANGE THE RELEVANT VALUES IN LINES 500-650."2╪4З:З"PRESS A KEY TO CONTINUE."2ч>Е Т│""з8302ёHБе 703dшЖJANUARY,3,FEBRUARY,0,MARCH,3,APRIL,2,MAY,3,JUNE,2,JULY,3,AUGUST,3,SEPTEMBER,2,OCTOBER,3,NOVEMBER,2,DECEMBER,33ЧЄЖ REMINDER FOR JANUARY,SECOND JANUARY REMINDER3╬№Ж VALENTINE DAY ON 14TH.,WINTER CAMPING THIS MONTH4
Ж START GARDEN THIS MONTH,FLY KITES THIS MONTH4;Ж WIFE'S BIRTHDAY ON 4TH.,WEDDING ANNIVERSARY ON 6TH.4vЖ OCEAN FISHING THIS MONTH,DON'T PLANT TOO MUCH GARDEN4▒$Ж CHILDREN'S BIRTHDAY 23RD.,MAKE VACATION RESERVATIONS4╘.Ж FIREWORKS ON 4TH.,THINK COOL58Ж METEOR SHOWER ON 15TH.,SEASHORE THIS MONTH FOR SURE5EBЖ BACK TO WORK ON 16TH.,WEEKEND FISHING THIS MONTH5xLЖ HALLOWEEN ON 31ST.,FOOTBALL GAMES THIS MONTH5пVЖ THANKSGIVING THIS MONTH,START THINKING CHRISTMAS5ц`Ж SHORTEST DAY ON 21ST.,NO NEW YEAR'S RESOLUTIONS!ON 15TH.,SEASHORE THIS                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ┴&'З:З:З:Й"  YOUR TITLE";A1$&Ы'З:Й"  COUNT ALL LETTERS AND SPACES  IN THE TITLE.  (IF RESULT IS AN ODD NUMBER, ADD +1.  DIVIDE THE RESULT BY 2.  L=";L&о'$З:Й"  16-L=";T&┤'.Ю&╟'8А I│ 1 е 6:З:Л&╘'BЗ дT)A1$&ь'LЗ д10)"JOSEPH KOLAR'	'VЗ д7)"INVERNESS, FLORIDA'"'`┐ 0,1:А Z│1 е 1500:Л'Р(<З@416,"  IF YOU ARE SATISFIED WITH THE TITLE, PRESS <ENTER> ELSE PRESS <BREAK><RUN> AND TRY AGAIN.";:Й O1'¤(FЮ:З:З:З"  RETYPE LINES 10000 TO 10020.  REMEMBER TO PLACE QUOTE MARKS   AROUND YOUR TITLE IN LINE 10000.(T(PЗ:З" 10000 A1$=(YOUR TITLE)          10010 L=(LENGTH/2)              10020 T=16-L.(└(ZЗ:З"  DELETE LINES 10300-10330 AND  APPEND THIS TO YOUR MAIN PRO-   GRAM.  DON'T FORGET TO LINK IT  UP!ER TO PLACE QUOTE MARKS   AROUND YOUR TITLE IN LINE 10000.(                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &1
Ю:З:З:З" *** FILE PRACTICE PROGRAM ***":З:З&УЗ"CHOOSE ONE:":З:З"1> CREATE A FILE":З"2> READ A FILE":Й"3> END PROGRAM";CH:И CH Бе30,120,180&нЩ"D",#1,"PRAC/DAT",20&╬(╨#1,4 з IV$,4 з MO$,12 з CN$&╓2I│0&°<Й"ENTER INVOICE #";X$:╘IV$│X$'FЙ"      AMOUNT   ";X$:╘MO$│X$'=PЙ"      CUST. NAME";X$:╘CN$│X$'IZ┼#1,Iл1'dЙ"DO YOU WISH TO DO ANOTHER ";X$:Е О(X$,1)│"Y"з60'ЗnЪ#1'бxЩ"D",#1,"PRAC/DAT",20'┬В╨#1,4 з IV$,4 з MO$,12 з CN$'╥МR│Rл1:─#1,R'√ЦЗ"RECORD ";R;" : ":З,IV$:З,MO$:З,CN$(аЕ  е(1)┤▓R з130(кЪ#1(┤К"      CUST. NAME";X$:╘CN$│X$'IZ┼#1,Iл1'dЙ"DO YOU WISH TO DO ANOTHER ";X$:Е О(X$,1)│"Y"з60'ЗnЪ#1'бxЩ"D",#1,"PRAC/DAT",20'┬В╨#1,4 з IV$,4 з MO$,12 з CN$'╥МR│Rл1:─#1,R'√ЦЗ"RECORD ";R;" : ":З,IV$:З,MO$:З,CN$(                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 d&Ю&'
З:З"          HOUSE COST":З&gЙ" DO YOU NEED THE INTRODUCTION?   (Y/N)";I$:Е I$│"Y"з98:Д3&oЮ:З&ЦЗ" PICK  OPTION YOU WANT TO USE":З&╖З" (1) MORTAGE PAYMENT ONLY"&╓З" (2) THE WHOLE ANALYSIS"'З:Й" ENTER CHOICE PLEASE";C$:Е C$│"2"з8:Д57'В CASH ON HAND'	Ю'=
З:╗Й" TODAY'S DATE  ";TD$'БЗ:Й" DO YOU ALREADY KNOW YOUR CASH   ON HAND POSITION (Y/N)";A$'СЕ A$│"Y"з26'Ы
Ю:З:З'■З" PLEASE ENTER THE $ VALUE FOR    EACH ITEM IN THE NEXT SECTION.  PRESS ANY KEY TO CONTINUE."(Е  Т│"" з 15 (Ю(4Й" SAVINGS ACCOUNTS $";SA(RЙ" SAVINGS BONDS    $";SB(qЙ" CHECKING ACCOUNTS $";CA(РЙ" MONEY MARKET ACCT $";MM(░Й" CREDIT UNION ACCT  $";CU(╨Й" CERTIFICATES (CD)  $";CD(ёЙ" COOKIE JAR          $";CJ)
CH│SAлSBлCAлMMлCUлCDлCJ)Бе27)NЗ:З:Й" ENTER $VALUE OF CASH ON HAND       ";CH:Бе29)nЮ:З@ 96," CASH ON HAND "TD$)З@170," $"CH)жЗ@256," PRESS ANY KEY TO CONTINUE")╢Е  Т│""з 30)▐В CALCULATE MONTHLY MORTAGE PAYMENT* Ю:З:╗Й" WHAT HOUSE ARE WE LOOKING AT    ";HN$*.!Й" WHAT IS THE PRICE ";HP*}"Й" IS DOWNPAYMENT A PERCENT OR AN  AMOUNT SET BY SELLER OR YOU?(P,A) ";DP$*П#Е DP$│"P"з 38*╩$Й" WHAT IS THE $VALUE SET BY THE   SELLER OR YOU. ";DP*╙%Бе40*∙&Й" WHAT IS THE % DOWN NEEDED ";PP+'DP│ Б(PPо100нHP)+=(Ю:З@64," FOR THE HOUSE YOU CALL:":З"  "HN$+U)З@192," PRICE= $"HP+s*З@224," DOWNPAYMENT= $"DP+Ч+З@256," MORTAGE WILL BE $"HPмDP+г,M│HPмDP+╕-ЕDP▓CH з 48 :Д46+▌.ЕDP│┤CH ░ DP▓(CHм3200)з 49 :Д 47+№/ЕDP┤(CHн.8м3200) з50 :Д 51,O0З" THE DOWN PAYMENT "DP:З" EXCEEDS YOUR CASH  "CH:З " DO NOT TRY TO BUY":Бе 52,о1З" YOUR CASH= $"CH:З" TO MY WAY OF THINKING THIS IS   TOO CLOSE. PLEASE RECONSIDER.":Бе 52,щ2З" YOUR CASH= $"CH:З" GOOD. NOW CHECK PAYMENTS.": Бе52-3З" YOUR CASH= $"CH:З" POSSIBLE. CHECK PAYMENTS"-@4З" TO CONTINUE PRESS ANY KEY "-P5Е  Т│""з 53-X6Ю:З-▓7З" ENTER INTEREST RATE AND NUMBER  OF YEARS FOR MORTAGE":Й" % INTEREST";I:Й" YEARS";Y-╜8З:Бе59.9Ю:З" JUST ENTER AMT OF LOAN,INTEREST RATE,AND NUMBER OF YEARS.":З.>:Й"AMOUNT OF LOAN ";M:Й" INTEREST RATE ";I:Й" YEARS ";Y.i;N│Yн12:I│Iо1200:Z│MнI:Q│(1лI)пмN:W│1мQ.z<A│ Б(ZоWл.5).Ь=З"MORTAGE",:З ═"#######.##";M.╞>З"MONTHLY PAYMENT",:З ═"#######.##";A.ё?З" TOTAL COST",:З ═"#######.##";Aн12нY/"@З" TOTAL INTEREST",:З ═"#######.##";Aн12нYмM/8AЕC$│"1"з 66 :Д 68/aBЙ" WANT ANOTHER CALCULATION(Y/N)";B$/yCЕ B$│"Y"з 57 :Д 108/ЫDЗ" PRESS ANY KEY TO CONTINUE"/кEЕ  Т│""з69/█FВ MONTHLY EXPENSE BUDGET VS. MONTHLY INCOME.0GЮ:Й" PLEASE ENTER YOUR AVERAGE TAKE  HOME PAY PER WEEK ";TH:З0АHЙ"  ENTER AMOUNT OF AUTOMATIC       SAVINGS SUCH AS BONDS           DEDUCTED  EACH WEEK.";II:З0╜IЙ" ENTER $/MONTH FOR ANY CURRENT   LOAN PAYMENTS. ";IP:З1JЙ" ENTER YEARLY PREMIUM COST FOR   INSURANCE SUCH AS LIFE,HEALTH,  AND CAR ETC.";IN:З1`KЙ" ENTER ESTIMATED HEATING COSTS   FOR THE HOUSE YOU MAY BUY. ";YH:З1НLMI│ Б((THлII)н4.3):HC│YHо12:IC│ Б(INо12)1═MTI│ Б(.0015нHP):UK│50:CS│ Б(.15нMI):LE│400:CE│100:UT│HCл1001юNEX│AлIPлICлTIлUKлCEлCSлLEлUT2OЮ:З:З" THE FOLLOWING DATA IS FOR"2?PЗ:З" HOUSE "HN$:З" AND DATA AS OF "TD$2TQА X│1 е 1000:Л X2yRЮ:З" MONTHLY INCOME VS EXPENSE."2ЯSЗ" HOUSE PAYMENT",:З ═"####.##";A2┬TЗ" TAX & INS",:З ═"####.##";TI2щUЗ" UPKEEP ALLOW.",:З ═"####.##";UK3VЗ" OTHER LOANS",:З ═"####.##";IP33WЗ" LIVING EXP.",:З ═"####.##";LE3WXЗ" OTHER INS.",:З ═"####.##";IC3zYЗ" UTILITIES",:З ═"####.##";UT3аZЗ" CAR EXPENSE ",:З ═"####.##";CE3╚[З" CHARITY & SAVE",:З ═"####.##";CS3▄\З,"-----------"3 ]З" TOTAL EXP",:З ═"####.##";EX4%^З" TOTAL INCOME",:З ═"####.##";MI4=_Е MI│▓EX з 96 :Д 974Ъ`З" GOOD SHAPE IF DOWNPAYMENT OK.":Й"DO YOU WISH TO TRY ANOTHER HOME";QQ$:Е QQ$│"Y"з1:Д К4°aЗ" YOU CANNOT HACK IT AT  PRESENT":Й"DO YOU WISH TO TRY ANOTHER HOME";QQ$:Е QQ$│"Y"з1:Д К5bЮ:З5ЪcЗ" THIS PROGRAM IS INTENDED TO     HELP THE YOUNGER HOME BUYER     BY CHECKING HIS ABILITY TO      MEET BOTH DOWNPAYMENT AND THE   MONTHLY PAYMENTS."6@dЗ" THE OBJECTIVE IS TO PREVENT     YOU FROM GETTING INTO A DEBT    THAT IS UNREASONABLE RELATIVE   TO YOUR FINANCIAL POSITION.":З"      IT IS NOT THE FINAL WORD.6beЗ:З" HIT ANY KEY TO CONTINUE"6zfЕ  Т│""з 102 :Д 1036ВgЮ:З7&hЗ" YOU WIIL SEE A MENU GIVING YOU  TWO CHOICES. PICK (1) IF ALL    YOU WANT TO DO IS CACULATE THE  THE MONTHLY PAYMENTS FOR SOME   SPECIFIC MORTAGE $ VALUE.":З7йiЗ" YOU SHOULD PICK (2) IF YOU ARE  LOOKING FOR A COMPLETE REVIEW   OF YOUR ABILITY TO PAY FOR THE  HOUSE UNDER CONSIDERATION."7╦jЗ:З" TO GET MENU HIT ANY KEY"7сkЕ  Т│""з 107 :Д 38lЗ" IT'S BEEN A PLEASURE TO HELP":К8GmВ "HOUSE$" (C) R.GIOVANONI,HAGERSTOWN,MD. JUNE 1983. REV.28cn:ГRAINBOW 3/84 PAGE 164EVIEW   OF YOUR ABILITY TO PAY FOR THE  HOUSE UNDER CONSIDERATION."7╦jЗ:З" TO GET MENU HIT ANY KEY"7сkЕ  Т│""з 107 :Д 38lЗ" IT'S BEEN A PLEASURE T