100 OPEN "O",#1,"COM0:68N1F" : 4800 Baud, 8 bits, no parity, set and ignore state lines
110 ST=&H8000 : REM useful values; &H8000, &HA000, &HC000, &HE000
120 RZ=&H2000
130 LZ=16
140 FOR OL=0 TO RZ-LZ STEP LZ
150 CS=16
160 PRINT #1, ":10";
170 AR = OL + ST: HI = INT(AR/256): LO = AR - HI: CS = CS + HI + LO
180 AD$ = "000"+HEX$(AR)
190 PRINT #1, RIGHT$(AD$,4);
200 PRINT HEX$(AR)
210 CS=CS+(AD AND 255):CS=CS+INT(CS/256)
220 PRINT #1, "00";
230 FOR IL=0 TO LZ-1
240 VL =PEEK(AR+IL)
250 VA$ = "0"+HEX$(VL)
260 PRINT #1, RIGHT$(VA$,2);
270 CS=CS+VL
280 NEXT IL
290 CS = CS - (INT(CS/256)*256)
300 CK$ = "0"+HEX$(CS)
310 PRINT #1, RIGHT$(CK$,2)
320 NEXT OL
330 PRINT #1,":00000001FF"
340 CLOSE #1