0 'WORLD.BA - by Mel Evans 14-Sep-85 1 'Club 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 CLEAR256,57927:DEFINTA,I,J,N,X,Y:DIM N(3):I=0:J=0:X=43:Y=28:XS=43:YS=28:B$=SPACE$(15):B=63792:S=62920:PI=2*ATN(1E30):DPR=180/PI:KX=(360/128)/DPR:XZ=-5:' M-100 time-z ne (Eastern=-5, Central=-6, ...) 3 FORI=0TO33:READJ:POKES+I,J:NEXTI:CLS:GOTO34 4 IFPEEK(B)AND1THENPSET(X,Y):PSET(XS,YS)ELSEPRESET(X,Y):PRESET(XS,YS) 5 A$=INKEY$:IFA$=""THEN4 6 A=ASC(A$):IFA<28ORA>31THEN12 7 PRESET(X,Y):IFA=28ANDX<127THENX=X+1 8 IFA=29ANDX>0THENX=X-1 9 IFA=30ANDY>0THENY=Y-1 10 IFA=31ANDY<63THENY=Y+1 11 PSET(X,Y):PRINT@225,B$;:PRINT@264,B$;:PRINT@304,B$;:GOTO4 12 A=INSTR("LlMmSsDdRr",A$):ONAGOTO13,13,27,27,28,28,29,29,34,34:GOTO4 13 Y$="N":IFY>38THENY$="S" 14 X$="W":IFX>59ANDX<124THENX$="E" 15 YW=Y:GOSUB22:I=INT(ABS(LW)*DPR+.5):XW=X:GOSUB25:J=INT(ABS(GW)*DPR+.5):PRINT@225,Y$;I;" ";X$;J;" ";:JZ=0:IFJ>7THENJZ=-2+(J-7.5)/15:' Print local day/time 16 IFX$="W"THENJZ=-JZ 17 T$=TIME$:XD=PEEK(63787):XH=VAL(LEFT$(T$,2))+JZ-XZ:IFXH>23THENXH=XH-24:XD=XD+1:IFXD=7THENXD=0 18 IFXH<0THENXH=XH+24:XD=XD-1:IFXD=-1THENXD=6 19 IF I>63ANDJ>169ANDX$="W"THENXD=XD+1:IFXD=7THENXD=0 20 AD=6520+3*XD:Z$=CHR$(PEEK(AD))+CHR$(PEEK(AD+1))+CHR$(PEEK(AD+2)):H$=RIGHT$(STR$(XH),2):IFXH<10THENH$="0"+RIGHT$(H$,1) 21 PRINT@264," "+Z$+" "+H$+RIGHT$(T$,6)+" ";:GOTO4 22 LW=ABS(YW-38.5):' Latitude 23 LW=2*ATN(EXP(LW/19.8))-PI/2:IFYW>38.5THENLW=-LW 24 RETURN 25 GW=KX*(XW-59.5):IFXW>123THENGW=GW-2*PI:' Longitude 26 RETURN 27 CLEAR256,57967:MENU:' Exit 28 PRESET(XS,YS):XS=X:YS=Y:GOTO13:' Save Point 29 YW=YS:GOSUB22:L1=LW:YW=Y:GOSUB22:' Distance 30 L2=LW:XW=XS:GOSUB25:G1=GW:XW=X:GOSUB25:DG=G1-GW:C=SIN(L1)*SIN(L2)+COS(L1)*COS(L2)*COS(DG):IF C=0 OR C=-1 THEN C=C+(1E-9) 31 D=ATN(SQR(1-C*C)/C):IFD<0THEND=PI+D 32 D=INT(D*DPR*60+.5):PRINT@304,"Dist:";D;"nmi";:I$=INPUT$(1):IFI$=CHR$(32)THEN33ELSE4 33 PRINT@309,INT(D*1.151+.5);"smi";:GOTO4 34 CLS:RESTORE37:' Draw Map 35 FORI=0TO127:FORJ=0TO3:READN(J):NEXTJ:CALLS,I,VARPTR(N(0)):NEXTI:PRINT@28,CHR$(155)+" "+CHR$(154)+" "+CHR$(152)+" "+CHR$(153):PRINT@64,"ocate ave":PRINT@107,"istance":PRINT@144,"edraw enu":GOTO4:' "Plot Column" M/L Sub 36 DATA 87,30,63,6,8,126,229,14,8,7,210,222,245,245,197,213,205,76,116,209:DATA 193,241,29,13,194,209,245,225,35,5,194,205,245,201,77,66,69,201 37 ' "World" Data 38 DATA 0,0,256,-32768,0,0,0,-24563,0,0,64,22674,0,8256,128,2128:DATA 0,0,128,1072,0,0,0,2120,0,0,0,2064,0,0,0,2056:DATA 0,16,0,4104,0,32,0,4104,0,2,0,4112,0,0,0,8224:DATA 0,128,0,4288,0,0,0,4224,0,0,768,2048,0,0,1024,4096 39 DATA 0,0,-2047,-27903,0,0,2,-28416,0,0,4,9736,0,0,24,17932:DATA 0,0,56,23300,256,0,64,-28144,0,0,192,27648,0,0,128,18688:DATA 0,256,256,768,0,256,624,30736,0,256,136,18732,0,-32000,4104,12355 40 DATA 0,768,2184,-23680,0,1536,26640,25730,0,3072,12568,31107,2048,-30719,17060,2560:DATA 0,30726,8579,2813,31,2072,-32704,-2555,-992,1296,16384,2058,860,2272,9216,-26606 41 DATA -32765,2304,6656,24615,16384,2048,8708,-16272,8208,4608,512,16512,14336,4096,3840,128:DATA 2048,8192,2048,2304,1024,24576,0,25088,768,-32768,0,-25593,0,-32640,0,8:DATA 0,-32704,0,12,0,113,0,3,0,13,0,-32768,32,2,0,16384 42 DATA 0,0,0,8192,0,0,0,4096,128,0,0,5376,1,256,0,-30208:DATA 0,0,0,1025,0,0,16,-32766,0,1792,192,-32767,8192,2048,32,0:DATA 0,4096,16,0,0,4096,-16115,1156,0,4096,16387,0,0,4096,-17659,96 43 DATA 0,2048,19202,128,0,4096,9218,0,0,4096,-24062,28,0,-8192,8450,210:DATA 32,57,20741,-32735,256,710,-24311,16492,3584,0,16648,12435,2048,0,-32763,-28544:DATA 2048,0,16392,18510,1024,0,24584,-30663,1024,-32767,-28663,2068,768,-32766,-30711,4116 44 DATA 0,236,22585,-12279,0,19,18679,24582,0,-31988,12480,16385,0,18176,0,-32768:DATA 0,10976,0,24576,0,6704,28688,16384,0,2304,-12239,-24576,0,257,16480,18176:DATA 0,64,224,8192,0,0,8224,10240,0,0,12320,4096,0,0,32,4096 45 DATA 8,0,64,15360,0,9217,128,17152,0,1792,0,31744,0,3072,6144,5376:DATA 0,1536,2048,25600,0,6400,0,1280,0,0,128,768,0,0,64,0:DATA 0,0,64,0,0,0,128,0,0,16640,0,0,0,-29184,0,0:DATA 0,13313,0,0,0,18690,1152,0,0,1540,832,768,0,-32763,128,256 46 DATA 768,-32763,64,0,7168,16512,66,768,4096,-32640,45,512,4096,1603,-32592,512:DATA 2048,-18392,1,512,2048,34,7,1536,2048,21,-32752,2048,4096,8211,-32760,3072:DATA 8192,51,16644,2048,8192,69,15876,2176,16384,54,-32766,1344,16384,1062,-8704,1056 47 DATA 16385,8268,0,1056,12544,138,16384,3104,3584,8202,128,2112,16,4,4096,2080:DATA 0,8200,1792,6288,0,0,256,8400,4,4256,0,8224,4,0,256,8224:DATA 2,8192,0,16416,-32767,0,1024,8208,-32768,1,0,8204,0,64,1024,8202 48 DATA 1024,0,528,17409,0,64,0,16385,0,33,544,-32768,0,0,0,66