0 GOSUB 100 : GOTO 3
1  IF ASC(A$)>96 THEN A$=CHR$(ASC(A$)-32):RETURN ELSE RETURN
2 A$=INKEY$: IF A$="" THEN 2 ELSE RETURN
3 PRINT STRING$(7,32);"Enter Area Code (3 digit),":PRINT STRING$(12,32)"State (2 letter)":PRINT STRING$(2,32);"or [ESC] to end.  DO NOT HIT [ENTER].": GOSUB 2: IF ASC(A$)=27 THEN if isrun then run "menu" else end
4  IF ASC(A$)<58 THEN 6
5  GOSUB 1:PRINT A$;: LT$=A$ : GOSUB 2: GOSUB 1:PRINT A$:LT$=LT$+A$ : GOTO 10
6 B$=A$:PRINT A$;: GOSUB 2:B$=B$+A$:PRINT A$;: GOSUB 2:B$=B$+A$:PRINT A$:RESTORE 13:READ Y$
7 READ X$: IF X$=B$ THEN PRINT Y$:GOTO 3
8 READ X$: IF ASC(LEFT$(X$,1))<58 THEN 9 ELSE Y$=X$:GOTO 7
9  IF X$=B$ THEN PRINT Y$:GOTO 3 ELSE 8
10 RESTORE 13
11 READ X$: IF X$=LT$ THEN READ X$:PRINT X$" "; ELSE 11
12 READ X$: IF ASC(LEFT$(X$,1))>64 THEN PRINT :GOTO 3 ELSE PRINT X$" ";:GOTO 12
13 DATA "AL","205","AK","907","AZ","602","AR","501","CA","209","213","310","408","415","510","619","707","714","805","818","916","CO","303","719","CT","203","DE","302","DC","202","FL","305","407","813","904","GA","404","912","HI","808","ID","208","IL","217","309","312","618","708","815","IN","219","317","812","IA","319","515","712"
14 DATA "KS","316","913","KY","502","606","LA","318","504","ME","207","MD","301","MA","413","508","617","MI","313","517","616","906","MN","218","507","612","MS","601","MO","314","417","816","MT","406","NE","308","402","NV","702","NH","603","NJ","201","609","908","NM","505"
15 DATA "NY","212","315","516","518","607","716","718","914","NC","704","919","ND","701","OH","216","419","513","614","OK","405","918","OR","503","PA","215","412","717","814","RI","401","SC","803","SD","605","TN","615","901","TX","214","409","512","713","806","817","903","915","UT","801","VT","802"
16 DATA "VA","703","804","WA","206","509","WV","304","WI","414","608","715","WY","307","BRITISH COLUMBIA","604","ALBERTA","403","SASKATCHEWAN","306","MANITOBA","204","ONTARIO","416","519","613","705","807","QUEBEC","418","514","819","NEWFOUNDLAND","709","NEW BRUNSWICK","506"
17 DATA "NOVIA SCOTIA & PRINCE EDWARD ISLAND","902","CARRIBEAN ISLANDS","809"
18  BEEP: IF ERR=4 THEN PRINT "INVALID INPUT":PRINT "OR NONEXISTANT AREA CODE.":PRINT "IF ENTERING STATE"," USE 2 LETTER":PRINT "POSTAL ABBREVIATION.":PRINT "IF ENTERING AREA CODE"," ENTER 3 DIGITS.":RESUME 3
19 BEEP:PRINT "ERROR"ERR"IN LINE"ERL".":PRINT "PLEASE TRY AGAIN":RESUME 3
100 CLS: ON ERROR GOTO 18
110 PRINT "AREACD.100"
120 PRINT "by Don Zeikel [CIS 75775","1430]"
130 PRINT "Copyright 1988, all rights reserved."
140 PRINT "ported to the Portfolio"
150 PRINT "by John Feagans"
160 PRINT "in the public domain.  Not for sale"
170 A$=INKEY$ : IF A$="" THEN 170
180 CLS : IF ASC(A$)<>27 THEN return
if isrun then run "menu" else end