Category : Files from Magazines
Archive   : IMB9009.ZIP
Filename : ISAMTEST.BAS

 
Output of file : ISAMTEST.BAS contained in archive : IMB9009.ZIP
'PROGRAM - ISAMTEST.BAS

'****************************************************************
'** Purpose - This program demonstrates the essential elements *
'** you incorporate in programs using the ISAM engine *
'****************************************************************

CLS

'****************** Setup ISAM file **************************

TYPE BusMailList 'Definition for ISAM table
FirstName AS STRING * 15
LastName AS STRING * 15
Company AS STRING * 30
Address AS STRING * 30
City AS STRING * 20
State AS STRING * 2
Zip AS STRING * 5
END TYPE

DIM ML AS BusMailList 'Record variable to move data
' in and out of file

OPEN "MailList.MDB" FOR ISAM BusMailList "BusinessList1" AS #1

' Use the CREATEINDEX cmd only if the index does not exist

CREATEINDEX #1, "B1Zip", 0, "Zip"
SETINDEX #1, "B1Zip" 'Set the active index

'******************* Add records to file **********************

INPUT "Add a record to the file (Y/N)"; Response$

WHILE UCASE$(Response$) = "Y"

CLS

PRINT "Enter the following information"
PRINT

LINE INPUT "First name: "; ML.FirstName
LINE INPUT "Last name : "; ML.LastName
LINE INPUT "Company : "; ML.Company
LINE INPUT "Address : "; ML.Address
LINE INPUT "City : "; ML.City
LINE INPUT "State : "; ML.State
LINE INPUT "Zip : "; ML.Zip

INSERT #1, ML
PRINT
INPUT "Add another record to the file (Y/N)"; Response$

WEND

'****** Sequentially display records from file *****************

MOVEFIRST #1 'Set initial file postion

NbrRecs = LOF(1) 'For ISAM files, LOF returns the # of records

FOR RecNbr = 1 TO NbrRecs

CLS

RETRIEVE #1, ML 'Get the next ISAM record

PRINT "Business mailing list display"
PRINT
PRINT "First name: "; ML.FirstName
PRINT "Last name : "; ML.LastName
PRINT "Company : "; ML.Company
PRINT "Address : "; ML.Address
PRINT "City : "; ML.City
PRINT "State : "; ML.State
PRINT "Zip : "; ML.Zip
PRINT
INPUT "Press to see the next record."; Response$

MOVENEXT #1 'Advance next record

NEXT RecNbr

PRINT
PRINT "End of file reached."
PRINT "Terminating program."

CLOSE 1
END



  3 Responses to “Category : Files from Magazines
Archive   : IMB9009.ZIP
Filename : ISAMTEST.BAS

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/