-----------------------------------

exploitmonkey

Wed Jan 26, 2005 9:30 am


For Matt S tiktest

-----------------------------------


%********************************
%name block
%name - CLinton Shepley
%date -
%program description
%*********************************
%
%
%*********************************
%Algorithm
%A set of instructions in order, used to pre-plan a program
%*********************************
%
%
%*********************************
%Variables Dictionary
%declare variable by name and type
var nam : string                                            %...gets name
var num : array 1 .. 5 of int := init (1, 2, 6, 8, 9)      %...preset numbers
var numpick : array 1 .. 5 of int := init (1, 2, 3, 4, 5)   %...user numbers
var points : int := 0                                       %...counter for points
var ans : string (1)                                        %...answer from user
var array10n : array 1 .. 10 of string

%*********************************
%
%
%*********************************
%Procedures/Subprograms/Subroutines
%do each seperatly in a block

%display names
proc displayarray

    put "-------------------------------------------------------------------------------"
    put array10n (1)
    put array10n (2)
    put array10n (3)
    put array10n (4)
    put array10n (5)
    put array10n (6)
    put array10n (7)
    put array10n (8)
    put array10n (9)
    put array10n (10)
    put "-------------------------------------------------------------------------------"
    put array10n (1), " ",
        array10n (2), " ",
        array10n (3), " ",
        array10n (4), " ",
        array10n (5), " ",
        array10n (6), " ",
        array10n (7), " ",
        array10n (8), " ",
        array10n (9), " ",
        array10n (10)

end displayarray
%*********************************
%
%
%*********************************
%Mainline
%step by step enter the program

loop            %...Repeats the game over again
    drawfillbox (0, 0, maxx, maxy, white)
    boxball
    fall
    name
    numbers
    compare
    array10
    displayarray
    put "Wanna play again?  y/n"

    getch (ans)

    exit when ans = "n" or ans = "N" %...leaves program program

end loop

quit           %...exits when ans  is n
%*********************************



-----------------------------------

MiX-MaztA-M8riX

Wed Jan 26, 2005 10:40 am



-----------------------------------

You Didnt Use Code Tags  :o 
Please.... Really, Use Them In The Future


[code]
Makes It A Lot Easier To See...
[/code]


And Also Indent PLZ!

Good Job On This?
Its really meant to not do much, but I guess its a good example to get sum basic stuff down...


-----------------------------------

Tony

Wed Jan 26, 2005 10:42 am



-----------------------------------

edited for redability. Please do so yourself next time


-----------------------------------

MiX-MaztA-M8riX

Wed Jan 26, 2005 10:56 am



-----------------------------------

Thank you Tony.

But may I ask the 'exploitmonkey' what this program was made for?  :P


-----------------------------------

cool dude

Wed Jan 26, 2005 2:53 pm



-----------------------------------

Thank you Tony.

But may I ask the 'exploitmonkey' what this program was made for?  :P

it wasn't really made for anything but he justed wanted probably to have some comments on how to improve in turing. he combined all his programs that he made and put them in one whole program. 

a comment to his program would be that u don't need procedures on everything; because in your program there is no need.


-----------------------------------

ste_louis26

Fri Jan 28, 2005 3:40 pm



-----------------------------------

interesting but not very useful....