Name Game Program

[Platinum_Playa]

My girst time posting on compsci.


%Cmore
%Apr 29th,2005
%This program will output any name in the same pattern

color(9)
drawfill(0,0,12,12)
var name : string
var z := 0

%Program Title
locate(1,37)
colorback(14)
put"ThE NaMe GaMe"..

%Program Intro
locate(3,3)
put"This program will output your name in a specially designed program"

%User input
locate(5,4)
put "Please enter your name "..
get name
cls

%Processing
for x : 1 .. length (name)
z := 0
for y : x .. length (name)
locate (12 + (length (name) div 2) - x, 40 + length (name) div 2 - z)
put name (y)..
z := z + 1
end for
end for

%End Of Program

[Delos]

1)
Hello.

2)
Please use [code] tags in the future.

3)
It's nice to show that you know how to code using the basics. Not to discourage, but please ask yourself before you post next time "Is this post actually going to be meaningful or useful to anyone on this site?"
Hopefully when V3 comes around there will be a specific Newbie forum to post this kind of stuff...

[Dylan-182]

nice work i liked it lol it could have been better but w/e its still cool

[Lazarus]

He hasn't made another post since you scared him off Delos.

lol, wonder if he'll be back.

[*SmilePlease*]

Dylan-182 wrote:

nice work i liked it lol it could have been better but w/e its still cool

[Dylan-182]

SmilePlease, why did u quote me and then not say anything?

lol