home *** CD-ROM | disk | FTP | other *** search
/ PC Action 1997 January / PCA0197.ISO / special / baskurs / kurs0036.bas < prev    next >
BASIC Source File  |  1996-02-11  |  300b  |  22 lines
  1. 'ASC-Demo
  2.  
  3. DIM Zeichen AS STRING * 1
  4.  
  5. COLOR 15, 1
  6. CLS
  7.  
  8. PRINT "Gib ein beliebiges Zeichen ein!"
  9. Zeichen = INPUT$(1)
  10.  
  11. PRINT
  12. PRINT "Du hast das Zeichen ";
  13. COLOR 14
  14. PRINT Zeichen;
  15. COLOR 15
  16. PRINT " eingegeben. Sein ASCII-Code lautet";
  17. COLOR 14
  18. PRINT ASC(Zeichen);
  19. COLOR 15
  20. PRINT "."
  21.  
  22.