@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} HE |||DDOS DOSDOS SYS }}}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED COPYING---DN:4}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 1.?}D1:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 128ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4ukuSFILESN0LAB0AMTN 2 @@@ .V}. PAPER ROUTE INITIALIZATION. PROGRAM - STREETS + LABELS./!!UPDATE AND RUN THIS PROGRAM/TO PREPARE THE W}STREET AND/LABEL FILE.&/D/VERSION OF 12/31/80N/REVISED 1/4/81//;@,DATA FILE/STREET X}NAMES/;@,/ LABELS/;@ ,/;@,AMOUNTS (3)p0SET CONSTANTS06. D:STREET1.DAT2Y}***********************2INITIALIZE STREET NAMES2***********************3 PREPARING STREETS3 @@Z},3"NUMBER OF NAMES.3 @03  STREETS63-@@3 "J3 @T3 [}3 3 PREPARING LABELS3SETUP DAYA, DAYB3-@@3 "3 @,,3 3\}"AMOUNTS3 @3@33############3STREET NAMES3############3FORMAT - STREET]} NAME WITH3TRAILING BLANKS TO THE3LENGTH OF 'SN0$'. FOLLOW3BY COMMA AND NUMBER (TO3FORCE FIXED LENGTH FO^}R3'SN0$').464Kennedy Drive ,14Quail Drive ,2&4Santos Court ,304Semel Way ,4:4Serpa_} Drive ,5D4Simas Drive ,64 DATA FOR DAYA, DAYB, LABP$4 1,1,SUNDAY ONLY ,14 6,6,DAILY ONLY `} ,24 7,7,SUNDAY+DAILY ONLY ,34 1,7,ALL SUNDAYS ,44 6,7,ALL DAILYS ,54""-1,-1,ALL DAYS a} ,6 53 AMOUNTS FOLLOW FOR*5DELIVERY DAYS 1,6,AND 745IN FORMAT X.XX PACKED AS>5FOLLOWS: 1.116.667.77Hb}52.755.007.006*** END OF DATA *** D:INITST.BAS2 @@@ .>.CW@@@H@'' PAPER ROUTE INITIALIZATION$'PROGRAM - MAP DATA.'d}8' USE THIS PROGRAM TO UPDATEB'PREPARE THE MAP DATA FILEL'V'VERSION OF 12/31/80X'`' PREPARING MAP De}ATAb'**@@ D:MAP.DATj'6-ARRAY INDEXt'"# CONTIGUOUS POINTSv' @~'f}" B'-@'6-%@' "' @,' (( B2(  MAP ELEMENg}TS SAVED8(@:(*####################+STREET PLOTTING DATA +####################+ + FORMAT:h}"+*+ DATA N4+DATA X,Y (FOR I=1)>+DATA X,Y (FOR I=2)@+.B+.D+.F+DATA X,Y (FOR I=N)H+J+ENi}D WITH N=0R+\+KENNEDY DRIVEf+2p+ 12,72z+ 152,72+STEMEL WAY+3+ 24,32+ 64,32+ 104,16+j}SIMAS DRIVE+2+ 64,32+ 64,72+QUAIL DRIVE+2+ 64,60+ 116,60,SERPA DRIVE,3, 100,6k}0$, 100,40., 116,328,SANTOS COURTB,3L, 40,32V, 40,16`, 48,16.ALL DONE.0 D:INITMP.BAS}bcSNSN0HDTHDT0HNMHNM0HINHSNANSPLAB0LAB1LABPDATEDAT1DFILESFILEMFILEBUFAMTDAYADAYBMXMYLHLHm}SNLBANPNHKKNMXNHSHDJJJHSKXXXXXXNHPP3P3PPXYLUJOTZ< o}APX-20013NEWSPAPER ROUTE MANAGEMENTJOHN R. POWERS III05/01/8185COMPLETEDD2:TITLE! INPUT MASTER DISK TO N D7;I] _ ` t xy     / > p}A( AR A| )Ar )@@@@ @@@% @`!@v"@#q}$@%&'@(@)*+,-./012@3r}@4@5@6789:;<=>?@ABAs} x +@-@@6(@ copyrightH-@@`(@ ATARIt-@Ax t}d!!***************************n!!* NEWSPAPER ROUTE *x!!* MANAGEMENT PROGRAM *!!* A u} *!!* 'PURE VANILLA' *!!* PRODUCTION *!!* BY JRP III *!!************v}*************** + FILE: PAPER31.LST DATE: 3/27/81 6IF THE PROGRAM IS STOPPED8w}WITHOUT SAVING DATA,:!!WARM START WITH "GOTO 2000"@BUSES 800 CONSOLE WITH 40KD##**** 810 DISK DRIVE OR EQUx}IV.F**** 850 INTERFACEH**** 825 PRINTERJ""**** ONE JOYSTICK CONTROLLER*************STRING ARRAy}YS*************STREET NAMES (15*12);A,;@,HOUSE DATA (99*10);A ,;@,z} HDT$(1,2)=HSX=STREET INDEXHDT$(3)=HST=STATUSHDT$(4)=HDD=DELIVERY TYPEHDT$(5)=spare HDT$(6,8)=X=H{}OUSE X-COORD.!!HDT$(9,10)=Y=HOUSE Y-COORD.HOUSE NUMBERS (99*4);A,;@,";@,"HNM$+HD|}T$ INPUT!;@ ,!HOUSE + STREET;@,USER INPUT!;@,!PARAMETER FLAG ;@ , GEN}}ERAL LABEL ;@ , GENERAL LABEL;A!,PRINT LABELS;@,TODAY'S DATE!;@,!DA~}TE FRO}ILE!;@,!DATA FILE NAME;@,STREET FILE;@,MAP FILE ;A , STRI}NG BUFFER#;@,#CHARGES (X.XX*3) **************"NUMERIC ARRAYS$*************** 9@, DE}LIVERY DAYS4 9@, DELIVERY DAYS>STREET MAP COORDINATESH9@@,9@@,*********CONSTA}NTS*********6. D:ROUTE3.DATDATA 6. D:STREET1.DAT STREET 6. D:MAP.DAT MAP POINTS&6-@}&LENGTH OF HOUSE NUMS&6-@&LENGTH OF HOUSE DATA'6-@'LENGTH OF STREET NAME"6-@ "LENGTH} OF LABELS************MAIN PROGRAM************L V BPREPARE MAP` B0PREPARE LIST}b j ABFETCH DATAt$($(TODAY'S DATE (MM/DD/YY) ~ GOSUB 23400:REM INITIALIZE*** MAIN MEN}U *** B MAIN MENU""@A!"DRAW MAP#"@A##STRTS/STP!"@A%!}COLLECT"@A2PRINT"@A4SAVE* A 4*** DRAW MAP ***H BDRAW S}TREET MAPR B SELECT P2=STATUS\ 6.=:,SET STATUS FLAGp B0 SHOW HOUSE MARKS(SELECT(} 1.AGAIN WITH CLEAR( 2.AGAIN W/O CLEAR( 3.RETURN TO MENU  BGET ANS!"@A!!}W/CLEAR#"@A!0#W/O CLEAR"@A MENU A"*** STARTS/STOPS ***$  BP}SELECT STREETV A  *** COLLECTIONS *** B$ COLLECTIONS MENU ""@A&"RECEIPTS }"@A'LIST  A ANS=0( PRINT RECEIPTS (ANS=1)2 ( B`OPEN PRINTER4 "@A }<  BbPRINT RECEIPTS A  PRINT RECEIPT LIST ( B`OPEN PRINTER "@A }  BhDO IT A  *** PRINT HOUSES *** B A H *** SAVE DATA ***\ A@f } A *********SAVE DATA********* + TO SAVE HOUSE DATA ON '' INSERT }DATA DISKETTE BΛOPEN FILE ON DISK @@ 6.NEW FILE DATE @}TODAY'S DATE  @HOUSE COUNT$  HOUSES STORED ON &6-@INDEX TO HNM$(6-@}INDEX TO HDT$,-@6 6.7,HOUSE NUMBER@ 6.7,HOUSE DATAD @-->DISKJ 6-%}HOUSE NUMBERL 6-%HOUSE DATAR:GOSUB 4500:REM COUNTERT X  HOUSES SAVED \@^ } BΛf$h**********rFETCH DATA|**********!!STORE HOUSE NUMBER AND DATA IN SORTED ORDER} (AS INPUT) PREPARING HOUSE DATA  FROM FILE '' @@@DATE} SAVED!@!NO.DATA POINTS   HOUSES SAVED ON $6-@$HOUSE NUMBER INDEX"6-@}"HOUSE DATA INDEX-@@&67,.7@<@,&NUMBER&'6.7@<@,'HOUSE }DATA0HDT0$(5,5)=" ":REM SPARED 67,.HOUSE DATAZ 6-%HOUSE NUMBER\ 6-%HOUSE DATAbGOSUB 4500}:REM COUNTERj BCOMPILE STATSl n&6-&@&LAST BYTE IN ARRAYp B:, 67,. r  HOUSE}S FETCHED v@ BPRINT STATS$*************HOUSE COUNTER*************336}-@%+$+A:7@<@,,&@,,$$  -  7<%&@,$'******************'SETUP MA}PPING DATA$'******************`' PREPARING MAP DATAb' @@j'6-ARRAY INDEXt'#}@## CONNECT POINTS~'" B'-@'6-%@'@' 68,-68},-'""@68,-6"PEN UP' (( B2( 6-SAVE ARRAY LENGTH4(  MAP ELEMENTS8(@};($(***************(DRAW STREET MAP(***************( +@( @)-@)8, }B)/8,8,") B`h),O:8,,8,) *$.*********.MAIN MENU.*********X/ +}b/''( ŠҠŠ͠v/(((( Especially Written for/&(&( Rob, Matt, and Jay/#}(#( ԠŠ/(/(( 1. Display Map/(( 2. Starts/Stops/(( 3. Collections}/"("( 4. Print House List/(( 5. Save Data 0(0 BINPUT ANSWER 0 @B *0}!@B f0$p0****************r0COLLECTIONS MENUt0****************z0 +0( }Ӡ0 ( ( Select One0 ( ( 1. Print Receipts0$($( 2. Print Receipt ListB1(L1 B}INPUTV1 B$`1!@B$1$2***********************2INITIALIZE STREET NAMES2}***********************3 PREPARING STREETS3 @@"36-@ARRAY INDEX,3"@}"NUMBER OF NAMES63-@@3@r3 67,.STORE ST.NAME|3 6-%NEXT ARRAY INDEX3 3SET}UP DAYA, DAYB36-@ARRAY INDEX3-@@3@3 68,-DELIVERY FLAG #13 68},-DELIVERY FLAG #23 67,.SAVE LABEL3 6-%INCREMENT INDEX3 3@CHARGES:4@D}4  STREET NAMESN4$6**********************6LIST STREETS AND INDEX6**********************7  } Ԡؠ 7 7&&-@P:+%@,'@,7   76-@%+$+&@,,"7 7<%&@},$7 6-%P:+%@,'@,&7!BA0(7   *76-@%+$+&@,,,7 7<%&@,27} d7 n7$:***************:HOUSE SELECTION:***************: +: B@LIST STREETS:}(( STREET INDEX:( FOR MAIN MENU ; BINPUT; 6-;"BS;!BQ;} BQ;-6-@%+$+&@,,-ARRAY INDEX;6.7<%&@,; HOUSE NUMBER FOR ; } FOR HOUSE INDEX $;&;B:,!BQ`(; BsHOUSE INDEX.; HOUSE NUMBER FOR 0;!!  FOR }STREET INDEX 2;4;B:,"BP8; BTFILL HNM0$t; B`RETRIEVE STREET;BS}; BdADD HOUSE;"BPNOPE; BVFOUND, NEXT?; BPANOTHER HOUSE?'<$(< } **************************2< RIGHT JUSTIFY HOUSE NUMBER<< **************************F< 6-B:,EXTEND+FILLH<"}"BT"NO NULLSP<7<,0 BT`Z<##67<,.7&@<&@,\<%6-&@%SHIFT HNM0$ RIGHT^}<!@BTP`<67<,. LEADING SPd<B:,BTn<67B:,%@,. x< BT0<$ 6-DELIVERY> BY}RECYCLE>!!*** DELETE (AT INDEX J) ***&> BvDELETE HOUSE J0> BYRETURND>*** MAP W/O HOUSES ***}N> BDRAW STREETSP> B6JOYSTICK-->X,YT> BYRECYCLEX>*** MAP WITH HOUSES ***Z> B}DRAW S}ETS[> 6.1 SELECT ACTIVE ONLY\> B0SHOW HOUSES^> B6JOYSTICK-->X,Y`> BYRECYCLE}b>*** PREVIOUS HOUSE ***d> BiPUPDATE DATAf>!@6-&@h> BVRECYCLEl>*** NEXT HOUS}E ***n> BiPUPDATE DATAp>  6-%@r> BVRECYCLEv>*** RECYCLE ***x> BiPUPDATE DAT}Az> BVRECYCLE|>*** RETURN ***~>$>***********************>GENERAL HOUSE RETRIEVAL>***********}************>ENTER WITH STREET INDEX=I>AND HOUSE NO.=HNM0$>RETURN WITH HOUSE INDEX=J>>!!IF HOUSE NOT F}OUND THEN J=0>AND J2=NEW LOCATION - 1H?J?BINARY HOUSE SEARCHL?\?#6-@#BEGINNING OF LIST^? 6-}END OF LISTf?SEARCH LOOPh?6-%P:+&,'@,j?'6-@%+$+&@,,'INDEXl?6-A:7<%@,,ST.}p?!Bb`r? Bbz?!!STREET IS OKAY, CHECK HOUSE|?,6-@%+$+&@,,,ARRAY INDX~? 37<%}&@,Bb`? 27<%&@,Bb? BcA PERFECT MATCH?I OR HNM0$ IS BIGGER?Bc@}NOPE?!6-%@!NEW BEGINNING? Bb0TRY AGAIN?I OR HNM0$ IS SMALLER?Bc NOPE?6-&}@NEW END?!Bb0AGAIN?NEW ITEM IS SMALLER?6-&@?NEW ITEM IS BIGGER? NO FI}ND?6-J2=INSERT-1? Bc?FOUND AT J2? 6-@$@!!***************************@!!INSERT ANO}THER HOUSE NUMBER@!!***************************@ BfGET START INFO @"BeNOPE"@6-@}STATUS=START$@ 6-DELIVERY(@&6-%@&INSERTION LOCATION*@%6-%@%TOTAL HOUSE COUNT0@'6-@}%+$+&@,,'ENTRY8@"BeAT ENDB@ 6.7,SAVE OLD DATAL@67%,.MOVEV@'6-@%+$+&@},,'ENTRY`@ 6.7,SAVE OLD DATAj@67%,.MOVEt@INSERT NEW INFORMATION~@67<%&@,.@06-}6-0INITIAL X,Y = ZERO@ BiPUPDATE DATA @ J@$@************************@SET NEW HOUSE S}TART DATA@************************A((ENTER 0=NO CHANGE(A( 1=SUNDAY ONLY2A( 6=DAILY ONLYB@B6. CLEARBB67@,.=:,STREETJB67@,.=:,STATUSLB67@},.=:,DELIV.PB67@,.=:,STORE XRB67@ ,.=:,STORE YTBB:,"BiVB#67@,. #F}IXED LENGTHZB+6-@%+$+&@,,+DATA INDX\B67<%&@,.fB$C **************************C HOU}SE NUMBERS FOR STREET IC **************************C)6-@%$+&@,)ARRAY ENDC$6-@$HOUSE NUMBE}R INDEXC C  SEARCHING C C-@C6-A:7<%@,,ST.D Bt`NOT YET D!}BtPASTD 7<%&@,4D 6-%>D ASSUME ORDERED LISTHD RD$D*******************DDELET}E HOUSE AT 'J'D*******************D!BwD"" CONFIRM DELETION (Y OR N)DD0YBwD"}BwLASTE(6-@%+$+&@,,(DELETEE 6-%SAVE START$E67,.7,MOVE NUMS.E(6-@%+$}+&@,,(DELETE8E 6-%SAVE STARTBE67,.7,MOVE DATAtE6-&@HOUSE COUNT~E$PF**********}********ZF TO CONTINUEdF******************nF xF  TO CONTINUEFF$F *****************}*********F GENERAL SINGLE-DIGIT INPUTF **************************FFB:,"BF 6-@:,FIRS}T CHAR.F @HB0F!@WB9G 6-A:,G BG MUST BE A DIGIT"G PLEASE R}E-ENTER,G BhG6-DEFAULT=0rG$8J**********************BJRIGHT-JUSITIFIED PRINTLJ**********}************VJ A  `J @  jJ J$K********************* KINITIALIZE STATISTICS}K*********************KB6-6-'6-36-?6-B$K******************KCOMP}ILE STATISTICSK******************K$$7@<@,40BK!6-%@!ACTIVE HOUSESK$$7@<@},41BL$$7@<@,46B L$$7@<@,47B@L B,L6-%@SU}NDAY ONLY6L B@L6-%@DAILY ONLYJL BTL 6-%@ SUNDAY+DAILY^L B|L6-%@}STOPSL$L****************LPRINT STATISTICSL****************L#(#( ACTIVE HOUSES.......L 6-} BL( SUNDAY ONLY...L 6- BM( DAILY ONLY....M 6- B0M( SUN+}DAILY.....:M 6- BNM ( STOPS...............XM 6- BM$M***************MHOUSE SELEC}TIONM***************M SELECTM  1.ACTIVE HOUSESM  2.STOPSM  3.BOTH M BGET ANS}N!6-@&!STATUS=1,0,-1N$R****************RPRINT HOUSE LISTR****************RP0: 0=SCREEN, 1}=PRINTER&R +0R!!( ԠŠ:R(NR#6-#NO.HOUSES PRINTEDR BSELECT TYPER}(SELECTR( 1.SUNDAY ONLYR( 2.DAILY ONLYR( 3.SUNDAY+DAILY ONLYR( 4.ALL SUNDAYS (1+3)R( 5}.ALL DAILYS (2+3)R( 6.ALL DAYS (1+2+3)R BINPUTR @BR!@BR'6-@}%+$+&@,,'ARRAYS6.7<%&@,S 6-8, S 6-8,(UPRINT ALL STREETS*U B$SET OUTPUT D}EV.,U"@BQUIT.U"@BAGAIN2U B%HEADING4U""@("( PRINTING...:U&}6-@&START AT TOP OF LISTX  LISTING OF HXX FOR X ON X X$Y}Y******************YMARK HOUSES ON MAPY******************(Z6-@2Z @HOUSE MARKERX,Y4\************************X}\  (,)l\ B@JOYSTICK-->X,Y\$]********************]JOYSTICK MAP CONTROL]********* }***********]MOVE DOT WITH JOYSTICK]PRESS BUTTON TO ERASE DOT]PRESS BUTTON TO LEAVE DOT]]COLOR 0 = BA }CKGROUND^COLOR 1 = FLASHING CURSOR^!!COLOR 2 = HOUSE MARKER/TEXT^COLOR 3 = STREETS, WINDOW^^ENTER WITH } X,Y AT START ^ EXIT WITH X,Y AT LAST MARK^$^SET VALUES.^ 6-6-LAST MARK8^6-@B^,0@ }@,LINES/WINDOWL^)0@@@)MARK/TEXTN^&0@@&CURSORV^** "THE LAST M }ARK/ERASE MADE WITH YOURX^** "JOYSTICK AND TRIGGER WILL BE SAVEDj^ 1GET OLD VALUEt^(%"6-(}NOT REAL~^ @,FIRST DOT^JOYSTICK POLLING LOOP^ T:,"BE^6-%@^!@}6-@^ 0@ CURSOR^6-R:,JOYSTICK^"@BBLOOP^ -^#*}@#RESTORE LOCATION^$ @6-%@$EAST_!@BCPNOT W _ @ BCP_6-}&@WEST_"@BD EAST(_"@BD WEST2_$$"@$P:'@,BD<_6-%@}ODD, SOUTHF_ BD P_6-&@EVEN, NORTHd_CHECK X,Y LIMITSf_ 6-AYh_!AY}6-j_ 6-@yl_!@y6-n_ 1GET OLD VALUE_ -_%*@@}%PLACE CURSOR_ BB_TRIGGER PRESSED_ -_&*@@&MARK THE SPOT_ (,)_&& }MARK, ERASE, IGNORE, QUIT _ R:,"@BE0_6-R:,_ RELEASE STICK _ R:,@}BE6_"@BFQUIT_"@BF@SKIP_ "@BF@ STREET_ -_"@}BEtERASE_@BAp_*@@MARK_ 6-6-SET LAST MARK_ BAp_*@}ERASE`-6-6--UNSET LAST MARK` BAp` QUIT ` -"`#*@#RESTORE LOCA}TION,` .` 6-6-SET LAST MARK6`$X AND Y ARE VALID@`SKIP OR ON STREETH` -J`#*@#RESTORE} LOCATIONT`  , CONTINUE^` BApLOOPe************eOPEN PRINTERe************e$6-@$SET DE}VICE=PRINTERe@MAKE SUREe Bae0#@@P:0#1=PRINTERe6-@SET 'OKA}Y'e BaEVERYTHING OKAYeTRAP FOR BAD OPEN ON PNTRe@f$$(CHECK PRINTER AND SELECT ONE f(( } 1.TRY AGAINf( 2.RETURN TO MAIN MENUf(f BINPUTf"@B`&f!6-@!IF NOT 1 THEN} 2Df BRESET TRAPNf$ANS=1=OKAY,2=NOPEXf**************ZfPRINT RECEIPTS\f**************lf ENT}ER REMARK THIS LONGnfvfB:,"@ Bb@xf67B:,%@,. zf Bb0MAKE FIXED LEN.|f f Be }POSITION PAPERf   PRINTING...f66 LINES PER PAGEf12 LINES PER RECEIPTfRECEIPT PRINT LOOPf-@!}f BhEXTRACT DATAf BfPRINT RECEIPTf$$@$P:'@,Bcg BgPRINT DIVI"}DERg%6-@ Bd%NEXT PAGE g g BgPRINT DIVIDERg"6-@ Bd"PERF+1g@#}g$ g **************************"g MOVE PAPER (-X0=DN,+X0=UP)$g ***************************g-@O:P:,,$}4g*!* >:@',>:@(,>g* * >:@',>:@0,Hg zg$g**************gPOS%}ITION PAPERg**************g g((  POSITION PAPER APPROXIMATELY SIXg'' LINES FROM THE TOP OF THE PAGE.g$ B&}6-6@ $TO PERFg BdMOVEgKK  >:@, PERFORATION >:@,>:@',>:@,g'} g!! ENTER HALF-SPACES UP (+X)g##  OR HALF-SPACES DOWN (-X)g$$  OR '0' TO BEGIN PRINTINGgg(}Be g"6-5@ Bd"STARTg$g*************************gPRINT RECEIPT FOR HOUSE Jg*****)}********************ggHOUSE ADDRESS - HSN$$hCOMMENT - LAB0$BhLhNh B:,"+%%@,BgPh67*}B:,%@,. Rh BgMAKE FIXED LEN.Vh BgPRINT DIVIDER`h;;(0+ +} +dh( + fh..(#The San Jose Mercury +jh;;(0+ ,} +lh**(+ Received from  #nh @  +ph!@   +th;;(0+ -} +vh;;(0+ Amount:________ for ________ thru ________ +~h;;(0+ .} +h;;(0+ Thank you, your carrier:__________________ +h;;(0+ /} +h,,(+ Date:__________  +h;;(0+ 0} +h6-%@COUNTh$h***************hPRINT DIVIDERh***************h;;(0*------------1}----------------------------------*h$h******************hPRINT RECEIPT LISTh******************h F2}IRST, ONE SPACEh@@(5NO. DATE COLLECTED AMT. TYPE ADDRESSh-@h BhEXTRACT DATA3}i 6-SETUP ADJUSTED HDD i%!@6-&@%1,6,7 i1%6-@%+@$+&@,,1INDEX AMTi(4}i (i @() i!@ () iHH(________ ________ 7<%@,  5} (i di@CLOSE PRINTERni$******** END ******** D:PAPER.APXTDAYADAYBMXMYLHLHf212,72152,72324,3264,32104,16264,3264,72264,60116,603100,60100,40116,32340,3240,1648,160AYBMXMYLHLHn6Kennedy Drive Quail Drive Santos Court Semel Way Serpa Drive Simas Drive 1,1,SUNDAY ONLY 6,8}6,DAILY ONLY 7,7,SUNDAY+DAILY ONLY 1,7,ALL SUNDAYS 6,7,ALL DAILYS -1,-1,ALL DAYS 9}2.755.007.00ve Quail Drive Santos Court Semel Way Serpa Drive Simas Drive 1,1,SUNDAY ONLY 6, 04/01/818 4791 17 84 70 4911 17 1027000001 17 19 7000002 17 47 1400003 17 97 4800004 17 1011300005 16 66 7000006 11 !;}11657818 4791 17 84 70 4911 17 1027000001 17 19 7000002 17 47 1400003 17 97 4800004 17 1011300005 16 66 7000006 11 B'DOS SYSB*+DUP SYSBUINITST BASBnDISKNAMEDATB cINITMP BASBlPAPER APXB6MAP DATB7STREET1 DATB:ROUTE3 DAT