--- title: "Smart Text (TS2068 Larken Edition)" id: 72744 type: "computer_media" slug: "smart-text-ts2068-larken-edition" url: "http://localhost/computer_media/smart-text-ts2068-larken-edition/" markdown_url: "http://localhost/computer_media/smart-text-ts2068-larken-edition.md" published_at: "2026-10-26T23:19:23+00:00" modified_at: "2026-10-27T18:21:50+00:00" author: "David Anderson" featured_image: url: "http://localhost/wp-content/uploads/2026/10/smarttext-title.png" excerpt: "Bill Jones' disk word processor and office program with turbo typing, paragraph files, print styles, automatic letterheads, a mailing list, labels and repeat printing of letters." post_tag: - name: "Downloadable" slug: "downloadable" taxonomy: "post_tag" url: "http://localhost/tag/downloadable/" - name: "Gulf Micro Electronics" slug: "gulf-micro-electronics" taxonomy: "post_tag" url: "http://localhost/tag/gulf-micro-electronics/" - name: "TS 2068" slug: "ts2068" taxonomy: "post_tag" url: "http://localhost/tag/ts2068/" model: - name: "Timex/Sinclair 2068" slug: "ts-2068" taxonomy: "model" url: "http://localhost/model/ts-2068/" indiv: - name: "Bill Jones" slug: "bill-jones" taxonomy: "indiv" url: "http://localhost/indiv/bill-jones/" genre: - name: "Word Processor" slug: "word-processor" taxonomy: "genre" url: "http://localhost/type/word-processor/" media_type: "Diskette" programmers: - name: "Bill Jones" slug: "bill-jones" taxonomy: "indiv" url: "http://localhost/indiv/bill-jones/" download_url: "https://archive.org/download/timex-sinclair-software-archive/Smart%20Text%20LKDOS%20%281989%29%28Jones%2C%20Bill%29%28TS2068%29%28US%29%28Larken%20Disk%29.zip" tsrun_member: "Smart Text LKDOS (1989)(Jones, Bill)(TS2068)(US)(Larken Disk)/disk files/Blue Disk/01809.C1.tap" mediadate: "1989" producer_company: - id: 10680 title: "Gulf Micro Electronics" type: "company" url: "http://localhost/company/gulf-micro-electronics/" images: - url: "http://localhost/wp-content/uploads/2026/10/smarttext-title.png" - url: "http://localhost/wp-content/uploads/2026/10/smarttext-function-menu.png" - url: "http://localhost/wp-content/uploads/2026/10/smarttext-office-tools.png" - url: "http://localhost/wp-content/uploads/2026/10/smarttext-mail-menu.png" - url: "http://localhost/wp-content/uploads/2026/10/smarttext-quickie-menu.png" - url: "http://localhost/wp-content/uploads/2026/10/smarttext-blue-label.jpg" - url: "http://localhost/wp-content/uploads/2026/10/smarttext-grey-label.jpg" article_media: - id: 10571 title: "Smart Text TS-2068" type: "article" url: "http://localhost/article/smart-text-ts-2068/" - id: 15328 title: "Smart Text TS-2068" type: "article" url: "http://localhost/article/smart-text-ts-2068-2/" - id: 44922 title: "Smart Text TS-2068" type: "article" url: "http://localhost/article/smart-text-ts-2068-3/" - id: 22052 title: "More About Daisy Smart Text" type: "article" url: "http://localhost/article/more-about-daisy-smart-text/" - id: 21808 title: "Update Announces “Daisy.B6” for TS-2068" type: "article" url: "http://localhost/article/update-announces-daisy-b6-for-ts-2068/" - id: 21970 title: "Hybiscus: A TS-2068 Software System Five Major Softwares Coordinated" type: "article" url: "http://localhost/article/hybiscus-a-ts-2068-software-system-five-major-softwares-coordinated/" related_products: - id: 13946 title: "Smart Text" type: "product" url: "http://localhost/product/smart-text/" - id: 22284 title: "Smart Text ZX/TS" type: "product" url: "http://localhost/product/smart-text-zx-ts/" related_content: - id: 56712 title: "Smart Text V3" type: "computer_media" url: "http://localhost/computer_media/smart-text-v3/" - id: 56713 title: "Smart Text V4" type: "computer_media" url: "http://localhost/computer_media/smart-text-v4/" - id: 72660 title: "Hybiscus: Daisy.B6 and Udbm.B6 (Larken Edition)" type: "computer_media" url: "http://localhost/computer_media/hybiscus-daisy-b6-and-udbm-b6-larken-edition/" - id: 54653 title: "The Daisy System Software Ensemble" type: "document" url: "http://localhost/document/the-daisy-system-software-ensemble/" media_type_tags: "Word Processor" license: false --- # Smart Text (TS2068 Larken Edition) Smart Text is Bill Jones’ word processor and office program for the TS2068 with the Larken disk system. Typing goes into a fast “turbo” input buffer with full editing, and the text is kept in seven-part paragraph arrays that can be saved to disk as numbered files and printed back one after another as a single long document. Menus set the page format, line spacing, captions, print style (pica, elite, condensed, italic or expanded) and the printer interface (Oliger or Aerco, Tasman or A&J). The Office Tools menu adds an automatic centred letterhead and sign-off, a mailing list with sorting, search and labels, envelopes and invoices, repeat printing of letters, manuscripts and outlines, and page management. Letters can be printed to every name in a mailing list. This is the TS2068 Larken version of Gulf Micro’s [Smart Text](/product/smart-text/), which was also sold for the TS1000 as [Smart Text ZX/TS](/product/smart-text-zx-ts/) ([Smart Text V3](/computer_media/smart-text-v3/), [Smart Text V4](/computer_media/smart-text-v4/)), and the predecessor of Jones’ `Daisy.B6`, part of [Hybiscus](/?post_type=computer_media&p=72660). This is a Larken (LKDOS) edition. It needs a TS2068 with the Larken disk interface and LKDOS, and it has not been converted for tape: the programs load their menu screens, typing routine and data from disk and print through the Larken printer channel. The download holds the images of both disks, every file as a TAP and the tutorial files as text. The two disks are labelled “**** SMART TEXT LKDOS **** BLUE DISK DS/DD 40 TRACK FORMAT C. 1989 by Gulf Micro, Panama City, Florida” and “GREY DISK … Copyright 1989 by: Gulf Micro”. The title screen, `cpr.C1`, reads “Smart Text TS-2068 Administrative Software, Larken Disk System, Copyright 1986 by Gulf Micro Electronics”. The program’s saved sign-off names Bill Jones. The typing routine is a short machine-code program by Don Lamen of SINCUS that runs in the printer buffer at 23296. One tutorial file says the Blue disk was a replacement program disk with corrections suggested by Bob Mitchell. Smart Text was reviewed as [Smart Text TS-2068](/article/smart-text-ts-2068/), and Jones followed it with Daisy.B6 ([Update Announces Daisy.B6](/article/update-announces-daisy-b6-for-ts-2068/), [More About Daisy Smart Text](/article/more-about-daisy-smart-text/)). His 1989 manual [The Daisy System Software Ensemble](/document/the-daisy-system-software-ensemble/) describes the later program. ## What Is in the Package ### Blue disk (programs) - `Daisy.B1`: Smart Text with the Mail Merge section. In spite of its name it is Smart Text, not the later Daisy.B6. - `Max.B1`: Smart Text with the Mail Merge programming taken out, which leaves more memory for text. - `CONCAT.B1` with `concat.C1`: “TURBO 68”, a stand-alone demonstration of the 256-byte typing routine. - Menu screens (`.C1`, 6912 bytes each): Function, Quickie, Data Control, Load, Save, Format, Print Style, Mail, Office Tools, Repeat Printer, Page Manage and others. - Practice files: the string arrays `1.A$` to `8.A$` (tutorial text about loading, saving, mail merge, the turbo input and the revisions; 7 and 8 are the same) and the “vars files” `01809.C1`, `09756.C1` and `10213.C1`. A vars file is Smart Text’s whole variables area saved as code and named after its length; it is loaded from the Load menu by its full name, and `01809.C1` is the clean start-up set. ### Grey disk (tutors) - `TUTOR.B1` and `TUT-2.B1`: on-screen tutors that walk through the menus and data handling. - `P-PCH.B1`: Smart Text Printer Patch, a tutor and utility that matches the program’s printer control lines to the user’s printer and installs the user’s letterhead and sign-off in the Blue disk programs. - Its own copies of the menu screens, some of them newer, the editor screens, and the vars files `01607.C1` and `01809.C1`. Both disks also hold Larken’s format and copy utility (`FORMAT.BO`, `Hcode.Co`). The LKDOS boot files are in the disk images only. The letterhead saved in the programs and vars files is Gulf Micro Electronics’ and UPDATE magazine’s published business address. The download now also holds two builds of the original Gulf Micro Electronics program from another of Bob Swoger’s Larken disks, in the folder “Smart Text TS-2068 tape and OS-64 versions (1984)”. The 32-column tape version (SMRTXT.B2, with its printer code) runs without the disk system, but it initializes a parallel printer interface (AERCO, Oliger or CPI) at start-up and stops with “Invalid I/O device” on a TS2068 without one; `GO TO 2083` continues to the menus. The 64-column version needs the Zebra OS-64 cartridge and was not tested. Two text files hold the manual pages and the “Manual Addendum for use with the ZEBRA OS-64 CARTRIDGE” that were saved in the programs’ variables, with private street addresses and ZIP codes blanked. The disk’s mailing-list files are left out. The download now also includes a “Smart Text AERCO DOS-64 edition” folder: the same Gulf Micro package rewritten for the AERCO FD-68 disk interface running DOS-64, from an AERCO disk labelled “Smart Text”. It holds the raw AERCO disk image and every file from it: the menu, two versions of Smart Text (`blue` and `blue-2`), the three-part on-screen tutor, the Printer Patch for AERCO, Oliger, Tasman and A&J interfaces (which uses John Oliger’s printer driver code by permission), the printer and letterhead data files, and the 19 menu and help screens, which this version loads with AERCO’s `CAT "name.scr",` syntax. It needs a TS2068 with the AERCO disk interface and has not been converted for tape. ## Source Code ``` 140 INPUT "Drive #?";dr: RANDOMIZE USR m1: GO TO dr: RETURN 145 GO TO fm 150 RANDOMIZE USR VAL "23334" 158 LET a=PEEK 23299: LET b=PEEK 23298: LET c=PEEK 23560: LET a1=PEEK 23296+256*PEEK 23297 159 IF c<>12 THEN GO TO 230 160 LET b=b-1: LET a1=a1-1: IF b=-1 THEN LET b=31: LET a=a-1: IF a=-1 THEN LET a=0 161 IF a1=-1 THEN LET a1=0 162 LET u$=u$( TO a1)+u$(a1+2 TO ) 164 IF LEN u$>a1-b+1-a*32+404 THEN PRINT AT a,0;u$(a1-b+1 TO ); 166 IF LEN u$>a1-b+1+403 THEN PRINT AT a,0;u$(a1-b+1 TO 404); 167 RANDOMIZE USR 23334 230 GO TO (c>31)*300+(c=7)*390+(c=8)*290+(c=9)*275+(c=10)*265+(c=11)*255+(c=12)*370+(c=13)*150+(c=14)*2926+(c<7)*2926 235 POKE 23611,220 238 IF PEEK 23611<221 THEN GO TO 238 240 LET c=PEEK 23560: POKE 23611,220 250 GO TO 230 255 LET a=a-oa: LET a1=a1-VAL "32": IF aa1-b+oa+VAL "403"-a*VAL "32" THEN PRINT AT oo,oo;u$(a1-b+oa-a*VAL "32" TO a1-b+oa+VAL "404"-a*VAL "32"); 258 PRINT AT a,b; INVERSE oa; OVER oa;"_";: GO TO VAL "235" 265 LET a=a+oa: LET a1=a1+VAL "32": IF a1+VAL "128">LEN u$ THEN PRINT AT a+ob,oo; FLASH 1;"To edit here Touch ENTER ": PAUSE oo: RANDOMIZE USR VAL "23334" 266 IF a>ok THEN LET a=ol: PRINT AT oo,oo;u$(a1-b+oa-VAL "384" TO a1-b+VAL "96"); 270 PRINT AT a,b; INVERSE oa; OVER oa;"_";: GO TO VAL "235" 275 LET a1=a1+oa: LET b=b+oa: IF b=VAL "32" THEN LET b=oo: LET a=a+oa: IF a>VAL "21" THEN LET a=a-oa: LET b=VAL "31": LET a1=a1-oa 280 IF A1>LEN U$ THEN LET A1=A1-oa: LET B=B-oa: IF B=-1 THEN LET B=VAL "31": LET A=A-oa 285 PRINT AT a,b; OVER oa;"_";: GO TO VAL "235" 290 LET b=b-oa: LET a1=a1-oa: IF b=-oa THEN LET b=VAL "31": LET a=a-oa: IF a=-oa THEN LET b=oo: LET a=oo: LET a1=a1+oa 295 PRINT AT a,b; OVER oa;"_";: GO TO VAL "235" 300 LET u$=u$( TO a1)+CHR$ c+u$(a1+oa TO ): LET b=b+oa: LET a1=a1+oa: IF b=VAL "32" THEN LET b=oo: LET a=a+oa 301 IF LEN u$a1-b+oa+VAL "403"-a*VAL "32" THEN PRINT AT a,oo;u$(a1-b+oa TO a1-b+oa+VAL "404"-a*VAL "32"); 305 PRINT AT a,b; INVERSE oa; OVER oa;"_";: GO TO VAL "235" 310 LET a=oo: IF a1VAL "31" AND LEN u$VAL "31" AND LEN u$>a1-b+oa+VAL "403" THEN PRINT AT oo,oo;u$(a1-b+oa TO a1-b+oa+VAL "403"); 350 IF LEN u$VAL "403" THEN PRINT AT oo,oo;u$( TO VAL "404"); 360 PRINT AT a,b; OVER oa;"_"; 365 POKE VAL "23611",VAL "220": GO TO VAL "235" 370 LET b=b-1: LET a1=a1-oa: IF b=-1 THEN LET b=VAL "31": LET a=a-1: IF a=-1 THEN LET a=oo 372 IF a1a1-b+oa-a*VAL "32"+VAL "403" THEN PRINT AT a,oo;u$(a1-b+oa TO VAL "404"); 378 PRINT AT a,b; OVER oa;"_";: GO TO 235 390 PRINT AT ot,oo; INVERSE oa;"BLOCK INSERT"; INVERSE oo;" Type String, ENTER": INPUT z$: CLS : LET u$=u$( TO a1)+z$+u$(a1+oa TO ): RANDOMIZE USR VAL "23334" 400 INPUT "Number of Mailing List Names?";h: LET m=h: LET b$="": INPUT "Sort by <1> ZIP CODE <2> Last Name";z: GO SUB m4+oh: GO SUB k1+oj: GO TO k2 406 GO SUB m6+t4: GO SUB k1+oj: GO SUB m6+t7: GO TO k2 408 CLS : PRINT AT oj,oo; FLASH oa;"Eliminating Repeats"; FLASH oo''"Line 408": FOR n=1 TO h: FOR y=n+oa TO h: IF o$(n,oa)=o$(y,oa) THEN FOR g=oa TO og: LET o$(y,g)="": NEXT g 409 NEXT y: NEXT n 410 CLS : PRINT AT oj,oo; FLASH oa;"Eliminating Skips, Line 410"; FLASH oo: FOR n=oa TO h: IF o$(n,oa)(oa TO ob)=" " THEN FOR y=n TO h: IF o$(y,oa)(oa TO ob)<>" " THEN FOR g=oa TO og: LET o$(n,g)=o$(y,g): LET o$(y,g)="": NEXT g: GO TO m4+on 412 NEXT y 414 NEXT n 416 FOR n=oa TO h: IF o$(n,ob)(oa)=" " THEN LET h=n-oa: GO TO m4+ot 418 NEXT n 419 ON ERR GO TO VAL "422": FOR n=h+oa TO m: IF o$(n,ob)(oa)=" " THEN LET o$(n,oa)="" 420 NEXT n: STOP 422 ON ERR RESET : RETURN 640 CLS : PRINT FLASH oa;AT oj,oa;"Last Name Reverse, line 640": FOR n=oa TO h 642 LET b$=o$(n,oa) 646 IF b$(LEN b$)=" " THEN LET b$=b$( TO LEN b$-oa): GO TO VAL "646" 650 FOR l=LEN b$ TO oa STEP -oa 652 IF n>k THEN RETURN 654 IF b$(l)=" " THEN LET o$(n,oa)=b$(L+oa TO )+" "+o$(n,oa)( TO L): NEXT n 656 NEXT L 658 NEXT n 660 RETURN 670 CLS : PRINT AT oj,oa;"Replace First Name, Line 670": LET b$="": FOR n=oa TO k: IF n>k THEN RETURN 676 LET b$=o$(n,oa): FOR l=LEN b$ TO oa STEP -oa 678 IF b$(L)<>" " THEN LET b$=b$( TO l): GO TO m7-os 680 NEXT l 682 FOR l=oa TO LEN b$: IF b$(l)=" " THEN LET o$(n,oa)=b$(l+oa TO )+" "+b$( TO l-oa): GO TO m7-on 684 NEXT l 686 NEXT n 687 RETURN 710 LET in=oa 712 CLS : PRINT "Enter Field Nbr to Correct, or- ""8"" for next field."'': FOR n=1 TO l1: PRINT "Line ";n;'o$(o,n)': NEXT n: INPUT "Input Field Nbr to correct, or 8 for next Field.";in: IF in=oh THEN RETURN 720 CLS : PRINT AT oj,oo;o$(o,in): INPUT "Input Desired Correction ";o$(o,in): CLS : GO TO VAL "712" 722 STOP : LET o$(o,in)=t$: GO TO m7+ol 890 CLS : FOR n=oa TO m1: ON ERR GO TO m9-oh: PRINT "File No. ";n'o$(n,oa): NEXT n 892 ON ERR RESET : PRINT '' FLASH oa;"Enter When Ready": PAUSE oz: GO TO fm 894 CLS : INPUT "Input Last Name or Stock Noun ";m$: FOR n=oa TO m1: ON ERR GO TO m9+op: FOR y=on+or TO oa STEP -oa: IF o$(n,oa)(y)=" " THEN NEXT y: IF y=oo THEN NEXT n 896 LET b=y: FOR y=b-oa TO oa STEP -oa: IF o$(n,oa)(y)<>" " THEN NEXT y 898 LET a=y+oa: IF o$(n,oa)(a TO b)=m$ THEN GO TO m9+ou 900 NEXT n 915 ON ERR RESET : CLS : PRINT FLASH oa;AT oj,of;"File Not Present": PAUSE m2: GO TO k2 920 PRINT "File Nbr ";n''o$(n,oa)'o$(n,ob)'o$(n,oc)'o$(n,od)'o$(n,oe)'o$(n,of)'o$(n,og)'': INPUT "<1> Cont Search -or- <2> Quit";c: IF c=oa THEN NEXT n 922 GO TO k2 1010 CLS : PRINT AT oj,og;"SORTING, Line 1010": DIM v$(of,VAL "31"): LET n=h: LET i=n-oa: FOR j=oa TO I: LET k=j+oa: FOR l=n TO k STEP -oa 1052 IF o$(L,oa)(oa TO od)=" " THEN GO TO m1*ok 1060 IF o$(L,oa)>o$(j,oa) THEN GO TO m1*ok 1070 IF o$(L,oa)(oa TO od)<>" " THEN LET b$=o$(L,oa): LET v$(oa)=o$(L,ob): LET v$(ob)=o$(l,oc): LET v$(oc)=o$(L,od): LET v$(od)=o$(L,oe): LET v$(oe)=o$(L,of): LET v$(of)=o$(L,og) 1080 IF o$(L,oa)(oa TO od)<>" " THEN LET o$(L,oa)=o$(j,oa): LET o$(L,ob)=o$(j,ob): LET o$(L,oc)=o$(j,oc): LET o$(l,od)=o$(j,od): LET o$(L,oe)=o$(j,oe): LET o$(L,of)=o$(j,of): LET o$(l,og)=o$(j,og) 1090 LET o$(j,oa)=b$: LET o$(j,ob)=v$(oa): LET o$(j,oc)=v$(ob): LET o$(j,od)=v$(oc): LET o$(j,oe)=v$(od): LET o$(j,of)=v$(oe): LET o$(j,og)=v$(of) 1100 NEXT L 1110 NEXT j 1120 CLS : RETURN 1950 STOP 2000 RANDOMIZE USR m1: LOAD "ml6.C1"SCREEN$ 2002 PRINT AT or,ok;pg;" ";AT or,oe*oe;nn;" ";AT ob,ot; FLASH oa;("NO " AND LEN o$(oa,oa)oa); FLASH oo;AT oc,ov;~;" " 2003 GO SUB sq: GO SUB il: GO TO (zoi)*VAL "2003"+(z=oa)*VAL "2004"+(z>oa AND z Yes or NO": GO SUB sq: GO SUB ik: IF z=oa THEN INPUT "Input Nbr of Files to set up?";mx: INPUT "Input Nbr of Lines";l1: IF mx*l1*VAL "31"+VAL "3500">~ THEN GO TO k2+ob 2005 IF z=oa THEN DIM o$(mx,l1,VAL "31"): LET in=oa: LET ms=oa: CLS : GO TO k2+oi 2006 GO TO k2 2007 IF z>oa AND zmx THEN GO TO k2+ot 2010 IF z Yes or No": GO SUB ik: IF z=ob THEN GO TO k2+ov 2032 RETURN 2034 IF o$(o,oa)(oa TO ob)="zz" THEN GO TO VAL "2054" 2035 PRINT AT oe,oo;"Ml Nbr ";o'': FOR n=1 TO l1: PRINT o$(o,n)': NEXT n 2037 PRINT ''"Key ENTER for Next": PAUSE oo: RETURN 2038 STOP : IF LEN o$(o,oa) For TS-2040 Printer"''TAB od;"<2> For Dot Matrix"''TAB od;"<3> For Daisy Wheel": GO SUB sq: GO SUB il: IF zoc THEN GO TO VAL "2061" 2062 LET pr=z-oa: IF z=oo THEN RANDOMIZE USR m1: OPEN #og,"LP": LET ll=oy: LET qq=oq: LET lx=ll: LET tb=oo 2063 CLS : IF z>oa THEN PRINT AT oj,ob;"Printer Must Be ON and Ready"''TAB ob;"Enter When Ready": PAUSE oo: CLS 2065 CLS : IF pr>oo THEN PRINT AT oi,oo;"Does printer need a line feed?:"''TAB od;" yes or no": GO SUB ik: RANDOMIZE USR m1: POKE VAL "16092",(oo AND z>oa)+(oj AND zoo THEN RANDOMIZE USR m1: LOAD "if.C1"SCREEN$ : GO SUB il: GO TO VAL "8090" 2069 CLS : PRINT AT oj,oh;"Rt Margin Justify?"''TAB oh;" Yes or No": GO SUB sq: GO SUB ik: LET jy=z: PRINT AT oj,oh;"First Line Indent?"''TAB oh;" Yes or No": GO SUB sq: GO SUB ik: LET nz=-z+ob: IF pr=oa THEN CLS : PRINT AT oj,od;"Printer Initializing": GO SUB sq: GO SUB mt 2070 ON ERR RESET : RANDOMIZE USR m1: LOAD "fm.C1"SCREEN$ : LET mm=oo: LET gg=oo: LET z1=oa: LET z2=oa: LET nt=nz: LET sr=oo: LET sw=oo: LET spl=oo: LET rpr=oo: LET im=oo: LET ms=oo: LET in=oo 2071 PRINT AT ob,VAL "25";("pica" AND ps=1)+("Elite" AND ps=oc)+("Cond" AND ps=4)+("PICA" AND ps=ob);AT oh,ol*ob;"LX=";lx;AT oi,ol*ob;"LL=";ll;AT ok,ol*ob;"TB=";tb;AT om,ol*ob;"QQ=";qq;AT ot,og;pg;AT ot,op;nn;AT or,ol*ob;~;AT oe,ov+oa; FLASH oa;("Yes" AND LEN o$(oa,oa)>oa)+("No " AND LEN o$(oa,oa)oi AND t$<"A" OR t$>"C" THEN GO TO VAL "2071" 2072 IF z=ot THEN GO SUB pe: GO TO fm 2074 IF z=oi THEN BEEP ob/oj,ov: GO SUB sp: GO TO VAL "2071" 2076 IF z=of THEN LET w$=u$: GO TO te 2078 GO TO (z=oa)*ed+(z=ob)*VAL "2094"+(z=oc)*VAL "2083"+(z=od)*VAL "3579"+(z=oe)*VAL "5160"+(z=oh)*VAL "4050"+(z=og)*VAL "3700"+(z=or)*VAL "4055"+(z=os)*VAL "4090" 2080 LPRINT ': LET nn=nn+oa: IF nn>=ln THEN GO SUB pe 2081 RETURN 2083 RANDOMIZE USR m1: LOAD "fo5.C1"SCREEN$ : LET mat=ll: LET xo=lx: LET lo=ll: LET rs=id: LET cp=oo: PRINT AT op,ob;("pica" AND ps=oa)+("PICA" AND ps=ob)+("ELITE" AND ps=oc)+("Cond" AND ps=od);AT ot,ob;lx;AT op,ol;"Pg Cent=";qq;AT ot,oi;ll;AT ot,oq;mat;AT or,VAL "28";nn;AT os,VAL "28";pg;AT ot,VAL "28";tb: LET lh=oo 2084 PRINT AT oe,os;("::" AND sdoa);AT of,os;("::" AND sd>oa)+(" " AND sdoh THEN GO TO VAL "2084" 2085 IF z=og THEN LET ps=od: INPUT "Enter page #";pg: INPUT "Enter Start Line #";nn: LET lx=(VAL "124" AND pr=ob)+(VAL "136" AND pr=oa): LET ll=(VAL "52" AND pr=ob)+(VAL "58" AND pr=oa): CLS : PRINT AT oj,ob;"Start Col 1 or 2 ?": INPUT "key 1 or 2";cp: IF cp=oa THEN LET qq=(VAL "34" AND pr=ob)+(VAL "37 AND pr=oa"): LET tb=oh: GO TO fm 2086 IF z=og AND cp=ob THEN LET qq=(VAL "90" AND pr=ob)+(VAL "99" AND pr=oa): LET tb=(VAL "64" AND pr=ob)+(VAL "70" AND pr=oa): GO TO fm 2087 IF z=oa OR z=ob THEN LET sd=z: BEEP oa/od,ol: GO TO VAL "2084" 2088 IF z=od THEN LET tb=(tb-oe AND lllx-oj): LET ll=(ll+oj AND lllx-oj): LET id=oo: BEEP oa/od,ol: PRINT AT ot,oi;ll;AT ot,oq;mat;AT ot,VAL "28";tb;" ": GO TO 2084 2089 IF z=oe THEN LET tb=(tb+oe AND ll>ou)+(tb AND llou)+(ll AND lloh): IF pr=VAL "1" THEN LET lx=(VAL "134" AND ps>VAL "3")+(VAL "96" AND ps=VAL "3")+(VAL "80" AND psVAL "3")+(VAL "96" AND ps=VAL "3")+(VAL "80" AND psoh)*VAL "2101"+(z>oo AND zoa THEN LET nn=oo: INPUT "Key: <1> for Manual Addressing <2> for Mail List Adr";mm: CLS : IF z=ob THEN GO SUB VAL "4055" 2103 IF z=oc THEN CLS : PRINT AT os,ob;"Do you want Auto Page Control? <1> yes or <2> No ": INPUT pc: CLS : PRINT AT os,ob;"Twin Labels? <1> Yes - <2> No": INPUT tw: CLS 2104 IF z=oa OR mm=oa THEN INPUT "ENT nbr copies ";no: LET ms=oa: LET mx=no: IF mm=oa AND z=oc THEN GO SUB VAL "2170" 2108 IF z=oc THEN INPUT "ENT TAB ";tz: INPUT "ENT sps";sx: CLS 2110 IF mm=ob THEN INPUT "ENT ml strt nbr ";ms: INPUT "ENT end ml nbr ";mx: CLS 2111 IF z=ob THEN LET pg=oa 2112 FOR l=ms TO mx 2116 IF z=ob THEN GO SUB VAL "4061": CLS 2118 IF z=oc THEN GO SUB VAL "2150" 2120 IF znx THEN GO TO VAL "2116" 2138 NEXT l 2139 LET lh=oo 2140 IF zm=ln-od THEN GO SUB pe 2162 RETURN 2164 IF a=ln-od THEN GO SUB pe 2168 LET a=oo: IF pc<>oa THEN LET nn=oo 2169 RETURN 2170 DIM p$(od,VAL "26"): INPUT "First Line: ";p$(oa): INPUT "Second line: ";p$(ob): INPUT "Third Line: ";p$(oc): INPUT "Fourth Line: ";p$(od): RETURN 2172 DIM p$(oa): RETURN 2180 LET rpr=oa: PRINT AT oo,oj;"Event No.";l: IF z=oa THEN LET nn=oo 2181 LET zp=zx: IF lh>oo THEN GO SUB VAL "9600" 2182 LET w$=h$(1): GO SUB te: GO SUB sp 2184 LET w$=h$(2): GO SUB te: GO SUB sp 2187 LET w$=h$(3): GO SUB te: GO SUB sp 2188 LET w$=h$(4): GO SUB te: GO SUB sp 2190 LET w$=h$(5): GO SUB te: GO SUB sp 2192 LET w$=h$(6): GO SUB te: GO SUB sp 2194 LET w$=h$(7): GO SUB te: GO SUB sp 2197 REM * Disk Sequencer * Do not disturb lines 2198 - 2206 2198 IF zy>oo AND zx"" THEN ON ERR GO TO VAL "2208": STOP 2208 ON ERR RESET 2210 LET w$=i$(1): GO SUB te: GO SUB sp 2212 LET w$=i$(2): GO SUB te: GO SUB sp 2214 LET w$=i$(3): GO SUB te: GO SUB sp 2216 LET w$=i$(4): GO SUB te: GO SUB sp 2218 LET w$=i$(5): GO SUB te: GO SUB sp 2220 LET w$=i$(6): GO SUB te: GO SUB sp 2222 LET w$=i$(7): GO SUB te: GO SUB sp 2280 ON ERR RESET 2300 IF lh>oo THEN GO SUB VAL "4090": GO SUB pe: GO TO VAL "2138" 2399 REM ** END of User Program Group. Do not disturb AFTER. 2400 IF spl=oa THEN GO SUB pe: LET nn=oo: GO TO VAL "2138" 2401 IF lh>oo THEN LET z=ob 2402 IF z=ob THEN GO SUB k4+t9: LET z2=z2+oa: IF lh>oo THEN LET z=oa 2403 GO SUB pe: LET nn=oo: GO TO VAL "2138" 2479 GO TO fm 2550 PAUSE VAL "0": LET t$=INKEY$: IF t$="" THEN GO TO VAL "2550" 2552 LET z=VAL "-48"+CODE t$: RETURN 2554 PAUSE oo: LET t$=INKEY$: IF t$="" THEN GO TO ik 2556 IF t$<>"y" AND t$<>"Y" AND t$<>"n" AND t$<>"N" THEN GO TO ik 2558 IF t$="y" OR t$="Y" THEN LET z=oa 2559 IF t$="n" OR t$="N" THEN LET z=ob 2560 RETURN 2570 CLS : PRINT AT oj,ob;"Saving Program + data.": INPUT "Input File Nbr: ";c: LET m$="SM"+STR$ c+".B1": RANDOMIZE USR m1: SAVE m$ LINE VAL "2061": RANDOMIZE USR m1: SAVE "concat.C1"CODE VAL "23296",VAL "256": GO TO fm 2574 BEEP oa/ob,od: BEEP oa/ob,oh: BEEP oa/ob,oj: BEEP oa/ob,od: GO SUB sq: RETURN 2576 BORDER xa-oa: INK xa: PLOT oo,oo: DRAW oo,VAL "175": DRAW VAL "255",oo: DRAW oo,-VAL "175": DRAW -VAL "255",oo: LET xa=xa+oa: IF xa>og THEN LET xa=oa 2577 INK xa: PLOT oh,oh: DRAW oo,VAL "159": DRAW VAL "239",oo: DRAW oo,-VAL "159": DRAW -VAL "239",oo: LET xa=xa+oa: IF xa>og THEN LET xa=oa 2580 INK og: BORDER oo: PAPER oo: BEEP oa/oj,t4: RETURN 2926 ON ERR RESET : RANDOMIZE USR m1: LOAD "qm.C1"SCREEN$ : LET vw=oo: LET bs=oo: LET bi=oo: LET sy=oo: LET st=oo: LET en=oo: LET ay=oa: LET ep=(ep AND ep>oo AND LEN h$(oa)>oc)+(og AND epoc)+(ep AND epLEN u$ AND sw=oo AND vw=oo THEN GO TO ed 2929 IF m+gk>LEN u$ AND vw>oo THEN GO TO VAL "3230" 2931 GO TO k3-oy 2932 CLS : FOR m=oa TO LEN u$ STEP gk 2938 CLS : GO SUB VAL "3096": GO SUB VAL "3084" 2943 GO SUB k3-on 2944 POKE VAL "23611",m2+ou 2945 IF PEEK 23611<221 THEN GO TO VAL "2945" 2946 LET c=PEEK 23560: POKE 23611,220 2947 IF c=96 THEN GO TO 3100 2948 IF c>31 THEN GO TO 3066 2950 IF c=12 THEN GO TO 2973 2951 IF c=8 THEN GO TO 2985 2952 IF c=9 THEN GO TO 2990 2953 IF c=10 THEN GO TO 3010 2954 IF c=11 THEN GO TO 3000 2955 IF c=7 THEN GO TO 3030 2956 IF c=13 THEN GO TO 2938 2957 IF c=14 THEN GO TO 2928 2958 GO TO VAL "2945" 2968 NEXT m 2973 PRINT AT y1,y2;" ";: GO SUB VAL "3094": LET y1=(y1 AND y2>oo)+(y1-oa AND y2oo)+(31 AND y2a2+or THEN PRINT AT a,b+oa;"(";u$(a2 TO a2+or);")"; 2987 IF LEN u$>a2 AND LEN u$oq THEN LET a=oq: LET a1=a1-oy 3011 LET a2=a1+oa: GO TO k3+ob 3030 IF st=oo THEN LET st=a1+oa 3032 IF en=oa THEN LET sy=a1+oa 3034 GO SUB VAL "3096": GO SUB VAL "3084" 3040 IF bi=oa THEN GO SUB k3+m1: GO TO VAL "3104" 3042 IF en=oo THEN PRINT AT VAL "21",oo;"Put ""_"" Und Blk END. Then EDIT"; 3044 IF en=oo THEN PRINT AT a,b;"_";: LET en=oa: GO TO VAL "2945" 3052 LET l$=u$(st TO sy): PRINT AT os,oo;"OK. The Block is Identified. The Paragraph is in L$. Delete Block from Buffer? Yes or No ";: LET en=oo: GO SUB ik 3054 IF z=oa THEN LET u$=u$( TO st-oa)+u$(sy+oa TO ): LET st=oo: GO TO VAL "2938" 3056 GO TO ed 3066 IF LEN u$>a1 THEN LET u$=u$( TO a1)+CHR$ c+u$(a1+oa TO ) 3068 IF LEN u$oo)+(a-1 AND boo)+(31 AND bm+gk THEN PRINT AT oo,oo;u$(m TO m+gk); 3098 RETURN 3100 LET m$="": CLS : LET bs=a1: IF bs<=m1+ol THEN PRINT u$( TO bs); 3101 IF bs>=m1+ol THEN PRINT u$(bs-m1+ol TO bs); 3102 GO SUB VAL "3084": PRINT AT ot,oo;"Type the insert. When finished,Touch ENTER."; 3103 IF LEN u$>=bs+m1+ol THEN PRINT AT ol,op;u$(bs+oa TO bs+m1+ol) 3104 IF LEN u$122 OR c=96 THEN GO TO 3106 3116 LET m$=m$+CHR$ c: PRINT AT a,b;CHR$ c;: GO SUB 3092: GO TO 3106 3118 PRINT AT a,b;" ";: GO SUB 3094 3120 PRINT AT a,b; FLASH 1;"_"; FLASH 0;: LET m$=m$( TO LEN m$-1): GO TO 3106 3122 LET u$=u$( TO bs)+m$+u$(bs+oa TO ): LET bs=oo: GO TO VAL "2938" 3200 ON ERR GO TO VAL "3280": LET a=LEN h$(oa) 3202 CLS : FOR w=oa TO og 3203 PRINT "Window ";w;" Data is "; FLASH oa;"H$(";w;")"; FLASH oo''h$(w)''"Touch "; FLASH oa;"<1>"; FLASH oo;" To Continue, or"'TAB of; FLASH oa;"<2>"; FLASH oo;" To EDIT"'TAB of;"OR- Jab Break": GO SUB il: IF zob THEN GO TO VAL "3201" 3204 IF z=oa THEN CLS : NEXT w 3206 IF z=ob THEN LET w$=u$: LET u$=h$(w): LET vw=oa: CLS : GO SUB VAL "3084": GO TO VAL "2932" 3208 IF vw=oa THEN LET h$(w)=u$: LET u$=w$ 3212 ON ERR GO TO VAL "3280": LET a=LEN i$(oa) 3213 CLS : FOR w=oa TO og 3214 PRINT "Window ";w;" Data is "; FLASH oa;"I$(";w;")"; FLASH oo;''I$(w)''"Touch "; FLASH oa;"<1>"; FLASH oo;" To Continue or,"'TAB of; FLASH oa;"<2>"; FLASH oo;" To EDIT"'TAB of;"Or- Jab Break": GO SUB il: IF zob THEN GO TO VAL "3212" 3216 IF z=oa THEN CLS : NEXT w 3218 IF z=ob THEN LET w$=u$: LET u$=i$(w): LET vw=ob: CLS : GO SUB VAL "3084": GO TO VAL "2932" 3220 IF vw=ob THEN LET i$(w)=u$: LET u$=w$: GO TO VAL "3280" 3230 CLS : IF vw=oa THEN LET h$(w)=u$: LET u$=w$: LET vw=oo: GO TO VAL "3203" 3236 IF vw=ob THEN LET i$(w)=u$: LET u$=w$: LET vw=oo: GO TO VAL "3214" 3280 ON ERR RESET : PRINT FLASH oa;"NO MORE DATA"; FLASH oo: PAUSE m2: GO TO ed 3282 GO TO fm 3401 CLS : IF cx=oo OR cz=oo AND ep>og THEN PRINT AT om,oa;"Inpt Para Lgth for ";("H$ array" AND cx=oo)+("I$ array" AND ep=oh AND cx>oo): LET mz=oo 3402 IF cx=oo THEN LET ep=oa: INPUT cx 3404 IF cx>oo AND ep>og AND cz=oo THEN LET eq=oa: INPUT cz: IF ~-cz*ogog AND eqVAL "148" THEN PRINT AT oo,oo;u$(LEN u$-VAL "148" TO ); 3464 GO SUB VAL "3084" 3468 GO TO m1+t5 3579 RANDOMIZE USR m1: LOAD "sts.C1"SCREEN$ : ON ERR GO TO VAL "3599": PRINT AT ob,oc;"*";AT oc,of;LEN A$;AT oc,ol;ep-oa;" ";AT oc,ov+oa;cx*(ep-oa);" ";AT od,of;LEN B$;AT od,ol;eq-oa;" ";AT od,ov+oa;cz*(eq-oa);AT oe,Of;LEN c$;AT of,of;LEN D$;AT of,or;~;" ";AT og,Of;LEN E$;AT oh,Of;LEN F$;AT oi,Of;LEN G$;AT ok,Of;LEN L$;AT ol,Of;LEN Q$;AT om,Of;LEN R$;AT on,of;LEN j$;AT op,Of;LEN S$;AT oq,of;LEN U$: IF epoa THEN PRINT AT oc,ol;"Disk File Present" 3582 PRINT AT ol,ov+oa; FLASH oa;("Yes" AND LEN o$(oa,oa)>oa)+("NO" AND LEN o$(oa,oa)ou THEN GO TO fm 3704 IF zog AND z=ll AND w$(ll-ob TO ll)=" " THEN LET w$=w$( TO ll-ob) 3748 IF w$(oa)=" " THEN LET w$=w$(ob TO ): GO TO VAL "3746" 3749 IF LEN w$<=ll THEN GO TO k3+m8 3751 LET m$=w$( TO ll) 3753 IF m$(LEN m$)<>" " AND w$(LEN m$+oa)=" " THEN LET w$=w$(LEN m$+1 TO ): GO TO VAL "3758" 3754 IF m$(LEN m$)<>" " AND w$(LEN m$+1)<>" " THEN LET m$=m$( TO LEN m$-1): GO TO VAL "3754" 3756 LET w$=w$(LEN m$+1 TO ) 3758 IF m$(LEN m$)=" " THEN LET m$=m$( TO LEN m$-oa): GO TO VAL "3758" 3759 IF jy=oa THEN GO SUB VAL "3774" 3760 LPRINT TAB tb;m$: IF nt=oa THEN LET nt=oo: LET ll=ll+oe: LET tb=tb-oe 3763 LET nn=nn+oa: IF sd=ob THEN GO SUB sp 3764 IF nn>=ln THEN GO SUB pe 3768 GO TO VAL "3743" 3774 LET pp=LEN m$: IF pp=ll THEN RETURN 3776 FOR r=oa TO pp: IF m$(r)=" " THEN GO TO VAL "3780" 3778 NEXT r: GO TO VAL "3774" 3780 LET m$=m$( TO r)+" "+m$(r+1 TO pp): LET pp=LEN m$: IF pp<>ll THEN LET r=r+1 3784 IF pp<>ll THEN GO TO VAL "3778" 3786 RETURN 3788 IF LEN w$=ln THEN GO SUB pe 3810 LET w$="": IF nt=oa THEN LET ll=ll+oe: LET tb=tb-oe 3812 IF gg=oa THEN RETURN 3814 GO TO fm 4050 ON ERR RESET : RANDOMIZE USR m1: LOAD "ot.C1"SCREEN$ : LET zy=oo: LET zx=oo: LET zm=oo: LET mz=oo: LET az=oo: LET no=oo: LET nx=oo: LET z5=oo: LET df=oo: LET scp=oo: LET pg=oa: LET mm=oo 4051 GO SUB sq: GO SUB il: IF zoh THEN GO TO VAL "4051" 4052 GO TO (z=oa)*VAL "4055"+(z=ob)*VAL "4090"+(z=oc)*k2+(z=od)*VAL "2100"+(z=oe)*pm+(z=of)*fm+(z=og)*VAL "2061"+(z=oh)*VAL "8120" 4055 LET nn=oa: INPUT "ENT Date: ";n$(oj): IF mm=ob THEN RETURN 4056 INPUT "1st Name ";n$(oe) 4058 CLS : PRINT AT oj,oo;"(Optional: Omit line with ENTER)": INPUT "Co Name ";n$(oa): INPUT "Dept ";n$(ob): INPUT "St adr ";n$(oc): INPUT "Cty,St,Zip ";n$(od): CLS : IF gg=oa THEN RETURN 4059 IF gg=oa THEN RETURN 4060 LET nn=oo 4061 FOR t=of TO oj 4063 IF n$(t)(oa)=" " THEN NEXT t 4066 LET m$=n$(t) 4067 IF m$(LEN m$)=" " THEN LET m$=m$( TO LEN m$-oa): GO TO VAL "4067" 4068 LET pg=oa: IF m$(oa)<>" " THEN LPRINT TAB qq-LEN m$/ob;m$: LET nn=nn+oa 4069 IF t=oj AND spl=oa THEN RETURN 4070 IF t=oj THEN GO SUB sp 4071 IF t=oj THEN GO TO VAL "4073" 4072 NEXT t 4073 LET a=oa 4074 IF mm" " THEN LPRINT TAB tb;m$: LET nn=nn+oa 4087 LET a=a+oa 4088 GO TO VAL "4074" 4090 LET qq=(qq AND cp=oo)+(VAL "34" AND cp=oa)+(VAL "98" AND cp>oa): LPRINT : LPRINT : LPRINT : LPRINT TAB qq;n$(ok): LPRINT : LPRINT : LPRINT : LPRINT TAB qq;n$(om): LET nn=nn+oh: IF scp=oa THEN GO SUB k8+m2 4091 IF rpr=oo THEN GO SUB pe 4092 IF gg=oa THEN RETURN 4094 IF rpr=oa THEN RETURN 4098 GO TO fm 5100 RANDOMIZE USR m1: LOAD "lm.C1"SCREEN$ 5101 GO SUB sq: GO SUB il: IF zof THEN GO TO VAL "5101" 5103 IF z=of THEN GO TO fm 5104 IF z=od THEN GO TO VAL "9980" 5106 CLS : PRINT AT oh,oc;"The directory will appear"'TAB oc;"for reference. After the"'TAB oc;"scroll, a prompt will come"'TAB oc;"to input a File number."''TAB oc;"Enter when ready.": GO SUB sq: PAUSE oo 5108 GO SUB VAL "5130" 5110 IF z=oe THEN PRINT ''"Type in proper LOAD Command.": STOP 5112 INK ob: PRINT '"Enter the File Number only: ": INPUT a: LET m$=STR$ a: IF z=oa THEN LET m$=m$+".A$": RANDOMIZE USR m1: LOAD m$ DATA h$(): LET ep=oh: LET cx=LEN h$(oa) 5114 IF z=ob THEN LET m$=m$+".A$": RANDOMIZE USR m1: LOAD m$ DATA i$(): LET eq=oh: LET cz=LEN i$(oa) 5116 IF z=oc THEN LET m$="m"+m$+".A$": RANDOMIZE USR m1: LOAD m$ DATA o$() 5120 CLS : PRINT AT oj,ob;"RE-INSTALL PROGRAM DISK"''TAB ob;"THEN ENTER": PAUSE oo: INK og: GO TO VAL "3579" 5130 CLS : PRINT AT oj,ob;"Install Proper DATA Diskette, Then ENTER": PAUSE oo: RANDOMIZE USR m1: CAT "",: RETURN 5136 GO SUB VAL "5130": INPUT "Enter H$ data file nbr: ";c: LET m$=STR$ c+".A$": RANDOMIZE USR m1: SAVE m$ DATA H$(): GO TO VAL "5120" 5142 GO SUB VAL "5130": INPUT "Enter I$ DATA File Nbr: ";c: LET m$=STR$ c+".A$": RANDOMIZE USR m1: SAVE m$ DATA I$(): GO TO VAL "5120" 5150 RANDOMIZE USR m1: LOAD "pg.C1"SCREEN$ 5151 PRINT AT od,VAL "23";pg;AT of,os;ln-nn: GO SUB sq: GO SUB il: IF zod THEN GO TO VAL "5151" 5152 IF z=od THEN GO TO fm 5154 IF z=ob THEN INPUT "Ent new lines to end. ";nl: LET nn=ln-nl: GO TO pm 5156 IF z=oa THEN GO SUB pe: GO TO fm 5158 IF z=oc THEN INPUT "Enter Page No. ";pg: GO TO pm 5160 RANDOMIZE USR m1: LOAD "dc.C1"SCREEN$ 5161 GO SUB sq: GO SUB il: GO TO (zoe)*VAL "5161"+(z=oa)*VAL "5164"+(z=ob)*VAL "5168"+(z=oc)*VAL "5100"+(z=od)*VAL "3579"+(z=oe)*fm 5164 RANDOMIZE USR m1: LOAD "sm.C1"SCREEN$ 5165 GO SUB sq: GO SUB il: GO TO (zof)*VAL "5165"+(z=oa)*VAL "2570"+(z=ob)*VAL "5174"+(z=oc)*VAL "5136"+(z=od)*VAL "5142"+(z=oe)*VAL "9900"+(z=of)*fm 5168 RANDOMIZE USR m1: LOAD "mg1.C1"SCREEN$ 5169 GO SUB sq: GO SUB il: GO TO (zoi)*VAL "5169"+(z=oa)*VAL "5184"+(z=ob)*VAL "5172"+(z=oc)*VAL "5186"+(z=od)*VAL "5190"+(z=oe)*VAL "5189"+(z=of)*VAL "5187"+(z=og)*VAL "6050"+(z=oh)*VAL "5178"+(z=oi)*VAL "3579" 5172 DELETE m4,VAL "1120": DELETE k2,VAL "2059": GO TO VAL "3579" 5174 CLS : INPUT "Enter Mail File Nbr: ";c: LET m$="m"+STR$ c+".A$": RANDOMIZE USR m1: SAVE m$ DATA o$(): GO TO fm 5178 DELETE VAL "8119",VAL "8170": GO TO VAL "3579" 5183 GO TO fm 5184 CLS : DIM o$(oa,oa,oa): GO TO VAL "3579" 5186 LET q$="": LET r$="": LET j$="": LET s$="": GO TO VAL "3579" 5187 LET a$="": LET b$="": LET c$="": LET c$="": LET d$="": LET e$="": LET f$="": LET g$="": GO TO VAL "3579" 5189 DIM i$(og,oa): LET cz=oo: LET eq=oo: GO TO VAL "3579" 5190 DIM h$(og,oa): LET cx=oo: LET ep=oo: GO TO VAL "3579" 5900 IF pr=oo THEN LPRINT ''''';TAB qq;pg'''''''''': LET nn=oa: LET pg=pg+oa: RETURN 5901 IF nnoo THEN GO TO VAL "5908" 5903 IF pr=ob THEN GO SUB VAL "5904": GO SUB VAL "5912": RETURN 5904 LPRINT TAB qq;pg: LPRINT : LET pg=pg+oa: LET nn=oo: OUT po,ol: LPRINT : RETURN 5908 IF cp=oa THEN GO SUB VAL "5912": LET cp=ob: LET qq=(VAL "90" AND pr=ob)+(VAL "99" AND pr=oa): LET tb=(VAL "64" AND pr=ob)+(VAL "70" AND pr=oa): LET nn=oo: RETURN 5910 IF cp=ob THEN LET cp=oa: LET qq=VAL "66": GO SUB VAL "5904": GO SUB VAL "5912": LET qq=(VAL "34" AND ps=ob)+(VAL "37" AND ps=oa): LET tb=oh: RETURN 5912 BEEP oa,ov: CLS : PRINT AT oj,ob;"Feed New Sheet, then ENTER": PAUSE oo: LET nn=oo: CLS : RETURN 6050 CLS : PRINT AT VAL "10",VAL "2";"Complete Delete was ordered"'TAB VAL "2";"Confirm: <1> Yes - <2> No": INPUT z: IF z=VAL "2" THEN GO TO fm 6052 IF z=VAL "1" THEN GO TO VAL "9980" 6054 GO TO fm 8000 RANDOMIZE USR m1: LOAD "ps.C1"SCREEN$ 8001 LET it=oo: LET px=ps: LET xo=lx: LET lo=ll: GO SUB sq: GO SUB il: IF zog THEN GO TO k8+oa 8002 IF z=og THEN GO TO fm 8003 GO TO (pr=ob AND zod)*VAL "8001"+(pr<>ob)*VAL "8004" 8004 IF z=of THEN LET lx=INT (lx/ob+oa/ob): LET qq=lx/ob: GO SUB VAL "8058": LET ma=INT (oa/ob+lx*lo/xo): GO SUB VAL "8088": LET tb=INT ((lx-ll)/ob+oa/ob): BEEP oa/ob,ov: GO TO VAL "2083" 8010 IF z=oe THEN LET it=oa: GO SUB VAL "8044": BEEP oa/ob,ov: GO TO VAL "2083" 8022 LET ps=z: LET lx=(t8 AND psoa THEN RETURN 8034 GO SUB bu: OUT po,ow: GO SUB bu: OUT po,m1+ou: GO SUB bu: OUT po,oo: GO SUB bu: OUT po,VAL "155": GO SUB bu: OUT po,m1+ou: GO SUB bu: OUT po,oo: GO SUB bu: OUT po,ow: GO SUB bu: OUT po,oe+t4: GO SUB bu: OUT po,oo: GO SUB bu: OUT po,VAL "155": GO SUB bu: OUT po,oe+t4: GO SUB bu: OUT po,oo: GO SUB bu: OUT po,ow: GO SUB bu: OUT po,VAL "87": GO SUB bu: OUT po,oo: GO SUB bu: OUT po,VAL "155": GO SUB bu: OUT po,VAL "87": GO SUB bu: OUT po,oo: GO SUB bu: OUT po,os: GO SUB bu: OUT po,VAL "146": GO SUB bu: OUT po,ow: GO SUB bu: OUT po,oc+t5: GO SUB bu: OUT po,VAL "155": GO SUB bu: OUT po,oc+t5: GO SUB bu: OUT po,ov 8035 GO SUB bu: OUT po,ow: GO SUB bu: OUT po,t6+ol: GO SUB bu: OUT po,VAL "155": GO SUB bu: OUT po,t6+ol: GO SUB bu: OUT po,ov: GO SUB bu: OUT po,ow: GO SUB bu: OUT po,t8: GO SUB bu: OUT po,VAL "155": GO SUB bu: OUT po,t8: GO SUB bu: OUT po,ov 8036 IF it=oa THEN GO SUB VAL "8044" 8037 IF ps=oa THEN LPRINT ': LET nn=nn+oa: RETURN 8038 IF ps=od THEN GO SUB VAL "8054" 8040 IF ps=oc THEN GO SUB bu: OUT po,ow: GO SUB bu: OUT po,t7+og: GO SUB bu: OUT po,VAL "155": GO SUB bu: OUT po,t7+og: GO SUB bu: OUT po,ov 8042 IF ps=ob OR ps=oc THEN GO SUB bu: OUT po,ow: GO SUB bu: OUT po,m1+ou: GO SUB bu: OUT po,oa: GO SUB bu: OUT po,VAL "155": GO SUB bu: OUT po,m1+ou: GO SUB bu: OUT po,oa: GO SUB bu: OUT po,ov: RETURN 8043 LPRINT ': LET nn=nn+oa: RETURN 8044 GO SUB bu: OUT po,ow: GO SUB bu: OUT po,ob+t5: GO SUB bu: OUT po,VAL "155": GO SUB bu: OUT po,ob+t5: GO SUB bu: OUT po,ov: RETURN 8054 GO SUB bu: OUT po,op: GO SUB bu: OUT po,VAL "143": GO SUB bu: OUT po,ov: GO SUB bu: OUT po,ow: GO SUB bu: OUT po,t7+oa: GO SUB bu: OUT po,VAL "155": GO SUB bu: OUT po,t7+oa: GO SUB bu: OUT po,ov: RETURN 8058 GO SUB bu: OUT po,ow: GO SUB bu: OUT po,t8+og: GO SUB bu: OUT po,oa: GO SUB bu: OUT po,VAL "155": GO SUB bu: OUT po,t8+og: GO SUB bu: OUT po,oa: GO SUB bu: OUT po,ov: RETURN 8060 LET it=oo: LET ps=oc: GO SUB mt: GO SUB VAL "8058": LET qq=ov: RETURN 8062 LET ps=od: LET it=oa: GO SUB mt: GO SUB VAL "8058": LET qq=oy+ob: RETURN 8064 LET it=oo: LET ps=ob: GO SUB mt: GO SUB VAL "8058": LET qq=ou: RETURN 8068 GO SUB mt: LET ll=(t6 AND psoc THEN GO TO VAL "2067" 8092 LET z=z-oa: RANDOMIZE USR 100: POKE 16096,z: RANDOMIZE USR 100: POKE VAL "16094",oo: LPRINT : RANDOMIZE USR 100: POKE VAL "16090",VAL "255" 8099 GO TO VAL "2069" 8172 GO TO k4+t5 8200 LPRINT ''': LET nn=nn+ob: LET w$=u$: GO SUB te: RETURN 9000 RANDOMIZE USR m1: LOAD "ab.C1"SCREEN$ : GO SUB il: IF z=oc THEN GO TO k4+t5 9001 IF zoc THEN GO TO k9 9002 CLS : PRINT AT oj,ob;"INSTALL DATA DISK"''TAB ob;"THEN ENTER": PAUSE oo: RANDOMIZE USR m1: CAT "",: LET z4=z: INPUT "Begin File # ? ";a: INPUT "Ending File # ? ";b: IF z4=oa THEN LET zx=a: LET zy=b 9003 IF z4=ob THEN LET zm=a: LET mz=b 9005 IF zLEN m$ THEN NEXT y: PRINT AT oo,ow+oa;" ";AT xz,od;"Bank A Finished": LET xz=xz+oa 9484 FOR y=oa TO LEN r$-(LEN m$+ob): PRINT AT oo,ou+oa;y: IF r$(y TO y+LEN m$+oa)=" "+m$+" " THEN BEEP oa/oj,ou: PRINT AT oa,oj;m$: LET r$=r$( TO y)+w$+r$(y+LEN m$+oa TO ) 9485 IF LEN r$>LEN m$ THEN NEXT y: PRINT AT oo,ow+oa;" ";AT xz,od;"Bank B Finished": LET xz=xz+oa 9486 FOR y=oa TO LEN j$-(LEN m$+ob): PRINT AT oo,ou+oa;y: IF j$(y TO y+LEN m$+oa)=" "+m$+" " THEN BEEP oa/oj,ou: PRINT AT oa,oj;m$: LET j$=j$( TO y)+w$+j$(y+LEN m$+oa TO ) 9487 IF LEN j$>LEN m$ THEN NEXT y: PRINT AT xz,od;"Bank C Finished";AT oo,ow+oa;" " 9488 IF ep>oo THEN GO TO VAL "9402" 9490 GO TO ed 9500 GO SUB bu: OUT po,VAL "27": GO SUB bu: OUT po,VAL "95": RETURN 9502 GO SUB bu: OUT po,VAL "27": GO SUB bu: OUT po,VAL "82": RETURN 9504: GO SUB bu: OUT po,VAL "27": GO SUB bu: OUT po,VAL "87": RETURN 9506 GO SUB bu: OUT po,VAL "27": GO SUB bu: OUT po,VAL "38": RETURN 9508 GO SUB bu: OUT po,VAL "27": GO SUB bu: OUT po,VAL "81": RETURN 9510 GO SUB bu: OUT po,VAL "27": GO SUB bu: OUT po,VAL "79": RETURN 9512 GO SUB bu: OUT po,VAL "27": GO SUB bu: OUT po,VAL "70": RETURN 9514 OUT po,VAL "27": GO SUB bu: OUT po,VAL "69": RETURN 9516 OUT po,VAL "27": GO SUB bu: OUT po,VAL "71": RETURN 9520 LET ps=z: LET lx=(VAL "124" AND ps>oc)+(VAL "96" AND ps=oc)+(VAL "82" AND ps CLEAR and LOAD VARS FILE"''TAB VAL "5";"<2> Keep DATA": GO SUB VAL "2550": GO TO (z VAL "2")*VAL "9975"+(z=VAL "1")*VAL "9980"+(z=VAL "2")*VAL "2070" 9980 CLS : PRINT AT VAL "10",VAL "1";"Install Disk to LOAD VARS FILE": PAUSE VAL "0": CLEAR : RANDOMIZE USR VAL "100": CAT "", 9985 DIM k$(VAL "8"): INPUT "Key in 8 chr Title of Vars Code File";k$: DIM v$(VAL k$( TO VAL "5")-VAL "8"): FOR n=VAL "1" TO VAL "8": IF CODE k$(n)=VAL "32" THEN GO TO VAL "9975" 9990 NEXT n: POKE VAL "23297",INT (VAL k$( TO VAL "5")/VAL "256"): POKE VAL "23296",(VAL k$( TO VAL "5")-PEEK VAL "23297"*VAL "256"): RANDOMIZE USR VAL "100": LOAD k$CODE (PEEK VAL "23627"+VAL "256"*PEEK VAL "23628") 9995 LET n=PEEK VAL "23627"+VAL "256"*PEEK VAL "23628"+PEEK VAL "23296"+VAL "256"*PEEK VAL "23297": POKE n,VAL "128": LET n=n+VAL "1": POKE VAL "23642",INT (n/VAL "256"): POKE VAL "23641",n-PEEK VAL "23642"*VAL "256": POKE n-VAL "1",VAL "128": GO TO VAL "5120" ```