8-Bit Software Online Conversion
:2.$.WORLDM - Listing
50PRINTTAB(22);"TECHNICAL SOFTWARE":C
LS:h%=1279:PROCm
60CHAIN"WRLDLOC"
70DEFFNx(A%)=4*(A%DIV180)
80DEFFNy(A%)=4*(A%MOD180)
90DEFFNa(B$):LOCALA%,B%:FORB%=1TO3:A%
=80*A%+ASC(MID$(B$,B%,1))-47:NEXT:=A%
100DEFPROCm:CLG:GCOL0,1:MOVE0,388:DRAW
h%,388:MOVE0,991:DRAWh%,991:RESTORE130:R
EPEAT:READA$
110FORN%=1TO5:B$=MID$(A$,3*N%-2,3):A%=
FNa(B$):W%=A%DIV60000:A%=A%MOD60000:X%=F
Nx(A%):Y%=FNy(A%)+296:IFW%=1MOVEX%,Y%ELS
EPLOT85,X%,Y%
120NEXT:UNTILA%=0:ENDPROC
130DATA8QD8Q>/@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,1Bh1Kl1
Tl1Tp:il,:SE1<517a1@a:yS,;4g1X÷1oc1qn2/K
,2/F2:];=c;MK1vQ,1Y31qn1k/;?l1vA
140DATA;FS2/B:£a:r½1T`,:mn:tZ1VR:WB:5X
,0tu1=½:W6:dc1FZ,:]o:m[1S¼:mU;40,1XS1w÷1
V72@e1Sm,2E71½c2Kp1gr2bE,2[O2RF1gr2G/1eU
,29M;3U;Pb1eU24r,1eL1t÷1bv1kv1i`,1r`9qu9
zu0Q]9¾7,:C`0½q0÷]0l½;Z|,;je2AW2^k1¾K30a
,1kP32¼2/g:£t:£q,1W81dY1¼/1[V1q|
150DATA;X½;Qj2?22>÷<J0,<Yl30T3=¾:kP:tP
,1aa1ab;/^;:r1j£,<b½<g53D^3I7<y4,<p93M[3
R8<k£<p8,3Mc3R93TO=GL=YN,3u24DR3nN4KH3r¾
,4Xv3gp4Vm3j<4`w,3j<4r03^z4]k3^z,4N93HQ4
GT34E3÷k,34O3j[3DD3j^3O½,=Lo=Lk4GX4GT<d£
,<m]3Fg3X`3T?3`S,3TB3MY3`S3MY3hT
160DATA3[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÷4
rp4rW4rT,4rp4y]4vt>@T4m|,>@4>I<4bF4me4W9
,4bX4GT4GX>2l4Yc,4L94<O4<M=s?>2÷
170DATA4[w4k£4bX4tT4k£,4vt>C/4tg=¾W=y2
,4d04`a4jx=^i=cA,4B÷4GV>G^>BT5D`,5?Q5KK5
Ja5TL5Q>,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
180DATA@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
190DATA6[S6]g?k9?i26OM,6VI6ew6ab6sL6lx
,6z;6uv6÷]6÷s7@],7:57GN7Ii@:x@Cv,6x<@Ls@
X575e@U[,@½G77W7</A2SA=l,7k?7tDAFp7r88M/