10  REM ****  HP TIME-SHARED BASIC PROGRAM LIBRARY  ********************
20  REM
30  REM              BALANC:  TRADE AND PAYMENT BALANCES
40  REM
50  REM              36328 (A860)  REV A -- 10/71
60  REM
70  REM ****  CONTRIBUTED PROGRAM  *************************************
80  REMPROGRAM BY J.V.SWARTZ, HALF HOLLOW HILLS,7/68
90  REM BALANC - COPYRIGHT 1971, POLYTECHNIC INSTITUTE OF BROOKLYN
100  PRINT "THERE'S A DISTINCTION BETWEEN TRADE BALANCE AND"
110  PRINT "BALANCE OF PAYMENTS."
120  PRINT 
130  PRINT "TRADE BALANCE = EXPORTS-IMPORTS."
140  PRINT 
150  PRINT "BALANCE OF PAYMENTS= ALL OVERSEAS EXCHANGES+"
160  PRINT "ALL OVERSEAS EXPENDITURES."
170  PRINT 
180  PRINT "WHEN INFORMATION IS REQUESTED, INPUT VALUES IN"
190  PRINT "MILLIONS OF DOLLARS (E.G. 6 = 6 MILLION DOLLARS)"
200  PRINT 
210  PRINT "A."
220  PRINT "INPUT A FIGURE FIRST FOR ALL MILITARY AID, THEN"
230  PRINT "FOR ALL OTHER AID TO OTHER NATIONS."
240  INPUT F1,F2
250  LET F=F1+F2
260  PRINT 
270  PRINT "B."
280  PRINT "INPUT A FIGURE FIRST FOR EXPORTS, THEN FOR IMPORTS."
290  INPUT S1,S2
300  LET S=S1-S2
310  PRINT 
320  PRINT "C."
330  PRINT "INPUT A FIGURE FIRST FOR FOREIGNERS TRAVELING IN"
340  PRINT "YOUR COUNTRY, THEN FOR YOUR COUNTRYMEN TRAVELING"
350  PRINT "ABROAD."
360  INPUT T1,T2
370  LET T=T1-T2
380  PRINT 
390  PRINT "D."
400  PRINT "INPUT A FIGURE FIRST FOR INCOME FROM FOREIGN INVEST-"
410  PRINT "MENTS, THEN FOR FOREIGN INVESTMENT ITSELF."
420  INPUT I1,I2
430  LET I=I1-I2
440  LET P=-F+S+T+I
450  PRINT 
460  PRINT 
470  PRINT "A. FOREIGN AID =",F
480  PRINT 
490  PRINT "B. BALANCE OF TRADE =",S
500  PRINT 
510  PRINT "C. TRAVEL BALANCE =",T
520  PRINT 
530  PRINT "D. INVESTMENT BALANCE =",I
540  PRINT 
550  PRINT "----------"," ","----------"
560  PRINT 
570  PRINT "BALANCE OF PAYMENTS =",P
580  PRINT 
590  PRINT "(REMEMBER, IF A MINUS FIGURE APPEARS ABOVE,YOUR"
600  PRINT "COUNTRY HAS A DEFICIT IN ITS BALANCE OF PAYMENTS)"
610  PRINT 
620  PRINT "HOPE YOU UNDERSTAND THE DISTINCTION BETWEEN THE"
630  PRINT "BALANCE OF TRADE AND THE BALANCE OF PAYMENTS"
640  PRINT "BETTER NOW."
650  END 
