blob: bde3a8f75ae3aa35f8687a3ca04934d9c187d077 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# RESET_SCAN -- Initialize the scan common at the start of a scan. May also
# be called by the user to rescan a line, following a conversion failure.
procedure reset_scan()
include "scan.com"
begin
sc_ip = 1
sc_ntokens = 0
sc_stopscan = false
end
|
