/
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