@L@... THIS IS AN RYO PROGRAM BY NORMAN MORRISON..........Y@:19999o@"":"":"":(7)@"PLEASE ENTER THE TIME,HOURS,MINUTES"@"AND SECONDS. MUST BE 6 DIGITS";TI$@ 4,1A1,"RUN151"(13) A"":""A14000:21000.A#"":"":""7A-5,2XA2" ACCOUNTS PAYABLEbA3(7)jA<""AF" 1986"AP""AQ(7)AZ""A["BY.......NORMAN MORRISON..........."A\""A]""A^""A_(7)Bd" THE FOLLOWING IS A LIST OF PAID BILLS"#Bn""JBx" PRESS THE CORRESPONDING LETTER"TBy(7)|B" TO VIEW THE CURRENT ACCOUNT....B 5B17000B"":"":(7):0,1:4,1:0,1:5,2B" "C" "-C" "UC" "}C" THE MENU "C" "C" "C" "D"":5,8ZD""mD"":5,2:(7)D"WHEN MENU STOPS PRESS C TO CONTINUE":"":"":(7)D5,7:D"A....INTERTHERM 2000"E"B....JONES MC CLOUD 2200"'E"C....G.E.SUPPLY 2400"NE"D....UTILITIES 2600"uE"E....AUTOMOTIVE 2800"E"F....GAS 3000"E"G....INSURANCE 3200":(7)EA$:A$"C"194E(7)F"H....MEDICAL 3400"7F"I....PAYROLL N.E. JR. 3600"^F"J....OFFICE SUPPLIES 3800"F"K....MODERN APPLIANCE 4000"F"L....OXFORD LUMBER 4200"F"N....MISCELLANEOUS PARTS 4600"F"O....MISCELLANEOUS PARTS 4800"!G"P....YARDWORK 5000"HG"Q....BUS LICENSES/TAXES 5200"oG"R....WITTICHEN 5400"G"S.... ENTER DIRECTORY 5600"G"T....LIGHTING SHOWROOM 5800":A$:A$"C" 208G"U....ANNISTON STEEL 6000"H"V....GAS & ELECTRIC 6200"EH"W....MISCELLANEOUS 6400"lH"X.... LOSS 6600"H"Y....ADVERTISING 6800"H"Z....CHARITY 7000":(7)HA$:A$"C" 215:H"1.... UPS 7200"(I"2....OPERATING INFO 7400"OI"3....OPEN LISTING 7600"vI"4....OPEN LISTING 7800"I"5....F KEY ASSIGNMENTS 8000"I"6.... THE TIME 8200"I"7....  FREE BYTES  8400"J"8....BAR CHART PROGRAM 8600"=J"9....MONTHLY TOTALS 9000"dJ"0... ADD MODE 9200"oJ(7):wJ""J""J""J""J""J5,5J" MAKE SELECTION NOW"J5,10J""J""J"":"":""K, A$:A$"A" 2000$K1A$"B" 22008K6A$"C" 2400LK;A$"D" 2600`K@A$"E" 2800tKEA$"F" 3000KJA$"G" 3200KOA$"H" 3400KTA$"I" 3600KYA$"J" 3800K^A$"K" 4000KcA$"L" 4200KhA$"M" 4400LmA$"N" 4600'LrA$"O" 4800;LwA$"P" 5000OL|A$"Q" 5200cLA$"R" 5400wLA$"S" 5600LA$"T" 5800LA$"U" 6000LA$"V" 6200LA$"W" 6400LA$"X" 6600LA$"Y" 6800MA$"Z" 7000MA$"1" 7200+MA$"2" 7400?MA$"3" 7600SMA$"4" 7800gMA$"5" 8000{MA$"6" 8200MA$"7" 8400MA$"8" 8600MA$"9" 9000MA$"0" 9200M"":"":(7):1:16000N"INTERTHERM":"":"":(7)GN"AMOUNT$ DATE":"":"":(7)YN"":"":(7)N"TO CONTINUE PRESS C":A$:A$"C" 1:16000N"":"":(7)N"":"":(7):1N" EXIT TO MENU? PRESS C"NA$:A$"C":16000:151NO"":"":(7):1:16000?O"JONES MCCLOUD"QO"":"":(7)|O" AMOUNT$ DATE":"":"":(7)O"":"":(7)O"TO CONTINUE PRESS C": A$: A$"C" 1:16000O"":"":(7)OQ "":"":(7):1PS " EXIT TO MENU? PRESS C".PU A$:A$"C":17000: 1514P_ eP` 1:16000:"G.E. SUPPLY"nPa "":vPb ""Pc "AMOUNT$ DATE"Pe ""Pf ""Pt ""Pu (7)Pv " TO CONTINUE...PRESS C"Pw A$: A$"C" 1:16000Py ""Qz ""Q "":"":(7):17Q "EXIT TO MENU? PRESS C"VQ A$:A$"C":16000: 151\Q' Q( :1:16000:"AMOUNT$ DATE..."Q) ""Q* ""Q+ "UTILITIES"Q, ""Q- ""Q. 1Q/ "ALABAMA GAS:":"":(7)R0 "**.** *-**-**"R1 " R2 "'R3 ".R4 "NR5 "41.00 6-4-87"\R= "":(7)R> "TO CONTINUE...PRESS C":A$:A$"C" 1:16000:"":(7)RE ""RF ""RG "ALABAMA POWER:":"":(7)RH ""RI "**.** *-**-**"RJ "SK " SL "SM "0SN "77.23 6-4-87"8SZ ""@S[ ""]S\ "TO CONTINUE...PRESS C.{S] A$:A$"C" :1:16000:S^ ""S_ ""S` "TELEPHONE:":"":(7)Sb "***.** *-*-**"Sc "Sd "Se "Sf "Sg "Ss ""St ""Tu "TO CONTINUE...PRESS C."6Tv A$:A$"C" :1:16000:>Tw ""FTx ""TTy "WATER:"\Tz ""dT{ ""{T| "JANUARY 18.02 "T} "FEBUARY 16.22 "T~ "MARCH 16.22 "T "APRIL 16.22 "T "MAY 19.62 "T "JUNE 18.02 "U "JULY "U "AUGUST "3U "SEPTEMBER "JU "OCTOBER "aU "NOVEMBER "yU "DECEMBER "U "TO CONTINUE,PRESS C."U A$:A$"C" :1:16000:U ""U ""U "ITS BEEN A GREAT YEAR!!!!!!"U "":"":(7):18V " EXIT TO MENU? PRESS C":A$:A$"C":17500:151OV A$:A$"C" 161UV rV "":"":(7):1:16000:V "AUTOMOTIVE":"":(7)V "NAME $AMOUNT DATE":"":(7)V "OXFORD TIRE 2.00 1-17-87"W "":"":(7),W "TO CONTINUE PRESS C"JW A$:A$"C" :1:16000:RW ""`W "":(7)zW "TRUCK PAYMENT:":""W "AMOUNT$ DATE":"":(7)W "***.** JANUARY"W " FEBUARY"X " MARCH""X " APRIL"?X " MAY"]X " JUNE"rX "":"":(7):1X " EXIT TO MENU? PRESS C"X A$:A$"C" :17000:151X X :1:16000: "GAS"X ""X ""$Y "AMOUNT$ DATE":"":(7)BY "8.00 ----"`Y "5.00 CASH"Y "7.00 1-15-87"Y "TO CONTINUE...PRESS C"Y "":"":A$: A$"C":1:16000:Y "8.00 4-22-87"Z "9.00 6-28-87"Z "":(7)UZ "TO CONTINUE...PRESS C":A$: A$"C" 1: 16000:"":(7)cZ "":(7)Z "TO CONTINUE...PRESS C": A$:A$"C" 1:16000:"":(7)ZN ""ZO ""ZP "TO CONTINUE...PRESS C"ZQ A$: A$"C" :1:16000:ZR ""[S ""[g "":(7)B[h "TO CONTINUE...PRESS C":A$: A$"C" 3178P[j "":(7)b[v "":"":(7)[x "EXIT TO MENU? PRESS C":A$:A$"C":17500:151[ [ :1:16000: "INSURANCE"\ " NAME AMOUNT$ DATE":"":(7),\ "COOPER INSURANCE ***.** 1-18-87"U\ "TRUCK INS ***.** 4-22-87"r\ "TO CONTINUE...PRESS C"\ "":A$:A$"C" :1:16000:\ "":(7)\9 "":"":(7):1\; " EXIT TO MENU? PRESS C":A$:A$"C":17000:151\G (]H :1:16000: "MEDICAL"0]I ""8]J ""\]K " NAME AMOUNT$ DATE"j]L "":(7)]M "HARCO 19.32 1-26-87"]U ""]] ""]^ ""]_ "PRESS C TO CONTINUE"]` A$:A$"C" 1:16000]a "":""^c "NAME $AMOUNT DATE":(7)(^p "":(7)_^q "TO CONTINUE...PRESS C":A$:A$"C" :1:16000:m^r "":(7){^~ "":(7)^ "TO CONTINUE...PRESS C":A$: A$"C" 1:16000^ "":(7)^ "":(7)_ "TO CONTINUE...PRESS C": A$: A$"C" 1:16000,_ "SCHRODER 3.26 6-9-87"U_ "SANFORD 39.56 6-25-87"c_ "":(7)_ "TO CONTINUE...PRESS C":A$:A$"C" 1:16000_ "":(7)_ "":(7)_ "TO CONTINUE...PRESS C":A$:A$"C"1:16000_"":"":(7):18`" EXIT TO MENU? PRESS C":A$:A$"C":17500:151>`r`:1:16000: "PAYROLL...N.E. JR."z`""`" SALRY TAX MATCH SS DATE"`""`""`"***.00 **.**/*.** *.** 1-2-87"a$"***.00 *.00/*.** *.** 4-19-8"%a%"":(7)^a&"TO CONTINUE...PRESS C": A$: A$"C" :1:16000:la'"":(7)za8"":(7)a9"TO CONTINUE...PRESS C":A$: A$"C"1:16000a:"":(7)a;"SALRY TAX SS DATE":""aK"":(7)@bL"TO CONTINUE...PRESS C":A$: A$"C" 1:16000:"":"":(7)Rb"":"":(7)b"TO GO TO MONTHLY UNEMPLOYMENT PRESS C": A$: A$"C" :1:16000:b"":"":(7)b"JANUARY *.** JULY ":(7) c"FEBUARY AUGUST ":(7)gg[gh"":"":(7):1:16000:gi"OXFORD LUMBER":"":"":(7)gj"AMOUNT$ DATE":"":"":(7)gk"22.60 1-17-87"gl"9.12 2-11-87"hm"35.67 5-7-87">hn"26.54 6-25-87"Ph|"":"":(7)h}"TO CONTINUE PRESS C": A$: A$"C" :1:16000:h~"":"":(7)h!"":"":(7):1h#"EXIT TO MENU? PRESS C":A$:A$"C":17500:151h/i0"AMOUNT$ DATE..."!i"":"":(7)Wi" EXIT TO MENU? PRESS C":A$:A$"C" 161]i~i"": "" :(7):1:16000:i"MISCELLANEOUS PARTS":(7): 2i"":""i"THIS FILE CONTAINS:":""j" SOUTHERN ELECTRIC":""*j" SEARS" :""Qj" G.E. COMPANY" :""xj" FOX OF ATLANTA" :""j"":"":(7)j"SOUTHERN ELECTRIC...":"":"":(7)j" AMOUNT$ DATE"j+"":"":(7)#k," TO CONTINUE PRESS C":A$: A$"C" 4653_k-"":"":(7):----------------------------------------k."SEARS...":"":"":(7):------------------------------------------------------------------k/"AMOUNT$ DATE":"":"":(7) l0"15.00 1-17-87"l1"l2"!l3"(l4":lA"":"":(7)LlB"":"":(7)lC" TO CONTINUE PRESS C": A$: A$"C" 4676lD"":"":(7)lE"G.E.COMPANY":"":"":(7)lF" AMOUNT$ DATE"lZ"":"":(7),m[" TO CONTINUE PRESS C": A$: A$"C" :1:16000:>m\"":"":(7)]m]"FOX PARTS":"":"":(7)ym^"AMOUNT$ DATE"m_"":"":(7)m`"3.53 2.12"ma"18.26 3-31-87"mb"10.81 5-16-87" nd"105.53 6-20-87"nt"":"":(7)[nu" TO CONTINUE PRESS C": A$: A$"C" :1:16000:mnv"":"":(7)n"":"":(7):1n" EXIT TO MENU? PRESS C": A$: A$"C" :17000:151nn" MISCELLANEOUS PARTS ֒":(7)'o:1:16000: "NAME AMOUNT$ DATE"9o"":"":(7)ao"COLEMAN 16.85 1-2-87"so"":"":(7)o"TO CONTINUE PRESS C": A$: A$"C" :1:16000:o"":"":(7)o(7):""p"TO CONTINUE...PRESS C": A$: A$"C" :1:16000:p"":(7):""&p"":(7)[p"TO CONTINUE...PRESS C":A$:A$"C" 1:16000mp"":"":(7){p"":(7)p"TO CONTINUE...PRESS C":A$: A$"C" 1:16000p"":"":(7)p"":(7)q"TO CONTINUE...PRESS C":A$: A$"C" 1:16000q"":"":(7).qy"":"":(7):1lq{" EXIT TO MENU? PRESS C": A$: A$"C" :17500:151rqq"":"":(7):1:16000:q"YARDWORK":"":"":(7)r" NAME AMOUNT$ DATE":"":"":(7))r"CAVER 15.00 1-8-87"?rA"":"":(7) :1{rC" EXIT TO MENU? PRESS C":A$:A$"C":17000:151rOrP"":"":(7):1:16000:rQ"T A X E S":"":"":(7) sR" A N D":"":"":(7)@sS"BUSINESS LICENCES":"":"":(7)asU"THIS FILE CONTAINS:":(7)sW" QUARTERLY TAXES...":(7)s]" LICENSES...":(7)sa" OTHER TAXES..."sb"":"":(7): 4t"TO CONTINUE PRESS C": A$: A$"C" :1:16000:t"":"":(7)Kt"OTHER TAXES":"":"":(7)t"NAME AMOUNT$ DATE":"":"":(7)t"OXFORD 75.50 JAN87"t"ANNISTON 105.50 JAN87"t"J'VILLE 50.00 JAN87"u"PIEDMONT 37.50 JAN87"Bu"WEAVER 40.00 JAN87"iu"TALLEDEGA 25.50 JAN87"u"LINCOLN 50.50 JAN87"u"":(7)u"TO CONTINUE...PRESS C": A$: A$"C" 1:16000u"":(7)v"TO CONTINUE...PRESS C": A$: A$"C" 1:16000Cv"OXFORD USE 18.90 6-20-87"Xv "":"":(7):1v " EXIT TO MENU? PRESS C":A$: A$"C" :17500:151vv"":"":(7):1: 16000v"WITTICHEN":"":"":(7)w"AMOUNT$ DATE":"":"":(7)8w"**.** 1-17-87"Jw,"":"":(7)w-"TO CONTINUE PRESS C": A$: A$"C" :1:16000:w."":"":(7)w"":"":(7):1w" EXIT TO MENU? PRESS C":A$: A$"C" :17000:151ww1:16000x"":(7):5,3Hx"------------ENTER DIRECTORY------------":(7):""ux"MEDICINE 3400 ANN STEEL 6000"x"BFI 6400 UTILITIES 2600"x"TRUCK PAY 2800 BANK LOAN 6400"x"INTERTHERM2000 YARDWORK 5000")y"TAX 5200 MISC PARTS 4800"Vy"GAS 3000 PAYROLL 3600"y"LT SHOWRM 5800 WITTICHEN 5400"y"OX LMBR 4200 GE SUPPLY 2400"y"SEARS 4600 FOX 4600" z"MISC 6400 ADVERTISING 6800"7z"AUTOMOT 2800 MOD APPLIANCE 4000"dz"INSURANCE 3200 STAMPS 6400"z"GAS&ELEC 6200 UPS 7200"z"OFF SUPP 3800 "zB(7)zC"":""0{" EXIT TO MENU? PRESS C":A$:A$"C" 161l{" EXIT TO MENU? PRESS C":A$:A$"C":17000:151r{{"":"":(7):1:16000:{"LIGHTING SHOWROOM":"":"":(7){"AMOUNT$ DATE":"":"":(7)|"19.19 1-17-87"#|"":"":(7)\|"TO CONTINUE PRESS C": A$: A$"C" :1:16000:n|"":"":(7)|a"":"":(7):1|c" EXIT TO MENU? PRESS C":A$:A$"C":17500:151|o|p"":"":(7):1:16000: }q"ANNISTON STEEL"}r"":"":(7)G}s"AMOUNT$ DATE":"":"":(7)h}t"10.77 2-10-87"}})"":"":(7):1}+" EXIT TO MENU? PRESS C":A$: A$"C":17000:151}7}8}9"":(7):1:16000~="GAS & ELECTRIC"&~B"AMOUNT$ DATE..."4~G"":(7)T~H"16.61 1-6-87"n~VA$:A$""1:16000~"":"":(7)~" EXIT TO MENU? PRESS C": A$:A$"C" 151~~"":"":(7):1:16000:"MISCELLANEOUS":"": 3 :(7)5"THIS FILE CONTAINS" :(7):""T"THE ANNISTON STAR":(7)t"MISCELLANEOUS TAGS":(7)"WORK CLOTHES":(7)"":"":(7)"OTHER STUFF":"":"":(7): 4****************************** "THE ANNISTON STAR:":"":(7)A" AMOUNT$ DATE":"":"":(7)S."":"":(7)e2"":"":(7)3" TO CONTINUE PRESS C":A$:A$"C" :1:16000:4"":"":(7)Հ5"WORK CLOTHES:":"":"":(7)6"RIDDLEBAUER 33.95 5-4-87"F"":"":(7)LG" TO CONTINUE PRESS C": A$: A$"C" :1:16000:^H"":"":(7)I"OTHER STUFF:":"":"":(7)J" NAME AMOUNT$ DATE":"":"":(7)܁K"NORTH AL.EXPRESS 31.36 1-6-86"Z(7)["TO CONTINUE...PRESS C": A$: A$"C" 6492"\""K]"BANK 55.92 4-15-87"Yn(7):""o"TO CONTINUE...PRESS C": A$: A$"C" :1:16000:p"":(7)}"":(7)~"TO CONTINUE...PRESS C":A$: A$"C" 1:16000"":(7)"":(7)9"TO CONTINUE...PRESS C": A$: A$"C" 1:16000K"":"":(7)Y"":(7)"TO CONTINUE...PRESS C":A$: A$"C" 1:16000"":"":(7)"":"":(7):1" EXIT TO MENU? PRESS C": A$: A$"C":17500:151"":"":(7):1:16000:=" LOSSES "I"":""o" NAME AMOUNT$ DATE""":"":(7)"":"":(7)"IF YOU NEED TO GO ANY FURTHER,WE ARE IN TROUBLE!!!!!":"":"":(7):1 " EXIT TO MENU...PLEASE!!! PRESS C": A$: A$"C" 1612"":"":(7)p" EXIT TO MENU? PRESS C"; A$:A$"C" :17000:151v"":"":(7):1:16000:ʅ"$$$$$$$$$ADVERTISING$$$$$$$$$$$$$":"":"":(7)" NAME AMOUNT$ DATE":"":"":(7)&"ANN STAR 13.16 3-5-87";I"":"":(7):1xK" EXIT TO MENU? PRESS C": A$:A$"C":17000:151~WX:1:16000:" CHARITY ":"":"":(7)]" NAME AMOUNT$ DATE":"":"":(7)l"":(7)Jm"TO CONTINUE...PRESS C":A$: A$"C" :1:16000::1:16000:[n"":(7):1m"":"":(7)" EXIT TO MENU? PRESS C":A$: A$"C":17500:151 ·""":(7):1:16000$"  UPS ג":"":(7)*"AMOUNT$ DATE..."=+"1.63 1-7-87"a9A$:A$""1:16000:"":(7)s"":"":(7)" EXIT TO MENU? PRESS C": A$: A$"C" 151"""":(7):" USE NO SCROLL": 2"":"":(7)%"THIS PROGRAM IS DESIGNED TO BE USED AS"P"A FILEBOX. IST THE PROGRAM AND USE"y"THE AVAILABLE NUMBERS BETWEEN THE""CATAGORIES IN THE MENU TO PUT IN YOUR"Љ"DATA. THERE ARE PLENTY OF EXAMPLES""SCATTERED THROUGHOUT THIS PROGRAM."(" FAMILARIZE YOURSELF WITH THE MENU"S"AND THEN TRY LISTING A CATAGORY AND""ADD TO IT. IN A WAY, YOU ARE WRITING""THE PROGRAM AS YOU USE IT. THERE IS"֊"PLENTY OF ROOM FOR MODIFICATION.THIS" "IS THE WAY I DESIGNED THE PROGRAM.":(7). " *-*-*-*-*-*-*-*-*-*-":(7)X"MANY OF THE SUBROUTINES IN THIS ""PROGRAM ARE BORROWED FROM OTHER""PUBLISHED PROGRAMS. MANY ARE MY OWN."Ջ "THE BASIC IDEA AND DESIGN IS MINE."""AS FAR AS I HAVE SEEN,IT IS PRETTY"$"UNIQUE."=&"LIKE ANY PROGRAM WITHOUT A USERS MANUAL"k("THERE ARE A SLEW OF SHORTCUTS TO USING"*"THIS ONE. I WILL ANSWER YOUR QUESTIONS"ƌ,"AND WOULD APPRECIATE YOUR COMMENTS."."SINCE A LOT OF WORK HAS GONE INTO THIS"0"PROGRAM,IF YOU FIND A USE FOR IT,OR"L2"INTEND TO OTHERWISE USE IT,I THINK IT"w4"FAIR TO AS YOU TO SEND ME $5 BUCKS."6".........O.K.??":(7)8"ROLL YOUR OWN SOFTWARE"ō9"126 MATTISON:"OXFORD, ALABAMA 36203";"SEPTEMBER 1987".<"PROGRAM DEVELOPED BY NORMAN MORRISON"<="":(7)i>"YOU CAN FIND NORM ON GENIE AS NEWNORM"{"":"":(7)" EXIT TO MENU? PRESS C": A$: A$"C" 151؎"AMOUNT$ DATE..."i"":"":(7)!k" EXIT TO MENU? PRESS C":A$: A$"C" 151'wFx"AMOUNT$ DATE..."X1"":"":(7)3" EXIT TO MENU? PRESS C": A$:A$"C" 161?@" "JяO0,1:1,3:4,1:1,1P1,1,5 ,"F1"Q1,11,2,"FUNCTION" R1,39,24,"*"$T1,25,40,150,50,360,14U1,1,8,"F2"OW1,21,5,"RUN THE MENU"YY1,10j\1,37,24,"*"^1,25,60,150,70,360,1_1,1,10,"F3"a1,21,8,"DLOAD"b1,20,2,"KEY"Đc1,6Րf1,35,24,"*"h1,25,80,150,90,360,1i1,1,13,"F4"k1,21,10,"DIRECTORY"-l1,24,2,"CHART"6m1,8Gp1,33,24,"*"cr1,25,100,150,110,360,1ts1,1,15,"F5"u1,21,13,"SCNCLR"w1,16z1,31,24,"*"|1,25,120,150,130,360,1ґ}1,1,18,"F6"1,21,15,"DSAVE"1,61,29,24,"*"1,25,140,150,150,360,1.1,1,20,"F7"L1,21,18,"RUN THE THING!"V1,11g1,27,24,"*"1,25,160,150,170,360,11,1,23,"F8"1,21,20,"LIST"1,15Ò1,25,24,"*"ߒ1,25,180,150,190,360,11,21,23,"DIRECT DIR LOAD"1,6 ,24,"ANY KEY TO EXIT"&A$40,1:5,3F"":"":(7)" EXIT TO MENU? PRESS C": A$: A$"C" 161 Γ :(7):"":"":"":"":" THE TIME": 1:"":"" " TO ESCAPE TIME MODE...PRESS C ":"": 2 4,7:O,7:1,22 M1((TI$,3,2))H H1((TI$,2))30Q 1,1o ,11,0," 12 " ,12,1,"11 1"" ,6,5,"10 2"& ,3,12,"9 3"* ,7,19,"8 4"$. ,13,23,"7 5"B2 ,12,24," 6 "H6 [: M270 629 6> CC1:C12 0,156,100,55HA2,4,,,H,108:HH6:C0ϕB HAHA1:HBHAHC:HA15 HC16:HAHA2: HA0 HC0 F T0 :MM16270:HH1(M112)6270:CML(M112)12J M2(M115)^N MA(M1(M20)(30M1)(M21)(M130)(M22)(60M1)(M23))R H1H13012(H1359):H1H15(M112):H2(H115)ܖV HA(H1(H20)(30H1)(H21)(H130)(H22)(60H1)(H23)):T1:Z S2706296^ ,156,100,88SA2,1,,,S,108.b ,156,100,83MA2,2,,,M,108Nf ,156,100,55HA2,4,,,H,108Zj P1$TI$tn P2$TI$:P1$P2$8302r A$:A$""8338v 0,156,100,88SA2,1,,,S,108z SASA1:SBSASC: SB15SC16:SASA2:SA0SC0~ S 0,156,100,83MA2,2,,,M,108= MAMA1:MBMAMC:MB15MC16:MAMA2:MA0MC0D MJ X 0,1:5,1j "":"":(7)˜ "":"":"":"":" EXIT TO MENU? PRESS C": A$: A$"C" 0,1:5,1:151Ș ---LIST ROUTINE---  "":(7):"":(7):"":(7)1!" NUMBER OF FREE BYTES"E !"":(7):5,2:d !" î"!" "!" "!" ý"ؙ !5,8:15,11,22,14*!(0)4!1,15,39,20>!5,4!"":"":(7)M!" EXIT TO MENU? PRESS C": A$: A$"C" :17000:151S!Y!_!s!A0:B0:F0:D0!******BAR CHART PROGRAM*****!0!!A(8)!F(8)Ě!"":(7)! " ACCOUNTS PAYABLE BAR CHART":"":(7) !U$" "U$!I(U$)39(!U$U$"";!I:5,11:(7)y!" USE A REFERENCE NUMBER SUCH AS 100":"":"":(7)!" NUMBER OF BARS 1-7)";D!D1D7 8668!"BAR 1 IS THE REFERENCE BAR;100-1000,ETC.":"":(7)!I1D:"":(7)!"BAR#"I$!"WHAT'S YER FIGGER";A(I);!A(I)MAXMAXA(I)S!"COLOR 1-16)";F(I)l!F(I)1 F(I)16 80s!I!" USE THIS DATA?!"!A$!A$"N" !1!!1,1Ȝ!,0,0,U$,1Ӝ!I1D!A(I)190A(I)MAX170"1,F(I)",I3824,A(I),I38,190,0,1]",I3824,A(I)I3818,A(I)6I386,A(I)6I386,184I38,190{",I38,A(I)I386,A(I)6"I "8780 "A$"0"""(O) OLD GRAPH"̝""(N) NEW GRAPH"""(X) EXIT":A$"A$"X" 8790 "A$"O" 1:8716"A$"N" 8600'"87220L"1,8bN"1,1,23," REF JAN FEB MAR APR MAY JUN ":jP" 3Q"1,1,1 ," PRESS ANY KEY TO EXIT ":ԞV"(7): " EXIT TO MENU? PRESS C":A$:A$"C" 151ڞ_"`""AMOUNT$ DATE..." """:"":(7)D"" EXIT TO MENU? PRESS C": A$: A$"C" 161J'#g(#"":"":(7):1:16000:)#" MONTHLY TOTAL$":""˟*#"ACCOUNTS PAYABLE":"":"":(7)+#"JANUARY ****.** JULY ":(7))/#"FEBUARY AUGUST ":(7)X2#"MARCH SEPTEM ":(7)4#"APRIL OCTOBE ":(7)7#"MAY NOVEMB ":(7)8#"JUNE DECEMB ":(7)#"":"":(7):1:#" EXIT TO MENU? PRESS C": A$: A$"C" :17000:151@#J#9520P$b0%"":"":(7)1%" REMEMBER........TYPE 0 FOR ANY LEFTOVER NUMBERS..."2%"":"":(7)3%T0֡4%"":"HOW MANY NUMBERS ";N:% J1ND%"PLEASE ENTER YOUR NUMBERS";XN%TTXX%b%AT+l%"":(7)Rv%"YOU HAVE";N"NUMBERS TOTALLING";T`%"":(7)%"EXIT TO MENU? PRESS C":A$:A$"C":17000:1516""\:0,1f:5,3㢘:"":"":5,2L:" "U:5,7:" YOUR PROGRAM ":5,3:" IS "ǣ:5,2:" COMING RIGHT UP ":5,70:" "9:5,3i:""r:5,2:"":5,7ۤ:"":5,3:"";5,2M;""V ;5,7;"";"";5,3$;" ");5,2(.;" THE "13;5,7a8;" OXFORD "j=;5,3B;" ELECTRIC "G;5,2ӦL;" COMPANY "ܦQ;5,7 V;" "[;5,3E`;""Ne;5,2~j;""o;5,7t;""v;""ɧw;5,14ߧ~;6:I120000100;1,I,1,0,0,0,3,0::m>.....IN THE NEXT LINE(16000),BE SURE TO TYPE IN.....16000 OPEN1,4:CMD1:RETURN TO PRINT!........................s>yt@hBE$ (27)rBSC40:SCSC1|BI120 1BI,I,SCI,24I,1ѨBX130:::ި\DE$(27)fDI6307pDI24II25zD,0,I,E$"Q" DX110:::&N6N(ER);EL:< NBRRvR KEY SOUNDfR I 51205195mRAwRSSARI,ARIRS8932R"?ERROR IN DATA"RRĩR5120R169,255,141,6,212,141,24,212R169,9,141,5,212,120,169,26$R141,20,3,169,20,141,21,3ES88,96,72,165,213,201,88,240g S34,201,76,208,12,169,103,141S0,212,169,17,141,1,212,208 S20,201,1,240,240,169,103,141ɪ*S1,212,169,33,141,0,212,1694S17,208,2,169,0,141,4,212>S104,76,101,250U:PÏ THIS IS AN RYO.Ï (ROLL YOUR OWN)PÏ SOFTWARE PRODUCTION........dď BY...........z|ď NORMAN MORRISONď 126 MATTISONDŏ OXFORD,AL 36203Ŭ Ə THANKS TO THE MANY OTHER FOLKSpƏ WHOSE ROUTINES HELP TO MAKE*Ə THIS PROGRAM MORE INTERESTING!