119 lines
3.6 KiB
Groff
119 lines
3.6 KiB
Groff
00050 .PR POINT .PR
|
|
00100 (.LOC .COMPL X,Y:=3 .I 2,Z:=3 .I (-2)
|
|
00110 ;.LOC .REAL A
|
|
00120 ;.LOC .FILE RESULTS
|
|
00130 ;.LOC [1:10] .COMPL A1,A2,A3,A4,A5,A6
|
|
00140 ;.LOC .STRUCT(.COMPL S,T) S1,S2,S3,S4,S5,S6
|
|
00150 ;OPEN(RESULTS,"RESULTS",STAND OUT CHANNEL)
|
|
00160 ;PUT(RESULTS,(Y,NEWLINE,Z,NEWLINE))
|
|
00170 ;.FOR I .TO 10 .DO A1[I]:=A2[I]:=A3[I]:=A4[I]:=A5[I]:=A6[I]:=I .I (I+1) .OD
|
|
00180 ;S1:=S2:=S3:=S4:=S5:=S6:=(1 .I 1,4 .I 4)
|
|
00190 ;X:=Y+Z
|
|
00200 ;PUT(RESULTS,(X,NEWLINE))
|
|
00210 ;X:=Y+3.14159 .I 1.23456789
|
|
00220 ;PUT(RESULTS,(X,NEWLINE))
|
|
00230 ;X:=Y+9.87654321
|
|
00240 ;PUT(RESULTS,(X,NEWLINE))
|
|
00250 ;X:=Y-Z
|
|
00260 ;PUT(RESULTS,(X,NEWLINE))
|
|
00270 ;X:=Y-3.14159 .I 1.23456789
|
|
00280 ;PUT(RESULTS,(X,NEWLINE))
|
|
00290 ;X:=Y*Z
|
|
00300 ;PUT(RESULTS,(X,NEWLINE))
|
|
00310 ;X:=Y*4 .I 3
|
|
00320 ;PUT(RESULTS,(X,NEWLINE))
|
|
00330 ;X:=Y*3.14159 .I 1.23456789
|
|
00340 ;PUT(RESULTS,(X,NEWLINE))
|
|
00350 ;X:=Y/Z
|
|
00360 ;PUT(RESULTS,(X,NEWLINE))
|
|
00370 ;X:=Y/4 .I 3
|
|
00380 ;PUT(RESULTS,(X,NEWLINE))
|
|
00390 ;X:=3.14159 .I 1.23456789/Y
|
|
00400 ;PUT(RESULTS,(X,NEWLINE))
|
|
00410 ;X:=-X
|
|
00420 ;PUT(RESULTS,(X,NEWLINE))
|
|
00430 ;A:=.RE X
|
|
00440 ;PUT(RESULTS,(A,NEWLINE))
|
|
00450 ;A:=.IM X
|
|
00460 ;PUT(RESULTS,(A,NEWLINE))
|
|
00470 ;X:=.CONJ X
|
|
00480 ;PUT(RESULTS,(X,NEWLINE))
|
|
00490 ;A:=.ABS Y
|
|
00500 ;PUT(RESULTS,(A,NEWLINE))
|
|
00510 ;A:=.ABS(3.1519 .I 1.23456789)
|
|
00520 ;PUT(RESULTS,(A,NEWLINE))
|
|
00530 ;A:=.ABS(0 .I 1.23456789)
|
|
00540 ;PUT(RESULTS,(A,NEWLINE))
|
|
00550 ;A:=.ABS(3.1519 .I 0)
|
|
00560 ;PUT(RESULTS,(A,NEWLINE))
|
|
00570 ;X:=Y**2
|
|
00580 ;PUT(RESULTS,(X,NEWLINE))
|
|
00590 ;X:=Z**2
|
|
00600 ;PUT(RESULTS,(X,NEWLINE))
|
|
00610 ;X:=Y**5
|
|
00620 ;PUT(RESULTS,(X,NEWLINE))
|
|
00630 ;X:=Y**-1
|
|
00640 ;PUT(RESULTS,(X,NEWLINE))
|
|
00650 ;X:=Y**-3
|
|
00660 ;PUT(RESULTS,(X,NEWLINE))
|
|
00670 ;X:=3.14159 .I 1.23456789**2
|
|
00680 ;PUT(RESULTS,(X,NEWLINE))
|
|
00690 ;X:=3.14159 .I 0**2
|
|
00700 ;PUT(RESULTS,(X,NEWLINE))
|
|
00710 ;X:=0 .I 1.23456789**2
|
|
00720 ;PUT(RESULTS,(X,NEWLINE))
|
|
00730 ;X:=0 .I 0**2
|
|
00740 ;PUT(RESULTS,(X,NEWLINE))
|
|
00750 ;.IF X=Y .THEN PUT(RESULTS,("X=Y",NEWLINE)) .FI
|
|
00760 ;PUT(RESULTS,(X,NEWLINE))
|
|
00770 ;X:=Y
|
|
00780 ;.IF X=Y .THEN PUT(RESULTS,("X=Y",NEWLINE)) .FI
|
|
00790 ;PUT(RESULTS,(X,NEWLINE))
|
|
00800 ;.IF X/=Y .THEN PUT(RESULTS,("X/=Y",NEWLINE)) .FI
|
|
00810 ;PUT(RESULTS,(X,NEWLINE))
|
|
00820 ;X:=Z
|
|
00830 ;.IF X/=Y .THEN PUT(RESULTS,("X/=Y",NEWLINE)) .FI
|
|
00840 ;PUT(RESULTS,(X,NEWLINE))
|
|
00850 ;X+:=Y
|
|
00860 ;PUT(RESULTS,(X,NEWLINE))
|
|
00870 ;X-:=Y
|
|
00880 ;PUT(RESULTS,(X,NEWLINE))
|
|
00890 ;X*:=Y
|
|
00900 ;PUT(RESULTS,(X,NEWLINE))
|
|
00910 ;X/:=Y
|
|
00920 ;PUT(RESULTS,(X,NEWLINE))
|
|
00930 ;A:=.ARG(4 .I 3)
|
|
00940 ;PUT(RESULTS,(A,NEWLINE))
|
|
00950 ;A:=.ARG(4 .I -3)
|
|
00960 ;PUT(RESULTS,(A,NEWLINE))
|
|
00970 ;A:=.ARG(-4 .I -3)
|
|
00980 ;PUT(RESULTS,(A,NEWLINE))
|
|
00990 ;A:=.ARG(-4 .I 3)
|
|
01000 ;PUT(RESULTS,(A,NEWLINE))
|
|
01010 ;A:=.ARG(3.14159 .I 1.23456789)
|
|
01020 ;PUT(RESULTS,(A,NEWLINE))
|
|
01030 ;A:=.ARG(0 .I 1.23456789)
|
|
01040 ;PUT(RESULTS,(A,NEWLINE))
|
|
01050 ;A:=.ARG(3.14159 .I 0)
|
|
01060 ;PUT(RESULTS,(A,NEWLINE))
|
|
01070 ;A1[1]+:=Y
|
|
01080 ;PUT(RESULTS,(A1[1],A2[1],NEWLINE))
|
|
01090 ;A2[2]-:=Y
|
|
01100 ;PUT(RESULTS,(A2[2],A3[2],NEWLINE))
|
|
01110 ;A3[3]*:=Y
|
|
01120 ;PUT(RESULTS,(A3[3],A4[3],NEWLINE))
|
|
01130 ;A4[4]/:=Y
|
|
01140 ;PUT(RESULTS,(A4[4],A5[4],NEWLINE))
|
|
01150 ;.FOR I .TO 10 .DO PUT(RESULTS,(A6[I],NEWLINE)) .OD
|
|
01160 ;S .OF S1+:=Y
|
|
01170 ;PUT(RESULTS,(S .OF S1,S .OF S2,NEWLINE))
|
|
01180 ;S .OF S2-:=Y
|
|
01190 ;PUT(RESULTS,(S .OF S2,S .OF S3,NEWLINE))
|
|
01200 ;T .OF S3*:=Y
|
|
01210 ;PUT(RESULTS,(T .OF S3,T .OF S4,NEWLINE))
|
|
01220 ;T .OF S4/:=Y
|
|
01230 ;PUT(RESULTS,(T .OF S4,T .OF S5,NEWLINE))
|
|
01240 ;PUT(RESULTS,(S .OF S6,T .OF S6,NEWLINE))
|
|
01250 ;CLOSE(RESULTS)
|
|
01260 )
|