Just for fun could someone translate this Basic code
into Turbo Pascal.

        LOCATE 5, 5
        PRINT "Press a key: "
        N = 1
        DO
           LOCATE 20, 20
           PRINT N
           N = N + 1
           LOCATE 5, 18
           a$ = INKEY$
        LOOP WHILE LEN(a$) = 0
        PRINT a$
        LOCATE 6, 5

Thanks.

While we are at it how wolu you write the follwing
C code in Turbo Pascal

#include <conio.h>
#include <stdio.h>
main()
{
        float salary;
        clrscr();
        printf("Enter your desired monthly salary:");  /* note there is no \n
at the end */
        printf(" $_______\b\b\b\b\b\b\b"); /* this picks up at the end of above
*/
        scanf("%f", &salary);
        printf("\n\t$%.2f a month is $%.2f a year.", salary, salary * 12.0);
        printf("\rGee!\n");

   >Just for fun could someone
   >translate this Basic code  
   >into Turbo Pascal.          
   >LOCATE 5, 5                Gotoxy(5,5);
   >PRINT "Press a key: "      Writeln('Press a key: ');
   >N = 1                      N := 1;
   >DO                         while not keypressed do
   >LOCATE 20, 20                begin    
   >PRINT N                        inc(n);
   >N = N + 1                      gotoxy(20,20);
   >LOCATE 5, 18                   write(n);
   >a$ = INKEY$                  end;
   >LOOP WHILE LEN(a$) = 0     a:=readkey;
   >PRINT a$                   gotoxy(5,18);
   >LOCATE 6, 5                writeln(a);
   >Thanks.                    gotoxy(6,5)
   >P. Mushubi
Pretty much straight forward conversion, though I prefer using while loops,
repeat/until will also work to preform the loop. WHILE loops work like
WHILE/WEND in basic, where DO/UNTIL works like REPEAT/UNTIL in pascal.
Example: While not keypressed do        repeat
           begin {your code here}         {your code here}
           end;                         until keypressed;
         a := readkey; {get key}        a := readkey; {gt key}

jaywa...@gte.net

"I'm really Zzzzoooommmmmmiiiiinnnnn! Damn Red lights!" - Superman