home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / anwend / luna121 / scripte / asctable.lus next >
Text File  |  1999-06-05  |  917b  |  38 lines
  1.  
  2. ; LunaScript by rgf
  3. ; Beispiel Nummer 2:
  4. ; Kleine Rechnereien, und eine Ascii-Tabelle erzeugen:
  5.  
  6.  f%=62
  7.  f%=add(f%,3)
  8.  keypress(f%,0)                ; dürfte Wert 65 sein, also Ascii-"A"
  9.  return(0)
  10.  tput "Wert von f% : "        ; zur Kontrolle beide ausgeben
  11.  tput f%                    ; Wert ausgeben
  12.  return(0)                    ; Zeilenumbruch
  13.  tput "Wert von 'A': "
  14.  tput asc("A")                ; Wert ausgeben
  15.  return(0)
  16.  return(0)
  17.  
  18. ; nächste Spielerei: die Ascii-Tabelle mit zwei
  19. ; Schleifen erzeugen (Tabulatorexpansion am besten ausschalten, sonst
  20. ; ist das Tab-Zeichen nicht zu sehen).
  21.  
  22.  tput "          "            ; erstmal 10 Leerzeichen einrücken
  23.  
  24.  f%=1                        ; Bei Ascii 1 anfangen, Null ist nicht erlaubt
  25.                              ; und wird sowieso ingnoriert.
  26.  for a%=1 to 10                ; Zeilen
  27.    for i%=f% to add(f%,25)
  28.      keypress(i%,0)
  29.    next i%
  30.    add f%,26
  31.    return(0)
  32.  next a%
  33.  return(0) 
  34.  tput "fertig...=:)"
  35.  return(0)
  36.  return(0)
  37.  end()
  38.