10 REM ***CLUB ROSTER*** ADAPTED BY GEORGE M EPPLER
20 REM SRA BOX 6261, PALMER, ALASKA 99645
30 REM AVAILABLE ON THE FORUM-80 OF WICHITA, KS.
40 CLEAR 3500
50 DIM N$(500), A$(500), C$(500), O$(500), D$(500)
60 CLS
70 PRINT TAB(5)" CLUB ROSTER"
80 PRINT TAB(5)"BY GEORGE M EPPLER"
90 PRINT
100 PRINT" USE NUMBER TO SELECT COMMAND"
110 PRINT
120 PRINT"1 LIST TO SCREEN OR PRINTER"
130 PRINT"2 ENTER NAMES INTO LIST"
140 PRINT"3 LOCATE ONE NAME WITH ADDRESS"
150 PRINT"4 LOCATE ALL NAMES IN ONE CITY"
160 PRINT"5 SEARCH DATA"
170 PRINT"6 PRINT ADDRESS LABELS"
180 PRINT"7 EDIT ONE NAME IN LIST"
190 PRINT"8 SAVE ON TAPE(TAPE RECORDER TO RECORD)"
200 PRINT"9 INPUT FROM TAPE(TAPE RECORDER TO PLAY)"
210 A$=INKEY$
220 IF A$="" THEN 210
230 R=VAL(A$)
240 ON R GOTO 260, 670, 800, 1040, 1300, 1450, 1590, 1970, 2030
250 GOTO 90
260 INPUT"LIST TO PRINTER(Y OR N)";Y$
270 FOR R=1 TO 100
280 IF N$(R)="**" THEN 90
290 IF N$(R)="" THEN 460
300 IF N$(R)="JUMP" THEN 440
310 IF Y$="Y" THEN 330 
320 GOTO 360
330 LPRINT N$(R);",";O$(R);",";A$(R);"," C$(R)
340 LPRINT D$(R)
350 LPRINT
360 PRINT N$(R)
370 PRINT A$(R)
380 PRINT C$(R)
390 PRINT O$(R)
400 PRINT D$(R)
410 PRINT
420 FOR I=1 TO 500
430 NEXT I
440 NEXT R
450 GOTO 90
460 PRINT
470 PRINT
480 PRINT"LIST IS EMPTY"
490 GOTO 90
500 PRINT"TYPE **(TWO ASTERISKS)AFTER LAST DATA ENTRY"
510 PRINT"IF ENTERED BY MISTAKE TYPE IN JUMP"
520 PRINT"DO NOT USE COMMAS IN ENTRIES, AS ALL DATA AFTER COMMAWILL BE IGNORED"
530 PRINT
540 FOR R=(1+E) TO 100
550 PRINT"#";R
560 INPUT"NAME>";N$
570 IF N$="JUMP" THEN GOTO 90
580 N$(R)=N$
590 IF N$(R)="**" THEN 2080
600 INPUT"ADDRESS>";A$(R)
610 INPUT"CITY STATE ZIP CODE>";C$(R)
620 INPUT"IDENTIFICATION NUMBER>";O$(R)
630 INPUT"MEMBER DATA";D$(R)
640 NEXT R
650 GOTO 90
660 REM TOTAL
670 PRINT
680 R=0
690 FOR E=1 TO 100
700 IF N$(E)="JUMP" THEN 740
710 IF N$(E)="**" THEN 750
720 IF N$(E)="" THEN 750
730 R=R+1
740 NEXT E
750 PRINT"THERE ARE";R;"NAMES IN LIST"
760 E=E-1
770 IF A$="2" GOTO 500
780 GOTO 90
790 REM NAME SEARCH
800 INPUT"NAME>";N$
810 PRINT
820 FOR R=1 TO 100
830 IF N$=N$(R) THEN 900
840 NEXT R
850 PRINT"SORRY, ";N$;", NOT FOUND IN LIST"
860 PRINT
870 GOTO 90
880 FOR JJ=1 TO 500
890 NEXT JJ
900 PRINT N$(R)
910 PRINT A$(R)
920 PRINT C$(R)
930 PRINT O$(R)
940 PRINT D$(R)
950 INPUT"TO PRINTER Y OR N";Y$
960 IF Y$="Y" THEN 980
970 GOTO 90
980 LPRINT N$(R);",";
990 LPRINT A$(R);",";
1000 LPRINT C$(R);",";
1010 LPRINT O$(R)
1020 LPRINT D$(R)
1030 GOTO 90
1040 INPUT"OUTPUT TO PRINTER (Y OR N)";Y$
1050 INPUT"WHAT IS THE CITY NAME>";C$
1060 PRINT
1070 FOR R=1 TO 100
1080 IF C$=C$(R)THEN 1110
1090 NEXT R
1100 GOTO 90
1110 IF N$(R)="JUMP" THEN 1280
1120 PRINT
1130 PRINT N$(R)
1140 PRINT A$(R)
1150 PRINT C$(R)
1160 PRINT O$(R)
1170 PRINT D$(R)
1180 IF Y$="Y" THEN 1200
1190 GOTO 1260
1200 LPRINT N$(R);",";
1210 LPRINT O$(R);",";
1220 LPRINT A$(R);",";
1230 LPRINT C$(R)
1240 LPRINT D$(R)
1250 LPRINT
1260 PRINT
1270 PRINT
1280 NEXT R
1290 GOTO 90
1300 INPUT"SEARCH FOR";Y$
1310 INPUT"TO PRINTER";E$
1320 IF E$="Y" LPRINT"NAMES OF PEOPLE WHOSE DATA INCLUDES " Y$
1330 FOR R=1 TO 100
1340 X$=D$(R)
1350 IF N$(R)="**" THEN 90
1360 GOSUB 2120
1370 IF I=0 THEN 1430 
1380 PRINT N$(R)
1390 IF E$="Y" THEN 1410 
1400 GOTO 1430
1410 LPRINT
1420 LPRINT N$(R)
1430 NEXT R
1440 GOTO 90
1450 REM PRINT ADDRESS LABELS
1460 LPRINT
1470 FOR R =1 TO 100 STEP 3
1480 IF N$(R)="" THEN 90
1490 IF N$(R)="**" THEN  90
1500 LPRINT TAB(0) N$(R); TAB(24) N$(R+1); TAB(51) N$(R+2)
1510 LPRINT TAB(0) A$(R); TAB(24) A$(R+1); TAB(51) A$(R+2)
1520 LPRINT TAB(0) C$(R); TAB(24) C$(R+1); TAB(51) C$(R+2)
1530 LPRINT
1540 LPRINT TAB(0) O$(R); TAB(24) O$(R+1); TAB(51) O$(R+2)
1550 LPRINT
1560 NEXT R
1570 GOTO 90
1580 REM EDIT
1590 INPUT"NAME>";N$
1600 FOR R=1 TO 100
1610 IF N$(R)="**" THEN 1640
1620 IF N$=N$(R) THEN 1680
1630 NEXT R
1640 PRINT
1650 PRINT"SORRY, ";N$;", NOT FOUND IN  LIST"
1660 PRINT
1670 GOTO 90
1680 PRINT"IF NO CHANGE IS DESIRED HIT 'ENTER' TO CONTINUE"
1690 PRINT"OLD NAME  ";N$(R)
1700 INPUT "NEW NAME>";E$
1710 IF E$="" THEN 1730
1720 N$(R)=E$
1730 PRINT"OLD ADDRESS  ";A$(R)
1740 INPUT"ADDRESS>";F$
1750 IF F$="" THEN 1770
1760 A$(R)=F$
1770 PRINT"OLD CITY  ";C$(R)
1780 INPUT"CITY >";C$
1790 IF C$="" THEN 1810
1800 C$(R)=C$
1810 PRINT"OLD I.D. NUMBER  ";OH(R)
1820 INPUT"NEW I.D. NUMBER>";O$
1830 IF O$="" THEN 1850
1840 O$(R)=O$
1850 PRINT"OLD DATA  ";D$(R)
1860 INPUT"DATA";D$
1870 IF D$="" THEN 1890
1880 D$(R)=D$
1890 PRINT"O.K."
1900 E$=""
1910 F$=""
1920 O$=""
1930 D$=""
1940 C$=""
1950 GOTO 90
1960 REM SAVE ON TAPE
1970 FOR R=1 TO 100
1980 PRINT#-1, N$(R), A$(R), C$(R), O$(R), D$(R)
1990 IF N$(R)="**" THEN GOTO 90
2000 NEXT R
2010 GOTO 90
2020 REM INPUT FROM TAPE
2030 FOR R=1 TO 100
2040 INPUT#-1, N$(R), A$(R), C$(R), O$(R), D$(R)
2050 IF N$(R)="**" THEN GOTO 2080
2060 NEXT R
2070 GOTO 90
2080 PRINT
2090 PRINT" BYTES FREE FOR DATA>";  FRE(N$)
2100 GOTO 90
2110 END
2120 FOR I=1 TO LEN(X$)-LEN(Y$)+1
2130 IF Y$=MID$(X$, I, LEN(Y$))RETURN
2140 NEXT
2150 I=0
2160 RETURN
