0/╝Р/
╞:Г/-@В ** OUTPUT DATA TO DISK **/YJВ THIS SECTION IS LEFT FOR YOU TO WRITE/sTЗ@0,"NOT IMPLEMENTED"/И^А W│1 е 2000:Л W/ОhР/Хr:Г/╣#(В ** OUTPUT DATA TO CASSETTE **/х#2В THIS SECTION IS LEFT FOR YOU TO WRITE/ #<З@0,"NOT IMPLEMENTED"0#FА W│1 е 2000:Л W0#PР DATA TO DISK **/YJВ THIS SECTION IS LEFT FOR YOU TO WRITE/sTЗ@0,"NOT IMPLEMENTED"/И^А W│1 е 2000:Л W/ОhР/Хr:Г/╣#(В ** OUTPUT DATA TO CASSETTE **/х#2В THIS SECTION IS LEFT FOR YOU TO WRITE/ #<З@0,"NOT IMPLEMENTED"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
№&51:ГTEST TRACKS & SECTORS FOR          I/O ERRORS&@2Х 1000&OdА T│0 е 34&^xА S│1 е 18&pВ▀ 0,T,S,A$,B$&КЗЗ"TRACK";T,"SECTOR";S&ХМЗA$,B$&ЯЦЛ S,T&еЫК&╞Я:ГFIGURE OUT GRANULE NUMBERS'аА T│0 е 34:А S│1 е 18 й 9:З"TRACK=";T;"    SECTOR=";S;" G";GR:GR│GRл1:Л :Л'кК'0
+:ГMAKE UNUSUABLE':
,Х 500'Z
1Q│44::Г 44 IS A GRANULE NO.'m
6▀ 0,17,2,A$,B$'Д
@ Р(A$,Q,1)│ Л(201)'Ч
Jр 0,17,2,A$,B$'Э
^К'╖
є:ГTEST FOR I/O ERRORS'█
ЇА X│1 е 67:╪  И(X)л"INOUT/BAS":'є
■Е  Ж(345)│247 з 510'√Л X;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
&dВ ** MAIN MENU **&nЮ&8xЗ@73,"PIE GRAPH MENU";&ZВЗ@166,"1. INPUT INFORMATION";&~МЗ@230,"2. PRELIMINARY DRAWING";&ЭЦЗ@294,"3. OUTPUT RESULTS";&╛аЗ@416,"ENTER THE NUMBER OF";&скЗ@448,"THE SELECTION DESIRED";&№╚В ** ITEM SELECTION **'╥A$│ Т'▄Е A$│"" з 210'7цИ  Й(A$) Бж 1000,2000,3000'BЁБе 110'I·:Г'`шВ ** INPUT INFO **'fЄЮ'Г№Й "NUMBER OF SECTIONS";N'мЙ "CENTER OF CIRCLE (X,Y)";X(0),Y(0)'╟Й "RADIUS OF CIRCLE";R'╥P(0)│0'р$А Z│1 е N'ў.З"% OF SECTION";Z;' 8Й P(BP(Z)│P(Zм1)лP(+LA(Z)│P(Zм1)н3.1416о50(DVX(Z)│X(0)лRн Х(A(Z))(]`Y(Z)│Y(0)лRн Е(A(Z))(ejЛ Z(ktР(r~:Г(Т╨В ** PRELIMINARY DRAWING **(Ш┌Ю(ифЙ "PMODE";M(░ю╚ M(╢°╝(└┐ 1,0(╚C│1(█┬(X(0),Y(0)),R(щ А Z│1 е N)**Е Z┤N з XC│(X(Zл1)лX(Z)м2нX(0))о4 :Д XC│(X(Z)лX(1)м2нX(0))о4)m4Е Z┤N з YC│(Y(Zл1)лY(Z)м2нY(0))о4 :Д YC│(Y(Z)лY(1)м2нY(0))о4м2)М>╗(X(0),Y(0))м(X(Z),Y(Z)),╜)зH├(X(0)лXC,Y(0)лYC),C,4)╛RC│Cл1: Е C│4 з C│2)╞\Л Z)╨fA$│ Т)уpЕ A$│"" з 2150)щzР)ЁД:Г*╕В ** OUTPUT RESULTS ***┬Ю*+╠З@73,"OUTPUT OPTIONS"*J╓З@166,"1. GRAPH TO SCREEN"*jрЗ@230,"2. GRAPH TO PRINTER"*ЕъЗ@294,"3. OUTPUT DATA"*еЇЗ@416,"ENTER THE NUMBER OF"*╟■З@448,"THE SELECTION DESIRED"*╬:Г*щВ ** ITEM SELECTION ***є&A$│ Т+0Е A$│"" з 3110+%:И  Й(A$) Бж 2000,4000,5000++DР+2N:Г+VаВ ** OUTPUT GRAPH TO PRINTER **+ЕкВ THIS SECTION IS LEFT FOR YOU TO COMPLETE+Я┤З@0,"NOT IMPLEMENTED"+┤╛А W│1 е 2000:Л W+║╚Р+┴╥:Г+┘ИВ ** OUTPUT DATA **+▀ТЮ+ЎЬЗ@73,"OUTPUT DATA",жЗ@102,"1. TO PRINTER",)░З@166,"2. TO SCREEN",@║З@230,"3. TO DISK",[─З@294,"4. TO CASSETTE",{╬З@416,"ENTER THE NUMBER OF",Э╪З@448,"THE SELECTION DESIRED",дт:Г,┐ьВ ** ITEM SELECTION **,╔ЎA$│ Т,▄Е A$│"" з 5110-
И  Й(A$) Бж 6000,7000,8000,9000-Р-
:Г-0pВ ** OUTPUT DATA TO PRINTER **-PzЗ#м2,"NUMBER OF SECTIONS";N-vДЗ#м2,"CENTER OF CIRCLE";X(0);Y(0)-ФОЗ#м2,"RADIUS OF CIRCLE";R-╝ШЗ#м2,"DATA POINTS Z;A(Z);X(Z);Y(Z)"-╩вА Z│1 е N-фмЗ#м2,Z;A(Z);X(Z);Y(Z)-ь╢Л Z-Є└Р-∙╩:Г.XВ ** OUTPUT DATA TO SCREEN **.!]Ю.BbЗ@0,"NUMBER OF SELECTIONS";N.hlЗ@32,"CENTER OF CIRCLE";X(0);Y(0).ЖvЗ@64,"RADIUS OF CIRCLE";R.лАЗ@100,"Z     A(Z)   X(Z)   Y(Z)".╣КА Z│1 е N.█ФЗ ═"####.##";Z;A(Z);X(Z);Y(Z).уЮЛ Z.эиA$│ Т/▓Е A$│"" з 708 щ& 
В*THIS IS THE THIRD PART *&?В*AFTER RUNNING THIS PART*&^В*    TYPE EXEC13000     *&}В*************************&ЬВ*      ********         *&╗В*       *****           *&┌В*************************'ИЖ 0,0,15,0,0,0,0,55,40,0,0,0,55,50,0,0,0,15,54,0'LТЖ 02,0,05,54,0,0A,82,55,55,0,0A,8A,95,55,0,0A,A6,95,55,0'МЬЖ 0A,A6,A5,55,0,02,AA,A5,55,40,02,AA,AA,55,40,0,AA,AA,55,40'╞жЖ 0,AA,AA,55,0,0,0A,AA,55,0,0,2A,AA,55,0,0,0A,AA,95,0(░Ж 0A,82,AA,90,0,2A,A2,AA,90,0,2A,A8,AA,80,0,2A,A8,AA,80,0(B║Ж 2A,AA,AA,88,0,2A,AA,AA,88,0,0A,AA,AA,88,0,0A,AA,AA,8A,0(|─Ж 02,0,AA,82,80,0,0,AA,A2,80,0,0,AA,A4,80,0,0,AA,95,0(┤╬Ж 0,0,29,55,0,0,0,15,55,0,0,0,15,54,14,0,0,05,54,14(Є╪Ж 0,10,51,55,55,0,54,54,55,55,0,55,54,15,55,0,55,54,15,55),тЖ 0,55,54,0,55,0,15,54,0,55,0,05,55,0,55,0,01,55,0,55)`ьЖ 0,0,55,0,55,0,0,15,0,55,0,0,0,0,54,0,0,0,0,14)}ЎЖ 0,0,0,0,14,0,0,0,0,0,0)▓ЖЖ 0,0,15,0,0,0,0,55,40,0,0,0,55,50,0,0,0,15,54,0)чРЖ 02,0,05,54,0,0A,82,55,55,0,0A,8A,95,55,0,0A,A6*ЪЖ 95,55,0,0A,A6,A5,55,0,02,AA,A5,55,40,02,AA,AA*QдЖ 55,40,0,AA,AA,55,40,0,AA,AA,55,0,0,0A,AA,55,0,0*ИоЖ 2A,AA,55,0,0,0A,AA,95,0,0,2,AA,90,0,0,02,AA,90,0*╛╕Ж 0,0,AA,90,0,0,0,AA,90,0,0,0,AA,90,0,0,0,AA,90,0*Є┬Ж 0,0,AA,90,0,0,0,AA,90,0,0,0,AA,A0,0,0,0,AA,A4+(╠Ж 0,0,0,AA,A5,0,0,0,2A,A5,0,0,0,16,A5,0,0,0,15,A4+\╓Ж 0,0,0,05,54,0,0,0,01,54,0,0,0,0,54,0,0,0,0,50+ПрЖ 0,0,0,0,14,0,0,0,0,14,0,0,0,0,14,0,0,0,55,54+┬ъЖ 0,0,01,55,55,0,0,01,55,55,0,0,01,55,55,0,0,0+ЄЇЖ 55,55,0,0,0,55,55,0,0,0,15,54,0,0,0,0,0,0,■Ж 0,0,0,0,0,<pЖ 0,0,15,0,0,0,0,55,40,0,0,0,55,50,0,0,0,15,54,0,02,0,wzЖ 05,54,0,0A,82,55,55,0,0A,8A,95,55,0,0A,A6,95,55,0,0A,▒ДЖ A6,A5,55,0,02,AA,A5,55,40,02,AA,AA,55,40,0,AA,AA,55,ьОЖ 40,0,AA,AA,55,0,0,0A,AA,55,0,0,2A,AA,55,0,0,0A,AA,95-&ШЖ 0,0,02,AA,90,0,0A,82,AA,90,0,2A,A0,AA,80,0,2A,A8,AA-bвЖ 80,0,2A,A8,AA,A8,0,2A,A8,AA,AA,0,0A,A8,AA,AA,A0,0A,A8-ЭмЖ AA,8A,A8,02,0,AA,82,A8,0,0,AA,A2,A8,0,0,AA,A6,A8,0,0-╫╢Ж AA,95,A0,0,0,29,55,0,0,0,15,55,0,0,0,15,54,0,0,0,05.└Ж 54,04,0,0,05,54,15,0,0,15,51,55,0,0,15,45,55,0,0,05.J╩Ж 05,55,0,0,05,01,54,0,0,55,01,54,0,05,55,01,50,0,15.Д╘Ж 55,45,50,0,15,55,45,40,0,15,55,45,40,0,05,55,45,0,0.к▐Ж 05,55,45,0,0,1,55,0,0,0,0,0,0,0.▄8Ж 55,55,7D,55,55,55,55,C3,55,55,55,57,0,D5,55/BЖ 55,5C,0,35,55,55,70,0,0D,55,55,70,0,0D,55/GLЖ 55,70,0,0D,55,55,C0,0,3,55,55,C0,0,3,55,55,C0,0,3,55/}VЖ 57,0,0,0,D5,5C,0,0,0,35,5C,0,0,0,35,5C,0,0,0,35/▓`Ж 30,0,0,0,0D,70,0,0,0,0D,70,0,0,0,0D,C0,0,0,0,3/фjЖ C0,0,0,0,3,C0,0,0,0,3,C0,0,0,0,3,C0,0,0,0,30!tЖ C0,3,0,C0,3,70,0,33,0,0D,70,30,33,0C,0D,5C,0C,33,30,350R~Ж 5C,0C,3C,30,35,57,3,3C,C0,0D,55,C0,C3,3,550vГЖ 55,70,C3,0D,55,55,5F,FF,F5,550╖ИЖ 55,55,FF,55,55,55,55,FF,55,55,0,0,FF,0,0,0,0,FF,0,0,0,0,FF0эТЖ 0,0,0,0,FF,0,0,0,0,FF,0,0,0,0,FF,0,0,0,0,FF,0,01&ЬЖ 0,0,FF,0,0,0,0,FF,0,0,0,0,FF,0,0,0,0,FF,0,0,0,0,FF1]жЖ 0,0,0,0,FF,0,0,0,0,FF,0,0,0,0,FF,0,0,0,3,FF,C0,01Х░Ж 0,3,FF,C0,0,0,3,FF,C0,0,0,0F,3F,FC,0,0,3F,0C,FC,01▒║Ж 0,3C,0C,0,0,0,0,3,0,01╞XАX│14905 е 158701╬bНA$1сlТX, Й("&H"лA$)1шvЛX,01&ЬЖ 0,0,FF,0,0,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ST",:З ═"#######.##";Aн12нY/KМЗ" TOTAL INTEREST",:З ═"#######.##";Aн12нYмM/cОЕC$│"1"з 144 :Д 148/МРЙ" WANT ANOTHER CALCULATION(Y/N)";B$/еТЕ B$│"Y"з 118 :Д 242/╟ФЗ" PRESS ANY KEY TO CONTINUE"/╫ЦЕ  Т│""з1500ШВ MONTHLY EXPENSE BUDGET VS. MONTHLY INCOME.0JЪЮ:Й" PLEASE ENTER YOUR AVERAGE TAKE  HOME PAY PER WEEK ";TH:З0нЬЙ"  ENTER AMOUNT OF AUTOMATIC       SAVINGS SUCH AS BONDS           DEDUCTED  EACH WEEK."; з:З0ъЮЙ" ENTER $/MONTH FOR ANY CURRENT   LOAN PAYMENTS. ";IP:З1DаЙ" ENTER YEARLY PREMIUM COST FOR   INSURANCE SUCH AS LIFE,HEALTH,  AND CAR ETC.";IN:З1НвЙ" ENTER ESTIMATED HEATING COSTS   FOR THE HOUSE YOU MAY BUY. ";YH:З1ддMI│ Б((THл з)н4.3)1▒жHC│YHо121┬иIC│ Б(INо12)1╓кTI│ Б(.0015нHP)1рмUK│501ЄоCS│ Б(.15нMI)1¤░LE│4002▓CE│1002┤UT│HCл10027╢EX│AлIPлICлTIлUKлCEлCSлLEлUT2]╕Ю:З:З" THE FOLLOWING DATA IS FOR"2И║З:З" HOUSE "HN$:З" AND DATA AS OF "TD$2Э╝А X│1 е 1000:Л X2┬╛Ю:З" MONTHLY INCOME VS EXPENSE."2ш└З" HOUSE PAYMENT",:З ═"####.##";A3┬З" TAX & INS",:З ═"####.##";TI32─З" UPKEEP ALLOW.",:З ═"####.##";UK3W╞З" OTHER LOANS",:З ═"####.##";IP3|╚З" LIVING EXP.",:З ═"####.##";LE3а╩З" OTHER INS.",:З ═"####.##";IC3├╠З" UTILITIES",:З ═"####.##";UT3щ╬З" CAR EXPENSE ",:З ═"####.##";CE4╨З" CHARITY & SAVE",:З ═"####.##";CS4%╥З,"-----------"4H╘З" TOTAL EXP",:З ═"####.##";EX4n╓З" TOTAL INCOME",:З ═"####.##";MI4И╪Е MI│▓EX з 218 :Д 2204░┌З" GOOD SHAPE IF DOWNPAYMENT OK.":К4┘▄З" YOU CANNOT HACK IT AT  PRESENT":К4с▐Ю:З5{рЗ" THIS PROGRAM IS INTENDED TO     HELP THE YOUNGER HOME BUYER     BY CHECKING HIS ABILITY TO      MEET BOTH DOWNPAYMENT AND THE   MONTHLY PAYMENTS."6!тЗ" 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.6CфЗ:З" HIT ANY KEY TO CONTINUE"6[цЕ  Т│""з 230 :Д 2326cшЮ:З7ъЗ" 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КьЗ" YOU SHOULD PICK (2) IF YOU ARE  LOOKING FOR A COMPLETE REVIEW   OF YOUR ABILITY TO PAY FOR THE  HOUSE UNDER CONSIDERATION."7мюЗ:З" TO GET MENU HIT ANY KEY"7┬ЁЕ  Т│""з 240 :Д 87щЄЗ" IT'S BEEN A PLEASURE TO HELP":К8(·В "HOUSE$" (C) R.GIOVANONI,HAGERSTOWN,MD. JUNE 1983. REV.2RE  LOOKING FOR A COMPLETE REVIEW   OF YOUR ABILITY TO PAY FOR THE  HOUSE UNDER CONSIDERATION."7мюЗ:З" TO GET MENU HIT ANY KEY"7┬ЁЕ  Т│""з 240 :Д 87щЄЗ" IT'S BEEN A PLEASURE TO HELP":К8(·В "HOUSE$" (C) R.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ░&Бе400&о
:Г****************************    *      "PAINTER"           *    *   HANDLES DISK I/O FOR   *    *      MICROPAINTER        *    ****************************&чЕ Ж(&H9D)н256л Ж(&H9E) ┤▓&HB44A з10:Д╙M"MICRODSK/BIN'
Ю:З:Й"  sAVE, lOAD ENTER mICROPAINTER  OR eXIT";I$'VЕI$│"S"з50:ДЕI$│"L"з100:ДЕI$│"M"з300:ДЕI$│"E"зК:Д10'o2З:З"  SAVING:":Бж200'Й<╪MF$,&HE00,&H25FF,413'ЧFТ&HFF40,0'аPБе10'║dЗ:З"  LOADING:":Бж200'├n╙MF$'╤xТ&HFF40,0'┌ВБе10(	╚З:Й"  FILENAME (INCLUDING EXTENSION)  ";F$(╥Р(-
,Т&HFF40,0:Т&HDE,0:Т&HE5,4(T
6Е Ж(&H72)┤▓&H41 зв&H4000 :Дв&H411D(п
Р└5:Бе5::ГSO THAT PIX      FROM THE MICRO WORKS'           "MAGIGRAF" PROGRAM WILL LOAD:":Бж200'├n╙MF$'╤xТ&HFF40,0'┌ВБе10(	╚З:Й"  FILENAME (INCLUDING EXTENS                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 )&Ю&'З:З"          HOUSE COST":З&XЙ" DO YOU NEED THE INTRODUCTION?   (Y/N)";I$&oЕ I$│"Y" з 222 :Д8&wЮ:З&Ю
З" PICK  OPTION YOU WANT TO USE":З&┐З" (1) MORTAGE PAYMENT ONLY"&▐З" (2) THE WHOLE ANALYSIS"& З:Й" ENTER CHOICE PLEASE";C$'ЕC$│"2"з 20 :Д 118')В CASH ON HAND'/Ю'MЗ:╗Й" TODAY'S DATE  ";TD$'СЗ:Й" DO YOU ALREADY KNOW YOUR CASH   ON HAND POSITION (Y/N)";A$'бЕ A$│"Y"з56'лЮ:З:З( З" PLEASE ENTER THE $ VALUE FOR    EACH ITEM IN THE NEXT SECTION.  PRESS ANY KEY TO CONTINUE."( "Е  Т│"" з 34 (&$Ю(D&Й" SAVINGS ACCOUNTS $";SA(b(Й" SAVINGS BONDS    $";SB(Б*Й" CHECKING ACCOUNTS $";CA(а,Й" MONEY MARKET ACCT $";MM(└.Й" CREDIT UNION ACCT  $";CU(р0Й" CERTIFICATES (CD)  $";CD)
2Й" COOKIE JAR          $";CJ)4CH│SAлSBлCAлMMлCUлCDлCJ)&6Бе58)^8З:З:Й" ENTER $VALUE OF CASH ON HAND       ";CH:Бе62)~:Ю:З@ 96," CASH ON HAND "TD$)П<З@170," $"CH)╢>З@256," PRESS ANY KEY TO CONTINUE")╞@Е  Т│""з 64)юBВ CALCULATE MONTHLY MORTAGE PAYMENT* DЮ:З:╗Й" WHAT HOUSE ARE WE LOOKING AT    ";HN$*>FЙ" WHAT IS THE PRICE ";HP*НHЙ" IS DOWNPAYMENT A PERCENT OR AN  AMOUNT SET BY SELLER OR YOU?(P,A) ";DP$*ЯJЕ DP$│"P"з 80*┌LЙ" WHAT IS THE $VALUE SET BY THE   SELLER OR YOU. ";DP*уNБе84+	PЙ" WHAT IS THE % DOWN NEEDED ";PP+RDP│ Б(PPо100нHP)+MTЮ:З@64," FOR THE HOUSE YOU CALL:":З"  "HN$+eVЗ@192," PRICE= $"HP+ГXЗ@224," DOWNPAYMENT= $"DP+зZЗ@256," MORTAGE WILL BE $"HPмDP+│\M│HPмDP+╔^ЕDP▓CH з 100 :Д96+я`ЕDP│┤CH ░ DP▓(CHм3200)з 102 :Д 98,bЕDP┤(CHн.8м3200) з104 :Д 106,ddЗ" THE DOWN PAYMENT "DP:З" EXCEEDS YOUR CASH  "CH:З " DO NOT TRY TO BUY":Бе 108,─fЗ" YOUR CASH= $"CH:З" TO MY WAY OF THINKING THIS IS   TOO CLOSE. PLEASE RECONSIDER.":Бе 108-hЗ" YOUR CASH= $"CH:З" GOOD. NOW CHECK PAYMENTS.": Бе108-4jЗ" YOUR CASH= $"CH:З" POSSIBLE. CHECK PAYMENTS"-WlЗ" TO CONTINUE PRESS ANY KEY "-hnЕ  Т│""з 110-ppЮ:З-╩rЗ" ENTER INTEREST RATE AND NUMBER  OF YEARS FOR MORTAGE":Й" % INTEREST";I:Й" YEARS";Y-╓tЗ:Бе122.vЮ:З" JUST ENTER AMT OF LOAN,INTEREST RATE,AND NUMBER OF YEARS.":З.WxЙ"AMOUNT OF LOAN ";M:Й" INTEREST RATE ";I:Й" YEARS ";Y.bzN│Yн12.o|I│Iо1200.y~Z│MнI.ИАQ│(1лI)пмN.ТВW│1мQ.гДA│ Б(ZоWл.5).┼ЖЗ"MORTAGE",:З ═"#######.##";M.яИЗ"MONTHLY PAYMENT",:З ═"#######.##";A/КЗ" TOTAL CO Ы:ГKEYBOARD DISPLAY !
Ю 09А L│1 е 8:З@480:Л LVЗ@6,"COMPUTER KEYBOARD";л#:ГPUT ONE SPACE BETWEEN EACH      KEY WHEN ENTERING LINES         40,80,120,&170╙(З@34,"1 2 3 4 5 6 7 8 9 0 : - BRK";с2А P│0е 11є<Т 1059л2нP,32√FЛ P#PЗ@65,"^ Q W E R T Y U I O P @ < >";2ZА P│0 е 12DdТ 1090л2нP,32LnЛ PvxЗ@98,"V A S D F G H J K L ; ENT CLR";ЕВА P│0 е 10ЧМТ 1123л2нP,32ЯЦЛ PнаТ 1147,32╓кЗ@129,"SFT Z X C V B N M , . / SFT";х┤А P│0 е 10ў╛Т 1156л2нP,32 ╚Л P ╥З@169," SPACE BAR "; 2▄З@233,"INSTRUCTIONS"; P·N│1058:K│113:RK│49:Бж1100 n
N│1060:K│114:RK│50:Бж1100 М
N│1062:K│115:RK│51:Бж1100 к
N│1064:K│116:RK│52:Бж1100 ╚
"N│1066:K│117:RK│53:Бж1100 ц
,N│1068:K│118:RK│54:Бж1100!
6N│1070:K│119:RK│55:Бж1100!"
@N│1072:K│120:RK│56:Бж1100!@
JN│1074:K│121:RK│57:Бж1100!^
TN│1076:K│112:RK│48:Бж1100!|
^N│1078:K│122:RK│58:Бж1100!Ъ
hN│1080:K│109:RK│45:Бж1100!╟
rN│58:K$│"BRK":RK$│"brk"         :Бж 1000!х
|N│1089:K│94:RK│30:Бж 1100"
ЖN│67:K$│"Q":RK$│"q"             :Бж 1000">
РN│69:K$│"W":RK$│"w"            :Бж 1000"j
ЪN│71:K$│"E":RK$│"e"            :Бж 1000"Ц
дN│73:K$│"R":RK$│"r"            :Бж 1000"┬
оN│75:K$│"T":RK$│"t"            :Бж 1000"ю
╕N│77:K$│"Y":RK$│"y"            :Бж 1000#
┬N│79:K$│"U":RK$│"u"            :Бж 1000#F
╠N│81:K$│"I":RK$│"i"            :Бж 1000#r
╓N│83:K$│"O":RK$│"o"            :Бж 1000#Ю
рN│85:K$│"P":RK$│"p"            :Бж 1000#╝
ъN│1111:K│64:RK│32:Бж 1100#┌
ЇN│1113:K│124:RK│60:Бж1100#°
■N│1115:K│126:RK│62:Бж1100$$N│98:K$│"V":RK$│"v"            :Бж 1000$QN│100:K$│"A":RK$│"a"            :Бж 1000$~N│102:K$│"S":RK$│"s"            :Бж 1000$л&N│104:K$│"D":RK$│"d"            :Бж 1000$╪0N│106:K$│"F":RK$│"f"            :Бж 1000%:N│108:K$│"G":RK$│"g"            :Бж 1000%2DN│110:K$│"H":RK$│"h"            :Бж 1000%_NN│112:K$│"J":RK$│"j"            :Бж 1000%МXN│114:K$│"K":RK$│"k"            :Бж 1000%╣bN│116:K$│"L":RK$│"l"            :Бж 1000%╫lN│1142:K│123:RK│59:Бж1100&vN│120:K$│"ENT":RK$│"ent"        :Бж 1000&1АN│124:K$│"CLR":RK$│"clr"        :Бж 1000&^КN│129:K$│"SFT":RK$│"sft"        :Бж 1000&ЛФN│133:K$│"Z":RK$│"z"            :Бж 1000&╕ЮN│135:K$│"X":RK$│"x"            :Бж 1000&хиN│137:K$│"C":RK$│"c"            :Бж 1000'▓N│139:K$│"V":RK$│"v"            :Бж 1000'?╝N│141:K$│"B":RK$│"b"            :Бж 1000'l╞N│143:K$│"N":RK$│"n"            :Бж 1000'Щ╨N│145:K$│"M":RK$│"m"            :Бж 1000'╖┌N│1171:K│108:RK│44:Бж1100'╒фN│1173:K│110:RK│46:Бж1100'єюN│1175:K│111:RK│47:Бж1100( °N│153:K$│"SFT":RK$│"sft"        :Бж 1000(^N│169:K$│" SPACE BAR "          :RK$│" space bar ":Бж1000(iБе 780(ш:ГPRINT @ FLASHER(СЄА FLASH│1 е 3(Ю№З@N,RK$;(иа 5,1(╜А DLAY│1 е 100:Л(╔З@N,K$;(▐$А DLAY│1 е 100:Л(ъ.Л FLASH( 8А DLAY│1 е 100:Л)BР)L:ГPOKE FLASHER)*VА FLASH│1 е 3)5`Т N,RK)?jа 5,1)TtА DLAY│1 е 100:Л)^~Т N,K)sИА DLAY│1 е 100:Л)ТЛ FLASH)ФЬА DLAY│1 е 100:Л)ЪжР;(иа 5,1(╜А DLAY│1 е 100:Л(╔З@N,K$;(▐$А DLAY│1 е 100:Л(ъ.Л FLASH( 8А DLAY│1 е 100:Л                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 t
В ***  AVERAGE FINDERIВ ***  STEVE BLYN,COMPUTER ISLAND,NY,1984PЮ5п(В*** YOU MAY CHANGE THE DIM (DIMENSION) OF A$ TO ANY LIMIT OF TEST SCORES THAT YOU DESIRE.╜2М A$(200)╩<З@96," "чFЗ@7,"my average finder";ЇPА T│1е20
ZЗ@96," "dЗ@455,"enter 'X' to end";:nЗ@104,"grade #";T;"=";CxЙ A$PВA│ Й(A$)ОМВ  *** YOU MAY ADJUST THE FOLLOWING VALUES TO YOUR NEEDS.вЦЕ A$│"A" з A│95╢аЕ A$│"B" з A│85╩кЕ A$│"C" з A│75▐┤Е A$│"D" з A│65щ╛Бж 360№╚Е A$│"X" з 230 ╥B│BлA ▄Л T цЗ@448," " )ЁЗ@96," " K·З@135,"YOU HAD";Tм1;"SCORES"; Y
З@160," " l
Бж 370:Бж 360: Й
З@261,"YOUR AVERAGE IS"; Я
"АN│1е5:Бж 360:Л N ў
,В*** THE AVERAGE IS COMPUTED HERE. ADD .5 TO ROUND OFF TO THE CORRECT WHOLE NUMBER.!
6З Б(Bо(Tм1)л.5);"%";!
@Бж 370!@
JЗ@452,"PRESS ENTER TO GO AGAIN";!I
TЙ B$!O
^О!]
hа 200,2:Р!s
rА H│1 е 500:Л H:Р,"YOUR AVERAGE IS"; Я
"АN│1е5:Бж 360:Л N ў
,В*** THE AVERAGE IS COMPUTED HERE. ADD .5 TO ROUND OFF TO THE CORRECT WHOLE NUMBER.!
6З Б                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                g?Р╢
jзНIЖ~╖
j╛
kпН>0Н┐
k9Б
&14О╞ чМцжАБ`,$Б@/$╜в┐4цМ╘Z┴'чМ╠5М' ▌Н5~А@ ▄Л` ╪Н╞  ▀Ж
╜в┐9 ?РH:Р,"YOUR AVERAGE IS"; Я
"АN│1е5:Бж 360:Л N ў
,В*** THE AVERAGE IS COMPUTED HERE. ADD .5 TO ROUND OFF TO THE CORRECT WHOLE NUMBER.!
6З Б                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ф&
Х500:М N$(9)&'АI│0е9:Н N$(I):Л&8╚4,1:╝1:┐1,0&Q(╗(0,0)м(256,162),╛,B&j2╗(96,0)м(160,72),╛,B&А<┬(128,74),33,0,.9&РFАI│98е158й4&иP╗(I,30)м(I,70),╜,BF&оZЛ&╞d╗(0,125)м(12,125),╛&сn╗(256,125)м(244,125),╛&·x╗(112,14)м(144,14),╛'В┬(128,18),8,0,.9,.9,.6'#М╜(128,12)'vЦАI│17е243й16:I$│ И(I):Z│0:АY│10е154й16:╞"C0S4BM"лI$л","л И(Y)лN$(Z):Z│Zл1:ЛY,I'╥аZ│0:АI│28е238й16:I$│ И(I):Z│Zл1:АY│10е154й16:╞"C0BM"лI$л","л И(Y)лN$(Z):ЛY:Е Z│9 з Z│м1'┘кЛI("┤АI│168е232й16:I$│ И(I):А Y│10е154й16:╞"C0BM"лI$л","л И(Y)лN$(1):ЛY,I(,╛Бе190(Ы╚Ж U4R2D4L2,BRU4,NR2U2R2U2L2,R2U2NLU2L2,BR2U4D2L2U2,R2U2L2U2R2,R2U2L2D2U4R2,E2U2L2,R2U4L2D2NR2D2,R2U4L2D2R2(▓ш:ГBBALL LISTING #3(╩Є:ГBY FRED B. SCERBO(у№:ГCOPYRIGHT (C) 198332й16:I$│ И(I):А Y│10е154╥P│9:Бж270!"▄З#м2,Z$; б(78,32);Z$!;цЗ#м2,Z$; б(78,95);Z$!AЁК!И·З#м2, Л(124); б(28,32); Л(124); б(18,32); Л(124); б(30,32); Л(124)!О
Р!Ы
A$│"###"!г
K│0!╡
"З#м2, Л(124);!╠
,АI│0лP е 140лP й10!щ
6З#м2,дKл2);:З#м2,═ A$;I;!є
@K│Kл5"
JЛI:З#м2, б(4,32); Л(124)"
TР"2ш:ГBBALL GRID LISTING #2"JЄ:ГBY FRED B. SCERBO"c№:ГCOPYRIGHT (C) 1983б(18,32); Л(124); б(30,32); Л(124)!О
Р!Ы
A$│"###"!г
K│0!╡
"З#м2, Л(124);!╠
,АI│0лP е 140лP й10!щ
6З#м2,дKл2);:З#м2,═ A$;I;!є
@K│Kл5"
JЛI:З#м2                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ░&Бе400&о
:Г****************************    *      "PAINTER"           *    *   HANDLES DISK I/O FOR   *    *      MICROPAINTER        *    ****************************&чЕ Ж(&H9D)н256л Ж(&H9E) ┤▓&HB44A з10:Д╙M"MICRODSK/BIN'
Ю:З:Й"  sAVE, lOAD ENTER mICROPAINTER  OR eXIT";I$'VЕI$│"S"з50:ДЕI$│"L"з100:ДЕI$│"M"з300:ДЕI$│"E"зК:Д10'o2З:З"  SAVING:":Бж200'Й<╪MF$,&HE00,&H25FF,413'ЧFТ&HFF40,0'аPБе10'║dЗ:З"  LOADING:":Бж200'├n╙MF$'╤xТ&HFF40,0'┌ВБе10(	╚З:Й"  FILENAME (INCLUDING EXTENSION)  ";F$(╥Р(-
,Т&HFF40,0:Т&HDE,0:Т&HE5,4(T
6Е Ж(&H72)┤▓&H41 зв&H4000 :Дв&H411D(п
Р└5:Бе5::ГSO THAT PIX      FROM THE MICRO WORKS'           "MAGIGRAF" PROGRAM WILL LOAD:":Бж200'├n╙MF$'╤xТ&HFF40,0'┌ВБе10(	╚З:Й"  FILENAME (INCLUDING EXTENS                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "STOP" з222 :Д Е FLAG$│"END" з П:Бе204'/╘P│Pл1'=╓А R│1 е 5'O╪Н LO$,ML(R,P)'U┌Л'_▄Бе208'v▐Бж800:╚0,1:╝1:┐1,0'Вр╚0,3:╝1'Ыт╗(0,0)м(256,162),╛,B'┤ф╗(96,0)м(160,72),╛,B'╩ц┬(128,74),33,0,.9'фш╜(128,102):╛(128,100)'№ъ╜(128,46):╛(128,48)(ьАI│98е158й4($ю╗(I,30)м(I,70),╜,BF(*ЁЛ(BЄ╗(0,125)м(12,125),╛(]Ї╗(256,125)м(244,125),╛(vЎ╗(112,14)м(144,14),╛(Л°┬(128,18),8,0,.9(╟·╜(128,12):╞"C0BM96,20L4D4R2U2BM160,20R4D4L2NU2BL4C1L38"(╤№Бж190(▀■╟3е1:╟3е2(ў
А S│1 е P:╚0,1:┐1,0)
╚0,2)	
╟3е2)(
╞ L$(ML(1,S)):╞ER$:╞PL$(1))G
╞ L$(ML(2,S)):╞ER$:╞PL$(2))f

╞ L$(ML(3,S)):╞ER$:╞PL$(3))Е
╞ L$(ML(4,S)):╞ER$:╞PL$(4))д
╞ L$(ML(5,S)):╞ER$:╞PL$(5))н
╟2е1)┼
Е  Ж(339)│254 з 288)┘
X│ Н(0):Y│ Н(1))я
A│Xн4:B│ Б(Yн2.5)*
╚0,1:╗(A,B)м(Aл4,Bл4),╛,BF*
GR$│ Т*/
Е GR$│ Л(12)з 150*D
Е GR$│"L"з Бж900*Z
Е  Ж(339)│255з272*c
╟2е1*k
 Л S*{
"┐1,1:а200,8*е
$Е  Т│ Л(12) з 150 :ДЕ  Ж(339)│255з292*╣
&┐1,0:╟3е1:Бе256*ь Ю0:З"TEACHING POINTS: ";H$:З б(32,"*");::З IG$*Ў%З IH$+*Е  Ж(339)│254з Ю0:Р :Д810+%Да1,1:LD│LDл1+;ОXX(LD)│A:YY(LD)│B+JШЕ LD│1 з Р+rв╚0,2:╗(XX(1),YY(1))м(XX(2),YY(2)),╛+}мLD│0:Р+ИшЖ OHIO,nщЖ "MAN TO MAN OFFENSE - GUARDS MUSTALWAYS TAKE DEFENSIVE MAN AWAY  FROM THE PLAY BEFORE THEY CUT - GUARDS CAN 'BACK-DOOR' IF OVER- PLAYED. - POST MAN MUST SET 'BIG' PICKS - FORWARD MAKES V-CUT   COMES & MEETS BALL . WHENEVER",╟ъЖ "YOU'RE PRESSURED 'INTERCHANGE'  WITH WEAKIDE MAN.SAGGING DEFENSE - SHOT JUMPERS.",ыэЖ GO,A,47,B,107,C,74,D,31,E,121-ЄЖ GO,A,56,B,96,C,74,D,31,E,132-1єЖ GO,A,65,B,85,C,74,D,31,E,132-TЇЖ GO,A,75,B,85,C,74,D,31,E,132-wїЖ GO,A,84,B,85,C,74,D,31,E,132-ЪўЖ GO,A,84,B,75,C,74,D,41,E,132-╜°Ж GO,A,93,B,64,C,74,D,31,E,132-с№Ж GO,A,102,B,54,C,74,D,42,E,132.
Ж GO,A,102,B,43,C,103,D,33,E,132.+Ж GO,A,102,B,32,C,103,D,44,E,132.PЖ GO,A,102,B,31,C,103,D,55,E,132.uЖ GO,A,102,B,22,C,103,D,76,E,123.ЪЖ GO,A,102,B,13,C,103,D,96,E,113.┐Ж GO,A,102,B,13,C,103,D,96,E,112.фЖ GO,A,102,B,13,C,103,D,96,E,101/Ж GO,A,113,B,13,C,93,D,85,E,81/+Ж GO,A,114,B,13,C,72,D,104,E,61/NЖ GO,A,85,B,23,C,63,D,103,E,52/qЖ GO,A,76,B,32,C,43,D,102,E,42/ФЖ GO,A,65,B,51,C,43,D,122,E,42/╖Ж GO,A,54,B,61,C,43,D,133,E,42/┌ Ж GO,A,43,B,82,C,62,D,122,E,33/■$Ж GO,A,42,B,102,C,82,D,133,E,340"&Ж GO,A,33,B,102,C,92,D,122,E,550F'Ж GO,A,23,B,102,C,93,D,122,E,660k)Ж GO,A,13,B,102,C,103,D,112,E,760О*Ж GO,A,13,B,102,C,92,D,91,E,760▒.Ж GO,A,13,B,102,C,72,D,71,E,760╝3Ж STOP0╨oЖ ZIG ZAG DRILL1!pЖ "HANDS BETWEEN BACK. SLIDE - STEP - SLIDE AS LONG AS YOU CAN.    STAY LOW"1РqЖ "TRY TO GET 'NOSE ON BALL'. DROP STEP. CUT OFF DEFENSIVE MAN AS  SOON AS POSSIBLE - 'NOSE ON     BALL'."1╡tЖ GO,A,40,B,41,C,140,D,141,E,1421┌yЖ GO,A,31,B,32,C,140,D,141,E,1421■~Ж GO,A,12,B,3,C,140,D,141,E,1422#ГЖ GO,A,33,B,34,C,140,D,141,E,1422HИЖ GO,A,65,B,76,C,140,D,141,E,1422mНЖ GO,A,37,B,38,C,140,D,141,E,1422СТЖ GO,A,18,B,9,C,140,D,141,E,1422ЬЧЖ STOP2лЬЖ CAROLINA3>ЭЖ "WINGS MUST SET UP DEFENSE FOR A 'BACK-DOOR' MOVE. POINT GUARD   MUST KEEP DRIBBLE ALIVE FOR AS  LONG AS POSSIBLE UNTIL CUTS HAVEBEEN MADE."3оЮЖ "WEAKSIDE FORWARD MUST SET PICK  ON GUARD CUTTING THROUGH - THEN MUST STEP UP IF THERE IS A      SWITCH."3╤бЖ GO,A,77,B,54,C,94,D,14,E,1343їжЖ GO,A,106,B,54,C,73,D,14,E,1334лЖ GO,A,124,B,82,C,94,D,32,E,1014=░Ж GO,A,124,B,102,C,95,D,41,E,814a╡Ж GO,A,104,B,111,C,55,D,51,E,414Е║Ж GO,A,104,B,111,C,34,D,31,E,424й┐Ж GO,A,104,B,111,C,34,D,22,E,424┤─Ж STOP4┴╔Ж LAY UP4═╩Ж EMPTY4┘╦Ж EMPTY4¤╬Ж GO,A,77,B,25,C,125,D,21,E,1215!╙Ж GO,A,45,B,35,C,125,D,31,E,1215E╪Ж GO,A,46,B,64,C,115,D,31,E,1325h▌Ж GO,A,44,B,92,C,96,D,41,E,1335МтЖ GO,A,42,B,121,C,96,D,33,E,1345░чЖ GO,A,41,B,121,C,96,D,46,E,1345╒ьЖ GO,A,41,B,121,C,114,D,46,E,1245∙ёЖ GO,A,22,B,101,C,103,D,46,E,736ЎЖ GO,A,14,B,105,C,101,D,46,E,416(√Ж STOP6>'Ж END,END,END,END,1325h▌Ж GO,A,44,B,92,C,96,D,41,E,1335МтЖ GO,A,42,B,121,C,96,D,33,E,1345░чЖ GO,A,41,B,121,C,96,D,46,E,1345╒ьЖ GO,A,41,B,121,C,114,D,46,E,1245∙ёЖ GO,A,22,B,101,C,103,D,46,E,736ЎЖ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                280)│126▒ Ж(65280)│254з53:Д51'z5АT│1е10:АW│1е40:ЛW:╔"C":АW│1е15:ЛW:╟3е1:╟4е2:┼(XлXP,YлTлYP)м(XлXQ,YлTлYQ),C,▒:╔"D":ЛT:Бе8'Ъ6:Г***** DRAW AIRPLANE *****'е7╚1,4:╝'ў8P1$│"D6R10D2R12F4R2D2L2U2H4R8D2R2U4NL24U4L2D2L10E6NL8G6L2H2G2L10NU2L2NU4L2U4"(9╞"A0BM8,108"лP1$(":╞"A3BM68,128"лP1$(9;╞"A2BM132,116"лP1$(O<╞"A1BM168,98"лP1$(н=P2$│"F2ND4L4F2L2NF10L2F8NF8D2F8D6L2D2R2U10F6D4H2R4U2NH10R2U4F2L6U2NH8U2H4R8NH6L10H2NE2H8"(├>╞"A0BM12,132"лP2$(┘?╞"A3BM56,158"лP2$(Ё@╞"A2BM128,165"лP2$)A╞"A1BM176,141"лP2$)aB╞"A0BM224,108D6L10D2L12G4L2D2R2U2E4L8D2L2U4NR24U4R2D2R10H6NR8F6R2E2F2R10NU2R2NU4R2U4")╡C┬(210,154),4,4:╞"A0BM188,146R8ND10R6NF6R16NG6R6NR8D10NR6L12NL22D2F2ND2H2L4G2D2")╗DР)█E:Г**** DRAW BACKGROUND ****)цF╚1,3:╝*GАST│1е30:S1│ Д(255):S2│ Д(90):╜(S1,S2,4):ЛST*YH╞"BM0,110C"л И(H2)л"E50F20R5F20E30F6E4F25E15F30E35F15D50L255"*lI├(0,140),H2,H2*кJ╞"BM70,80C1G20BM94,98F30BM130,74F6BM162,96F20BM204,110G6"+
KАT│0е255й8:┬(T,120), Д(8),1:├(T,120),1,1:ЛT:АT│0е255й2:╗(T,125м Д(5))м(T,140),╛:ЛT+iL╞"BM0,130C"л И(H3)л"E20R2F18R4F8E12R4E18R2F24R2E18R2F6R2F10R5E18R2F18R4F14R5E26R2F8":├(2,146),H3,H3+╖M╞"BM52,134C1F30BM70,124F6BM114,130G10BM156,128F20BM196,128G8BM220,142F20",NАB│0е255й8:┬(B,160), Д(8),1:├(B,160),1,1:Л B:А B│0е255й2:╗(B,165м Д(5))м(B,165л Д(4)),╛:ЛB,sO╞"BM8,168C"л И(H2)л"U22M+30,-10;M+30,+10;D22L60":├(20,144),H2,H2:╗(12,150)м(64,168),╛,BF,РP╗(14,178)м(234,182),╛,BF,║QАL│14е234й10:╜(L,176,4):╜(L,182,4):ЛL,рR╞"C4BM85,168U40NL6D2L8NL6D2BL2L8",∙S╗(0,0)м(255,191),╛,B, TР-U:Г**** DRAW TITLE ****-5V╚1,1:╝:┐1,0:Т65314,248-gWАST│1е30:S1│ Д(255):S2│ Д(130):╜(S1,S2,4):ЛST-╓X╞"BM0,122C"л И(H2)л"E20R2F18R4F8E12R4E18R2F24R2E18R2F6R2F10R5E18R2F18R4F14R5E26R2F8D22L255":├(2,130),H2,H2.
YАB│0е255й2:╗(B,140м Д(6))м(B,140),╛:ЛB.bZ┴H3,1:╗(0,140)м(255,156),╜,BF:╗(0,164)м(255,191),╜,BF:А L│2е255й10:╜(L,156,4):╜(L,162,4):Л L.н[Бж55:╚1,1:╞"A0BM90,110C4"лP1$:╞"A0BM60,146C4"лP1$:╞"A0BM190,146C4"лP1$.¤\╞"C4BM40,70R8U8L8U8R8BD16BR12U16NL4R4BR8D16R8U16BR8ND16F8NU8D8BR12U16NL4R4"/F]╞"C4BM144,70U16R8D8NL8BD8BR8NU16BR8NU16R8BR8NR8U16R8D16BR12U16NL4R4"/t^╗(0,0)м(255,191),╛,B:╗(2,2)м(253,189),╜,B/z_РC4"лP1$:╞"A0BM60,146C4"лP1$:╞"A0BM190,146C4"лP1$.¤\╞"C4BM40,70R8U8L8U8R8BD16BR12U16NL4R4BR8D16R8U16BR8ND16F8NU8D8BR12U16NL4R4"/ ?
Ю0*З@0, Л(206) б(30,204) Л(205);<З@32, Л(202);cАI│63е319й32:З@I, Л(197) Л(202);:ЛМ	З@I, Л(197) Л(203) б(30,195) Л(199);вЗ@265, б(14,243);╬
HA$│ Л(153)л Л(150):HB$│ Л(150)л Л(153)ьЗ@298,HA$HA$HA$HA$HA$HA$;З@331,HA$HA$HA$HA$HA$;З@364,HA$HA$HA$HA$;4З@397,HB$HB$HB$;IЗ@429,HB$HB$HB$;^З@461,HB$HB$HB$;{З@72,"  THE  COACH'S  ";ЩЗ@104,"    ANIMATED    ";╖З@136,"    PLAYBOOK    ";╒!З@168,"       BY       ";є#З@200," FRED B. SCERBO ";¤%Х3000 $'М L$(149),PL$(26),ML(5,40),PT$(26) 8)АI│16 е 242 й16 E+I$│ И(I) Y-АY│10 е 154 й16 w/L$(K)│"S4BM"лI$л","л И(Y) Б1K│Kл1 И3ЛY Р5Л I ░7PL$(1)│"NL3R3ND4U2H2L2G2D6" ╙9PL$(2)│"L3D4R4E2H2NL2E2H2L4D4" Є;PL$(3)│"BF3G2L2H2U4E2R2F2"!=PL$(4)│"BR3D2G2L3NL2U8NL2R3F2D2"!0?PL$(5)│"L3D4NR6U8R6"!FAPL$(6)│"L3D4U8R6"!dCPL$(7)│"R3D2G2L2H2U4E2R4"!АEPL$(8)│"R3NU4ND4L6U4D8"!ЭGPL$(9)│"D4NR2NL2U8NR2L2"!┐IPL$(10)│"BR3U4NL6NR2D6G2L2H2"!▄KPL$(11)│"BLNE4NF4L2U4D8"!ЇMPL$(12)│"BL3U4D8R6""OPL$(13)│"BD4BL3U8F4ND2E4D8"".QPL$(14)│"BL3D4U8F8U8""RSPL$(15)│"BL3D2F2R4E2U4H2L4G2D2""mUPL$(16)│"L3D4U8R6D4L6""ФWPL$(17)│"BL3DF2R6NH2NF2U6H2L4G2D2""пYPL$(18)│PL$(16)л"R2F4""═[PL$(19)│"L3BD4R6U4L6U4R6""х]PL$(20)│"D4U8NL3R4"#_PL$(21)│"BL3U4D6F2R4E2U6"# aPL$(22)│"BL3BU4D4F4E4U4"#?cPL$(23)│"BL3U4D8R4NU4R4U8"#ZePL$(24)│"NE4NF4NG4NH4"#qgPL$(25)│"NE4NH4D4"#МiPL$(26)│"BL3BU4R8G8R8"#ШkDY│DYл1#оmН PT$(DY),IG$,IH$#║oН FLAG$#фqЕ FLAG$│"STOP"з107:ДЕ FLAG$│"END"з123#ЁsА R│1е5#¤uН LO$,FK$wЛ R$yБе111$&{PT$(DY)│"":DY│DYм1$>}Е Т│ Л(13)з150:Д125$tЦЮ:З"**************MENU**************";:А R│1 е 13$ФШЗ Л(Rл64);"-"; О(PT$(R),13)$ЬЪЛ R$┌ЬА R│1 е 13:З@48л((Rм1)н32), Л(77лR);"-"; О(PT$(Rл13),13);$тЮЛ R%аЗ@448,"*****PRESS LETTER OF CHOICE*****";%вП%,дX$│ Т:Е X$│""з164%fжX│ К(X$)м64:Е X┤1 з164 :Д Е X▓26 з164 :Д Е X▓DY з 164%vиЕ X│1 з 202%ИкЮ0:А R│1 еXм1%ЩмН H$,IG$,IH$%еоН FLAG$%╝░Е FLAG$│"STOP"з186%╦▓А RR│1 е 5%╪┤Н LO$,XX%с╢Л RR%ы╕Бе174%є║Л R%■╝Бе 202&╛TP│10:Z│ З(H$):А RR│1 е Z&&┐MM│ У&R└W│ К( Р(H$,RR,1))м64:Е W┤1 ▒ W▓26 з 196&u┬╞"S4BM"л И(TP)л",180C0"лPL$(W)&В─TP│TPл14&Л╞Л RR&С╚Р&╩╩ER$│"C1R5ND5U5L2ND12L2ND12L2ND12L2ND12L2ND12R5D5C0" &╒╠Ю0:P│0&ц╬Н H$,IG$,IH$&Є╨Н FLAG$'%╥Е FLAG$│252, 29),╜BwтРBwь┴ 6,1B3x╗( 0, 70)м( 70, 66),╜BFx╗м( 170, 76),╜BYx(╗м( 230, 96),╜Blx2╗м( 255, 94),╜BЙx<╗( 255, 64)м( 234, 71),╜BЬxF╗м( 174, 52),╜BоxP╗м( 63, 42),╜B┐xZ╗м( 0, 48),╜B┼xdРB╧xn┴ 6,1BщxМ╗( 0, 61)м( 50, 81),╜B№xЦ╗м( 121, 96),╜Cxа╗м( 173, 92),╜C"xк╗м( 216, 70),╜C5x┤╗м( 255, 52),╜C;x╛Р0, 76),╜BYx(╗м( 230, 96),╜Blx2╗м( 255, 94),╜BЙx<╗( 255, 64)м( 234, 71),╜BЬxF╗м( 174, 52),╜BоxP╗м( 63, 42),╜B┐xZ╗м( 0, 48),╜B┼xdРB╧xn┴ 6,1BщxМ╗( 0, 61)м( 50, 81),╜B№xЦ╗м( 121, 96),╜C                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 {$:Г******* STUNT  PILOT *******G
:Г*  EXPERIMENT IN GRAPHICS  *j:Г*       FOR 16K  ECB       *Н:Г****** BY * BOB POPPE ******▒└5:Т65495,0:H2│2:H3│3:Бж86:Бж70╜М C(15)╪╚1,1:╝:┐1,0:Т65314,248¤╔"V20T50O1":AT│9:X│38:Y│160:Бе51AT│1:Бж29&	X│26:Y│170:╔"V20T50O1"F
:Г**** START MAIN LOOP ****zJ0│ Н(0):J1│16м Б( Н(1)о3.9):J3│8м Б( Н(3)о7.5)ЦЕ J3┤1 з АW│1е50:Л:Бе20н
ЕJ1│0зAT│ATл1:Бж28┼ЕJ1│16зAT│ATм1:Бж27шX│Xл Б(J3нSS):Y│YлSAл Б(J1лSD)■ЕX┤50░Y▓170зY│170 
ЕX┤16зX│16 ЕY┤16зY│16 6ЕY▓174▒X▓232░Y▓110з42 ?╔"C" M╟3е1:╟4е2 n┼(XлXP,YлYP)м(XлXQ,YлYQ),C,▒ w╔"D" оЕX▓200░X┤222░Y▓168зЕ Ж(65280)│126▒ Ж(65280)│254з48 ╖Бе11 ї:Г**** END MAIN LOOP ****         *** FIND NEXT PLANE ***!	ЕAT│0зAT│8:Бж36!ЕAT│9зAT│1:Бж29!]ЕAT│1зXP│м18:YP│м8:XQ│18:YQ│12:N│24:M│114:Бж40:SS│2:SD│м8:Р!жЕAT│2зXP│м16:YP│м16:XQ│16:YQ│12:N│72:M│150:Бж40:SS│1.5:SD│м12:SA│0:Р!юЕAT│3зXP│м8:YP│м16:XQ│12:YQ│18:N│74:M│112:Бж40:SS│.2:SD│м12:SA│м6:Р"9 ЕAT│4зXP│м16:YP│м16:XQ│16:YQ│14:N│120:M│150:Бж40:SS│м1.5:SD│м12:SA│0:Р"z!ЕAT│5зXP│м16:YP│м8:XQ│18:YQ│8:N│116:M│110:Бж40:SS│м2:SD│м8:Р"╛"ЕAT│6зXP│м16:YP│м12:XQ│18:YQ│18:N│160:M│148:Бж40:SS│м1.5:SD│4:Р##ЕAT│7зXP│м16:YP│м16:XQ│10:YQ│18:N│162:M│114:Бж40:SS│м.2:SD│10:Р#D$ЕAT│8зXP│м12:YP│м16:XQ│18:YQ│14:N│20:M│148:Бж40:SS│1.5:SD│4:Р#{%ЕAT│9зXP│м24:YP│м10:XQ│24:YQ│10:N│210:M│154:Бж40:Р#│&ЕAT│10зXP│м18:YP│м10:XQ│18:YQ│10:N│208:M│114:Бж40:Р#╥':Г**** GET NEXT PLANE ****# (╚1,4:─(NлXP,MлYP)м(NлXQ,MлYQ),C,G:╚1,1:Р$):Г*** CRASH TRY AGAIN ***$>*╚1,1:АR│4е16й6:┬(X,Y),R,1:ЛR$Ф+╔"V30T65O1CDEFGAB":АR│1е2:╔"V<CDEFGAB":ЛR:╔"V30T10O1P1T200GP1AT50P1P1O5BT5P1T200E%L,╞"BM20,40U11NL4R4BR8ND11R8D6L8R3F5BR12U7NH4E4BD11BR20U7E4F4D2NL8D5BR8U11R8BD6NL4D5NL8BR8U7E4F4D2NL8D5BR8NU11BR8U11F8NU8D3BR28U7NH4E4BR16ND11R8D11NL8BR8U11R8D6L8R3F5BR16U11F8NU8D3"%`-I$│ Т:ЕI$│""з45%Й.ЕI$│"Y"з7:ДЕI$│"N"з:Т65494,0:Ю:К:Д45%и/:Г***GO BACK TO HANGER ***&0AT│9:Бж37:АR│1е3:АW│1е50:ЛW:╔"C":╟3е1:╟4е2:┼(Xл10лXP,YлYP)м(Xл10лXQ,YлYQ),C,▒:╔"D":ЛR&]1AT│10:Бж38:АX│228е36йм8:АW│1е50:ЛW:╔"C":╟3е1:╟4е2:┼(XлXP,YлYP)м(XлXQ,YлYQ),C,▒:╔"D":ЛX&╡2AT│9:Бж37:АR│1е4:АW│1е50:ЛW:╔"C":╟3е1:╟4е2:┼(XлXP,YлYP)м(XлXQ,YлYQ),C,▒:╔"D":ЛR:Бе8&Ї3AT│9:Бж37:╔"C":╟3е1:╟4е2:┼(XлXP,YлYP)м(XлXQ,YлYQ),C,▒:╔"D"'4Е Ж(65 C0<ь╞"BM160,190;":N$│"  WHAT":а1,20:Бж10020:а60,10:Бе 11000`xИ A Бе 2000,3000,4000,5000,90000s╧:ГTAKE ROUTINE0Б╨А C│1 е Y0ъ┌Е B$│O$(C) ░ O(C)│L ░ O$(C)┤▓"*" з O(C)│1000:╞"BM10,140;":N$│LO$(C)л" TAKEN":а 10,10:Бж10020:Бе 10000ЄфЛ C1оюЕ B$│"GOLD" з ╗(0,140)м(255,191),╛,BF:╞"BM10,165;":N$│"WITH WHAT":Бж 10020:Бж 20005:ЕA$│"PAN"░O(1)│1000░O(3)│L з O(3)│1000:╞"BM10,130;":N$│"TAKEN":а100,10:Бж 10020:O$(3)│"GOLD":Бе10001ь╞"BM100,140;":N$│"CAN NOT TAKE IT":а 10,10:Бж10020:Бе11001 ╖:ГDROP ROUTINE2
╕А C│1 е Y21┬Е B$│O$(C) ░ O(C)│1000 з O(C)│L29╠Л C2^╓Е B$│"GOLD" ░ O(3)│1000 з O(3)│L2jрБе 10002{Я:ГGO ROUTINE2▓аА C│1 е 4:Е B$│T$(C) з DR│C:Бе 4020::ГDR=DIRECTION2┬кЛ C:Бе 10002ё┤Е T(DR,L)▓0 з L│T(DR,L)::ГMOVE TO NEW ROOM3╛а 120,5:Бе 10003З:Г LOOK ROUTINE3CИЕ A$│A1$ з 1000::ГONLY ONE WORD TYPED3_Ь╗(0,140)м(255,191),╛,BF3qж╞"BM 10,170;"3├░Е B$│"BOOK" з N$│"PANNING FOR GOLD CAN MAKE YOU RICH":Бж 10020:╔"CDE":Бе 11004
─Е B$│"PAN" з N$│"IT BELONGED TO AN OLD MINER":Бж 10020:╔"EFG":Бе 11004_╬Е B$│"GOLD" з N$│"IT LOOKS LIKE YOU STRUCK IT RICH":Бж 10020:╔"GAGAG":Бе 11004Т╪N$│"NOTHING SPECIAL":Бж 10020:╔"CECEDC":Бе11004к#':ГINVENTORY ROUTINE4▌#(╗(0,145)м(255,191),╛,BF:N$│"YOU ARE CARRYING "4·#2HORIZONTAL│10:VERTICAL│15!#<╞"BM10,147":Бж 10020:╞"BM 10,164;"5,#AN$│" "5:#FА V│1 е Y5T#KЕ O(V)│1000 з ╞ G$(V)5z#PЕ O(V)│1000 з N$│N$лLO$(V)л"    "5Э#ZHO│HOл6н З(N$):Е HO▓245 з 90705й#_Бе 90785╗#nVE│VEл1:HO│105╒#pЕ VE│2 з ╞"BM 10,174"5Ё#rЕ VE│3 з ╞"BM 10,184;"6#tЕ VE│4 з ╞"BM 10,191;"6#vБж 10020:N$│" "6/#xЛ V:Бе 110065'С6k':ГSUBROUTINE TO PUT TEXT ON       GRAPHICS SCREEN6┐'$А C│1 е  З(N$)::Г SETS       UP A LOOP TO SCAN THROUGH       TEXT TO BE PRINTED6№'.N1$│ Р(N$,C,1) ::Г TAKES ONE CHARACTER FROM N$ AT A TIME7B'8N1│ К(N1$) ::Г FIND ASCII (CHARACTER CODE) OF LETTER IN    STRING7п'=Е N1│32 з ╞"BM+6,0":Бе 10080:Г IF A SPACE IS IN THE STRING, MOVE THE HI-RES CURSOR 6 PIXTELSTO THE RIGHT8R'BЕ N1▓│65 ░ N1┤│90 з Бе 10060 :Д Л C::Г IF     LETTER IS BETWEEN A-Z(INCLUDING A&Z)  THEN CONTINUE, OTHERWISE        GET THE NEXT CHARACTER IN       THE STRING8╚'LN1│N1м64::ГREDCE N1 SO IT        WILL REPRESENT A STRING         ARRAY FOR THE LETTER THAT       N1$ CURRENTLY IS8╒'V╞ W$(N1)8▌'`Л C8у'jР9аN :ГSUBROUTINE TO GET THE          RESPONSE OF THE PLAYER          WHILE STILL IN GRAPHICS         MODE. THIS SERVES THE SAME      FUNCTION AS "INPUT" DID IN      THE ALL TEXT ADVENTURES9╔N%╗(0,182)м(255,191),╛,BF:╞"BM10,189;"9ЄN&A$│""::ГCLEAR OUT ANY PREVIOUS INPUT9№N*I$│ Т:N4Е I$│"" з 20010:N9а 1,1:lN>Е I$│ Л(13) з Р      ::Г IF [ENTER] IS PRESSED,       RETURN TO MAIN PROGRAM.:zNHN1│ К(I$):иNMЕ N1│32 з ╞"BM+6,0":A$│A$л Л(32):Бе 20010;СNOЕN1│8 ░  З(A$)▓0 зA$│ О(A$, З(A$)м1):╞"BM-6,0;XW$(24);":Бе20010:ГIF THE BACKSPACE  CHARACTER IS PRESSED AND THE    PLAYER HAS TYPED AT LEAST 1     LETTER ALREADY, THEN DELETE THE LAST TYPED CHARACTER FROM A$ ANDX-OUT THE LAST CH;╛NRЕ N1▓│65 ░ N1┤│90 з A$│A$лI$ :Д Бе 20010;╘N\N1│N1м64:╞ W$(N1)<NfЕ  З(A$)▓30 з Р       ::Г MAKE SURE INPUT IS NOT MORE THAN 1 LINE LONG<,NpБе 20010<Du/:Г GRAPHIC PICTURES<Ou0┴ 6, 1<ku:╗( 50, 100)м( 50, 47),╜<}uD╗м( 90, 17),╜<РuN╗м( 130, 47),╜<дuX╗м( 130, 100),╜<╖ub╗м( 50, 100),╜<╙ul╗( 51, 47)м( 131, 47),╜<Ёuv╗( 63, 56)м( 72, 60),╜,B=
uА╗( 83, 60)м( 94, 56),╜,B=,uК╗( 104, 56)м( 115, 60),╜,B=KuФ╗( 100, 79)м( 118, 99),╜,B=auЮ┬( 114, 91), 1, 6=~uи╗( 63, 80)м( 93, 96),╜,B=Щu▓╗( 75, 80)м( 75, 96),╜=┤u╝╗( 92, 89)м( 62, 89),╜=╤u╞╗( 125, 42)м( 125, 22),╜=фu╨╗м( 115, 22),╜=ўu┌╗м( 115, 34),╜=¤uфР>uю┴ 6, 1>#u°╗( 20, 62)м( 10, 52),╜>4v╗м( 0, 55),╜>Ov╗( 21, 62)м( 41, 42),╜>av╗м( 61, 63),╜>tv ╗м( 101, 23),╜>Зv*╗м( 151, 93),╜>Ъv4╗м( 181, 63),╜>нv>╗м( 211, 83),╜>└vH╗м( 231, 63),╜>╙vR╗м( 255, 93),╜>Ёv\╗( 123, 53)м( 149, 33),╜?vf╗м( 179, 64),╜? vp╗( 139, 54)м( 143, 49),╜?3vz╗м( 147, 54),╜?PvД╗( 193, 71)м( 204, 61),╜?cvО╗м( 220, 71),╜?~vШ╗( 22, 91)м( 40, 77),╜?Рvв╗м( 54, 87),╜?кvм╗( 0, 86)м( 20, 69),╜?╝v╢╗м( 32, 81),╜?╫v└╗( 81, 62)м( 91, 52),╜?ъv╩╗м( 101, 62),╜?Ёv╘Р?·v▐┴ 6,1@w╗( 6, 80)м( 56, 80),╜@'w╗м( 106, 70),╜@:w╗м( 156, 82),╜@Mw$╗м( 206, 72),╜@`w.╗м( 255, 72),╜@zw8╗( 6, 92)м( 56, 92),╜@НwB╗м( 106, 82),╜@аwL╗м( 156, 92),╜@│wV╗м( 206, 82),╜@╞w`╗м( 255, 82),╜@сwj╗( 59, 77)м( 59, 97),╜@■wt╗( 107, 88)м( 107, 68),╜Aw~╗( 157, 78)м( 157, 98),╜A8wИ╗( 207, 88)м( 207, 68),╜AUwТ╗( 255, 68)м( 255, 88),╜AnwЬ╗( 8, 75)м( 8, 99),╜AНwж┬( 255, 0), 14, 6,1,.3,.55AШw░┴ 6, 1A┤w║╗( 238, 9)м( 218, 17),╜A╤w─╗( 246, 14)м( 231, 24),╜Aьw╬╗( 235, 4)м( 215, 5),╜B	w╪╗( 255, 17)м(  %<└4:Х 800:Ю3
╚4,1:╝:┐0*╚ 3:╚4ЪЗ"I RECOMMEND MODE 4, BUT TAKE    YOUR PICK, PLEASE. ";:Й"GRAPHICS MODE 3 OR 4";G:Е G┤▓ Б(G) ▒ G▓4▒ G┤3 з 3д╚ G,1':Г**IMPORTANT** 16K USERS, DO     NO TYPE IN ANY SPACES OR REM    STATEMENTS OR THE PROGRAM       WILL NOT FIT IN MEMORY!!!!!!8
:Г LISTING 1Q:Г GRAPHIC ADVENTUREП:Г 12/83   BY                            ERIC W. TILENIUS═:Г TO BE USED WITH TUTORIAL ON WRITING GRAPHIC ADVENTURES D:Г DESIGNED TO BE USED AFTER       READING "WRITING ADVENTURE      PROGRAMS" IN FEBRUARY'S          R A I N B O W  g:Г REQUIRES 16K EXTENDED BASIC К:Г**************************** ┼X│5 ::Г CHANGE X TO THE # OF            ROOMS YOU HAVE №Y│3 ::Г CHANGE Y TO THE NUMBER          OF OBJECTS!3М L$(Xл1)::Г L$ HOLDS ROOM                   NAMES!s М LO$(Yл1)::ГLO$ HOLDS THE         LONG OBJECT DESCRIPTIONS!м"М O$(Yл1) ::ГO$ CONTAINS ONE       WORD OBJECT NAMES!х$М C$(20)  ::Г ARRAY FOR THE                 COMMANDS"&М T(4,Xл1)::ГTRAVEL TABLE                    ARRAY"](М C(20)   ::ГARRAY FOR THE                   COMMAND NUMBERS"}*М O(Yл1)  ::ГOBJECT NUMBERS"∙,М G$(Yл1)::ГTHIS ARRAY WILL       HOLD THE GRAPHIC DRAW           STRINGS FOR REPRESENTING        THE OBJECTS IN HI-RES#e.М W$(32)::ГW$ IS USED TO         HOLD THE DRAW STRINGS USED      TO PUT TEXT ON THE GRAPHICS     SCREEN#Б2:Г TITLE & INSTRUCTIONS$i<Ю3:З"GRAPHIC MINIADVENTURE":З@128,"DESIGNED TO BE USED WITH THE    TUTORIAL ON CREATING GRAPHIC    ADVENTURES. THIS PROGRAM DEMONS-TRATES THE FUNDAMENTALS OF      GRAPHIC ADVENTURES. THE OBJECT  IS TO FIND THE GOLD AND BRING ";$|>З"ITBACK HOME"$С@А C│1 е 3000:Л C%A:Г HI-RES LETTERS. ADAPTED         FROM A PROGRAM BY PETER         STUMPF IN NOVEMBER'S            COLOR MICRO JOURNAL (P.26)%5BW$(1)│"BM+3,0;U4E2F2D2L4R4D2"%]CW$(2)│"BM+3,0;R3L3U6R3FDGL3R3FDGBR"%БDW$(3)│"BM+3,0;BUFR3L3HU4ER3BD6"%гEW$(4)│"BM+3,0;R3L3U6R3FD4GBR"%╚FW$(5)│"BM+3,0;R4L4U3R3L3U3R4BD6"%ыGW$(6)│"BM+3,0;U3R3L3U3R4BD6BL"&HW$(7)│"BM+3,0;BUFR2EUHLBL2D2U4ER3BRBD6"&5IW$(8)│"BM+3,0;U6D3R4U3D6"&VJW$(9)│"BM+3,0;R4L2U6L2R4BD6"&vKW$(10)│"BM+3,0;BUFR2EU5BD6"&ЦLW$(11)│"BM+3,0;U6D3RE3G3F3"&┤MW$(12)│"BM+3,0;BU6D6R4BL"&╤NW$(13)│"BM+3,0;U6F2E2D6"&ЇOW$(14)│"BM+3,0;U6DF2F2DU6BD6;"'PW$(15)│"BM+3,0;BUU4ER2FD4GL2HFBR3"'?QW$(16)│"BM+3,0;U6R3FDGL2BD3BR3"'kRW$(17)│"BM+3,0;BUU4ER2FD4GL2HFR2EHF2BL"'ОSW$(18)│"BM+3,0;U6R3FDGL3R2F2D"'╢TW$(19)│"BM+3,0;BUFR2EUHL2HEUR2FBD5"'╫UW$(20)│"BM+3,0;BU6R4L2D6BR2"'·VW$(21)│"BM+3,0;BU6D5FR2EU5BD6"(!WW$(22)│"BM+3,0;BU6D2FD2FEU2EU2BD6"(DXW$(23)│"BM+3,0;BU6D6E2F2U6BD6"(dYW$(24)│"BM+3,0;UE4UBL4DF4D"(КZW$(25)│"BM+3,0;BU5UDF2E2UDG2D3BR"(л[W$(26)│"BM+3,0;BU6R4DG4D1R4"(╞b:Г DATA FOR ROOM NAMES)dЖ AT HOME,IN THE MOUNTAINS,BY A PLAIN,BY A STREAM,LOOKING TOWARD A VALLEY)'╟:Г OBJECT DATA)i╚Ж A GOLD MINING PAN,PAN,2,AN OLD BOOK,BOOK,3,GOLD NUGGETS,*,4)|
+:ГTRAVEL TABLE)К
,Ж 0,0,2,0)Ш
6Ж 0,0,3,1)ж
@Ж 0,5,0,2)┤
JЖ 0,0,5,0)┬
TЖ 3,0,0,4)╓
П:ГCOMMAND TABLE*
РЖ TAKE,1,GET,1,DROP,2,GO,3,LOOK,4,READ,4,INVENTORY,5*-W:Г READ DATA INTO STRINGS*GXА C│1 е X:Н L$(C):Л C*mbА C│1 е Y:Н LO$(C),O$(C),O(C):Л C*ЭlА C│1 е X:Н T(1,C),T(2,C),T(3,C),T(4,C):Л C*╫vT$(1)│"NORTH":T$(2)│"SOUTH":T$(3)│"EAST":T$(4)│"WEST"*№АN│7::Г# OF VERBS IN COMMAND LIST+КА C│1 е N:НC$(C),C(C):ЛC+8иL│1::ГSTARTING ROOM NUMBER+X╝:Г DRAW STRINGS FOR OBJECTS+c╞:Г PAN+и╨G$(1)│"BM 100,120;U20;E5R20F5D20G5L20H5;U3;"лW$(16)лW$(1)лW$(14)+┤┌:Г BOOK,фG$(2)│"BM 20,120;U30;R26;F5;D20;G5;L26;U12;"лW$(2)лW$(15)лW$(15)лW$(11),ю:Г G-O-L-D !!!,/°G$│";R4F2D4G2L4H2U4E2;",pА C│1 е 6:Н Q1,Q2:G$(3)│G$(3)л"BM "л И(Q1)л","л И(Q2)лG$:Л C,ЯЖ 80,80,20,100,40,60,200,110,100,100,40,90,йД┐ 1,1,рш┴8,1:╗(0,150)м(255,191),╛,BF::ГCLEAR OUT TEXT AREA-щN$│"YOU ARE "лL$(L):╞"BM10,158;":Бж 10020-Mэ╗(0,0)м(255,147),╛,BF:И L Бж 30000,30190,30430,30700,30830-WЁ┴ 8,1-iЄN$│"YOU SEE "-У№А C│1 е Y:Е O(C)│L з N$│N$лLO$(C)л" "-к
Е O(C)│L з ╞ G$(C)-▒ЛC.
Е N$│"YOU SEE "з N$│N$л"NOTHING"::ГIF YOU DON'T SEE ANYTHING THEN PRINT "NOTHING".!╞"BM10,168;":Бж 10020.6N$│"EXITS LEAD ".aА C│1 е 4:Е T(C,L)▓0 з N$│N$лT$(C)л" ".i$Л C.Д)╞"BM 10,179;":Бж 10020/L3Е O(3)│1000 ░ L│1 з АC│1 е 100:┐,0:┐,1:Л:╞"S8;BM 10,120;":N$│"YOU MADE YOUR ":Бж 10020:╞"BM 10,140;":N$│"FAMILY RICH":Бж 10020:╔"O2CEDFGGDCECGACO3CDECECO1CO2CO3CCCO1ECO3C":Ю4:З"CONGRATULATIONS":К/V=┴ 6,1/iLA$│"":Бж 20005/┴░АC│1е  З(A$):Е  Р(A$,C,1)│" "з A1$│ О(A$,Cм1):B$│ Р(A$,Cл1, З(A$)мC):Бе 1230 :Д Л C/╠║A1$│A$/┘╬АC│1 е N/∙╪Е C$(C)│A1$ з A│C(C):Бе14000
тЛ ┴&$
:ГRAINBOW ON TAPE MONTHLY MENU&7╚3,1:╝:┐0,1:Ю0&кRB$│"U8R4FD2GNL4FD3BR5U6E2R2F2D2NL6D4BR5NU8BR5U8F7NDU7BR5D8R4EU2HNL4EU2HNL4BR6NR4GD6FR4EU6HBR5D6F2E2NU4F2E2U6"&ч(┬(256,130),168,3,.7,.50,.25:┬(256,126),142,3,.75,.50,.25& 2╞"S4BM116,126C3L50"'<├(100,124),3,3'NFАI│0е30й30:АY│0е1:┬(256мI,130лY),168,2,.7,.50,.25:ЛY:ЛI'dP╞"BM20,132C2R161"'vZ├(75,130),2,2'Цd┬(256,130),257,4,.45,.5,.25'╢n┬(256,138),226,4,.56,.5,.25'╩x╞"BM0,128C4R45"'▄В├(15,126),4,4'°М╗(0,126)м(256,147),╛,BF(Ц╗(0,0)м(256,192),╛,B(*а╗(0,0)м(256,22),╛,BF(iк╞"S20BM150,124C3R20EU10HL20GD10FR3UE2L5U7ER18FD7L5NL12F2D"(Е┤┬(176,90),8:┬(220,90),8(│╛╗(176,82)м(220,82),╜:╗(176,98)м(220,98),╜(┼╚├(176,70),3,3)╥┐1,1:АI│1е8:R$│ И(Iл10)л","л И(Iл168):╞"S12BM"лR$л"C4"лRB$:Л)▄╞"S12BM19,177C3"лRB$)\ц╚3,1:┐1,1:АI│1е300:Л:┐1,0:АI│1е300:Л:┐1,1:А I│1 е 500:ЛI)bЁЮ)r·Х 200,16352)Ц
А R│16352 е 16380:Н P:Т R,P:Л R)е
╣ Г0│16352)╓
Ж 189, 179, 237, 31, 152, 142, 4, 0, 16, 142*
"Ж 4, 31, 237, 137, 1, 224, 237, 164, 49, 168*3
,Ж 32, 237, 129, 140, 4, 32, 38, 240, 57*G
6Ю 5 :X│ Г0(100)*d
@З@72, "RAINBOW ON TAPE";*u
JЗ@142,"FOR";*Р
TЗ@201, " MARCH 1984 ";*й
^З@426, "HIT A KEY.";*╕
hX│ Г0(100)*╩
rА R │ 1 е I:Л*╪
|X│ Г0(97)*щ
ЖА T│ 1 е I:Л+
РЕ I▓1 з I│Iм1 :Д I│50+
ЪЕ  Т│"" з 360+
дЮ+:
оЗ"        RAINBOW ON TAPE"+Z
╕З"       (C) FALSOFT, 1984"+Ь
рЗ "  (XX)=PAGE NUMBER OF LISTING          IN MARCH'S RAINBOW"+в
ъЗ+╔
ЇЗ " (21) MARKUP",  " (21) %PROFIT"+Є
■З" (32) MEMCHECK",  " (40) MINIVENT",З" (50) ANALYST",  " (68) PILOT",@З" (76) INFLTION",  " (88) PLAYBOOK",jЗ" (96) LISTING2",  " (96) LISTING3" ,Т&З"(100) COSTCALC", "(122) AVERAGES",ШNЗ,╝XЗ"   PRESS ANY KEY TO CONTINUE",╠bЕ  Т│""з610,╥lЮ,√vЗ:З "  (XX)= PAGE NUMBER OF LISTING"-АЗ -+ФЗ"(124) HARDCOPY*", "(129) KEYBOARD"-QЮЗ"(134) CONVERT", "(136) PAINTER"-wиЗ"(164) HOUSE$", "(171) RUNNER 1"-Я▓З"(173) RUNNER 2", "(174) RUNNER 3"-╞╝З"(192) CHARACTR", "(196) DISKFIX"-▄╞З"(202) PIEGRAPH".┌З"  *=MACHINE LANGUAGE PROGRAM".фЗ.IюЗ "    PRESS ANY KEY TO RETURN          TO FIRST PAGE OF MENU".q°З "PRESS ^ (UP ARROW) TO EXIT MENU".░Е  Т│ Л(94) з Т 113,0:в 40999 :Д Е  Т│"" з 770 :Д Ю:Бе 430.└З б(32,45);IX"-▄╞З"(202) PIEGRAPH".┌З"  *=MACHINE LANGUAGE PROGRAM &2:Г *********************&;7:Г *  HARVEY DETTMANN  *&X<:Г * SILVERLEAF  DRIVE *&uA:Г * SUSSEX,WIS. 53089 *&ТF:Г *********************&ЩP:Г&бdЮ:З&╞
,Ю: :Г ROUTINE FOR SCREEN DISPLAY&╠
@З&Є
TЗ"  MARKUP-COST TO SELLING PRICE"'
YЗ б(32,191)'
mЙ"ITEM:";I$')
nЕ  З(I$)▓15 Бе 300'B
|Й"   COST/PER/DZ:";C']
ЖЗ"   YOUR COST EACH:";'r
ЛЗ═"$###.##";Cо12'Л
РЙ"   % OF MARKUP:";M'Ы
╕X│CнMо100лC'░
╠Z│(CнMо100лC)о12'└
╓З б(32,191)'┌
рЗ"SELLING PRICE IS:";'я
ЇЗ═"$###.## DZ";X(

■З"  -- OR --"(З"SELLING PRICE IS:";(1З═"$###.## EA.";Z(7&З([0Й" PRINTER OR SCREEN (P/S)";PR$(}5Е PR$┤▓ "S" ░ PR$┤▓ "P" з 560(С:Е PR$│"S" з 300(е?Е PR$│"P" з 700(┬╝Ю: :Г ROUTINE TO PRINTER(▌╜З@201,"**************"(°╛З@233,"PRINTING  DATA")┐З@265,"**************");╞З:З"  MARKUP-COST TO SELLING PRICE")z╨З#м2, Л(31)"     MARKUP COST TO SELLING PRICE":З#м2, Л(30))╘╤З#м2,"       ITEM           COST DZ. COST EA.  % MARKUP   RETAIL DZ. RETAIL EA.":З#м2)┌╥В)ў╙Ю:З@201,"**************"*╘З@233,"PRINTING  DATA"*1╒З@265,"**************":З:З*AX│CнMо100лC*LY│Cо12*aZ│(CнMо100лC)о12*oЗ#м2,д5);*| З#м2,I$;*Л*З#м2,д20);*е4З#м2,═" $###.##  ";C;*┐>З#м2,═"  $##.##  ";Y;*▄HЗ#м2,═"   ### %     ";M;*ЎRЗ#м2,═" $###.##  ";X;+\З#м2,═"  $##.##  ";Z+fЗ#м2:Ю+5pЗ" ANOTHER TO PRINTER"+ZuЙ" OR RETURN TO SCREEN(P/S";K$:Ю+tzЕ K$│"P" з 895 :Д 300+|З:З+ПДЙ"   ITEM:";I$+жЙЕ  З(I$)▓15 Бе 895+╛ОЙ"  COST/PER/DZ:";C+╒УЗ"YOUR COST EA.:";+ъШЗ═"$###.##";Cо12,
ЭЙ" % OF MARKUP:";M,└З,╩Бе 722#м2:Ю+5pЗ" ANOTHER TO PRINTER"+ZuЙ" OR RETURN TO SCREEN(P/S";K$:Ю+tzЕ K$│"P" з 895 :Д 300+|З:З+ПДЙ"   ITEM:";I$+жЙЕ  З(I$)▓15 Бе 895+╛ОЙ"  COST/PER/DZ:";C+╒УЗ"YOUR COST EA.:";+ъШЗ═"$###.##";Cо12,
ЭЙ" % OF MARKUP:"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ┬ ┬├
┴ ├─┴├├╟╔┬╔╟┼─%&'(╞*+,-╚/012├╚5╟7┬9├┼         ER 1BAS4═RUNNER 2BAS6?RUNNER 3BAS
ьCHARACTRBAS8╤DISKFIX BAS PIEGRAPHBAS	MENU    BAS ─MARKUP  BAS!%PROFIT BAS"ШMEMCHECKBAS#oMINIVENTBAS?ANALYST BAS$ЄPILOT   BAS~INFLTIONBAS)pPLAYBOOKBASBLISTING7BASчPAINTER1BAS│COSTCALCBAS.▌AVERAGESBASwHARDCOPYBINqKEYBOARDBASЮCONVERT BAS3шAINTER BAS│HOUSE$  BAS,RUNNER 1BAS4═RUNNER 2BAS6?RUNNER 3BAS
ьCHARACTRBAS8╤DISKFIX BAS PIEGRAPHBAS	LISTING5BAS:g                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  1 RAINBOW                                                                                                                      Х&
Ю&*З:З"        PERCENT OF PROFIT"&KЗ"        *****************"&Q(З&a2Й" ITEM";I$&v<Е  З(I$)▓15 з 50&ОFЙ"        COST  ";C&жPЙ "SELLING PRICE";S&оZЗ:З&▀dЗ═"PERCENT OF PROFIT ###.## %";((SмC)оC)н100&°nЗ:З"  ANOTHER TRY ?"'xЙ"  PRINTER OR SCREEN(P/S)";PS$'AВЕ PS$  ┤▓ "P" ░ PS$ ┤▓ "S" з 130'[МЕ PS$│"S" з 10 :Д 180'qЦЮ:З@236,"THE END"'ЗаЗ@299,"THANK YOU"'ТкБе 170'к┤:Г PRINT TO PRINTER'░╛Ю'╦╚З@201,"**************"'ц╥З@233,"PRINTING  DATA"(
▄З@265,"**************"(цЗ(6ыЗ#м2, Л(31)"       PERCENT OF PROFIT":З#м2(GьЗ#м2, Л(30);(ЛЁЗ#м2,"          ITEM          COST   SELLING PRICE    % PROFIT"(ФїЗ#м2(Ъ·Ю(╡
З@201,"**************"(╨
З@233,"PRINTING  DATA"(ы
З@265,"**************"( 
"X│((SмC)оC)н100)

,З#м2,д5);)
6З#м2,I$;)(
@З#м2,д20))B
JЗ#м2,═" $###.##  ";C;)`
TЗ#м2,═"    $###.##   ";S;)Б
^З#м2,═"     ###.## %";X:З#м2)З
hЮ)П
rЗ:З)╧
|Й" ANOTHER ? PRINTER(P) OR                   SCREEN(S)";PS$)є
ЖЕ PS$ ┤▓ "P" ░ PS$ ┤▓ "S" з 380*
РЕ PS$│ "P" з 410 :Д 10*
ЪЮ*6
дЗ:З@39,"PERCENT  OF PROFIT":З*I
оЙ"   ITEM:";I$*_
╕Е  З(I$)▓15 з 410*q
┬Й"   COST:";C*Й
╠Й"SELLING PRICE:";S*Ф
╓Бе 250ANOTHER ? PRINTER(P) OR                   SCREEN(S)";PS$)є
ЖЕ PS$ ┤▓ "P" ░ PS$ ┤▓ "S" з 380*
РЕ PS$│                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  l&
В MEMCHECK (1.3)&/В BY PETE EICHSTAEDT&BВ CREATED 1983&HВ&NЮ&зЗ:З"THIS PROGRAM WILL DISPLAY MEMORYAND ALLOW YOU TO CHANGE IT OR   LEAVE IT ALONE."&сЗ:З"TO INCREMENT TO THE NEXT MEMORY BYTE PRESS enter"'З"TO DECREMENT TO THE LAST MEMORY BYTE ENTER "; Л(126)'8	З"TO STOP  PRESS break"'Z
З"TO START PRESS enter":ЙS$:З'yЙ"ENTER START ADDRESS ";S$'┬Е З(S$)▓4з З" error error error error error":а50,1:а100,1:а50,1:Бе11'╘
S│ Й("&H"лS$)'ьа200,1:ЕS▓65535зS│0'¤ЕS┤0зS│65535(З"ADDRESS : "; Ь(S),(5З "DATA : "; Ь( Ж(S));" ";(R╗ЙC$:Е C$│""з S│Sл1:Бе14(iЕC$│"^"зS│Sм1:Бе14({Е З(C$)▓2Бе25(ЧЕ C$▓"FF" ▒ C$┤"0"Бе 25(╣Е  О(C$,1)▓"9"░ C$┤"A"з Бе 25)
Е З(C$)│1Бе24:ДЕ Р(C$,2,1)┤"0"▒ Р(C$,2,1)▓"F"▒ Р(C$,2,1)▓"9"░ Р(C$,2,1)┤"A"Бе25)-Т S,  Й("&H"лC$):S│Sл1:Бе14)kЗ" error error error error error":а50,1:а150,1:а50,1:Бе16Е З(C$)▓2Бе25(ЧЕ C$▓"FF" ▒ C$┤"0"Бе 25(╣Е  О(C$,1)▓"9"░ C$┤"A"з Бе 25)
Е З(C$)│1Бе24:ДЕ Р(C$,2,1)┤"0"▒ Р(C$,2,1)▓"F"▒ Р(C$,2,1)▓"9"░ Р(C                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 )я/
:ГCOPYRIGHT (C) DEC.1983 EDWARD W. CARSON_:ГFOR PERSONAL USE OF RAINBOW  READERS ONLYШ:ГE. CARSON - 7600 CONDIT RD.  CENTERBURG OHIO 43011╕Ю(5):АX│1024е1055:ТX,255:ЛX═АY│1087е1535 й32╪ТY,255▀ЛYЎАC│1534е 1503 йм1 
	ТC,255
ЛCАT│1504е1022 йм32)ТT,2550
ЛTTЗ@197 ,"THE FINANCIAL ANALYST""bТ1247,255}АT│1242е1246:ТT,207:ЛTШАT│1217е1220:ТT,207:ЛT╢З@454," EDWARD W. CARSON"╤АT│1497е1502:ТT,207:ЛTщТ1503,255:Т1279,255Ї AC$│ Т !ЕAC$│""з32 #МZX$(15),IN$(15),OE(2) ;&Ю:АT│1024е1055:ТT,207:ЛT }(З@64,"THIS PROGRAM WILL COMPUTE":З"A FINANCIAL ANALYSIS OF A" └2З"GIVEN COMPANY USING DATA FROM":З"THEIR FINANCIAL STATEMENTS" ▀3АT│1535е1504 йм1:ТT,207:ЛT  4З:З"PRESS ANY KEY TO BEGIN"!
<VV$│ Т!FЕVV$│""з60!FPЮ:З"WHAT IS THE NAME OF THE COMPANY":ЙN$!bZЗ:З"ENTER TODAY'S DATE"!sdЗ"MONTH":ЙJ$!РnЗ"DAY":ЙJJ :З"YEAR":ЙJP !вxЕJP┤100 Бе140!нВБе2220!╝МJP│JPл1900!╟ЦБе2220!═аЮ"кЗ"WILL THIS ANALYSIS BE FOR":З"(1) OR (2) YEARS":ЙY:ЕY│0зY│1"мЕY▓2зY│2"6пАT│1088е1119:ТT,207:ЛT"M┤З"ENTER THE DATES""Z╛АC│1 е Y"o╚З"YEAR ";C:ЙD(C)"М═ЕD(C)┤100зD(C)│D(C)л1900"У╥ЛC"┬▄Ю:З:З"WOULD YOU LIKE A PRINTOUT(Y,N)":ЙAI$"╒цЕ AI$│"Y"Бе260"шЁЕ AI$│"N"Бе260"Є·Бе220#
Ю:З"ENTER THE FOLLOWING INFORMATION."#)
АC1│1е12#6
НZX$(C1)#>
"ЛC1$
,Ж NET SALES,COST OF GOODS SOLD,OPERATING EXPENSES,INTEREST EXPENSE,INCOME TAX EXPENSE,NET INCOME,CASH AND EQUIVALENTS,ACCOUNTS RECEIVABLE,ENDING INVENTORY,TOTAL CURRENT ASSETS,TOTAL FIXED ASSETS,TOTAL ASSETS $!
.АC1│13е15$.
/НZX$(C1)$6
0ЛC1$Б
6Ж TOTAL CURRENT LIABILITIES,TOTAL LONG TERM DEBT,TOTAL OWNER'S EQUITY $Н
JАT│1е Y$Ь
KЕ T│1 з340$к
LЗ"YEAR 2"$┼
MАR│1056е1087:ТR,191:ЛR$╥
Nа 100,3 $▄
OБе350$ў
TАD│1056е1087:ТD,207:ЛD%
^З@64,D(T)ZX$(1):ЙS(T)%(
hЗD(T)ZX$(2):ЙCG(T)%>
rЗD(T)ZX$(3):ЙE(T)%T
|ЗD(T)ZX$(4):ЙI(T)%k
ЖЗD(T)ZX$(5):ЙIT(T)%В
РЗD(T)ZX$(6):ЙNI(T)%Ы
ЪЮ:ЗD(T)ZX$(7):ЙCA(T)%▓
дЗD(T)ZX$(8):ЙAR(T)%╔
оЗD(T)ZX$(9):ЙEI(T)%р
╕ЗD(T)ZX$(10):ЙC(T)%°
┬ЗD(T)ZX$(11):ЙFA(T)&
╠ЗD(T)ZX$(12):ЙTA(T)&*
╓Ю:ЗD(T)ZX$(13):ЙCL(T)&B
рЗD(T)ZX$(14):ЙLT(T)&Z
ъЗD(T)ZX$(15):ЙOE(T)&`
ЇЮ&g
■ЛT&rБе2350&А N│1е Y&Ф&GP(N)│ S(N)мE(N)&ж0ЕOE(N)│0Бе580&╝:RE(N)│NI(N)оOE(N)&╬DЕTA(N)│0Бе600&фNRA(N)│NI(N)оTA(N)&їXЕS(N)│0Бе640'
bPM(N)│NI(N)оS(N)'lGM(N)│GP(N)оS(N)'3vOM(N)│E(N)оS(N)'EАЕTA(N)│0Бе660'ZКAT(N)│S(N)оTA(N)'lФЕFA(N)│0Бе680'БЮFT(N)│S(N)оFA(N)'ТиЕC(N)│0Бе700'з▓AC(N)│S(N)оC(N) '╣╝ЕEI(N)│0Бе730'╬╞NS(N)│S(N)оEI(N)'ф╨NC(N)│CG(N)оEI(N)'Ў┌ЕNC(N)│0Бе750(
фDI(N)│365оNC(N)(юЕCL(N)│0Бе770(2°DE(N)│LT(N)лCL(N)(DЕTA(N)│0Бе790(ZDR(N)│DE(N)оTA(N)(lЕOE(N)│0Бе850(В FM(N)│TA(N)оOE(N)(Ш*DQ(N)│DE(N)оOE(N)(о4CQ(N)│CL(N)оOE(N)(─>LQ(N)│LT(N)оOE(N)(┘HQT(N)│S(N)оOE(N)(ъRЕS(N)│0Бе880( \IM(N)│ I(N)оS(N))fET(N)│NI(N)лI (N)лIT(N)),pЕI(N)│0Бе900)BzTE(N)│ET(N)о I(N))TДЕCL(N)│0Бе930)jОCR(N)│ C(N)оCL(N))АШZZ(N)│CA(N)лAR(N))ТвЕCL(N)│0Бе950)имQR(N)│ZZ(N)оCL(N))║╢ЕCA(N)│0Бе970)╧└CO(N)│S(N)оCA(N))с╩ЕCL(N)│0Бе990)ў╘WC(N)│ C(N)мTC(N)*
▐ЕWC(N)│0Бе1100*шWT(N)│S(N)оWC(N)*3ЄRE(N)│RE(N)н100*G№RA(N)│RA(N)н100*[PM(N)│PM(N)н100*oGM(N)│GM(N)н100*ГOM(N)│OM(N)н100*Ч$DR(N)│DR(N)н100*л.DQ(N)│DQ(N)н100*┐8CQ(N)│CQ(N)н100*╙BLQ(N)│LQ(N)н100*┌LЛN*рVЮ*ў`З"ANALYSIS OF ";N$+jЗJ$;" ";JJ ;",";JP +)tЗд19)D (1);"  ";D (2)+J~Зд 6)"****PROFITABILITY****"+ЩИЗ@160,"RETURN ON EQUITY"   :З@178,═"###.##%";RE(1):З@185,═ "###.##%";RE(2)+хТЗ@192,"RETURN ON ASSETS":З@210,═"###.##%";RA(1):З@217,═ "###.##%";RA(2),,ЬЗ@224,"G/P MARGIN  ":З@242,═"###.##%";GM(1):З@249,═"###.##%";GM(2),tжЗ@256,  "O/E MARGIN ":З@274,═"###.##%";OM(1):З@281,═"###.##%";OM(2),╝░З@288,"PROFIT MARGIN":З@306,═"###.##%";PM(1):З@313,═"###.##%";PM(2),╧║ЕAI$│"N"Бе1310,э─З#м2,д6)"ANALYSIS OF ";N$-╬З#м2:З#м2,д6)J$;" ";JJ ;",";JP -;╪З#м2:З#м2:З#м2,д33)D (1);"    ";D (2)-eтЗ#м2:З#м2,д16)"****PROFITABILITY****"-╨ьЗ#м2:З#м2,д2)"RETURN ON EQUITY              ";:З#м2,═"###.##%";RE(1);:З#м2,"   ";:З#м2,═"##.##%";RE(2).;ЎЗ#м2:З#м2,д2)"RETURN ON ASSETS              ";:З#м2,═"###.##%";RA(1);:З#м2,"   ";:З#м2,═"##.##%";RA(2).зЗ#м2:З#м2,д2)"GROSS PROFIT MARGIN            ";:З#м2,═"##.##%";GM(1);:З#м2,"   " ;:З#м2,═"##.##%";GM(2)/
З#м2:З#м2,д2)"OPERATING EXPENSE MARGIN       ";:З#м2,═"##.##%";OM(1);:З#м2,"   " ;:З#м2,═"##.##%";OM(2)/З#м2:З#м2,д2)"PROFIT MARGIN                  ";:З#м2,═"##.##%";PM(1);:З#м2,"   ";: З#м2,═"##.##%";PM(2)/КБж6000/кZЮ:З:Зд19)D$(1);"    ";D$(2)/═dЗд06);"***ASSET MANAGEMENT***"0nЗ@128,"ASSET TURNOVER":З@147,═"###.##";AT(1):З@154,═"###.##";AT(2)0^xЗ@160,"FIXED ASSET TURN.":З@179,═"###.##";FT(1):З@186,═"###.##";FT(2)0зВЗ@192,"CURR.ASSET TURN.":З@211,═"###.##";AC(1):З@218,═"###.##";AC(2)0╗МЕ AI$│"Y"Бе14400╞ЦБе14900╘аЗ#м2:З#м20№кЗ#м2,д16)"****ASSET MANAGEMENT****"1i┤З#м2:З#м2,д2)"ASSET TURNOVER                "   ;:З#м2,═"###.##";AT(1);:З#м2,"   ";:З#м2,═"###.##";AT(2)1╒╛З#м2:З#м2,д2) "FIXED ASSET TURNOVER          " ;:З#м2,═"###.##";FT(1);:З#м2,"   ";:З#м2,═"###.##";FT(2)2A╚З#м2:З#м2,д2)"CURRENT ASSET TURNOVER        "  ;:З#м2,═"###.##";AC(1);:З#м2,"   ";:З#м2,═"###.##";AC(2)2L╥Бж60002lЮ:З:Зд19)D$(1);"    ";D$(2)2СЗ:Зд5)"**INVENTORY MANAGEMENT**"2┐"З@160,"INVENTORY":З @192,"TURNOVER-SALES"2я,З@211,═"###.##";NS(1):З@218,═"###.##";NS(2)36З@224,"INVENTORY":З@256,"TURNOVER-COST"3K@З@275,═"###.##";NC(1):З@282,═"###.##";NC(2)3ЭJЗ@288,"DAYS OF":З@320,"INVENTORY":З@339,═"###.##";DI(1):З@346,═"###.##";DI(2)3▒TЕ AI$│"N"Бе16703ч^З#м2:З#м2:З#м2,д16)"****INVENTORY MANAGEMENT****"4fhЗ#м2:З#м2,д2)"INVENTORY":З#м2,д2)"TURNOVER--SALES                ";:З#м2,═"###.##";NS(1);:З#м2,"   ";:З#м2,═"###.##";NS(2)4хrЗ#м2:З#м2,д2)"INVENTORY":З#м2,д2)"TURNOVER--COST                 ";:З#м2,═"###.##";NC(1);:З#м2,"   ";:З#м2,═"###.##";NC(2)5P|З#м2:З#м2,д2)"DAYS OF INVENTORY              ";:З#м2,═"###.##";DI(1);:З#м2,"   ";:З#м2,═"###.##";DI(2)5[ЖБж60005{┬Ю:З:Зд19)D$(1);"    ";D$(2)5Б╠З5ж╓Зд4)"***FINANCIAL MANAGEMENT***"5мрЗ5єъЗ@160,"DEBT RATIO":З@176,═"####.##%";DR(1):З@184,═"####.##%";DR(2)60ЇЗ@192,"F.L.M.":З@210,═"##.##";FM(1):З@218,═"##.##";FM(2)6v■З@224,"DEBT/EQUITY":З@241,═"###.##%";DQ(1):З@249,═"###.##%";DQ(2)6╛З@256,"C.DEBT/EQUITY":З@273,═"###.##%";CQ(1):З@281,═"###.##%";CQ(2)7
З@288,"L.T.DEBT/EQUITY":З@304,═"####.##%";LQ(1):З@312,═"####.##%";LQ(2)7RЗ@320,"EQUITY TURNOVER":З@337,═"###.##";QT(1):З@345,═"###.##";QT(2)7Щ&З@352,"INT.EXP.MARGIN":З@369,═"###.##";IM(1):З@377,═"###.##";IM(2)7р0З@384,"X INT.EARNED":З@400,═"####.##";TE(1):З@408,═"####.##";TE(2)7є:ЕAI$│"N"Бе19508)DЗ#м2:З#м2:З#м2,д16)"****FINANCIAL MANAGEMENT****"8ШNЗ#м2:З#м2,д2)"DEBT RATIO                     "  ;:З#м2,═  "##.##%";DR(1);:З#м2,"   ";:З#м2,═"##.##%";DR(2)9XЗ#м2:З#м2,д2)"FINANCIAL LEVERAGE MULTIPLIER  " ;:З#м2,═"##.##";FM(1);:З#м2,"    " ;:З#м2,═"##.##";FM(2)9qbЗ#м2:З#м2,д2)"DEBT TO EQUITY                " ;:З#м2,═"###.##%";DQ(1);:З#м2,"  " ;:З#м2,═"###.##%";DQ(2)9▐lЗ#м2:З#м2,д2)"CURRENT DEBT TO EQUITY        " ;:З#м2,═"###.##%";CQ(1);:З#м2,"  " ;:З#м2,═"###.##%";CQ(2):KvЗ#м2:З#м2,д2)"LONG TERM TO EQUITY           " ;:З#м2,═"###.##%";LQ(1);:З#м2,"  " ;:З#м2,═"###.##%";LQ(2):╖АЗ#м2:З#м2,д2) "EQUITY TURNOVER               " ;:З#м2,═"###.##";QT(1);:З#м2,"   ";:З#м2,═"###.##";QT(2);"КЗ#м2:З#м2,д2)"INTEREST EXPENSE MARGIN       " ;:З#м2,═"###.##";IM(1);:З#м2,"   ";:З#м2,═"###.##";IM(2);ОФЗ#м2:З#м2,д2)"TIMES INTEREST EARNED         " ;:З#м2,═"###.##"; TE(1);:З#м2,"   ";:З#м2,═"###.##";TE(2);ЩЮБж6000;╖╨Ю:Зд19)D$(1);"    ";D$(2);╜┌З;тфЗд4)"***LIQUIDITY MANAGEMENT***"<(юЗ@192,"CURRENT RATIO":З@210,═"###.##";CR(1):З@217,═"###.##";CR(2)<l°З@224,"QUICK RATIO":З@242,═"###.##";QR(1):З@249,═"###.##";QR(2)<▓З@256,"CASH TURNOVER":З@274,═"###.##";CO(1):З@281,═"###.##";CO(2)=З@288,"WORKING CAPITAL":З@304,═ "$$####,"    ;WC(1):З@312,═ "$$####,";WC(2)=HЗ@320,"W.C. TURNOVER":З@338,═"###.##";WT(1):З@345,═"###.##";WT(2)=[ ЕAI$│"N"Бе2170=i*З#м2:З#м2=Ц4З#м2,д16) "****LIQUIDITY MANAGEMENT****">
>З#м2:З#м2,д2)"CURRENT RATIO                  ";:З#м2,═"###.##";CR(1);:З#м2,"   ";:З#м2,═"###.##";CR(2)>lHЗ#м2:З#м2,д2)"QUICK RATIO                    ";:З#м2,═"###.##";QR(1);:З#м2,"   ";:З#м2,═"###.##";QR(2)>╫RЗ#м2:З#м2,д2)"CASH TURNOVER                  ";:З#м2,═"###.##";CO(1);:З#м2,"   ";:З#м2,═"###.##";CO(2)?C\З#м2:З#м2,д2)"WORKING CAPITAL                ";:З#м2,═"$$####,";WC(1);:З#м2,"  ";:З#м2,═"$$####,";WC(2)?оfЗ#м2:З#м2,д2)"WORKING CAPITAL TURNOVER       ";:З#м2,═"###.##";WT(1);:З#м2,"   ";:З#м2,═"###.##";WT(2)?╫zЗ@448,"PRESS ANY KEY TO START AGAIN"?сДF$│ Т?ёОЕF$│""з2180?ўШП@вБе80@мЕJ$│"1"зJ$│"JANUARY"@3╢ЕJ$│"2"зJ$│"FEBRUARY"@J└ЕJ$│"3"зJ$│"MARCH"@a╩ЕJ$│"4"зJ$│"APRIL"@v╘ЕJ$│"5"зJ$│"MAY"@М▐ЕJ$│"6"зJ$│"JUNE"@вшЕJ$│"7"зJ$│"JULY"@║ЄЕJ$│"8"зJ$│"AUGUST"@╒№ЕJ$│"9"зJ$│"SEPTEMBER"@я	ЕJ$│"10"зJ$│"OCTOBER"A
	ЕJ$│"11"зJ$│"NOVEMBER"A%	ЕJ$│"12"зJ$│"DECEMBER"A/	$Бе160A:	.Бе2530AE	CАX│1еYAV	FЮ:Зд10),D(X)Ae	GЕX│2з 2378AА	HАR│1056е1087:ТR,207:ЛRAЛ	IБе2380Aж	JАR│1056е1087:ТR,191:ЛRA═	LЗ@96,"1  NET SALES           "S(X)Aё	VЗ"2  COST/GOODS SOLD     "CG(X)B	`З"3  OPERATING EXPENSES  " E(X)B9	jЗ"4  INTEREST EXPENSE    " I(X)B^	tЗ"5  INCOME TAX EXPENSE  " IT(X)BГ	yЗ"6  NET INCOME          " NI(X)BО	zБж2430BЩ	{Бе2437Bф	~З:З"PRESS enter TO CONTINUE OR THE":З"THE LINE NUMBER TO BE CORRECTED"Bэ	WE│0Bї	БЙWEC
	ВЕ WE▓15зWE│0:Бе2433C	ГБж5100C	ДРC/	ЕЮ:Зд10),D(X)C?	ЖЕX│2 з 2443CZ	ЗАR│1056е1087:ТR,207:ЛRCe	ИБе2445CА	ЛАR│1056е1087:ТR,191:ЛRCй	НЗ@96,"7  CASH & EQUIVALENTS  " CA(X)C╬	ТЗ"8  ACCTS.RECEIVABLE    " AR(X)Cє	ЬЗ"9  ENDING INVENTORY    " EI(X)D	жЗ"10 CURRENT ASSETS      "  C(X)D=	░З"11 FIXED ASSETS        " FA(X)Db	║З"12 TOTAL ASSETS        " TA(X)Dn	╝Бж 2430D	╜Ю:Зд10),D(X)DП	╛ЕX│2 з 2497Dк	┐АR│1056е1087:ТR,207:ЛRD╡	└Бе2500D╨	┴АR│1056е1087:ТR,191:ЛRD∙	─З@96,"13 CURRENT LIABIL.     " CL(X)E	╬З"14 LONG TERM DEBT      " LT(X)EC	╪З"15 OWNER'S EQUITY      " OE(X)EN	┌Бж2430EU	▌ЛXEЗ	тЮ:З:З:З"1- review data":З:З"2- analyze  data"EЫ	чЙCX:Е CX│1з2371Eм	шЕ CX│2 з 530E╕	ьБе 2530E╩ьЗ@416,ZX$(WE)E▄PЕWE│1з Бж5500EюQЕWE│2з Бж5501FRЕWE│3з Бж5502FSЕWE│4з Бж5503F$TЕWE│5з Бж5504F6UЕWE│6з Бж5505FHVЕWE│7з Бж5506FZWЕWE│8з Бж5507FlXЕWE│9з Бж5508FYЕWE│10з Бж5509FТZЕWE│11з Бж5510Fе[ЕWE│12з Бж5511F╕\ЕWE│13з Бж5512F╦]ЕWE│14з Бж5513F▐^ЕWE│15з Бж5514Fф_РFЁ|ЙS(X):РF¤}ЙCG(X):РG	~ЙE(X):РGЙI(X):РG"АЙIT(X):РG/БЙNI(X):РG<ВЙCA(X):РGIГЙAR(X):РGVДЙEI(X):РGbЕЙC(X):РGoЖЙFA(X):РG|ЗЙTA(X):РGЙИЙCL(X):РGЦЙЙLT(X):РGгКЙOE(X):РG╔pЗ@448,"PRESS ANY KEY TO CONTINUE"G╒qKRI$│ ТGшrЕ KRI$│""з6001GюsРF¤}ЙCG(X):РG                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 +m
:ГBY J. D. Ray0:Г   5065 FRANCE AVENUES:Г   N. CHARLESTON, S.C. 29406k(:Г   1-803-554-0637Н2:Г   <C> COPYRIGHT NOV., 1983Я<:ГVERSION 1.1╕FЮ5:З@100, б(24,"%");▐PЗ@132,"%      INFLATION       %";ZЗ@164,"%                      %";*dЗ@196,"%    BY J. D. RAY      %";PnЗ@228,"%  COPYRIGHT <C> 1983  %";fxЗ@260, б(24,"%");wВА J│1е950:ЛJБМХ 100еЦМA(12),M$(12),R(12),I(12),M(50)╜аQ│0:D│0:MOD│0:SIG│0ыкH$│"#####.##":P$│"##.#":Z$│"$$###,###.##" ┤T$│"$###,###.##":D$│"#######.##":E$│"###.##" :╛STA$│"STRAIGHT INFLATION" X╚MOD$│"MODIFIED INFLATION" w╥PRO$│"PROJECTED INFLATION" М▄K$│"APPLICATION" ЩцYEAR$│"" ╗ЁЮ:З@167,"PROGRAM APPLICATION" ╙·З@228,"<1> ";:ЗSTA$ ы
З@260,"<2> ";:ЗMOD$!
З@292,"<3> ";:ЗPRO$!
З@324,"<4> TUTORIAL"!0
"З@356,"<5> END"!J
,З@420,"SELECTION #: "!k
6MENU$│ Т:Е MENU$│"1"з Бе 360!Е
@Е MENU$│"2" з Бе 2120!Я
JЕ MENU$│"3" з Бе 2420!╢
TЕ MENU$│"4"з 2990 !╙
^Е MENU$│"5"з 2960 :Д 310!┘
hЮ!я
rЕ MENU$│"2"зБе390"
|З"      STRAIGHT APPLICATION""
ЖЗ">
РЗ"ENTER YEAR TO BEGIN APPLICATION""a
ЪЗ"        BETWEEN 1972-1983":З"Д
дЙ "ENTER YEAR (19XX): "; YEAR$"э
оЕ YEAR$┤"1972" ▒ YEAR$▓"1984"з З"  PLEASE USE YEAR BETWEEN               1972 - 1984!":а 150,4:Бе400"√
╕YR$│YEAR$#3
┬З:З"ENTER AMOUNT TO BEGIN           APPLICATION:":З#G
╠Й "AMOUNT $ ";A#P
╓AM│A#Ж
рЕ A┤0 з З"ENTER A POSITIVE AMOUNT - PLEASE":Бе460#Ї
ъЮ:З@2,"BASED ON";:З═Z$;A;:З" IN "YEAR$", THE FOLLOWING AMOUNT IS NEEDED  TO KEEP IN LINE WITH INFLATION:"$
ЇЗ" YEAR:   RATE:       ADJ. AMOUNT"$,
■L│129:M│141$;Е Q│10 з Р$OQ│0:M│141:L│129$kINF│0:I│0:MOD│0:A(B)│AM$И&З@L,YEAR$;:Зд19);:З═Z$;A$Э0Е PR$│"Y"зБж2830$╣:Е PR$│"Y1"зБж2880:MOD│0$├DQ│Qл1$▌NЕ YEAR$┤▓"1972"зБе710$ёXINF│3.3:C│0:B│1%bЕA(C)│0 з A(C)│A%lЕ M(X)│1972 з Бж2290%>vI│A(C)нINFо100:A(B)│A(C)лI%VАL│Lл32:M│Mл32:Q│Qл1%gКYEAR$│"1973"%ПФЕ SIG│1972 з MOD│R(Xм1):INF│INFмMOD%┐ЮЗ@L,YEAR$;:З═H$;INF;:З"%";:Зд19);:З═Z$;A(B)%╘иЕ PR$│"Y"зБж2830%■▓Е SIG│1972 з З@M,"+";:З═P$;MOD;:З"%";&╝Е PR$│"Y1"зБж2880:MOD│0&4╞Е YEAR$┤▓"1973"зБе830&H╨INF│6.2:C│1:B│2&^┌Е A(C)│0 з A(C)│A&wфЕ M(X)│1973 з Бж2290&ЦюI│A(C)нINFо100:A(B)│A(C)лI&о°L│Lл32:M│Mл32:Q│Qл1&┐YEAR$│"1974"&цЕ SIG│1973з MOD│R(Xм1):INF│INFмMOD'З@L,YEAR$;:З═H$;INF;:З"%";:Зд19);:З═Z$;A(B)'+ Е PR$│"Y"зБж2830'U*Е SIG│1973 з З@M,"+";:З═P$;MOD;:З"%";'q4Е PR$│"Y1"зБж2880:MOD│0'Л>Е YEAR$┤▓"1974"зБе950'аHINF│11.0:C│2:B│3'╢RЕ A(C)│0 з A(C)│A'╧\Е M(X)│1974 з Бж2290'юfI│A(C)нINFо100:A(B)│A(C)лI(pL│Lл32:M│Mл32:Q│Qл1(zYEAR$│"1975"(>ДЕ SIG│1974з MOD│R(Xм1):INF│INFмMOD(nОЗ@L,YEAR$;:З═H$;INF;:З"%";:Зд19);:З═Z$;A(B)(ГШЕ PR$│"Y"зБж2830(нвЕ SIG│1974 з З@M,"+";:З═P$;MOD;:З"%";(╔мЕ PR$│"Y1"зБж2880:MOD│0(ф╢Е YEAR$┤▓"1975"зБе1070(°└INF│9.1:C│3:B│4)╩Е A(C)│0 з A(C)│A)'╘Е M(X)│1975 з Бж2290)F▐I│A(C)н9.1о100:A(B)│A(C)лI)^шL│Lл32:M│Mл32:Q│Qл1)oЄYEAR$│"1976")Ч№Е SIG│1975 з MOD│R(Xм1):INF│INFмMOD)╟З@L,YEAR$;:З═H$;INF;:З"%";:Зд19);:З═Z$;A(B))▄Е PR$│"Y"зБж2830*Е SIG│1975 з З@M,"+";:З═P$;MOD;:З"%";*"$Е PR$│"Y1"зБж2880:MOD│0*=.Е YEAR$┤▓"1976"зБе1190*Q8INF│5.8:C│4:B│5*gBЕ A(C)│0 з A(C)│A*АLЕ M(X)│1976 з Бж2290*ЯVI│A(C)нINFо100:A(B)│A(C)лI*╖`L│Lл32:M│Mл32:Q│Qл1*╚jYEAR$│"1977"*ЁtЕ SIG│1976 з MOD│R(Xм1):INF│INFмMOD+ ~З@L,YEAR$;:З═H$;INF;:З"%";:Зд19);:З═Z$;A(B)+5ИЕ PR$│"Y"зБж2830+_ТЕ SIG│1976 з З@M,"+";:З═P$;MOD;:З"%";+{ЬЕ PR$│"Y1"зБж2880:MOD│0+ЧжЕ YEAR$┤▓"1977" зБе1310+л░INF│6.5:C│5:B│6+┴║Е A(C)│0 з A(C)│A+┌─Е M(X)│1977 з Бж2290+∙╬I│A(C)нINFо100:A(B)│A(C)лI,╪L│Lл32:M│Mл32:Q│Qл1,"тYEAR$│"1978",JьЕ SIG│1977 з MOD│R(Xм1):INF│INFмMOD,zЎЗ@L,YEAR$;:З═H$;INF;:З"%";:Зд19);:З═Z$;A(B),ПЕ PR$│"Y"зБж2830,╣
Е SIG│1977 з З@M,"+";:З═P$;MOD;:З"%";,╒Е PR$│"Y1"зБж2880:MOD│0,ЁЕ YEAR$┤▓"1978"зБе1430-(INF│7.7:C│6:B│7-2Е A(C)│0 з A(C)│A-3<Е M(X)│1978 з Бж2290-RFI│A(C)нINFо100:A(B)│A(C)лI-jPL│Lл32:M│Mл32:Q│Qл1-{ZYEAR$│"1979"-гdЕ SIG│1978 з MOD│R(Xм1):INF│INFмMOD-╙nЗ@L,YEAR$;:З═H$;INF;:З"%";:Зд19);:З═Z$;A(B)-шxЕ PR$│"Y"зБж2830.ВЕ SIG│1978 з З@M,"+";:З═P$;MOD;:З"%";..МЕ PR$│"Y1"зБж2880:MOD│0.IЦЕ YEAR$┤▓"1979"зБе1550.^аINF│11.3:C│7:B│8.tкЕ A(C)│0 з A(C)│A.Н┤Е M(X)│1979 з Бж2290.м╛I│A(C)нINFо100:A(B)│A(C)лI.─╚L│Lл32:M│Mл32:Q│Qл1.╒╥YEAR$│"1980".¤▄Е SIG│1979 з MOD│R(Xм1):INF│INFмMOD/-цЗ@L,YEAR$;:З═H$;INF;:З"%";:Зд19);:З═Z$;A(B)/BЁЕ PR$│"Y"зБж2830/v·Е SIG│1979 з З@M,"+";:З═P$;MOD;:З"%";:З═Z$;A(B)/ТЕ PR$│"Y1"зБж2880:MOD│0/нЕ YEAR$┤▓"1980"зБе1680/┬INF│13.5:C│8:B│9/╫"Е A(C)│0з A(C)│A/Ё,Е M(X)│1980 з Бж229006I│A(C)нINFо100:A(B)│A(C)лI0'@L│Lл32:M│Mл32:Q│Qл108JYEAR$│"1981"0`TЕ SIG│1980 з MOD│R(Xм1):INF│INFмMOD0z^Е Q│10 з Бж2350:Бж4900кhЗ@L,YEAR$;:З═H$;INF;:З"%";:Зд19);:З═Z$;A(B)0┐rЕ PR$│"Y"зБж28300є|Е SIG│1980 з З@M,"+";:З═P$;MOD;:З"%";:З═Z$;A(B)1ЖЕ PR$│"Y1"зБж2880:MOD│01*РЕ YEAR$┤▓"1981"зБе18101@ЪINF│10.4:C│9:B│101UдЕ A(C)│0з A(C)│A1nоЕ M(X)│1981 з Бж22901Н╕I│A(C)нINFо100:A(B)│A(C)лI1е┬L│Lл32:M│Mл32:Q│Qл11╢╠YEAR$│"1982"1▐╓Е SIG│1981 з MOD│R(Xм1):INF│INFмMOD1°рЕ Q│10 з Бж2350:Бж4902(ъЗ@L,YEAR$;:З═H$;INF;:З"%";:Зд19);:З═Z$;A(B)2=ЇЕ PR$│"Y"зБж28302q■Е SIG│1981 з З@M,"+";:З═P$;MOD;:З"%";:З═Z$;A(B)2НЕ PR$│"Y1"зБж2880:MOD│02лЕ YEAR$┤▓"1982" з Бе 19402┴INF│6.1:C│10:B│112╫&Е A(C)│0 з A(C)│A2Ё0Е M(X)│1982 з Бж22903:I│A(C)нINFо100:A(B)│A(C)лI3'DL│Lл32:M│Mл32:Q│Qл138NYEAR$│"1983"3`XЕ SIG│1982 з MOD│R(Xм1):INF│INFмMOD3zbЕ Q│10 з Бж2350:Бж4903лlЗ@L,YEAR$;:З═H$;INF;:З"%";:Зд19);:З ═Z$;A(B)3└vЕ PR$│"Y"зБж28303ЇАЕ SIG│1982 з З@M,"+";:З═P$;MOD;:З"%";:З═Z$;A(B)4КЕ PR$│"Y1"зБж 28804hФЕ YEAR$┤▓"1983" з З"   PLEASE ENTER A YEAR BETWEEN             1972 - 1983":Бж2330:Бе2304сЮINF│5.0:C│11:B│12 :ГINFLATION RATE (INF) FOR 1984 HAS BEEN ESTIMATED - CHANGE INF WHEN ACCURATE FIGURE IS DETERMINED4ўиЕ A(C)│0 з A(C)│A5▓Е M(X)│1983 з Бж 229050╝I│A(C)нINFо100:A(B)│A(C)лI5H╞L│Lл32:M│Mл32:Q│Qл15Y╨YEAR$│"1984"5Б┌Е SIG│1983 з MOD│R(Xм1):INF│INFмMOD5▒фЗ@L,YEAR$;:З═H$;INF;:З"%";:Зд19);:З═Z$;A(B)5╞юЕ PR$│"Y"зБж28305·°Е SIG│1983 з З@M,"+";:З═P$;MOD;:З"%";:З═Z$;A(B)6Е PR$│"Y1"зБж2880:MOD│06IЕ PR$│"Y"▒PR$│"Y1"зЗ#м2:З#м2:З#м2:Бж2910:Бе1606ЛЗ:Й"WOULD YOU LIKE A PRINTED COPY   OF THIS CHART? (Y/N)";PR$6а Е PR$│"Y"зБе27106╖*Е MENU$│"1"зБж29106┘4Е MENU$│"2"▒ MENU$│"3"зБж29106у>Бе1607иHЮ:З"      MODIFIED APPLICATION":З:З"   THIS IS A MODIFIED INFLAT-      ION APPLICATION.  THIS IS       USEFUL FOR CERTAIN YEARS        WHEN PERCENTAGE INCREASES       ARE REALIZED IN ADDITION"8fRЗ"   TO INFLATION.  SUPPOSE YOU      RECEIVE A MERIT INCREASE OR     A BONUS IN A GIVEN YEAR.        THIS APPLICATION WILL ALLOW     YOU TO ADD THE INCREASE AND     THE INFLATION RATE."8q\Бж23309
fЮ:З" YOU CAN ENTER UP TO 10 DIF-     FERENT YEARS OF MODIFICATION.   ENTER THE YEARS IN NUMERICAL    ORDER.  HIT <ENTER> TWICE       WHEN FINISHED."9pА X│1 е 109@zЗ:З"ENTER YEAR OF MODIFICATION:":З9RДЙ "YEAR";M(X)9sОM(X)│(M(X)м1):M$(X)│ И(M(X))9ЛШЕ M(X)│м1 з Бе 22609░вЕ M(X)┤1972 ▒ M(X)▓1983 з Бе22809фмЗ:З"ENTER PERCENTAGE AMOUNT OF      INCREASE: "9ъ╢З:└Й "INCREASE PERCENTAGE";R(X):╩Л X:*╘X│1:YEAR$│YR$:A│AM:I▐Е YEAR$│""зБе360 :Д Бе 490:ОшЗ:З"  PLEASE ENTER YEAR BETWEEN            1972 - 1984.":Бе 2180:ЯЄINF│INFлR(X):м№SIG│M(X):╢	X│Xл1:╝	Р:┬	З:╙	$А X│1е500:ЛX:ї	.З"   HIT <ENTER> TO CONTINUE";	8в44539;	BЕ D│м2 з Бе 160;	LР;@	VЗ"   HIT <ENTER> TO CONTINUE":З:З;J	`Бе160;p	j:ГPROJECTED INFLATION APPLICATION;z	tЮ:D│0;Ц	~З"          PROJECTION"<	ИЗ:З"  THIS IS A PROJECTION OF THE   EFFECT INFLATION WILL HAVE ON   YOUR DOLLARS IN THE FUTURE.     YOU WILL NEED TO ENTER THE      YEAR TO BEGIN THE PROJECTION,   THE AMOUNT TO BE PROJECTED,     THE YEAR TO END THE PROJECTION,"=	ТЗ"AND THE ESTIMATED INFLATION     RATE FOR THE PERIOD.  THERE ARE NO YEAR LIMITATIONS TO THIS     APPLICATION.  THIS, OF COURSE,  IS AN ESTIMATE."=!	ЬБж2350=X	жЮ:З:З"ENTER THE YEAR TO BEGIN THE     PROJECTION:"=j	░Й "YEAR: ";YR=г	║З:З"ENTER THE AMOUNT TO BE USED IN  THE PROJECTION:"=╢	─Й"AMOUNT: ";DD=ы	╬З:З"ENTER THE YEAR TO END THE       PROJECTION:">	╪Й"END YEAR: ";YS>B	тЗ:З"ENTER THE AVERAGE ESTIMATED IN- FLATION RATE: (PER YEAR)">Z	ьЙ"EST. RATE: ";RATE>f	ЎP│YSмYR>
FV│DDн(1лRATEо100)пP>д

D│0:Ю:З#D,"          PROJECTION">╬
З#D:З#D,"BEGINNING YEAR:",:З#D,YR:З#D>я
З#D,"AMOUNT",:З#D,═Z$;DD:З#D?.
(З#D,"EST. INFLATION",:З#D,═P$;RATE;:З#D," %  PER YEAR":З#D?`
2З#D,"PROJECTED AMOUNT NEEDED IN YEAR";YS;":";?j
<Q$│ Т?Б
FЗ@363," ";:З═Z$;FV?е
PЕ D│м2 з З#м2,═Z$;FV:D│0:Бе2390?┤
ZАL│1е50:ЛL?╠
dЕ Q$│ Л(13)з Бж2690?ц
nЗ@363,"             "?Є
xБе 2620@=
ВЗ"WOULD YOU LIKE TO HAVE A PRINTEDCOPY OF THIS PROJECTION? (Y/N)":ЙCC$@X
МЕ CC$│"Y"зБе2710:Д2390@r
Ц:ГPRINTER SUB-ROUTINE@а
аЕ MENU$│"1" з З#м2,д16);:З#м2,STA$:Бе2750@╬
кЕ MENU$│"2" з З#м2,д16);:З#м2,MOD$:Бе2750@№
┤Е MENU$│"3" з З#м2,д30);:З#м2,PRO$:Бе2900A
╛З#м2A
╚YEAR$│YR$:A│AM:X│1A│
╥З#м2,"     BASED ON ";:З#м2,═Z$;A;:З#м2," IN "YEAR$", THE FOLLOWING                                AMOUNT IS NEED TO KEEP IN LINE WITH INFLATION:"A╧
▄З#м2, Л(15) :ГUNDERLINEAё
цЕ MENU$│"2" з PR$│"Y1":Бе2850B*
ЁЗ#м2," YEAR:  INFLATION:      CHANGE    ADJ. AMOUNT"BJ
·З#м2, Л(14) :ГEND ENDERLINEBUБе 490B░З#м2," ";:З#м2,YEAR$;:З#м2,═D$;INF;:З#м2,"%   ";:З#м2,═T$;I;:З#м2,"   ";:З#м2,═Z$;A(B)B╢РB°"З#м2," YEAR:   RATE + MODIFICATION     CHANGE    ADJ. AMOUNT"C,З#м2, Л(14)C6Бе490CР@З#м2," ";:З#м2,YEAR$;:З#м2,═D$;INF;:З#м2," +";:З#м2,═E$;MOD;:З#м2," % ";:З#м2,"  ";:З#м2,═T$;I;:З#м2,"   ";:З#м2,═Z$;A(B)CЦJРCжTD│м2:Бе2580C╛^А X│1е10:M(X)│0:Л XC╒hА X│1е12:A(B)│0:ЛXCыrАC│0е12:A(C)│0:ЛCCў|X│1:C│0C¤ЖРDР:ГEND ROUTINEDOЪЮ:З:Й"ARE YOU SURE? PROGRAM WILL BE   ERASED!!  (Y/N) ";EN$DrдЕ EN$│"Y"зТ113,0:в40999:ДБе160DОоЮ:З"         INFLATION"E3╕З:З" THIS PROGRAM ATEMPTS TO PRO-    VIDE THE USER WITH THE EFFECTS  OF INFLATION ON YOUR HARD       EARNED DOLLAR.  THIS PROGRAM    CAN BE USED IN THREE WAYS:"E>┬Бж2330F╠Ю:З:З" 1) THE STRAIGHT APPLICATION        LETS YOU SEE THE EFFECT OF      INFLATION BETWEEN THE YEARS     OF 1972 - 1984.  THE ANNUAL     INFLATION RATES ARE LISTED      WITH THE APPLICATION.":З:Бж2330Fё╓Ю:З:З" 2) THE MODIFIED APPLICATION        ALLOWS YOU TO ADD TO THE        INFLATION RATE ANY BONUS OR     MERIT RAISE.  THIS AP-          PLICATION WILL AUTOMATICALLY    RETURN TO YOUR ORIGINAL         CHART OR TO THE INPUT"GlрЗ"    ROUTINE IF PREVIOUS DATA HAS    NOT BEEN ENTERED. SHOULD YOU    GET A B/S ERROR, RESTART        PROGRAM.":Бж2330HъЮ:З:З" 3) THE PROJECTION APPLICATION      ALLOWS THE USER TO USE ANY      YEAR AND ANY INFLATION RATE     TO PROJECT FUTURE EFFECTS OF    INFLATION ON OUR DOLLAR.":ЗHPЇЗ" 5) END WILL ERASE PROGRAM FROM     MEMORY.":Бж2330I■Ю:З:З" REMEMBER THAT INFLATION RATES   ARE AVERAGES OF THE ACTUAL IN-  CREASES IN CERTAIN CONSUMER     PRODUCTS.  THEY REFLECT THE     COST OF FOOD, HOUSING, UTIL-    ITIES, AND OTHER ESENTIALS."IaЗ:З" ENTER YEARS AS 19XX AND DOLLAR  AMOUNTS WITHOUT COMMAS.":Бж2330IlБе 160TION RATES   ARE AVERAGES OF THE ACTUAL IN-  CREASES IN CERTAIN CONSUMER     PRODUCTS.  THEY REFLECT THE     COST OF FOOD, HOUSING, UTIL-    ITI                                                                                                                                                                                                                                                                 &┌	
Ю 5$З@41,"*************";:?З@73,"* cost calc *";:[З@105,"*************";:{З@199,"$$$$$$$$$$$$$$$$$";:Ы#З@231,"$ 16 K ECB COCO $";:╗(З@263,"$$$$$$$$$$$$$$$$$";:▌-З@358,"     eddie hill    ";: 2З@390," 124 STERLING DRIVE";:!4З@422," HUEYTOWN, AL 35023";:C6З@454,"   (205)491-1452   ";:Y7А II│1 е 3000:ЛIIл<МB$(14),C$(14),D$(14),E$(14),H$(14),P$(14),Q$(14),R$(14),S$(14),T$(14),Z$(14)ЄAМB(14),C(14),D(14),E(14),H(14),P(14),R(14),Q(14),S(14),T(14),Z(14) (BE2$│"###.##-":E3$│"##,###-":E4$│"###,###,###.##-" ВCЮ0:З@64,"COST CALCULATION DESCRIPTION:";:З@128,"";:ЙPR$:DL│ З(PR$):ЕDL▓16зБе68:ДБе197 ├DЮ0:З@64,"DESCRIPTION TOO LONG, REENTER.":АII│1е1500:ЛII:Бе67 ╩┼:Г с╞:Г LABOR COST DATA ш╟:Г ■╔Ж hrly LABOR COST!╩Ж"       OVERTIME"!-╦Ж"       INSURANCE"!C╠Ж"       PENSION"!Z═Ж"       VACATION"!p╬Ж"       HOLIDAY"!Е╧Ж salary REGULAR!Э╨Ж"       INSURANCE"!│╤Ж"       PENSION"!╚╥Ж WORKER'S COMP.!╫╙Ж F.I.C.A.!э╘Ж S.U.I. / F.U.I.!ї╒Ж"""
╓Ж"    T O T A L""
):Г "*
*:Г SUPPLY COST DATA"1
+:Г"E
-Ж ELECT. ENERGY"U
.Ж OPERATING"i
/Ж REPAIR/MAINT."y
0Ж SALES TAX"
1Ж"Е
2Ж"Ы
3Ж "    T O T A L""б
4Ж"з
5Ж"н
6Ж"│
7Ж"╣
8Ж"┐
9Ж"┼
:Ж"╠
Н:Г"у
О:Г OTHER COST DATA"ъ
П:Г"¤
СЖ DEPRECIATION#
ТЖ PROPERTY TAX#$
УЖ PROPERTY INS.#8
ФЖ OPER. SUPPORT#O
ХЖ RES.-EQUIP REBLD#[
ЦЖ OTHER#a
ЧЖ#w
ШЖ "    T O T A L"#}
ЩЖ#Г
ЪЖ#Й
ЪЖ#П
ЬЖ#Х
ЭЖ#Ы
ЮЖ#в
ё:Г#╝
Є:Г TOTAL COST DISPLAY#├
є:Г#╫
їЖ " LABOR     "#▐
ЎЖ #ф
ўЖ#°
°Ж " SUPPLIES  "# 
∙Ж $
·Ж$
√Ж " OTHER     "$ 
№Ж $&
¤Ж$:
■Ж " TOTAL     "$A
 Ж $GЖ$M
Ж$SЖ$Z:Г$y:Г OPERATIONS DATA DISPLAY$А:Г$Х!Ж UNITS PRODUCED$Ы"Ж$п#Ж COST PER UNIT$╡$Ж$╚%Ж HOURS WORKED$╬&Ж$у'Ж UNITS PER HOUR$щ(Ж$¤)Ж SHIFTS WORKED%*Ж %+Ж UNITS PER SHIFT% ,Ж%&-Ж%,.Ж%4=:Г %Q>:Г OTHER COST DATA INPUT%X?:Г%kAЖ DEPRECIATION%~BЖ PROPERTY TAX%ТCЖ PROPERTY INS.%иDЖ -oper. support-%┐EЖ " FIXED DOLLARS"%╪FЖ " VARIABLE $/UNIT"%яGЖ -res equip rebld&HЖ " FIXED DOLLARS"&IЖ " VARIABLE $/UNIT"&2JЖ -other cost-&IKЖ " FIXED DOLLARS"&bLЖ " VARIABLE $/UNIT"&hMЖ&nNЖ&uб:Г&Ув:Г SUPPLY COST DATA INPUT&Ъг:Г&░еЖ -elect. energy-&╟жЖ " FIXED DOLLARS"&рзЖ " VARIABLE $/UNIT"&циЖ&°йЖ -operating-'кЖ " FIXED DOLLARS"'(лЖ " VARIABLE $/UNIT"'.мЖ'DнЖ -repair/maint.-'[оЖ " FIXED DOLLARS"'tпЖ " VARIABLE $/UNIT"'{░Ж 'Р▒Ж SALES TAX RATE'Ч▓Ж 'Ю:Г'╝:Г PAYROLL TAX DATA INPUT'├:Г'╘	Ж -f.i.c.a.-'ы
Ж " TAXABLE WAGES"(Ж " TAX PERCENT"(Ж -s.u.i.-(#
Ж " WAGE LIMIT"(4Ж " PERCENT"(CЖ -f.u.i.-(WЖ " WAGE LIMIT"(hЖ " PERCENT"(oЖ (ИЖ "-worker's comp.-"(ЯЖ " FIXED DOLLARS"(│Ж " % EARNINGS"(╣Ж(└i:Г(▌j:Г OPERATIONS DATA INPUT(фk:Г(°mЖ -days worked-)nЖ " STRAIGHT TIME")!oЖ " OVERTIME")'pЖ)9qЖ -employees-)IrЖ " HOURLY")[sЖ " SALARIED")btЖ )wuЖ UNITS PRODUCED)~vЖ )ХwЖ "PERIODS WORKED")ЫxЖ)дyЖ "")нzЖ "")┤═:Г)╙╬:Г PAYROLL COST DATA INPUT)┌╧:Г)Ё╤Ж "-hourly info-"*	╥Ж "HOURLY WAGE RATE"*"╙Ж "OVERTIME %-DAILY"*:╘Ж "INSURANCE PREM."*S╒Ж "PENSION COST/EMP"*i╓Ж "VACATION DAYS"*╫Ж "HOLIDAYS PAID"*И╪Ж ""*П┘Ж *ж┌Ж "-salary info.-"*╝█Ж "SALARY/PERIOD"*╘▄Ж "INSURANCE PREM."*э▌Ж "PENSION COST/EMP"*ї▐Ж""*№1:Г+12:Г READ COST ELEMENT AND INPUT DATA DESCRIPTIONS+83:Г+Q'.АII│1е14:НB$(II):ЛII+j'8АII│1е14:НC$(II):ЛII+Г'BАII│1е14:НD$(II):ЛII+Ь'LАII│1е14:НE$(II):ЛII+╡'VАII│1е14:НH$(II):ЛII+╬'`АII│1е14:НP$(II):ЛII+ч'jАII│1е14:НQ$(II):ЛII,'tАII│1е14:НR$(II):ЛII,'~АII│1е14:НS$(II):ЛII,2'ИАII│1е14:НT$(II):ЛII,9:Х:Г,U:Ц:Г COST DATA INPUT MENU,\:Ч:Г-*:ШЮ0:З@41,"cost data input";:З@99,"1. OPERATIONS DATA";:З@163,"2. LABOR & SALARY DATA";:З@227,"3. PAYROLL TAX DATA";:З@291,"4. SUPPLY COST DATA";:З@355,"5. OTHER COST DATA";:З@419,"6. ALL";:З@483,"";:ЙAA-`:вИ AA Бе 15100,15200,15300,15400,15500,15100,15000-g:∙:Г-Д:·:Г OPERATIONS DATA INPUT-Л:√:Г.4:№RC│1:NN│17:Ю:АII│1е14:Z$(II)│" ":Z(II)│0:ЕS$(II)│""зБе15106:Д:З@NNм17,S$(II);:З@NN,"";:NN│NNл32:Z$(II)│S$(II):DA$│ О(S$(II),1):ЕDA$│"-"зБе15106:Д:ЙS(II):Z(II)│S(II).n;ЛII:Бж15110:ЕS(11)│0зS(11)│1:Д:ЕAA│6зБе15200:ДБе15600.u;:Г.▒;:Г COMMON ROUTINE FOR INPUT DATA DISPLAY AND CORRECTION.╕;:Г/;NN│0:Ю:АII│1е14:З@NN,Z$(II);:З@NNл16,Z(II);:З@NNл28,"F"II;:NN│NNл32:ЛII/U;З@448,"";:Й"CORRECT (Y=YES N=NO)";CO$:ЕCO$│"N"зБе15118:ДЕCO$┤▓"Y"зБе15116:ДР/ц;З@480,"";:Й"CORRECT FIELD# (99=ALL):";FC:ЕFC│99зБе15120:ДЕFC┤1▒FC▓14зБе15118:Д:Ю:З@32,Z$(FC);:З@48,"";:ЙZ(FC):Бж15110:ЕAA│6зБе15119:ДБе156000;И RC Бе 15200,15300,15400,15500,156000:;И RC Бе 15100,15200,15300,15400,155000A;]:Г0c;^:Г LABOR & SALARY DATA  INPUT0j;_:Г1;`RC│2:NN│17:Ю:АII│1е14:Z$(II)│" ":Z(II)│0:ЕT$(II)│""зБе15206:Д:З@NNм17,T$(II);:З@NN,"";:NN│NNл32:Z$(II)│T$(II):DA$│ О(T$(II),1):ЕDA$│"-"зБе15206:Д:ЙT(II):Z(II)│T(II)1:;fЛII:Бж15110:ЕAA│6зБе15300:ДБе156001A;┴:Г1_;┬:Г PAYROLL TAX DATA INPUT1f;├:Г2;─RC│3:NN│17:Ю:АII│1е14:Z$(II)│" ":Z(II)│0:ЕR$(II)│""зБе15306:Д:З@NNм17,R$(II);:З@NN,"";:NN│NNл32:Z$(II)│R$(II):DA$│ О(R$(II),1):ЕDA$│"-"зБе15306:Д:ЙR(II):Z(II)│R(II)26;╩ЛII:Бж15110:ЕAA│6зБе15400:ДБе156002=<%:Г2[<&:Г SUPPLY COST DATA INPUT2b<':Г3<(RC│4:NN│17:Ю:АII│1е14:Z$(II)│" ":Z(II)│0:ЕQ$(II)│""зБе15406:Д:З@NNм17,Q$(II);:З@NN,"";:NN│NNл32:Z$(II)│Q$(II):DA$│ О(Q$(II),1):ЕDA$│"-"зБе15406:Д:ЙQ(II):Z(II)│Q(II)32<.ЛII:Бж15110:ЕAA│6зБе15500:ДБе1560039<Й:Г3R<К:Г OTHER DATA INPUT 3Y<Л:Г4<МRC│5:NN│17:Ю:АII│1е14:Z$(II)│" ":Z(II)│0:ЕP$(II)│""зБе15506:Д:З@NNм17,P$(II);:З@NN,"";:NN│NNл32:Z$(II)│P$(II):DA$│ О(P$(II),1):ЕDA$│"-"зБе15506:Д:ЙP(II):Z(II)│P(II)4<ТЛII:Бж151104<э:Г47<ю:Г DISPLAY SELECTION MENU4><я:Г4с<ЁЮ0:З@38,"select display option";:З@102,"1. LABOR";:З@166,"2. SUPPLIES";:З@230,"3. OTHER";:З@294,"4. TOTAL";:З@358,"5. PRODUCTION STATISTICS";:З@422,"6. ALL";:5G<ёЗ@486,"";:ЙAA:ЕAA▓0░AA┤7зБе15649:Д:Ю:З@0,"INCORRECT RESPONSE, TRY AGAIN.";:АII│1е1500:ЛII:Бе156005M=!Ю5g=":Г LABOR CALCULATIONS5Б=#B(1)│S(6)нT(2)н8нS(2)5п=$B(2)│(B(1)нT(3)о100)лS(6)нT(2)н8н1.5нS(3)5╚=%B(3)│S(6)нT(4)нS(11)5с=&B(4)│S(6)нT(5)нS(11)5¤='B(5)│S(6)н(T(6)нT(2)н8)6=(B(6)│S(6)н(T(7)нT(2)н8)63=)B(7)│S(7)нT(11)нS(11)6M=*B(8)│S(7)нT(12)нS(11)6g=+B(9)│S(7)нT(13)нS(11)6Ъ=,B(10)│(B(1)лB(2)лB(7))нR(13)о100л(R(12)нS(11))6╛=-B(11)│(B(1)лB(2)лB(7))нR(3)о1007x=.B(12)│(B(1)лB(2)лB(7))н(R(6)лR(9))о100:V1│R(2)нR(3)о100:W1│R(5)нR(6)о100:V3│R(8)нR(9)о100:V2│(S(6)лS(7))нV1:W2│(S(6)лS(7))нW1:V4│(S(6)лS(7))нV3:Е B(11) ▓ V2 з B(11) │ V2 :Д Бе 156637ж=/Е W2лV4 ┤ B(12) з B(12)│W2лV4 :Д Бе 156647▓=0B(14)│07╒=1АII│1е12:B(14)│B(14)лB(II):ЛII7ф=3E(1)│B(14)8=T:Г SUPPLY COST CALCULATION8#=UC(1)│Q(3)нS(9)л(Q(2)нS(11))8C=VC(2)│Q(7)нS(9)л(Q(6)нS(11))8e=WC(3)│Q(11)нS(9)л(Q(10)нS(11))8Ж=XC(4)│(C(2)лC(3))н(Q(13)о100)8г=ZC(7)│C(1)лC(2)лC(3)лC(4)8▒=cE(4)│C(7)8╧=Ж:Г OTHER COST CALCULATION8у=ЗD(1)│P(1)нS(11)8ў=ИD(2)│P(2)нS(11)9=ЙD(3)│P(3)нS(11)9+=КD(4)│P(6)нS(9)л(P(5)нS(11))9K=ЛD(5)│P(9)нS(9)л(P(8)нS(11))9m=МD(6)│P(12)нS(9)л(P(11)нS(11))9Ф=ОD(8)│D(1)лD(2)лD(3)лD(4)лD(5)лD(6)9в=ХE(7)│D(8)9╗=ЧE(10)│E(1)лE(4)лE(7)9┬=д:Г9▀=е:Г PROD STATISTICS CALC.9ц=ж:Г9Ї=зH(1)│S(9):=иH(3)│E(10)оS(9):+=йH(5)│(S(6)лS(7))н(S(2)лS(3))н8:>=кH(7)│H(1)оH(5):N=лH(9)│H(5)о8:b=мH(11)│H(1)оH(9):Т=╢И AA Бе 15850,15900,15950,16000,16050,15850:Я=╖Бе 15600:ж=╕:Г:╩=╣:Г COST DISPLAY & PRINT ROUTINE:╤=║:Г;f=╜Ю:З@0,DE$;:З@17,PR$;:IN│32:З@48," --M$--  $/UNIT";:АIL│1е14:З@INл32,Z$(IL);:ЕZ(IL)│0зБе15810:Д:З@INл48,═E3$;Z(IL)о1000;:З@INл56,═E2$;Z(IL)оS(9);;w=┬IN│INл32:ЛIL<,=├ЕSL┤▓1зБе15815:Д:З#м2,д16)DE$,д33)PR$,д79)" ":З#м2,д33)" --M$--  $/UNIT",д80)" ":АIL│1е14:ЕZ$(IL)│""зБе15813:Д:З#м2,д16)Z$(IL);:З#м2,д34)"";:З#м2,═E3$;Z(IL)о1000;:З#м2,д42)"";:<S=─З#м2,═E2$;Z(IL)оS(9);:З#м2,д79)"":<u=┼ЛIL:З#м2, Л(10):З#м2, Л(10):Р<Э=╟З@32,"";:ЙAA$:ЕAA$┤▓"C"зБе15815:Д:Р<д=ч:Г<╜=ш:Г LABOR COST SET UP<─=щ:Г=$=ъDE$│" --labor cost--":АII│1е14:Z$(II)│B$(II):Z(II)│B(II):ЛII:Бж15800:ЕAA│6зБе15900:ДБе16500=+>:Г=E>:Г SUPPLY COST SET UP=L>:Г=л>DE$│" -supply cost-":АII│1е14:Z$(II)│C$(II):Z(II)│C(II):ЛII:Бж15800:ЕAA│6зБе15950:ДБе16500=▓>K:Г=╦>L:Г OTHER COST SET UP=╥>M:Г>2>NDE$│" --other cost--":АII│1е14:Z$(II)│D$(II):Z(II)│D(II):ЛII:Бж15800:ЕAA│6зБе16000:ДБе16500>9>}:Г>R>~:Г TOTAL COST SET UP>Y>:Г>╣>АDE$│" --total cost--":АII│1е14:Z$(II)│E$(II):Z(II)│E(II):ЛII:Бж15800:ЕAA│6зБе16050:ДБе16500>└>п:Г?>░:Г PRODUCTION STATISTICS SET UP WITH PRINT AND DISPLAY ROUTINE?
>▒:Г?u>▓Ю:З@0," --PROD STAT--";:З@17,PR$;:IN│32:АIL│1е14:З@INл32,H$(IL);:ЕH(IL)│0зБе16060:ДЗ@INл48,═E4$;H(IL):?Ж>╝IN│INл32:ЛIL?┤>╜ЕSL┤▓1зБе16065:Д:АIL│1е4:З#м2, Л(10):ЛIL:@Q>╛З#м2,д16)" --PROD STAT--",д33)PR$,д79)"":З#м2,д33)"     --VALUE--",д80)" ":АIL│1е14:ЕH$(IL)│""зБе16064:Д:З#м2,д16)H$(IL);:З#м2,д33)"";:З#м2,═E4$;H(IL);:@b>┐З#м2,д79)"":@К>└ЛIL:З#м2, Л(10):З#м2, Л(10):Бе16100@╕>┴З@32,"";:ЙAA$:ЕAA$┤▓"C"зБе16065:Д:Бе16500@┐>с:Г@┌>т:Г INPUT DATA PRINTING@с>у:ГAi>фАIL│1е26:З#м2, Л(10):ЛIL:Ю3:З@262,"printing input data";:З#м2,д16) б(32,"*"):З#м2,д27)"INPUT DATA":З#м2,д16) б(32,"*"):З#м2, Л(10):A╖>цTL│0:АII│1е14:Z$(II)│P$(II):Z(II)│P(II):TL│TLлP(II):ЛII:ЕTL┤▓0зБж16200:Д:B>шTL│0:АII│1е14:Z$(II)│Q$(II):Z(II)│Q(II):TL│TLлQ(II):ЛII:ЕTL┤▓│0зБж16200:Д:BT>ъTL│0:АII│1е14:Z$(II)│R$(II):Z(II)│R(II):TL│TLлR(II):ЛII:ЕTL┤▓0зБж16200:Д:Bв>ьTL│0:АII│1е14:Z$(II)│S$(II):Z(II)│S(II):TL│TLлS(II):ЛII:ЕTL┤▓0зБж16200:Д:BЁ>юTL│0:АII│1е14:Z$(II)│T$(II):Z(II)│T(II):TL│TLлT(II):ЛII:ЕTL┤▓0зБж16200:Д:B№>ЁБе16500Cq?HАIL│1е14:ЕZ(IL)│0░ О(Z$(IL),1)┤▓"-"зБе16210:Д:З#м2,д16)Z$(IL);:ЕZ(IL)│0зБе16205:ДЗ#м2,д32)"";:З#м2,Z(IL):Бе16210C{?MЗ#м2:CК?RЛIL:З#м2:РCС@q:ГCд@r:Г END OPTIONSCл@s:ГD@tЮ3:З@43,"selection";:З@107,"1.print";:З@171,"2.change";:З@235,"3.new";:З@299,"4.end";:З@363,"";:ЙSL:D8@~И SL Бе 17000,15000,16550,19000Dа@жАII│1е14:B(II)│0:C(II)│0:D(II)│0:E(II)│0:H(II)│0:P(II)│0:Q(II)│0:R(II)│0:S(II)│0:T(II)│0:ЛII:П:Бе67DмBhБе15650D═J8Ю3:З@233,"have a nice day";:D┘JBБе19010"2.change";:З@235,"3.new";:З@299,"4                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 х&г
:Г***************************     * CONVERTS <MICROPAINTER> *     *  TO RAM OPERATION WITH  *     *      DISK  I/O          *     ***************************'
:ГREMEMBER TO START WITH ROM-     PACK AUTO-START DISABLED        (POKE &HFF23, 36), THEN'Щ:ГSWITCH TO THE INTERFACE SLOT    CONTAINING MICROPAINTER (IF     YOU'RE USING MULTI-PAK INTER    FACE) OR carefully INSERT       MICROPAINTER PAK.(
(:ГSOFTWARE SWITCHING WITH A       POKE IS PREFERABLE TO USING     THE FRONT SWITCH ON THE         INTERFACE.(r2Ю:З:З"  READY TO MOVE <MICROPAINTER>    TO RAM AND ALTER IT?            (PRESS ANY KEY TO CONTINUE)(Е<Е  Т │ "" з 60(ЫAЗ:З"  MOVING.....(│FА M│&HC000 е &HC982(╔PТ Mм&H8000,  Ж(M)(╤ZЛ M(▐dАX│1е121(щnНA$,B$)xA$│"&H"лA$:B$│"&H"лB$)ВЗA$;" = ";B$)(МТ  Й(A$), Й(B$)).ЦЛ)lаЖ 400E,40,4011,40,4060,7E,4061,40,4062,6B,4073,BE,4077,BE)ккЖ 407B,BE,4081,48,4084,40,40C9,BE,40CF,BE,40F5,41,40FE,41)ш┤Ж 4118,BD,411B,47,4122,BD,412C,43,4132,46,41AA,0E,41B8,41*&╛Ж 41D4,41,4247,41,4273,41,428A,41,4295,41,42B0,42,42C3,41*d╚Ж 42E8,0E,42ED,26,432A,43,4342,43,4367,41,4379,0E,437E,26*в╥Ж 43A3,43,43C0,41,44C7,44,44D8,41,44F3,45,4523,43,4526,41*р▄Ж 4529,42,452E,41,4535,43,4538,44,454A,44,455B,41,4581,44+цЖ 45A8,0E,45B3,26,45B9,0E,45DF,26,45EF,41,45F6,43,45F9,44+\ЁЖ 460B,44,4619,2E,461E,6E,4625,B8,4629,0E,462B,43,462E,43+Ъ·Ж 4631,41,4638,43,463B,44,4658,43,465D,45,466B,44,4674,43+╪
Ж 467B,43,4684,45,4691,45,46A2,45,46BF,46,46D0,43,46D7,41,
Ж 470A,43,470D,46,471E,0E,4720,43,4723,46,472A,45,4731,43,T
Ж 4734,45,4737,46,4748,41,474B,43,476D,48,4774,48,4777,40,Т
"Ж 477A,48,477D,40,47B7,8E,47B8,0E,47BA,10,47BB,21,47C7,21,╨
,Ж 47CB,27,47EF,0E,4807,0E,4810,26,4833,48,4837,48,4841,40-
6Ж 4844,48,4847,40,4983,BD,4984,41,4985,69,4986,BD,4987,43-L
@Ж 4988,58,4989,7E,498A,A0,498B,E8,4607,7E,4608,49,4609,83-b
EЖ 4126,BD,4666,45-к
JЗ:З" READY TO SAVE ALTERED PROGRAM   TO TAPE? (ANY KEY TO CONTINUE)-╛
TЕ  Т │ "" з 340-ф
^ШM"MICRODSK",&H4000,&H498B,&H40004983,BD,4984,41,4985,69,                                                                                                                                                                                                                                                                 ╩ В*THIS IS THE FIRST PART *?
В****THE LITTLE RUNNER****^В****       BY        ****}В**** CHARLES A HUSAK ****ЬВ****   113 BONHAM    ****╗В****PORT LAVACA,TEXAS****┌В*************************∙В****  **** *** ***   ****В****  ***** ******   ****7	В*************************l
Ж86,0,B7,FF,22,B7,FF,C2,B7,FF,C4,8E,4,0,86,60,A7ЯЖ80,8C,6,0,25,F9,8E,4,0,10,8E,39,7D,A6,A0,81,0╒Ж27,14,81,41,25,0C,81,7F,22,4,81,5A,22,4,A7,80,20 	(ЖEA,8B,40,20,F8,BD,A1,B1,81,31,27,7,81,32,27,0B =2Ж7E,33,0,86,0A,B7,38,9,7E,33,1B,86,1,B7,38,9,86 p<ЖE0,B7,FF,22,B7,FF,C3,B7,FF,C5,4F,5F,8E,4,0,ED зFЖ81,8C,1C,0,25,F9,86,C8,B7,38,0A,86,0A,B7,38,AE,8E ▌PЖ4,0,86,55,A7,80,8C,0C,20,25,F7,8E,19,A0,10,8E,37!ZЖ29,BD,36,32,8E,18,B0,10,8E,37,29,BD,36,32,8E,19!GdЖAA,10,8E,37,56,BD,36,32,8E,18,B6,10,8E,37,56,BD!xnЖ36,32,8E,8,0,BD,36,90,8E,8,16,BD,36,90,8E,8!оxЖ0C,BD,36,90,8E,8,5,BD,36,90,BD,37,0C,10,8E,3A,39!уВЖBD,34,A9,BD,34,DA,BD,35,29,BD,36,72,BD,36,AB,BD"МЖ36,E7,BD,36,C9,BD,34,0,10,8E,3B,1B,BD,34,DA,BD"LЦЖ35,29,BD,36,72,BD,36,AB,BD,36,E7,BD,36,C9,BD,34"ГаЖ0,10,8E,3B,FC,BD,34,A9,BD,34,DA,BD,35,29,BD,36,72"╖кЖBD,36,AB,BD,36,E7,BD,36,C9,BD,34,0,10,8E,3B,1B"ь┤ЖBD,34,DA,BD,35,29,BD,36,72,BD,36,AB,BD,36,E7,BD#╛Ж36,C9,BD,34,0,7A,38,0A,26,3,7E,35,F5,7E,33,8B#U╚ЖB6,FF,0,81,FE,27,1,39,10,8E,3A,39,8E,12,10,BD,34#К╥ЖDD,BD,35,29,BD,36,72,BD,36,AB,BD,36,E7,BD,36,C9#┐▄Ж8E,11,10,BD,35,12,10,8E,3A,39,8E,10,10,BD,34,DD#ЇцЖBD,35,29,BD,36,72,BD,36,AB,BD,36,E7,BD,36,C9,8E$)ЁЖ10,10,BD,35,12,10,8E,3A,39,8E,0F,10,BD,34,DD,BD$^·Ж35,29,BD,36,72,BD,36,AB,BD,36,E7,BD,36,C9,8E,0F$У
Ж10,BD,35,12,10,8E,3A,39,8E,10,10,BD,34,DD,BD,35$╚
Ж29,BD,36,72,BD,36,AB,BD,36,E7,BD,36,C9,8E,10,10$¤
ЖBD,35,12,10,8E,3A,39,8E,11,10,BD,34,DD,BD,35,29%2
"ЖBD,36,72,BD,36,AB,BD,36,E7,BD,36,C9,BD,35,29,8E%h
,Ж11,10,BD,35,12,7E,33,8B,86,2,B7,37,21,86,5,B7,37%Ь
6Ж22,BD,A9,76,5F,BD,A9,A2,33,8D,2,65,A6,C0,27,12%╧
@Ж48,48,8A,2,B7,FF,20,4F,F6,37,21,1F,1,BD,A7,D3&
JЖ20,EA,7A,37,22,26,E1,39,8E,12,10,86,2E,B7,37,18&8
TЖC6,5,A6,A0,A7,80,5A,26,F9,30,88,1B,7A,37,18,26&o
^ЖEF,39,10,8E,39,3B,8E,12,0D,86,16,B7,36,71,C6,3,A6&д
hЖA0,A7,80,5A,26,F9,30,88,1D,7A,36,71,26,EF,39,86&╫
rЖ38,B7,37,19,C6,5,86,0,A7,80,5A,26,FB,30,88,1B'
|Ж7A,37,19,26,EF,39,A6,9F,37,1C,81,55,27,0D,81,5,27'A
ЖЖ9,81,1,27,5,81,54,27,1,39,8E,12,8,10,8E,37,B1'u
РЖ86,0B,B7,37,B0,C6,8,A6,A0,A7,80,5A,26,F9,30,88'к
ЪЖ18,7A,37,B0,26,EF,10,8E,38,A2,BD,35,65,7E,35,87'▌
дЖ86,3F,B7,FF,23,8E,0,20,E6,A0,C1,0,27,13,1F,98(
оЖF7,FF,20,12,12,12,5C,26,F7,1F,89,30,1F,26,F1,20(G
╕ЖE4,39,8E,12,8,86,0B,B7,37,B0,86,0,C6,8,A7,80,5A(}
┬Ж26,FB,30,88,18,7A,37,B0,26,F1,7A,38,9,27,1,39,BD(▓
╠Ж36,49,10,8E,3B,1B,8E,12,10,BD,34,DD,10,8E,3B,1B(ц
╓Ж8E,12,5,BD,34,DD,10,8E,38,0C,8E,12,4A,86,19,B7)
рЖ38,0B,C6,6,A6,A0,A7,80,5A,26,F9,30,88,1A,7A,38)R
ъЖ0B,26,EF,86,FF,C6,0B,8E,15,48,A7,80,5A,26,FB,10,8E)З
ЇЖ38,AF,BD,35,65,7A,38,AE,26,F4,7E,32,C8,10,8E,38)╝
■ЖB9,8E,10,0A,BD,36,1B,10,8E,38,E1,8E,10,0F,BD,36)ёЖ1B,BD,34,F4,10,8E,38,A2,BD,35,65,7A,38,AE,26,F4*(Ж7E,32,C8,86,0A,B7,36,71,C6,4,A6,A0,A7,80,5A,26,F9*\Ж30,88,1C,7A,36,71,26,EF,39,86,0F,B7,37,1A,C6,3*С&ЖA6,A0,A7,80,5A,26,F9,30,88,1D,7A,37,1A,26,EF,39*╟0Ж10,8E,39,9,8E,10,0F,86,0A,B7,36,71,C6,5,A6,A0,A7*№:Ж80,5A,26,F9,30,88,1B,7A,36,71,26,EF,10,8E,38,B9+/DЖ8E,10,0A,BD,36,1B,39,0,8E,18,9F,A6,84,10,8E,0+dNЖ1F,E6,1F,E7,84,30,1F,31,3F,26,F6,A7,84,30,88,3F+ЪXЖ8C,1C,0,25,E6,39,10,8E,3C,EC,86,37,B7,37,1B,C6,5+╧bЖA6,A0,A7,80,5A,26,F9,30,88,1B,7A,37,1B,26,EF,39,
lЖ8E,7,0,A6,84,10,8E,0,1F,E6,1F,E7,84,30,1F,31,8vЖ3F,26,F6,A7,84,30,88,3F,8C,0F,0,25,E6,39,10,8E,37,lАЖ83,BE,37,1C,86,0F,B7,37,1E,C6,3,A6,A0,A7,80,5A,бКЖ26,F9,30,88,1D,7A,37,1E,26,EF,39,BE,37,1C,86,0F,╫ФЖB7,37,1F,86,0,C6,3,A7,80,5A,26,FB,30,88,1D,7A,37-ЮЖ1F,26,F1,7C,37,1D,7A,37,20,26,3,BD,37,0C,39,8E-?иЖ16,E0,BF,37,1C,C6,20,F7,37,20,39,0,0,0,0,16,F4-T╝АX│13000 е 14109-\╞НA$-o╨ТX, Й("&H"лA$)-v┌ЛX-|▀Ю-бфЗ"YOU MUST LOAD THEN RUN PART 2"-╔юЗ"THEN 3 BEFORE ENTERING EXEC13000"88,1D,7A,37-ЮЖ1F,26,F1,7C,37,1D,7A,37,20,26,3,BD                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<& 
В*THIS IS THE SECOND PART*&?В*************************&^В*AFTER RUNNING THIS PART*&}В*YOU MUST LOAD PART 3   *&ЬВ*************************&╩
Ж0,0,0C,2,0,1,1,2,4,6,0,0,3C,0,0,C3,0,3,0'ЖC0,3,C3,C0,3,FF,C0,3,FF,C0,3,FF,C0,3,FF,C0,0F,FF'/ЖFC,3F,0C,FC,3C,0C,0,0,3,0,0,0,0,0,0,0,0,0'c(Ж0,0,28,0,2,AA,80,0A,AA,A0,2A,AA,A8,A5,55,5A,95'Ч2Ж55,56,25,7D,58,0A,BE,A0,0,3C,0,0,3C,0,0,3C,0,0'╟<Ж3C,0,0,3C,0,0,FF,0,0,FF,0,F0,0,0,F8,0,0,FF'√FЖ0,0,FF,C0,0,FF,F0,0,3F,F8,0,3F,FF,0,0F,FF,0,0F(-PЖF3,0,0C,C3,0,0C,C3,0,0C,3C,0,0,0,0,0,0,0,0,0(]ZЖ0,0,FF,F0,0,0,0,0,0,0,C0,30,0,0,0,0,0,0,C0(ОdЖ33,FF,0,0,0,0,0,C0,30,30,0,0,0,0,0,C0,30,30(╛nЖ3F,0,0,0,0,C0,30,30,30,0,0,0,0,C0,30,30,30(єxЖ33,0,0,0,C0,30,30,30,33,0,0,0,C0,30,30,30,3F,3F)$ВЖ0,0,C0,30,30,30,33,33,0,0,FF,F0,30,3F,33,33)TМЖ3F,FF,0,21,0,0,0,0,0,2,80,0,0,0,0,2,80,0,0)ЕЦЖ0,0,0A,A0,0,0,0,0,0A,A0,0,0,0,0,2A,80,0,0,0)┤аЖ0,2A,80,0,0,0,0,2A,0,0,0,0,2,2A,0,0,0,0,2)цкЖ2A,80,5,0,0,2,A9,80,15,0,0,2,AA,80,15,0,0,0A*┤ЖAA,80,55,0,0,0A,AA,44,55,0,0A,AA,AA,44,55,0,6A*O╛ЖAA,A9,45,55,0,6A,AA,A9,45,55,1,5A,AA,A5,55,55,1*Г╚Ж5A,AA,A5,55,55,5,AA,AA,A5,55,55,55,AA,AA,A5,55*╖╥Ж55,55,AA,A9,55,54,55,55,6A,A9,55,54,55,51,54,5*ы▄Ж55,50,15,0,54,2,55,50,15,0,50,2,55,40,B4,BE,C8+!цЖD2,DC,E6,DC,D2,C8,BE,B4,0,0,64,6E,78,82,8C,82,78+UЁЖ6E,64,0,C0,CF,F3,0C,C0,CC,33,0C,C0,CC,33,0C,C0+У·ЖCC,33,0C,0C,0C,33,0C,0C,0C,33,0C,0C,0C,33,0C,0C,0C,33,0C+╦
Ж0C,0C,33,0C,0C,CF,8F,FC,C0,CC,C0,C0,C0,CC,F0,C0,C0,
ЖCC,CC,C0,C0,CC,CC,C0,C0,CC,CC,C0,C0,CC,C3,C0,CC,5
ЖCC,C3,C0,CC,CC,C3,C0,F3,CC,C0,C0,C0,CC,C0,C0,C0,k
"Ж3F,CF,CF,F0,C0,30,CC,0C,0,C0,30,CC,0C,0,C0,30,CC,Ю
,Ж0C,0,C0,30,CF,0C,0,C0,30,C0,CF,C0,C0,30,C0,CC,╥
6Ж0,C0,30,C0,CC,0,C0,30,C0,CC,0,FC,3F,CF,CC,F0,0-
@Ж55,0,1,FF,40,1,7D,40,11,55,44,45,55,51,41,55,41-8
JЖ40,55,1,40,55,1,10,55,4,5,14,50,0,14,0,0,14-l
TЖ0,0,14,0,0,55,0,5,55,50,FF,FF,FF,FF,FF,FF,3,30-в
^ЖC0,3,30,C0,0C,30,30,0C,30,30,30,0,0C,20,20,20,20-╫
hЖ20,20,20,54,48,45,20,4C,49,54,54,4C,45,20,52,55.
rЖ4E,4E,45,52,20,20,20,20,20,20,20,20,20,20,20,20.A
|Ж20,20,20,20,20,20,20,20,20,20,20,42,59,20,20,20.v
ЖЖ20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20.л
РЖ20,20,20,43,48,41,52,4C,45,53,20,41,20,48,55,53.р
ЪЖ41,4B,20,20,20,20,20,20,20,20,20,20,20,20,20,20/
дЖ20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20/J
оЖ20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20/
╕Ж20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20/┤
┬Ж20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20/щ
╠Ж31,20,45,41,53,59,20,20,20,20,20,20,20,20,20,200
╓Ж32,20,48,41,52,44,0,00╝АX│14110 е 149040!╞НA$04╨ТX, Й("&H"лA$)0;┌ЛX,20,20,20,20/
╕Ж20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20/┤
┬Ж20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20/щ
╠Ж31,20,45,41,53,59,20,20,20,20,20,20,20,20,20,200
╓Ж32,20,48,41,52,4                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╬&
Ю&,З"SET UP PAPER AND PRESS A KEY."&3ЙS&E(З #м2, Л(30);&^2З #м2,"PLAYER NAME";&j7Бж 1010&}<З #м2,"CLASS";&ЙAБж 1010&ЬFЗ #м2,"LEVEL";&иKБж 1010&╣PЗ #м2, Л(10)&╙ZЗ #м2,"RACE";:Бж 1010&ЄdЗ #м2,"ALIGNMENT";:Бж 1010'nЗ #м2,"DIETY";:Бж1010'xЗ #м2, Л(10)'8ВЗ #м2,"ORIGIN";:Бж1010']МЗ #м2,"SECONDARY SKILL";:Бж 1010'nЦЗ #м2, Л(10)'ЖаЗ #м2,"MV";:Бж 1010'бкЗ #м2,"VISION";:Бж1010'└┤З #м2,"LISTENING";:Бж 1010'╤╛З #м2, Л(10)'ъ╚З #м2,"STR";:Бж 1050(╥З #м2,"HIT";:Бж 1050(▄З #м2,"DAM";:Бж 1050(4цЗ #м2,"DRS";:Бж1050(MЁЗ #м2,"BAR";:Бж 1050(YїБж 1070(j·З #м2, Л(10)(В
З #м2,"INT";:Бж1050(Ъ
З #м2,"LAN";:Бж1050(▓
З #м2,"%SP";:Бж1050(╠
"З #м2,"MN SP";:Бж1050(ц
,З #м2,"MX SP";:Бж1050(ё
1Бж1090)
6З #м2, Л(10))
@З#м2,"WIS";:Бж1050)4
JЗ#м2,"MGK.ADJ";:Бж1050)M
TЗ#м2,"%S FL";:Бж1050)f
^З#м2,"SP BN";:Бж1010)r
cБж 1110)В
hЗ#м2, Л(10))Щ
rЗ#м2,"DEX";:Бж1050)▓
|З#м2,"R.ADJ";:Бж1050)╦
ЖЗ#м2,"M.ADJ";:Бж1050)ф
РЗ#м2,"D.ADJ";:Бж1050)я
ХБж1130) 
ЪЗ#м2, Л(10)*
дЗ#м2,"CON";:Бж1050*0
оЗ#м2,"HP.ADJ";:Бж1050*F
╕З#м2,"SS";:Бж1050*\
┬З#м2,"RS";:Бж1050*g
╟Бж1150*w
╠З#м2, Л(10)*О
╓З#м2,"CHR";:Бж1050*ж
рЗ#м2,"MX.H";:Бж1050*╛
ъЗ#м2,"LY.B";:Бж1050*╫
ЇЗ#м2,"R.ADJ";:Бж1050*т
∙Бж1170*Є
■З#м2, Л(10)++З#м2,"SAVING THROW ADJ";:Бж1010:Бж1010:Бж1010:Бж1050+;З#м2, Л(10)+ZЗ#м2, Л(31);"A.C.";:Бж1050+Е&З#м2, Л(31);"     H.P.";:Бж1050:Бж1010+Х0З#м2, Л(10)+о:З#м2,"ARMOR";:Бж1010+═DЗ#м2,"     AC ADJ";:Бж1050+·NЗ#м2,"     SHLDLS/RR AC";:Бж 1050:Бж1050,
XЗ#м2, Л(10),&bЗ#м2,"SURPRISE";:Бж1050,QlЗ#м2,"    WEAPONS OF PROF:  #";:Бж1050,tvЗ#м2,"    NON-PRO PEN";:Бж1050,ДАЗ#м2, Л(10),╒КЗ#м2,"        WEAPON        MAG.ADJ.        RANGE        SPEED        S-M/L",фФА N1│1 е 7,∙ЮЗ#м2,"        ";-иА N│1 е 3-▓Бж1010-╝ЛN-,╞Бж 1050:Бж1050-<╦З#м2, Л(26)-D╨ЛN1-T┌З#м2, Л(10)-ИфЗ#м2, Л(31);"             MAGICAL ITEMS"; Л(30)-ЧюА N1│1 е 7-е°А N│1 е 4-░Бж1010-╖ЛN-╔Бж1050:Бж1050-┘З#м2, Л(26)-с ЛN1-ё*З#м2, Л(10).
4З#м2,"  AGE";:Бж1050.(>З#м2,"       SEX";:Бж1050.IHЗ#м2,"       WEIGHT";:Бж1050.jRЗ#м2,"       HEIGHT";:Бж1050.z\З#м2, Л(10).дfЙ "TURN PAPER OVER AND PRESS KEY.";A$.╬pЗ#м2, Л(31);"                 SPELLS".▐zА N1│1 е 20.ьДА N│1 е 4.ўОБж1010.■ШЛN/вБж1050:Бж1050/$мЗ#м2, Л(26):ЛN1/4╢З#м2, Л(10)/]└З#м2, Л(31);"                 NOTES"/n╩Й "AGAIN";A$/шЗ #м2, Л(10)/ЧэЕ A$┤▓"N" з 10 :Д К/╟ЄЗ #м2, Л(18); Л(28); Л(105); Л(192); Л(30);/═№Р/№З #м2, Л(18); Л(28); Л(28); Л(192); Л(30);0$Р0@.З#м2,"          LANGUAGES"; Л(18); Л(28); Л(140); Л(192);0S8З#м2, Л(30);:Р0НBЗ#м2,"            "; Л(18); Л(28); Л(203м49); Л(192);0аLЗ#м2, Л(30);:Р0═VЗ#м2,"  "; Л(18); Л(28); Л(154); Л(192);0р`З#м2, Л(30);:Р1jЗ#м2,"                 "; Л(18); Л(28); Л(154); Л(192);1/tЗ#м2, Л(30);:Р1l~З#м2,"       RESISTANCES"; Л(18); Л(28); Л(175); Л(192);1ИЗ#м2, Л(30);:Р1║ТЗ#м2,"       DETECTION"; Л(18); Л(28); Л(175); Л(192);1═ЬЗ#м2, Л(30);:Р`З#м2, Л(30);:Р1jЗ#м2,"                 ";                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  d&
Z$│ Л(124):S$│ Л(92)&.З#м2, б(80,95);&HБж250:Бж250:P│0:Бж270&к(З#м2, Л(124); б(28,32); Л(124);"     '''( )'''    "; Л(124); б(30,32); Л(124):Бж250:P│1:Бж270&─2Бж250:Бж250:P│2:Бж270'<З#м2,Z$; б(28,32);Z$;"     *  **  *     ";Z$; б(30,32);Z$'@FЗ#м2,Z$; б(28,32);Z$;"  *            *  ";Z$; б(30,32);Z$'NPP│3:Бж270'МZЗ#м2,Z$; б(28,32);Z$;"*                *";Z$; б(30,32);Z$'╩dЗ#м2,Z$; б(28,32);Z$;"******************";Z$; б(30,32);Z$'╪nP│4:Бж270(xЗ#м2,Z$; б(28,32);Z$;"******************";Z$; б(30,32);Z$(KВЗ#м2,Z$; б(29,32);"*"; б(16,32);"*"; б(31,32);Z$(YМP│5:Бж270(ОЦЗ#м2,Z$; б(31,32);"*"; б(12,32);"*"; б(33,32);Z$(║аЗ#м2,Z$; б(35,32);"* ** *"; б(37,32);Z$(╦кАP│6е8:Бж270(┘┤А K│1 е 2(Є╛З#м2,Z$; б(78,32);Z$(√╚ЛK,P)	╥P│9:Бж270)"▄З#м2,Z$; б(78,32);Z$);цЗ#м2,Z$; б(78,95);Z$)AЁК)И·З#м2, Л(124); б(28,32); Л(124); б(18,32); Л(124); б(30,32); Л(124))О
Р)Ы
A$│"###")г
K│0)╡
"З#м2, Л(124);)╠
,АI│0лP е 140лP й10)щ
6З#м2,дKл2);:З#м2,═ A$;I;)є
@K│Kл5*
JЛI:З#м2, б(4,32); Л(124)*
TР*2ш:ГBBALL GRID LISTING #2*JЄ:ГBY FRED B. SCERBO*c№:ГCOPYRIGHT (C) 1983б(18,32); Л(124); б(30,32); Л(124))О
Р)Ы
A$│"###")г
K│0)╡
"З#м2, Л(124);)╠
,АI│0лP е 140лP й10)щ
6З#м2,дKл2);:З#м2,═ A$;I;)є
@K│Kл5*
JЛI:З#м2▄Бж30:Бж1900:ЕPR зБж1800::ГPRINT COMPLETE DIRECTORY ****+LцF│1:Бж240:Бе260+yЁЮ:З" ":З"DIRECTORY FOR DISK #"DN$"  "TD$,3·З" ":ЕSD зЗ" FILE NAME   FORMAT GR   DATE   SEC  BYTES   START,END,EXEC     GRANULE NUMBERS":ЕPR зЗ"------------ ------ -- -------- ---  -----  -----------------  -----------------",9 Р,X
T│17:S│3:C│0:▀D,17,2,S$,B$,q
	Т65283, Ж(65283)░254,Ш
ЕC│0з▀D,T,S,A$,B$:C$│A$л О(B$,127),╝
Бж1270:C│Cл32:ЕC▓│256зC│0:S│Sл1,╤
"Е К(FI$)│255з360,ф
,Е К(FI$)│0з270-7
6Бж1360:З═"%          % %  % ! ## %      %";FI$,FT$,FF$,G,FD$,:Зд31);:ЕSD│0з340-_
8З═FM$;TS,256н(TSм1)лNBм1,:З" ";:I│1-╙
@ЕFT│2зT0│T:S0│S:Бж500:T│T0:S│S0:З═" #####";MS,:З",";:З═"#####";ME,:З",";:З═"#####";MX,::ДЗ"                  ";-ш
EI│1:ЕPR│0зЗ"  ";./
JЗ" ";:АI│I еIл5:ЕI┤│G зЗ═" ##";G(I),:ЛI:ЕI┤G зЗ:Зд61);:F│Fл1:Бе330.Ч
TЗ:F│Fл1:ЕF▓12о(1л2нSD)░PR│0зF│1:Й" ENTER TO CONTINUE,X TO STOP";X$:ЕX$│"X"з380:ДЮ:ЕSD зБж250:ДБж240.б
^Бе270.╣
hЗ г(D);"FREE GRANS".╙
mЕPR зАI│F е24:З" ":ЛI.х
|Бж9990:SD│0:Р/
ЖЕF9▓0░SF│0зБж7020::ГPRINT SHORT DIRECTORY ****/L
РN│0:F│1:Бж1900:Т65283, Ж(65283)░254:ЕPR зБж1800/j
ЪЗ"FILE LISTING: DISK#"DN$/{
дT│17:S│3:C│0/С
оЕC│0з▀D,T,S,A$,B$/ж
╕C$│A$л О(B$,127)/╩
┬Бж1270:C│Cл32:ЕC▓│256зC│0:S│Sл10
╠Е К(FI$)│255зЗ г(D);"FREE GRANS":Бж1870:Бж9990:Й"RUN #";X:ЕX▓0░X┤│N з490:ДР0-
╓Е К(FI$)│0з4300l
рN│Nл1:З═"##.%           %";N,FI$,:GL$(N)│FI$:G(N)│FT:Бе4300В
ъЕG(X)│0з╙GL$(X),R0в
ьЕG(X)│2з╙MGL$(X):Т65344,0:в0▒
юЗ"CAN'T":Р0у
Ї:ГFIND START(MS), END(ME) & AND EXEC(MX) ****0є
∙Бж510:Бе5351
■G5│G(1):Бж1430:▀D,T,S,A$,B$15АI│1е5:B(I)│ К( Р(A$,I,1)):ЛI1sMS│256нB(4)лB(5):ML│65536нB(1)л256нB(2)лB(3):ME│MSлMLм1:Р1▒Е ML┤▓(TSм1)н256лNBм10зЗ"LENGTH OF"ML"<>"(TSм1)н256лNBм101∙G5│G(G):Бж1430:S│SлLSм1:▀D,T,S,A$,B$:ЕNB┤2зNB│NBл256:B$│B$л О(A$,1)24&ЕNBм2┤128зB1│ К( Р(A$,NBм1,1)):ДB1│ К( Р(B$,NBм129,1))2m0ЕNBм1┤128зB2│ К( Р(A$,NB,1)):ДB2│ К( Р(B$,NBм128,1))2А:MX│256нB1лB2:Р2еD:ГMACHINE LANGUAGE FILE INFO****2цNЙ"MACHINE LANGUAGE FILE NAME/EXT  ";MF$:Е Ю(1,MF$,"/")┤2з5903XT│17:S│3:C│0:MS│0:ME│0:MX│03b▀D,17,2,S$,B$3?lЕC│0з▀D,T,S,A$,B$:C$│A$л О(B$,127)3ЯvБж1270:Е К(FI$)│255з670:ДЕ О(FI$, З(MF$))│MF$░FT│2з640:ДC│Cл32:ЕC│256зC│0:S│Sл1:Бе620::Д6203╣АЕCF│0зБж1360:Бж500:ДР3шКЗ:З" START="MS:З" END  ="ME:З" EXEC ="MX:З3юФР4ЮЗ:З"I CAN'T FIND THAT FILE, SORRY":З:Р48и:ГGRAN ALLOCATION TABLE **4Q▓Бж1900:Ю:ЕPR зБж18004Х╝З" ":З"GRANULE ALLOCATIONS  -  DISK#"DN$,TD$:З" ":▀D,17,2,A$,B$4ж╨АI│0е8:ЗIн8;4┐┌АJ│1е8:ЕIн8лJ▓68з7705фV│ К( Р(A$,Iн8лJ,1)):ЕV│255зV$│"00":ДЕV▓68зV$│"S"л П( И(Vм192),1):ДV$│ И(V)5*юЗд3нJл3); П("0"лV$,2);56°ЛJ:З:ЛI5JЗ:З:ЕPR зБж18705PР5j:ГADD DATE TO DIR****5а Бж30:▀D,17,2,S$,B$:рD,17,1,S$,B$:З" TODAY IS "TD$5╞*T│17:S│3:C│0:Т65283, Ж(65283)░2545э4▀D,T,S,A$,B$:DF│0:C$│A$л О(B$,127)5°>Бж12706HЕ К(FI$)│255зБж930:Бж9990:Р6+RЕ К(FI$)│0з9106K\Е К(FD$)▓32░ К(FD$)┤128з9106hfЗ"NO DATE FOUND FOR "FI$6ГpЙ"ADD TODAY'S DATE";X$6ЪzЕ О(X$,1)┤▓"Y"з9106╡Д Р(C$,Cл17,8)│TD$:DF│16╦ОC│Cл32:ЕC┤256з8306хШБж930:C│0:S│Sл1:Бе8206Ўв:ГSAVE DATES7мЕDF│0з97578╢Й"SAVE THESE DATES ON DISK";X$:Е О(X$,1)┤▓"Y"зР7r╩A$│ О(C$,128):B$│ Р(C$,129,127)л П(B$,1):рD,T,S,A$,B$7Л╧ЕS┤9зрD,17,Sл9,A$,B$7С╘Р7░▐:ГCHANGE DRIVE NUMBER ****7╧шЗ"NEW DRIVE NUMBER (0-3)";7¤ЄD$│ Т:ЕD$┤"0"▒D$▓"3"з1010:ДЗD$:D│ Й(D$):Р8Ў:ГREAD FILE FROM DIR ****8?
F$│ Р(C$,Cл1,8):E$│ Р(C$,Cл9,3)8iАI│8е1йм1:Е К( Р(F$,I,1))┤▓32з1310:ДЛ8ЦFI$│ О(F$,I)л"/"лE$:FT│ К( Р(C$,Cл12,1))8█(ЕFT│0зFT$│"PROG":ДЕFT│1зFT$│"DATA":ДЕFT│2зFT$│"MACH":ДFT$│"EDIT"92FF│ К( Р(C$,Cл13,1)):ЕFF│0зFF$│"B":ДFF$│"A"9f<G1│ К( Р(C$,Cл14,1)):NB│ К( Р(C$,Cл16,1)):FD$│ Р(C$,Cл17,8):Е К(FD$)┤32зFD$│"        "9lFР9СP:ГGET FILE GRAN ALLOCATIONS ****9нZG│1:G(1)│G1:ЕG1▓67з13859─dЕG1▓│0▒G1┤255з13909юiЗ"BAD GRAN # (";G1;") AT LINE 1385":Р:-nG1│ К( Р(S$,G1л1,1)):ЕG1▓67зLS│G1м192:TS│9н(Gм1)лLS:Бе1410:rxG│Gл1:ЕG┤│67зG(G)│G1:Бе1380:ДЗ"GRAN # GT 67 AT LINE 1400":G│67:Р:ЯВЕLS┤1▒LS▓9зЗ"LAST SECTOR";LS;"IN ERROR.":еМР:╩Ц:ГCONVERT GRAN(G5) TO T & S ****:ЇаT│ Б(G5о2):S│1л9н(G5м2нT):ЕT▓16зT│Tл1:·кР;┤:ГRECOVER LOST FILES ****;З╛З"DO YOU WANT TO RESTORE A KILLED FILE OR RECOVER FROM A DAMAGED  DIRECTORY?":З"(K)ILLED OR (D)IRECTORY?";;└╚X$│ Т:ЕX$│"K"зЗX$:Бе1700:ДЕX$│"D"зЗ"D":Бе1490::Д1480<Ъ╥Ю:З"USE THIS ROUTINE ONLY IF THE 'S'COMMAND CANNOT PRINT A VALID    DIRECTORY.":З:З"YOU WILL BE PROMPTED FOR ALL THEINFORMATION NEEDED.":З"NOTHING WILL BE WRITTEN TO THE  DISK UNTIL AFTER YOU APPROVE IT.":З:Бе2000<∙▄SE│3:S$│ б(128,255):C│0:З"PLEASE ANSWER THE FOLLOWING":З"QUESTIONS TO BUILD NEW DIRECTORY"=*цA$│ б(128,255):B$│ б(128,255):C$│ б(255,255)=ЩЁЗ:Й"FILENAME OR 'STOP'";F$:Е Ю(1,F$,"/")▓1зЗ"NO EXTENSION PLEASE.":Бе1520:ДЕF$│"STOP"зЕC│0зР:ДC│0:Ю:Бе1645=┬·Й"EXTENSION";E$:Е Ю(1,E$,"/")▓0з1530>F$│F$л"       ":F$│ О(F$,8):E$│E$л"   ":E$│ О(E$,3): Р(C$,Cл1,32)│ б(32,0)>UЙ"(0=PROG, 1=DATA, 2=MACH, 3=EDIT)FILE TYPE";FT:ЕFT┤0▒FT▓3з1550>ФЙ"FILE FORMAT (0=BIN, 1=ASC)";FF:ЕFF│1зFF│255:ДЕFF┤▓0з1560>┤Й"DATE";FD$:ЕFD$│""зFD$│TD$>╩"G│1:Бж1580:Бе1630?,Й"NEXT GRAN NUMBER (-1=STOP)";G(G):ЕG(G)┤м1▒G(G)▓67зЗ"ILLEGAL NUMBER":Бе1580?Б1ЕG(G)▓│0зЕ К( Р(S$,G(G)л1,1))▓201зG│Gл1:Бе1580:ДЗ"GRAN ALREADY USED. REDO.":Бе1580:ДG│Gм1:G1│G(1)?а2АI│1еG:ЗG(I);:ЛI:З:З"OK? "?═3X$│ Т:ЕX$│"N"зG│1:Бе1580::ДЕX$┤▓"Y"з1587?¤6ЕG▓1зАI│1еGм1: Р(S$,G(I)л1,1)│ Л(G(Iл1)):ЛI@z;ЕFT│2зБж510:LS│ Б((MLл9)о256м9н(Gм1))л1:TS│9н(Gм1)лLS:NB│MLл9м256н(9н(Gм1)лLSм1)л1:З"FILE SIZE =";256н(TSм1)лNBм1:Бе1605@э@Й"FILE SIZE IN BYTES (0=DONT KNOW)";TB:ЕTB▓0зLS│ Б(TBо256м9н(Gм1))л1:NB│TBм256н(9н(Gм1)лLSм1)л1:ДNB│255:Бж1620AJEЕLS▓9▒LS┤1▒NB▓255▒NB┤1зLS│9:NB│255:З"**** SIZE NOT COMPATIBLE WITH   GRAN COUNT.":Бе1600APJРAЮTЙ"FILE SIZE IN SECTS (0=DONT KNOW)";TS:ЕTS▓0зLS│ Б(TSм9н(Gм1)):Р::ДLS│9:РB(^ Р(C$,Cл1,8)│F$: Р(C$,Cл9,3)│E$: Р(C$,Cл12,1)│ Л(FT): Р(C$,Cл13,1)│ Л(FF): Р(C$,Cл14,1)│ Л(G1): Р(C$,Cл16,1)│ Л(NB): Р(C$,Cл17,8)│FD$B_h Р(S$,G(G)л1,1)│ Л(LSл192):C│Cл32:ЕC┤256з1520:ДC│0BomЕPR зБж1800CrБж1270:Е К(FI$)┤▓255зБж1360:ЗFI$;д13);FT$;д18)FF$;" ";G;FD$;д32);:З═FM$;TS,256н(TSм1)лNBм1,:З"  ";:АI│1еG:З═" ##";G(I),:ЛI:З:C│Cл32:ЕC┤255з1650C^|Бж1870:АI│1е2500:Л:Й"SAVE THE ABOVE DIRECTORY";X$:Е О(X$,1)│"N"зР:ДЕ О(X$,1)┤▓"Y"з1660C┴ЖЗ"SO BE IT.":A$│ О(C$,128): Р(B$,1,127)│ П(C$,127):рD,17,SE,A$,B$:B$│ б(128,255):рD,17,2,S$,B$C▀РЕC│256зSE│SEл1:C│0:Бе1510CхЪРDд:ГKILLED FILE RECOVERYDKйЮ:З"TO GET A LIST OF KILLED FILES,  INPUT '?' INSTEAD OF A FILE NAME "D║оЙ"OLD FILE NAME/EXT";FL$:Е Ю(1,FL$,"/")▓1▒FL$│"?"зFO$│FL$: Р(FL$,1,1)│ Л(0):SE│3:C│0:▀D,17,2,S$,B$:З:Д1710Dу╕ЕC│0з▀D,17,SE,A$,B$:C$│A$л О(B$,127)EV┬Бж1270:Е К(FI$)│255зЕFO$┤▓"?"зЗ"I CAN'T FIND A KILLED FILE NAMED"FO$:Бе1760:Д1760::ДЕ О(FI$, З(FL$))┤▓FL$з1736Ew╟ЕFO$│"?"зЗд8);"?"лFI$::Д1740Eв╚C│Cл32:ЕC│256зC│0:SE│SEл1:Бе1720:Д1720E√╠ЕFO$┤▓"?"з Р(C$,Cл1,1)│ О(FO$,1):A$│ О(C$,128): Р(B$,1,127)│ П(C$,127)::ДЗFI$:Бе1720F╖╓G(1)│G1:З"FIRST GRANULE IS";:Е К( Р(C$,G1л1,1))▓201зЗG1:G│2:Бж1580: Р(S$,G(G)л1,1)│ Л(LSл192):рD,17,SE,A$,B$:B$│ б(128,255):рD,17,2,S$,B$ :ДЗ" OCCUPIED!!!":З"FILE CANNOT BE RESTORED."F┐рЗ:РFтъ:ГTURN PRINTER ON AND OFF ****GЇPR│1мPR:ЕPR зЗ"PRINTER ON":ДЗ"PRINTER OFF"G■РG3В TURN ON PRINTING ****G?
Т150,87GeП:Т155,80:АX│1е15:НA:Т1007лX,A:ЛXGДТ359,126:Т360,3:Т361,240:РGа&Ж 52,22,198,254,215,111G─0Ж 190,160,2,173,3,15,111,53,150GсNВ TURN OFF PRINTING ****HXАX│1008е1022:ТX,0:ЛX:Т359,126:Т360,203:Т361,74:РH_l▀D,17,18,A$,B$:Е К(B$)▓31░ К(B$)┤58зDN$│ О(B$,12):DN│ Й( О(DN$,3)):РHеvЙ"INPUT THIS DISK NUMBER, NAME    ";DN,DN$:DN$│ О(DN$л б(8,32),8)IАDN$│ П("  "л И(DN)л" ",4)лDN$:Е П(DN$,8)│ б(8,32)зР:ДрD,17,18, б(128,255),DN$л б(116,255):РI╨:ГBACKUP DIRIi┌Й"FIRST WE'LL CHECK THE AUTOMATIC DIRECTORY BACKUP. OK";X$:Е О(X$,1)┤▓"Y"з1500I┌ф▀D,17,1,S$,B$:T│17:S│12:C│0:Бж265:Й"DO YOU WANT TO RESTORE THE ABOVEBACKUP DIRECTORY";X$:Е О(X$,1)┤▓"Y"з1500J/ю▀D,17,1,A$,B$:рD,17,2,A$,B$:АS│12е17:▀D,17,S,A$,B$:рD,17,Sм9,A$,B$:ЛS:З" DONE":РJ5вРJD╕:ГDISKCAT J╨┬Е У▓2000зХ256н Ж(39)л Ж(40)м18900:F8│ Б((256н Ж(39)л Ж(40)м18900)о54м24):МGL$(F8),G(67):SF│1:O1$│"XRWADFLPSNME":O$│"XDSPFGANLRCME":Бж34J■ЇPR│0:Ю:З"****** FILE CATALOG MENU ******"K(■Зд11)TD$:З"R  READ CATALOG FROM DISK"KHЗ"W  WRITE CATALOG TO DISK"KiЗ"A  ADD A DISK'S DIRECTORY"KРЗ"D  DELETE THIS DISK'S DIRECTORY"Kж&З"F  FIND A FILE"K┐0З"L  LIST TO SCREEN"K┘:З"P  LIST TO PRINTER"KшDЗ"S  SORT"LFЗ"N  NUMBER DEFAULT DRIVE"LIЗ"M  PRINT MENU"L:NЗ"E  EXIT TO MAIN MENU":ЗL\фЗ"(R,W,A,D,F,L,P,S,N,M,E) ?";LЛюA$│ Т:Е Ю(1,O1$,A$)┤2▒ Ю(1,O1$,A$)▓13з3310LгєЕA$│"E"зБж7000:Бе40Lэ°ЗA$::Г                R    W    A    D    F    L    P    S    N    M"M3
И Ю(1,O1$,A$)м1Бж3500,4000,4500,5000,5500,6020,6000,6500,990,3060M>
Бе3300M_
мБж3600::ГREAD FROM DISK ****Mw
╢Щ"I",#1,F$:I│0:SF│1M─
└Е М(1)│м1з3580:ДЕI┤F8 зI│Iл1:Й#1,GL$(I):Бе3520:ДЗ"TOO MANY FILES":Бе3580Mю
№F9│I:ЗI"RECORDS LOADED FROM FILE ",F$M°Ъ#1:РNdЙ"FILE NAME";F$:ЕF$│""зF$│"CATALOG/DAT":ДI│ Ю(1,F$,"/"):ЕI┤1зF$│F$л"/DAT":ДЕI▓8зЗ"BAD FILE NAME":Бе3600N{Е З(F$)▓12з3600:ДРNЪаБж3600::ГSAVE TO DISK ****NщкЩ"O",#1,F$:АI│1еF9:┘#1,GL$(I):ЛI:Ъ#1:ЗF9"RECORDS SAVED ON FILE ",F$:SF│1:РOФ:ГADD A DISK DIR ****O:ЩЗ"SPACE FOR"F8мF9"ENTRIES LEFT":ЕF8мF9▓0зБж1900:ДРOn▓T│17:S│3:C│0:▀D,17,2,S$,B$:Т65283, Ж(65283)░254OХ╝ЕC│0з▀D,T,S,A$,B$:C$│A$л О(B$,127)O╣╞Бж1270:C│Cл32:ЕC▓│256зC│0:S│Sл1O╧╨Е К(FI$)│255з4600P┌Е К(FI$)│0з4540:ДЕF9▓│F8 зЗ"NO MORE ROOM":Бе4600P▌фБж1360:F9│F9л1:GL$(F9)│ б(44,32): Р(GL$(F9),1,8)│F$: Р(GL$(F9),9,4)│"/"лE$: Р(GL$(F9),13,2)│ И(FT): Р(GL$(F9),16,1)│FF$: Р(GL$(F9),18,8)│FD$: Р(GL$(F9),27,5)│ П("    "л И(256н(TSм1)лNBм1),5): Р(GL$(F9),33,12)│DN$Q,щАI│1еG:ЕI┤│12зGL$(F9)│GL$(F9)л П(" "л И(G(I)),3):Л::Д Р(GL$(F9),79,2)│"++"QLюЗ О(GL$(F9),62):SF│0:Бе4540Qf°ЗF9"FILES CATALOGED."Q|~Бж9990:Т65344,0:РQЩИ:ГDELETE A DISK DIR ****QоНЕF9┤1зJ│0:Бе5050Q┴ТБж1900:I│1:J│0RЬЕDN$┤▓ Р(GL$(I),33,12)зJ│Jл1:GL$(J)│GL$(I):ДЗGL$(I):SF│0:З" *** DELETED ***"R*░ЕI┤F9 зI│Iл1:Бе5020RQ║F9│J:З"THERE ARE NOW"F9"RECORDS":РRh|:ГFIND A FILE ****RщЖЙ"FILE NAME";F5$:L5│ З(F5$):Е Ю(F5$,"/")▓1зF5$│ О( О(F5$, Ю(F5$,"/")м1)л"      ",8)л П(F5$, З(F5$)м Ю(F5$,"/")л1):L5│ З(F5$)SРАI│1еF9:ЕF5$│ О(GL$(I),L5)зЗ О(GL$(I),62)SЪЛIS$oРSIp:ГLIST TO SCREEN OR PRINTER ****SГzЕF9▓0зPR│1:Бж 1800:Зд20);"DISK FILE CATALOG   -  "TD$S█ДЕF9┤1зЗ"TYPE 'R' TO READ THE DISK FILE  CATALOG INTO MEMORY.":Бе6499:ДБж6025:Бе6050T.ЙЮ:З" FILE NAME   FMT   DATE   BYTES";:ЕPR зЗ"   DISK ID    GRANULE NUMBERS":ДЗTЖОЗ"------------ --- -------- -----";:ЕPR з З" -----------  ---------------------":ДЗTМУРT╦вАI│1еF9:ЕPR зЗGL$(I):Е Т┤▓"X"зЛI:PR│0:Бе6499::ДPR│0:Бе6499U%мЗ О(GL$(I),62):ЕIо6│ Б(Iо6)зЗ:Й" ENTER TO CONTINUE,X TO STOP";X$:ЕX$│"X"з6499:ДБж6025U,╢ЛIU:cБж 1870:РURd:ГSORT ROUTINE ****VnЙ"SORT OPTIONS: 1-NAME   2-EXTN   3-DATE  4-DISK NO.  5-DISK NAME 0-CANCEL SORT";S5:ЕS5│1зSC│1:SL│12:ДЕS5│2зSC│10:SL│3:ДЕS5│3зSC│24:SL│2:ДЕS5│4зSC│33:SL│3:ДЕS5│5зSC│37:SL│8:ДЕS5│0зР:Д6510V)x Я│0:Т65495,0:SF│0VB}ЕS5│3зБж6600:ДБж6700Vb╟Т65494,0:З Б( Яо59)"SEC.":РVj╚D│4VЙ╠ЕD┤F9 зD│DлD:Бе6604:ДD│Dм1Vд╨D│ Б(Dо2):ЗDл1;:ЕD┤1зРV▓╥АJ│1еF9мDV┴╫АI│J е1ймDWf▄Е Р(GL$(IлD),SC,SL)▓ Р(GL$(I),SC,SL)з6685:ДЕ Р(GL$(IлD),SC,SL)│ Р(GL$(I),SC,SL)░ Р(GL$(IлD),18,6)▓│ Р(GL$(I),18,6)з6685:ДTE$│GL$(I):GL$(I)│GL$(IлD):GL$(IлD)│TE$WmЛIWtЛJW"Бе6608WР,:ГSHELL SORTWШ6D│4W╖;ЕD┤F9 зD│DлD:Бе6715:ДD│Dм1W╙JD│ Б(Dо2):ЗDл1;:ЕD┤1з РW▐OD1│Dл1WьTАJ│1еF9мDW√^АI│J е1ймDX*hЕ Р(GL$(IлD),SC,SL)▓│ Р(GL$(I),SC,SL)з6785XVrTE$│GL$(I):GL$(I)│GL$(IлD):GL$(IлD)│TE$X]|ЛIXdБЛJXoЖБе6730XОX:ГRETURN TO MAIN MENU ****Xб]ЕF9┤1▒SF з7030X┼bЮ:З:З@128,"EXIT TO MAIN MENU":ЗX√lЗ"DO YOU WANT TO SAVE THE CATALOG FILE ON DISK?";Y.qX$│ Т:ЕX$│"Y"зЗ"Y":Бж4000:ДЕX$┤▓"N"з7025:ДЗ"N"Y4vРYH%╤1:В DO PCLEAR0YО%&Т240,204:Т241,13:Т242,1:Т243,31:Т244,2:Т245,126:Т246,150:Т247,167Yи%0╣ Г0│240:X│ Г(0):Бе10Y╤'Бж1870:Т65494,0:Т65283, Ж(65283)▒1:РYс'Бж9990:Бе50YЁ'Бж9990:Бе7 DISK?";Y.