Category : Pascal Source Code
Archive   : V_PASCAL.ZIP
Filename : SECOND1

 
Output of file : SECOND1 contained in archive : V_PASCAL.ZIP
PROGRAM SECOND1; {an example of simple input and output; also, cursor control}
VAR
NAME : STRING;
COUNT : INTEGER;

BEGIN
CURSOR(0,0);
WRITELN('upper left');
CURSOR(30,0);
WRITELN('upper right');
CURSOR(0,24);
WRITELN('lower left');
CURSOR(30,24);
WRITELN('lower right');

CURSOR(0,10);
WRITE("What's your name? ");
READLN(NAME);
FOR COUNT := 1 TO 5 DO
WRITELN('Hi, ', NAME, '!');
END.


  3 Responses to “Category : Pascal Source Code
Archive   : V_PASCAL.ZIP
Filename : SECOND1
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/