Sitenotice: 11/29/2018: The wiki is back. It turns out, some anti-virus product on my web server had an issue with the latest version of PHP. My server techs have resolved this issue, and things should be working again. During the investigation, I did restore to a backup from September. There is a chance that any changes done since then were lost, but I do not recall any edits. --OS-9 Al

8/30/2016: Massive re-work is being done on the InfoBox Templates. Read that page to keep up with the plan for that, and adding better keyword tags (categories) to all the pages. --OS-9 Al (talk) 15:28, 31 August 2016 (CDT)

TELDIR

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to navigation Jump to search
100 CLEAR 200
110 CLS: DIM T$(50)
120 L1=0
130 IF L1<50 THEN 160
140 PRINT@64,"TOO MANY TABLE ENTRIES,"
150 PRINT@96,"TELEPHONE DIRECTORY RUN ABORTED": STOP
160 L1=L1+1
170 READ T$(L1)
180 IF T$(L1)="-1" THEN L1=L1-1: GOTO200
190 GOTO130
200 CLS: PRINT@6,"TELEPHONE DIRECTORY"
210 PRINT@64,"ENTER A STRING OF DATA TO BE"
220 PRINT@96,"USED AS THE SEARCH KEY"
230 PRINT@160,"";: INPUT A$
240 CLS: PRINT@0,"SEARCH LIST": PRINT
250 T=0: PP=4
260 L3=LEN(A$)
270 FOR I=1 TO L1
280 J=0
290 L2-LEN(T$(I))
300 IF (J=>L2) OR (L3>(L2-J+1)) THEN 420
310 J=J+1
320 B$=MID$(T$(I),J,L3)
330 IF A$<>B$ THEN 300
340 T=T+1
350 C=INT((L2-1)/32)+1
360 IF (PP+(C*32))<480 THEN 400
370 PRINT@480,"PRESS ANY KEY TO CONTINUE";:
380 IF K$="" THEN 370
390 CLS: PP=64
400 PRINT@PP,T$(I)
410 PP=PP+(C*32)
420 NEXT I
430 IF T<1 THEN PRINT "NO MATCH FOUND"
440 PRINT@480,"PRESS R TO RESTART";: K$=INKEY$
450 IF K$="" THEN 440
460 IF K$="R" THEN 200
470 GOTO440
480 DATA "BARDEN, BILL (714) 555-1212"
490 DATA "PENNINGTON, HARV (714) 555-1000"
500 DATA "PASCAL, BLAISE (213) 555-2342"
510 DATA "HOLLERITH, H. (212) 355-2399"
520 DATA "BLECHMAN, FRED (213) 555-8765"
330 DATA "LUTZ, LEON (617) 555-9173"
540 DATA "SCROEDER, BILL (414) 555-9999"
550 DATA "E.T. (1) (%$$#) (2(&Z$) %)4-7#!&"
560 DATA -1