to A1 ht setsplit 2 cs ct type [YOUR NAME PLEASE?..:] make "NAME rq setscrunch 0.468 type word char 27 "0 make "PX 0 make "nr 1 ct pu make "FL 990 loadpic "EUROPA wrap make "NAMES shuffle [[Amsterdam [-155 30]] [Copenhagn [-103 65]] [Oslo [-110 128]] [Stockholm [-64 110]] [Helsinki [-18 130]] [London [-200 25]] [Moscow [90 90]] [Warsaw [-20 30]] [Prague [-80 10]] [Bern [-140 -36]] [Bonn [-140 11]] [Berlin [-90 30]] [Paris [-180 -13]] [Madrid [-265 -100]] [Rome [-80 -110]] [Athens [25 -140]] [Vienna [-72 -27]] [Dublin [-242 66]] [Budapest [-56 -32]] [Brussels [-155 15]] [Belgrad [-23 -84]] [Lisbon [-308 -116]]] setcursor [47 1] (type [PILOT:] :NAME) FL setcursor [74 2] type [* AIRPORTS :] repeat 22 [CN setcursor :SC type :NS NR] er "A1 end