10 ON ERROR GOTO 350 20 DEF FNK$=NUM$(ASCII(RIGHT(SYS(CHR$(6)+CHR$(9)),2%))/2%) 30 DEF FNR$(X,N) 40 X9$=MID(NUM$(X/100),2%,LEN(NUM$(X/100))-2%) 50 IF INSTR(1,X9$,".")=0%THENX9$=X9$+".00" ELSE X9$=LEFT(X9$+"00",INSTR(1,X9$,".")+2%) 60 FNR$=SPACE$(N-LEN(X9$))+X9$ 70 FNEND 80 OPEN "BAN."+FNK$ FOR OUTPUT AS FILE 2 90 DIM Y(200) 100 INPUT "NAME";N$ 110 INPUT "COMPANY";C1$ 120 PRINT "DATE";: INPUT LINE D1$ 130 &:& 150 DATA "ENDING BALANCE ON CHECKBOOK","OUTSTANDING DEPOSITS","ENDING BALANCE ON BANK STATEMENT","SERVICE CHARGE" 155 FOR I%=1% TO 4%:READ A$ 160 &A$;:INPUTX(I%) 170 IF X(I%)<0%OR X(I%)>99999.99 THEN&"ILLEGAL DATA":GOTO 160 180 X(I%)=X(I%)*100%: NEXT I% 190 &:&"LIMIT OF 100 CHECKS":I%=-1%:& 200 INPUT"DEVICE (CR: OR KB: )";A$: IF LEFT(A$,1)="C" THEN OPEN "CR:" AS FILE 7 205 &:& 210 IF LEFT(A$,1)<>"C" THEN 280 ELSE INPUT "HIT RETURN WHEN CARD READER IS AVAILABLE";A8$ 220 I%=I%+2%:IF I%=101% THEN &"LIMIT REACHED":CLOSE 7:GOTO390 230 IFINSTR(A9+1,A9$,",")=0% THEN A9=0: INPUTLINE#7,A9$: A9$=LEFT(A9$,LEN(A9$)-2%)+"," 240 A7=INSTR(A9+1,A9$,","):Y(I%)=VAL(MID(A9$,A9+1,A7-A9-1)) 250 A9=INSTR(A7+1,A9$,","):Y(I%+1%)=VAL(MID(A9$,A7+1,A9-A7-1)) 260 A6=0:GOSUB 320 270 IF A6<>1 THEN 220 ELSE &A6$;" ON CARD":CLOSE 7:GOTO690 280 I%=I%+2%:IF I%=101% THEN &"LIMIT REACHED":GOTO390 290 INPUT"#,AMT";Y(I%),Y(I%+1%) 300 A6=0:GOSUB 320:IF A6=1 THEN &A6$:GOTO290 310 GOTO280 320 IF Y(I%)<>INT(Y(I%)) OR Y(I%)<0 THEN A6$="ILLEGAL NUMBER":A6=1:RETURN 330 IFY(I%+1%)<0 OR Y(I%+1%)>99999.99 THEN A6$="ILLEGAL AMOUNT ON CHECK":A6=1:RETURN 340 Y(I%+1%)=Y(I%+1%)*100%:RETURN 350 IF ERL=230 THEN CLOSE 7:RESUME 390 355 IF ERR=11 AND ERL=290 THEN RESUME 390 360 &SYS(CHR$(6)+CHR$(9)+CHR$(ERR));" AT LINE";ERL 370 IF ERR=8 OR ERR=14 THEN&"CR: IS EITHER HUNG OR NOT AVAILABLE":RESUME210 380 RESUME 390 X=25 400 &:&"RECONCILIATION OF BANK STATEMENT IS BEING GENERATED":& 410 Q9%=I%/2% 420 ,SPACE$(5); N$: FOR I%=1% TO 4% 430 , SPACE$(25+X); C1$: 440 , SPACE$ (20+X); "RECONCILIATION OF BANK STATEMENT": 450 , SPACE$ (26+X); D1$ 460 T= X(1)-X(4) 470 S=X(3)+X(2) 480  FOR I%=1% TO 5% 490 ,"BALANCE OF CHECKBOOK";TAB(35);"$";FNR$(X(1),10);TAB(62); "BALANCE OF BANK STATEMENT";TAB(105);"$";FNR$(X(3),10): 500 "DEDUCT";TAB(62);"ADD OUTSTANDING DEPOSITS";TAB(106); FNR$(X(2),10) 510 TAB(106);"----------" 520 ,SPACE$(6);"SERVICE CHARGE";TAB(36);FNR$(X(4),10): 530  TAB(67);"TOTAL";TAB(105);"$";FNR$(S,10) 540 :: 550 TAB(62);"DEDUCT OUTSTANDING CHECKS" 560 FOR J%=2%TO2%*Q9% STEP 2 570  TAB(76)"NO."Y(J%-1%);TAB(90)"$"FNR$(Y(J%),10) 580 T(1)=T(1)+Y(J%) 590 NEXTJ% 600 T(2)=S-T(1) 610 TAB(91);"----------":: 620  TAB(67);"TOTAL";TAB(105);"$";FNR$(T(1),10) 630 TAB(36);"----------";TAB(106);"----------" 640 :"ADJUSTED CHECKBOOK BALANCE"TAB(35);"$";FNR$(T,10); TAB(62)"ADJUSTED BANK BALANCE";TAB(105)"$"FNR$(T(2),10) 650 TAB(36)"----------";TAB(106);"----------" 660 TAB(36)"----------";SPACE$(60);"----------" 670  CHR$(26); : CLOSE 2 680 &:&"OUTPUT FILE FOR KB:";FNK$;"IS READY FOR DUMPING":& 690 END