CLS

RDSTATE:
READ ST$, STB$, NCO: IF ST$ = "Xxxxxxxx" THEN GOTO ENDRDSTATE
PRINT ST$; STRING$(10, "."); STB$

RDCOUNTY:
READ COUNTY$, NC
PRINT TAB(2); COUNTY$

RDCITIES:
PRINT TAB(5);
RDCITYNAME:
READ CITYNAME$: IF CITYNAME$ = "." THEN GOTO ENDCITYNAME
PRINT CITYNAME$;
GOTO RDCITYNAME
ENDCITYNAME:

PRINT
NC = NC - 1: IF NC > 0 THEN GOTO RDCITIES
ENDREADCITIES:

NCO = NCO - 1: IF NCO > 0 THEN GOTO RDCOUNTY
ENDRDCOUNTY:


GOTO RDSTATE
ENDRDSTATE: