Listing of file='QPHONE.BAS;01' on disk='vmedia/ncc_22-sector.ccvf'
10 REM QUICK 20 REM DISPLAY 49 PHONE NUMBERS 30 PLOT 12,27,24,15 40 CLEAR 2100:C= 49:DIM L$(C):DIM KE(C):F$= "QUICK":Z= 0 100 FILE "R",1,F$,1:FOR L= 1TO C:GET 1,L;L$(L)[31]:NEXT L:FILE "C",1 200 PLOT 8,6,3:FOR L= 1TO 5:PRINT TAB( 2)L$(L);TAB( 35)">":NEXT 210 IF Z= 1THEN 400 220 PLOT 17:X= 40:GOSUB 2209:X= 47:GOSUB 2201:X= 54:GOSUB 2201 230 PLOT 20:FOR L= 1TO 64:PRINT "=";:NEXT :PRINT 240 FOR L= 6TO 27:PLOT 3,31,L:PRINT "nn":NEXT 250 FOR L= 1TO 64:PRINT "=";:NEXT :PRINT 400 PLOT 6,2:FOR L= 6TO 27:PLOT 3,0,L:PRINT L$(L):PLOT 3,33,L:PRINT L$(L+ 22):NEXT :IF Z= 1THEN 1000 500 PLOT 21,3,14,29:PRINT "HIT 'ENTER' KEY WHEN DONE LOOKING." 510 PLOT 22,3,5,30 520 PRINT "ENTER A 'Z' IF YOU WANT TO UPDATE ANY PHONE NUMBERS" 530 PLOT 3,50,29:INPUT "";A$:IF A$= "Z"THEN 1000 540 PLOT 27,11,1 1000 Z= 0:FOR L= 29TO 31:PLOT 3,0,L,11:NEXT :PLOT 3,0,29 1010 PRINT "DO YOU WANT TO: 1-UPDATE EMERGENCY NUMBERS"; 1020 PRINT " 2-CORRECT ENTRIES" 1030 PRINT TAB( 16)"3-UPDATE ROUTINE NUMBERS 4-END UPDATE" 1040 PLOT 19:INPUT "ENTER YOUR CHOICE HERE >...";A 1050 PLOT 28,11,28,11,28,11:IF A= 3THEN 1500 1060 IF A= 4THEN 2000 1300 PLOT 19:PRINT "EMERGENCY PHONES ARE NUMBERED 1---5 ; "; 1310 PRINT "WHICH LINE DO YOU WANT TO" 1320 PRINT "CHANGE ? >...";:PLOT 6,6 1330 PRINT SPC( 5)"(USE NUMBERS 6---49 TO MAKE CORRECTIONS)" 1340 PLOT 3,14,30:INPUT "";S:PLOT 28,11,28,11 1350 IF S< = CTHEN 1600 1360 PLOT 17:PRINT "LINE NUMBER MUST BE LESS THAN 50 !" 1370 FOR D= 1TO 2000:NEXT :PLOT 28,11:GOTO 1300 1500 FOR S= 6TO C 1510 IF LEFT$ (L$(S),1)= " "OR LEFT$ (L$(S),1)= "."THEN 1530 1520 NEXT S 1530 IF S< = CTHEN 1600 1540 PLOT 17,3,0,29 1550 PRINT "FILE FULL -- ENTER YOUR CHOICE OF ACTION BELOW." 1560 PLOT 6,2 1570 PRINT "( 1 - END UPDATE ) ( 2 - DELETE A CURRENT ITEM)" 1580 PLOT 19:INPUT "ENTER YOUR CHOICE HERE >...";A 1590 PLOT 28,11,28,11,28,11:ON AGOTO 2000,1300 1600 PLOT 19,3,0,29 1610 PRINT "TYPE NEW LISTING BELOW, USE ALL THE SPACES, NO "; 1620 PRINT "COMAS OR COLONS." 1630 PLOT 18:PRINT TAB( 5)"===>" 1640 PLOT 6,43,3,9,30:FOR L= 1TO 23:PRINT " ";:NEXT 1650 PLOT 6,23:FOR L= 1TO 8:PRINT " ";:NEXT :PLOT 6,2:PRINT "<===" 1660 PLOT 6,34,3,9,30:INPUT "";L$(S) 1670 IF LEN (L$(S))= 31THEN Z= 1:GOTO 200 1680 PLOT 6,1,28,11:PRINT "INVALID ENTRY ... TRY AGAIN ! REMEMBER, NO COMAS, NO COLONS !" 1690 FOR D= 1TO 2000:NEXT :PLOT 28,11:GOTO 1630 2000 PLOT 3,0,29:INPUT "SORT ALL ROUTINE NAMES (Y/N) ? ";A$ 2010 IF LEFT$ (A$,1)= "N"THEN 3020 2020 FOR K= 6TO C:KE(K)= 0:K$= LEFT$ (L$(K),1) 2030 IF K$= " "OR K$= "."THEN 2100 2040 KE(K)= ((ASC (K$))- 48)* 48^ 21:FOR J= 2TO 21 2050 K$= LEFT$ (L$(K),J):K$= RIGHT$ (K$,1) 2060 IF K$= "."OR K$= " "THEN 2090 2070 KE(K)= KE(K)+ ((ASC (K$))- 48)* 48^ (22- J) 2080 NEXT J 2090 NEXT K 2100 F= 0:FOR S= 6TO K- 2 2120 IF KE(S)< = KE(S+ 1)THEN 2160 2130 L$(0)= L$(S):L$(S)= L$(S+ 1):L$(S+ 1)= L$(0) 2140 KE(0)= KE(S):KE(S)= KE(S+ 1):KE(S+ 1)= KE(0) 2150 F= 1 2160 NEXT S 2170 IF F= 1THEN 2100 2180 Z= 1:GOTO 200:REM TO DISPLAY RESULT 2201 PLOT 3,X,0,2,254,0,128,36,15,0,0,255 2202 PLOT 3,X,1,2,254,0,0,0,15,0,0,255 2203 PLOT 3,X,2,2,254,0,0,0,15,0,0,255 2204 PLOT 3,X,3,2,254,0,0,0,15,0,0,255 2205 PLOT 3,X,4,2,254,64,68,68,71,68,68,255:PRINT :RETURN 2209 PLOT 3,X,0,2,254,0,44,18,17,34,12,255 2210 PLOT 3,X,1,2,254,240,0,0,0,0,240,255 2211 PLOT 3,X,2,2,254,0,67,132,136,68,243,255 2212 PLOT 3,X,3,2,254,96,8,0,0,0,120,255 2213 PLOT 3,X,4,2,254,0,33,66,68,34,1,255:RETURN 3000 L$= "...............................":F$= "QUICK":DIM L$(49):FOR L= 1TO 49:L$(L)= L$:NEXT 3010 FILE "N",F$,49,31,49 3020 FILE "R",1,F$,1:FOR R= 1TO 49:PUT 1,R;L$(R)[31]:NEXT 3030 FILE "C",1:PLOT 27,11,1 4000 REM DEVELOPED BY THE RED BARON 3/10/80