10 REM A database that uses a record structure and a sequential file. 20 SYS "GetStdHandle", -10 TO @hfile%(1) 30 SYS "GetStdHandle", -11 TO @hfile%(2) 40 SYS "SetConsoleMode", @hfile%(1), 0 50 *INPUT 13 60 *OUTPUT 14 70 DIM details{name$, phone$, email$,response%(1,10)} 80 DIM contact{(100)} = details{} 90 DIM temp{(1)} = contact{(100)} 100 counter = 0 110 FOR d = 1 TO 100 120 FOR c = 1 TO 10 130 contact{(d)}.response%(1,c) = 0 140 NEXT c 150 NEXT d 160 REPEAT 170 PRINT 180 PRINT"1. Create a record." 190 PRINT"2. Save records to file." 200 PRINT"3. Delete a record." 210 PRINT"4. Sort records." 220 PRINT"5. List records." 230...