#********DELETION ROUTINE***** 1 FILE$,FD$,596 #FD$,O;N: #0 EN~N4@ O,2;"TOTAL Nos. PAGES ON ";FILE$;" ARE:-";EN@ 0,3;((180),40)+@ 5,10;"ENTER PAGE No. FOR DELETION:"0@ 8,16;((180),5);"PAGE No.:";((180),5)@ 28,16;  N$!N~(N$): N}EN s 461 465 : 1140@ 28,16;N?@ 12,20;(21):@ 5,20;"IS THIS THE CORRECT No.? (Y/N) ";!R$~$: R$~"Y" s 469 468L:@ 0,22;(21):@ 0,20;((240),12);"ENTER NEW No.";((240),12): 435@ 10,0;FILE$@ 25,0;"PAGE No.:";N@ 0,1;((180),40)@ 0,2;"DATE"@ 9,2;"REMARKS" @ 18,2;"IN"@ 26,2;"OUT"@ 34,2;"TOTAL"@ 0,3;((180),40)0 A ~ 1 r N: #FD$,N: B~ 1 r 14 D M$(B)E 1150N BX C~ 1 r 14b M$(C);(11)l Cv{ 0(L$~"IS THIS THE PAGE FOR DELETION?"@ 3,20;L$@ 12,22;"(Y/N)"; W$~$ W$~"N" s 780 665$ A ~ 1 r 14:@ 0,At4;(21): A 1 X ~ N r 100 N~EN 2000 670N~ Xt1: X}EN s 1150 FILE$,FD$,596  900 N~ENt1 s 1150 #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$,596 #FD$,N A ~ 1 r 14M$(A)~(At4)  M$(A) AN~ENu1:# FD$,O;N X  0  150$*********PAGE HEADING*********@ 10,0;FILE$ J~Nu1@ 25,0;"PAGE No.:";J@ 0,1;((180),40)@ 0,2;"DATE"@ 9,2;"REMARKS"@ 18,2;"IN"@ 26,2;"OUT"@ 34,2;"TOTAL"@ 0,3;((180),40)$*********PAGE CLEARANCE******* #FD$,O;N: #0$ A ~ 1 r N: #FD$. 8 #FD$,NB V M$(A)` A j 668$t*********SUB ROUTINE**********3y:@ 0,10;"THE NUMBER YOU HAVE ENTERED IS TOO"/z"LARGE. PRESS TO CONTINUE OR TO "{"RETURN"|@ 15,11;"TO MAIN MENU"#}W$~$: W$~"C" s 1160 1150~:: 150:: 410 1 FILE$,FD$,596N~ENu1:# FD$,O;N:: 150)ph V)aW