Early database program.
Appears on
One individual’s cassette containing a number of programs.
Related Products
In-depth treatise on machine language technique for searching data. Construct a fast and highly personalized data base program. 16K.
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