G*************************SCANNER********************************* 1 FILE$,FD$,1148 #FD$,O;N: #0FEN~N: @ 15,5;"THE TOTAL No. OF PAGES ON -- ";FILE$;" -- ARE:-";N.@ 20,10;"ENTER PAGE No. TO BE SCANNED:";  N$:!N~(N$): N}EN s 461 470D:@ 0,10;"NUMBER ENTERED TOO LARGE. TRY AGAIN OR END? (Y/N)";!X$~$: X$~"Y" s 463 150N~Nu1:: 435@ 20,0;FILE$@ 50,0;"PAGE Nos:";N@ 0,1;((95),80)@ 0,2;"DATE"@ 20,2;"REMARKS"@ 42,2;"IN"@ 57,2;"OUT"@ 70,2;"TOTAL"&@ 0,3;((95),80)0 A ~ 1 r N: #FD$, N: B ~ 1 r 14 D M$(B)N BX C ~ 1 r 14b M$(C);(11)l Cm K ~ 1 r 14n@ 0,Kt4;(Kt64)":": o 1080v{ 0 | 1000}@ 10,20;(21)9@ 20,20;"ARE THERE ANY MORE TO BE SCANNED? (Y/N); R$~$ R$~"Y" s 670 150@ 20,20;(21)  405:**********************PRINT MODE********************A@ 10,20;"DO YOU WISH THIS PAGE TO BE PRINTED OUT? (Y/N)"; P$~$ P$~ "N" s 1035 1040  A ~ 0 r 19 #1;(A)$ ) #0*@ 10,20;(21).3/********************PAGE TOTAL***************8 A ~ 1 r 14 B 4,2LT$~((At4),10) VT~(T$)[ T1 s 1130`@ 58,19;"PAGE TOTAL:-";Tjt