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 Pilot

Date:04/20/05
Author:Akira Kida
URL:n/a
Comments:1
Info:n/a
Score: (2.89 in 9 votes)
R: PILOT version of 99 Bottles of Beer
 : hacked by Akira KIDA, <SDI00379@niftyserve.or.jp>

C:BOTTLES=99

U:*BEERS
*LOOP
T:$T of beer on the wall, $T.
T:Take one down, pass it around.
C:BOTTLES=BOTTLES-1
U:*BEERS
T:$T on the wall.
T:
J(BOTTLES>0):*LOOP
E:

*BEERS
C(BOTTLES=0):$T=No more bottles
C(BOTTLES=1):$T=1 bottle
C(BOTTLES>1):$T=#BOTTLES bottles
E:

Download Source | Write Comment

Alternative Versions

Comments

>>  William F. Davis said on 08/08/07 05:24:24

William F. Davis The first TYPE statement should read...

T:$T of beer on the wall, $T of beer.

The last "of beer" part was missing
from Akira Kida's example.

Also, if it runs too fast, place an
ACCEPT statement before the JUMP statement
so you can press ENTER between verses.
For example:

T:
A:
J(BOTTLES>0):*LOOP
E:

Personally, I've always thought PILOT could
be much more than it has been. It's a little
language that just didn't get the fan fair that
it should have. It's an ideal language for text
adventures, being it's easy to structure the
rooms, and entry matching.

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: