þþÌ( X;CHECK WRITER FOR DIAMONDX;VERSION 1.0X;DAVID ACKLAM(X;MARCH 19912EI<>ŒD:SYSEQU.M65F>D:LIBRARY.M65P>D:DMACROS.M65Z>‹D:IOMAC.M65dX;n0xX;‚†RPRINT =@=›Œ‰SCHARSZ10 =P=›–†SETNLQ =x==› ŠSETITALICS =4=›ª‡F_SPEC1 A‚P:A=›´‡F_SPEC2 A…D:*.*A=›¾„MENU A‰ Desk A=ÿÈ A‡ Menu A=ÿÒ A‰ Options A=ÿ=›Ü!ˆMENUTREE …MENU1=…MENU2=…MENU3æ…MENU1 A‹ Info.... Að!…MENU2 =======ú% ý==A Instructions A=ý==þ% ý==A Write a Check A=ý==þ% ý==A Print a Check A=ý==þ% ý==A---------------A=ý==þ"% ý==A Quit A=ý==ÿ,…MENU3 = ====6 ý==Aˆ Draft A=ý==þ@ ý==Aˆ NLQ A=ý==þJ ý==Aˆ Italic A=ý==ÿTX;^X;h@ˆDATETEXT A° MMM DD, ArQ‰PAYTOTEXT Aº A= ;B$|?ŠDOLLARTEXT A­ A†'‡FORTEXT A˜ AX;šX;¤‡INFOOBJ ® ˆINFOTEXT==¸ =ÿ‰INFOTOUCH =x==x=ÿÌJˆINFOTEXT A† A= =ü==A¡ CHECK WRITER A= = Ö3 ü==A  by David M. Acklam 1991 A= = à- ü==Aš for A= = ê/ ü==Aœ DIAMOND (tm) GOS A= = ô- ü==Aš and A= = þ3 ü==A£ Epson FX (R) compatible printers A=X;X; …START&)…OPEN ===‡F_SPEC1;;OPEN PRINTER0(†PRINT =†RPRINT;;RESET THE PRINTER:&†PRINT =‰SCHARSZ10;;SET TO 10CPID †CLOSE N …INIT XˆSETMENU „MENU=ˆMENUTREEb-‹MENUENABLE ==;;DISABLE DASHED LINElAŠMENUCHECK ==;;CHECK INDICATES DRAFT IS DEFAULT SETTINGv„WAIT€†EVENT ;;POLL EVENT HANDLERŠ$Q‰EVENTTYPE;;CHECK FOR MENU EVENT”*R>;;CHECK IF A MENU ITEM WAS SELECTEDž H„WAIT¨+Q‰EVENTTYPE;;WHICH MENU WAS SELECTED?² H…WAIT1;;MENU 1 OR 2 SELECTED¼Q‰EVENTTYPEÆR>Ð,ƒBE „INFO;;INFO WAS SELECTED FROM MENU 0Ú !„WAITä …WAIT1îR>øH…WAIT2;;MENU 2 WAS SELECTEDQ‰EVENTTYPE $R>;;WAS INSTRUCTIONS REQUESTED?9ƒBE ‹INSTRUCTION;;IT WAS SO GOTO INSTRUCTIONS ROUTINE $R>;;WAS WRITE A CHECK SELECTED?*:ƒBE ŠWRITECHECK;;IT WAS SO GOTO THE WRITECHECK ROUTINE4$R>;;WAS PRINT A CHECK SELECTED?>9ƒBE ŠPRINTCHECK;;IT WAS SO GOTO PRINT A CHECK ROUTINEHJ!„QUIT;;QUIT WAS SELECTED SO END THE PROGRAM AND RETURN TO THE DESKETOPR …WAIT2\Q‰EVENTTYPEfR>;;WAS DRAFT SELECTED?p+ƒBE …DRAFT;;IT WAS SO GOTO DRAFT MODUALz*R>;;WAS NEAR LETTER QUALITY SELECTED?„ƒBE ‰NLQMODUALŽ!ŒITALICMODUAL˜ …DRAFT¢Q>¬P‚B0;;MENU #2¶Q>ÀP‚B1;;ITEM #1ÊQ>Ô+P‚B2;;PUT A CHECK MARK ON THIS SELECTIONÞQ>‰MENUCHECKè ‡DIAMONDòQ>üP‚B0;;MENU #2Q>P‚B1;;ITEM #2Q>$,P‚B2;;REMOVE CHECK MARK ON THIS SELECTION.Q>‰MENUCHECK8 ‡DIAMONDBQ>LP‚B0;;MENU #2VQ>`P‚B1;;ITEM #3jQ>t,P‚B2;;REMOVE CHECK MARK ON THIS SELECTION~Q>‰MENUCHECKˆ ‡DIAMOND’-…OPEN ===‡F_SPEC1;;OPEN THE PRINTERœ(†PRINT =†RPRINT;;RESET THE PRINTER¦ †CLOSE ;;CLOSE THE PRINTER° !„WAITºX;ÄX;ΈINSTROBJ Ø ‰INSTRTEXT==â =ÿìŠINSTRTOUCH =Ž==°=ÿöX;>‰INSTRTEXT  =ü= =A¡ INSTRUCTIONS A= 2 ü==A¢1. Select write a check to open a A= 2 ü==A¢ blank check on the screen. A= 2 ü==A¢2. Click on a check item to be A= (2 ü==A¢ entered, make your input and A= 22 ü==A¢ press return to enter it. A= <2 ü==A¢3. Note that the escape key clearsA= F2 ü==A¢ the complete line entry. A= P3 ü==A£4. Click on the next item to enter.A= Z2 ü==A¢5. When all entries are made, thenA= d2 ü==A¢ click on OK. A= n2 ü==A¢6. Use the Option menu to select A= x2 ü==A¢ the printer style you desire. A= ‚3 ü==A£7. Set up your blank check in your A= Œ2 ü==A¢ printer and then click on printA= –3 ü==A£ a check to print your entries. A=  2 ü==A¢8. Select write a check to write A= ª2 ü==A¢ your next check. A= ´2 ü==A¢9. When done, click on quit. A=¾X;ÈX;Ò‹INSTRUCTIONÜ)‰DODIALOG &=°=ˆINSTROBJ=ŠINSTRTOUCHæŒEVENTDIALOG ðŽRELEASEDIALOG ú !„WAITX; ‰NLQMODUALQ>"P‚B0;;MENU #2,Q>6P‚B1;;ITEM #2@Q>J+P‚B2;;PUT A CHECK MARK ON THIS SELECTIONTQ>‰MENUCHECK^ ‡DIAMONDhQ>rP‚B0;;MENU #2|Q>†P‚B1;;ITEM #1Q>š,P‚B2;;REMOVE CHECK MARK ON THIS SELECTION¤Q>‰MENUCHECK® ‡DIAMOND¸Q>ÂP‚B0;;MENU #2ÌQ>ÖP‚B1;;ITEM #3àQ>ê,P‚B2;;REMOVE CHECK MARK ON THIS SELECTIONôQ>‰MENUCHECKþ ‡DIAMOND-…OPEN ===‡F_SPEC1;;OPEN THE PRINTER-†PRINT =†SETNLQ;;SET THE PRINTER TO NLQ †CLOSE ;;CLOSE THE PRINTER& !„WAIT0ŒITALICMODUAL:Q>DP‚B0;;MENU #2NQ>XP‚B1;;ITEM #3bQ>l+P‚B2;;PUT A CHECK MARK ON THIS SELECTIONvQ>‰MENUCHECK€ ‡DIAMONDŠQ>”P‚B0;;MENU #2žP‚B0;;MENU #2¨Q>²P‚B1;;ITEM #1¼Q>Æ,P‚B2;;REMOVE CHECK MARK ON THIS SELECTIONÐQ>‰MENUCHECKÚ ‡DIAMONDäQ>îP‚B0;;MENU #2øQ>P‚B1;;ITEM #2 Q>,P‚B2;;REMOVE CHECK MARK ON THIS SELECTION Q>‰MENUCHECK* ‡DIAMOND4-…OPEN ===‡F_SPEC1;;OPEN THE PRINTER>(†PRINT =†RPRINT;;RESET THE PRINTERH5†PRINT =ŠSETITALICS;;SET THE PRINTER TO ITALICSR †CLOSE ;;CLOSE THE PRINTER\ !„WAITfX;pX;z„QUIT„)…OPEN ===‡F_SPEC1;;OPEN PRINTERŽ(†PRINT =†RPRINT;;RESET THE PRINTER˜ †CLOSE ;;CLOSE THE PRINTER¢ …EXIT ¬ŒEXECDESKTOP ¶X;ÀX;Ê„INFOÔ'‰DODIALOG %=x=‡INFOOBJ=‰INFOTOUCHÞŒEVENTDIALOG èŽRELEASEDIALOG ò !„WAITüX; X; ŠPRINTCHECK )…OPEN ===‡F_SPEC1;;OPEN PRINTER$ †PRINT ;;LINEFEED. †PRINT ;;LINEFEED8 *†PRINT =ˆDATETEXT=/;;PRINT THE DATEB †PRINT ;;LINEFEEDL †PRINT ;;LINEFEEDV :†PRINT =‰PAYTOTEXT=9;;PRINT PAYTO AND DOLLAR AMOUNT` †PRINT ;;LINEFEEDj 5†PRINT =ŠDOLLARTEXT=,;;PRINT THE DOLLAR AMOUNTt †PRINT ;;LINEFEED~ †PRINT ;;LINEFEEDˆ †PRINT ;;LINEFEED’ 1†PRINT =‡FORTEXT=;;PRINT REASON FOR CHECKœ †PRINT ;:LINEFEED¦ †PRINT ;:LINEFEED° LEAVEPRINTCHECKº †CLOSE Ä !„WAITÎ X;Ø X;â ‡OBJLISTì ;;Textö †STRING =   ÿ;;END X;( †STRING2 , A¢ A= < , A¢ Date 19 A= F , A¢ $ A= P , A¢ Pay to: A= Z , A¢ A= d , A¢ A= n , A¢ DollarsA= x , A¢ A= ‚ , A¢ A= Œ , A¢ For: A= – , A¢ A=   , A¢ OK A=ª X;´ ‹FILTERINPUT¾ 3 ÿ=ÿ=ÿ=ÿ=ÿ=ÿ=ÿ=ÿ=ÿ=ÿ=ÿ=ÿ=ÿ=ÿ=ÿ=ÿÈ 3 €===============Ò X;Ü ŠFILTEREXITæ 3 ===============ð 3 ===============ú X; …TOUCH  D=T==;;DATE  |=„==;;YEAR"   =$= =(;;PAY TO,  h=ˆ== ;;$6   =Œ=8=@;;DOLLARS@   ==P=X;;FORJ  8=P=`=h;;OKT  ÿ^ X;h ŠWRITECHECKr X;DISPLAY A BLANK CHECK| 5Q>&;;CREATE DIALOG BOX TO LOOK LIKE A BLANK CHECK† P‚B0 Q>xš P‚B1¤ Q>4‡OBJLIST® P‚W0¸ Q>5‡OBJLIST P‚W0Ì Q>4…TOUCHÖ P‚W1à Q>5…TOUCHê P‚W1ô Q>ˆDODIALOGþ ‡DIAMOND „LOOP Q>‹EVENTDIALOG ‡DIAMOND& Q‚B00 R>;;OK CLICKED?: ƒBE ‚OKD R>;;DATE CLICKED?N ƒBE ŠDATEMODUALX R>;;YEAR CLICKED?b ƒBE ŠYEARMODUALl R>;;PAY TO CLICKED?v ƒBE ‹PAYTOMODUAL€ R>;;$ CLICKEDŠ ƒBE ŒDOLLARMODUAL” R>;;DOLLARS TEXT CLICKED?ž ƒBE DOLLARTEXTMODUAL¨ R>;;FOR CLICKED?² ƒBE FORTEXTMODUAL¼ R>ÿ;;RETURN PRESSED?Æ ƒBE ŠWRITECHECKÐ !„LOOPÚ X;ä ‚OKî ŽRELEASEDIALOG ø !„WAIT X; ŠDATEMODUAL Q>;;STRING LENGTH P‚B0* Q>;;START AT CURSOR4 P‚B1> Q>ÿ;; EXIT ON RETURNH P‚B4R Q>;;X POSITION OF TEXT\ P‚B5f Q>;;Y POSITION OF TEXTp P‚B6z Q>4ˆDATETEXT!„ P‚W0Ž Q>5ˆDATETEXT!˜ P‚W0¢ Q>4‹FILTERINPUT¬ P‚W1¶ Q>5‹FILTERINPUTÀ P‚W1Ê Q>4ŠFILTEREXITÔ P‚W2Þ Q>5ŠFILTEREXITè P‚W2ò Q>ŠTEXTDIALOGü ‡DIAMONDQ‚B0R>›;;RETURN PRESSED? ƒBE „LOOP$!ŠDATEMODUAL.ŠYEARMODUAL8Q>;;STRING LENGTHBP‚B0LQ>;;START AT CURSORVP‚B1`Q>ÿ;; EXIT ON RETURNjP‚B4tQ>!;;X POSITION OF TEXT~P‚B5ˆQ>;;Y POSITION OF TEXT’P‚B6œQ>4ˆDATETEXT+¦P‚W0°Q>5ˆDATETEXT+º P‚W0ÄQ>4‹FILTERINPUTÎP‚W1ØQ>5‹FILTERINPUTâ P‚W1ìQ>4ŠFILTEREXITöP‚W2Q>5ŠFILTEREXIT  P‚W2Q>ŠTEXTDIALOG ‡DIAMOND(Q‚B02R>›;;RETURN PRESSED?< ƒBE „LOOPF!ŠYEARMODUALPX;ZX;dŒDOLLARMODUALnQ>;;STRING LENGTHxP‚B0‚Q>;;START AT CURSORŒP‚B1–Q>ÿ;; EXIT ON RETURN P‚B4ªQ>;;X POSITION OF TEXT´P‚B5¾Q> ;;Y POSITION OF TEXTÈP‚B6ÒQ>4‰PAYTOTEXT-ÜP‚W0æQ>5‰PAYTOTEXT-ð P‚W0úQ>4‹FILTERINPUTP‚W1Q>5‹FILTERINPUT P‚W1"Q>4ŠFILTEREXIT,P‚W26Q>5ŠFILTEREXIT@ P‚W2JQ>ŠTEXTDIALOGT ‡DIAMOND^Q‚B0hR>›;;RETURN PRESSED?r ƒBE „LOOP|!ŒDOLLARMODUAL†X;X;šDOLLARTEXTMODUAL¤Q>;;STRING LENGTH®P‚B0¸Q>;;START AT CURSORÂP‚B1ÌQ>ÿ;; EXIT ON RETURNÖP‚B4àQ>;;X POSITION OF TEXTêP‚B5ôQ>@;;Y POSITION OF TEXTþP‚B6Q>4ŠDOLLARTEXTP‚W0Q>5ŠDOLLARTEXT& P‚W00Q>4‹FILTERINPUT:P‚W1DQ>5‹FILTERINPUTN P‚W1XQ>4ŠFILTEREXITbP‚W2lQ>5ŠFILTEREXITv P‚W2€Q>ŠTEXTDIALOGŠ ‡DIAMOND”Q‚B0žR>›;;RETURN PRESSED?¨ ƒBE „LOOP²!DOLLARTEXTMODUAL¼X;ÆX;ЋPAYTOMODUALÚQ>;;STRING LENGTHäP‚B0îQ>;;START AT CURSORøP‚B1Q>ÿ;; EXIT ON RETURN P‚B4Q> ;;X POSITION OF TEXT P‚B5*Q>(;;Y POSITION OF TEXT4P‚B6>Q>4‰PAYTOTEXT HP‚W0RQ>5‰PAYTOTEXT \ P‚W0fQ>4‹FILTERINPUTpP‚W1zQ>5‹FILTERINPUT„ P‚W1ŽQ>4ŠFILTEREXIT˜Q>5ŠFILTEREXIT¢ P‚W2¬Q>ŠTEXTDIALOG¶ ‡DIAMONDÀQ‚B0ÊR>›;;RETURN PRESSED?Ô ƒBE „LOOPÞ!‹PAYTOMODUALèX;òFORTEXTMODUALüQ>;;STRING LENGTHP‚B0Q>;;START AT CURSORP‚B1$Q>ÿ;; EXIT ON RETURN.P‚B48Q>;;X POSITION OF TEXTBP‚B5LQ>X;;Y POSITION OF TEXTVP‚B6`Q>4‡FORTEXTjP‚W0tQ>5‡FORTEXT~ P‚W0ˆQ>4‹FILTERINPUT’P‚W1œQ>5‹FILTERINPUT¦ P‚W1°Q>4ŠFILTEREXITºP‚W2ÄQ>5ŠFILTEREXITÎ P‚W2ØQ>ŠTEXTDIALOGâ ‡DIAMONDìQ‚B0öR>›;;RETURN PRESSED? ƒBE „LOOP !FORTEXTMODUALX;X;(I2X;<EIFX;PàZ …START