ZX File Finder – Timex/Sinclair Computers

Thomas B. Woods

Products: Linear Search

Developer(s): Thomas B. Woods

Date: 198

Type: Program

Platform(s): TS 1000

Early database program.

Content

Appears On

CassFile2

One individual’s cassette containing a number of programs.

Related Products

Linear Search

In-depth treatise on machine language technique for searching data. Construct a fast and highly personalized data base program. 16K.

Image Gallery

Source Code

1 REM 5 REM Skip to content The Authoritative Website The Authoritative Website Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Log in Sign upSign up Home » Computer Media » ZX File Finder Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy ZX File Finder Thomas B. Woods Products: Linear Search Developer(s): Thomas B. Woods Date: 198 Type: Program Platform(s): TS 1000 Early database program. Content Appears On CassFile2 One individual’s cassette containing a number of programs. Related Products Linear Search In-depth treatise on machine language technique for searching data. Construct a fast and highly personalized data base program. 16K. Related Articles Related Content Image Gallery Source Code 1 REM 5 REM \2A\DC\40\ED\4B\DE\40\11\82\40\1A\ED\B1\E2\E0\40\13\1A\FE\9B\CA\C7\40\ED\A1\CA\B8\40\C3\AF\40\22\DC\40\2B\7E\FE\17\CA\D4\40\C3\CA\40\22\7B\40\ED\43\DE\40\C9\00\00\00\00\21\12\41\01\01\00\C3\D4\40 6 REM 11 REM *\'. *\'.*\'.*\'. *\'. *\'. *\'. *\'. *\'.*\'. *\'. *\'. *\'. *\'. *\'. WOODS%£00001%£END*\'.OBERT%£HELLO*\'. *\'.TT""12750""""*\'. *TTT""XXX""""*LAST FILE""...""""*\'. 12 LET P=0 14 CLS 15 PRINT " %Z%X%/%F%I%L%E% %F%I%N%D%E%R ",,"%E%N%T%E%R% %A% %S%E%A%R%C%H% %C%O%M%M%A%N%D% %O%R% %T%Y%P%E% % %"%A%"% %T%O% %A%D%D% %A% %N%E%W% %F%I%L%E% % % % % % % % % % % " 20 INPUT X$ 21 IF X$="" THEN GOTO 20 30 IF X$="A" THEN GOTO 500 35 LET X$=X$+"%." 50 FOR X=1 TO LEN X$ 60 POKE 16513+X,CODE X$(X) 70 NEXT X 80 POKE 16606,P-256*INT (P/256) 90 POKE 16607,INT (P/256) 100 POKE 16604,18 110 POKE 16605,65 120 CLS 122 LET B=USR 16552 125 PRINT X$( TO LEN X$-1);TAB 0;"%F%I%L%E%/%S%E%A%R%C%H",,,, 130 LET X=PEEK 16507+256*PEEK 16508 135 FOR Y=X TO X+P 140 IF PEEK Y<>192 THEN PRINT CHR$ PEEK Y; 150 IF PEEK (Y+1)=192 OR PEEK (Y+1)=23 THEN GOTO 200+(20*(PEEK (Y+1)=23)) 170 NEXT Y 180 GOTO 220 200 PRINT 210 NEXT Y 220 PRINT AT 16,0;"%H%I%T% %E%N%T%E%R% %T%O% %C%O%N%T%I%N%U%E% %S%E%A%R%C%H%I%N%G% %"%R%"% %T%O% %R%E%T%U%R%N% %T%O% %P%R%E%V%I%O%U%S% %F%I%L%E%S% %"%N%"% %T%O% %B%E%G%I%N% %A% %N%E%W% %F%I%L%E%/%S%E%A%R%C%H% % " 230 INPUT Y$ 235 IF Y$="R" THEN GOTO 80 240 IF B AND Y$="" THEN GOTO 120 245 IF Y$<>"N" THEN GOTO 220 250 GOTO 14 500 PRINT AT 7,5;"%A%D%D%/%F%I%L%E" 510 FOR X=1 TO 4 520 PRINT AT 7,14;"INPUT LINE ";X 530 INPUT X$ 540 IF X=1 THEN LET A$="*"+X$ 550 IF X>1 THEN LET A$=A$+""""+X$ 560 PRINT AT 8+X,0;X$ 570 NEXT X 580 PRINT AT 16,0;"HIT ENTER TO LOG THIS LISTING OR""C"" TO CORRECT IT";" " 585 INPUT X$ 590 CLS 595 IF X$="C" THEN GOTO 500 600 FOR X=1 TO LEN A$ 610 POKE 16658+P,CODE A$(X) 620 LET P=P+1 630 NEXT X 635 POKE 16658+P,23 660 GOTO 14 1000 FOR X=16507 TO 17000 1005 PRINT AT 0,0;"HIT ENTER TO GOTO NEXT ADDRESS ""P"" TO POKE THIS ADDRESS";TAB 0;"""S"" TO STOP",,"""G"" TO GOTO A NEW ADDRESS";TAB 0;"""B"" TO BACK UP" 1010 PRINT AT 7,0;"ADDR PEEK CHR$ " 1015 PRINT AT 8,0;X;" ";PEEK X;" ";TAB 12;CHR$ PEEK X;" " 1020 INPUT X$ 1025 IF X$="S" THEN STOP 1030 IF X$="P" THEN GOTO 2000 1035 IF X$="B" THEN LET X=X-2 1040 IF X$="G" THEN GOTO 1500 1050 NEXT X 1060 STOP 1500 PRINT AT 10,0;"INPUT STARTING ADDRESS" 1510 INPUT X 1520 PRINT AT 10,0;" " 1530 GOTO 1010 2000 PRINT AT 10,0;"INPUT A DECIMAL VALUE" 2010 INPUT Y 2020 POKE X,Y 2030 GOTO 1520 Tags Archived Media, Downloadable, TS 1000, Thomas B. Woods (company) People Thomas B. Woods Recent Posts Timex at K-MartApril 17, 2025 Exploring the Legacy of Timex Computer Corporation: Insights from Danny RossOctober 24, 2024 Real World Uses: Timex/Sinclair 2068May 16, 2024 “Made In Spain” ZX81 and TS1000 PCBsFebruary 23, 2024 How Did TS 2068 Users Make a Spectrum ROM?September 9, 2023 Support This Site Subscribe * indicates required Email Address * First Name Last Name Interests Send me your newsletter Send me Zoom meeting announcements /* real people should not fill this in and expect good things - do not remove this or risk form bot signups */ This work is licensed under a Creative Commons Attribution-ShareAlike 4.0 International License. Scroll to Top A\DC\EDB\DE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57770 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"A\ED\B1\E2\E0 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57770 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"A\FEB\CA\C7\ED\A1\CA\B8\C3\AF\DC Skip to content The Authoritative Website The Authoritative Website Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Log in Sign upSign up Home » Computer Media » ZX File Finder Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy ZX File Finder Thomas B. Woods Products: Linear Search Developer(s): Thomas B. Woods Date: 198 Type: Program Platform(s): TS 1000 Early database program. Content Appears On CassFile2 One individual’s cassette containing a number of programs. Related Products Linear Search In-depth treatise on machine language technique for searching data. Construct a fast and highly personalized data base program. 16K. Related Articles Related Content Image Gallery Source Code 1 REM 5 REM \2A\DC\40\ED\4B\DE\40\11\82\40\1A\ED\B1\E2\E0\40\13\1A\FE\9B\CA\C7\40\ED\A1\CA\B8\40\C3\AF\40\22\DC\40\2B\7E\FE\17\CA\D4\40\C3\CA\40\22\7B\40\ED\43\DE\40\C9\00\00\00\00\21\12\41\01\01\00\C3\D4\40 6 REM 11 REM *\'. *\'.*\'.*\'. *\'. *\'. *\'. *\'. *\'.*\'. *\'. *\'. *\'. *\'. *\'. WOODS%£00001%£END*\'.OBERT%£HELLO*\'. *\'.TT""12750""""*\'. *TTT""XXX""""*LAST FILE""...""""*\'. 12 LET P=0 14 CLS 15 PRINT " %Z%X%/%F%I%L%E% %F%I%N%D%E%R ",,"%E%N%T%E%R% %A% %S%E%A%R%C%H% %C%O%M%M%A%N%D% %O%R% %T%Y%P%E% % %"%A%"% %T%O% %A%D%D% %A% %N%E%W% %F%I%L%E% % % % % % % % % % % " 20 INPUT X$ 21 IF X$="" THEN GOTO 20 30 IF X$="A" THEN GOTO 500 35 LET X$=X$+"%." 50 FOR X=1 TO LEN X$ 60 POKE 16513+X,CODE X$(X) 70 NEXT X 80 POKE 16606,P-256*INT (P/256) 90 POKE 16607,INT (P/256) 100 POKE 16604,18 110 POKE 16605,65 120 CLS 122 LET B=USR 16552 125 PRINT X$( TO LEN X$-1);TAB 0;"%F%I%L%E%/%S%E%A%R%C%H",,,, 130 LET X=PEEK 16507+256*PEEK 16508 135 FOR Y=X TO X+P 140 IF PEEK Y<>192 THEN PRINT CHR$ PEEK Y; 150 IF PEEK (Y+1)=192 OR PEEK (Y+1)=23 THEN GOTO 200+(20*(PEEK (Y+1)=23)) 170 NEXT Y 180 GOTO 220 200 PRINT 210 NEXT Y 220 PRINT AT 16,0;"%H%I%T% %E%N%T%E%R% %T%O% %C%O%N%T%I%N%U%E% %S%E%A%R%C%H%I%N%G% %"%R%"% %T%O% %R%E%T%U%R%N% %T%O% %P%R%E%V%I%O%U%S% %F%I%L%E%S% %"%N%"% %T%O% %B%E%G%I%N% %A% %N%E%W% %F%I%L%E%/%S%E%A%R%C%H% % " 230 INPUT Y$ 235 IF Y$="R" THEN GOTO 80 240 IF B AND Y$="" THEN GOTO 120 245 IF Y$<>"N" THEN GOTO 220 250 GOTO 14 500 PRINT AT 7,5;"%A%D%D%/%F%I%L%E" 510 FOR X=1 TO 4 520 PRINT AT 7,14;"INPUT LINE ";X 530 INPUT X$ 540 IF X=1 THEN LET A$="*"+X$ 550 IF X>1 THEN LET A$=A$+""""+X$ 560 PRINT AT 8+X,0;X$ 570 NEXT X 580 PRINT AT 16,0;"HIT ENTER TO LOG THIS LISTING OR""C"" TO CORRECT IT";" " 585 INPUT X$ 590 CLS 595 IF X$="C" THEN GOTO 500 600 FOR X=1 TO LEN A$ 610 POKE 16658+P,CODE A$(X) 620 LET P=P+1 630 NEXT X 635 POKE 16658+P,23 660 GOTO 14 1000 FOR X=16507 TO 17000 1005 PRINT AT 0,0;"HIT ENTER TO GOTO NEXT ADDRESS ""P"" TO POKE THIS ADDRESS";TAB 0;"""S"" TO STOP",,"""G"" TO GOTO A NEW ADDRESS";TAB 0;"""B"" TO BACK UP" 1010 PRINT AT 7,0;"ADDR PEEK CHR$ " 1015 PRINT AT 8,0;X;" ";PEEK X;" ";TAB 12;CHR$ PEEK X;" " 1020 INPUT X$ 1025 IF X$="S" THEN STOP 1030 IF X$="P" THEN GOTO 2000 1035 IF X$="B" THEN LET X=X-2 1040 IF X$="G" THEN GOTO 1500 1050 NEXT X 1060 STOP 1500 PRINT AT 10,0;"INPUT STARTING ADDRESS" 1510 INPUT X 1520 PRINT AT 10,0;" " 1530 GOTO 1010 2000 PRINT AT 10,0;"INPUT A DECIMAL VALUE" 2010 INPUT Y 2020 POKE X,Y 2030 GOTO 1520 Tags Archived Media, Downloadable, TS 1000, Thomas B. Woods (company) People Thomas B. Woods Recent Posts Timex at K-MartApril 17, 2025 Exploring the Legacy of Timex Computer Corporation: Insights from Danny RossOctober 24, 2024 Real World Uses: Timex/Sinclair 2068May 16, 2024 “Made In Spain” ZX81 and TS1000 PCBsFebruary 23, 2024 How Did TS 2068 Users Make a Spectrum ROM?September 9, 2023 Support This Site Subscribe * indicates required Email Address * First Name Last Name Interests Send me your newsletter Send me Zoom meeting announcements /* real people should not fill this in and expect good things - do not remove this or risk form bot signups */ This work is licensed under a Creative Commons Attribution-ShareAlike 4.0 International License. Scroll to Top BE\FE\CA\D4\C3\CAB\ED\DE\C9 Skip to content The Authoritative Website The Authoritative Website Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Log in Sign upSign up Home » Computer Media » ZX File Finder Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy ZX File Finder Thomas B. Woods Products: Linear Search Developer(s): Thomas B. Woods Date: 198 Type: Program Platform(s): TS 1000 Early database program. Content Appears On CassFile2 One individual’s cassette containing a number of programs. Related Products Linear Search In-depth treatise on machine language technique for searching data. Construct a fast and highly personalized data base program. 16K. Related Articles Related Content Image Gallery Source Code 1 REM 5 REM \2A\DC\40\ED\4B\DE\40\11\82\40\1A\ED\B1\E2\E0\40\13\1A\FE\9B\CA\C7\40\ED\A1\CA\B8\40\C3\AF\40\22\DC\40\2B\7E\FE\17\CA\D4\40\C3\CA\40\22\7B\40\ED\43\DE\40\C9\00\00\00\00\21\12\41\01\01\00\C3\D4\40 6 REM 11 REM *\'. *\'.*\'.*\'. *\'. *\'. *\'. *\'. *\'.*\'. *\'. *\'. *\'. *\'. *\'. WOODS%£00001%£END*\'.OBERT%£HELLO*\'. *\'.TT""12750""""*\'. *TTT""XXX""""*LAST FILE""...""""*\'. 12 LET P=0 14 CLS 15 PRINT " %Z%X%/%F%I%L%E% %F%I%N%D%E%R ",,"%E%N%T%E%R% %A% %S%E%A%R%C%H% %C%O%M%M%A%N%D% %O%R% %T%Y%P%E% % %"%A%"% %T%O% %A%D%D% %A% %N%E%W% %F%I%L%E% % % % % % % % % % % " 20 INPUT X$ 21 IF X$="" THEN GOTO 20 30 IF X$="A" THEN GOTO 500 35 LET X$=X$+"%." 50 FOR X=1 TO LEN X$ 60 POKE 16513+X,CODE X$(X) 70 NEXT X 80 POKE 16606,P-256*INT (P/256) 90 POKE 16607,INT (P/256) 100 POKE 16604,18 110 POKE 16605,65 120 CLS 122 LET B=USR 16552 125 PRINT X$( TO LEN X$-1);TAB 0;"%F%I%L%E%/%S%E%A%R%C%H",,,, 130 LET X=PEEK 16507+256*PEEK 16508 135 FOR Y=X TO X+P 140 IF PEEK Y<>192 THEN PRINT CHR$ PEEK Y; 150 IF PEEK (Y+1)=192 OR PEEK (Y+1)=23 THEN GOTO 200+(20*(PEEK (Y+1)=23)) 170 NEXT Y 180 GOTO 220 200 PRINT 210 NEXT Y 220 PRINT AT 16,0;"%H%I%T% %E%N%T%E%R% %T%O% %C%O%N%T%I%N%U%E% %S%E%A%R%C%H%I%N%G% %"%R%"% %T%O% %R%E%T%U%R%N% %T%O% %P%R%E%V%I%O%U%S% %F%I%L%E%S% %"%N%"% %T%O% %B%E%G%I%N% %A% %N%E%W% %F%I%L%E%/%S%E%A%R%C%H% % " 230 INPUT Y$ 235 IF Y$="R" THEN GOTO 80 240 IF B AND Y$="" THEN GOTO 120 245 IF Y$<>"N" THEN GOTO 220 250 GOTO 14 500 PRINT AT 7,5;"%A%D%D%/%F%I%L%E" 510 FOR X=1 TO 4 520 PRINT AT 7,14;"INPUT LINE ";X 530 INPUT X$ 540 IF X=1 THEN LET A$="*"+X$ 550 IF X>1 THEN LET A$=A$+""""+X$ 560 PRINT AT 8+X,0;X$ 570 NEXT X 580 PRINT AT 16,0;"HIT ENTER TO LOG THIS LISTING OR""C"" TO CORRECT IT";" " 585 INPUT X$ 590 CLS 595 IF X$="C" THEN GOTO 500 600 FOR X=1 TO LEN A$ 610 POKE 16658+P,CODE A$(X) 620 LET P=P+1 630 NEXT X 635 POKE 16658+P,23 660 GOTO 14 1000 FOR X=16507 TO 17000 1005 PRINT AT 0,0;"HIT ENTER TO GOTO NEXT ADDRESS ""P"" TO POKE THIS ADDRESS";TAB 0;"""S"" TO STOP",,"""G"" TO GOTO A NEW ADDRESS";TAB 0;"""B"" TO BACK UP" 1010 PRINT AT 7,0;"ADDR PEEK CHR$ " 1015 PRINT AT 8,0;X;" ";PEEK X;" ";TAB 12;CHR$ PEEK X;" " 1020 INPUT X$ 1025 IF X$="S" THEN STOP 1030 IF X$="P" THEN GOTO 2000 1035 IF X$="B" THEN LET X=X-2 1040 IF X$="G" THEN GOTO 1500 1050 NEXT X 1060 STOP 1500 PRINT AT 10,0;"INPUT STARTING ADDRESS" 1510 INPUT X 1520 PRINT AT 10,0;" " 1530 GOTO 1010 2000 PRINT AT 10,0;"INPUT A DECIMAL VALUE" 2010 INPUT Y 2020 POKE X,Y 2030 GOTO 1520 Tags Archived Media, Downloadable, TS 1000, Thomas B. Woods (company) People Thomas B. Woods Recent Posts Timex at K-MartApril 17, 2025 Exploring the Legacy of Timex Computer Corporation: Insights from Danny RossOctober 24, 2024 Real World Uses: Timex/Sinclair 2068May 16, 2024 “Made In Spain” ZX81 and TS1000 PCBsFebruary 23, 2024 How Did TS 2068 Users Make a Spectrum ROM?September 9, 2023 Support This Site Subscribe * indicates required Email Address * First Name Last Name Interests Send me your newsletter Send me Zoom meeting announcements /* real people should not fill this in and expect good things - do not remove this or risk form bot signups */ This work is licensed under a Creative Commons Attribution-ShareAlike 4.0 International License. Scroll to Top Skip to content The Authoritative Website The Authoritative Website Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Log in Sign upSign up Home » Computer Media » ZX File Finder Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy ZX File Finder Thomas B. Woods Products: Linear Search Developer(s): Thomas B. Woods Date: 198 Type: Program Platform(s): TS 1000 Early database program. Content Appears On CassFile2 One individual’s cassette containing a number of programs. Related Products Linear Search In-depth treatise on machine language technique for searching data. Construct a fast and highly personalized data base program. 16K. Related Articles Related Content Image Gallery Source Code 1 REM 5 REM \2A\DC\40\ED\4B\DE\40\11\82\40\1A\ED\B1\E2\E0\40\13\1A\FE\9B\CA\C7\40\ED\A1\CA\B8\40\C3\AF\40\22\DC\40\2B\7E\FE\17\CA\D4\40\C3\CA\40\22\7B\40\ED\43\DE\40\C9\00\00\00\00\21\12\41\01\01\00\C3\D4\40 6 REM 11 REM *\'. *\'.*\'.*\'. *\'. *\'. *\'. *\'. *\'.*\'. *\'. *\'. *\'. *\'. *\'. WOODS%£00001%£END*\'.OBERT%£HELLO*\'. *\'.TT""12750""""*\'. *TTT""XXX""""*LAST FILE""...""""*\'. 12 LET P=0 14 CLS 15 PRINT " %Z%X%/%F%I%L%E% %F%I%N%D%E%R ",,"%E%N%T%E%R% %A% %S%E%A%R%C%H% %C%O%M%M%A%N%D% %O%R% %T%Y%P%E% % %"%A%"% %T%O% %A%D%D% %A% %N%E%W% %F%I%L%E% % % % % % % % % % % " 20 INPUT X$ 21 IF X$="" THEN GOTO 20 30 IF X$="A" THEN GOTO 500 35 LET X$=X$+"%." 50 FOR X=1 TO LEN X$ 60 POKE 16513+X,CODE X$(X) 70 NEXT X 80 POKE 16606,P-256*INT (P/256) 90 POKE 16607,INT (P/256) 100 POKE 16604,18 110 POKE 16605,65 120 CLS 122 LET B=USR 16552 125 PRINT X$( TO LEN X$-1);TAB 0;"%F%I%L%E%/%S%E%A%R%C%H",,,, 130 LET X=PEEK 16507+256*PEEK 16508 135 FOR Y=X TO X+P 140 IF PEEK Y<>192 THEN PRINT CHR$ PEEK Y; 150 IF PEEK (Y+1)=192 OR PEEK (Y+1)=23 THEN GOTO 200+(20*(PEEK (Y+1)=23)) 170 NEXT Y 180 GOTO 220 200 PRINT 210 NEXT Y 220 PRINT AT 16,0;"%H%I%T% %E%N%T%E%R% %T%O% %C%O%N%T%I%N%U%E% %S%E%A%R%C%H%I%N%G% %"%R%"% %T%O% %R%E%T%U%R%N% %T%O% %P%R%E%V%I%O%U%S% %F%I%L%E%S% %"%N%"% %T%O% %B%E%G%I%N% %A% %N%E%W% %F%I%L%E%/%S%E%A%R%C%H% % " 230 INPUT Y$ 235 IF Y$="R" THEN GOTO 80 240 IF B AND Y$="" THEN GOTO 120 245 IF Y$<>"N" THEN GOTO 220 250 GOTO 14 500 PRINT AT 7,5;"%A%D%D%/%F%I%L%E" 510 FOR X=1 TO 4 520 PRINT AT 7,14;"INPUT LINE ";X 530 INPUT X$ 540 IF X=1 THEN LET A$="*"+X$ 550 IF X>1 THEN LET A$=A$+""""+X$ 560 PRINT AT 8+X,0;X$ 570 NEXT X 580 PRINT AT 16,0;"HIT ENTER TO LOG THIS LISTING OR""C"" TO CORRECT IT";" " 585 INPUT X$ 590 CLS 595 IF X$="C" THEN GOTO 500 600 FOR X=1 TO LEN A$ 610 POKE 16658+P,CODE A$(X) 620 LET P=P+1 630 NEXT X 635 POKE 16658+P,23 660 GOTO 14 1000 FOR X=16507 TO 17000 1005 PRINT AT 0,0;"HIT ENTER TO GOTO NEXT ADDRESS ""P"" TO POKE THIS ADDRESS";TAB 0;"""S"" TO STOP",,"""G"" TO GOTO A NEW ADDRESS";TAB 0;"""B"" TO BACK UP" 1010 PRINT AT 7,0;"ADDR PEEK CHR$ " 1015 PRINT AT 8,0;X;" ";PEEK X;" ";TAB 12;CHR$ PEEK X;" " 1020 INPUT X$ 1025 IF X$="S" THEN STOP 1030 IF X$="P" THEN GOTO 2000 1035 IF X$="B" THEN LET X=X-2 1040 IF X$="G" THEN GOTO 1500 1050 NEXT X 1060 STOP 1500 PRINT AT 10,0;"INPUT STARTING ADDRESS" 1510 INPUT X 1520 PRINT AT 10,0;" " 1530 GOTO 1010 2000 PRINT AT 10,0;"INPUT A DECIMAL VALUE" 2010 INPUT Y 2020 POKE X,Y 2030 GOTO 1520 Tags Archived Media, Downloadable, TS 1000, Thomas B. Woods (company) People Thomas B. Woods Recent Posts Timex at K-MartApril 17, 2025 Exploring the Legacy of Timex Computer Corporation: Insights from Danny RossOctober 24, 2024 Real World Uses: Timex/Sinclair 2068May 16, 2024 “Made In Spain” ZX81 and TS1000 PCBsFebruary 23, 2024 How Did TS 2068 Users Make a Spectrum ROM?September 9, 2023 Support This Site Subscribe * indicates required Email Address * First Name Last Name Interests Send me your newsletter Send me Zoom meeting announcements /* real people should not fill this in and expect good things - do not remove this or risk form bot signups */ This work is licensed under a Creative Commons Attribution-ShareAlike 4.0 International License. Scroll to Top Skip to content The Authoritative Website The Authoritative Website Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Log in Sign upSign up Home » Computer Media » ZX File Finder Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy ZX File Finder Thomas B. Woods Products: Linear Search Developer(s): Thomas B. Woods Date: 198 Type: Program Platform(s): TS 1000 Early database program. Content Appears On CassFile2 One individual’s cassette containing a number of programs. Related Products Linear Search In-depth treatise on machine language technique for searching data. Construct a fast and highly personalized data base program. 16K. Related Articles Related Content Image Gallery Source Code 1 REM 5 REM \2A\DC\40\ED\4B\DE\40\11\82\40\1A\ED\B1\E2\E0\40\13\1A\FE\9B\CA\C7\40\ED\A1\CA\B8\40\C3\AF\40\22\DC\40\2B\7E\FE\17\CA\D4\40\C3\CA\40\22\7B\40\ED\43\DE\40\C9\00\00\00\00\21\12\41\01\01\00\C3\D4\40 6 REM 11 REM *\'. *\'.*\'.*\'. *\'. *\'. *\'. *\'. *\'.*\'. *\'. *\'. *\'. *\'. *\'. WOODS%£00001%£END*\'.OBERT%£HELLO*\'. *\'.TT""12750""""*\'. *TTT""XXX""""*LAST FILE""...""""*\'. 12 LET P=0 14 CLS 15 PRINT " %Z%X%/%F%I%L%E% %F%I%N%D%E%R ",,"%E%N%T%E%R% %A% %S%E%A%R%C%H% %C%O%M%M%A%N%D% %O%R% %T%Y%P%E% % %"%A%"% %T%O% %A%D%D% %A% %N%E%W% %F%I%L%E% % % % % % % % % % % " 20 INPUT X$ 21 IF X$="" THEN GOTO 20 30 IF X$="A" THEN GOTO 500 35 LET X$=X$+"%." 50 FOR X=1 TO LEN X$ 60 POKE 16513+X,CODE X$(X) 70 NEXT X 80 POKE 16606,P-256*INT (P/256) 90 POKE 16607,INT (P/256) 100 POKE 16604,18 110 POKE 16605,65 120 CLS 122 LET B=USR 16552 125 PRINT X$( TO LEN X$-1);TAB 0;"%F%I%L%E%/%S%E%A%R%C%H",,,, 130 LET X=PEEK 16507+256*PEEK 16508 135 FOR Y=X TO X+P 140 IF PEEK Y<>192 THEN PRINT CHR$ PEEK Y; 150 IF PEEK (Y+1)=192 OR PEEK (Y+1)=23 THEN GOTO 200+(20*(PEEK (Y+1)=23)) 170 NEXT Y 180 GOTO 220 200 PRINT 210 NEXT Y 220 PRINT AT 16,0;"%H%I%T% %E%N%T%E%R% %T%O% %C%O%N%T%I%N%U%E% %S%E%A%R%C%H%I%N%G% %"%R%"% %T%O% %R%E%T%U%R%N% %T%O% %P%R%E%V%I%O%U%S% %F%I%L%E%S% %"%N%"% %T%O% %B%E%G%I%N% %A% %N%E%W% %F%I%L%E%/%S%E%A%R%C%H% % " 230 INPUT Y$ 235 IF Y$="R" THEN GOTO 80 240 IF B AND Y$="" THEN GOTO 120 245 IF Y$<>"N" THEN GOTO 220 250 GOTO 14 500 PRINT AT 7,5;"%A%D%D%/%F%I%L%E" 510 FOR X=1 TO 4 520 PRINT AT 7,14;"INPUT LINE ";X 530 INPUT X$ 540 IF X=1 THEN LET A$="*"+X$ 550 IF X>1 THEN LET A$=A$+""""+X$ 560 PRINT AT 8+X,0;X$ 570 NEXT X 580 PRINT AT 16,0;"HIT ENTER TO LOG THIS LISTING OR""C"" TO CORRECT IT";" " 585 INPUT X$ 590 CLS 595 IF X$="C" THEN GOTO 500 600 FOR X=1 TO LEN A$ 610 POKE 16658+P,CODE A$(X) 620 LET P=P+1 630 NEXT X 635 POKE 16658+P,23 660 GOTO 14 1000 FOR X=16507 TO 17000 1005 PRINT AT 0,0;"HIT ENTER TO GOTO NEXT ADDRESS ""P"" TO POKE THIS ADDRESS";TAB 0;"""S"" TO STOP",,"""G"" TO GOTO A NEW ADDRESS";TAB 0;"""B"" TO BACK UP" 1010 PRINT AT 7,0;"ADDR PEEK CHR$ " 1015 PRINT AT 8,0;X;" ";PEEK X;" ";TAB 12;CHR$ PEEK X;" " 1020 INPUT X$ 1025 IF X$="S" THEN STOP 1030 IF X$="P" THEN GOTO 2000 1035 IF X$="B" THEN LET X=X-2 1040 IF X$="G" THEN GOTO 1500 1050 NEXT X 1060 STOP 1500 PRINT AT 10,0;"INPUT STARTING ADDRESS" 1510 INPUT X 1520 PRINT AT 10,0;" " 1530 GOTO 1010 2000 PRINT AT 10,0;"INPUT A DECIMAL VALUE" 2010 INPUT Y 2020 POKE X,Y 2030 GOTO 1520 Tags Archived Media, Downloadable, TS 1000, Thomas B. Woods (company) People Thomas B. Woods Recent Posts Timex at K-MartApril 17, 2025 Exploring the Legacy of Timex Computer Corporation: Insights from Danny RossOctober 24, 2024 Real World Uses: Timex/Sinclair 2068May 16, 2024 “Made In Spain” ZX81 and TS1000 PCBsFebruary 23, 2024 How Did TS 2068 Users Make a Spectrum ROM?September 9, 2023 Support This Site Subscribe * indicates required Email Address * First Name Last Name Interests Send me your newsletter Send me Zoom meeting announcements /* real people should not fill this in and expect good things - do not remove this or risk form bot signups */ This work is licensed under a Creative Commons Attribution-ShareAlike 4.0 International License. Scroll to Top Skip to content The Authoritative Website The Authoritative Website Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Log in Sign upSign up Home » Computer Media » ZX File Finder Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy ZX File Finder Thomas B. Woods Products: Linear Search Developer(s): Thomas B. Woods Date: 198 Type: Program Platform(s): TS 1000 Early database program. Content Appears On CassFile2 One individual’s cassette containing a number of programs. Related Products Linear Search In-depth treatise on machine language technique for searching data. Construct a fast and highly personalized data base program. 16K. Related Articles Related Content Image Gallery Source Code 1 REM 5 REM \2A\DC\40\ED\4B\DE\40\11\82\40\1A\ED\B1\E2\E0\40\13\1A\FE\9B\CA\C7\40\ED\A1\CA\B8\40\C3\AF\40\22\DC\40\2B\7E\FE\17\CA\D4\40\C3\CA\40\22\7B\40\ED\43\DE\40\C9\00\00\00\00\21\12\41\01\01\00\C3\D4\40 6 REM 11 REM *\'. *\'.*\'.*\'. *\'. *\'. *\'. *\'. *\'.*\'. *\'. *\'. *\'. *\'. *\'. WOODS%£00001%£END*\'.OBERT%£HELLO*\'. *\'.TT""12750""""*\'. *TTT""XXX""""*LAST FILE""...""""*\'. 12 LET P=0 14 CLS 15 PRINT " %Z%X%/%F%I%L%E% %F%I%N%D%E%R ",,"%E%N%T%E%R% %A% %S%E%A%R%C%H% %C%O%M%M%A%N%D% %O%R% %T%Y%P%E% % %"%A%"% %T%O% %A%D%D% %A% %N%E%W% %F%I%L%E% % % % % % % % % % % " 20 INPUT X$ 21 IF X$="" THEN GOTO 20 30 IF X$="A" THEN GOTO 500 35 LET X$=X$+"%." 50 FOR X=1 TO LEN X$ 60 POKE 16513+X,CODE X$(X) 70 NEXT X 80 POKE 16606,P-256*INT (P/256) 90 POKE 16607,INT (P/256) 100 POKE 16604,18 110 POKE 16605,65 120 CLS 122 LET B=USR 16552 125 PRINT X$( TO LEN X$-1);TAB 0;"%F%I%L%E%/%S%E%A%R%C%H",,,, 130 LET X=PEEK 16507+256*PEEK 16508 135 FOR Y=X TO X+P 140 IF PEEK Y<>192 THEN PRINT CHR$ PEEK Y; 150 IF PEEK (Y+1)=192 OR PEEK (Y+1)=23 THEN GOTO 200+(20*(PEEK (Y+1)=23)) 170 NEXT Y 180 GOTO 220 200 PRINT 210 NEXT Y 220 PRINT AT 16,0;"%H%I%T% %E%N%T%E%R% %T%O% %C%O%N%T%I%N%U%E% %S%E%A%R%C%H%I%N%G% %"%R%"% %T%O% %R%E%T%U%R%N% %T%O% %P%R%E%V%I%O%U%S% %F%I%L%E%S% %"%N%"% %T%O% %B%E%G%I%N% %A% %N%E%W% %F%I%L%E%/%S%E%A%R%C%H% % " 230 INPUT Y$ 235 IF Y$="R" THEN GOTO 80 240 IF B AND Y$="" THEN GOTO 120 245 IF Y$<>"N" THEN GOTO 220 250 GOTO 14 500 PRINT AT 7,5;"%A%D%D%/%F%I%L%E" 510 FOR X=1 TO 4 520 PRINT AT 7,14;"INPUT LINE ";X 530 INPUT X$ 540 IF X=1 THEN LET A$="*"+X$ 550 IF X>1 THEN LET A$=A$+""""+X$ 560 PRINT AT 8+X,0;X$ 570 NEXT X 580 PRINT AT 16,0;"HIT ENTER TO LOG THIS LISTING OR""C"" TO CORRECT IT";" " 585 INPUT X$ 590 CLS 595 IF X$="C" THEN GOTO 500 600 FOR X=1 TO LEN A$ 610 POKE 16658+P,CODE A$(X) 620 LET P=P+1 630 NEXT X 635 POKE 16658+P,23 660 GOTO 14 1000 FOR X=16507 TO 17000 1005 PRINT AT 0,0;"HIT ENTER TO GOTO NEXT ADDRESS ""P"" TO POKE THIS ADDRESS";TAB 0;"""S"" TO STOP",,"""G"" TO GOTO A NEW ADDRESS";TAB 0;"""B"" TO BACK UP" 1010 PRINT AT 7,0;"ADDR PEEK CHR$ " 1015 PRINT AT 8,0;X;" ";PEEK X;" ";TAB 12;CHR$ PEEK X;" " 1020 INPUT X$ 1025 IF X$="S" THEN STOP 1030 IF X$="P" THEN GOTO 2000 1035 IF X$="B" THEN LET X=X-2 1040 IF X$="G" THEN GOTO 1500 1050 NEXT X 1060 STOP 1500 PRINT AT 10,0;"INPUT STARTING ADDRESS" 1510 INPUT X 1520 PRINT AT 10,0;" " 1530 GOTO 1010 2000 PRINT AT 10,0;"INPUT A DECIMAL VALUE" 2010 INPUT Y 2020 POKE X,Y 2030 GOTO 1520 Tags Archived Media, Downloadable, TS 1000, Thomas B. Woods (company) People Thomas B. Woods Recent Posts Timex at K-MartApril 17, 2025 Exploring the Legacy of Timex Computer Corporation: Insights from Danny RossOctober 24, 2024 Real World Uses: Timex/Sinclair 2068May 16, 2024 “Made In Spain” ZX81 and TS1000 PCBsFebruary 23, 2024 How Did TS 2068 Users Make a Spectrum ROM?September 9, 2023 Support This Site Subscribe * indicates required Email Address * First Name Last Name Interests Send me your newsletter Send me Zoom meeting announcements /* real people should not fill this in and expect good things - do not remove this or risk form bot signups */ This work is licensed under a Creative Commons Attribution-ShareAlike 4.0 International License. Scroll to Top itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57770 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0" itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57770 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0" Skip to content The Authoritative Website The Authoritative Website Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Log in Sign upSign up Home » Computer Media » ZX File Finder Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy ZX File Finder Thomas B. Woods Products: Linear Search Developer(s): Thomas B. Woods Date: 198 Type: Program Platform(s): TS 1000 Early database program. Content Appears On CassFile2 One individual’s cassette containing a number of programs. Related Products Linear Search In-depth treatise on machine language technique for searching data. Construct a fast and highly personalized data base program. 16K. Related Articles Related Content Image Gallery Source Code 1 REM 5 REM \2A\DC\40\ED\4B\DE\40\11\82\40\1A\ED\B1\E2\E0\40\13\1A\FE\9B\CA\C7\40\ED\A1\CA\B8\40\C3\AF\40\22\DC\40\2B\7E\FE\17\CA\D4\40\C3\CA\40\22\7B\40\ED\43\DE\40\C9\00\00\00\00\21\12\41\01\01\00\C3\D4\40 6 REM 11 REM *\'. *\'.*\'.*\'. *\'. *\'. *\'. *\'. *\'.*\'. *\'. *\'. *\'. *\'. *\'. WOODS%£00001%£END*\'.OBERT%£HELLO*\'. *\'.TT""12750""""*\'. *TTT""XXX""""*LAST FILE""...""""*\'. 12 LET P=0 14 CLS 15 PRINT " %Z%X%/%F%I%L%E% %F%I%N%D%E%R ",,"%E%N%T%E%R% %A% %S%E%A%R%C%H% %C%O%M%M%A%N%D% %O%R% %T%Y%P%E% % %"%A%"% %T%O% %A%D%D% %A% %N%E%W% %F%I%L%E% % % % % % % % % % % " 20 INPUT X$ 21 IF X$="" THEN GOTO 20 30 IF X$="A" THEN GOTO 500 35 LET X$=X$+"%." 50 FOR X=1 TO LEN X$ 60 POKE 16513+X,CODE X$(X) 70 NEXT X 80 POKE 16606,P-256*INT (P/256) 90 POKE 16607,INT (P/256) 100 POKE 16604,18 110 POKE 16605,65 120 CLS 122 LET B=USR 16552 125 PRINT X$( TO LEN X$-1);TAB 0;"%F%I%L%E%/%S%E%A%R%C%H",,,, 130 LET X=PEEK 16507+256*PEEK 16508 135 FOR Y=X TO X+P 140 IF PEEK Y<>192 THEN PRINT CHR$ PEEK Y; 150 IF PEEK (Y+1)=192 OR PEEK (Y+1)=23 THEN GOTO 200+(20*(PEEK (Y+1)=23)) 170 NEXT Y 180 GOTO 220 200 PRINT 210 NEXT Y 220 PRINT AT 16,0;"%H%I%T% %E%N%T%E%R% %T%O% %C%O%N%T%I%N%U%E% %S%E%A%R%C%H%I%N%G% %"%R%"% %T%O% %R%E%T%U%R%N% %T%O% %P%R%E%V%I%O%U%S% %F%I%L%E%S% %"%N%"% %T%O% %B%E%G%I%N% %A% %N%E%W% %F%I%L%E%/%S%E%A%R%C%H% % " 230 INPUT Y$ 235 IF Y$="R" THEN GOTO 80 240 IF B AND Y$="" THEN GOTO 120 245 IF Y$<>"N" THEN GOTO 220 250 GOTO 14 500 PRINT AT 7,5;"%A%D%D%/%F%I%L%E" 510 FOR X=1 TO 4 520 PRINT AT 7,14;"INPUT LINE ";X 530 INPUT X$ 540 IF X=1 THEN LET A$="*"+X$ 550 IF X>1 THEN LET A$=A$+""""+X$ 560 PRINT AT 8+X,0;X$ 570 NEXT X 580 PRINT AT 16,0;"HIT ENTER TO LOG THIS LISTING OR""C"" TO CORRECT IT";" " 585 INPUT X$ 590 CLS 595 IF X$="C" THEN GOTO 500 600 FOR X=1 TO LEN A$ 610 POKE 16658+P,CODE A$(X) 620 LET P=P+1 630 NEXT X 635 POKE 16658+P,23 660 GOTO 14 1000 FOR X=16507 TO 17000 1005 PRINT AT 0,0;"HIT ENTER TO GOTO NEXT ADDRESS ""P"" TO POKE THIS ADDRESS";TAB 0;"""S"" TO STOP",,"""G"" TO GOTO A NEW ADDRESS";TAB 0;"""B"" TO BACK UP" 1010 PRINT AT 7,0;"ADDR PEEK CHR$ " 1015 PRINT AT 8,0;X;" ";PEEK X;" ";TAB 12;CHR$ PEEK X;" " 1020 INPUT X$ 1025 IF X$="S" THEN STOP 1030 IF X$="P" THEN GOTO 2000 1035 IF X$="B" THEN LET X=X-2 1040 IF X$="G" THEN GOTO 1500 1050 NEXT X 1060 STOP 1500 PRINT AT 10,0;"INPUT STARTING ADDRESS" 1510 INPUT X 1520 PRINT AT 10,0;" " 1530 GOTO 1010 2000 PRINT AT 10,0;"INPUT A DECIMAL VALUE" 2010 INPUT Y 2020 POKE X,Y 2030 GOTO 1520 Tags Archived Media, Downloadable, TS 1000, Thomas B. Woods (company) People Thomas B. Woods Recent Posts Timex at K-MartApril 17, 2025 Exploring the Legacy of Timex Computer Corporation: Insights from Danny RossOctober 24, 2024 Real World Uses: Timex/Sinclair 2068May 16, 2024 “Made In Spain” ZX81 and TS1000 PCBsFebruary 23, 2024 How Did TS 2068 Users Make a Spectrum ROM?September 9, 2023 Support This Site Subscribe * indicates required Email Address * First Name Last Name Interests Send me your newsletter Send me Zoom meeting announcements /* real people should not fill this in and expect good things - do not remove this or risk form bot signups */ This work is licensed under a Creative Commons Attribution-ShareAlike 4.0 International License. Scroll to Top \C3\D4 6 REM 11 REM *\'. *\'.*\'.*\'. *\'. *\'. *\'. *\'. *\'.*\'. *\'. *\'. *\'. *\'. *\'. WOODS%£00001%£END*\'.OBERT%£HELLO*\'. *\'.TT""12750""""*\'. *TTT""XXX""""*LAST FILE""...""""*\'. 12 LET P=0 14 CLS 15 PRINT " %Z%X%/%F%I%L%E% %F%I%N%D%E%R ",,"%E%N%T%E%R% %A% %S%E%A%R%C%H% %C%O%M%M%A%N%D% %O%R% %T%Y%P%E% % %"%A%"% %T%O% %A%D%D% %A% %N%E%W% %F%I%L%E% % % % % % % % % % % " 20 INPUT X$ 21 IF X$="" THEN GOTO 20 30 IF X$="A" THEN GOTO 500 35 LET X$=X$+"%." 50 FOR X=1 TO LEN X$ 60 POKE 16513+X,CODE X$(X) 70 NEXT X 80 POKE 16606,P-256*INT (P/256) 90 POKE 16607,INT (P/256) 100 POKE 16604,18 110 POKE 16605,65 120 CLS 122 LET B=USR 16552 125 PRINT X$( TO LEN X$-1);TAB 0;"%F%I%L%E%/%S%E%A%R%C%H",,,, 130 LET X=PEEK 16507+256*PEEK 16508 135 FOR Y=X TO X+P 140 IF PEEK Y<>192 THEN PRINT CHR$ PEEK Y; 150 IF PEEK (Y+1)=192 OR PEEK (Y+1)=23 THEN GOTO 200+(20*(PEEK (Y+1)=23)) 170 NEXT Y 180 GOTO 220 200 PRINT 210 NEXT Y 220 PRINT AT 16,0;"%H%I%T% %E%N%T%E%R% %T%O% %C%O%N%T%I%N%U%E% %S%E%A%R%C%H%I%N%G% %"%R%"% %T%O% %R%E%T%U%R%N% %T%O% %P%R%E%V%I%O%U%S% %F%I%L%E%S% %"%N%"% %T%O% %B%E%G%I%N% %A% %N%E%W% %F%I%L%E%/%S%E%A%R%C%H% % " 230 INPUT Y$ 235 IF Y$="R" THEN GOTO 80 240 IF B AND Y$="" THEN GOTO 120 245 IF Y$<>"N" THEN GOTO 220 250 GOTO 14 500 PRINT AT 7,5;"%A%D%D%/%F%I%L%E" 510 FOR X=1 TO 4 520 PRINT AT 7,14;"INPUT LINE ";X 530 INPUT X$ 540 IF X=1 THEN LET A$="*"+X$ 550 IF X>1 THEN LET A$=A$+""""+X$ 560 PRINT AT 8+X,0;X$ 570 NEXT X 580 PRINT AT 16,0;"HIT ENTER TO LOG THIS LISTING OR""C"" TO CORRECT IT";" " 585 INPUT X$ 590 CLS 595 IF X$="C" THEN GOTO 500 600 FOR X=1 TO LEN A$ 610 POKE 16658+P,CODE A$(X) 620 LET P=P+1 630 NEXT X 635 POKE 16658+P,23 660 GOTO 14 \n1000 FOR X=16507 TO 17000 \n1005 PRINT AT 0,0;"HIT ENTER TO GOTO NEXT ADDRESS ""P"" TO POKE THIS ADDRESS";TAB 0;"""S"" TO STOP",,"""G"" TO GOTO A NEW ADDRESS";TAB 0;"""B"" TO BACK UP" \n1010 PRINT AT 7,0;"ADDR PEEK CHR$ " \n1015 PRINT AT 8,0;X;" ";PEEK X;" ";TAB 12;CHR$ PEEK X;" " \n1020 INPUT X$ \n1025 IF X$="S" THEN STOP \n1030 IF X$="P" THEN GOTO 2000 \n1035 IF X$="B" THEN LET X=X-2 \n1040 IF X$="G" THEN GOTO 1500 \n1050 NEXT X \n1060 STOP \n1500 PRINT AT 10,0;"INPUT STARTING ADDRESS" \n1510 INPUT X \n1520 PRINT AT 10,0;" " \n1530 GOTO 1010 \n2000 PRINT AT 10,0;"INPUT A DECIMAL VALUE" \n2010 INPUT Y \n2020 POKE X,Y \n2030 GOTO 1520