******READ/ALTER**********  4,2 1 FILE$,FD$,596 #FD$,0;N: #0'EN~N:@ 10,4;"TOTAL Nos. OF PAGES"%@10,6;"ON THIS ACCOUNT ARE:-";N%@ 10,10;"ENTER PAGE No.:";: N$!N~(N$): N}EN s 501 5107:@ 0,10;"NUMBER ENTERED TOO LARGE. TRY AGAIN OR"@ 15,11;"END? (Y/N)";!X$~$: X$~"Y" s 504 150N~Nu1:: 470@ 10,0;FILE$@ 25,0;"PAGE No.:";N@ 0,1;((180),40)&@ 0,2;"DATE"0@ 8,2;"REMARKS":@ 17,2;"IN"D@ 24,2;"OUT"N@ 32,2;"TOTAL"X@ 0,3;((180),40) b #FD$,Nl A ~ 1 r 14: M$(A):#v B ~ 1 r 14: M$(B);(11): B { 1550Z$~((5),8)@ 0,0;Z$'*********CALCULATION ROUTINE******4@ 0,20;(21) > 4,2+H@ 5,20;"IS THIS PAGE CORRECT? (Y/N)"; RP$~$\ P$~"Y" s 1450 870f@ 5,20;(21) p@ 5,20;"ENTER LINE No.:-";0z L$:L~(L$):A~L: A1 { A}14 s 895 900@ 5,20;(21): 880@ 5,20;(21)'@ 10,20;"ENTER CORRECTION "@ 12,21;"LINE:-";A;  A$ A$~"" s 960 950@ 0,At4;A$@ 10,20;(21)@ 12,21;(21): 990&@10,20;(21):@ 12,21;(21): 5)@ 10,20;"ENTER CORRECTION "@ 12,21;"LINE:-";A;  B$ L~(B$): L}7 s 980 1030 B$~"" s 1050 1040@ 8,At4;B$@ 10,20;(21)$@ 12,21;(21).C$~((At4),15,8)8D$~((At4),25,8)BE$~((At4),31,8)LS$~((At3),31,8) VC~(C$) `D~(D$) jE~(E$) tS~(S$) ~E~StCuD@ 10,20;(21)@ 12,21;(21)  4,2(@ 10,20;"ENTER CORRECTION FOR"@ 12,21;"LINE:-";A;% C$: C$~"" s C$~((At4),17,7)C~(C$):@ 15,(At4);C@ 10,20;(21)@ 12,21;(21)*@ 10,20;"ENTER CORRECTION FOR "@ 12,21;"LINE:-";A;% D$: D$~"" s D$~((At4),25,7)D~(D$):@ 23,(At4);D @ 10,20;(21)@ 12,21;(21)C~(C$):D~(D$)(S$~((At3),8):S~(S$)2C}~D s 1350 1340< D}~C s 13706FA2 s E1~EuE:E1~E1tC:@ 31,(At4);E1: 1385 1360)P A}1 s E1~StC:@ 31,(At4);E1: 13857Z A2 s E1~EuE:E1~E1uD:@ 31,(At4);E1: 1385 1380*d A}1 s E1~E1uD:@ 31,(At4);E1: 1385i@ 31,19;E1 n 1550+x@ 5,20;"ANY MORE ALTERATIONS? (Y/N)"; X$~$ X$~"Y" s 1430 1450@ 5,20;(21)  880 FILE$,FD$,596 #FD$, N A ~ 1 r 14M$(A)~(At4)  M$(A) A 0  150!*********TOTAL ROUTINE***** B ~ 1 r 14C$~((Bt4),17,7)"D$~((Bt4),25,7),E$~((Bt4),32,8)6S$~((Bt3),32,8)$@C~(C$):D~(D$):E~(E$):S~(S$)=H@ 2,22;((232),3);"NEXT LINE No. IS";B;" ";((232),3) J C~0 z D~0 s 1690 1620T S1 s 1650 1630^ B2 s 1660 1640h B}1 s 1670 1680"rE~StCt(uD):@ 31,Bt4;E: 1675|E~CuD:@31,Bt4;E: 1675"E~StCt(uD):@ 31,Bt4;E: 1675*@ 14,19;((240),5);"PAGE TOTAL:-";E B)h@