home *** CD-ROM | disk | FTP | other *** search
/ A.N.A.L.O.G. Magazine 1987 April / 87_apr.atr / report1.lst < prev    next >
File List  |  2023-02-26  |  597b  |  1 lines
  1. 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¢