10 REM*******
20 REM* LIST MANAGER
30 REM* WM V R SMITH
40 REM*  ARTSCI INC
50 REM********
60 CLEAR 1000,1200
70 DIM L$(16)
80 GOSUB 860
90 CLS
100 PRINT"LIST MANAGER"
110 PRINT"1 - ADD TO LIST"
120 PRINT"2 - DELETE A ITEM"
130 PRINT"3 - PRINT LIST";
140 X$=INKEY$
150 A=VAL(X$)
160 ON A GOTO 180,410,700
170 GOTO 140
180 REM ADD TO LIST
190 CLS
200 IF N>15 THEN 350
210 PRINT"ENTER LIST ITEM"
220 PRINT:INPUT I$
230 IF I$="" THEN 90
240 PRINT"ENTER PRIORITY"
250 PRINT"NUMBER 1 -";N+1
260 INPUT A$
270 P=VAL(A$):IF P<1 THEN P=N+1
280 FOR X=N+1 TO P STEP-1
290 L$(X+1)=L$(X)
300 NEXT
310 L$(P)=I$
320 N=N+1
330 GOSUB 1170
340 GOTO 90
350 PRINT"YOUR LIST HAS"
360 PRINT"THE MAXIMUM NUMBER"
370 PRINT"OF ENTRIES"
380 SOUND 2,3
390 FOR I=1 TO 1000:NEXT
400 GOTO 90
410 REM DELETE FROM LIST
420 CLS
430 IF N=0 THEN 600
440 PRINT"ENTER ITEM NUMBER"
450 PRINT"TO REMOVE 1 -";N
460 INPUT A$
470 A=VAL(A$)
480 IF A<1 OR A>N THEN 90
490 CLS
500 PRINTL$(A)
510 PRINT:PRINT"REMOVE THIS ITEM?"
520 I$=INKEY$
530 IF I$="Y" THEN 560
540 IF I$="N" THEN 90
550 GOTO 520
560 L$(A)="N/A"
570 N=N-1
580 GOSUB 1170
590 GOTO80
600 REM CLEAR ??
610 CLS
620 PRINT"SHALL I CLEAR THE"
630 PRINT"LIST NAME?"
640 I$=INKEY$
650 IF I$="Y" THEN 680
660 IF I$="N" THEN 90
670 GOTO 640
680 N$="0000":PUT%0,N$
690 RUN
700 REM* LPRINT LIST
710 CLS
720 LPRINT"          ";DATE$
730 LPRINT
740 LPRINT N$
750 LPRINT
760 FOR X=1 TO N
770 L=30:L$=L$(X)
780 L=L-1:IFMID$(L$,L,1)=" "THEN 780
790 L$=LEFT$(L$,L)
800 X$=STR$(X)+"-"+L$
810 LPRINT X$
820 PRINT X$
830 NEXT
840 GOTO 90
850  STOP
860 DEFFIL30,100
870 GET% 0,N$
880 IF MID$(N$,3,2)<>"WS" THEN 970
890 N=VAL(N$)
900 N$=MID$(N$,5,25)
910 IF N=0 THEN 960
920 FOR X=1 TO N
930 GET% X,L$
940 L$(X)=L$
950 NEXTX
960 RETURN
970 REM NO FILE
980 CLS
990 PRINT"PLEASE ENTER A"
1000 PRINT"NAME FOR YOUR"
1010 PRINT"LIST"
1020 INPUT N$
1030 CLS
1040 IF LEN(N$)>25 THEN 1140
1050 PRINT N$
1060 PRINT:PRINT"CORRECT ?";
1070 X$=INKEY$
1080 IF X$="N" THEN 970
1090 IF X$="Y" THEN 1110
1100 GOTO 1070
1110 N$="00WS"+N$
1120 PUT%0,N$
1130 GOTO 860
1140 PRINT"NAME TO LONG!"
1150 FOR I=1 TO 1000:NEXT
1160 GOTO 970
1170 REM* SAVE TO RAMFILE
1180 X$=N$
1190 A$=STR$(N)
1200 N$=RIGHT$(A$,2)+"WS"+N$
1210 PUT% 0,N$
1220 L=0
1230 FOR X=1 TO N
1240 L=L+1
1250 IF L$(L)="N/A" THEN 1240
1260 PUT%X,L$(L)
1270 NEXT
1280 N$=X$
1290 RETURN