`d CHECK PRINTING PROGRAM (CHECK)`x.` A(),A$()6`NS` (): CLEAR SCREENk`  );"BUSINESS":` );"MASTER MENU":`:  );"1 - ADDRESS ENVELOPES":`  );"2 - BALANCE CHECK BOOK":` );"3 - ENDORSE CHECKS":a, );"4 - PRINT CHECKS":5a@ );"5 - END PROGRAM":ZaT );"SELECT FUNCTION DESIRED";gah CHOICEa| CHOICE , , , , a a Z 0aZa (): CLEAR SCREENa "TODAY'S DATE ";DATE$b "STARTING CHECK NUMBER: ";CHECKNO(bPCHECKNO CHECKNOGb "STARTING BALANCE: ";BALVb&DISBALBALub0 () : CLEAR SCREENbD MENU OF PAYEESbX #);"PAYEES - BALANCE";: "$####.##";DISBALbl  );"1 - C & P TELEPHONE"; c -);"2 - SOVRAN BANK, N.A. + $":2c  );"3 - FLORIDA FEDERAL + $";Nc -);"4 - GULF OIL":oc  );"5 - B. F. SAUL + $";c -);"6 - SEARS":c  );"7 - TEXACO INC.";c -);"8 - ST DUNSTANS + $" : c   );"9 - VEPCO"; d  -);"10 - WASHINGTON GAS LIGHT":3d4  );"11 - WASHINGTON POST + $";\dH -);"12 - CITY OF FALLS CHURCH":td\  );"13 - USAA";dp -);"14 - MASTERCARD":dr  );"15 - BIG H REFUSE";dt -);"16 - MCI":d  );"22 - OTHER PAYEE";e -);"24 - MASTER MENU"6e );"25 - END INPUTS, PRINT SUMMARY":ne "SELECT NUMBER FOR PAYEE OR OTHER FUNCTION: ";SELe SEL  e SEL  Pe SEL  e SEL ,,,,,,,t,(,<,P,,L,`,U,Zf$ df8 LIST OF PAYEES3fLPAYE$ "USAA": dRf`PAYE$ "MASTERCARD": d{ftPAYE$"ST DUNSTANS" : AMT# :  fPAYE$"TEXACO INC": dfPAYE$ "CITY OF FALLS CHURCH": dfPAYE$ "C AND P TELEPHONE": dgPAYE$ "SOVRAN BANK, N.A.":AMTd:  LgPAYE$ "FLORIDA FEDERAL SAVINGS":AMT\:  vgPAYE$ "GULF OIL CORPORATION": dgPAYE$ "B. F. SAUL":AMT,s:  gPAYE$ "SEARS": dg(PAYE$ "VEPCO": dg<PAYE$ "WASHINGTON GAS LIGHT": d)hPPAYE$ "WASHINGTON POST":AMT :  ZhUPAYE$ "BIG H REFUSE SERVICE":AMT:  rhZPAYE$ "MCI": dhd "INPUT AMOUNT FOR ";PAYE$;hx AMTh  h "PAYEE: ";PAYE$h "AMOUNT: ";AMTh  hA(N)AMThIAMT (AMT)i BEGIN PRINT ROUTINE(iA$(IAMT);i,DIGIT(A$)Ei@ hiT SUBROUTINE FOR PRINT LINEzihNUMB$"ONE":i|NUMB$"TWO":iNUMB$"THREE":iNUMB$"FOUR":iNUMB$"FIVE":iNUMB$"SIX":iNUMB$"SEVEN":jNUMB$"EIGHT":jNUMB$"NINE":%jNUMB$"TEN"::j0NUMB$"ELEVEN":OjDNUMB$"TWELVE":fjXNUMB$"THIRTEEN":}jlNUMB$"FOURTEEN":jNUMB$"FIFTEEN":jNUMB$"SIXTEEN":jNUMB$"SEVENTEEN":jNUMB$"EIGHTEEN":jNUMB$"NINETEEN":kNUMB$"TWENTY":kNUMB$"THIRTY":-k NUMB$"FORTY":Ak NUMB$"FIFTY":Uk4NUMB$"SIXTY":kkHNUMB$"SEVENTY":k\NUMB$"EIGHTY":kpNUMB$"NINETY":k DIGIT < ,,kHUN(AMTd)k HUN h,|,,,,,,,lHUN$ NUMB$lTAMTAMTHUNd!l $ ;l WORKING WITH TENSHl TAMTAMT\l$ TEN(TAMT )|l8 TEN d : IF NO TENSlL (TAMT)  : t l`  lt TEN  : IF TEENSl TEN   l 2200-2220 = TEENS+m ((TAMT )) 0,D,X,l,,,,, DISBALDISBALAMTrH "###.##";AMTr\ 'rp );Ar DIGIT $, , Mr HUN$;`r " HUNDRED ";tr TEN  r TEN$;r " ";r TEN  8r UNIT  8r$ UNIT$;r8 " AND ";rL AMT (AMT) s`CENT% (AMT (AMT))dst "##"; (CENT%);2s "/100"; : Bs "NO/100";XsDASH 4 (Z)is I DASHts "-";|s Is: : : sN N s( 0s< PRINT SUMMARY OF CHECKS WRITTENsP "INSERT PAPER FOR SUMMARY PRINT OUT td "INPUT WHEN READY TO PRINT:";Z$Ytx );"SUMMARY OF CHECKS PRINTED ON ";DATE$;" 1984"_tt  );"START AMOUNT: ";BAL: t  );"CHECK NO";);"AMOUNT"; ();"BALANCE"tTBAL BALtCHECKNO PCHECKNOt I  (N) uTBAL TBAL(A(I))(u  );(CHECKNO I););Au, "###.##";A(I);Mu@ ();euT "$####.##";TBAL|uhTSUM TSUMA(I)u| Iuu );"TOTAL OF CHECKS WRITTEN ";u "**$###.##";TSUMu uu PRINT ENVELOPE ADDRESSESv (): CLEARS SCREEN#v::Bv0 #);"ADDRESS ENVELOPES"JvD:ovX  );"1 - BIG H TRASH COMPANY"vl  );"2 - CHRISTCHURCH"v  );"3 - CITY OF FALLS CHURCH"v  );"4 - SOVRAN BANK, N.A."v  );"5 - DAWN SHORT" w  );"6 - OSGLI"%w  );"7 - B. F. SAUL"Iw:  );"8 - INPUT AN ADDRESS"pw:  );"9 - RETURN TO MAIN MENU"w: );"SELECT NUMBER OF DESIRED ADDRESS:"w );"OR SELECT 9 TO RETURN TO MAIN MENU"w  ADDw  ADD   x4 (): CLEAR SCREENJxH:: );"INSERT ENVELOP INTO TYPEWRITER AND HIT RETURN"Sx\ Z$rxp "CAPT & MRS B. F. SHORT"x "1812 GREAT FALLS STREET"x "McLEAN, VIRGINIA 22101"x ADD , , $, L, t, , , dx x y  y y  y$ *y8 4yL >y` Hyt Ry \y fy py zy y "BIG H REFUSE SERVICE ", "P.O. BOX 607","DUNN LORING, VIRGINIA 22027"y CHRISTCHURCH SCHOOL,CHRISTCHURCH,VIRGINIA 23031^z "TREASURERS OFFICE, CITY OF FALLS CHURCH","300 PARK AVENUE","FALLS CHURCH, VIRGINIA 22046"z "SOVRAN BANK, N.A.","P.O. BOX 3597 - COLLECTION DEPT","ARLINGTON, VIRGINIA 22203"z "MISS DAWN SHORT","833 W. JEFFERSON ST.","TALLAHASSEE, FLA 32304"+{ "OSGLI","BOX 617","NEWARK, N.J. 07101"t{ "B. F. SAUL MORTGAGE CO","P.O. BOX 37241","WASHINGTON, D.C. 20013"{ N$, A$, C${::::: ();N$:{( ();A$:{< ();C$:::{P {d ROUTINE TO PRINT A RANDOM ADDRESS|x ()|;"ENTER NAME: ";N$ :;|;"ENTER ADDRESS: ";A$ :p|;"ENTER CITY, STATE AND ZIP: (NO COMMAS)";C$ :z| | ROUTINE TO ENDORSE CHECKS| (): CLEAR SCREEN|:: );"INSERT CHECK INTO TYPEWRITER AND HIT RETURN"| Z$}, "PAY TO THE ORDER OF";}@ "THE FIRST NATIONAL BANK"K}T "OF ODON"}h:  );"DO YOU WANT TO ENDOSE ANOTHER CHECK? (Y/N)"}| ANS$} ANS$ "Y"  : } } ROUTINE TO BALANCE CHECK BOOK} (): CLEARS SCREEN$~:  );"CHECK BALANCING ROUTINE":S~"ENTER STARTING CHECK NUMBER: ";BALNO : ~"ENTER STARTING BALANCE: "; BALDOL : : TBALDOL BALDOL~ (): CLEARS SCREEN~0 );"CHECK, DEPOSIT, OR PRINT RESULTS (C/D/P)? ";~D SEL$ X SEL$ "C" "l SEL$ "D" 9 SEL$ "P"  C 0d ROUTINE FOR ENTERING CHECK:: );"ENTER AMOUNT FOR CHECK NUMBER ";BALNO; CHXAMT: );"AMOUNT ENTERED FOR CHECK NUMBER ";BALNO;" IS ";CHXAMT:  );"IS AMOUNT CORRECT? (Y/N): "%  MONITOR$@  MONITOR$ "Y" HJ4 ZHB(J)CHXAMTy\TBALDOL TBALDOL CHXAMTÀp "CHECK BOOL BALANCE FOR CHECK NUMBER ";BALNO;" SHOULD BE ";TBALDOL ငJ J:BALNO BALNO 뀘  CHXAMTÀp "CHECK BOOL BALANCE FOR CHECK NUMBER ";BALNO;" SHOULD BE ";TBALDOL ငJ J:BALNO BALNO 뀘