PROGRAM Coyotes_GDT;
USES wincrt;
VAR firstline : string;
VAR secondline : string;
VAR thirdline : string;
VAR fourthline : string;
VAR defense : string;
VAR goalie : string;
VAR approval : string;
VAR greaseinthecrease : integer;
VAR loop : boolean;
BEGIN
writeln('Welcome to lineup generator v1.2.7.');
{{Lineup entry module}}
write('Please enter the surnames of the players on the first line in order of LW-C-RW, separated by a space: ');
readln(firstline);
write('Please enter the surnames of the players on the second line in order of LW-C-RW, separated by a space: ');
readln(secondline);
write('Please enter the surnames of the players on the third line in order of LW-C-RW, separated by a space: ');
readln(thirdline);
write('Please enter the surnames of the players on the fourth line in order of LW-C-RW, separated by a space: ');
readln(fourthln);
write('Please enter the surnames of the defense, in the order of L-R, first pairing through third pairing: ');
readln(defense);
write('Please enter the full name of the starting goalie: ');
{{Grease in the Crease goals against prediction entry loop}}
loop := FALSE;
WHILE loop = FALSE
write('Please predict goals against for the game: ');
readln(greaseinthecrease);
IF greaseinthecrease > 3 THEN loop := true ELSE writeln('Error: prediction unrealistic. Please try again.');
END;
{{Output module}}
writeln('Thank you for completing the lineup generator. Press any key to clear the screen and view your results.');
ReadKey;
ClrScr;
PROCEDURE WriteLnCenter(S:String);
VAR oy : integer;
BEGIN
oy := wherey;
gotoxy(39-(Length(S) DIV 2),oy);
writeln(s);
END;
writelncenter(firstline);
writelncenter(secondline);
writelncenter(thirdline);
writelncenter(fourthline);
writelncenter(defense);
writelncenter(goalie);
writelncenter('Scratches:');
writelncenter(scratches);
writelncenter('Goals against prediction: ', greaseinthecrease);
writelncenter('Thank you for using lineup generator v1.2.7 and have a nice day!');
END.
This thread is approved by...
Marvin the Paranoid Android.
"Incredible... it's even worse than I thought it would be."
If we lose, I'm blaming hbk.
USES wincrt;
VAR firstline : string;
VAR secondline : string;
VAR thirdline : string;
VAR fourthline : string;
VAR defense : string;
VAR goalie : string;
VAR approval : string;
VAR greaseinthecrease : integer;
VAR loop : boolean;
BEGIN
writeln('Welcome to lineup generator v1.2.7.');
{{Lineup entry module}}
write('Please enter the surnames of the players on the first line in order of LW-C-RW, separated by a space: ');
readln(firstline);
write('Please enter the surnames of the players on the second line in order of LW-C-RW, separated by a space: ');
readln(secondline);
write('Please enter the surnames of the players on the third line in order of LW-C-RW, separated by a space: ');
readln(thirdline);
write('Please enter the surnames of the players on the fourth line in order of LW-C-RW, separated by a space: ');
readln(fourthln);
write('Please enter the surnames of the defense, in the order of L-R, first pairing through third pairing: ');
readln(defense);
write('Please enter the full name of the starting goalie: ');
{{Grease in the Crease goals against prediction entry loop}}
loop := FALSE;
WHILE loop = FALSE
write('Please predict goals against for the game: ');
readln(greaseinthecrease);
IF greaseinthecrease > 3 THEN loop := true ELSE writeln('Error: prediction unrealistic. Please try again.');
END;
{{Output module}}
writeln('Thank you for completing the lineup generator. Press any key to clear the screen and view your results.');
ReadKey;
ClrScr;
PROCEDURE WriteLnCenter(S:String);
VAR oy : integer;
BEGIN
oy := wherey;
gotoxy(39-(Length(S) DIV 2),oy);
writeln(s);
END;
writelncenter(firstline);
writelncenter(secondline);
writelncenter(thirdline);
writelncenter(fourthline);
writelncenter(defense);
writelncenter(goalie);
writelncenter('Scratches:');
writelncenter(scratches);
writelncenter('Goals against prediction: ', greaseinthecrease);
writelncenter('Thank you for using lineup generator v1.2.7 and have a nice day!');
END.
This thread is approved by...
Marvin the Paranoid Android.
"Incredible... it's even worse than I thought it would be."
If we lose, I'm blaming hbk.