\START92\ \COMMENT=Program file dated 10/18/98, 14:09 \NAME=addbook \FILE=ADDBOOK.92P () Prgm Local pl,nl,al,cl,sl,zl,i,db,nf,c,n,a,ci,p,s,z,co Dialog Text "Virtual Address Book" Text "DATAMaker v1.2e" Text "Developed By Rick Coogle" EndDlog Lbl s Dialog Title "Data Maker" Request "Name of database",db DropDown "Does it already exist?",{"No","Yes"},nf Text "ESC=Exit" EndDlog If ok=0 Stop {}\->\pl {}\->\nl {}\->\al {}\->\cl {}\->\sl {}\->\zl 1\->\c Loop Dialog Title "Enter Data" Text "Respond below:" DropDown "Continue?",{"Yes","No"},co Request "Name",n Request "Address",a Request "City",ci Request "State",s Request "ZIP Code",z Request "Phone Number",p EndDlog If co=1 Then n\->\nl[c] a\->\al[c] ci\->\cl[c] s\->\sl[c] z\->\zl[c] p\->\pl[c] c+1\->\c Else If nf=1 Then NewData #db,nl,al,cl,sl,zl,pl Goto s Else NewData #db,augment(#db[1],nl),augment(#db[2],al),augment(#db[3],cl),augment(#db[4],sl),augment(#db[5],zl),augment(#db[6],pl) Goto s EndIf EndIf EndLoop EndPrgm \STOP92\