0 'COMROM.100       (c)1989 Wilson Van Alst
1 'v1.0          All rights reserved
2 'Loader for COMROM.CO, program that
3 ' loads COM: images into XTRAM
5 'Distributed by EME Systems under license from the author.
10 CS=0:FOR AD= 64704 TO 64750 
15 READ D%:POKE AD,D%:CS=CS+D%
20 NEXT AD
25 IF CS<>6019 THEN BEEP :PRINT"Typo in data!!?":END
30 SAVEM"COMROM",64704,64750,64704
50 DATA 33,233,252,55,205,230,23,33,0,0
51 DATA 17,0,128,205,126,109,216,194,148,20
52 DATA 79,243,62,1,211,232,113,151,211,232
53 DATA 251,149,204,118,118,35,223,194,205,252,201
54 DATA 56,56,78,49,68,0
55 REM line 54 sets stats: 88N1D