Dieses Programm zeichnet einen Barnsley Farn auf dem DM42 Taschenrechner von SwissMicros.
Hier ist eine Variante für den HP-85 Computer.

RAW Datei: fern.zip

Programm

01 § LBL "FERN"
02   3
03   STO "GrMod"
04   15E4
05   STO 00
06   CLX
07   STO 01
08   STO 02
09 § LBL 00
10   RAN
11   .15
12   X>Y?
13   GTO 01
14   RCL 01         ; f2
15   -.04
16   *
17   RCL 02
18   .85
19   *
20   +
21   1.6
22   +
23   RCL 01
24   .85
25   *
26   RCL 02
27   .04
28   *
29   +
30   GTO 04
31 § LBL 01
32   X<>Y
33   .08
34   X>Y?
35   GTO 02
36   RCL 01         ; f4
37   .26
38   *
39   RCL 02
40   .24
41   *
42   +
43   .44
44   +
45   RCL 01
46   -.15
47   *
48   RCL 02
49   .28
50   *
51   +
52   GTO 04
53 § LBL 02
54   X<>Y
55   .01
56   X>Y?
57   GTO 03
58   RCL 01         ; f3
59   .23
60   *
61   RCL 02
62   .22
63   *
64   +
65   1.6
66   +
67   RCL 01
68   .2
69   *
70   RCL 02
71   .26
72   *
73   -
74   GTO 04
75 § LBL 03         ; f1
76   RCL 02
77   .16
78   *
89   ENTER
80   CLX
81 § LBL 04
82   STO 01
83   2.35
84   +
85   47
86   *
87   X<>Y
88   STO 02
89   .05
90   +
91   39
92   *
93   PIXEL
94   1
95   ST- 00
96   RCL 00
97   X>0?
98   GTO 00
99   END