Parallel aspects
$
PTMP
3 FONTS

10 0 0
10 2 0
12 1 0

$
60 10 STO       ;parallel orb, minutes of arc

$
0 12 FOR 1 CNT PNAME 1 CNT SYSTR NEXT
1 12 FOR 1 CNT SNAME 1 CNT 12 ADD SYSTR NEXT
25 STDEF
26 STDEF
27 STDEF
28 STDEF
29 STDEF

N
S

cP
 P
$
1 2 FOR
683 1 CNT 1 < IF
RECH 64 SUB
1 DUP 0 2 4 5 6 7 8 12 IN
XY 15 SUB 0 1 3 4 5 IN OR IF
RECH 601 ADD ELSE 529 ENDIF
ENDIF CHS
1 CNT 30 ADD SYSTR
NEXT

$
1 2 FOR         ;chart block 1=radix 2=current
2 FONT

Parallels of Declination:
$
0 FONT
0 PAD
31 30 1 CNT ADD NUMS
75 TABLN


@@@@@@@@@@@@@@@@@@@@@@@ - @@@@@@@@@@@@@@@@@@@@@@

    	�  	‚  	ƒ  	„  	…  	†  	‡  	ˆ  	‰  	Š  	€
$
1 PAD 1 OEM 4 TAB NUMS

ÚÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄ¿
$
1 11 FOR                        ;rows, bottom first
6 1 CNT 2 CNT 11 MOD XPOS ITOMS ;declination
1 DUP 0 > 25 ADD                ;sign N or S
XY ABS 60 DIVR                  ;degr.minutes
XY 100 ADD XY                   ;pad '0' befor one digit minutes
11 1 FOR                        ;columns last first
6 1 CNT 2 CNT 11 MOD XPOS ITOMS ;declination 1
6 1     3 CNT 11 MOD XPOS ITOMS ;declination 2 2
2 DUP 2 DUP SUB ABS 10 RCL >    ;difference Parallel=1
XY ABS 3 FETCH ABS SUB
ABS 10 RCL > ADD                ;contraparallel=2
27 ADD 
NEXT
0 OEM
2 CNT 11 MOD PNAME NUMS

 @\
$
1 OEM 4 TAB NUMS 

³@@@³@@@³@@@³@@@³@@@³@@@³@@@³@@@³@@@³@@@³@@@³ ## ## @
$
2 CNT 11 > IF 4 TAB NUMS

ÃÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄ´
$
ENDIF
NEXT
4 TAB 1

ÀÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÙ
$
0 OEM NEXT

$$$