Smart Text V4

   1 REM ** VERSION 1 FOR WORK              ADAPATATION ****
\n7024 PRINT AT CODE "\##",CODE "\##";"SMART TEXT ZX/TS"
\n7044 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"
\n7068 PAUSE CODE "%Z"
\n7069 CLS 
\n7072 PRINT AT CODE "\~~",CODE "\##";"PRINTER TYPE?";AT CODE "£",CODE "\ '";"<1> FULL SIZE: OR <2> 32 COL"
\n7074 GOSUB IK
\n7076 LET PR=VAL T$
\n7078 GOTO FM
\n7096 PRINT AT CODE "\~~",CODE "\~~";"BEG TYPE";AT CODE "£",CODE "\: ";"<ENTER> AS TYP SLOWS"
\n7097 PAUSE CODE "2"
\n7098 CLS 
\n7099 LET U$=""
\n7102 INPUT V$
\n7104 CLS 
\n7106 LET U$=U$+"  "+V$
\n7108 PRINT AT CODE "\~~",CODE "\.'";"PARA END?";AT CODE "£",CODE "\.'";"<1> YES  <2> NO"
\n7110 GOSUB IK
\n7112 IF T$="2" THEN GOTO VAL "7102"
\n7114 LET V$=""
\n7115 IF AC=VAL "0" THEN GOTO FM
\n7116 IF LEN Z$<VAL "3800" THEN LET ACC=VAL "0"
\n7117 IF LEN Z$>VAL "3800" THEN LET ACC=VAL "1"
\n7118 IF LEN R$>VAL "3800" THEN LET ACC=VAL "2"
\n7119 IF LEN S$>VAL "3800" THEN GOTO VAL "7748"
\n7120 IF ACC=VAL "0" THEN LET Z$=Z$+U$
\n7128 IF ACC=VAL "1" THEN LET R$=R$+U$
\n7129 IF ACC=VAL "2" THEN LET S$=S$+U$
\n7130 GOTO FM
\n7132 CLS 
\n7133 IF T$="A" THEN LET W$=Z$
\n7134 IF T$="B" THEN LET W$=R$
\n7136 IF T$="C" THEN LET W$=S$
\n7138 IF T$="D" THEN LET W$=X$
\n7140 IF T$="E" THEN LET W$=U$
\n7142 GOTO TE
\n7200 LET IDD=ID
\n7210 LET ID=VAL "0"
\n7212 IF PS=VAL "2" OR PS=VAL "3" THEN GOSUB VAL "8260"
\n7218 GOSUB LS
\n7220 PRINT AT CODE "\~~",CODE "\##";"TYPE CAP LESS THAN";AT CODE "£",CODE "\##";LL;" CHRS IN LGTH"
\n7222 INPUT Q$
\n7224 CLS 
\n7226 LPRINT TAB QQ-INT (LEN Q$/VAL "2"+1.5);Q$
\n7227 IF PR=VAL "1" THEN GOSUB ZO
\n7228 LET NN=NN+VAL "1"
\n7230 IF NN>=LN THEN GOSUB PE
\n7234 GOSUB LS
\n7236 PRINT AT CODE "\~~",CODE "\~~";"ANOTHER CAP?";AT CODE "£",CODE "\:'";"<1> YES  <2> NO"
\n7238 GOSUB IK
\n7240 IF T$="2" THEN LET ID=IDD
\n7242 IF T$="2" AND PR=VAL "1" THEN GOSUB VAL "7430"
\n7244 IF T$="2" AND PR=VAL "2" THEN GOSUB ZX
\n7246 IF T$="2" THEN GOTO FM
\n7249 GOTO VAL "7220"
\n7250 PRINT AT CODE "\~~",CODE "\.'";"LN SPCS?";AT CODE "£",CODE "\.'";"0, 1, 2, OR 3"
\n7252 GOSUB IL
\n7254 IF T$<"0" OR T$>"3" THEN GOTO LS
\n7256 IF T$="0" THEN RETURN 
\n7258 IF T$="1" AND PR=VAL "1" THEN GOSUB LF
\n7260 IF T$="1" AND PR=VAL "2" THEN GOSUB SP 
\n7262 IF T$="2" AND PR=VAL "1" THEN GOSUB VAL "8232"
\n7263 IF T$="2" AND PR=VAL "2" THEN GOSUB VAL "8434"
\n7264 IF T$="3" AND PR=VAL "1" THEN GOSUB VAL "8228"
\n7268 IF T$="3" AND PR=VAL "2" THEN GOSUB VAL "8430"
\n7270 IF NN>=LN THEN GOSUB PE
\n7271 RETURN 
\n7274 IF PEEK CT>VAL "0" THEN LPRINT 
\n7276 IF PEEK CT>VAL "0" THEN GOTO ZO
\n7278 RETURN 
\n7308 PRINT AT CODE "\~~",CODE "\,,";"ENT NEW NBR"
\n7310 INPUT LN
\n7311 CLS 
\n7312 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"
\n7316 GOSUB IL
\n7318 IF T$<"1" OR T$>"5" THEN GOTO VAL "7312"
\n7320 IF T$="5" THEN GOTO FM
\n7322 IF T$="1" THEN GOTO VAL "7332"
\n7324 IF T$="2" THEN GOTO VAL "7342"
\n7326 IF T$="3" THEN GOSUB PE
\n7327 IF T$="4" THEN GOTO VAL "7308"
\n7328 GOTO FM
\n7332 PRINT AT CODE "\~~",CODE "\##";"TYP PG NBR";AT CODE "£",CODE "\##";"THEN, ENT"
\n7334 INPUT PG
\n7336 CLS 
\n7338 LET PG=PG-VAL "1"
\n7340 GOTO VAL "7312"
\n7342 PRINT AT CODE "\~~",CODE "\##";"TYP NU NBR";AT CODE "£",CODE "\##";"THN ENT"
\n7344 INPUT NE
\n7346 CLS 
\n7348 LET NN=LN-NE
\n7350 GOTO VAL "7312"
\n7362 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"
\n7364 GOSUB IL
\n7366 IF T$<"1" OR T$>"F" THEN GOTO FM
\n7368 IF T$<"F" AND T$>"9" THEN GOTO VAL "7132"
\n7370 IF T$="1" THEN GOTO VAL "7096"
\n7371 IF T$="F" THEN GOTO VAL "8642"
\n7372 IF T$="2" AND PR=VAL "2" THEN GOSUB SP
\n7373 IF T$="2" AND PR=VAL "1" THEN GOSUB LF
\n7374 IF T$="3" THEN GOTO VAL "7200"
\n7376 IF T$="4" THEN GOTO VAL "7392"
\n7378 IF T$="5" THEN GOTO VAL "7312"
\n7380 IF T$="6" THEN GOTO VAL "7748"
\n7382 IF T$="7" THEN GOTO VAL "8474"
\n7384 IF T$="8" THEN GOTO VAL "7766"
\n7386 IF T$="9" THEN GOTO VAL "7820"
\n7388 CLS 
\n7390 GOTO FM
\n7392 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"
\n7393 GOSUB IL
\n7394 IF T$<"1" OR T$>"B" THEN GOTO VAL "7392"
\n7395 IF T$="1" THEN LET SD=VAL "1"
\n7396 IF T$="2" THEN LET SD=VAL "2"
\n7397 IF T$="3" THEN LET UL=VAL "2"
\n7398 IF T$="4" THEN LET UL=VAL "1"
\n7399 IF T$="5" THEN LET PS=VAL "1"
\n7400 IF T$="6" THEN LET PS=VAL "3"
\n7401 IF T$="7" THEN LET PS=VAL "2"
\n7402 IF T$="8" THEN LET PS=VAL "4"
\n7403 IF T$="9" THEN LET ID=VAL "1"
\n7404 IF T$="A" THEN LET ID=VAL "0"
\n7406 IF T$="B" THEN GOTO FM
\n7410 IF UL=VAL "1" THEN GOSUB VAL "8374"
\n7411 IF UL=VAL "2" THEN GOSUB VAL "8378"
\n7412 IF T$>"4" AND T$<"9" THEN GOSUB VAL "7430"
\n7416 PRINT AT CODE "\~~",CODE "\##";"<DONE>"
\n7417 PAUSE CODE "2"
\n7418 CLS 
\n7419 GOTO VAL "7392"
\n7420 IF W$(VAL "1")=" " THEN LET W$=W$(VAL "2" TO )
\n7422 IF W$(VAL "1")=" " THEN GOTO TE
\n7424 IF W$(LEN W$)=" " THEN LET W$=W$( TO LEN W$-VAL "1")
\n7426 IF W$(LEN W$)=" " THEN GOTO VAL "7424"
\n7427 GOSUB VAL "7430"
\n7428 GOTO VAL "7436"
\n7430 IF PR=VAL "1" AND PS=VAL "1" THEN GOSUB VAL "8260"
\n7431 IF PR=VAL "1" AND PS=VAL "2" THEN GOSUB VAL "8332"
\n7432 IF PR=VAL "1" AND PS=VAL "3" THEN GOSUB VAL "8312"
\n7433 IF PR=VAL "1" AND PS=VAL "4" THEN GOSUB VAL "8352"
\n7434 IF PR=VAL "2" THEN GOSUB ZX
\n7435 RETURN 
\n7436 IF LEN W$<=LL THEN GOTO VAL "7534"
\n7438 LET Y$=W$( TO LL)
\n7440 FOR M=LL TO VAL "1" STEP -VAL "1"
\n7442 IF W$(M)=" " THEN GOTO VAL "7446"
\n7444 NEXT M
\n7446 LET Y$=W$( TO M-VAL "1")
\n7448 GOSUB VAL "7494"
\n7450 IF Y$(VAL "1")=" " THEN LET Y$=Y$(VAL "2" TO )
\n7452 IF Y$(VAL "1")=" " THEN GOTO VAL "7450"
\n7454 IF ID=VAL "1" THEN GOTO VAL "7468"
\n7456 IF PS=VAL "2" THEN GOTO VAL "7478"
\n7458 IF PS=VAL "3" THEN GOTO VAL "7482"
\n7460 LPRINT Y$
\n7462 IF PR=VAL "1" THEN GOSUB ZO
\n7464 LET NN=NN+VAL "1"
\n7465 IF NN>=LN THEN GOSUB PE
\n7466 GOTO VAL "7486"
\n7468 IF PR=VAL "1" AND PS=VAL "1" THEN LPRINT TAB VAL "5";Y$
\n7469 IF PR=VAL "2" THEN LPRINT TAB VAL "3";Y$
\n7470 IF PS=VAL "2" THEN LPRINT TAB CODE "?";Y$
\n7472 IF PS=VAL "3" THEN LPRINT TAB CODE ">";Y$
\n7474 IF PS=VAL "4" THEN LPRINT TAB VAL "3";Y$
\n7476 GOTO VAL "7462"
\n7478 LPRINT TAB CODE "\~~";Y$
\n7480 GOTO VAL "7462"
\n7482 LPRINT TAB CODE "$";Y$
\n7484 GOTO VAL "7462"
\n7486 IF PR=VAL "1" THEN GOSUB VAL "7574"
\n7488 IF PR=VAL "2" THEN GOSUB VAL "7580"
\n7490 LET W$=W$(M+VAL "1" TO )
\n7492 GOTO VAL "7436"
\n7494 LET PP=LEN Y$
\n7496 IF PP=LL THEN RETURN 
\n7498 FOR R=VAL "1" TO PP
\n7500 IF Y$(R)=" " THEN GOTO VAL "7506"
\n7502 NEXT R
\n7504 GOTO VAL "7494"
\n7506 LET Y$=Y$( TO R)+" "+Y$(R+VAL "1" TO PP)
\n7508 LET PP=LEN Y$
\n7510 IF PP<>LL THEN LET R=R+VAL "1"
\n7512 IF PP<>LL THEN GOTO VAL "7502"
\n7514 RETURN 
\n7516 IF PR=VAL "1" AND PS=VAL "1" THEN LPRINT TAB VAL "5";W$
\n7517 IF PR=VAL "2" THEN LPRINT TAB VAL "3";W$
\n7518 IF PS=VAL "2" THEN LPRINT TAB CODE "?";W$
\n7520 IF PS=VAL "3" THEN LPRINT TAB CODE ">";W$
\n7522 IF PS=VAL "4" THEN LPRINT TAB VAL "3";W$
\n7524 GOTO VAL "7542"
\n7526 IF PS=VAL "2" THEN LPRINT TAB CODE "\~~";W$
\n7528 GOTO VAL "7542"
\n7530 LPRINT TAB CODE "$";W$
\n7532 GOTO VAL "7542"
\n7534 IF ID=VAL "1" THEN GOTO VAL "7516"
\n7536 IF PS=VAL "2" THEN GOTO VAL "7526"
\n7538 IF PS=VAL "3" THEN GOTO VAL "7530"
\n7540 LPRINT W$
\n7542 IF PR=VAL "1" THEN GOSUB ZO
\n7544 LET NN=NN+VAL "1"
\n7546 LET W$=""
\n7548 IF SD=VAL "2" THEN GOSUB VAL "7556"
\n7550 IF NN>=LN THEN GOSUB PE
\n7552 IF G=VAL "1" THEN RETURN 
\n7554 GOTO FM
\n7556 IF PR=VAL "1" THEN GOSUB LF
\n7558 IF PR=VAL "2" THEN GOSUB SP
\n7560 RETURN 
\n7574 IF SD=VAL "2" THEN GOSUB LF
\n7576 IF NN>=LN THEN GOSUB PE
\n7578 RETURN 
\n7580 IF SD=VAL "2" THEN GOSUB SP
\n7582 IF LL>=LN THEN GOSUB VAL "7802"
\n7584 RETURN 
\n7586 LET BG=VAL "0"
\n7587 LET BC=VAL "1"
\n7588 LET NP=VAL "0"
\n7590 LET AY=VAL "1"
\n7594 FOR Y=VAL "1" TO LEN Z$ STEP CODE " TO "
\n7596 IF BC>=LEN Z$ THEN CLS 
\n7598 IF BC>=LEN Z$ THEN GOTO VAL "7688"
\n7600 PRINT AT VAL "0",VAL "11";"WINDOW ";AY
\n7602 IF BC+CODE " TO ">=LEN Z$ THEN PRINT AT VAL "2",VAL "4";"LAST WINDOW"
\n7604 IF BC+CODE " TO ">=LEN Z$ THEN PRINT AT VAL "4",VAL "0";Z$(BC TO )
\n7606 IF BC+CODE " TO "<LEN Z$ THEN PRINT AT VAL "4",VAL "0";Z$(BC TO BC+CODE " TO ")
\n7608 PRINT AT CODE "£",CODE "\~~";"EDITING?";AT CODE "$",VAL "7";"<1> YES  <2> NO"
\n7610 GOSUB IK
\n7612 IF T$="1" THEN GOTO VAL "7626"
\n7614 IF T$="2" AND BC+CODE " TO ">LEN Z$ THEN GOTO VAL "7686"
\n7616 LET BC=BC+CODE " TO "
\n7618 LET AY=AY+VAL "1"
\n7620 NEXT Y
\n7622 CLS 
\n7624 GOTO VAL "7596"
\n7626 IF BC+CODE " TO ">=LEN Z$ THEN PRINT AT VAL "2",VAL "8";"LAST WINDOW"
\n7628 IF BC+CODE " TO "<LEN Z$ THEN PRINT AT VAL "4",VAL "0";Z$(BC TO BC+CODE " TO ")
\n7630 IF BC+CODE " TO ">=LEN Z$ THEN PRINT AT VAL "4",VAL "0";Z$(BC TO )
\n7632 PRINT AT CODE "£",VAL "6";"ENTER SRCH GRP";AT CODE "$",CODE "\,,";"THN WAIT"
\n7634 INPUT Y$
\n7636 LET U=BC
\n7638 FOR Q=U TO U+CODE " TO "
\n7640 IF Z$(Q TO Q+LEN Y$-VAL "1")=Y$ THEN GOTO VAL "7648"
\n7642 LET U=U+VAL "1"
\n7644 NEXT Q
\n7646 GOTO VAL "7640"
\n7648 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" 
\n7650 GOSUB IL
\n7652 IF T$<"1" OR T$>"4" THEN GOTO VAL "7648"
\n7654 IF T$="3" OR T$="4" THEN GOTO VAL "8038"
\n7655 IF BC+CODE " TO ">=LEN Z$ THEN PRINT Z$(BC TO )
\n7656 IF BC+CODE " TO "<LEN Z$ THEN PRINT Z$(BC TO BC+CODE " TO ")
\n7658 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>"
\n7660 INPUT P$
\n7662 LET Z$=Z$( TO U-VAL "1")+P$+Z$(U+LEN Y$ TO )
\n7664 CLS 
\n7666 IF BC+CODE " TO ">=LEN Z$ THEN PRINT Z$(BC TO )
\n7668 IF BC+CODE " TO "<LEN Z$ THEN PRINT Z$(BC TO BC+CODE " TO ")
\n7670 PRINT AT CODE "=",VAL "6";"O.K.? <1> YES  <2> NO"
\n7672 GOSUB IK
\n7676 IF T$="1" THEN GOTO VAL "7620"
\n7678 IF T$="2" THEN GOTO VAL "7626"
\n7680 IF Y+CODE " TO ">=LEN Z$ THEN PRINT Z$(Y TO )
\n7682 IF Y+CODE " TO "<LEN Z$ THEN PRINT Z$(Y TO Y+CODE " TO ")
\n7684 GOTO VAL "7626"
\n7686 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"
\n7687 GOSUB IL
\n7688 IF T$<"1" OR T$>"9" THEN GOTO VAL "7686"
\n7689 IF T$="1" THEN GOTO VAL "7748"
\n7690 IF T$="2" THEN LET AC=VAL "1"
\n7692 IF T$="3" THEN LET AC=VAL "0"
\n7694 IF T$="4" THEN GOTO VAL "7586"
\n7696 IF T$="5" THEN LET Z$=R$
\n7697 IF T$="8" THEN GOTO VAL "8088"
\n7698 IF T$="6" THEN LET Z$=S$
\n7699 IF T$="7" THEN GOTO VAL "7709"
\n7700 IF T$="9" THEN GOTO FM
\n7701 PRINT AT CODE "\~~",CODE "\##";"<DONE>"
\n7703 PAUSE CODE "2"
\n7704 CLS 
\n7706 GOTO VAL "7686"
\n7709 LET Q$=""
\n7714 PRINT AT CODE "\~~",CODE "\''";"APND:";AT CODE "£",CODE "\''";"1 BEFORE? -OR- 2 AFTER?"
\n7715 GOSUB IK
\n7716 LET BF=VAL T$
\n7717 PRINT AT CODE "\~~",CODE "\##";"TYP APND";AT CODE "£",CODE "\. ";"<ENT> AS TYP SLOWS"
\n7718 INPUT Y$
\n7719 LET Q$=""
\n7720 CLS 
\n7721 LET Q$=Q$+"  "+Y$
\n7725 IF Q$(CODE "\' ")=" " THEN LET Q$=Q$(CODE "\ '" TO )
\n7726 IF Q$(CODE "\' ")=" " THEN GOTO VAL "7725"
\n7727 LET Y$=""
\n7728 IF Q$(LEN Q$)=" " THEN LET Q$=Q$( TO LEN Q$-CODE "\' ")
\n7729 IF Q$(LEN Q$)=" " THEN GOTO VAL "7728"
\n7731 CLS 
\n7732 IF BF=CODE "\' " THEN LET X$=Q$+"  "+X$
\n7734 IF BF=CODE "\ '" THEN LET X$=X$+"  "+Q$
\n7736 GOTO VAL "7701"
\n7748 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 =";
\n7749 IF ACC=VAL "0" THEN PRINT " A"
\n7750 IF ACC=VAL "1" THEN PRINT " B"
\n7751 IF ACC=VAL "2" THEN PRINT " C"
\n7752 IF ACC=VAL "3" THEN PRINT " <NONE>"
\n7754 PRINT AT CODE "=",VAL "7";"<ENT> WHEN RDY"
\n7760 PAUSE VAL "4E4"
\n7763 CLS 
\n7765 GOTO VAL "7686"
\n7766 LET IDD=ID
\n7768 LET ID=VAL "0"
\n7769 IF PR=VAL "1" THEN GOSUB VAL "8260"
\n7770 LET NN=VAL "1"
\n7771 IF PR=VAL "1" THEN GOSUB VAL "8232"
\n7772 LET PG=VAL "0"
\n7775 LPRINT TAB QQ-(LEN K$/VAL "2"+VAL "1");K$
\n7776 IF PR=VAL "1" THEN GOSUB ZO
\n7777 LPRINT TAB QQ-(LEN L$/VAL "2"+VAL "1");L$
\n7778 IF PR=VAL "1" THEN GOSUB ZO
\n7779 LPRINT TAB QQ-(LEN M$/VAL "2"+VAL "1");M$
\n7782 IF PR=VAL "1" THEN GOSUB ZO
\n7786 LET NN=NN+VAL "3"
\n7787 IF G=VAL "1" THEN GOTO VAL "7894"
\n7789 GOTO VAL "7888"
\n7802 IF PR=VAL "1" THEN GOTO VAL "8386"
\n7804 LET A=VAL "1"
\n7805 LPRINT 
\n7806 LET A=A+VAL "1"
\n7807 IF A=CODE "(" THEN GOTO VAL "7809"
\n7808 GOTO VAL "7805"
\n7809 LET PG=PG+VAL "1"
\n7810 LPRINT PG
\n7812 LET NN=VAL "1"
\n7813 LET ID=IDD
\n7814 GOSUB VAL "8426"
\n7816 RETURN 
\n7820 LET NN=VAL "0"
\n7822 LET ID=VAL "0"
\n7823 IF PR=VAL "2" THEN GOTO VAL "7842"
\n7824 GOSUB VAL "8260"
\n7826 GOSUB VAL "8224"
\n7828 IF UL=VAL "1" THEN LPRINT TAB QQ-VAL "5";"S%I%N%C%E%R%E%L%Y,"
\n7830 IF UL=VAL "2" OR UL=VAL "0" THEN LPRINT TAB QQ-VAL "5";"SINCERELY,"
\n7831 GOSUB ZO
\n7832 GOSUB VAL "8224"
\n7834 IF UL=VAL "1" THEN LPRINT TAB QQ-VAL "5";"B%I%L%L J%O%N%E%S"
\n7836 IF UL=VAL "2" OR UL=VAL "0" THEN LPRINT TAB QQ-VAL "5";"BILL JONES"
\n7837 GOSUB ZO
\n7838 GOSUB VAL "8386"
\n7839 IF G=VAL "1" THEN RETURN 
\n7840 GOTO FM
\n7842 GOSUB VAL "8426"
\n7844 IF UL=VAL "1" THEN LPRINT TAB QQ-VAL "5";"S%I%N%C%E%R%E%L%Y,"
\n7846 IF UL=VAL "2" OR UL=VAL "0" THEN LPRINT TAB QQ-VAL "5";"SINCERELY,"
\n7848 GOSUB VAL "8426"
\n7850 IF UL=VAL "1" THEN LPRINT TAB QQ-VAL "5";"B%I%L%L J%O%N%E%S%S"
\n7852 IF UL=VAL "2" OR UL=VAL "0" THEN LPRINT TAB QQ-VAL "5";"BILL JONES"
\n7854 GOSUB PE
\n7855 IF G=VAL "1" THEN RETURN 
\n7856 GOTO FM
\n7888 PRINT AT CODE "\~~",VAL "7";"TYP DATE"
\n7890 INPUT Y$
\n7892 CLS 
\n7894 IF G=VAL "1" THEN LET Y$=O$
\n7895 LPRINT TAB QQ-LEN Y$/VAL "2";Y$
\n7896 IF PR=VAL "1" THEN GOSUB VAL "8232"
\n7898 IF PR=VAL "2" THEN GOSUB VAL "8434"
\n7900 LET NN=NN+VAL "1"
\n7901 IF G=VAL "1" THEN RETURN 
\n7902 PRINT AT CODE "\~~",VAL "6";"BUS HEAD?";AT CODE "£",CODE "\.'";"1 YES  2 NO"
\n7904 GOSUB IK
\n7906 CLS 
\n7908 IF PR=VAL "1" THEN GOSUB VAL "8280"
\n7910 IF T$="1" THEN GOTO VAL "7916"
\n7912 IF T$="2" THEN GOTO VAL "7942"
\n7914 GOTO VAL "7902"
\n7916 PRINT AT CODE "\~~",VAL "4";"TYP CO NAME"
\n7918 INPUT Y$
\n7920 LPRINT Y$
\n7922 PRINT AT CODE "£",CODE "\. ";"TYP ST ADR"
\n7924 INPUT Y$
\n7925 LPRINT Y$
\n7926 PRINT AT CODE ":",CODE "\. ";"CTY, ST, ZP"
\n7931 INPUT Y$
\n7933 LPRINT Y$
\n7934 CLS 
\n7936 IF PR=VAL "1" THEN GOSUB VAL "8232"
\n7938 IF PR=VAL "2" THEN GOSUB VAL "8434"
\n7940 LET NN=NN+VAL "3"
\n7942 PRINT AT CODE "\~~",CODE "\ '";"PERS NAME"
\n7944 INPUT Y$
\n7946 CLS 
\n7948 LPRINT "DEAR ";Y$
\n7950 IF PR=VAL "1" THEN GOSUB LF
\n7952 IF PR=VAL "2" THEN GOSUB SP
\n7954 LET NN=NN+VAL "3"
\n7955 IF G=VAL "1" THEN RETURN 
\n7956 LET ID=IDD
\n7957 GOSUB VAL "7430"
\n7960 GOTO FM
\n8038 CLS 
\n8039 IF T$="4" THEN GOTO VAL "8048"
\n8044 LET BG=U
\n8046 GOTO VAL "8062"
\n8048 IF BG=VAL "0" THEN GOTO VAL "8067"
\n8049 LET NP=U-CODE "\' "+LEN Y$
\n8050 IF BG>VAL "0" AND NP>VAL "0" THEN LET X$=Z$(BG TO NP)
\n8054 PRINT AT CODE "\~~",CODE "\ '";"DONE"
\n8056 PAUSE CODE "W"
\n8058 CLS 
\n8060 GOTO VAL "7686"
\n8066 IF NP=VAL "0" THEN PRINT AT CODE "\~~",CODE "\~~";"DONE"
\n8067 IF BG=CODE " " THEN PRINT AT CODE "\~~",CODE "\''";"YOU GOOFED TRY AGN"
\n8069 PAUSE CODE "% "
\n8072 CLS 
\n8076 IF BG=CODE " " THEN LET Y=CODE "\' "
\n8078 IF BG=CODE " " THEN LET BC=CODE "\' "
\n8080 IF BG=CODE " " THEN GOTO VAL "7596"
\n8082 IF NP=CODE " " THEN GOTO VAL "7596"
\n8084 IF BG=CODE " " THEN GOTO VAL "7590"
\n8086 IF NP=CODE " " THEN GOTO VAL "7616"
\n8088 FOR Y=CODE "\' " TO LEN X$ STEP VAL "479"
\n8090 IF LEN X$<Y THEN GOTO VAL "7686"
\n8092 IF Y+VAL "479"<LEN X$ THEN PRINT X$(Y TO Y+VAL "479")
\n8094 IF Y+VAL "479">=LEN X$ THEN PRINT X$(Y TO )
\n8096 PRINT AT CODE "=",CODE "\~~";"<ENT> WHN RDY"
\n8098 PAUSE VAL "4E4"
\n8100 CLS 
\n8102 NEXT Y
\n8104 GOTO VAL "8090"
\n8134 PAUSE VAL "4E4"
\n8136 LET T$=INKEY$
\n8138 IF T$="" THEN GOTO VAL "8134"
\n8140 CLS 
\n8142 RETURN 
\n8144 PAUSE VAL "4E4"
\n8146 LET T$=INKEY$
\n8148 IF T$="" THEN GOTO VAL "8144"
\n8149 IF T$<"1" OR T$>"2" THEN GOTO VAL "8144"
\n8150 CLS 
\n8152 RETURN 
\n8220 POKE ME,CODE "\~~"
\n8222 LET NN=NN+VAL "1"
\n8224 POKE ME,CODE "\~~"
\n8226 LET NN=NN+VAL "1"
\n8228 POKE ME,CODE "\~~"
\n8230 LET NN=NN+VAL "1"
\n8232 POKE ME,CODE "\~~"
\n8234 LET NN=NN+VAL "1"
\n8236 POKE ME,CODE "\~~"
\n8238 LET NN=NN+VAL "1"
\n8240 IF NN>=LN THEN GOSUB PE
\n8242 RETURN 
\n8246 POKE ME,CODE "/"
\n8248 POKE EN,VAL "0"
\n8249 LET LN=CODE "PI"
\n8250 POKE CT,VAL "0"
\n8251 LET LL=CODE "4"
\n8252 LET QQ=CODE "("
\n8253 IF ID=VAL "1" THEN LET LL=CODE ","
\n8254 IF ID=VAL "1" THEN LET QQ=CODE "$"
\n8255 IF G=VAL "1" THEN LET LN=VAL "85"
\n8256 RETURN 
\n8260 POKE EN,VAL "1"
\n8262 POKE CT,VAL "0"
\n8264 LET LL=CODE "RND"
\n8265 LET QQ=CODE "4"
\n8266 POKE ME,CODE "/"
\n8270 POKE ME,CODE "."
\n8272 POKE ME,CODE "PI"
\n8273 POKE ME,CODE "2"
\n8274 IF ID=VAL "1" THEN LET LL=CODE "Q"
\n8275 IF ID=VAL "1" THEN LET QQ=CODE "."
\n8276 RETURN 
\n8280 POKE ME,CODE "/"
\n8284 POKE EN,VAL "0"
\n8285 POKE CT,VAL "0"
\n8286 POKE ME,CODE "."
\n8288 POKE ME,CODE "PI"
\n8290 POKE ME,CODE "2"
\n8292 RETURN 
\n8296 POKE EN,VAL "0"
\n8298 POKE CT,VAL "0"
\n8300 POKE ME,CODE "/"
\n8302 POKE ME,CODE "."
\n8304 POKE ME,CODE "INKEY$"
\n8306 POKE ME,CODE "2"
\n8308 RETURN 
\n8312 POKE EN,VAL "3"
\n8314 POKE CT,VAL "0"
\n8316 LET LL=VAL "106"
\n8318 LET QQ=CODE "P"
\n8320 POKE ME,CODE "/"
\n8322 POKE ME,CODE "."
\n8324 POKE ME,CODE "INKEY$"
\n8325 POKE ME,CODE "1"
\n8326 IF ID=VAL "1" THEN LET LL=VAL "96"
\n8327 IF ID=VAL "1" THEN LET QQ=CODE "K"
\n8328 RETURN 
\n8332 POKE EN,VAL "2"
\n8333 POKE CT,VAL "0"
\n8336 LET LL=VAL "86"
\n8337 LET QQ=CODE "F"
\n8338 POKE ME,CODE "/"
\n8340 POKE ME,CODE "."
\n8342 POKE ME,CODE "PI"
\n8344 POKE ME,CODE "1"
\n8345 IF ID=VAL "1" THEN LET LL=VAL "76"
\n8346 IF ID=VAL "1" THEN LET QQ=CODE "A"
\n8348 RETURN 
\n8352 POKE EN,VAL "1"
\n8354 POKE CT,VAL "0"
\n8356 POKE ME,CODE "/"
\n8358 LET LL=CODE "4"
\n8359 LET QQ=CODE "("
\n8360 POKE ME,CODE "."
\n8362 POKE ME,CODE "PI"
\n8364 POKE ME,CODE "2"
\n8366 POKE ME,CODE "3"
\n8367 IF ID=VAL "1" THEN LET LL=CODE ","
\n8368 IF ID=VAL "1" THEN LET QQ=CODE "$"
\n8370 RETURN 
\n8374 RAND USR VAL "7804"
\n8376 RETURN 
\n8378 RAND USR VAL "7868"
\n8380 RETURN 
\n8384 LET IDD=ID
\n8385 LET ID=CODE " "
\n8386 IF PR=VAL "2" THEN GOTO VAL "7802"
\n8387 GOSUB VAL "8296"
\n8388 LET PG=PG+VAL "1"
\n8390 LET NN=VAL "1"
\n8392 POKE ME,CODE "£"
\n8394 LPRINT PG
\n8395 GOSUB ZO
\n8396 LET ID=IDD
\n8397 GOSUB VAL "7430"
\n8408 GOSUB VAL "8224"
\n8410 RETURN 
\n8426 LPRINT 
\n8428 LET NN=NN+VAL "1"
\n8430 LPRINT 
\n8432 LET NN=NN+VAL "1"
\n8434 LPRINT 
\n8436 LET NN=NN+VAL "1"
\n8438 LPRINT 
\n8440 LET NN=NN+VAL "1"
\n8442 IF NN>=LN THEN GOSUB VAL "7802"
\n8443 RETURN 
\n8474 CLS 
\n8476 PRINT AT CODE "\~~",VAL "2";"STRT REC, THN <ENT>"
\n8478 PAUSE VAL "4E4"
\n8482 SAVE "SMTX%T"
\n8483 CLS 
\n8484 FAST 
\n8485 LET LS=VAL "7250"
\n8486 LET G=CODE " "
\n8487 LET LN=CODE "O"
\n8488 LET AC=CODE " "
\n8489 LET CC=CODE " "
\n8490 LET PR=CODE "\ '"
\n8491 LET PG=CODE " "
\n8492 LET W$=""
\n8493 LET TE=VAL "7420"
\n8494 LET IDD=CODE " "
\n8495 LET PE=VAL "8384"
\n8496 LET ID=CODE " "
\n8497 LET ZO=7274
\n8498 LET ME=VAL "65535"
\n8499 LET EN=VAL "16507"
\n8500 LET UL=CODE " "
\n8501 LET CT=VAL "16508"
\n8502 LET K$="GULF MICRO ELECTRONICS"
\n8504 LET L$="1317 STRATFORD AVE"
\n8506 LET M$="PANAMA CITY, FLORIDA 32404"
\n8507 LET PS=CODE "\' "
\n8508 LET NN=CODE " "
\n8509 LET SD=CODE "\' "
\n8510 LET IL=VAL "8134"
\n8512 LET IK=VAL "8144"
\n8514 LET FM=VAL "7362"
\n8515 LET LF=VAL "8236"
\n8516 LET ZX=VAL "8248"
\n8517 LET SP=VAL "8438"
\n8520 GOTO VAL "7024"