Zahlenzauber

Posted on by Enno Wulff

Related Post

Hier ein kleiner Zahlenzauber von Stefan Mett. Wer den Quelltext enträtseln kann, kommt vielleicht hinter das Geheimnis…

*&———————————————————————*
*& Report Z_SM_FUN                                                     *
*& Von Stefan Mett                                                     *
*&———————————————————————*
REPORT  Z_SM_FUN.
Data: g_zaehler Type i, g_icon Type icon_d, g_text(2) Type C, g_text2(2)
 Type C, g_space(5) Type C, g_wizard type icon_d, g_divide type f,
g_frac type f, g_magic(2) TYPE C, g_sum Type f, g_rnd type i,
gf_stamp(11) type p decimals 7,gf_stamp2(11) type p decimals 7,
gf_ergeb type n, gf_sekbt(2) type n, gf_hilf(22) type n,
g_char1(1) type C, g_char2(1) type C. g_space = ‚     ‚.
g_zaehler = 0. g_wizard = ‚@BY@‘. get time stamp field gf_stamp. write
gf_stamp to gf_hilf. move gf_hilf+16(2) to gf_sekbt. while gf_sekbt >=
15. get time stamp field gf_stamp. write gf_stamp to gf_hilf. move
gf_hilf+16(2) to gf_sekbt. endwhile. case gf_sekbt+0(1).   when 1.
g_char1 = ‚A‘.    when 2. g_char1 = ‚B‘.  when 3.  g_char1
=’C‘.  when 4.  g_char1 = ‚D‘.  when 5.  g_char1 = ‚E‘.  when 6. g_char1
 = ‚F‘.  when 7.  g_char1 = ‚G‘.  when 8.  g_char1 = ‚H‘.  when 9
. g_char1 = ‚I‘.  when 10.  g_char1 = ‚J‘.    when 11.  g_char1 = ‚K‘.
when 12.  g_char1 = ‚L‘.  when 13.  g_char1 = ‚M‘.  when 14.  g_char1 =
‚N‘.  when 15.  g_char1 = ‚O‘.  when 0.  g_char1 = ‚P‘.endcase. case
gf_sekbt+1(1).   when 1.  g_char2 = ‚A‘.    when 2.  g_char2 = ‚B‘.
when 3.  g_char2 =
 ‚C‘.  when 4.  g_char2 = ‚D‘.  when 5.  g_char2 = ‚E‘.  when 6. g_char2
 = ‚F‘.  when 7.  g_char2 = ‚G‘.  when 8.  g_char2 = ‚H‘.  when 9
.  g_char2 = ‚I‘.  when 10.  g_char2 = ‚J‘.    when 11.  g_char2 = ‚K‘.
when 12.  g_char2 = ‚L‘.  when 13.  g_char2 = ‚M‘.  when 14.  g_char2 =
‚N‘.  when 15.  g_char2 = ‚O‘.  when 0.  g_char2 = ‚F‘. endcase.
while g_zaehler < 100. g_divide = g_zaehler / 9. g_frac = frac( g_divide
 ).
get time stamp field gf_stamp. write gf_stamp to gf_hilf. move
gf_hilf+16(2) to gf_sekbt. gf_stamp = gf_stamp2. while gf_stamp =
gf_stamp2.   get time stamp field gf_stamp2. endwhile. g_text2 =
g_zaehler.
*if g_zaehler <= 10. *  concatenate ‚0‘ gf_sekbt into g_text. *endif. *
if g_frac is initial. concatenate g_char1 g_char2 into gf_sekbt.
g_magic = gf_sekbt. endif.
concatenate ‚@‘ gf_sekbt ‚@‘ into g_icon.   Write:  G_icon, g_text2,
g_space. if g_zaehler = 4 or g_zaehler = 9 or g_zaehler = 14 or
g_zaehler = 19 or
 g_zaehler = 24 or g_zaehler = 29 or g_zaehler = 34 or g_zaehler = 39 or
 g_zaehler = 44 or g_zaehler = 49 or g_zaehler = 54 or g_zaehler = 59 or
 g_zaehler = 64 or g_zaehler = 69 or g_zaehler = 74 or g_zaehler = 79 or
 g_zaehler = 84 or g_zaehler = 89 or g_zaehler = 94 or g_zaehler = 99.
write : /. endif. g_zaehler = g_zaehler + 1. endwhile.
Write : / ‚Denken Sie siche eine beliebige zweistellige Zahl.‘.
write :  ‚Zählen Sie dann die zwei Ziffern zusammen und ziehen‘.
 write : / ‚Sie das Ergebnis von der ursprünglichen Zahl ab.‘.
 write :  ‚Suchen Sie dann das zum Ergebnis passende Symbol in‘.
 write :  ‚der Tabelle und konzentrieren Sie sich auf dieses.‘.
 write : / ‚Klicken sie dann hier —>>‘. write:  g_wizard hotspot on.
write:  ‚<<—‚.
AT LINE-SELECTION.   PERFORM line_selection.
FORM line_selection.   DATA: l_icon TYPE icon_d,
l_iconm type icon_d.
concatenate ‚@‘ g_magic ‚@‘ into l_iconm.   READ LINE sy-lilli FIELD
VALUE g_wizard    INTO l_icon.     FORMAT COLOR COL_HEADING INTENSIFIED
ON.     write: /.write: /.write: /.write: /.write: /.write: /.     write
: ‚SIE HABEN SICH FOLGENDES SYMBOL AUSGESUCHT: ‚.     write: l_iconm.
      write: /.write: /.write: /.write: /.write: /.write: /.     write:
/ ‚Unglaublich nicht wahr?‘. ENDFORM.

Enno Wulff
follow me
Letzte Artikel von Enno Wulff (Alle anzeigen)