--- /dev/null
+/
+/ VERSION 5A 4-27-77 PT
+/
+ SECT DSIGN
+ JA #ST
+#XR, ORG .+10
+ TEXT 'DSIGN '
+#BASE, ORG .+6
+A, ORG .+6
+B, ORG .+6
+ ORG #BASE+31
+ JA #BASE
+GOBACK, 0;0;0
+ BASE #BASE
+ DPCHK
+#ST, STARTD
+ 0210 /FLDA 10
+ FSTA GOBACK+1,0
+ 0200
+ SETX #XR
+ SETB #BASE
+ LDX 0,1
+ FSTA #BASE
+ FLDA% #BASE,1+
+ FSTA A
+ FLDA% #BASE,1+
+ FSTA B
+ STARTE
+ FLDA% B /NEG?
+ JLT #50 /B POS
+ FLDA% A
+ JLT #100
+ JA GOBACK+1 /A+,B+
+#50, FLDA% A
+ JLT GOBACK+1 /A-,B-
+#100, FNEG /OPP. SIGNS
+ JA GOBACK+1
+ END
+\f