'===========================================================================
' Subject: URL ADDRESS BOOK                   Date: 05-19-98 (13:26)       
'  Author: Nitin Reddy                        Code: QB, QBasic, PDS        
'  Origin: reddy@emirates.net.ae            Packet: HTML.ABC
'===========================================================================
ON ERROR GOTO ErrorHandler

MainMenu:
10 CLS
PRINT
PRINT " E)nter New Address"
PRINT " R)ead Addresses"
PRINT " D)OS Shell"
PRINT " Q)uit"
PRINT
SELECT CASE INPUT$(1)
CASE "E", "e": GOSUB EnterNew
CASE "R", "r": GOSUB ReadAdd
CASE "D", "d": SHELL
CASE "Q", "q": SYSTEM
END SELECT
GOTO MainMenu

EnterNew:
CLS
PRINT
LINE INPUT "Enter URL   : ", URL$
LINE INPUT "Description : ", Desc$
OPEN "Website.txt" FOR APPEND AS #1
PRINT #1, URL$
PRINT #1, Desc$
CLOSE
RETURN

ReadAdd:
OPEN "Website.txt" FOR INPUT AS #1
CLS
DO WHILE NOT EOF(1)
PRINT
LINE INPUT #1, URL$
PRINT URL$
LINE INPUT #1, Desc$
PRINT Desc$
SLEEP
LOOP
CLOSE
RETURN
END

ErrorHandler:
CLS
PRINT
PRINT
PRINT "    File not found"
SLEEP
RESUME 10