file$="fix" : '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 6cga00 03e9gb 006c4e 54ffec 42acff fc42ac 0f
2     DATA fff842 acfff4 42acff f042ac ffec29 48fff8 423008 ff48e7 c0c220 99
3     DATA 3cga00 100422 3c0001 00012c 780004 4eaeff 3a2940 fff066 084cdf e3
4     DATA 430360 ga00c4 204020 fcga00 100429 48ffec 4cdf43 0343fa 01242c 94
5     DATA 780004 4eaefe 682940 fffc67 ga00a0 222cff f8243c ga0003 ed2c6c 01
6     DATA fffc4e aeffe2 2940ff f4676e 7e007c 0045fa 01002a 077000 720008 26
7     DATA c1000c 2c7800 044eae fece08 ga000c 664e61 ga00aa 656012 1a6706 5a
8     DATA b00167 dc60d4 222cff f42405 76ff2c 6cfffc 4eaeff be4a80 6b2a41 df
9     DATA fa00d3 222cff f42408 760a4e aeffd0 222cff f42405 2e0576 ff2c6c 64
10    DATA fffc4e aeffbe 4a806b 047c00 60962c 6cfffc 4eaeff c42200 670c41 88
11    DATA fa00a8 240876 064eae ffd022 2cfff4 67082c 6cfffc 4eaeff dc202c 45
12    DATA fffc67 0e2240 2c7800 044eae fe6242 acfffc 48e7c0 c2202c fff067 3b
13    DATA 102240 20112c 780004 4eaeff 2e42ac fff04c df4303 70004e 5c4e75 e8
14    DATA 4a8666 ga222c fff424 2cffec 2a4226 3cga00 10002c 6cfffc 4eaeff f0
15    DATA d62c00 6e0600 3c0001 4e7553 865287 101d4e 75646f 732e6c 696272 72
16    DATA 617279 007472 616e73 6c6174 6f722e 6c6962 726172 790066 69ga6e e5
17    DATA 736c61 746f72 0065ga 726f72 0aga00 4e71ga 0003f2 45
      DATA **