file$="YADA" : '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 02gf00 01ga00 0175gb 0042ga 0003e9 ga0001 754e54 a4
2     DATA ffca48 e78008 700c42 a451c8 fffc42 644cdf 100170 1e43fa 05442c 4e
3     DATA 780004 4eaefd d82940 fffc67 ga009a 48e7c0 c2203c ga00ga 04223c 18
4     DATA 000100 012c78 00044e aeff3a 2940ff ce6606 4cdf43 036074 204020 4d
5     DATA fcga00 ga0429 48ffca 4cdf43 032c6c fffc4e aeffca 2940ff ec6756 07
6     DATA 7e6461 ga00ae 664e7e 656100 011866 467e66 243cga 004e20 2c7800 fc
7     DATA 044eae ff7c22 3c0002 00014e aeff28 9082b0 826d0e 2940ff dc7201 3e
8     DATA 4eaeff 3a2940 ffe04e aeff76 4aacff e0670e 397c27 10ffd4 610001 70
9     DATA 3c6100 014808 b90001 00bfe0 0161ga 00a061 000110 202cff e0670e 8c
10    DATA 224020 2cffdc 2c7800 044eae ff2e48 e7c0c2 202cff ce6710 224020 3a
11    DATA 112c78 00044e aeff2e 42acff ce4cdf 430320 2cfffc 670e22 402c78 1c
12    DATA 00044e aefe62 42acff fc2007 4e5c4e 757022 91c861 0004a8 2940ff e0
13    DATA e4673c 704461 000490 2940ff e86730 224041 fa042c 700072 00137c 7b
14    DATA 007f00 0945fa 042b23 4a0022 740123 420026 2c7800 044eae fe444a 8b
15    DATA 806606 50ecff d24e75 70014e 754a2c ffd267 0c226c ffe82c 780004 48
16    DATA 4eaefe 3e206c ffe461 000442 206cff e86100 042e4e 75203c 3b9aca 98
17    DATA 002400 72012c 780004 4eaeff 3a4a80 670822 402002 4eaeff 2e43fa a4
18    DATA 03c770 004eae fe0e29 40fff0 671e70 0243fa 03c32c 6cfff0 4eaeff 49
19    DATA fa4a80 660c50 ecffd3 13c000 bfe301 4e7570 014e75 4a2cff d36710 8f
20    DATA 423900 bfe301 70022c 6cfff0 4eaeff f44e75 203c00 1b0bd4 80ecff ec
21    DATA d43940 ffd64e 7541fa 02bb60 0441fa 034520 2cffdc 222cff d87400 f8
22    DATA 342cff d443fa 036e08 390001 00bfe0 016704 43fa03 622609 610002 1e
23    DATA 1e222c ffec24 2cffca 767f2c 6cfffc 4eaeff d620ga 423008 ff1018 26
24    DATA 67ba0c ga0061 650a0c ga007a 62ga04 ga0020 43fa03 2f45fa 001254 ef
25    DATA 8a1219 6796b0 0166f6 d4d261 ga00e0 4ed200 10013e 018000 6400a2 ff
26    DATA 001c00 060010 4e7508 790001 00bfe0 016000 ff7441 fa01f2 6000ff 74
27    DATA 707200 101867 2604ga 00306b 200cga 000962 1a0c41 177062 08c2fc 72
28    DATA 000ad2 4064e2 41fa02 d86100 018a60 00ff40 0c4100 6465ee 0c419c b7
29    DATA 4062e8 3941ff d46100 ff1660 00ff28 220824 3cga00 03ee2c 6cfffc 5d
30    DATA 4eaeff e22800 671c22 00242c ffe026 2cffd8 4eaeff d02400 22044e 33
31    DATA aeffdc b68267 00fef2 4eaeff 7c41fa 028c61 000132 6000fe e82208 4f
32    DATA 243cga 0003ed 2c6cff fc4eae ffe228 0067dc 220024 2cffe0 262cff 05
33    DATA dc4eae ffd629 40ffd8 22044e aeffdc 6000fe b25288 ga100c ga0020 60
34    DATA 67f60c ga0009 67f04e 754bf9 00dff0 0041f9 00bfe1 0147f9 00bfe0 89
35    DATA 017040 343c00 80363c 00803b 7c000f 00963b 7c0780 009a3b 6cffd6 31
36    DATA 00a63b 4000a8 2b4900 a03b6c ffd600 b63b40 00b82b 4900b0 3b7c80 f9
37    DATA 030096 4e713b 7c000f 00964e 752c78 00044e aeff88 226cff e02449 13
38    DATA d5ecff d86198 101912 00e149 12003b 4100aa 3b4100 bab3ca 641408 93
39    DATA 130006 670e30 2d001e c04267 f83b42 009c60 d84eae ff8260 00fe0e 96
40    DATA 2c7800 044eae ff8822 6cffe0 2449d5 ecffdc 6100ff 54ga10 900312 b3
41    DATA 00e149 12003b 4100aa 3b4100 ba12c0 b3ca64 140813 000667 0e302d 31
42    DATA 001ec0 4267f8 3b4200 9c60d4 93ecff e02949 ffd84e aeff82 6000fd 2a
43    DATA bc48e7 fff022 4f45fa 003026 6cffca 2c7800 044eae fdf62c 6cfffc f8
44    DATA 4eaeff c42200 671024 0b4a1b 66fc53 4b260b 96824e aeffd0 4cdf0f e7
45    DATA ff4e75 16c04e 755965 742041 6e6f74 686572 204469 676974 697a65 92
46    DATA 722066 6f7220 746865 20416d 696761 206279 204a2e 4d6172 696e20 01
47    DATA 31ga39 30ga0a 436fga 6d616e 64733a 0a52ga 095265 636f72 64ga09 1e
48    DATA 28256c 64290a 50ga09 506c61 79ga09 28256c 64290a 4c203c 6e616d 80
49    DATA 653e09 4c6f61 640a53 203c6e 616d65 3e0953 617665 0a4620 3c7661 6c
50    DATA 6c7565 3e0953 616d70 6c696e 672046 726571 2e0928 256c64 290a54 09
51    DATA ga0954 6fga67 6c6520 66696c 746572 09284f 257329 0a51ga 095175 58
52    DATA 697420 746865 207072 6f6772 616d0a 594144 413e20 00646f 732e6c 7d
53    DATA 696272 617279 006175 64696f 2e6465 766963 65000f 006d69 73632e e2
54    DATA 726573 6f7572 636500 59ga41 445f7a 5f6572 65004e 00ga46 005150 84
55    DATA 52534c 46543f 004672 657120 45ga72 6f720a 004669 6c6520 45ga72 b2
56    DATA 6f7220 256c64 0a004e f9gc00 4ef9gb 00144e f9gb00 c84ef9 gb004c 95
57    DATA ga0003 ecgb00 04gb00 01ga00 05bega 0005ca ga0005 c4ga00 05d0ge 87
58    DATA 0003f2 ga0003 e9gb00 422008 670c22 482021 2c7800 044eae ff2e4e 00
59    DATA 754e71 48e7ga 202448 588024 00223c 000100 012c78 00044e aeff3a da
60    DATA 20404a 806714 20c221 4a000e 117c00 050008 598231 420012 20084c b7
61    DATA dfga04 4e7548 e7ga30 260026 482208 67084a 1866fc 91c1d0 885880 a0
62    DATA 240022 3c0001 00012c 780004 4eaeff 3a2440 4a8067 3a24c2 70ff4e 2f
63    DATA aefeb6 154000 0f6b6c 93c94e aefeda 254000 10157c 000400 08422a 7f
64    DATA 000e20 0b6716 41f238 002548 000a10 db66fc 224a4e aefe9e 200a60 8e
65    DATA 4c41ea 001420 885890 42a800 042148 000820 0a6038 48e7ga 302008 fd
66    DATA 673024 484aaa 000a67 0a224a 2c7800 044eae fe9870 00102a 000f6b 1c
67    DATA 082c78 00044e aefeb0 20ga22 4a2c78 00044e aeff2e 70004c dfga0c 53
68    DATA 20404e 75ga00 03f2a6
      DATA **