Listing of file='RNAME.BAS;01' on disk='vmedia/chip_57-sector.ccvf'
25 CLEAR 5000 40 DIM NC$(100),MC$(100) 50 DIM IN$(11),BN(11) 51 DIM NN(11),B$(20) 60 REM O IS THE NUMBER OF RECORDS 70 O= 80:U= 80 900 FOR J= 0TO 10:READ BN(J):NEXT J 1000 DATA 1,16,17,23,29,33,35,39,45,48,51 1030 FOR K= 0TO 10:READ NN(K):NEXT K 1040 DATA 15,1,6,6,4,2,4,6,3,3,3 1100 FOR A= 0TO 10:READ SS(A):NEXT A 1110 DATA 0,16,18,25,32,37,40,45,52,56,60 1150 FILE "T",12000 1160 FILE "R",1,"NAME",1 1200 S$= " HIT ANY CHARACTER TO STOP LIST " 1300 REM 1305 W= 1 1310 PLOT 15,12,6,3,3,0,0 1330 GOTO 8000 1705 REM ----------READ STARTS HERE---------------- 1706 I= 1:O= U 1707 W= 0 1710 GOSUB 2000 1720 Y= 5:Z= 1:W= 0:PLOT 6,2 1725 POKE 33278,0 1727 PLOT 3,0,0,11,3,0,1,11 1729 PLOT 8:PRINT S$ 1730 FOR L= ITO O 1735 PLOT 6,14,3,0,Y,11,6,2 1740 FOR P= 0TO 10 1750 GET 1,L,BN(P);B$(P)[NN(P)] 1760 PLOT 3,SS(P),Y 1765 PRINT B$(P) 1770 IF Y= 31THEN Y= 29 1780 NEXT P 1782 KB= PEEK (33278) 1784 IF KB> 0THEN 8000 1790 Y= Y+ 1 1796 IF Y= 31THEN PLOT 3,0,2:PRINT S$ 1800 NEXT L 1810 FILE "D",1 1820 W= 1:GOTO 8000 2000 REM ------------DISPLAY STARTS HERE------------- 2500 PLOT 3,0,0,11,3,0,2,11,3,0,3,11,3,0,4,11 2505 PLOT 3,0,0 2506 PRINT 2510 PRINT "-------------------------------------------------------------" 3000 PRINT " NAME CAT.PAID NO.OF PAR SH NTA PROFIT U/D ERN DIV" 3010 PRINT " CAP. SHARES VAL. EQ% % CPS." 3015 PRINT " ------------------------------------------------------------- " 3020 RETURN 5510 REM ---------------------------------------------------- 8000 POKE 33278,0 8001 PLOT 3,0,0 8007 PRINT "1-START LIST, 2-CONTINUE LIST, 3-DELETE A NAME, 4-CHANGE DATA" 8010 PLOT 3,0,2,11,3,0,3,11,3,0,1,11 8012 PRINT " ENTER A NUMBER":PLOT 3,16,1 8020 KB= PEEK (33278):IF KB= 0GOTO 8020 8025 IF KB< 49OR KB> 52THEN 8020 8030 KB= INT (KB- 48):ON KBGOTO 8900,8100,8600,8800 8100 PLOT 3,0,0,11,3,0,1,11 8101 GOSUB 2000 8103 POKE 33278,0 8105 IF W= 1THEN 1706 8110 GOTO 1790 8600 PLOT 3,0,0,11,3,0,1,11,3,0,0 8610 PRINT "TO DELETE A NAME ...TYPE IN NAME OR HIT C/R." 8620 INPUT NA$ 8640 IF NA$= "0"THEN 8000 8645 N= LEN (NA$) 8647 IF N= 0THEN 9000 8650 NB$= MID$ (NA$,1,N) 8655 FOR L= 1TO O 8660 GET 1,L,1;NC$(L)[N] 8665 IF NB$= NC$(L)THEN 8680 8670 NEXT L 8675 GOTO 9000 8680 D= 1:DB$= "DELETED " 8681 FOR I= 1TO O 8682 GET 1,I,1;MC$(I)[7] 8684 IF MC$(I)= "DELETED"THEN D= D+ 1 8685 NEXT I:D$= STR$ (D):DA$= DB$+ D$ 8686 PUT 1,L,1;DA$[10] 8689 FILE "D",1 8690 PLOT 6,7,3,0,1,11:PRINT " ------- DELETED ------" 8692 W= 1 8695 FOR I= 1TO 500:NEXT 8697 PLOT 3,0,1,11 8698 PRINT " ------------------------------------------------------------- " 8700 GOTO 8000 8800 PLOT 3,0,1,11,3,0,0,11 8805 POKE 33278,0 8810 PRINT "CHANGE DATA OF ONE COMPANY ONLY OR CONSECUTIVELY FROM THE FIRST" 8811 PLOT 3,0,1:PRINT "ENTER CHOICE >":PLOT 3,16,1 8812 KB= PEEK (33278):IF KB= 0THEN 8812 8814 IF KB= 48THEN 8000 8818 IF KB= 79THEN 8830 8820 IF KB= 67THEN 13000 8825 GOTO 8800 8830 PLOT 3,0,1,11,3,0,0,11 8832 PRINT "TYPE IN THE NAME OF THE COMPANY OR HIT C/R." 8834 INPUT "-->";NA$ 8835 IF NA$= "0"THEN 8000 8836 N= LEN (NA$) 8838 FOR L= 1TO O 8840 GET 1,L,1;MC$(L)[N] 8842 IF NA$= MC$(L)THEN 8848 8844 NEXT L 8846 GOTO 9000 8848 PLOT 3,0,0:GOSUB 2510 8850 PLOT 6,7,3,0,0,11 8852 PRINT " TYPE IN NEW DATA NOW" 8854 Y= 3 8856 FOR K= 0TO 10 8858 PLOT 6,56,3,SS(K),Y 8860 PRINT SPC( NN(K)) 8862 PLOT 6,2,3,SS(K),Y 8864 INPUT "";A$ 8866 PUT 1,L,BN(K);A$[NN(K)] 8868 NEXT K 8870 PLOT 3,0,3,11 8872 FILE "D",1 8874 W= 1 8876 GOTO 8000 8900 REM .......................................................................................... 8902 PLOT 6,2 8910 PLOT 3,0,0,11,3,0,0 8920 PRINT "HIT C/R TO START AT FIRST OR ENTER NAME TO START FROM THERE" 8925 PLOT 3,0,1,11,3,0,1 8930 INPUT "YOU CAN HIT ERASE PAGE FIRST ENTER CHOICE >";NA$ 8936 IF NA$= "0"THEN 1706 8940 N= LEN (NA$) 8945 FOR I= 1TO O 8950 GET 1,I,1;NC$(I)[N] 8960 IF NA$= NC$(I)THEN 8970 8965 NEXT 8967 GOTO 9000 8970 PLOT 3,0,0,11,3,0,1,11,3,0,0 8973 PRINT " DO YOU WANT TO LIST JUST ONE OR CONTINUOUSLY" 8976 PRINT "YOU CAN HIT ERASE PAGE FIRST ENTER CHOICE >" 8978 PLOT 3,45,1:POKE 33278,0 8980 KB= PEEK (33278):IF KB= 0THEN 8980 8982 IF KB= 67THEN O= U:GOTO 1707 8984 IF KB= 79THEN O= I:GOTO 1707 8986 IF KB= 48THEN 8000 8988 GOTO 8970 9000 REM .......................................................................................... 9010 PLOT 6,1,3,0,11 9100 W= 1 9105 PRINT "----- NO MATCH -----" 9106 FOR I= 1TO 500:NEXT 9107 PLOT 3,0,1,11 9110 PRINT " ------------------------------------------------------------- " 9130 GOTO 8000 12000 FILE "E",FI,EN,LN 12005 IF FI= 1AND EN= 14THEN 14000 12010 PRINT FI,EN,LN 12015 END 13000 REM 13270 REM WRITE STARTES HERE 13280 GOSUB 13495 13290 Y= 5:Z= 1 13300 FOR L= 1TO O 13310 FOR K= 0TO 10 13350 PLOT 6,1 13360 GET 1,L,BN(K);B$(K)[NN(K)] 13370 PLOT 3,SS(K),Y+ 1:PRINT B$(K) 13375 IF Y= 30THEN Y= 28 13380 PLOT 6,56,3,SS(K),Y 13382 PRINT SPC( NN(K)) 13386 PLOT 6,2 13390 PLOT 3,SS(K),Y 13400 INPUT "";A$ 13410 IF A$= "@"THEN 13450 13420 IF A$= ";"THEN K= 0:GOTO 13460 13430 IF A$= "/"THEN 13480 13440 PUT 1,L,BN(K);A$[NN(K)] 13450 NEXT K 13460 Y= Y+ 1 13470 NEXT L 13480 FILE "D",1 13490 GOTO 8000 13495 PLOT 3,0,1,11,3,0,0,11 13500 PRINT "OPTIONS- C/R =DATA IS ZERO. @ =SKIP(UNCHANGED). ; =NEXT LINE. / =END " 13570 RETURN 14000 PLOT 12,15,6,1,3,0,3 14100 PRINT "THERE IS NO NAME FILE ... DO YOU WISH TO MAKE ONE Y/N" 14200 INPUT A$ 14300 IF A$= "Y"THEN 14450 14400 LOAD "MENU" 14450 PRINT " THINKING ABOUT IT" 14500 FILE "N","NAME",100,53,100 14502 FILE "R",1,"NAME",1 14505 A= 0:B= 1 14506 REM 14510 B$= "ABC":D$= " XXXXXXXXXX" 14520 FOR L= 1TO O 14530 A= A+ B 14540 C$= STR$ (A) 14550 A$= B$+ C$+ D$ 14560 FOR K= 0TO 10 14570 PUT 1,L,BN(K);A$[NN(K)] 14580 NEXT K:NEXT L 14590 FILE "C",1 14595 GOTO 1150