file$="Paddle" : '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 01gj00 9ega00 03e9gb 009e4e 54ffe2 48e780 087006 d4
2     DATA 42a451 c8fffc 42644c df1001 50ecff f343fa 02172c 780004 4eaefe 4b
3     DATA 682940 fffc67 000142 43fa02 0f7000 2c7800 044eae fe0e29 40fff8 de
4     DATA 670001 2c203c ga00f0 012400 2c6cff f84eae fffa29 40fff4 b48066 40
5     DATA 000112 48e7c0 c2203c ga0001 2a223c 000100 012c78 00044e aeff3a 58
6     DATA 2940ff ee6608 4cdf43 0360ga 00ec20 4020fc ga0001 2a2948 ffea41 00
7     DATA e80016 2948ff e641e8 001029 48ffe2 4cdf43 03246c ffe670 ff2c78 ba
8     DATA 00044e aefeb6 1940ff f37200 01c125 410008 256cff f80004 93c92c 9b
9     DATA 780004 4eaefe da2480 226cff ea137c 000200 08137c 000100 0941fa 3a
10    DATA 014223 48000a 41fa00 ee2348 001223 4a000e 70052c 780004 4eaeff 00
11    DATA 5850ec fff270 00122c fff303 c0720c 03c02c 780004 4eaefe c208ga 7e
12    DATA 000c66 527000 720074 00246c ffe610 2a000c 122a00 0d342a 000e41 31
13    DATA fa011a 3f023f 013f00 224f45 fa0028 266cff e22c78 00044e aefdf6 84
14    DATA 5c8f24 0b9e82 26072c 6cfffc 4eaeff c42200 670c4e aeffd0 609a16 63
15    DATA c02e0b 4e754a 2cfff2 670e22 6cffea 70052c 780004 4eaeff 527000 52
16    DATA 102cff f36b08 2c7800 044eae feb020 2cfff4 67082c 6cfff8 4eaeff b9
17    DATA f448e7 c0c220 2cffee 671022 402011 2c7800 044eae ff2e42 acffee 20
18    DATA 4cdf43 03202c fffc67 0e2240 2c7800 044eae fe6242 acfffc 70004e 3b
19    DATA 5c4e75 41f900 dff000 336800 14000c 302800 0c3200 e24902 41ga01 57
20    DATA b34032 000240 000302 410300 ec4980 013340 000e2a 690004 202900 74
21    DATA 082251 2c7800 044eae febc2c 4d7001 72014e aeffee 70004e 754d79 3e
22    DATA 5f5061 ga646c 655f49 6e7472 00646f 732e6c 696272 617279 00706f 36
23    DATA 74676f 2e7265 736f75 726365 002050 61ga64 6c6520 76616c 75653a 75
24    DATA 202533 2e3364 202533 2e3364 ga2046 697265 3a2025 30322e 32780d 22
25    DATA gb0003 f2d2
      DATA **