OSCAR-TEN

Developer(s): Frank Bouldin (W5GAA)
Date: 198x
Type: Program
Platform(s): TS 2068
Tags: Ham Radio
Program for tracking AMSAT-OSCAR 10 satellite.
Content

Appears On

Fort Worth TS2068 Club Library Tape
This tape is a compilation of programs from user group members (Robert Burton, David Baulch, Frank Bouldin, Chuck Dawson, Ryan
Image Gallery

Source Code
CLS : GO SUB VAL "8700": POKE VAL "23658",VAL "8": GO SUB VAL "4300"
CLS : POKE VAL "23609",VAL "100": GO SUB VAL "4010": BORDER VAL "5": PAPER VAL "7": INK VAL "0": LET ink=VAL "0": LET MN=VAL "1": LET DM=VAL "0": GO SUB VAL "9112": LET T0=T0+DN: LET tc=VAL "0": LET nt=VAL "0": LET FX=VAL "0": GO TO VAL "1200"
LET TT1=YN: LET TT2=MN: IF TT2>VAL "2.5" THEN GO TO VAL "100"
LET TT1=TT1-1: LET TT2=TT2+VAL "12"
LET DN=INT (365.25*(TT1-80))-INT ((1900+TT1)/100)+INT ((1900+TT1)/400)-VAL "16"
LET DN=DN+DM+30*TT2+INT (.6*TT2-.3): RETURN 
IF CH2=VAL "3" THEN GO SUB VAL "4650": GO SUB VAL "4605"
LET DIF=ABS (W5-LO): IF DIF>VAL "180" THEN LET DIF=360-DIF
LET DZ1=((SIN (ALT*P0))*(SIN (L5*P0))+(COS (ALT*P0))*(COS (L5*P0))*(COS (DIF*P0)))
LET DZ1=57.3*(-ATN (DZ1/SQR (-DZ1*DZ1+1))+P1/2)
IF CH2=VAL "1" THEN GO TO VAL "210"
IF E9>=VAL "0" AND DZ>=DZ1 THEN PRINT PAPER VAL "4"; INK VAL "7";AT N,VAL "1";" In ";P$;" "
IF E9<VAL "0" AND DZ>=DZ1 THEN PRINT PAPER VAL "6";AT N,VAL "1";" .. ";P$;" "
IF DZ<DZ1 THEN PRINT PAPER VAL "2"; INK VAL "7";AT N,VAL "1";" No ";P$;" "
PRINT AT VAL "21",VAL "0";" "; INK VAL "1"; INVERSE VAL "1";AT n,VAL "0";">"; INVERSE VAL "0";AT n-1,VAL "0";" ": GO SUB VAL "4020": RETURN 
LET SLO=46-INT (LO/12+.5): IF LO<180 THEN LET SLO=15-INT (LO/12-.5)
LET SLA=INT (12.5-ALT/8): IF DZ>DZ1 THEN PRINT PAPER VAL "4"; INK VAL "7";AT SLA,SLO;"*"
RETURN 
LET ALT=VAL "37.62": LET LO=VAL "122.39": LET N=VAL "4": LET P$="S Francisco": GO SUB VAL "120"
LET ALT=VAL "40.66": LET LO=VAL "73.79": LET N=VAL "5": LET P$="New York NY": GO SUB VAL "120"
LET ALT=VAL "51.47": LET LO=VAL "00.46": LET N=VAL "6": LET P$="London   UK": GO SUB VAL "120"
LET ALT=VAL "41.86": LET LO=VAL "347.44": LET n=VAL "7": LET P$="Rome  Italy": GO SUB VAL "120"
LET ALT=VAL "52.52": LET LO=VAL "346.64": LET N=VAL "8": LET P$="Berlin  Ger": GO SUB VAL "120"
LET ALT=VAL "55.75": LET LO=VAL "322.43": LET n=VAL "9": LET P$="Moscow USSR": GO SUB VAL "120"
LET ALT=VAL "64.82": LET LO=VAL "147.85": LET N=VAL "10": LET P$="Fairbanks A": GO SUB VAL "120"
LET ALT=VAL "21.32": LET LO=VAL "157.92": LET N=VAL "11": LET P$="Honolulu Hw": GO SUB VAL "120"
LET ALT=VAL "19.42": LET LO=VAL "99.17": LET n=VAL "12": LET P$="Mexico City": GO SUB VAL "120"
LET ALT=VAL "-23": LET LO=VAL "43.2": LET N=VAL "13": LET P$="Rio de J'ro": GO SUB VAL "120"
LET ALT=VAL "-34.35": LET LO=VAL "341.51": LET N=VAL "14": LET P$="Capetown SA": GO SUB VAL "120"
LET ALT=VAL "1.29": LET LO=VAL "256.15": LET N=VAL "15": LET P$="Singapore  ": GO SUB VAL "120"
LET ALT=VAL "22.33": LET LO=VAL "245.81": LET N=VAL "16": LET P$="Hong Kong  ": GO SUB VAL "120"
LET ALT=VAL "35.54": LET LO=VAL "220.23": LET N=VAL "17": LET P$="Tokyo Japan": GO SUB VAL "120"
LET ALT=VAL "43.18": LET LO=VAL "228.2": LET N=VAL "18": LET P$="Vladivostok": GO SUB VAL "120"
LET ALT=VAL "-41.28": LET LO=VAL "185.23": LET N=VAL "19": LET P$="Wellington ": GO SUB VAL "120"
LET ALT=VAL "-33.95": LET LO=VAL "208.84": LET N=VAL "20": LET P$="Sydney  Aus": GO SUB VAL "120"
LET ALT=VAL "-31.95": LET LO=VAL "244.17": LET N=VAL "21": LET P$="Perth   Aus": GO SUB VAL "120"
IF CH2=VAL "3" THEN GO SUB VAL "4005": GO SUB VAL "4700": RETURN 
RETURN 
LET D$=STR$ (T4): IF D$=STR$ 2400 THEN LET D$=STR$ 0000
DIM E$(4): LET E$="0000": DIM T$(4): LET U=4-LEN D$: LET T$=E$(1 TO U)+D$
RETURN 
GO SUB 4015
PRINT AT VAL "4",VAL "1";"Present Operational Year=19";AT VAL "4",VAL "28";Y2;AT VAL "6",VAL "1";"Enter Month Number(1-12)= "; INK VAL "1"; FLASH VAL "1";"?"; FLASH VAL "0": INPUT MN: IF MN<VAL "1" OR MN>VAL "12" THEN GO TO VAL "1210"
PRINT AT VAL "6",VAL "27";MN;AT VAL "8",VAL "1";"Enter Day of Month(1-31)= "; INK VAL "1"; FLASH VAL "1";"?": INPUT DM: IF DM<VAL "1" OR DM>VAL "31" THEN GO TO VAL "1218"
PRINT AT VAL "8",VAL "27";DM
GO SUB VAL "80": LET nn=VAL "4": LET T1=YN-VAL "1": LET DE=INT (365.25*(T1-80))-INT (T1/100)+INT (T1/400+.75)+VAL "366"
LET T1=(DE+29218.5)/36525: LET T1=6.6460656+T1*(2400.051262+T1*2.581E-5): LET SE=T1/24-YN
PRINT INVERSE VAL "1"; INK VAL "3";AT VAL "10",VAL "5";" MAIN MENU SELECTION "
PRINT AT VAL "11",VAL 25";"---------------------"
PRINT PAPER VAL "5";AT VAL "12",VAL "1";" SELECT AND ENTER MENU NUMBER "
PRINT AT VAL "14",VAL "1";"MENU 1. Oscar-10 on World Map";AT VAL "15",VAL "1";"MENU 2. Continental Area Maps";AT VAL "16",VAL "1";"MENU 3. DX Capability Scanner";AT VAL "17",VAL "1";"MENU 4. Orbital Tracking Data"
IF INKEY$="1" THEN LET CH2=VAL "1": GO TO VAL "1400"
IF INKEY$="2" THEN LET CH2=VAL "2": LET FA=VAL "3": LET RA=VAL "0": GO TO VAL "1400"
IF INKEY$="3" THEN LET CH2=VAL "3": GO TO VAL "1400"
IF INKEY$="4" THEN LET CH2=VAL "4": GO TO VAL "1400"
GO TO VAL "1370"
PRINT PAPER VAL "5";AT VAL "19",VAL "2";" SELECTED ";CH2;" "
GO SUB VAL "4010": IF nt<>VAL "1" THEN GO SUB VAL "4200"
IF nt=VAL "1" THEN GO TO VAL "1440"
INPUT A$: IF A$<CHR$ VAL "48" OR A$>CHR$ VAL "57" THEN GO TO VAL "1435"
IF VAL A$<VAL "0" OR VAL A$>VAL "2400" OR LEN A$<>VAL "4" THEN GO TO VAL "1435"
PRINT PAPER VAL "5";AT VAL "19",VAL "18";" ";A$;" UTC ": PAUSE VAL "180"
IF CH2=VAL "1" OR CH2=VAL "2" THEN GO TO VAL "1640"
CLS : GO SUB VAL "4250": PRINT INVERSE VAL "1"; PAPER VAL "0"; INK VAL "6";AT VAL "8",VAL "2";" SELECT TIME INCREMENT MODE ": PRINT INK VAL "0";"  ----------------------------";''"   15 Minute Steps?.......A";''"    5 Minute Steps?.......B";''"    1 Minute Steps?.......C": GO SUB VAL "4400"
IF INKEY$="A" THEN LET t5=VAL "1/96": LET t6=VAL ".18": LET t7=VAL "15": GO TO VAL "1640"
IF INKEY$="B" THEN LET t5=VAL "1/288": LET t6=VAL ".06": LET t7=VAL "5": GO TO VAL "1640"
IF INKEY$="C" THEN LET t5=VAL "1/1440": LET t6=VAL ".012": LET t7=VAL "1": GO TO VAL "1640"
GO TO VAL "1510"
GO SUB VAL "4010": CLS : IF CH2=VAL "1" THEN GO SUB VAL "4500"
IF CH2=VAL "2" THEN GO SUB VAL "6800": GO SUB VAL "4010": CLS : LET CH5=CH4: GO SUB VAL "4500"
GO SUB VAL "4250": LET T1=VAL A$: LET G0=VAL "7.5369793E13"
LET G1=VAL "1.0027379093"
LET P1=VAL "3.14159265": LET P2=VAL "2"*P1: LET P0=VAL "P1/180"
LET T2=(INT (T1/100))/24+(T1-(INT (T1/100))*100)/(60*24)+DN
IF CH2=VAL "2" THEN LET T2=VAL "T2-1/96"
LET T=VAL "T2": LET R0=VAL "6378.16": LET F=VAL "1/298.25"
IF N0>VAL ".1" THEN LET A0=((G0/(N0^2))^(1/3))
IF N0<=.1 THEN LET N0=SQR (G0/(A0^3))
LET E2=1-E0^2: LET E1=VAL "SQR (E2)"
IF CH2<>VAL "2" THEN LET FA=VAL "0"
LET Q0=VAL "M0/360+K0"
IF CH2=VAL "1" OR CH2=VAL "2" THEN GO TO VAL "2010"
LET pp=VAL "0": IF CH2=VAL "4" THEN GO SUB VAL "4070": PRINT PAPER VAL "4"; INK VAL "7";TAB VAL "0";"HEIGHT";TAB VAL "7";"MA";TAB VAL "10";"LAT";TAB VAL "14";"LON";TAB VAL "17";" UTC";TAB VAL "22";"TM";TAB VAL "25";"AZ";TAB VAL "29";"EL "
IF CH2=VAL "4" THEN GO SUB VAL "4020": GO TO VAL "2010"
GO SUB VAL "4070": PRINT INVERSE VAL "1"; PAPER VAL "7"; INK VAL "4";AT VAL "2 ",VAL "0";"                  UTC ";TAB VAL "22";"TM";TAB VAL "25";"AZ";TAB VAL "29";"EL ": PRINT TAB VAL "18";: GO SUB VAL "4020"
LET K2=VAL "9.95"*((R0/A0)^3.5)/(E2^2)
LET S1=VAL "SIN (I0*P0)": LET C1=VAL "COS (I0*P0)"
LET O=O0-(T-T0)*K2*C1: LET S0=SIN (O*P0): LET C0=COS (O*P0)
LET W=W0+(T-T0)*K2*(2.5*(C1^2)-.5): LET S2=SIN (W*P0): LET C2=COS (W*P0): DIM C(3,2)
LET C(1,1)=(C2*C0)-(S2*S0*C1)
LET C(1,2)=-(S2*C0)-(C2*S0*C1)
LET C(2,1)=(C2*S0)+(S2*C0*C1)
LET C(2,2)=-(S2*S0)+(C2*C0*C1)
LET C(3,1)=(S2*S1): LET C(3,2)=(C2*S1)
LET Q=N0*(T-T0)+Q0: LET K=INT Q
LET M9=INT ((Q-K)*256): LET M=(Q-K)*P2
GO SUB VAL "4650": LET E=M+E0*SIN M+.5*(E0^2)*SIN (2*M)
LET S3=SIN E: LET C3=COS E: LET R3=VAL "1-E0*C3": LET M1=VAL "E-E0*S3": LET M5=M1-M
IF ABS (M5)<1E-6 THEN GO TO VAL "2410"
LET E=E-M5/R3: GO TO VAL "2310"
LET X0=A0*(C3-E0)
LET Y0=A0*E1*S3: LET R=A0*R3
LET X1=X0*C(1,1)+Y0*C(1,2)
LET Y1=X0*C(2,1)+Y0*C(2,2)
LET Z1=X0*C(3,1)+Y0*C(3,2)
LET G7=(T-DE)*G1+SE
LET G7=(G7-(INT G7))*P2
LET S7=-SIN G7: LET C7=COS G7
LET X=(X1*C7)-(Y1*S7)
LET Y=(X1*S7)+(Y1*C7): LET Z=Z1: LET L8=L9*P0: LET S9=SIN (L8): LET C9=COS (L8)
LET S8=SIN (-W9*P0)
GO SUB VAL "4650": LET C8=COS (W9*P0)
LET R9=R0*(1-(F/2)+(F/2)*COS (2*L8))+H9/1000
LET L8=ATN ((1-F)^2*S9/C9)
LET Z9=R9*SIN (L8)
LET X9=R9*COS (L8)*C8
LET Y9=R9*COS (L8)*S8
LET X5=(X-X9): LET Y5=(Y-Y9): LET Z5=(Z-Z9)
LET R5=SQR (X5*X5+Y5*Y5+Z5*Z5)
LET DZ=6378/R: LET DZ=57.3*(-ATN (DZ/SQR (-DZ*DZ+1))+P1/2)
LET Z8=(X5*C8*C9)+(Y5*S8*C9)+(Z5*S9)
LET X8=-(X5*C8*S9)-(Y5*S8*S9)+(Z5*C9)
LET Y8=(Y5*C8)-(X5*S8): LET S5=Z8/R5
LET C5=SQR (1-S5*S5)
GO SUB VAL "4650": LET E9=(ATN (S5/C5))/P0
LET A9=(ATN (Y8/X8))/P0: LET B5=Z/R
LET L5=(ATN (B5/(SQR (1-B5*B5))))*VAL "57.3"
LET W5=(ATN (Y/X))*VAL "57.3"
IF X<VAL "0" THEN LET W5=VAL "180"-W5
IF X>VAL "0" AND Y<VAL "0" THEN LET W5=-W5
IF X>VAL "0" AND Y>VAL "0" THEN LET W5=VAL "360"-W5
IF X=VAL "0" AND Y>=VAL "0" THEN LET W5=VAL "270"
IF X=VAL "0" AND Y<VAL "0" THEN LET W5=VAL "90"
IF X8<VAL "0" THEN LET A9=VAL "A9"+VAL "180"
IF X8>VAL "0" AND Y8<VAL "0" THEN LET A9=VAL "360"+A9
IF X8=VAL "0" AND Y8>=VAL "0" THEN LET A9=VAL "90"
GO SUB VAL "4650": IF X8=VAL "0" AND Y8<VAL "0" THEN LET A9=VAL "270"
IF CH2=VAL "1" THEN GO TO VAL "5010"
LET T4=(INT ((T-INT T)*2400+.5))/100
LET T4=INT ((100*((T4-INT T4)*.6+INT T4))+.5): GO SUB VAL "1030"
IF FA=VAL "1" THEN GO TO VAL "3460"
IF FA=VAL "3" THEN GO TO VAL "5810"
IF FA=VAL "4" THEN GO TO VAL "5880"
LET pp=pp+VAL "1": IF pp=VAL "1" THEN PRINT INVERSE VAL "1"; INK VAL "1";AT VAL "0",VAL "14";T$: PRINT : PRINT : PRINT 
IF ink=VAL "0" AND tc=VAL "0" THEN LET tc=VAL "1": GO TO VAL "3338"
IF tc=VAL "1" AND VAL T$>=VAL "0" AND VAL T$<t7 THEN LET ink=tc: LET tc=VAL "0": GO TO VAL "3338"
IF tc=VAL "0" AND VAL T$>=VAL "0" AND VAL T$<t7 THEN LET ink=tc: LET tc=VAL "1": GO TO VAL "3338"
IF pp<VAL "19" THEN GO TO VAL "3347"
GO SUB VAL "4650": IF CH2=VAL "4" AND pp=VAL "19" THEN GO SUB VAL "4065"
IF INKEY$="P" THEN GO SUB VAL "4070": COPY : LPRINT ''': GO SUB VAL "4065": GO TO VAL "3341"
IF INKEY$="C" THEN GO SUB VAL "4010": CLS : GO SUB VAL "4250": GO TO VAL "3372"
IF INKEY$="M" THEN GO TO VAL "4080"
GO TO VAL "3341"
LET inx=ink: LET inv=VAL "0": LET pc=VAL "7": LET l$=" ": IF INT E9>=VAL "0" THEN GO SUB VAL "4700": LET inv=VAL "1"
LET inr=ink: IF INT E9<VAL "0" THEN LET inr=VAL "2"
IF CH2=VAL "4" THEN PRINT INK ink;TAB VAL "0";INT R-6378;TAB VAL "6";M9;TAB VAL "10";INT L5;TAB VAL "14";INT W5;TAB VAL "18";T$;TAB VAL "  23"; INK inx; PAPER pc; INVERSE inv;l$; INK ink; PAPER VAL "7"; INVERSE VAL "0";TAB VAL "25";INT A9;TAB VAL "29"; INK inr;INT E9
IF CH2=VAL "3" AND INT E9>=0 THEN PRINT INK ink;TAB VAL "18";T$;TAB VAL "23"; INK inx; PAPER pc; INVERSE inv;l$; INK ink; PAPER VAL "7"; INVERSE VAL "0";TAB VAL "25";INT A9;TAB VAL "29";INT E9
IF CH2=VAL "3" AND INT E9<0 THEN PRINT INK ink;TAB VAL "18";T$;TAB VAL "25";INT A9; INK VAL "2";TAB VAL "29";INT E9
LET T=VAL "T+t5": IF CH2=VAL "4" THEN GO TO VAL "2040"
IF (T-T2)>t6 THEN GO TO VAL "3380"
GO TO VAL "2040"
IF VAL T$>=0 AND VAL T$<t7 AND tc=VAL "1" THEN LET tc=VAL "0"
IF VAL T$>=0 AND VAL T$<t7 AND tc=VAL "0" THEN LET tc=VAL "1"
GO TO VAL "1945"
LET FA=VAL "1": LET T=VAL "T2"
GO SUB VAL "4650": GO TO VAL "2040"
PRINT INVERSE VAL "1"; PAPER VAL "7"; INK VAL "4";AT VAL "2",VAL "0";" DX STATUS @ ";T$;" "
LET inz=VAL "2": IF INT E9>=0 THEN GO SUB VAL "4700"
PRINT AT VAL "21",VAL "17";" ";AT nn-1,VAL "17";" "; INK VAL "1"; FLASH VAL "1"; INVERSE VAL "1";AT nn,VAL "17";">": LET nn=nn+VAL "1": IF nn=VAL "22" THEN LET nn=VAL "4"
GO SUB VAL "4020": GO SUB VAL "4010": GO SUB VAL "250"
LET T=T+t5: IF (T-T2)>t6 THEN GO TO VAL "3380"
GO TO VAL "2040"
BEEP VAL ".06",VAL "28"
BEEP VAL ".06",VAL "34": RETURN 
GO SUB VAL "4400": PRINT INVERSE VAL "1"; INK VAL "1";"OSCAR-TEN POSITION/TRACKING DATA": RETURN 
PRINT AT VAL "3",VAL "0";"----------------- --------------": IF CH2=VAL "4" THEN PRINT AT VAL "3",VAL "17";"-"
RETURN 
GO SUB VAL "4010": PRINT PAPER VAL "6";AT VAL "1",VAL "0";" Print?=P "; PAPER VAL "5";" Continue?=C "; PAPER VAL "3"; INK VAL "7";" Menu?=M ": RETURN 
PRINT INVERSE VAL "1"; INK VAL "6"; PAPER VAL "0";AT VAL "1",VAL "0";" Transponder Modes: "; INK VAL "5";"B"; INK VAL "6";"  "; INK VAL "1"; PAPER VAL "7";"L"; INK VAL "6"; PAPER VAL "0";"  "; INK VAL  "3"; PAPER VAL "7";"X"; INK VAL "6"; PAPER VAL "0";"=OFF ": RETURN 
GO SUB VAL "4010": CLS : GO SUB VAL "4400": PRINT INVERSE VAL "1"; INK VAL "1";AT VAL "0",VAL "0";" DATE AND TIME ALREADY ENTERED: "; INVERSE VAL "0"; INK VAL "0";AT VAL "4",VAL "3";"> Operational Year=19";YN;AT VAL "5",VAL "3";"> Month Number=";MN;AT VAL "6",VAL "3";"> Day of the Month Nr=";DM;AT VAL "7",VAL "3";"> TIME="; PAPER VAL "4"; INK VAL "7";" ";A$;" UTC ": INK VAL "0"
PRINT PAPER VAL "6";AT VAL "21",VAL "1";" Use Same Date & Time?....Y/N "
IF INKEY$="Y" THEN LET nt=VAL "1": GO SUB VAL "4160": GO TO VAL "1306"
IF INKEY$="N" THEN GO SUB VAL "4010": LET nt=VAL "0": GO TO VAL "4120"
GO TO VAL "4090"
PRINT PAPER VAL "6";AT VAL "21",VAL "1";" Same Date but NEW Time?..Y/N "
IF INKEY$="Y" THEN GO SUB VAL "4160": GO TO VAL "1306"
IF INKEY$="N" THEN GO TO VAL "20"
GO TO VAL "4130"
GO SUB VAL "4010": PRINT AT VAL "21",VAL "1";"                              ": PLOT VAL "8",VAL "0": DRAW VAL "238",VAL "0": RETURN 
PRINT PAPER VAL "6";AT VAL "21",VAL "1";"Enter UTC Time (HHMM) to Start": RETURN 
PRINT INVERSE 1; INK VAL "1";AT VAL "0",VAL "30";"  ";AT VAL "0",VAL "0";"  OSCAR-10 AT ";A$;" ON ";MN;"/";DM;"/";YN;"  ": RETURN 
CLS : GO SUB VAL "4400": GO SUB VAL "4015": PRINT INVERSE VAL "1"; INK VAL "3"; PAPER VAL "7";AT VAL "1",VAL "1";" CUSTOMIZED DATA NOW ENTERED: "
PRINT INK VAL "1";AT VAL "3",VAL "1";"> QTH: W5GAA,"; INK VAL "0";AT VAL "3",VAL "15";"Fort Worth, TX";AT VAL "4",VAL "3";"(Lines 4310 & 9955-9975)"
PRINT INK VAL "1";AT VAL "6",VAL "1";"> ELEMENT SET 196"; INK VAL "0";AT VAL "6",VAL "18";" (8/18/85)";AT VAL "7",VAL "3";"(Lines 4320 & 9112-9915)"
PRINT INK VAL "1";AT VAL "9",VAL "1";"> TRANSPONDER"; INK VAL "0";AT VAL "9",VAL "15";"Sched (9/3/85)";AT 10,3;"(Lines 4330, 4340, 4700 &";AT VAL "11",VAL "4";"4710):"; INK VAL "1";AT VAL "13",VAL "6";"MODE     MEAN ANOMOLY";AT VAL "14",VAL "6";"----     ------------"
PRINT AT VAL "15",VAL "7";"B   On   40 thru 189";AT VAL "16",VAL "7";"L   On  190 thru 206";AT VAL "17",VAL "7";"B   On  207 thru 220";AT VAL "18",VAL "6";"Both Off 221 thru 39"
PRINT INVERSE VAL "1"; PAPER VAL "7"; INK VAL "3";;AT VAL "20",VAL "1";"To Customize, see Instructions"; INVERSE VAL "0": LET G=VAL "1": GO SUB VAL "4450": CLS : RETURN 
PLOT VAL "0",VAL "0": DRAW VAL "0",VAL "175": DRAW VAL "255",VAL "0": DRAW VAL "0",VAL "-175": DRAW VAL "-255",VAL "0": RETURN 
GO SUB VAL "4010"
PRINT PAPER VAL "6"; INK 0;AT VAL "21",VAL "1";" Print?......P "; PAPER VAL "4"; INK VAL "7";" Menu?.......M "
IF INKEY$="P" THEN GO SUB VAL "4160": COPY : LPRINT ''': GO SUB VAL "4010"
IF INKEY$="M" AND G=VAL "1" THEN LET G=VAL "0": RETURN 
IF INKEY$="M" THEN GO TO VAL "4080"
GO TO VAL "4455"
CLS : GO SUB VAL "4400": PRINT AT VAL "8",VAL "2";"Now computing----"; INK VAL "3"; FLASH VAL "1";AT VAL "11",VAL "11";" STANDBY "
PRINT AT VAL "14",VAL "11";"--for a few seconds": RETURN 
GO SUB VAL "4650": PRINT PAPER VAL "6";AT VAL "1",VAL "0";"StopScan=X"; PAPER VAL "5";"Print=P "; PAPER VAL "7";"Start=S"; PAPER VAL "3"; INK VAL "7";" Menu=M": RETURN 
IF INKEY$<>"X" THEN GO TO VAL "4637"
IF INKEY$="S" THEN GO SUB VAL "4010": GO TO VAL "4637"
IF INKEY$="P" THEN GO SUB VAL "4070": COPY : LPRINT ''': GO SUB VAL "4605"
IF INKEY$="M" THEN GO TO VAL "4080"
GO TO VAL "4620"
IF INKEY$="P" THEN COPY : LPRINT ''': GO SUB VAL "4650"
IF INKEY$="M" THEN GO TO VAL "4080"
RETURN 
IF INKEY$="X" THEN GO SUB VAL "4010": GO TO VAL "4620"
RETURN 
IF M9>39 AND M9<190 OR M9>206 AND M9<221 THEN LET inx=VAL "5": LET pc=VAL "0": LET inz=VAL "4": LET l$="B": RETURN 
IF M9>189 AND M9<207 THEN LET inx=VAL "1": LET pc=VAL "7": LET l$="L": LET inz=VAL "1": RETURN 
LET inx=VAL "3": LET l$="x": LET pc=VAL "7": LET inz=VAL "3": RETURN 
GO SUB VAL "4010": PRINT AT VAL "21",VAL "3";"                ": PLOT VAL "24",VAL "0": DRAW VAL "128",VAL "0": RETURN 
CLS : GO SUB VAL "4250": GO SUB VAL "4400": GO SUB VAL "4250": PLOT VAL "67",VAL "107": INK VAL "2": FOR n=VAL "0" TO VAL "255" STEP VAL "5": PLOT n,VAL "77": NEXT n
INK VAL "1": PLOT VAL "139",VAL "136": DRAW VAL "-4",VAL "0": DRAW VAL "0",VAL "2": DRAW VAL "13",VAL "9": DRAW VAL "12",VAL "-4": DRAW VAL "38",VAL "11": DRAW VAL "22",VAL "-7": DRAW VAL "35",VAL "-4": DRAW VAL "-19",VAL "-16": DRAW VAL "2",VAL "9": DRAW VAL "-16",VAL "-5": DRAW VAL "4",VAL "-1": DRAW VAL "-14",VAL "-18",P1*VAL ".4": DRAW VAL "-9",VAL "-15",P1: DRAW VAL "1",VAL "-10": DRAW VAL "-2",VAL "-2": DRAW VAL "-4",VAL "4": DRAW VAL "4",VAL "-13"
DRAW VAL "-10",VAL "22": DRAW VAL "-8",VAL "-13": DRAW VAL "-8",VAL "16": DRAW VAL "-16",VAL "-13": DRAW VAL "-6",VAL "20": DRAW VAL "1",VAL "5": DRAW VAL "-8",VAL "0": DRAW VAL "-5",VAL "9": DRAW VAL "-2",VAL "0": DRAW VAL "3",VAL "-6": DRAW VAL "-1",VAL "-2": DRAW VAL "-5",VAL "6": DRAW VAL "-5",VAL "-4": DRAW VAL "-1",VAL "-2": DRAW VAL "-3",VAL "-1": DRAW VAL "-2",VAL "1": DRAW VAL "0",VAL "1": DRAW VAL "-1",VAL "1": DRAW VAL "1",VAL "3": DRAW VAL "5",VAL "0": DRAW VAL "-2",VAL "5": DRAW VAL "4",VAL "2": DRAW VAL "2",VAL "3": DRAW VAL "3",VAL "1": DRAW VAL "1",VAL "4"
PLOT VAL "25",VAL "147": DRAW VAL "17",VAL "-3": DRAW VAL "5",VAL "3": DRAW VAL "10",VAL "-3": DRAW VAL "5",VAL "1": DRAW VAL "6",VAL "-1": DRAW VAL "0",VAL "2": DRAW VAL "1",VAL "2": DRAW VAL "2",VAL "0": DRAW VAL "1",VAL "-3": DRAW VAL "2",VAL "-1": DRAW VAL "2",VAL "2": DRAW VAL "2",VAL "-1": DRAW VAL "0",VAL "-2": DRAW VAL "-4",VAL "-3": DRAW VAL "-2",VAL "-5": DRAW VAL "5",VAL "-4": DRAW VAL "2",VAL "-3"
PLOT VAL "80",VAL "129": DRAW VAL "-1",VAL "2": DRAW VAL "1",VAL "3": DRAW VAL "0",VAL "5": DRAW VAL "6",VAL "-2": DRAW VAL "2",VAL "-3": DRAW VAL "1",VAL "2": DRAW VAL "6",VAL "-8": DRAW VAL "-3",VAL "-2": DRAW VAL "-5",VAL "-1"
PLOT VAL "88",VAL "125": DRAW VAL "2",VAL "-1",P1: DRAW VAL "2",VAL "-1",P1: DRAW VAL "1",VAL "-1": DRAW VAL "-5",VAL "-3"
PLOT VAL "130",VAL "135": DRAW VAL "-1",VAL "0": DRAW VAL "-1",VAL "-3": DRAW VAL "1",VAL "-1": DRAW VAL "1",VAL "0": DRAW VAL "0",VAL "-2": DRAW VAL "-1",VAL "0": DRAW VAL "0",VAL "-1": DRAW VAL "1",VAL "-1": DRAW VAL "-2",VAL "-1": DRAW VAL "4",VAL "1": DRAW VAL "0",VAL "2": DRAW VAL "-2",VAL "3": DRAW VAL "1",VAL "2": DRAW VAL "-1",VAL "0": DRAW VAL "0",VAL "1": PLOT VAL "126",VAL "127": DRAW VAL "1",VAL "3"
PLOT VAL "25",VAL "147": DRAW VAL "-4",VAL "-3": DRAW VAL "3",VAL "-1": DRAW VAL "-4",VAL "-1": DRAW VAL "1",VAL "-2": DRAW VAL "4",VAL "0": DRAW VAL "0",VAL "-1": DRAW VAL "-4",VAL "-3": DRAW VAL "6",VAL "-2": DRAW VAL "-5",VAL "-4": DRAW VAL "14",VAL "6": DRAW VAL "12",VAL "-8": DRAW VAL "-1",VAL "0": DRAW VAL "2",VAL "-4": DRAW VAL "1",VAL "-8"
PLOT VAL "50",VAL "116": DRAW VAL "4",VAL "-7",P1*.4: DRAW 5,-10: PLOT 56,108: DRAW 6,-11: DRAW 0,-2: DRAW 6,-3: DRAW 2,0: DRAW 8,-13: DRAW 1,2: DRAW -1,-5,-P1*.4: DRAW 8,-19,P1*.25: DRAW -2,-19: DRAW 0,-15: DRAW 5,-1: DRAW -1,6,-P1/2: DRAW 3,9: DRAW 3,1: DRAW 10,16: DRAW 4,14: DRAW 0,3: DRAW -9,5: DRAW -3,6: DRAW -2,1: DRAW -10,5: DRAW -3,-3: DRAW -4,0: DRAW 0,6: DRAW -4,1: DRAW 1,5: DRAW -2,0: DRAW -5,1,-P1/2: DRAW 1,4: DRAW 1,3,-P1/4: DRAW 8,1: DRAW 2,-5: DRAW -1,7: DRAW 4,3: DRAW 1,6: DRAW 2,1
PLOT VAL "103",VAL "136": DRAW VAL "15",VAL "10": DRAW VAL "6",VAL "12": DRAW VAL "-12",VAL "1": DRAW VAL "-28",VAL "-6": DRAW VAL "3",VAL "-1": DRAW VAL "7",VAL "-1": DRAW VAL "3",VAL "-10": DRAW VAL "5",VAL "-5"
PLOT VAL "83",VAL "116": DRAW VAL "2",VAL "2": DRAW VAL "1",VAL "2": DRAW VAL "3",VAL "2"
PLOT VAL "120",VAL "139": DRAW VAL "3",VAL "1": DRAW VAL "-1",VAL "3": DRAW VAL "-4",VAL "-1": DRAW VAL "-1",VAL "1": DRAW VAL "-1",VAL "-1": DRAW VAL "2",VAL "0": DRAW VAL "-2",VAL "-1": DRAW VAL "2",VAL "-2": DRAW VAL "-1",VAL "0": DRAW VAL "3",VAL "0"
PLOT VAL "166",VAL "88": DRAW VAL "-6",VAL "-2": DRAW VAL "-8",VAL "21": DRAW VAL "-8",VAL "1": DRAW VAL "1",VAL "-2": DRAW VAL "-6",VAL "4": DRAW VAL "0",VAL "3": DRAW VAL "-11",VAL "-1": DRAW VAL "-2",VAL "-6": DRAW VAL "1",VAL "-26",P1: DRAW VAL "11",VAL "0": DRAW VAL "0",VAL "-4": DRAW VAL "2",VAL "-18",-P1/3: DRAW VAL "4",VAL "-16": DRAW VAL "2",VAL "1": DRAW VAL "8",VAL "8",P1/2: DRAW VAL "2",VAL "1": DRAW VAL "1",VAL "4": DRAW VAL "4",VAL "4": DRAW VAL "-1",VAL "12": DRAW VAL "8",VAL "16"
PLOT VAL "130",VAL "135": DRAW VAL "-1",VAL "0": DRAW VAL "-1",VAL "-3": DRAW VAL "1",VAL "-1": DRAW VAL "1",VAL "0": DRAW VAL "0",VAL "-2": DRAW VAL "-1",VAL "0": DRAW VAL "0",VAL "-1": DRAW VAL "1",VAL "-1": DRAW VAL "-2",VAL "-1": DRAW VAL "4",VAL "1": DRAW VAL "0",VAL "2": DRAW VAL "-2",VAL "3": DRAW VAL "1",VAL "2": DRAW VAL "-1",VAL "0": DRAW VAL "0",VAL "1": PLOT VAL "126",VAL "127": DRAW VAL "1",VAL "3"
PLOT VAL "226",VAL "121": DRAW VAL "-8",VAL "-12",-P1/3: DRAW VAL "0",VAL "-2": DRAW VAL "10",VAL "12",P1/3: DRAW VAL "-2",VAL "2": PLOT VAL "195",VAL "81": DRAW VAL "22",VAL "-13",P1/2: DRAW VAL "2",VAL "0": DRAW VAL "-23",VAL "13",-P1/2
PLOT VAL "205",VAL "78": DRAW VAL "0",VAL "-5": DRAW VAL "5",VAL "-1": DRAW VAL "1",VAL "10": DRAW VAL "-6",VAL "-4": PLOT VAL "217",VAL "74": DRAW VAL "10",VAL "-7": DRAW VAL "5",VAL "-1": DRAW VAL "-4",VAL "4": DRAW VAL "-11",VAL "4"
PLOT VAL "232",VAL "39": DRAW VAL "-7",VAL "-1": DRAW VAL "-16",VAL "3",P1/3: DRAW VAL "-1",VAL "13": DRAW VAL "14",VAL "8": DRAW VAL "0",VAL "-3": DRAW VAL "4",VAL "-1": DRAW VAL "0",VAL "5": DRAW VAL "8",VAL "-13": DRAW VAL "-2",VAL "-10": PLOT VAL "247",VAL "41": DRAW VAL "1",VAL "-5": DRAW VAL "2",VAL "1": DRAW VAL "0",VAL "3": DRAW VAL "-3",VAL "3": PLOT VAL "246",VAL "35": DRAW VAL "-3",VAL "-5": DRAW VAL "2",VAL "0": DRAW VAL "3",VAL "5": DRAW VAL "-2",VAL "0"
PLOT VAL "27",VAL "98": PLOT VAL "28",VAL "97": PLOT VAL "29",VAL "95": GO SUB VAL "250"
LET SLO=46-INT (W5/12+.5)
IF W5<180 THEN LET SLO=16-INT (W5/12-.5)
LET SLA=INT (12.5-(L5/8))
PRINT INK VAL "2"; FLASH VAL "1";AT SLA,SLO;"S"
IF E9>=VAL "0" THEN PRINT AT VAL "20",VAL "1";"OSCAR-10 IN RANGE AZ ";INT A9;" EL ";INT E9;
IF E9<VAL "0" THEN PRINT INK VAL "2";AT VAL "20",VAL "1";" OSCAR-10 IS NOW OUT OF RANGE "
GO TO VAL "4450"
CLS : GO SUB VAL "4400": PRINT INVERSE VAL "1"; PAPER VAL "7"; INK VAL "4";AT VAL "20",VAL "30";"  ";AT VAL "20",VAL "24";MN;"/";DM;"/";YN
PRINT INVERSE VAL "1"; PAPER VAL "7"; INK VAL "1";AT VAL "21",VAL "24";T$;" UTC"
IF E9>=VAL "0" THEN PRINT INVERSE VAL "1";AT VAL "0",VAL "26"; PAPER VAL "7"; INK VAL "1";FB+145000;AT VAL "0",VAL "25";"145.";AT VAL "1",VAL "26"; INK VAL "4";FR+435000;AT VAL "1",VAL "25";"435."
GO SUB VAL "6050"
IF E9<VAL "0" THEN PRINT INVERSE VAL "1"; FLASH VAL "1"; PAPER VAL "2"; INK VAL "7";AT VAL "0",VAL "23";"OSCAR-TEN";AT VAL "1",VAL "23";" is OUT  ";AT VAL "2",VAL "23";"of RANGE ": GO SUB VAL "4000": GO SUB VAL "4000"
IF CH4=VAL "8" THEN GO SUB VAL "9050"
IF CH4=VAL "9" THEN GO SUB VAL "8960"
IF CH4=VAL "3" THEN GO SUB VAL "7560"
IF CH4=VAL "5" THEN GO SUB VAL "7810"
IF CH4=VAL "7" THEN GO SUB VAL "7900"
IF CH4=VAL "6" THEN GO SUB VAL "7660"
IF CH4=VAL "4" THEN GO SUB VAL "8810"
GO TO VAL "7010"
LET SR1=R5: LET FA=VAL "4": LET T=T+1/96: GO TO VAL "2040"
LET FA=VAL "3": LET SR2=R5: LET V=-(INT ((SR2-SR1)/90))/10: IF V=VAL "0" THEN LET DS=VAL "0"
IF V<>0 THEN LET DS=(289204.7+2*RA)/(300000/V-1)
IF FX=VAL "0" THEN LET FR=INT (104-RA): LET FB=INT (900-DS+RA): LET FX=VAL "1": GO TO VAL "5715"
LET FB=INT (900+RA): LET FR=INT (104-DS-RA): GO TO VAL "5715"
PRINT AT VAL "21",VAL "3"; PAPER VAL "6";"Freq (in Khz)= ?"
INPUT F5: IF F5<500 THEN LET RA=104-F5: LET FX=VAL "0"
IF F5>=VAL "500" THEN LET RA=F5-900: LET Fx=VAL "1"
LET T=T-1/96: GO SUB VAL "4500": GO TO VAL "2040"
LET AZ=A9*P1/180: CIRCLE VAL "207",VAL "106",VAL "2": PLOT VAL "231",VAL "64": DRAW VAL "-48",VAL "84",PI: DRAW VAL "24",VAL "-90",.85*PI: PLOT VAL "207",VAL "106"
DRAW (32*SIN AZ),(32*COS AZ)
FOR N=VAL "0" TO VAL "2"*PI STEP PI/6
PLOT (207+40*SIN N),(106+40*COS N)
DRAW (8*SIN N),(8*COS N): NEXT N
LET AZ=INT (57.3*AZ): IF AZ<90 OR AZ>270 THEN PRINT AT VAL "10",VAL "23";"AZ ";AZ
IF AZ>=VAL "90" AND AZ<=VAL "270" THEN PRINT AT VAL "5",VAL "23";"AZ ";AZ
LET EL=E9*PI/180: IF SGN EL=VAL "-1" THEN GO TO VAL "6250"
PLOT VAL "255",VAL "18": DRAW VAL "-48",48,.56*PI
CIRCLE VAL "207",VAL "18",VAL "2": PLOT VAL "207",VAL "18"
DRAW (32*COS EL),(32*SIN EL)
FOR N=VAL "0" TO PI/1.9 STEP PI/18
PLOT (207+40*SIN N),(18+40*COS N)
DRAW (8*SIN N),(8*COS N): NEXT N
PRINT AT VAL "16",VAL "23";"EL";AT VAL "18",VAL "23";INT (EL/P0): GO TO VAL "6270"
PRINT PAPER VAL "3"; INK VAL "7"; FLASH VAL "1";AT VAL "16",VAL "23";"EL";AT VAL "18",VAL "23";INT (EL/P0)
RETURN 
GO SUB VAL "4400": GO SUB VAL "4015": PRINT INVERSE VAL "1"; INK VAL "3"; PAPER VAL "7";AT VAL "2",VAL "2";" SELECT CONTINENTAL AREA MAP "
PRINT AT VAL "5",VAL "3";"1 = North America";AT VAL "7",VAL "3";"2 = Europe and North Africa";AT VAL "9",VAL "3";"3 = Southeast Asia";AT VAL "11",VAL "3"; "4 = S Pacific & New Zealand"
PRINT AT VAL "13",VAL "3";"5 = Australia";AT VAL "15",VAL "3";"6 = South America";AT VAL "17",VAL "3";"7 = South Africa"
IF INKEY$="1" THEN LET CH4=VAL "3": RETURN 
IF INKEY$="2" THEN LET CH4=VAL "4": RETURN 
IF INKEY$="3" THEN LET CH4=VAL "5": RETURN 
IF INKEY$="4" THEN LET CH4=VAL "6": RETURN 
IF INKEY$="5" THEN LET CH4=VAL "7": RETURN 
IF INKEY$="6" THEN LET CH4=VAL "8": RETURN 
IF INKEY$="7" THEN LET CH4=VAL "9": RETURN 
GO TO VAL "6830"
LET GA=165-(W9-LO1)*3: IF GA>255 OR GA<0 THEN GO TO VAL "7060"
LET LA=(L9-LA1)*3: IF LA<0 OR LA>175 THEN GO TO VAL "7060"
PLOT PAPER VAL "4"; INK VAL "7"; FLASH VAL "1";GA,LA
LET W5=W5-(W5>360)*360+(W5<0)*VAL "360"
LET SLA=(L5-LA1)*3: LET SLO=165-(W5-LO1)*VAL "3"
IF SLA>VAL "175" OR SLA<VAL "0" THEN GO TO VAL "7166"
IF SLO>254 OR SLO<2 THEN GO TO VAL "7171"
PRINT INK VAL "2"; FLASH 1;AT 21-INT (SLA/8),INT (SLO/8);"S"
IF SLO>168 OR SLO<2 THEN GO TO VAL "7171"
IF (SLA-(3*DZ))>2 AND (SLA-(3*DZ))<174 THEN CIRCLE INK VAL "2";SLO,(SLA-(3*DZ)),VAL "2"
LET DZ2=L5+DZ: IF DZ2<=90 THEN GO TO VAL "7180"
LET DZ3=180-DZ2: LET WA5=W5+180-(W5>=180)*VAL "360"
LET SLO=165+(LO1-WA5)*VAL "3"
IF SLO>168 OR SLO<2 THEN GO TO VAL "7185"
IF DZ2>90 AND (3*(DZ3-LA1))>2 AND (3*(DZ3-LA1))<174 THEN CIRCLE INK VAL "2";SLO,(3*(DZ3-LA1)),VAL "2"
IF SLO>168 OR SLO<2 THEN GO TO VAL "7185"
IF (SLA+(3*DZ))<174 AND (SLA+(3*DZ))>2 THEN CIRCLE INK VAL "2";SLO,(SLA+(3*DZ)),VAL "2"
IF FM=VAL "0" OR FM=VAL "4" THEN GO TO VAL "7460"
LET LA=(LA1+1)*P0
LET Q=((COS (DZ*P0)-SIN LA*SIN (L5*P0))/(COS LA*COS (L5*P0)))
IF ABS Q>.9999 THEN GO TO VAL "7442"
LET ZA=57.3*(ACS ((COS (DZ*P0)-SIN LA*SIN (L5*P0))/(COS LA*COS (L5*P0))))
LET CA2=INT (W5+ZA): LET CA2=CA2+(CA2>360)*(-360)+(CA2<0)*VAL "360"
IF LO2<LO1 AND CA2<=LO2 THEN LET CA2=360+CA2
LET CA3=INT (W5-ZA): LET CA3=CA3-(CA3>360)*VAL "360"+(CA3<0)*VAL "360"
IF LO2<LO1 AND CA3<=LO2 THEN LET CA3=VAL "360"+CA3
LET CLA=(3*(INT (LA/P0-LA1)))
LET CLOL=(LO1+55-CA2)*VAL "3"
IF CA2>(LO1+54) OR CA2<(LO1+1) THEN GO TO VAL "7400"
CIRCLE INK VAL "2";CLOL,CLA,VAL "2"
LET CLOR=(LO1+55-CA3)*VAL "3"
IF CA3>(LO1+54) OR CA3<(LO1+1) THEN GO TO VAL "7442"
CIRCLE INK VAL "2";CLOR,CLA,VAL "2"
LET LA=LA+2*P0: IF L5>LA1 AND L5<LA2 THEN LET LA=LA+3*P0
IF L5>LA1 AND L5<LA2 THEN GO TO VAL "7450"
IF LO1>(W5+20) AND LO1<(W5+110) OR (LO1+160)>W5 AND (LO1+70)<W5 THEN LET LA=LA+3*P0
IF L5>LA1 AND L5<LA2 THEN LET LA=LA+4*P0
IF LA<=((LA2-1)*P0) THEN GO TO VAL "7200"
GO SUB VAL "4010": PRINT PAPER VAL "6"; INK VAL "0";AT VAL "21",VAL "3";"Print?=P "; PAPER VAL "4"; INK VAL "7";"Menu?=M"
IF INKEY$="P" THEN GO SUB VAL "4800": COPY : LPRINT ''': GO TO VAL "7460"
IF INKEY$="M" THEN GO SUB VAL "4800": GO TO VAL "8400"
GO TO VAL "7461"
PRINT INK VAL "1";AT VAL "2",VAL "4";"NORTH";AT VAL "3",VAL "2";" AMERICA"; INK VAL "1": PLOT VAL "114",VAL "0": DRAW VAL "-54",VAL "24": DRAW VAL "-24",VAL "36": DRAW VAL "-8",VAL "0": DRAW VAL "18",VAL "-30": DRAW VAL "0",VAL "-8": DRAW VAL "-3",VAL "0": PLOT VAL "42",VAL "22": DRAW VAL "-39",VAL "62": DRAW VAL "-3",VAL "27": FOR n=VAL "0" TO VAL "100" STEP VAL "5": PLOT n,VAL "108": NEXT n: PLOT VAL "0",VAL "174": DRAW VAL "75",VAL "-6": DRAW VAL "15",VAL "6": DRAW VAL "42",VAL "-3": DRAW VAL "-42",VAL "-30": DRAW VAL "39",VAL "-12": DRAW VAL "9",VAL "-9": DRAW VAL "3",VAL "33": DRAW VAL "24",VAL "-3" 
PLOT VAL "165",VAL "105": DRAW VAL "-39",VAL "-15": DRAW VAL "2",VAL "3": DRAW VAL "-7",VAL "8",P1/4: DRAW VAL "-6",VAL "-6": DRAW VAL "-3",VAL "-6",-P1/2: DRAW VAL "23",VAL "9",-P1: DRAW VAL "-5",VAL "2": DRAW VAL "-2",VAL "-7": PLOT VAL "121",VAL "106": DRAW VAL "-22",VAL "-2": DRAW VAL "13",VAL "7": DRAW VAL "9",VAL "-5": PLOT VAL "129",VAL "93": DRAW VAL "18",VAL "1": DRAW VAL "0",VAL "3"
PLOT VAL "165",VAL "90": DRAW VAL "-9",VAL "-3": DRAW VAL "-9",VAL "-15": DRAW VAL "-18",VAL "-12": DRAW VAL "6",VAL "-21": DRAW VAL "-6",VAL "0": DRAW VAL "-3",VAL "15": DRAW VAL "-36",VAL "-3": DRAW VAL "-6",VAL "-18": DRAW VAL "21",VAL "-6",P1: DRAW VAL "9",VAL "3": DRAW VAL "-3",VAL "-18": DRAW VAL "15",VAL "0": DRAW VAL "0",VAL "-12"
PLOT VAL "150",VAL "0": DRAW VAL "15",VAL "3": PLOT VAL "120",VAL "30": DRAW VAL "30",VAL "-6"
PRINT INK VAL "4";AT VAL "13",VAL "2";"*";AT VAL "12",VAL "0";"*";AT VAL "7",VAL "0";"*";AT VAL "14",VAL "10";"*";AT VAL "10",VAL "13";"*";AT VAL "11",VAL "19";"*";AT VAL "12",VAL "8";"*";AT VAL "19",VAL "19";"*";AT VAL "18",VAL "9";"*"
PRINT INK VAL "0";AT VAL "13",VAL "3";"LA";AT VAL "12",VAL "1";"SF";AT VAL "7",VAL "1";"Va";AT VAL "14",VAL "11";"FtW";AT VAL "10",VAL "11";"Ch";AT VAL "11",VAL "17";"NY";AT VAL "12",VAL "9";"Den";AT VAL "18",VAL "19";"Hai";AT VAL "17",VAL "7";"MexC"
LET LO1=VAL "70": LET LO2=VAL "125": LET LA1=VAL "12": LET LA2=VAL "70": LET TZ=VAL "-5": GO SUB VAL "8000": RETURN 
PRINT INK 1;AT 14,7;"SOUTH PACIFIC";AT 15,8;"& N ZEALAND"; INK 1: PLOT 29,27: DRAW 2,3: DRAW -5,2: DRAW 3,VAL "4": DRAW VAL "-6",VAL "11": DRAW VAL "15",VAL "-11": DRAW VAL "1",VAL "2": DRAW VAL "2",VAL "-1": DRAW VAL "-2",VAL "-4": DRAW VAL "-3",VAL "-1": DRAW VAL "-5",VAL "-6": DRAW VAL "-2",VAL "1": PLOT VAL "28",VAL "25": DRAW VAL "-5",VAL "-6": DRAW VAL "2",VAL "-1": DRAW VAL "-6",VAL "-1": DRAW VAL "-2",VAL "-5": DRAW VAL "-5",VAL "-2": DRAW VAL "-8",VAL "1": DRAW VAL "7",VAL "7": DRAW VAL "7",VAL "3": DRAW VAL "1",VAL "4": DRAW VAL "1",VAL "0": DRAW VAL "3",VAL "3": DRAW VAL "2",VAL "-2": DRAW VAL "2",VAL "2": DRAW VAL "1",VAL "0": DRAW VAL "-3",VAL "-10"
PLOT VAL "51",VAL "60": PLOT VAL "57",VAL "18": PLOT VAL "9",VAL "66": PLOT VAL "39",VAL "98": PLOT VAL "0",VAL "87": DRAW VAL "6",VAL "-4": PLOT VAL "67",VAL "109": DRAW VAL "2",VAL "-1": PLOT VAL "69",VAL "142": PLOT VAL "60",VAL "87": PLOT VAL "99",VAL "168": PLOT VAL "113",VAL "156": PLOT VAL "165",VAL "122": PLOT VAL "136",VAL "97": PLOT VAL "106",VAL "86"
FOR N=VAL "0" TO VAL "-63" STEP VAL "-9": PLOT 24-N/5,VAL "162"+N/3: PLOT 3-N/5,VAL "120"+N/2: NEXT N
PRINT INK VAL "4";AT VAL "9",VAL "6";"*";AT VAL "9",VAL "16";"*";AT VAL "8",VAL "8";"*";AT VAL "10",VAL "7";"*";AT VAL "2",VAL "14";"*": PRINT INK VAL "0";AT VAL "9",VAL "7";"Fiji";AT VAL "9",VAL "12";"Thti";AT VAL "8",VAL "9";"Samoa";AT VAL "10",VAL "8";"Tonga";AT VAL "3",VAL "1";"Truk";AT VAL "18",VAL "4";"NewZ";AT VAL "2",VAL "15";"Xmas"
LET LA1=VAL "-50": LET LA2=VAL "8": LET LO1=VAL "140": LET LO2=VAL "195": LET TZ=VAL "-9"
GO SUB VAL "8000": RETURN 
PRINT INK VAL "1";AT VAL "14",VAL "12";"SE ASIA"; INK 1: PLOT 57,0: DRAW -3,3: DRAW -6,2: DRAW -2,-2: DRAW -13,3: DRAW -2,-3: DRAW 14,-3: PLOT 33,9: DRAW 0,9: DRAW -15,12: DRAW -11,9: DRAW -7,1: DRAW 28,-34: DRAW 5,3: PLOT 63,12: DRAW 9,27: DRAW -8,6: DRAW -22,-15: DRAW 3,-15: DRAW 18,-3
PLOT VAL "25",VAL "27": DRAW VAL "-7",VAL "9": DRAW VAL "-9",VAL "12": DRAW VAL "-3",VAL "27": DRAW VAL "-6",VAL "-3": PLOT VAL "25",VAL "27": DRAW VAL "-4",VAL "15": DRAW VAL "-9",VAL "12": DRAW VAL "6",VAL "12": DRAW VAL "12",VAL "-17": DRAW VAL "12",VAL "8": DRAW VAL "-3",VAL "15": DRAW VAL "-6",VAL "9": DRAW VAL "12",VAL "7"
PLOT VAL "45",VAL "84": DRAW VAL "21",VAL "10": DRAW VAL "18",VAL "23": DRAW VAL "-12",VAL "12": DRAW VAL "9",VAL "9": DRAW VAL "-15",VAL "3": DRAW VAL "15",VAL "6": DRAW VAL "-3",VAL "-6": DRAW VAL "14",VAL "2": DRAW VAL "-3",VAL "-5": DRAW VAL "4",VAL "-12",-P1*.75: DRAW VAL "8",VAL "3": DRAW VAL "-3",VAL "14",P1*.75: DRAW VAL "13",VAL "17": DRAW VAL "6",VAL "-3": DRAW VAL "15",VAL "17"
PLOT VAL "113",VAL "122": DRAW VAL "4",VAL "1": PLOT VAL "107",VAL "118": DRAW VAL "-4",VAL "6": DRAW VAL "5",VAL "2": DRAW VAL "3",VAL "-3": DRAW VAL "-2",VAL "-5": DRAW VAL "-2",0,-P1/2: PLOT VAL "108",VAL "126": DRAW VAL "13",VAL "2": DRAW VAL "0",VAL "-4",P1/3: DRAW VAL "14",VAL "5",-P1/3: DRAW VAL "3",VAL "11",P1/3: DRAW VAL "1",VAL "11",P1/3: DRAW VAL "-4",VAL "-3": DRAW VAL "-9",VAL "-14": PLOT VAL "127",VAL "136": DRAW VAL "-4",VAL "-5": DRAW VAL "-15" ,-5,P1/3
PLOT VAL "78",VAL "90": DRAW VAL "-3",VAL "3": DRAW VAL "5",VAL "6": DRAW VAL "-2",VAL "-9": PLOT VAL "135",VAL "150": DRAW VAL "0",VAL "6": DRAW VAL "6",VAL "7": DRAW VAL "10",VAL "-7": DRAW VAL "-7",VAL "-3": DRAW VAL "-6",VAL "1": PLOT VAL "141",VAL "166": DRAW VAL "-1",VAL "9"
PLOT VAL "81",VAL "78": DRAW VAL "-6",VAL "0": DRAW VAL "6",VAL "-33": DRAW VAL "8",VAL "-3": DRAW VAL "-12",VAL "36": PLOT VAL "90",VAL "30": DRAW VAL "-15",VAL "-21",P1/2: PLOT VAL "150",VAL "0": DRAW VAL "-24",VAL "18": DRAW VAL "-21",VAL "6": DRAW VAL "30",VAL "-24"
PRINT INK VAL "4";AT VAL "18",VAL "3";"*";AT VAL "10",VAL "7";"*";AT VAL "13",VAL "9";"*";AT VAL "5",VAL "16";"*";AT VAL "3",VAL "8";"*";AT VAL "2",VAL "13";"*": PRINT INK VAL "0";AT VAL "18",VAL "4";"Sing";AT VAL "10",VAL "4";"Hng";AT VAL "13",VAL "6";"Mla";AT VAL "5",VAL "17";"Tokyo";AT VAL "3",VAL "3";"Pekin";AT VAL "2",VAL "14";"Vstk"
LET LO1=VAL "210": LET LO2=VAL "265": LET LA1=VAL "-8": LET LA2=VAL "50": LET TZ=VAL "10": GO SUB VAL "8000": RETURN 
PRINT INK VAL "1";AT VAL "17",VAL "2";"AUSTRALIA"; INK VAL "1": PLOT VAL "30",VAL "72": DRAW VAL "3",VAL "5": DRAW VAL "-9",VAL "19": DRAW VAL "2",VAL "12": DRAW VAL "21",VAL "6": DRAW VAL "16",VAL "19": DRAW VAL "10",VAL "-4": DRAW VAL "5",VAL "9": DRAW VAL "18",VAL "1": DRAW VAL "-4",VAL "-10": DRAW VAL "16",VAL "-8": DRAW VAL "4",VAL "20": DRAW VAL "3",VAL "-10": DRAW VAL "4",VAL "1": DRAW VAL "25",VAL "-33": DRAW VAL "2",VAL "-12": DRAW VAL "-11",VAL "-26": DRAW VAL "-9",VAL "-3": DRAW VAL "-24",VAL "9",-P1/3: DRAW VAL "-10",VAL "2": DRAW VAL "-35",VAL "3",P1/2: DRAW -VAL "13",VAL "1": DRAW VAL "-5",VAL "-4": DRAW VAL "-9",VAL "3"
PLOT VAL "119",VAL "52": DRAW VAL "4",VAL "-1": DRAW VAL "7",VAL "1": DRAW VAL "-2",VAL "-7": DRAW VAL "-5",VAL "-2": DRAW VAL "-4",VAL "9"
PLOT VAL "138",VAL "141": DRAW VAL "-10",VAL "3": DRAW VAL "-11",VAL "7": DRAW VAL "-4",VAL "-5": DRAW VAL "-15",VAL "4": DRAW VAL "-5",VAL "9",P1/2: DRAW VAL "-12",VAL "6": DRAW VAL "-6",VAL "9": DRAW VAL "12",VAL "-3": DRAW VAL "3",VAL "-7": DRAW VAL "8",VAL "5": DRAW VAL "21",VAL "-7": DRAW VAL "10",VAL "-9": DRAW VAL "-2",VAL "0": DRAW VAL "11",VAL "-12" 
PLOT VAL "3",VAL "165": DRAW VAL "-2",VAL "-9": PLOT VAL "3",VAL "156": DRAW VAL "7",VAL "-1": DRAW VAL "1",VAL "-1": DRAW VAL "2",VAL "-1": DRAW VAL "2",VAL "2": DRAW VAL "9",VAL "-2": DRAW VAL "-4",VAL "-1": DRAW VAL "2",VAL "-1": DRAW VAL "3",VAL "0": DRAW VAL "0",VAL "-3": DRAW VAL "-13",VAL "4": DRAW VAL "-2",VAL "-1": DRAW VAL "-6",VAL "1": DRAW VAL "0",VAL "2":  DRAW VAL "-3",VAL "0": DRAW VAL "2",VAL "2"
PLOT VAL "12",VAL "174": DRAW VAL "4",VAL "-9": DRAW VAL "4",VAL "0": DRAW VAL "0",VAL "-2": DRAW VAL "8",VAL "0": DRAW VAL "1",VAL "-2": DRAW VAL "5",VAL "7": DRAW VAL "4",VAL "6": PLOT VAL "28",VAL "149": DRAW VAL "4",VAL "0": PLOT VAL "33",VAL "149": DRAW VAL "2",VAL "0": PLOT VAL "36",VAL "148": DRAW VAL "6",VAL "0": PLOT VAL "45",VAL "148": DRAW VAL "15",VAL "1": PLOT VAL "42",VAL "145": DRAW VAL "5",VAL "-2"
PLOT VAL "54",VAL "141": DRAW VAL "13",VAL "8": DRAW VAL "-7",VAL "-1": DRAW VAL "-4",VAL "-3": DRAW VAL "-2",VAL "-4": PLOT VAL "44",VAL "174": DRAW VAL "-3",VAL "-11": DRAW VAL "2",VAL "0": DRAW VAL "0",VAL "-6": DRAW VAL "3",VAL "0": DRAW VAL "0",VAL "9": DRAW VAL "2",VAL "0": DRAW VAL "3",VAL "-9": DRAW VAL "4",VAL "0": DRAW VAL "0",VAL "5": DRAW VAL "-6",VAL "6": DRAW VAL "7",VAL "4": DRAW VAL "-9",VAL "-2": DRAW VAL "-1",VAL "4"
PRINT INK VAL "4";AT VAL "12",VAL "4";"*";AT VAL "4",VAL "9";"*";AT VAL "12",VAL "17";"*";AT VAL "10",VAL "17";"*": PRINT INK VAL "0";AT VAL "12",VAL "5";"Pth";AT VAL "4",VAL "6";"Dwn";AT VAL "12",VAL "14";"Syd";AT VAL "10",VAL "13";"Bris"
LET LA1=VAL "-58": LET LA2=VAL "0": LET LO1=VAL "200": LET LO2=VAL "255": LET TZ=VAL "10": GO SUB VAL "8000": RETURN 
LET FL=VAL "1": LET FM=VAL "0"
IF FL=VAL "1" THEN LET LO3=LO1: IF FL=VAL "1" THEN LET LA3=LA1
IF FL=VAL "2" THEN LET LO3=LO2
IF FL=VAL "3" THEN LET LA3=LA2
IF FL=VAL "4" THEN LET LO3=LO1
LET DIF=ABS (W5-LO3): IF DIF>180 THEN LET DIF=360-DIF
LET DZ1=((SIN (LA3*P0))*(SIN (L5*P0))+(COS (LA3*P0))*(COS (L5*P0))*(COS (DIF*P0)))
LET DZ1=57.3*(-ATN (DZ1/SQR (-DZ1*DZ1+1))+P1/2)
IF DZ1<DZ THEN LET FM=FM+1
IF FL=VAL "1" AND DZ1<DZ THEN PRINT AT VAL "21",VAL "20"; PAPER VAL "4"; INK VAL "7";"In"
IF (FL=1 AND DZ1>=DZ) THEN PRINT AT VAL "21",VAL "20"; PAPER VAL "3"; INK VAL "7";"No"
IF FL=VAL "2" AND DZ1<DZ THEN PRINT AT VAL "21",VAL "0"; PAPER VAL "4"; INK VAL "7";"In"
IF FL=VAL "2" AND DZ1>=DZ THEN PRINT AT VAL "21",VAL "0"; PAPER VAL "3"; INK VAL "7";"No"
IF FL=VAL "3" AND DZ1<DZ THEN PRINT AT VAL "0",VAL "0"; PAPER VAL "4"; INK VAL "7";"In"
IF FL=VAL "3" AND DZ1>=DZ THEN PRINT AT VAL "0",VAL "0"; PAPER VAL "3"; INK VAL "7";"No"
IF FL=VAL "4" AND DZ1<DZ THEN PRINT AT VAL "0",VAL "20"; PAPER VAL "4"; INK VAL "7";"In"
IF FL=VAL "4" AND DZ1>=DZ THEN PRINT AT VAL "0",VAL "20"; PAPER VAL "3"; INK VAL "7";"No"
LET FL=FL+1: IF FL<VAL "5" THEN GO TO VAL "8010"
FOR N=VAL "0" TO VAL "3": LET TZ1=INT ((VAL T$)/100)+TZ-N
LET TZ1=TZ1-(TZ1>24)*24+(TZ1<0)*24
IF TZ1>=1 AND TZ1<=5 THEN PRINT AT VAL "20",(19-N*6); PAPER VAL "2"; INK VAL "7";TZ1
IF TZ1<1 OR TZ1>5 THEN PRINT AT VAL "20",(19-N*6); PAPER VAL "4"; INK VAL "7";TZ1
NEXT N: RETURN 
INVERSE VAL "1": PAPER VAL "7": INK VAL "1": PRINT AT VAL "10",VAL "21";" ENTER Nr? ";AT VAL "11",VAL "21";"-----------";AT VAL "13",VAL "21";"2 New Dplr ";AT VAL "12",VAL "21";"1 New Mode ";AT VAL "19",VAL "21";"8 S America";AT VAL "20",VAL "21";"9 S Africa ";AT VAL "14",VAL "21";"3 N America";AT VAL "16",VAL "21";"5 SE Asia  ";AT VAL "18",VAL "21";"7 Australia";AT VAL "17",VAL "21";"6 S Pacific";AT VAL "15",VAL "21";"4 Europe   ";AT VAL "21",VAL "21";"10 +15 Min ": INVERSE VAL "0": PAPER VAL "7": INK VAL "0"
INPUT CH5: IF CH5<VAL "1" OR CH5>VAL "10" THEN GO TO VAL "8610"
IF CH5=VAL "2" THEN GO TO VAL "5970"
IF CH5>VAL "2" AND CH5<VAL "10" THEN LET T=T-1/96
IF CH5=VAL "10" THEN GO SUB VAL "4500": GO TO VAL "2040"
IF CH5=VAL "1" THEN PAPER 7: CLS : GO TO VAL "4080"
LET CH4=CH5: GO SUB VAL "4500": GO TO VAL "2040"
BORDER VAL "5": PLOT VAL "0",VAL "0": DRAW VAL "0",VAL "175": DRAW VAL "255",VAL "0": DRAW VAL "0",VAL "-175": DRAW VAL "-255",VAL "0"
PRINT INK VAL "2";AT VAL "5",VAL "4";"▛▌";AT VAL "6",VAL "4";"▌▌▐▀";AT VAL "7",VAL "4";"▙▌▝▜ ▛▌";AT VAL "8",VAL "6";"▗▟ ▌ ▝▜";AT VAL "9",VAL "9";"▙▌▐▜ ▜▄" ; AT VAL "10",VAL "11";"▐▟▖▐▝    ▄";AT VAL "11",VAL "14";"▐ ▗▄ ▗▟▄";AT VAL "12",VAL "20";"▐  ▄▖";AT VAL "13",VAL "20";"▐  ▙▌▗▖";AT VAL "14",VAL "20";"▝▘ ▌▖ ▛▌"; AT VAL "15",VAL "23";"▀▘ ▌▌";AT VAL "16",VAL "26";"▘▀"
PRINT AT VAL "2",VAL "11";"TIMEX-2068"
PRINT INK VAL "3";AT VAL "6",VAL "17";"Satellite";AT VAL "7 ",VAL "20";"Tracking";AT VAL "8",VAL "23";"Program";AT VAL "14",VAL "2";"Version 3.4"
PRINT INK 0;AT VAL "21",VAL "4";"©1985  F. Bouldin  W5GAA"
PRINT INK VAL "6";AT VAL "18",VAL "9";"██"; INK VAL "5";AT VAL "18",VAL "11";"██"; INK VAL "4";AT VAL "18",VAL "13";"██"; INK VAL "3";AT VAL "18",VAL "15";"██"
PRINT INK VAL "6";AT VAL "19",VAL "9";"██"; INK VAL "5";AT VAL "19",VAL "11";"██"; INK VAL "4";AT VAL "19",VAL "13";"██"; INK VAL "3";AT VAL "19",VAL "15";"██"
PRINT INK VAL "2";AT VAL "18",VAL "17";"██"; INK VAL "1";AT VAL "18",VAL "19";"██"
PRINT INK VAL "2";AT VAL "19",VAL "17";"██"; INK VAL "1";AT VAL "19",VAL "19";"██"
PRINT INK VAL "0";AT VAL "18",VAL "21";"██";AT VAL "18",VAL "23";"▞▞"
PRINT INK VAL "0";AT VAL "19",VAL "21";"██";AT VAL "19",VAL "23";"▞▞"
INK VAL "0": PLOT VAL "56",VAL "32": DRAW VAL "144",VAL "0": DRAW VAL "0",VAL "-17": DRAW VAL "-144",VAL "0": DRAW VAL "0",VAL "17": INK VAL "0"
PAUSE VAL "360": RETURN 
PRINT INK VAL "1";AT VAL "18",VAL "1";"EUROPE & N AFRICA"; INK VAL "1": PLOT VAL "45",VAL "174": DRAW VAL "2",VAL "-4": DRAW VAL "4",VAL "-2": DRAW VAL "4",VAL "0": DRAW VAL "7",VAL "4": DRAW VAL "7",VAL "-12": DRAW VAL "4",VAL "0": DRAW VAL "5",VAL "2",-P1/2: DRAW VAL "3",VAL "8": DRAW VAL "6",VAL "4",P1/2
PLOT 120,174: DRAW -23,-3: DRAW -5,-12: DRAW -19,-3: DRAW -3,2: DRAW -7,-2: DRAW -2,7,-P1/2: DRAW 0,4: DRAW -6,-3: DRAW 2,-8: DRAW -13,-3: DRAW -9,-6: DRAW 0,-3: DRAW -9,-2: DRAW 0,1: DRAW -2,0: DRAW 1,-3: DRAW -9,1: DRAW 10,-8: DRAW -1,-9: DRAW -18,1: DRAW -5,-2: DRAW 2,-6: DRAW -2,-7: DRAW 2,-1: DRAW -1,-4: DRAW 7,0,-P1/4: DRAW 3,-3: DRAW 3,2: DRAW 8,0: DRAW 7,6: DRAW 6,8,-P1/2: DRAW 2,2: DRAW 1,4
PLOT 40,125: DRAW 10,-2: DRAW 8,4: DRAW 3,-4,-P1/4: DRAW 16,-9: DRAW 1,-4: DRAW -1,-2: DRAW 2,0: DRAW 3,4: DRAW -3,1: DRAW 3,2: DRAW 3,-2: DRAW 1,2: DRAW -8,4: DRAW 2,1: DRAW -9,5: DRAW -3,1: DRAW 3,5,-P1/2: DRAW 0,-3: DRAW 17,-8: DRAW 0,-6: DRAW 10,-11: DRAW 6,5: DRAW -6,6: DRAW 12,2: PLOT 108,114: DRAW 12,2,-P1/2: DRAW -10,-1: DRAW -1,-1: DRAW 5,-12
PLOT VAL "114",VAL "102": DRAW VAL "8",VAL "4": DRAW VAL "0",VAL "-1": DRAW VAL "4",VAL "-3": DRAW VAL "12",VAL "3": DRAW VAL "-5",VAL "-17": DRAW VAL "-40",VAL "4": DRAW VAL "-3",VAL "-7": DRAW VAL "-30",VAL "11": DRAW VAL "3",VAL "10": DRAW VAL "-24",VAL "-2": DRAW VAL "-23",VAL "-4": DRAW VAL "-2",VAL "1": DRAW VAL "-2",VAL "-1": DRAW VAL "-12",VAL "-17"
PLOT VAL "165",VAL "25": DRAW VAL "-5",VAL "5": DRAW VAL "-12",VAL "12": DRAW VAL "-7",VAL "18": DRAW VAL "-14",VAL "23": DRAW VAL "0",VAL "1": DRAW VAL "6",VAL "-6": DRAW VAL "2",VAL "4": DRAW VAL "-1",VAL "-4": DRAW VAL "27",VAL "-46": DRAW VAL "4",VAL "0"
PLOT VAL "132",VAL "120": DRAW VAL "-9",VAL "-3": DRAW VAL "-9",VAL "1": DRAW VAL "-2",VAL "3": DRAW VAL "13",VAL "13": DRAW VAL "4",VAL "-2": DRAW VAL "-2",VAL "-2": DRAW VAL "4",VAL "-2": DRAW VAL "11",VAL "1": DRAW VAL "14",VAL "-8": DRAW VAL "-8",VAL "-4": DRAW VAL "-16",VAL "3": CIRCLE VAL "140",VAL "132",VAL "3"
PLOT VAL "12",VAL "160": DRAW VAL "-7",VAL "0",P1/3: DRAW VAL "-5",VAL "-11": DRAW VAL "11",VAL "2": DRAW VAL "1",VAL "9"
PLOT VAL "15",VAL "158": DRAW VAL "-4",VAL "6": DRAW VAL "4",VAL "6": DRAW VAL "6",VAL "0": DRAW VAL "-3",VAL "-3": DRAW VAL "6",VAL "0": DRAW VAL "-2",VAL "-5": DRAW VAL "10",VAL "-9": DRAW VAL "2",VAL "-3": DRAW VAL "-2",VAL "-2": DRAW VAL "2",VAL "0": DRAW VAL "-3",VAL "-2": DRAW VAL "-12",VAL "-1": DRAW VAL "-6",VAL "-1": DRAW VAL "7",VAL "4": PLOT VAL "21",VAL "148": DRAW VAL "-7",VAL "1": DRAW VAL "3",VAL "4",P1/2: PLOT VAL "16",VAL "152": DRAW VAL "5",VAL "2": DRAW VAL "-2",VAL "5": DRAW VAL "-4",VAL "-1"
PRINT INK VAL "4";AT VAL "1",VAL "18";"*";AT VAL "11",VAL "15";"*";AT VAL "3",VAL "8";"*";AT VAL "4",VAL "4";"*";AT VAL "7",VAL "1";"*";AT VAL "10",VAL "0";"*": PRINT INK VAL "0";AT VAL "1",VAL "13";"Mosco";AT VAL "11",VAL "10";"Cairo";AT VAL "3",VAL "9";"Berlin";AT VAL "4",VAL "5";"Paris";AT VAL "7",VAL "2";"Mad";AT VAL "10",VAL "1";"Casab";AT VAL "13",VAL "4";"S a h a r a";AT VAL "15",VAL "4";"D e s e r t"
LET LA1=VAL "2": LET LA2=VAL "60": LET LO1=VAL "315": LET LO2=VAL "10": LET TZ=VAL "3": GO SUB VAL "8000": RETURN 
PRINT INK VAL "1";AT VAL "2",VAL "5";"SOUTH AFRICA"; INK 1: PLOT 4,174: DRAW -1,-32: DRAW 27,-24: DRAW 18,1: DRAW 20,5: DRAW 4,-6: DRAW 9,-1: DRAW -1,-14: DRAW 14,-34: DRAW -4,-18: DRAW 18,-49: DRAW 44,25,P1/2: DRAW 8,5: DRAW -2,13: DRAW 7,6
PRINT INK VAL "4";AT VAL "11",VAL "1";"*";AT VAL "9",VAL "20";"*";AT VAL "15",VAL "18";"*";AT VAL "19",VAL "18";"*";AT VAL "18",VAL "17";"*": PRINT INK VAL "0";AT VAL "11",VAL "2";"Asc";AT VAL "9",VAL "17";"Nai";AT VAL "15",VAL "16";"Ha";AT VAL "19",VAL "15";"Dur";AT VAL "8",VAL "20";"Jbg"
LET LA1=VAL "-35": LET LA2=VAL "23": LET LO1=VAL "323": LET LO2=VAL "18": LET TZ=VAL "2": GO SUB VAL "8000": RETURN 
PRINT INK VAL "1";AT VAL "17",VAL "8";"SOUTH AMERICA"; INK 1: PLOT 15,174: DRAW -3,-18: DRAW 15,-26: DRAW 15,-11: DRAW -2,-37: DRAW -6,-20,-P1/3: DRAW -5,-38: DRAW 34,-14,P1/2: DRAW -15,13,-P1/3: DRAW 9,10: DRAW 1,6,-P1: DRAW 4,13: DRAW 5,-1: DRAW 0,7: DRAW 13,13,P1: DRAW 20,7,P1/2: DRAW 9,11: DRAW 21,16,-P1/2: DRAW 8,30,P1/3: DRAW 11,23,P1/3: DRAW -42,16
PLOT VAL "82",VAL "20": DRAW VAL "-6",VAL "-3": DRAW VAL "2",VAL "3": PLOT VAL "76",VAL "20": DRAW VAL "-2",VAL "-3": DRAW VAL "-2",VAL "1": DRAW VAL "3",VAL "2": PLOT VAL "147",VAL "10": DRAW VAL "-6",VAL "2"
PRINT INK VAL "4";AT VAL "13",VAL "10";"*";AT VAL "4",VAL "3";"*";AT VAL "6",VAL "6";"*";AT VAL "0",VAL "2";"*";AT VAL "8",VAL "15";"*";AT VAL "12",VAL "5";"*": PRINT INK VAL "0";AT VAL "12",VAL "10";"Bu";AT VAL "4",VAL "4";"Li";AT VAL "6",VAL "7";"LPz";AT VAL "0",VAL "3";"Qui";AT VAL "8",VAL "12";"Rio";AT VAL "12",VAL "6";"Sa"
LET LA1=VAL "-58": LET LA2=VAL "0": LET LO1=VAL "30": LET LO2=VAL "85": LET TZ=VAL "-2": GO SUB VAL "8000": RETURN 
LET Y2=85
LET T0=230.19430632
LET I0=26.3229
LET K0=1641
LET M0=351.9467
LET N0=2.05858136
LET E0=0.5966563
LET W0=37.7476
LET O0=123.8106
LET YN=Y2: GO SUB 80
LET L9=32.78
LET W9=97.25
LET H9=183: RETURN 
CLEAR : SAVE "oscar-ten" LINE 10
Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.
Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Source Code

Tags

People
