file$="SatPic" : 'v2.11
  OPEN file$ FOR OUTPUT AS #1
  lin=0 : a$=""
Loop:
  lin=lin+1
  READ x$ : IF x$="**" THEN Endeth
Beyond:
  i=INSTR(x$," ")
  IF i>0 THEN
    x$=LEFT$(x$,i-1)+MID$(x$,i+1)
    GOTO Beyond
  END IF
  x$=UCASE$(x$)
  cs$=RIGHT$(x$,2) : x$=LEFT$(x$,LEN(x$)-2)
  sum=0
  FOR i=1 TO LEN(x$)
    sum=sum+(ASC(MID$(x$,i,1)) XOR i)
  NEXT i
  IF (sum AND 255)<>VAL("&H"+cs$) THEN
    PRINT "Checksum error in line";lin
    GOTO Endeth
  END IF
  x$=a$+x$ : a$=""
  FOR i=1 TO LEN(x$) STEP 2
    IF MID$(x$,i,1) = "G" THEN
      IF MID$(x$,i+2)="" THEN a$=MID$(x$,i) : GOTO Loop
      y$=STRING$(ASC(MID$(x$,i+1,1))-63,VAL("&H"+MID$(x$,i+2,2)))
      i=i+2
    ELSE
      y$=CHR$(VAL("&H"+MID$(x$,i,2)))
    END IF
    PRINT #1,y$;
  NEXT i
  GOTO Loop

Endeth:
  CLOSE #1
  PRINT "Operation complete"
  END

1     DATA ga0003 f3gf00 03gf00 02ga00 0175gb 001age 0003e9 ga0001 754e54 f0
2     DATA ffd248 e78008 700a42 a451c8 fffc42 644cdf 100174 007000 101804 cf
3     DATA ga0030 65140c ga0039 620ed4 822202 d482d4 82d481 d48060 e243fa 74
4     DATA 055a2c 780004 4eaefe 682940 fffc67 000216 43fa05 572c78 00044e 42
5     DATA aefe68 2940ff f86700 ga0220 3cga00 4000b4 806502 200229 40ffec b4
6     DATA 7e6772 012c78 00044e aeff3a 2940ff e86700 01de20 402948 ffdc24 94
7     DATA 6cffec 598ad5 c87a00 780f76 132005 740f10 c0b1ca 641651 cafff8 c3
8     DATA 064000 1051cb ffee51 ccffe6 064500 1060dc 3e3c00 ca6100 028266 a4
9     DATA 00019e 700043 fa0470 45f9gc 002c78 00044e aeffb2 7e6820 4a2c6c ba
10    DATA fff84e aeff3a 2940ff e46700 017624 4041ea 002c43 fa047c 70102c f0
11    DATA 6cfffc 4eaeff 407e6a 700043 fa044c 45f9gb 00202c 780004 4eaeff 5f
12    DATA b2204a 216cff e4001e 2c6cff f84eae ff3429 40ffe0 670001 34297c 45
13    DATA 000140 00ffd4 7e7f61 000268 660001 226100 01886b 000118 67f64a 05
14    DATA 006bf2 45fa00 20141a 67eab0 026704 568a60 f4141a 6708c4 016604 90
15    DATA 548a60 e87400 d4d24e d245ga 00ec22 ga00d8 4f0300 524e03 00482d 9f
16    DATA 03009c 2f0300 a02e03 00ba2d 30009e 2f3000 9e4c03 005c4d 030064 1a
17    DATA 4c3000 964d30 00924c ga0050 4dga00 584fga 00204e ga0016 2dga00 f3
18    DATA 522fga 00522e ga007c 40ga00 22ga00 741f52 826004 74e153 82222c af
19    DATA ffdcd2 82b2ac ffe864 04222c ffe829 41ffdc 610002 ba6b74 6700ff e4
20    DATA 546000 ff5e34 3cd940 044201 4048c2 60d234 3c26c0 064201 4060c8 38
21    DATA 74c060 027440 222cff d4d282 6a0272 002941 ffd460 c6343c fd0048 45
22    DATA c260e8 343c03 0060e2 74ff60 de7401 60da29 6cffe8 ffdc29 7c0001 fb
23    DATA 4000ff d460a0 297c00 028000 ffd460 96617a 6bga0c ga00a2 66f661 4a
24    DATA 0001ca 60867e 006100 01aa20 2cffe8 670e22 40202c ffec2c 780004 d5
25    DATA 4eaeff 2e202c ffe067 0a2040 2c6cff f84eae ffb820 2cffe4 670a20 94
26    DATA 402c6c fff84e aeffbe 61ga00 f6202c fff867 0e2240 2c7800 044eae 00
27    DATA fe6242 acfff8 202cff fc670e 22402c 780004 4eaefe 6242ac fffc20 51
28    DATA 074e5c 4e7548 e730e0 206cff e02468 005614 2a000f 700005 c008c0 fb
29    DATA 000c2c 780004 4eaefe c20500 674620 6cffe0 246800 56204a 4eaefe 27
30    DATA 8c4a80 673822 407400 76000c a9ga00 04ga00 146608 342900 183629 ce
31    DATA 001a4e aefe86 204a4e aefe8c 4a8067 082240 4eaefe 8660ee 220320 88
32    DATA 026006 70ff60 027000 4cdf07 0c4e75 203c3b 9aca00 240072 012c78 4e
33    DATA 00044e aeff3a 4a8067 082240 20024e aeff2e 43fa02 577000 4eaefe 25
34    DATA 0e2940 fff467 1e7002 43fa02 1e2c6c fff44e aefffa 4a8066 0c50ec 44
35    DATA ffd313 c000bf e3014e 757001 4e754a 2cffd3 670a70 022c6c fff44e 75
36    DATA aefff4 4e7543 fa0221 2c7800 044eae fe0e29 40fff0 2c7800 044eae 0c
37    DATA ff8843 f9gb00 50137c 000200 0841fa 01c823 48000a 41fa00 522348 8b
38    DATA 001270 002c6c fff04e aefffa 240066 1c7001 4eaeff ee7001 4eaeff 91
39    DATA e82c78 00044e aeff82 50ecff d27000 4e752c 780004 4eaeff 8270ff 26
40    DATA 4e754a 2cffd2 671070 0043f9 gb0050 2c6cff f04eae fff44e 752c78 9d
41    DATA 00044e aeff88 13fc00 4400bf d40013 fcgb00 bfd5ga 003900 0100bf ed
42    DATA de0041 f900bf e10122 6cffe8 2949ff dc297c 000140 00ffd4 45f900 ee
43    DATA bfdd00 242cff ec323c 008076 077e00 0812ga 00670a 33fc0f ga00df 0d
44    DATA f18060 060812 ga0067 fa7000 ga1090 416a02 4440de 4051cb ffece4 33
45    DATA 4f12c7 538266 ce4eae ff824e 7542ac ffd820 6cffe0 206800 561e28 a5
46    DATA 000f2c 780004 246cff e445ea 005424 6a0004 4bea00 084cd5 0f002a 13
47    DATA 6cffdc ga3c01 ff4846 ga3c00 137a0f 181dea 14e350 e214e3 51e214 32
48    DATA e352e2 14e353 51cdff ec30c0 32c134 c236c3 51ceff de7000 720048 58
49    DATA e700c0 4eaefe ce4cdf 03000f 00670a 6100fd ba6b22 4a006a 1e2a6c 7e
50    DATA ffdc20 2cffd4 222cff d8d280 2941ff d8e081 dbc148 4651ce ff9e70 d3
51    DATA 004e75 900401 409006 020090 080004 900aga ff900c 400490 0e010f 05
52    DATA ga0090 040140 900602 009008 gaff80 0aga00 040080 0ega00 190090 20
53    DATA 2e000f gc0001 110222 033304 440555 066607 770888 09990a aa0bbb 0a
54    DATA 0ccc0d dd0eee 0fff73 617400 677261 706869 63732e 6c6962 726172 dd
55    DATA 790069 6e7475 697469 6f6e2e 6c6962 726172 79006d 697363 2e7265 03
56    DATA 736f75 726365 006369 61622e 726573 6f7572 6365ga 004e71 ga0003 bd
57    DATA ecgb00 04gb00 01gb00 caga00 0108ga 0003ba ga0004 14ge00 03f2ga 2e
58    DATA 0003eb gb001a ga0003 f2ga00 03eage 0003f2 20
      DATA **