#********DELETION ROUTINE***** 1 FILE$,FD$,1148 #FD$,O;N: #0 EN~N5@0,2;"TOTAL Nos.OF PAGES ON ";FILE$;" ARE:-";EN@ 0,3;((148),80),@ 22,10;"ENTER PAGE No. FOR DELETION:">@ 15,16;((148),15);"PAGE No.:";((32),5);((148),15) @40,16;  N$!N~(N$): N}EN s 461 465 : 1140@ 40,16;N?@ 12,20;(21):@ 22,20;"IS THIS THE CORRECT No.? (Y/N)";!R$~$: R$~"Y" s 469 468N:@16,22;(21):@ 20,20;((223),10);"ENTER NEW No. ";((223),10): 435@ 10,0;FILE$@ 25,0;"PAGE No.:";N@ 0,1;((148),80)@ 0,2;"DATE"@ 20,2;"REMARKS" @ 43,2;"IN"@ 59,2;"OUT"@ 72,2;"TOTAL"@ 0,3;((148),80)0 A~ 1 r N: #FD$, N: B~ 1 r 14 D M$(B)E 1151N BX C~ 1 r 14b M$(C);(11)l Cv{ 0(L$~"IS THIS THE PAGE FOR DELETION?"@ 20,20;L$@ 35,22;"(Y/N)"; W$~$ W$~"N" s 780 665$ A ~ 1 r 14:@ 0,At4;(21): A 1 X ~ N r EN N~EN 2000 670N~Xt1: N}EN s 1150 FILE$,FD$,1148  900 N~ENt1 s 1151 #FD$,O; C: #0 1150 A ~ 1 r N:#FD$, N B ~ 1 r 14: M$(B): B$ C ~ 1 r 14: M$(C);(11): CG~Nu1:N~G FILE$,FD$,1148 #FD$, N A ~ 1 r 14M$(A)~(At4)  M$(A) AN~ENu1:# FD$,O;N X  0:*****************PAGE HEADING***********************@ 10,0;FILE$ J~Nu1@ 25,0;"PAGE No.:";J@ 0,1;((148),80)@ 0,2;"DATE"@ 20,2;"REMARKS"@ 43,2;"IN"@ 59,2;"OUT"@ 72,2;"TOTAL"@ 0,3;((148),80)2**************PAGE CLEARANCE**************** #FD$,O;N: #0$ A ~ 1 r N: #FD$.8# FD$, NB V M$(A)` A j 6688t*****************SUB ROUTINE**********************ay:@ 0,10;"THE NUMBER YOU HAVE ENTERED IS TOO LARGE. PRESS TO CONTINUE OR TO RETURN"z@ 35,11;"TO MAIN MENU";#{W$~$: W$~"C" s 1160 1150~:: 150:: 410 1 FILE$,FD$,1148N~ENu1:# FD$,O;N:: 150)ph