10 DIM B(1000)
20 LPRINT CHR$(19)
30 LPRINT "H"
40 LPRINT "L0"
50 LPRINT "M400,200"
60 LPRINT "D400,1400"
70 LPRINT "M400,200"
80 LPRINT "D2400,200"
90 LPRINT "M400,1400"
100 A=1400:X=400
110 FOR I=1 TO 1000
120 FOR J=1 TO 100:A=.99999*A:NEXT J
130 B(I)=A
150 NEXT I
170 FOR I=1 TO 1000
180 C=B(I)
190 Y=INT(C)
200 X=X+2
210 LPRINT"D";X;",";Y
220 NEXT I
230 LPRINT "H"
240 END
