module cli
          Input stdin
          Output stdout

            Randomize_Timer        ;Startwert für RND setzen

*_________ sechs Lottozahlen zwischen 1 und 49 ermitteln ________________

          for.b [i] zz = #1 to #6    ; 6 mal durchlaufen

            RND [ #1, #49 ] Zahl
            Lea Zahlen,a4
            set7 6                   ; Abakus intern !!
                                     ; nimmt als Vergleichsregister nun d6 statt d7

*____ nachsehen ob Zahl schonmal vorkam __________

            Select.l Zahl
                    Case.l (a4)+ Goto Abermals
                    Case.l (a4)+ Goto Abermals
                    Case.l (a4)+ Goto Abermals
                    Case.l (a4)+ Goto Abermals
                    Case.l (a4)  Goto Abermals  ; wenn ja Gehe zu Label Abermals


             clear d0
             Let.b d0 = zz - #1 + d0 + d0

             lea Zahlen,a4
             move.l Zahl,0(a4,d0)
Lotto
          Next [i]

*____ Dezimalzahlen in String umwandeln und in Stdout Window ausgeben ____

          lea Zahlen,A3
          Again [a] #6
             Clear.l String
             Clear.l String2
             Str.l (a3)+,#String
             WriteS #String
             WriteS #LF #1
          End Again [a]

          Return           ; Programm Ende


Abermals
          dec.b zz         ; Schleifenzähler um eins runter
          Goto Lotto


*__________ Daten ______________________________

zz        dc.b 0
LF        dc.b 10

          even
Zahl      ds.l 1
Zahlen    ds.l 6
String    ds.l 1
String2   ds.l 1