53: STARTS WITH VERSION 56.80 FEB-1988t"":"":"":(7):15: ("60EC"),,9,,,"GOTO25000" (13)"PLEASE ENTER THE TIME,HOURS,MINUTES""AND SECONDS. MUST BEי6 DIGITS ";TI$ 4,1 1,"SCNCLR:RUN151"(13)"":""+14000:21000;#"":"":""D-5,2f2" ACCOUNTS PAYABLE"p3(7)x<""F" 1988"P""Q(7)Z""["BY.......NORMAN MORRISON..........."\""]""^""_(7))d" THE FOLLOWING IS A LIST OF PAID BILLS"1n""Xx" PRESS THE CORRESPONDING LETTER"by(7)" TO VIEW THE CURRENT ACCOUNT.... 517000%:"":"":(7) :6,1:5,2:3,"DIRECTORY"(13):5,"DSAVE":7,"LIST"(13):ޜ:5" "C" "k" "" "" THE MENU "" " " "3 " "@ "":5,8 "" "":5,2:(7) "WHEN MENU STOPS PRESS C TO CONTINUE":"":"":(7) 5,7:!"A....INTERTHERM 2000">!"B....JONES MC CLOUD 2200"e!"C....G.E.SUPPLY 2400"!"D....UTILITIES 2600"!"E....AUTOMOTIVE 2800"!"F....GAS 3000"""G....INSURANCE 3200":(7)"A$:A$"C"194'"(7)N""H....MEDICAL 3400"u""I....PAYROLL N.E. JR. 3600"""J....OFFICE SUPPLIES 3800"""K....MODERN APPLIANCE 4000"""L....OXFORD LUMBER 4200"#"N....MISCELLANEOUS PARTS 4600"8#"O....MISCELLANEOUS PARTS 4800"_#"P....YARDWORK 5000"#"Q....BUS LICENSES/TAXES 5200"#"R....WITTICHEN 5400"#"S.... ENTER DIRECTORY 5600"$"T....LIGHTING SHOWROOM 5800":A$:A$"C" 2085$"U....ANNISTON STEEL 6000"\$"V....GAS & ELECTRIC 6200"$"W....MISCELLANEOUS 6400"$"X.... LOSS 6600"$"Y....ADVERTISING 6800"$"Z....CHARITY 7000":(7)%A$:A$"C" 215:=%"1.... UPS 7200"d%"2.... PRESTO WRITE 7400"%"3.... **CALCULATOR** 7600"%"4....TEMPORARY STORAGE 7800"%"5.... OPEN LISTING 8000"&"6.... THE TIME 8200"+&"7....  FREE BYTES  8400"R&"8....BAR CHART PROGRAM 8600"y&"9....MONTHLY TOTALS 9000"&"0... ADD MODE 9200"&(7):&""&""&""&""&""&5,5 '(15)" MAKE SELECTION NOW"'5,10'""''""7'"":"":""Q', A$:A$"A" 2000e'1A$"B" 2200y'6A$"C" 2400';A$"D" 2600'@A$"E" 2800'EA$"F" 3000'JA$"G" 3200'OA$"H" 3400'TA$"I" 3600(YA$"J" 3800(^A$"K" 4000-(cA$"L" 4200A(hA$"M" 4400U(mA$"N" 4600i(rA$"O" 4800}(wA$"P" 5000(|A$"Q" 5200(A$"R" 5400(A$"S" 5600(A$"T" 5800(A$"U" 6000(A$"V" 6200 )A$"W" 6400)A$"X" 66001)A$"Y" 6800E)A$"Z" 7000Y)A$"1" 7200m)A$"2" 7400)A$"3" 7600)A$"4" 7800)A$"5" 8000)A$"6" 8200)A$"7" 8400)A$"8" 8600)A$"9" 9000 *A$"0" 9200*1:16000:R*"INTERTHERM":"":"":(7)|*"AMOUNT$ DATE":"":"":(7)*"":"":(7)*"TO CONTINUE PRESS C":A$:A$"C" 1:16000*"":"":(7)*"":"":(7):1 +" EXIT TO MENU? PRESS C"(+A$:A$"C":16000:151.+K+"":"":(7):1:16000:t+"JONES MCCLOUD"+"":"":(7)+" AMOUNT$ DATE":"":"":(7)+"":"":(7)+"TO CONTINUE PRESS C": A$: A$"C" 1:16000 ,"":"":(7)",Q "":"":(7):1C,S " EXIT TO MENU? PRESS C"c,U A$:A$"C":17000: 151i,_ ,` 1:16000:"G.E. SUPPLY",a "":,b "",c "AMOUNT$ DATE",e "",f "",t "",u (7) -v " TO CONTINUE...PRESS C"(-w A$: A$"C" 1:160000-y ""8-z ""M- "":"":(7):1l- "EXIT TO MENU? PRESS C"- A$:A$"C":16000: 151-' -( :1:16000:"AMOUNT$ DATE..."-) ""-* ""-+ "UTILITIES"-, "".- "" .. 1'./ "ALABAMA GAS:":"":(7)G.0 "47.65 1-4-88"U.= "":(7).> "TO CONTINUE...PRESS C":A$:A$"C" 1:16000:"":(7).E "".F "".G "ALABAMA POWER:":"":(7).H "".I "72.60 1-4-88".Z "".[ ""/\ "TO CONTINUE...PRESS C.7/] A$:A$"C" :1:16000:?/^ ""G/_ ""c/` "TELEPHONE:":"":(7)/a "208.40 1-4-88"/s ""/t ""/u "TO CONTINUE...PRESS C."/v A$:A$"C" :1:16000:/w ""/x ""/y "WATER:"/z "":/{ ""0| "JANUARY 14.42 "00} "FEBUARY "I0~ "MARCH "b0 "APRIL "{0 "MAY "0 "JUNE "0 "JULY "0 "AUGUST "0 "SEPTEMBER "0 "OCTOBER "1 "NOVEMBER "*1 "DECEMBER "41 (7)P1 "TO CONTINUE,PRESS C."o1 A$:A$"C" :1:16000:w1 ""1 ""1 "ITS BEEN A GREAT YEAR!!!!!!"1 "":"":(7):11 " EXIT TO MENU? PRESS C":A$:A$"C":17500:151 2 A$:A$"C" 1612 2 1:16000P2 "AUTOMOTIVE":"":(7)b2 "":"":(7)2 "TO CONTINUE PRESS C"2 A$:A$"C" :1:16000:2 ""2 "":(7)2 "TRUCK PAYMENT:":""2 "AMOUNT$ DATE":"":(7)3 "187.95 JANUARY"73 " FEBUARY"V3 " MARCH"u3 " APRIL"3 " MAY"3 " JUNE"3 " JULY"3 " AUGUST"4 " SEPTEMBER"24 " OCTOBER"T4 " NOVEMBER"v4 " DECEMBER"4 "":"":(7):14 " EXIT TO MENU? PRESS C"4 A$:A$"C" :17000:1514 5 :1:16000: "GAS" 5 ""5 ""=5 "AMOUNT$ DATE":"":(7)^5 "8.00 1-22-88"5 "8.00 1-27-88"5 "8.00 1-14-88"5 "TO CONTINUE...PRESS C"5 "":"":A$: A$"C":1:16000:5 "":(7)26 "TO CONTINUE...PRESS C":A$: A$"C" 1: 16000:"":(7)@6 "":(7)6 "TO CONTINUE...PRESS C": A$:A$"C" 1:16000:"":(7)6N ""6O ""6P "TO CONTINUE...PRESS C"6Q A$: A$"C" :1:16000:6R ""6S ""6\ URREY ANE6g "":(7)-7h "TO CONTINUE...PRESS C":A$: A$"C" 3178;7j "":(7)M7v "":"":(7)7x "EXIT TO MENU? PRESS C":A$:A$"C":17500:1517 7 :1:16000: "INSURANCE"7 " NAME AMOUNT$ DATE":"":(7)7 (7)8 "TO CONTINUE...PRESS C"78 "":A$:A$"C" :1:16000:E8 "":(7)Z89 "":"":(7):18; " EXIT TO MENU? PRESS C":A$:A$"C":17000:1518G 8H :1:16000: "MEDICAL"8I ""8J ""8K " NAME AMOUNT$ DATE" 9L "":(7)59M "ALACO 4.28 1-4-88"]9N "DR.SCHRODER 1.58 1-5-88"9O "ALACO 18.50 1-6-88"9P "STRINGFELLOW 7.20 1-14-88"9Q "ALACO 18.65 1-15-88":R "STRINGFELLOW 7.20 1-19-88"):S "ALACO 18.89 1-28-88"1:U ""9:] ""A:^ ""\:_ "PRESS C TO CONTINUE"x:` A$:A$"C" 1:16000:a "":"":c "NAME $AMOUNT DATE":(7):p "":(7):q "TO CONTINUE...PRESS C":A$:A$"C" :1:16000:;r "":(7);~ "":(7)G; "TO CONTINUE...PRESS C":A$: A$"C" 1:16000U; "":(7)c; "":(7); "TO CONTINUE...PRESS C": A$: A$"C" 1:16000; "":(7); "TO CONTINUE...PRESS C":A$:A$"C" 1:16000; "":(7); "":(7)-< "TO CONTINUE...PRESS C":A$:A$"C"1:16000B<"":"":(7):1}<" EXIT TO MENU? PRESS C":A$:A$"C":17500:151<<:1:16000: "PAYROLL...N.E. JR."<""<" SALRY TAX MATCH SS DATE"<""<""-="65.00 1.00/1.85 4.90 1-8-88"[="72.50 2.50/2.00 5.94 11588"="80.00 3.50/1.85 6.52 12288"="80.00 3.50/1.85 6.52 12988"=%"":(7)=&"TO CONTINUE...PRESS C": A$: A$"C" :1:16000: >'"":(7)>8"":(7)O>9"TO CONTINUE...PRESS C":A$: A$"C"1:16000]>:"":(7)>;"SALRY TAX SS DATE":"">K"":(7)>L"TO CONTINUE...PRESS C":A$: A$"C" 1:16000:"":"":(7)>"":"":(7)=?"TO GO TO MONTHLY UNEMPLOYMENT PRESS C": A$: A$"C" :1:16000:O?"":"":(7)?"JANUARY .50 JULY ":(7)?"FEBUARY AUGUST ":(7)?"MARCH SEPTEM ":(7) @"APRIL OCTOBER ":(7):@"MAY NOVEMBE ":(7)w@"JUNE DECEMBER ":(7):"":"":(7)@"TO CONTINUE PRESS C": A$: A$"C" 3760@"":(7)@"":"":(7):1 A" EXIT TO MENU? PRESS C":A$:A$"C":17000:151ADA:1:16000: "OFFICE SUPPLIES"LA""TA""zA" NAME AMOUNT$ DATE"A(7):"TO CONTINUE...PRESS C"AA$: A$"C" :1:16000:A"":"":(7)A"":"":(7):1B" EXIT TO MENU? PRESS C":A$:A$"C":17500:151%BXB:1:16000: "MODERN APPLIANCE"`B""hB""B"AMOUNT$ DATE"B""B"43.85 1-5-88"B(7)B" PRESS C TO CONTINUE"BA$:A$"C" :1:16000:B""C""CY"":"":(7):1UC[" EXIT TO MENU? PRESS C":A$:A$"C":17000:151[CgxCh"":"":(7):1:16000:Ci"OXFORD LUMBER":"":"":(7)Cj"AMOUNT$ DATE":"":"":(7)C|"":"":(7)$D}"TO CONTINUE PRESS C": A$: A$"C" :1:16000:6D~"":"":(7)KD!"":"":(7):1D#"EXIT TO MENU? PRESS C":A$:A$"C":17500:151D/D0"AMOUNT$ DATE..."D"":"":(7)D" EXIT TO MENU? PRESS C":A$:A$"C" 161DE"": "" :(7):1:16000:KE"MISCELLANEOUS PARTS":(7): 2WE"":""vE"THIS FILE CONTAINS:":""E" SOUTHERN ELECTRIC":""E"":"":(7)E"SOUTHERN ELECTRIC...":"":"":(7)E" AMOUNT$ DATE"F+"":"":(7)HF," TO CONTINUE PRESS C":A$: A$"C" 4653F-"":"":(7):----------------------------------------F."SEARS...":"":"":(7):------------------------------------------------------------------G/"AMOUNT$ DATE":"":"":(7)0G0"15.00 1-5-88"BGA"":"":(7)TGB"":"":(7)GC" TO CONTINUE PRESS C": A$: A$"C" 4676GD"":"":(7)GE"G.E.COMPANY":"":"":(7)GF" AMOUNT$ DATE"GZ"":"":(7)4H[" TO CONTINUE PRESS C": A$: A$"C" :1:16000:FH\"":"":(7)eH]"FOX PARTS":"":"":(7)H^"AMOUNT$ DATE"H_"":"":(7)H`"18.60 1-5-88"Ht"":"":(7)Iu" TO CONTINUE PRESS C": A$: A$"C" :1:16000:Iv"":"":(7))I"":"":(7):1gI" EXIT TO MENU? PRESS C": A$: A$"C" :17000:151mII" MISCELLANEOUS PARTS ֒":(7)I:1:16000: "NAME AMOUNT$ DATE"I"":"":(7) J"COLEMAN 81.89 1-16-88"J"":"":(7)TJ"TO CONTINUE PRESS C": A$: A$"C" :1:16000:fJ"":"":(7)tJ(7):""J"TO CONTINUE...PRESS C": A$: A$"C" :1:16000:J"":(7):""J"":(7)K"TO CONTINUE...PRESS C":A$:A$"C" 1:16000K"":"":(7)#K"":(7)YK"TO CONTINUE...PRESS C":A$: A$"C" 1:16000kK"":"":(7)yK"":(7)K"TO CONTINUE...PRESS C":A$: A$"C" 1:16000K"":"":(7)Ky"":"":(7):1L{" EXIT TO MENU? PRESS C": A$: A$"C" :17500:151L7L"":"":(7):1:16000:nL"YARDWORK":"":"":(7)L" NAME AMOUNT$ DATE":"":"":(7)LA"":"":(7) :1LC" EXIT TO MENU? PRESS C":A$:A$"C":17000:151MOMP"":"":(7):1:16000:RMQ"T A X E S":"":"":(7)MR" A N D":"":"":(7)MS"BUSINESS LICENCES":"":"":(7)MU"THIS FILE CONTAINS:":(7)NW" QUARTERLY TAXES...":(7)N]" LICENSES...":(7)3Na" OTHER TAXES..."ENb"":"":(7)N"TO CONTINUE PRESS C": A$: A$"C"17500 :1:16000:N"":"":(7)N"OTHER TAXES":"":"":(7)O"NAME AMOUNT$ DATE":"":"":(7)*O"OXFORD USE 5.19 1-14-88"SO"FED TAXES 36.88 1-26-88"}O"BUSINESS LICENCES ***************"O"TALLADEGA 25.50 1-28-88"O"ANNISTON 100.50 1-24-88"O"MASTER CARD 5.00 1-24-88"!P"LINCOLN 50.50 1-28-88"JP"WEAVER 45.00 1-28-88"sP"JACKSONVILLE 50.50 1-28-88"P"OXFORD 75.50 1-28-88"P"***************************************" :(7)P"":(7)Q"TO CONTINUE...PRESS C": A$: A$"C" 17000:1:16000-Q"":(7)dQ"TO CONTINUE...PRESS C": A$: A$"C" 1:16000yQ "":"":(7):1Q " EXIT TO MENU? PRESS C":A$: A$"C" :17500:151QQ"":"":(7):1: 16000R"WITTICHEN":"":"":(7)8R"AMOUNT$ DATE":"":"":(7)JR,"":"":(7)R-"TO CONTINUE PRESS C": A$: A$"C" :1:16000:R."":"":(7)R"":"":(7):1R" EXIT TO MENU? PRESS C":A$: A$"C" :17000:151RR1:16000S"":(7):5,3HS"------------ENTER DIRECTORY------------":(7):""uS"MEDICINE 3400 ANN STEEL 6000"S"BFI 6400 UTILITIES 2600"S"TRUCK PAY 2800 BANK LOAN 6400"S"INTERTHERM2000 YARDWORK 5000")T"TAX 5200 MISC PARTS 4800"VT"GAS 3000 PAYROLL 3600"T"LT SHOWRM 5800 WITTICHEN 5400"T"OX LMBR 4200 GE SUPPLY 2400"T"SEARS 4600 FOX 4600" U"MISC 6400 ADVERTISING 6800"7U"AUTOMOT 2800 MOD APPLIANCE 4000"dU"INSURANCE 3200 STAMPS 6400"U"GAS&ELEC 6200 UPS 7200"U"OFF SUPP 3800 "UL08:52684,L,23:X1100:X:LUB(7) VC"":""eV" EXIT TO MENU? PRESS C":A$:A$"C" L999:52684,L,2:nV151tVV"":"":(7):1:16000:V"LIGHTING SHOWROOM":"":"":(7)V"AMOUNT$ DATE":"":"":(7)W"10.40 1-5-88"$W"":"":(7)]W"TO CONTINUE PRESS C": A$: A$"C" :1:16000:oW"":"":(7)Wa"":"":(7):1Wc" EXIT TO MENU? PRESS C":A$:A$"C":17500:151WoWp"":"":(7):1:16000: Xq"ANNISTON STEEL"Xr"":"":(7)HXs"AMOUNT$ DATE":"":"":(7)]X)"":"":(7):1X+" EXIT TO MENU? PRESS C":A$: A$"C":17000:151X7X8X9"":(7):1:16000X="GAS & ELECTRIC"YB"AMOUNT$ DATE..."YG"":(7)>YH"GAS&ELEC 35.05 1-5-88"XYVA$:A$""1:16000jY"":"":(7)Y" EXIT TO MENU? PRESS C": A$:A$"C" 17500:151YY"":"":(7):1:16000:Z"MISCELLANEOUS":"": 3 :(7)&Z"THIS FILE CONTAINS" :(7):""EZ"THE ANNISTON STAR":(7)eZ"MISCELLANEOUS TAGS":(7)Z"WORK CLOTHES":(7)Z"":"":(7)Z"OTHER STUFF":"":"":(7): 4Z******************************Z"THE ANNISTON STAR:":"":(7)2[" AMOUNT$ DATE":"":"":(7)D[."":"":(7)V[2"":"":(7)[3" TO CONTINUE PRESS C":A$:A$"C" :1:16000:[4"":"":(7)[5"WORK CLOTHES:":"":"":(7)[F"":"":(7)\G" TO CONTINUE PRESS C": A$: A$"C" :1:16000:'\H"":"":(7)I\I"OTHER STUFF:":"":"":(7)x\J"NAME AMOUNT$ DATE":"":"":(7)\K"COLONIAL BANK 55.95 1-4-88"\L"MATCH SS 50.37 1-7-88"\M"UNEMPLOYMENT 3.54 1-7-88"]N"NU KLEEN 8.00 1-14-88"B]O"BANK CHARGE 6.56 1-14-88"k]P"STAMPS 11.00 1-14-88"]Q"AT&T 7.22 1-4-88"]Z(7)]["TO CONTINUE...PRESS C": A$: A$"C" 6492]\""]n(7):"" ^o"TO CONTINUE...PRESS C": A$: A$"C" 1:16000:.^p"":(7)<^}"":(7)r^~"TO CONTINUE...PRESS C":A$: A$"C" 1:16000^"":(7)^"":(7)^"TO CONTINUE...PRESS C": A$: A$"C" 1:16000^"":"":(7)^"":(7)_"TO CONTINUE...PRESS C":A$: A$"C" 1:16000/_"":"":(7)D_"":"":(7):1_" EXIT TO MENU? PRESS C": A$: A$"C":17500:151__"":"":(7):1:16000:_" LOSSES "_"":""_" NAME AMOUNT$ DATE"`"":"":(7)!`"":"":(7)n`"IF YOU NEED TO GO ANY FURTHER,WE ARE IN TROUBLE!!!!!":"":"":(7):1`" EXIT TO MENU...PLEASE!!! PRESS C": A$: A$"C" 161`"":"":(7)`" EXIT TO MENU? PRESS C"; A$:A$"C" :17000:151a!a"":"":(7):1:16000:Xa"$$$$$$$$$ADVERTISING$$$$$$$$$$$$$":"":"":(7)a" NAME AMOUNT$ DATE":"":"":(7)a"YELLOW PAGE 15.00 1-20-88"aI"":"":(7):1bK" EXIT TO MENU? PRESS C": A$:A$"C":17000:151 bWObX:1:16000:" CHARITY ":"":"":(7)b]" NAME AMOUNT$ DATE":"":"":(7)bl"":(7)bm"TO CONTINUE...PRESS C":A$: A$"C" :1:16000::1:16000:bn"":(7):1b"":"":(7)9c" EXIT TO MENU? PRESS C":A$: A$"C":17500:151?cEc ]c""":(7):1:16000c$"  UPS ג":"":(7)c*"AMOUNT$ DATE..."c+"2.97 1-11-88"c9A$:A$""1:16000:"":(7)d"":"":(7)Ad" EXIT TO MENU? PRESS C": A$: A$"C" 17000:151GdZd PRESTO WRITEfd 26000xd"":"":(7)d" EXIT TO MENU? PRESS C": A$: A$"C" 151ddd23000di"":"":(7)ek" EXIT TO MENU? PRESS C":A$: A$"C" 151ew+ex:0,7:4,7:5,86e""Ze" ɠ "~e" "e" "e" "e"   " f" &f" ?f" df" "nf 1.5f" THIS IS A ROLL YOUR OWN PRODUCTION"f"f5,15,35,22f" TEMPORARY STORAGE ":""g"WELCOME TO THE STORAGE AREA.":X200050:200;g"V1O6T4U5HFAECDBCFADGCEADGBFCGA":fg"IT IS A DARN GOOD IDEA TO STORE": 1g"YOUR STUFF OCCASIONALLY. MAKE": 1g"SURE THE'TEMP STORAGE'DISK IS": 1g"IN THE DRIVE AND PRESS 'S'."h"TO ABORT PRESS ANY OTHER KEY."hA$:A$"S" 7950$h4,1Ch5,15,35,22,1:"":"":""eh5,15,35,22,1:5,18,35,19,1h (15)" SAVING NOW ! "h"@TEMP PAY":(7)h" VERIFYING NOW ! " :4,10h"TEMP PAY":(7)i" נO.K. ": 1i(7)Zi(15) " SAVED ":4,8ki 3::17000}i1"":"":(7)i3" EXIT TO MENU? PRESS C": A$:A$"C" 17500:151i?i@" "iJi"":"":(7)0j" EXIT TO MENU? PRESS C": A$: A$"C" 1516j j &: :(7):"":"":"":"":" THE TIME": 1:"":""j " TO ESCAPE TIME MODE...PRESS C ":"": 2j 4,7:O,7:1,098k "":"GO TO 40 COL. MODE ON MONITOR TO SEE CLOCK. AFTERWARDS, GO BACK TO 80 COL. MODE.": 3:0,1Mk M1((TI$,3,2))ck H1((TI$,2))30rk 1,1:5,10k ,11,0," 12 "k ,12,1,"11 1"k" ,6,5,"10 2"l& ,3,12,"9 3")l* ,7,19,"8 4"El. ,13,23,"7 5"cl2 ,12,24," 6 "il6 |l: M270 629 6l> CC1:C12 0,156,100,55HA2,4,,,H,108:HH6:C0lB HAHA1:HBHAHC:HA15 HC16:HAHA2: HA0 HC0.mF T0 :MM16270:HH1(M112)6270:CML(M112)12>mJ M2(M115)mN MA(M1(M20)(30M1)(M21)(M130)(M22)(60M1)(M23))mR H1H13012(H1359):H1H15(M112):H2(H115)mV HA(H1(H20)(30H1)(H21)(H130)(H22)(60H1)(H23)):T1:nZ S2706296/n^ ,156,100,88SA2,1,,,S,108Onb ,156,100,83MA2,2,,,M,108onf ,156,100,55HA2,4,,,H,108{nj P1$TI$nn P2$TI$:P1$P2$8302nr A$:A$""8338nv 0,156,100,88SA2,1,,,S,108oz SASA1:SBSASC: SB15SC16:SASA2:SA0SC0o~ S)o 0,156,100,83MA2,2,,,M,108^o MAMA1:MBMAMC:MB15MC16:MAMA2:MA0MC0eo Mko o 0,1:5,10:5,1o "":"":(7)o "":"":"":"":" EXIT TO MENU? PRESS C": A$: A$"C" 5,1:5,1:%:151o p ---LIST ROUTINE---p 2p "":(7):"":(7):"":(7)[p!" NUMBER OF FREE BYTES"op !"":(7):5,2:p !" î"p!" "p!" "p!" ý"q !5,8:15,11,22,14 q*!(0)q4!1,15,39,20&q>!5,48q!"":"":(7)wq!" EXIT TO MENU? PRESS C": A$: A$"C" :17000:151}q!q!q!:&q!A0:B0:F0:D0:q!******BAR CHART PROGRAM*****q!"":"":(7)r!"........GOTO 40 COL MODE ON MONITOR"+r!"TO USE THIS PROGRAM..............."2r!0.....IN THE NEXT LINE(16000),BE SURE TO TYPE IN.....SCNCLR:16000 OPEN1,4:CMD1:RETURN TO PRINT!........................L>:Rt@khBL999:52684,L,2:yqBE$ (27)rBSC80:SCSC1|BI120 1BI,I,SCI,24I,1ÀBX130:::ހ\DL6 80:52684,L,1:eDE$(27)fDI6307 pDI24II25zD,0,I,E$"Q"-DX110:::?D0,0,79,23,1EDKNQ NWRgvR KEY SOUND{R I 51205195RARSSARI,ARIRS8932R"?ERROR IN DATA"ȁRρRفR5120R169,255,141,6,212,141,24,212R169,9,141,5,212,120,169,269R141,20,3,169,20,141,21,3ZS88,96,72,165,213,201,88,240| 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:@Y%: 6,1:I18:I,(I132)::"";_YTC53:TR2:BC71:BR22:Z1Y" CALCULATOR FOR C128 IN 80 COLUMN MODE"YY23225̓Y"  KEY FUNCTION "Y" + ADDY" - SUBTRACT:Y" F1 MULTIPLY^Y" F3 DIVIDEY" F5 CLEAR ENTRYY" F7 QUIT PROGRAMՄY" ENTER =/TOTALY"";:50);" "6ZX122:50)"  ":]Z50)" "Z"  " Z"   "Z"  "Z"";Z 12,22,30,22,1:" ";IZ A$:B$B$A$:1,15000,1: (A$)57 23072^Z(A$)48 23072nZA$;:23063 ZA$"+"23099#ZA$"."23069&ZA$"-"23117)Z(A$)13 23135ц,Z(A$)137 23150/Z(A$)133 231532Z(A$)135 231835Z(A$)139 23246+8Z1,1000,5:23063>;Z TC,TR,BC,BRH>Z"";]AZ SP1Z:"";:sDZ (B$)0 B$LP$ÇGZ "##########.##";(B$):MSG(B$):MSG$" ":23216:ZZ1:LP$B$: Z20Z20JZTT(B$):B$" ":23060MZTC,TR,BC,BRPZ"";SZ SP1Z:"";:'VZ (B$)0 B$LP$wYZ "##########.##";(B$):MSG(B$):MSG$"-":23216:ZZ1:LP$B$: Z20Z20\ZTT(B$):B$" ":"";:23060_Z TC,TR,BC,BR: MU1 23156ψbZ DV1 23186eZ SP1Z:"";:5hZ "##########.##";T," T":MSGT:MSG$" T":23216:ZZ2:LP$(T): Z20Z20NkZT0:B$" "::23060_nZB$"":23060rqZ TC,TR,BC,BRtZ SP1Z:"";:wZM(B$): (A$)1323174zZ M0 M(LP$)}Z "##########.##";M," X":MSGM:MSG$"X":23216:ZZ1: Z20Z20$Z MUO TM:MU1:B$" ":23060=ZTTM:B$" ":23060~Z "##########.##";M:MSGM:MSG$" ":23216:ZZ1: Z20Z20ZTTM:MU0:B$" ": 23135ZZ TC,TR,BC,BRˊZ SP1Z:"";:芕ZD(B$): (A$)1323207Z D0 D(LP$)CZ "##########.##";D," /":MSGD:MSG$"/":23216:ZZ1: Z20Z20hZ DVO TD:DV1:B$" ":23060Z D0 T0:"ERROR":B$" ":DV0:23060ZTTD:B$" ":23060Z "##########.##";D:MSGD:MSG$" ":23216:ZZ1: Z20Z20Z D0 T0:"ERROR":B$" ":DV0:23060:ZTTD:DV0:B$" ":23135SZ PR123219: 23222Z4,0);:4,"##########.##";MSG;:4,MSG$:ZZ" DO YOU WANT PRINTER OUTPUT (Y/N)"ЌZ Z$:Z$"Y"23237㌿Z Z$"N"23243Z 23228Z4,4:PR16Z" PRINTER ON ":23015oZ" PRINTER OFF ":23015͍Z 6,13: 0,1,79,24,1:"DID YOU MEAN TO HIT F7 [Y/N]";Q$:Q$"N" 23255:Q$"Y" 23249Z 0,0,79,24,1:1,"RUN151" (13):&:151AZ::"TYPE *RUN* IF QUITTING WAS A MISTAKE":6,1:ZZ0,1,79,24,1:23000`Za-----------------HELP ROUTINE---------------------------a(7)a:6,7a(15)"  HELP MENU "a(7):L680:52684,L,1:pa"  SIMPLE LISTER IN 80 COLUMNS ! ":(7)ȏa"1. RUN SIMPLE LISTER. YOU NEED ENTER TIME ONLY ONCE. WHEN MENU APPEARS,PRESS C"$a" OR IF YOU KNOW THE LISTING INITIAL, PRESS IT 4 TIMES. YOUR FILE WILL APPEAR!":(7)za"2.TO ENTER INFORMATION,RUNSTOP THE PROGRAM,LIST THE FILE YOU WANT TO ACCESS,"Րa"AND FOLLOW THE EXAMPLES ELSEWHERE IN THIS PROGRAM. DO NOT OVERWRITE ANYTHING!":(7)+a"3.TO PRINT USING SIMPLE LISTER, LIST 15900-16100. FOLLOW THE EXAMPLE IN LINE"a"15999. RUN THE MENU AND SELECT FILE TO PRINT. WHEN FILE COMES UP IT WILL PRINT"ݑa"CONTINUE TO PRESS C UNTIL MENU REAPPEARS. WHEN FINISHED TYPE 16000 AND RETURN.":(7)6a" "a" a" a1,24,15,"DEVELOPED BY NORMAN MORRISON",0Za"":(7):(2)" PRESS A KEY NOW PLEASE":A$: b(15)" FUNCTION KEY SUMMARY"b"":(7)""b"":(7)5b"UNCTION EY 1 . . . UN THE MENU. . .":kb"UNCTION EY 3 . . . IRECTORY. . . . ."b"UNCTION EY 5 . . . AVE. . . . . . . ."b"UNCTION EY 7 . . . IST. . . . . . . . .":(142);*b(7):" YOU MAY PROGRAM THE REMAINING KEYS TO YOUR TASTES USING THE KEY COMMAND."M/b"":"":(7)0b""mbA$:17509:151e THIS FILE::::::::::PRESTO WRITE 128 BY BOB KODADECK::::::::::e BOB KODADEK"e ASTON, PA(e3e26000jeL5:R75:LN1:%:E$(27):26051:F$(15):R$(13)e 1,E$"D""OB ODADEK"R$"3164 URREY ANE"R$"STON, 19014"R$ܖe I0 90: D$: 2816I,(D$):e 26075:G65487:4:4,4,7:26054.e"":26063: 15: 5,2: 0,18,79,19,1Ve248,128: L,18,R,18:S$"":E$"A"e 2816,L: A:A95 :C$"": I03eC$C$((3072I)):: C$"_SET" C$"_" 26066e C$"_CLR" C$"_" LN1: 5,13: 0,1,79,19,1:26021/e C$"_END" C$"_" ""E$"N": 5,4:4Ke(142):&:ޜ:ޜ:151:e"":,21,19,"OT A VALID COMMAND. RESS ": G:26024:͘e A255 4,F$::LNLN1: LN66 LN1: 0,1,79,19,1e 0,1,79,18:,0,17::26024qe(14)E$"R": 5,15:" ASIC 7.0 RESTO RITE 128 Y OB ODADEK ":5,13: 0,1,79,19,1e"":5,16:,0,20,"0......10......20......30......40......50......60......70......8",1:E$"@"eI079:"-";:: 5,11:,L,21,"^":,R,21,"^"(R$)ae,12,24,"_SET=SET MARGINS _CLR=CLR SCREEN _END=EXIT "e"0": 5,2:,35,22,"LINE:": "##";LN:ȚeL5:R75:26054: 5,14:,L,21,(F$)"^":,R,21,"^"(R$)e5,2: 25,22,41,22,1:" LEFT MARGIN";L:L70260695e"RIGHT MARGIN";R: RL R79 26072: 26021ee ER5 5,11:"":,16,22,(F$)((ER)),1e (143)" TURN ON PRINTER, PRESS A KEY ": K$:26054: 26027ݛe 8D,5C,0B,A0,00,8C,5B,0B,A9,20,99,00,0C,C8,D0,FAe AC,5C,0B,20,CF,FF,C9,5F,D0,05,8D,5B,0B,A0,00,99Ie 00,0C,C8,C9,0D,D0,EC,A9,00,99,00,0C,85,F4,85,F5e 85,F6,85,F8,AD,5B,0B,D0,1B,A2,04,20,C9,FF,90,07e A9,FF,8D,5B,0B,D0,0D,A0,00,B9,00,0C,F0,06,20,D2ܜe FF,C8,D0,F5,20,CC,FF,AD,5B,0B,60`m:1bm........................................................................cm: PLACE THIS ROUTINE (FROM 28000TO28065) AS FIRST FILE ON YOUR SIMPLE LISTER SAVE DISK TO RUN IT AUTOMATICALLY! CALL IT . . . F8 . . . dm...........................................................................&em8,"RUN "(13)^jmL150:1,(1)40000999,1:G(1)161:6,G:5,G:jom:6,13ttm(7)ym" LOAD SIMPLE LISTER? ":(7)~m" YES OR NO ":(7)Dm(15) " "mA$:A$"Y"" LOADING NOW!":"ULTRATERM"m"":(7)mm"":"":(7)Οm"RYO PRODUCTIONS"m: F8....BY NORMAN MORRISON 1988 RYO SOFTWAREm