MediaWiki:Sitenotice:
2025-12-29: I have restored the wiki to a backup from the end of November. Starting in September 2025, accesses went form the 800MB-1.2GB range per month to 26GB in September, 42GB in October, and 70GB in November with most accesses originating from China. As soon as I realized what was causing all the access problems in November, I shut it down (it had reached 36GB by then) behind a password/login screen. The database had gotten corrupted, and I tried a restore from just before the spike in access but that didn't work. Thus, end of November. I still have the other daily backups so if there were any important additions in December, let me know and maybe they can be recovered. - Allen H.
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