Voting

Category

real language

Bookmarking

Del.icio.us Digg Diigo DZone Earthlink Google Kick.ie
Windows Live LookLater Ma.gnolia Reddit Rojo StumbleUpon Technorati

Language CDC NOS CCL

Date:04/20/05
Author:Valerie Harris
URL:n/a
Comments:5
Info:n/a
Score: (3.00 in 17 votes)
Contributed by Valerie Harris (valerie@grin.net) with a little help from my friends
CDC = Control Data Corporation
NOS = Network Operating System
CCL = Cyber Control Language
It's the operating system control language of the cyber machine.

.PROC,DRV99*I,
COUNT = (*N=10,*F).
.HELP.
THIS PROC READS ARGUMENT COUNT, AND INITIALIZES
REGISTER COUNTER TO THAT VALUE.
THEN THIS PROC LOOPS FOR THAT MANY COUNTS, DECREMENTING
THE REGISTER COUNTER EVERY LOOP.  DURING THE LOOP THIS PROC
CALLS PRN99 WHICH PRINTS MESSAGE FOR THAT COUNT
.HELP,COUNT.
THIS IS THE INITITAL COUNT, THE COUNT FROM WHICH TO DECREMENT.
.ENDHELP
.IF,NUM(COUNT),QUIT.
SET,R1=COUNT.
SET,R2=0.
WHILE,R1.GT.R2,LOOP.
BEGIN,PRN99,DRV99,R1.
SET,R1=R1-1.
ENDW,LOOP.
NOTE./NO BOTTLES OF BEER ON THE WALL
REVERT,NOLIST.
.ENDIF,QUIT.
REVERT,ABORT.  NONNUMERIC PASSES
.PROC,PRN99*I,COUNT=(*N=10,*F).
.SET,K9=STRD(COUNT).
NOTE./K9 BOTTLES OF BEER ON THE WALL
NOTE./K9 BOTTLES OF BEER
NOTE./TAKE ONE DOWN, AND PASS IT AROUND/
REVERT,NOLIST.

Download Source | Write Comment

Alternative Versions

Comments

>>  Valerie Harris said on 03/28/07 10:31:33

Valerie Harris I wanted to update my email: ValHarrisMV@gmail.com

>>  Valerie Harris said on 03/28/07 10:32:29

Valerie Harris I wanted to update my email: ValHarrisMV@gmail.com

I can't beleive this is still here!

Valerie

>>  Valerie Harris said on 03/28/07 10:36:11

Valerie Harris I submitted this in 1998 - not in 2005

My website is:
http://ww.myspace.com/valharris_in_california

>>  Fahad Khan said on 06/23/07 10:17:33

Fahad Khan She lies, this was submitted in 2005, and she even lied in the guestbook, kick her out, bit**

>>  Valerie Harris said on 06/14/09 21:02:17

Valerie Harris Sorry - it was submitted in 1998 - I have the original email

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!

Name:

eMail:

URL:

Security Code:
  
Comment: