---
title: "Building a 2068 Database, Part 2"
type: "article"
slug: "building-a-2068-database-3"
url: "http://localhost/article/building-a-2068-database-3/"
markdown_url: "http://localhost/article/building-a-2068-database-3.md"
published_at: "2026-02-15T22:55:11+00:00"
modified_at: "2026-02-15T22:58:06+00:00"
featured_image:
  url: "http://localhost/wp-content/uploads/2022/04/20230809-041332.jpg"
excerpt: "In this installment of CIDS, we will develop six essential routines. The only routine that is not a command is the error report routine. Also, as all programs are prone to revisions and extensions, the error routine may not reflect future versions, since the error routine takes memory that could be used for another command."
category:
  - name: "SyncWare News"
    slug: "syncware-news"
    taxonomy: "category"
    url: "http://localhost/category/periodicals/syncware-news/"
post_tag:
  - name: "TS 2068"
    slug: "ts2068"
    taxonomy: "post_tag"
    url: "http://localhost/tag/ts2068/"
  - name: "Type-in program"
    slug: "type-in-program"
    taxonomy: "post_tag"
    url: "http://localhost/tag/type-in-program/"
model:
  - name: "Timex/Sinclair 2068"
    slug: "ts-2068"
    taxonomy: "model"
    url: "http://localhost/model/ts-2068/"
indiv:
  - name: "Mike Trivisonno"
    slug: "mike-trivisonno"
    taxonomy: "indiv"
    url: "http://localhost/indiv/mike-trivisonno/"
publication_r:
  id: 10245
  title: "SyncWare News"
  type: "periodical"
  url: "http://localhost/periodical/syncware-news/"
authors_r:
  - name: "Mike Trivisonno"
    slug: "mike-trivisonno"
    taxonomy: "indiv"
    url: "http://localhost/indiv/mike-trivisonno/"
volume: "3"
issue: "1"
issues_articles:
  - id: 38947
    title: "SyncWare News v3 n1"
    type: "issue"
    url: "http://localhost/issue/syncware-news-v3-n1/"
pages: "20-24"
pubdate: "September/October 1985"
related_articles:
  - id: 10450
    title: "Building a 2068 Database, Part 1"
    type: "article"
    url: "http://localhost/article/building-a-2068-database/"
archive_link: false
article_media:
  - id: 66595
    title: "CIDS"
    type: "computer_media"
    url: "http://localhost/computer_media/cids/"
---

# Building a 2068 Database, Part 2

In this installment of CIDS, we will develop six essential routines. The only routine that is not a command is the error report routine. Also, as all programs are prone to revisions and extensions, the error routine may not reflect future versions, since the error routine takes memory that could be used for another command.

## Source Code: CIDS

```
   10 GO SUB 9010: GO SUB 1506: GO TO 105
   50 FOR v=2 TO ml
   52 IF f$(g,v,1)=" " THEN GO TO 80
   54 NEXT v
   80 RETURN 
  105 GO SUB 200: GO SUB 400: BEEP .025,40: GO TO 105
  150 GO SUB 240: IF w$="    " THEN GO TO 160
  155 PRINT "RESULT ";VAL w$: RETURN 
  156 GO SUB 8020: LET w$=w$+STR$ s: RETURN 
  160 LET w$="eval": GO TO 9995
  200 IF a$<>"" THEN GO TO 240
  210 INPUT "READY>> "; LINE a$: PRINT ">===> ";a$
  220 IF a$="" THEN GO TO 210
  240 FOR l=1 TO LEN a$
  250 IF a$(l)<>" " THEN NEXT l
  260 LET w$=a$( TO l-1): LET a$=a$(l+1 TO )
  261 IF fl=1 THEN RETURN 
  270 IF w$="thanks" THEN PRINT "Your welcome."
  280 IF w$=" " THEN GO TO 200
  285 IF LEN w$<4 THEN LET w$=w$+"    "
  290 RETURN 
  300 FOR w=1 TO 21: PRINT PAPER x;"                                ": NEXT w: RETURN 
  410 FOR x=1 TO 28: IF d$(x, TO 4)=w$( TO 4) THEN GO TO 450
  420 NEXT x
  430 RETURN 
  450 LET w$=w$( TO 4)
  455 GO SUB VAL d$(x,5 TO ): IF a$<>"" THEN GO TO 465
  460 RETURN 
  465 IF a$(1)<>"," THEN GO TO 460
  470 LET a$=a$(3 TO ): GO TO 455
  500 IF LEN a$<5 THEN GO TO 9995
  505 GO SUB 240: IF LEN w$<5 THEN GO TO 9995
  515 LET s$=w$
  530 FOR g=1 TO f: IF f$(g,1, TO LEN s$)=s$ THEN GO TO 555
  540 NEXT g
  541 LET g=prev
  545 PRINT s$;" <NOT THERE>": RETURN 
  555 PRINT s$;" >--FOUND--<": RETURN 
  650 IF s$="" THEN GO TO 9995
  655 LET prev=g: GO SUB 540
  660 RETURN 
  680 IF g=0 THEN LET w$="display"
  681 IF g>f THEN LET g=f
  682 GO SUB 750: IF h<0 OR h>ml OR i<0 OR i>ml THEN GO TO 9995
  685 IF g=0 THEN GO TO 9995
  686 CLS : LET x=3: INK 7: GO SUB 300: PRINT AT 0,0;: LET x=1: INK 7: GO SUB 300: PRINT AT 0,0;"Display file"
  710 FOR v=h TO i
  712 PRINT PAPER x; INK 7;f$(g,v)
  715 NEXT v: LET h=1: RETURN 
  720 GO SUB 870
  730 INK o: RETURN 
  750 IF LEN a$<6 THEN RETURN 
  755 IF a$(1)>"0" OR a$(1)>"1" THEN RETURN 
  765 LET h=VAL a$(1 TO 2): LET i=VAL a$(7 TO 8): LET a$=a$(9 TO ): RETURN 
  850 LET f$(g,v)=b$: LET v=v+1: RETURN 
  870 LET a$="make "+s$: GO SUB 240: GO SUB 400: LET v=2: LET g=f: RETURN 
 1080 IF g=0 THEN GO TO 9995
 1090 CLS : PRINT AT 0,0;"Delete file  ";f$(g,1, TO 18): LET x=2: INK 7: GO SUB 300: INPUT "Are you sure?  "; LINE y$
 1091 IF y$="y" THEN GO TO 1094
 1092 IF y$<>"n" THEN GO TO 1090
 1093 RETURN 
 1094 FOR s=1 TO ml: LET r$(s)=f$(g,s): NEXT s
 1100 FOR s=g TO f: PRINT AT 1,0;
 1105 FOR t=1 TO ml
 1110 PRINT AT t,0;f$(s,t): LET f$(s,t)=f$(s+1,t): PRINT AT t,0; PAPER 2; INK 0;f$(s+1,t)
 1115 NEXT t: BEEP .01,40: NEXT s: LET f=f-1: LET x=0: INK o: CLS : GO SUB 300: PRINT AT 0,0;s$;" >--DELETED--<": LET g=0: RETURN 
 1200 CLS : LET x=1: INK 7: GO SUB 300: PRINT AT 0,0;"Names of files": FOR t=1 TO f
 1205 IF t=g THEN PRINT FLASH 1; INK 2;f$(t,1)
 1206 IF t=g THEN GO TO 1220
 1207 PRINT PAPER x; INK 7;f$(t,1)
 1210 IF t=g THEN PRINT INK 4;"^ current file"
 1220 NEXT t: RETURN 
 1250 CLS : LET x=6: GO SUB 300: PRINT AT 0,0;"Load a file"''': INPUT "FILENAME >--> "; LINE s$
 1260 PRINT "PUT DATA TAPE INTO DRIVE AND"'"HIT "; FLASH 1; INK 2;"ENTER"; FLASH 0; INK 7;".                  "
 1270 PAUSE 0: IF INKEY$<>CHR$ 13 THEN GO TO 1270
 1280 PRINT ;''"START TAPE AND HIT "; FLASH 1; INK 2;"ENTER"; FLASH 0; INK 7;".   "
 1290 PAUSE 0: IF INKEY$<>CHR$ 13 THEN GO TO 1290
 1300 PRINT ''">--LOADING--< ";s$
 1310 LOAD s$ DATA f$()
 1320 PRINT ''"DATAFILE ";s$;" IS LOADED."'; FLASH 1; INK 3;''"STOP TAPE"
 1330 FOR g=1 TO mf
 1340 LET f=f+1
 1350 IF f$(f,1,1)=" " THEN GO TO 1370
 1360 NEXT g
 1370 LET g=0: LET f=f-1: RETURN 
 1500 CLS : RETURN 
 1506 CLS : LET x=3: INK 7: GO SUB 300: PRINT AT 0,7;"COMMANDS AVAILABLE": FOR t=1 TO 28: PRINT d$(t, TO 4); PAPER x;"████";: BEEP .01,50: NEXT t: INK 7: RETURN 
 1510 IF LEN a$<5 THEN GO TO 9995
 1512 GO SUB 240
 1513 IF LEN w$<5 THEN GO TO 9995
 1517 IF f=mf THEN PRINT ">--CAPACITY REACHED--<"
 1518 IF f=25 THEN GO TO 9995
 1519 LET s$=w$
 1520 LET f=f+1: LET f$(f,1)=s$: PRINT s$;" >--MADE--<"
 1535 RETURN 
 1540 LET x=1: BRIGHT 1: CLS : GO SUB 300: PRINT AT 0,0;"Save database": INPUT "FILENAME PLEASE >--> "; LINE c$: PRINT '''"Start tape and hit "; FLASH 1; INK 2;"ENTER"; FLASH 0; INK 7;"."
 1550 PAUSE 0: IF INKEY$<>CHR$ 13 THEN GO TO 1550
 1555 PRINT '''"Saving ";c$
 1560 SAVE c$ DATA f$()
 1565 PRINT '''c$;" has been saved.": BRIGHT 0: RETURN 
 1650 IF f=0 OR g=0 THEN GO TO 9995
 1655 INPUT "COPY screen or file? (s/f) ";b$
 1660 IF b$="f" THEN GO TO 1690
 1670 IF b$<>"s" THEN GO TO 1650
 1680 COPY : RETURN 
 1690 FOR v=1 TO ml
 1700 LPRINT f$(g,v)
 1710 NEXT v
 1720 RETURN 
 1760 LET x=7: INK 0: CLS : GO SUB 300: PRINT AT 0,0; INK 7; PAPER 0;"Restoring file": IF f=mf THEN GO TO 9995
 1770 LET f=f+1: FOR s=1 TO ml: LET f$(f,s)=r$(s): PRINT INK 0; PAPER 7;r$(s): NEXT s: LET g=f: PRINT AT 0,0;"restored -----": RETURN 
 1900 IF g=0 OR f=0 THEN GO TO 9995
 1905 INPUT "Starting at line >> "; LINE i$: PRINT ">";i$
 1910 INPUT "To line >> "; LINE c$: PRINT ">";c$
 2200 LET s$=f$(g,1): LET w$=s$: LET prev=g: GO SUB 1517: LET g=f
 2210 LET v=VAL i$
 2215 LET f$(g,1)=f$(prev,1)
 2220 LET f$(g,v)=f$(prev,v): LET v=v+1
 2230 IF v>=VAL c$ THEN GO TO 2250
 2240 GO TO 2220
 2250 PRINT ">--->move completed"
 2260 RETURN 
 4010 RETURN 
 5010 IF g=0 THEN GO TO 9995
 5015 CLS : PRINT AT 0,0; INK 6; FLASH 1;"SETTING": GO SUB 6000: PRINT AT 0,0; FLASH 0;"       "
 5020 GO SUB main
 5025 RETURN 
 5030 PRINT AT 0,0;"l ";l;"  chr ";c
 5040 PRINT AT x,y; INVERSE 0;b$(l,c): LET x=x+1: IF x>ml THEN LET x=ml
 5042 LET l=l+1: IF l>ml THEN LET l=ml
 5046 GO TO main
 5060 PRINT AT x,y; INVERSE 0;b$(l,c): LET x=x-1: IF x<1 THEN LET x=1
 5062 LET l=l-1: IF l<1 THEN LET l=1
 5066 GO TO main
 5070 PRINT AT x,y; INVERSE 0;b$(l,c): LET y=y+1
 5072 LET c=c+1: IF y>(mc-1) THEN LET y=(mc-1)
 5076 IF c>mc THEN LET c=mc: GO TO main
 5078 GO TO main
 5080 PRINT AT x,y; INVERSE 0;b$(l,c): LET y=y-1: IF y<0 THEN LET y=0
 5082 LET c=c-1: IF c<1 THEN LET c=1
 5086 GO TO main
 5088 PRINT AT 0,0;"EDIT MODE"
 5090 LET e$=INKEY$
 5091 IF INKEY$=CHR$ (7) THEN GO TO 1000
 5092 IF e$="" THEN GO TO 91
 5093 LET b$(l,c)=e$
 5094 PRINT AT x,y;b$(l,c)
 5095 GO TO 90
 5096 PRINT AT 0,0;"         ": GO TO main
 5098 PRINT AT x,y;b$(l,c): LET x=1: LET y=0: LET l=1: LET c=1: LET pl=1: LET pc=1: LET bc=1: LET ec=32: GO TO main
 5100 LET ec=ec+1: IF ec>80 THEN LET ec=80
 5102 LET bc=bc+1: LET y=31: IF c>80 THEN LET c=80
 5104 GO TO main
 5120 LET bc=bc-1: IF bc<1 THEN LET bc=1
 5122 LET ec=ec-1: LET y=0: IF c<1 THEN LET c=1
 5124 IF ec<mc THEN LET ec=mc
 5125 LET c=c-1: IF c<1 THEN LET c=1
 5126 GO TO main
 5150 LET main=5154: PRINT AT 0,0; INK 1; FLASH 1;"EDIT MODE"; FLASH 0
 5154 IF x=0 THEN LET x=1
 5155 PRINT AT x,0;b$(l,bc TO ec);AT x,y; INVERSE 1; INK 2; PAPER 7;b$(l,c);AT 0,18; PAPER 0; INK 1;"ln "; INK 6;l;"██";AT 0,26; INK 1;"ch "; INK 6;c; INK 1;"█"
 5156 LET c$=INKEY$: IF c$="" THEN GO TO 5156
 5157 LET v=CODE c$: IF v>13 AND v<32 THEN GO TO 5155
 5158 IF v>143 THEN GO TO 5155
 5159 IF v=13 THEN GO TO 5400
 5160 IF v=10 THEN GO TO 5040
 5170 IF v=11 THEN GO TO 5060
 5180 IF v=9 THEN GO TO 5070
 5190 IF v=8 THEN GO TO 5080
 5195 IF v=7 THEN GO TO 5300
 5196 IF v=12 THEN GO TO 5310
 5197 IF v=5 THEN GO TO 5430
 5198 GO TO 5201
 5200 GO TO main
 5201 LET b$(l,c)=c$: PRINT AT x,y;c$: LET c=c+1: IF c>mc THEN LET c=1
 5202 LET y=y+1: IF y>(mc-1) THEN GO TO 5245
 5219 GO TO main
 5220 LET y=1: GO TO main
 5230 LET bc=bc+1:: LET ec=ec+1: IF ec>(mc-1) THEN GO TO 5245
 5240 GO TO main
 5245 LET c=1: LET ec=31: LET bc=1: LET l=l+1: IF l>ml THEN LET l=ml
 5250 LET x=l: LET y=0: GO TO main
 5300 PAUSE 20: LET main=5500: PRINT AT 0,0;"                  ": GO TO main
 5312 LET b$(l,c TO )=b$(l,c+1 TO ): GO TO main
 5313 LET b$(l,c TO )=" "+b$(l,c TO ): GO TO main
 5314 LET y=y-1: IF y<0 THEN LET y=0
 5318 GO TO main
 5400 PRINT AT x,y;f$(g,l,c): LET l=l+1: IF l>ml THEN LET l=ml
 5410 LET c=1: LET y=0: LET bc=1: LET ec=mc: LET x=x+1: IF x>ml THEN LET x=ml
 5420 GO TO main
 5430 LET b$(l,c TO )=" "+b$(l,c TO ): GO TO main
 5500 PRINT AT 0,0; FLASH 1; INK 5;"SCAN MODE"
 5501 PRINT AT x,0;b$(l,bc TO ec);AT x,y; INVERSE 1; INK 4;b$(l,c);AT 0,18; INK 3;"ln "; INK 5;l;"██";AT 0,26; INK 3;"ch "; INK 5;c; INK 3;"█"
 5510 LET c$=INKEY$: IF c$="" THEN GO TO 5510
 5520 IF c$="6" THEN GO TO 5040
 5530 IF c$="7" THEN GO TO 5060
 5540 IF c$="8" THEN GO TO 5070
 5550 IF c$="5" THEN GO TO 5080
 5560 IF c$=CHR$ (7) THEN GO TO 5150
 5570 IF c$="h" THEN GO TO 5098
 5575 IF c$="r" THEN GO TO 6060
 5580 GO TO main
 6000 LET main=5500: LET text=5201: LET a$="": DIM b$(21,32): LET x=1: LET y=0: LET l=1: LET c=1: LET pl=1: LET pc=1
 6030 LET bc=1: LET ec=mc:
 6040 FOR w=1 TO ml: LET b$(w)=f$(g,w): NEXT w
 6045 FOR w=1 TO ml: PRINT INK 4; INVERSE 1;b$(w): NEXT w: FOR w=21 TO 1 STEP -1: PRINT AT w,0; INK 1; INVERSE 1;b$(w): NEXT w: PRINT AT 1,0;: FOR w=1 TO ml: PRINT b$(w): NEXT w: RETURN 
 6060 PRINT AT 0,0; FLASH 1; INK 4;"RESTORING": FOR w=1 TO ml: LET f$(g,w)=b$(w): NEXT w
 6070 FOR w=1 TO 21: PRINT INK 3; INVERSE 1;b$(w): NEXT w: FOR w=21 TO 1 STEP -1: PRINT AT w,0; INK 5; INVERSE 1;b$(w): NEXT w: PRINT AT 1,0;: FOR w=1 TO 21: PRINT b$(w): NEXT w: PRINT AT 0,0; INK 4;"Ok --------": RETURN 
 6500 LET w$="prev": IF prev=0 THEN GO TO 9995
 6510 LET g=prev: PRINT ">--PREVIOUS FILE FOUND--<": BEEP .02,20: RETURN 
 7000 CLS : LET x=5: PRINT PAPER x; INK 0;"Adjust Screen":
 7010 INPUT a$
 7015 IF a$="r" THEN GO TO 7090
 7020 IF LEN a$<>2 THEN GO TO 7010
 7025 IF a$(2)<"0" OR a$(2)>"7" THEN GO TO 7010
 7030 IF a$(1)="p" THEN GO TO 7050
 7035 IF a$(1)="b" THEN GO TO 7055
 7040 IF a$(1)="i" THEN GO TO 7060
 7045 GO TO 7010
 7050 PAPER VAL a$(2): GO TO 7010
 7055 BORDER VAL a$(2): GO TO 7010
 7060 INK VAL a$(2): LET o=VAL a$(2): GO TO 7010
 7090 LET fl=0: LET a$="": RETURN 
 8000 REM GO SUB 240
 8010 IF w$="" THEN GO TO 8150
 8025 IF g=0 THEN GO TO 8170
 8026 REM IF mc<32 THEN GO TO 8165
 8027 GO SUB 240
 8028 IF W$="" OR w$(1)=" " THEN GO TO 8150
 8029 IF VAL w$<1 OR VAL w$>4 OR CODE w$(1)<48 OR CODE w$(1)>57 THEN GO TO 8160
 8030 LET s=0: LET x=0: LET y=0: GO SUB 8070
 8035 GO SUB 8070
 8036 LET w$=w$(1): GO SUB 680: PRINT AT 0,0; INK 4;"Zone file   ";
 8040 FOR l=2 TO 21: PRINT AT l,x-1; INK 4; PAPER 0; OVER 1;"████████": BEEP .025,50
 8041 GO SUB 8070: IF CODE f$(g,l,x)<48 OR CODE f$(g,l,x)>57 OR f$(g,l,x)="/" OR f$(g,l,x)=" " THEN GO TO 8060
 8050 LET s=s+VAL f$(g,l,x TO y): PRINT AT 0,21;"           ";AT 0,21; INK (RND*6)+1;s
 8060 NEXT l
 8062 PRINT AT 0,14;"zone ";w$;"=";s
 8064 RETURN 
 8070 LET x=(1 AND w$="1")+(9 AND w$="2")+(17 AND w$="3")+(25 AND w$="4"): LET y=(8 AND w$="1")+(16 AND w$="2")+(24 AND w$="3")+(32 AND w$="4"): RETURN 
 8150 LET w$="zone": GO TO 9995
 8160 LET w$="zone1": GO TO 9995
 8165 LET w$="zone4": GO TO 9995
 8170 LET w$="zone2": GO TO 9995
 8200 FOR k=x TO y: IF CODE f$(g,l,k)<46 OR CODE f$(g,l,k)>57 THEN GO TO 8060
 8210 NEXT k: RETURN 
 8250 PRINT AT 0,0;: FOR w=1 TO 32: PRINT f$(g,1,w);: NEXT w: FOR w=0 TO 31: PRINT AT 21,0;" ": NEXT w: RETURN 
 8300 IF g=0 THEN GO TO 9995
 8302 CLS : FOR w=1 TO 21: PRINT INK 0; PAPER 4;f$(g,w): NEXT w: PRINT AT 0,0
 8305 FOR s=2 TO ml
 8310 FOR t=mc TO 1 STEP -1
 8315 IF f$(g,s)="                                " THEN GO TO 8341
 8320 IF f$(g,s,t)<>" " THEN GO TO 8345
 8335 NEXT t
 8340 NEXT s: GO SUB 8250: RETURN 
 8341 PRINT f$(g,s): GO TO 8340
 8345 LET y$=f$(g,s): LET y$="                                "( TO mc-t)+y$: LET f$(g,s)=y$: PRINT INK 7; PAPER 0;f$(g,s): GO TO 8340
 8350 IF g=0 THEN GO TO 9995
 8352 CLS : FOR s=1 TO ml: PRINT PAPER 1; INK 0;f$(g,s): NEXT s: PRINT AT 1,0;
 8355 FOR s=2 TO ml
 8360 FOR t=1 TO (mc-1)
 8362 IF f$(g,s)="                                " THEN GO TO 8377
 8365 IF f$(g,s,t)<>" " THEN GO TO 8380
 8370 NEXT t
 8375 NEXT s
 8376 GO SUB 8250: RETURN 
 8377 PRINT f$(g,s): GO TO 8375
 8380 LET f$(g,s)=f$(g,s,t TO ): PRINT f$(g,s): GO TO 8375
 8400 IF g=0 THEN GO TO 9995
 8405 GO SUB 8300
 8410 CLS : FOR s=1 TO ml: PRINT INK 0; PAPER 5;f$(g,s): NEXT s: PRINT AT 1,0;
 8445 FOR s=2 TO ml
 8446 FOR t=1 TO (mc-1)
 8447 IF f$(g,s)="                                " THEN GO TO 8456
 8450 IF f$(g,s,t)<>" " THEN GO TO 8460
 8452 NEXT t
 8455 NEXT s: GO SUB 8250: RETURN 
 8456 PRINT f$(g,s): GO TO 8455
 8460 LET y$=f$(g,s,t TO ): LET y$="                                "( TO (mc-LEN y$)/2)+y$: LET f$(g,s)=y$: PRINT f$(g,s): GO TO 8455
 8500 PRINT "Number of files. ";
 8510 INPUT mf
 8520 PRINT mf
 8530 PRINT "Number of lines. (max. 21) ";
 8540 INPUT ml: IF ml>21 THEN GO TO 8540
 8545 PRINT ml
 8560 PRINT "Number of characters per line.  (max. 32) ";
 8570 INPUT mc: IF mc>32 THEN GO TO 8570
 8575 PRINT mc
 8577 IF (mf*ml)*mc>16800 THEN GO TO 8595
 8580 LET f=0: LET g=0: LET i=ml: DIM f$(mf+1,ml,mc): PRINT "CIDS has been reconfigured."
 8590 RETURN 
 8595 PRINT ">--EXCEEDS MEMORY AVAILABLE--<": GO TO 8500
 8600 IF f<=1 THEN GO TO 9995
 8601 PRINT "On what record?": INPUT l: IF l>ml THEN GO TO 8600
 8602 LET x=6: INK 0: GO SUB 300: LET s=1: DIM b$(ml,mc): PRINT AT 0,0; PAPER 0; INK 7;"Sorting on record ";l
 8603 LET s=s*2
 8605 IF s<=f THEN GO TO 8603
 8610 LET s=INT (s/2)
 8612 IF s=0 THEN GO TO 8710
 8615 FOR t=1 TO f-s
 8620 LET y=t
 8625 LET fl=y+s
 8630 IF f$(y,l)<=f$(fl,l) THEN GO TO 8660
 8640 PAPER 6: INK 0: FOR i=1 TO ml: LET b$(i)=f$(y,i): PRINT AT i,0;b$(i): NEXT i: FOR i=1 TO ml: LET f$(y,i)=f$(fl,i): PRINT AT i,0;f$(y,i): NEXT i: FOR i=1 TO ml: LET f$(fl,i)=b$(i): PRINT AT i,0;f$(fl,i): NEXT i
 8645 LET y=y-s
 8650 IF y>0 THEN GO TO 8625
 8660 NEXT t
 8670 GO TO 8610
 8710 PRINT AT 0,0;"Sort done ---------": LET i=ml: LET fl=0: INK 7: PAPER 0: RETURN 
 8715 PRINT "Wich record do you want to      become the new key?": INPUT s
 8720 IF s>ml OR s<=0 THEN GO TO 8715
 8750 PRINT ">--Change keys--<"
 8780 FOR t=1 TO f: LET y$=f$(t,1): LET f$(t,1)=f$(t,s): LET f$(t,s)=y$: NEXT t: PRINT ">--Key has been changed.--<"
 8785 RETURN 
 9000 STOP : RETURN 
 9010 LET o=7: POKE 23609,6: LET mf=26: LET ml=21: LET mc=32: LET fl=0: DIM f$(mf,ml,mc): DIM r$(ml,mc): LET g=0: LET f=0: DIM d$(28,8): LET h=1: LET i=21: LET s$="": LET prev=0
 9020 LET d$(14)="prev6500": LET d$(4)="clea1500": LET d$(17)="help1506": LET d$(3)="make1510": LET d$(1)="find500": LET d$(5)="next650": LET d$(6)="disp680": LET d$(7)="adto5000": LET d$(8)="keys8750": LET d$(9)="sort8600": LET d$(10)="dele1080": LET d$(16)="name1200"
 9025 LET d$(21)="scra1080": LET d$(22)="loca500": LET d$(23)="crea1510": LET d$(24)="remo1080": LET d$(25)="left8300": LET d$(26)="righ8350": LET d$(27)="cent8400": LET d$(28)="modi8500"
 9030 LET d$(13)="adju7000": LET d$(2)="eval150": LET d$(15)="copy1650": LET d$(19)="rest1760": LET d$(18)="save1540": LET d$(20)="load1250": LET d$(11)="zone8000": LET d$(12)="move1900": LET a$=""
 9040 POKE 23692,255: PAPER 0: CLS : RETURN 
 9995 PRINT "**ERROR** ";w$( TO 4);">";
 9996 PRINT ("no file" AND w$="right")+("no file" AND w$="left")+("no file" AND w$="cent")+("no fie" AND w$="copy")+("no file" AND w$="move")+("no file" AND w$="zone2")+("no file" AND w$="edit1")+("no file" AND w$="bloc1")+("no file" AND w$="adto")+("out of range" AND w$="zone1")+("no file" AND w$="dele")+("no file" AND w$="display");
 9997 PRINT ("see pg.28" AND w$="zone4")+("no file" AND w$="grap")+("no previous file" AND w$="prev")+("column?" AND w$="zone")+("next before find" AND w$="next")+("out of range" AND w$="disp")+("operator required" AND w$="eval")+("name short" AND w$="find")+("name short" AND w$="make");
 9998 PRINT " pg.";(18 AND w$="disp")+(25 AND w$="left")+(27 AND w$="righ")+(27 AND w$="cent")+(12 AND w$="make")+(13 AND w$="find")+(14 AND w$="adto")+(16 AND w$="dele")+(18 AND w$="display")+(19 AND w$="next")+(20 AND w$="prev")+(22 AND w$="move")+(30 AND w$="zone")+(32 AND w$="eval")+(29 AND w$="sort")
 9999 PRINT : RETURN
```