' URL auswerten

LINE INPUT "Internet-Adresse (URL): "; url$
p1% = INSTR(url$, "://")
IF p1% = 0 THEN
  PRINT "Ungltig!"
ELSE
  SELECT CASE LEFT$(url$, p1% - 1)
  CASE "http"
    p2% = INSTR(p1% + 3, url$, "/")
    IF p2% = 0 THEN
      PRINT "Bitte noch / am Schluss angeben!"
    ELSE
      ho$ = MID$(url$, p1% + 3, p2% - p1% - 3)
      p3% = INSTR(ho$, ":")
      IF p3% = 0 THEN
        port% = 80
        host$ = ho$
      ELSE
        port% = VAL(MID$(ho$, p3% + 1))
        host$ = LEFT$(ho$, p3% - 1)
      END IF
      PRINT "telnet "; host$; port%
      PRINT "GET "; MID$(url$, p2%); " HTTP/1.0"
      PRINT "Host: "; host$
      PRINT
    END IF
  CASE "ftp"
    PRINT "Nicht implementiert"
  CASE ELSE
    PRINT "Ungltig oder nicht implementierte Protokollart"
  END SELECT
END IF