file$="bootscroll" : '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 cdga00 03e9gb 00cd4e 54ffec 43fa01 807000 06
2     DATA 2c7800 044eae fdd829 40fff8 67ga00 c643fa 017b70 004eae fdd829 6a
3     DATA 40fffc 67ga00 b441fa 00f42c 6cfffc 4eaeff 3a2940 fff467 ga00a0 96
4     DATA 204041 e8002c 43fa01 2a2c6c fff870 044eae ff4041 fa00ec 216cff fa
5     DATA f4001e 2c6cff fc4eae ff3429 40fff0 677220 402968 0032ff ec45fa c5
6     DATA 01337e 09206c fff020 680056 2c7800 044eae fe8c4a 80664a 200706 5d
7     DATA 80ga00 013572 4e226c ffec2c 6cfff8 4eaeff 10204a 700122 6cffec 7d
8     DATA 4eaeff c44eae fef270 017200 740076 46283c ga0001 3f7a50 226cff e4
9     DATA ec4eae fe7451 cfffac 528a4a 1266a2 600622 404eae fe8620 2cfff0 51
10    DATA 670a20 402c6c fffc4e aeffb8 202cff f4670a 20402c 6cfffc 4eaeff 2c
11    DATA be202c fff867 0a2240 2c7800 044eae fe6220 2cfffc 670a22 402c78 71
12    DATA 00044e aefe62 4e5c4e 75gc00 014001 ga0002 0001gb 000fgs 000140 88
13    DATA 010002 03gb00 080003 18gy00 gc000f gb000f 00f00f 00646f 732e6c ff
14    DATA 696272 617279 006772 617068 696373 2e6c69 627261 727900 696e74 6a
15    DATA 756974 696f6e 2e6c69 627261 727900 48756f 6d696f 21ga20 54e4ga 99
16    DATA 73e420 6b6f6b 6569ga 6cga61 6e2043 3d4c65 686465 6e2062 ga6fga f3
17    DATA 746973 63726f ga6c69 727574 ga696e 69612e ga2054 656b73 746920 a2
18    DATA 6f6e20 7461ga 6c65ga 6e65ga 747520 7365ga 6c6169 73656e ga616e 4d
19    DATA 206d75 697374 ga696e 2ega20 54656b 737469 726976 656ae4 20766f 6b
20    DATA 69206c 6973e4 74e420 68616c 75616d 616e73 61206d gae472 e46e20 61
21    DATA 696c6d 616e2c 2065ga 74e420 6dga75 746120 6f686a 656c6d ga6120 f9
22    DATA 746172 766974 73ga65 206dga 75ga74 ga612e ga204f 686a65 6c6d61 5f
23    DATA 6e206f 6e2074 696574 797374 69206d 616864 75ga74 617661 2062ga 22
24    DATA 6f742d 626c6f ga6bga 696egb 2ega20 56ga69 6d6569 73656e e4206f b2
25    DATA 6e206f 6c7461 766120 6e6fga 6c6174 617675 2c206a 6f7374 61206f b9
26    DATA 686a65 6c6d61 207469 6574ga e42074 656b73 74696e 2070ga e4ga74 c6
27    DATA 7976e4 6e2e20 4772ga 657469 6e6773 20746f 204a43 20616e 642028 27
28    DATA 2d3a20 gb5020 3a2d29 gy20gs 20gc00 03f2e9
      DATA **