CROSSREF Manual

PASCAL
Sample Listing
72 Alien: BEGIN
73 ThePerson^.CountryOfOrigin := CountryOfOrigin;
74 ThePerson^.DateOfEntry := DateOfEntry;
75 ThePerson^.PortOfEntry := PortOfEntry;
76 END;
77 END; {CASE}
79
80 END; {MakePerson}
81
82 BEGIN
83
84 NEW(PersonRecPointer);
85
86 WHILE NOT EOF(INPUT) DO BEGIN
87
88 WRITELN( 'Name:' ); READLN( Name);
89 WRITELN( 'JobLevel: '); READLN( JobLevel);
90 WRITELN( 'BirthDate:'); READLN( BirthDate);
91 WRITELN( 'BirthPlace:'); READLN( BirthPlace);
92 WRITELN( 'CountryOfOrigin:'); READLN( CountryOfOrigin);
93 WRITELN( 'DateOfEntry:'); READLN( DateOfEntry);
94 WRITELN( 'PortOfEntry:'); READLN( PortOfEntry);
95
97
98 MakeThePerson(PersonRecPointer, Name, JobLevel, BirthDate, BirthPlace,
99 CountryOfOrigin, DateOfEntry, PortOfEntry );
100
101 TempRecPointer := PersonRecPointer;
102 NEW(PersonRecPointer);
103 TempRecPointer^.NextRecord := PersonRecPointer;
104
105 END; {WHILE}
106
111 END.
Figure 10-1. Pascal Sample Program (Page 2 of 2)
10-4