Editing JOSS (section)

==Sample program==
 1.1 Demand p,q.
 1.2 Stop if q<0 or r(q,2)=0.
 1.3 Set a=1.
 1.4 Do part 2 while q>1 and a≠0.
 1.5 Type a in form 3.
 1.6 Stop.
 
 2.1  Do part 20.
 2.1  Do part 11 if p<0.
 2.2  Do part 12 if p≥q.
 2.3  Do part 13 if p=0.
 2.4  Done if a=0.
 2.5  Set p=p/4 while r(p,4)=0.
 2.6  Do part 14 if r(p,2)=0.
 2.7  Do part 20.
 2.8  Set a=-a if r(p,4)=r(q,4)=3.
 2.9  Set s=p, p=q, q=s.
 2.95 Do part 20.
 
 11.1 Set a=-a if r(q,4)=3.
 11.2 Set p=|p|.
 11.3 Do part 20.
 
 12.1 Set p=r(p,q).
 12.2 Do part 20.
 
 13.1 Set a=0, p=1, q=1.
 
 14.1 Set a=-a if r(q,8)=3 or r(q,8)=5.
 14.2 Set p=p/2.
 
 20.1 Type p, q in form 1 if a=1.
 20.2 Type p, q in form 2 if a=-1.
 
 Form 1: "  L(%.0f,%.0f)  ="
 Form 2: "  -L(%.0f,%.0f)  ="
 Form 3: "  %.0f\n"

Note that this is not an original sample, but rather one from a modern simulator. There are some syntactic differences from the original JOSS language.