file$="System" : '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 01gi00 011cga 0003e9 ga0001 1c4e54 ffdc48 e78008 7f
2     DATA 700842 a451c8 fffc4c df1001 43fa04 4c2c78 00044e aefe68 2940ff e2
3     DATA fc6700 016a20 3cga00 258422 3c0001 ga002c 780004 4eaeff 3a2940 f9
4     DATA ffec67 00014e 204020 fcga00 258429 48ffe8 41e820 002948 ffe441 fb
5     DATA e80400 2948ff e041e8 010029 48ffdc 202cff e80680 ga001f c02940 34
6     DATA fff42c 780004 4eaeff 88226c ffe861 00013c 243c77 616974 45ee01 8d
7     DATA a46100 01ae65 0e243c 627573 7945ee 019661 00019e 4eaeff 82206c 8f
8     DATA ffe822 6cffe4 4aa800 186708 22c8d0 fc002c 60f220 6cffe4 610002 9c
9     DATA 2a43fa 02c62c 780004 4eaefe 7a2a40 4a8067 047642 600276 3841fa 31
10    DATA 02bb61 ga0098 41fa03 5d7601 61ga00 8e266c ffe422 1b67ga 009852 d3
11    DATA acfff0 246cff dc24ec fff024 c17020 d08124 c02241 24e900 247028 e8
12    DATA d08124 c01029 001c48 8048c0 24c024 e90018 242900 24200d 67240c 25
13    DATA 82gb00 32641c d482d4 822035 282272 326100 02ga24 c0d281 24c141 73
14    DATA fa02be 4a8266 0441fa 028822 6cffe0 246cff dc6100 016420 6cffe0 10
15    DATA 93c826 094a82 660611 7c0020 002261 046000 ff7a24 082c6c fffc4e 79
16    DATA aeffc4 220067 044eae ffd04e 75202c ffec67 102240 20112c 780004 c4
17    DATA 4eaeff 2e42ac ffec20 2cfffc 670e22 402c78 00044e aefe62 42acff e7
18    DATA fc7000 4e5c4e 752449 93c92c 780004 4eaefe da224a 244061 40234a 07
19    DATA 001813 6a0009 001c61 182340 002023 6a008c 002423 7c6375 ga7200 73
20    DATA 2843e9 002c4e 75203c 20636c 69206a 00acd1 c8d1c8 4aa800 2c6706 fa
21    DATA 203c62 636c69 4e7561 e22200 206800 10d1c8 d1c847 d17000 101866 39
22    DATA 0641fa 022b60 085340 0c4000 166302 70ga16 d857c8 fffc20 014e75 96
23    DATA 24524a 926774 234a00 18136a 000900 1c102a 00080c ga0001 660a61 cd
24    DATA ga203c 746173 6b6040 0cga00 0d6630 236a00 8c0024 662261 08203c 7f
25    DATA 70726f 636028 206a00 0a47d1 4a1066 0441fa 01bf70 ga16d8 57c8ff 9c
26    DATA fc4e75 6100ff 7c600a 41d161 de203c 20ga3f 202340 002023 420028 98
27    DATA b3ecff f4620e d2fc00 2c2452 608802 3cfffe 4e7500 3c0001 4e7548 cc
28    DATA e7c030 264922 4a45fa 001a2c 780004 4eaefd f64a1b 66fc22 4b5349 d0
29    DATA 20494c df0c03 4e7516 c04e75 48e7e0 f02648 244b74 00201a 67ga20 3e
30    DATA 402012 671a22 4061ga 002064 ee2488 2549ff fc5282 598ab5 cb67e0 2f
31    DATA 598a60 dc4a82 66d44c df0f07 4e7548 e7gac0 101867 2e0cga 004165 0f
32    DATA 0a0cga 005a62 0406ga 002012 196722 0c0100 41650a 0c0100 5a6204 74
33    DATA 060100 20b200 67d44c dfga03 4e754a 1967f6 700160 f270ff 60ee48 21
34    DATA e73800 740078 1fe390 e392b4 816506 948100 3c0010 e39351 ccffee 0e
35    DATA 200322 024cdf 001c4e 755761 746368 6d616e 506f72 74006e 756d20 bf
36    DATA 746173 6b6e61 6d65gn 207479 7065ga 206964 207374 617465 ga2070 30
37    DATA 726920 746173 6b2070 7472gf 207469 6d6500 25332e 336c64 20252d 26
38    DATA ga322e ga3273 202534 2e3473 202533 6c64ga 202534 2e3473 202534 0a
39    DATA 6c6420 253038 6c780a 002533 2e336c 642025 2dga32 2ega32 732025 c8
40    DATA 342e34 732025 336c64 ga2025 342e34 732025 346c64 202530 386c78 e8
41    DATA 202537 2e376c 642e25 30326c 640a00 ab206e 6f206e 616d65 20bb00 ab
42    DATA ab206e 6f2063 6fga6d 616e64 20bb00 646f73 2e6c69 627261 727900 90
43    DATA 4e71ga 0003f2 da
      DATA **