home *** CD-ROM | disk | FTP | other *** search
- 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 **
-