home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / asm / utils / makeboot / bootscroll.hex < prev    next >
Encoding:
Text File  |  1980-01-04  |  2.9 KB  |  70 lines

  1.   file$="bootscroll" : 'v2.11
  2.   OPEN file$ FOR OUTPUT AS #1
  3.   lin=0 : a$=""
  4. Loop:
  5.   lin=lin+1
  6.   READ x$ : IF x$="**" THEN Endeth
  7. Beyond:
  8.   i=INSTR(x$," ")
  9.   IF i>0 THEN
  10.     x$=LEFT$(x$,i-1)+MID$(x$,i+1)
  11.     GOTO Beyond
  12.   END IF
  13.   x$=UCASE$(x$)
  14.   cs$=RIGHT$(x$,2) : x$=LEFT$(x$,LEN(x$)-2)
  15.   sum=0
  16.   FOR i=1 TO LEN(x$)
  17.     sum=sum+(ASC(MID$(x$,i,1)) XOR i)
  18.   NEXT i
  19.   IF (sum AND 255)<>VAL("&H"+cs$) THEN
  20.     PRINT "Checksum error in line";lin
  21.     GOTO Endeth
  22.   END IF
  23.   x$=a$+x$ : a$=""
  24.   FOR i=1 TO LEN(x$) STEP 2
  25.     IF MID$(x$,i,1) = "G" THEN
  26.       IF MID$(x$,i+2)="" THEN a$=MID$(x$,i) : GOTO Loop
  27.       y$=STRING$(ASC(MID$(x$,i+1,1))-63,VAL("&H"+MID$(x$,i+2,2)))
  28.       i=i+2
  29.     ELSE
  30.       y$=CHR$(VAL("&H"+MID$(x$,i,2)))
  31.     END IF
  32.     PRINT #1,y$;
  33.   NEXT i
  34.   GOTO Loop
  35.  
  36. Endeth:
  37.   CLOSE #1
  38.   PRINT "Operation complete"
  39.   END
  40.  
  41. 1     DATA ga0003 f3gf00 01gj00 cdga00 03e9gb 00cd4e 54ffec 43fa01 807000 06
  42. 2     DATA 2c7800 044eae fdd829 40fff8 67ga00 c643fa 017b70 004eae fdd829 6a
  43. 3     DATA 40fffc 67ga00 b441fa 00f42c 6cfffc 4eaeff 3a2940 fff467 ga00a0 96
  44. 4     DATA 204041 e8002c 43fa01 2a2c6c fff870 044eae ff4041 fa00ec 216cff fa
  45. 5     DATA f4001e 2c6cff fc4eae ff3429 40fff0 677220 402968 0032ff ec45fa c5
  46. 6     DATA 01337e 09206c fff020 680056 2c7800 044eae fe8c4a 80664a 200706 5d
  47. 7     DATA 80ga00 013572 4e226c ffec2c 6cfff8 4eaeff 10204a 700122 6cffec 7d
  48. 8     DATA 4eaeff c44eae fef270 017200 740076 46283c ga0001 3f7a50 226cff e4
  49. 9     DATA ec4eae fe7451 cfffac 528a4a 1266a2 600622 404eae fe8620 2cfff0 51
  50. 10    DATA 670a20 402c6c fffc4e aeffb8 202cff f4670a 20402c 6cfffc 4eaeff 2c
  51. 11    DATA be202c fff867 0a2240 2c7800 044eae fe6220 2cfffc 670a22 402c78 71
  52. 12    DATA 00044e aefe62 4e5c4e 75gc00 014001 ga0002 0001gb 000fgs 000140 88
  53. 13    DATA 010002 03gb00 080003 18gy00 gc000f gb000f 00f00f 00646f 732e6c ff
  54. 14    DATA 696272 617279 006772 617068 696373 2e6c69 627261 727900 696e74 6a
  55. 15    DATA 756974 696f6e 2e6c69 627261 727900 48756f 6d696f 21ga20 54e4ga 99
  56. 16    DATA 73e420 6b6f6b 6569ga 6cga61 6e2043 3d4c65 686465 6e2062 ga6fga f3
  57. 17    DATA 746973 63726f ga6c69 727574 ga696e 69612e ga2054 656b73 746920 a2
  58. 18    DATA 6f6e20 7461ga 6c65ga 6e65ga 747520 7365ga 6c6169 73656e ga616e 4d
  59. 19    DATA 206d75 697374 ga696e 2ega20 54656b 737469 726976 656ae4 20766f 6b
  60. 20    DATA 69206c 6973e4 74e420 68616c 75616d 616e73 61206d gae472 e46e20 61
  61. 21    DATA 696c6d 616e2c 2065ga 74e420 6dga75 746120 6f686a 656c6d ga6120 f9
  62. 22    DATA 746172 766974 73ga65 206dga 75ga74 ga612e ga204f 686a65 6c6d61 5f
  63. 23    DATA 6e206f 6e2074 696574 797374 69206d 616864 75ga74 617661 2062ga 22
  64. 24    DATA 6f742d 626c6f ga6bga 696egb 2ega20 56ga69 6d6569 73656e e4206f b2
  65. 25    DATA 6e206f 6c7461 766120 6e6fga 6c6174 617675 2c206a 6f7374 61206f b9
  66. 26    DATA 686a65 6c6d61 207469 6574ga e42074 656b73 74696e 2070ga e4ga74 c6
  67. 27    DATA 7976e4 6e2e20 4772ga 657469 6e6773 20746f 204a43 20616e 642028 27
  68. 28    DATA 2d3a20 gb5020 3a2d29 gy20gs 20gc00 03f2e9
  69.       DATA **
  70.