MediaWiki:Sitenotice:
2024-03-02: The wiki ran out of disk space, so things were not working. This has been resolved by adding another 5GB of quota ;-) Thanks to Tim Lindner for reporting the issues. 2020-05-17: If a page gives you an error about some revision not being found, just EDIT the page and the old page should appear in the editor. If it does, just SAVE that and the page should be restored. OS-9 Al (talk) 12:22, 17 May 2020 (CDT)

TELDIR

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Revision as of 21:35, 10 September 2015 by Polluks (talk | contribs) (Category)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
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