[Info-vax] Licenses on VAX/VMS 4.0/4.1 source code listing scans

[Arne Vajhøj]

On 12/14/2021 8:15 PM, Arne Vajhøj wrote:
> On 12/14/2021 8:09 PM, Bill Gunshannon wrote:
>> On 12/14/21 7:41 PM, Arne Vajhøj wrote:
>>> On 12/14/2021 7:02 PM, Bill Gunshannon wrote:
>>>> On 12/14/21 5:22 PM, Arne Vajhøj wrote:
>>>>> On 12/14/2021 4:26 PM, Phillip Helbig (undress to reply) wrote:
>>>>>> In article <61b9015b$0$706$14726298 at news.sunsite.dk>,
>>>>>> =?UTF-8?Q?Arne_Vajh=c3=b8j?= <arne at vajhoej.dk> writes:
>>>>>>> But doctors are often paid pretty well - so they may not have
>>>>>>> chosen that career because they are great humanitarians - they
>>>>>>> actually could be in it for the money.
>>>>>>
>>>>>> They are paid well, but not so well that someone not interested in
>>>>>> medicine would go into it only for the money.  Anyone smart enough to
>>>>>> study medicine successfully could make much more with much less 
>>>>>> effort
>>>>>> elsewhere.
>>>>>
>>>>> In Denmark the average salary for doctors at public hospitals after
>>>>> 8 years of employment is 16-18 K$ per month.
>>>>
>>>> Are you sure of that?  McDonald's pays more over here. That is
>>>> barely the minimum wage everyone here bitches about all the time.
>>>
>>> Did you notice "per month"?
>>>
>>> :-)
>>>
>>
>> Yes.
>> And according to Google that works out to be $2400 a month or about
>> $28,000 a year.
> 
> Weird.
> 
> My calculators says 192-216 K$ per year.

IDENTIFICATION DIVISION.
PROGRAM-ID. BG.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.

DATA DIVISION.
FILE SECTION.

WORKING-STORAGE SECTION.
01 LOW-MONTH-KDOLLAR PIC 9(4)V9(2) PACKED-DECIMAL.
01 LOW-MONTH-DOLLAR PIC 9(7)V9(2) PACKED-DECIMAL.
01 LOW-YEAR-KDOLLAR PIC 9(4)V9(2) PACKED-DECIMAL.
01 LOW-YEAR-DOLLAR PIC 9(7)V9(2) PACKED-DECIMAL.
01 HIGH-MONTH-KDOLLAR PIC 9(4)V9(2) PACKED-DECIMAL.
01 HIGH-MONTH-DOLLAR PIC 9(7)V9(2) PACKED-DECIMAL.
01 HIGH-YEAR-KDOLLAR PIC 9(4)V9(2) PACKED-DECIMAL.
01 HIGH-YEAR-DOLLAR PIC 9(7)V9(2) PACKED-DECIMAL.

PROCEDURE DIVISION.
MAIN-PARAGRAPH.
     MOVE 16 TO LOW-MONTH-KDOLLAR
     MOVE 18 TO HIGH-MONTH-KDOLLAR
     DISPLAY LOW-MONTH-KDOLLAR "-" HIGH-MONTH-KDOLLAR " K$ per month"
     COMPUTE LOW-MONTH-DOLLAR = LOW-MONTH-KDOLLAR * 1000
     COMPUTE HIGH-MONTH-DOLLAR = HIGH-MONTH-KDOLLAR * 1000
     DISPLAY LOW-MONTH-DOLLAR "-" HIGH-MONTH-DOLLAR " dollar per month"
     COMPUTE LOW-YEAR-KDOLLAR = 12 * LOW-MONTH-KDOLLAR
     COMPUTE HIGH-YEAR-KDOLLAR = 12 * HIGH-MONTH-KDOLLAR
     DISPLAY LOW-YEAR-KDOLLAR "-" HIGH-YEAR-KDOLLAR " K$ per year"
     COMPUTE LOW-YEAR-DOLLAR = LOW-YEAR-KDOLLAR * 1000
     COMPUTE HIGH-YEAR-DOLLAR = HIGH-YEAR-KDOLLAR * 1000
     DISPLAY LOW-YEAR-DOLLAR "-" HIGH-YEAR-DOLLAR " dollar per year"
     STOP RUN.

:-)

Arne