",E%lbn™ "PAYMENT 3 ",F%‹bx™ "CURRENT CHG'S ",G%ªb‚™ "PAST DUE ",H%ÉbŒ™ "ROUTE # ",I%èb–™ "DOOR SERVICE ",J%c ™ "CODE # ",K%'cª GET Z$: IF Z$="" GOTO 535Fc´™ "NUMBER OF TYPES Z$Eh¶!„1,N%(I)UhÀ!‹DS±20§9000bhÊ!„1,O%(I)rhÔ!‹DS±20§9000hÞ!„1,P%(I)hè!‹DS±20§9000œhò!„1,Q%(I)¬hü!‹DS±20§9000¶h"I²Iª1Åh"‹I±M%§8740Ðh"‰ 8630i$" PUT A$ THRU I$ CHANGES HERE * EX: I$="0" OR USE FOR TEST;i."˜2,A$S$B$S$C$S$D$S$E$S$F$S$G$S$H5nú'D²J«120;n(ŽPn(‹ J³²90 § 10270Xn (M²4cn(D²J«90in(Ž~n(‹ J³²60 § 10294†n$(M²3‘n*(D²J«60—n0(Ž¬n6(‹ J³²31 § 10318´n<(M²2¿nB(D²J«31ÅnH(ŽÍnN(M²1ÕnT(D²JÛnZ(Žçn`(M²0:D²0ínf(Ž6o,) SUBROUTINE FOR CALENDAR TO JULIAN (MM/DD=JD) CONVERSZ(Ž=l`(M²0:D²0Clf(ŽŒl,) SUBROUTINE FOR CALENDAR TO JULIAN (MM/DD=JD) CONVERSION CWR11/9/84žl6)‹P$²"0"§10820·l@)‹Ê(P$,3,1)²"/"§10600ÁlJ)J²400ÚlT)™"USE CORRECT MM/DD"àl^)Žïlh)Y$²È(P$,2)ùlr)J²400m|)Z$²É(P$,2)m†)Y²Å(Y$) m)Z²Å(Z$)-mš)‹Y²0§J² …"ENTER 100 BLOCK,ROAD,SEG #,& RTE ID ";A$,B$,C$,J$› ‹ A$²"A" ‰ 2070­*Í#1,(B$),D1,Wº4S$²Ç(13)Ù>˜1,A$,S$,B$,S$,C$,S$,J$,S$ìH‹ DS±20 ‰ 2180ôRÎ#1 \…"DO YOU WANT TO CONTINUE Y/N Y";T$1f‹T$²"Y"§2070Op™"END OF RUN FILE CLOSED" ";M%Lc¾TcÈI²1`cÒ 10000žcÜ™ "PPR TYPE "N%(I),"NOT DEL "O%(I),"STOP "P$,"START "Q$¨cæI²Iª1·cð‹I±M%§7940Âcú‰ 7890ÍcZ$²"0"þc… "DO YOU WANT TO CONTINUE ANS Y/N Y";Z$d‹Z$²"Y"§8040d"Î#17d,™ "END OF RUN FILE CLOSED">d6‰3 $S$I$S$Gi8"OU²OUª1WiB"‹DS±20§9000”iL" PUT A% THRU L% CHANGES HERE * EX: I%=0 OR USE FOR TESTÌiV"˜2,A%S$B%S$C%S$D%S$E%S$F%S$G%S$H%S$I%S$J%S$K%S$L%S$Üi`"‹DS±20§9000äij"I²1ðit"˜2,M%S$j~"‹DS±20§9000k(#™ DS$]k2#™ "FILE ERROR FILE CLOSED"ek<#Î#1mkF#Î#2ukP#Î#4{kZ#ƒkd#Î#4›kn#‹V$(G)³±"STOP"§8400¼kx#™"END OF RUN FILE CLOSED",V$Ãk‚#‰3ækŒ#™ "NO END OF FILE FILE CLOSED"ñk–#‰ 8910l #V$(Q)²"STOP"lª#Žl´#l¾#Nl' JULIAN TO CALENDAR  CLOSED"Gi–#‰ 8910Xi #V$(Q)²"STOP"^iª#Ždi´#ji¾#¤i' JULIAN TO CALENDAR (JD=MM/DD) CONVERSION CWR 9/8/84°i'J²P%(I)¼i' 10048Ñi"'P$²Ä(M)ª"/"ªÄ(D)Ýi('J²Q%(I)éi.' 10048þi4'Q$²Ä(M)ª"/"ªÄ(D)j:'Žj@'‹ J²0 § 10336+jF'‹ J³²334 § 100784jL'M²yIªA1êF ‰2510ôP M1²A0úZ Žd E1²A1n T$(I)²"E"x ŽZ‚ † N%(10),O%(10),P%(10),Q%(10),T$(100),U$(100),V$(100),T$,S$,C$,S$,J$,S$ìH‹ DS±20 ‰ 2180ôRÎ#1 \…"DO YOU WANT TO CONTINUE Y/N Y";T$1f‹T$²"Y"§2070Op™"END OF RUN FILE CLOSED"OUTE ID IS :",J$nÖÎ#1}à™""›ê™"END OF RUN FILE CLOSED"Çô…"DO YOU WANT TO CONTINUE Y/N Y";G$Ûþ‹ G$²"Y" ‰ 1620â‰3ë™DS$óÎ#1&™"FILE ERROR FILE CLOSED"0DÐ BY PAUL FREEMAN 4/83 118 PINE ST 19073vÚ ******BL BEGIN PROCESS";V$(Q)ef” ‹ V$(Q)²"P"§ 8370ofž Q²Qª1yf¨ ‰8330ƒf² 9120‹f¼ G²1£fÆ ‹V$(G)²"STOP"§ 9060¶fÐ Í#4,(V$(G)),D1ÀfÚ G²Gª1Êfä „4,W$àfî ‹ W$²"END" ‰ 9060ðfø ‹DS±20§9000g!Í#1,(W$),D1g !‹DS±20§9000"g!Í#2,(W$),D0,W2g !‹DS±20§9000Tg*!„(JD=MM/DD) CONVERSION CWR 9/8/84Zl'J²P%(I)fl' 10048{l"'P$²Ä(M)ª"/"ªÄ(D)‡l('J²Q%(I)“l.' 10048¨l4'Q$²Ä(M)ª"/"ªÄ(D)®l:'ŽÀl@'‹ J²0 § 10336ÕlF'‹ J³²334 § 10078ÞlL'M²12êlR'D²J«334ðlX'Žm^'‹ J³²304 § 10102md'M²11mj'D²J«304 mp'Ž5mv'‹ J³²2712@jR'D²J«334FjX'Ž[j^'‹ J³²304 § 10102djd'M²11pjj'D²J«304vjp'Ž‹jv'‹ J³²273 § 10126”j|'M²10 j‚'D²J«273¦jˆ'Ž»jŽ'‹ J³²243 § 10150Ãj”'M²9Ïjš'D²J«243Õj 'Žêj¦'‹ J³²212 § 10174òj¬'M²8þj²'D²J«212k¸'Žk¾'‹ J³²181 § 10198!kÄ'M²7-kÊ'D²J«1813kOCKLOAD******* LAST CHANGE 4/25/84‚ä™Ç(147)Íî™"ÂLOCKLOAD ÐROGRAM * USE COMMAS AFTER 100 BLOCK,STREET,& SEGMENT #, "ø™" ÔHE STREET NAME BECOMES YOUR FILE NAME ON ÄRIVE 1 "G™" ÅXAMPLE: 1500-1599,ASHTON2 RD,43,2 "O ™""‡1,A$,B$,C$,D$,E$,F$,G$,H$,I$`g4!IN²INª1sg>!‹B$²"END"§8910ƒgH!‹DS±20§9000 gR!‹ H$²"ÆINAL ÂILL" ‰ 8550²g\! H$=M$+X$+O$Ýgf!„1,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%ígp!‹DS±20§9000÷gz!„1,M%h„!‹DS±20§9000hŽ!I²1"h˜! PRINT FRE(0)/h¢!Z$²A$ªB$8h¬!™ 3 § 10126>m|'M²10Jm‚'D²J«273Pmˆ'ŽemŽ'‹ J³²243 § 10150mm”'M²9ymš'D²J«243m 'Ž”m¦'‹ J³²212 § 10174œm¬'M²8¨m²'D²J«212®m¸'ŽÃm¾'‹ J³²181 § 10198ËmÄ'M²7×mÊ'D²J«181ÝmÐ'ŽòmÖ'‹ J³²151 § 10222úmÜ'M²6nâ'D²J«151 nè'Ž!nî'‹ J³²120 § 10246)nô'M²5Ð'ŽHkÖ'‹ J³²151 § 10222PkÜ'M²6\kâ'D²J«151bkè'Žwkî'‹ J³²120 § 10246kô'M²5‹kú'D²J«120‘k(Ž¦k(‹ J³²90 § 10270®k (M²4¹k(D²J«90¿k(ŽÔk(‹ J³²60 § 10294Ük$(M²3çk*(D²J«60ík0(Žl6(‹ J³²31 § 10318 l<(M²2lB(D²J«31lH(Ž#lN(M²1+lT(D²J1lCURRENT CHG'S ",G%uc‚™ "PAST DUE ",H%”cŒ™ "ROUTE # ",I%³c–™ "DOOR SERVICE ",J%Òc ™ "CODE # ",K%òcª GET Z$: IF Z$="" GOTO 535d´™ "NUMBER OF TYPES ";M%d¾dÈI²1+dÒ 10000idÜ™ "PPR TYPE "S±20§9000JiÞ!„1,P%(I)Ziè!‹DS±20§9000giò!„1,Q%(I)wiü!‹DS±20§9000i"I²Iª1i"‹I±M%§8740›i"‰ 8630Úi$" PUT A$ THRU I$ CHANGES HERE * EX: I$="0" OR USE FOR TESTj."˜2,A$S$B$S$C$S$D$S$E$S$F$S$G$S$H$S$I$S$j8"OU²OUª1"jB"‹DS±20§9000_jL" PUT A% THD²J«904o(ŽIo(‹ J³²60 § 10294Qo$(M²3\o*(D²J«60bo0(Žwo6(‹ J³²31 § 10318o<(M²2ŠoB(D²J«31oH(Ž˜oN(M²1 oT(D²J¦oZ(Ž²o`(M²0:D²0¸of(Žp,) SUBROUTINE FOR CALENDAR TO JULIAN (MM/DD=JD) CONVERSION CWR11/9/84p6)‹P$²"0"§10820,p@)‹Ê(P$,3,1)²"/"E 0";N%(I)•Wœ… "ENTER NUMBER NOT DELIVERED 0";O%(I)ÃW¦… "ENTER VACATION STOP MM/DD 0";P$ÎW¨10540ÞW©‹J²356§6310êWªP%(I)²JX°… "ENTER VACATION RESTART MM/DD 0";P$#X²105403X³‹J²356§6320?X´Q%(I)²JEXºOXÄI²Iª1^X΋I ]0‹T²1§6510c]:Z$²"0"Š]D… "ARE YOU FINISHED Y/N A";Z$›]N‹Z$²"A"§6980¬]X‹Z$²"N"§5986¹]bB$²"END"Á]lT²1Ì]v‰ 6380Ò]€^„ LOOK PROGRAMS COPYRIGHT WES ROBINSON 1/15/834^Ž 1 LKD0 LOOKS AT ONE ACCT REVISED 9/22/83R^˜† N%(5),O%(5),P%( N%(I),"NOT DEL "O%(I),"STOP "P$,"START "Q$sdæI²Iª1‚dð‹I±M%§7940dú‰ 7890˜dZ$²"0"Éd… "DO YOU WANT TO CONTINUE ANS Y/N Y";Z$Úd‹Z$²"Y"§8040âd"Î#1e,™ "END OF RUN FILE CLOSED" e6‰3e@™ DS$2eJ™ "FILE ERROR FILE CLOSED":eTÎ#1@ RU L% CHANGES HERE * EX: I%=0 OR USE FOR TEST—jV"˜2,A%S$B%S$C%S$D%S$E%S$F%S$G%S$H%S$I%S$J%S$K%S$L%S$§j`"‹DS±20§9000¯jj"I²1»jt"˜2,M%S$Ëj~"‹DS±20§9000kˆ" PUT O% AND P% CHANGES HERE * EX: P%=0 OR USE FOR TEST+k’"˜2,N%(I)S$O%(I)S$P%(I)S$Q%(I)S$5kœ" §106006pJ)J²400OpT)™"USE CORRECT MM/DD"Up^)Ždph)Y$²È(P$,2)npr)J²400}p|)Z$²É(P$,2)‰p†)Y²Å(Y$)•p)Z²Å(Z$)¢pš)‹Y²0§J²0¯p¤)‹Y²1§J²0½p®)‹Y²2§J²31Ëp¸)‹Y²3§J²59ÙpÂ)‹Y²4§J²90èpÌ)‹Y²5§J²120÷pÖ)‹Y²6§J²151qà)‹Y²7§J²181qê)‹Y²8§J²212$qô)‹Y²9§J²243 ±M%§6600iX؉ 6290€Xâ WRITE OUT RECORD¬Xì˜1,A$S$B$S$C$S$D$S$E$S$F$S$G$S$H$S$I$S$¼Xö‹DS±20§6540ôX˜1,A%S$B%S$C%S$D%S$E%S$F%S$G%S$H%S$I%S$J%S$K%S$L%S$Y ‹DS±20§6540 Y WRITE ..VARIABLE DATA(YI²1.Y(:Y2˜1,M%S$^Y<˜1,N%(I)S$O%(I)S$P%(I5),Q%(5)Œ^¢™ " ÌOOKS AT ONE ACCOUNT ON ÄRIVE 0 "¬^¬… " ENTER ACCT# A";X$Ð^¶… " ENTER FILE NAME A";W$à^ÀÍ#1,(W$),D0ð^Ê‹DS±20§8000_Ô„1,A$,B$,C$,D$,E$,F$,G$,H$,I$_Þ+_è‹B$²"END"§79706_ê™A$ªB$F_ò‹DS±20§8000Le^HehÎ#1Ser‰ 7340še *ACCOUNT TRANSFER* D1 TO D0 PRG COPYRIGHT (C) 1983 WES ROBINSONÈe FOR GLOBAL FIX SEE LINES 8740 8780 8840êe LAST PROGRAM CHANGES 4/9/85f& † N%(10),O%(10),P%(10),Q%(10),V$(20) f0 S$²Ç(13)2f: I²1:IN²0:OU²0BfD T²0I²Iª1Dk¦"‹I±M%§8890Ok°"‰ 8850]kº"‹T²1§8940hkÄ"‰ 8490ukÎ"B$²"END"}kØ"T²1ˆkâ"‰ 8750kì"Î#1˜kö"Î#2Ák#™ "RECORDS IN ",IN,"RECORDS OUT ",OUâk #™ "END OF FILE ",W$,"CLOSED"ôk#T²0:IN²0:OU²0ÿk#‰ 8420 l(#™ DS$(l2#™ "FILE ERROR FILE CLOSED"0l<#΄4qþ)‹Y²10§J²273Dq*‹Y²11§J²304Tq*‹Y²12§J²334dq*‹Z±31§Z²400nq&*J²JªZ}q0* R%(15)=Jƒq:*Ž‹qD*J²0‘qN*Ž¤qb*“"MAIN MENU",8M²0:D²0¸of(Žp,) SUBROUTINE FOR CALENDAR TO JULIAN (MM/DD=JD) CONVERSION CWR11/9/84p6)‹P$²"0"§10820,p@)‹Ê(P$,3,1)²"/")S$Q%(I)S$nYF‹DS±20§6540xYPI²Iª1‡YZ‹I±M%§6960’Yd‰ 6460šYnÎ#1¹Yx™ "END OF RUN FILE CLOSED"ÀY‚‰3ÊYŒ™ DS$äY–™ "ERROR FILE CLOSED"ìY Î#1òYªZ´ INPUT TOTAL CHECK ROUTINEZ¾YZÈ LETS LET THEM LOOK AT WHOLE RECORD FOR LAST CHANCE _üw_„1,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%‡_‹DS±20§8000‘_„1,M%¡_$‹DS±20§8000©_.I²1¯_8¼_B„1,N%(I)Ì_L‹DS±20§8000Ù_V„1,O%(I)é_`‹DS±20§8000ö_j„1,P%(I)`t‹DS±20§8000`~„1,Q%(I)#`ˆ‹DS±20§8000)`’3`œI²Iª19`¦H`°‹I±M%§76:X²0:O²0JfN Q²1VfX ™Ç(147)•fb ™" ÔO TRANSFER FILES FROM ÄRIVE 1 TO ÄRIVE 0"Úfv ™" ÌIST LINES 8740 8780 & 8840 IN PROGRAM FOR GLOBAL FIXES"gŠ …"ENTER AUTORUN FILE NAME OR A 'P' TO BEGIN PROCESS";V$(Q)0g” ‹ V$(Q)²"P"§ 8370:gž Q²Q#18lF#Î#2@lP#Î#4FlZ#Nld#Î#4fln#‹V$(G)³±"STOP"§8400‡lx#™"END OF RUN FILE CLOSED",V$Žl‚#‰3±lŒ#™ "NO END OF FILE FILE CLOSED"¼l–#‰ 8910Íl #V$(Q)²"STOP"Ólª#ŽÙl´#ßl¾#m' JULIAN TO CALENDAR (JD=MM/DD) CONVERSION CWR 9/8/84%m'J²P%(I)1m' |Tf D$="HAVERTOWN PA 19083"”Tp… "HOUSE# A";B$¥Tz‹B$²"A"§6000ÂT„… "STREET NAME A";C$ÓTŽ‹C$²"A"§6020éT˜… "NAME A";E$úT¢‹E$²"A"§6040U¬… "PHONE A";F$"U¶‹F$²"A"§60608UÀ… "SEQ# A";G$IUÊ‹G$²"A"§6080lUÔ… "REASON FOR FIX!!!!_ZÒzZÜ PRINT "ROUTE ID ",J$Zæ™ "SEGMENT# ",A$¢Zð™ "HOUSE# ",B$µZú™ "STREET ",C$ÉZ™ "C&S ZIP ",D$ÝZ™ "NAME ",E$ñZ™ "PHONE# ",F$["™ "SEQ# ",G$[,™ "REASON FOR CHG",H$9[6™ "OTHER CHARGES ",L%S[@™ "CREDIT REASON "20S`º‰ 7490g`Ä‹X$³±A$ªB$§7380t`Ι Ç(147)“`Ø™ "SEGMENT # ",A$²`â™ "HOUSE # ",B$Ñ`ì™ "STREET ",C$ð`ö™ "C&S ZIP ",D$a™ "NAME ",E$.a ™ "PHONE # ",F$Ma™ "DELIVERY SEQ ª1Dg¨ ‰8330Ng² 9120Vg¼ G²1ngÆ ‹V$(G)²"STOP"§ 9060gÐ Í#4,(V$(G)),D1‹gÚ G²Gª1•gä „4,W$«gî ‹ W$²"END" ‰ 9060»gø ‹DS±20§9000Ëg!Í#1,(W$),D1Ûg !‹DS±20§9000íg!Í#2,(W$),D0,Wýg !‹DS±20§9000h*!„1,A$,B$,C$,D$,E$,F$,G$,H$,I$+h4!IN²INª1>h>!‹B$²"E10048Fm"'P$²Ä(M)ª"/"ªÄ(D)Rm('J²Q%(I)^m.' 10048sm4'Q$²Ä(M)ª"/"ªÄ(D)ym:'Ž‹m@'‹ J²0 § 10336 mF'‹ J³²334 § 10078©mL'M²12µmR'D²J«334»mX'ŽÐm^'‹ J³²304 § 10102Ùmd'M²11åmj'D²J«304ëmp'Žnv'‹ J³²273 § 10126 n|'M²10n‚'D²J«273nˆ'Ž0nŽ'‹ J³²243 §CHARGE 0";H$ŠUÞ… "OTHER CHARGE 0";L%­Uè… "REASON FOR CREDIT 0";I$³UòÍUü ENTER NUMERIC DATAÓUïU… "CREDIT DUE 0";C%V… "DEL CO DAILY TIMES CHGS 0";D%3V$… "PAYMENT-2 0";E%NV.… "PAYMENT-3 0";F%lV8… "CURR,I$m[J™ "CREDIT DUE ",C%‡[T™ "DELCODT CHGS ",D%¡[^™ "PAYMENT-2 ",E%»[h™ "PAYMENT-3 ",F%×[r™ "CURRENT CHARGES ",G%ó[|™ "PAST DUE ",H%\†™ "ROUTE # ",I%+\™ "DOOR SERVICE ",J%G\š™ "CODE # ",K%M\¤ ",G$la™ "REASON FOR CHARGE ",H$‹a(™ "OTHER CHARGES ",L%ªa2™ "REASON FOR CREDIT ",I$Ïa< PRINT "PAPER CHARGES ",A%ðaF PRINT "ADDED CHARGES ",B%bP™ "CREDIT DUE ",C%.bZ™ "DELCODT CHGS ",D%Mbd™ "PAYMENT-2 ND"§8910NhH!‹DS±20§9000khR!‹ H$²"ÆINAL ÂILL" ‰ 8550}h\! H$=M$+X$+O$¨hf!„1,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%¸hp!‹DS±20§9000Âhz!„1,M%Òh„!‹DS±20§9000ÚhŽ!I²1íh˜! PRINT FRE(0)úh¢!Z$²A$ªB$i¬!™ Z$i¶!„1,N%(I) iÀ!‹DS±20§9000-iÊ!„1,O%(I)=iÔ!‹D 101508n”'M²9Dnš'D²J«243Jn 'Ž_n¦'‹ J³²212 § 10174gn¬'M²8sn²'D²J«212yn¸'ŽŽn¾'‹ J³²181 § 10198–nÄ'M²7¢nÊ'D²J«181¨nÐ'Ž½nÖ'‹ J³²151 § 10222ÅnÜ'M²6Ñnâ'D²J«151×nè'Žìnî'‹ J³²120 § 10246ônô'M²5oú'D²J«120o(Žo(‹ J³²90 § 10270#o (M²4.o(ENT CHGS 0";G%†VB… "PAST DUE 0";H% VL… "ROUTE # 0";I%¾VV… "DOOR SERVICE 0";J%ÜV`… "CODE # 0";K%ûVj ENTER VARIABLE NEWS DATAWtI²1˜121,"TYPE NOTOR CHARGE ",H$™N˜121,"OTHER CHARGES ",L%ºN˜121,"REASON FOR CREDIT ",I$ÛN"˜121,"CREDIT AMOUNT ",C%üN,˜121,"DELCODT CHGS ",D%O6˜121,"PAYMENT-2 ",E%>O@˜121,"PAYMENT-3 ",F%_OJ˜121,"CURRENT CHARGES ",G%€OT˜121BASIC INPUT DATAtT*“T4 ENTER ALPHANUMERIC DATA³T> INPUT "ROUTE ID A";J$ÍTH IF J$="A" GOTO 5950çTR… "SEGMENT# A";A$øT\‹A$²"A"§5970Ub… "CITY STATE ZIP A";D$)Ud‹D$²"A"§5986GUf D$="HAVERTOWN PA 19083"_Up… "HOUSE# A"]Zd‰ 6460eZnÎ#1„Zx™ "END OF RUN FILE CLOSED"‹Z‚‰3•ZŒ™ DS$¯Z–™ "ERROR FILE CLOSED"·Z Î#1½ZªÝZ´ INPUT TOTAL CHECK ROUTINEãZ¾$[È LETS LET THEM LOOK AT WHOLE RECORD FOR LAST CHANCE FIX!!!!*[ÒE[Ü PRINT "ROUTE ID ",J$Z[æ™ "SEG‹DS±20§8000\`„1,M%l`$‹DS±20§8000t`.I²1z`8‡`B„1,N%(I)—`L‹DS±20§8000¤`V„1,O%(I)´``‹DS±20§8000Á`j„1,P%(I)Ñ`t‹DS±20§8000Þ`~„1,Q%(I)î`ˆ‹DS±20§8000ô`’þ`œI²Iª1a¦a°‹I±M%§7620aº‰ 74902aÄ‹X$³±A$ªB$§7380?aΙ Ç(147)^aØ DELIVERED STOP START"IHI²1¨IP10000ÅIR˜121,N%(I),O%(I),P$,Q$S$ÏI\I²Iª1ßIf‹I²³M%§4688ñIp˜121,S$R$S$R$üIzZ$²"0"#J„… "DO YOU WANT TO CONTINUE Y/N";Z$4JŽ‹Z$²"Y"§4830TJ˜™ "END OF FILE FILE CLOSED"\J¢Î#3fJ¬  121mJ¶‰3wJÀ,"PAST DUE ",H%¡O^˜121,"ROUTE # ",I%ÂOh˜121,"DOOR SERVICE ",J%ãOr˜121,"CODE # ",K%P†˜121,"NUMBER OF KINDS ",M%R$>P˜121,"TYPE NOT DELIVERED STOP START"FPšI²1QP¢10000lP¤˜121,N%(I),O%(I);B$pUz‹B$²"A"§6000U„… "STREET NAME A";C$žUŽ‹C$²"A"§6020´U˜… "NAME A";E$ÅU¢‹E$²"A"§6040ÜU¬… "PHONE A";F$íU¶‹F$²"A"§6060VÀ… "SEQ# A";G$VÊ‹G$²"A"§60807VÔ… "REASON FOR CHARGE 0";H$UVÞ… "OTHER CHARGE 0";L%xVèMENT# ",A$m[ð™ "HOUSE# ",B$€[ú™ "STREET ",C$”[™ "C&S ZIP ",D$¨[™ "NAME ",E$¼[™ "PHONE# ",F$Ð["™ "SEQ# ",G$ê[,™ "REASON FOR CHG",H$\6™ "OTHER CHARGES ",L%\@™ "CREDIT REASON ",I$8\J™ "CREDIT DUE ",C%R\T™ "DELCODT CHGS ™ "SEGMENT # ",A$}aâ™ "HOUSE # ",B$œaì™ "STREET ",C$»aö™ "C&S ZIP ",D$Úa™ "NAME ",E$ùa ™ "PHONE # ",F$b™ "DELIVERY SEQ ",G$7b™ "REASON FOR CHARGE ",H$Vb(™ "OT™ DS$–JÊ™ "FILE ERROR FILE CLOSED"œJÔ¤JÞÎ#3®Jè  121¹Jò‰ 4110¿JüñJˆ COPYRIGHT C-CIRCLE 1983 WES ROBINSON 19073$K’ **FILE PRINT D1** PROGRAM LAST CHANGE 4/9/85kKœ™Ç(147)" ÐRINTS FIELDS OF ALL ACCOUNTS IN A FILE ON ÄRIVE 1"–K¦,P$,Q$vP®I²Iª1†P¸‹I²³M%§5538”P˜121,R$R$ŸP̉ 5090¿PÖ™ "END OF FILE FILE CLOSED"ÇPàÎ#3ÑPê  121ØPô‰3âPþ™ DS$Q™ "FILE ERROR FILE CLOSED" QÎ#3Q 121Q0HQ¨ **DATA LOAD** PROGRAM LAST CHANGE 11/9/84sQ² COPYRIGHT C CIRCLE WE… "REASON FOR CREDIT 0";I$~Vò˜Vü ENTER NUMERIC DATAžVºV… "CREDIT DUE 0";C%ãV… "DEL CO DAILY TIMES CHGS 0";D%þV$… "PAYMENT-2 0";E%W.… "PAYMENT-3 0";F%7W8… "CURRENT CHGS 0";G%QWB… "PAST DUE 0";H%kWL… ",D%l\^™ "PAYMENT-2 ",E%†\h™ "PAYMENT-3 ",F%¢\r™ "CURRENT CHARGES ",G%¾\|™ "PAST DUE ",H%Ú\†™ "ROUTE # ",I%ö\™ "DOOR SERVICE ",J%]š™ "CODE # ",K%]¤]®&]¸I²1B]™ "NUMBER OF TYPES ",M%m]Ì™ "TYHER CHARGES ",L%ub2™ "REASON FOR CREDIT ",I$šb< PRINT "PAPER CHARGES ",A%»bF PRINT "ADDED CHARGES ",B%ÚbP™ "CREDIT DUE ",C%ùbZ™ "DELCODT CHGS ",D%cd™ "PAYMENT-2 ",E%7cn™ "PAYMENT 3 ",F%Vcx™ "…" ENTER FILE NAME TO BE PRINTED";W$¦K°Í#3,(W$),D1¶Kº‹DS±20§5630ÁKÄŸ121,4ÎKØR$²Ç(10)ðKâ„3,A$,B$,C$,D$,E$,F$,G$,H$,I$ Lì‹B$²"END OF FILE"§5590Lö‹B$²"END"§5590$L4L ‹DS±20§5630_L„3,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%oL‹DS±20§563S ROBINSON 1982‘Q¼† N%(5),O%(5),P%(5),Q%(5)™QÆT²0¥QЙÇ(147)ìQÚ™" ÆOR LOADING DATA TO BE CONTAINED IN YOUR CUSTOMER FILES:"3Rä™" ÃITY ÓTATE & ÚIP CAN BE HARD CODED IN LINE 5990 (D$=ÃÓ&Ú)"xRæ™" BUT YOU MUST THEN REM LINES 5986"ROUTE # 0";I%‰WV… "DOOR SERVICE 0";J%§W`… "CODE # 0";K%ÆWj ENTER VARIABLE NEWS DATAÎWtI²1X~… "HOW MANY KINDS OF NEWSPAPER DELIVERED?? 0";M% Xˆ1X’… "ENTER TYPE CODE 0";N%(I)`Xœ… "ENTER NUMBER NOT DELIVERED 0PE NUMBER STOP START"x]Ô10000]Ö™ N%(I),O%(I),P$,Q$š]àI²Iª1©]ê‹I±M%§6910´]ô‰ 6868¿]þZ$²"0"è]… "IS THE DATA CORRECT Y/N A";Z$ù]‹Z$²"A"§6920 ^‹Z$²"N"§5986^&‰ 6380#^0‹T²1§6510.^:Z$²"0"U^D… "ARE YOU FINISHED Y/NUSING PRINT#121 6 "NAME SEARCH DF" PRG 15 "61" SEQ & PRINTER SET FOR ÃÁÐÓ 2 "NEWSMASTER" SEQ 15 "62" SEQ ALSO LOOK OUT FOR CHR$ 12 "PAY REC" PRG 16 "63" SEQ VALUES TO CHANGE FONTS 12 "PAY RETC.) 5 "AUTO1" PRG 1 "BON AIR" SEQ < AFTER STREET NAMES) 9 "AUTO3" PRG 1 "BON AIR2" SEQ < ANNABELLA ) 8 "AUTO3SUN" PRG 1 "BON AIR3" SEQ < TO BRIERWOOD) 3 "BILL NOTICE" PRGS ON DRIVE 0 WHILE THE OLD FILE REMAINS UNCHANGED ON DRIVE 1. ÂACKUP OR SCRATCH & COPY WHICH EVER IS FASTER (É USE TWO EQUAL COPIES OF DATA FILES ONE IN DRIVE 0 & THE OTHER IN DRIVE 1) ÙOU CAN LOAD & RUN ALL PRGS OR YOU CAN MENU DRIVE THE PRGS USED SE THE CODE FIELD & ENTER PROPER PRG CODE TO TAKE CARE OF IT * USE A NUMBER AS THIS FIELD IS K%) ÙOU CAN INTERRUPT ANY PRINTING TO THE PRINTER OR DISPLAY TO THE SCREEN BY PRESSING THE STOP KEY, THEN TYPE Dà OR DCLOSE ------------------------ LLA" SEQ <ÆÉÌÅÓ FOR ÂÌÏÃË ÍÅÎÕ) 116 "SUN BILL" PRG 1 "ASHTON" SEQ <'''''''''''''''''''') 111 "DATA LOAD" PRG 1 "ASHTON2" SEQ <ÎOTE: É DO NOT USE ) 17 "BLOCK MENU" PRG 1 "N BELFIELD" SEQ < ÁVE, ÒD, ÓT,  EC SO" PRG 4 "MENU B128" PRG < LOAD & RUN ÈÁÖÅ ÆÕÎ 2 "PAY REC LINES" PRG 3 "ANOSO-11/18" SEQ ÔHE 4023 ÃÍÍÄÒ PRINTER 3 "SPIN DISK" PRG 7 "LABELS6.P" SEQ WORKS WITH'FIND'AS IS: 7 "FILE CONCAT" PRG ÎÏÔÅ: LOWER CASE PRINTS OUT 'OK' ON THE 4023 1 "SCREEN PRINT" PRG PRINTER (DATA FILES ARE IN LOWER R 38 & 92) 6 "DEAR CUSTOMER" PRG 1 "ANOSO" SEQ ÔHE 4023 ÃÍÍÄÒ PRINTER 3 "SPIN DISK" PRG 7 "LABELS6.P" SEQ WORKS WITH'FIND'AS IS: 7 "FILE CONCAT" PRG ÎÏÔÅ: LOWER CASE PRINTS OUT 'OK' ON THE 4023 1 "SCREEN PRINT" PRG PRINTER (DATA FILES ARE IN LOWER EC SO" PRG 4 "MENU B128" PRG < LOAD & RUN ÈÁÖÅ ÆÕÎ 2 "PAY REC LINES" PRG 3 "ANOSO-11/18" SEQ 19 CHARS.) : 19"@0:!:&2@35,6;W:!QCL$ïÂELS²W:!9W±36§LS²36ÃJ!9W³1€*NB"1:SS FIND 1/86" €*LM3:RM77:PL66:TL65:VP1:JU1 Æ É Î Ä Ð Ò Ï Ç Ò Á Í (ÆOR ÉNDEPENDENT ÎEWS ÄEALERS) (C) ÃOPYRIGHT ×ES ÒOBINSON 1983 'ÐÒÉÎÔ ÍÅ ÏÕÔ FROM ÓÕÐÅÒÓÃÒÉÐÔ ÉÉ' [ 31 ''SS FIND 1/86'' SEQ] OR A SEQUENTIAL FILE LIST PRGUN MENU, OR USE ''MENU B128''. ÙOU ÄÏ ÎÏÔ NEED THE 8032 EMULATOR, HOWEVER, WITH THE 8032 EMULATOR YOU CAN LOAD IN 2 MENUS &/OR PRGS & SWITCH BACK & FORTH.(VERY HELPFUL WHEN PROGRAMMING) ÕÓÅ 'MENU B128' OR 'BILL B128' IN Â128 MODE ONLY €*LN1 ÔHE DATA UR FILES USING 'DATA LOAD'PRG THE SEQUENCE# MUST BE ENTERED BY YOU (START WITH 1 IN EACH NEW FILE) ×HEN USING 'ADD-DELETE'PRG FROM 'DATA LOAD' MENU, ENTER 0 FOR SEQUENCE# BECAUSE THE PROGRAM RESEQUENCES FILE FOR YOU ON AN EXISTING FILE (BEST TO KEEP FIL"ÆÉÎÄ ÐÒÇ ÄÉÓË " 30 2C 9 "PDL" PRG !‹B$²"END"§8910iH!‹DS±20§90002iR!‹ H$²"ÆINAL ÂILL" ‰ 8550D Q$²Ä(M)ª"/"ªÄ(D)@n:'ŽRn@'‹ J²0 § 10336gnF'‹ J³²334 § 10078pnL'M²12|nR'D²J«334‚nX'Ž—n^'‹ J³²304 § 10102 nd'M²11¬nj'D²J«304²np'ŽÇnv'‹ J³²273 § 10126Ðn|'M²10Ün‚'D²J«273ânˆ'Ž÷nŽ'‹ J³²243 § 10150ÿn”'M²9 oš'D²J«243o 'Ž&o¦'‹ J³²212 § 10174. [ 3 ''SS END OF FIND'' SEQ] ÆÒÅÅ×ÁÒÅ ÎÏÔÉÃÅ: ×ES ÒOBINSON 114 ÁSHLEY ÒD. ÎEWTOWN ÓQ., ÐÁ 19073 ÓÕÂÍÉÔÔÅÄ BY ÄENNIS ÆREEMAN (215-353-0679) FOR ÃÂÕÇ MEMBER USE, WITH PERMISSION FROM ×ES ÒOBINSON ÔHIS ENTIRE SET OF PROGRAMS WAS WRITTEN IN  ES AT 25 ACCTS OR LESS FOR FASTER ACCESS--SEARCH IS FOR FILE THEN CUSTOMER ACCT#) ÁLL THE AUTOMATIC PROCESSING IS DONE BY AUTORUN FILES & ALL THESE FILE NAMES BEGIN WITH AN 'A' (ÅX:ANOSO, ATEST 1, ATEST 2,) ANOSO CONTAINS FILES FROM 57 TO 63,'ATEST 1THE USUAL ENTRY OF PAYMENTS INTO THE COMPUTER. É FEEL FAR FEWER ERRORS ARE ENCOUNTERED WITH THIS METHOD ÁCCT # / FILE NAME / AUTORUN FILE NAME (ANSWER THESE 3 PROMPTS & YOU SHOULD BE ABLE TO GET AROUND 'FIND' ÏË) ÅØÁÍÐÌÅ:'1 LOOK D1' (LOi\! H$=M$+X$+O$oif!„1,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%ip!‹DS±20§9000‰iz!„1,M%™i„!‹DS±20§9000¡iŽ!I²1´i˜! PRINT FRE(0)Ái¢!Z$²A$ªB$Êi¬!™ Z$×i¶!„1,N%(I)çiÀ!‹DS±20§9000ôiÊ!„1,O%(I)jÔ!‹DS±20§9000jÞ!„1,P%(I)!jè!‹DS±20§9000.jò!„1,Q%(I)>jüo¬'M²8:o²'D²J«212@o¸'ŽUo¾'‹ J³²181 § 10198]oÄ'M²7ioÊ'D²J«181ooÐ'Ž„oÖ'‹ J³²151 § 10222ŒoÜ'M²6˜oâ'D²J«151žoè'Ž³oî'‹ J³²120 § 10246»oô'M²5Çoú'D²J«120Ío(Žâo(‹ J³²90 § 10270êo (M²4õo(D²J«90ûo(Žp(‹ J³²60 § 10294p$(M²3#p*(D²J«60)pÂASIC 4.0 FOR THE 8032, 8050 DISK DRIVE & ÏKIDATA 83A PRINTER. ÉT RUNS WITHOUT ANY PROBLEM ON THE Â128. ÔHERE IS ONE LINE WITH THREE POKES THAT TRANSFERS YOU FROM MENU TO MENU (WHEN USING MAIN MENU). ÔHE PRG WILL LOAD BUT YOU MUST PRESS RETURN TWICE TO R' HAS 1 FILE '38'. 'LIST AUTORUN' WILL GIVE A PRINTOUT OF FILES IN EACH AUTORUN FILE. ÎÏÔÅ: EVERY FILE NAME IN THE AUTORUN FILE IS PRECEDED BY AN @ SIGN (@63) THEREBY ELIMINATING FILE EXISTS ERROR. ×HEN USING 'UPDATE' OR 'ADD-DELETE' THE UPDATED FILE IOKS AT ONE RECORD ON DRIVE 1) 63208 IS THE ACCT # 63 IS THE FILE NAME 'AUTO1' (PRINTS LABELS ON ONE UP FORMS) AUTORUN FILE 'ATEST 2' WILL PRINT THE ACCTS IN FILES 38 & 92 €*FP1 (TO SELECT OR DESELECT A RECORD YOU CAN U!‹DS±20§9000Hj"I²Iª1Wj"‹I±M%§8740bj"‰ 8630¡j$" PUT A$ THRU I$ CHANGES HERE * EX: I$="0" OR USE FOR TESTÍj."˜2,A$S$B$S$C$S$D$S$E$S$F$S$G$S$H$S$I$S$Ùj8"OU²OUª1éjB"‹DS±20§9000&kL" PUT A% THRU L% CHANGES HERE * EX: I%=0 OR USE FOR TEST^kV"˜2,A%0(Ž>p6(‹ J³²31 § 10318Fp<(M²2QpB(D²J«31WpH(Ž_pN(M²1gpT(D²JmpZ(Žyp`(M²0:D²0pf(ŽÈp,) SUBROUTINE FOR CALENDAR TO JULIAN (MM/DD=JD) CONVERSION CWR11/9/84Úp6)‹P$²"0"§10820óp@)‹Ê(P$,3,1)²"/"§10600ýpJ)J²400qT)™"USE CORRECT MM/DD"q^)Ž+qh)Y$²UN MENU, OR USE ''MENU B128''. ÙOU ÄÏ ÎÏÔ NEED THE 8032 EMULATOR, HOWEVER, WITH THE 8032 EMULATOR YOU CAN LOAD IN 2 MENUS &/OR PRGS & SWITCH BACK & FORTH.(VERY HELPFUL WHEN PROGRAMMING) ÕÓÅ 'MENU B128' OR 'BILL B128' IN Â128 MODE ONLY €*LN1 ÔHE DATA S ON DRIVE 0 WHILE THE OLD FILE REMAINS UNCHANGED ON DRIVE 1. ÂACKUP OR SCRATCH & COPY WHICH EVER IS FASTER (É USE TWO EQUAL COPIES OF DATA FILES ONE IN DRIVE 0 & THE OTHER IN DRIVE 1) ÙOU CAN LOAD & RUN ALL PRGS OR YOU CAN MENU DRIVE THE PRGS USED SE THE CODE FIELD & ENTER PROPER PRG CODE TO TAKE CARE OF IT * USE A NUMBER AS THIS FIELD IS K%) ÙOU CAN INTERRUPT ANY PRINTING TO THE PRINTER OR DISPLAY TO THE SCREEN BY PRESSING THE STOP KEY, THEN TYPE Dà OR DCLOSE ------------------------S$B%S$C%S$D%S$E%S$F%S$G%S$H%S$I%S$J%S$K%S$L%S$nk`"‹DS±20§9000vkj"I²1‚kt"˜2,M%S$’k~"‹DS±20§9000Îkˆ" PUT O% AND P% CHANGES HERE * EX: P%=0 OR USE FOR TESTòk’"˜2,N%(I)S$O%(I)S$P%(I)S$Q%(I)S$ükœ"I²Iª1 l¦"‹I±M%§8890l°"‰ 8850$lº"‹T²1§8940/lÄ"‰ 849È(P$,2)5qr)J²400Dq|)Z$²É(P$,2)Pq†)Y²Å(Y$)\q)Z²Å(Z$)iqš)‹Y²0§J²0vq¤)‹Y²1§J²0„q®)‹Y²2§J²31’q¸)‹Y²3§J²59 qÂ)‹Y²4§J²90¯qÌ)‹Y²5§J²120¾qÖ)‹Y²6§J²151Íqà)‹Y²7§J²181Üqê)‹Y²8§J²212ëqô)‹Y²9§J²243ûqþ)‹Y²10§J²273 r*‹Y²11§J²304r*‹Y²12§J²334+r*‹ZFILES (CUSTOMER RECORDS) WERE DESIGNED FOR ROUTE ORDER AND ARE SEQUENTIAL, HOWEVER THEIR ACCESS TIME IS ONLY SLIGHTLY MORE THAN RANDOM ACCESS. ÔHE FILE NAME IS THE NUMBER WE ASSIGNED THE STREET (ÅX: 63 FOR ÃLAMAR ÄR) ÔHE FILE NAME IS 63 AND THEIR ACCOUNTMOST FREQUENTLY FROM 'MAIN MENU' OR 'MENU B128' ÔHE BILLING PRG WAS DESIGNED TO ENTER THE EXCEPTIONS THROUGH 'LOADTRANS' FOUND IN 'BILL & SUN MENUS', ALL CUSTOMERS ARE ASSUMED PAID UNTIL A PAST DUE, CREDIT OR EXTRA CHARGE IS ENTERED IN THEIR ACCT. ÁD0 PRG COPYRIGHT (C) 1983 WES ROBINSONf FOR GLOBAL FIX SEE LINES 8740 8780 8840±f LAST PROGRAM CHANGES 4/9/85Úf& † N%(10),O%(10),P%(10),Q%(10),V$(20)çf0 S$²Ç(13)ùf: I²1:IN²0:OU²0 gD T²0:X²0:O²0gN Q²1gX ™Ç(147)\gb ™" ÔO TRAN0M‹DS±20§5630FM(I²1PM2„3,M%`M<‹DS±20§5630mMF„3,N%(I RÆT²0tRЙÇ(147)»RÚ™" ÆOR LOADING DATA TO BE CONTAINED IN YOUR CUSTOMER FILES:"Sä™" ÃITY ÓTATE & ÚIP CAN BE HARD CODED IN LINE 5990 (D$=ÃÓ&Ú)"GSæ™" BUT YOU MUST THEN REM LINES 5986 & 5988 (INPUT OF D$)"{Sè™"  nX`… "CODE # 0";K%Xj ENTER VARIABLE NEWS DATA•XtI²1ÎX~… "HOW MANY KINDS OF NEWSPAPER DELIVERED?? 0";M%ÔXˆøX’… "ENTER TYPE CODE 0";N%(I)'Yœ… "ENTER NUMBER NOT DELIVERED 0";O%(I)UY¦… "ENTER VACATION STOP MM/DD 0";P PRINT "PAPER CHARGES ",A%‚cF PRINT "ADDED CHARGES ",B%¡cP™ "CREDIT DUE ",C%ÀcZ™ "DELCODT CHGS ",D%ßcd™ "PAYMENT-2 ",E%þcn™ "PAYMENT 3 ",F%dx™ "CURRENT CHG'S ",G%_X‹Z$²"N"§5986K_bB$²"E)}MP‹DS±20§5630ŠMZ„3,O%(I)šMd‹DS±20§5630§Mn„3,P%(I)·Mx‹DS±20§5630ÄM‚„3,Q%(I)ÔMŒ‹DS±20§5630ÞM–I²Iª1îM ‹I²³M%§5190ýMª˜121,Ç(30)N°˜121,"ACCT # ",A$ªB$?N´ PRINT#121,"ROUTE ID ",J$`N¾˜121,"SEGMENT# ",A$NȘ121, ÆILES LOAD ONTO ÄRIVE 1"¾Sê™" SEGMENT# IS SAME AS FILE NAME (SEGMENT#=FILE NAME)"Të™"ÎÏÔÅ: ÄO ÎOT USE COMMAS-SEMI COLONS-COLONS IN CUSTOMER FILES"GTì™" OR ANYWHERE IN THE ÆÉÎÄ PROGRAM * ÎÏ DECIMALS FOR CASH"‹Tí™" AMTS-THE P$`Y¨10540pY©‹J²356§6310|YªP%(I)²JªY°… "ENTER VACATION RESTART MM/DD 0";P$µY²10540ÅY³‹J²356§6320ÑY´Q%(I)²J×YºáYÄI²Iª1ðY΋I±M%§6600ûY؉ 6290Zâ WRITE OUT RECORD>Zì˜1,A$S$B$S$C$S$D$S$E$S$F$S$G$S$H$S$I$S$NZö‹DS±20§6540†ZdŒ™ "ROUTE # ",I%zd–™ "DOOR SERVICE ",J%™d ™ "CODE # ",K%¹dª GET Z$: IF Z$="" GOTO 535Ød´™ "NUMBER OF TYPES ";M%Þd¾ædÈI²1òdÒ 100000eÜ™ "PPR TYPE "N%(I),"NOT DEL "O%(I),"STOP "P$,"START "Q$:eæI²Iª1IND"S_lT²1^_v‰ 6380d_€—_„ LOOK PROGRAMS COPYRIGHT WES ROBINSON 1/15/83Æ_Ž 1 LKD0 LOOKS AT ONE ACCT REVISED 9/22/83ä_˜† N%(5),O%(5),P%(5),Q%(5)`¢™ " ÌOOKS AT ONE ACCOUNT ON ÄRIVE 0 ">`¬… " ENTER ACCT# A";X$b`¶… ""HOUSE# ",B$¢NÒ˜121,"STREET NAME ",C$ÃNܘ121,"CITY STATE ",D$äNæ˜121,"NAME ",E$Oð˜121,"PHONE# ",F$&Oú˜121,"SEQ# ",G$GO˜121,"REASON FOR CHARGE ",H$hO˜121,"OTHER CHARGES ",L%ROGRAM TAKES CARE OF ANY THAT ARE NESCESSARY"³Tî…"ENTER FILE NAME EX:32 A";W$ÄTø‹W$²"A"§5870ÖTÍ#1,(W$),D1,WãT S$²Ç(13)U ARRANGE DATA TO SKIP INPUT IF SAME REQUEST DUPS=U  LETS GET THE BASIC INPUT DATACU*bU4 ENTER ALPHANUMERI˜1,A%S$B%S$C%S$D%S$E%S$F%S$G%S$H%S$I%S$J%S$K%S$L%S$–Z ‹DS±20§6540²Z WRITE ..VARIABLE DATAºZI²1ÀZ(ÌZ2˜1,M%S$ðZ<˜1,N%(I)S$O%(I)S$P%(I)S$Q%(I)S$[F‹DS±20§6540 [PI²Iª1[Z‹I±M%§6960$[d‰ 6460,[nÎ#1K[x™ "END OF RUN FILE CLOSED"R[‚eð‹I±M%§7940Teú‰ 7890_eZ$²"0"e… "DO YOU WANT TO CONTINUE ANS Y/N Y";Z$¡e‹Z$²"Y"§8040©e"Î#1Ée,™ "END OF RUN FILE CLOSED"Ðe6‰3Úe@™ DS$ùeJ™ "FILE ERROR FILE CLOSED"fTÎ#1f^fhÎ#1fr‰ 7340af *ACCOUNT TRANSFER* D1 TO  ENTER FILE NAME A";W$r`ÀÍ#1,(W$),D0‚`Ê‹DS±20§8000¤`Ô„1,A$,B$,C$,D$,E$,F$,G$,H$,I$ª`Þ½`è‹B$²"END"§7970È`ê™A$ªB$Ø`ò‹DS±20§8000Þ`ü a„1,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%a‹DS±20§8000#a„1,M%3a$‹DS±20§8000;a.I²1Aa8Na$˜I˜121,"PAST DUE ",H%S$»I ˜121,"ROUTE # ",I%S$ÞI˜121,"DOOR SERVICE ",J%S$J ˜121,"CODE # ",K%S$J*,J4˜121,"NUMBER OF TYPES ",M%S$R$dJ>˜121,"TYPE NOT DELIVERED STOP START"lJHI²1wJP‰O˜121,"REASON FOR CREDIT ",I$ªO"˜121,"CREDIT AMOUNT ",C%ËO,˜121,"DELCODT CHGS ",D%ìO6˜121,"PAYMENT-2 ",E% P@˜121,"PAYMENT-3 ",F%.PJ˜121,"CURRENT CHARGES ",G%OPT˜121,"PAST DUE ",H%pP^˜121,"ROUTE # C DATA‚U> INPUT "ROUTE ID A";J$œUH IF J$="A" GOTO 5950¶UR… "SEGMENT# A";A$ÇU\‹A$²"A"§5970çUb… "CITY STATE ZIP A";D$øUd‹D$²"A"§5986Vf D$="HAVERTOWN PA 19083".Vp… "HOUSE# A";B$?Vz‹B$²"A"§6000\V„… "STREET NAME A";‰3\[Œ™ DS$v[–™ "ERROR FILE CLOSED"~[ Î#1„[ª¤[´ INPUT TOTAL CHECK ROUTINEª[¾ë[È LETS LET THEM LOOK AT WHOLE RECORD FOR LAST CHANCE FIX!!!!ñ[Ò \Ü PRINT "ROUTE ID ",J$!\æ™ "SEGMENT# ",A$4\ð™ "HOUSE# ",B$G\ú™ "STREET ",C$[\™ B„1,N%(I)^aL‹DS±20§8000kaV„1,O%(I){a`‹DS±20§8000ˆaj„1,P%(I)˜at‹DS±20§8000¥a~„1,Q%(I)µaˆ‹DS±20§8000»a’ÅaœI²Iª1Ëa¦Úa°‹I±M%§7620åaº‰ 7490ùaÄ‹X$³±A$ªB$§7380bΙ Ç(147)%bØ™ "SEGMENT # ",A$Dbâ™ "HOUSE # ",10000”JR˜121,N%(I),O%(I),P$,Q$S$žJ\I²Iª1®Jf‹I²³M%§4688ÀJp˜121,S$R$S$R$ËJzZ$²"0"òJ„… "DO YOU WANT TO CONTINUE Y/N";Z$KŽ‹Z$²"Y"§4830#K˜™ "END OF FILE FILE CLOSED"+K¢Î#35K¬  121:ó … "CREDIT DUE 0";C%e:ø … "DEL CO D/S TIMES CHGS 0";D%€:ý … "PAYMENT-2 0";E%›: … "PAYMENT-3  OF FILE" ‰ 480 È‹ B$²"END" ‰ 480*ÒL$²A$4ÜM$²C$Yð‹ C$³±P$ § ˜121,Ç(29),Ç(31);C$R$cúO$²A$mP$²C$‹ DS±20 ‰ 520ª„3,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%¼"‹ DS±20 ‰ 520Ä,I²1Î6„3,M%à@‹ DS±20 ‰ 520íJ„3,N%(I)ÿT‹ DS±20  THEM LOOK AT WHOLE RECORD FOR LAST CHANCE FIX!!!!Ú>Ü PRINT "ROUTE ID ",J$ò>Þ ™ "SEGMENT# ",A$ ?ã ™ "HOUSE# ",B$"?è ™ "STREET ",C$:?í ™ "C&S ZIP ",D$R?ò ™ "NAME ",E$j?÷ ™ "PHONE# ",F$‚?ü ™ "SEQUENCE# ",G$š?™ D ***PDL*** COPYRIGHT (C) 1983 WES ROBINSON LAST CHANGE 4/4/84[ 1:Ÿ1,8,15,"I0": 1l† Z$(15):N²0x ™Ç(147)À"™" 'LISTING OF ACCTS WITH CREDITS-EXTRA CHARGES & PAST DUE AMTS'È$™""ì(… "ENTER DATE AND DISC ID: ";X$ö2Ÿ99,44˜99 ELIVERY SEQUENCE---PROGRAM WILL DO IT FOR YOU"5å ™"ÄÏ ÎÏÔ: USE COMMAS--SEMI COLONS--COLONS OR PERIODS/DECIMALS"X5æ ™" ACCT# IS FILE NAME + HOUSE# (FILE NAME=SEGMENT#) ÅX: 63208"›5ç ™"ENTER AN E FOR NEXT RESPONSE WHEN FINISHED ENTERING ACCT#S" 0";F%¹: … "CURRENT CHGS 0";G%Ó: … "PAST DUE 0";H%ì: … "ROUTE # 0";I% ; … "DOOR SERVICE 0";J%"; … "CODE # 0";K%@; ENTER VARIABLE NEW DATAH;% I²1w;* … "HOW MANY NEWSPAPERS DELIVERED 0";M%›;/ … "ENTER TYPE CODE  ‰ 520 ^„3,O%(I)h‹ DS±20 ‰ 520+r„3,P%(I)=|‹ DS±20 ‰ 520J†„3,Q%(I)\‹ DS±20 ‰ 520fšI²Iª1x¤‹ I²³M% ‰ 330€©N²4™ª‹ É(G$,1)²"Ò" § N²10µ¸˜121,Ç(29)Ç(31);£N)B$R$»ÂÁÌËÖ‰ 180ëà™ "END OF FILE FILE CLOSED"óêÎ#3ÿô "REASON XCHG ",H$¶?™ "OTHER CHARGES ",L%Ò? ™ "CREDIT REASON ",I$î?™ "CREDIT DUE ",C% @™ "DELCODT CHGS ",D%&@™ "PAYMENT-2 ",E%B@™ "PAYMENT-3 ",F%^@$™ "CURRENT CHARGES ",G%z@)™ "PAST DUE ",H%–@.™ "ROUT,Ç(30)K6˜99,"'LISTING OF ACCTS WITH CREDITS-EXTRA CHARGES & PAST DUE AMTS'V8˜99,""a:˜99,X$l;˜99,""z<˜99,Ç(29)Â>Z$²"CREDITS LAST PAYT PAYT-2 XCHG CURR CHG"å@Y$²" BAL DUE PASTDUE "B˜99,Ç(29)"ACCT ",£ã5ê …"ENTER MATCH/ACCT# FOR ADD/DEL;FIRST IF BEFORE FIRST ACCT# ";T$(I)÷5ï ‹T$(I)²"E"§30706ô I²Iª1 6ù ‰ 30506þ T²06 N²0%6 T%²126 R$²Ä(T%)[6 … " ENTER FILE NAME * EX: @33 ";W$k6 Í#1,(W$),D1}6 Í#2,(W$),D0,W•6! ‹T$(1)²"FIRST"§3820·6+ 0";N%(I)Ê;4 … "ENTER NUMBER NOT DELIVERED 0";O%(I)ø;9 … "ENTER VACATION STOP MM/DD 0";P$<: 10540<; ‹J²356§3385<< P%(I)²JM<> … "ENTER VACATION RESTART MM/DD 0";P$X<@ 10540hÎ#4' H™"END OF RUN FILES CLOSED"- R$))F XL²15«Ã(L$)U bM²13«Ã(M$)d lO²13«Ã(O$)s vP²13«Ã(P$)‚ €Q²12«Ã(Q$)‘ ŠR²12«Ã(R$)¤ ” T=10-LEN(T$)¶ ž (V$)=TAB(M)é ¨˜99,K$£U)U$£L)L$£M)M$£O)O$£P)P$£Q)Q$£R)R$£T)T$ô ª˜99, DS±20 ‰ 760ð‹ B$²"END" ‰ 710Fú„3,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%X‹ DS±20 ‰ 760b„3,M%t‹ DS±20 ‰ 760|"I²1‰,„3,N%(I)›6‹ DS±20 ‰ 760¨@„3,O%(I)ºJ‹ DS±20 ‰ 760ÇT„3,P%(I)Ù^‹ DS±20 ‰ 760æh„3,Q%(I)ør‹ DS±20 ‰ 760(I)«7v ‹DS±20§3515µ7{ I²Iª1Ä7€ ‹I±M%§3705Ï7… ‰ 3155Ö7Š ‰3Ü7 ê7 ‹X²1§3226 8‘ INPUT "ROUTE ID A";J$!8’ IFJ$="A"THEN3217-8“ ™Ç(147)G8” … "SEGMENT# A";A$X8™ ‹A$²"A"§3220x8š … "CITY STATE ZIP A";D$‰8œ ‹D$²"A"§3226§8ž D$="HA˜2,M%S$·=Ž ˜2,N%(I)S$O%(I)S$P%(I)S$Q%(I)S$Ç=“ ‹DS±20§3515Ñ=˜ I²Iª1à= ‹I±M%§3860ë=¢ ‰ 3470ó=§ Î#1û=¬ Î#2>± ™ "END OF RUN FILE CLOSED"!>¶ ‰3+>» ™ DS$E>À ™ "ERROR FILE CLOSED"M>Å Î#1U>Ê Î#2[>Ï {>Ô INPUT TOTAL CHECK ROUTINE¼>Ù LETS LET D T$=LEFT$(I$,LEN(I$)-2)+"."+RIGHT$(I$,2)7 NU²52«(Ã(U$)ªÃ(K$))F XL²15«Ã(L$)U bM²13«Ã(M$)d lO²13«Ã(O$)s vP²13«Ã(P$)‚ €Q²12«Ã(Q$)‘ ŠR²12«Ã(R$)¤ ” T=10-LEN(T$)¶ ž (V$)=TAB(M)é ¨˜99,K$£U)U$£L)L$£M)M$£O)O$£P)P$£Q)Q$£R)R$£T)T$ô ª˜99,- **RIGHTEVEN** (C) WES ROBINSON 2/2/83j CONVERSION ROUTINE FOR RIGHT & LEFT DELIVERY ROUTELIST–† N%(5),O%(5),P%(5),Q%(5),T$(25),P$(25)£S$²Ç(13)«(I²1³2T²0á3™Ç(147)" 'RIGHTEVEN'""4™"×ILL SET EVEN HOUSE N|I²Iª1†‹ I±M% ‰ 404‰ 300,”‹C%³±0§420;–‹I%³±0§420Jš‹H%³±0§420Sž‰220ƒ¤K$²A$ª"-"ªB$ª" "ªC$ª" "ª" "ªE$ª" "ªÈ(F$,10)©Y$²F$š®N$²Ä(C%)»¸U$²È(N$,Ã(N$)«2)ª"."ªÉ(N$,2)ÈÂD$²Ä(D%)éÌL$²È(D$,Ã(D$)«2)ª"."ªÉ(D$,2)öÖE$²Ä(E%)ON 1983Î2 † N%(9),O%(9),P%(9),Q%(9),T$(25)Û2Ç S$²Ç(13)ç2Ì I²1:O²1ï2Ñ G²1÷2Ö L²03Û M$²"0"3Ý ™ Ç(147)N3Þ ™" ÁDDS OR ÄELETES ACCTS IN ONE FILE AT A TIME"3ß ™" ÎEW FILE WILL BE ON ÄRIVE 0 WHEN FINISHED"É3à ™" VERTOWN PA 19083"¿8£ … "HOUSE# A";B$Ð8¨ ‹B$²"A"§3235í8­ … "STREET NAME A";C$þ8² ‹C$²"A"§32459´ X²19· … "NAME A";E$-9¼ ‹E$²"A"§3255D9Á … "PHONE A";F$U9Æ ‹F$²"A"§3265p9Ë … "SEQUENCE# 0";G$9Ð ‹G$²"A"§3275¤9Õ … "REASON FOR "" ­‹ È(Y$,1)³±"H" ‰ 690" ®˜99,£60)É(Y$,10), ²N²Nª16 ¼‰ 220_ Æ™ "NORMAL END OF RUN FILE CLOSED",W$i ˉ 780| Ð PRINT#99," "ˆ Ú N=N+1Ÿ ä IF N=51 GOTO 780® î GOTO 720Í ø™ "FILE ERROR FILE CLOSED"× ™ DS$ß Î#3ç N²0ñ ‰ 10UMBERS ON RIGHT FOR 'ROUTELIST' AND"b6™"ODD HOUSE NUMBERS ON THE LEFT INSTEAD OF A VERTICLE LINE"‰7™" ÃÁÕÔÉÏÎ:"Æ8™" RECORDS WILL NEED TO BE MAINTAINED WITH AN Ò OR Ì"9™" AFTER EACH HOUSE # TO KEEP THIS FEATURE I@ COPYRIGHT C-CIRCLE WES ROBINSON 1983 114 ASHLEY RD 19073 LABEL PRG CONVERTED TO ***PAY REC*** BY PAUL FREEMAN 10/85φ L$(3),W$(3),X$(3),Y$(5),Z$(5),U$(3),V$(3),N%(5),O%(5),P%(5),Q%(5),Q$(3)å" 1:Ÿ1,8,15,"I": 1ñ$™Ç(147);(™" ÐRI N%(2)²8 § Z$(1)²"NDC"& Š‹ N%(2)²9 § Z$(1)²"NDC"B ”‹ N%(3)²1 § Z$(2)²"D S"\ ž‹ N%(3)²2 § Z$(2)²"D"} ¨‹ N%(3)²3 § Z$(2)²"D NO SAT"Ÿ ²‹ N%(3)²4 § Z$(2)²"D ONE DAY"» ¼‹ N%(3)²5 § Z$(2)²"D S"× Æ‹ N%(3)²6 § Z$(2)²" S"ô Ћ N%(3)²7 § Z$(2)²"SNYù ÐT²0ÿ ÚŽ äT²1 îŽS ",G%@ ® PRINT#121,"PAST DUE ",H%e ¸ PRINT#121,"LATE CHARGE ",I%Š  PRINT#121,"DOOR SERVICE ",J%¯ Ì PRINT#121,"THANKSGIVING ",K%Ñ à˜121,"NUMBER OF TYPES ",M%Ù êI²1 ô˜121,"TYPE :NOT DELI@ COPYRIGHT C-CIRCLE WES ROBINSON 1983 114 ASHLEY RD 19073„ LABEL PRG CONVERTED TO ***PAY REC SO*** BY PAUL FREEMAN 10/84Ò† L$(3),W$(3),X$(3),Y$(5),Z$(3),U$(3),V$(3),N%(5),O%(5),P%(5),Q%(5),Q$(3)ß"R$²Ç(10)ë$™Ç(147)2(™" ÐRINT ²2 § 130 ¨‹ N%(3)²3 § 130, ²‹ N%(3)²4 § Z$(2)²"D-1"@ ¼‹ N%(3)²5 § 130_ Æ‹ N%(3)²6 § Z$(2)²" S"s Ћ N%(3)²7 § 130‡ Ú‹ N%(3)²8 § 130ª ä IF N%(3)=9 THEN Z$(2)="NEWS"Ä î‹ N%(2)²0 § Z$(1)²" "Þ ø‹ N%(3)²0 § Z$(2)²" "ó ‹ Ã(F$)²12 § N² NTS 1 CUSTOMER PER BAR ON GREEN BAR PAPER FOR RECORD KEEPING"y*™" ÓTART 1 1/4 INCH DOWN FROM TOP OF PAPER"2…" ENTER AUTORUN FILE NAME";V$­<Í#2,(V$),D1·F„2,T$ÍP‹ T$²"END" ‰ 1320ÝZÍ#1,(T$),D1édŸ 121,4ñnT²0ùxK²1 T" Ú‹ N%(3)²8 § Z$(2)²"NDC", ä‹ N%(3)²9 § Z$(2)²"NDC"F î‹ N%(2)²0 § Z$(1)²" "` ø‹ N%(3)²0 § Z$(2)²" "u ‹ Ã(F$)²10 § N²0‰ ‹ Ã(F$)²2 § N²8¢ ‹ F$²"0" § N²9:‰ 830¶ ‹ Ã(F$)²7 § N²3Å >˜121,Ç(30)Ù H‹ Ã(B$)²1 § Y²7í R‹ Ã(B$)²2 § Y²6 Æ=LC+3÷H™LC P‹ LC³±57 § 1390%Z˜121,R$R$R$R$R$R$R$R$2dLC²0:K²1Fn‹ LC³±58 § 1430^x˜121,R$R$R$R$R$R$R$g‚LC²0oŒK²1ƒ–‹ LC³±59 § 1460™ ˜121,R$R$R$R$R$R$¦ªLC²0:K²1¬´Ž0¿ jZ$²" "Í tZ$(1)²" "Û ~Z$(2)²" "á ˆç ’ø œ S 1 ÓUNDAY ONLY CUSTOMER PER BAR ON GREEN BAR PAPER"W2… " ENTER AUTORUN FILE NAME";V$g<Í#2,(V$),D1qF„2,T$‡P‹ T$²"END" § 1320—ZÍ#1,(T$),D1£dŸ 121,4«nT²0³xK²1¿‚N%(1)²0ËŒN%(2)²0×–N%(3)²0ù „1,A$,B$,C$,D$,E$,F$,G$,H$,I$ÿ4 ‹ Ã(F$)²2 § N²14" ‹ F$²"0" § N²15:‰ 8106 ‹ Ã(F$)²7 § N²9E *‹ K³±1§830g ,˜121,Ç(29)ªÇ(31)£15)C$"-"A$R$s .LC²LCª2Š >˜121,Ç(30):LC²LCª1ž H‹ Ã(B$)²1 § Y²7² R‹ Ã(B$)²2 § Y²6Æ \‹ Ã(B$)²3 § Y²5Ú f‹ Ã(B$)²4 § Y²4î p‹ Ã(B$)²5 § Y²3‚N%(1)²0ŒN%(2)²0–N%(3)²0? „1,A$,B$,C$,D$,E$,F$,G$,H$,I$Eª[´‹ B$²"END" ‰ 1240y¾‹ B$²"END OF FILE" ‰ 1240È…Ò‹Ü‘æ¤ð‹ DS±20 ‰ 1270Ïú„1,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%â‹ DS±20 ‰ 1270ì„1,M%ÿ‹ DS±20 ‰\‹ Ã(B$)²3 § Y²5 f‹ Ã(B$)²4 § Y²4) p‹ Ã(B$)²5 § Y²3= z‹ Ã(B$)²6 § Y²2Q „‹ Ã(B$)²7 § Y²1W Ž] ˜r ¢‹ Ã(E$)²1 § X²15‡ ¬‹ Ã(E$)²2 § X²14œ ¶‹ Ã(E$)²3 § X²13± À‹ Ã(E$)²4 § X²12Æ Ê‹ Ã(E$)²5 § X²11Û Ô‹ Ã(E$)²6 § X²10ï Þ‹ Ã(E$)²7 § X²- ***PAY REC LINES*** PAUL FREEMAN 6/85Aœ:™¸(X):™Ç(147)†™" ÐRINTS VERTICLE LINES ON 11 BY 14 INCH GREEN BAR PAPER"" 1:Ÿ1,8,15,"I0": 1Ü(™" ÒESET COMPUTER BEFORE RUNNING THIS PROGRAM"â<œ#F™" ÈIT ANY ª´‹ B$²"END" § 12403¾‹ B$²"END OF FILE" § 12409È?ÒEÜKæ^ð‹ DS±20 § 1270‰ú„1,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%œ‹ DS±20 § 1270¦„1,M%¹‹ DS±20 § 1270Á"J²1Î,„1,N%(J)á6‹ DS±20 § 1270ç@ôJ„1,O%(J)T‹ z‹ Ã(B$)²6 § Y²2 „‹ Ã(B$)²7 § Y²1 Ž" ˜7 ¢‹ Ã(E$)²1 § X²15L ¬‹ Ã(E$)²2 § X²14a ¶‹ Ã(E$)²3 § X²13v À‹ Ã(E$)²4 § X²12‹ Ê‹ Ã(E$)²5 § X²11  Ô‹ Ã(E$)²6 § X²10´ Þ‹ Ã(E$)²7 § X²9È è‹ Ã(E$)²8 § X²8Ü ò‹ Ã(E$)²9 § X²7ñ ü‹ Ã(E$)²10 §  1270"J²1,„1,N%(J)'6‹ DS±20 ‰ 1270-@:J„1,O%(J)MT‹ DS±20 ‰ 1270Z^„1,P%(J)mh‹ DS±20 ‰ 1270zr„1,Q%(J)|‹ DS±20 ‰ 1270—†J²Jª1¨‹ J±M% ‰ 430²š‰ 300¸¤É®‹ K³±1 ‰ 480Ö¸R$²Ç(10)á 1350ê̘121 Ö˜121,Ç(299 è‹ Ã(E$)²8 § X²8 ò‹ Ã(E$)²9 § X²7, ü‹ Ã(E$)²10 § X²6A ‹ Ã(E$)²11 § X²5V ‹ Ã(E$)²12 § X²4k ‹ Ã(E$)²13 § X²3€ $‹ Ã(E$)²14 § X²2• .‹ Ã(E$)²15 § X²1§ 8 S$=CHR$(13)´ BR$²Ç(10)á L˜121,F$£N)E$£X)B$£Y)Z$" "Z$(1)" "Z$(2)R$ë VK²Kª1ÕKEY TO BEGIN PRINTING VERTICLE LINES"5P¡A$:‹A$²""§80gR™" HOLD DOWN RUN/STOP KEY TO STOP PRINTING"sZŸ 121,4~dT$²"!"ŽnS$²" "Æx˜121,£60)T$S$T$S$T$S$T$S$T$S$T$S$T$S$T$S$T$S$T$S$T$Ï‚‰120tZ$(1)²" "Û ~Z$(2)²" "á ˆç ’ø œ DS±20 § 1270^„1,P%(J)'h‹ DS±20 § 12704r„1,Q%(J)G|‹ DS±20 § 1270Q†J²Jª1b‹ J±M% § 420lš‰ 300z¤‹K%²4§130ˆ¦‹K%²7§130Ÿ® IF K<>1 THEN 480°Â GOSUB 1350ÀÌ PRINT#121òÖ PRINT#121,CHR$(29)+CHR$(31)TAB(15)C$"-"A$R$à‹X²6 ‹ Ã(E$)²11 § X²5 ‹ Ã(E$)²12 § X²40 ‹ Ã(E$)²13 § X²3E $‹ Ã(E$)²14 § X²2Z .‹ Ã(E$)²15 § X²1l 8 S$=CHR$(13)™ L˜121,F$£N)E$£X)B$£Y)Z$" "Z$(1)" "Z$(2)R$© VLC²LCª2:K²0´ ` 1350¿ jZ$²" "Í tZ$(1)²" "Û ~Z$(2)²" "á ˆç ’ø œ)ªÇ(31)£15)C$"-"A$R$%à‹ N%(1)²1 § Z$²"D S"<ê‹ N%(1)²2 § Z$²"D"_ì‹ N%(1)²2 ¯ N%(2)²5 § Z$²"D S"}ô‹ N%(1)²3 § Z$²"D NO SAT"¥ö‹ N%(1)²3 ¯ N%(2)²5§Z$²"D NO SAT S"¾þ‹ N%(1)²4 § Z$²"D-1"׋ N%(1)²5 § Z$²" S"ð‹ N%(1)²6 § Z$²" S" ‹ö ` 1350jZ$²" "tZ$(1)²" "~Z$(2)²" "#ˆ)’:œ‹ T²1 § 1200D¦‰ 130L°Î#1Vº  121xÄ™ "END OF RUN FILE CLOSED",T$Ή 70‰ØT²1šâ‹ I²1 § 1200¥ì‰ 1180¯ö™ DS$·Î#1¿ Î#2Þ™ "FILE ERROR FILE CLOSED"äì(Î2 COPYRIGHT C-CIRCLE 1983 WES ROBINSON 19073h ***ROUTELIST*** WES ROBINSON LAST CHANGE 4/2/84sO$²" "~(P$²" "‰2Ÿ121,4È6™" ÐRINTOUT OF CUSTOMER FILES BY STREET & HOUSE # "Ð8™""ý<… "ENTER DATE AND TIME MM/DD/YY HHMM";D$ N%(1)²1 § 130ê‹ N%(1)²2 § 130Fì IF N%(1)=2 AND N%(2)=5 THEN Z$="D S"Zô‹ N%(1)²3 § 130Šö IF N%(1)=3 AND N%(2)=5THENZ$="D NO SAT S"£þ‹ N%(1)²4 § Z$²"D-1"·‹ N%(1)²5 § 130Ó‹ N%(1)²6 § Z$²" S"ç‹ N%(1)²7 § 130û&‹ N%(1)²8 ‹ T²1 § 1200¦‰ 130 °Î#1º  1216Ä™ "END OF RUN FILE CLOSED",T$?Ή 70GØT²1XÚ˜121:LC²LCª1iâ‹ I²1 § 1200tì‰ 1180~ö™ DS$†Î#1Ž Î#2­™ "FILE ERROR FILE CLOSED"³»(Î#2Û2™ "END OF RUN FILES CLOSED"á<ïF LC N%(1)²7 § Z$²"SNYT"# &‹ N%(1)²8 § Z$²"NDC"< 0‹ N%(1)²9 § Z$²"NDC"X :‹ N%(2)²1 § Z$(1)²"D S"r D‹ N%(2)²2 § Z$(1)²"D"“ N‹ N%(2)²3 § Z$(1)²"D NO SAT"µ X‹ N%(2)²4 § Z$(1)²"D ONE DAY"Ñ l‹ N%(2)²6 § Z$(1)²" S"î v‹ N%(2)²7 § Z$(1)²"SNYT" €‹í#2 2™ "END OF RUN FILES CLOSED"<FLC²LCª32P‹ LC³±57 § 1390LZ˜121,R$R$R$R$R$R$R$R$YdLC²0:K²1mn‹ LC³±58 § 1430…x˜121,R$R$R$R$R$R$R$Ž‚LC²0–ŒK²1ª–‹ LC³±59 § 1460À ˜121,R$R$R$R$R$R$ͪLC²0:K²1Ó´ŽZ$(2)R$ë VK²Kª1A˜121,Ç(30);D$Ç(10)8P… "ENTER AUTORUN FILE NAME ";V$HZÍ#1,(V$),D1Zd‹ DS±20 ‰ 520dn„1,W$yx‹ W$²"END" ‰ 550‹‚‹ DS±20 ‰ 520›ŒÍ#3,(W$),D1­–‹ DS±20 ‰ 520¿  S$=CHR$(13)̪R$²Ç(10)î´„3,A$,B$,C$,D$,E$,F$,G$,H$,I$ ¾‹ B$²"END§ 130 0 IF N%(1)=9 THEN Z$="NEWS"/ :‹ N%(2)²1 § 130C D‹ N%(2)²2 § 130W N‹ N%(2)²3 § 130s X‹ N%(2)²4 § Z$(1)²"D-1"’ l‹ N%(2)²6 § Z$(1)²" S"¦ v‹ N%(2)²7 § 130º €‹ N%(2)²8 § 130Ô Š IF N%(2)=9 THEN 130è ”‹ N%(3)²1 § 130ü ž‹ N%(3)R$²Ç(10)™Ç(147)^™" ÐRINTS ÄÅÁÒ ÃÕÓÔÏÍÅÒ NOTICE FOR NEW STARTS"fJ²1rŸ 121,4‰  1:Ÿ1,8,15,"I0": 1±(… " HOW MANY COPIES DO YOU WANT";LÂ-‹ J²1 § ™"“"Ê/J²2<™"# OF COPIES LE@ COPYRIGHT C-CIRCLE WES ROBINSON 1983 114 ASHLEY RD 19073| **INQ LIST** CONVERTED FROM THREE UP LABEL PRG 1/7/83– LAST CHANGE 9/16/85ä† L$(3),W$(3),X$(3),Y$(3),Z$(3),U$(3),V$(3),N%(5),O%(5),P%(5),Q%(5),Q$(3)ñ(R$²Ç(10)ý*™Ç(147)(B$)²6 § Y²2 Ú‹ Ã(B$)²7 § Y²1 ä î5 ø‹ Ã(E$)²1 § X²15J ‹ Ã(E$)²2 § X²14_ ‹ Ã(E$)²3 § X²13t ‹ Ã(E$)²4 § X²12‰ ‹ Ã(E$)²5 § X²11ž *‹ Ã(E$)²6 § X²10² 4‹ Ã(E$)²7 § X²9Æ >‹ Ã(E$)²8 § X²8Ú H‹ Ã(E$)²9 § X²7ï R‹ Ã(E$)²10 § X²6 W$(I)²D$ bZ$(I)²C$# lX$(I)²E$ª" "ªG$0 vY$(I)²B$6 €@ ŠI²Iª1M ”‹I±3§680W ž‰ 230q ¨U$(1)²Y$(1)ª" "ªZ$(1)‹ ²U$(2)²Y$(2)ª" "ªZ$(2)¥ ¼U$(3)²Y$(3)ª" "ªZ$(3)µ ÆV$(2)²W$(2)Å ÐV$(3)²W$(3)Õ ÚV$(1)²W$(1)ç ä S$=CHR$(13)ô îR$²Ç(10) / ***1 LISTD1 ABBR*** LAST CHANGE 3/31/84: Ÿ121,4G ™ Ç(147)Ž™" *** ÐRINT SELECTED DATA FROM 1 ACCOUNT ON ÄRIVE 1 *** "–™""Ù™" SEGMENT# - ADDRESS - NAME - PHONE# - NEWS TYPES"á™""… "ENTER ACCT# TO BE PRI FT";L AL²L«1F˜121,Ç(30)AP˜121,Ç(31)" DEAR CUSTOMER: ",R$†Z˜121,Ç(30)" I AM YOUR NEWS CARRIER WHO NOW SERVES YOU THE"Çd˜121," INQUIRER IN YOUR AREA, AND IT IS MY DESIRE TO GIVE "øn˜121," YOU RELIABLE SERVICE AT ALL TIMES. "9x D,™" ÐRINTS ALL CUSTOMERS WHO RECEIVE INQUIRER DELIVERY ON 11 INCH"‹.™" GREENBAR PAPER * ÄOES NOT PRINT OTHER NEWS TYPES THEY RECEIVE"“0™""¶2… "ENTER AUTORUN FILE NAME";V$Æ<Í#2,(V$),D1ÐF„2,T$ãP‹T$²"END"§1110óZÍ#1,(T$),D1ÿdŸ 12 \‹ Ã(E$)²11 § X²5 f‹ Ã(E$)²12 § X²4. p‹ Ã(E$)²13 § X²3C z‹ Ã(E$)²14 § X²2X „‹ Ã(E$)²15 § X²1p Ž˜121,E$£X)B$£Y)Z$R$z ˜K²Kª1… ¢ 1140‹ ¬‘ ¶— À¤ Ê‹T²1§990® Ô‰ 130¶ ÞÎ#1À è  121â ò™ "END OF RUN FILE CLOSED",T$ë ü‰ 70ó   ø˜121,Ç(30) N²27«(Ã(X$(1))ªÃ(Q$(1)))= O²27«(Ã(X$(2))ªÃ(Q$(2)))€ ˜121,Q$(1);" ";X$(1);£N);Q$(2);" ";X$(2);£O);Q$(3)" ";X$(3)’ N²24«Ã(U$(1))¤ *O²24«Ã(U$(2))Ð 4˜121,Ç(29)ªÇ(31)U$(1);£N)U$(2);£O)U$(3)â >N²29«Ã(V$(1))ô HO²29«Ã(V$(2NTED";X$)… "ENTER FILE NAME EX: 33";W$9Í#3,(W$),D1K( S$=CHR$(13)X2R$²Ç(10)}<„3,A$,B$,C$,D$,E$,F$,G$,H$,I$,J$F‹ DS±20 ‰ 560¤P‹ B$²"END" ‰ 540ÏZ„3,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%ád‹ DS±20 ‰ 560ën„3,M%ýx‹ DS±20 ‰ 56˜121," WON'T YOU PLEASE MAKE A NOTATION OF MY NAME AND "{‚˜121," TELEPHONE NUMBER, OR KEEP THIS CARD HANDY SO YOU "¼Œ˜121," CAN GET IN TOUCH WITH ME IF THE OCCASION REQUIRES "ÎŽ˜121," IT. "–˜121,Ç(29)Ç(31)" 1,4nT²0xK²1‚7Œ„1,A$,B$,C$,D$,E$,F$,G$,H$,I$=–P ‹B$²"END"§1030kª‹B$²"END OF FILE"§1030q´w¾}ȃÒ“Ü‹DS±20§1060¾æ„1,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%Îð‹DS±20§1060Øú„1,M%è‹DS±20§1060ðJ²1ý„1,N%T²1 ‹I²1§990 ‰ 970 $™ DS$ .Î#1$ 8Î#2C B™ "FILE ERROR FILE CLOSED"I LQ VÎ#2q `™ "END OF RUN FILES CLOSED"w jƒ tLC²LCª3” ~‹LC³±57§1180® ˆ˜121,R$R$R$R$R$R$R$R$» ’LC²0:K²1Ì œ‹LC³±58§1220ä ¦˜121,R$R$R$R$R$R$R$í °LC²0)) R˜121,Ç(30)V$(1);£N)V$(2);£O)V$(3)R$R$S$0 \D²Dª1:H²Hª1? ^™B$ª" "ªC$L f‹F±1§920[ z˜121:G²Gª1k ‹G±23§1330Œ „˜121,Ç(29)ªÇ(31)C$:G²Gª1:F²2œ ‰‹G±23§1330« ˜˜121:G²Gª1» ‹G±23§1330Ø ¢˜121,Ç(29)ªÇ(31)B$:G²Gª1è ¶‹G±23§1330õ Ê‹T²0‚I²1Œ„3,N%(I)$–‹ DS±20 ‰ 5601 „3,O%(I)Cª‹ DS±20 ‰ 560P´„3,P%(I)b¾‹ DS±20 ‰ 560oÈ„3,Q%(I)Ò‹ DS±20 ‰ 560“Ü‹ DS±20 ‰ 560æI²Iª1®ð‹ I±M% ‰ 255¸ú‰ 140ÅÿY$²A$ªB$׋ X$³±Y$ ‰ 60 PRINT#121,CHR$(30)"ROUTEID#  THANK YOU "D ˜121,Ç(29)ªÇ(31)" DENNIS FREEMAN "}ª˜121,Ç(30)" BOX 217 "¶´˜121,Ç(30)" NEWTOWN SQUARE PA 19073 "ð¾˜121,Ç(29)ªÇ(31)" 353-6098 ",R$Ș12(J) "‹DS±20§1060, 6„1,O%(J)0@‹DS±20§1060=J„1,P%(J)MT‹DS±20§1060Z^„1,Q%(J)jh‹DS±20§1060trJ²Jª1‚|‹J±M%§400Œ†‰ 280’ ’‹K%²4§140®”‹K%²7§140¼š‹K³±1§450Ǥ 1140Ю˜121ñ¸˜121,Ç(29)ªÇ(31)£5)C$"-"A$R$ùÂL²Fõ ºK²1 Ä‹LC³±59§1250 Ι"130:R$R$R$R$R$R$* ØLC²0:K²10 âŽE$)²14 § X²2X „‹ Ã(E$)²15 § X²1p Ž˜121,E$£X)B$£Y)Z$R$z ˜K²Kª1… ¢ 1140‹ ¬‘ ¶— À¤ Ê‹T²1§990® Ô‰ 130¶ ÞÎ#1À è  121â ò™ "END OF RUN FILE CLOSED",T$ë ü‰ 70ó 1§990ÿ Ô‰ 220 ÞÎ#1+ ò™ "END OF RUN FILE CLOSED",T$,H5 ü‰ 170= T²1G ‰ 990V  GOTO 610` $™ DS$ .™ "FILE ERROR FILE CLOSED"… 8 BL$²" "˜ LI²1¥ VQ$(I)²L$² `U$(I)²L$¿ jV$(I)²L$Ì tW$(I)²L$Ù ~X$(I)²L$æ ˆY$(I)²L$ó ’Z$( ",J$˜121,Ç(30)8" PRINT#121,"SEGMENT# ",A$V,˜121,"HOUSE# ",B$t6˜121,"STREET NAME ",C$’@˜121,"C&S ZIP ",D$°J˜121,"NAME ",E$ÎT˜121,"PHONE# ",F$ó^ PRINT#121,"SEQ# ",G$h1,Ç(29)ªÇ(31)" WE ALSO DELIVER: "]Ò˜121,Ç(30)" NEWS OF DELAWARE COUNTY(THURS MORNING)"¢ܘ121,Ç(30)" SUNDAY NEW YORK TIMES * DELAWARE CO DAILY TIMES",R$åæ˜121,Ç(29)ªÇ(31)" YOUR INQUIRER MOTOR ROUTE CARRIER",R$R$R$þð PRINT#121,1Ì‹ N%(L)²1 § Z$²"D S")Ö‹ N%(L)²2 § Z$²"D"Hà‹ N%(L)²3 § Z$²"D NO SAT"aô‹ N%(L)²5 § Z$²"D S"zþ‹ N%(L)²6 § Z$²" S"€†Œ’&˜0¢:L²Lª1°D‹L±M%§592ºN‰ 460ßP‹ N%(1)²3 ¯ N%(2)²5 § Z$²"D-5 S" R‹ N%(1)²4 ¯ N%(2)² ¤ PRINT#121,"CURRENT CHG'S ",G%@ ® PRINT#121,"PAST DUE ",H%e ¸ PRINT#121,"LATE CHARGE ",I%Š  PRINT#121,"DOOR SERVICE ",J%¯ Ì PRINT#121,"THANKSGIVING ",K%Ñ à˜121,"NUMBER OF TYPES ",M%Ù êI²1 ô˜121,"TYPE :NOT DELII)²L$ý œI²Iª1 ¦‹I³4§1110 °Ž ºÎ#29 Ä™ "END OF RUN FILES CLOSED"G Î PRINT DQ ØK²Kª1[ ≠140l ìV$(Q)²"STOP"r öŽz Î#2‹  ?CHR$(147)Ñ ™"ÔHIS PROCESS IS NOW COMPLETE, YOU HAVE"D"DAILY ONLY CUSTOMERS"ï ˜121,Ç(29)ªÇ(31)"TOTAL PRINT#121,"REASON XCHG ",H$=m PRINT#121,"EXTRA CHARGE ",L%br PRINT#121,"REASON CREDIT ",I$‡| PRINT#121,"CREDIT AMT ",C%¬† PRINT#121,"PAYMENT REC'D ",D%Ñ PRINT#121,"PAYMENT-2MO ",E%öš PRINT#121,"PAYMENT-3MO ",F%1CHR$(12) õ‹ L²0§ ú‰ 60   121#  DENNIS FREEMAN "}ª˜121,Ç(30)" BOX 217 "¶´˜121,Ç(30)" NEWTOWN SQUARE PA 19073 "ð¾˜121,Ç(29)ªÇ(31)" 353-6098 ",R$Ș126 § Z$²"D-1 S" X‹ Ã(F$)²12 § N²4. b‹ Ã(F$)²2 § N²14F l‹F$²"0"§ N²15:‰ 640Z v‹ Ã(F$)²7 § N²9l € S$=CHR$(13)y ŠR$²Ç(10)ˆ ”˜121,Ç(30)œ ž‹ Ã(B$)²1 § Y²7° ¨‹ Ã(B$)²2 § Y²6Ä ²‹ Ã(B$)²3 § Y²5Ø ¼‹ Ã(B$)²4 § Y²4ì Æ‹ Ã(B$)²5 § Y²3 Ћ ÃVERED:STOP :START",N%(I),O%(I),P%(I),Q%(I)) þI²Iª1: ‹ I±M% ‰ 610D ‰ 500j ™ "NORMAL END OF RUN FILE CLOSED"t &‰ 580“ 0™ "FILE ERROR FILE CLOSED" :™ DS$¥ DÎ#3¯ N  121µ X¿ b‰ 540É g 700Ò l‰ 60â ¼‹ T²0 ‰ 740ñ Ƙ121,Ç(12)A="Dú ( 121:2G²04˜121:G²Gª1#<˜121,C$:G²Gª1)FŽ‰ 170= T²1G ‰ 990V  GOTO 610` $™ DS$ .™ "FILE ERROR FILE CLOSED"… 8 BL$²" "˜ LI²1¥ VQ$(I)²L$² `U$(I)²L$¿ jV$(I)²L$Ì tW$(I)²L$Ù ~X$(I)²L$æ ˆY$(I)²L$ó ’Z$(B ***BILL NOTICE*** PAUL FREEMAN 11/1/83 LAST CHANGE 4/15/84N™Ç(147)|™" ÂÉÌÌ ÎÏÔÉÃÅ "„(™""Ë2™" LIST THE PROGRAM & CHANGE WORDS & CENTERING TO YOUR NEEDS "Ó<™"">™"                            ÉÍÐÏÒÔÁΧ980ZÍ#1,(T$),D1dŸ 121,4$nT²0,xI²1N‚„1,A$,B$,C$,D$,E$,F$,G$,H$,I$TŒf–‹B$²"END"§800€ ‹B$²"END OF FILE"§800ŒªX²Å(B$)™´‹X²0§800Ÿ¾¥È´Ò‹DS±20§830ßÜ„1,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%îæ‹DS±20§830øð„1,M% FILE CLOSED"Ô#fÛ#k‰3è#p™ Ç(147) $u™"*****RECORD MATCH**** ",Z$+$z™"SELECT NUMBER FOR CHANGE"=$™"0 NEW MENU"P$„™"1 SEGMENT# "a$‰™"2 HOUSE# "v$Ž™"3 STREET NAME"‡$“™"4 C&S ZIP"•$˜™"5 NAME"¥$™"6 PHONE#"¼$¢™"7 DELIVERY SEQ#"ØONE# A";F$Ó)— ‹F$²"A"§2450Þ)œ ‰ 2170ç)¡ ™ G$*¦ … "ENTER CORRECT DELIVERY SEQ# A";G$%*« ‹G$²"A"§24700*° ‰ 21709*µ ™ H$k*º … "ENTER CORRECT REASON FOR XCHARGE A";H$|*¿ ‹H$²"A"§2490‡*Ä ‰ 2170*É ™ I$Á*Î … "ENTER CORRECT REASON FOR C ECT RESTART MM/DD 0";P$Ð.¦ 10540Ü.¨ Q%(I)²Jæ.ª I²Iª1õ.¯ ‹I±M%§2255/´ ‰ 2690 /¹ ™ DS$/¾ Î#1/à Î#24/È ™ "FILE ERROR CLOSED";/Í ‰3G/Ò ™Ç(147)i/Ô PRINT"ROUTE ID "J$…/× ™"SEGMENT # "A$¡/Ü ™"HOUSE # "B$½/á ™" Ô! "LF™"ÓET ÆORM ÌENGTH ON ÐRINTER (SEE PRINTER MANUAL FOR 4 INCH SETTING)"‘P™" ÎÏÔÉÃÅ JUMPS ONE LINE DOWN AFTER FIRST COPY IS PRINTED"™Z™""Çd…"ENTER NUMBER OF COPIES TO BE PRINTED";LÓnŸ 121,4ÛxI²1‚˜121,Ç(29)ªÇ(31)£23)"  ú‹DS±20§830J²1„1,N%(J)+‹DS±20§8301">,„1,O%(J)M6‹DS±20§830Z@„1,P%(J)iJ‹DS±20§830vT„1,Q%(J)…^‹DS±20§830hJ²Jª1r‹J±M%§390§|‰ 270¯†K²1µÃš‹K%²4§130Ñœ‹K%²7§130⤋N%(K)²4§460ó®‹N%(K)²6§460ý³ $§™"8 REASON FOR CHARGES"î$¬™"9 EXTRA CHARGE" %±™"10 REASON FOR CREDIT"%¶™"11 CREDIT DUE"8%¸ PRINT"12 ROUTE ID"%»… "ENTER # WHICH MATCHES FIELD TO CHANGE OR 0 FOR NEXT MENU 0";JÂ%À‘ J 2345,2365,2385,2405,2425,2445,2465,2485,2660,250 REDIT A";I$Ò*Ó ‹I$²"A"§2510Ý*Ø ‰ 2170æ*Ý ™ C%+â … "ENTER CORRECT CREDIT DUE 0";C%+ç ‰ 2170$+ì ™ D%K+ñ … "DEL CO D/S TIMES CHGS 0";D%V+ö ‰ 2255_+û ™ E%ˆ+ … "ENTER CORRECT PAYMENT-2 0";E%“+ ‰ 2255œ+ ™ F%½+ … "ENTER PAYMENSTREET "C$Ù/æ ™"C&S ZIP "D$õ/ë ™"NAME "E$0ð ™"PHONE "F$-0õ ™"SEQUENCE # "G$I0ú ™"REASON FOR CHARGE "H$e0ÿ ™"EXTRA CHARGE "L%0 ™"REASON FOR CREDIT "I$0 ™"CREDIT DUE "C%£0 ©0þ NOTICE "FŒ˜121,Ç(30)£29)"WE ARE REALIGNING OUR BILLING"t–˜121,£29)"THIS IS A 6 WEEK BILL. WE WILL"¢ ˜121,£29)"RETURN TO 5 WEEK BILLING NEXT"¸ª˜121,£29)"CYCLE."Ç´˜121,Ç(12)ѾI²Iª1áÈ‹ I±L § 220ëÒ‰ 130öÜ 121:€Î‰ 130¸K²Kª1‰ 400ÌQ$(I)²A$+ÖW$(I)²D$8àZ$(I)²C$PêX$(I)²E$ª" "ªG$]ôY$(I)²B$cþmI²Iª1z‹I±3§550„‰ 130ž&U$(1)²Y$(1)ª" "ªZ$(1)¸0U$(2)²Y$(2)ª" "ªZ$(2)Ò:U$(3)²Y$(3)ª" "ªZ$(3)âDV$(2)²W$(2)òNV$(3)²W$(3) X5,2525ç%Å FALLS THRU TO HERE IF 0 OR > 9í%Êó%Ï&Ô™"1 DELCO D/S TIMES CHGS"$&Ù™"2 PAYMENT-2"7&Þ™"3 PAYMENT-3"P&ã™"4 CURRENT CHARGES"b&è™"5 PAST DUE"r&í™"6 ROUTE#"ˆ&ò™"7 DOOR SERVICE"˜&÷™"8 CODE #"¸&ü™"9 VARIABLES (NEWS TYPES)"ÎT-3 0";F%È+ ‰ 2255Ñ+ ™ G%, … "ENTER CORRECT CURRENT CHARGES 0";G% ,# ‰ 2255,( ™ H%<,- … "ENTER CORRECT PAST DUE 0";H%G,2 ‰ 2255n,< … "ENTER CORRECT ROUTE # 0";I%y,A ‰ 2255‚,F ™ J%²,K … "ENTER CORRECT DOOR SERVICE CHG 0 Ã0 ™"DELCODT CHGS "D%Ý0 ™"PAYMENT-2 "E%÷0" ™"PAYMENT-3 "F%1' ™"CURRENT CHARGE "G%+1, ™"PAST DUE "H%E11 ™"ROUTE # "I%_16 ™"DOOR SERVICE "J%y1; ™"CODE # "K%“1> ™"NUMBER OF TYPES "M%›1@ I²1¦1D 100  D²0:G²0L COPYRIGHT C-CIRCLE WES ROBINSON 1983 114 ASHLEY RD 19073z THREE UP LABEL PROGRAM 'THREEUP' 1/7/83Æ( REVISED TO ***DO COUNT*** BY PAUL FREEMAN 10/16/83 LAST CHANGE 4/2/842† L$(3),W$(3),X$(3),Y$(3),Z$(3),U$(3),V$(50),N%(5),V$(1)²W$(1) b S$=CHR$(13)! lR$²Ç(10)0 v˜121,Ç(30)M €N²27«(Ã(X$(1))ªÃ(Q$(1)))j ŠO²27«(Ã(X$(2))ªÃ(Q$(2)))­ ”˜121,Q$(1);" ";X$(1);£N);Q$(2);" ";X$(2);£O);Q$(3)" ";X$(3)¿ žN²24«Ã(U$(1))Ñ ¨O²24«Ã(U$(2))ý ²˜121,Ç(29)ªÇ(31)U$(1);£N)U$(2)& ™"10 VIEW RECORD"í& ™"11 RETURN TO FIRST MENU"7' …"ENTER # WHICH MATCHES FIELD TO CHANGE OR 0 FOR NEXT RECORD 0";JF' ‹J²13§2180‡' ‘ J 2540,2555,2570,2585,2600,2615,2630,2645,2675,2770,2165±' FALLS THRU TO HERE IF 0 OR >CLOSE11·' ";J%½,P ‰ 2255Æ,U ™ K%ì,Z … "ENTER CORRECT CODE # 0";K%÷,_ ‰ 2255-d ™ L%,-i … "ENTER CORRECT EXTRA CHARGE 0";L%7-n ‰ 2170?-s I²1e-x ™ "CURRENT NUMBER OF TYPES = ",M%”-} … "ENTER CORRECT NUMBER OF TYPES 0";M%ª-‚ ™ "TYPE = ";N%(I)Ñ00ä1E ™"PPR TYPE "N%(I),"NOT DEL "O%(I),"STOP "P$,"START "Q$î1J I²Iª1ý1O ‹I±M%§29052T ‰ 2884+2Y ™"HIT A KEY TO RETURN TO MENU"@2^ ¡K$:‹ K$²""§2910K2c ‰ 2260|2¸ **ADD/DELETE** PROGRAM LAST CHANGE 11/9/84©2½ COPYRIGHT (C) CIRCLE WES ROBINSO%(5),P%(5),Q%(5),Q$(3)+6 1:Ÿ1,8,15,"I": 16<Ÿ121,4\>˜121,Ç(29)Ç(31)"DAILY ONLY COUNT"y@˜121,"***** **** ***** "FQ²1G™Ç(147)×H™" ÐRINTOUT & COUNT OF DAILY ONLY CUSTOMERS BY STREET & HOUSE # "ßJ™""!P… "ENTER AUTORUN FILE NA;£O)U$(3) ¼N²29«Ã(V$(1))! ÆO²29«Ã(V$(2))M И121,Ç(30)V$(1);£N)V$(2);£O)V$(3)R$R$S$W Ú 860d ä‹T²1§760n î‰ 120v øÎ#1€   121¢ ™ "END OF RUN FILE CLOSED",T$« ‰ 70³ T²1À *‹I²1§760Ê 4‰ 550Ô >™ DS$ó H™ "FILE ERROR FILE CLOSEDÂ'$ ‰ 1975Ñ'% PRINT J$ÿ'& INPUT "ENTER CORRECT ROUTE ID A";J$(' IFJ$="A"THEN2342() ™ A$G(. … "ENTER CORRECT SEGMENT# A";A$X(3 ‹A$²"A"§2350c(8 ‰ 2170l(= ™ B$’(B … "ENTER CORRECT HOUSE# A";B$£(G ‹B$²"A"§2370®(L ‰ 2170·(Q ™ C ð‹B$²"END"§1030'ú‹B$²"END OF FILE"§10303X²Å(B$)A‹X²0§1030GM"],‹DS±20§1060ˆ6„1,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%˜@‹DS±20§1060¢J„1,M%²T‹DS±20§1060º^J²1Çh„1,N%(J)×r‹DS±20§1060Ý|ꆄ1,O%(J)ú‹DS±20§10-‡ … "ENTER CORRECT TYPE 0";N%(I)è-Œ ™ "NUMBER= ";O%(I).‘ … "ENTER CORRECT NOT DELIVERED COUNT 0";O%(I)).” 10000>.– ™ "VAC STOP=";P$l.› … "ENTER CORRECT VAC STOP MM/DD 0";P$w.œ 10540ƒ.ž P%(I)²J˜.  ™ "RESTART =";Q$Å.¥ … "ENTER CORRME OR A 'C' TO BEGIN THE COUNT";V$(Q)4Z‹V$(Q)²"C"§120>dQ²Qª1Gn‰ 80Rx 1260Z‚K²1qŒ‹V$(K)²"STOP"§1280{– H=0Ž Í#2,(V$(K)),D1˜ª„2,T$«´‹T$²"END"§1210»¾Í#1,(T$),D1ÇÈH²0:F²1ÏÒT²0×ÜI²1ùæ„1,A$,B$,C$,D$,E$,F$,G$,H$,I$ñ"ù R \L$²" " fI²1 pQ$(I)²L$& zU$(I)²L$3 „V$(I)²L$@ ŽW$(I)²L$M ˜X$(I)²L$Z ¢Y$(I)²L$g ¬Z$(I)²L$q ¶I²Iª1~ À‹I³4§880„ ÊŽŒ ÔÎ#2¢ Ü‹M$(G)³±"STOP"§60 Þ™ "END OF RUN FILES CLOSED"È èÙ òM$(Q)²"STOP"ß üŽU$(1);£N)U$(2)$â(V … "ENTER CORRECT STREET NAME A";C$ó([ ‹C$²"A"§2390þ(` ‰ 2170)e ™ D$.)j … "ENTER CORRECT C&S ZIP A";D$?)o ‹D$²"A"§2410J)t ‰ 2170S)y ™ E$w)~ … "ENTER CORRECT NAME A";E$ˆ)ƒ ‹E$²"A"§2430“)ˆ ‰ 2170œ) ™ F$Â)’ … "ENTER CORRECT PH60š„1,P%(J)¤‹DS±20§1060$®„1,Q%(J)4¸‹DS±20§1060>ÂJ²Jª1LÌ‹J±M%§480VÖ‰ 360^àB²1dêjô{þ‹N%(B)²2§860Œ‹N%(B)²3§860–B²Bª1¤‹B±M%§230®‰ 510½& GOTO 860Ö0 IF N%(B)<>6THEN200âD B=B+1ñN GOTO 200þX )”œW$²"ÂLOCK":X$²"ÓTREET":Y$²"ÓEGMENT #":Z$²"ÒOUTE ID"´¦™¦2)W$;¦14)X$;¦10)Y$;¦11)Z$¼°™""̺Í#1,(K$),D1ßÄ‹ DS±20 ‰ 1330é΄1,T$ÿØ‹ T$²"END" ‰ 1370âÍ#2,(T$),D1"ì„2,A$,B$,C$,J$5ö‹ DS±20 ‰ 1330F™A$,B$,C$,J$S ™" "i¡ @ COPYRIGHT C-CIRCLE WES ROBINSON 1983 114 ASHLEY RD 19073 ***** AUTO1 ***** 1 UP LABEL PRG 11/83 LAST CHANGS 8/23/84Ÿ† N%(5),O%(5),P%(5),Q%(5)ß,™Ç(147)" ÐRINTS MAIL LABELS ON ONE ACROSS FORMS"0…" ENTER AUTORUN FILE NA @ COPYRIGHT C-CIRCLE WES ROBINSON 1983 114 ASHLEY RD 19073~ ***AUTO3*** LABEL PROGRAM 1/7/83*** LAST CHANGE 6/26/84̆ L$(3),W$(3),X$(3),Y$(3),Z$(3),U$(3),V$(3),N%(5),O%(5),P%(5),Q%(5),Q$(3)Ù† M$(15)ï  1:Ÿ1,8,15,"I": 1û"™Ç(147)G ,A$,B$,C$,J$š‹ DS±20 ‰ 1810¤™Ç(147)(®™"100 BLOCK IS :",A$A¸™"STREET IS :",B$Z™"SEGMENT IS :",C$sÌ™"ROUTE ID IS :",J${ÖÎ#1Šà™""¨ê™"END OF RUN FILE CLOSED"Ôô…"DO YOU WANT TO CONTINUE Y/N Y";G$èþ‹ G$²"Y" "n rN²2 |„2,A$,B$,C$,J$ †‹DS±20§780š „2,A%© š‹DS±20§780´ ¤™Ã(A$)Ê ®‹ Ã(A$)²10 § N²11à ¸‹ Ã(A$)²11 § N²10õ ‹ Ã(A$)²12 § N²9 Ì‹ Ã(A$)²13 § N²8 Ö‹ Ã(A$)²14 § N²74 à‹ Ã(A$)²15 § N²6I ê‹ Ã(A$)²16 § N²5^ ô‹ Ã(A$)²17 § N²4s þ F$:‹ F$²""‰1300qÎ#2|(‰ 1230…2™DS$<Î#1«F™"FILE ERROR FILE CLOSED"±P¹ZÎ#1Ød™"END OF RUN FILES CLOSED"ßn‰3 @ BY PAUL FREEMAN 4/83 118 PINE ST 19073(J *****1 BLOCKLOOK*****4T™Ç(147)s^™" ÌO ME";V$2Í#2,(V$),D14„2,T$05‹T$²"END"§800@<Í#1,(T$),D1LAŸ 121,4TFT²0\PI²1~Z„1,A$,B$,C$,D$,E$,F$,G$,H$,I$d‹B$²"END"§650ªn‹B$²"END OF FILE"§650¹Œ‹DS±20§670ä–„1,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%ó ‹DS±20§670ýª„1,M $™" ÐRINTS DAILY ACCTS ON 2 3/4 BY 15/16 MAIL LABELS ON 3 ACROSS FORMS"O&™""Y( 840a*Q²1œ2… "ENTER AUTORUN FILE NAME OR A 'P' TO PROCESS ";M$(Q)®3‹M$(Q)²"P"§56¸4Q²Qª1À6‰50É8990Ñ:G²1ç;‹M$(G)²"STOP"§960ú<Í#2,(M$(G)),D1 ‰ 1620ï‰3ø™DS$Î#1&™"FILE ERROR FILE CLOSED"$0QÐ BY PAUL FREEMAN 4/83 118 PINE ST 19073ƒÚ ******BLOCKLOAD******* LAST CHANGE 4/25/84ä™Ç(147)Âî™Ç(147)" ÂLOCKLOAD ÐROGRAM" ð™"ÕSE A SEPARATE DISK ON ‹ Ã(A$)²18 § N²3ˆ ‹ Ã(A$)²19 § N²2 ‹ Ã(A$)²20 § N²1³ ‹ Ã(B$)²13 § Z²13É &‹ Ã(B$)²14 § Z²12ß 0‹ Ã(B$)²15 § Z²11õ :‹ Ã(B$)²16 § Z²10 D‹ Ã(B$)²17 § Z²9 N‹ Ã(B$)²18 § Z²84 X‹ Ã(B$)²19 § Z²7I b‹ Ã(B$)²20 § Z²6^ l‹ Ã(B$)²21 § Z²5s );£O);Q$(3)" ";X$(3) ŠN²24«Ã(U$(1))- ”O²24«Ã(U$(2))Y ž˜121,Ç(29)ªÇ(31)U$(1);£N)U$(2);£O)U$(3)k ¨N²29«Ã(V$(1))} ²O²29«Ã(V$(2))© ¼˜121,Ç(30)V$(1);£N)V$(2);£O)V$(3)R$R$S$³ Æ 840à Ћ T²1 ‰ 740Í Ú‰ 120Õ äÎ#1ß î  121 ø™ "END OF RUN % ´‹DS±20§670ÈJ²1!Ò„1,N%(J)0Ü‹DS±20§6706àCá„1,O%(J)Râ‹DS±20§670_ã„1,P%(J)nä‹DS±20§670{å„1,Q%(J)Šæ‹DS±20§670”ðJ²Jª1¢ú‹J±M%§264¬‰ 210¿ IFK%=4THEN90Õ  IFN%(1)=6THEN90ë  IFN%(1)=4THEN90þ  IFK%=9TH >G²Gª1F„2,T$#P‹ T$²"END" ‰ 9603ZÍ#1,(T$),D1?dŸ 121,4GnT²0OxI²1q‚„1,A$,B$,C$,D$,E$,F$,G$,H$,I$wŒŒ–‹ B$²"END" ‰ 780© ‹ B$²"END OF FILE" ‰ 780¯ªµ´»¾ÁÈÓÒ‹ DS±20 ‰ 810þÜ„1,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K  D1 WHEN LOADING LARGE NUMBER OF STREETS"Jø™" ÔHE STREET NAME BECOMES YOUR FILE NAME ON ÄRIVE 1 "Šú™" ÕSE COMMAS AFTER 100 BLOCK,STREET,& FILE/SEG #,"Ù" ÅXAMPLE: 1500-1599,ASHTON2 RD,43,2"…"ENTER 100 BLOCK,STR v‹ Ã(B$)²22 § Z²4ˆ €‹ Ã(B$)²23 § Z²3 Š‹ Ã(B$)²24 § Z²2² ”‹ Ã(B$)²25 § Z²1Æ ž‹ Ã(C$)²1 § R²5Ú ¨‹ Ã(C$)²2 § R²4î ²‹ Ã(C$)²3 § R²3 ¼‹ Ã(C$)²4 § R²2' Ƙ121,Ç(29)Ç(31)A$£N)B$£Z)C$£R)J$/ ÐÎ#29 Ú  121[ ä™"END OF RUN FILE CLOSED ",T$e î FILE CLOSED",T$ ‰ 70 T²1" ‹ I²1 ‰ 740, ‰ 5306 *™ DS$U 4™ "FILE ERROR FILE CLOSED"[ >f HL$²" "n RI²1{ \Q$(I)²L$ˆ fU$(I)²L$• pV$(I)²L$¢ zW$(I)²L$¯ „X$(I)²L$¼ ŽY$(I)²L$É ˜Z$(I)²L$Ó ¢I²Iª1ã ¬‹ I³4 ‰ 860é ¶Žñ ÀÎ# EN90 S$=CHR$(13)šR$²Ç(10),®˜121,Ç(30)M̘121,Ç(30)A$;" ";E$ª" "ªG$kê˜121,Ç(29)ªÇ(31)B$ª" "ªC$€˜121,Ç(30)D$R$R$:‹T²1§610–D‰ 80žbÎ#1¨g  121Êl™ "END OF RUN FILE CLOSED",T$Ó€‰ 52ÛŠT²1è‹I²1§610òž™ DS$¨™ %,L%æ‹ DS±20 ‰ 810ð„1,M%,ú‹ DS±20 ‰ 8104J²1A„1,N%(J)S‹ DS±20 ‰ 810Y"f,„1,O%(J)x6‹ DS±20 ‰ 810…@„1,P%(J)—J‹ DS±20 ‰ 810¤T„1,Q%(J)¶^‹ DS±20 ‰ 810ÀhJ²Jª1Ñr‹ J±M% ‰ 390Û|‰ 270ã†K²1óŠ‹ K%²4 ‰130Œ EET,FILE/SEG #,RTE ID#";A$,B$,C$,J$ ‹ A$²"A" ‰ 2070'*Í#1,(B$),D1,W44S$²Ç(13)S>˜1,A$,S$,B$,S$,C$,S$,J$,S$fH‹ DS±20 ‰ 2180nRÎ#1š\…"DO YOU WANT TO CONTINUE Y/N Y";T$«f‹T$²"Y"§2070Ép™"END OF RUN FILE CLOSED"Ðz‰3Ú„™ DS$â ‰ 290k øq z ™DS$‚ Î#1  ™"FILE ERROR FILE CLOSED"¦ *® 4Î#1Í >™"END OF RUN FILES CLOSED"× HK²Kª1à R‰260æ \÷ fV$(S)²"STOP"ý pŽ zÎ$ „™"ÔHIS LIST IS NOW FINISHED"- Ž 1213 ˜Î: ¢‰3g L BY PAUL FREEMAN 3/83 118 PINX2 È‹M$(G)³±"STOP"§60' Ê™ "END OF RUN FILES CLOSED"- Ô> ÞM$(Q)²"STOP"D èŽU$(2);£O)U$(3)k ¨N²29«Ã(V$(1))} ²O²29«Ã(V$(2))© ¼˜121,Ç(30)V$(1);£N)V$(2);£O)V$(3)R$R$S$³ Æ 840à Ћ T²1 ‰ 740Í Ú‰ 120Õ äÎ#1ß î  121 ø™ "END OF RUN Q "FILE ERROR FILE CLOSED"² Î#2?*™ "END OF RUN FILES CLOSED"E420§670_ã„1,P%(J)nä‹DS±20§670{å„1,Q%(J)Šæ‹DS±20§670”ðJ²Jª1¢ú‹J±M%§264¬‰ 210¿ IFK%=4THEN90Õ  IFN%(1)=6THEN90ë  IFN%(1)=4THEN90þ  IFK%=9TH ‹ K%²7 ‰130‹ N%(K)²4 ‰ 130+š‹ N%(K)²6 ‰ 130@œ‹ N%(K)³±4 ‰ 440Už‹ N%(K)³±6 ‰ 440_¤K²Kª1i®‰ 400v¸Q$(I)²A$ƒÂW$(I)²D$ÌZ$(I)²C$¨ÖX$(I)²E$ª" "ªG$µàY$(I)²B$»êÅôI²Iª1Öþ‹ I±3 ‰ 530à‰ 130úU$(1)²Y$(1)ª" "ªZAŽÎ#1˜™"FILE ERROR FILE CLOSED"¢¸ “"MAIN MENU",8T NAME BECOMES YOUR FILE NAME ON ÄRIVE 1 "Šú™" ÕSE COMMAS AFTER 100 BLOCK,STREET,& FILE/SEG #,"Ù" ÅXAMPLE: 1500-1599,ASHTON2 RD,43,2"…"ENTER 100 BLOCK,STR E ST 19073 V*****BLOCKLOOK****** `™Ç(147)× j™" ÌOOKS AT ALL STREETS (ONE AT A TIME) IN 'BLOCK AUTORUN' FILE "t™" ÈIT ANY KEY TO SEE NEXT STREET"~™""Pˆ…"ENTER AUTORUN FILE NAME FOR BLOCKLIST A";K$\’™Ç(147 @ COPYRIGHT C-CIRCLE WES ROBINSON 1983 114 ASHLEY RD 19073€ ***AUTO3SUN*** LABEL PROGRAM 3/7/83 * LAST CHANGE 6/25/84Ά L$(3),W$(3),X$(3),Y$(3),Z$(3),U$(3),V$(3),N%(5),O%(5),P%(5),Q%(5),Q$(3)Ú ™Ç(147)&"™" ÐRINTS SUNDAY ACCTS ON 2 3/4 BY 15/16 LABELS ON 3 ACROSS FORMS".$™""8( 860@*Q²1{2… "ENTER AUTORUN FILE NAME OR A 'P' TO PROCESS ";M$(Q)3‹M$(Q)²"P"§56—4Q²Qª1Ÿ6‰50©81010±:G²1Ç;‹M$(G)²"STOP"§980Ú<Í#2,(M$(G)),D1ä>G²Gª1îF„2,T$P‹T$²"END" $(1) U$(2)²Y$(2)ª" "ªZ$(2). &U$(3)²Y$(3)ª" "ªZ$(3)> 0V$(2)²W$(2)N :V$(3)²W$(3)^ DV$(1)²W$(1)p N S$=CHR$(13)} XR$²Ç(10)Œ b˜121,Ç(30)© lN²27«(Ã(X$(1))ªÃ(Q$(1)))Æ vO²27«(Ã(X$(2))ªÃ(Q$(2))) €˜121,Q$(1);" ";X$(1);£N);Q$(2);" ";X$(2 æ‰200wð870úK²1•‹V$(K)²"STOP"§890¨Í#1,(V$(K)),D1·‹DS±20§780Á"„1,T$Ó,‹T$²"END"§820ã6Í#2,(T$),D1ï@Ÿ 121,4üJ‹N±1§380, T˜121," ÂLOCK ÌIST"^ ^˜121," ***** ****"R$f h™"!sb„&˜121,Ç(30)Z$(33)£5)Z$(3)R$(10)Z$(23)R$(11),R$³bŽ& PRINT#121,CHR$(29)" ÍAKE ÃHECKS ÐAYABLE & ÍAIL TO!"Ïb˜&R$(13)²R$(5)ª"-"ªR$(12)c¢&˜121,Ç(29)Ç(31)" DENNIS FREEMAN ACCT# "R$(13)Dc¬&˜121,Ç(30)" BOX 217 "Z$! IFX%=0THENF%=F%+S%(4):REM 1 DAY ONLY CREDITŒhÉ'‹X%²5§F%²F%ªS%(4): 1 DAY ONLY CREDIT—hÊ'10524§hË'‹T³±1§10183²hÎ'‰10450¸hØ'Àhâ'J²5Õhä'‹P%(I)³±0§10850ñhæ'Z$(31)²Z$(30)ªP$ª"-"ªQ$iì'R%(2)²T%(5)ií'‹P%(I)±R%(15)§10450,iî'‹P%(I)²0§104507iï'10!D OF FILE ROUTINECn (Î#1Knª(Î#2jn´(™"END OF RUN FILES CLOSED"qn¾(‰3‡nÈ( COMMON SUB EXITnÒ(T²0™nÔ(‰9080­nÜ( ERROR ROUTINE¶næ(™DS$Ïnð(™"ERROR FILE CLOSED"×nú(Î#1ßn)Î#2ån)€o) *GET DAY SUBROUTINE*9o) *1985 5=SAT 6=SUN 0=MON 1=TUES 2=!Ä(D).tš*Y$²Ä(M)Itž*Q$²É(Y$,2)ª"/"ªÉ(X$,2)Ot¨*Ž`t²*‹J²0 § 11410tt¼*‹J³²334 § 10980}tÆ*M²12‰tÐ*D²J«334tÚ*Ž£tä*‹J³²304 § 11020¬tî*M²11¸tø*D²J«304¾t+ŽÓt +‹ J³²273 § 11060Üt+M²10èt +D²J«273ît*+Žu4+‹ J³²243 § 11100 u>+M²9uH+D²J«243uR+! ²11 :‹ Ã(B$)²16 § Z²10 D‹ Ã(B$)²17 § Z²93 N‹ Ã(B$)²18 § Z²8H X‹ Ã(B$)²19 § Z²7] b‹ Ã(B$)²20 § Z²6r l‹ Ã(B$)²21 § Z²5‡ v‹ Ã(B$)²22 § Z²4œ €‹ Ã(B$)²23 § Z²3± Š‹ Ã(B$)²24 § Z²2Æ ”‹ Ã(B$)²25 § Z²1Ú ž‹ Ã(C$)²1 § R²5î ¨‹ Ã(C$)²2 § R²4! (13)xc¶&˜121,Ç(30)" NEWTOWN SQ PA 19073 "Z$(15)®cÀ&˜121,Ç(30)" 353-6098 "£6)" "Z$(17)R$·cÊ& 121¿cÔ&I²1ËcÞ&R%(I)²0Õcè&I²Iª1äcò&‹I±10§9990îcü&‰9950ýc'‹G²1§10010d'‰8760d'Î#10d$'™"END OF RUN FILE CLOSED",T$:d.'‰8690Xd8! 518oið' IFX%=1THENF%=F%+S%(5):REM SUN (WITH DAILY) CREDITŸiñ'‹X%²6§F%²F%ªS%(5): SUN (WITH DAILY) CREDITªiò'10524ºió'‹T³±1§10223Åiö'‰10450Ëi(Ói (J²6èi (‹P%(I)³±0§10850j (Z$(31)²Z$(30)ªP$ª"-"ªQ$ j(TW²1j(R%(2)²T%(6)5j(‹P%(I)±R%(15)§10! WED 3=THUR 4=FRI*Zo) *MUST BE UPDATED JAN/1986*io)W%²P%(I)­7{o)X%²P%(I)«W%¬7o)Ž—o)‹P%(I)²R%(15)§T²1¯o)™P%(I),R%(15),Q%(I)Áo)P%(I)²P%(I)ª1Øo )‹P%(I)²Q%(I)§10532Þo")Žòo$)P%(I)²0:Q%(I)²0úo&)T²1p()Ž/p,) SUBROUTINE FOR M/D TO JULIAN C! Ž2u\+‹ J³²212 § 11140:uf+M²8Fup+D²J«212Luz+Žau„+‹ J³²181 § 11180iuŽ+M²7uu˜+D²J«181{u¢+Žu¬+‹ J³²151 § 11220˜u¶+M²6¤uÀ+D²J«151ªuÊ+Ž¿uÔ+‹ J³²120 § 11260ÇuÞ+M²5Óuè+D²J«120Ùuò+Žíuü+‹ J³²90 § 11300õu,M²4v,D²J«90v,Žv$,‹J³²59§ 11340 ! ²‹ Ã(C$)²3 § R²3 ¼‹ Ã(C$)²4 § R²2; Ƙ121,Ç(29)Ç(31)A$£N)B$£Z)C$£R)J$C ÐÎ#2M Ú  121o ä™"END OF RUN FILE CLOSED ",T$y î‰ 290 ø… Ž ™DS$– Î#1´ ™"FILE ERROR FILE CLOSED"º * 4Î#1á >™"END OF RUN FILES CLOSED"ë HK²Kª1!' COMPUTATION SUBROUTINES`dB'J²1udD'‹P%(I)³±0§10850‘dF'Z$(31)²Z$(30)ªP$ª"-"ªQ$¡dL'R%(1)²T%(1)¹dM'‹P%(I)±R%(15)§10450ÌdN'‹P%(I)²0§10450×dO'10518þdP'‹X%³6§F%²F%ªS%(1): MON-SAT CREDIT)eQ' IFX%=0THENF%=F%+S%(1):REM SAT CREDITXeR' IFX%>1THENF%!450Hj(‹P%(I)²0§10450Sj(10518ƒj( IFX%=1THENF%=F%+S%(6):REM SUN ONLY CREDIT«j(‹X%²6§F%²F%ªS%(6): SUN ONLY CREDIT¶j(10524Æj(‹T³±1§10263Ûj (‹P%(I)³±0§10850÷j"(Z$(31)²Z$(30)ªP$ª"-"ªQ$k((‰10450k2(k<(J²7%k>(‹P%(I)³±0§10850Ak@(Z$(31)!ONVERSIONEp-)‹R$(11)²"0"§10587bp.)‹Ê(R$(11),3,1)²"/"§10550jp0)J²0p2)™"BAD ENDING DATE"‡p4)šp6)Y$²È(R$(11),2)­p8)Z$²É(R$(11),2)¹p:)Y²Å(Y$)Åp<)Z²Å(Z$)Òp>)‹Y²1§J²0àp@)‹Y²2§J²31îpB)‹Y²3§J²59üpD)‹Y²4§J²90 qF)‹Y²5§J²120qH)‹Y²6§J²151)qJ)‹Y²7§‘v.,M²3+v8,D²J«591vB,ŽEvL,‹J³²31 § 11380MvV,M²2Xv`,D²J«31^vj,Žfvt,M²1nv~,D²Jtvˆ,Ž€v’,M²0:D²0†vœ,Ž§và.“"MAIN MENU",8:™"RUN";tø*D²J«304¾t+ŽÓt +‹ J³²273 § 11060Üt+M²10èt +D²J«273ît*+Žu4+‹ J³²243 § 11100 u>+M²9uH+D²J«243uR+!ô R‰260ú \ fV$(S)²"STOP"pŽzÎ8„™"ÔHIS LIST IS NOW FINISHED"AŽ 121G˜ÎN¢‰3{L BY PAUL FREEMAN 3/83 118 PINE ST 19073•V*****BLOCKLOOK******¡`™Ç(147)ëj™" ÌOOKS AT ALL STREETS (ONE AT A TIME) IN 'BLOCK AUTORUN' FILE !=F%+S%(1):REM MON-FRI CREDITceS'10524seT'‹T³±1§10063~eV'‰10450„e`'Œej'J²2¡el'‹P%(I)³±0§10850½en'Z$(31)²Z$(30)ªP$ª"-"ªQ$Íet'R%(1)²T%(2)åeu'‹P%(I)±R%(15)§10450øev'‹P%(I)²0§10450fw'10518.fx' IFX%=0THENF%=F%+S%(2):REM SAT CREDIT]fy' IFX%>!²Z$(30)ªP$ª"-"ªQ$QkF(R%(3)²T%(7)ikG(‹P%(I)±R%(15)§10450|kH(‹P%(I)²0§10450‡kI(10518¼kJ( IFX%=1THENF%=F%+S%(7):REM SUN N Y TIMES CREDITékK(‹X%²6§F%²F%ªS%(7): SUN N Y TIMES CREDITôkL(10524lM(‹T³±1§10313lP(‰10450lZ(J²8,l\(‹P%(I)³±0§10850H!J²1818qL)‹Y²8§J²212GqN)‹Y²9§J²243WqP)‹Y²10§J²273gqR)‹Y²11§J²304wqT)‹Y²12§J²334qV)J²JªZŽqX)R%(15)²J”qZ)Ž¥q[)R%(15)²0:J²0«q\)ŽÚq^) SUBROUTINE FOR M/D TO JULIAN CONVERSIONïq`)‹V$(K)²"0"§10820 rh)‹Ê(V$(K),3,1)²"/" § 10640rr)J²0Pr|)˜121,Ç(3!C$S$D$S$E$S$F$S$G$S$H$S$I$S$ð!Ë‹DS±20§2745("И2,A%S$B%S$C%S$D%S$E%S$F%S$G%S$H%S$I%S$J%S$K%S$L%S$8"Õ‹DS±20§2745>"ÚN"ß‹DS±20§2745Z"ä˜2,M%S$j"é‹DS±20§2745r"îI²1"ó˜2,N%(I)S$‘"ø‹DS±20§2745 "ý˜2,O%(I)S$°"‹DS±20§2745¿"˜2,P%(I)S$Ï"!"ó~™""*ˆ…"ENTER AUTORUN FILE NAME FOR BLOCKLIST A";K$6’™Ç(147)oœW$²"ÂLOCK":X$²"ÓTREET":Y$²"ÆILE/ÓEG #":Z$²"ÒOUTE ID"¦™¦2)W$;¦14)X$;¦10)Y$;¦11)Z$É°™" ÈIT ANY KEY TO SEE NEXT STREET"ÙºÍ#1,(K$),D1ìÄ‹ DS±20 ‰ !1THENF%=F%+S%(2):REM MON-FRI CREDIT„fz'‹X%³6§F%²F%ªS%(2): MON-SAT CREDITf{'10524Ÿf|'‹T³±1§10103ªf~'‰10450°fˆ'¸f’'J²3Íf”'‹P%(I)³±0§10850éf–'Z$(31)²Z$(30)ªP$ª"-"ªQ$ùfœ'R%(1)²T%(3)g'‹P%(I)±R%(15)§10450$gž'‹P%(I)²0§10450/gŸ'10518^g ' IF!l^(Z$(31)²Z$(30)ªP$ª"-"ªQ$Xld(R%(4)²T%(8)ple(‹P%(I)±R%(15)§10450ƒlf(‹P%(I)²0§10450Žlg(10518Älh( IFX%=5THENF%=F%+S%(8):REM NEWS OF DEL CO CREDITòli(‹X%²3§F%²F%ªS%(8): NEWS OF DEL CO CREDITýlj(10524 mk(‹T³±1§10343mn(‰10450 mx(J²95mz(‹P%(I)³!0)" ACCT ";T$(K);" ";U$(K);"BAD DATE";U$(K)Vr†)Žhr)Y$²È(V$(K),2)zrš)Z$²É(V$(K),2)†r¤)Y²Å(Y$)’r®)Z²Å(Z$)¢r¸)‹ Y²1 § J²0³rÂ)‹ Y²2 § J²31ÄrÌ)‹ Y²3 § J²59ÕrÖ)‹ Y²4 § J²90çrà)‹ Y²5 § J²120ùrê)‹ Y²6 § J²151 sô)‹ Y²7 § J²181sþ)‹ Y²8 § J²212/s ‹DS±20§2745Þ"˜2,Q%(I)S$î"‹DS±20§2745ø"I²Iª1# ‹I±M%§2090#%‰ 2035 #*‹T²1§2135+#/‰ 1810W#4 END OF FILE ONE MORE OUTPUT OF B$=ENDd#9B$²"END"q#>A$²"END"~#CC$²"END"‹#HC$²"END"“#MT²1ž#R‰ 1990¦#WÎ#1®#\Î#2Î#a™ "END OF RUN!1330ö΄1,T$ Ø‹ T$²"END" ‰ 1370âÍ#2,(T$),D1/ì„2,A$,B$,C$,J$Bö‹ DS±20 ‰ 1330S™A$,B$,C$,J$` ™" "v¡ F$:‹ F$²""‰1300~Î#2‰(‰ 1230’2™DS$š<Î#1¸F™"FILE ERROR FILE CLOSED"¾PÆZÎ#1åd™"END OF RUN FILES CLOSED"!X%>1THENF%=F%+S%(3):REM MON-FRI CREDIT…g¡'‹X%³5§F%²F%ªS%(3): MON-FRI CREDITg¢'10524 g£'‹T³±1§10143«g¦'‰10450±g°'¹gº'J²4Îg¼'‹P%(I)³±0§10850êg¾'Z$(31)²Z$(30)ªP$ª"-"ªQ$úgÄ'R%(1)²T%(4)hÅ'‹P%(I)±R%(15)§10450%hÆ'‹P%(I)²0§104500hÇ'10518bhÈ'!±0§10850Qm|(Z$(31)²Z$(30)ªP$ª"-"ªQ$am‚(R%(4)²T%(9)ymƒ(‹P%(I)±R%(15)§10450Œm„(‹P%(I)²0§10450—m…(10518Ím†( IFX%=5THENF%=F%+S%(9):REM NEWS OF DEL CO CREDITûm‡(‹X%²3§F%²F%ªS%(9): NEWS OF DEL CO CREDITnˆ(10524n‰(‹T³±1§10373!nŒ(‰10450;n–( EN!*‹ Y²9 § J²243Bs*‹ Y²10 § J²273Us*‹ Y²11 § J²304hs&*‹ Y²12 § J²334rs0*J²JªZxs:*Ž€sD*J²0†sN*Ž³sb* JULIAN TO CALENDAR JD=MM/DD CWR 9/8/84¿sl*J²P%(I)Ësv* 10930×sz*X$²Ä(D)ãs|*Y$²Ä(M)þs€*P$²É(Y$,2)ª"/"ªÉ(X$,2) tŠ*J²Q%(I)t”* 10930"t˜*X$² ìn‰3@ BY PAUL FREEMAN 4/83 118 PINE ST 190735J *****1 BLOCKLOOK*****AT™Ç(147)€^™" ÌOOKS AT ONE STREET AT A TIME"ˆh™""ºr…"ENTER STREET NAME FROM BLOCKLIST A";A$Ê|Í#1,(A$),D1݆‹ DS±20 ‰ 1810ð„1"«2)"."É(N$,2)" "Z$(55)u\%N$²Ä(R%(3))‡\%N²5«(Ã(N$)«2)£\%R$(14)²R$(12)ª" "ªR$(2)Ñ\&%˜121,Z$(7)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "á\0%N$²Ä(R%(4))ó\:%N²5«(Ã(N$)«2)']D%˜121,Z$(9)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "R$(1)4]F%N$²Ä(D%)S]H%Z$(34)²" ÄEL ÃO Ä/Ó"7650’E‹‹P%(I)²0§7650EŽ10518ÒE’ IFX%=1THENF%=F%+S%(7):REM SUN N Y TIMES CREDITÿE”‹X%²6§F%²F%ªS%(7): SUN N Y TIMES CREDIT F–10524Fš‹T³±1§7566#Fž‰7650+F¢J²8@F£‹P%(I)³±0§10850TF¤Z$(2)²P$ª"-"ªQ$dF¦R%(4)²T%(8){Fª‹P%(I)±R%(15)§765" "£8)" ADDR:"¼Kn˜121,Ç(30)" "£8)" C&S ZIP:"éKs˜121,Ç(30)"ÃURRENT ÃHG "£8)" ",R$&Lx˜121,Ç(29)"PAST DUE "£46)"PLEASE RETURN THIS HALF "gL}˜121,Ç(29)"CREDIT DUE "£45)"PLEASE DO NOT USE STAPLES",R$™L‡˜1" DATES ARE:" QÐ Z$(14)²" ÃURRENT ÃHG "ÉQÚ Z$(15)²" STOP RESTART "àQä Z$(16)²" ÃREDIT " Rî Z$(17)²" PLEASE GIVE 3 DAYS NOTICE"*Rø Z$(18)²" ÂALANCE ÄUE "?R! Z$(19)="NAME "SR !Z$(20)²" ÁCCT#"qR!Z$(25)²" " Wº"‹DS±20§10470tWÄ"„1,P%(I)…WÎ"‹DS±20§10470’WØ"„1,Q%(I)£Wâ"‹DS±20§10470®Wä"10850¿Wæ"™N%(I),P$,Q$ÉWì"I²Iª1ØWö"‹I±M%§8970âW#‰8860ñW #‹TW²0§9940X#‹K%²4§9940X#‹K%²7§9940X#I²1*X#‹N%(I)²1§10040=X#‹N%(I)²2§10080PX(#‹N%(I)²3§10120cX2#‹" ÔIMES"r]J%N²24«((Ã(N$)«2)ªÃ(Z$(34)))¨]L%˜121,Z$(34)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "R$(14)·]N%‹J%²0§9610Ä]X%N$²Ä(J%)à]b%Z$(28)²" PORCH SERVICE"ÿ]l%N²24«((Ã(N$)«2)ªÃ(Z$(28))))^v%˜121,Z$(28)£N)È(N$,Ã(N$)«2)"."É(N$,2)3^€%‰9620F^Š%˜121,£28)" "V^”" 0F«‹P%(I)²0§7650˜F®10518ÆF²‹X%²3§F%²F%ªS%(8): NEWS OF DEL CO CREDITÑF¶10524àFº‹T³±1§7598êF¾‰7650òFÂJ²9GËP%(I)³±0§10850GÄZ$(2)²P$ª"-"ªQ$+GÆR%(4)²T%(9)BGÊ‹P%(I)±R%(15)§7650TGË‹P%(I)²0§7650_GÎ10518GÒ‹X%²3§F%²F%ªS%(9): " 21,Ç(30)"ÂALANCE DUE "£13)" ÂALANCE ÄUE"ÖLŒ˜121,Ç(29)" ÍAKE ÃHECKS ÐAYABLE & ÍAIL TO "£12)Q$,R$þL‘K$(1)²"MY NEXT VACATION DATES ARE:"M–K$(2)²"STOP START"EM›K$(3)²"PLEASE GIVE THREE DAYS NOTICE"yM¥˜121,Ç(31)" ÄÅÎÎÉÓ ÆÒÅÅÍÁÎ " "˜R !Z$(26)²"PLEASE DO NOT USE STAPLES"½R*!Z$(27)²"PLEASE RETURN THIS HALF"ØR,!Z$(30)²" VAC CREDIT "S4!…" DO YOU WANT TO ENTER A BILL NOTICE Y/N";Z$(40)&S>!‹ Z$(40)²"N"§8630gSH!™" ÔHE FIRST LINE WHERE THERE ISN'T ANY MESSAGE ENT"N%(I)²4§10160vX<#‹N%(I)²5§10200‰XF#‹N%(I)²6§10250œXP#‹N%(I)²7§10290¯XZ#‹N%(I)²8§10330ÂXd#‹N%(I)²9§10360ÔXn#‹N%(I)±9§9110ÞXx#I²Iª1íX‚#‹I±M%§9170÷XŒ#‰8980)Y–#™ "ILLEGAL NEWS TYPE CHECK FILE DATA IGNORED"MY # SET UP ARRAYS FROM INPUT DATA_YÈ#‹N"%N$²Ä(R%(5))w^ž%N²6«(Ã(N$)«2)ª(34«Ã(Z$(11)))¯^¨%˜121,Ç(29)" "Z$(11)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "¿^²%N$²Ä(R%(7))Ñ^¼%N²8«(Ã(N$)«2)_Æ%˜121,Z$(14)£N)È(N$,Ã(N$)«2)"."É(N$,2)" ",R$_Ð% N$=STR$(R%(10)):_Ú%N²8«(Ã(N$)«2)ª(35«Ã(Z$(25)))j_ä% PRINT#1"NEWS OF DEL CO CREDIT˜GÖ10524§GÚ‹T³±1§7630±GÞ‰7650¹GâT²0ÃGæ‰6750ÏGìLC²LCª2×Gí™LCèGî‹LC³±58§7668ÿGð˜99,R$R$R$R$R$R$R$ Hò7682:K²1Hô‹LC³±59§76743Hö˜99,R$R$R$R$R$R$AHø7682:K²1RHú‹LC³±60§7680gHü˜99,R$R$R$R$R$R$uHþ7682:K²1" ACCT#"¬Mª˜121,Ç(30)" ÂÏØ 217 "K$(1)ßM¯˜121,Ç(30)"ÎEWTOWN ÓQUARE ÐA 19073 "K$(2)N´˜121,Ç(30)" 353-6098 "K$(3)R$N¹‚#N¾ 121*NÉ3YN¤ *****AUTOBILLD0***** LAST CHANGE 11/6/85„N® COPYRIGHT "ER '^'"£SJ!™" ÆOR CENTERING WORDS MUST BE INSIDE OF QUOTES"ÍSR!…"ENTER LINE 1 (MAX 30 CHAR)";Z$(51)âS\!‹Z$(51)²"^"§8640 Tf!…"ENTER LINE 2 (MAX 30 CHAR)";Z$(52) Tp!‹Z$(52)²"^"§8640ITz!…"ENTER LINE 3 (MAX 30 CHAR)";Z$(53)^T„!‹Z$(53)²"^"§8640"%(2)²5§9170lYÒ#R$(2)²C$yYÜ#R$(3)²D$†Yæ#R$(3)²D$“Yð#R$(5)²A$ Yú#R$(1)²E$®Y$R$(12)²B$¼Y$Z$(11)²H$âY$‹Ã(Z$(11))±34§Z$(11)²È(Z$(11),34)ïY"$R%(5)²L%üY,$R%(6)²H% Z6$ R%(10)=D%Z@$Z$(21)²I$@ZJ$‹Ã(Z$(21))±29§Z$(21)²È(Z$(21),29)YZT$Z$(22)²Z$(16)"21,TAB(N)TAB(24)" "TAB(11)Z$(26)z_î%N$²Ä(R%(6))Œ_ø%N²9«(Ã(N$)«2)»_ú%Z$(12)²" "Í_ü%‹R%(6)²0§9730ü_þ%Z$(12)²" PAST DUE "5`&˜121,Z$(12)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "£17)Z$(26)B`&N$²Ä(F%)R`"{HŽ´HZ$²"VAC CREDIT STOP / START XCHG CURR CHG"þHY$²" BAL DUE PASTDUE CREDIT CR REASON XCHG REASON"I˜99,Ç(29)"ACCT ",£50);Z$;Y$)I˜99,""2I LC²28IŽmI *****STUB***** COPYRIGHT (C) WES ROBINSON 1983|Iœ:"C-CIRCLE WES ROBINSON 1983ÉN¸† Z$(60),R%(15),R$(15),N%(11),O%(11),P%(11),Q%(11),S%(11),T%(11)øN INPUT MASTER DATA FOR NEWSPAPER RATES...Ŏ V$(15)OÖ 1:Ÿ1,8,15,"I0": 14OàÍ#1,"NEWSMASTER",D0&N²5«(Ã(N$)«2)êaH&X$²È(N$,Ã(N$)«2)ª"."ªÉ(N$,2)bp&˜121,Ç(30)Z$(18)£N)X$" "Z$(18)£N)X$R$Abz&Z$(33)²"ÍAKE ÃHECK ÐAYABLE & ÍAIL TO """JK˜121,Q$R$«JP˜121,Ç(30)"ÄAILY INQUIRER "£8)" "ÕJU˜121,Ç(30)"ÓUNDAY ÉNQUIRER "£8)" "ÿJZ˜121,Ç(30)"ÓUN Î.Ù. TIMES "£8)" ")K_˜121,Ç(30)"ÎEWS OF ÄEL ÃO "£8)" "YKd˜121,Ç(30)"ÄEL ÃO Ä/Ó ÔIMES "£8)" NAME:"‰Ki˜121,Ç(30)" " FROM "Pb Z$(4)²" ÄAILY INQUIRER "­Pl Z$(5)²" ÓUNDAY ÉNQUIRER "ÆPv Z$(6)="NAME: "æP€ Z$(7)²" ÓUN Î.Ù. TIMES "üPŠ Z$(8)²"ADDRESS: "Q” Z$(9)²" ÎEWS OF ÄEL ÃO "3Qž Z$(10)²"C&S ZIP: "EQ¨ Z$(23)²" TO "pQÆ Z$(13)²" MY NEXT VACATION"…VV"„1,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%ÁV`"™B$;" ";C$;" ";E$;" ";H$;"=";L%;" ";I$;"=";C%;" PD=";H%ÒVj"‹DS±20§10470ÜVt"„1,M%íV~"‹DS±20§10470ÿVˆ"T²0:TW²0:F%²0W’"I²1Wœ"„1,N%(I)%W¦"‹DS±20§104707Wª"‹N%(I)²4§TW²1IW¬"‹N%(I)²6§TW²1VW°"„1,O%(I)g#š‰6460Õ9¤K$²A$ª"-"ªB$ª" "ªC$ª" "ª" "ªE$ª" "ªÈ(F$,16)ª" "ªZ$(1)ú9¸R%(7)²R%(1)ªR%(2)ªR%(3)ªR%(4)ªD%:ÂX$²Ä(F%)+:ÌL$(2)²È(X$,Ã(X$)«2)ª"."ªÉ(X$,2)8:ÖX$²Ä(D%)\:àL$(3)²È(X$,Ã(X$)«2)ª"."ªÉ(X$,2)n:âL$(4)²" "}:ä‹C%²0§6910Š:êX$²Ä(C%)®:ôL$(# SAT CREDITÂ?° IFX%>1THENF%=F%+S%(1):REM MON-FRI CREDITé?²‹X%³6§F%²F%ªS%(1): MON-SAT CREDITô?´10524@¸‹T³±1§7336 @¼‰7650@À@ÄJ²20@Å‹P%(I)³±0§10850D@ÆZ$(2)²P$ª"-"ªQ$T@ÈR%(1)²T%(2)k@Ì‹P%(I)±R%(15)§7650}@Í‹P%(I)²0§7650ˆ@Ð105#";N$(1)Ò(΋N$(1)²"A"§5060ù(Ø…"ENTER HOUSE NUMBER 0";N$(12) )âT²0:R$²Ç(10)=)ì…"ENTER 0 IF SAME BILL OTHERWISE A 1 0";TK)ö‹T²0§5250s)…"ENTER DAILY INQ CHGS 0";N%(1)œ) …"ENTER SUNDAY INQ CHGS 0";N%(2)Ê)…"ENTER SUNDAY NY T#2)ª"."ªÉ(N$,2)È.&N$²Ä(N%(6))Ú.0N²4«(Ã(N$)«2) /:˜121,Z$(12)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "/NN$²Ä(N%(7))//XN²4«(Ã(N$)«2)c/b˜121,Z$(14)£N)È(N$,Ã(N$)«2)"."É(N$,2)£15)Z$(29)s/lN$²Ä(N%(8))“/vN²4«(Ã(N$)«2)ª(34«Ã(Z$(2)))¾/€˜121,Z$(2)£N)È(N# ER",D0°4’I²1:Q²1Ì4œ„1,V$(I),A%,T%(I),S%(I)â4¦‹V$(I)²"END"§6340ì4°I²Iª1ö4º‰6300þ4ÄÎ#195Î… "ENTER AUTORUN FILENAME OR A 'P' TO PROCESS: ";V$(Q)M5Ï‹V$(Q)²"P"§6354W5ÐQ²Qª1a5щ6350k5Ò7312s5ÔG²1Š5Ö‹V$(G)²"STOP"§72905ØÍ#4,(V$(G)),D# 4)²È(X$,Ã(X$)«2)ª"."ªÉ(X$,2)»:öL$(1)²""Ì:ø‹H$²"0"§6910Ù:úL$(1)²H$æ:þX$²Ä(L%) ;L$(5)²È(X$,Ã(X$)«2)ª"."ªÉ(X$,2);X$²Ä(R%(7))>;L$(6)²È(X$,Ã(X$)«2)ª"."ªÉ(X$,2)Z;&A%²H%ªJ%«C%ªL%ªR%(7)«F%g;0X$²Ä(A%)‹;:L$(7)²È(X$,Ã(X$)«2)ª"."ªÉ(X$,2);<# 18³@Ô IFX%=0THENF%=F%+S%(2):REM SAT CREDITâ@Ø IFX%>1THENF%=F%+S%(2):REM MON-FRI CREDIT AÚ‹X%³6§F%²F%ªS%(2): MON-SAT CREDITAÜ10524#Aà‹T³±1§7376-Aä‰76503Aè;AìJ²3PAí‹P%(I)³±0§10850dAîZ$(2)²P$ª"-"ªQ$tAðR%(1)²T%(3)‹Aô‹P%(I)±R%(1# IMES CHGS 0";N%(3)÷)…"ENTER NEWS OF DEL CO CHGS 0";N%(4)'*(…"ENTER DEL CO D/S TIMES CHGS 0";N%(10)R*2…"ENTER REASON FOR CHG'S 0";Z$(11)q*<…"OTHER CHG'S 0";N%(5)Ÿ*@…"ENTER #2 REASON FOR CHG'S 0";Z$(22)Â*B…"#2 OTHER CHG# $,Ã(N$)«2)ª"."ªÉ(N$,2)Ò/‚˜121,£69)Z$(30)â/ŠN$²Ä(N%(9))ô/”N²4«(Ã(N$)«2)0žX$²È(N$,Ã(N$)«2)ª"."ªÉ(N$,2)A0¨˜121,Ç(30)Z$(18)£N)X$" "£2)Z$(18)£N)X$s0²˜121,Ç(29)£43)" "£12)Z$(3)N$(10)Z$(23)N$(11)¥0¼˜121,Ç(29)" ÍAKE ÃHECKS ÐAYABLE & ÍAIL TO "#0§5ÚG²Gª1·5â‹DS±20§7220Á5ì„4,W$Ñ5ö‹DS±20§7220ä5‹W$²"END"§7270ô5 Í#3,(W$),D06‹DS±20§72206(R$²Ç(10)62N²2;6<„3,A$,B$,C$,D$,E$,F$,G$,H$,I$K6F‹DS±20§7220^6P‹B$²"END"§7160‰6Z„3,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%Å6\™B$;" ";C$;"#L$(8)²" "¬;>‹H%²0§6992¹;DX$²Ä(H%)Ý;NL$(8)²È(X$,Ã(X$)«2)ª"."ªÉ(X$,2)ë;PL$(10)²""ü;Q‹I$²"0"§7020 1THENF%=F%+S%(3):REM MON-FRI CREDITþAþ‹X%³5§F%²F%ªS%(3): MON-FRI CREDIT B10524B‹T³±1§7416"B‰7650(B 0BJ²4EB‹P%(I)³±0§10850YBZ$(2)²P$ª"-"ªQ$iBR%(1)²T%(4)€B‹P%(I)±R%(15)§7650’#'S 0";N%(11)ä*F…"ENTER PAST DUE 0";N%(6)+P…"ENTER REASON FOR CREDIT 0";Z$(21)(+ZZ$(2)²Z$(16)ªZ$(21)L+d…"ENTER CREDIT DUE 0";N%(8)ˆ+nN%(7)²N%(1)ªN%(2)ªN%(3)ªN%(4)ªN%(5)ªN%(6)ªN%(10)ªN%(11)ž+xN%(9)²N%(7)«N%(8)²+ŒZ$(20)²"ACCT##Á0ÆN$(13)²N$(5)ª"-"ªN$(12)ú0И121,Ç(31)" ÄÅÎÎÉÓ ÆÒÅÅÍÁΠ ÁCCT#"N$(13),1Ú˜121,Ç(30)" BOX 217 "Z$(13)^1ä˜121,Ç(30)" ÎÅ×ÔÏ×ΠÓÑ ÐA 19073 "Z$(15)”1î˜121,Ç(30)" 353-6098 "Z$(17)R$R$œ1øI²0ã1… "# ";E$;" ";H$;"=";L%;" ";I$;"=";C%;" PD=";H%Õ6d‹DS±20§7220Þ6fF%²0è6n„3,M%ø6x‹DS±20§72207‚Z$(1)²""Q7ŒR%(1)²0:R%(2)²0:R%(3)²0:R%(4)²0:R%(5)²0:R%(6)²0:R%(7)²0:R%(8)²0:R%(9)²0Y7–I²1x7žZ$(2)²" ":P$²" ":Q$²" "…7 „3,N%(I)¢7ªZ$(1)²Z$(1)ªÄ(#«Ã(L$(8))­<¨ T=12-LEN(L$(9))¿<²U²12«Ã(L$(4))É<´Ÿ99,4Ó<¸7660!=ºL$(12)²" "ªL$(8)ª" "ªL$(4)ª" "ªL$(10)ª" "ªH$Z=¼˜99,K$£M)L$(2)£N)Z$(2)£O)L$(5)£P)L$(6)£Q)L$(7)L$(12)e=Ƙ99,""|=ЋÈ(F$,1)³±"H"§7142‘=Ú˜99,£70)É(F#B‹P%(I)²0§7650B10518ÍB  IFX%=0THENF%=F%+S%(4):REM SAT ONLY CREDIT÷B"‹X%²5§F%²F%ªS%(4): 1 DAY ONLY CREDITC$10524C(‹T³±1§7452C,‰7650!C0)C4J²5>C5‹P%(I)³±0§10850RC6Z$(2)²P$ª"-"ªQ$bC:R%(2)²T%(5)yC>‹P%(I)±R%(15)§7650‹C?‹P# "Î+úN$(13)²N$(5)ª"-"ªN$(12)ú+˜121,Ç(29)Z$(19)N$(1)£19)Z$(20)N$(13)R$%,˜121,Ç(29)£6)Z$(3)N$(10)Z$(23)N$(11)R$5,6N$²Ä(N%(1))G,@N²4«(Ã(N$)«2)y,J˜121,Ç(30)Z$(4)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "‰,TN$²Ä(N%(2))›,^N²4«(Ã(N$)«2)È,h˜121,Z$(5)£N)È#ENTER 0 IF SAME SEGMENT * 1 IF NEW SEGMENT * 2 IF DONE 0";Iñ1 ‹I²0§5060ÿ1‹I²1§5000 2   1212*‰3Y2Ô ***PDL NEW*** COPYRIGHT (C) 1983 WES ROBINSON LAST CHANGE 10/31/85p2Þ 1:Ÿ1,8,15,"I0": 12èN²0:R$²Ç(10)Å2ì† Z$(5),R%(18),R$(15),N%(10)#N%(I))ª","²7´‹DS±20§7220¿7¾„3,O%(I)Ï7È‹DS±20§7220Ü7Ò„3,P%(I)ì7Ü‹DS±20§7220ù7æ„3,Q%(I) 8ð‹DS±20§72208ô™N%(I),P$,Q$,8ú‹N%(I)²1§7324>8‹N%(I)²2§7364P8‹N%(I)²3§7404b8‹N%(I)²4§7440t8"‹N%(I)²5§7476†8,‹N%(I)²6§7514˜86‹N%(I)²7§75#$,10)=äLC²LCª1¥=æ 99¯=î‰6460Ø=ø™ "NORMAL END OF RUN FILE CLOSED",W$â=‰7240õ=  PRINT#99," "> N=N+1>  IF N=51 GOTO 780'>* GOTO 720F>4™ "FILE ERROR FILE CLOSED"P>>™ DS$X>HÎ#3`>RN²0j>\‰6380p>fy>p  99>zÎ#4™>~‹V$(#%(I)²0§7650–CB10518ÎCF IFX%=1THENF%=F%+S%(5):REM SUN (WITH DAILY) CREDITþCH‹X%²6§F%²F%ªS%(5): SUN (WITH DAILY) CREDIT DJ10524DN‹T³±1§7490"DR‰7650(DV0DZJ²6ED\‹P%(I)³±0§10850YD]Z$(2)²P$ª"-"ªQ$bD^TW²1rDbR%(2)²T%(6)‰Df‹P%(I)±#(N$,Ã(N$)«2)"."É(N$,2)" "Ø,rN$²Ä(N%(3))ê,|N²4«(Ã(N$)«2)-†N$(14)²N$(12)ª" "ªN$(2)3-˜121,Z$(7)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "C-šN$²Ä(N%(4))U-¤N²4«(Ã(N$)«2)-®˜121,Z$(9)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "Z$(6)N$(1)ž-¸N$²Ä(N%(10))°-ÂN²4«(Ã(N$#,O%(10),P%(10),Q%(10),S%(10),T%(10)Ú2î† L$(12):™Ç(147) 3ü™"ÐRINTS LIST OF ACCTS WITH CREDITS-EXTRA CHARGES-PAST DUE AMTS"g3þ™"ON 14 7/8 BY 11 GREEN BAR * ON 8 1/2 BY 11 IT WILL WRAP AROUND"™3…"ENTER DATE-DISC ID-AUTORUN FILE NAME: ";X$Ê3…"#54ª8@‹N%(I)²8§7586¼8J‹N%(I)²9§7618Æ8^I²Iª1Õ8h‹I±M%§6771ß8r‰6560ù8s‹N%(1)²4°N%(1)²6§67889t‹N%(2)²4°N%(2)²6§6788-9u‹N%(3)²4°N%(3)²6§6788G9v‹N%(4)²4°N%(4)²6§6788Q9‚‰6460a9„‹L%³±0§6820q9†‹C%³±0§68209‹H%³±0§6820‘9’‹F%³±0§6820›9#G)³±"STOP"§6360¸>„™"END OF RUN FILES CLOSED"¿>Ž‰3Ð>V$(Q)²"STOP"Ö>’Žó>˜ COMPUTATION SUBROUTINEû>œJ²1?‹P%(I)³±0§10850$?žZ$(2)²P$ª"-"ªQ$4? R%(1)²T%(1)K?¤‹P%(I)±R%(15)§7650]?¥‹P%(I)²0§7650h?¨10518“?¬ IFX%=0THENF%=F%+S%(1):REM"R%(15)§7650›Dg‹P%(I)²0§7650¦Dj10518ÖDn IFX%=1THENF%=F%+S%(6):REM SUN ONLY CREDITþDp‹X%²6§F%²F%ªS%(6): SUN ONLY CREDIT Er10524Ev‹T³±1§7530"Ez‰7650(E~0E‚J²7EEƒ‹P%(I)³±0§10850YE„Z$(2)²P$ª"-"ªQ$iE†R%(3)²T%(7)€EŠ‹P%(I)±R%(15)§#)«2)ê-̘121,Z$(24)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "Z$(8)N$(14)ú-ÖN$²Ä(N%(5)).àN²4«(Ã(N$)«2)ª(18«Ã(Z$(11)))U.ê˜121,Z$(11)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "Z$(10)N$(3)f.ôN$²Ä(N%(11))‡.þN²4«(Ã(N$)«2)ª(34«Ã(Z$(22)))¸.˜121,Ç(29)Z$(22)£N)È(N$,Ã(N$)«# ENTER PERIOD ENDING (ÅX: 02/06) ";R$(11)Õ310540ß3Ÿ99,4í3$˜99,Ç(30)34.˜99,"'LIST OF ACCTS WITH CREDITS-EXTRA CHARGES-PAST DUE AMTS'",R$l4B˜99,"TODAYS DATE:";X$;" * PERIOD ENDING: ";R$(11),R$z4V˜99,Ç(29)„4`7682Œ4b 99¤4ˆÍ#1,"NEWSMAST$GO IN ÄRIVE 1 * ÎEW UPDATED FILES WILL BE ON "Bú ™" ÄRIVE 0 AFTER ÔÒÁÎÓ PROGRAM IS RUN"… ™" ÔÒÁÎÓÁÃÔÉÏΠÆÉÌÅ CREATED BY ÌÏÁÄÔÒÁÎÓ IS ON ÄRIVE 0"¹ ™" ÐUT A COMMA AFTER DATE!÷" …"ENTER DATE,DISC-ID/OP-I$ìB™"FILE ERROR FILE CLOSED"ôLÎ#1üVÎ#2`Î#3 jÎ#4t~Î#1"ˆÎ#28’˜121,"END OF RUN"Aœ 121b¦™"END OF RUN FILE CLOSED",V$i°‰3xºK²A1:M2²A1Ä‹ M$²T$(K)§ 3820˜ÎK²KªA1°Ø‹ T$(K)³±"E" § 3780ºâ‰3340Éì™ M$,U$(K)Ý$ ";V$(K);" ";L$á"lI²IªA1ð"v‹I±M%§3790ú"€‰4420#‚‹N%(I)²1§L$²"D""#„‹N%(I)²2§L$²"D"=#†‹N%(I)²3§L$²"D NO SAT"W#ˆ‹N%(I)²4§L$²"D 1 DAY"k#Š‹N%(I)²5§L$²"S"#Œ‹N%(I)²6§L$²"S"•#Ž‹N%(I)²7§L$²"NYT"«#‹N%(I)²8§L$²"NDC"Á#’‹N%(I)²9§L$²"NDC$ü x˜1,A$S$ ‚ 10501 Œ™ "ENTER E,0,0,0 TO END EACH SEGMENT"Z –™"ENTER L,0,0,0 TO END LAST SEGMENT"z  …"ENTER SEG # EX:200 ";V$ ª‹ Ã(V$)±3§1440™ ´˜1,V$S$© ¾ GOSUB1030РȘ121,Ç(29)ªÇ(31)R$£5)"SEG # ";V$R$ Ü™"ENTER TRANSACTIONS: HOU$ (X$)öO²8«Ã(Y$) Z$²"$"ªÈ(Y$,Ã(Y$)«2)ª"."ªÉ(Y$,2)O*˜121,"TOTALS CREDITS  "£N)X$;" TOTAL AMT"£O);Z$\4X$²Ä(XT)i>Y$²Ä(XS)wHN²8«Ã(X$)…RO²8«Ã(Y$)ª\Z$²"$"ªÈ(Y$,Ã(Y$)«2)ª"."ªÉ(Y$,2)Ýf˜121,"TOTALS XCHGS  "£N)X$;" TOTAL AMT"£O)Z$åp$ D(ÅX:02/06,JAN BILL/DF) ";A$,B$, K$²A$ª" "ªB$I6 ˜121,Ç(29)ªÇ(31)"APPLY-TRANS ON: ";A$;"DISC-ID/OP-ID: ";B$R$‚@ …"ENTER TRANSACTION FILE NAME * EX: AWEST-6/22 ";X$®J ˜121,"TRANSACTION FILE NAME IS: ";X$R$¾T Í#1,(X$),D0È^ 2350Òh „1,Y$Ür$ ö‹U$(K)²"P"§3900ñ‹U$(K)²"C"§3950 ‹U$(K)²"X"§4010‹U$(K)²"S"§4070-‹U$(K)²"R"§4280b(˜121,"TRANACTION CODE ERROR";T$(K);" ";U$(K)l2‰3790y<H%²T%(K)†FZ$²Ä(H%) PZ²16«(Ã(Z$)ªÃ(T$(K)))áZ˜121,Ç(30)" ACCT ";T$(K);" ";U$($ "Ç#”Žì#ø ***CAB*** WES ROBINSON 3/29/84$ LAST CHANGE 1/3/86 $ † Z$(30),N%(11),N$(15)7$ 1:Ÿ1,8,15,"I0": 1M$4Z$(3)²" ÆROM "l$>Z$(4)²"ÄAILY ÉNQUIRER "‹$HZ$(5)²"ÓUNDAY ÉNQUIRER "¡$RZ$(6)²"ÎAME: "À$\Z$(7)²"ÓUN Î.Ù. ÔIMES $ SE#,CODE,AMOUNT,REASON (FOR P C & X)"V Þ™"ENTER TRANSACTIONS: HOUSE#,CODE,TYPE NEWS,DATE (FOR S & R)"j æ…"";A$,B$,A%,C$t ðI²Iª1„ ú‹I±100§2190• ‹A$²"E"§1700¦ ‹A$²"L"§1950³ A$²V$ªA$Á  PRINTA$Ù ˜1,A$S$B$S$A%S$C$S$â "O%²1÷ ,‹B$²"$Î#1îz 121õ„‰37Ž™"YOU HAVE EXCEEDED THE TRANSACTION LIMIT PER SEGMENT OF 100"B˜A$²"E"L¢‰1700~ü ***TRANS***COPYRIGHT @ 4/30/84 WES ROBINSONÀ SEE REM'S ON LOADTRANS FOR EXPLANATION OF TRANSACTIONS!!!!!Æ œÐ ‰2690ì$ DISC ERRO$ 2350| ˜121,"LOADTRANS FILE DATE: ";Y$R$† 2440< …"ENTER AUTORUN FILE NAME EX: AUTO-S ";V$Lš Í#2,(V$),D1V¤ 2350`® „2,W$s¸ ‹W$²"END"§3710ƒ Í#3,(W$),D1Ì 2350ŸÖ Í#4,(W$),D0,W©à 2350³ê 2350Õô „3,A$,B$,C$,D$,E$,F$,G$,H$,I$K);£Z);Z$;" ";V$(K)ëd‰3790ønI$²V$(K)xC%²T%(K)‚Z$²Ä(C%),ŒZ²16«(Ã(Z$)ªÃ(T$(K)))m–˜121,Ç(30)" ACCT ";T$(K);" ";U$(K);£Z);Z$;" ";V$(K)w ‰3790„ªH$²V$(K)‘´L%²T%(K)ž¾Z$²Ä(L%)¸ÈZ²16«(Ã(Z$)ªÃ(T$(K)))ùÒ˜121,Ç(30)"$ "Ö$fZ$(8)²"ÁDDRESS: "õ$pZ$(9)²"ÎEWS ÏF ÄEL ÃO " %zZ$(10)²"Ã&Ó ÚIP: "'%ŽZ$(11)²"ÔHANKSGIVING "W%˜Z$(12)²"ÐAST ÄUE "‚%¢Z$(13)²" MY NEXT VACATION DATES ARE:"²%¬Z$(14)²"ÃURRENT ÃHG "Ý%¶Z$(15$P"§PC²PCªA1 6‹B$²"C"§CC²CCªA1!@‹B$²"X"§XC²XCªA16J‹B$²"P"§PA²PAªA%KT‹B$²"C"§CA²CAªA%`^‹B$²"X"§XA²XAªA%jh1050wrX$²Ä(A%)…|N²8«Ã(X$)”†O²10«Ã(A$)½˜121,Ç(30)A$;£O);B$;£N);X$;" ";C$Çš‰1510Ó¤˜1,A$S$Ý®‰1900ê¸X$²Ä(PC)$R SUBROUTINEü. ‹DS±20§23708 Ž B ™ DS$+L ™ "FILE ERROR FILE CLOSED"3V Î#1;` Î#2Cj Î#3Kt Î#4Q~ qˆ GET TRANS FILE SUBROUTINE€’ I²A1:M1²A0Š¦ „1,Y$”° 2350ƺ ˜121,Ç(29)ªÇ(31)R$" UPDATING SEG # ";Y$R$ñÄ PRINT#121," $$ßþ 2350ò ‹B$²"END"§3530ø # „3,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%-& 235070 „3,M%A: 2350JD I²A1PN ]X „3,N%(I)gb 2350tl „3,O%(I)~v 2350‹€ „3,P%(I)•Š 2350¢” „3,Q%(I)¬ž 2350·¨ I²IªA1Ʋ ‹I±M%§3270м ‰3160Ý$ ACCT ";T$(K);" ";U$(K);£Z);Z$;" ";V$(K) ܉3790 æI²A1 êF%²T%(K)+ ð‹T%(K)²0§4208A ‹T%(K)²N%(I)§4160L I²IªA1[ ‹I±M%§4140e "‰4100€ ,˜121,"NO MATCH FOR: " 6N%(I)²A0 @Z$²Ä(T%(K))§ L4482ê T˜121,Ç(30)" ACCT ";T$(K);$)²" STOP RESTART "ó%ÀZ$(16)²"ÃREDIT "&ÊZ$(17)²" PLEASE GIVE 3 DAYS NOTICE"<&ÔZ$(18)²"ÂALANCE ÄUE "\&ÞZ$(24)²"ÄEL ÃO Ä/Ó ÔIMES "n&èZ$(23)²" ÔO "—&òZ$(29)²" PLEASE DO NOT USE STAPLES"Á&üZ$(30)²" PLEASE RETURN THIS$÷ÂY$²Ä(PA)ÌN²8«Ã(X$)ÖO²8«Ã(Y$)8àZ$²"$"ªÈ(X$,Ã(X$)«2)ª"."ªÉ(X$,2)qê˜121,R$;"SEGMENT PASTDUES "£N)X$;" TOTAL AMT "£O);Y$~ôX$²Ä(CC)‹þY$²Ä(CA)™N²8«Ã(X$)§O²8«Ã(Y$)ÌZ$²"$"ªÈ(X$,Ã(X$)«2)ª"."ªÉ(X$,2)&˜121,"SEGMENT CREDITS $ --- "þÎ „1,T$(I)Ø 2350â ‹T$(I)²"E"§26400ì ‹T$(I)²"L"§2660=ö „1,U$(I)G 2350T „1,T%(I)^ 2350k „1,V$(I)( V$(I)=" "+V$(I)‹2 2350–< I²IªA1 F ‰2510ªP M1²A0°Z Žºd E1²A1Èn T$(I)²"E"Îx Ž‚ † N%(10),$Æ M$²A$ªB$ìÐ ™ M$," IN"õÚ K²A1ä ‹N²A1§ 3340î ‹M2²A1§3330&ø ‹A$²Y$§M1²A17 ‹M1²A1§ 3770@ I²A1lH ˜4,A$S$B$S$C$S$D$S$E$S$F$S$G$S$H$S$I$S$vR 2350®\ ˜4,A%S$B%S$C%S$D%S$E%S$F%S$G%S$H%S$I%S$J%S$K%S$L%S$¸f 2350Áp I²A1Íz ˜4,M%S$×$" ";U$(K);" ";V$(K);" ";L$õ \10590!^P%(I)²J !h‰3790!p10590"!rP%(I)²J,!ˆ4482o!˜121,Ç(30)" ACCT ";T$(K);" ";U$(K);" ";V$(K);" ";L$z!šI²IªA1‹!¤‹I±M% § 3790•!®‰4210ž!¸I²A1°!‹T%(K)²0§4418Æ!Ö‹T%(K)²N%(I)§43$ HALF "Ô&Ÿ121,4:™Ç(147)'$™" ÐRINTS ONE BILL AT A TIME USING THE KEYBOARD TO PROVIDE THE DATA"]'.™" ÈÁÖÅÒÔÏ×ΠÐÁ 19083 IS HARD CODED IN PRG "‰'B…"ENTER PERIOD BEGINNING A";N$(10)ž'L‹N$(10)²"A"§4930Ç'V…"ENTER PERIOD ENDIN$"£N)X$;" TOTAL AMT "£O);Y$0X$²Ä(XC):Y$²Ä(XA)*DN²8«Ã(X$)8NO²8«Ã(Y$)]XZ$²"$"ªÈ(X$,Ã(X$)«2)ª"."ªÉ(X$,2)“b˜121,"SEGMENT XCHGS "£N)X$;" TOTAL AMT "£O);Y$ÍlPT²PTªPC:CT²CTªCC:XT²XTªXC:PS²PSªPA:CS²CSªCA:XS²XSªXAÕvI²1÷€PC².:CC².:XC$O%(10),P%(10),Q%(10),T$(100),U$(100),V$(100),T%(100)&Œ  1:Ÿ1,8,15,"I": 1<– S$²Ç(13):R$²Ç(10)Jª A1²1:A0²0]¾ M1².:E3².:E1².hÈ Ÿ121,4Ò ˜121,Ç(30):™Ç(147)Ãæ ™" ÔAKES ENTRIES FROM ÌÏÁÄÔÒÁÎÓ & APPLIES THEM TO YOUR FILES"ð ™" ÃUSTOMER FILES $„ 2350ûŽ ˜4,N%(I)S$O%(I)S$P%(I)S$Q%(I)S$˜ I²IªA1¢ ‹I±M%§3510¬ ‰3470/¶ ‹E3²A1§35609À ‰3060FÊ B$²"END"PÔ E3²A1ZÞ ‰3400bè Î#3jò Î#4‹ü ™"END OF FILE ",W$," CLOSED"šE3²A0:M2²0ª‹E1²A1§3630»$‹M1²A1§2440Å.‰2990Î8™DS$$82Ñ!àI²IªA1à!ê‹I±M%§4350ê!ô‰4310"þ˜121,"NO MATCH FOR: ""4482Q"&˜121,Ç(30)" ACCT ";T$(K);" ";U$(K);" ";V$(K);" ";L$\".10590h"0Q%(I)²Jr":‰3790}"B10590‰"DQ%(I)²J“"Z4482Ö"b˜121,Ç(30)" ACCT ";T$(K);" ";U$(K);" #G A";N$(11)Ü'`‹N$(11)²"A"§4950û'jN$(3)²"HAVERTOWN PA 19083"*(t INPUT "ENTER CITY STATE ZIP A";N$(3)S(ˆ…"ENTER SEGMENT NUMBER A";N$(5)g(’‹N$(5)²"A"§5000Œ(œ…"ENTER STREET NAME A";N$(2) (¦‹N$(2)²"A"§5020¾(Ä…"ENTER NAME A$².:PA².:CA².:XA².Š‹F²1§1980”‰1440ž˜1,A$S$#¨F²1-²‰1710:¼X$²Ä(PT)GÆY$²Ä(PS)UÐN²8«Ã(X$)cÚO²8«Ã(Y$)ˆäZ$²"$"ªÈ(Y$,Ã(Y$)«2)ª"."ªÉ(Y$,2)Àî˜121,R$;"TOTALS PASTDUES "£N)X$;" TOTAL AMT "£O);Z$ÍøY$²Ä(CT)ÚY$²Ä(CS)è N²8«Ã%# ",I% ™ "DOOR SERVICE ",J%0 ™ "CODE # ",K%O  GET Z$:IF Z$="" GOTO 360Y „1,M%t ™ "NO. OF TYPES ",M%| "I²1‹ '‹DS±20§390˜ ,„1,N%(I)§ 1‹DS±20§390´ 6„1,O%(I)à ;‹DS±20§390Ð @„1,P%(I)ß E‹DS±20§390ì J„1,Q%(I)%%þ…™ "PAYMENT-3 ",F%Š™ "CURRENT CHG'S ",G%4™ "PAST DUE ",H%O”™ "ROUTE # ",I%j™™ "DOOR SERVICE ",J%…ž™ "CODE # ",K%¤£ GET Z$:IF Z$="" GOTO 360®¨„1,M%É­™ "NO. OF TYPES ",M%ѲI²1à·‹DS±20§790% ",C$È™ "C&S ZIP ",D$Í™ "NAME ",E$>Ò™ "PHONE # ",F$]×™ "DELIVERY SEQ ",G$|Ü™ "REASON FOR CHARGE ",H$›á™ "OTHER CHARGES ",L%ºæ™ "REASON FOR CREDIT ",I$Ûë PRINT "PAPER CHARG%OMMAS--SEMI COLONS--COLONS OR PERIODS/DECIMALS"0â…"ENTER ACCT# TO BE UPDATED OR E TO BEGIN ";N$(I)Då‹N$(I)²"E"§1780NêI²Iª1Yï‰ 1762~ô… " ENTER FILE NAME EX:@33";W$ŽùÍ#1,(W$),D1žþ‹DS±20§2745°Í#2,(W$),D0,WÀ‹DS±20§2745È K²1% = SUN BILL/ RE-NUMBER DENNIS FREEMAN LAST CHANGE 1/3/86D‰3~ 1:Ÿ1,8,15,"I0":˜1,"S0:SUN BILL":”"0:SUN BILL",8: 1:€’œ:™¸(X):™Ç(147)Í™"  Ó Õ Î      Â É Ì Ì  ’"Õ™"  ™" 1  ÌÏÁÄÔÒÁ% û O‹DS±20§390R10000DT™ "PPR TYPE "N%(I),"NOT DEL "O%(I),"STOP "P$,"START "Q$NYI²Iª1\^‹I±M%§360fc‰ 300qhZ$²"0"¢m… "DO YOU WANT TO CONTINUE ANS Y/N Y";Z$²r‹Z$²"Y"§130ºwÎ#1Ú|™ "END OF RUN FILE CLOSED"á‰3놙 DS% í¼„1,N%(I)üÁ‹DS±20§790 Æ„1,O%(I)Ë‹DS±20§790%Є1,P%(I)4Õ‹DS±20§790AÚ„1,Q%(I)Pß‹DS±20§790[â10000™ä™ "PPR TYPE "N%(I),"NOT DEL "O%(I),"STOP "P$,"START "Q$£éI²Iª1±î‹I±M%§760»ó‰ 700ÆøZ$²"0"÷ý… "DO YOU WANT TO C% ES ",A%üð PRINT "ADDED CHARGES ",B%õ™ "CREDIT DUE ",C%:ú™ "DELCODT CHGS ",D%Yÿ™ "PAYMENT-2 ",E%x™ "PAYMENT-3 ",F%— ™ "CURRENT CHG'S ",G%¶™ "PAST DUE ",H%Õ™ "ROUTE # "% ê„1,A$,B$,C$,D$,E$,F$,G$,H$,I$ô™A$B$ ‹B$²"END OF FILE"§2105" ‹B$²"END"§2105( !. &> +‹DS±20§2745i 0„1,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%o 5 :‹DS±20§2745‰ ?„1,M% DŸ I‹DS±20§2745§ NI²1´ S„1,N%(I)Ä X‹DS±20§2745Ñ%ÎÓ ’"A™" 2  ÔÒÁÎÓ ’"w™" 3  ÃÁ ’"­™" 4  ÐÄL ÎÅ× (SUNDAY) ’"ã™" 5  ÓÔÕ   ’"#™" %$ ‹™ "FILE ERROR FILE CLOSED"Î#1•-š™ ST,"ST STATUS"WŸ… "ENTER 1 IF YOU WISH TO CONTINUE";Xd¤‹X²1§165n©‰ 390°ô **LOOK D0** LOOKS AT ENTIRE FILE COPYRIGHT (C) WES ROBINSONÆù REVISED 9/22/83äþ† N%(5),O%(5),P%(5),Q%(5)!%ONTINUE ANS Y/N Y";Z$‹Z$²"Y"§530Î#1/ ™ "END OF RUN FILE CLOSED"6‰3@™ DS$_™ "FILE ERROR FILE CLOSED"g Î#1m%‚*™ ST,"ST STATUS"¬/… "ENTER 1 IF YOU WISH TO CONTINUE";X¹4‹X²1§565Ã9‰ 790ö LOOK PROGRAMS COPY%,I%ô™ "DOOR SERVICE ",J%™ "CODE # ",K%3" GET Z$: IF Z$="" GOTO 535R'™ "NUMBER OF TYPES ";M%X,`1I²1k410000©6™ "PPR TYPE "N%(I),"NOT DEL "O%(I),"STOP "P$,"START "Q$³;I²Iª1Â@‹I±M%§1610ÍE‰ 1588Ø! ]„1,O%(I)á b‹DS±20§2745î g„1,P%(I)þ l‹DS±20§2745 !q„1,Q%(I)!v!{'!€‹DS±20§27451!…I²Iª1@!Š‹I±M%§1940K!‰ 1875Q!”^!™Z$²A$ªB$d!žj!£p!¨x!­K²1‹!²‹N$(K)²Z$§2165•!·K²1ªK©!¼‹N$(K)²"E"§1990´!Á‰ 1970à!Ƙ2,A$S$B$S$% 6  ÁÕÔÏÂÉÌÌ Ä0 ’"O%™" 7  ÅØÉÔ TO ÍÁÉΠÍÅÎÕ ’"V( 1“-™" ÐÒÅÓÓ ÎÕÍÂÅÒ ÆÏÒ ÓÅÌÅÃÔÉÏÎ (1 ÔÈÒÏÕÇÈ 7)’"Ð2™" ÐÒÅÓÓ 'É'  ÔÏ ÉÎÉÔÉÌÉÚÅ ÂÏÔÈ ÄÉÓË ÄÒÉÖÅÓ ’"â7¡Z$:‹Z$²""§55ý<‹Z$²"I"§Ÿ1,8,15,"I"%™" ÌOOKS AT AN ENTIRE FILE ON ÄRIVE 0 "G… " ENTER FILE NAME EX:SG5 ";W$WÍ#1,(W$),D0f ‹DS±20§790ˆ„1,A$,B$,C$,D$,E$,F$,G$,H$,I$š‹B$²"END"§775¦™ A$ªB$µ!‹DS±20§790»&æ+„1,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%%RIGHT WES ROBINSON 1/15/83, **1 LOOK D1** LOOKS AT ONE ACCT REVISED 9/22/83J† N%(5),O%(5),P%(5),Q%(5)„"™ " ÌOOKS AT ONE ACCOUNT ON ÄRIVE 1 "¤#… " ENTER ACCT# A";X$È(… " ENTER FILE NAME A";W$Ø-Í#1,(W$),D1è%JZ$²"0" O… "DO YOU WANT TO CONTINUE ANS Y/N Y";Z$T‹Z$²"Y"§1660"YÎ#1B^™ "END OF RUN FILE CLOSED"Ic‰3Sh™ DS$rm™ "FILE ERROR FILE CLOSED"zrÎ#1€wˆ|Î#1“‰ 1315Ó¤ COPYRIGHT C-CIRCLE WES ROBINSON 1983 114 ASHLEY RD %ÐAST ÄUES-ÃREDITS-ÅXTRA CHGS"] Ä™"ÔRANSACTIONS ARE TO BE MADE IN ÓEGMENT ORDER AND THAT IS TO BE THE"§ Ι"SAME AS IN THE ÁÕÔÏÒÕΠÆÉÌÅ * ÉF 2 LIKE CODE ENTRIES ARE MADE THE"ñ Ø™"LAST ENTRY WILL BE APPLIED * ÔHE 2ND ENTRY WILL FIX FIRST MISTAKE". %: 1AA²Å(Z$):‹A±7°A³1§55!C™Ç(147)KF‘A‰100,2300,4600,6100,7700,8100,12000Rc‰4šd ***LOADTRANS*** COPYRIGHT (C) WES ROBINSON 2/27/84 UPDATE 9/23/85¤x‰1110·‹ DS±20 § 1070½$ŽÖ.™ "FILE ERROR"DS$,W$Þ8Î#1çB 121îL‰39V TRA%õ0‹DS±20§7908 PRINT "ROUTE ID ",J$9:™ "SEGMENT # ",A$X?™ "HOUSE # ",B$wD™ "STREET ",C$–I™ "C&S ZIP ",D$µN™ "NAME ",E$ÔS™ "PHONE # ",F$óX™ "DELIVER%2‹DS±20§1640 7„1,A$,B$,C$,D$,E$,F$,G$,H$,I$<#A‹B$²"END"§1625.D™A$ªB$>F‹DS±20§1640DKoP„1,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%U‹DS±20§1640‰Z„1,M%™_‹DS±20§1640¡dI²1§i´n„1,N%(I)Äs‹DS±20§1640Ñx„1,O%(I)á}‹D%19073ÿ© UPDATE PROGRAM LAST CHANGE 8/23/83 PF+®† N%(5),O%(5),P%(5),Q%(5),U%(25),N$(20)3³I²1D¸N$(I)²">>>>"N½I²Iª1]‹I±20§1740hlj 1720uÌS$²Ç(13)‰ÑT²0:I²1:™Ç(147)ÉÙ™" ÕPDATED FILE WILL BE ON ÄRIVE 0 WHEN FINISHED"%â™" ÔÒÁÎÓÁÃÔÉÏΠÆÉÌÅ IS LOADED ONTO ÄRIVE 0"t ì™" ÄÏ ÎÏÔ EXCEED 100 ENTRIES * ÐUT A COMMA AFTER ENTER DATE"³ …"ENTER DATE,DISC-ID/OPER-ID(ÅX:02/06,JAN BILL/DF ";A$,B$ ˜121,Ç(30) ˜121,Ç(29)ªÇ(31)"LOADTRANS ON: ";A$;" D%NSACTION FILE FORMAT = ACCT#,PARAMETER1 (AMT),PARAMETER2 (REASON)[j FILE DATA IS INPUT TO TRANSr~ 1:Ÿ1,8,15,"I0": 1}ˆŸ121,4›’S$²Ç(13):R$²Ç(10):™Ç(147)Ú°™" ÃÒÅÁÔÅÓ A ÆÉÌÅ ON ÄRIVE 0 & ÐRINTOUT OF:" ´™" %Y SEQ ",G$]™ "REASON FOR CHARGE ",H$1b™ "OTHER CHARGES ",L%Pg™ "REASON FOR CREDIT ",I$ql PRINT "PAPER CHARGES ",A%’q PRINT "ADDED CHARGES ",B%­v™ "CREDIT DUE ",C%È{™ "DELCODT CHGS ",D%〙 "PAYMENT-2 ",E%S±20§1640î‚„1,P%(I)þ‡‹DS±20§1640 Œ„1,Q%(I)‘‹DS±20§1640!–+›I²Iª11 @¥‹I±M%§1455Kª‰ 1390_¯‹X$³±A$ªB$§1335„² PRINT "ROUTE ID ",J$£¹™ "SEGMENT # ",A$¾™ "HOUSE # ",B$áÙ "STREET %Ú™" ÏLD FILE REMAINS UNCHANGED ON ÄRIVE 1"AÛ™" ÕPDATES ACCTS ONE FILE AT A TIME"ƒÞ™" ACCT# IS FILE NAME + HOUSE# (FILE NAME=SEGMENT#)"µß™" ÅXAMPLE: 63208"ùà™"ÄÏ ÎÏÔ: USE C$ISC-ID: ";B$R$ A1²1:A0²0O 2PC².:PA².:PT².:PS².:CC².:CA².:CT².:CS².:XC².:XA².:XT².:XS².{ <… "ENTER TRANS FILE NAME EX:@T-1/22";W$§ F˜121,"TRANSACTION FILE NAME IS: ";W$R$¹ PÍ#1,(W$),D0,WÄ Z 1050ð n˜121,"TRANSACTION REGISTER FOR: ";A$R$&C3ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿï½óÿÿÿÞÿÿ½÷Þ €slÛ¶&D MAIN MENU / RE-NUMBER BY PAUL FREEMAN 9/4/84 CHANGE 12/19/84K‰3† 1:Ÿ1,8,15,"I":˜1,"S0:MAIN MENU":”"0:MAIN MENU",8: 1:€žœ:™¸(X):™Ç(147)""è™"ÆÒÅÅ×ÁÒÅ ÎÏÔÉÃÅ: ×ES ÒOBINSON 114 ÁSHLEY ÒD. ÎEWTOWN ÓQ., ÐÁ 19073"™" &J MENU B128 / RE-NUMBER BY PAUL FREEMAN 9/4/84 CHANGE 12/26/85 DRFQ‰3 1:Ÿ1,8,15,"I0":˜1,"S0:MENU B128":”"0:MENU B128",8: 1:€¡œ:™¸(X):™Ç(147)î™" ÆÒÅÅ×ÁÒÅ ÎÏÔÉÃÅ: ×ES ÒOBINSON 114 ÁSHLEY ÒD ÎEWTOWN ÓQ. ÐÁ 19073"'™" 'C3Nÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ& @ BLOCK MENU / RE-NUMBER BY PAUL FREEMAN LAST CHANGE 11/85G‰3„ 1:Ÿ1,8,15,"I":˜1,"S0:BLOCK MENU":”"0:BLOCK MENU",8: 1:€œ:™¸(X)Ô™Ç(147):™"  Â Ì Ï Ã Ë Í Å Î Õ ’ "™" ÃÂÕÇ ÄÉÓË: ÔRANSFER STREET N&OUTE ID " ¾ 4:Ÿ4,8,15,"I": 4\ È…"ENTER AUTORUN FILE NAME OR A 'P' TO BEGIN PRINTING A";V$(S)o Ò‹V$(S)²"P"§240y ÜS²Sª1‚ æ‰200‹ ð870“ úK²1© ‹V$(K)²"STOP"§890¼ Í#1,(V$(K)),D1Ë ‹DS±20§780Õ "„1,T$ç ,‹T$²"END"§820÷ 6Í#2,(T$)&  Í Á É Î   Í Å Î Õ ’ "n™" AFTER MAKING SELECTION PRESS RETURN TO LOAD & AGAIN TO RUN ON Â128"v™""¬ ™" 1  ÂÉÌÌ ÍÅÎÕ   ’ "â™" 2  ÂÌÏÃË ÍÅÎÕ ’ "™" &   Í Å Î Õ Â-128 ’ "q™" ''BILL B128''WILL RETURN YOU TO THIS MENU ''MENU B128''"¹™" ÓELECTIONS 2 3 & 4 WILL RETURN YOU TO ''MAIN MENU''"Á™""÷ ™" 1  ÂÉÌÌ Â128  ’ "-™"& I LOAD MENU/ RE-NUMBER BY DENNIS FREEMAN 8/23/84 LAST CHANGE 1/6/86P‰3Œ 1:Ÿ1,8,15,"I0":˜1,"S0:DATA LOAD":”"0:DATA LOAD",8: 1:€ œ:™¸(X):™Ç(147)é™"ÆÒÅÅ×ÁÒÅ ÎÏÔÉÃÅ: ×ES ÒOBINSON 114 ÁSHLEY ÒD. ÎEWTOWN ÓQ. ÐÁ 19073%™" &AMES TO ÄRIVE 1 (ÅX: ASHTON RD)"_™" ÔHESE PROGRAMS LOAD ONTO & READ ÄRIVE 1"©™" ÁN AUTORUN FILE OF STREETS IS NESCESSARY: USE 'ABLOCKLIST'"î™" TO CREATE YOUR OWN AUTORUN FILE USE 'LOAD AUTORUN'"ö ™""1 ™&4100,5000,5800,7300,8200,10850 c‰4] d **LOOK D1** LOOKS AT ENTIRE FILE COPYRIGHT (C) WES ROBINSONs i REVISED 9/22/83‘ n† N%(5),O%(5),P%(5),Q%(5)Ì r™" ÌOOKS AT AN ENTIRE FILE ON ÄRIVE 1 "ò s… " ENTER FILE NAME EX:SG5 ";W$& 3  ÓÕÎ ÂÉÌÌ   ’ "N™" 4  ÄÁÔÁ ÌÏÁÄ  ’ "U 1#™" ÐÒÅÓÓ ÎÕÍÂÅÒ ÆÏÒ ÓÅÌÅÃÔÉÏÎ  (1 THRU 4) ’ "å(™" ÐÒÅÓÓ 'É'  ÔÏ ÉÎÉÔÉÁÌÉÚÅ ÂÏÔÈ ÄÉÓË ÄÒÉÖÅÓ ’ "÷-¡Z$:‹Z$²""§45& 2  ÂÌÏÃË ÍÅÎÕ ’ "c™" 3  ÓÕÎ ÂÉÌÌ   ’ "™™" 4  ÄÁÔÁ ÌÏÁÄ  ’ "  1è#™" ÐÒÅÓÓ ÎÕÍÂÅÒ ÆÏÒ ÓÅÌÅÃÔÉÏÎ  (1 THRU 4) ’ "0(™" &  Ä Á Ô Á  ’  Ì Ï Á Ä ’"n™"ÔHIS PROGRAM WAS DESIGNED FOR ROUTE ORDER [NOT ALPHA OR NUMERICAL]·™" YOU WILL FIND UPDATE & ADD/DELETE DIFFERENT FROM OTHER DATABASES"í ™" 1  ÌÏÏË Ä1 ’"#™" &" 1  ÐÒÉÎÔ ÂÌÏÃËÌÉÓÔ ’ "l™" 2  ÂÌÏÃË ÌÏÏË ’ "§™" 3  1 ÂÌÏÃË ÌÏÏË ’ "â™" 4  ÂÌÏÃË ÌÏÁÄ ’ "™" & xÍ#1,(W$),D1 }‹DS±20§3903 ‚„1,A$,B$,C$,D$,E$,F$,G$,H$,I$E ‡‹B$²"END"§375Q Œ™ A$ªB$` ‘‹DS±20§390f –‘ ›„1,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%   ‹DS±20§390Å ¨ PRINT "ROUTE ID ",J$ä ª™ "SEGMENT # ",A$ ¯™ "HOUSE&2‹Z$²"I"§Ÿ1,8,15,"I": 1*7A²Å(Z$):‹A±4°A³1§456<™Ç(147)NF‹A²1§M$²"BILL MENU"gP‹A²2§M$²"BLOCK MENU"~Z‹A²3§M$²"SUN BILL"–d‹A²4§M$²"DATA LOAD"Æ}™Ç(147)"LOAD"Ç(34)M$Ç(34)",8RUN’";ã‚—158,2:—623,13:—624,13:€T 19073fxN²1s& ÐÒÅÓÓ 'É'  ÔÏ ÉÎÉÔÉÁÌÉÚÅ ÂÏÔÈ ÄÉÓË ÄÒÉÖÅÓ ’ "B-¡Z$:‹Z$²""§45]2‹Z$²"I"§Ÿ1,8,15,"I": 1u7A²Å(Z$):‹A±4°A³1§45<™Ç(147)™F‹A²1§M$²"BILL B128"²P‹A²2§M$²"BLOCK MENU"ÉZ‹A²3§M$²"SUN BILL"ád‹A²4§M$²"DATA LOAD"}™Ç(147)"LOAD"Ç(34)& 2  ÌÏÏË Ä0 ’"Y™" 3  1 ÌÏÏË Ä1 ’"™" 4  ÕÐÄÁÔÅ     ’"Å™" 5  ÁÄÄ ÄÅÌÅÔÅ   ’"û ™" 6  1 ÐÒÉÎÔ Ä1   ’& 5  ÅØÉÔ TO ÍÁÉΠÍÅÎÕ ’ "$ 1l#™" ÐÒÅÓÓ ÎÕÍÂÅÒ ÆÏÒ ÓÅÌÅÃÔÉÏÎ  (1 THRU 5) ’ "´(™" ÐÒÅÓÓ 'É'  ÔÏ ÉÎÉÔÉÁÌÉÚÅ ÂÏÔÈ ÄÉÓË ÄÒÉÖÅÓ ’ "Æ-¡Z$:‹Z$²""§45á2‹Z$²"I"§Ÿ1,8,15,"I": 1ù7A²Å(Z$):‹A±5°A³1§4& # ",B$" ´™ "STREET ",C$A ¹™ "C&S ZIP ",D$` ¾™ "NAME ",E$ Ù "PHONE # ",F$ž È™ "DELIVERY SEQ ",G$½ Í™ "REASON FOR CHARGE ",H$Ü Ò™ "OTHER CHARGES ",L%û ×™ "REASON FOR ‚R$²Ç(10)Œ†V$(50)”– PRINTCHR$(147)œ S²1䪙" ÐRINTOUT OF * BLOCK * STREET * SEGMENT # * ROUTE ID "ì´™""¾ 4:Ÿ4,8,15,"I": 4HÈ…"ENTER AUTORUN FILE NAME OR A 'P' TO BEGIN PRINTING A";V$(S)[Ò‹V$(S)²"P"§240eÜS²Sª1n8M$Ç(34)",8RUN’";.‚—209,2:—939,13:—940,13:€ 3  ÓÕÎ ÂÉÌÌ   ’ "™™" 4  ÄÁÔÁ ÌÏÁÄ  ’ "  1è#™" ÐÒÅÓÓ ÎÕÍÂÅÒ ÆÏÒ ÓÅÌÅÃÔÉÏÎ  (1 THRU 4) ’ "0(™" &"1!™" 7  ÆÉÌÅ ÐÒÉÎÔ Ä1 ’"g"™" 8  ÄÁÔÁ ÌÏÁÄ   ’"#™" 9  1 ÌÏÏË Ä0 ’"Ó$™" 10  ÁÃÃÔ ÔÒÁÎÓÆÅÒ ’" '™" 11  ÅØÉ&5<™Ç(147)$F‘A‰100,1100,1600,2000,3000+P‰4Kd **** PRINT BLOCKLIST ****xn BY PAUL FREEMAN 4/83 118 PINE ST 19073€xN²1‚R$²Ç(10)™Œ†V$(50)®– PRINTCHR$(147)¶ S²1ÿª™" ÐRINTOUT OF * BLOCK * STREET * ÆILE/ÓEG # * R%CREDIT ",I$ Ü PRINT "PAPER CHARGES ",A%= á PRINT "ADDED CHARGES ",B%X æ™ "CREDIT DUE ",C%s ë™ "DELCODT CHGS ",D%Ž ð™ "PAYMENT-2 ",E%© õ™ "PAYMENT-3 ",F%Ä ú™ "CURRENT CHG'S ",G%ß ÿ™ "PAST DUE ",H%ú ™ "ROUTE &,D1 @Ÿ 121,4 J‹N±1§380@ T˜121," ÂLOCK ÌIST"r ^˜121," ***** ****"R$z h™""‚ rN²2• |„2,A$,B$,C$,J$¤ †‹DS±20§780® „2,A%½ š‹DS±20§780È ¤™Ã(A$)Þ ®‹ Ã(A$)²10 § N²11ô ¸‹ Ã(A$)²11 § N²!10 ‹ Ã(A$)²12 § N²9 Ì‹ Ã(A$)²13 § N²83 Ö‹ Ã(A$)²14 § N²7H à‹ Ã(A$)²15 § N²6] ê‹ Ã(A$)²16 § N²5r ô‹ Ã(A$)²17 § N²4‡ þ‹ Ã(A$)²18 § N²3œ ‹ Ã(A$)²19 § N²2± ‹ Ã(A$)²20 § N²1Ç ‹ Ã(B$)²13 § Z²13Ý &‹ Ã(B$)²14 § Z²12ó 0‹ Ã(B$)²15 § Z& Ô TO ÍÁÉΠÍÅÎÕ ’"( 1R-™" ÐÒÅÓÓ ÎÕÍÂÅÒ ÆÏÒ ÓÅÌÅÃÔÉÏÎ (1 ÔÈÒÕ 11) THEN RETURN’"2™" ÐÒÅÓÓ 'I'  ÔÏ ÉÎÉÔÉÌÉÚÅ ÂÏÔÈ ÄÉÓË ÄÒÉÖÅÓ ’"—7…Z$²<‹Z$²"I"§Ÿ1,8,15,"I": 1ËAA²Å(Z$):‹A±11°A³1§55×C™Ç(147) F‘A‰100,500,1300,1700,3000,&CFIND PRG DISK   30 2C    '‚&MAIN MENU       SS FIND 1/86    ‚(BILL MENU       t‚%SUN BILL        t‚&DATA LOAD       p‚&BLOCK MENU      ‚ AUTO1           ‚ AUTO3            '‚ AUTO3SUN        ‚BILL NOTICE     ‚,CODE 7          ‚,CODE 4          ‚DO COUNT         ‚DEAR CUSTOMER   ‚INQ LIST         ‚1 LISTD1 ABBR   ' ‚0LIST AUTORUN    ‚0LIST NEWSMASTER ‚0LOAD AUTORUN    ‚0 LOAD NEWSMASTER ‚0 NAME SEARCH DF  0NEWSMASTER      ‚PAY REC          ‚PAY REC SO       ' ‚ PAY REC LINES   ‚ROUTELIST       ‚1SO COUNT         ‚1SPIN DISK       ‚,FILE CONCAT     ‚1SCREEN PRINT    ‚1BILL B128       w‚-LOADTRANS INSTR '‚PDL              ‚RIGHTEVEN       ‚LEFTEVEN        ANNABELLA       ASHTON          ASHTON2          N BELFIELD       BON AIR         ' BON AIR2        BON AIR3        BRIERWOOD       ABLOCKLIST      ATEST 1         ATEST 2         ANOSO           ,38              '92               , 57              .58              /59              /60               061               162               63              ÿ‚&MENU B128       ANOSO-11/18     SS END OF FIND  SS---MISC---    LABELS6.P       6----FROM----    6!!--ÎÏÔÉÃÅ--!!! (? BILL MENU / RE-NUMBER DENNIS FREEMAN LAST CHANGE 1/3/86F‰3‚ 1:Ÿ1,8,15,"I0":˜1,"S0:BILL MENU":”"0:BILL MENU",8: 1:€–œ:™¸(X):™Ç(147)Ñ™"  Â É Ì Ì      ͠ŠΠՠ ’"Ù™" ™" 1  ÌÏÁ((PC)ûÂY$²Ä(PA) ÌN²8«Ã(X$)ÖO²8«Ã(Y$)<àZ$²"$"ªÈ(X$,Ã(X$)«2)ª"."ªÉ(X$,2)uê˜121,R$;"SEGMENT PASTDUES "£N)X$;" TOTAL AMT "£O);Y$‚ôX$²Ä(CC)þY$²Ä(CA)N²8«Ã(X$)«O²8«Ã(Y$)ÐZ$²"$"ªÈ(X$,Ã(X$)«2)ª"."ªÉ(X$,2)&˜121,"SEGMENT CREDI("2 â™" ÔÒÁÎÓÁÃÔÉÏΠÆÉÌÅ IS LOADED ONTO ÄRIVE 0"x ì™" ÄÏ ÎÏÔ EXCEED 100 ENTRIES * ÐUT A COMMA AFTER ENTER DATE"· …"ENTER DATE,DISC-ID/OPER-ID(ÅX:02/06,JAN BILL/DF ";A$,B$Æ ˜121,Ç(30) ˜121,Ç(29)ªÇ(31)"LOADTRANS ON: ";A$;" ( --- "Î „1,T$(I) Ø 2350 â ‹T$(I)²"E"§26404ì ‹T$(I)²"L"§2660Aö „1,U$(I)K 2350X „1,T%(I)b 2350o „1,V$(I)…( V$(I)=" "+V$(I)2 2350š< I²IªA1¤F ‰2510®P M1²A0´Z Ž¾d E1²A1Ìn T$(I)²"E"Òx Ž‚ † N%(( H$,I$ãþ 2350ö ‹B$²"END"§3530ü ' „3,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%1& 2350;0 „3,M%E: 2350ND I²A1TN aX „3,N%(I)kb 2350xl „3,O%(I)‚v 2350€ „3,P%(I)™Š 2350¦” „3,Q%(I)°ž 2350»¨ I²IªA1ʲ ‹I±M%§3270Ô¼ ‰31( ÄÔÒÁÎÓ ’"E™" 2  ÔÒÁÎÓ ’"{™" 3  ÃÁ ’"±™" 4  ÐÄL ÎÅ× (DAILY) ’"ç™" 5  ÓÔÕ   ’"#™" ( TS "£N)X$;" TOTAL AMT "£O);Y$0X$²Ä(XC) :Y$²Ä(XA).DN²8«Ã(X$)<NO²8«Ã(Y$)aXZ$²"$"ªÈ(X$,Ã(X$)«2)ª"."ªÉ(X$,2)—b˜121,"SEGMENT XCHGS "£N)X$;" TOTAL AMT "£O);Y$ÑlPT²PTªPC:CT²CTªCC:XT²XTªXC:PS²PSªPA:CS²CSªCA:XS²XSªXAÙvI²1û€PC².:CC²( DISC-ID: ";B$R$ A1²1:A0²0S 2PC².:PA².:PT².:PS².:CC².:CA².:CT².:CS².:XC².:XA².:XT².:XS². <… "ENTER TRANS FILE NAME EX:@T-1/22";W$« F˜121,"TRANSACTION FILE NAME IS: ";W$R$½ PÍ#1,(W$),D0,WÈ Z 1050ô n˜121,"TRANSACTION REGISTER FOR: ";( 10),O%(10),P%(10),Q%(10),T$(100),U$(100),V$(100),T%(100)*Œ  1:Ÿ1,8,15,"I": 1@– S$²Ç(13):R$²Ç(10)Nª A1²1:A0²0a¾ M1².:E3².:E1².lÈ Ÿ121,4ƒÒ ˜121,Ç(30):™Ç(147)Çæ ™" ÔAKES ENTRIES FROM ÌÏÁÄÔÒÁÎÓ & APPLIES THEM TO YOUR FILES" ð ™" ÃUSTOMER FI(60áÆ M$²A$ªB$ðÐ ™ M$," IN"ùÚ K²A1 ä ‹N²A1§ 3340î ‹M2²A1§3330*ø ‹A$²Y$§M1²A1; ‹M1²A1§ 3770D I²A1pH ˜4,A$S$B$S$C$S$D$S$E$S$F$S$G$S$H$S$I$S$zR 2350²\ ˜4,A%S$B%S$C%S$D%S$E%S$F%S$G%S$H%S$I%S$J%S$K%S$L%S$¼f 2350Åp I²A1Ñz ˜4,M%S( 6  ÁÕÔÏÂÉÌÌ Ä0 ’"S%™" 7  ÅØÉÔ TO ÍÁÉΠÍÅÎÕ ’"Z( 1—-™" ÐÒÅÓÓ ÎÕÍÂÅÒ ÆÏÒ ÓÅÌÅÃÔÉÏÎ (1 ÔÈÒÏÕÇÈ 7)’"Ô2™" ÐÒÅÓÓ 'É'  ÔÏ ÉÎÉÔÉÌÉÚÅ ÂÏÔÈ ÄÉÓË ÄÒÉÖÅÓ ’"æ7¡Z$:‹Z$²""§55<‹Z$²"I"§Ÿ1,8,15(.:XC².:PA².:CA².:XA². Š‹F²1§1980”‰1440ž˜1,A$S$'¨F²11²‰1710>¼X$²Ä(PT)KÆY$²Ä(PS)YÐN²8«Ã(X$)gÚO²8«Ã(Y$)ŒäZ$²"$"ªÈ(Y$,Ã(Y$)«2)ª"."ªÉ(Y$,2)Äî˜121,R$;"TOTALS PASTDUES "£N)X$;" TOTAL AMT "£O);Z$ÑøY$²Ä(CT)ÞY$²Ä(CS)ì N(A$R$ x˜1,A$S$ ‚ 10505 Œ™ "ENTER E,0,0,0 TO END EACH SEGMENT"^ –™"ENTER L,0,0,0 TO END LAST SEGMENT"~  …"ENTER SEG # EX:200 ";V$‘ ª‹ Ã(V$)±3§1440 ´˜1,V$S$­ ¾ GOSUB1030Ô È˜121,Ç(29)ªÇ(31)R$£5)"SEG # ";V$R$ Ü™"ENTER TRANSACTIONS:(LES GO IN ÄRIVE 1 * ÎEW UPDATED FILES WILL BE ON "Fú ™" ÄRIVE 0 AFTER ÔÒÁÎÓ PROGRAM IS RUN"‰ ™" ÔÒÁÎÓÁÃÔÉÏΠÆÉÌÅ CREATED BY ÌÏÁÄÔÒÁÎÓ IS ON ÄRIVE 0"½ ™" ÐUT A COMMA AFTER DATE!û" …"ENTER DATE,DISC-ID/($Û„ 2350ÿŽ ˜4,N%(I)S$O%(I)S$P%(I)S$Q%(I)S$ ˜ I²IªA1¢ ‹I±M%§3510#¬ ‰34703¶ ‹E3²A1§3560=À ‰3060JÊ B$²"END"TÔ E3²A1^Þ ‰3400fè Î#3nò Î#4ü ™"END OF FILE ",W$," CLOSED"žE3²A0:M2²0®‹E1²A1§3630¿$‹M1²A1§2440É.‰2990Ò8(,"I": 1AA²Å(Z$):‹A±7°A³1§55%C™Ç(147)OF‘A‰100,2300,4600,6100,7700,8100,12000Vc‰4žd ***LOADTRANS*** COPYRIGHT (C) WES ROBINSON 2/27/84 UPDATE 9/23/85¨x‰1110»‹ DS±20 § 1070Á$ŽÚ.™ "FILE ERROR"DS$,W$â8Î#1ëB 121òL‰3=V(²8«Ã(X$)úO²8«Ã(Y$) Z$²"$"ªÈ(Y$,Ã(Y$)«2)ª"."ªÉ(Y$,2)S*˜121,"TOTALS CREDITS  "£N)X$;" TOTAL AMT"£O);Z$`4X$²Ä(XT)m>Y$²Ä(XS){HN²8«Ã(X$)‰RO²8«Ã(Y$)®\Z$²"$"ªÈ(Y$,Ã(Y$)«2)ª"."ªÉ(Y$,2)áf˜121,"TOTALS XCHGS  "£N)X$;" TOTAL AMT"£O)Z$( HOUSE#,CODE,AMOUNT,REASON (FOR P C & X)"Z Þ™"ENTER TRANSACTIONS: HOUSE#,CODE,TYPE NEWS,DATE (FOR S & R)"n æ…"";A$,B$,A%,C$x ðI²Iª1ˆ ú‹I±100§2190™ ‹A$²"E"§1700ª ‹A$²"L"§1950· A$²V$ªA$Å  PRINTA$Ý ˜1,A$S$B$S$A%S$C$S$æ "O%²1û ,‹(OP-ID(ÅX:02/06,JAN BILL/DF) ";A$,B$ , K$²A$ª" "ªB$M6 ˜121,Ç(29)ªÇ(31)"APPLY-TRANS ON: ";A$;"DISC-ID/OP-ID: ";B$R$†@ …"ENTER TRANSACTION FILE NAME * EX: AWEST-6/22 ";X$²J ˜121,"TRANSACTION FILE NAME IS: ";X$R$ÂT Í#1,(X$),D0Ì^ 2350Öh „1,Y$(™DS$ðB™"FILE ERROR FILE CLOSED"øLÎ#1VÎ#2`Î#3jÎ#4t~Î#1&ˆÎ#2<’˜121,"END OF RUN"Eœ 121f¦™"END OF RUN FILE CLOSED",V$m°‰3|ºK²A1:M2²A1‘Ä‹ M$²T$(K)§ 3820œÎK²KªA1´Ø‹ T$(K)³±"E" § 3780¾â‰3340Íì™ M$,U$(K( TRANSACTION FILE FORMAT = ACCT#,PARAMETER1 (AMT),PARAMETER2 (REASON)_j FILE DATA IS INPUT TO TRANSv~ 1:Ÿ1,8,15,"I0": 1ˆŸ121,4Ÿ’S$²Ç(13):R$²Ç(10):™Ç(147)Þ°™" ÃÒÅÁÔÅÓ A ÆÉÌÅ ON ÄRIVE 0 & ÐRINTOUT OF:" ´™" (épÎ#1òz 121ù„‰3;Ž™"YOU HAVE EXCEEDED THE TRANSACTION LIMIT PER SEGMENT OF 100"F˜A$²"E"P¢‰1700‚ü ***TRANS***COPYRIGHT @ 4/30/84 WES ROBINSONÄ SEE REM'S ON LOADTRANS FOR EXPLANATION OF TRANSACTIONS!!!!!Ê œÔ ‰2690ð$ DISC (B$²"P"§PC²PCªA16‹B$²"C"§CC²CCªA1%@‹B$²"X"§XC²XCªA1:J‹B$²"P"§PA²PAªA%OT‹B$²"C"§CA²CAªA%d^‹B$²"X"§XA²XAªA%nh1050{rX$²Ä(A%)‰|N²8«Ã(X$)˜†O²10«Ã(A$)Á˜121,Ç(30)A$;£O);B$;£N);X$;" ";C$Ëš‰1510פ˜1,A$S$ᮉ1900î¸X$²Ä(àr 2350| ˜121,"LOADTRANS FILE DATE: ";Y$R$† 2440@ …"ENTER AUTORUN FILE NAME EX: AUTO-S ";V$Pš Í#2,(V$),D1Z¤ 2350d® „2,W$w¸ ‹W$²"END"§3710‡ Í#3,(W$),D1‘Ì 2350£Ö Í#4,(W$),D0,W­à 2350·ê 2350Ùô „3,A$,B$,C$,D$,E$,F$,G$,))áö‹U$(K)²"P"§3900õ‹U$(K)²"C"§3950  ‹U$(K)²"X"§4010‹U$(K)²"S"§40701‹U$(K)²"R"§4280f(˜121,"TRANACTION CODE ERROR";T$(K);" ";U$(K)p2‰3790}<H%²T%(K)ŠFZ$²Ä(H%)¤PZ²16«(Ã(Z$)ªÃ(T$(K)))åZ˜121,Ç(30)" ACCT ";T$(K);" "( ÐAST ÄUES-ÃREDITS-ÅXTRA CHGS"a Ä™"ÔRANSACTIONS ARE TO BE MADE IN ÓEGMENT ORDER AND THAT IS TO BE THE"« Ι"SAME AS IN THE ÁÕÔÏÒÕΠÆÉÌÅ * ÉF 2 LIKE CODE ENTRIES ARE MADE THE"õ Ø™"LAST ENTRY WILL BE APPLIED * ÔHE 2ND ENTRY WILL FIX FIRST MISTAKE(ERROR SUBROUTINE. ‹DS±20§23708 ŽB ™ DS$/L ™ "FILE ERROR FILE CLOSED"7V Î#1?` Î#2Gj Î#3Ot Î#4U~ uˆ GET TRANS FILE SUBROUTINE„’ I²A1:M1²A0Ž¦ „1,Y$˜° 2350ʺ ˜121,Ç(29)ªÇ(31)R$" UPDATING SEG # ";Y$R$õÄ PRINT#121," )NY TIMES CHGS 0";N%(3)û)…"ENTER NEWS OF DEL CO CHGS 0";N%(4)+*(…"ENTER DEL CO D/S TIMES CHGS 0";N%(10)V*2…"ENTER REASON FOR CHG'S 0";Z$(11)u*<…"OTHER CHG'S 0";N%(5)£*@…"ENTER #2 REASON FOR CHG'S 0";Z$(22)Æ*B…"#2 OTHER);U$(K);£Z);Z$;" ";V$(K)ïd‰3790ünI$²V$(K) xC%²T%(K)‚Z$²Ä(C%)0ŒZ²16«(Ã(Z$)ªÃ(T$(K)))q–˜121,Ç(30)" ACCT ";T$(K);" ";U$(K);£Z);Z$;" ";V$(K){ ‰3790ˆªH$²V$(K)•´L%²T%(K)¢¾Z$²Ä(L%)¼ÈZ²16«(Ã(Z$)ªÃ(T$(K)))ýÒ˜121,Ç())È(N$,Ã(N$)«2)ª"."ªÉ(N$,2)Ö/‚˜121,£69)Z$(30)æ/ŠN$²Ä(N%(9))ø/”N²4«(Ã(N$)«2)0žX$²È(N$,Ã(N$)«2)ª"."ªÉ(N$,2)E0¨˜121,Ç(30)Z$(18)£N)X$" "£2)Z$(18)£N)X$w0²˜121,Ç(29)£43)" "£12)Z$(3)N$(10)Z$(23)N$(11)©0¼˜121,Ç(29)" ÍAKE ÃHECKS ÐAYABLE & ÍAIL T)S "Ú$fZ$(8)²"ÁDDRESS: "ù$pZ$(9)²"ÎEWS ÏF ÄEL ÃO "%zZ$(10)²"Ã&Ó ÚIP: "+%ŽZ$(11)²"ÔHANKSGIVING "[%˜Z$(12)²"ÐAST ÄUE "†%¢Z$(13)²" MY NEXT VACATION DATES ARE:"¶%¬Z$(14)²"ÃURRENT ÃHG "á%¶Z) MASTER",D0´4’I²1:Q²1Ð4œ„1,V$(I),A%,T%(I),S%(I)æ4¦‹V$(I)²"END"§6340ð4°I²Iª1ú4º‰63005ÄÎ#1=5Î… "ENTER AUTORUN FILENAME OR A 'P' TO PROCESS: ";V$(Q)Q5Ï‹V$(Q)²"P"§6354[5ÐQ²Qª1e5щ6350o5Ò7312w5ÔG²1Ž5Ö‹V$(G)²"STOP"§7290¡5ØÍ#4,(V$(G) CHG'S 0";N%(11)è*F…"ENTER PAST DUE 0";N%(6)+P…"ENTER REASON FOR CREDIT 0";Z$(21),+ZZ$(2)²Z$(16)ªZ$(21)P+d…"ENTER CREDIT DUE 0";N%(8)Œ+nN%(7)²N%(1)ªN%(2)ªN%(3)ªN%(4)ªN%(5)ªN%(6)ªN%(10)ªN%(11)¢+xN%(9)²N%(7)«N%(8)¶+ŒZ$(20)²"A) 30)" ACCT ";T$(K);" ";U$(K);£Z);Z$;" ";V$(K) ܉3790 æI²A1 êF%²T%(K)/ ð‹T%(K)²0§4208E ‹T%(K)²N%(I)§4160P I²IªA1_ ‹I±M%§4140i "‰4100„ ,˜121,"NO MATCH FOR: "‘ 6N%(I)²A0¡ @Z$²Ä(T%(K))« L4482î T˜121,Ç(30)" ACCT ";T$) O "Å0ÆN$(13)²N$(5)ª"-"ªN$(12)þ0И121,Ç(31)" ÄÅÎÎÉÓ ÆÒÅÅÍÁΠ ÁCCT#"N$(13)01Ú˜121,Ç(30)" BOX 217 "Z$(13)b1ä˜121,Ç(30)" ÎÅ×ÔÏ×ΠÓÑ ÐA 19073 "Z$(15)˜1î˜121,Ç(30)" 353-6098 "Z$(17)R$R$ 1øI²0ç1) $(15)²" STOP RESTART "÷%ÀZ$(16)²"ÃREDIT " &ÊZ$(17)²" PLEASE GIVE 3 DAYS NOTICE"@&ÔZ$(18)²"ÂALANCE ÄUE "`&ÞZ$(24)²"ÄEL ÃO Ä/Ó ÔIMES "r&èZ$(23)²" ÔO "›&òZ$(29)²" PLEASE DO NOT USE STAPLES"Å&üZ$(30)²" PLEASE RETURN ))),D0«5ÚG²Gª1»5â‹DS±20§7220Å5ì„4,W$Õ5ö‹DS±20§7220è5‹W$²"END"§7270ø5 Í#3,(W$),D06‹DS±20§72206(R$²Ç(10)62N²2?6<„3,A$,B$,C$,D$,E$,F$,G$,H$,I$O6F‹DS±20§7220b6P‹B$²"END"§71606Z„3,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%É6\™B$;" ";)CCT# "Ò+úN$(13)²N$(5)ª"-"ªN$(12)þ+˜121,Ç(29)Z$(19)N$(1)£19)Z$(20)N$(13)R$),˜121,Ç(29)£6)Z$(3)N$(10)Z$(23)N$(11)R$9,6N$²Ä(N%(1))K,@N²4«(Ã(N$)«2)},J˜121,Ç(30)Z$(4)£N)È(N$,Ã(N$)«2)"."É(N$,2)" ",TN$²Ä(N%(2))Ÿ,^N²4«(Ã(N$)«2)Ì,h˜121,Z$(5))(K);" ";U$(K);" ";V$(K);" ";L$ù \10590!^P%(I)²J!h‰3790!p10590&!rP%(I)²J0!ˆ4482s!˜121,Ç(30)" ACCT ";T$(K);" ";U$(K);" ";V$(K);" ";L$~!šI²IªA1!¤‹I±M% § 3790™!®‰4210¢!¸I²A1´!‹T%(K)²0§4418Ê!Ö‹T%(K)²N%(I)… "ENTER 0 IF SAME SEGMENT * 1 IF NEW SEGMENT * 2 IF DONE 0";Iõ1 ‹I²0§50602‹I²1§5000 2   1212*‰3]2Ô ***PDL NEW*** COPYRIGHT (C) 1983 WES ROBINSON LAST CHANGE 10/31/85t2Þ 1:Ÿ1,8,15,"I0": 1…2èN²0:R$²Ç(10)É2ì† Z$(5),R%(18),R$(15),N%)THIS HALF "Ø&Ÿ121,4:™Ç(147)"'$™" ÐRINTS ONE BILL AT A TIME USING THE KEYBOARD TO PROVIDE THE DATA"a'.™" ÈÁÖÅÒÔÏ×ΠÐÁ 19083 IS HARD CODED IN PRG "'B…"ENTER PERIOD BEGINNING A";N$(10)¢'L‹N$(10)²"A"§4930Ë'V…"ENTER PERIOD E)C$;" ";E$;" ";H$;"=";L%;" ";I$;"=";C%;" PD=";H%Ù6d‹DS±20§7220â6fF%²0ì6n„3,M%ü6x‹DS±20§7220 7‚Z$(1)²""U7ŒR%(1)²0:R%(2)²0:R%(3)²0:R%(4)²0:R%(5)²0:R%(6)²0:R%(7)²0:R%(8)²0:R%(9)²0]7–I²1|7žZ$(2)²" ":P$²" ":Q$²" "‰7 „3,N%(I)¦7ªZ$(1)²Z$(1)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "Ü,rN$²Ä(N%(3))î,|N²4«(Ã(N$)«2) -†N$(14)²N$(12)ª" "ªN$(2)7-˜121,Z$(7)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "G-šN$²Ä(N%(4))Y-¤N²4«(Ã(N$)«2)‘-®˜121,Z$(9)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "Z$(6)N$(1)¢-¸N$²Ä(N%(10))´-ÂN²4«())§4382Õ!àI²IªA1ä!ê‹I±M%§4350î!ô‰4310"þ˜121,"NO MATCH FOR: ""4482U"&˜121,Ç(30)" ACCT ";T$(K);" ";U$(K);" ";V$(K);" ";L$`".10590l"0Q%(I)²Jv":‰3790"B10590"DQ%(I)²J—"Z4482Ú"b˜121,Ç(30)" ACCT ";T$(K);" ";U$(K)(10),O%(10),P%(10),Q%(10),S%(10),T%(10)Þ2î† L$(12):™Ç(147)$3ü™"ÐRINTS LIST OF ACCTS WITH CREDITS-EXTRA CHARGES-PAST DUE AMTS"k3þ™"ON 14 7/8 BY 11 GREEN BAR * ON 8 1/2 BY 11 IT WILL WRAP AROUND"3…"ENTER DATE-DISC ID-AUTORUN FILE NAME: ";X$Î3)NDING A";N$(11)à'`‹N$(11)²"A"§4950ÿ'jN$(3)²"HAVERTOWN PA 19083".(t INPUT "ENTER CITY STATE ZIP A";N$(3)W(ˆ…"ENTER SEGMENT NUMBER A";N$(5)k(’‹N$(5)²"A"§5000(œ…"ENTER STREET NAME A";N$(2)¤(¦‹N$(2)²"A"§5020Â(Ä…"ENTER NAME ))ªÄ(N%(I))ª","¶7´‹DS±20§7220Ã7¾„3,O%(I)Ó7È‹DS±20§7220à7Ò„3,P%(I)ð7Ü‹DS±20§7220ý7æ„3,Q%(I) 8ð‹DS±20§72208ô™N%(I),P$,Q$08ú‹N%(I)²1§7324B8‹N%(I)²2§7364T8‹N%(I)²3§7404f8‹N%(I)²4§7440x8"‹N%(I)²5§7476Š8,‹N%(I)²6§7514œ86‹N%(I)²)Ã(N$)«2)î-̘121,Z$(24)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "Z$(8)N$(14)þ-ÖN$²Ä(N%(5)).àN²4«(Ã(N$)«2)ª(18«Ã(Z$(11)))Y.ê˜121,Z$(11)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "Z$(10)N$(3)j.ôN$²Ä(N%(11))‹.þN²4«(Ã(N$)«2)ª(34«Ã(Z$(22)))¼.˜121,Ç(29)Z$(22)£N)È(N$,Ã());" ";V$(K);" ";L$å"lI²IªA1ô"v‹I±M%§3790þ"€‰4420#‚‹N%(I)²1§L$²"D"&#„‹N%(I)²2§L$²"D"A#†‹N%(I)²3§L$²"D NO SAT"[#ˆ‹N%(I)²4§L$²"D 1 DAY"o#Š‹N%(I)²5§L$²"S"ƒ#Œ‹N%(I)²6§L$²"S"™#Ž‹N%(I)²7§L$²"NYT"¯#‹N%(I)²8§L$²"NDC"Å#’‹N%(I)²9§L$²)…" ENTER PERIOD ENDING (ÅX: 02/06) ";R$(11)Ù310540ã3Ÿ99,4ñ3$˜99,Ç(30)74.˜99,"'LIST OF ACCTS WITH CREDITS-EXTRA CHARGES-PAST DUE AMTS'",R$p4B˜99,"TODAYS DATE:";X$;" * PERIOD ENDING: ";R$(11),R$~4V˜99,Ç(29)ˆ4`76824b 99¨4ˆÍ#1,"NEWS) A";N$(1)Ö(΋N$(1)²"A"§5060ý(Ø…"ENTER HOUSE NUMBER 0";N$(12))âT²0:R$²Ç(10)A)ì…"ENTER 0 IF SAME BILL OTHERWISE A 1 0";TO)ö‹T²0§5250w)…"ENTER DAILY INQ CHGS 0";N%(1) ) …"ENTER SUNDAY INQ CHGS 0";N%(2)Î)…"ENTER SUNDAY *7§7554®8@‹N%(I)²8§7586À8J‹N%(I)²9§7618Ê8^I²Iª1Ù8h‹I±M%§6771ã8r‰6560õ8s‹N%(1)²1§67889t‹N%(1)²2§67889u‹N%(1)²3§6788+9v‹N%(1)²5§6788=9w‹N%(1)²7§6788O9x‹N%(2)²1§6788a9y‹N%(2)²2§6788s9z‹N%(2)²3§6788…9{‹N%(2)²5§6788—9|‹N%(2)²7§6)N$)«2)ª"."ªÉ(N$,2)Ì.&N$²Ä(N%(6))Þ.0N²4«(Ã(N$)«2)/:˜121,Z$(12)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "!/NN$²Ä(N%(7))3/XN²4«(Ã(N$)«2)g/b˜121,Z$(14)£N)È(N$,Ã(N$)«2)"."É(N$,2)£15)Z$(29)w/lN$²Ä(N%(8))—/vN²4«(Ã(N$)«2)ª(34«Ã(Z$(2)))Â/€˜121,Z$(2)£N)"NDC"Ë#”Žð#ø ***CAB*** WES ROBINSON 3/29/84 $ LAST CHANGE 1/3/86$$ † Z$(30),N%(11),N$(15);$ 1:Ÿ1,8,15,"I0": 1Q$4Z$(3)²" ÆROM "p$>Z$(4)²"ÄAILY ÉNQUIRER "$HZ$(5)²"ÓUNDAY ÉNQUIRER "¥$RZ$(6)²"ÎAME: "Ä$\Z$(7)²"ÓUN Î.Ù. ÔIME*²6•D\‹P%(I)³±0§10850©D]Z$(2)²P$ª"-"ªQ$²D^TW²1ÂDbR%(2)²T%(6)ÙDf‹P%(I)±R%(15)§7650ëDg‹P%(I)²0§7650öDj10518&En IFX%=1THENF%=F%+S%(6):REM SUN ONLY CREDITNEp‹X%²6§F%²F%ªS%(6): SUN ONLY CREDITYEr10524hEv‹T³±1§7530rEz‰7650xE~€E‚*788¡9‚‰6460±9„‹L%³±0§6820Á9†‹C%³±0§6820Ñ9‹H%³±0§6820á9’‹F%³±0§6820ë9š‰6460%:¤K$²A$ª"-"ªB$ª" "ªC$ª" "ª" "ªE$ª" "ªÈ(F$,16)ª" "ªZ$(1)J:¸R%(7)²R%(1)ªR%(2)ªR%(3)ªR%(4)ªD%W:ÂX$²Ä(F%){:ÌL$(2)²È(X$,Ã(X$)«2)ª"."ªÉ(X$,2)ˆ:ÖX$²Ä(D%)¬:àL$(3)* ÁCCT# ",R$ÃJFQ$²" FROM TO "ÑJK˜121,Q$R$ûJP˜121,Ç(30)"ÄAILY INQUIRER "£8)" "%KU˜121,Ç(30)"ÓUNDAY ÉNQUIRER "£8)" "OKZ˜121,Ç(30)"ÓUN Î.Ù. TIMES "£8)" "yK_˜121,Ç(30)"ÎEWS OF ÄEL ÃO *‹P%(I)±R%(15)§7650­?¥‹P%(I)²0§7650¸?¨10518ã?¬ IFX%=0THENF%=F%+S%(1):REM SAT CREDIT@° IFX%>1THENF%=F%+S%(1):REM MON-FRI CREDIT9@²‹X%³6§F%²F%ªS%(1): MON-SAT CREDITD@´10524S@¸‹T³±1§7336]@¼‰7650c@Àk@ÄJ²2€@Å‹P%(I)³±0§10850”@ÆZ* ": 1„OàÍ#1,"NEWSMASTER",D0ŒOêI²1¨Oô„1,V$(I),A%,T%(I),S%(I)ÂOö™V$(I),A%,T%(I),S%(I)ØOþ‹V$(I)²"END"§8220âO I²Iª1ìO ‰8180ôO Î#1=P0 ™" ÐRINTING OF DAILY BILLS FROM FILES ON Ä0 LISTED IN AUTORUN FILE"nP: ™"MASTER NEWS DATA FILE ENTERED AND* J²7•Eƒ‹P%(I)³±0§10850©E„Z$(2)²P$ª"-"ªQ$¹E†R%(3)²T%(7)ÐEŠ‹P%(I)±R%(15)§7650âE‹‹P%(I)²0§7650íEŽ10518"F’ IFX%=1THENF%=F%+S%(7):REM SUN N Y TIMES CREDITOF”‹X%²6§F%²F%ªS%(7): SUN N Y TIMES CREDITZF–10524iFš‹T³±1§7566sFž‰7650{F¢J²* ²È(X$,Ã(X$)«2)ª"."ªÉ(X$,2)¾:âL$(4)²" "Í:ä‹C%²0§6910Ú:êX$²Ä(C%)þ:ôL$(4)²È(X$,Ã(X$)«2)ª"."ªÉ(X$,2) ;öL$(1)²"";ø‹H$²"0"§6910);úL$(1)²H$6;þX$²Ä(L%)Z;L$(5)²È(X$,Ã(X$)«2)ª"."ªÉ(X$,2)j;X$²Ä(R%(7))Ž;L$(6)²È(X$,Ã(X$)«2)ª"."ªÉ(X$,2)ª* "£8)" "©Kd˜121,Ç(30)"ÄEL ÃO Ä/Ó ÔIMES "£8)" NAME:"ÙKi˜121,Ç(30)" "£8)" ADDR:" Ln˜121,Ç(30)" "£8)" C&S ZIP:"9Ls˜121,Ç(30)"ÃURRENT ÃHG "£8)" ",R$vLx˜121,Ç(29)"PAST DUE "£46)"PLEASE RETURN THI* $(2)²P$ª"-"ªQ$¤@ÈR%(1)²T%(2)»@Ì‹P%(I)±R%(15)§7650Í@Í‹P%(I)²0§7650Ø@Ð10518AÔ IFX%=0THENF%=F%+S%(2):REM SAT CREDIT2AØ IFX%>1THENF%=F%+S%(2):REM MON-FRI CREDITYAÚ‹X%³6§F%²F%ªS%(2): MON-SAT CREDITdAÜ10524sAà‹T³±1§7376}Aä‰7650ƒAè* CLOSED"”PD START CONSTANTS SETUP IN ARRAYSªPN Z$(2)²" "½PX Z$(3)²" FROM "ÝPb Z$(4)²" ÄAILY INQUIRER "ýPl Z$(5)²" ÓUNDAY ÉNQUIRER "Qv Z$(6)="NAME: "6Q€ Z$(7)²" ÓUN Î.Ù. TIMES "LQŠ Z$(8)²"ADDRESS: "lQ” Z$(9)²" ÎEWS OF ÄEL*8F£‹P%(I)³±0§10850¤F¤Z$(2)²P$ª"-"ªQ$´F¦R%(4)²T%(8)ËFª‹P%(I)±R%(15)§7650ÝF«‹P%(I)²0§7650èF®10518G²‹X%²3§F%²F%ªS%(8): NEWS OF DEL CO CREDIT!G¶105240Gº‹T³±1§7598:G¾‰7650BGÂJ²9WGËP%(I)³±0§10850kGÄZ$(2)²P$ª"-"ªQ${GÆR%(4)²T%*;&A%²H%ªJ%«C%ªL%ªR%(7)«F%·;0X$²Ä(A%)Û;:L$(7)²È(X$,Ã(X$)«2)ª"."ªÉ(X$,2)í;<L$(8)²" "ü;>‹H%²0§6992 1THENF%=F%+S%(3):REM MON-FRI CREDITNBþ‹X%³5§F%²F%ªS%(3): MON-FRI CREDITYB10524hB‹T³±1§7416rB‰7650xB €BJ²4•* ÃO "ƒQž Z$(10)²"C&S ZIP: "•Q¨ Z$(23)²" TO "ÀQÆ Z$(13)²" MY NEXT VACATION DATES ARE:"ðQÐ Z$(14)²" ÃURRENT ÃHG "RÚ Z$(15)²" STOP RESTART "0Rä Z$(16)²" ÃREDIT "YRî Z$(17)²" PLEASE GIVE 3 DAYS NOTICE"zRø Z$(1*(9)’GÊ‹P%(I)±R%(15)§7650¤GË‹P%(I)²0§7650¯GÎ10518ÝGÒ‹X%²3§F%²F%ªS%(9): NEWS OF DEL CO CREDITèGÖ10524÷GÚ‹T³±1§7630HÞ‰7650 HâT²0Hæ‰6750HìLC²LCª2'Hí™LC8Hî‹LC³±58§7668OHð˜99,R$R$R$R$R$R$R$]Hò7682:K²1nHô‹LC³±59§7674ƒHö˜99*I$)±18§I$²È(I$,18)±<€O²9«Ã(L$(5))Ã<ŠP²12«Ã(L$(6))Õ<”Q²12«Ã(L$(7))ç<žR²12«Ã(L$(8))ý<¨ T=12-LEN(L$(9))=²U²12«Ã(L$(4))=´Ÿ99,4#=¸7660q=ºL$(12)²" "ªL$(8)ª" "ªL$(4)ª" "ªL$(10)ª" "ªH$ª=¼˜99,K$£M)L$(2)£N)Z$(2)*•M›K$(3)²"PLEASE GIVE THREE DAYS NOTICE"ÉM¥˜121,Ç(31)" ÄÅÎÎÉÓ ÆÒÅÅÍÁÎ ACCT#"üMª˜121,Ç(30)" ÂÏØ 217 "K$(1)/N¯˜121,Ç(30)"ÎEWTOWN ÓQUARE ÐA 19073 "K$(2)dN´˜121,Ç(30)" 353-6098 "K$(3)R$jN¹‚*B‹P%(I)³±0§10850©BZ$(2)²P$ª"-"ªQ$¹BR%(1)²T%(4)ÐB‹P%(I)±R%(15)§7650âB‹P%(I)²0§7650íB10518C  IFX%=0THENF%=F%+S%(4):REM SAT ONLY CREDITGC"‹X%²5§F%²F%ªS%(4): 1 DAY ONLY CREDITRC$10524aC(‹T³±1§7452kC,‰7650qC0yC4J²5ŽC5‹P*8)²" ÂALANCE ÄUE "R! Z$(19)="NAME "£R !Z$(20)²" ÁCCT#"ÁR!Z$(25)²" "èR !Z$(26)²"PLEASE DO NOT USE STAPLES" S*!Z$(27)²"PLEASE RETURN THIS HALF"(S,!Z$(30)²" VAC CREDIT "`S4!…" DO YOU WANT TO ENTER A BILL NOTICE Y/N";Z$(40)*,R$R$R$R$R$R$‘Hø7682:K²1¢Hú‹LC³±60§7680·Hü˜99,R$R$R$R$R$R$ÅHþ7682:K²1ËHŽIZ$²"VAC CREDIT STOP / START XCHG CURR CHG"NIY$²" BAL DUE PASTDUE CREDIT CR REASON XCHG REASON"nI˜99,Ç(29)"ACCT ",£50);Z$;Y$yI˜*£O)L$(5)£P)L$(6)£Q)L$(7)L$(12)µ=Ƙ99,""Ì=ЋÈ(F$,1)³±"H"§7142á=Ú˜99,£70)É(F$,10)í=äLC²LCª1õ=æ 99ÿ=î‰6460(>ø™ "NORMAL END OF RUN FILE CLOSED",W$2>‰7240E>  PRINT#99," "Q> N=N+1h>  IF N=51 GOTO 780w>* GOTO 720–>4™ "FILE ERROR *sN¾ 121zNÉ3©N¤ *****AUTOBILLD0***** LAST CHANGE 11/6/85ÔN® COPYRIGHT C-CIRCLE WES ROBINSON 1983O¸† Z$(60),R%(15),R$(15),N%(11),O%(11),P%(11),Q%(11),S%(11),T%(11)HO INPUT MASTER DATA FOR NEWSPAPER RATES...UŎ V$(15)lOÖ 1:Ÿ1,8,15,"I0*%(I)³±0§10850¢C6Z$(2)²P$ª"-"ªQ$²C:R%(2)²T%(5)ÉC>‹P%(I)±R%(15)§7650ÛC?‹P%(I)²0§7650æCB10518DF IFX%=1THENF%=F%+S%(5):REM SUN (WITH DAILY) CREDITNDH‹X%²6§F%²F%ªS%(5): SUN (WITH DAILY) CREDITYDJ10524hDN‹T³±1§7490rDR‰7650xDV€DZJ+vS>!‹ Z$(40)²"N"§8630·SH!™" ÔHE FIRST LINE WHERE THERE ISN'T ANY MESSAGE ENTER '^'"óSJ!™" ÆOR CENTERING WORDS MUST BE INSIDE OF QUOTES"TR!…"ENTER LINE 1 (MAX 30 CHAR)";Z$(51)2T\!‹Z$(51)²"^"§8640[Tf!…"ENTER LINE 2 (MAX 30 CHAR)";Z$(52)pT*99,""‚I LC²2ˆIŽ½I *****STUB***** COPYRIGHT (C) WES ROBINSON 1983ÌIœ:R$²Ç(10)×I#Ÿ121,4J(™Ç(147)" ÐRINTS BLANK COPIES OF YOUR BILL"0J2…"HOW MANY COPIES?";L>™ DS$¨>HÎ#3°>RN²0º>\‰6380À>fÉ>p  99Ñ>zÎ#4é>~‹V$(G)³±"STOP"§6360?„™"END OF RUN FILES CLOSED"?Ž‰3 ?V$(Q)²"STOP"&?’ŽC?˜ COMPUTATION SUBROUTINEK?œJ²1`?‹P%(I)³±0§10850t?žZ$(2)²P$ª"-"ªQ$„? R%(1)²T%(1)›?¤+0))l_Ú%N²8«(Ã(N$)«2)ª(35«Ã(Z$(25)))œ_ä% PRINT#121,TAB(N)TAB(24)" "TAB(11)Z$(26)¬_î%N$²Ä(R%(6))¾_ø%N²9«(Ã(N$)«2)í_ú%Z$(12)²" "ÿ_ü%‹R%(6)²0§9730.`þ%Z$(12)²" PAST DUE "g`&˜121,Z$(12)£N)È(N$,+p!‹Z$(52)²"^"§8640™Tz!…"ENTER LINE 3 (MAX 30 CHAR)";Z$(53)®T„!‹Z$(53)²"^"§8640×TŽ!…"ENTER LINE 4 (MAX 30 CHAR)";Z$(54)ìT˜!‹Z$(54)²"^"§8640U¢!…"ENTER LINE 5 (MAX 30 CHAR)";Z$(55)*U¬!‹Z$(55)²"^"§8640OUÀ! ENTER CONSTANTS AND OPEN FILES|UÊ!… "ENTER+0THENF%=F%+S%(1):REM SAT CREDITŠeR' IFX%>1THENF%=F%+S%(1):REM MON-FRI CREDIT•eS'10524¥eT'‹T³±1§10063°eV'‰10450¶e`'¾ej'J²2Óel'‹P%(I)³±0§10850ïen'Z$(31)²Z$(30)ªP$ª"-"ªQ$ÿet'R%(1)²T%(2)fu'‹P%(I)±R%(15)§10450*fv'‹P%(I)²0§104505fw'10518`fx'+Ã(Z$(21))±29§Z$(21)²È(Z$(21),29)‹ZT$Z$(22)²Z$(16)ªZ$(21)˜Z^$R%(8)²C%ÆZh$R%(7)²R%(1)ªR%(2)ªR%(3)ªR%(4)ªR%(5)ªD%ªJ%åZr$R%(9)²R%(7)«R%(8)ªR%(6)«F%ôZ|$ GOTO9940[†$Ÿ 121,4: BEGIN PRINT OF BILL2[$R$(13)²R$(5)ª"-"ªR$(12)R[š$N²21«(Ã(R$(13))ªÃ(R$(1))«+ "ªQ$?j(TW²1Oj(R%(2)²T%(6)gj(‹P%(I)±R%(15)§10450zj(‹P%(I)²0§10450…j(10518µj( IFX%=1THENF%=F%+S%(6):REM SUN ONLY CREDITÝj(‹X%²6§F%²F%ªS%(6): SUN ONLY CREDITèj(10524øj(‹T³±1§10263 k (‹P%(I)³±0§10850)k"(Z$(31)²Z$(30)ªP$ª"-"ªQ$4k((‰1+ Ã(N$)«2)"."É(N$,2)" "£17)Z$(26)t`&N$²Ä(F%)„`&‹F%³±0§9736–`&Z$(31)²" "·`&N²8«(Ã(N$)«2)ª(33«Ã(Z$(31)))Ø` &X$²È(N$,Ã(N$)«2)ª"."ªÉ(N$,2)õ` &˜121,Z$(31)£N)"-"X$" "a &N$²Ä(R%(8))a&‹R%(8)²0§Z$(22)²" ">a&N²8«(Ã(N$)«2)ª(33«Ã(Z$(22)))ca &Z+ PERIOD BEGINNING MM/DD";R$(10)¦UÔ!… "ENTER PERIOD ENDING MM/DD";R$(11)±UÖ!10540ÏUÞ!… "AUTORUN FILE NAME ";W$ßUè!Í#2,(W$),D0éUò!„2,T$ýUü!‹T$²"END"§10390V"‹T$²"END OF FILE"§10390*V"G²0:R$²Ç(10):V"Í#1,(T$),D0KV$"‹DS±20§10470cV." GO GET I+ IFX%=0THENF%=F%+S%(2):REM SAT CREDITfy' IFX%>1THENF%=F%+S%(2):REM MON-FRI CREDIT¶fz'‹X%³6§F%²F%ªS%(2): MON-SAT CREDITÁf{'10524Ñf|'‹T³±1§10103Üf~'‰10450âfˆ'êf’'J²3ÿf”'‹P%(I)³±0§10850g–'Z$(31)²Z$(30)ªP$ª"-"ªQ$+gœ'R%(1)²T%(3)Cg'‹P%(I)±R+ 2)[¤$˜121,Ç(30)Z$(20)R$(13)£1)R$(1)£N)" "Z$(51)š[®$˜121,Ç(30)£29)Z$(52)»[¸$N²10«(Ã(R$(10))ªÃ(R$(11))«2)í[Â$˜121,£4)Z$(3)R$(10)Z$(23)R$(11)£N)" "Z$(53)ý[Ì$N$²Ä(R%(1))\Ö$N²5«(Ã(N$)«2)B\à$˜121,Z$(4)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "Z$(54)R\ê$N$²Ä(R%+0450:k2(Bk<(J²7Wk>(‹P%(I)³±0§10850sk@(Z$(31)²Z$(30)ªP$ª"-"ªQ$ƒkF(R%(3)²T%(7)›kG(‹P%(I)±R%(15)§10450®kH(‹P%(I)²0§10450¹kI(10518îkJ( IFX%=1THENF%=F%+S%(7):REM SUN N Y TIMES CREDITlK(‹X%²6§F%²F%ªS%(7): SUN N Y TIMES CREDIT&lL(105246lM(‹T³+$(32)²È(N$,Ã(N$)«2)ª"."ªÉ(N$,2)Ža*&˜121,Z$(22)£N)"-"Z$(32)" "£27)Z$(27)¯a0&Z$(18)²" ÂALANCE ÄUE "Ùa2&‹R%(9)³0§Z$(18)²" ÃREDIT "éa4&N$²Ä(R%(9))ûa>&N²5«(Ã(N$)«2)bH&X$²È(N$,Ã(N$)«2)ª"."ªÉ(N$,2)Hbp&˜121,Ç(30)Z$(18)£N)X$" "Z$(18)£+NPUT DATA…V8"„1,A$,B$,C$,D$,E$,F$,G$,H$,I$™VB"‹B$²"END"§10010ªVL"‹DS±20§10470ÕVV"„1,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%W`"™B$;" ";C$;" ";E$;" ";H$;"=";L%;" ";I$;"=";C%;" PD=";H%"Wj"‹DS±20§10470,Wt"„1,M%=W~"‹DS±20§10470OWˆ"T²0:TW²0:F%²0WW’"I²1+%(15)§10450Vgž'‹P%(I)²0§10450agŸ'10518g ' IFX%>1THENF%=F%+S%(3):REM MON-FRI CREDIT·g¡'‹X%³5§F%²F%ªS%(3): MON-FRI CREDITÂg¢'10524Òg£'‹T³±1§10143Ýg¦'‰10450ãg°'ëgº'J²4h¼'‹P%(I)³±0§10850h¾'Z$(31)²Z$(30)ªP$ª"-"ªQ$,hÄ'R%(1)²T%(4)DhÅ'‹P%(I+(2))d\ô$N²5«(Ã(N$)«2)—\þ$˜121,Z$(5)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "Z$(55)§\%N$²Ä(R%(3))¹\%N²5«(Ã(N$)«2)Õ\%R$(14)²R$(12)ª" "ªR$(2)]&%˜121,Z$(7)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "]0%N$²Ä(R%(4))%]:%N²5«(Ã(N$)«2)Y]D%˜121,Z$(9)£N)È(N$,Ã(N$)«2)"."É(N$,+±1§10313AlP(‰10450IlZ(J²8^l\(‹P%(I)³±0§10850zl^(Z$(31)²Z$(30)ªP$ª"-"ªQ$Šld(R%(4)²T%(8)¢le(‹P%(I)±R%(15)§10450µlf(‹P%(I)²0§10450Àlg(10518ölh( IFX%=5THENF%=F%+S%(8):REM NEWS OF DEL CO CREDIT$mi(‹X%²3§F%²F%ªS%(8): NEWS OF DEL CO CREDIT/mj(10+N)X$R$sbz&Z$(33)²"ÍAKE ÃHECK ÐAYABLE & ÍAIL TO "¥b„&˜121,Ç(30)Z$(33)£5)Z$(3)R$(10)Z$(23)R$(11),R$åbŽ& PRINT#121,CHR$(29)" ÍAKE ÃHECKS ÐAYABLE & ÍAIL TO!"c˜&R$(13)²R$(5)ª"-"ªR$(12)Bc¢&˜121,Ç(29)Ç(31)" DENNIS FREEMAN ACCT# "R$(1+dWœ"„1,N%(I)uW¦"‹DS±20§10470‚W°"„1,O%(I)“Wº"‹DS±20§10470 WÄ"„1,P%(I)±WÎ"‹DS±20§10470¾WØ"„1,Q%(I)ÏWâ"‹DS±20§10470ÚWä"10850ëWæ"™N%(I),P$,Q$õWì"I²Iª1Xö"‹I±M%§8970X#‰8860X #X#I²1/X#‹N%(I)²1§10040BX#‹N%(I)²2§10080UX(#‹N%(I)²3§10120+)±R%(15)§10450WhÆ'‹P%(I)²0§10450bhÇ'10518”hÈ' IFX%=0THENF%=F%+S%(4):REM 1 DAY ONLY CREDIT¾hÉ'‹X%²5§F%²F%ªS%(4): 1 DAY ONLY CREDITÉhÊ'10524ÙhË'‹T³±1§10183ähÎ'‰10450êhØ'òhâ'J²5iä'‹P%(I)³±0§10850#iæ'Z$(31)²Z$(30)ªP$ª"-"ªQ$3iì'R%(2)²T%(5)+2)" "R$(1)f]F%N$²Ä(D%)…]H%Z$(34)²" ÄEL ÃO Ä/Ó ÔIMES"¤]J%N²24«((Ã(N$)«2)ªÃ(Z$(34)))Ú]L%˜121,Z$(34)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "R$(14)é]N%‹J%²0§9610ö]X%N$²Ä(J%)^b%Z$(28)²" PORCH SERVICE"1^l%N²24«((Ã(N$)«2)ªÃ(Z$(28)))[^v%˜121,Z$(28)£N)È(N$,Ã+524?mk(‹T³±1§10343Jmn(‰10450Rmx(J²9gmz(‹P%(I)³±0§10850ƒm|(Z$(31)²Z$(30)ªP$ª"-"ªQ$“m‚(R%(4)²T%(9)«mƒ(‹P%(I)±R%(15)§10450¾m„(‹P%(I)²0§10450Ém…(10518ÿm†( IFX%=5THENF%=F%+S%(9):REM NEWS OF DEL CO CREDIT-n‡(‹X%²3§F%²F%ªS%(9): NEWS OF DEL CO CRE+3)vc¬&˜121,Ç(30)" BOX 217 "Z$(13)ªc¶&˜121,Ç(30)" NEWTOWN SQ PA 19073 "Z$(15)àcÀ&˜121,Ç(30)" 353-6098 "£6)" "Z$(17)R$écÊ& 121ñcÔ&I²1ýcÞ&R%(I)²0dè&I²Iª1dò&‹I±10§9990 dü&‰9950/d'‹G²1§100109d'‰8760Ad'+hX2#‹N%(I)²4§10160{X<#‹N%(I)²5§10200ŽXF#‹N%(I)²6§10250¡XP#‹N%(I)²7§10290´XZ#‹N%(I)²8§10330ÇXd#‹N%(I)²9§10360ÙXn#‹N%(I)±9§9110ãXx#I²Iª1òX‚#‹I±M%§9130üXŒ#‰8980.Y–#™ "ILLEGAL NEWS TYPE CHECK FILE DATA IGNORED"RY # SET UP ARRAYS FROM INPUT DATAa+Kií'‹P%(I)±R%(15)§10450^iî'‹P%(I)²0§10450iiï'10518¡ið' IFX%=1THENF%=F%+S%(5):REM SUN (WITH DAILY) CREDITÑiñ'‹X%²6§F%²F%ªS%(5): SUN (WITH DAILY) CREDITÜiò'10524ìió'‹T³±1§10223÷iö'‰10450ýi(j (J²6j (‹P%(I)³±0§108506j (Z$(31)²Z$(30)ªP$ª"-+(N$)«2)"."É(N$,2)e^€%‰9620x^Š%˜121,£28)" "ˆ^”%N$²Ä(R%(5))©^ž%N²6«(Ã(N$)«2)ª(34«Ã(Z$(11)))á^¨%˜121,Ç(29)" "Z$(11)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "ñ^²%N$²Ä(R%(7))_¼%N²8«(Ã(N$)«2)5_Æ%˜121,Z$(14)£N)È(N$,Ã(N$)«2)"."É(N$,2)" ",R$K_Ð% N$=STR$(R%(1,DIT8nˆ(10524Hn‰(‹T³±1§10373SnŒ(‰10450mn–( END OF FILE ROUTINEun (Î#1}nª(Î#2œn´(™"END OF RUN FILES CLOSED"£n¾(‰3¹nÈ( COMMON SUB EXITÁnÒ(T²0ËnÔ(‰9080ßnÜ( ERROR ROUTINEènæ(™DS$oð(™"ERROR FILE CLOSED" oú(Î#1o)Î#2o)€2o) *GET DAY S+Î#1bd$'™"END OF RUN FILE CLOSED",T$ld.'‰8690Šd8' COMPUTATION SUBROUTINES’dB'J²1§dD'‹P%(I)³±0§10850ÃdF'Z$(31)²Z$(30)ªP$ª"-"ªQ$ÓdL'R%(1)²T%(1)ëdM'‹P%(I)±R%(15)§10450þdN'‹P%(I)²0§10450 eO'105180eP'‹X%³6§F%²F%ªS%(1): MON-SAT CREDIT[eQ' IFX%=+Yª#‹K%²4§9940pY´#‹K%²7§9940Y¾#‹TW²1§9940‘YÈ#‹N%(2)²5§9170žYÒ#R$(2)²C$«YÜ#R$(3)²D$¸Yæ#R$(3)²D$ÅYð#R$(5)²A$ÒYú#R$(1)²E$àY$R$(12)²B$îY$Z$(11)²H$Z$‹Ã(Z$(11))±34§Z$(11)²È(Z$(11),34)!Z"$R%(5)²L%.Z,$R%(6)²H%>Z6$ R%(10)=D%LZ@$Z$(21)²I$rZJ$‹,> *FILE CONCAT D1D0 PRG* COPYRIGHT (C) 1983 WES ROBINSONa LAST PROGRAM CHANGES 7/25/84Š† N%(10),O%(10),P%(10),Q%(10),V$(20)—(S$²Ç(13)©<I²1:IN²0:OU²0¹FT²0:X²0:O²0ÁPQ²1Íl™Ç(147)n™" ÔO ÃONCATONATE FILES FROM ÄRIVE 1 TO ÄR,UBROUTINE*ko) *1985 5=SAT 6=SUN 0=MON 1=TUES 2=WED 3=THUR 4=FRI*Œo) *MUST BE UPDATED JAN/1986*›o)W%²P%(I)­7­o)X%²P%(I)«W%¬7³o)ŽÉo)‹P%(I)²R%(15)§T²1áo)™P%(I),R%(15),Q%(I)óo)P%(I)²P%(I)ª1 p )‹P%(I)²Q%(I)§10532p")Ž$p$)P%(I)²0:Q%(I)²0,, l˜2,N%(I)S$O%(I)S$P%(I)S$Q%(I)S$" vI²Iª13 €‹ I±M% ‰ 660= Š‰ 620M ”‹ T²1 ‰ 830W ž‰ 290d ¨B$²"END"l ²T²1v ¼‰ 540~ ÆÎ#1 Ð DCLOSE#2¶ Ú™ "RECORDS IN ",IN,"RECORDS OUT ",OU× ä™ "END OF FILE ",W$,"CLOSED"ë îT²0:IN²0: OU=0õ ø‰ ,u*+Ž5u4+‹ J³²243 § 11100=u>+M²9IuH+D²J«243OuR+Ždu\+‹ J³²212 § 11140luf+M²8xup+D²J«212~uz+Ž“u„+‹ J³²181 § 11180›uŽ+M²7§u˜+D²J«181­u¢+ŽÂu¬+‹ J³²151 § 11220Êu¶+M²6ÖuÀ+D²J«151ÜuÊ+ŽñuÔ+‹ J³²120 § 11260ùuÞ+M²5vè+D²J«120 vò+Žvü+‹ J³²90 § , A *CODE 7* LIST PRG BY PAUL FREEMAN 8/83 LAST CHANGE 4/4/84†† Z$(25),R%(10),R$(15),N%(10),O%(10),P%(10),Q%(10),S%(10),T%(10)µ INPUT MASTER DATA FOR NEWSPAPER RATES...Â(† V$(10)È2î< START CONSTANTS SETUP IN ARRAYSôFP S$=, IVE 0 * ÕSE'LOAD AUTORUN'"bp™" AND MAKE AN AUTORUN FILE OF CUSTOMER FILES TO BE CONCATONATED"«r™" AND THIS CONCATONATING AUTORUN FILE WILL BE ON ÄRIVE 1 WITH THE"Ät™" CUSTOMER FILES:"v™" ÔHE ÎÅ× CONCATONATED CUSTOMER FILE WILL BE, p&)T²12p()Žap,) SUBROUTINE FOR M/D TO JULIAN CONVERSIONwp-)‹R$(11)²"0"§10587”p.)‹Ê(R$(11),3,1)²"/"§10550œp0)J²0³p2)™"BAD ENDING DATE"¹p4)Ìp6)Y$²È(R$(11),2)ßp8)Z$²É(R$(11),2)ëp:)Y²Å(Y$)÷p<)Z²Å(Z$)q>)‹Y²1§J²0q@)‹Y²2§J²31 qB)‹Y²3§J²59.qDí220ÿ ™ DS$ ™ "FILE ERROR FILE CLOSED"& Î#1. Î#26 *Î#4< 4D >Î#4L @Î#2Y BT²0:OU²0p H‹V$(G)³±"STOP"§200‘ R™"END OF RUN FILE CLOSED",V$— \º f™ "NO END OF FILE FILE CLOSED"Ä p‰ 680Õ zV$(Q)²"STOP"Û „Žô b‹ DS±20 ‰ 770Ã11300'v,M²42v,D²J«908v,ŽJv$,‹J³²59§ 11340Rv.,M²3]v8,D²J«59cvB,ŽwvL,‹J³²31 § 11380vV,M²2Šv`,D²J«31vj,Ž˜vt,M²1 v~,D²J¦vˆ,Ž²v’,M²0:D²0¸vœ,ŽÙvà.“"MAIN MENU",8:™"RUN";tø*D²J«304ðt+Žu +‹ J³²273 § 11060u+M²10u +D²J«273 ,CHR$(13)ZR$²Ç(10))\ 1:Ÿ1,8,15,"I": 1Nd ENTER CONSTANTS AND OPEN FILESZnŸ 121,4fp™Ç(147)°r™" ÐRINTS SEGMENT# - ADDRESS - NAME - PHONE# - NEWS TYPES"ús™" AND RESTART DATE IF ENTERED IN REASON FOR CHARGE FIELD"<, ON ÄRIVE 0">x™" AFTER RUNNING THIS PROGRAM"{‚…" ENTER AUTORUN FILE NAME OR A 'P' TO PROCESS ";V$(Q)Œ‹ V$(Q)²"P"§ 170š–Q²Qª1£ ‰130¬ª890´´G²1˾‹V$(G)²"STOP"§ 830ÞÈÍ#4,(V$(G)),D1èÒG²Gª1 Ô…" ENTER NE,)‹Y²4§J²90=qF)‹Y²5§J²120LqH)‹Y²6§J²151[qJ)‹Y²7§J²181jqL)‹Y²8§J²212yqN)‹Y²9§J²243‰qP)‹Y²10§J²273™qR)‹Y²11§J²304©qT)‹Y²12§J²334³qV)J²JªZÀqX)R%(15)²JÆqZ)Ž×q[)R%(15)²0:J²0Ýq\)Ž r^) SUBROUTINE FOR M/D TO JULIAN CONVERSION!r`)‹V$(K)²"0"§10820,21,"NAME "E$@ Ì PRINT#121,"PHONE "LEFT$(F$,3)"-"MID$(F$,4)a Î PRINT#121,"RESTART "H$i ÏI²1† И121,"NEWS TYPE "N%(I) ÒI²Iª1Ÿ Ô‹ I±M%§472¨ Ö‰464´ ؘ121,R$Ø à SET UP ARRAYS FROM INPUT DATAè ê‹ G²1 ‰ 510ò ô‰ 210ú.57 1526 BRIERWOOD HAVERTOWN PA 19083 RUHLAND 4465153 1 SUN NY TIMES 0 1480 0 0 0 0 0 0 0 0 0 0 195 2 1 0 0 0 5 0 0 0 57 1524 BRIERWOOD HAVERTOWN PA 19083 HENDRICKS 4463366 2 0 0 1489 9 0 0 0 0 ,t™" OF ACCOUNTS WITH A 7 IN CODE# FIELD "Bxg‚…" ENTER AUTORUN FILE NAME ";W$wŒÍ#3,(W$),D1–„3,T$Š ™ T$Ÿª‹ T$²"END" ‰ 600¯´Í#1,(T$),D1Á¾‹ DS±20 ‰ 660ÙÈ GO GET INPUT DATAûÒ„1,A$,B$,C$,D$,E$,F$,G$,H$,I,W FILE NAME";W$ÖÍ#2,(W$),D0,W.Ø‹ DS±20 ‰ 7708Ü„4,W$Mæ‹ W$²"END" ‰ 680`ð‹ DS±20 ‰ 770púÍ#1,(W$),D1ƒ‹ DS±20 ‰ 770¥"„1,A$,B$,C$,D$,E$,F$,G$,H$,I$±,IN²INª1Æ6‹ B$²"END" ‰ 710Ù@‹ DS±20 ‰ 770õJ‹ H$²"ÆINAL ÂILL" ‰ 350,?rh)‹Ê(V$(K),3,1)²"/" § 10640Grr)J²0‚r|)˜121,Ç(30)" ACCT ";T$(K);" ";U$(K);"BAD DATE";U$(K)ˆr†)Žšr)Y$²È(V$(K),2)¬rš)Z$²É(V$(K),2)¸r¤)Y²Å(Y$)Är®)Z²Å(Z$)Ôr¸)‹ Y²1 § J²0årÂ)‹ Y²2 § J²31örÌ)‹ Y²3 § J²59sÖ)‹ Y²4 § J²90sà)‹ Y²5 § J²120+sê)‹ , þG²0 Î#1 Î#2+ ™"END OF RUN FILE CLOSED",T$5 &‰ 150= 0G²0E :Î#1O D‰ 150i N END OF FILE ROUTINEs X  121{ bÎ#3› l™ "END OF RUN FILES CLOSED"¡ v· € COMMON SUB EXITË Š ERROR ROUTINEÕ ”™ DS$ï ž™ "ERROR FILE CLOSED"÷ -38 1635 ROSE GLEN HAVERTOWN PA 19083 GEVIRTZ 0 1 SUN NY TIMES 10/20 MISSED DEL 1655 0 200 0 0 0 0 0 0 0 0 195 3 1 0 0 0 5 0 0 0 8 0 0 0 38 1636 ROSE GLEN HAVERTOWN PA 19083 BORTNICKER 4469184 2 0 0 ,$ÜRI²RIª1æ‹ B$²"END" ‰ 560.ð‹ DS±20 ‰ 660\ú„1,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%,N%n‹ DS±20 ‰ 660x„1,M%Š‹ DS±20 ‰ 660’"I²1Ÿ,„1,N%(I)±6‹ DS±20 ‰ 660¾@„1,O%(I)ÐJ‹ DS±20 ‰ 660ÝT„1,P%(I)ï^‹ DS±20 ‰ 660üh„1,Q,TH$²M$ªX$ªO$0^„1,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%Ch‹ DS±20 ‰ 770Mr„1,M%`|‹ DS±20 ‰ 770h†I²1{ PRINT FRE(0)ˆšZ$²A$ªB$‘¤™ Z$ž®„1,N%(I)±¸‹ DS±20 ‰ 770¾Â„1,O%(I)ÑÌ‹ DS±20 ‰ 770ÞÖ„1,P%(I)ñà‹ DS±20 ‰ 770þê,Y²6 § J²151=sô)‹ Y²7 § J²181Osþ)‹ Y²8 § J²212as*‹ Y²9 § J²243ts*‹ Y²10 § J²273‡s*‹ Y²11 § J²304šs&*‹ Y²12 § J²334¤s0*J²JªZªs:*Ž²sD*J²0¸sN*Žåsb* JULIAN TO CALENDAR JD=MM/DD CWR 9/8/84ñsl*J²P%(I)ýsv* 10930 tz*X$²Ä(D)t|*Y$²Ä(M)0t€*P$²É¨Î#1ÿ ²Î#2 ¼Î#3 ÆT#121,"PHONE "LEFT$(F$,3)"-"MID$(F$,4)a Î PRINT#121,"RESTART "H$i ÏI²1† И121,"NEWS TYPE "N%(I) ÒI²Iª1Ÿ Ô‹ I±M%§472¨ Ö‰464´ ؘ121,R$Ø à SET UP ARRAYS FROM INPUT DATAè ê‹ G²1 ‰ 510ò ô‰ 210ú-B *CODE 4* LIST PRG BY PAUL FREEMAN 8/83 LAST CHANGE 3/29/84‡† Z$(25),R%(10),R$(15),N%(10),O%(10),P%(10),Q%(10),S%(10),T%(10)¶ INPUT MASTER DATA FOR NEWSPAPER RATES...Ã(† V$(10)É2ï< START CONSTANTS SETUP IN ARRAYSõFP S$, %(I)r‹ DS±20 ‰ 660|I²Iª1)†‹ I±M% ‰ 4103‰ 300Eš‹ K%³±7 ‰ 210Tœ˜121,Ç(29)€ž˜121,A$,B$" "C$,E$,È(F$,3)"-"Ê(F$,4),H$¡¤ PRINT#121,"SEG # "A$Ç® PRINT#121,"ADDRESS "B$" "C$è¸ PRINT#121,"C&S ZIP "D$  PRINT#1,„1,Q%(I) ô‹ DS±20 ‰ 770 þI²Iª1, ‹ I±M% ‰ 5406 ‰ 430f ˜2,A$S$B$S$C$S$D$S$E$S$F$S$G$S$H$S$I$S$J$S$r &OU²OUª1„ 0‹ DS±20 ‰ 770¼ :˜2,A%S$B%S$C%S$D%S$E%S$F%S$G%S$H%S$I%S$J%S$K%S$L%S$Î D‹ DS±20 ‰ 770Ö NI²1â X˜2,M%S$ô b‹ DS±20 ‰ 770,(Y$,2)ª"/"ªÉ(X$,2) 20018D,R,0,03/04qH•R 6. END OF SEGMENT(FILE) INPUT²\ ACCT# = E (E=END)Äf CODE = 0Üp PARAMETER1 = 0ôz PA-B,P,345,M Ö 20014C,P,450,MA à 20014D,P,600,Mc ê 20014E,P,800,Mi ô¡ þ 2. CREDIT TRANSACTIONS - ACCT#,CODE,AMOUNT,REASON³  ACCOUNT#Å  CODE = C  PARAMETER1 = CREDIT AMOUNT AS A WHO- 1 ROSE GLEN HAVERTOWN PA 19083 WILBUR 4462295 4 0 MISSED 10/17 1480 0 31 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 38 1629 ROSE GLEN HAVERTOWN PA 19083 DUNCAN 4466337 5 0 0 1655 0 0 0 0 0 0 0 0 - NAME ";W$ŒÍ#3,(W$),D1 –„3,T$) ™ T$>ª‹ T$²"END" ‰ 600N´Í#1,(T$),D1`¾‹ DS±20 ‰ 660xÈ GO GET INPUT DATAšÒ„1,A$,B$,C$,D$,E$,F$,G$,H$,I$¦ÜRI²RIª1»æ‹ B$²"END" ‰ 560Íð‹ DS±20 ‰ 660ûú„1,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%,N- UST BE IN SEGMENT ORDER AND]  THAT ORDER MUST BE THE SAME AS THE AUTORUN FILE WHICH IS USEDoª WITH TRANS.³´ THERE ARE FIVE TYPES OF TRANSACTION WHICH MAY BE ENTERED, ANDò¾ THE FIRST TWO TYPES WHICH MUST BE ENTERED (ACCT# & CODE):È IF - RAMETER2 = 0%„ EXAMPLE: E,0,0,0 (E STANDS FOR END)+ŽE˜ 7. END OF ALL INPUTc¢ ACCT# = L (L=LAST)u¬ CODE = 0¶ PARAMETER1 = 0¥À PARAMETER2 = 0×Ê EXAMPLE: L,0,0,0 (L STANDS FOR LAST)ÝÔ%Þ PC- LE NUMBER IE 145 = $1.45O & PARAMETER2 = CREDIT REASON IE.. MISSED DEL,STOLEN PAPER,ETCy 0 EXAMPLE: 20015B,C,50,MISSED 2/5¼ : 20015C,C,100,M NOTE: M IF NO REASON REQUIRED D N 3. EXTRA CHARGE TRANSACTIONS - ACCT#,CO- 0 0 0 1 6 0 0 0 38 1632 ROSE GLEN HAVERTOWN PA 19083 KEARNEY 4461868 6 0 0 1655 0 0 0 0 0 0 0 0 0 0 0 3 1 0 0 0 5 0 0 0 8 0 0 0 38 1628 ROSE GLEN HAVERTOWN PA 19083 0 0 7 0 0 0 -% ‹ DS±20 ‰ 660„1,M%)‹ DS±20 ‰ 6601"I²1>,„1,N%(I)P6‹ DS±20 ‰ 660]@„1,O%(I)oJ‹ DS±20 ‰ 660|T„1,P%(I)Ž^‹ DS±20 ‰ 660›h„1,Q%(I)­r‹ DS±20 ‰ 660·|I²Iª1Ȇ‹ I±M% ‰ 410Ò‰ 300äš‹ K%³±4 ‰ 210þ¤˜121,"SEG # -DUPLICATE TRANSACTIONS ARE ENTERED DUE TO OPERATOR ERROR OR ANÒ ATTEMPT TO FIX A MISTAKE.. THE LAST ENTERED WILL BE THE ONLY ONEÜ APPLIED.Óæ ADJUST PROGRAM IF SEGMENT# IS MORE THAN 3 DIGITS * LINE 1450Ùð ú A. TRANSACTION CONSIST'S -= NUMBER OF PASTDUES PER SEGMENT PT= TOTAL NUMBER OF PASTDUESmè PA= AMOUNT OF PASTDUES PER SEGMENT PS= TOTAL AMOUNT OF PASTDUES´ò CC= NUMBER OF CREDITS PER SEGMENT CT= TOTAL NUMBER OF CREDITSûü CA= AMOUNT OF CREDIT PER SEGMENT CS= -DE,AMOUNT,REASON X ACCOUNT#$ b CODE = XS l PARAMETER1 = XCHG AMOUNT (125 =$1.25)Š v PARAMETER2 = EXTRA CHARGE REASON (SUNDAY DEL)» € EXAMPLE: 20016B,X,125,SUNDAY DEL 02/04î Š 20016C,X,245,PAPERS 01/02-01/07- 0 0 0 0 0 0 0 0 0 4 0 0 0 0 0 0 38 1625 ROSE GLEN HAVERTOWN PA 19083 MC NALLY 8533454 8 0 0 825 0 0 0 0 0 0 1655 0 150 0 0 3 1 0 0 0 5 0 0 0 8 0 0 0 38 1626 ROSE - "A$®˜121,"ADDRESS "B$" "C$7¸˜121,"C&S ZIP "D$Q˜121,"NAME "E$z̘121,"PHONE "È(F$,3)"-"Ê(F$,4)‚ÎI²1ŸÐ˜121,"NEWS TYPE "N%(I)©ÒI²Iª1¸Ô‹ I±M%§472ÁÖ‰464Íؘ121,R$ñà SET UP ARRAYS FROM INPUT DATA ê-OF FOUR FIELDS:F 1. ACCOUNT NUMBER = SEGMENT# + HOUSE # (A$+B$)b 2. TRANSACTION CODES„" A. P = PASTDUE TO ENTER¥, B. C = CREDIT TO ENTERÌ6 D. X = EXTRA CHARGE TO ENTERë@ E. S = VACATION STOP J F.¥TOTAL AMOUNT OF CREDITS@ XC= NUMBER OF XCHGS PER SEGMENT XT= TOTAL NUMBER OF XCHG'S… XA= AMOUNT OF XCHG'S PER SEGMENT XS= TOTAL AMOUNT OF XCHG'S0¥À PARAMETER2 = 0×Ê EXAMPLE: L,0,0,0 (L STANDS FOR LAST)ÝÔ%Þ PC-ô ”9 ž 4. VACTION STOP - ACCT#,CODE,0 (FOR ALL PAPER TYPES),STOP DATEK ¨ ACCOUNT#] ² CODE = S‹ ¼ PARAMETER1 = 0 (FOR ALL PAPER TYPES)À Æ PARAMETER2 = VACATION STOP DATE (EX: 02/06)ä Ð EXAMPLE: 20017B,S,0,02/06Ú -GLEN HAVERTOWN PA 19083 SHWER 4494026 9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 38 1624 ROSE GLEN HAVERTOWN PA 19083 FORMAN 4468493 10 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 1 -‹ G²1 ‰ 510 ô‰ 210 þG²0 Î#1# Î#2D ™"END OF RUN FILE CLOSED",T$N &‰ 150V 0G²0^ :Î#1h D‰ 150‚ N END OF FILE ROUTINEŒ X  121” bÎ#3´ l™ "END OF RUN FILES CLOSED"º vÐ € COMMON SUB EXITä Š ERROR ROUTINEî ”™ DS$ ž™- R = VACTION RESTARTBT G. E = END OF INPUT FOR THIS SEGMENT(FILE).e^ H. L = END OF ALL INPUT.šh 3. PARAMETER1 DIFFERS WITH TRANSACTION TYPE..Ðr 4. PARAMETER2 DIFFERS WITH TRANSACTION TYPE...Ö| † ....TRANSACTION SYN. 0 0 0 5 0 0 0 38 1624A ROSE GLEN HAVERTOWN PA 19083 0 0 11 0 0 1480 0 0 0 0 0 0 0 0 0 4 0 0 0 0 0 0 38 1623 ROSE GLEN HAVERTOWN PA 19083 0 0 12 0 0 960 0 0 0 0 0 0 0 0 0 4 0 - 20017C,S,0,02/20,ä 20017D,S,0,02/142îuø 5. RESTART - ACCT#,CODE,0 (FOR ALL PAPER TYPES),RESTART DATE‡ ACCOUNT#™  CODE = RÇ PARAMETER1 = 0 (FOR ALL PAPER TYPES)ÿ  PARAMETER2 = VACATION RES- 1480 0 0 0 0 0 0 0 0 0 0 0 2 1 0 336 343 5 0 336 343 38 1634 ROSE GLEN HAVERTOWN PA 19083 GORMLEY 4493944 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 38 1636 "ERROR FILE CLOSED" ¨Î#1 ²Î#2 ¼Î#3& ÆIP "D$Q˜121,"NAME "E$z̘121,"PHONE "È(F$,3)"-"Ê(F$,4)‚ÎI²1ŸÐ˜121,"NEWS TYPE "N%(I)©ÒI²Iª1¸Ô‹ I±M%§472ÁÖ‰464Íؘ121,R$ñà SET UP ARRAYS FROM INPUT DATA ê-TAX DETAILS..... @ š 1. PASTDUE TRANSACTIONS - ACCT#,CODE,AMOUNT,MR ¤ ACCOUNT#d ® CODE = P¬ ¸ PARAMETER1 = PASTDUE AMOUNT AS A WHOLE NUMBER IE 3456 = $34.56Û Â PARAMETER2 = ENTER M (OR HIT ANY KEY)ý Ì EXAMPLE: 20014. 0 0 0 0 0 38 1621 ROSE GLEN HAVERTOWN PA 19083 RUSSO 7897293 13 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 38 1619 ROSE GLEN HAVERTOWN PA 19083 MORSE 0 14 0 0 1480 0 0 0 0 0 0 .ERTOWN PA 19083 NICHOLLS 4499139 6 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 57 1523 BRIERWOOD HAVERTOWN PA 19083 BECK 4462605 7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 6 0 0 ·0 0 0 0 0 0 0 0 0 0 0 1 6 0 0 0 END END END HAVERTOWN PA 19083 BALK 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 6 0 0 0 N HAVERTOWN PA 19083 FOX 0 21 0 0 1480 0 0 0 0 0 0 0 0. 0 279 293 57 1510A BRIERWOOD HAVERTOWN PA 19083 0 0 17 0 0 1480 0 0 0 0 0 0 0 0 0 4 0 0 0 0 0 0 57 1513 BRIERWOOD HAVERTOWN PA 19083 MC FADDEN 4498707 18 0 0 1489 9 0 0 0 0 0 0 0 0 0 . 0 31 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 57 1501 BRIERWOOD HAVERTOWN PA 19083 COSTELLO 4468237 26 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 END END END HAVERTO. 0 0 0 0 0 2 1 0 0 0 5 0 0 0 38 1618 ROSE GLEN HAVERTOWN PA 19083 0 0 15 0 0 1480 0 0 0 0 0 0 0 0 0 4 0 0 0 0 0 0 38 1616 ROSE GLEN HAVERTOWN PA 19083 CHERASHORE 4463108 16 0 0 1480 . 0 57 1518 BRIERWOOD HAVERTOWN PA 19083 DALLAS 7891724 8 0 0 960 0 0 0 0 0 0 0 0 0 0 0 1 2 0 0 0 57 1521 BRIERWOOD HAVERTOWN PA 19083 MAC LAREN 4463213 9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 . 58 1431 BRIERWOOD HAVERTOWN PA 19083 SPROLES 4462059 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 6 0 0 0 58 1429 BRIERWOOD HAVERTOWN PA 19083 YADAVAIA 4498250 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 1 0 . 0 1 6 0 0 0 57 1511 BRIERWOOD HAVERTOWN PA 19083 LICCI 4492257 19 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 57 1509 BRIERWOOD HAVERTOWN PA 19083 QUINTUS 4496903 20 0 0 1489 9 0 0WN PA 19083 BLUMENTHAL 4497092 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 0 9 0 2 1 0 0 0 5 0 0 0 57 1503 BRIERWOOD HAVERTOWN PA 19083 BENSON 4466171 25 0 MISSED 10/14 960 .0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 38 1617 ROSE GLEN HAVERTOWN PA 19083 LEVENTHAL 4467339 17 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 38 1614 ROSE GLEN.6 0 0 0 57 1516 BRIERWOOD HAVERTOWN PA 19083 0 0 10 0 0 0 0 0 0 0 0 0 0 0 0 4 0 0 0 0 0 0 57 1519 BRIERWOOD HAVERTOWN PA 19083 CONWAY 4496529 11 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 1 . 0 0 5 0 0 0 58 1427 BRIERWOOD HAVERTOWN PA 19083 0 0 3 0 0 0 0 0 0 0 0 0 0 0 0 4 0 0 0 0 0 0 58 1428 BRIERWOOD HAVERTOWN PA 19083 BOYAJIAN 4498874 4 0 0 1480 0 0 0 0 0 0 0 0 0 0 . 0 0 0 0 0 0 9 0 2 1 0 0 0 5 0 0 0 57 1506 BRIERWOOD HAVERTOWN PA 19083 RUGGEAR 7895487 21 0 0 1489 9 0 0 0 0 0 0 0 0 9 0 2 1 0 0 0 5 0 0 0 57 1504 BRIERWOOD HAVERTOWN /4469190 8 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 58 1418 BRIERWOOD HAVERTOWN PA 19083 SULPIZIO 4464752 9 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 1 6 0 0 0 58 1415 BRIER. HAVERTOWN PA 19083 LIPSON 4464687 18 0 0 1655 0 0 0 0 0 0 0 0 0 0 0 3 1 0 0 0 5 0 0 0 8 0 0 0 38 1615 ROSE GLEN HAVERTOWN PA 19083 DEMPSEY 4491255 19 0 0 0 0 0 0 0 0 0 0 0 0 0. 0 0 0 5 0 0 0 57 1514 BRIERWOOD HAVERTOWN PA 19083 MC CANS 4467494 12 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 57 1517 BRIERWOOD HAVERTOWN PA 19083 MASON 7896990 13 0 0 1664 9 0 .0 2 1 0 0 0 5 0 0 0 58 1424 BRIERWOOD HAVERTOWN PA 19083 PASTERNACK 0 5 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 1 0 285 289 5 0 285 289 58 1422 BRIERWOOD HAVERTOWN PA 19083 WILF 7892057 6 0 0.0 0 0 0 9 0 2 1 0 0 0 5 0 0 0 57 1529 BRIERWOOD HAVERTOWN PA 19083 HEBDEN 4497668 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 6 0 0 0 57 1522 BRIERWOOD HAVERTOWN PA 19083 CONNOLLY 0 4 0 0 1489 .PA 19083 BUCKLEY 4467610 22 0 0 1489 9 0 0 0 0 0 0 0 0 9 0 2 1 0 0 0 5 0 0 0 57 1507 BRIERWOOD HAVERTOWN PA 19083 GRIESSER 4461258 23 0 0 1489 9 0 0 0 0 0 0 0 0 9 0 2 1 0 0 . 0 1 6 0 0 0 38 1612 ROSE GLEN HAVERTOWN PA 19083 BETANCOURT 4463478 20 0 0 960 0 0 0 0 0 0 0 0 0 4 0 0 0 0 0 0 38 1611 ROSE GLEN HAVERTOWN PA 19083 FOX 0 21 0 0 1480 0 0 0 0 0 0 0 0.0 0 0 0 0 0 0 9 0 3 1 0 0 0 5 0 0 0 8 0 0 0 57 1512 BRIERWOOD HAVERTOWN PA 19083 ELLIOTT 7896762 14 0 0 1664 9 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 57 1512A B. 960 0 0 0 0 0 0 0 0 0 0 0 1 2 0 0 0 58 1419 BRIERWOOD HAVERTOWN PA 19083 MC CREESH 7892022 7 0 0 825 0 0 0 0 0 0 0 0 0 4 0 0 0 0 0 0 58 1420 BRIERWOOD HAVERTOWN PA 19083 BARBET . 9 0 0 0 0 0 0 0 0 9 0 2 1 0 0 0 5 0 0 0 57 1527 BRIERWOOD HAVERTOWN PA 19083 CULL 7891654 5 0 0 1489 9 0 0 0 0 0 0 0 0 9 0 2 1 0 0 0 5 0 0 0 57 1525 BRIERWOOD HAV. 0 5 0 0 0 57 1502 BRIERWOOD HAVERTOWN PA 19083 APPLEGATE 7892232 24 0 0 1489 9 0 0 0 0 0 0 0 0 9 0 2 1 0 0 0 5 0 0 0 57 1503 BRIERWOOD HAVERTOWN PA 19083 BENSON 4466171 25 0 MISSED 10/14 960 . 0 0 0 2 1 0 0 0 5 0 0 0 38 1608 ROSE GLEN HAVERTOWN PA 19083 SIMIRIGLIO 4465226 22 0 0 960 0 0 0 0 0 0 0 0 0 0 0 1 2 0 0 0 38 1607 ROSE GLEN HAVERTOWN PA 19083 BALK 4499861 23 0 0 0 .RIERWOOD HAVERTOWN PA 19083 0 0 15 0 0 1664 9 0 0 0 0 0 0 0 0 4 0 0 0 0 0 0 57 1510 BRIERWOOD HAVERTOWN PA 19083 LARSON 7893948 16 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 1 0 279 293 5/59 512 ROYAL HAVERTOWN PA 19083 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 4 0 0 0 0 0 0 59 517 ROYAL HAVERTOWN PA 19083 BELL 4466052 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 6 0 0 0 59 521 ROYAL HAVE/0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 58 1411 BRIERWOOD HAVERTOWN PA 19083 BLENDER 4497322 14 BALANCE 9/25 0 1480 0 0 0 0 0 0 0 0 0 0 20 2 1 0 0 0 5 0 0 0 58 1411A BR/60 200 N BELFIELD HAVERTOWN PA 19083 D'EMILIO 8531778 1 0 0 1480 0 0 0 0 0 0 1480 0 0 0 0 2 1 0 0 0 5 0 0 0 60 201 N BELFIELD HAVERTOWN PA 19083 KELLER 4492447 2 0 0 0 0 0 0 0 0 0 0 0 0 í3 DE PANPHILIS 4469479 24 0 0 960 0 0 0 0 0 0 0 0 0 0 0 1 6 0 0 0 END END END HAVERTOWN PA 19083 DE PAMPHILIS 4469475 1 0 0 960 0 0 0 0 0 0 0 0 0 0 0 1 6 0 0 0 9083 MACKELL 44692/ 0 4 0 0 0 0 0 0 60 225 N BELFIELD HAVERTOWN PA 19083 ZIEGLER 7892119 10 0 MISSED SUN INQ 10/13 1480 0 110 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 60 229 N BELFIELD HAVERTOWN PA 19083 VAUGHAN / RTOWN PA 19083 QUINN 0 3 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 59 524 ROYAL HAVERTOWN PA 19083 SCHWARTZ 4465920 4 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 / IERWOOD HAVERTOWN PA 19083 0 0 15 0 0 1480 0 0 0 0 0 0 0 0 0 4 0 0 0 0 0 0 58 1409 BRIERWOOD HAVERTOWN PA 19083 0 0 16 0 0 1480 0 0 0 0 0 0 0 0 0 4 0 0 0 0 0 0 58 1410 BRIERWOOD / 0 0 1 6 0 0 0 60 204 N BELFIELD HAVERTOWN PA 19083 DEL VECCHIO 4497541 3 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 60 205 N BELFIELD HAVERTOWN PA 19083 PIZIO 4461251 4 0 0 1480 0 / 6 0 0 0 60 232 N BELFIELD HAVERTOWN PA 19083 BONSALL 7890541 17 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 1 2 0 0 0 60 228 N BELFIELD HAVERTOWN PA 19083 DI GIANTOMASSO 0 18 0 0 1655 0 0 0 0 0 0 0 0 0/4490730 11 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 1 6 0 0 0 60 233 N BELFIELD HAVERTOWN PA 19083 FLYNN 4464680 12 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 60 237 N BELFI/ 0 0 0 59 533 ROYAL HAVERTOWN PA 19083 KELLEHER 4466581 5 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 1 0 276 283 5 0 276 283 59 530 ROYAL HAVERTOWN PA 19083 KAMAR 4466581 6 0 0 1480 0 0 1275 0 0 0/HAVERTOWN PA 19083 LANDES 0 17 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 58 1408 BRIERWOOD HAVERTOWN PA 19083 SFORZA 8533854 18 0 0 960 0 0 0 0 0 0 0 0 0 0 0 1 2 0 0 / 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 60 208 N BELFIELD HAVERTOWN PA 19083 CRISCUOLO 4461567 5 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 60 209 N BELFIELD HA/ 0 0 3 1 0 0 0 5 0 0 0 8 0 0 0 60 220 N BELFIELD HAVERTOWN PA 19083 BELLANO 8531198 19 0 0 1655 0 0 0 0 0 0 0 0 0 0 0 3 1 0 0 0 5 0 0 0 8 0 0 0 60 248 N BELFIELD /ELD HAVERTOWN PA 19083 MONTZ 4499792 13 0 0 960 0 0 0 0 0 0 0 0 0 0 0 1 2 0 0 0 60 241 N BELFIELD HAVERTOWN PA 19083 0 0 14 0 0 960 0 0 0 0 0 0 0 0 0 4 0 0 0 0 0 0 60 245 N BELFI/ 0 0 0 0 0 0 0 0 0 0 59 534 ROYAL HAVERTOWN PA 19083 SCHUTSKY 8534933 7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 6 0 0 0 59 540 ROYAL HAVERTOWN PA 19083 SMYTH 4498477 8 0 0 0 0 0 0 0 0 0 / 0 58 1406 BRIERWOOD HAVERTOWN PA 19083 KIMBLE 7892148 19 0 0 960 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 58 1404 BRIERWOOD HAVERTOWN PA 19083 ROTHMAN 7891076 20 0 0 1480 0 0 0 0 0 0 1480 /VERTOWN PA 19083 FERRONI 7898551 6 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 1 0 288 299 5 0 288 299 60 212 N BELFIELD HAVERTOWN PA 19083 PISELLE 4498223 7 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 0HAVERTOWN PA 19083 LEUTE 4492612 20 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 60 248A N BELFIELD HAVERTOWN PA 19083 0 0 21 0 0 1480 0 0 0 0 0 0 0 0 0 4 0 0 0 0 0 0 /WOOD HAVERTOWN PA 19083 KARDAS 4498430 10 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 58 1416 BRIERWOOD HAVERTOWN PA 19083 BUCKLEY 4461206 11 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 /0 0 0 4 0 0 0 0 0 0 59 550 ROYAL HAVERTOWN PA 19083 0 0 9 0 0 960 0 0 0 0 0 0 0 0 0 4 0 0 0 0 0 0 59 552 ROYAL HAVERTOWN PA 19083 CORDES 7893963 10 0 0 1480 0 0 0 0 0 0 1050 0 / 0 0 0 0 2 1 0 0 0 5 0 0 0 58 1405 BRIERWOOD HAVERTOWN PA 19083 TRIVELIS 0 21 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 58 1403 BRIERWOOD HAVERTOWN PA 19083 MACKELL 44692/ 1 0 0 0 5 0 0 0 60 216 N BELFIELD HAVERTOWN PA 19083 DOUGHERTY J 4494451 8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 6 0 0 0 60 221 N BELFIELD HAVERTOWN PA 19083 0 0 9 0 0 0 0 0 0 0 0 0 0 0 /ELD HAVERTOWN PA 19083 GIBSON 4490152 15 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 60 244 N BELFIELD HAVERTOWN PA 19083 KELLY 4497473 16 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 1 / 1 0 0 0 5 0 0 0 58 1413 BRIERWOOD HAVERTOWN PA 19083 MENDEZ 7893920 12 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 58 1414 BRIERWOOD HAVERTOWN PA 19083 GOMBERG 0 13 0 0 1480 0 É 0 0 0 2 1 0 0 0 5 0 0 0 END END END HAVERTOWN PA 19083 CORDES 7893963 1 0 0 1480 0 0 0 0 0 0 1050 0 0 0 0 2 1 0 0 0 5 0 0 0 083 SMYTH 4498477 8 0 0 0 0 0 0 0 0 0 /15 22 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 6 0 0 0 58 1402 BRIERWOOD HAVERTOWN PA 19083 GOLDENBERG 4499109 23 0 0 960 0 0 0 0 0 0 0 0 0 0 0 1 3 0 0 0 58 1401 BRIERWOOD HAVERTOWN PA 190805 ***AUTORUN LIST*** BY PAUL FREEMAN 3/84 19073~™Ç(147)" ÐRINTS FILE NAMES THAT ARE IN AN AUTORUN FILE"†™""“(R$²Ç(10)ž2Ÿ121,4À<…"ENTER AUTORUN FILE NAME";D$ÐFÍ#1,(D$),D1éP˜121,Ç(29)ªÇ(31)D$R$óZ„1,A$d‹ A$²"061 256 JAMES HAVERTOWN PA 19083 DAVIS 7890689 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 6 0 0 0 61 253 JAMES HAVERTOWN PA 19083 KILROY 4496958 2 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 501 ***LIST NEWSMASTER*** LAST CHANGE 3/31/84H  1:Ÿ1,8,15,"I0": 1TŸ 121,4lÍ#1,"NEWSMASTER",D0˜ ™" NEWSMASTER RATE SCHEDULE "Ì$˜121," NEWSMASTER RATE SCHEDULE "Ø&˜121,""(™" TYPE NEWS CODE / PERIO0 COSTANZO 4499436 10 0 0 825 0 0 0 0 0 0 0 0 0 0 0 3 1 0 0 0 5 0 0 0 8 0 0 0 61 232 JAMES HAVERTOWN PA 19083 MACKAY 4465518 11 0 0 825 0 0 0 0 0 0 0 0 0 0 0 1 6 0 00 A ***LOAD AUTORUN PROGRAM*** COPYRIGHT(C) WES ROBINSON 1983[ UPDATED 1/29/83/CWRhS$²Ç(13)u(R$²Ç(10)*™Ç(147)Ì,™" ÅNTER CUSTOMER FILES IN FILE/SEG # ORDER FOR AUTOMATIC PROCESSING"ù2…"ENTER DATE AND TIME MM/DD/YY HHMM";D$<;END" ‰ 130n˜121,Ç(30)A$"x‰ 90*‚Î#15Œ 121:T DUE ",H%e ¸ PRINT#121,"LATE CHARGE ",I%Š  PRINT#121,"DOOR SERVICE ",J%¯ Ì PRINT#121,"THANKSGIVING ",K%Ñ à˜121,"NUMBER OF TYPES ",M%Ù êI²1 ô˜121,"TYPE :NOT DELI0 0 0 0 61 252 JAMES HAVERTOWN PA 19083 0 0 3 0 0 1480 0 0 0 0 0 0 0 0 0 4 0 0 0 0 0 0 61 249 JAMES HAVERTOWN PA 19083 TOMPKINS 4465205 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 6 0 0 ÿD COST / SINGLE COPY "2™""d<˜121," TYPE NEWS CODE PERIOD COST / SINGLE COPY "pF˜121,""ƒP„1,A$,A%,B%,C%•Z™ A$,A%,B%,C%ªd˜121,A$,A%,B%,C%¿x‹ A$²"END" ‰ 134È‚‰ 80ᆠPRINT#121,CHR$(12)éŒÎ#1ó–  121ù 0 0 61 233 JAMES HAVERTOWN PA 19083 GENTILE 4495814 12 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 1 6 0 0 0 61 229 JAMES HAVERTOWN PA 19083 KENIS 4497876 13 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 6 0 0Ÿ121,4F˜121,D$R$PZ$²"0"@Z… "ENTER AUTORUN FILE NAME";W$Nd˜121,W$R$rn˜121,"ÁÕÔÏÒÕÎ ÆÉÌÅ SEQUENCE",R$„xÍ#1,(W$),D1,W–‚‹ DS±20 ‰ 290ÆŒ… "ENTER CUSTOMER FILE NAME OR E A";A$Ù–‹ A$²"A" ‰ 140ì ‹ A$²"E" ‰ 220øª˜1,A$S$ ´0@ *LOAD NEWSMASTER* PRG C-CIRCLE WES ROBINSON 12/28/82W  1:Ÿ1,8,15,"I0": 1dS$²Ç(13)q(R$²Ç(10)})™Ç(147)È*™" ÃREATES A ÓCHEDULE OF ÒATES & ÎEWSPAPERS FOR ÂILLING "ù2… " ENTER DATE AND TIME MM/DD/YY HHMM";D$<0 0 61 248 JAMES HAVERTOWN PA 19083 COADY 7891886 5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 61 245 JAMES HAVERTOWN PA 19083 FRENCH 4464363 6 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 20@ COPYRIGHT C-CIRCLE WES ROBINSON 1983 114 ASHLEY RD 19073… LABEL PRG CONVERTED TO **NAME SEARCH DF** BY PAUL FREEMAN 3/83ž LAST CHANGE 4/4/84ì† L$(3),W$(3),X$(3),Y$(3),Z$(3),U$(3),V$(3),N%(5),O%(5),P%(5),Q%(5),Q$(3)ø ™Ç(147)@"™10 0 61 228 JAMES HAVERTOWN PA 19083 MC GEE 4494704 14 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 61 225 JAMES HAVERTOWN PA 19083 CALLAGHAN 4494695 15 0 0 0 0 0 0 0 0 0 0 0 0 0ë‹ DS±20 ‰ 290¾˜121,A$ ȉ 1404Ò‹ A$³±"E" ‰ 140AÜA$²"END"Mæ˜1,A$S$UðÎ#1dú˜121,Ç(12)m 121Ž™ "END OF INPUT FILE CLOSED"”œ"Î#1«,˜121,Ç(12)´6 121¾@™ DS$ÝJ™ "FILE ERROR FILE CLOSED"ãT/DD/YY HHMM";D$<0Ÿ121,4 F121P˜121,D$GZ… " ENTER NEWSMASTER FILENAME @FN";W$Sd˜121,W$enÍ#1,(W$),D0,Wwx‹ DS±20 ‰ 330À‚˜121,"ÔITLE OF ÎEWSPAPER TYPE / PERIOD COST / SINGLE ISSUE"R$ðŒ… "ENTER NEWSPAPER TITLE MAX 25 CHARS ";A$ –… "ENTE0 1 0 0 0 5 0 0 0 61 241 JAMES HAVERTOWN PA 19083 SAUNDERS 4490705 7 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 4 0 0 0 6 0 0 0 61 237 JAMES HAVERTOWN PA 19083 SMITH JOS 7892663 8 0 0 1480 0 00" ÎAME MUST BE SPELLED EXACTLY AS IT IS IN YOUR FILE"‹$™" ÌAST NAME MUST BE THE FIRST ENTRY IN THE NAME FIELD (E$)"“&™""Ï(…"ENTER LAST NAME , NUMBER OF LETTERS IN NAME";Z$(1),Z%ò1… "ENTER AUTORUN FILE NAME";V$2Í#2,(0 ‰ 670ÈJ²1Ò„1,N%(J)'Ü‹ DS±20 ‰ 6704á„1,O%(J)Fâ‹ DS±20 ‰ 670Sã„1,P%(J)eä‹ DS±20 ‰ 670rå„1,Q%(J)„æ‹ DS±20 ‰ 670ŽðJ²Jª1Ÿú‹ J±M% ‰ 265©‰ 210² ™ E$Í ‹ È(E$,Z%)³±Z$(1) ‰ 90×;I²Iª1ã=™Ç(147)ù™"SEGMENT# IS",A‚ýŠT²1 ‹ I²1 ‰ 610 ”‰ 320! ž™ DS$@ ¨™ "FILE ERROR FILE CLOSED"F ²N Î#2n *™ "END OF RUN FILES CLOSED"t 4±20 ‰ 670ŽðJ²Jª1Ÿú‹ J±M% ‰ 265©‰ 210² ™ E$Í ‹ È(E$,Z%)³±Z$(1) ‰ 90×;I²Iª1ã=™Ç(147)ù™"SEGMENT# IS",A0R TYPE CODE";A%( … "ENTER PERIOD COST";B%Kª… "ENTER SINGLE ISSUE COST";C%l¯ INPUT "ENTER TYPE CODE";A%„´˜1,A$S$A%S$B%S$C%S$–¾‹ DS±20 ‰ 330ËȘ121,A$;£25«Ã(A$));A%;" ";B%;" ";C%çÒ… "ARE YOU DONE Y/N";Z$úÜ‹ Z$²"N" ‰ 1400 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 61 240 JAMES HAVERTOWN PA 19083 HUGHES 4494755 9 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 61 236 JAMES HAVERTOWN PA 190830V$),D1 4„2,T$!5‹ T$²"END" ‰ 8001<Í#1,(T$),D19FT²0API²1cZ„1,A$,B$,C$,D$,E$,F$,G$,H$,I$xd‹ B$²"END" ‰ 650•n‹ B$²"END OF FILE" ‰ 650§Œ‹ DS±20 ‰ 670Ò–„1,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%ä ‹ DS±20 ‰ 6701,M%´‹ DS±200$š™"STREET IS ",C$%¤™"HOUSE# IS ",B$;®™"NAME IS ",E$Q¸™"SEQUENCE IS",G$g½™"PHONE# IS ",F$Â…"DO YOU WANT TO CONTINUE Y/N";Z$ŸÌ‹ Z$²"N" ‰800¯:‹ T²1 ‰ 610¸D‰ 80ÀbÎ#1Êg  121ìl™ "END OF RUN FILE CLOSED",T$õ€‰ 521DAILY INQUIRER 1 930 31 DAILY INQUIRER 2 960 32 DAILY INQUIRER 3 825 33 DAILY INQUIRER 4 350 35 SUNDAY INQUIRER 5 550 110 SUNDAY INQUIRER 6 1150 115 SUN N.Y. TIMES 7 975 195 NEWS OF DEL CO 8 175 35 Ö æ˜121,Ç(12)ðA$²"END"úA%²0(B%²01C%²0I˜1,A$S$A%S$B%S$C%S$Q"Î#1Z, 121‚6™ "NORMAL END OF INPUT FILE CLOSED"ˆ@’J™ DS$šTÎ#1¤^ #121Æh™ "FILE ERROR FILE CLOSED",W$ÌrAPER TITLE MAX 25 CHARS ";A$ –… "ENTE END END END HAVERTOWN PA 19083 LEUTE 4492612 1 0 0 1480 0 0 0 0 0 0 0 0 0 4 0 0 0 0 0 0 1655 0 0 0 0 0 0 0 0 0 0 0 3 1 0 0 0 5 0 0 0 8 0 0 0 60 248 N BELFIELD 1@ COPYRIGHT C-CIRCLE WES ROBINSON 1983 114 ASHLEY RD 19073s THREE UP LABEL PROGRAM LAST CHANGE 4/2/84´ REVISED TO ***SO COUNT*** PROGRAM BY PAUL FREEMAN 10/16/83À(D²0:G²02† L$(3),W$(3),X$(3),Y$(3),Z$(3),U$(3),V$(50),N%(5),O%(5),1NEWS OF DEL CO 9 350 35 END 0 0 0 ™ "FILE ERROR FILE CLOSED"F ²N Î#2n *™ "END OF RUN FILES CLOSED"t 4±20 ‰ 670ŽðJ²Jª1Ÿú‹ J±M% ‰ 265©‰ 210² ™ E$Í ‹ È(E$,Z%)³±Z$(1) ‰ 90×;I²Iª1ã=™Ç(147)ù™"SEGMENT# IS",A1(1))) O²27«(Ã(X$(2))ªÃ(Q$(2)))Y ˜130,Q$(1);" ";X$(1);£N);Q$(2);" ";X$(2);£O);Q$(3)" ";X$(3)k N²24«Ã(U$(1))} *O²24«Ã(U$(2))© 4˜130,Ç(29)ªÇ(31)U$(1);£N)U$(2);£O)U$(3)» >N²29«Ã(V$(1))Í HO²29«Ã(V$(2))ù R˜130,Ç(30)V$(1);£N)V$(2);£O)V$(31  ™Ç(147)K ™" ÓÐÉΠÄÉÓË IS USED WHEN CLEANING DISK HEADS"S™""™" ÓÅÅ ÉÎÓÔÒÕÃÔÉÏÎÓ IN ÄRIVE ÃLEANING ËIT"—™""´™"HIT 0 TO SPIN DRIVE 0"Ñ™"HIT 1 TO SPIN DRIVE 1"ò™"HIT 2 TO SPIN BOTH DRIVES"™"HIT '1 S 9/21-25 0 1480 0 0 0 0 0 0 0 0 0 0 305 2 1 0 0 0 5 0 0 0 61 213 JAMES HAVERTOWN PA 19083 MC TIERNAN 8531012 20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 6 0 0 0 61 212 JAMES HAVER1 P%(5),Q%(5),Q$(3)!4 S$=CHR$(13).6R$²Ç(10)9<Ÿ121,4AFQ²1fH˜121,Ç(29)Ç(31)"SUN ONLY COUNT "ƒJ˜121,"*** **** ***** "R$ÌL™Ç(147)" ÐRINTOUT & COUNT OF ÓUNDAY ÏNLY CUSTOMERS "ÔN™""P… "ENTER AUTO RUN FILE NAME OR A 'C1 62 121 JAMES HAVERTOWN PA 19083 DI GIANTOMASSO 4460892 1 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 62 120 JAMES HAVERTOWN PA 19083 MARIANI 0 2 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 1 )R$R$S$ \D²Dª1:H²Hª1 a™ G f‹F±1§920- z˜121:G²Gª1= ‹G±23§1330^ „˜121,Ç(29)ªÇ(31)C$:G²Gª1:F²2n ‰‹G±23§1330} ˜˜121:G²Gª1 ‹G±23§1330ª ¢˜121,Ç(29)ªÇ(31)B$:G²Gª1º ¶‹G±23§1330Ç Ê‹T²1§990Ñ Ô‰ 220Ù ÞÎ#1ã è  130 ò™ "END O1 S' TO STOP SPINNING"P™"ENTER 0 FOR DRIVE 0, A 1 FOR DRIVE 1, AND A 2 FOR BOTH"… ™"HIT RUN/STOP TO ENTER READY STATUS IF DESIRED"™#¡ A$:‹ A$²""§35±%A²Å(A$):‹A³0°A±2§35À2‹ A²0§ 110Ï3‹ A²1§ 150Ý4‹ A²2§ 70õF¡ A$:‹ A$²"S" ‰ 190PŸ11TOWN PA 19083 MC CARRON 7891959 21 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 6 0 0 0 61 209 JAMES HAVERTOWN PA 19083 STEEB NL 22 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 6 0 0 0 61 208 JAMES HAVERTOWN 1' TO BEGIN THE COUNT";V$(Q)*Z‹V$(Q)²"C"§1204dQ²Qª1=n‰ 80Hx 1260P‚K²1gŒ‹V$(K)²"STOP"§1280s– H=0† Í#2,(V$(K)),D1ª„2,T$£´‹T$²"END"§1210³¾Í#1,(T$),D1¿ÈH²0:F²1ÇÒT²0ÏÜI²1ñæ„1,A$,B$,C$,D$,E$,F$,G$,H$,I$ð‹B$²1 2 1 0 0 0 5 0 0 0 62 116 JAMES HAVERTOWN PA 19083 0 0 3 0 0 1480 0 0 0 0 0 0 0 0 0 4 0 0 0 0 0 0 62 117 JAMES HAVERTOWN PA 19083 WOOD 4462761 4 0 0 0 0 0 0 0 0 0 0 0 0 0 01F RUN FILE CLOSED",T$,H ü‰ 170 T²1# ‰ 9903  GOTO 610= $™ DS$\ .™ "FILE ERROR FILE CLOSED"b 8m BL$²" "u LI²1‚ VQ$(I)²L$ `U$(I)²L$œ jV$(I)²L$© tW$(I)²L$¶ ~X$(I)²L$à ˆY$(I)²L$Ð ’Z$(I)²L$Ú œI²Iª1è ¦‹I³4§1110î °Ž˜,8,15,"I" Z 1d‰70,n¡ A$:‹ A$²"S" ‰ 190=xŸ1,8,15,"I0"D‚ 1MŒ‰110e–¡ A$:‹ A$²"S" ‰ 190v Ÿ1,8,15,"I1"}ª 1‡´‰ 150¾ 1:€´™"HIT 0 TO SPIN DRIVE 0"Ñ™"HIT 1 TO SPIN DRIVE 1"ò™"HIT 2 TO SPIN BOTH DRIVES"™"HIT 'äPA 19083 CONRAD 4467888 23 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 6 0 0 0 END END END HAVERTOWN PA 19083 CONRAD 4467888 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 6 0 0 0 0 0 61 212 JAMES HAVER1"END"§1030ú‹B$²"END OF FILE"§1030+X²Å(B$)9‹X²0§1030?E"U,‹DS±20§1060€6„1,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%@‹DS±20§1060šJ„1,M%ªT‹DS±20§1060²^J²1¿h„1,N%(J)Ïr‹DS±20§1060Õ|ↄ1,O%(J)ò‹DS±20§1060ÿš„6 1 6 0 0 0 62 113 JAMES HAVERTOWN PA 19083 NATALONE 4491383 5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 4 0 0 0 6 0 0 0 62 112 JAMES HAVERTOWN PA 19083 BENE 4466676 6 0 0 1480 0 0 0 0 0 0 01ö ºÎ#2 Ä™ "END OF RUN FILES CLOSED"$ Î PRINT D. ØK²Kª18 ≠140I ìV$(Q)²"STOP"O öŽW Î#2h  ?CHR$(147)¯ ™"ÔHIS PROCESS IS NOW COMPLETE, YOU HAVE"D"SUNDAY ONLY CUSTOMERS"Í ˜121,Ç(29)ªÇ(31)"TOTAL="DØ ( 121:à 2G²0ï 3˜121:G²1 ** PRINT FROM SCREEN ***Ÿ121,4h™Ç(147)" ÐRINT FROM ENTRIES ON THIS SCREEN"­™" ÕSE QUOTES TO POSITION ENTRIES WHERE YOU WANT THEM TO PRINT"Å …" ENTER LINE";A$ј121,A$ñ…"LAST LINE Y/N N";B$(‹ B$²"N"1 0 2 6 0 0 0 9 0 0 0 61 224 JAMES HAVERTOWN PA 19083 HATTEN 4491907 16 0 0 960 0 0 0 0 0 0 0 0 0 0 0 1 2 0 0 0 61 220 JAMES HAVERTOWN PA 19083 SCHOEMMELL 4465962 17 0 0 1480 0 0 0 011,P%(J)¤‹DS±20§1060®„1,Q%(J),¸‹DS±20§10606ÂJ²Jª1DÌ‹J±M%§480NÖ‰ 360VàB²1\êbôsþ‹N%(B)²6§550}B²Bª1‹‹B±M%§230•‰ 510Ÿ&‰ 860¿0 IF N%(B)<>6 GOTO 200Ë:‰ 63999ØD B=B+1éN GOTO 200öXW$(I)²D$1B BILL B128 / RE-NUMBER DENNIS FREEMAN LAST CHANGE 11/6/85I‰3… 1:Ÿ1,8,15,"I0":˜1,"S0:BILL B128":”"0:BILL B128",8: 1:€™œ:™¸(X):™Ç(147)Ô™"  Â É Ì Ì       1 2 8  ’"™" ÃHECK ÆUNCTION ËEY ÄEFIN5Gª1þ 4˜121:G²Gª17™H<˜121,C$:G²Gª1FŽ3  GOTO 610= $™ DS$\ .™ "FILE ERROR FILE CLOSED"b 8m BL$²" "u LI²1‚ VQ$(I)²L$ `U$(I)²L$œ jV$(I)²L$© tW$(I)²L$¶ ~X$(I)²L$à ˆY$(I)²L$Ð ’Z$(I)²L$Ú œI²Iª1è ¦‹I³4§1110î °Ž§10 * 1212#2BT²0:OU²0/H‹V$(G)³±"STOP"§200PR™"END OF RUN FILE CLOSED",V$V\yf™ "NO END OF FILE FILE CLOSED"ƒp‰ 680”zV$(Q)²"STOP"š„Ž³b‹ DS±20 ‰ 770×l˜2,N%(I)S$O%(I)S$P%(I)S$Q%(I)S$ávI²Iª1ò€‹ I±M% ‰ 660üŠ1 0 0 2000 0 0 0 0 2 1 0 0 0 5 0 0 0 61 217 JAMES HAVERTOWN PA 19083 CRAIG 4493136 18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 6 0 0 0 61 216 JAMES HAVERTOWN PA 19083 DEMPSEY 4467139 19 PAPER1 bZ$(I)²C$ lX$(I)²E$ª" "ªG$( vY$(I)²B$. €8 ŠI²Iª1E ”‹I±3§680O ž‰ 230i ¨U$(1)²Y$(1)ª" "ªZ$(1)ƒ ²U$(2)²Y$(2)ª" "ªZ$(2) ¼U$(3)²Y$(3)ª" "ªZ$(3)­ ÆV$(2)²W$(2)½ ÐV$(3)²W$(3)Í ÚV$(1)²W$(1)Ü ø˜130,Ç(30)ù N²27«(Ã(X$(1))ªÃ(Q$2ITIONS IN ÌOADTRANS"™"R ™" 1  ÌÏÁÄÔÒÁÎÓ Â128 ’"ˆ™" 2  ÔÒÁÎÓ ’"¾™" 3  ÃÁ ’"ô™" 4  ÐÄL ÎÅ× (DAILY) ’"*™" 2WILL BE APPLIED * ÔHE 2ND ENTRY WILL FIX FIRST MISTAKE"iâ™" ÔÒÁÎÓÁÃÔÉÏΠÆÉÌÅ IS LOADED ONTO ÄRIVE 0"¯ì™" ÄÏ ÎÏÔ EXCEED 100 ENTRIES * ÐUT A COMMA AFTER ENTER DATE"î…"ENTER DATE,DISC-ID/OPER-ID * EX- 2/2/84,VOL 6/DF";A$,B$ý 21éœ M1²A0ó¦ „1,Y$ý° 2350/º ˜121,Ç(29)ªÇ(31)R$" UPDATING SEG # ";Y$R$ZÄ PRINT#121," --- "gÎ „1,T$(I)qØ 2350…â ‹T$(I)²"E"§2640™ì ‹T$(I)²"L"§2660¦ö „1,U$(I)° 2350½ „1,T%(I)Ç 2350Ô „1,V$(I)ê( V2Y$²Ä(CA)þ N²8«Ã(X$) O²8«Ã(Y$)1 Z$²"$"ªÈ(X$,Ã(X$)«2)ª"."ªÉ(X$,2)g &˜121,"SEGMENT CREDITS "£N)X$;" TOTAL AMT "£O);Y$t 0X$²Ä(XC) :Y$²Ä(XA) DN²8«Ã(X$) NO²8«Ã(Y$) XZ$²"$"ªÈ(X$,Ã(X$)«2)ª"."ªÉ(X$,2)ø b˜121,"SEGMENT XCHGS "£N)X$;"2 5  ÓÔÕ   ’"`#™" 6  ÁÕÔÏÂÉÌÌ Ä0 ’"–%™" 7  ÅØÉÔ TO ÍÅÎÕ Â128 ’"( 1Ú-™" ÐÒÅÓÓ ÎÕÍÂÅÒ ÆÏÒ ÓÅÌÅÃÔÉÏÎ (1 ÔÈÒÏÕÇÈ 7)’"2™" ÐÒÅÓÓ 'É'  ÔÏ ÉÎ2 N ãX „3,N%(I)íb 2350úl „3,O%(I)v 2350€ „3,P%(I)Š 2350(” „3,Q%(I)2ž 2350=¨ I²IªA1L² ‹I±M%§3270V¼ ‰3160cÆ M$²A$ªB$rÐ ™ M$," IN"{Ú K²A1‹ä ‹N²A1§ 3340›î ‹M2²A1§3330¬ø ‹A$²Y$§M1²A1½ ‹M1²A1§ 3770Æ I²A1æ IFH2 ˜121,Ç(30)<˜121,Ç(29)ªÇ(31)"LOADTRANS ON: ";A$;" DISC-ID: ";B$R$EA1²1N(A0²0Ž2PC².:PA².:PT².:PS².:CC².:CA².:CT².:CS².:XC².:XA².:XT².:XS².º<… "ENTER TRANS FILE NAME EX:@T-1/22";W$æF˜121,"TRANSACTION FILE NAME IS: ";W$R$øPÍ#1,(2 $(I)=" "+V$(I)ô2 2350ÿ< I²IªA1 F ‰2510P M1²A0Z Ž#d E1²A11n T$(I)²"E"7x Žy‚ † N%(10),O%(10),P%(10),Q%(10),T$(100),U$(100),V$(100),T%(100)Œ  1:Ÿ1,8,15,"I": 1œ– S$²Ç(13)©  R$²Ç(10)²ª A1²1»´ A0²0ξ M1².:E3².:E1².ÙÈ Ÿ121,42 TOTAL AMT "£O);Y$2lPT²PTªPC:CT²CTªCC:XT²XTªXC:PS²PSªPA:CS²CSªCA:XS²XSªXA:vI²1\€PC².:CC².:XC².:PA².:CA².:XA².jŠ‹F²1§1980t”‰1440€ž˜1,A$S$ˆ¨F²1’²‰1710Ÿ¼X$²Ä(PT)¬ÆY$²Ä(PS)ºÐN²8«Ã(X$)ÈÚO²8«Ã(Y$)íäZ$²"$"ªÈ(Y$,Ã(Y$)«2)ª".2 ÉÔÉÌÉÚÅ ÂÏÔÈ ÄÉÓË ÄÒÉÖÅÓ ’")7¡Z$:‹Z$²""§55D<‹Z$²"I"§Ÿ1,8,15,"I": 1\AA²Å(Z$):‹A±7°A³1§55hC™Ç(147)’F‘A‰100,2300,4600,6100,7700,8100,12000™c‰4âd ***LOADTRANS*** COPYRIGHT (C) WES ROBINSON 2/27/84 UPDATE 10/29/85ìx‰1110ÿ‹ DS±20 §2$="ÆINAL ÂILL"THEN1030 IFLEFT$(H$,3)="NEW"THEN1030+* IFLEFT$(H$,4)="HOLD"THEN1030Q4 IF LEFT$(H$,4)="XCHG" THEN 1030]> H$=K$‰H ˜4,A$S$B$S$C$S$D$S$E$S$F$S$G$S$H$S$I$S$“R 2350Ë\ ˜4,A%S$B%S$C%S$D%S$E%S$F%S$G%S$H%S$I%S$J%S$K%S$L%S$Õ2W$),D0,W Z 1050/ n˜121,"TRANSACTION REGISTER FOR: ";A$R$; x˜1,A$S$F ‚ 1050p Œ™ "ENTER E,0,0,0 TO END EACH SEGMENT"™ –™"ENTER L,0,0,0 TO END LAST SEGMENT"¹  …"ENTER SEG # EX:200 ";V$Ì ª‹ Ã(V$)±3§1440Ø ´˜1,V$S$è ¾ GOSUB1030 Ș2ðÒ ˜121,Ç(30):™Ç(147)Ü PRINT CHR$(147)Jæ ™" ÔAKES ENTRIES FROM ÌÏÁÄÔÒÁÎÓ & APPLIES THEM TO YOUR FILES"ð ™" ÃUSTOMER FILES GO IN ÄRIVE 1 * ÎEW UPDATED FILES WILL BE ON "Éú ™" ÄRIVE 0 AFTER ÔÒÁÎÓ PROGRAM IS RUN"  ™" 2"ªÉ(Y$,2)%î˜121,R$;"TOTALS PASTDUES "£N)X$;" TOTAL AMT "£O);Z$2øY$²Ä(CT)?Y$²Ä(CS)M N²8«Ã(X$)[O²8«Ã(Y$)€ Z$²"$"ªÈ(Y$,Ã(Y$)«2)ª"."ªÉ(Y$,2)´*˜121,"TOTALS CREDITS  "£N)X$;" TOTAL AMT"£O);Z$Á4X$²Ä(XT)Î>Y$²Ä(XS)ÜHN²8«Ã(X$)êRO2 1070$Ž.™ "FILE ERROR"DS$,W$-2 PRINTDS$58Î#1>B 121EL‰3V TRANSACTION FILE FORMAT = ACCT#,PARAMETER1 (AMT),PARAMETER2 (REASON)`™ Ç(147)¿j FILE DATA IS INPUT TO TRANSÖ~ 1:Ÿ1,8,15,"I0": 1ሟ121,4î’S$²Ç(13)û”R$²Ç(2f 2350Þp I²A1êz ˜4,M%S$ô„ 2350Ž ˜4,N%(I)S$O%(I)S$P%(I)S$Q%(I)S$#˜ I²IªA12¢ ‹I±M%§3510<¬ ‰3470L¶ ‹E3²A1§3560VÀ ‰3060cÊ B$²"END"mÔ E3²A1wÞ ‰3400è Î#3‡ò Î#4¨ü ™"END OF FILE ",W$," CLOSED"²E3²A0»M2²0Ë‹E1²A1§36302121,Ç(29)ªÇ(31)R$£5)"SEG # ";V$R$4 Ò PRINT#121," --- ",R$x Ü™"ENTER TRANSACTIONS: HOUSE#,CODE,AMOUNT,REASON (FOR P C & X)"º Þ™"ENTER TRANSACTIONS: HOUSE#,CODE,TYPE NEWS,DATE (FOR S & R)"Î æ…"";A$,B$,A%,C$Ø ðI²Iª1è ú‹I±100§2190ù 2ÔÒÁÎÓÁÃÔÉÏΠÆÉÌÅ CREATED BY ÌÏÁÄÔÒÁÎÓ IS ON ÄRIVE 0"@ ™" ÐUT A COMMA AFTER DATE!}" …"ENTER DATE,DISC-ID/OP-ID * EX- 2/2/84,VOL 6/DF";A$,B$Ž, K$²A$ª" "ªB$Ï6 ˜121,Ç(29)ªÇ(31)"APPLY-TRANS ON: ";A$;"DISC-ID/OP-ID: ";B$R$@ …"2²8«Ã(Y$)\Z$²"$"ªÈ(Y$,Ã(Y$)«2)ª"."ªÉ(Y$,2)Bf˜121,"TOTALS XCHGS  "£N)X$;" TOTAL AMT"£O)Z$JpÎ#1Sz 121Z„‰3œŽ™"YOU HAVE EXCEEDED THE TRANSACTION LIMIT PER SEGMENT OF 100"§˜A$²"E"±¢‰1700ãü ***TRANS***COPYRIGHT @ 4/30/84 WES ROBIN210)%™ß11,",C,1500,NO DELIVERY THIS PERIOD"9šß12,",P,1185,M"K›ß13,"PAPERS "`œß14,"NO PAPERS "qß15,",X,0,0"Šžß16,",X,75,LATE PAY"¢Ÿß17,"E,6,6,6"ªÇ(13)¶ ß18,",P,1500,M"Æ¡ß19,",S,0,"Ö¢ß20,",R,0,"°™" ÃÒÅÁÔÅÓ A 2Ü$‹M1²A1§2440æ.‰2990ï8™DS$ B™"FILE ERROR FILE CLOSED"LÎ#1VÎ#2%`Î#3-jÎ#43t;~Î#1CˆÎ#2Y’˜121,"END OF RUN"bœ 121ƒ¦™"END OF RUN FILE CLOSED",V$Š°‰3™ºK²A1:M2²A1®Ä‹ M$²T$(K)§ 3820¹ÎK²KªA1ÑØ‹ T$(K)³±"E"2‹A$²"E"§1700 ‹A$²"L"§1950 A$²V$ªA$&  PRINT A$> ˜1,A$S$B$S$A%S$C$S$G "O%²1\ ,‹B$²"P"§PC²PCªA1q 6‹B$²"C"§CC²CCªA1† @‹B$²"X"§XC²XCªA1› J‹B$²"P"§PA²PAªA%° T‹B$²"C"§CA²CAªA%Å ^‹B$²"X"§XA²XAªA%Ï h1050Ü rX$²Ä(A%)ê |N²8«Ã(X$)2ENTER TRANSACTION FILE NAME * EX: AWEST-6/22 ";X$4J ˜121,"TRANSACTION FILE NAME IS: ";X$R$DT Í#1,(X$),D0N^ 2350Xh „1,Y$br 2350Š| ˜121,"LOADTRANS FILE DATE: ";Y$R$”† 2440 …"ENTER AUTORUN FILE NAME EX: AUTO-S ";V$Òš Í#2,(V$),D1Ü2SON% SEE REM'S ON LOADTRANS FOR EXPLANATION OF TRANSACTIONS!!!!!+ œ5 ‰2690Q$ DISC ERROR SUBROUTINEa. ‹DS±20§2370g8 ŽqB ™ DS$L ™ "FILE ERROR FILE CLOSED"˜V Î#1 ` Î#2¨j Î#3°t Î#4¶~ Öˆ GET TRANS FILE SUBROUTINEß’ I²A2ÆÉÌÅ ON ÄRIVE 0 & ÐRINTOUT OF:"N´™" ÐAST ÄUES-ÃREDITS-ÅXTRA CHGS"˜Ä™"ÔRANSACTIONS ARE TO BE MADE IN ÓEGMENT ORDER AND THAT IS TO BE THE"âΙ"SAME AS IN THE ÁÕÔÏÒÕΠÆÉÌÅ * ÉF 2 LIKE CODE ENTRIES ARE MADE THE",Ø™"LAST ENTRY 3 § 3780Ûâ‰3340êì™ M$,U$(K)þö‹U$(K)²"P"§3900‹U$(K)²"C"§3950& ‹U$(K)²"X"§4010:‹U$(K)²"S"§4070N‹U$(K)²"R"§4280ƒ(˜121,"TRANACTION CODE ERROR";T$(K);" ";U$(K)2‰3790š<H%²T%(K)§FZ$²Ä(H%)ÁPZ²16«(Ã(Z$)ªÃ(T$(K)))Z˜12ù †O²10«Ã(A$)" ˜121,Ç(30)A$;£O);B$;£N);X$;" ";C$, š‰15108 ¤˜1,A$S$B ®‰1900O ¸X$²Ä(PC)\ ÂY$²Ä(PA)j ÌN²8«Ã(X$)x ÖO²8«Ã(Y$) àZ$²"$"ªÈ(X$,Ã(X$)«2)ª"."ªÉ(X$,2)Ö ê˜121,R$;"SEGMENT PASTDUES "£N)X$;" TOTAL AMT "£O);Y$ã ôX$²Ä(CC)ð þ2¤ 2350æ® „2,W$ù¸ ‹W$²"END"§3710  Í#3,(W$),D1Ì 2350%Ö Í#4,(W$),D0,W/à 23509ê 2350[ô „3,A$,B$,C$,D$,E$,F$,G$,H$,I$eþ 2350x ‹B$²"END"§3530~ © „3,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%³& 2350½0 „3,M%Ç: 2350ÐD I²A1Ö30Û'…"ENTER DAILY INQ CHGS 0";N%(1)( …"ENTER SUNDAY INQ CHGS 0";N%(2)2(…"ENTER SUNDAY NY TIMES CHGS 0";N%(3)_(…"ENTER NEWS OF DEL CO CHGS 0";N%(4)‘((…"ENTER DEL CO DAILY TIMES CHGS 0";N%(10)¼(2…"ENTER REASON FOR CHG'S 321,Ç(30)" ACCT ";T$(K);" ";U$(K);£Z);Z$;" ";V$(K) d‰3790nI$²V$(K)&xC%²T%(K)3‚Z$²Ä(C%)MŒZ²16«(Ã(Z$)ªÃ(T$(K)))Ž–˜121,Ç(30)" ACCT ";T$(K);" ";U$(K);£Z);Z$;" ";V$(K)˜ ‰3790¥ªH$²V$(K)²´L%²T%(K)¿¾Z$²Ä(L%)ÙÈZ²3)«2)"."É(N$,2)" "Ã-DÓ-NN$²Ä(N%(7))å-XN²4«(Ã(N$)«2).b˜121,Z$(14)£N)È(N$,Ã(N$)«2)"."É(N$,2)£15)Z$(29)).lN$²Ä(N%(8))I.vN²4«(Ã(N$)«2)ª(34«Ã(Z$(2)))t.€˜121,Z$(2)£N)È(N$,Ã(N$)«2)ª"."ªÉ(N$,2)ˆ.‚˜121,£69)Z$(30)˜.ŠN$²Ä(N%(9))ª.”N²4«(Ã(3Z$(6)²"ÎAME: "í"\Z$(7)²"ÓUN Î.Ù. ÔIMES "#fZ$(8)²"ÁDDRESS: ""#pZ$(9)²"ÎEWS ÏF ÄEL ÃO "9#zZ$(10)²"Ã&Ó ÚIP: "N#„ Z$(23)=" ÔO "i#ŽZ$(11)²"ÔHANKSGIVING "™#˜Z$(12)²"ÐAST ÄUE "Ä#¢Z$(13)²" MY NEXT VACATION D3 Ô2B˜99,"TODAYS DATE:";X$;" * PERIOD ENDING: ";R$(11),R$â2V˜99,Ç(29)ì2`7682ô2b 99 3ˆÍ#1,"NEWSMASTER",D03’I²13”Q²183œ„1,V$(I),A%,T%(I),S%(I)N3¦‹V$(I)²"END"§6340X3°I²Iª1b3º‰6300j3ÄÎ#1¥3Î… "ENTER AUTORUN FILENAME OR A 'P' TO PROCE3 0";Z$(11)Û(<…"OTHER CHG'S 0";N%(5)ý(F…"ENTER PAST DUE 0";N%(6)))P…"ENTER REASON FOR CREDIT 0";Z$(21)A)ZZ$(2)²Z$(16)ªZ$(21)e)d…"ENTER CREDIT DUE 0";N%(8)š)nN%(7)²N%(1)ªN%(2)ªN%(3)ªN%(4)ªN%(5)ªN%(6)ªN%(10)°)xN%(9)²N%(7)«N%(3 16«(Ã(Z$)ªÃ(T$(K)))Ò˜121,Ç(30)" ACCT ";T$(K);" ";U$(K);£Z);Z$;" ";V$(K)$܉3790-æI²A1:êF%²T%(K)Lð‹T%(K)²0§4208b‹T%(K)²N%(I)§4160mI²IªA1|‹I±M%§4140†"‰4100¡,˜121,"NO MATCH FOR: "®6N%(I)²A0¾@Z$²Ä(T%(K))ÈL3 N$)«2)Ë.žX$²È(N$,Ã(N$)«2)ª"."ªÉ(N$,2)÷.¨˜121,Ç(30)Z$(18)£N)X$" "£2)Z$(18)£N)X$)/²˜121,Ç(29)£43)" "£12)Z$(3)N$(10)Z$(23)N$(11)[/¼˜121,Ç(29)" ÍAKE ÃHECKS ÐAYABLE & ÍAIL TO "w/ÆN$(13)²N$(5)ª"-"ªN$(12)°/И121,Ç(31)" ÄÅÎÎÉÓ ÆÒÅÅÍÁΠ 3 ATES ARE:"ô#¬Z$(14)²"ÃURRENT ÃHG "$¶Z$(15)²" STOP RESTART "5$ÀZ$(16)²"ÃREDIT "^$ÊZ$(17)²" PLEASE GIVE 3 DAYS NOTICE"~$ÔZ$(18)²"ÂALANCE ÄUE "ž$ÞZ$(24)²"ÄEL ÃO ÄAILY ÔIMES"°$èZ$(23)²" ÔO "Ù$òZ$(3SS: ";V$(Q)¹3Ï‹V$(Q)²"P"§6354Ã3ÐQ²Qª1Í3щ6350×3Ò7312ß3ÔG²1ö3Ö‹V$(G)²"STOP"§7290 4ØÍ#4,(V$(G)),D04ÚG²Gª1#4â‹DS±20§7220-4ì„4,W$=4ö‹DS±20§7220P4‹W$²"END"§7270`4 Í#3,(W$),D0p4‹DS±20§7220}4(R$²Ç(10)…42N²2§4<„3,A$,B$,C$,D$38)Å)‚ Z$(19)="NAME "Ù)ŒZ$(20)²"ACCT# "æ)ÈR$²Ç(10)*úN$(13)²N$(5)ª"-"ªN$(12).*˜121,Ç(29)Z$(19)N$(1)£19)Z$(20)N$(13)R$4*_*˜121,Ç(29)£6)Z$(3)N$(10)Z$(23)N$(11)R$x*" PRINT#121,CHR$(13)~*,Ž*6N$²Ä(N%(1)) *@N²4«(Ã(N$)«2)Ò*J˜121,Ç(34482 T˜121,Ç(30)" ACCT ";T$(K);" ";U$(K);" ";V$(K);" ";L$\10590"^P%(I)²J,h‰37907p10590CrP%(I)²JMˆ4482˜121,Ç(30)" ACCT ";T$(K);" ";U$(K);" ";V$(K);" ";L$›šI²IªA1¬¤‹I±M% § 3790¶®‰4210¿¸I²A1Ñ3 ÁCCT#"N$(13)â/Ú˜121,Ç(30)" BOX 217 "Z$(13)0ä˜121,Ç(30)" ÎÅ×ÔÏ×ΠÓÑ ÐA 19073 "Z$(15)J0î˜121,Ç(30)" 353-6098 "Z$(17)R$R$R0øI²0™0… "ENTER 0 IF SAME SEGMENT * 1 IF NEW SEGMENT * 2 IF DONE 0";I§0 ‹I329)²" PLEASE DO NOT USE STAPLES"%üZ$(30)²" PLEASE RETURN THIS HALF "%Ÿ121,4% %™Ç(147)j%$™" ÐRINTS ONE BILL AT A TIME USING THE KEYBOARD TO PROVIDE THE DATA"©%.™" ÈÁÖÅÒÔÏ×ΠÐÁ 19083 IS HARD CODED IN PRG "Õ%B…"ENTER3,E$,F$,G$,H$,I$·4F‹DS±20§7220Ê4P‹B$²"END"§7160õ4Z„3,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%15\™B$;" ";C$;" ";E$;" ";H$;"=";L%;" ";I$;"=";C%;" PD=";H%A5d‹DS±20§7220J5fF%²0T5n„3,M%d5x‹DS±20§7220q5‚Z$(1)²""½5ŒR%(1)²0:R%(2)²0:R%(3)²0:R%(4)²0:330)Z$(4)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "â*TN$²Ä(N%(2))ô*^N²4«(Ã(N$)«2)!+h˜121,Z$(5)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "1+rN$²Ä(N%(3))C+|N²4«(Ã(N$)«2)_+†N$(14)²N$(12)ª" "ªN$(2)Œ+˜121,Z$(7)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "œ+šN$²Ä(N%(4))®+¤N²4«(Ã(N$3‹T%(K)²0§4418çÖ‹T%(K)²N%(I)§4382òàI²IªA1 ê‹I±M%§4350 ô‰4310% þ˜121,"NO MATCH FOR: "/ 4482r &˜121,Ç(30)" ACCT ";T$(K);" ";U$(K);" ";V$(K);" ";L$} .10590‰ 0Q%(I)²J“ :‰3790ž B10590ª DQ%(I)²J´ Z4482÷ b˜121,Ç(3²0§5060µ0‹I²1§5000¿0   121Æ0*‰31Ô ***PDL NEW*** COPYRIGHT (C) 1983 WES ROBINSON LAST CHANGE 10/29/85&1Þ 1:Ÿ1,8,15,"I0": 171èN²0:R$²Ç(10){1ì† Z$(5),R%(18),R$(15),N%(10),O%(10),P%(10),Q%(10),S%(10),T%(10)ˆ1î† L$(12)”1ò™Ç(147)Û1ü™" 3 PERIOD BEGINNING A";N$(10)ê%L‹N$(10)²"A"§4930&V…"ENTER PERIOD ENDING A";N$(11)(&`‹N$(11)²"A"§4950G&jN$(3)²"HAVERTOWN PA 19083"v&t INPUT "ENTER CITY STATE ZIP A";N$(3)&~ IFN$(3)="A"THEN350¸&ˆ…"ENTER SEGMENT NUMBER A";N3R%(5)²0:R%(6)²0:R%(7)²0:R%(8)²0:R%(9)²0Å5–I²1ä5žZ$(2)²" ":P$²" ":Q$²" "ñ5 „3,N%(I)6ªZ$(1)²Z$(1)ªÄ(N%(I))ª","6´‹DS±20§7220+6¾„3,O%(I);6È‹DS±20§7220H6Ò„3,P%(I)X6Ü‹DS±20§7220e6æ„3,Q%(I)u6ð‹DS±20§7220†6ô™N%(I),P$,Q$˜6ú‹N%(I)²1§3)«2)æ+®˜121,Z$(9)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "Z$(6)N$(1)÷+¸N$²Ä(N%(10)) ,ÂN²4«(Ã(N$)«2)C,̘121,Z$(24)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "Z$(8)N$(14)S,ÖN$²Ä(N%(5))t,àN²4«(Ã(N$)«2)ª(18«Ã(Z$(11)))®,ê˜121,Z$(11)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "Z$(10330)" ACCT ";T$(K);" ";U$(K);" ";V$(K);" ";L$!lI²IªA1!v‹I±M%§3790!€‰4420/!‚‹N%(I)²1§L$²"D"C!„‹N%(I)²2§L$²"D"^!†‹N%(I)²3§L$²"D NO SAT"x!ˆ‹N%(I)²4§L$²"D 1 DAY"Œ!Š‹N%(I)²5§L$²"S" !Œ‹N%(I)²6§L$²"S"¶!Ž‹N%(I)²7§L$²"NYT"Ì!‹N%3 'LIST OF ACCTS WITH CREDITS-EXTRA CHARGES-PAST DUE AMTS' 2…"ENTER DATE-DISC ID-AUTORUN FILE NAME: ";X$22…" ENTER PERIOD ENDING ";R$(11)=210540G2Ÿ99,4U2$˜99,Ç(30)›2.˜99,"'LIST OF ACCTS WITH CREDITS-EXTRA CHARGES-PAST DUE AMTS'",R$3$(5)Ì&’‹N$(5)²"A"§5000ñ&œ…"ENTER STREET NAME A";N$(2)'¦‹N$(2)²"A"§5020 '°'º/'Ä…"ENTER NAME A";N$(1)C'΋N$(1)²"A"§5060j'Ø…"ENTER HOUSE NUMBER 0";N$(12)r'âT²0¥'ì…"ENTER 0 IF SAME BILL OTHERWISE A 1 0";T³'ö‹T²0§52547324ª6‹N%(I)²2§7364¼6‹N%(I)²3§7404Î6‹N%(I)²4§7440à6"‹N%(I)²5§7476ò6,‹N%(I)²6§751476‹N%(I)²7§75547@‹N%(I)²8§7586(7J‹N%(I)²9§761827^I²Iª1A7h‹I±M%§6771K7r‰6560]7s‹N%(1)²1§6788o7t‹N%(1)²2§67887u‹N%(1)²3§6788“7v‹N%(1)²5§6783)N$(3)Ù,ô 900 PRINT#121,TAB(26)": "Z$(10)N$(3)è,þ˜121,Ç(29)ý, N$=STR$(N%(5))$- N=4-(LEN(N$)-2)+(18-LEN(Z$(11)))h- PRINT#121,Z$(11)TAB(N)LEFT$(N$,LEN(N$)-2)"."RIGHT$(N$,2)" : "x-&N$²Ä(N%(6))Š-0N²4«(Ã(N$)«2)½-:˜121,Z$(12)£N)È(N$,Ã(N$3(I)²8§L$²"NDC"â!’‹N%(I)²9§L$²"NDC"è!”Ž "ø ***CAB*** WES ROBINSON 3/29/84&" LAST CHANGE 4/2/84A" † Z$(30),N%(10),N$(15)X" 1:Ÿ1,8,15,"I0": 1^" d"*z"4Z$(3)²" ÆROM "™">Z$(4)²"ÄAILY ÉNQUIRER "¸"HZ$(5)²"ÓUNDAY ÉNQUIRER "Î"R4LY) CREDIT¶BH‹X%²6§F%²F%ªS%(5): SUN (WITH DAILY) CREDITÁBJ10524ÐBN‹T³±1§7490ÚBR‰7650àBVèBZJ²6ýB\‹P%(I)³±0§10850C]Z$(2)²P$ª"-"ªQ$C^TW²1*CbR%(2)²T%(6)ACf‹P%(I)±R%(15)§7650SCg‹P%(I)²0§7650^Cj10518ŽCn IFX%=1THENF%=F%+S%(6)48¥7w‹N%(1)²7§6788·7x‹N%(2)²1§6788É7y‹N%(2)²2§6788Û7z‹N%(2)²3§6788í7{‹N%(2)²5§6788ÿ7|‹N%(2)²7§6788 8‚‰64608„‹L%³±0§6820)8†‹C%³±0§682098‹H%³±0§6820I8’‹F%³±0§6820S8š‰64608¤K$²A$ª"-"ªB$ª" "ªC$ª" "ª" "ªE$ª" "ªÈ(F$,16)ª" "ªZ$(1)²84IES OF YOUR BILL"‰H-™""£H2…"HOW MANY COPIES?";L¯H7 T²1¤LÑH<™"COPY #"T"NOW BEING PRINTED" IA˜121,Ç(29)"ÎAME ÁCCT# ",R$6IFQ$²" FROM TO "DIK˜121,Q$R$nIP˜121,Ç(30)"ÄAILY INQUIRER "£8)" "4P"Ž=’Ž«=˜ COMPUTATION SUBROUTINE³=œJ²1È=‹P%(I)³±0§10850Ü=žZ$(2)²P$ª"-"ªQ$ì= R%(1)²T%(1)>¤‹P%(I)±R%(15)§7650>¥‹P%(I)²0§7650 >¨10518K>¬ IFX%=0THENF%=F%+S%(1):REM SAT CREDITz>° IFX%>1THENF%=F%+S%(1):REM MON-FRI CREDIT¡>²‹X%³64 RIGHT C-CIRCLE WES ROBINSON 1983ËM¸† Z$(60),R%(15),R$(15),N%(15),O%(15),P%(15),Q%(15),S%(15),T%(15)úM INPUT MASTER DATA FOR NEWSPAPER RATES...N̆ V$(15)NÖ 1:Ÿ1,8,15,"I0": 16NàÍ#1,"NEWSMASTER",D0>NêI²1ZNô„1,V$(I),A%,T%(I),S%(I)tNö™V$(I4 :REM SUN ONLY CREDIT¶Cp‹X%²6§F%²F%ªS%(6): SUN ONLY CREDITÁCr10524ÐCv‹T³±1§7530ÚCz‰7650àC~èC‚J²7ýCƒ‹P%(I)³±0§10850D„Z$(2)²P$ª"-"ªQ$!D†R%(3)²T%(7)8DŠ‹P%(I)±R%(15)§7650JD‹‹P%(I)²0§7650UDŽ10518ŠD’ IFX%=1THENF%=F%+S%(7):REM SU4 ¸R%(7)²R%(1)ªR%(2)ªR%(3)ªR%(4)ªD%¿8ÂX$²Ä(F%)ã8ÌL$(2)²È(X$,Ã(X$)«2)ª"."ªÉ(X$,2)ð8ÖX$²Ä(D%)9àL$(3)²È(X$,Ã(X$)«2)ª"."ªÉ(X$,2)&9âL$(4)²" "59ä‹C%²0§6910B9êX$²Ä(C%)f9ôL$(4)²È(X$,Ã(X$)«2)ª"."ªÉ(X$,2)s9öL$(1)²""„9ø‹H$²"0"§6910‘9úL$(1)4 ˜IU˜121,Ç(30)"ÓUNDAY ÉNQUIRER "£8)" "ÂIZ˜121,Ç(30)"ÓUN Î.Ù. TIMES "£8)" "ìI_˜121,Ç(30)"ÎEWS OF ÄEL ÃO "£8)" "Jd˜121,Ç(30)"ÄEL ÃO ÄAILY ÔIMES "£8)" NAME:"LJi˜121,Ç(30)" "£8)" ADDR:"Jn˜121,Ç(30)" 4 §F%²F%ªS%(1): MON-SAT CREDIT¬>´10524»>¸‹T³±1§7336Å>¼‰7650Ë>ÀÓ>ÄJ²2è>Å‹P%(I)³±0§10850ü>ÆZ$(2)²P$ª"-"ªQ$ ?ÈR%(1)²T%(2)#?Ì‹P%(I)±R%(15)§76505?Í‹P%(I)²0§7650@?Ð10518k?Ô IFX%=0THENF%=F%+S%(2):REM SAT CREDITš?Ø IFX%>1THENF%=F%+4),A%,T%(I),S%(I)ŠNþ‹V$(I)²"END"§8220”N I²Iª1žN ‰8180¦N Î#1»N& PRINTCHR$(147)O0 ™" ÐRINTING OF DAILY BILLS FROM FILES ON Ä0 LISTED IN AUTORUN FILE"5O: ™"MASTER NEWS DATA FILE ENTERED AND CLOSED"[OD START CONSTANTS SETUP IN ARRAYSqON Z$4N N Y TIMES CREDIT·D”‹X%²6§F%²F%ªS%(7): SUN N Y TIMES CREDITÂD–10524ÑDš‹T³±1§7566ÛDž‰7650ãD¢J²8øD£‹P%(I)³±0§10850 E¤Z$(2)²P$ª"-"ªQ$E¦R%(4)²T%(8)3Eª‹P%(I)±R%(15)§7650EE«‹P%(I)²0§7650PE®10518~E²‹X%²3§F%²F%ªS%(8): NEWS OF DEL C4²H$ž9þX$²Ä(L%)Â9L$(5)²È(X$,Ã(X$)«2)ª"."ªÉ(X$,2)Ò9X$²Ä(R%(7))ö9L$(6)²È(X$,Ã(X$)«2)ª"."ªÉ(X$,2):&A%²H%ªJ%«C%ªL%ªR%(7)«F%:0X$²Ä(A%)C::L$(7)²È(X$,Ã(X$)«2)ª"."ªÉ(X$,2)U:<L$(8)²" "d:>‹H%²0§6992q:DX$²Ä(H%)•:NL$(8)²È(X$,Ã(X$)«2)ª".4 "£8)" C&S ZIP:"¬Js˜121,Ç(30)"ÃURRENT ÃHG "£8)" ",R$éJx˜121,Ç(29)"PAST DUE "£46)"PLEASE RETURN THIS HALF "*K}˜121,Ç(29)"CREDIT DUE "£45)"PLEASE DO NOT USE STAPLES",R$\K‡˜121,Ç(30)"ÂALANCE DUE "£13)" ÂALANCE ÄUE"™KŒ˜121,Ç(294S%(2):REM MON-FRI CREDITÁ?Ú‹X%³6§F%²F%ªS%(2): MON-SAT CREDITÌ?Ü10524Û?à‹T³±1§7376å?ä‰7650ë?èó?ìJ²3@í‹P%(I)³±0§10850@îZ$(2)²P$ª"-"ªQ$,@ðR%(1)²T%(3)C@ô‹P%(I)±R%(15)§7650U@õ‹P%(I)²0§7650`@ø10518@ü IFX%>1THENF%=F%+S%(3):REM4(2)²" "„OX Z$(3)²" FROM "¤Ob Z$(4)²" ÄAILY INQUIRER "ÄOl Z$(5)²" ÓUNDAY ÉNQUIRER "ÝOv Z$(6)="NAME: "ýO€ Z$(7)²" ÓUN Î.Ù. TIMES "PŠ Z$(8)²"ADDRESS: "3P” Z$(9)²" ÎEWS OF ÄEL ÃO "JPž Z$(10)²"C&S ZIP: "\P¨ Z$(23)²" TO "‡PÆ4O CREDIT‰E¶10524˜Eº‹T³±1§7598¢E¾‰7650ªEÂJ²9¿EËP%(I)³±0§10850ÓEÄZ$(2)²P$ª"-"ªQ$ãEÆR%(4)²T%(9)úEÊ‹P%(I)±R%(15)§7650 FË‹P%(I)²0§7650FÎ10518EFÒ‹X%²3§F%²F%ªS%(9): NEWS OF DEL CO CREDITPFÖ10524_FÚ‹T³±1§7630iFÞ‰7650qFâT²0{F4"ªÉ(X$,2)£:PL$(10)²""´:Q‹I$²"0"§7020Â:RL$(10)²I$Ü:lM²72«(Ã(L$(2))ªÃ(K$))î:vN²18«Ã(Z$(2));z‹Ã(I$)±18§I$²È(I$,18);€O²9«Ã(L$(5))+;ŠP²12«Ã(L$(6))=;”Q²12«Ã(L$(7))O;žR²12«Ã(L$(8))e;¨ T=12-LEN(L$(9))w;²U²12«Ã(L$(4));´Ÿ99,4‹;¸7664)" ÍAKE ÃHECKS ÐAYABLE & ÍAIL TO "£12)Q$,R$ÁK‘K$(1)²"MY NEXT VACATION DATES ARE:"ÞK–K$(2)²"STOP START"L›K$(3)²"PLEASE GIVE THREE DAYS NOTICE"FL  PRINT#121,CHR$(29)" ÍAKE ÃHECKS ÐAYABLE & ÍAIL TO "zL¥˜121,Ç(31)" ÄÅÎÎÉÓ ÆÒÅÅÍÁÎ 4 MON-FRI CREDIT¶@þ‹X%³5§F%²F%ªS%(3): MON-FRI CREDITÁ@10524Ð@‹T³±1§7416Ú@‰7650à@ è@J²4ý@‹P%(I)³±0§10850AZ$(2)²P$ª"-"ªQ$!AR%(1)²T%(4)8A‹P%(I)±R%(15)§7650JA‹P%(I)²0§7650UA10518…A  IFX%=0THENF%=F%+S%(4):REM SAT ONLY4 Z$(13)²" MY NEXT VACATION DATES ARE:"·PÐ Z$(14)²" ÃURRENT ÃHG "àPÚ Z$(15)²" STOP RESTART "÷Pä Z$(16)²" ÃREDIT " Qî Z$(17)²" PLEASE GIVE 3 DAYS NOTICE"AQø Z$(18)²" ÂALANCE ÄUE "VQ! Z$(19)="NAME "jQ !Z$(4æ‰6750‡FìLC²LCª2Fí™LC Fî‹LC³±58§7668·Fð˜99,R$R$R$R$R$R$R$ÅFò7682:K²1ÖFô‹LC³±59§7674ëFö˜99,R$R$R$R$R$R$ùFø7682:K²1 Gú‹LC³±60§7680Gü˜99,R$R$R$R$R$R$-Gþ7682:K²13GŽlGZ$²"VAC CREDIT STOP / START XCHG CURR CHG"¶GY40Ù;ºL$(12)²" "ªL$(8)ª" "ªL$(4)ª" "ªL$(10)ª" "ªH$<¼˜99,K$£M)L$(2)£N)Z$(2)£O)L$(5)£P)L$(6)£Q)L$(7)L$(12)<Ƙ99,""4<ЋÈ(F$,1)³±"H"§7142I<Ú˜99,£70)É(F$,10)U<äLC²LCª1]<æ 99g<î‰6460<ø™ "NORMAL END OF RUN FILE CL4 ACCT#"­Lª˜121,Ç(30)" ÂÏØ 217 "K$(1)àL¯˜121,Ç(30)"ÎEWTOWN ÓQUARE ÐA 19073 "K$(2)M´˜121,Ç(30)" 353-6098 "K$(3)R$M¹‚$M¾ 121+MÉ3[M¤ *****AUTOBILLD0***** LAST CHANGE 10/29/85†M® COPY4 CREDIT¯A"‹X%²5§F%²F%ªS%(4): 1 DAY ONLY CREDITºA$10524ÉA(‹T³±1§7452ÓA,‰7650ÙA0áA4J²5öA5‹P%(I)³±0§10850 B6Z$(2)²P$ª"-"ªQ$B:R%(2)²T%(5)1B>‹P%(I)±R%(15)§7650CB?‹P%(I)²0§7650NBB10518†BF IFX%=1THENF%=F%+S%(5):REM SUN (WITH DAI520)²" ÁCCT#"ˆQ!Z$(25)²" "¯Q !Z$(26)²"PLEASE DO NOT USE STAPLES"ÔQ*!Z$(27)²"PLEASE RETURN THIS HALF"ïQ,!Z$(30)²" VAC CREDIT "'R4!…" DO YOU WANT TO ENTER A BILL NOTICE Y/N";Z$(40)=R>!‹ Z$(40)²"N"§8630~RH!™" ÔHE FIRST LINE WHERE 4$²" BAL DUE PASTDUE CREDIT CR REASON XCHG REASON"ÖG˜99,Ç(29)"ACCT ",£50);Z$;Y$áG˜99,""êG LC²2ðGŽ%H *****STUB***** COPYRIGHT (C) WES ROBINSON 1983+Hœ8HR$²Ç(10)CH#Ÿ121,4H(™Ç(147)" ÐRINTS BLANK COP4OSED",W$š<‰7240­<  PRINT#99," "¹< N=N+1Ð<  IF N=51 GOTO 780ß<* GOTO 720þ<4™ "FILE ERROR FILE CLOSED"=>™ DS$=HÎ#3=RN²0"=\‰6380(=f1=p  999=zÎ#4Q=~‹V$(G)³±"STOP"§6360p=„™"END OF RUN FILES CLOSED"w=Ž‰3ˆ=V$(Q)²"STO5”%N$²Ä(R%(5))t]ž%N²6«(Ã(N$)«2)ª(34«Ã(Z$(11)))¬]¨%˜121,Ç(29)" "Z$(11)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "¼]²%N$²Ä(R%(7))Î]¼%N²8«(Ã(N$)«2)^Æ%˜121,Z$(14)£N)È(N$,Ã(N$)«2)"."É(N$,2)" ",R$^Ð% N$=STR$(R%(10))7^Ú%N²8«(Ã(N$)«2)ª(35«Ã(Z$(25)))g^ä% PRINT#5THERE ISN'T ANY MESSAGE ENTER '^'"ºRJ!™" ÆOR CENTERING WORDS MUST BE INSIDE OF QUOTES"äRR!…"ENTER LINE 1 (MAX 30 CHAR)";Z$(51)ùR\!‹Z$(51)²"^"§8630"Sf!…"ENTER LINE 2 (MAX 30 CHAR)";Z$(52)7Sp!‹Z$(52)²"^"§8630`Sz!…"ENTER LINE 3 (MAX 30 CHAR)";5 COMPUTATION SUBROUTINES[cB'J²1pcD'‹P%(I)³±0§10850ŒcF'Z$(31)²Z$(30)ªP$ª"-"ªQ$œcL'R%(1)²T%(1)´cM'‹P%(I)±R%(15)§10450ÇcN'‹P%(I)²0§10450ÒcO'10518ùcP'‹X%³6§F%²F%ªS%(1): MON-SAT CREDIT$dQ' IFX%=0THENF%=F%+S%(1):REM SAT CREDITSdR' IFX%>1THENF%=5N%(2)²5§9170iXÒ#R$(2)²C$vXÜ#R$(3)²D$ƒXæ#R$(3)²D$Xð#R$(5)²A$Xú#R$(1)²E$«X$R$(12)²B$¹X$Z$(11)²H$ßX$‹Ã(Z$(11))±34§Z$(11)²È(Z$(11),34)ìX"$R%(5)²L%ùX,$R%(6)²H% Y6$ R%(10)=D%Y@$Z$(21)²I$=YJ$‹Ã(Z$(21))±29§Z$(21)²È(Z$(21),29)VYT$Z$(22)²Z$(165 18jhð' IFX%=1THENF%=F%+S%(5):REM SUN (WITH DAILY) CREDITšhñ'‹X%²6§F%²F%ªS%(5): SUN (WITH DAILY) CREDIT¥hò'10524µhó'‹T³±1§10223Àhö'‰10450Æh(Îh (J²6ãh (‹P%(I)³±0§10850ÿh (Z$(31)²Z$(30)ªP$ª"-"ªQ$i(TW²1i(R%(2)²T%(6)0i(‹P%(I)±R%(15)§1045 121,TAB(N)TAB(24)" "TAB(11)Z$(26)w^î%N$²Ä(R%(6))‰^ø%N²9«(Ã(N$)«2)¸^ú%Z$(12)²" "Ê^ü%‹R%(6)²0§9730ù^þ%Z$(12)²" PAST DUE "2_&˜121,Z$(12)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "£17)Z$(26)?_&N$²Ä(F%)O_5 Z$(53)uS„!‹Z$(53)²"^"§8630žSŽ!…"ENTER LINE 4 (MAX 30 CHAR)";Z$(54)³S˜!‹Z$(54)²"^"§8630ÜS¢!…"ENTER LINE 5 (MAX 30 CHAR)";Z$(55)ñS¬!‹Z$(55)²"^"§8630þS¶!R$²Ç(10)#TÀ! ENTER CONSTANTS AND OPEN FILESPTÊ!… "ENTER PERIOD BEGINNING MM/DD";R$(10)zTÔ!… "5 F%+S%(1):REM MON-FRI CREDIT^dS'10524ndT'‹T³±1§10063ydV'‰10450d`'‡dj'J²2œdl'‹P%(I)³±0§10850¸dn'Z$(31)²Z$(30)ªP$ª"-"ªQ$Èdt'R%(1)²T%(2)àdu'‹P%(I)±R%(15)§10450ódv'‹P%(I)²0§10450þdw'10518)ex' IFX%=0THENF%=F%+S%(2):REM SAT CREDITXey' IFX%>15 )ªZ$(21)cY^$R%(8)²C%‘Yh$R%(7)²R%(1)ªR%(2)ªR%(3)ªR%(4)ªR%(5)ªD%ªJ%°Yr$R%(9)²R%(7)«R%(8)ªR%(6)«F%¿Y|$ GOTO9940áY†$Ÿ 121,4: BEGIN PRINT OF BILLýY$R$(13)²R$(5)ª"-"ªR$(12)Zš$N²21«(Ã(R$(13))ªÃ(R$(1))«2)LZ¤$˜121,Ç(30)Z$(20)R$(13)£1)R$(1)£N)" "Z$(51)550Ci(‹P%(I)²0§10450Ni(10518~i( IFX%=1THENF%=F%+S%(6):REM SUN ONLY CREDIT¦i(‹X%²6§F%²F%ªS%(6): SUN ONLY CREDIT±i(10524Ái(‹T³±1§10263Öi (‹P%(I)³±0§10850òi"(Z$(31)²Z$(30)ªP$ª"-"ªQ$ýi((‰10450j2( j<(J²7 j>(‹P%(I)³±0§10850&N²5«(Ã(N$)«2)ç`H&X$²È(N$,Ã(N$)«2)ª"."ªÉ(N$,2)ap&˜121,Ç(30)Z$(18)£N)X$" "Z$(18)£N)X$R$1THENF%=F%+S%(3):REM MON-FRI CREDIT€f¡'‹X%³5§F%²F%ªS%(3): MON-FRI CREDIT‹f¢'10524›f£'‹T³±1§10143¦f¦'‰10450¬f°'´fº'J²4Éf¼'‹P%(I)³±0§10850åf¾'Z$(31)²Z$(30)ªP$ª"-"ªQ$õfÄ'R%(1)²T%(4) gÅ'‹P%(I)±R%(15)§10450 gÆ'‹P%(I)²0§10450+gÇ'10518]gÈ' 5)«2)"."É(N$,2)" "Z$(55)r[%N$²Ä(R%(3))„[%N²5«(Ã(N$)«2) [%R$(14)²R$(12)ª" "ªR$(2)Î[&%˜121,Z$(7)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "Þ[0%N$²Ä(R%(4))ð[:%N²5«(Ã(N$)«2)$\D%˜121,Z$(9)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "R$(1)1\F%N$²Ä(D%)P\H%Z$(34)²" ÄEL ÃO Ä/5^(Z$(31)²Z$(30)ªP$ª"-"ªQ$Skd(R%(4)²T%(8)kke(‹P%(I)±R%(15)§10450~kf(‹P%(I)²0§10450‰kg(10518¿kh( IFX%=5THENF%=F%+S%(8):REM NEWS OF DEL CO CREDITíki(‹X%²3§F%²F%ªS%(8): NEWS OF DEL CO CREDITøkj(10524lk(‹T³±1§10343ln(‰10450lx(J²90lz(‹P%(I)³±5a„&˜121,Ç(30)Z$(33)£5)Z$(3)R$(10)Z$(23)R$(11),R$®aŽ& PRINT#121,CHR$(29)" ÍAKE ÃHECKS ÐAYABLE & ÍAIL TO!"Êa˜&R$(13)²R$(5)ª"-"ªR$(12) b¢&˜121,Ç(29)Ç(31)" ÄENNIS ÆREEMAN ÁCCT# "R$(13)?b¬&˜121,Ç(30)" ÂOX 217 "Z$(5S±20§10470kVÄ"„1,P%(I)|VÎ"‹DS±20§10470‰VØ"„1,Q%(I)šVâ"‹DS±20§10470¥Vä"10850¶Væ"™N%(I),P$,Q$ÀVì"I²Iª1ÏVö"‹I±M%§8970ÙV#‰8860ßV #çV#I²1úV#‹N%(I)²1§10040 W#‹N%(I)²2§10080 W(#‹N%(I)²3§101203W2#‹N%(I)²4§10160FW<#‹N%(I)²5§10200YWF#‹N%(I)²5IFX%=0THENF%=F%+S%(4):REM 1 DAY ONLY CREDIT‡gÉ'‹X%²5§F%²F%ªS%(4): 1 DAY ONLY CREDIT’gÊ'10524¢gË'‹T³±1§10183­gÎ'‰10450³gØ'»gâ'J²5Ðgä'‹P%(I)³±0§10850ìgæ'Z$(31)²Z$(30)ªP$ª"-"ªQ$ügì'R%(2)²T%(5)hí'‹P%(I)±R%(15)§10450'hî'‹P%(I)²0§104502hï'1055Ó ÔIMES"o\J%N²24«((Ã(N$)«2)ªÃ(Z$(34)))¥\L%˜121,Z$(34)£N)È(N$,Ã(N$)«2)"."É(N$,2)" "R$(14)´\N%‹J%²0§9610Á\X%N$²Ä(J%)Ý\b%Z$(28)²" PORCH SERVICE"ü\l%N²24«((Ã(N$)«2)ªÃ(Z$(28)))&]v%˜121,Z$(28)£N)È(N$,Ã(N$)«2)"."É(N$,2)0]€%‰9620C]Š%˜121,£28)" "S]60§10850Ll|(Z$(31)²Z$(30)ªP$ª"-"ªQ$\l‚(R%(4)²T%(9)tlƒ(‹P%(I)±R%(15)§10450‡l„(‹P%(I)²0§10450’l…(10518Èl†( IFX%=5THENF%=F%+S%(9):REM NEWS OF DEL CO CREDITöl‡(‹X%²3§F%²F%ªS%(9): NEWS OF DEL CO CREDITmˆ(10524m‰(‹T³±1§10373mŒ(‰104506m–( END513)sb¶&˜121,Ç(30)" ÎEWTOWN ÓQ ÐA 19073 "Z$(15)©bÀ&˜121,Ç(30)" 353-6098 "£6)" "Z$(17)R$²bÊ& 121ºbÔ&I²1ÆbÞ&R%(I)²0Ðbè&I²Iª1ßbò&‹I±10§9990ébü&‰9950øb'‹G²1§10010c'‰8760 c'Î#1+c$'™"END OF RUN FILE CLOSED",T$5c.'‰8690Sc8'56§10250lWP#‹N%(I)²7§10290WZ#‹N%(I)²8§10330’Wd#‹N%(I)²9§10360¤Wn#‹N%(I)±9§9110®Wx#I²Iª1½W‚#‹I±M%§9130ÇWŒ#‰8980ùW–#™ "ILLEGAL NEWS TYPE CHECK FILE DATA IGNORED"X # SET UP ARRAYS FROM INPUT DATA,Xª#‹K%²4§9940;X´#‹K%²7§9940JX¾#‹TW²1§9940\XÈ#‹L€*NB"----FROM----" ÄENNIS ÆREEMAN ÂOX 217 ÎEWTOWN ÓQUARE, ÐA. 19073 €*FP0 -11/18" SEQ  "SS END OF FIND" SEQ  "SS---MISC---" SEQ  "LABELS6.P" SEQ £BLOCKS FREE.  "62" SEQ 6€*NB"!!--ÎÏÔÉÃÅ--!!!" ************************** ÃÏÐÙÒÉÇÈÔÓ ***************************** ÐLEASE CAREFULLY READ BOTH THIS NOTICE AND ALL OTHER COPYRIGHT & FREEWARE NOTICES WHICH MAY BE ON THIS DISK. ÓOME PROGRAMS ARE COPYRIGHTED BY THEIR CREAT6*‹ Y²9 § J²243=r*‹ Y²10 § J²273Pr*‹ Y²11 § J²304cr&*‹ Y²12 § J²334mr0*J²JªZsr:*Ž{rD*J²0rN*Ž®rb* JULIAN TO CALENDAR JD=MM/DD CWR 9/8/84ºrl*J²P%(I)Ærv* 10930Òrz*X$²Ä(D)Þr|*Y$²Ä(M)ùr€*P$²É(Y$,2)ª"/"ªÉ(X$,2)sŠ*J²Q%(I)s”* 10930s˜*X$²Ä6 OF FILE ROUTINE>m (Î#1Fmª(Î#2em´(™"END OF RUN FILES CLOSED"lm¾(‰3‚mÈ( COMMON SUB EXITŠmÒ(T²0”mÔ(‰9080¨mÜ( ERROR ROUTINE±mæ(™DS$Êmð(™"ERROR FILE CLOSED"Òmú(Î#1Úm)Î#2àm)€ûm) *GET DAY SUBROUTINE*4n) *1985 5=SAT 6=SUN 0=MON 1=TUES 2=W6 IGHT NOTICE IS NOT CONCLUSIVE. ÁS A SMALL GROUP WITH LIMITED MEANS, É HOPE EVERYONE USES THEIR VERY BEST JUDGEMENT IN TRYING TO MAKE THESE DETERMINATIONS. ÇENERALLY PROGRAMMING PRINTED IN MAGAZINES MAY ONLY BE ACQUIRED BY SUBSCRIBERS TO THOSE MAGAZINES6 ME PROGRAM IS FOR SALE AT THE LOCAL COMPUTER STORE UNDER ANOTHER NAME (STATE NAME AND PUBLISHER, ADDRESS IF POSSIBLE). ÕNFORTUNATELY, TIME DOES NOT ALLOW US TO CORRESPOND AS WITH MEMBERS AS LIBERALLY AS WE GAB ON THE PHONE. ÂÕÔ, YOUR LETTERS AND NOTES 6 ORS/CONTRIBUTORS AND PERMISSION MUST BE OBTAINED FROM THOSE AUTHORS PRIOR TO CERTAIN TYPES OF USEAGE AS MAY BE SPECIFIED. ÏTHER PROGRAMS ARE SUBMITTED ON A ÆÒÅÅ×ÁÒÅ BASIS -- I.E. IF YOU USE THEM, YOU ARE MORALLY OBLIGED TO MAKE ATLEAST A TOKEN PAYMENT T6 (D))sš*Y$²Ä(M)Dsž*Q$²É(Y$,2)ª"/"ªÉ(X$,2)Js¨*Ž[s²*‹J²0 § 11410os¼*‹J³²334 § 10980xsÆ*M²12„sÐ*D²J«334ŠsÚ*Žžsä*‹J³²304 § 11020§sî*M²11³sø*D²J«304¹s+ŽÎs +‹ J³²273 § 11060×s+M²10ãs +D²J«273és*+Žþs4+‹ J³²243 § 11100t>+M²9tH+D²J«243tR+Ž6 ED 3=THUR 4=FRI*Un) *MUST BE UPDATED JAN/1986*dn)W%²P%(I)­7vn)X%²P%(I)«W%¬7|n)Ž’n)‹P%(I)²R%(15)§T²1ªn)™P%(I),R%(15),Q%(I)¼n)P%(I)²P%(I)ª1Ón )‹P%(I)²Q%(I)§10532Ùn")Žín$)P%(I)²0:Q%(I)²0õn&)T²1ûn()Ž*o,) SUBROUTINE FOR M/D TO JULIAN CO6. ÓOMETIMES AFFIDAVITS OF SUBSCRIPTION ARE USED -- BUT IT IS HAPHAZZARD AT BEST. ÏN THE OTHER HAND, MAGAZINES AND PROGRAMMING PUBLISHED BY ÃOMMODORE ARE INTENDED FOR THEIR CUSTOMERS, SO FOR OUR PURPOSES ÃOMMODORE WRITTEN ARTICLES AND UTILITIES ARE GENE6ARE READ AND USUALLY PASSED ON TO OUR ÑUESTION AND ÁNSWER MAN, ×ARREN ÓWAN. ÙOU JUST MIGHT HEAR FROM HIM, MORE LIKELY YOUR COMMENT MAY SEED A PARAGRAPH OR TWO IN OUR PUBLICATIONS. ÔHANK YOU FOR YOUR COOPERATION AND ASSISTANCE IN ADVANCE. -------------6O THE AUTHOR/CONTRIBUTOR. ÍANY ÃÂÕÇ DISKS BEAR THE NOTICE "ÔHIS IS A ROYALTY PAID COPY" -- AS SUCH THE ÆREEWARE CONSIDERATION HAS BEEN WAIVED FOR THAT COPY ONLY BY THE INCLUSION OF A NOMINAL ROYALTY REMITTED TO THE AUTHOR/CONTRIBUTOR. ×ITHOUT ACTS OF Æ6-t\+‹ J³²212 § 111405tf+M²8Atp+D²J«212Gtz+Ž\t„+‹ J³²181 § 11180dtŽ+M²7pt˜+D²J«181vt¢+Ž‹t¬+‹ J³²151 § 11220“t¶+M²6ŸtÀ+D²J«151¥tÊ+ŽºtÔ+‹ J³²120 § 11260ÂtÞ+M²5Îtè+D²J«120Ôtò+Žètü+‹ J³²90 § 11300ðt,M²4ût,D²J«90u,Žu$,‹J³²59§ 11340u6NVERSION@o-)‹R$(11)²"0"§10587]o.)‹Ê(R$(11),3,1)²"/"§10550eo0)J²0|o2)™"BAD ENDING DATE"‚o4)•o6)Y$²È(R$(11),2)¨o8)Z$²É(R$(11),2)´o:)Y²Å(Y$)Ào<)Z²Å(Z$)Ío>)‹Y²1§J²0Ûo@)‹Y²2§J²31éoB)‹Y²3§J²59÷oD)‹Y²4§J²90pF)‹Y²5§J²120pH)‹Y²6§J²151$pJ)‹Y²7§J6RALLY UNRESTRICTED. ÏBVIOUSLY PROGRAMS PURCHASED BY ÃOMMODORE FROM 3RD PARTY VENDORS (SUCH AS ÐRECISION ÓOFTWARE AND ÉNFO ÄESIGNS) AND BEARING DUAL COPYRIGHT NOTICES OR THEIR COMMERCIALIZED PROGRAMMING ARE LIKELY TO BE RESTRICTED. ÓIMILARLY CERTAIN OBV6------------ ÆAIR ÕSE ÄOCTRINE. ÕNITED ÓTATES ÃOPYRIGHT ÌAWS PROVIDE FOR WHAT IS COMMONLY KNOWN AS FAIR USE COPYING (FAIR USE DOCTRINE). ÓIMPLY PUT, A PURCHASER OF COPYRIGHTED MATERIALS IS GENERALLY FREE TO MAKE COPIES FOR HIS OWN USE WITHOUT VIOLATIN6ÒÅÅ×ÁÒÅ GRATITUTED, MAY CONTRIBUTORS MAY NOT CONTINUE TO GO TO THE EXTREME EFFORT EXHIBITED HEREIN. ÃÂÕÇ, AND É HOPE É SPEAK FOR ALL MEMBERS, HAS NO INTEREST IN DUPLICATING MATERIALS NOT IN THE PUBLIC DOMAIN. ÁNYONE CAUGHT SUBMITTING NON-PUBLIC DOMAIN .,M²3&u8,D²J«59,uB,Ž@uL,‹J³²31 § 11380HuV,M²2Su`,D²J«31Yuj,Žaut,M²1iu~,D²Jouˆ,Ž{u’,M²0:D²0uœ,Ž¢uà.“"MENU B128",8:™"RUN";sø*D²J«304¹s+ŽÎs +‹ J³²273 § 11060×s+M²10ãs +D²J«273és*+Žþs4+‹ J³²243 § 11100t>+M²9tH+D²J«243tR+Ž6²1813pL)‹Y²8§J²212BpN)‹Y²9§J²243RpP)‹Y²10§J²273bpR)‹Y²11§J²304rpT)‹Y²12§J²334|pV)J²JªZ‰pX)R%(15)²JpZ)Ž p[)R%(15)²0:J²0¦p\)ŽÕp^) SUBROUTINE FOR M/D TO JULIAN CONVERSIONêp`)‹V$(K)²"0"§10820qh)‹Ê(V$(K),3,1)²"/" § 10640qr)J²0Kq|)˜121,Ç(306IOUSLY COMMERCIALIZED PUBLICATIONS OF ÃOMMODORE ITSELF ARE NOT INTENDED FOR PUBLIC DOMAIN USEAGE. ÔHE ENTIRE ÃOMMODORE EDUCATION LIBRARY IS FOR COPYING (AVAILABLE THRU ÔÐÕÇ AND MOST LOCAL CLUBS). ÍUCH OF THE ÃOMMODORE PUBLIC DOMAIN LIBRARY IS IN PURE B7G ÆEDERAL LAW. ÈOWEVER, TO MAKE COPIES OF COPYRIGHTED MATERIALS CONTARY TO THE COPYRIGHT OWNERS' INTENTION FOR THE BENEFIT OF THIRD PARTIES, OR POSSIBLY EVEN MULTIPLE PLACES OF USE (SUCH AS BRANCH OFFICES/STORES/DEPARTMENTS) MAY NOT BE PERMISSABLE. ÃER6MATERIALS WILL BE SUMARILY ABORTED FROM MEMBERSHIP. É'M NO EXPERT IN COPYRIGHT LAWS, BUT AS É UNDERSTAND IT, MANY PERSONS ROUTINELY PUT COPYRIGHT NOTICES ON FREEWARE AND PUBLIC DOMAIN DISKS TO DISCOURAGE PROFITEERING. ÔHUS THE MERE EXISTANCE OF A COPYR7 0 0 0 0 2 1 0 0 0 5 0 0 0 62 109 JAMES HAVERTOWN PA 19083 STURM 4490155 7 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 1 6 0 0 0 62 108 JAMES HAVERTOWN PA 19083 FALLIS 7896496 8 0 0 1480 0 0 6)" ACCT ";T$(K);" ";U$(K);"BAD DATE";U$(K)Qq†)Žcq)Y$²È(V$(K),2)uqš)Z$²É(V$(K),2)q¤)Y²Å(Y$)q®)Z²Å(Z$)q¸)‹ Y²1 § J²0®qÂ)‹ Y²2 § J²31¿qÌ)‹ Y²3 § J²59ÐqÖ)‹ Y²4 § J²90âqà)‹ Y²5 § J²120ôqê)‹ Y²6 § J²151rô)‹ Y²7 § J²181rþ)‹ Y²8 § J²212*r6ASIC -- AND RUNNABLE ON ANY ÃOMMODORE MACHINE. ÉF YOU DISCOVER SOMETHING ON ANY OF OUR DISKS WHICH YOU BELIEVE TO BE VIOLATIVE OF COPYRIGHT, KINDLY WRITE ME YESTERDAY. ÉDENTIFY THE DISK, PROGRAM AND WHY YOU BELIEVE IT IS ILLEGAL -- I.E. YOU KNOW THE SA73 SMITH JOS 4465336 17 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 62 21 JAMES HAVERTOWN PA 19083 DONOVAN 4465063 18 0 0 960 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 7 0 0 0 0 0 0 0 0 0 1 2 0 0 0 62 105 JAMES HAVERTOWN PA 19083 FITZPATRICK 4464902 9 0 0 1375 0 0 0 0 0 0 0 0 0 0 0 2 3 0 0 0 5 0 0 0 62 104 JAMES HAVERTOWN PA 19083 MARSO 44661477TAIN PROGRAMMING IS SOLD UNDER CONTRACTS FAR MORE RESTRICTIVE THAN THE COPYRIGHT LAWS, AND SUCH CONTRACTUAL AGREEMENTS ARE ENFORCABLE UNDER APPLICABLE CIVIL LAWS OF CONTRACT. ÃERTAIN STATES, NOTABLY ÌOUSIANA AND RECENTLY (BUT NOT FINAL) ÉLLINOIS HAVE EN7AN AS STATED SUPRA, NO COPYING RESTRICTIONS ARE IMPOSED REGARDING USE OF THESE MATERIALS BY ÃÂÕÇ MEMBERS IN GOOD STANDING. ÉT IS HOWEVER REQUESTED THAT IF ADDITIONAL COPIES ARE DISTRIBUTED BY A MEMBER TO OTHERS (PREFERABLY MEMBERS), THAT A COPY FEE OF $7 USING THOSE NUMBERS AS ANNOUNCED. ×E SUGGEST YOU USE ÓCOTCH TAPE TO BETTER AFFIX THE LABEL TO THE PRESENT DISK. ÎORMAN ÄELTZKE ÃÂÕÇ ÏRGANIZER 4102 Î. ÏDELL ÎORRIDGE, ÉL. 60634 312 456 8720 7PM TO 10PM ÃÓÔ Ð.Ó. ÏN OCCASION OUR DISK DRIVES USED FO7 0 0 62 25 JAMES HAVERTOWN PA 19083 DONAGHY 4465755 19 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 1 0 277 282 5 0 277 282 62 29 JAMES HAVERTOWN PA 19083 BARILOTTI 4490785 20 0 0 1480 0 0 0 0 0 0 07 10 0 0 960 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 62 101 JAMES HAVERTOWN PA 19083 COOPER 4496199 11 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 6 0 0 0 62 100 JAMES HAVERTOWN PA 1907 ACTED LAWS CODIFYING "SHRINK WRAP CONTRACTS". ÔHIS IS A DEVICE WHEREIN THE COPYRIGHT OWNER IS PERMITTED TO BIND THE PURCHASER TO A CONTRACT CONTAINED WITHIN THE SEALED PACKAGE EVEN THOUGH THE PURCHASER HAS NOT HAD AN OPPORTUNITY TO READ WHAT HE IS AGREE7 5.00 PER DISK SO DUPLICATED BE REMITTED TO US. ÔHIS ALSO SHOULD BE REGARDED AS A ÆÒÅÅ×ÁÒÅ OBLIGATION. ÐLEASE REMIT TO ÎORMAN ÄELTZKE AS BELOW AND INDICATE THAT THE SUM IS FOR COPY FEE(S) REGARDING ÃÂÕÇ LIBRARY MATERIALS. ÍATERIALS HAVE BEEN SUBMITTED 7R DUPLICATION MAY BE MARGINALLY OFF SPEED. ÓHOULD YOUR EQUIPMENT BE SLIGHTLY OUT OF ADJUSTMENT IN AN OPPOSITE DIRECTION (I.E. ONE FAST, ONE SLOW), YOU MAY HAVE DIFFICULTY IN BACKING UP THE DISK. ÐLEASE TRY TO BACK OF BOTH D1=0 AND D0=1. ÉF THAT FAILS,7 0 0 0 0 1 6 0 0 0 62 41 JAMES HAVERTOWN PA 19083 GRENTZ 0 21 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 62 45 JAMES HAVERTOWN PA 19083 KEATON 4463288 22 NEWS DC 10/17 0 1480 783 JONES C 0 12 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 3 1 0 0 0 5 0 0 0 8 0 0 0 62 40 JAMES HAVERTOWN PA 19083 LARKIN 4497396 13 0 OVERPAYMENT 1480 0 450 0 0 0 0 0 0 0 0 0 2 17ING TO. ÏBVIUSLY SUCH A "UNIQUE" LEGAL CONCEPT IS BEING HOTLY CONTESTED. ÎOT ONLY IS A CONTRACT BEING IMPOSED, BUT OFTEN THE SOFTWARE IS STATED AS BEING LICENSED, NOT SOLD! -- I.E. THE PURCHASER OWNS NO PRODUCT, ONLY A PERMISSION TO USE. ÍOREOVER SOME7TO ÃÂÕÇ FOR THE USE OF ITS MEMBERS, AND NO PERMISSION IS GRANTED BY ÃÂÕÇ, MYSELF OR ANY OTHER PARTY TO DISTRIBUTE COPIES BEYOND THE MEMBERSHIP OF ÃÂÕÇ. ------------------------- ÃÂÕÇ LIBRARY DISKS ARE PROVIDED IN SEVERAL FORMS, THIS ONE IS OF THE OFFICM SEND US A NOTE AND WE WILL REPLACE THE DISK PROMPTLY WITHOUT CHARGE. €*FP0 AFFIX THE LABEL TO THE PRESENT DISK. ÎORMAN ÄELTZKE ÃÂÕÇ ÏRGANIZER 4102 Î. ÏDELL ÎORRIDGE, ÉL. 60634 312 456 8720 7PM TO 10PM ÃÓÔ Ð.Ó. ÏN OCCASION OUR DISK DRIVES USED FOà0 0 0 0 0 0 0 0 0 0 35 2 1 0 0 0 5 0 0 0 END END END HAVERTOWN PA 19083 GRENTZ 0 1 0 0 1480 0 0 0 0 0 0 0 0 0 0 35 2 1 0 0 0 5 0 0 0 480 0 0 0 0 0 0 07 0 0 0 5 0 0 0 62 32 JAMES HAVERTOWN PA 19083 MURPHY 4466375 14 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 3 1 0 0 0 5 0 0 0 8 0 0 0 62 28 JAMES HAVERTOWN PA 19083 VALENTI 0 15 0 0 1480 0 7 STATES, ÉLLINOIS NOTABLY, IS ATTEMPTING TO PERMIT THE SOFTWARE PRODUCERS TO DISCLAIM ALL WARRANTEES INCLUDING EVEN LOADING OR OPERATING AT ALL! ÔHE ISSUE OF ÓTATE'S RIGHTS TO IMPOSE LAWS RELATING TO COPYRIGHT (PARTICULARY AS THESE LAWS CONFLICT WITH ÆE7IAL RELEASE OR REVIEWED RELEASE (ÃÂÕÇ # OR ÒÒ #) VARIETY. ÉF THE DISK IS LABELED WITH A PIGGYBACK LABEL (EASILY DETACHABLE AND HAVING "ÐÅÅÌ ÈÅÒÅ" PRINTED ON THE RIGHT HAND END THEREOF), THE DISK IS SUBJECT TO FUTURE UPDATE. ÙOU MAY ACQUIRE SUCH UPDATED7ISC---" SEQ>ÔHE 4023 ÃÍÍÄÒ PRINTER 3 "SPIN DISK" PRG 7 "LABELS6.P" SEQ WORKS WITH'FIND'AS IS: 7 "FILE CONCAT" PRG ÎÏÔÅ: LOWER CASE PRINTS OUT 'OK' ON THE 4023 1 "SCREEN PRINT" PRG PRINTER (DATA FILES ARE IN LOWER É SET 4023 PRINTER TO LOWER CASE ÍÁËÅ€£Á€£ÂÁÃËÕЀ£ÃÏÐÙ€£&€£ÐÕÔ€£ÏÎÅ€£É΀£ÄÒÉÖÅ€£0€£&€£ÏÎÅ€£É΀£ÄÒÉÖÅ€£1€£ÆÏÒ€£ÓÍÏÏÔÈ ÒÕÎÎÉÎÇ€£ÏÆ€£ÆÉÎÄ€£ÐÒÏÇÒÁÍÓ (SEQ FILES NEED TO BE ON BOTH DRIVES) INT" PRG PRINTER (DATA FILES ARE IN LOWER 7 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 62 24 JAMES HAVERTOWN PA 19083 JACOBS 4468673 16 0 0 1480 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 5 0 0 0 62 20 JAMES HAVERTOWN PA 19087DERAL LAW IN MANY AREAS) IS NEW AND UNCHARTED TERRITORY. ÔAKE CARE TO FOLLOW YOUR LOCAL PRESS ON THIS SUBJECT. ------------------------- ÃÂÕÇ HAS INCURRED CONSIDERABLE EXPENSE IN PREPARING ITS LIBRARY. ÎONE OF OUR DISKS ARE COPYPROTECTED AND OTHER TH7 DISKS WHEN ANNOUNCED AT 1/2 PRICE (INCLUDING 50% OFF ON ROYALTIES IF ANY). ÔHE DETACHABLE LABEL SERVES AS PROOF OF OWNERSHIP AND MUST BE RETURNED WITH SUCH UPDATED DISK ORDERS. ÔHE UPDATED DISKS WILL CARRY SPECIAL STOCK NUMBERS AND CAN ONLY BE ORDERED7CASE) 119 "BILL B128" PRG CAPITAL LETTERS CONVERT TO GRAPHICS, 15 "LOADTRANS INSTR" PRG SO LIST THE PRG & CHANGE TO LOWER CASE WHERE NESCESSARY IN OTHER PRGS OR JUST