Bio 3
·
Table of Contents
Bio3.pt #
All Program List
P0
AC DEG "Geburtstag:" PAUSE
GSBP1
GSBP2
Min01 "Starttag:" PAUSE
GSBP1
GSBP2
- MR01 = MAC Min1F AC "***<n> " HLT
Min00 GSBP5
"P=+, E=[MUL], I=*, [SGM]/3=[DIV]" GSBP1
"+-------------------+------------------+" GSBP1
LBL0 0 Min01 18 Min02 5 Min30 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
P1
PRT FEXE
P2
AC "<Tag> " HLT
GSBP5
Min11 AC "<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 =
P6
/ 4 )
P7
/ 100 )
P8
/ 400 )
P9
Min05 5 M+02 MR1F / MR02 = FRAC * 360 = SIN M+01 GSBP4
MR05 IND Min09
P5
";=##" GSBP1
P3
10 Min08
LBL9 AC IND X<>M08 Min09 IND GOTO9
LBL0 "; " GOTO8
LBL1 ";*" GOTO8
LBL2 ";[MUL]" GOTO8
LBL3 ";+" GOTO8
LBL4 ";[DIV]" GOTO8
LBL5 MR06 / 10 = FRAC * 10 = ";#"
LBL8 1 M+08 MR08 X>=F GOTO7
GOTO9
LBL7 ";" GSBP1
P4
Min03 40 Min0F MR03 + 1 = / 2 * 39 = FIX0 X>=F MR0F X>=0 GOTO0
0
LBL0 Min09 10 M+09 M+0F MR09
END