L RFS (C) BEEBUG 1985 ? LEHIIh`h`HIh`HHHHH !@  Lhhhhh`!HELPwe *!HELPwe WORDEASE 1.2 R+SHIFT+BREAK *W.Hzl IFY$<"0"ORY$>"7"T.Y$="T" .a *FX213,50 V.7,26 CLS D. V.&9D86;&818D; P." EPSON PRINTING CODES" TI.2 P. V.131 P." Target Area: "; IFY$<>"T"T.G.b P."text" S.TE. G.c .b P."seg "+Y$ S.SE.VALY$ .c P. P." ON OFF FEATURE" P. V.134 P."A B Underlin#ing " V.134 P."C D Double-strike " V.134 P."E F Enlarged " V.134 P."G H Elite (OFF=Pica)" V.134 P."IJ K Emphasised,Condensed" V.134 P."L N Italic " V.134 P."OP Q Subscript,Superscript" V.134 P."R S American (Oy;#FF=English)" P. V.134 P."0-7,or T Change Target" V.134 P." X Exit to Target" V.134 P." M Exit to Main Menu" P. V.134 P."Select a letter to enter printer" V.134 P."code into text at cursor position" .d P. V.131 P."Select Option "; .e *FX15 #Z%=GET IFZ%<48T.G.e IFZ%>64T.G.f IFZ%>55T.G.e Y$=ST.(Z%-48) G.a .f IFZ%>96T.Z%=Z%-32 IFZ%<>84T.G.g Y$="T" G.a .g IFZ%<>88T.G.h DI. END .h IFZ%=77T.G.j IFZ%>76T.Z%=Z%-1 Z%=Z%-64 IFZ%>18T.G.e TY."|G" IFZ%=1T.TY."US" IFZ%=2T.TY."UE" IFZ%=3T.TY."DS" IFZ%=4T.TY#."DE" IFZ%>4T.TY."ES" IFZ%=5T.TY."87,1" IFZ%=6T.TY."87,0" IFZ%=7T.TY."77" IFZ%=8T.TY."80" IFZ%=9T.TY."69" IFZ%=10T.TY."70,15" IFZ%=11T.TY."70,18" IFZ%=12T.TY."52" IFZ%=13T.TY."53" IFZ%=14T.TY."83,1" IFZ%=15T.TY."83,0" IFZ%=16T.TY."84" IFZ%=17T.TY."82,0" IF*W.HRZ%=18T.TY."82,3" TY."|W" V.7 DI. END .i S.TE. DI. .j *FX15 *FX213,100 *FX138,0,1534@*W.IR IFY$<"0"ORY$>"7"T.Y$="T" .a *FX213,50 V.26,7 CLS D. V.&9D86;&8D81; P." INDIVIDUAL SYMBOLS" TI.2 P. V.131 P." Target Area: "; IFY$<>"T"T.G.b P."text" S.TE. G.c .b P."seg "+Y$ S.SE.VALY$ .c V.31;4 P. V.134 P."A. Scissors" V.134 P."B. Telephone"V# V.134 P."C. Copyright symbol" V.134 P."D. Arrow up" V.134 P."E. Arrow down" V.134 P."F. Arrow left" V.134 P."G. Arrow right" V.134 P."H. Therefore symbol" V.134 P."I. Approx symbol" V.134 P."J. Plus & Minus symbol" P. P. P. V.134 P."0-7,or T Change Targ#et" V.134 P." X Exit to Target" V.134 P." M Exit to Main Menu" P. V.131 P."Select Option "; .d *FX15 Z%=GET IFZ%<48T.G.d IFZ%>64T.G.e IFZ%>55T.G.d Y$=ST.(Z%-48) G.a .e IFZ%>96T.Z%=Z%-32 IFZ%<>84T.G.f Y$="T" G.a .f IFZ%=88T.G.g IFZ%=77T.G.r Z%=#=Z%-65 IFZ%>9T.G.d TY." |GES" IFZ%=0T.TY."75,8,0,108,170,108,40,16|R|GOC40,68,130" IFZ%=1T.TY."75,10,0,112,243,231,255,|R|GOC255,255,255,231,243,112" IFZ%=2T.TY."75,8,0,126,129,189|R|GOC165,165,165,129,126" IFZ%=3T.TY."75,8,0,0,16,48,255|R|GOC255,48,16,0" -#IFZ%=4T.TY."75,8,0,0,8,12|R|GOC255,255,12,8,0" IFZ%=5T.TY."75,8,0,24,24,60,126|R|GOC24,24,24,24" IFZ%=6T.TY."75,8,0,24,24,24,24|R|GOC126,60,24,24" IFZ%=7T.TY."75,6,0,6,6,96,96,6,6" IFZ%=8T.TY."75,7,0,10,10,18,34|R|GOC18,10,10" IFZ%=9T.TY."75,5,0,34,34,250,׼*W.I?634,34" TY."|W " .g DI. V.7 END .r *FX15 *FX213,100 *FX138,0,153W*W.JQ V.3 PROCy .a R%=TR. CLOSE#0 V.26 CLS P. D. V.&9D86;&818D; P." STANDARD PAGE HANDLER" TI.2 PROCw S%=0 *ROM R%=0 PROCb R%=67 P."TEXT DISC" *DISC PROCb G.g .b T%=65 .c X$="" V$="T."+CH.T% IFR%=0ANDT%=67T.G.f X%=OP.V$ IFX%=0T.G.f Y%=0 V.134 P.CH.(S%+65);9# P." "; V.131 P.V$; P." "; T%=T%+1 S%=S%+1 .d W$=GCF$#X% IFEOF#X%T.Y%=30 IFASCW$=13T.G.e IFW$<" "ORW$>"~"T.W$="." X$=X$+W$ Y%=Y%+1 IFY%<30T.G.d .e CLOSE#X% P.X$ G.c .f E. .g P. P. P. V.134 P."Select File "; .h PROCz Z%=GET IFZ%>90T.Z%=Z%-32 IFZ%<65ORZ%>64&#+S%T.G.h V.131 P." "; P.CH.Z% *ROM IFZ%>=R%T.*DISC IFZ%>=R%T.Z%=Z%-R%+65 Y%=0 V.134 P."Choose Seg/Text (0-7,or T) "; .i PROCz V$=GCK$ IFV$="t"ORV$="T"T.G.j IFV$>="0"A.V$<"8"T.G.k G.i .j S.TE. V.131 P."Text" Y%=1 G.l .k V.131 P."Seg "; P.V$ 2#S.SE.VALV$ .l PROCy V.28;24,39,15 CLS P. V.131 P."L. Load" V.131 P."C. Load to Cursor" V.131 P."T. Cursor Top" V.131 P."B. Cursor Bottom" V.131 P."S. Save" V.131 P."R. Re-run" V.131 P."M. Main Menu " P. V.134 W$="L" V$="T."+CH.Z% .m P."Select Option # "; V.134 P.""; D. V.8 TI.10 V.131 .n P.W$; .o X$=GCK$ IFASCX$=13T.G.p IFX$>"Z"T.X$=CH.(ASCX$-32) IFX$<>"T"A.X$<>"B"A.X$<>"L"A.X$<>"C"A.X$<>"S"A.X$<>"R"A.X$<>"M"T.G.o W$=X$ V.8 G.n .p IFW$="R"T.G.a IFW$="M"T.G.x IFW$="T"T.G.t IFW$="B"T.G.u V$="T."#+CH.Z% IFY%=1T.F$="T."+CH.Z% IFW$="C"T.G.q IFW$="L"T.G.r IFW$="S"T.G.v .q LO.TTCV$ G.s .r LO.TE.V$ .s DI. *DISC END .t C.TOP G.l .u C.BO. G.l .v *DISC SA.TE.V$ G.l .w V.28;24,39,4 CLS E. .y *FX213,50 V.7 *FX213,100 E. .z *FX213,200 V.7 *FX213,100 E. .x *FX=*W.Js15 *FX138,0,153 *DISC*W.KDATA*8REPLACE REPL DOLINE DOL PARAMS PAR PREVIEW PRE RECOUNT REC BGET# BG BOTTOM BO CALL CA CHR$ CH DELETE DE DISPLAY DI FALSE FA FILE FI FKEY FK FREE FR GLT$ GL LOAD LO OPENIN OP PAGE PA RIGHT RI SAVE SA SPOOL SP SEGMENT SE STR$ ST SWAP SW TEXT TE TIMES TI TRUEXv*W.KDATA9 TR TYPE TY VARFREE VA AND A BPUT# B CURSOR C DOTHIS D ENDPROC E FIND F GOTO G LEFT L MARKED M OSCLI O PRINT P REPEAT R SELECT S THEN T UNTIL U VDU V WORDS W*W.K a: IFY$<"0"ORY$>"7"T.Y$="T" IFY$="T"T.G.b .a S.SE.VALY$ DE.MARKERS W$="Seg "+Y$ G.c .b s.te. W$="Text" .c *FX213,50 V.7 *FX213,100 IFY$>="0"A.Y$<="9"T.W$="Seg "+Y$ IFY$="T"T.W$="Text" V.14,3,26,12 D. V.&9D86;&8D81; P." PROGRAM UTILITIES" TI.2 V.28;25,39*#,2 P. V.131 P." Target Area: "+W$ P. P. V.134 P."A. List Vars + Labels" P. V.134 P."B. REM Remover" P. V.134 P."C. Space Remover" P. V.134 P."D. Label Cruncher" P. V.134 P."E. Keyword Cruncher" P. V.134 P."F. Keyword Decruncher" P. V.134 P." e# M Main Menu" V.134 P." 0-7,T Change Target" V.134 P." X Exit to "+W$ P. P. V.131 P."Select Option "; .d X$=GCK$ IFASCX$>90T.X$=CH.(ASCX$-32) IFX$="X"T.G.s IFX$="B"T.G.t IFX$="A"T.G.g IFX$="C"T.G.x IFX$="D"T.G.an IFX$="E"T.G.ag IFX$="F"T.G.ag r#IFX$="M"T.G.bd IFX$="T"T.G.e IF(X$>="0"A.X$<"8")T.G.f G.d .e Y$=X$ G.b .f Y$=X$ G.a .g X%=65 W$="%" V.26 CLS D. V.&9D86;&8D84; P." LIST VARIABLES AND LABELS" TI.2 V.28;24,39,2 .h P. V.131 P."Hardcopy Y/N "; V.134 S$=GCK$ IFS$<>"Y"A.S$<>"y"T.G.i P."Yes" Ĭ#V.2,15 G.j .i P."No" .j P. V.134 P."Numeric" .k C.TOP V$=CH.X%+W$ .l F.V$ IFEOTT.G.n IFW$="%"T.G.m C.L.2 X$=GCT$ X$=X$+GCT$ C.RI. IFX$="CH"ORX$="GC"ORX$="GL"ORX$="ST"T.G.l .m P." "; P.V$ .n X%=X%+1 IFX%<91T.G.k IFW$="$"T.G.o P. V.134 P."String" W$="$ #" X%=65 G.k .o P. V.134 P."Labels" C.TOP .p V$=GCT$ IFASCV$=13T.C.L. W$=GL. IFV$<>"."T.G.q P." "; P.W$ .q IFEOTT.G.r G.p .r C.TOP V.3 G.bb .s DI. END .t S$="REM REMOVER" PROCaz IFS$<>"Y"T.G.c V.31,5,12,134 P."Line Number" V.31,5,14,134 P."Bytes Saved&I#" X%=0 Y%=0 C.TOP .u Y%=Y%+1 V.5151;12,131 P.Y%; V.5151;14,131 P.X%; W$=GCT$ IFW$<>"R"A.W$<>"r"T.G.w W$=GCT$ IFW$<>"E"A.W$<>"e"T.G.w W$=GCT$ IFW$<>"M"A.W$<>"m"T.G.w .v C.L. C.AT0 FK.3 W$=GL. FK.3 DE.M. X%=X%+LENW$+1 IFEOTT.G.bb G.u .w C.L. F.CH.13 IFEOTT.Gt#.bb C.RI. G.u .x T$="" S$="SPACE REMOVER" PROCaz IFS$<>"Y"T.G.c X%=0 Y%=0 V.31,5,10,134 P."Line Number" V.5151;10,131 P.Y% V.31,5,12,134 P."Bytes Saved" V.5151;12,131 P.X% C.TOP .y S%=0 W$=GCT$ IFW$<>"R"A.W$<>"r"T.G.z W$=GCT$ IFW$<>"E"A.W$<>"e"T.G.z W$=GCTR#$ IFW$<>"M"A.W$<>"m"T.G.z G.ad .z W$=CH.13 C.L. C.AT0 .aa IFW$<>" "T.T$=W$ W$=GCT$ IFW$="&"T.PROCac IFASCW$=34T.S%=S%+1 IFW$="*"T.PROCab IFEOTT.G.ae IFASCW$=13T.G.ad IFW$<>" "ORS%MOD2=1T.G.aa DE.L. X%=X%+1 V.5151;12,131 P.X% G.aa .ab IFS%MOD2=0A.(T$=CH.13O3p#RT$="N"ORT$="n"ORT$=".")T.F.CH.13 E. .ac IFS%MOD2=1T.E. R. W$=GCT$ U.W$<"0"OR(W$>"9"A.W$<"A")ORW$>"F"OREOT IFW$=" "T.W$=GCT$ E. .ad V.5151;10,131 Y%=Y%+1 P.Y% G.y .ae C.TOP W$=CH.13 V$=W$+W$ .af R. REPL.V$,W$ X%=X%+1 U.EOT V.5151;12,131 P.X% G.bb .ag IFX$=#"E"T.S$="KEYWORD CRUNCHER" IFX$="F"T.S$="KEYWORD DECRUNCHER" PROCaz IFS$<>"Y"T.G.c C.TOP CLOSE#0 *ROM X%=0 T%=OP."W.KDATA" V.31;14,134 P."Current Keyword"; V.131,31;16,134 IFX$="E"T.P."Bytes Saved"; IFX$="F"T.P."Bytes Lost"; V.131 R. W$=GLF$#T% V$=GLF$#T%+#"." Y%=LENW$-LENV$ IFX$="E"T.G.ah R$=W$ W$=V$ V$=R$ .ah V.5151;14 P.W$+" " C.TOP R. .ai F.W$ IFEOTT.G.am TY."`" S%=0 Z%=0 .aj R%=Z% R. C.L.2 Z%=ASCGCT$ U.Z%<>32ORSOT IFZ%=34T.S%=S%+1 IFR%=42A.S%MOD2=0A.(Z%=13ORZ%=78ORZ%=110ORZ%=46)T.G.ak IFZ%<>13T.G#.aj R. R%=ASCGCT$ U.R%<>32 IFR%<>82A.R%<>114T.G.al R%=ASCGCT$ IFR%<>69A.R%<>101T.G.al R%=ASCGCT$ IFR%<>77A.R%<>109T.G.al .ak C.AT0 F."`"+W$ DE.AT C.RI. G.ai .al IFS%MOD2=1T.G.ak C.AT0 REPL."`"+W$,V$ X%=X%+Y% V.5151;16 P.X% .am U.EOT U.EOF#T%ORV$="WORDS" CL@#OSE#0 *DISC G.bb .an S$="LABEL CRUNCHER" PROCaz IFS$<>"Y"T.G.c V.31;12,134 P."Label" P. V.134 P."Renamed" P. V.134 P."Bytes Saved" X%=0 Y%=96 Z%=96 R$="" T$=CH.13+"." C.TOP .ao PROCau C.TOP .ap F.T$ IFEOTT.G.at C.RI.2 W$=GL. IFLENW$<=LENR$+1T.G.ap C.L.LENW#$+2 TY."{" V.3871;12,131 P.W$+" " V.3871;14,131 P.V$ REPL.W$,V$ X%=X%+LENW$-LENV$ C.TOP .aq F.W$ IFEOTT.G.as U$=GL. C.L.LENU$ IFW$<>U$T.G.aq R. C.L.2 R%=ASCGCT$ U.R%<>32 IFR%<>79A.R%<>111A.R%<>67A.R%<>99A.R%<>46T.G.ar REPL.W$,V$ X%=X%+LE#NW$-LENV$ G.aq .ar F.W$ C.RI. G.aq .as V.3871;16,131 P.X% G.ao .at C.TOP R. REPL."{.","." U.EOT G.bb .au .av C.TOP Y%=Y%+1 IFY%<123T.G.aw Y%=97 Z%=Z%+1 R$=CH.Z% .aw V$="."+R$+CH.Y% .ax F.V$ IFEOTT.G.ay IFGL.=V$T.G.av G.ax .ay V$=R$+CH.Y% E. .az CLS D. V.&9'#D86;&8D84; P." "+S$ TI.2 P. P. *FX213,200 V.1923 *FX213,50 P."Confirm Execution on "+W$+" "; P."(Y/N)"; .ba R. *FX15 S$=CH.GET IFS$="n"T.S$="N" IFS$="y"T.S$="Y" U.S$="Y"ORS$="N" V.134 IFS$="Y"T.P."Yes" C.TOP X%=ASCGCT$ C.TOP IFX%<>13A.S$="Y"T.TY.CH.P*W.Kz13 E. .bb C.TOP IFASCGCT$=13T.DE.L. P. P. P. V.7 V.31;22,131 P."Execution Complete" P. V.131 P."Press Any Key "; X%=GET G.c .bd *FX15 *FX138,0,153dp*W.L։ R$="LABELS" .a X$="1" U$="8" W$="8" S$="1" T$="2" V$="46" .b R%=0 X%=TR. CLOSE#0 V.26,12 D. V.&9D86;&8D81; P." LABEL PRINTER" TI.2 V.28;24,39,2 D. P. TI.2 V.134 P." A. Quantity each label.."; V.135 P.X$ V.134 P." B. Left hand margin....."; V.135 Pp"#.U$ V.134 P." C. Lines per label......"; V.135 P.W$ V.134 P." D. Lines between labels."; V.135 P.S$ V.134 P." E. Number of columns...."; V.135 P.T$ V.134 P." F. 2nd column from edge."; V.135 P.V$ V.134 P." G. Label's filename....."; V.135 IFR$=""T.P."?"; P?#.R$ D. P. TI.2 IFVALX$>0T.G.c R%=1 PROCx G.f .c IFVALW$>0T.G.d R%=3 PROCx G.f .d IFVALU$>0T.G.e R%=2 PROCx G.f .e IFVALT$>0A.VALT$<3T.G.f R%=5 PROCx .f IFLENR$>0A.LENR$<8T.G.g R%=7 PROCw .g IFR%>0T.G.b V.134 P." A-G Change Value" V.134 P." H Hard1#copy" V.134 P." P Printer Test" V.134 P." S Sort Labels" V.134 P." M Main Menu" V.134 P." T Exit to Text" P. V.131 P."Select Option "; .h *FX213,50 V.7 R%=GET IFR%>96T.R%=R%-32 IFR%=84T.G.ae IFR%=77T.G.af IFR%=83T.G.aa IFR%=72ORR%=8vz#0T.G.j IFR%<65ORR%>71T.G.h .i R%=R%-64 P.CH.(R%+64) X%=FA. IFR%<8T.PROCz IFR%<8T.G.b .j V.31,6,12 IFR%=80T.V.10 V.131,31;19 X%=R% R%=OP.R$ IFR%>0T.G.k R%=7 X%=TR. G.ad .k P. P. X%=X%=72 IFX%<>TR.T.X%=2 V.2 D. PROCu Y%=S% IFVALT$=2T.PROCt IFVALT$=2T.Z%=T% Pb#ROCl X%=X%-1 U.EOF#R%ORX%=0 CLOSE#0 V.3 G.b .l D. S%=Y% T%=Z% PROCn IFVALS$=0T.G.m D. P. TI.VALS$ .m TI.VALX$ E. .n D. PROCo TI.VALW$ E. .o IFVALU$=1T.G.p D. P." "; TI.VALU$-1 .p PTR#R%=S% PROCs IFASCP$VALV$T.G.r D. P." "; TI.VALV$-LENP$-VALU$ .r P.Q$; IFASCQ$45A.(X%<65ORX%>90) FK.3 C.AT0 TY." " C.AT0 FK.8 T%=T%+1 V.31,19; P.T%; .f2 U.EOT IFT%>0T.G.st CLS P. P." NO ADDRESSES IN TEXT AREA!" P. P." Press a key to confirm:"; X%=GET G.aa .st P. C.BO. DE.L. C.TOP DE.AT S%=T% .s0 C.TOP FK.3 C.RI. #P$=GL. Y%=1 .s1 F."|R|R" C.RI.2 Q$=GL. IFP$1T.G.s0 .ac C.TOP FK.3 F."|R|R" C.RI. FK.3 C.BO. FK.8 CLS V.131 P."Completing:"; V.1#34 S%=0 P.S%; C.TOP TY."|R" C.TOP D. F."|R|R" C.RI.2 FK.3 F." " DE.AT FK.3 C.AT39 FK.8 V.31,13; P.S%; P."/"; P.T%; S%=S%+1 TI.T% SA.TE.R$ G.b .ad V.133 P." No such file!" P. P." Press a key to acknowledge" V.6943;8 IFGETT. G.b .ae S.TE. C.TOP DIr*W.L '-. END .af *FX15 *FX213,100 *FX138,0,153*W.M CLS *FX213,50 P$="FULL NAME" Q$="FULL ADDRESS" R$=""|date S$="SECONDARY NAME" T$="ADDRESS LINES" U$="LAST LINE" V$="Dear Surname," W$="Dear Forename," X$="LABELS"|filename .a CLOSE#0 S.TE. DE.MARKERS .b V.3098 D. V.&9D86;&8D81; P." MAIL MERGE" T_#I.2 D. P. TI.2 V.131 P." LETTER LAYOUT" P. P. V.134 P."A. Full Name" V.134 P."B. Full Address" V.134 P."C. Date" P. V.134 P."D. Secondary Name" V.134 P."E. Address Lines" V.134 P."F. Last Line (Spare)" P. V.134 P."G. Mr,Mrs,Miss,Ms,Dr Surname" V.#134 P."H. Forename" D. P. TI.2 V.134 P." A-H Enter Position in Text" O$="P Printer Menu" PROCf R. V.7 Y%=GET IFY%>96T.Y%=Y%-32 U.Y%>64A.Y%<73ORY%=80ORY%=77ORY%=84 IFY%=84T.G.e IFY%=77T.G.v .c IFY%=80T.G.g .d TY."|GPS"+CH.(Y%+15)+"$|W" .e S.TE. DI. END z#.f V.134 P." M Main Menu" V.134 P." T Exit to Text" V.134 P." "+O$ P. V.131 P."Select Option "; E. .g CLS D. V.&9D86;&8D84; P." MAIL MERGE" TI.2 D. P. TI.2 V.131 P." PRINTER MENU" P. P. V.134 P." A. Label's filename:"; V.135)# IFX$=""T.P."?"; P.X$ V.134 P." B. Date on Letter:"; V.135 IFR$=""T.P."no date" IFR$>""T.P.R$ P. V.134 P." H. Hardcopy" V.134 P." S. Start Screen Print" P. O$="L Letter Layout Menu" P. PROCf .h *FX213,50 V.7 Y%=GET IFY%>96T.Y%=Y%-32 *FX213,200 IFY%=65T./#G.j IFY%=66T.G.k IFY%=84T.G.e IFY%=77T.G.v IFY%=76T.G.b IFY%=83ORY%=72T.G.l G.h .i IFY%=67T.G.k .j V.5919;7 P." " V.5919;7,7 X$=GLK$ G.g .k V.5919;8 P." " V.5919;8,7 R$=GLK$ G.g .l Z%=Y% IFX$=""T.G.m IFLENX$>7T.G.m Y%=OP.X$ IF#Y%>0T.G.n .m P. P. V.133,7 P." no such file!" P. P." Press a key to acknowledge" V.5919;7 IFGETT. G.g .n P. P. P."Reading file..."; Z%=Z%=72 PROCu TY."|G{\~^|W" IFZ%=TR.T.G.o TY."|R|R|GDS|WPress a key|GDE|W|R|GPA|W" .o *FX210,1 R. PROCp IFZ%=FA.TN#.PRE.TE. IFZ%=TR.T.PROCt U.EOF#Y% *FX210 PROCu G.a .p R. P$=GLF$#Y% U.P$<>"" S$=GLF$#Y% S.TE. C.BO. TY."|R" FK.3 R. O$=GLF$Y% TY."|R"+O$ U.O$=""OREOF#Y% DE.L.1 C.AT0 U$=GL. C.AT0 REPL.U$,"" C.TOP F.MARKERS C.DOWN T$="" R. O$=GL. IFLENT$>0T.T$=T$+CH.13+CH.1*n#0+O$ IFT$=""T.T$=O$ U.EOT Q$=S$ IFLENT$>0T.Q$=Q$+CH.13+CH.10+T$ Q$=Q$+CH.13+CH.10+U$ FK.3 FK.7 FK.3 TY."|R" TY.P$ .q V$="" O$="MRS" W$="Mrs" PROCr O$="MR" W$="Mr" PROCr O$="MISS" W$="Miss" PROCr O$="MS" W$="Ms" PROCr O$="DR" W$="Dr" PROCr IFV$=""T.V$="Mr" #C.BO. C.L. R. C.L. C.L. X%=&DF A.ASCGCT$ U.X%<>45A.(X%<65ORX%>90) O$=GCT$ DE.L. R. X%=ASCGCT$ IFX%=44T.X%=TR. IFX%<96T.X%=X%+32 O$=O$+CH.X% DE.L. U.EOT V$=V$+" "+O$ C.AT0 R. O$=GCT$ U.ASCO$>64OREOT C.L. W$=GCT$ X%=TR. R. IFX%<96T.X%=X%+32 W$=W$+CH.X% X%=&Dt#F A.ASCGCT$ U.X%<>45A.(X%<65ORX%>90) IFLENW$<2T.W$=V$ C.BO. FK.3 FK.7 E. .r C.AT0 F.O$ IFEOT=0T.G.s C.AT0 O$=W$ F.O$ IFEOTT.E. .s C.L. IFGCT$<>CH.13T.E. V$=W$ REPL.O$,"" E. .t P.TE. V.2,1,12,3 C.TOP F."|GEM" IFEOTT.E. *FX210 P."PAPER! Press a key"+CH.7; Ih*W.M eFGETT. *FX210,1 CLS P."Working"; E. .u C.TOP F."{\~^" IFEOTT.E. DE.L. FK.3 C.BO. FK.3 FK.7 E. .v O$="" P$="" Q$="" R$="" S$="" T$="" U$="" V$="" W$="" X$="" *FX15 *FX138,0,153P+/7asϽ+-_DܐJC)S@ ~[lw{-@Ϻ