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

[ultr...@gmail.com]

On Tuesday, December 15, 2020 at 10:35:38 AM UTC-5, Arne Vajhøj wrote:
> On 12/15/2020 10:19 AM, Bill Gunshannon wrote: 
> > On 12/15/20 8:26 AM, Arne Vajhøj wrote: 
> >> On 12/15/2020 8:17 AM, Chris Townley wrote: 
> >>> On 15/12/2020 13:05, Michael C wrote: 
> >>>> On Monday, December 14, 2020 at 9:39:20 PM UTC-5, Dave Froble wrote: 
> >>>>> On 12/14/2020 2:08 PM, ultr... at gmail.com wrote: 
> >>>>>> So Synergex as of now refuses to port their OpenVMS version of 
> >>>>>> DIBOL to OpenVMS X86. 
> >>>>> Well Bob, perhaps you can acquire a copy of the DIBOL product in order 
> >>>>> to implement it on x86 VMS? 
> >>>>>> This is a request for VMS software to port VAX DIBOL to the x86 
> >>>>>> OpenVMS environment. 
> >>>>> This forum, as Jan-=Erik may have mentioned, is not a VSI support 
> >>>>> venue. 
> >>>>>> I have started a project using DIBOL and need to implement it on 
> >>>>>> the x86 platform. 
> >>>>> Use Basic .... 
> >>>>> 
> >>>>> :-) 
> >>>> 
> >>>> DIBOL runs circles around basic :0 
> >>> 
> >>> Wasn't Dibol based on Cobol? 
> >> 
> >> It is supposedly inspired by Cobol and Basic and Fortran. 
> > 
> > Point out one thing in a DIBOL program that even vaguely 
> > resembles COBOL (other than the last three letters of the 
> > name).
> Wikipedia claims: 
> * BCD arithmetic 
> * data and procedure divisions 
> 
> Arne

THINK OF DIBOL AS A TYPE OF 4 GL COBOL

RECORD MISC
    NUMBOTTLES	,D2,99			;Default # of bottles to 99
    ANUMBOTTLES	,A2			;Used to mask the output of bottles


PROC
    XCALL FLAGS (0007000000,1)		;Suppress STOP message
    OPEN (8,O:C,"TT:")        		;Open the terminal/display
    REPEAT
	BEGIN
	ANUMBOTTLES = NUMBOTTLES,'ZX'
	WRITES (8,ANUMBOTTLES+" Bottles of Beer on the wall,")
	ANUMBOTTLES = NUMBOTTLES,'ZX'
	WRITES (8,ANUMBOTTLES+" Bottles of Beer,")
	WRITES (8,"   Take one down, pass it around,")
	DECR NUMBOTTLES	      		;Reduce # of bottles by 1
	IF (NUMBOTTLES .LE. 1) EXITLOOP	;If just 1 bottle left, get out
	ANUMBOTTLES = NUMBOTTLES,'ZX'
	WRITES(8,ANUMBOTTLES+" Bottles of Beer on the wall.") 
	WRITES (8," ")
	END
    ANUMBOTTLES = NUMBOTTLES,'ZX'
    WRITES(8,ANUMBOTTLES+" Bottle of Beer on the wall.") 
    WRITES (8," ")
    WRITES (8,ANUMBOTTLES+" Bottle of Beer on the wall,")
    WRITES (8,ANUMBOTTLES+" Bottle of Beer,")
    WRITES (8,"   Take one down, pass it around,")
    WRITES (8," ")
    WRITES (8," ")
    WRITES (8, "Hey the Beer's gone, I am out of here...")
    SLEEP 2
    CLOSE 8
    STOP
END