Endings 177
180 REM DATA NAME OF PLACE AND ITS LENG TH
190 DATA "AACHEN",6,"ABBEVILLE",9,"ACAPU LCO",8,"ASIA",4,"AUSTRALIA",9,"AMERICA", 7,"ANTARCTICA",10,"AMADI",5,"ARDLUI",6," AVON",4,"AYR",3,"ATLANTIC",8,"ARLES",5," ANO",4,"BOLIVIA",7,"BALI",4,"BOTSWANA",8 200 DATA"BELIZE" ,6, "BELGIUM" ,7, "BULGARIA ",8,"BURY",4,"BAYEUX",6,"BRAZIL",6,"BIAR RITZ",8,"BIU",3,"CAIRO",5,"CASPIAN",7,"C HAD",4,"CHLLE",5,"LAS VEGAS",9,"CAMBRIDG E",9,"SWANbEA",7,"VICTORIA",8,"WEMBLEY", 7,"WUHAN",5
210 DATA "WHITCHURCH",9,"TOLEDO",6,"VERS AILLES",10,"LONDON",6,"YORK",4,"ZAIRE",5 ,"YOKOHAMA",8,"OSLO",4,"NYANGA",6,"QUITO ",5,"PORTSMOUTH",10,"SCARBOROUGH",11,"SW ITZERLAND",11,"SKOPJE",5,"NALUT",5,"DATA R",5,"RUTENG",6,"RAPID CITY", 10
220 DATA "SPAIN",5,"PEKING",6,"TOKYO",5, "RESOLUTION",10,"OLDHAM",6,"IONA",4,"ICE LAND",7,"JAMESTOWN",9,"JOINVILLE",9,"ISC HIA",6,"JOMBANG",7,"KYOTO",5,"NAGASAKI", 8,"LUNE",4,"MOBILE",6,"MONROVIA",8,"LANG ON",6,"KHARTOUM",8,"ZZZ",3
230 WINDOW #0,5,36,1,25:PAPER #0,0:PEN # 0,1:CLS #0
240 G$(N)="	":C(N)=0
250 LOCATE 9,1:PRINT CHR$(24)"ENDIN G S ";CHR$(24)
GOSUB 1180
260 LOCATE 1,20:PRINT CHR$(24)" DO YOU W
ANT TO GO LOCATE	(YIN) ";CHR$(24)
270 A$=INKEY$:IF A$="" THEN 270 ELSE A$= UPPER$(A$)
280 P$=""
290 IF A$="N" THEN 320
300 IF A$="Y" THEN 850
310 GOTO 270
320 REM COMPUTER
330 B5=0:B$=""
340 IF P$<>"" THEN B$=MID$(P$,LEN(P$),1) 350 IF B$="" THEN 430
360 IF RND>0.1 THEN 490