`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 - FIRST & MERCHANTS + $":2c  );"3 - FLORIDA FEDERAL + $";Nc -);"4 - GULF OIL":wc  );"5 - GOVERNMENT SAVINGS + $";c -);"6 - SEARS":c  );"7 - TEXACO INC.";c -);"8 - ST DUNSTANS + $" : c   );"9 - VEPCO";d  -);"10 - WASHINGTON GAS LIGHT":;d4  );"11 - WASHINGTON POST + $";ddH -);"12 - CITY OF FALLS CHURCH":|d\  );"13 - USAA";dp -);"14 - MASTERCARD":d  );"22 - OTHER PAYEE";d -);"24 - MASTER MENU"e );"25 - END INPUTS, PRINT SUMMARY":>e "SELECT NUMBER FOR PAYEE OR OTHER FUNCTION: ";SELSe SEL  he SEL  P}e SEL  e SEL ,,,,,,,t,(,<,P,,L,`e$ de8 LIST OF PAYEESeLPAYE$ "USAA": df`PAYE$ "MASTERCARD": dCftPAYE$"ST DUNSTANS" : AMT :  afPAYE$"TEXACO INC": dfPAYE$ "CITY OF FALLS CHURCH": dfPAYE$ "C AND P TELEPHONE": dfPAYE$ "FIRST AND MERCHANTS":AMTd:  gPAYE$ "FLORIDA FEDERAL SAVINGS":AMT\:  @gPAYE$ "GULF OIL CORPORATION": drgPAYE$ "GOVERNMENT SERVICE":AMT :  gPAYE$ "SEARS": dg(PAYE$ "VEPCO": dg<PAYE$ "WASHINGTON GAS LIGHT": dgPPAYE$ "WASHINGTON POST":AMT :  hd "INPUT AMOUNT FOR ";PAYE$;&hx AMT0h  Fh "PAYEE: ";PAYE$[h "AMOUNT: ";AMTeh  rhA(N)AMThIAMT (AMT)h BEGIN PRINT ROUTINEhA$(IAMT)h,DIGIT(A$)h@ hT SUBROUTINE FOR PRINT LINEihNUMB$"ONE":i|NUMB$"TWO":)iNUMB$"THREE": DISBALDISBALAMTqH "###.##";AMTq\ qp );q DIGIT $, , q HUN$;q " HUNDRED ";q TEN   r TEN$;r " ";'r TEN  8 WHEN READY TO PRINT:";Z$sx );"SUMMARY OF CHECKS PRINTED ON ";DATE$;" 1983"s t  );"START AMOUNT: ";BAL: ?t  );"CHECK NO";);"AMOUNT"; ();"BALANCE"NtTBAL BALetCHECKNO PCHECKNOyt I  (N)tTBAL TBAL(A(I))t  );(CHECKNO I););t, "###.##";A(I);t@ ();tT "$####.##";TBALuhTSUM TSUMA(I) u| Iu:u );"TOTAL OF CHECKS WRITTEN ";Su "**$###.##";TSUM]u cuu PRINT ENVELOPE ADDRESSESu (): CLEARS SCREENu::u0 #);"ADDRESS ENVELOPES"uD:uX  );"1 - BIG H TRASH COMPANY"vl  );"2 - CHRISTCHURCH"