Biorythms for Argus $ 1 ZMODE $ PTMP 1000 700 SCALE 0 2 FOR 1 CNT MEGET 1 CNT STO DEC NEXT ;save current date 0 8 MEPUT 0 28 MEPUT 6 4 MEPUT 6 24 MEPUT 1 0 MEPUT ;use start of month JD 4 MUL ADD 1 ADD XY 5000 DIV 1 SUB ADD 7 MOD 3 STO ;calculate weekday 0 1 SWDAT JD 3 FETCH DEC ;radix JD 0 1 SWDAT JD 3 FETCH DEC ;current JD 3 FETCH SUB 11 STO DEC ;age 10000 days XY SUB 10 STO DEC ;age days $ 90 KEY GRON 0 PENC ;color=graph lines 35 PENW 888 BRCOL -1020 -620 DRAW ;draw frame 1020 -620 DRAW 1020 620 DRAW -1020 620 DRAW POLY $ 3 PENW 000 PENC ;0-line -1000 0 DRAW 1000 0 DRAW $ PENUP ;date marks 1 30 FOR 1 CNT 1 NTOS ;date no 5 ;draw text mode x and y centered 1 CNT 3 RCL ADD 7 MOD IF 000 ELSE 800 ENDIF ;set weekday/sunday color 50 ;char size 0 ;char style normal 1 CNT 1000 MUL 31 DIV 2 MUL 1000 SUB ;x -330 ;y 1 ;string number DRWTT ;draw the date NEXT $ 3 CARY BIORYTMER Januar,Februar,Marts,April,Maj,Juni Juli,August,Sepember,Oktober,November,December $ 9 1003 100 0 -950 500 0 DRWTT ;Write "Biorythms" 0 NAME 9 1003 80 0 -950 -550 0 DRWTT ;write the name 1 1003 80 0 750 -550 1 RCL DRWTT ;write the month name 2 RCL 0 NTOS 9 1003 80 0 800 -550 0 DRWTT ;write the year $ PENUP 800 PENC ;red curve 10 RCL 23 MOD 10000 23 MOD 11 RCL MUL ADD 1 SUB 23 MOD 0 31 FOR 1 CNT 2 DUP ADD 23 MOD 2849 MUL 300 PTR XY DEC 1 CNT 1000 MUL 31 DIV 2 MUL 1000 SUB XY DRAW NEXT DEC PENUP $ 60 PENC ;gr›n kurve 10 RCL 28 MOD 10000 28 MOD 11 RCL MUL ADD 1 SUB 28 MOD 0 31 FOR 1 CNT 2 DUP ADD 28 MOD 2340 MUL 300 PTR XY DEC 1 CNT 1000 MUL 31 DIV 2 MUL 1000 SUB XY DRAW NEXT DEC PENUP $ 8 PENC ;bl† kurve PENUP 10 RCL 33 MOD 10000 33 MOD 11 RCL MUL ADD 1 SUB 33 MOD 0 31 FOR 1 CNT 2 DUP ADD 33 MOD 1986 MUL 300 PTR XY DEC 1 CNT 1000 MUL 31 DIV 2 MUL 1000 SUB XY DRAW NEXT DEC PENUP GROFF $$$