1 REM romcom.ba for T200
2 REM creates romcom.co
3 REM (c) 1989 Wilson van Alst
4 REM sends 32kbyte binary image
5 REM from extRAM or ROM to COM:88N1E.
6 REM Use null modem cable.
7 REM Run comrom.co on receiving 200
8 REM then run romcom.co on sending 200
9 REM 50 seconds for 32kbytes.
10 CS=0:FOR AD=63572 TO 63622 
15 READ D%:POKE AD,D%:CS=CS+D%
20 NEXT AD
25 IF CS<> 6109 THEN BEEP:PRINT"Typo in data!!?":END
30 SAVEM"x",63572,63622,63572
50 DATA 33,127,248,55,205,29,25,33,0,0
51 DATA 17,0,128,243,219,216,230,12,246,2
52 DATA 211,216,78,230,12,211,216,251,149,204
53 DATA 20,38,121,205,67,134,216,35,223,194
54 DATA 97,248,201
55 DATA 56,56,78,49,69,78,78,0
56 REM line 55 is com stats: 88N1ENN