2400 IF bor2-ass>5000 THEN PRINTcr$cr$" SORRY...No more borrowing."bor=0:GOTO 2430
2400 IF bor2-ass>5000 THEN PRINTcr$cr$" SORRY...No more borrowing."bor2=bor2-bor:CALL &BB18:GOTO 2430