Early database program.
Content
Image Gallery
Source Code
1 REM
5 REM
Skip to content
ZX File Finder
Early database program.
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
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.11.2 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.11.1"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.11.2 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.11.1"A\FEB\CA\C7\ED\A1\CA\B8\C3\AF\DC
Skip to content
ZX File Finder
Early database program.
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
BE\FE\CA\D4\C3\CAB\ED\DE\C9
Skip to content
ZX File Finder
Early database program.
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
Skip to content
ZX File Finder
Early database program.
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
Skip to content
ZX File Finder
Early database program.
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
Skip to content
ZX File Finder
Early database program.
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
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.11.2 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.11.1" 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.11.2 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.11.1"
Skip to content
ZX File Finder
Early database program.
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
\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
