0 DIM BALANCE$(8):? CHR$(125):POSITION 2,10:? "YOUR STARTING BALANCE";:INPUT BALANCE$:GOTO 682›20 OPEN #1,4,0,"K:":GET #1,A:CLOSE #1:RETURN ›682 TRAP 682:? CHR$(125):POSITION 2,10:? "ENTER STARTING MONTH (EXAMPLE: 01)":INPUT X›683 IF X<0 OR X>12 THEN 682›684 TRAP 40000:POKE 752,1:? :? "IS THIS THE CORRECT STARTING MONTH?":? X›685 GOSUB 20:IF A<>ASC("Y") AND A<>ASC("N") THEN 685›686 IF A=ASC("N") THEN 682›695 OPEN #1,8,0,"D:BEGINFO":? #1;BALANCE$:? #1;X:? #1;"0":? #1;"1":? #1;"0":? #1;"0":CLOSE #1›698 OPEN #1,8,0,"D:PRNTINFO":? #1;BALANCE$:? #1;X:? #1;"0":? #1;"1":? #1;"0":? #1;"0":CLOSE #1›