50 PRINTTAB(22);"TECHNICAL SOFTWARE":CLS:h%=1279:PROCm
   60 CHAIN"WRLDLOC"
   70 DEFFNx(A%)=4*(A%DIV180)
   80 DEFFNy(A%)=4*(A%MOD180)
   90 DEFFNa(B$):LOCALA%,B%:FORB%=1TO3:A%=80*A%+ASC(MID$(B$,B%,1))-47:NEXT:=A%
  100 DEFPROCm:CLG:GCOL0,1:MOVE0,388:DRAWh%,388:MOVE0,991:DRAWh%,991:RESTORE130:REPEAT:READA$
  110 FORN%=1TO5:B$=MID$(A$,3*N%-2,3):A%=FNa(B$):W%=A%DIV60000:A%=A%MOD60000:X%=FNx(A%):Y%=FNy(A%)+296:IFW%=1MOVEX%,Y%ELSEPLOT85,X%,Y%
  120 NEXT:UNTILA%=0:ENDPROC
  130 DATA8QD8Q>/@j8|18{{,/K}8l494}/kO/K},8|58lG/`B8l</kO,8lG/b]/kO08m0=8,0jF0Ln0~X1Ba9jn,0Ld9s\1Ba1d<1vA,:9w9s\0\K:5X1I:,19B1TD;/q1I:1d<,;;<1fS:LX:We15E,1Bh1Kl1Tl1Tp:il,:SE1<517a1@a:yS,;4g1X~1oc1qn2/K,2/F2:];=c;MK1vQ,1Y31qn1k/;?l1vA
  140 DATA;FS2/B:`a:r\1T_,:mn:tZ1VR:WB:5X,0tu1=\:W6:dc1FZ,:]o:m[1S{:mU;40,1XS1w~1V72@e1Sm,2E71\c2Kp1gr2bE,2[O2RF1gr2G/1eU,29M;3U;Pb1eU24r,1eL1t~1bv1kv1i_,1r_9qu9zu0Q]9}7,:C_0\q0~]0l\;Z|,;je2AW2^k1}K30a,1kP32{2/g:`t:`q,1W81dY1{/1[V1q|
  150 DATA;X\;Qj2?22>~<J0,<Yl30T3=}:kP:tP,1aa1ab;/^;:r1j`,<b\<g53D^3I7<y4,<p93M[3R8<k`<p8,3Mc3R93TO=GL=YN,3u24DR3nN4KH3r},4Xv3gp4Vm3j<4_w,3j<4r03^z4]k3^z,4N93HQ4GT34E3~k,34O3j[3DD3j^3O\,=Lo=Lk4GX4GT<d`,<m]3Fg3X_3T?3_S,3TB3MY3_S3MY3hT
  160 DATA3[23aq3uw3fJ3zO,3fJ=?U3jq3~y4/5,45d4<e4ET4:^4JC,4Wm4UV=4N=/|3m=,3qi3ss3|y3qi3zh,4:^4<k=Qg4>y=4I,=4K3jt3jq=Ct=Cw,3zO=Lx=QL45d=ZP,4<[=hC=cT4UR4U?,4eF4d~4rp4rW4rT,4rp4y]4vt>@T4m|,>@4>I<4bF4me4W9,4bX4GT4GX>2l4Yc,4L94<O4<M=s?>2~
  170 DATA4[w4k`4bX4tT4k`,4vt>C/4tg=}W=y2,4d04_a4jx=^i=cA,4B~4GV>G^>BT5D_,5?Q5KK5Ja5TL5Q>,5]L5ZG5h`5gw5oL,5nd5su5uJ5za5yo,6<a6;u5|16@E69T,?J1?LE5~C5|/67<,678?Yu?Zb6RP6Pw,6PO6Yx6bO6Yx6fw,6kq6fw6kq6t^76q,76c7]57V=7lp7|R,7|X@0H@776bO6dc
  180 DATA@B^6vg7/o6kq@k7,@oZ7V=7_=7lp?nm,?pR6[Y@9q@2c6t^,@9I@9E74;7/^71z,@X{76U@TW@Vm76^,>u|>uy5Z>?C<?Ix,62[69I69D?^0?[k,6MV6MU?mo?ta6D\,6R?6BM?vo?vs6Xq,6au?vs?}[6_Z?{S,@2C6hg@/z6_g?w7,?{_6Y26][6_l6b0,@Sk@QT6xC@a@7/5,6xC6q_6m7?w=?yP
  190 DATA6[S6]g?k9?i26OM,6VI6ew6ab6sL6lx,6z;6uv6~]6~s7@],7:57GN7Ii@:x@Cv,6x<@Ls@X575e@U[,@\G77W7</A2SA=l,7k?7tDAFp7r88M/