home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / asc_code / asccode.bas < prev    next >
BASIC Source File  |  1997-10-09  |  941b  |  23 lines
  1. 8 rem
  2. 10 rem
  3. 11 CLEAR : CLS
  4. 12 color 0,7:print " ------ (c) 1991 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ------- ":color 7,0
  5. 20 LOCATE 3,33 : PRINT "ASC II - CODE"
  6. 21 LOCATE 4,32 : PRINT "_______________"
  7. 22 LOCATE 6,32 : PRINT " Public Domain"
  8. 23 locate 8,32 : print "  Version 3.0 "
  9. 24 LOCATE 10,3 : FOR I=1 TO 74 : PRINT "_"; : NEXT : LOCATE 13,5 : PRINT "Achten Sie auf Gross/Kleinschreibung"
  10. 25 LOCATE 15,5 : PRINT "Geben Sie das Zeichen ein, vom dem Sie"
  11. 26 LOCATE 16,5 : PRINT "den ASC II-Code wissen wollen."
  12. 27 LOCATE 18,5 : PRINT "Ihre Eingabe :"
  13. 30 E$ = INKEY$ : IF E$="" THEN 30
  14. 31 IF E$=CHR$(13) THEN 30
  15. 32 LOCATE 18,20 : PRINT E$
  16. 35 LOCATE 20,5 : PRINT "DER ASC II-CODE IST = "
  17. 36 LOCATE 20,30 : PRINT ASC(E$)
  18. 37 LOCATE 23,5 : PRINT "Beliebige Taste für weiterere Eingaben                 ESC für Programmende"
  19. 40 R$ = INKEY$ : IF R$="" THEN 40
  20. 41 IF R$=CHR$(27) THEN CLS : END
  21. 43 GOTO 11
  22.  
  23.