SCANDEMO.P

[Table of Contents]

SCANDEMO.P is a demo program from the Kyan Pascal 2.x Utility Disk 2 for the Atari 8-bit.

SOURCE CODE

PROGRAM SCANDEMO(INPUT,OUTPUT);
    CONST
        MAXSEARCHLEN=20;
    TYPE
       SEARCHTYPE=ARRAY[1..MAXSEARCHLEN] OF CHAR;
       PATHSTRING=ARRAY[1..20] OF CHAR;
    VAR
       FYLE:PATHSTRING;
       IT  :SEARCHTYPE;
       I,J :INTEGER;
#I  SCANFILE.I
    BEGIN
       FYLE:='SCANDEMO.P          ';
       READLN(IT);
       SCANFILE(FYLE,IT,I);
       WRITELN(I);
END.

SAMPLE RUN

Seems to lock up when it is run.