OSCAR-TEN

Date: 198x

Type: Program

Platform(s): TS 2068

This program is an OSCAR-10 (AO-10) amateur radio satellite tracking and display system. It computes orbital positions using Keplerian elements stored in lines 9112–9915, applies nodal precession and apsidal rotation corrections, and solves Kepler’s equation iteratively for the eccentric anomaly. Four display modes are offered: a world map with DRAW-based continental outlines, seven selectable regional maps with DX footprint circles, a DX capability scanner listing 18 world cities, and a tabular orbital tracking data view. The program also calculates uplink/downlink Doppler-shifted frequencies for the Mode B and Mode L transponders and implements a transponder schedule based on mean anomaly ranges.

Program Structure

The program is organized into well-defined functional blocks:

Lines 10–20: Initialisation — draws title screen (GO SUB 8700), sets system variables via POKE, and calls the customisation display (GO SUB 4300).
Lines 80–110: Julian Day Number calculation subroutine, used to convert a Gregorian date to a day number DN.
Lines 120–240: City DX visibility subroutine; computes great-circle angular distance DZ1 between the satellite sub-point and each city, then prints pass status.
Lines 300–500: City coordinate table (18 cities) — each entry sets latitude ALT, longitude LO, screen row N, and name P$, then calls line 120.
Lines 1030–1090: UTC time formatting subroutine — converts numeric time T4 to a zero-padded 4-character string T$.
Lines 1200–1450: Main menu and date/time input, including re-use of previous date/time.
Lines 1640–3600: Core orbital propagation loop — computes satellite position, converts to geographic coordinates, and dispatches to the selected display mode.
Lines 4000–4800: Utility subroutines: beeps, borders, screen headers, key-polling loops, printer support.
Lines 5010–5200: World map drawing using long sequences of DRAW commands.
Lines 5350–5410: World map satellite marker and range display.
Lines 5715–6270: Continental map display with Doppler frequency readout and azimuth/elevation compass rose drawn with CIRCLE and DRAW.
Lines 6800–6900: Continental area map selector menu.
Lines 7010–8400: Regional map display dispatcher and footprint-circle drawing engine.
Lines 7560–7960: Individual continental map outlines (North America, SE Asia, Australia, South Pacific, South America, Europe, South Africa) each as sequences of PLOT/DRAW commands.
Lines 8000–8320: Footprint corner-visibility tester and local-time overlay for the selected map region.
Lines 8700–8760: Animated title/splash screen with block-graphic artwork and a 6-second PAUSE.
Lines 9112–9975: Orbital element set 196 (epoch 85/230, OSCAR-10) and observer QTH (Fort Worth TX, 32.78°N 97.25°W, 183 m).

Orbital Mechanics

The propagator implements a simplified SGP-style algorithm for a high-eccentricity orbit:

Nodal precession (line 2040): O = O0 - (T-T0)*K2*C1 where K2 = 9.95*(R0/A0)^3.5 / E2^2 is the J₂ perturbation rate.
Apsidal rotation (line 2100): W = W0 + (T-T0)*K2*(2.5*C1²-0.5).
Kepler equation solver (lines 2300–2370): iterative Newton–Raphson with first-order seed E = M + E0*sinM + 0.5*E0²*sin2M, converging when |ΔE| < 1×10⁻⁶.
Sidereal time (lines 2660–2680): computed from the epoch reference SE derived at line 1308 using Newcomb’s formula for Greenwich Sidereal Time.
Observer position (lines 2840–2880): accounts for Earth oblateness (F = 1/298.25) and observer altitude H9 in metres.

Key BASIC Idioms

The program uses several characteristic Sinclair-family BASIC techniques:

VAL "number" in GO TO / GO SUB: Used pervasively throughout (e.g. GO TO VAL "2040") as a tokenisation-saving optimisation — the number is stored as a string rather than as a floating-point constant in the token stream.
VAL "expression" for arithmetic: Lines such as LET T5=VAL "1/96" and LET P0=VAL "P1/180" evaluate string expressions at runtime to save program space.
Boolean arithmetic: Lines 7110–7330 use expressions like (W5>360)*(-360) to conditionally add or subtract 360° without IF statements.
INKEY$ polling loops: Lines 1370–1390 and 4090–4150 use tight GO TO loops on INKEY$ for menu selection without blocking INPUT.
DIM for string re-initialisation: Line 1080 uses DIM E$(4) to create a 4-space padding string, a common idiom for fixed-width string formatting.

Display and Graphics

All seven continental maps and the world map are drawn entirely with PLOT and DRAW commands encoded as literal coordinate pairs. The DRAW dx,dy,arc form with arc parameter is used for coastline curves (e.g. lines 5070, 7140, 8820). The title screen at line 8705 uses a mix of block-graphic characters (▛▌▙▝▜ etc.) to render a decorative OSCAR-10 satellite image. The azimuth/elevation compass display (lines 6050–6270) draws a clock-face-style dial using a FOR loop with PLOT/DRAW at angular increments of π/6 and π/18 respectively.

Transponder Schedule Logic

Lines 4700–4720 implement the OSCAR-10 transponder mode schedule as a function of mean anomaly byte M9 (0–255, computed at line 2250 as INT((Q-INT Q)*256)):

M9 Range	Mode	Colour	Label
40–189, 207–220	Mode B (linear)	INK 5, PAPER 0	B
190–206	Mode L	INK 1, PAPER 7	L
All others	Off	INK 3, PAPER 7	x

Doppler Frequency Calculation

Lines 5810–5920 implement a two-pass range-rate measurement: on the first pass (FA=3) the range SR1 is stored, the time is advanced by 1/96 day (15 minutes), and on the second pass (FA=4) the Doppler shift is derived from V = -(INT((SR2-SR1)/90))/10 km/s. The uplink (145 MHz) and downlink (435 MHz) frequencies are then corrected by the passband offset RA and the shift DS.

Orbital Element Set

Variable	Parameter	Value
`Y2`	Epoch year (19xx)	85
`T0`	Epoch day of year	230.19430632
`I0`	Inclination (°)	26.3229
`K0`	Epoch orbit number	1641
`M0`	Mean anomaly at epoch (°)	351.9467
`N0`	Mean motion (rev/day)	2.05858136
`E0`	Eccentricity	0.5966563
`W0`	Argument of perigee (°)	37.7476
`O0`	RAAN (°)	123.8106

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.

Program Structure

Orbital Mechanics

Key BASIC Idioms

Display and Graphics

Transponder Schedule Logic

Doppler Frequency Calculation

Orbital Element Set

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Source Code

Tags

People