ELGRAF printing bar graphs for tripli- and quadruplicities 1 STO ild 2 STO jord 3 STO luft 4 STO vand 5 STO 6 STO 7 STO $ PTMP 1 FONTS 10 0 0 PCA OEM $ 1 1 NTOS 49 -1 SYSTR ;Bar graph NPR 1 ;Print name Antal planeter inkl ASC: $ 1 ¸ 0 1 2 3 4 5 6 7 8 9 10 11 ¸ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ+ÄÄÄ+ÄÄÄ+ÄÄÄ+ÄÄÄ+ÄÄÄ+ÄÄÄ+ÄÄÄ+ÄÄÄ+ÄÄÄ+ÄÄÄ+ÄÄÄ+ $ 0 1 7 FOR 1 CNT STO NEXT ;Rest STO vars 1 14 FOR ;Count planets 1 CNT 11 > 1 CNT 0 14 IN OR IF ;and ASC 1 CNT PSI ;Signs 1 SUB 4 MOD 1 ADD ;Elements 1 DUP RCL 1 ADD XY STO 1 CNT PSI 1 SUB 3 MOD 5 ADD ;Quadruplities 1 DUP RCL 1 ADD XY STO ENDIF NEXT 7 1 FOR 1 CNT RCL 4 MUL NEXT 182 GRAF Element Ild # Element Jord # Element Luft # Element Vand # ¸ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ+ÄÄÄ+ÄÄÄ+ÄÄÄ+ÄÄÄ+ÄÄÄ+ÄÄÄ+ÄÄÄ+ÄÄÄ+ÄÄÄ+ÄÄÄ+ÄÄÄ+ Kardinale tegn # Fixe tegn # Bevægelige tegn # ¸ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ+ÄÄÄ+ÄÄÄ+ÄÄÄ+ÄÄÄ+ÄÄÄ+ÄÄÄ+ÄÄÄ+ÄÄÄ+ÄÄÄ+ÄÄÄ+ÄÄÄ+ $$$