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

[ultr...@gmail.com]

On Tuesday, December 15, 2020 at 10:19:47 AM UTC-5, 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). 
> 
> bill

UH DATA AND PROCEDURE DIVISIONS FOR ONE

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