10DIM n$(300), b$(300), c$(300), h$(300), e$(300)
16TEXT
17? "PLACE FILE DISK OR DDP IN DRIVETHEN PRESS ANY KEY TO    CON TINUE"
18GET gg$
20 cl$=CHR$(12)
21 d$=CHR$(4)
25? cl$
30? TAB(15); "MENU":?:?
31? "1.  START NEW FILE"
32? "2.  USE CURRENT FILE":? "OPTION 1 WILL DELETE YOUR      CURRENT FILE"
33GET gg$:IF gg$<"1" OR gg$>"2" THEN 33
34IF gg$="1" THEN 100
36? cl$:? "Reading file into memory": x=0
37? d$; "OPEN PERSONAL"
38? d$; "READ PERSONAL"
39 x=x+1
40INPUT n$(x)
41IF n$(x)="/done" OR n$(x)="/DONE" THEN  x=x-1:GOTO 45
42INPUT b$(x)
43INPUT c$(x):INPUT h$(x):INPUT e$(x)
44 x=x+1:GOTO 40
45? d$; "CLOSE PERSONAL"
46? d$; "CLOSE PERSONAL":? "HIT ANY KEY TO CONTINUE"
47GET gg$:IF gg$="" THEN 47
49? cl$
50? TAB(15); "MENU":?
51ONERR  GOTO 49
53? "1.  LIST DATA ON PRINTER"
54? "2.  FIND ONE ITEM":? "3.  SORT DATA BY NAME  "
55? "4.  ADD TO FILE":? "5.  DELETE FROM FILE":? "6.  EXIT"
56GET gg:IF gg<1 OR gg>6 THEN 56
60? cl$
70ON gg GOTO 1200, 1350, 1500, 105, 1750, 1900
100REM                    ** INPUT DATA
101 x=0
105? cl$
110? "ENTER NAME, LAST NAME FIRST":? "(27 LETTERS MAX)"
111?
120? "ENTER BIRTHDAY":? "ie: mm/dd/yy"
121?
130? "ENTER 3 LINES OF INFORMATION"
135?:? "WHEN ALL DONE ENTERING DATA":? "ENTER /DONE FOR NAME "
136?
140? "HIT ANY KEY TO CONTINUE"
150GET qq$:IF qq$="" THEN 150
151? cl$
152 x=x+1
160INPUT "NAME: "; n$(x)
165IF n$(x)="/DONE" OR n$(x)="/done" THEN GOTO 291
170IF LEN(n$(x))>27 OR LEN(n$(x))<1 THEN 160
190?:INPUT "B-DAY:  "; b$(x)
200IF LEN(b$(x))>8 OR LEN(b$(x))<8 THEN 190
220?:INPUT "LINE 1: "; c$(x)
225IF LEN(c$(x))>255 OR LEN(c$(x))<1 THEN 220
230?:INPUT "LINE 2: "; h$(x)
235IF LEN(h$(x))>255 OR LEN(h$(x))<1 THEN 230
240?:INPUT "LINE 3: "; e$(x)
245IF LEN(e$(x))>255 OR LEN(e$(x))<1 THEN 240
290GOTO 151
291 n$(x)="/done"
292 c$(x)="FF": h$(x)="FF": e$(x)="FF"
295REM                    ** REVIEW DATA
296? cl$
300? "DO YOU WISH TO REVIEW DATA     BEFORE SAVING?(Y/N)"
310GET gg$:IF gg$="" THEN 310
320IF gg$="Y" OR gg$="y" THEN 400
330IF gg$="N" OR gg$="n" THEN 350
340GOTO 295
350GOTO 630
400? cl$: t=0: k=x-1
410FOR t=1 TO k:FLASH:? "RECORD NUMBER "; t:NORMAL:?
420? n$(t):?
430? "CORRECT(Y/N)"
431GET gg$
450IF gg$="Y" OR gg$="y" THEN 480
460INPUT "ENTER CORRECT DATA"; t$(t)
470IF LEN(n$(t))>27 OR LEN(n$(t))<1 THEN ? "REENTER":GOTO    420
480?:? b$(t):?
490? "CORRECT(Y/N)"
491GET gg$
500IF gg$="Y" OR gg$="y" THEN 530
510INPUT "ENTER CORRECT DATA"; a$(t)
520IF LEN(b$(t))>8 OR LEN(b$(t))<8 THEN ? "REENTER":GOTO 480
530?:? c$(t)
540? "CORRECT(Y/N)"
541GET gg$
550IF gg$="Y" OR gg$="y" THEN 580
560INPUT "ENTER CORRECT DATA"; upc$(t)
570IF LEN(c$(t))>255 OR LEN(c$(t))<1 THEN 530
580?:? h$(t)
581? "CORRECT(Y/N)"
582GET gg$
583IF gg$="Y" OR gg$="y" THEN 586
584?
585INPUT "ENTER CORRECT DATA: "; h$(t)
586?:? e$(t)
587? "CORRECT(Y/N)"
588GET gg$
589IF gg$="Y" OR gg$="y" THEN 620
590?:INPUT "ENTER CORRECT DATA: "; e$(t)
620?:NEXT t
630? cl$:? "ALL DONE...SAVING DATA NOW"
650 t=0
660? d$; "OPEN PERSONAL"
670? d$; "WRITE PERSONAL"
680FOR t=1 TO x
690? n$(t):? b$(t)
700? c$(t):? h$(t)
710? e$(t)
720NEXT t
730? d$; "CLOSE PERSONAL"
735 x=x-1
740GOTO 49
1200REM                  ** LIST TO PRINTER
1205PR #1: t=0: fs=0
1220FOR t=1 TO x
1221? n$(t)
1222? b$(t)
1223? c$(t)
1224? h$(t)
1225? e$(t)
1226?:?:?
1250NEXT t
1260PR #0
1300GOTO 49
1350REM                  ** FIND ONE ITEM
1355 t=0: fs=0
1360INPUT "NAME: "; ln$:?
1380FOR t=1 TO x
1390IF ln$=n$(t) THEN  fs=t
1400NEXT t
1410? cl$:? "RECORD NUMBER"; fs:?
1420? n$(fs)
1430? b$(fs):? c$(fs):? h$(fs):? e$(fs)
1450? "HIT ANY KEY TO CONTINUE"
1460GET gg$:IF gg$="" THEN 1460
1470GOTO 49
1500REM                  ** SORT DATA
1505 g=0: k=0: j=0: i=0: ro=0: point=0
1510? "SORTING DATA, PLEASE WAIT"
1530FOR g=1 TO x-1
1531 point=g
1535FOR k=g+1 TO x
1540IF n$(point)>n$(k) THEN  point=k
1545NEXT k
1550IF g=point THEN 1600
1555 q$=n$(g): qb$=b$(g): qc$=c$(g): qh$=h$(g): qe$=e$(g)
1556 n$(g)=n$(point): b$(g)=b$(point): c$(g)=c$(point):      h$(g)=h$(point): e$(g)=e$(point)
1557 n$(point)=q$: b$(point)=qb$: c$(point)=qc$:             h$(point)=qh$: e$(point)=qe$
1600NEXT g
1610?:?:?:SPEED =100:? "   A L L  D O N E":SPEED =250
1620IF xtx$="HELP" THEN  xtx$="OK": n$(x)="/done":           b$(x)="/done": c$(x)="V": h$(x)="V": e$(x)="v":GOTO 630
1630GOTO 49
1750REM                  ** DELETE DATA
1755 t=0: fs=0
1760? "ENTER DATA TO BE DELETED":?
1765INPUT " NAME: "; dn$
1775FOR t=1 TO x
1780IF n$(t)=dn$ THEN  fs=t
1790 n$(fs)="ZZZZZ": b$(fs)="ZZZZZ": c$(fs)="ZZ":            h$(fs)="ZZ": e$(fs)="ZZ"
1795 xtx$="HELP"
1800GOTO 1500
1811 n$(fs)="ZZZZZZ": b$(fs)="ZZZZZZZ": c$(fs)="ZZZ":        h$(fs)="ZZ": e$(fs)="ZZ"
1900END

