Source Code
1 REM ADDRESS
2 REM DONT ENTER ANYTHING BESIDES %A%,%C%,%R%,%S%, SINCE PROGRAM WILL CRASH. TO REVIEW, PROGRAM WILL ASK FOR A"KEY". THEN TYPE IN FIRST LETTER OR NUMBER OF DATA. TO CHANGE PROGRAM WILL ASK FOR ENTRY NUMBER" YOU MUST USE REVIEW TO IND THE ENTRY NO.TO ALTER DATA ETERED.
5 LET K=0
10 DIM A$(10,25)
20 DIM B$(1)
30 PRINT "ADD,CHANGE,REVIEW,SAVE"
40 INPUT B$
50 CLS
60 GOTO CODE B$*100
\n3800 LET K=K+1
\n3820 IF K>10 THEN GOTO 30
\n3830 LET E=K
\n3840 GOTO 6000
\n4000 PRINT "ENTRY NUMBER"
\n4010 INPUT E
\n4020 IF E>0 AND E<11 THEN GOTO 6000
\n4030 GOTO 30
\n5500 PRINT "KEY"
\n5510 INPUT B$
\n5520 FOR X=1 TO K
\n5530 IF A$(X,1)=B$ THEN PRINT X;"";A$(X)
\n5540 NEXT X
\n5550 GOTO 30
\n5600 SAVE "1010%9"
\n5610 GOTO 30
\n6000 PRINT "NEW ENTRY"
\n6010 INPUT A$(E)
\n6020 GOTO 30
