DataMuseum.dk

top - download

    Length: 2816 (0xb00)
    Types: TextFile
    Names: »CHECK.PC«

└─⟦a6ed1cd35⟧ Bits:30002862 Perfect Calc 1.10 for JET80 CP/M
    └─ ⟦this⟧ »CHECK.PC« 

TextFile

>a1:" CHECK REGISTER PROGRAM
>a1:Ødc0
>a1:Øwc9
>a1:Øjcc
>b1:Øwc10
>c1:Øwc25
>d1:Øwc10
>e1:Ødc38
>e1:Øwc11
>f1:Ødc0
>f1:Øwc7
>f1:Øjcc
>a2:"Copyright, 1982, Perfect Software, Inc.
>a4:" Enter beginning balance in d12. 
>a5:" Enter beginning check number in a15. 
>a6:"  æRemember, CTRL--S will take the cursor directly to these locations.å
>a7:" Deposits can be recorded by opening a line with
>a8:"   the CTRL--O command and entering deposit 
>a9:"   information on the new line.
>a10:" Your balance is displayed at the end of the 
>a11:"   program.  Press ESCape..> to go to the end.
>c13:"   Beginning Balance =
>d13:0
>f14:"Cleared
>a15:" CHECK #
>b15:"  Date
>c15:"   Description
>d15:"  Paid
>e15:"Deposit
>f15:"(1=yes)
>a16:1.000000000000E+00
>h16:=if(f16,d16,0)@
>a17:=a16+1@
>f17:" 
>h17:=if(f17,d17,0)@
>a18:=a17+1@
>h18:=if(f18,d18,0)@
>a19:=a18+1@
>h19:=if(f19,d19,0)@
>a20:=a19+1@
>h20:=if(f20,d20,0)@
>a21:=a20+1@
>h21:=if(f21,d21,0)@
>a22:=a21+1@
>h22:=if(f22,d22,0)@
>a23:=a22+1@
>h23:=if(f23,d23,0)@
>a24:=a23+1@
>h24:=if(f24,d24,0)@
>a25:=a24+1@
>h25:=if(f25,d25,0)@
>a26:=a25+1@
>h26:=if(f26,d26,0)@
>a27:=a26+1@
>h27:=if(f27,d27,0)@
>a28:=a27+1@
>h28:=if(f28,d28,0)@
>a29:=a28+1@
>h29:=if(f29,d29,0)@
>a30:=a29+1@
>h30:=if(f30,d30,0)@
>a31:=a30+1@
>h31:=if(f31,d31,0)@
>a32:=a31+1@
>h32:=if(f32,d32,0)@
>a33:=a32+1@
>h33:=if(f33,d33,0)@
>a34:=a33+1@
>h34:=if(f34,d34,0)@
>a35:=a34+1@
>h35:=if(f35,d35,0)@
>a36:=a35+1@
>h36:=if(f36,d36,0)@
>a37:=a36+1@
>h37:=if(f37,d37,0)@
>a38:=a37+1@
>h38:=if(f38,d38,0)@
>a39:=a38+1@
>h39:=if(f39,d39,0)@
>a40:=a39+1@
>h40:=if(f40,d40,0)@
>a41:=a40+1@
>h41:=if(f41,d41,0)@
>a42:=a41+1@
>h42:=if(f42,d42,0)@
>a43:=a42+1@
>h43:=if(f43,d43,0)@
>a44:=a43+1@
>h44:=if(f44,d44,0)@
>a45:=a44+1@
>h45:=if(f45,d45,0)@
>a46:=a45+1@
>h46:=if(f46,d46,0)@
>a47:=a46+1@
>h47:=if(f47,d47,0)@
>a48:=a47+1@
>h48:=if(f48,d48,0)@
>a49:=a48+1@
>h49:=if(f49,d49,0)@
>a50:=a49+1@
>h50:=if(f50,d50,0)@
>a51:=a50+1@
>h51:=if(f51,d51,0)@
>a52:=a51+1@
>h52:=if(f52,d52,0)@
>a53:=a52+1@
>h53:=if(f53,d53,0)@
>a54:=a53+1@
>h54:=if(f54,d54,0)@
>a55:=a54+1@
>h55:=if(f55,d55,0)@
>a56:=a55+1@
>h56:=if(f56,d56,0)@
>a57:=a56+1@
>h57:=if(f57,d57,0)@
>a58:=a57+1@
>h58:=if(f58,d58,0)@
>a59:=a58+1@
>h59:=if(f59,d59,0)@
>a60:=a59+1@
>h60:=if(f60,d60,0)@
>a61:=a60+1@
>h61:=if(f61,d61,0)@
>a62:=a61+1@
>h62:=if(f62,d62,0)@
>a63:=a62+1@
>h63:=if(f63,d63,0)@
>a64:=a63+1@
>a65:=a64+1@
>a66:"
>d67:=sum(d16:d65)@
>e67:=sum(e16:e65) +d13@
>h67:=sum(h16:h65)@
>b69:"Records Balance
>d69:=e67-d67@
>b70:"(Deposits less checks written)
>b72:"Reconciliation Balance  
>d72:=e67-h67@
>b73:"(Deposits less checks cleared)
>a1
«eof»