1 DATA -303,10267
2 DATA 61,-3588
3 DATA -61,3389
4 DATA 1271,-299
5 DATA 7928,9868
6 DATA 2360,2392
7 DATA 1997,3040
8 DATA 1452,3140
9 DATA 424,-5134
10 DATA 1089,17344
11 DATA -605,1047
12 DATA 847,1495
13 DATA -1997,-1545
14 DATA 182,847
15 DATA 1271,-5333
16 DATA 847,-5732
17 DATA 1574,7127
18 DATA 0,0
90 N=1
99 LPRINT "M1200,1600":LPRINT "PNorth":LPRINT "M1200,1600":LPRINT "D1200,800"
100 LPRINT "M1200,800":LPRINT "S8"
101 LPRINT "N1":LPRINT "S4"
102 LPRINT "M1200,800"
110 READ T,G
115 IF T=0 THEN 300
120 X=INT(T/15.69+800):Y=INT(G/15.69+1200)    
130 LPRINT "M";Y;",";X:LPRINT "N5":LPRINT "P";N
135 N=N+1
140 GOTO 102
300 LPRINT "H"
