%***********SCANNER************: : 1 FILE$,FD$,596 #FD$,O;N: #0'EN~N:@ 10,5;"TOTAL Nos. OF PAGES"&@ 10,7;"ON THIS ACCOUNT ARE:-";NA@ 0,20;((61),5);"ENTER PAGE NO. TO BE SCANNED:"((61),5)-@ 11,22;((199),5):@25,22;((199),5) @ 19,22;  N$:!N~(N$): N}EN s 461 4707:@ 0,10;"NUMBER ENTERED TOO LARGE. TRY AGAIN OR"@ 15,11;"END? (Y/N)";!X$~$: X$~"Y" s 464 150N~Nu1:: 435@ 10,0;FILE$@ 26,0;"PAGE No.";N@ 0,1;((95),40)@ 0,2;"DATE"@ 9,2;"REMARKS"@ 17,2;"IN"@ 24,2;"OUT"@ 32,2;"TOTAL"&@ 0,3;((95),40)0 A ~ 1 r N: #FD$, N: B~ 1 r 14 D M$(B)N BX C~ 1 r 14b M$(C);(11)l C m 800v{ 0 | 680'@ 9,20;"ARE THERE ANY MORE PAGES"$@ 9,21;"TO BE SCANNED? (Y/N)"; R$~$ R$~"Y" s : 665 150  410!***********PRINT OUT*******?@ 0,20;"DO YOU WISH THIS PAGE TO BE PRINTED OUT? (Y/N)";"P$~$: P$~ "N" s 736 710 A ~ 0 r 19 #1;(A)  #0@ 0,20;(21)" ************PAGE TOTAL******* A ~ 1 r 14 4 4,2>T$~((At4),8) HT~(T$)R T1 s 870\@ 20,19;"PAGE TOTAL:-";Tfp)p