Smart Text V3

Gulf Micro Electronics

Developer(s): Bill Jones

Date: 1984

Type: Program

Platform(s): TS 1000

Smart Text ZX/TS is a full-featured word processor program for composing, editing, and printing multi-column documents and business letters. It manages up to three independent text buffers (Books A, B, and C), each capable of holding approximately 3,800 characters, plus a selected-paragraph buffer and a typed-paragraph buffer. The program supports two printer modes — full-size and 32-column — and sends raw control codes directly to the printer via POKE to address 65535, with escape sequences for font size selection (normal, small, large, and medium print) and line-feed control. Text justification is implemented in BASIC by an iterative space-insertion algorithm that distributes spaces across word boundaries to reach the target line length, stored in variable LL. Line numbers are used as computed targets stored in variables (FM, TE, LS, PE, etc.) and branched to with GOTO and GOSUB, effectively implementing a label system within BASIC.

Program Analysis

Program Structure

The program is organized as a large collection of BASIC routines accessed via computed GOTO and GOSUB calls. Rather than using literal line numbers, the initialization block (lines 8474–8520) assigns line numbers to numeric variables such as FM, TE, LS, PE, IK, IL, LF, ZO, ZX, SP, and others. These variables are then used throughout the program with GOTO FM, GOSUB IK, etc., creating a label-like dispatch system.

The main function menu lives at line 7362 (stored in FM) and offers options 1–F. Submenus branch to typing (7096), line spacing (7250), captions (7200), format options (7392), page status (7312), data management (7748/7686), save (8474), letterhead (7766), sign-off (7820), book printing (7132/7436), and office tools (8642, not shown).

Text Buffer Management

Text is stored in three string variables: Z$ (Book A), R$ (Book B), and S$ (Book C), plus X$ for a selected paragraph and U$ for the currently typed paragraph. An accumulator variable ACC tracks which buffer is active, switching automatically when a buffer exceeds 3,800 characters:

ACC=0 → append to Z$ (Book A)
ACC=1 → append to R$ (Book B)
ACC=2 → append to S$ (Book C)

The data status screen at line 7748 displays buffer sizes in kilobytes using the expression (INT (LEN Z$/102.4+.5))/10 and also reports free memory by reading system variables at addresses 16386, 16387, 16412, and 16413.

Printer Control via POKE

All printer output control codes are sent by POKEing values directly to address 65535 (stored in variable ME). This is the standard method for sending raw bytes to the printer port on this hardware. Printer mode registers are set at 16507 (stored as EN) and 16508 (stored as CT). Several subroutines at lines 8260–8370 configure different print modes:

Subroutine	Mode	Line Length (LL)	Centre (QQ)
8246	32-col / normal	32	16
8260	Full-size / normal	64	32
8312	Small print, long line	106	53
8332	Small print, medium line	86	43
8352	Large print	32	16

The escape sequence values sent (e.g. 24, 27, 65/66, 29/30/31) correspond to Epson/compatible printer control codes for resetting and setting character pitch.

Text Justification Algorithm

Full justification is handled by the subroutine starting at line 7494. It iterates through a line string Y$, finds existing space characters, and inserts additional spaces one at a time, cycling through positions, until LEN Y$ equals the target line length LL. The outer word-wrap loop at lines 7436–7492 scans backwards from position LL to find the last space, splits there, justifies, and prints, then advances W$ to the remainder.

Indentation and Centering

The variable ID controls indentation mode. When ID=1, lines are printed with LPRINT TAB VAL "5" (full-size) or TAB VAL "3" (32-col). The variable QQ holds the half-line-width used for centering captions: LPRINT TAB QQ-INT(LEN Q$/2+1.5). Indent reduces both LL and QQ proportionally.

Keyboard Input Routines

Two input subroutines are used throughout. IK (line 8144) waits for any key from “1” to “2” using a PAUSE/INKEY$ loop, while IL (line 8134) accepts any single keypress. Both clear the screen on exit. These are assigned to variables at initialization and called as GOSUB IK and GOSUB IL.

Case Conversion via RAND USR

Uppercase and lowercase conversion is dispatched to machine code routines at addresses 7804 and 7868 respectively, called via RAND USR VAL "7804" (line 8374) and RAND USR VAL "7868" (line 8378). These routines are not shown in this listing but would operate on the text buffers in memory. The UL variable records the current case state (0=normal, 1=uppercase, 2=lowercase).

Window-Based Editing

The editor at line 7586 displays Z$ (Book A) in scrolling windows of approximately 480 characters (the value of CODE " TO ", which evaluates to the character code of the space+T+O+space token sequence — effectively a fixed window size constant). It allows search-and-replace, deletion, and paragraph-boundary marking. Search is a linear scan from the current window position; replacement is done by string concatenation: Z$=Z$(TO U-1)+P$+Z$(U+LEN Y$ TO).

Paragraph Append Logic

The append-paragraph routine at line 7709 allows prepending or appending typed text to the selected paragraph buffer X$. The choice is stored in BF: value 1 (CODE of “▝” = 1) means before, value 2 means after. Leading and trailing spaces are stripped from the assembled paragraph before concatenation.

Page Numbering and Page End

The page-end subroutine (PE, pointing to line 8384) increments PG, resets the line counter NN to 1, sends a form-feed (value 12) to the printer, prints the page number, and re-applies the current print mode. The 32-column page-end at line 7802–7816 uses a counted loop to emit blank lines (looping until A reaches CODE "(" = 40) before printing the page number.

Notable Anomalies

Line 8062 is referenced by GOTO VAL "8062" but is not present in the listing — the program jumps to a non-existent line, which is a known technique to fall through to the next available line.
Line 8333 in the small-medium print subroutine POKEs 16507 with value 0 immediately after POKEing it with 2 on line 8332, effectively cancelling the mode set. This appears to be a bug.
Line 7646 (GOTO VAL "7640") and line 7640 together create an unconditional infinite loop if the search string is not found in the window — there is no escape condition within the FOR loop beyond finding the target.
The SAVE "SMTX%T" at line 8482 saves the program to tape before re-initializing variables, which is the correct order for preserving the program state.

Content

Appears On

Related Products

Smart Text ZX/TS

Word processor/database/interactive office utility program. It will work with the JLO video upgrade and an assortment of printer interfaces.

Image Gallery

Source Code
REM ** VERSION 2 FOR WORK              ADAPATATION ****
PRINT AT CODE "##",CODE "##";"SMART TEXT ZX/TS"
PRINT AT CODE "~~",CODE ":'";"COPYRIGHT 1984 BY:";AT VAL "11",CODE ": ";"GULF MICRO ELECTRONICS";AT CODE "£",CODE ".'";"PANAMA CITY, FL 32404";AT CODE ":",CODE ":'";"ALL RIGHTS RESERVED"
PAUSE CODE "%Z"
CLS 
PRINT AT CODE "~~",CODE "##";"PRINTER TYPE?";AT CODE "£",CODE " '";"<1> FULL SIZE: OR <2> 32 COL"
GOSUB IK
LET PR=VAL T$
GOTO FM
PRINT AT CODE "~~",CODE "~~";"BEG TYPE";AT CODE "£",CODE ": ";"<ENTER> AS TYP SLOWS"
PAUSE CODE "2"
CLS 
LET U$=""
INPUT V$
CLS 
LET U$=U$+"  "+V$
PRINT AT CODE "~~",CODE ".'";"PARA END?";AT CODE "£",CODE ".'";"<1> YES  <2> NO"
GOSUB IK
IF T$="2" THEN GOTO VAL "7102"
LET V$=""
IF AC=VAL "0" THEN GOTO FM
IF LEN Z$<VAL "3800" THEN LET ACC=VAL "0"
IF LEN Z$>VAL "3800" THEN LET ACC=VAL "1"
IF LEN R$>VAL "3800" THEN LET ACC=VAL "2"
IF LEN S$>VAL "3800" THEN GOTO VAL "7748"
IF ACC=VAL "0" THEN LET Z$=Z$+U$
IF ACC=VAL "1" THEN LET R$=R$+U$
IF ACC=VAL "2" THEN LET S$=S$+U$
GOTO FM
CLS 
IF T$="A" THEN LET W$=Z$
IF T$="B" THEN LET W$=R$
IF T$="C" THEN LET W$=S$
IF T$="D" THEN LET W$=X$
IF T$="E" THEN LET W$=U$
GOTO TE
LET IDD=ID
LET ID=VAL "0"
IF PS=VAL "2" OR PS=VAL "3" THEN GOSUB VAL "8260"
GOSUB LS
PRINT AT CODE "~~",CODE "##";"TYPE CAP LESS THAN";AT CODE "£",CODE "##";LL;" CHRS IN LGTH"
INPUT Q$
CLS 
LPRINT TAB QQ-INT (LEN Q$/VAL "2"+1.5);Q$
IF PR=VAL "1" THEN GOSUB ZO
LET NN=NN+VAL "1"
IF NN>=LN THEN GOSUB PE
GOSUB LS
PRINT AT CODE "~~",CODE "~~";"ANOTHER CAP?";AT CODE "£",CODE ":'";"<1> YES  <2> NO"
GOSUB IK
IF T$="2" THEN LET ID=IDD
IF T$="2" AND PR=VAL "1" THEN GOSUB VAL "7430"
IF T$="2" AND PR=VAL "2" THEN GOSUB ZX
IF T$="2" THEN GOTO FM
GOTO VAL "7220"
PRINT AT CODE "~~",CODE ".'";"LN SPCS?";AT CODE "£",CODE ".'";"0, 1, 2, OR 3"
GOSUB IL
IF T$<"0" OR T$>"3" THEN GOTO LS
IF T$="0" THEN RETURN 
IF T$="1" AND PR=VAL "1" THEN GOSUB LF
IF T$="1" AND PR=VAL "2" THEN GOSUB SP 
IF T$="2" AND PR=VAL "1" THEN GOSUB VAL "8232"
IF T$="2" AND PR=VAL "2" THEN GOSUB VAL "8434"
IF T$="3" AND PR=VAL "1" THEN GOSUB VAL "8228"
IF T$="3" AND PR=VAL "2" THEN GOSUB VAL "8430"
IF NN>=LN THEN GOSUB PE
RETURN 
IF PEEK VAL "16508">VAL "0" THEN LPRINT 
IF PEEK VAL "16508">VAL "0" THEN GOTO ZO
RETURN 
PRINT AT CODE "~~",CODE ",,";"ENT NEW NBR"
INPUT LN
CLS 
PRINT AT CODE "~~",CODE ".'";"NX PG IS: ";PG+VAL "1";AT VAL "11",CODE ".'";"LNS TO PG END ";LN-NN;AT CODE "$",CODE ".'";"OPTIONS:";AT CODE "?",CODE ".'";"1 CHG PG NBR";AT CODE "(",CODE ".'";"2 CHG LNS TO END";AT CODE ")",CODE ".'";"3 ROLL PG";AT CODE ">",CODE ".'";"4 RE-SET PG LGTH";AT CODE "=",CODE ".'";"5 FUN MENU"
GOSUB IL
IF T$<"1" OR T$>"5" THEN GOTO VAL "7312"
IF T$="5" THEN GOTO FM
IF T$="1" THEN GOTO VAL "7332"
IF T$="2" THEN GOTO VAL "7342"
IF T$="3" THEN GOSUB PE
IF T$="4" THEN GOTO VAL "7308"
GOTO FM
PRINT AT CODE "~~",CODE "##";"TYP PG NBR";AT CODE "£",CODE "##";"THEN, ENT"
INPUT PG
CLS 
LET PG=PG-VAL "1"
GOTO VAL "7312"
PRINT AT CODE "~~",CODE "##";"TYP NU NBR";AT CODE "£",CODE "##";"THN ENT"
INPUT NE
CLS 
LET NN=LN-NE
GOTO VAL "7312"
PRINT AT CODE " ",CODE "##";"FUNC MEN";AT CODE "' ",CODE ".'";"* GO FIRST *";AT CODE "''",CODE ".'";"1 TYPING";AT CODE ". ",CODE ".'";"2 LN SP";AT CODE ": ",CODE ".'";"3 CAPTIONS";AT CODE ":'",CODE ". ";"* 4 FOR MENU";AT CODE "##",CODE ".'";"5 PG STAT";AT CODE ",,",CODE ".'";"6 DATA MGT";AT VAL "11",CODE ".'";"7 SAVE";AT CODE "£",CODE ".'";"8 LET HEAD";AT CODE "$",CODE ".'";"9 SIGN OFF";AT CODE "?",CODE ".'";"A PRT BK A";AT CODE "(",CODE ".'";"B PRT BK B";AT CODE ")",CODE ".'";"C PRT BK C";AT CODE "<",CODE ".'";"D PRT SEL PAR";AT CODE "=",CODE ".'";"E PRT TYP";AT CODE "+",CODE ".'";"F OFCE TLS"
GOSUB IL
IF T$<"1" OR T$>"F" THEN GOTO FM
IF T$<"F" AND T$>"9" THEN GOTO VAL "7132"
IF T$="1" THEN GOTO VAL "7096"
IF T$="F" THEN GOTO VAL "8642"
IF T$="2" AND PR=VAL "2" THEN GOSUB SP
IF T$="2" AND PR=VAL "1" THEN GOSUB LF
IF T$="3" THEN GOTO VAL "7200"
IF T$="4" THEN GOTO VAL "7392"
IF T$="5" THEN GOTO VAL "7312"
IF T$="6" THEN GOTO VAL "7748"
IF T$="7" THEN GOTO VAL "8474"
IF T$="8" THEN GOTO VAL "7766"
IF T$="9" THEN GOTO VAL "7820"
CLS 
GOTO FM
PRINT AT CODE " ",CODE ".'";"FMAT MENU";AT CODE ". ",CODE ". ";"* ONLY IF CPBLE";AT CODE "''",CODE ". ";"SLCT TIL FNSHD";AT CODE ".'",CODE ". ";"1 SNGL SP";AT CODE ":'",CODE ". ";"2 DBL SP";AT CODE ",,",CODE "''";"*3 UP CSE";AT CODE "~~",CODE "''";"*4 LOW CSE";AT CODE "£",CODE "''";"*5 MED PRT";AT CODE "$",CODE "''";"*6 SM PRT LG LN";AT CODE ":",CODE "''";"*7 SM PRT SH LN";AT CODE "?",CODE "''";"*8 LRG PRT";AT CODE ")",CODE ". ";"9 SET INDENT";AT CODE ">",CODE ". ";"A NORM LN LGTH";AT CODE "<",CODE ". ";"B TO FUN MENU"
GOSUB IL
IF T$<"1" OR T$>"B" THEN GOTO VAL "7392"
IF T$="1" THEN LET SD=VAL "1"
IF T$="2" THEN LET SD=VAL "2"
IF T$="3" THEN LET UL=VAL "2"
IF T$="4" THEN LET UL=VAL "1"
IF T$="5" THEN LET PS=VAL "1"
IF T$="6" THEN LET PS=VAL "3"
IF T$="7" THEN LET PS=VAL "2"
IF T$="8" THEN LET PS=VAL "4"
IF T$="9" THEN LET ID=VAL "1"
IF T$="A" THEN LET ID=VAL "0"
IF T$="B" THEN GOTO FM
IF UL=VAL "1" THEN GOSUB VAL "8374"
IF UL=VAL "2" THEN GOSUB VAL "8378"
IF T$>"4" AND T$<"9" THEN GOSUB VAL "7430"
PRINT AT CODE "~~",CODE "##";"<DONE>"
PAUSE CODE "2"
CLS 
GOTO VAL "7392"
IF W$(VAL "1")=" " THEN LET W$=W$(VAL "2" TO )
IF W$(VAL "1")=" " THEN GOTO TE
IF W$(LEN W$)=" " THEN LET W$=W$( TO LEN W$-VAL "1")
IF W$(LEN W$)=" " THEN GOTO VAL "7424"
GOSUB VAL "7430"
GOTO VAL "7436"
IF PR=VAL "1" AND PS=VAL "1" THEN GOSUB VAL "8260"
IF PR=VAL "1" AND PS=VAL "2" THEN GOSUB VAL "8332"
IF PR=VAL "1" AND PS=VAL "3" THEN GOSUB VAL "8312"
IF PR=VAL "1" AND PS=VAL "4" THEN GOSUB VAL "8352"
IF PR=VAL "2" THEN GOSUB ZX
RETURN 
IF LEN W$<=LL THEN GOTO VAL "7534"
LET Y$=W$( TO LL)
FOR M=LL TO VAL "1" STEP -VAL "1"
IF W$(M)=" " THEN GOTO VAL "7446"
NEXT M
LET Y$=W$( TO M-VAL "1")
GOSUB VAL "7494"
IF Y$(VAL "1")=" " THEN LET Y$=Y$(VAL "2" TO )
IF Y$(VAL "1")=" " THEN GOTO VAL "7450"
IF ID=VAL "1" THEN GOTO VAL "7468"
IF PS=VAL "2" THEN GOTO VAL "7478"
IF PS=VAL "3" THEN GOTO VAL "7482"
LPRINT Y$
IF PR=VAL "1" THEN GOSUB ZO
LET NN=NN+VAL "1"
IF NN>=LN THEN GOSUB PE
GOTO VAL "7486"
IF PR=VAL "1" AND PS=VAL "1" THEN LPRINT TAB VAL "5";Y$
IF PR=VAL "2" THEN LPRINT TAB VAL "3";Y$
IF PS=VAL "2" THEN LPRINT TAB VAL "15";Y$
IF PS=VAL "3" THEN LPRINT TAB VAL "18";Y$
IF PS=VAL "4" THEN LPRINT TAB VAL "3";Y$
GOTO VAL "7462"
LPRINT TAB VAL "10";Y$
GOTO VAL "7462"
LPRINT TAB VAL "13";Y$
GOTO VAL "7462"
IF PR=VAL "1" THEN GOSUB VAL "7574"
IF PR=VAL "2" THEN GOSUB VAL "7580"
LET W$=W$(M+VAL "1" TO )
GOTO VAL "7436"
LET PP=LEN Y$
IF PP=LL THEN RETURN 
FOR R=VAL "1" TO PP
IF Y$(R)=" " THEN GOTO VAL "7506"
NEXT R
GOTO VAL "7494"
LET Y$=Y$( TO R)+" "+Y$(R+VAL "1" TO PP)
LET PP=LEN Y$
IF PP<>LL THEN LET R=R+VAL "1"
IF PP<>LL THEN GOTO VAL "7502"
RETURN 
IF PR=VAL "1" AND PS=VAL "1" THEN LPRINT TAB VAL "5";W$
IF PR=VAL "2" THEN LPRINT TAB VAL "3";W$
IF PS=VAL "2" THEN LPRINT TAB VAL "15";W$
IF PS=VAL "3" THEN LPRINT TAB VAL "18";W$
IF PS=VAL "4" THEN LPRINT TAB VAL "3";W$
GOTO VAL "7542"
IF PS=VAL "2" THEN LPRINT TAB VAL "10";W$
GOTO VAL "7542"
LPRINT TAB VAL "13";W$
GOTO VAL "7542"
IF ID=VAL "1" THEN GOTO VAL "7516"
IF PS=VAL "2" THEN GOTO VAL "7526"
IF PS=VAL "3" THEN GOTO VAL "7530"
LPRINT W$
IF PR=VAL "1" THEN GOSUB ZO
LET NN=NN+VAL "1"
LET W$=""
IF SD=VAL "2" THEN GOSUB VAL "7556"
IF NN>=LN THEN GOSUB PE
IF G=VAL "1" THEN RETURN 
GOTO FM
IF PR=VAL "1" THEN GOSUB LF
IF PR=VAL "2" THEN GOSUB SP
RETURN 
IF SD=VAL "2" THEN GOSUB LF
IF NN>=LN THEN GOSUB PE
RETURN 
IF SD=VAL "2" THEN GOSUB SP
IF LL>=LN THEN GOSUB VAL "7802"
RETURN 
LET BG=VAL "0"
LET BC=VAL "1"
LET NP=VAL "0"
LET AY=VAL "1"
FOR Y=VAL "1" TO LEN Z$ STEP CODE " TO "
IF BC>=LEN Z$ THEN CLS 
IF BC>=LEN Z$ THEN GOTO VAL "7688"
PRINT AT VAL "0",VAL "11";"WINDOW ";AY
IF BC+CODE " TO ">=LEN Z$ THEN PRINT AT VAL "2",VAL "4";"LAST WINDOW"
IF BC+CODE " TO ">=LEN Z$ THEN PRINT AT VAL "4",VAL "0";Z$(BC TO )
IF BC+CODE " TO "<LEN Z$ THEN PRINT AT VAL "4",VAL "0";Z$(BC TO BC+CODE " TO ")
PRINT AT CODE "£",CODE "~~";"EDITING?";AT CODE "$",VAL "7";"<1> YES  <2> NO"
GOSUB IK
IF T$="1" THEN GOTO VAL "7626"
IF T$="2" AND BC+CODE " TO ">LEN Z$ THEN GOTO VAL "7686"
LET BC=BC+CODE " TO "
LET AY=AY+VAL "1"
NEXT Y
CLS 
GOTO VAL "7596"
IF BC+CODE " TO ">=LEN Z$ THEN PRINT AT VAL "2",VAL "8";"LAST WINDOW"
IF BC+CODE " TO "<LEN Z$ THEN PRINT AT VAL "4",VAL "0";Z$(BC TO BC+CODE " TO ")
IF BC+CODE " TO ">=LEN Z$ THEN PRINT AT VAL "4",VAL "0";Z$(BC TO )
PRINT AT CODE "£",VAL "6";"ENTER SRCH GRP";AT CODE "$",CODE ",,";"THN WAIT"
INPUT Y$
LET U=BC
FOR Q=U TO U+CODE " TO "
IF Z$(Q TO Q+LEN Y$-VAL "1")=Y$ THEN GOTO VAL "7648"
LET U=U+VAL "1"
NEXT Q
GOTO VAL "7640"
PRINT AT CODE "?",CODE " '";"<";Y$;">";AT CODE "<",CODE " '";"<OPTNS>";AT CODE "<",CODE "$";"1 REPL, 2 DEL";AT CODE "=",CODE "$";"3 ID PARA START";AT CODE "+",CODE "$";"4 ID PARA END" 
GOSUB IL
IF T$<"1" OR T$>"4" THEN GOTO VAL "7648"
IF T$="3" OR T$="4" THEN GOTO VAL "8038"
IF BC+CODE " TO ">=LEN Z$ THEN PRINT Z$(BC TO )
IF BC+CODE " TO "<LEN Z$ THEN PRINT Z$(BC TO BC+CODE " TO ")
PRINT AT CODE "##",CODE "' ";"<";Y$;">";AT CODE "(",CODE " '";"TO DLT, <ENT>";AT CODE ">",CODE " '";"TO REPL, OR INSRT, TYP";AT CODE "<",CODE " '";"THE GP, + SPS + PUNCT <ENT>"
INPUT P$
LET Z$=Z$( TO U-VAL "1")+P$+Z$(U+LEN Y$ TO )
CLS 
IF BC+CODE " TO ">=LEN Z$ THEN PRINT Z$(BC TO )
IF BC+CODE " TO "<LEN Z$ THEN PRINT Z$(BC TO BC+CODE " TO ")
PRINT AT CODE "=",VAL "6";"O.K.? <1> YES  <2> NO"
GOSUB IK
IF T$="1" THEN GOTO VAL "7620"
IF T$="2" THEN GOTO VAL "7626"
IF Y+CODE " TO ">=LEN Z$ THEN PRINT Z$(Y TO )
IF Y+CODE " TO "<LEN Z$ THEN PRINT Z$(Y TO Y+CODE " TO ")
GOTO VAL "7626"
PRINT AT CODE ".'",CODE ": ";"DATA MGT MEN";AT CODE "##",CODE "''";"1 STAT RPT";AT CODE ",,",CODE "''";"2 ACUM ON";AT CODE "~~",CODE "''";"3 ACUM OFF";AT CODE "£",CODE "''";"4 EDIT BK A";AT CODE "$",CODE "''";"5 MOVE BK B TO EDIT";AT CODE ":",CODE "''";"6 MOVE BK C TO ED";AT CODE "(",CODE "''";"7 APND SEL PARA";AT CODE ")",CODE "''";"8 VIEW SEL PARA";AT CODE ">",CODE "''";"9 TO FUN MENU"
GOSUB IL
IF T$<"1" OR T$>"9" THEN GOTO VAL "7686"
IF T$="1" THEN GOTO VAL "7748"
IF T$="2" THEN LET AC=VAL "1"
IF T$="3" THEN LET AC=VAL "0"
IF T$="4" THEN GOTO VAL "7586"
IF T$="5" THEN LET Z$=R$
IF T$="8" THEN GOTO VAL "8088"
IF T$="6" THEN LET Z$=S$
IF T$="7" THEN GOTO VAL "7709"
IF T$="9" THEN GOTO FM
PRINT AT CODE "~~",CODE "##";"<DONE>"
PAUSE CODE "2"
CLS 
GOTO VAL "7686"
LET Q$=""
PRINT AT CODE "~~",CODE "''";"APND:";AT CODE "£",CODE "''";"1 BEFORE? -OR- 2 AFTER?"
GOSUB IK
LET BF=VAL T$
PRINT AT CODE "~~",CODE "##";"TYP APND";AT CODE "£",CODE ". ";"<ENT> AS TYP SLOWS"
INPUT Y$
LET Q$=""
CLS 
LET Q$=Q$+"  "+Y$
IF Q$(CODE "' ")=" " THEN LET Q$=Q$(CODE " '" TO )
IF Q$(CODE "' ")=" " THEN GOTO VAL "7725"
LET Y$=""
IF Q$(LEN Q$)=" " THEN LET Q$=Q$( TO LEN Q$-CODE "' ")
IF Q$(LEN Q$)=" " THEN GOTO VAL "7728"
CLS 
IF BF=CODE "' " THEN LET X$=Q$+"  "+X$
IF BF=CODE " '" THEN LET X$=X$+"  "+Q$
GOTO VAL "7701"
PRINT AT CODE ". ",CODE "~~";"DAT STAT";AT CODE ".'",CODE ":'";"BK A = ";(INT (LEN Z$/102.4+.5))/CODE "~~";"K";AT CODE ":'",CODE ":'";"BK B= ";(INT (LEN R$/102.4+.5))/CODE "~~";"K";AT CODE "##",CODE ":'";"BK C= ";(INT (LEN S$/102.4+.5))/CODE "~~";"K";AT CODE "~~",CODE ":'";"SEL PAR= ";LEN X$;" BYTES";AT VAL "11",CODE ":'";"TYP PARA= ";LEN U$;" BTS";AT CODE "$",CODE ":'";"F MEM= ";PEEK VAL "16386"+VAL "256"*PEEK VAL "16387"-PEEK VAL "16412"-VAL "256"*PEEK VAL "16413";AT CODE "?",CODE ":'";"ACT BNK =";
IF ACC=VAL "0" THEN PRINT " A"
IF ACC=VAL "1" THEN PRINT " B"
IF ACC=VAL "2" THEN PRINT " C"
IF ACC=VAL "3" THEN PRINT " <NONE>"
PRINT AT CODE "=",VAL "7";"<ENT> WHEN RDY"
PAUSE VAL "4E4"
CLS 
GOTO VAL "7686"
LET IDD=ID
LET ID=VAL "0"
IF PR=VAL "1" THEN GOSUB VAL "8260"
LET NN=VAL "1"
IF PR=VAL "1" THEN GOSUB VAL "8232"
LET PG=VAL "0"
LPRINT TAB QQ-(LEN K$/VAL "2"+VAL "1");K$
IF PR=VAL "1" THEN GOSUB ZO
LPRINT TAB QQ-(LEN L$/VAL "2"+VAL "1");L$
IF PR=VAL "1" THEN GOSUB ZO
LPRINT TAB QQ-(LEN M$/VAL "2"+VAL "1");M$
IF PR=VAL "1" THEN GOSUB ZO
LET NN=NN+VAL "3"
IF G=VAL "1" THEN GOTO VAL "7894"
GOTO VAL "7888"
IF PR=VAL "1" THEN GOTO VAL "8386"
LET A=VAL "1"
LPRINT 
LET A=A+VAL "1"
IF A=CODE "(" THEN GOTO VAL "7809"
GOTO VAL "7805"
LET PG=PG+VAL "1"
LPRINT PG
LET NN=VAL "1"
LET ID=IDD
GOSUB VAL "8426"
RETURN 
LET NN=VAL "0"
LET ID=VAL "0"
IF PR=VAL "2" THEN GOTO VAL "7842"
GOSUB VAL "8260"
GOSUB VAL "8224"
IF UL=VAL "1" THEN LPRINT TAB QQ-VAL "5";"S%I%N%C%E%R%E%L%Y,"
IF UL=VAL "2" OR UL=VAL "0" THEN LPRINT TAB QQ-VAL "5";"SINCERELY,"
GOSUB ZO
GOSUB VAL "8224"
IF UL=VAL "1" THEN LPRINT TAB QQ-VAL "5";"B%I%L%L J%O%N%E%S"
IF UL=VAL "2" OR UL=VAL "0" THEN LPRINT TAB QQ-VAL "5";"BILL JONES"
GOSUB ZO
GOSUB VAL "8386"
IF G=VAL "1" THEN RETURN 
GOTO FM
GOSUB VAL "8426"
IF UL=VAL "1" THEN LPRINT TAB QQ-VAL "5";"S%I%N%C%E%R%E%L%Y,"
IF UL=VAL "2" OR UL=VAL "0" THEN LPRINT TAB QQ-VAL "5";"SINCERELY,"
GOSUB VAL "8426"
IF UL=VAL "1" THEN LPRINT TAB QQ-VAL "5";"B%I%L%L J%O%N%E%S%S"
IF UL=VAL "2" OR UL=VAL "0" THEN LPRINT TAB QQ-VAL "5";"BILL JONES"
GOSUB PE
IF G=VAL "1" THEN RETURN 
GOTO FM
PRINT AT CODE "~~",VAL "7";"TYP DATE"
INPUT Y$
CLS 
IF G=VAL "1" THEN LET Y$=O$
LPRINT TAB QQ-LEN Y$/VAL "2";Y$
IF PR=VAL "1" THEN GOSUB VAL "8232"
IF PR=VAL "2" THEN GOSUB VAL "8434"
LET NN=NN+VAL "1"
IF G=VAL "1" THEN RETURN 
PRINT AT CODE "~~",VAL "6";"BUS HEAD?";AT CODE "£",CODE ".'";"1 YES  2 NO"
GOSUB IK
CLS 
IF PR=VAL "1" THEN GOSUB VAL "8280"
IF T$="1" THEN GOTO VAL "7916"
IF T$="2" THEN GOTO VAL "7942"
GOTO VAL "7902"
PRINT AT CODE "~~",VAL "4";"TYP CO NAME"
INPUT Y$
LPRINT Y$
PRINT AT CODE "£",CODE ". ";"TYP ST ADR"
INPUT Y$
LPRINT Y$
PRINT AT CODE ":",CODE ". ";"CTY, ST, ZP"
INPUT Y$
LPRINT Y$
CLS 
IF PR=VAL "1" THEN GOSUB VAL "8232"
IF PR=VAL "2" THEN GOSUB VAL "8434"
LET NN=NN+VAL "3"
PRINT AT CODE "~~",CODE " '";"PERS NAME"
INPUT Y$
CLS 
LPRINT "DEAR ";Y$
IF PR=VAL "1" THEN GOSUB LF
IF PR=VAL "2" THEN GOSUB SP
LET NN=NN+VAL "3"
IF G=VAL "1" THEN RETURN 
LET ID=IDD
GOSUB VAL "7430"
GOTO FM
CLS 
IF T$="4" THEN GOTO VAL "8048"
LET BG=U
GOTO VAL "8062"
IF BG=VAL "0" THEN GOTO VAL "8067"
LET NP=U-CODE "' "+LEN Y$
IF BG>VAL "0" AND NP>VAL "0" THEN LET X$=Z$(BG TO NP)
PRINT AT CODE "~~",CODE " '";"DONE"
PAUSE CODE "W"
CLS 
GOTO VAL "7686"
IF NP=VAL "0" THEN PRINT AT CODE "~~",CODE "~~";"DONE"
IF BG=CODE " " THEN PRINT AT CODE "~~",CODE "''";"YOU GOOFED TRY AGN"
PAUSE CODE "% "
CLS 
IF BG=CODE " " THEN LET Y=CODE "' "
IF BG=CODE " " THEN LET BC=CODE "' "
IF BG=CODE " " THEN GOTO VAL "7596"
IF NP=CODE " " THEN GOTO VAL "7596"
IF BG=CODE " " THEN GOTO VAL "7590"
IF NP=CODE " " THEN GOTO VAL "7616"
FOR Y=CODE "' " TO LEN X$ STEP VAL "479"
IF LEN X$<Y THEN GOTO VAL "7686"
IF Y+VAL "479"<LEN X$ THEN PRINT X$(Y TO Y+VAL "479")
IF Y+VAL "479">=LEN X$ THEN PRINT X$(Y TO )
PRINT AT CODE "=",CODE "~~";"<ENT> WHN RDY"
PAUSE VAL "4E4"
CLS 
NEXT Y
GOTO VAL "8090"
PAUSE VAL "4E4"
LET T$=INKEY$
IF T$="" THEN GOTO VAL "8134"
CLS 
RETURN 
PAUSE VAL "4E4"
LET T$=INKEY$
IF T$="" THEN GOTO VAL "8144"
IF T$<"1" OR T$>"2" THEN GOTO VAL "8144"
CLS 
RETURN 
POKE VAL "65535",VAL "10"
LET NN=NN+VAL "1"
POKE VAL "65535",VAL "10"
LET NN=NN+VAL "1"
POKE VAL "65535",VAL "10"
LET NN=NN+VAL "1"
POKE VAL "65535",VAL "10"
LET NN=NN+VAL "1"
POKE VAL "65535",VAL "10"
LET NN=NN+VAL "1"
IF NN>=LN THEN GOSUB PE
RETURN 
POKE VAL "65535",VAL "24"
POKE VAL "16507",VAL "0"
LET LN=VAL "66"
POKE VAL "16508",VAL "0"
LET LL=VAL "32"
LET QQ=VAL "16"
IF ID=VAL "1" THEN LET LL=VAL "26"
IF ID=VAL "1" THEN LET QQ=VAL "13"
IF G=VAL "1" THEN LET LN=VAL "85"
RETURN 
POKE VAL "16507",VAL "1"
POKE VAL "16508",VAL "0"
LET LL=VAL "64"
LET QQ=VAL "32"
POKE VAL "65535",VAL "24"
POKE VAL "65535",CODE "27"
POKE VAL "65535",VAL "66"
POKE VAL "65535",VAL "30"
IF ID=VAL "1" THEN LET LL=VAL "54"
IF ID=VAL "1" THEN LET QQ=VAL "27"
RETURN 
POKE VAL "65535",VAL "24"
POKE VAL "16507",VAL "0"
POKE VAL "16508",VAL "0"
POKE VAL "65535",CODE "27"
POKE VAL "65535",VAL "66"
POKE VAL "65535",VAL "30"
RETURN 
POKE VAL "16507",VAL "0"
POKE VAL "16508",VAL "0"
POKE VAL "65535",CODE "24"
POKE VAL "65535",VAL "27"
POKE VAL "65535",VAL "65"
POKE VAL "65535",VAL "30"
RETURN 
POKE VAL "16507",VAL "3"
POKE VAL "16508",VAL "0"
LET LL=VAL "106"
LET QQ=VAL "53"
POKE VAL "65535",VAL "24"
POKE VAL "65535",VAL "27"
POKE VAL "65535",VAL "65"
POKE VAL "65535",VAL "29"
IF ID=VAL "1" THEN LET LL=VAL "96"
IF ID=VAL "1" THEN LET QQ=VAL "48"
RETURN 
POKE VAL "16507",VAL "2"
POKE VAL "16507",VAL "0"
LET LL=VAL "86"
LET QQ=VAL "43"
POKE VAL "65535",VAL "24"
POKE VAL "65535",VAL "27"
POKE VAL "65535",VAL "66"
POKE VAL "65535",VAL "29"
IF ID=VAL "1" THEN LET LL=VAL "76"
IF ID=VAL "1" THEN LET QQ=VAL "38"
RETURN 
POKE VAL "16507",VAL "1"
POKE VAL "16508",VAL "0"
POKE VAL "65535",VAL "24"
LET LL=VAL "32"
LET QQ=VAL "16"
POKE VAL "65535",VAL "27"
POKE VAL "65535",VAL "66"
POKE VAL "65535",VAL "30"
POKE VAL "65535",VAL "31"
IF ID=VAL "1" THEN LET LL=VAL "26"
IF ID=VAL "1" THEN LET QQ=VAL "13"
RETURN 
RAND USR VAL "7804"
RETURN 
RAND USR VAL "7868"
RETURN 
LET IDD=ID
LET ID=VAL "0"
IF PR=VAL "2" THEN GOTO VAL "7802"
GOSUB VAL "8296"
LET PG=PG+VAL "1"
LET NN=VAL "1"
POKE VAL "65535",VAL "12"
LPRINT PG
GOSUB ZO
LET ID=IDD
GOSUB VAL "7430"
GOSUB VAL "8224"
RETURN 
LPRINT 
LET NN=NN+VAL "1"
LPRINT 
LET NN=NN+VAL "1"
LPRINT 
LET NN=NN+VAL "1"
LPRINT 
LET NN=NN+VAL "1"
IF NN>=LN THEN GOSUB VAL "7802"
RETURN 
CLS 
PRINT AT CODE "~~",VAL "2";"STRT REC, THN <ENT>"
PAUSE VAL "4E4"
SAVE "SMTX%T"
CLS 
FAST 
LET LS=VAL "7250"
LET G=CODE " "
LET LN=CODE "O"
LET AC=CODE " "
LET CC=CODE " "
LET PR=CODE " '"
LET PG=CODE " "
LET W$=""
LET TE=VAL "7420"
LET IDD=CODE " "
LET PE=VAL "8384"
LET ID=CODE " "
LET ZO=7274
LET ME=VAL "65535"
LET EN=VAL "16507"
LET UL=CODE " "
LET CT=VAL "16508"
LET K$="GULF MICRO ELECTRONICS"
LET L$="1317 STRATFORD AVE"
LET M$="PANAMA CITY, FLORIDA 32404"
LET PS=CODE "' "
LET NN=CODE " "
LET SD=CODE "' "
LET IL=VAL "8134"
LET IK=VAL "8144"
LET FM=VAL "7362"
LET LF=VAL "8236"
LET ZX=VAL "8248"
LET SP=VAL "8438"
GOTO VAL "7024"

Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.