[Info-vax] VMS Software needs to port VAX DIBOL to OpenVMS X86 platform

[Dave Froble]

On 12/16/2020 2:12 PM, mceculski2 at gmail.com wrote:
> On Wednesday, December 16, 2020 at 1:57:34 PM UTC-5, Bill Gunshannon wrote:
>> On 12/16/20 1:26 PM, Simon Clubley wrote:
>>> On 2020-12-16, mceculski2 at gmail.com <mceculski2 at gmail.com> wrote:
>>>>
>>>> YOU DIDN'T THINK I WOULD PASS ON A CHALLENGE DID YOU? :)
>>>> THAT WAS AN OLD VAX DIBOL CODE EXAMPLE NOT USING THE FOR LOOP STRUCTURE
>>>>
>>>> BEHOLD THE POWER OF SYNERGY DIBOL I THINK MY CPU PROCESS TIME WILL BEAT YOURS
>>>>
>>>
>>> $ set response/mode=good_natured
>>>
>>> Bob, you no longer need to use an ASR33 to post to comp.os.vms.
>>>
>>> Other input devices are available these days.
>>>
>>>>
>>>> RECORD MISC
>>>>       I              ,D2
>>>>       NUMBOT         ,D2,99                ;Default # of bottles to 99
>>>> PROC
>>>>       XCALL FLAGS (0007000000,1)           ;Suppress STOP message
>>>>       OPEN (15,O:C,"TT:")                  ;Open the terminal/display
>>>>       FOR I FROM NUMBOT THRU 1 BY -1
>>>>       DO
>>>>         BEGIN
>>>>           USING NUMBOT SELECT
>>>>             (1), BEGIN
>>>>                    DISPLAY(15,NUMBOT<FORMAT:'ZX'>,' Bottle of Beer on the wall.',13,10,13,10)
>>>>                    DISPLAY(15,NUMBOT<FORMAT:'ZX'>,' Bottle of Beer on the wall,',13,10)
>>>>                    DISPLAY(15,NUMBOT<FORMAT:'ZX'>,' Bottle of Beer,',13,10)
>>>>                    DISPLAY(15,'   Take one down, pass it around,',13,10)
>>>>                    DISPLAY(15,13,10,'Hey the Beer's gone, I am out of here...',13,10)
>>>>                  END
>>>>             (), BEGIN
>>>>                   DISPLAY(15,NUMBOT<FORMAT:'ZX'>,' Bottles of Beer on the wall,',13,10)
>>>>                   DISPLAY(15,NUMBOT<FORMAT:'ZX'>,' Bottles of Beer,',13,10)
>>>>                   DISPLAY(15,'   Take one down, pass it around,',13,10)
>>>>                   DISPLAY(15,NUMBOT<FORMAT:'ZX'>,' Bottles of Beer on the wall.',13,10,13,10)
>>>>                 END
>>>>           ENDSUING
>>>                ^^
>>> Perhaps you should have run it through a compiler first before posting. :-)
>>>
>>> BTW, it's the first time I've seen channel 15 used for TT: in a DIBOL
>>> program that I can remember. I always used to use channel 1 as it was
>>> the first channel I used to open in a program when DIBOL was the
>>> language I was using to write the program.
>>>
>>> What channel did others use for TT: ? Is channel 15 from something
>>> (such as someone's training sessions) that I never saw ?
>>>
>>>>         END
>>>>       SLEEP 2
>>>>       CLOSE 15
>>>>       STOP
>>>
>>
>> Well, in DIBOL-11 15 is the highest channel.  Some people may
>> have developed a habit (or in house standard) of putting devices
>> at the top and regular files starting from the bottom.
>>
>> For the curious, there is a DIBOL-11 category on Rosetta Code.
>>
>> bill
>
> that is exactly what they did.
>
> Channel 15 was for terminal
>         14 was the line printer
>         1 thru 12 was for files
>

How restrictive ...

:-)

However, the practice is common.  My Basic programs use KB% for the 
terminal device, and the variable is set to 99.  Must get tiring typing 
all those "15"s, huh?  Not very descriptive either.

-- 
David Froble                       Tel: 724-529-0450
Dave Froble Enterprises, Inc.      E-Mail: davef at tsoft-inc.com
DFE Ultralights, Inc.
170 Grimplin Road
Vanderbilt, PA  15486