DiscoLights_Loader.bas

10 REM HEXLOADER
20 REM ENTER THE STRING OF HEX DIGITS FIRST
30 REM AND THEN THE CHECKSUM
50 FOR N = 24576 TO 24852 STEP 8
60 PRINT N;": ";
65 TT=0
70 READ A$
75 Z=0
80 FOR G=1 TO LEN(A$) STEP 2 
90 P=VAL("&H"+MID$(A$,G,2)) 
95 TT=P+TT:POKE (N+Z),P
100 Z=Z+1
110 NEXT
120 PRINT " = ";
130 READ T$
131 PRINT T$;
150 IF VAL(T$)<>TT THEN PRINT TT;":ERROR": REM END
151 PRINT ""
160 NEXT
24576 DATA 4E0000BDA7CABDA9,791
24584 DATA 9DC680BDA92ABDA7,1375
24592 DATA 49B76000861FB760,759
24600 DATA 018608B76002F660,766
24608 DATA 004F5849B1600125,551
24616 DATA 04B060015C7A6002,589
24624 DATA 26F0810127228102,612
24632 DATA 2733810327448104,462
24640 DATA 2755810527668106,534
24648 DATA 2777810710270086,483
24656 DATA 81081027009520B6,555
24664 DATA B60400818F2704C6,699
24672 DATA 8F2002C6808E0400,649
24680 DATA 17009520A1B6040B,562
24688 DATA 819F2704C69F2002,722
24696 DATA C6808E040B170080,634
24704 DATA 208CB6041681AF27,723
24712 DATA 04C6AF2002C6808E,879
24720 DATA 04168D6C16FF77B6,853
24728 DATA 04A081BF2704C6BF,916
24736 DATA 2002C6808E04A08D,807
24744 DATA 5716FF62B604B681,959
24752 DATA CF2704C6CF2002C6,887
24760 DATA 808E04B68D4216FF,940
24768 DATA 4DB6054081DF2704,723
24775 REM  C6BF2002C6808E05,928
24776 DATA C6DF2002C6808E05,928
24784 DATA 408D2D16FF38B605,770
24792 DATA 4B81EF2704C6EF20,955
24800 DATA 02C6808E054B8D18,715
24808 DATA 16FF23B6055681FF,969
24816 DATA 2704C6FF2002C680,856
24824 DATA 8E05568D0316FF0E,668
24831 REM 1E98C605108F000A,554
24832 DATA 1F98C605108E000A,554
24840 DATA A780313F26FA3088,879
24848 DATA 165A26F039,447