Classic Computer Magazine Archive COMPUTE! ISSUE 37 / JUNE 1983 / PAGE 272

Relocation Calculator
Linton S. Chastain


This automatic analysis of the effects of switching jobs might reveal some hidden economic factors in making career choices. The program will work with either standard or Extended BASIC and either 16 or 32K.

Those of you who have been asked to relocate or may be considering relocating for your own reasons, might be interested in this program called "Salary Comparison." The program, which requires 5055 bytes to run, compares your present salary and cost with the new salary and cost. It gives you the bottom line of either a profit or loss based on the input of the old and new salaries and costs. You have a choice of outputting the old and new salaries and costs with results to the screen or printer.
    The input for your old salary and cost should be readily available from your paycheck stubs and household budget. The input for the new salary can be obtained through calculations based on payroll formulas or from interpolations based on percentages of deductions of your old salary, or you may be able to obtain the input needed from the payroll department. The input for the new OUTGO can be obtained from national tax accountants, realtors, and the chamber of commerce in the new location. You can also use an almanac and indexing of the old to the new cost.
    The more accurate the inputs, of course, the more accurate the results. (Recall the old computer saw: "Garbage in, garbage out.") Regardless of whether or not you decide to take the new position, at least you have an idea of what it will cost. Your decision may well be a more objective one and, in the long run, a more satisfying one.

40 A=0:B=0:C=0:D=0:E=0:F=0:G=0:H=0:I=
   0:J=0:K=0:L=0:M=0:N=0:O=0:P=0:Q=0:
   R=0:AA=0:AB=0:U=0:V=0:Y=0:Z=0:AC=0
   :AD=0:AE=0:AF=0:AJ=0:AK=0:AL=0:AM=
   0:AN=0:AO=0:AP=0:AQ=0:AR=0:AZ=0:AT
   =0:AU=0:AV=0:AW=0:AY=0:W=0:X=0
70 CLS:PRINT"INCOME COMPARISON":PRIN

   T:PRINT"COMMAND LIST # 1"
80 PRINT" 1-INPUT SALARY"
90 PRINT" 2-INPUT OUTGO"
100 PRINT" 3-DISPLAY SALARIES"
110 PRINT" 4-DISPLAY OUTGOES"
120 PRINT" 5-DISPLAY DIFFERENCE"
130 INPUT"ENTER COMMAND BY NUMBER";S:
    IFS<1 OR S>5 THEN70
140 ON S GOTO150,505,370,760,910
150 PRINT
160 PRINT:PRINT"ENTER THE FOLLOWING D
    ATA AS REQUESTED"
180 PRINT"-SALARY A ;B"
190 PRINT"-FED TAX C ;D"
200 PRINT"-FICA E ;F"
210 PRINT"-STATE TAX G ;H"
220 PRINT"-SAVING BOND I ;J"
230 PRINT"-LIFE INS. K ;L"
240 PRINT"-GP. INS. M ;N"
250 PRINT"-SAVING O ;P"
260 PRINT"-LTD Q ;R"
280 INPUT"SALARY A";A:INPUT"SALARY B"
    ;B
290 INPUT"FED TAX C";C:INPUT"FED TAX
    D";D
300 INPUT"FICA E";E:INPUT"FICA F";F
310 INPUT"STATE TAX G";G:INPUT"STATE
    TAX H";H
320 INPUT"SAVING BOND I";I:INPUT"SAVI
    NG BOND J";J
330 INPUT"LIFE INS. K";K:INPUT"LIFE I
    NS. L";L
340 INPUT"GP. INS. M";M:INPUT"GP. INS
    . N";N
350 INPUT"SAVING O";O:INPUT"SAVING P"
    ;P
360 INPUT"LTD Q";Q:INPUT"LTD R";R
365 GOTO70
370 AA=A-(C+E+G+I+K+M+O+Q):AB=B-(D+F+
    H+J+L+N+P+R)
375 INPUT"INPUT PRINT TO CRT(1) OR PR
    INT TO PRINTER(2)";S:PX=S
376 IFS<1 OR S>2 GOTO375
377 IFPX=2 THENPP=-2 ELSE PP=0
380 CLS:PRINT#PP,"SALARY COMP. INCOME
     1 INCOME 2"
385 PRINT#PP,CHR$(10)
390 PRINT#PP,"SALARY";TAB(13);A;TAB(2
    3);B
400 PRINT#PP,"FED TAX";TAB(13);C;TAB(
    23);D
410 PRINT#PP,"FICA";TAB(13);E;TAB(23)
    ;F
420 PRINT#PP,"STATE TAX";TAB(13);G;TA
    B(23);H
430 PRINT#PP,"SAV. BOND";TAB(13);I;TA
    B(23);J
440 PRINT#PP,"LIFE INS.";TAB(13);K;TA
    B(23);L
450 PRINT#PP,"GP. INS.";TAB(13);M;TAB
    (23);N
460 PRINT #PP,"SAVING";TAB(13);O;TAB(
    23);P
470 PRINT#PP,"LTD";TAB(13);Q;TAB(23);
    R
480 PRINT#PP,"-----------------------
    --------"
490 PRINT#PP,"DIF.";TAB(13);AA;TAB(23
    );AB
495 PRINT#PP,CHR$(10)
500 INPUT"HIT ENTER TO CONTINUE";R$:I
    FR$=INKEY$ THEN 70
505 PRINT
510 PRINT:PRINT"ENTER THE FOLLOWING D
    ATA AS REQUESTED"
530 PRINT"-PROP. TAXES U ;V"
540 PRINT"-CAR & HOME INS. W ;X"
550 PRINT"-FOOD Y ;Z"
560 PRINT"-CLOTHING AC  ;AD"
570 PRINT"-MORTGAGE AE  ;AF"
580 PRINT"-WATER AG  ;AI"
590 PRINT"-N. GAS AJ  ;AK"
600 PRINT"-ELECTRICITY AL  ;AM"
610 PRINT"-MED. & DENT. AN  ;AO"
620 PRINT"-GAS VEHICLES AP  ;AQ"
630 PRINT"-EDUCATION AR  ;AZ"
650 INPUT"PROP. TAXES U";U:INPUT"PROP
    . TAXES V";V
660 INPUT"CAR & HOME INS. W";W:INPUT"
    CAR & HOME INS. X";X
670 INPUT"FOOD Y";Y:INPUT"FOOD Z";Z
680 INPUT"CLOTHING AC";AC:INPUT"CLOTH
    ING AD";AD
690 INPUT"MORTGAGE AE";AE:INPUT"MORTG
    AGE AF";AF
700 INPUT"WATER AG";AG:INPUT"WATER AI
    ";AI
710 INPUT"N. GAS AJ";AJ:INPUT"N. GAS
    AK";AK
720 INPUT"ELECTRICITY AL";AL:INPUT"EL
    ECTRICITY AM";AM
730 INPUT"MED. & DENT. AN";AN:INPUT"M
    ED. & DENT. AO";AO
740 INPUT"GAS VEHICLES AP";AP:INPUT"G
    AS VEHICLES AQ";AQ
750 INPUT"EDUCATION AR";AR:INPUT"EDUC
    ATION AZ";AZ
755 GOTO70
760 AT=U+W+Y+AC+AE+AG+AJ+AL+AN+AP+AR:
    AU=V+X+Z+AD+AF+AI+AK+AM+AO+AQ+AZ
770 CLS:PRINT#PP,"SALARY COMP. OUTGO
     1{3 SPACES}OUTGO 2"
780 PRINT#PP,CHR$(10):PRINT#PP,"PROP.
     TAXES";TAB(13);U;TAB(23);V
790 PRINT#PP,"C & H INS.";TAB(13);W;T
    AB(23);X
800 PRINT#PP,"FOOD";TAB(13);Y;TAB(23);Z
810 PRINT#PP,"CLOTHING";TAB(13);AC;TA
    B(23);AD
820 PRINT#PP,"MORTGAGE";TAB(13);AE;TA
    B(23);AF
830 PRINT#PP,"WATER";TAB(13);AG;TAB(2
    3);AI
840 PRINT#PP,"N. GAS";TAB(13);AJ;TAB(
    23);AK
850 PRINT#PP,"ELECT.";TAB(13);AL;TAB(
    23);AM
860 PRINT#PP,"MED.&DENT.";TAB(13);AN;
    TAB(23);AO
870 PRINT#PP,"GAS VEH.";TAB(13);AP;TA
    B(23);AQ
880 PRINT#PP,"EDUC.";TAB(13);AR;TAB(2
    3);AZ
885 PRINT#PP,"-----------------------
    --------"
890 PRINT#PP,"TOTALS";TAB(13);AT;TAB(
    23);AU
900 INPUT"HIT ENTER TO CONTINUE";R$:I
    FR$=INKEY$ THEN 70
910 CLS:PRINT#PP,CHR$(10):PRINT#PP,"S
    ALARY COMP. INCOME 1 INCOME 2"
920 PRINT#PP,CHR$(10):PRINT#PP,"NET I
    NCOME";TAB(13);AA;TAB(23);AB
930 PRINT#PP,"OUTGO";TAB(13);AT;TAB(2
    3);AU
940 PRINT#PP,"------------------------
    --------"
950 AV=AA-AT:AW=AB-AU
960 PRINT#PP,"NET MONEY";TAB(13);AV;T
    AB(23);AW
970 AY=AW-AV
980 IF AW=>AV THEN PRINT#PP,CHR$(10):
    PRINT#PP,"A PROFIT OF";AY;"DOLLARS"
990 IF AW<AV THEN PRINT#PP,CHR$(10):P
    RINT#PP,"A LOSS OF ";AY;"DOLLARS"
1010 INPUT"HIT ENTER TO CONTINUE";R$
1020 IFR$=INKEY$ THEN70