B soft0 390000 led  *** BIO - RHYTHMS ***%U A program for Nascom 1 & 2 microcomputers( equipped with Nas-sys and Econographics.2< By Graham Rounce January 1980FP **Z ** Load Zdown machine code `PAUSE'd 1020: A: 3328,An 4100,3328!x **? ** Display instructionsK 950:p"This program displays your ";"bio-rhythms for any""given date this century (the date ";"of interest).":"Ent,er your date of birth, "; "the date of interest"2"and the time period of the ";M"display (maximum 50"]"days).":"The program draws the physical ";"then emotional""then the intellectual plots. The ";"top is good,""conditions are critical where the ";""plot crosses"C,"the centre line, below the ";]6"centre line is the"~@"recuperative condition.":J"Hit any key to continue.";TZ(0)^ **h ** Get inputsr 950:|"Your birthdate (D,M,Y) "; D1,M1,Y1# D11 D131 920: 380D M11 M112 920: 380e Y10 Y199 920: 380Y1Y11900:N0Y1365.25M130.4375D1"Date of interest (D,M,Y) "; D2,M2,Y2 D21 D231 920: 450 M21 M212 920: 450) Y20 Y299 920: 450SY2Y21900:N1Y2365.25M230.4375D2lNN1N0: N0 580v 950 1,7"We aren't interested in prenatal ";&"bio-rhythms."0 A1 3000:: 370DN"Timespan (days) ";D"X D50 "Sorry, too large": 590:b D2 920: 590Cl **iv ** Convert Timespan for displayD(D2):D1ND2D$(D):D$(D$,(D$)1)B3062: D9 BB1 ** ** Display grid X0 95:(X,22):(X,0):(X,44)- Y0 44:(48,Y):(0,Y):(95,Y)5:> **U ** Display plotssD1$"-"D$: A1 (D1$) 3017A,((D1$,A,1)): D1$"+"D$: A1 (D1$) BA,((D1$,A,1)): D1$"d.o.i": A1 (D1$)* 3039A,((D1$,A,1)):&4 W1 3: C:DSD1(D1C)CK>T0DS43.14159C: X0 95 WkHST0(XD43.14159)(C95)}RY22(1(S))\(X,44Y)::f **p ** Wait for key presszZ(0): 140 ** ** Error subroutine"Come on, get it together man": **- ** Put up titleBA$"BIO-RHYTHMS"V: A1 (A$)r 3035A,((A$,A,1)):x ** ** Data for plots and machine code. 23,28,33 -13873