Parallel aspects $ PTMP 3 FONTS 10 0 0 10 0 0 PCA OEM 11 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 $ RECH 601 ADD 31 SYSTR 683 30 SYSTR $ 2 FONT 1 Parallels of Declination: $ 22 TABLN $ 1 1 RECH 82 <> ADD FOR ;chart block 1=radix 2=current 0 FONT 3 PAD 29 1 CNT ADD 30 NUMS 32 NAME 32 @: @ - @ $ 1 PAD 11 1 FOR 2 CNT PNAME NEXT NUMS @ @ @ @ @ @ @ @ @ @ @ Decl. $ 1 FONT 1 PAD 1 OEM NUMS ÃÄÄÂÄÄÂÄÄÂÄÄÂÄÄÂÄÄÂÄÄÂÄÄÂÄÄÂÄÄÂÄÄÂÄÄÄÄÄÄÄÄ´ $ 0 OEM 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 2 CNT 11 MOD PNAME NUMS @\ $ NUMS @@ @@ @@ @@ @@ @@ @@ @@ @@ @@ @@ ## ## @ $ 2 CNT 11 > IF 1 OEM NUMS ; ÃÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄ´ $ 0 OEM ENDIF NEXT 1 ÀÄÄÁÄÄÁÄÄÁÄÄÁÄÄÁÄÄÁÄÄÁÄÄÁÄÄÁÄÄÁÄÄÁÄÄÄÄÄÄÄÄÙ $ NEXT $$$