0 'NAVLOC.BA Unknown 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 CLS:H=114:V=31 3 GOSUB500:REM DRAW LINE STATEMENTS 4 READH1:IFH1=999THEN5:ELSEREADV1:PSET(H1,V1):GOTO4: 5 PRINT@27,"* NAVLOC *":PRINT@65," ":PRINT@105,"ARROWS TO MOVE":PRINT@148,"ocate":PRINT@188,"edraw":PRINT@229,"nd" 6 PSET(H,V) 7 A$=INKEY$:IFA$=CHR$(28)ANDH<130THENPRESET(H,V):H=H+1:PRINT@280,SPACE$(38);:BL=0:BG=0 8 IFA$=CHR$(29)ANDH>0THENPRESET(H,V):H=H-1:PRINT@280,SPACE$(38);:BL=0:BG=0 9 IFA$=CHR$(30)ANDV>0THENPRESET(H,V):V=V-1:PRINT@280,SPACE$(38);:BL=0:BG=0 10 IFA$=CHR$(31)ANDV<52THENPRESET(H,V):V=V+1:PRINT@280,SPACE$(38);:BL=0:BG=0 11 IFA$="E"ORA$="e"THENMENU 12 IFA$="L"ORA$="1"THEN16 13 IFA$="R"ORA$="r"THENRESTORE:CLS:GOTO3 14 IFBL<10THENBL=BL+1:GOTO6 15 IFBL=10THENBG=BG+1:IFBG<10THENPRESET(H,V):GOTO7:ELSEBG=0:BL=0:GOTO6 16 HA=130-(.5*H):HB=FIX(HA):M1=FIX((HA-HB)*60):LA$=STR$(HB)+" DEG,"+STR$(M1)+"'":PRINT@280,"W/LONG:";LA$;:VA=50-(.5*V):VB=FIX(VA):M2=FIX((VA-VB)*60):LO$=STR$(VB)+" DEG,"+STR$(M2)+"'":PRINT"N/LAT:"LO$;:GOTO6 500 REM LINE STATEMENTS 501 LINE(13,1)-(71,1):LINE(11,2)-(11,22):LINE(12,9)-(24,9):LINE(12,18)-(37,18):LINE(20,18)-(20,23):LINE(25,2)-(25,17):LINE(37,11)-(50,11):LINE(37,12)-(37,17):LINE(51,2)-(51,18):LINE(37,19)-(54,19):LINE(32,19)-(32,27):LINE(31,28)-(31,35) 502 LINE(25,36)-(31,36):LINE(33,26)-(70,26):LINE(41,20)-(41,37):LINE(32,37)-(36,37):LINE(37,38)-(43,38):LINE(43,38)-(46,37):LINE(47,36)-(52,36):LINE(52,27)-(52,35):LINE(53,28)-(60,28):LINE(60,29)-(60,32):LINE(60,33)-(70,33):LINE(54,20)-(54,25) 503 LINE(55,20)-(70,20):LINE(52,15)-(69,15):LINE(52,9)-(67,9):LINE(68,2)-(68,14):LINE(69,12)-(77,12):LINE(79,14)-(86,14):LINE(87,12)-(87,23):LINE(81,7)-(94,7):LINE(71,18)-(77,18):LINE(71,19)-(71,39):LINE(72,27)-(107,27):LINE(72,34)-(77,34) 504 LINE(70,40)-(80,40):LINE(80,39)-(90,39):LINE(78,32)-(78,38):LINE(84,31)-(84,38):LINE(86,38)-(97,38):LINE(79,30)-(100,30):LINE(90,31)-(90,37):LINE(98,36)-(98,46):LINE(86,24)-(90,24):LINE(91,23)-(99,23):LINE(75,7)-(75,10):LINE(88,16)-(101,16) 505 LINE(92,17)-(92,22):LINE(98,11)-(98,15):LINE(101,20)-(113,20):LINE(108,25)-(108,30):LINE(102,15)-(105,15):LINE(106,16)-(110,16):LINE(113,19)-(118,19):LINE(114,12)-(114,18):LINE(112,11)-(118,11):LINE(116,16)-(119,16):LINE(118,12)-(118,15) 506 LINE(126,4)-(126,8):LINE(94,42)-(94,45):RETURN:DATA11,2,12,2,13,2,12,23,13,24,13,25,14,26,14,27,15,28,16,29,17,30,17,31,18,32,19,33,20,33,21,34,22,35,23,36,24,37,21,24,22,25,23,25,24,26,25,27,26,27 507 DATA27,28,28,28,29,29,30,30,28,2,28,3,28,4,28,5,29,6,30,6,31,7,32,7,33,8,33,9,34,10,34,11,35,12,36,12,47,38,48,38,49,39,50,40,51,40,52,41,53,41 508 DATA54,40,55,41,56,41,57,42,58,42,59,43,60,44,61,45,62,46,63,47,64,47,64,46,64,45,65,44,66,43,67,42,68,41,69,41,79,38,80,38,81,38,79,31,80,29,81,28,97,29 509 DATA98,28,97,26,98,25,99,24,99,22,100,21,81,26,82,25,83,25,84,24,80,25,79,24,79,23,78,22,77,21,77,20,78,17,77,13,76,11,70,17,70,16,72,2,73,3,74,3,75,4 510 DATA76,4,77,4,78,5,79,5,80,6,76,6,77,5,85,10,84,10,83,9,82,9,81,9,80,9,79,8,87,7,77,7,76,7,95,8,96,8,97,9,97,10,101,17,101,18,101,19,108,21 511 DATA107,22,106,23,105,24,104,25,103,25,102,25,102,26,101,31,102,31,103,32,104,32,105,32,106,31,107,31,102,33,101,33,100,34,99,34,98,34,98,35,99,47,99,48,99,49,98,50,94,47 512 DATA94,46,93,41,92,40,91,40,98,33,97,32,96,31,96,30,109,24,110,23,111,22,112,21,119,18,119,17,120,15,121,14,122,13,123,12,124,11,125,11,126,10,127,10,127,9,125,4,124,3 513 DATA97,49,96,49,95,48,120,17,123,4,122,5,122,6,121,7,120,8,120,9,119,10,111,12,110,12,109,12,108,13,107,14,106,14,111,17,112,18,85,25,77,19,78,16,78,15,78,14,77,13:DATA76,13,999