Address

Gallery

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
3800 LET K=K+1
3820 IF K>10 THEN GOTO 30
3830 LET E=K
3840 GOTO 6000
4000 PRINT "ENTRY NUMBER"
4010 INPUT E
4020 IF E>0 AND E<11 THEN GOTO 6000
4030 GOTO 30
5500 PRINT "KEY"
5510 INPUT B$
5520 FOR X=1 TO K
5530 IF A$(X,1)=B$ THEN PRINT X;"";A$(X)
5540 NEXT X
5550 GOTO 30
5600 SAVE "1010%9"
5610 GOTO 30
6000 PRINT "NEW ENTRY"
6010 INPUT A$(E)
6020 GOTO 30