Language DIBOL
Date: | 04/20/05 |
Author: | Bob Welton |
URL: | n/a |
Comments: | 2 |
Info: | n/a |
Score: | (2.91 in 11 votes) |
.TITLE - "Program to display 99 bottles of beer on the wall" ; ;======================================================================================================= ; Author: Bob Welton (welton@pui.com) ; Projects Unlimited Inc. ; Dayton, OH 45414 ; ; Language: DIBOL or DBL ;======================================================================================================= 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
Download Source | Write Comment
Download Source | Write Comment
Add Comment
Please provide a value for the fields Name,
Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.
Please don't post large portions of code here! Use the form to submit new examples or updates instead!
Comments
DDay said on 08/23/08 06:39:35
Whoa! I haven't seen a line of DIBOL since the 1970s. I did not know that anyone still remembered it. Very cool, Mr Welton!
Have you tried out this version? I no longer have my PDP-8e to attempt it.
DDay
Tom said on 03/12/09 20:33:39
very impressed. Could you please tell me some web site which I can learn more about this cool language? thanks in advance