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
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
