10 LPRINT "Q3":LPRINT "S8":LPRINT "M200,600":LPRINT "PShapley's  Q-200"
20 LPRINT "M300,200":LPRINT "D1100,200,1100,1200,300,1200,300,200":LPRINT "M400,200":LPRINT "D400,1200":X=500:FOR I=1 TO 3:LPRINT "M"X;",1200":LPRINT "D"X;",200":LPRINT "M"X+100;",200":LPRINT "D"X+100;",1200":X=X+200:NEXT I
30 LPRINT "M1100,400":LPRINT "D300,400":LPRINT "M300,600":LPRINT "D1100,600":LPRINT "M1100,800":LPRINT "D300,800":LPRINT "M300,1000":LPRINT "D1100,1000"
40 PRINT "change pens":STOP
50 LPRINT "M1100,400":LPRINT "D600,400":LPRINT "D600,910":LPRINT "D1100,910":PRINT "change pens":STOP
60 LPRINT "M1150,150":LPRINT "S5":Y=150:FOR I= 1 TO 6:LPRINT "P"38+2*I:LPRINT "M1150,"Y+200:Y=Y+200:NEXT I
70 LPRINT "M310,50":X=310:FOR I= 1 TO 9:LPRINT "P"1500-100*I:LPRINT "M"310+I*100",50":NEXT I
80 LPRINT "M1250,600":LPRINT "PC.G., in inches":LPRINT "Q2":LPRINT "M900,50":LPRINT "PWeight"
110 LPRINT "M733,550":LPRINT "N2":LPRINT "M900,900"
111 LPRINT "D816,540":LPRINT "N2"
112 LPRINT "D840,660":LPRINT "N2"
113 LPRINT "M670,650":LPRINT "N3"
114 LPRINT "D753,650":LPRINT "N3"
115 LPRINT "D777,770":LPRINT "N3"
116 LPRINT "M517,920":LPRINT "N4"
200 LPRINT "Q3":LPRINT "M2400,1000":LPRINT "S4":LPRINT "P C E Dills   11/27/87"
1000 LPRINT "H"
