5  Anhang

 

5.1  RPL-Listing

 

Das Listing ist durch den Rechner formatiert,

22 Zeichen pro Zeile, Kommentar wird beim

Überspielen in den Rechner automatisch gelöscht.

 

               


%%HP: T(2)A(D)F(.);

DIR

  OFF.

    « PATH \-> P

      « -33 SF

BUFLEN DROP SRECV

DROP2 HOME PEIL

PARA 9 'K' STO 16

TX DROP 0 TX DROP P

EVAL OFF RESET

S.TST 1 MENU

      »

    »

  DIS

    DIR

      EXIT

                « UPDIR

                »

      QSOSHELL

                « 0 1 0 0 1

0 1 1 1 0 REPIC

PWPIC SZPIC FQPIC \->

tx weiter key w1 a1

w2 a2 neu ch am

repic pwpic szpic

fqpic

                  « 22 TX

DROP 18 TX DROP

UPDIR PARA K 'ch'

STO UPDIR DIS 52 TX

DROP ERASE { # 0d

# 0d } PVIEW PICT {

# 0d # 49d } OPIC3

REPL PICT { # 107d

# 5d } "CH: " 1

\->GROB REPL PICT {

# 117d # 1d } ch

\->STR 3 \->GROB REPL

PICT { # 108d # 15d

} "FM" 3 \->GROB REPL

PICT { # 108d # 25d

} "DTMF" 3 \->GROB

REPL PICT { # 108d

# 15d }

                    IF ch

16 < ch 3 > AND am

AND

                    THEN

"AM"

                    ELSE

"FM"

                    END 3

\->GROB REPL PICT {

# 108d # 35d } "RX"

3 \->GROB REPL

                    WHILE

weiter

                    REPEAT

                      IF tx

                      THEN

38 TX .32941 * 42 -

'w1' STO 39 TX

.32941 * 42 - 'w2'

STO

IF w1 a1 - ABS 1 >

neu OR

THEN PICT { # 1d

# 1d } pwpic REPL

31 w1 SIN * 31 w1

COS * R\->C (27,24) +

(27,24) LINE w1

'a1' STO

END

IF w2 a2 - ABS 1 >

neu OR

THEN PICT { # 54d

# 1d } repic REPL

31 w2 SIN * 31 w2

COS * R\->C (80,24) +

(80,24) LINE w2

'a2' STO 0 'neu'

STO

END

                      ELSE

37 TX .32941 * 42 -

'w1' STO 41 TX

.32941 * 42 - 'w2'

STO

IF w1 a1 - ABS 1 >

neu OR

THEN PICT { # 1d

# 1d } szpic REPL

31 w1 SIN * 31 w1

COS * R\->C (27,24) +

(27,24) LINE w1

'a1' STO

END

IF w2 a2 - ABS 1 >

neu OR

THEN PICT { # 54d

# 1d } fqpic REPL

31 w2 SIN * 31 w2

COS * R\->C (80,24) +

(80,24) LINE w2

'a2' STO 0 'neu'

STO

END

                      END

.01 WAIT

                      IF

KEY

                      THEN

{ 21 22 23 24 25 26

11 12 13 14 15 16

51 92 93 94 95 82

83 84 85 72 73 74

75 62 63 64 65 }

SWAP POS 'key' STO

IF key

THEN {

  « 0 'weiter' STO

  »

  « 28 TX DROP 1

'tx' STO 1 'neu'

STO

  »

  « 17 TX DROP 0

'tx' STO 1 'neu'

STO

  »

  « UPDIR PARA K 1

+

    IF DUP 80 >

    THEN DROP 1

    END DUP 'ch'

STO CHE UPDIR DIS

  »

  « UPDIR PARA K 1

-

    IF DUP 1 <

    THEN DROP 80

    END DUP 'ch'

STO CHE UPDIR DIS

  »

  « 25 TX DROP 17

TX DROP PICT {

# 108d # 15d }

    IF ch 16 < ch 3

> AND

    THEN am NOT

'am' STO

      IF am

      THEN "AM"

      ELSE "FM"

      END

    ELSE "FM"

    END 3 \->GROB

REPL

  »

  « PICT

    IF 17 LES.IO 7

GET

    THEN 18 TX DROP

" STB " 1 \->GROB NEG

{ # 1d # 50d }

    ELSE 19 TX DROP

"STB-" 1 \->GROB NEG

{ # 4d # 50d }

    END SWAP REPL

  »

  « PICT

    IF 17 LES.IO 6

GET

    THEN 20 TX DROP

" ATT " 1 \->GROB NEG

{ # 22d # 50d }

    ELSE 21 TX DROP

"ATT-" 1 \->GROB NEG

{ # 25d # 50d }

    END SWAP REPL

  »

  « PICT { # 108d

# 25d } "MIC " 3

\->GROB REPL 53 TX

DROP

  »

  « PICT { # 108d

# 25d } "DTMF" 3

\->GROB REPL 52 TX

DROP

  »

  « CLLCD

"gib Kanal ein

danach ENTER"

{ ":CH:" { 1 5 } V

} INPUT OBJ\-> DTAG

DUP 'ch' STO CHE {

# 0d # 0d } PVIEW

PICT { # 117d # 1d

} ch \->STR " " + 3

\->GROB REPL

  »

  « CLLCD TEXT

"Hardwareanweisung:"

{ ":TX:" { 1 5 } V

} INPUT OBJ\-> DTAG

TX CLLCD "ANTWORT:"

SWAP + 3 DISP 2

WAIT 1 'neu' STO {

# 0d # 0d } PVIEW

  »

  «

    IF tx

    THEN 17 TX DROP

0 'tx' STO

    ELSE 28 TX DROP

1 'tx' STO

    END 1 'neu' STO

  »

  « 28 TX DROP .5

WAIT 64 TX DROP 17

TX DROP

  »

  « 28 TX DROP .5

WAIT 76 TX DROP 17

TX DROP

  »

  « 28 TX DROP .5

WAIT 77 TX DROP 17

TX DROP

  »

  « 28 TX DROP .5

WAIT 78 TX DROP 17

TX DROP

  »

  « 28 TX DROP .5

WAIT 65 TX DROP 17

TX DROP

  »

  « 28 TX DROP .5

WAIT 66 TX DROP 17

TX DROP

  »

  « 28 TX DROP .5

WAIT 67 TX DROP 17

TX DROP

  »

  « 28 TX DROP .5

WAIT 79 TX DROP 17

TX DROP

  »

  « 28 TX DROP .5

WAIT 68 TX DROP 17

TX DROP

  »

  « 28 TX DROP .5

WAIT 69 TX DROP 17

TX DROP

  »

  « 28 TX DROP .5

WAIT 70 TX DROP 17

TX DROP

  »

  « 28 TX DROP .5

WAIT 74 TX DROP 17

TX DROP

  »

  « 28 TX DROP .5

WAIT 71 TX DROP 17

TX DROP

  »

  « 28 TX DROP .5

WAIT 72 TX DROP 17

TX DROP

  »

  « 28 TX DROP .5

WAIT 73 TX DROP 17

TX DROP

  »

  « 28 TX DROP .5

WAIT 75 TX DROP 17

TX DROP

  » } key GET EVAL

PICT { # 108d # 35d

}

  IF tx

  THEN "TX"

  ELSE "RX"

  END 3 \->GROB REPL

PICT { # 117d # 1d

} ch \->STR " " + 3

\->GROB REPL PICT {

# 108d # 15d }

  IF ch 16 < ch 3 >

AND am AND

  THEN "AM"

  ELSE "FM"

  END 3 \->GROB REPL

END

                      END

                    END

                  »

                »

      REPIC

GROB 51 45

FFFFFFFFFFFF7010000000000040100000000000401000E008300040100080002000401000E008300040100020002000401000E0083000401C00000000414018000FF70041401800F00870C140180C00008101401C9300000E014010400000001040103000000060401800000000804014000000000140120000000002401100000000044010000000000040100000000000401000000000004010000377000040100005110000401000037700004010000511000040100005710000401000000000004010000000000040100000000000401000000000004010000000000040100000000000401000000000004010000000000040100000700000401000088000004010000401000040100002020000401000020200004010000202000040100004010000401000088000004010000070000040FFFFFFFFFFFF70

      PWPIC

GROB 51 45

FFFFFFFFFFFF7010000000000040100000000000401000E008300040100080002000401000E008300040100020002000401000E0083000401C00000000414018000FF70041401800F00870C140180C00008101401C9300000E01401040000000104010300000006040180000000080401400000000014012000000000240110000000004401000000000004010000000000040100000000000401008BB8E6000401008AA82A000401008BAAE60004010088AD2A0004010088B8EA000401000000000004010000000000040100000000000401000000000004010000000000040100000000000401000000000004010000000000040100000700000401000088000004010000401000040100002020000401000020200004010000202000040100004010000401000088000004010000070000040FFFFFFFFFFFF70

      SZPIC

GROB 51 45

FFFFFFFFFFFF70100000000000401000007000004010083040E0004010080020A0004010083010E0004010002010800D4010083000E005501C00000008CD4018000FF70C55501800F00878CD40180C00008100401C9300000E0040104000000010401030000000604018000000008040140000000001401200000000024011000000000440100000000000401000000000004010000000000040100C0A2576004010020A652100401004EAE522004010080AA524004010060E252300401000000000004010000000000040100000000000401000000000004010000000000040100000000000401000000000004010000000000040100000700000401000088000004010000401000040100002020000401000020200004010000202000040100004010000401000088000004010000070000040FFFFFFFFFFFF70

      FQPIC

GROB 51 45

FFFFFFFFFFFF7010000000000040100000700000401000005000004010000050000040100000500000401000007000004010000000008040100000000080401E300FF700E3401000F008708040100C0000818040108300000E0040104000000010401030000000604018000000008040140000000001401200000000024011000000000440100000000000401000000000004010000000000040100C9188A100401004428DA20040100C528AA2004010044188A2004010048288A100401000000000004010000000000040100000000000401000000000004010000000000040100000000000401000000000004010000000000040100000700000401000088000004010000401000040100002020000401000020200004010000202000040100004010000401000088000004010000070000040FFFFFFFFFFFF70

      ZEICN

"GLEICH ==

UNGL \=/

GROESSER >

KLEINER <"

      HELP

                «

"Befehlsliste EXIT mit ENTER

 

00..15 Frei (Bustest)

 

DEZ HEX:

    1X = Stromversorgung

16  10 = Stromversorgung aus

17  11 = Stromversorgung ein

18  12 = STB AUS

19  13 = STB EIN

20  14 = Attenator AUS

21  15 = Attenator EIN

22  16 = Taktgenerator AUS

23  17 = Taktgenerator EIN

24  18 = Frei-1

25  19 = AM-FM Umschaltung

26  1A = Frei-2

27  1B = Frei-3

28  1C = TX-Tastung

29  1D = Frei-4

30  1E = Channal UP

31  1F = Channal DOWN

   

    2X = A/D-Wandler

32  20 = Versorgungsspannung ?

33  21 = Phasennsrung-1 ?

34  22 = Phasennsrung-2 ?

35  23 = Phasennsrung-3 ?

36  24 = Phasennsrung-4 ?

37  25 = S-Wert ?

38  26 = HF-Leistung ?

39  27 = Reflektierte Leistung ?

40  28 = Temperatur ?

41  29 = Frequenzablage ?

42  2A = A/D max TEST -> FF

43  2B = Frei-1

44  2C = Frei-2

45  2D = A/D min TEST -> 00

46  2E = Frei-3

47  2F = Frei-4

 

    3X = Modem RX

48  30 = Statusabfrage

49  31 = n\.Schstes Zeichen lesen

50  32 = L\Gnschen des FIFO's

51  33 = Frei

52  34 = Audio->DTMF

53  35 = Audio->Mic

54  36 = Audio->Systemlautspr.

55  37 = Audio->Sprachspeicher

56  38 = Antwortstest +32->BUS

57  39 = Frei

58  3A = Frei

59  3B = Frei

60  3C = Frei

61  3D = Frei

62  3E = Frei

63  3F = Frei

 

    4X = Modem TX

64  40 = DTMF TON 0

65  41 = DTMF TON 1

66  42 = DTMF TON 2

67  43 = DTMF TON 3

68  44 = DTMF TON 4

69  45 = DTMF TON 5

70  46 = DTMF TON 6

71  47 = DTMF TON 7

72  48 = DTMF TON 8

73  49 = DTMF TON 9

74  4A = DTMF TON *

75  4B = DTMF TON #

76  4C = DTMF TON A

77  4D = DTMF TON B

78  4E = DTMF TON C

79  4F = DTMF TON D

 

80..255 (50..FF) = Frei

"

TV

                »

      SHELL

                « 1 0 1 0 0

0 0 0 0 OPIC OPIC2

SPIC 0 0 0 (0,0) \->

weiter warm ch l fq

s t u0 u opic opic2

spic d w key pos

                  « { (1,1)

(131,64) X 0 (0,0)

FUNCTION Y } 'PPAR'

STO ERASE RESET {

# 0d # 0d } PVIEW

                    WHILE

weiter

                    REPEAT

                      IF

warm NOT

                      THEN

CLLCD TEXT

"gib Kanal ein

danach ENTER"

{ ":CH:" { 1 5 } V

} INPUT OBJ\-> DTAG

CHE PICT { # 0d

# 0d } opic REPL {

# 0d # 0d } PVIEW

18 TX DROP 20 TX

DROP 23 TX DROP 10

0

FOR i PICT { # 60d

# 50d }

"Warmlaufen: " i +

"sek " + 1 \->GROB

REPL .95 WAIT -1

STEP 1 'warm' STO

                      END

TIME 2 TRNC 'u' STO

DATE 2 TRNC 'd' STO

HOME PEIL FKT PEIL

'w' STO PICT {

# 60d # 50d }

"ANDERE MESSUNGEN"

1 \->GROB REPL HOME

PEIL PARA K 'ch'

STO HOME PEIL DIS

32 TX 10 / 'u0' STO

37 TX 's' STO 40 TX

.4328 ^ 2.9417 *

't' STO 41 TX 127.5

- 'fq' STO 1 s 255

/ - 24 * 2 + 'l'

STO PICT { # 0d

# 0d } opic2 REPL l

w SIN * l w COS *

R\->C (29,36) + 'pos'

STO PICT pos (-2,2)

+ C\->PX spic REPL

(29,36) pos LINE

pos PIXOFF PICT {

# 63d # 2d } 1 FIX

w "   " + "\<) :"

SWAP + 3 \->GROB REPL

PICT { # 63d # 14d

} STD "S :" s +

" u  " + 3 \->GROB

REPL PICT { # 60d

# 26d } 2 FIX "AM:"

d + " UM:" + u + 1

\->GROB REPL PICT {

# 60d # 32d } 1 FIX

"U-BAT: " u0 + "V"

+ 1 \->GROB REPL PICT

{ # 60d # 38d } 1

FIX "TEMP: " t +

" C" + 1 \->GROB REPL

PICT { # 60d # 44d

} "FQ: " fq + "U" +

STD " CH: " + ch +

"   " + 1 \->GROB

REPL .01 WAIT

                      IF

KEY

                      THEN

{ 11 12 13 14 15 16

} SWAP POS 'key'

STO

IF key

THEN {

  « OFF. 0 'warm'

STO

  »

  « 0 'weiter' STO

  »

  « HOME PEIL ANZ

G.S HOME PEIL DIS

OPIC PICT STO

  »

  « PICT

    IF 17 LES.IO 7

GET

    THEN 18 TX DROP

" STB " 1 \->GROB NEG

{ # 67d # 58d }

    ELSE 19 TX DROP

"STB-" 1 \->GROB NEG

{ # 69d # 58d }

    END SWAP REPL

  »

  « CLLCD

"gib Kanal ein

danach ENTER"

{ ":CH:" { 1 5 } V

} INPUT OBJ\-> DTAG

CHE

  »

  « QSOSHELL 0

'warm' STO

  » } key GET EVAL

{ # 0d # 0d } PVIEW

END

                      END

                    END

                  »

                »

      OPIC

GROB 131 64

FFF00000000EFF9FFFFFFFFFFFFFFFFF70FF3008FF3008FF90000000000000000040FF100700C100FF90000000000000000040F700E0000E00EF90000000000000000040F308100000308F90000000000000000040F104000000400F90000000000000000040F003000000810E90000000000000000040F08000FF10020E9000000000000000004070400E00E0040C900000000000000000403020810003080890000000000000000040101060000C0010900000000000000000400800100000102090000000000000000040040C00000060408FFFFFFFFFFFFFFFFF70040200EF0080408000000000000000004002010C10700180800000000000000000400101030081010180000000000000000040018080000202018000000000000000004080404000040402800000000000000000408040200008040280000000000000000040802010C700180280000000000000000040402800381028048000000000000000004040180C00602014800000000000000000404014020080401480000000000000000040201400000040188000000000000000004028048FFFF340288FFFFFFFFFFFFFFFFF70280280000280280000000000000000000028028229E2802800000000000000000000280282AA4280280000000000000000000028028AAB42802800000000000000000000280286BA42802800000000000000000000280282AA42802800000000000000000000280280000280280000000000000000000028048FFFF34028000000000000000000002014000000401800000000000000000000401402008040140000000000000000000040180C00602014000000000000000000004028003810280400000000000000000000802010C700180200000000000000000000804020000804020000000000000000000080404000040402000000000000000000000180800002020100000000000000000000010103008101010000000000000000000002010C1070018000000000000000000000040200EF00804000000000000000000000040C0000006040000000000000000000001800100000102010000000000000000000101060000C001010000000000000000000302081000308081000000000000000000070400E00E0040C10000000000000000000F08000FF10020E10000000000000000000F003000000810E10000000000000000000F104000000400F10000000000000000000F308100000308F10000000000000000000FF00E0000E00EF10000000000000000000FF100700C100FF10000000000000000000FF3008FF3008FF100000000000000000000000000000000000000000000000000000FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF70F111FD3AA87F44CCDF44E7FF4DFD7E4C70F5DDFDBBAD77757FD7F6D7F77DFDB57D70F511FD36BD7F644FDFE6E7F77CFDBD6D70F5DDFDBBAD7F577FDFD6D7F77DFDBE5D70F1DDFD3AAD7767CCD7E6E7FF4DFD756C70FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF70

      OPIC2

GROB 59 57

FFF00000000EFF10FF3008FF3008FF10FF100700C100FF10F700E0000E00EF10F308100000308F10F104000000400F10F003000000810E10F08000FF10020E1070400E00E0040C103020810003080810101060000C0010100800100000102010040C000000604000040200EF0080400002010C10700180000101030081010100018080000202010080404000040402008040200008040200802010C700180200402800381028040040180C0060201400401402008040140020140200804018002804010001402800280201830180280028028044028028002802802802802800280280290280280028028028028028002802804402802800280201830180280028040100014028002014020080401800401402008040140040180C00602014004028003810280400802010C700180200804020000804020080404000040402000180800002020100010103008101010002010C1070018000040200EF00804000040C0000006040001800100000102010101060000C001010302081000308081070400E00E0040C10F08000FF10020E10F003000000810E10F104000000400F10F308100000308F10FF00E0000E00EF10FF100700C100FF10FF3008FF3008FF100000000000000000

      OPIC3

GROB 131 15

FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF70F319FD732E7FEA9FDC8E26FE9AFD5B9970FDB5FDB67F7F4AEFDAD4A7FDEAFD555570FBB9FD367F7FAAEFDADA2678E8FD119570F7B5FDB67F7FEAEFDADEA7FDEAFD555570F9B9FDB67F7FEA9FDCDEA7FE9AFD555970FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF700000000000000000000000000000000000FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF70F8A2EDF8AF7F3BEFDFA8F791D5BDE74770FEA6FDFDAF7FBAEFDFAAF755D5A5D77270F8D6FDFDDF7F37FFDFA8F7555585444570FEA6FDFDAF7FBAEFDFAEF7559495D77770F8A6FDFDAF7FBAEFDF8EF791D5B5D77770FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF70

      OPIC4

GROB 51 45

FFFFFFFFFFFF70100000000000401000000000004010000000000040100000000000401000000000004010000000000040100000000000401000000000004010000FF70000401000F008700040100C0000810040108300000E0040104000000010401030000000604018000000008040140000000001401200000000024011000000000440100000000000401000000000004010000000000040100000000000401000000000004010000000000040100000000000401000000000004010000000000040100000000000401000000000004010000000000040100000000000401000000000004010000000000040100000000000401000000000004010000020000040100000200000401000002000004010000CF100004010000020000040100000200000401000000000004010000000000040FFFFFFFFFFFF70

      SPIC

GROB 5 5 00E0A0E000

      CST { EXIT

SHELL }

      PPAR { (1,1)

(131,64) X 0 (0,0)

FUNCTION Y }

    END

  REM

    DIR

      EXIT

                « UPDIR

                »

      REM

                « 1  \->

 W

                  « CLLCD 1

CHE 50 TX DROP 256

SRECV DROP2

                    WHILE W

                    REPEAT

"REMOTE-BETRIEB

 

STAND BY

 

"

2 DISP LES LES­T 2

\->LIST

                      IF {

12 1 } ==

                      THEN

"AKTIV" 4 DISP { 0

1 2 3 4 5 6 SEL 8

TON 10 11 QU P.R 14

15 } { 1 0 } D.TX

LES 1 + GET DUP

"PROGRAMM: " SWAP +

6 DISP EVAL { 0 1 }

D.TX

                      END

                    END

                  »

                »

      DTMF

                DIR

                  PPAR {

(-6.5,-3.1)

(6.5,3.2) X 0 (0,0)

FUNCTION Y }

                  EXIT

                    « UPDIR

                    »

                  MONI

                    « 1 ""

0 { "D" "1" "2" "3"

"4" "5" "6" "7" "8"

"9" "0" "*" "#" "A"

"B" "C" } \-> W S s Z

                      «

CLLCD

"DTMF-MONITOR:" 1

DISP 256 SRECV

DROP2

WHILE W

REPEAT LES Z SWAP 1

+ GET S SWAP + DUP

SIZE 's' STO 'S'

STO

  IF s 22 >

  THEN S s DUP 21 -

SWAP SUB 'S' STO

  END S 3 DISP

END

                      »

                    »

                  LG

                    « { 11

} D.TX 1 WAIT { 4 8

6 9 0 } D.TX 3 WAIT

{ 9 5 16 3 6 } D.TX

1 WAIT { 11 } D.TX

                    »

                  D.TEST

                    « 0 15

                      FOR n

n 1 \->LIST D.TX 2

WAIT

                      NEXT

                    »

                  D.TE2

                    « 9 CHE

52 TX DROP 25 TX

DROP 18 TX DROP 0

15

                      FOR i

64 i + TX DROP

                      NEXT

25 TX DROP 19 TX

DROP

                    »

                  CL.S

                    « CLLCD

"LOG IN" 4 DISP {

11 } D.TX 1 WAIT {

4 8 6 9 0 } D.TX 3

WAIT

"RES. LOG-COUNT" 4

DISP { 9 5 16 3 6 }

D.TX 1 WAIT { 8 7 }

D.TX "MASTER" 4

DISP 2 WAIT { 7 9 7

0 7 0 7 6 7 3 7 8 6

9 } D.TX

"SET CLOCK" 4 DISP

3 WAIT { 0 2 } D.TX

TIME 100 * 0 TRNC

TEIL DUP 1 2 SUB 11

+ SWAP 3 4 SUB + 11

+ { 16 16 16 16 1 }

+ D.TX "EXIT" 4

DISP 1 WAIT { 10 10

} D.TX { 11 } D.TX

                    »

                  MASTER

                    « { 11

} D.TX 1 WAIT { 4 8

6 9 0 } D.TX 3 WAIT

{ 9 5 16 3 6 } D.TX

1 WAIT { 8 7 } D.TX

2 WAIT { 7 9 7 0 7

0 7 6 7 3 7 8 6 9 }

D.TX 3 WAIT { 10 10

} D.TX { 11 } D.TX

                    »

                  CST {

EXIT MONI }

                END

      P.R

                « 1 0 0 \-> a

Z E

                  «

                    WHILE a

                    REPEAT

"KANAL: ??" 6 DISP

LES­T 'Z' STO

"KANAL: " Z + "?" +

6 DISP LES­T 'E'

STO "KANAL: " Z 10

* E + + 6 DISP

                      IF E

0 \>= Z 0 \>= AND Z 10

* E + 80 \<= AND Z E

+ 0 > AND

                      THEN

0 'a' STO

                      ELSE

{ 0 0 0 } D.TX

                      END

                    END Z

10 * E + QU UPDIR

CHE FKT PEIL 10 *

HOME PEIL PARA K.S

CHE CLLCD DUP 10 /

"   WINKEL: " SWAP

+ " " + 4 DISP HOME

PEIL REM TEIL D.TX

                  »

                »

      CST { EXIT

REM DTMF }

      D.TX

                « \-> TXLST

                  « 52 TX

DROP 28 TX DROP .5

WAIT 1 TXLST SIZE

                    FOR n

TXLST n GET 64 +

CHR XMIT DROP .08

WAIT

                    NEXT .1

WAIT 17 TX DROP 53

TX DROP 256 SRECV

DROP2

                  »

                »

      TEIL

                « { } \-> li

                  « 1 4

                    START

10 / DUP FP 10 *

'li' STO+ IP

                    NEXT

DROP li

                  »

                »

      SEL

                « { 0 4 6 1

6 3 0 0 8 } D.TX 1

WAIT { 11 11 11 11

11 16 16 16 16 16

11 11 11 11 11 16

16 16 16 16 11 11

11 11 11 } D.TX

                »

      QU

                « { 0 1 0 }

D.TX

                »

      LES

                «

                  WHILE 49

TX 16 - DUP 0 <

                  REPEAT

DROP .25 WAIT

                  END

                »

      LES­T

                « 0 \-> n

                  «

                    WHILE

49 TX 16 - DUP 0 <

'n' INCR 20 < AND

                    REPEAT

DROP .01 WAIT

                    END

                  »

                »

      PPAR {

(-6.5,-3.1)

(6.5,3.2) X 0 (0,0)

FUNCTION Y }

      TON

                « 54 TX

DROP 28 TX DROP .3

WAIT 1400 .05 BEEP

.09 WAIT 1400 .05

BEEP .05 WAIT 17 TX

DROP

                »

    END

  TIM

    DIR

      EXIT

                « UPDIR

                »

      AL15

                « DATE TIME

3 TRNC .001 + 'T.P'

15 491520 * 4 \->LIST

STOALARM OFF.

                »

      DEL.A

                « 1

                  IFERR

DELALARM

                  THEN DROP

"Der ALARM

ist bereits gelöscht!"

DOERR

                  END

                »

      NEU

                «

"Me°werte:

 

Winkel  Zeit    Tag     UB      S-WERT  Temp.

"

'TABELLE.TXT' STO

                »

      SEDA

                « -33 CF

'TABELLE.TXT' SEND

HOME PEIL PARA

'BOOTLOG.TXT' SEND

HOME PEIL TIM -33

SF

                »

      CST { EXIT

AL15 DEL.A NEU SEDA

}

      TABELLE.TXT

"Me°werte:

 

Winkel  Zeit    Tag     UB      S-WERT  Temp.

89.3°   13.00   5.05    13.3V   164     28.6°C

89.3°   20.57   5.07    13.3V   166     31.2°C

"

      T.P

                « 8 CHE 23

TX DROP CLLCD

"WARMLAUFEN" 2 DISP

10 0

                  FOR a

"Zeit: " a + "sek"

+ 4 DISP 1 WAIT -1

                  STEP "" 4

DISP 256 SRECV

DROP2 HOME PEIL FKT

PEIL DUP 1 FIX 5

DISP "°" + STD "                "

+ 2 FIX TIME + STD

"              " + DATE 2 TRNC +

"              " + 32 TX 10 / +

"V" + "   " + 37 TX +

"              " + 40 TX \-> X '

2.9417*X^.4328'

EVAL 1 FIX + STD

"°C" + "

" + HOME

PEIL TIM

TABELLE.TXT SWAP +

'TABELLE.TXT' STO

OFF.

                »

    END

  FKT

    DIR

      EXIT

                « UPDIR

                »

      PEIL

                « 23 TX

DROP CLLCD

"    PHASENMESSUNG:"

2 DISP PICT { # 60d

# 50d }

"PHASENMESSUNG:   "

1 \->GROB REPL 256

SRECV DROP2 { 0 0 0

0 } 1 5

                  START

MESS DUP 2 RND \->STR

DUP SIZE 2 - 3 SWAP

SUB 4 DISP NEG -

                  NEXT 5 /

DUP 2 RND 3 DISP

PICT { # 60d # 50d

}

"WINKELBESTIMMUNG:"

1 \->GROB REPL WBS

                »

      WBS

                « { 0 90

180 270 } 1 1 180 0

180 0 \-> Y.lst X.lst

abw\|^ abw\|v \Ga\|^ \Ga\|v \Gai

\Gau

                  « CLLCD

"   WINKELBESTIMMUNG"

4 DISP

                    WHILE

\Gai .005 >

                    REPEAT

\Ga\|^ X.lst ADD SIN

Y.lst - ABS \GSLIST

'abw\|^' STO \Ga\|v X.lst

ADD SIN Y.lst - ABS

\GSLIST 'abw\|v' STO

abw\|^ abw\|v < \Ga\|^ \Ga\|v

IFTE '\Gau' STO \Gai 2

/ '\Gai' STO \Gau \Gai +

'\Ga\|^' STO \Gau \Gai -

'\Ga\|v' STO

                    END \Gau

1 RND DUP

                    IF 0 <

                    THEN

360 +

                    END

                  »

                »

      MESS

                « 1 4

                  FOR n 32

n + TX 127 - 123 /

                    IF DUP

0 <

                    THEN

1.067 *

                    END

                  NEXT 4

\->LIST DUP \GSLIST 4 /

- DUP ABS \GSLIST / 2

*

                »

    END

  ANZ

    DIR

      EXIT

                « UPDIR

                »

      G.S

                « -1 0 0 {

# 0d # 0d } -15 100

0 0 0 1 \-> z J s pl

letzt sw durch x h

weiter

                  « 1 CHE {

# 0d # 0d } PVIEW

ERASE

                    WHILE

weiter

                    REPEAT

-15 'letzt' STO 36

'x' STO 0 'durch'

STO -1 'z' STO PICT

PICT { # 37d # 5d }

{ # 123d # 63d }

SUB ERASE { # 37d

# 5d } SWAP REPL {

# 29d # 0d } {

# 29d # 63d } LINE

{ # 20d # 0d } {

# 20d # 63d } LINE

0 1

                      FOR o

1 9

FOR p PICT { # 32d

} o 94 * R\->B ADD 65

p 6 * - R\->B + p

\->STR 1 \->GROB REPL

NEXT PICT { # 32d

# 5d } o 94 * R\->B {

# 0d } + ADD "+" 1

\->GROB REPL

                      NEXT

PICT x R\->B # 14d -

62 sw 4 / - R\->B 'h'

STO h # 2d - 2

\->LIST "S\->" 1 \->GROB

REPL PICT { # 0d

# 0d } "DATE:" 1

\->GROB REPL PICT {

# 0d # 6d } DATE 2

TRNC 2 FIX \->STR 1

\->GROB REPL PICT {

# 0d # 13d }

"TIME:" 1 \->GROB

REPL PICT { # 0d

# 19d } TIME 2 TRNC

\->STR STD 1 \->GROB

REPL PICT { # 0d

# 26d } "SWTC:" 1

\->GROB REPL PICT {

# 0d # 32d } sw

\->STR 1 \->GROB REPL 1

80

                      FOR u

PICT { # 0d # 39d }

"CHAN:" 1 \->GROB

REPL PICT { # 0d

# 45d } u \->STR 1

\->GROB REPL PICT {

# 0d # 52d } "S:" 1

\->GROB REPL PICT {

# 0d # 58d } s 1000

/ 3 FIX \->STR STD

TAIL TAIL 1 \->GROB

REPL

IF 'z' INCR 10 ==

THEN 0 'z' STO PICT

'x' INCR R\->B { # 5d

} + # 1d # 59d

BLANK REPL

END u CHE "%" XMIT

SRECV DROP NUM 's'

STO PICT 'x' INCR

R\->B { # 5d } + # 1d

# 59d BLANK REPL x

R\->B 'J' STO J {

# 63d } + DUP {

# 0d } s 4 / R\->B +

- DUP 'pl' STO LINE

x R\->B # 1d + h 2

\->LIST PIXON

IF s sw \>=

THEN 'durch' INCR

DROP

  IF u letzt 7 + >

  THEN PICT J {

# 0d } + u "" + 1

\->GROB REPL u

'letzt' STO

  END

END

IF KEY

THEN 0 'weiter' STO

80 'u' STO

END

                      NEXT

durch

                      CASE

DUP 3 <

THEN 'sw' -10 STO+

END 3 >

THEN 'sw' 10 STO+

END

                      END

                    END

DROP2

                  »

                »

      G.S2

                « -1 0 0 {

# 0d # 0d } -15 100

0 0 0 \-> z J s pl

letzt sw durch x h

                  « 1 CHE {

# 0d # 0d } PVIEW

ERASE 1 20

                    START

-15 'letzt' STO 36

'x' STO 0 'durch'

STO -1 'z' STO PICT

PICT { # 37d # 5d }

{ # 123d # 63d }

SUB ERASE { # 37d

# 5d } SWAP REPL {

# 29d # 0d } {

# 29d # 63d } LINE

{ # 20d # 0d } {

# 20d # 63d } LINE

0 1

                      FOR o

1 9

FOR p PICT { # 32d

} o 94 * R\->B ADD 65

p 6 * - R\->B + p

\->STR 1 \->GROB REPL

NEXT PICT { # 32d

# 5d } o 94 * R\->B {

# 0d } + ADD "+" 1

\->GROB REPL

                      NEXT

PICT x R\->B # 14d -

62 sw 4 / - R\->B 'h'

STO h # 2d - 2

\->LIST "S\->" 1 \->GROB

REPL PICT { # 0d

# 0d } "DATE:" 1

\->GROB REPL PICT {

# 0d # 6d } DATE 2

TRNC 2 FIX \->STR 1

\->GROB REPL PICT {

# 0d # 13d }

"TIME:" 1 \->GROB

REPL PICT { # 0d

# 19d } TIME 2 TRNC

\->STR STD 1 \->GROB

REPL PICT { # 0d

# 26d } "SWTC:" 1

\->GROB REPL PICT {

# 0d # 32d } sw

\->STR 1 \->GROB REPL 1

80

                      FOR u

PICT { # 0d # 39d }

"CHAN:" 1 \->GROB

REPL PICT { # 0d

# 45d } u \->STR 1

\->GROB REPL PICT {

# 0d # 52d } "S:" 1

\->GROB REPL PICT {

# 0d # 58d } s 1000

/ 3 FIX \->STR STD

TAIL TAIL 1 \->GROB

REPL

IF 'z' INCR 10 ==

THEN 0 'z' STO PICT

'x' INCR R\->B { # 5d

} + # 1d # 59d

BLANK REPL

END u CHE "%" XMIT

SRECV DROP NUM 's'

STO PICT 'x' INCR

R\->B { # 5d } + # 1d

# 59d BLANK REPL x

R\->B 'J' STO J {

# 63d } + DUP {

# 0d } s 4 / R\->B +

- DUP 'pl' STO LINE

x R\->B # 1d + h 2

\->LIST PIXON

IF s sw \>=

THEN 'durch' INCR

DROP

  IF u letzt 7 + >

  THEN PICT J {

# 0d } + u "" + 1

\->GROB REPL u

'letzt' STO

  END

END

                      NEXT

durch

                      CASE

DUP 3 <

THEN 'sw' -10 STO+

END 3 >

THEN 'sw' 10 STO+

END

                      END

                    NEXT

                  »

                »

      MESS.

                « BUFLEN

DROP SRECV DROP

CLLCD

" A1   A2   A3   A4"

2 DISP 1 1000

                  START " "

1 4

                    FOR n n

32 + TX 127 - " " +

+

                    NEXT 4

DISP

                  NEXT

                »

      MES2

                « BUFLEN

DROP SRECV DROP

CLLCD 1 1000

                  START

"S  : " 37 TX \-> X

                    «

                      IF X

153 <

                      THEN

.355 X *

                      ELSE

.3998 X * 55.991 -

                      END

                      IF

DUP 9 >

                      THEN

9 - 6 * 0 RND "9+"

SWAP + "dB" +

                      ELSE

1 FIX

                      END

                    » + STD

"

UB : " + 32 TX 10

/ + "V

HF : " + 38

TX + "

REF: " + 39

TX + "

TMP: " + 40

TX \-> X '2.9417*X^

.4328' EVAL 1 FIX +

"

" + STD "FQ : "

+ 41 TX 127 - 10 /

1 FIX + STD 1 DISP

                  NEXT

                »

      MES3

                « 8 CHE 1

1000

                  START 1 4

                    FOR n 0

32 n + TX 132 -

                    NEXT 0

{ 9 1 } \->ARRY

'\GSDAT' STO BARPLOT

                  NEXT

                »

      CST { EXIT

G.S MESS. MES2 MES3

}

      \GSPAR { 1 2 0

0 LINFIT }

      \GSDAT

[[ 0 ]

 [ -75 ]

 [ 0 ]

 [ -109 ]

 [ 0 ]

 [ -109 ]

 [ 0 ]

 [ -80 ]

 [ 0 ]]

      S.TAB { 95.8

102.7 27 22 98 74.8

75.8 120.3 23.8

61.2 138.7 68.3

57.8 81.3 32.7 18.3

62.7 21.3 15 2 2 2

46.5 93.8 152.5

154.8 61.5 95.5

63.7 109.5 103 97.8

2.3 47.8 6.5 15.5

129.7 88.3 65.8

97.8 2 2 22.3 2 2

5.2 98.5 41 2 2 2 2

2 42.7 73.5 69.5

67.5 67.8 55 2 2 2

2 2 2 2 2 2 2 130.8

2 15.8 20 2 2 2 2 2

2 2 }

      PPAR {

(0,-125.35) (9,0) X

0 (0,0) BAR Y }

      SPEC

                « { } \->

s.li

                  « 1 80

                    FOR c c

CHE .2 WAIT "%"

XMIT SRECV DROP NUM

DUP 6 DISP 1 RND

's.li' STO+

                    NEXT

s.li REVLIST

                  »

                »

      S.WERT

                « CLLCD

"KANAL : " K + 3

DISP 1 1000

                  START

"S-WERT: " "%" XMIT

SRECV DROP NUM + 5

DISP

                  NEXT

                »

    END

  FUNK

    DIR

      EXIT

                « UPDIR

                »

      SEND.

                « " " XMIT

DROP "SENDEN

" 1

DISP 1 FREEZE

                »

      EMPF.

                « " " XMIT

DROP

                »

      UP

                « UPDIR

PARA K 1 +

                  IF DUP 80

>

                  THEN 80 -

                  END CHE

UPDIR FUNK

                »

      DOWN

                « UPDIR

PARA K 1 -

                  IF DUP 1

<

                  THEN 80 +

                  END CHE

UPDIR FUNK

                »

      A­FM

                « 25 TX

DROP 17 TX DROP

                »

      STB.1

                « 19 TX

DROP

                »

      STB.0

                « 18 TX

DROP

                »

      ATT.1

                « 21 TX

DROP

                »

      ATT.0

                « 20 TX

DROP

                »

      MIC

                « 53 TX

DROP 22 TX DROP 18

TX DROP 20 TX DROP

                »

    END

  IO

    DIR

      EXIT

                « UPDIR

                »

      ZEICHEN

"\GS SUMME

\->  PFEIL

== VERGLEICH

« » PRORGAMMPFEILE

<  KLEINER ALS

>  GROESSER ALS

\<=  KLEINER GLEICH

\>=  GROESSER GLEICH

Ö OE

ö oe

Ä AE

ä ae

Ü UE

ü ue

\<) WINKEL

µ MUE

\Gw OMEGA KLEIN

\GW OHM

° SZ"

      HELP

                «

"Befehlsliste EXIT mit ENTER

 

00..15 Frei (Bustest)

 

DEZ HEX:

    1X = Stromversorgung

16  10 = Stromversorgung aus

17  11 = Stromversorgung ein

18  12 = STB AUS

19  13 = STB EIN

20  14 = Attenator AUS

21  15 = Attenator EIN

22  16 = Taktgenerator AUS

23  17 = Taktgenerator EIN

24  18 = Frei-1

25  19 = AM-FM Umschaltung

26  1A = Frei-2

27  1B = Frei-3

28  1C = TX-Tastung

29  1D = Frei-4

30  1E = Channal UP

31  1F = Channal DOWN

   

    2X = A/D-Wandler

32  20 = Versorgungsspannung ?

33  21 = Phasennsrung-1 ?

34  22 = Phasennsrung-2 ?

35  23 = Phasennsrung-3 ?

36  24 = Phasennsrung-4 ?

37  25 = S-Wert ?

38  26 = HF-Leistung ?

39  27 = Reflektierte Leistung ?

40  28 = Temperatur ?

41  29 = Frequenzablage ?

42  2A = A/D max TEST -> FF

43  2B = Frei-1

44  2C = Frei-2

45  2D = A/D min TEST -> 00

46  2E = Frei-3

47  2F = Frei-4

 

    3X = Modem RX

48  30 = Statusabfrage

49  31 = n\.Schstes Zeichen lesen

50  32 = L\Gnschen des FIFO's

51  33 = Frei

52  34 = Audio->DTMF

53  35 = Audio->Mic

54  36 = Audio->Systemlautspr.

55  37 = Audio->Sprachspeicher

56  38 = Antwortstest +32->BUS

57  39 = Frei

58  3A = Frei

59  3B = Frei

60  3C = Frei

61  3D = Frei

62  3E = Frei

63  3F = Frei

 

    4X = Modem TX

64  40 = DTMF TON 0

65  41 = DTMF TON 1

66  42 = DTMF TON 2

67  43 = DTMF TON 3

68  44 = DTMF TON 4

69  45 = DTMF TON 5

70  46 = DTMF TON 6

71  47 = DTMF TON 7

72  48 = DTMF TON 8

73  49 = DTMF TON 9

74  4A = DTMF TON *

75  4B = DTMF TON #

76  4C = DTMF TON A

77  4D = DTMF TON B

78  4E = DTMF TON C

79  4F = DTMF TON D

 

80..255 (50..FF) = Frei

"

TV

                »

      BACK

                « -33 CF

HOME 'PEIL' SEND

-33 SF

                »

      P.DIS

                « -33 CF

-34 SF PICT RCL PR1

DROP

                »

      ABGL

                « 1 500

                  FOR i 0

CHR XMIT DROP

                  NEXT

                »

      C80D

                « 1 80

                  START ""

XMIT DROP .015 WAIT

                  NEXT 260

SRECV DROP2

                »

      C80U

                « 1 80

                  START "-"

XMIT DROP .015 WAIT

                  NEXT 260

SRECV DROP2

                »

      IO.Z

                « 1 255

                  FOR i i

CHR XMIT DROP

                  NEXT

                »

      RX

                « 256 SRECV

DROP

                »

      PPAR {

(-6.5,-3.1)

(6.5,3.2) X 0 (0,0)

FUNCTION Y }

    END

  PARA

    DIR

      K 9

      K.S 1

      BOOTLOG.TXT

"

*****SELBST-TEST******

FRI 05/31/96 10:18:35A

ERRORS: NON

*********END**********

 

*****SELBST-TEST******

FRI 05/31/96 05:01:49P

ERRORS:

HF-PWR

*********END**********

 

*****SELBST-TEST******

TUE 06/04/96 10:16:06A

ERRORS: NON

*********END**********

 

*****SELBST-TEST******

TUE 06/04/96 12:03:46P

ERRORS: NON

*********END**********

 

*****SELBST-TEST******

TUE 06/04/96 02:42:48P

ERRORS:

*****SELBST-TEST******

WED 06/05/96 09:24:57A

ERRORS:

*****SELBST-TEST******

WED 06/05/96 09:25:31A

ERRORS: NON

*********END**********

"

    END

  RESET

    « 16 TX DROP

PATH \-> P

      « CLLCD TEXT

HOME PEIL PARA

"        RESET " 4

DISP 3.5 WAIT 9 'K'

STO 19 TX 17 TX

DROP2 25 TX DROP 22

TX DROP 50 TX DROP

53 TX DROP  K.S

CHE 0 TX 256 SRECV

CLEAR P EVAL

      »

    »

  TX

    « \-> x

      « x CHR XMIT

DROP 1 SRECV

                IF

                THEN NUM

                ELSE DROP x

ERHAND

                END

      »

    »

  CHE

    « 0 PATH \-> z k

pa

      « HOME PEIL

PARA K 'k' STO

CLLCD

"       Kanal:" z +

4 DISP

                IF z 80 > z

1 < OR

                THEN

"  Eingaben ch: 1..80!"

1 DISP 1000 .5 BEEP

1 WAIT k 'z' STO

                END

                CASE z k <

                  THEN

                    IF k z

- 40 <

                    THEN 1

k z -

                      START

"" XMIT DROP .015

WAIT

                      NEXT

                    ELSE 1

80 k - z +

                      START

"-" XMIT DROP .015

WAIT

                      NEXT

                    END

                  END z k >

                  THEN

                    IF z k

- 40 <

                    THEN 1

z k -

                      START

"-" XMIT DROP .015

WAIT

                      NEXT

                    ELSE 1

80 z - k +

                      START

"" XMIT DROP .015

WAIT

                      NEXT

                    END

                  END

                END BUFLEN

DROP SRECV DROP2 z

'K' STO pa EVAL

      »

    »

  S.TST

    «

      « \-> ja txt

rol

                « 256 SRECV

DROP2

                  IF ja

                  THEN txt

" : OK" + 5 .1

                  ELSE 1 SF

txt " : FAILED!" +

1400 .2 BOOTLOG.TXT

txt DUP "

" POS txt

SIZE SUB +

'BOOTLOG.TXT' STO

                  END BEEP

+ 'txt' STO

                  IF rol

                  THEN txt

DUP "

" POS 1 + txt

SIZE SUB

                  ELSE txt

                  END DUP 1

DISP

                »

      »

      « \-> sen info

s

                « sen

LES.IO info GET s

==

                »

      » "" PATH \->

anz test str path

      «

"ANFANG DES HAUPTPRG."

DROP CLLCD HOME

PEIL PARA 1 CF

"SELBST-TEST:" DUP

1 DISP BOOTLOG.TXT

"

*****SELBST-TEST******

"

+ DATE TIME TSTR +

"

ERRORS: " +

'BOOTLOG.TXT' STO

17 8 1 test EVAL

"

+12V   " 0 anz

EVAL 17 3 1 test

EVAL "

+5V    " 0

anz EVAL 17 1 1

test EVAL

"

-6V    " 0 anz

EVAL 18 7 0 test

EVAL "

STB OFF" 0

anz EVAL 19 7 1

test EVAL

"

STB ON " 0 anz

EVAL 20 6 0 test

EVAL "

ATT OFF" 0

anz EVAL 21 6 1

test EVAL

"

ATT ON " 1 anz

EVAL 20 TX DROP 22

5 0 test EVAL

"

TKT OFF" 1 anz

EVAL 23 5 1 test

EVAL "

TKT ON " 1

anz EVAL 28 4 1

test EVAL

"

TX  SW " 1 anz

EVAL 17 TX DROP .5

WAIT 42 TX 255 ==

"

A/D-MAX" 1 anz

EVAL 45 TX 0 ==

"

A/D-MIN" 1 anz

EVAL 38 TX 3 <

"

HF-DET " 1 anz

EVAL 39 TX 3 <

"

REV-DET" 1 anz

EVAL 22 TX DROP 28

TX DROP .4 WAIT 38

TX 225 > "

HF-PWR "

1 anz EVAL 39 TX

120 < "

SWR-ANT" 1

anz EVAL 50 TX DUP

16 < SWAP 32 + 56

TX == AND

"

DTMF-IO" 1 anz

EVAL 17 TX DROP 2

WAIT DROP CLLCD

BOOTLOG.TXT

                IF 1 FC?

                THEN

"      SYSTEM OK" 4

DISP "NON" + 1000

.05 BEEP 1500 .05

BEEP 1 WAIT

                ELSE

"     TEST FALSE" 4

DISP 100 1 BEEP 2

WAIT

                END

"

*********END**********

"

+ 'BOOTLOG.TXT' STO

1 CF path EVAL

      »

    »

  LES.IO

    «

[ 0 0 0 0 0 0 0 0 ]

9 0 \-> ST AR P z

      « ST TX

                WHILE DUP

                REPEAT 2 /

DUP FP CEIL AR SWAP

'P' DECR SWAP PUT

'AR' STO IP

                END DROP AR

      »

    »

  ERHAND

    « \-> x

      « -33 SF .5

WAIT x CHR XMIT

DROP 1 SRECV

                IF

                THEN NUM

                ELSE DROP

CLLCD

" IO antwortet nicht!"

4 DISP 100 1 BEEP 1

WAIT OFF x TX

                END

      »

    »

  CST { OFF. DIS

REM TIM }

  IOPAR { 9600 0 0

0 3 3 }

END