Bio 2

This is Bio-Rythm program as they where fashionable in the 1980th. It prints the bio rhythm graph to the FP-10 printer. If you have the Simulator you can download the file here. You need Mode.31 for this app.

Bio2.af #

PROGRAM LIST
File : Bio2.af

*** P0
AC DEG “Geburtstag:”
PAUSE
GSBP1
GSBP2
Min01 “Starttag:”
PAUSE
GSBP1
GSBP2
- MR01 = MAC Min1F “
***<n> ” HLT Min00
GSBP5
“P=+, E=×, I=*, Σ/3=
÷”
GSBP1
“+---------+--------
+”
GSBP1
LBL0
0 Min01 18 Min02 5
Min20 3
GSBP9
2
GSBP9
1 M+06
GSBP9
MR01 ÷ 3 =
GSBP4
IND MR09
x=0 4
IND Min09
GSBP3
1 M+1F
DSZ GOTO0
“*Ready*”
GSBP1

       ···139 steps

*** P1
SAVE invEXE
       ···3 steps

*** P2
“<Tag>	” HLT
GSBP5
Min11 “<Monat>” HLT
GSBP5
Min12 2 10^x Min0F
AC “<Jahr> ” HLT
Min13
GSBP5
x≥F GOTO7
1900 M+13
LBL7
0 Min14 3 Min0F MR12
x≥F GOTO4
31 × ( MR12 - 1 =
Min15
GOTO3
LBL4
MR13
GSBP6
FRAC
x=0 GOTO5
GOTO2
LBL5
MR13
GSBP7
FRAC
x=0 GOTO6
GOTO1
LBL6
MR13
GSBP8
FRAC
x=0 GOTO1
GOTO2
LBL1
1 Min14
LBL2
306 × MR12 - 324 ) ÷
10 = INT Min15
LBL3
MR14 + ( MR13 - 1 )
Min16 × 365 + ( MR16
GSBP6
INT - ( MR16
GSBP7
INT + ( MR16
GSBP8
INT + MR15 + MR11 )
+ MR17 =
       ···143 steps

*** P6
÷ 4 )
       ···4 steps

*** P7
÷ 100 )
       ···6 steps

*** P8
÷ 400 )
       ···6 steps

*** P9
Min05 5 M+02 MR1F ÷
MR02 = FRAC × 360 =
sin M+01
GSBP4
MR05 IND Min09
       ···20 steps

*** P5
“;=##”
GSBP1

       ···8 steps

*** P3
10 Min08
LBL9
AC IND X↔M08 Min09
IND
GOTO9
LBL0
“; ”
GOTO8
LBL1
“;*”
GOTO8
LBL2
“;×”
GOTO8
LBL3
“;+”
GOTO8
LBL4
“;÷”
GOTO8
LBL5
MR06 ÷ 10 = FRAC × 1
0 = “;#”
LBL8
1 M+08 MR08
x≥F GOTO7
GOTO9
LBL7
“;”
GSBP1

       ···68 steps

*** P4
Min03 20 Min0F MR03
+ 1 = ÷ 2 × 19 =
FIX0
x≥F MR0F
x≥0 GOTO0
MR0F
LBL0
Min09 10 M+09 M+0F
MR09
       ···29 steps