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 PROGRAM LIST *** 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 × 10 = “;#” 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 |
![]() ![]() ![]() |