/
Name Type Size Blocks Start Compiled
..
MAIN BASIC 254 2 13 Yes
GPS BASIC 57 1 1 Yes
SC1 BASIC 401 4 16 Yes
SCP BASIC 342 3 2 Yes
AG BASIC 127 1 12 Yes
TV BASIC 68 1 5 Yes
TX BASIC 56 1 6 Yes
TY BASIC 68 1 8 Yes
TZ BASIC 56 1 7 Yes
PT BASIC 22 1 9 Yes
FL BASIC 65 1 11 Yes
MAIN
CHANNEL 61 VE3OCL wspr min 0 tele min 2 freq usually runs at 14097032 to 14097038 on earth
1 LET C = 61
LET R = 0
4 LET R = R + 1
IF R > 1
LET HP = 1
GOTO 5
ENDIF
LET HP = 0
5 RUN "FL"
RUN "GPS"
LET P = 3000
LET U = 1
RUN "SC1"
RUN "PT"
TELE V X Y Z
RUN "GPS"
LET P = 10000
LET U = 2
RUN "SC1"
RUN "PT"
TELE V X Y Z
LET P = 30000
LET U = 3
RUN "SC1"
RUN "PT"
TELE V X Y Z
GOTO 4
GPS
OUT 19 0
LET FR = 26999600
GPS 304 "$PSIMNAV,W,3*3A"
OUT 19 1
SC1 /Q changed ot 70 aug 3 / number of scan cycles
RUN "SCP"
FOR L = 1 TO 4
LET D = INA 3
LET N = INA 4
LET E = INA 5
LET S = INA 6
LET W = INA 7
LET Q = 70
LET M = K * Q
FOR T = 1 TO Q
LET D = D + INA 3
LET N = N + INA 4
LET E = E + INA 5
LET S = S + INA 6
LET W = W + INA 7
NEXT
LET D = D / M
LET N = N / M
LET E = E / M
LET S = S / M
LET W = W / M
PRINT "#VD#VN#VE#VS#VW"
PRINT "P", P
IF L = 1
RUN "TV"
ENDIF
IF L = 2
RUN "TX"
ENDIF
IF L = 3
RUN "TY"
ENDIF
IF L = 4
RUN "TZ"
ENDIF
IF L < 4
DELAY P
ENDIF
NEXT
SCP
LET G = 0
LET K = 100
7 LET D = INA 3
LET N = INA 4
LET E = INA 5
LET S = INA 6
LET W = INA 7
LET Q = 70
LET M = K * Q
FOR T = 1 TO Q
LET D = D + INA 3
LET N = N + INA 4
LET E = E + INA 5
LET S = S + INA 6
LET W = W + INA 7
NEXT
LET D = D / M
LET N = N / M
LET E = E / M
LET S = S / M
LET W = W / M
RUN "AG"
PRINT "H", H
IF H > 0
LET K = K + 50
LET G = G + 1
PRINT "K", K
GOTO 7
ENDIF
AG H IS COUNTER FOR OVERFLOW
LET H = 0
IF D > 7
LET H = 1
ENDIF
IF N > 7
LET H = 1
ENDIF
IF E > 7
LET H = 1
ENDIF
IF S > 7
LET H = 1
ENDIF
IF W > 7
LET H = 1
ENDIF
TV
LET V = 100000 * U + 10000 * D + 1000 * N + 100 * E + 10 * S + W
RUN "FL"
TX
LET X = 10000 * D + 1000 * N + 100 * E + 10 * S + W
RUN "FL"
TY
LET Y = 100000 * G + 10000 * D + 1000 * N + 100 * E + 10 * S + W
RUN "FL"
TZ
LET Z = 10000 * D + 1000 * N + 100 * E + 10 * S + W
RUN "FL"
PD
DELAY P
PT
PRINT V
PRINT X
PRINT Y
PRINT Z
FL
OUT 19 0
OUT 19 1
DELAY 100
OUT 19 0
DELAY 100
OUT 19 1
DELAY 100
OUT 19 0