5 MODE 8
6 OPEN#3,scr_512x256a0x0:PAPER#3,0:CLS#3
100 D=PEEK_L(163872)
110 E=RESPR(D-200000)
120 LBYTES flp1_CDS,E
130 LBYTES flp1_CD,E+6002
140 PAUSE 200
150 CALL E+6002
