home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 153.img / TELES.ZIP / QSCAN.PAS < prev    next >
Pascal/Delphi Source File  |  1988-07-23  |  135b  |  3 lines
  1.       qscan[1].ltr:='A'; qscan[1].number:=-32767;
  2.       for i:=2 to 19 do qscan[i]:=qscan[1];
  3.       for i:=1 to 19 do qscn[i]:=true;