home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 1998 January / TREIBERCD0198.ISO / Freeware / Ascii.EXE / ASCII.BAS next >
Encoding:
BASIC Source File  |  1997-09-29  |  1.1 KB  |  50 lines
  1. CLS
  2. COLOR 15, 1
  3. LOCATE CSRLIN + 2: PRINT "(A)lle ASCII-Zeichen oder bestimmter (W)ert? ": j$ = INPUT$(1)
  4. CLS
  5.  
  6. IF UCASE$(j$) <> "W" THEN
  7. l = 1: s = 1
  8. COLOR 14, 0
  9. LOCATE 25, 1: PRINT "Die ASCII-Werte 07-13 und 28-31 sind nicht als Zeichen darstellbar!             "
  10.  
  11. FOR a = 1 TO 255
  12.      IF a = 7 THEN a = 14
  13.      IF a = 28 THEN a = 32
  14.      char$ = CHR$(a)
  15.      LOCATE l, s
  16.      COLOR 0, 15
  17.      PRINT char$ + "  = ASCII" + STR$(a)
  18.      s = s + 21
  19.      IF s > 66 THEN
  20.         l = l + 3
  21.         s = 1
  22.      END IF
  23.          
  24.      IF l >= 24 THEN
  25.         l = 1
  26.         s = 1
  27.         LOCATE 24, 1: INPUT "Weiter mit Eingabetaste...", w$
  28.         COLOR 15, 1
  29.         CLS
  30.      END IF
  31. NEXT
  32. SYSTEM
  33. END IF
  34.  
  35. LOCATE 5, 1
  36. INPUT "Wert eingeben (Buchstabe oder mindestens 2-stellige Ziffer): ", a$
  37. IF LEN(a$) = 1 THEN
  38.    LOCATE 7, 25
  39.    COLOR 0, 15
  40.    PRINT a$, "= ASCII-Wert", ASC(a$), CHR$(13)
  41. ELSE
  42.    a = VAL(a$)
  43.    LOCATE 7, 25
  44.    COLOR 0, 15
  45.    IF a > 255 THEN PRINT "Ungültiger ASCII-Wert!": SYSTEM
  46.    PRINT a$, "= Character", CHR$(a), CHR$(13)
  47. END IF
  48. SYSTEM
  49.  
  50.