' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLouL 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 ` L巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL vLQ ş`  !"#$%&'()*+,-./0123456789:;<=>?   1#" *"$ (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0".((*!!.<,$94>94="4;,E!8B +!X0#  PH !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌` DF DFL\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD#LHH`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDɍL`cpq` [` ~  LӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\ IOÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQ0 L& Lѿ Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV ş  eօ3LµL &RL &QL d L4 We)n ``ɽƴLL#.7>BKnQ[e  򶭿f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 \  ȟ Q ^\lZl^^tH şh`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67` NILOASAVRUFDUMDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCAMONOMOPRINMAXFILEFINBSAVBLOABRUVERIFIF!pppp p p p p`" t""#x"p0p`p@@@p@!y q q p@ ,\Z[PRN,XɄOɊRQF(0Bhhhw4h/ ^0(p ߩRP1Q ɿ, P\L˵B̵C8pB߮Z\  յյ\BIR Z-^ Jp\IZLL-(Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B ߼ / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `H8DHF FhDhihh ş`, ŵBѵ`, ѵB8` NO LANGNO DIRECRANGEPROTECTEEND OF DATNOT FOUNVOLUMEI/ODISK FULLOCKENO BUFFERFILE TYPETOO LARGSYNTAX ERROҢǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` Bl şL/Ơĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"BLP 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐``"L ŵ8ŵH x(`F d ֠z# ҠخӠ2 Ҡؠ ٠ӠϠˠ٠ӮͮӠ٠Ӯ͠ҮӠ% Ҡ    Fzz`<--     ٠ĠŮ󺠠젠砠Ӡ٠ʮĠ󠠠㮠򠠠嬠宠栠嬠㮩󮠠⮠󮠠䬠䠠ᮠ䠠堠䠠򠠠󠠠󮠠堠󮠠ؠ堠砠8 $ w$ : = s $$ =$ wP{$%Q \ s,ɺH$ $  :΅υ s =hɕ/ɋ.Ɉ*Ɋ#ɛTɍZܐ͂) 0,ޠ 8 ް٥ ϩɥũޅC i!MΥϱP͎iΐϥݭ*ijΥ!j X { L W Wȩ \ۈ ک \۩ \ W۠^I \ W۩ \۩ \! ڥ` {ݥ HF!J8h8ePΥϤ%άźƬƪŠҮɢˠҮɢФӠŮФΠҮɢĤŢԢ٠šĤàŢč΍ΠŢĤŠŢˠҮɢĠҮɢҢѠ򠠠%6 XŠŠƠӠii Ȅ% $$ Bڥ$ \۩ \ Wۤ : ڦʽ ݥ$ 0 \۩ \ W݈ eei = ڦ Ƥ%Ȅ  'ަʆΊ eeޅ eeΥiϭ8e eei!MΥϱP͎iΐϥݭ*ijΥ!j X { L W Wȩ \ۈ ک \۩ \ W۠^I \ W۩ \۩ \! ڥ` {ݥ HF!J8h8ePΥϤ j݅H h c(`   8Lz0MENUMENU GENERATOR.RM, , ޅ ߅ { RP QLފ8 0 ۝  i ۝ ۩L L LB LXFIDAPPLE ID.RMxЍԍ؍j0a0T0O XʚhiɅhi*Hh8鑠(L*Hh(p `@ )i҅i h Hl+H L X l hLL8 /I LDATA DISKCOPR. 1982-RER SOFTWAREW 820310R1820326R2830221GCLEARCLEAR SCREEN.RM $ ީE ީO P   HIe E9)H i8ȱ)HHȑH   HIsq XʽiiwYilqirȄ 婍qHHȑH   HIH`H Thi)hiёȭ018f84 i8*8e;*:;;:0.5ʆ4HȥH8c_HH i8:ȱI;$8&&;ff:ȥ8С?? 4iUi 5i 5, { lݠ:  , g ::ɑ,($ 4 @ HI HHH H   HIc Hiviiz<i=BCBHBhBC=<`@-eff L ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLINITINIT.RM8\vcu آcL+AMPRESTORE AMPERSAND.RMưȱ`FIXBAND-AID. ML֓SWITCHDSR/SDS SWITCH.RM Xiʽi܅I I Xʽiii<i=OBCBHBhBC=< XʽEN.RM j݅`ast `aꍁ% 0Lc Lk?INPUTSTRING INPUT.RM  " ީ; = l݅ , L#NORMRESET NORM.RM8`dONERRRESET ONERR.RM OHx Xi'<i=Xh<<= o` 33 ީ; = l݅ ;b {ݠ 5 P;@ LLአ $'L@ @ $%($$ " ; , J+ $8d0 ˥opooȥoȥp$P  F `LBLENBLHH 0:, jݪ + , ޥۤ jݪ +`=CTRCENTER.RM { J:# ,0 e! P" , Q ! `5L GETGET.RM" NOT INSTALLED!"Q$:I2I219U[C2$(I2)"1740REM":I2I21oU`C2$(I2)"PRINT"Q$"GRAPHICS DELETED."Q$:I2I21uUjU'"ERR",EC,ELU'EC99į"FIX":100U'216,0:U$'UCOPYRIGHT 1984UROGER WAGNERUPUBLISHING,INC.JERRERR.RMhh2I21 T8'TBC1$(I1)"7REM":I1I11CTGC1$(I1)"19REM":I1I11{TLC1$(I1)"31 IFNOTPDTHENGF$=CHR$(7)+CHR$(6)":I1I11TQC2$(I2)"2031REM":I2I21UVC2$(I2)"1722 IFNOTPDTHENIFGF$=LEFT$(IN$,2)THENIN$="Q$"GRAPHICS HERE? GRAPHICS MOD IN HELPER IS2031 IFNOTPDTHENGF=0":I2I21S.C2$(I2)"1722 IFNOTPDTHENIFGF$=LEFT$(IN$,2)THENGF=NOTGF:IN$=MID$(IN$,3):IFNOT(IN$="Q$Q$")THENGF=1:CALLGP,IN$":I2I21S3C2$(I2)"1740 IFNOTPDANDGFTHEN1775":I2I21T5C2$(I2)"PRINT"Q$"GRAPHICS ABILITY ADDED."Q$:IwRC1$(I1)"7 &RECALL PD,PD:IF NOTPD THEN PRINTCHR$(4)"Q$"BRUNPRINTFILE.COR,A"Q$";PEEK(109)+PEEK(110)*256":I1I11RC1$(I1)"19 IF NOT PD THEN GP=PEEK(115)+256*PEEK(116)":I1I11R$C1$(I1)"31 IFNOTPDTHENGF$=CHR$(7)+CHR$(6)":I1I11S)C2$(I2)"MNO LOWER CASE":I1I11LQ LC$"Y"C1$(I1)"70 PF=1:REMLOWER CASE":I1I11Q C2$(I2)"PRINT"Q$"SCREEN DISPLAY CONFIGURED."Q$:I2I21Q(VD$"9")(VD$"2")C0$(I0)"6REM"(13)"185REM":I0I01QQINSTALL GRAPHICS MODSQGF$"2"3650$":VID=80":I0I01:C0$(I0)"185?CHR$(4);"Q$"BLOAD SUPERTERM,A768"Q$":&STORERF,768;BL,223":I0I01:SPECIAL DRIVERP C2$(I2)"1704IFLC=27THENPRINTCHR$(12):GOTO 1709":I2I21:C2$(I2)V2$"12)":I2I21:3570:SUP'R TERMQ LC$"N"C1$(I1)"70 PF=0:RE)V2$"26);"Q$"4"Q$":?D$"Q$"PR#0"Q$":?D$"Q$"IN#0"Q$:I2I21:3570:VISTA VISION 80O C2$(I2)V1$"GOTO1709":I2I21O C2$(I2)V2$"26);"Q$"1"Q$:I2I21:3570:VIEWMAX 80O :O MICROTEK 80 COLUMNvP C0$(I0)"6?:?CHR$(4);"Q$"PR#3"Q:C0$(I0)"185?CHR$(4)"Q$"BLOAD VIDEOTERM,A768"Q$":&STORERF,768;BL,160;VDX,192":I0I01:3570:VIDEX ULTRATERM @ 80 X 48N C2$(I2)V1$"GOTO 1709":I2I21N C2$(I2)V2$"21)":I2I21:3570:ALS SMARTERMN C2$(I2)V1$"GOTO 1709":I2I21]O C2$(I2 - 16207,0":I2I21:3570:WIZARD 80M C2$(I2)V1$"?CHR$(22);"Q$"6"Q$";CHR$(12) :GOTO1709":I2I21:C0$(I0)"6?:?CHR$(4)"Q$"PR#3"Q$":?:?CHR$(23)"Q$"17"Q$": POKE 49328,10: POKE 49392,32:VID = 80":I0I01{N C2$(I2)V2$"22)"Q$"0"Q$:I2I211L C2$(I2)V2$"22)"Q$"0"Q$:I2I21:C0$(I0)"185?CHR$(4)"Q$"BLOAD VIDEOTERM,A768"Q$":&STORERF,768;BL,160;VDX,192":I0I01:3570:VIDEXL C2$(I2)V1$"GOTO 1709":I2I21$M C2$(I2)"1786IFLC=27THEN?D$"Q$"PR#0"Q$":?:?D$"Q$"IN#0"Q$":POKE OL 'OFF'":I2I21:3570:NO 80 COL.FK C2$(I2)V1$"GOTO1709":I2I21oK C2$(I2)V2$"12)":I2I21:3570://EL C2$(I2)V1$"GOTO1709":I2I21:C0$(I0)"6?:?CHR$(4)"Q$"PR#3"Q$":?:?CHR$(23)"Q$"17"Q$": POKE 49328,10: POKE 49392,32:VID = 80":I0I0KE,128":I1I113J EN$"N"C1$(I1)"4REM":I1I11xJ (VD$)13520,3522,3524,3526,3528,3530,3532,3534,3536,3538,3540J C2$(I2)"1704IFLC=27THEN&CLEARTP:PRINT"Q$"NO 80 COLUMN CARD."Q$":&GETT: GOTO 1790":I2I21#K C2$(I2)"1786IFLC=27THEN:REM80 CP":D$;"PR#0":(I "MENU",A$(1),0,M$:oI 1:"CLEAR"EOL:S$;:36,(33)1("ESCAPE: "E$):"ESCAPE: ";E$:I INSTALL SCREEN MODSI V1$"1704IFLC=27THEN?D$"Q$"PR#3"Q$":?:&HOME:"I V2$"1786IFLC=27THENPRINTCHR$("J EN$"Y"C1$(I1)"4&STOREH"50?D$"Q$"CLOSE"Q$;H"PRINT"Q$"NEARLY DONE!"Q$kH"60?D$"Q$"EXEC MODFILE"Q$":END":"RUN"{H D$;"CLOSE"H""WINDOW",12:13H%D$;"EXEC MODFILE":H*"CHANGES SAVED.":I1900:I:H 34,(34)2:I 34,(34)2:D$;"PR#1":"DUM$;"Q$",$67,BP:B=BP+"Q$";PEEK(768)+256*PEEK(769);"Q$"+2*W:PO=0:A=B:BW=B:&RECALLEN,E:&STOREPF,PF*128"Q$G"30?"Q$"SAVE COR.I"Q$":?"Q$"LOCK COR.I"Q$G"40?"Q$"?"Q$"+QP$+"Q$"MODIFICATIONS DONE."Q$"+QP$":"45?"Q$"RUN HELPER.II"Q$C1$(I):I*F"SAVE COR.I":"LOCK COR.I"FF "NEW":"5QP$=CHR$(34)"F"10D$=CHR$(4):?D$"Q$"OPEN MODFILE"Q$":?D$"Q$"WRITE MODFILE"Q$F"15?"Q$"UNLOCK COR.I"Q$:"20?"Q$"LOAD COR.I"Q$lG"25?"Q$"80CALLIR"Q$";QP$;"Q$"PTRD"Q$";QPC2$(I):I,E"SAVE COR.II":"LOCK COR.II"E"L=PEEK(175)+256*PEEK(176)-PEEK(103)-256*PEEK(104):POKE 768,L-INT(L/256)*256:POKE 769,INT(L/256)"EI122060:COR.I CHANGESE"UNLOCK COR.I":"LOAD COR.I" FI1I11:"PRINT";I1I;";"Q$"..."Q$:ESPONDENT":"LOAD CORRESPONDENT"]DI1I01:"PRINT";I0I1I2I;";"Q$"..."Q$:C0$(I):ID"SAVE CORRESPONDENT":"LOCK CORRESPONDENT"DI222040:COR.II CHANGESD"UNLOCK COR.II":"LOAD COR.II" EI1I21:"PRINT";I1I2I;";"Q$"..."Q$:280CC"ERR":D$"CLOSE":H(I)K::"DISK ERROR!"::10000:285YCSAVE ALL CHANGESrC(I01I11I21)ıCD$"OPEN MODFILE":D$;"WRITE MODFILE"C"FP"C"PRINT"Q$"SAVING CHANGES..."Q$CI022020:CORRESP. CHANGES D"UNLOCK CORR HELP.";H$(I,0)&B"INPUT",H$(I,K1)6BKK1:1020[B"ERR":D$"CLOSE":H(I)K:10000bB IhB~BWRITE HELP FILESBI1H:1550BD$"OPEN HELP.";H$(I,0):D$"WRITEHELP.";H$(I,0)BJ1H(I)BH$(I,J)BJBD$"CLOSE"BICC1$(I1)"35 IF I$="Q$" "Q$"THEN W="(W)":PL="(PL)":DS="(DS)":FM="(FM):I1I11eA300zAREAD HELP FILESAH$(1,0)"LETTER":H$(2,0)"WORD":H$(3,0)"BLOCK":H$(4,0)"OTHER"AI1H:H(I)0:K0:1030BD$"OPEN HELP.";H$(I,0):D$"READ36,29:PL0@PL1PL255ĺ(7);:(37)1:745@:"INPUT","LINE SPACING? (DEFAULT=1) ";I$:DS(I$)(I$""):I$""Ģ(37):36,30:DS@DS1DS2ĺ(7);:(37)1:755@:"IS THE ABOVE CORRECT? (Y/N)";:"GET",I$"YNyn"(27),1:I$"N"700\A"):FM0FM1ĺ(7);:(37)4:725?:"INPUT","COLUMN WIDTH? (DEFAULT=60) ";I$:W(I$)60(I$""):I$""Ģ(37):36,29:W?W5W2VIDW255ĺ(7);:(37)1:735 @:"INPUT","LINES PER PAGE? (DEFAULT=66) ";I$:PL(I$)66(I$""):I$""Ģ(37):>"WHAT FILE FORMAT?":J>"1) BINARY FILE":"2) SEQUENTIAL TEXT FILE">:"WHICH WOULD YOU LIKE?":"(DEFAULT='BINARY') ";:"GET",K$"12"(13)(27),1:K$(13)Ģ(37):36,29:"BINARY":K$"">K$(27)300"?FM(K$)1(K$""K$"B")2(K$"S256F=D$"UNLOCK PRINTFILE.COR":D$;"BSAVE PRINTFILE.COR,A";A;",L";LP=3600~=:"GRAPHICS ";::"ADDED."::I1600:I=300=SET UP SPACE BAR DEFAULTS=V20:VID40="WINDOW",7::M$"'SPACE BAR' PAGE FORMAT":3020:"WINDOW",10=(27)300-<D$;"BLOAD PRINTFILE.RM,A";ALC<"BLEN",L1:LLL1<::"REMOVE";::" THE PRINTOGRAPHER DISKETTE,":"INSERT THE WRITE CHOICE DISKETTE,":"AND PRESS .";:"GET",I$(13)(27),1::I$(27)300=A1,(L256):A4,L(L256)ʁI1600:I:3600:300);qGF$(27)300T;vL0:L10:A0:I$"":A(109)256(110)v;{D$;"BLOAD PRINTFILE.HDR,A";A;"BLEN",L <:"INSERT YOUR ";::"CONFIGURED";::" PRINTOGRAPHER":"DISKETTE, AND PRESS .";:"GET",I$(13)(27),1::I$ESET NORM.RM8`+AMPRESTORE AMPERSAND.RMưȱ` GETGET.RM" ީ; = l݅ ;b {ݠ 5 P;@ LLአ $'L@ @ $%($$ " ; , J+ $ k k kkkkQАMKAE IOUkk!?.kkkkkk jjo k!.? - k k`dRESETRESET ONERR.RM OHx Xi'<i=Xh<<= o` 33vcu آL#NORMRCHLޅȢħ^ $0 ^ F8婅"IJi, Wۈ8fħ)^ $0^ ƫƩ W۩ F \Ӥ Wۈ ;LLPROCINPUT PROCESSOR.CAPS.RM ߢ u 9ե R ȥoȥpo`)ߑo "$ ڥii XLi#iԠ XL8 400  `#CTRPRINT JUSTIFY.RM { lݩFH ;h H ! ;HH Lhh 樈^ Ȅh8姰FLURT࢐8 +`Ơ XL ) 0 ՠ Ġ H)JH hh*!ȱ  !ɠ   @)ީ K } g RLʈ0ii饃Lv [ L Lʩ = Lh ) Lj  LfIx` XH !08x` XH, +`CLRMEMORY CLEAR$H[ g RP*Q+ $HA g RP,Q- $H0' g RPB+-*, B**+` 0:A G  >P?Qh0CATREAD CAT.RM עʎ xLȱȱ  $,XǘP$,ȱ8# \ % ,;LLڭPTRDPTR READ.RM$3 0:A G  >P?Q g RP<=<= ? j݅>?% 0Lc Lkګ0:, jݪ + , ޥۤ jݪ +`PRINTPRINT USING.RM { lݠ R % ک; ީ ڢ0 $. *媆 gݥ 9 r륢H #h 40dNEF- ,00 *1 34,4::15:8:"INSERT ";::"WRITE CHOICE";::" DISK"::8:"AND THEN PRESS ";::"RETURN";::" ";A$::961'"ERR",EC1'EC99301$'EC255Ħ1.'216,0:1COPYRIGHT 19841ROGER WAGNER1PUBLISHING,INC.JERRERR.RMhhߚHH ,ST:ST0ST1K0bI3296:"PTRD",BF2I,K(I,1):K(I,1)DT$DT$(K(I,2))R0gI^0l2010:0::(7)"NO TEXT FILE IN MEMORY!":"PRESS A KEY TO GO BACK...";:A$::034,(34)2:034,(34)2:034,0:1:1:868:A$;:20:"ESCAPE:"A1$:r/!D$"OPEN"F$/&D$"READ"F$)/+5708/0"PROC",T$A/5560f/:216,0:"ERR",EC:EC5EC99Ħw/;EC9910010/<10000/?D$"CLOSE"/D"PTRD",LT,LT:"PTRD",CT,CT:"PTRD",LW,LW:"PTRD",VW,VW:"PTRD",WR,WR/[VWWRVWWR.810]"PTRD",STLES ON THIS DISK.":I11000:I:15:868:2010i."MENU",A$(1),N,"SELECT A FILE",P$,SE::SE0İ2010:.FF1:FILE READ FLAG.F$A$(SE). LT27392:CTLT2:VWCT2:STVW2:LWST2:WRLW2:BF27136."CLR",$6A00,$6B80,0.I196:K(I,2)I:I1),0,"THE WRITE CHOICE MENU":2000:3-DT$"":J1K-N0:"CAT",F$(),N,0-A1$"THE ANALYST":A1$"THE ANALYST":2020:2000:2000:2000-I0N:(F$(I),18,1)(8)A$(J)(F$(I),17):JJ1-I:NJ2/.N1Ģ10:958:15:(7)"SORRY. NO TEXT FI======"E,|T):"PRINT","MIN GRADE REQUIRED TO READ FILE: .0";GLZ,}:I139:"=";:,:2:"PRESS ";::"RETURN";::" FOR "(34)"THE ANALYST"(34)" MENU";:"GET"A$(27)(13),1$-::A$"THE ANALYST":A1$"WRITE CHOICE":2020:2000:"MENU",A$(.. .00";PSO+m:T):"PRINT","WORDS/SENTENCE:................ .00";WS+r:T):"PRINT","SYLLABLES/WORD:................ .00";SY+u:T):"PRINT","READABILITY:................... .00";RE,w:T):"=================================0 WORDS+*TGL22.5(RE2)10: GRADE LEVEL<*VT0:PFT20K*YGL1GL1*^:T):"PRINT","NUMBER OF WORDS:............... .00";WR*c:T):"PRINT","AVG WORD LENGTH:............... .00";AW+h:T):"PRINT","SENTENCES PER 100 WORDS:.....READABILITY REPORT",C,40PF40:"CTR","FOR",C,40PF40:"CTR",F$,C,40PF40e);AWLTWR:AVG WRD LEN)ESY(VWWR)0.81:SYLLABLES)JRE206.835(84.6SY)(1.015(WRST)):FLESCH INDEX)OWSWRST:WORDS PER SENTENCE*QPS(1WS)100:SENTENCES PER 10HE ANALYST",P$,SE::SE0951(PN1ĴSE500:30F(QN2ĴSE300,500N(U30(_A$"PROGRAM MENU":A1$"QUIT TO BASIC":2020:104,8:2048,0:6,27:"NORM":"AMP"(`3000(aD$"VERIFY THE ANALYST":D$"RUN HELLO":(,DT$""900(1:K)6"CTR"," LYST":A1$"WRITE CHOICE":2020:2000J'#2000:CR0:80,101:81,255:82,85'(P$"ENTER A NUMBER & PRESS RETURN:":A$(1)"ANALYZE A TEXT FILE":N1'-DT$""A$(2)"ANALYZE ANOTHER TEXT FILE":A$(1)"DISPLAY READABILITY VALUES"::N2(K"MENU",A$(1),N,"TQ&THE ANALYST 4/19/84[&(978)157Ģ15:(7);"PLEASE RE-BOOT AND PRESS 'ESCAPE'":u& (175)256(176)46& 10000& "RESET",99&38400:KEY%(2):KEY%(0)1:KEY%(1)1:KEY%(2)2&D$(4):Q$(34):K(96,2),F$(30),A$(30)$'A$"THE ANA           :b:M$"GRAPHICS PRINTING OPTION":30202:d3000:g:"1) ADD GRAPHICS PRINTING ABILITY."::"2) DELETE GRAPHICS PRINTING ABILITY."::;l"WHICH CHOICE DO YOU WANT? (1 OR 2)";:"GET",GF$"12"(27),1:GF$"2"ĺ:"GRAPHICS ABILITY ";::"DELETED.":: 2.0"::575*9."VISTA VISION 80"::575D90"VIEWMAX 80."::575f92"MICROTEK 80 COLUMN."::57594"M&R SUP'R TERMINAL."::5759?:"IS THIS CORRECT? (Y/N)";:"GET",I$"YNyn"(27),19AI$"N"5009C3500:3009XGRAPHICS MOD9aX(0)(R 80 COLUMN CARD TYPE IS:"::(VD$)1546,548,550,552,554,556,558,560,562,564a8""NONE"::5758$"APPLE //E COMPATIBLE.":LC$"Y":EN$"N"::5758&"VIDEX COMPATIBLE."::5758("WIZARD 80."::5758*"VIDEX ULTRATERM."::575 9,"ALS SMARTERM"DISPLAY SELECTION",P$,SE::SE030057VD$(SE1);7L7X32ĺ:544v7:"YOU ";::"CAN";:LC$"N"ĺ"NOT";7:" DISPLAY LOWER CASE TEXT.":7"YOU ";::EN$"Y"ĺ"HAVE";7EN$"N"ĺ"DON'T HAVE";7:" A VIDEX ENHANCER.":N8 "YOUOLUMN CARD.":A$(3)"VIDEX 80 COLUMN CARD.":A$(4)"WIZARD 80 COLUMN CARD."6A$(5)"VIDEX ULTRATERM":A$(6)"ALS SMARTERM 2.0":A$(7)"VISTA VISION 80":A$(8)"VIEWMAX 80 COLUMN":A$(9)"MICROTEK 80 COLUMN":A$(10)"SUP'R TERM 80 COLUMN."%7 "MENU",A$(1),10,C$"y"LC$"Y"!5LC$(27)300C5LC$"S"LC$"s"LC$"N":5125:"DO YOU HAVE A LOWER CASE KEYBOARD?":"(VIDEX KEYBOARD ENHANCER) ";:"GET",EN$"YNyn"(27),15EN$(27)3005"WINDOW",9I6A$(1)"NO 80 COLUMN CARD.":A$(2)"APPLE //E 80 CCREEN DISPLAY":3020.4E$"PERSONALIZE MENU"M4"ID",X:X32LC$"Y":5124::"If you can read this, press the 'y' key.":4"IF THE ABOVE TEXT IS SCRAMBLED,":"PRESS THE ";::"'S'";::" KEY.":5"=>";:"GET",LC$"YsyS"(27),1:LC$"Y"LORE DMP,0":I1I113C2$(I2)"1706 PRINTD$"Q$"PR#"(PS)Q$:I2I21:IFPI$= "P" THEN C2$(I2 - 1) = C2$(I2 - 1) + ":?CHR$(9);" + Q$ + "81N" + Q$3C2$(I2)"PRINT"Q$"PRINTER CONFIGURED."Q$:I2I2133003SCREEN DISPLAY4"WINDOW",7::M$"S:"YOU HAVE AN '";::PT$"A"ĺ"APPLE";?2PT$"O"ĺ"OTHER";Z2:"' TYPE PRINTER.":2::"IS THIS CORRECT? (Y/N)";:"GET",I$"YynN"(27),1:I$"N"4002I$(27)3002PT$"A"C1$(I1)"5 &STORE DMP,128":I1I113PT$"O"C1$(I1)"5 &ST (1..7)";:"GET",I$"1234567"(27),171I$(27)3001:"DO YOU HAVE AN APPLE OR OTHER PRINTER?":"ENTER 'A' OR 'O'=>";:"GET",PT$"AaoO"(27):PT$(27)3001PT$"o"PT$"O"1PT$"a"PT$"A"1:PS(I$):"PRINTER SLOT:";::PS;::(2 OF 'THE":" CORRESPONDENT' IS IN THE DISK DRIVE."::" THEN PRESS TO SAVE CHANGES.";:"GET",I$(13)(27),1:I$(27)1000c20000eI01:I11:I210h:1000PRINTER0:M$"PRINTER SETUP":3020%1:"WHAT SLOT IS YOUR PRINTER IN?"MENU",A$(1),4,"PERSONALIZE MENU",P$,SE7/="WINDOW",7E/@SE0100`/BE$"PERSONALIZE":3030x/ESE400,500,600,700/G:"CTR","SAVE CHANGES TO THE CORRESPONDENT":"CTR","---------------------------------"/Y0^:" MAKE SURE YOUR WORKING COPYISKETTE."::"THEN PRESS ANY KEY...";:A$::100F.,PERSONALIZE MENUV.1"WINDOW",5o.3E$"MAIN MENU":3030.6A$(1)"SET UP YOUR PRINTER":A$(2)"SET UP YOUR SCREEN DISPLAY":A$(3)"ADD/DELETE GRAPHICS ABILITY":A$(4)"SET 'SPACE BAR' PAGE FORMAT"'/;堠®ڠî砧Ϳ砠󠠪ܠ󠠠ܠ󠠺߮߮߮߮߮߮߮߮󠠮߮߮߮߮߮߮߮߮߮󠠺󠠭󠠺ߠߠ󠠭󠠫󠭭֠󠠽󠼺ޠޠޠ󠼭󠼫󠼽ܠܯ̠Ӡܠܠܠܠܠܠܠܺܠܺ젠ܠܠ󠠠ܠܠܠܠܭDLܠ󠠠          (< TOO LATE!! DELETE GINGERBREAD MAN.II_YOU'LL NEVER CATCH ME!!!!!FP:12:180:8)"HA HA HA":::"YOU CAN'T CATCH ME"::::"I AM THE GINGERBREAD MAN!":  "DELETE GIN ĠҮɍƠàΠƠԠĠΠԠҤ̠ŬԺĠԺŠŬĺƠĠΠԠҤˠҮɍŠҮɍ 󬠠oo欠宩砠堠嬠䠠宠䠠󮠠魠嬠󠠠󮠠렠䠠٠ĠŮ             ,        堠           .򠠠򠠠쬠ﮠ󬠠箠嬠򬠠頠䬠宠笠笠Šՠǿ宠堠䠠̠̮򠠠򠠠򠱵٠ĠŮ          蠠󠠠    ,             󮠠宠ɧ嬠宠䬠宠堠򠠠砠󮠠󬠠䮠宠嬠ﬠ䮠󠠠宠堠宠堠䠠ﬠ蠠謠򠠠젲ZDLJ    :٠ĠŮ                               堠쬠殠堠󠠠婠嬠󮠠蠠GF䠧Ƨ젠󺠠GFŮà堧Ůç栠婠ᠠ砧Ƨ򠠠嬠䠠뮠堢뢠宠䬠󺠠Р堠堧ħ堠堠宠󠠠Ҡ堧ç宠堢堠堢䠠堢笠㮬󠠠ŠɭӠӠȠԠԠD N$,0:(37):" "3-"SWITCH":SDS DOS=-1500`-:IT SHOULD NEVER GET HERE...-"ERR":"SWITCH"::(7):"DISK ERROR!":10000-285-"DATA DISKETTE COMPLETED.":100000.:"REMOVE DATA DISKETTE AND":"INSERT CORRESPONDENT D"Y"I$"y"100s,::"TO FORMAT THE DATA DISKETTE":"PRESS RETURN...";:"GET",A$(13)(27),1::A$(27)100},275,"SWITCH":'INIT' DOS-N$(13)(13)"CORRESPONDENT DATA DISK"(13)(13)"NO DOS PRESENT!"::"FORMATTING..."::"INIT",         ɍĠҮɍԱŠЬŠҮɍˠҮɍ׍ФҤĤҤĤΠŢĤŠŢˠҮɢĠҮɢҢФĢФк½Ы˨˨׺Ͻº׽ˠҮɍĠҮɍҢĢк½Ы׺Ͻº׽ºάźƬƪŠҮɍˠҮɍӠŮΠҮɍ˨˨˨Š̭Ԩ̯ŠԨ̯ˠ֮렠堠®ӧ堠ɮ젠Ǯ砠㠠Ǻ䠠ɺҺƮà纠ᮠԺ𠠠⮠ٺ䠠ŮŠîĮ󠠠֮®󠠠Ԡ®堠O% e% &iȅύ(0 )?ĩ ` ƍӠƍױҠԠҠ΍ױƍױĠҩƍײƠРƍײϠƠׯҠƍײƍײΠȠӠκԺױҠԠ΍ױĠϠ΍ױҠ΍ױĠƍױ  H {ȭ!{h Hɀ8${ȱ%{h `"{ȭ#{Ȱh `h`eeɀjfe e ɀjf` (u u6{2{3{4{ Lv6{% 1{`2{ 7u榓  :Lv2{ 7u :Lv &ȥI1&& ƕ`%Lu奓I1&&Lu }i i wi iL Jv u#% 0% 0 `8嘅噐 йŢе) ЫХŢС8 嚅 囐 ЎŢЊ) ЀŢ  ``0Hɀ8{ȱ{h ,{ r8  Ȅ` i8塩堰LᥡHH ihh8塐 &%0)f&($  zL i{{ i {!{ i"{ i${8 {!{; {{!{{,'${ ${"{"{"{${${ LyL x0'.奓I1&&ȩ1&`( ErFf8 `L$s*{ ` ,{` r r riiȄ` r`8  &{i&{'{i'{,{i,{-{i-{}}!) Er8 ErFf e e 08 r` Ls r` *{i0{1{L { ȱȱ wi i wi i wi \r L0` & & &` 0 {&{`{&{8塪` 8 ɃF{iFHF{i{hH祙 h`({){`&{'{` r8({({){){,{i,{ }~ } { { + l j %k p 8jz H,7{0h0  h0 pLq{ l Yn pz H,7{0h 0 h0 pLIq Yn j j jLp +nz *j kn *j j` {n l j %k :n Fj jH,7{ph0  h0 pLq Mj l bn :n jH,7{ph 0 h0 pLq bn nLq i.{/{ KEY TO GO BACK..."2VID25)::2:26:T:2520:200P/(C) COPYRIGHT 1984 RWP1VF128VID(33):SWW1(WVID)(VIDW):H((W1)2)(WVID)W(WVID):MO(WSW1)(WSW):VS(VID40)3 SW,SW;HF,H;MO,MO;VID,VID;LM,LM;FM,FM;PL,PL:2520:49168,0:Bɠɽ`H!HH y鿥 L\ L  L` ў6񥸍%g x Xʚhihi(itiȅi榥5 B B1 Bc B[` y뿥 hh` dVhhhhhL麎 L,` %̢ B B Ba <`HJJJJ phLp `~ F FDF d D = BL/ӠƠhhHHL9W`L# Aީ B!P`Li?< / ) ,)(8圥坐哅唅 eeB /8e8e8垑埑8ɮ䠠󠠠®z#ЮǠ"ŠϮРŠԠ ĠΠ ĠήɠЮˠ îϮŠŮϮà" Ů͠ŮҠ ŮҠ Ůà Šف ٮʠ ͠ ͠"Ԡ Š ŮͮԠ ŮɭӮԠ ̠Ӡ Ҡ ҮɠA ЮӠŠӠ  ŮҮԠM ŮӮԠ"ŮŮԠ  РӠ ЮҠ" ЮĠЮˠ ЮҠЮҠ ҮɠҮɠ)ҮʠԮŠԮР ԮĠ"ŠԠ Ϡ !ЮҠ Ԡ Ժ𮠠ٺ䮠󩍠Ǻ䮠ƺ6 XŠŠƠӠii Ȅ% $$ Bڥ$ \۩ \ Wۤ : ڦʽ ݥ$ 0 \۩ \ W݈ eei = ڦ Ƥ%Ȅ  'ަʆΊ eeޅ eeΥiϭ8e8 $    :٠ĠŮ#ߐ,Ș 0Л s$ $ \ \۩ \ ߅ ee 륂 cڥP$QQ $ \۩ \۩ 0 \,L^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^< LxL,< LxL,< LxL,@00<ALxL,< Lx' NEVER! NEVER! CATCH ME!!!!FPNGERBREAD MAN[YOU'LL NEVER CATCH ME!!!!!FP:12:180:8)"HA HA HA":::"YOU CAN'T CATCH ME"::::"I AM THE GINGERBREAD MAN!": "DELETE GINGERBGERBREAD MAN.II"7  1,9: TRYING? TRYING? TRYING? TRYING?      STILL TRYING? CATALOG YOU'LL NEVER CATCH ME!!!!!                YΤυ8΅ϐC ۰ ))ߑ౥ ۰ ))ߑħȐ`   &HELLO 4/19/84.&(175)256(176)46:&10000J&"RESET",99Z& D$(4):D$o&KEY(49152)128&(6)27KEY27&KEY27Ĺ16368,0:100&6,0*'KEY0KEY32KEY52KEY54KEY56KEY68KEY84KEY100KEY116KEY80KEY112KEY       󺠠 嬠𺠠 庠 ﺠ 庠 ﺠ  󠠠ӠŠ㮠B      䮠ú宠宍_氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`X16368,0:100&6,0*'KEY0KEY32KEY52KEY54KEY56KEY68KEY84KEY100KEY116KEY80KEY112KEYЄ 8 ް٥ ϩɥũޅ#ߐ,Ș 0Л s$ $ \ \۩ \ ߅ ee 륂 cڥP$QQ $ \۩ \۩ 0 \,L^_:ʽe^^e__l^" ަư8^L,< 2L,< Lx< LxL,< LxL,< LxL,VER! NEVER! CATCH ME!!!!FPREAD MAN"0  1,9: TRYING? TRYING? TRYING? TRYING?      STILL TRYING? CATALOG YOU'LL NEVER CATCH ME!!!!!                 NE!8 TOO LATE!! DELETE GINGERBREAD MAN[YOU'LL NEVER CATCH ME!!!!!FP:12:180:8)"HA HA HA":::"YOU CAN'T CATCH ME"::::"I AM THE GINGERBREAD MAN!": "DELETE GINGERB]Τυ8΅ϐG۰  ޱ۰  ħȐ` ̺ 簮 Π٠Š̠ 󺠠 嬠𺠠 庠 ߐ,Ș 0Л s$ $ \ \۩ \ ߅ ee 륂 cڥP$QQ $ \۩ \۩ 0 \,L^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^eP^_e w$ : = s $$ =$ wP{$%Q \ s,ɺH$ $  :΅υ s =hɕ/ɋ.Ɉ*Ɋ#ɛTɍZܐ͂) 0,ޠ 8 ް٥ ϩɥũޅ#̭ĺ宠eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`Xm):QUOTEt&"ONERR",99&D$(4):H4:C1$(50),C2$(50),H(H),H$(H,25)&&1000&2I01:I11:I21&dMAIN MENU&i:'nS$"HELPER PROGRAM":E$"BASIC":3030        Ѡנ󠠍󮠠̭׺̭º̭źֺ̭栠󠠍Ԡṷ̃ƺ宠Ƨ婠̭Ӻhɝ,`8HH hh`L  `iiɝ ,,Hȱh $ 8ɝ,` ۱  ɝ,,  ɝ,,ȥ#H h   ) 8H^ȩȩȑȑȑȩȩȩȩ    8H ɝ,,(hɝ,``H0h`8H ɝ,,( , { ^_x XiiXLiiɝ ,,Hȱh $ 8ɝ,` ۱    JJJJHȱh   ̭ɺ堠̭Һ堠 Š֠堠̭宠ŠŠ٩̭к宠󠍭ԠŠ٩̭ú堠̭ں8d0 ˥opooȥoȥp$P  F `0MENUMENU GENERATOR.RM, , ޅ ߅ { RP QLފ8 0 ۝  i ۝  eeHHة3ӍӾstʎʎ8hhx Xʚhi hi ( e e Lee8sst t `HH HHHx Xʚh:# ,0 e! P" , Q !% " $% %$ " # $ " ̦ʥ ``wJERRERR.RMhhߚHH 0:, jݪ + , ޥۤ jݪ +`MSSGERR MSSG.RM ڦ  ieީ LԅiROGRAM"H 17:"CTR","COPYRIGHT 1984":"CTR","ROGER WAGNER PUBLISHING"` 2D$;"RUN HELPER.II"9CTRLCTRL SHOW.RMx Xi6i7XLɠɍ)?LFRMFRAME.RM { R,P { RP { RP ߠȱ $(4);"MAXFILES3"1(175)256(176)46m(978)157ĺ(7);"PLEASE RE-BOOT AND PRESS 'ESCAPE'":{D$(4): T$"%":"FRM",1,0,38,38,23,T$7:"CTR"," >> HELPER <<" 11:"CTR",QT$"THE CORRESPONDENT"QT$::"CTR","CONFIGURATION P     L :(' B<hhߚHH` -<1< 8J< Q Ƀ`/ g R/<=  88>>?h8e@@A>@>@?AHh` COPY PROGRAM-(175)256(176)46="ONERR",99I10000gF"BLOAD COPY.OBJ":A$2C0KZD(43624):ZS(43626)P::" APPLE DISKETTE DUPLICATION PROGRAM"::Z704:CS(718)16_D$(4)d:n:! I$" ORIGINAL":N6:A     àŢč΍άźƬƪŠҮɢˠҮɢФӠŮФΠҮɢĤŢԢ٠šĤàŢč΍΍ĠҮɢҢФĢФк½Ы˨˨׺Ͻº׽ºάźƬƪŠҮɢˠҮɢФӠŮФΠҮɢĤŢԢ٠šĤФĢФк½Ы˨˨׺Ͻº׽ºάźƬƪŠҮɢˠҮɢФӠŮФΠҮɢĤŢԢ٠šĤàŢč΍č㮠ʠ堦宠͠堠à堠! ! !!!!!!!!!" `888SPONDENT 4/19/84P::255:VID(33):E(175)256(176):E3,A2EVwA2E64ĺ:(4)"PR#3":VID80 ::(12):VID41ĺ" ";:(36)1VID80 :F$"%"(13)(8)"%":P$("%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%   8Lz갅7ɩ'9#6q8s  NHhHI I譁hH j݅hH hLcڢ g R<=8>>?h8e@@A>@>@?AЍԍ؍c0Z0M0H Xʚhi…hi*Hh8鍠(L*(p `@ ) j݅H h c(`(4)"BLOAD COR.OBJ"R 2048:A2E(6):VID(7):SET UP FP PTRS, COMP TYPE & VID.{ VF,A2E128(A2E96VID40);VID,VID (4)"RUN COR.I" DON'T RENUMBER!!! COPYRIGHT 1984 ROGER WAGNER PUBLISHING,INC.x E6,RCD:RCD3ĺ(4)"BRUN RWP.DDMOVER":21::"%":20 T$" FOR 'STANDARD' PAGE,":18:110:T$" PRESS 'SPACE BAR' OR JUST WAIT...":19:110:20 A(121)256(122)1:B(A)256(A1)1:D22:A1,(A1)D:E9,B,E,ED256:160 6,A2E:7,VID::F$:T$"P.O. BOX 582 - SANTEE, CA 92071":14:110:T$"(619) 562-3670":15:110e PV1622:V:F$: Z23:P$;:VID80ĺ(P$,VID80); _19::140 d: n"%"(VID(T$))21)T$:(8)"%": : KEY(16384):KEY67KEY99ĺD$"RUN HELPER":9%%%%%%%%%%%%%%%%%%%%%%%%",VID)A 2:P$;:VID80ĺ(P$,VID80);W (:V37:V:F$: 2T$"** THE CORRESPONDENT **":6:110:7:F$:T$"VERSION 4.4":8:110 <V910:V:F$:O FT$"COPYRIGHT 1984":11:110:T$"ROGER WAGNER PUBLISHING":12:110:13 CORRESPONDENT 4/19/84P::255:VID(33):E(175)256(176):E3,A2EVwA2E64ĺ:(4)"PR#3":VID80 ::(12):VID41ĺ" ";:(36)1VID80 :F$"%"(13)(8)"%":P$("%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%     _ , l^ưȭ氩L8ˍ`X?DPDMP,0PD,PD:PDĺ(4)"BRUNPRINTFILE.COR,A";(109)(110)256 I1260:T(49152)128:T0(T32T52T27T54T56T68T84T47T100T116T80T112)Ă:T32:'SPC'=+- L犠- *+*,Ȑ`L^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`X"(116)1200PD1RWRTPTR WRITE.RM$HY g RP*Q+ $H? g RP,Q-*+`, *+*+- ` 0:A G  >P?Qh*VAR SENDSIMPLE CHAIN;SEND.RM h`OERASEERASE.RM g R*+ g RH8*,hD$"RUN COR.II"#COPYRIGHT 19845ROGER WAGNERJPUBLISHING,INC.PTRDPTR READ.RM$3 0:A G  >P?Q g RP<=<= ? j݅>?% 0Lc LkڪPT28:I1(I$):TI,((I$,I))C:MP,A;BW,BW;EW,EW;BG,B;EN,E;WF,WF;BV,BWWW;EV,EWW;FP,24:VF,VF;(65532),RS:K$" """:V2((W80)(80W)2):C32T%(W):T%(0)1:T%(4)1:I9W10:T%(I)1::T%(W1)1:T%(W)1:T(0)TIR:IR1:T"VAR SEND"ERASE",M,T1,1607sAWW,222:T173:IAWA2:I,T:xT171:IAW9A210:I,T::AW,T:AW4,T:AW(W1)2,170:A1,T}IR"PTRD",$69,T:MTA:T(MW)1:MTWA:T173:IMMW1:I,T::EWM1!I$"":TM((W(I$))2)1:C1(WSW1)(WSW):H((W1)2)(WVID)W(WVID1):MO,MO;OS,O;CW,W;C2,W;SW,SW;CM,CM;HF,H_T11:MASK,T164:T1=1 TO MASK INVERSE CHARSd(I$,1)"N"įAF,B:125i:10::V2)"SETTING UP WORKSPACE...":EBnIR"PTRD",$AF,M:IR"PTRD",$69,T:IR"I$"Y":(37):36,V230:I$DBI$"Y"I$"N"ĺ(7);:(37)1:65YFPF1:LOWER CASEGPDCL$(CL$,2):C$(C$,2):FP$""HPDĹ4928916OS,0PIR"PTRD",$67,BP:BBP100652W:PO0:AB:BWB:EN,E:PF,PF128USWW1(WVID)(VIDW)XZMO:I$""Ģ(37):36,V229:PLA=PL1PL255ĺ(7);:(37)1:60?:V2):"LINE SPACING? (DEFAULT=1) ";I$:DS(I$)(I$""):I$""Ģ(37):36,V230:DS@DS1DS2ĺ(7);:(37)1:63A:V2):UPR"NEW FILE? (Y/N) (DEFAULT='Y') ";I$:I$""K$"B")2(K$"S"):FM0FM1ĺ(7);:(37)4:527:V2):"COLUMN WIDTH? (DEFAULT=60) ";I$:W(I$)60(I$""):I$""Ģ(37):36,V229:W8W5W2VIDW255ĺ(7);:(37)1:55<:V2):"LINES PER PAGE? (DEFAULT=66) ";I$:PL(I$)66(I$"")MAT DATA":V25)"----------------------"::V2)"WHAT FILE FORMAT?": 4V2)"1) BINARY FILE":V2)"2) SEQUENTIAL TEXT FILE"::V22)"WHICH WOULD YOU LIKE?":V22)"(DEFAULT='BINARY') ";:UPRK$:K$""Ģ(37):36,V229:"BINARY"15FM(K$)1(K$""(6) PL66:FM0:T10:DS1/ !I$"/"W66P #I$" "W60:PL66:DS1:FM0t $I$"4"W40:(21):VID40:V20 %I$"6"W60 &I$"8"W80 'I$"T"I$"t"WVID:FM1 (I$"D"I$"d"W60:PL33:DS2 -W170F 2:V25)"BASIC PAGE FORAD CAT.WILD":IR"PTRWRT",$B1DD,$0020:IR"PTRWRT",$B1DE,$B6B3q ::34,1:I$((6)):VID,VID:V2((VID40)2) JF$(10)(6):VS3(VID40):FL$(6)(14):CL$(13)D$"CLOSE":C$(13)D$"CATALOG":FP$D$"FP":VID41PDC$(C$,5) PDGF$(7)(55)158(978)15729t (47721)179ČIR"PTRD",$ADC4,T:T47721ĺD$"BLOAD CAT.FRE":IR"PTRWRT",$ADC4,$BA69 IR"PTRD",$AE3A,T:T48351ĺD$"BLOAD CAT.CLIP":IR"PTRWRT",$AE39,$004C:IR"PTRWRT",$AE3A,$BCDF< IR"PTRD",$B1DE,T:T46771ĺD$"BLO024::F IN$"X""":C0:P0:O0:A0:T0:WF1:B0:E0:I$"":D$(4)l PD,PD;VF,VF;SL,OS;KE,T:PFVF0 H1$"ESCAPE""":VF0VF128TH1$"SHIFT""" H2$"CTRL-J,K""":VF0VF128H2$"ARROW KEYS"""  IR(175)(176)256203 COR.I 4/1/84>PD,PD:(978)158ĺ(4)"MAXFILES1"DRDMP,128XI1260:T(49152)128:T0(T32T52T27T54T56T68T84T47T100T116T80T112)Ă:T32:'SPC'=DEFAULT 49168,0:6,T:(115)256(116)1200PD1EBD1:14204ERE:1430:EELN:BDBBBD:BG,B^BRE1:ERER1:BDBR1:BR,160:EN,ExMOVE,BR,ER,ED,BD,M:LJ:O0:MP,A;EN,E:TP:EBİ880:1510242,0:AF,T:Tğ"REPLACE DOCUMENT IN MEMORY";::UPR"? (Y/N) ";I$:I$"Y"875Q3165:F$I$:865JM1:EN,E:BDBRLN:NB:BREEBD1:EN,E:bBDBBBR:BG,B:~(BRBLNBDB:NBR:BRB2EDELN:EDEWġ:4100<ERE:1430:BN:EED:BG,B;EN,E: xAF,BD:M0:EN,E:BRBDLN:ERBR1:BRBWBDE(BDEBRE)E:3390:3750:QT:(QE)(BBW)į"SEGMENT";:" ";:Q0"NAME TO SAVE UNDER?":F$""(FM1(F$,1)"=")Qĺ"('/' = "F$")"UPRI$:I$"?"1000:I$""ıI$"/"QI$F$(I$,1)"="FM10033150:T2800D$"BSAVE"I$",A"B",L"E1B010:F$"":875:(J$,2)"Y*"LTI$N$::20305\RFBaAF,0:lkEN,E:B,160:MOVE,B,E1,E,B1,0:EBpLJ:O0:AB:MP,B;EN,E:I111:UD,C59::LK,T:PPO(T8)(P0):T1(T8)2:T%(0)1PPT:T%(P)0960:PPO:5457EN,C30C14įC31į3C22įAF,L:1900qC23I$"":3610:I$"Y"505:WFWF:WF,WF;LM,LM:3000C24C17İ2100:K$" ":"":TP:508: RI$" CLEAR":3605:J$I$:(J$"Y"J$"Y*"J$"Y**")ıTJ$"Y**"I$F$:1040-W2C19T%(PO)T%(PO):"";:BWPO,173T%(PO)2:T%(PO)ĺ"";C12I$"":3610:3000:I$"Y"TBWWWLM:T,160:TLMPO,222:(7):LMPO:LM,LM:505C6K$"F":1800:3000:508C28K$"H":3800:C32:3500:TP:3000C29į545lC7įWRD:508,qC8PP1:545:vC21545e{C15MOįLRJ,OMO(OMO2)(O0):510sC20950C13K$"F"1815C26C13FMįLN:AP,16083FM:C13C13įSU,L:505C2LB:1900C5įEN,E:LE:1900:PLMC10vSC9įINS.LN:WF508:(60),ER;EN,E:ER1EW4100:BRAP:MOVE,BR,ER,ER1,BD,1:BR,160:EE(ERE)W:EN,E:508]C18WFįBL:(60),ER:MOVE,AP1,ER,ED,AP,0:ER,160:508bC18WFįRMV.LN:508gC25įWRDJMP,T:LK,C:PP(1(C8)2)T: "PSWOMOPPMOO:RJ:510B#POHC8PPMOO:RJ:510b$POH1C8PPO:LJ:510|%P0OPPO:LJ:510&P(LMO)WF(K$"F")įW2,T:OMO:SD,R:PSWT:545D510: IC3įCTR:AF,AO:505KC10įSU:510NC11įSD:50VF128ĺ(21):VS0:RSN jC56ĭLC27W161VID41(VF96VF112)VS3:RSW m200 (121),T:(103),T1:CF,0:LC0:"" 3000:PLM:PMOįRJ:PPMO RF MP,A;OS,O:SR1980 EDC,P:C32585 !PSWOMOįW1,T:PLMT:O0:SU,L:TI$""::1680& ,C71İ1500:1680< 1C83İ1000:1680L 6C16İ1700e 8C4WSWįTP:3200u ;C70İ1800 @C86įAF,L:1900 EC66LB:1900 JC69įEN,E:LE:1900 OC74İ1893 hC67C77TC:1600 iC52ĭLC27W81VID4:$ C32į:3500:500:LJ:3400f "C2I$"BEG":3700:B(AO)(I$"C")BW(I$"B"):"":BG,B 'C5I$"END":3700:3750:"":ET(I$"C")(AOW1T):EN,E )C68LC27SD$",S6,D1" *C68İ3390:T01::UPR,"DISK COMMAND? ";I$:D$I$RF:200! C76C59İ900:200L C15MOįLRJ,OMO(OMO2)(O0):200\ C87İ2500k C26İ850 C27Ģ1:36,SW21:"ESCAPE FN" C72C63İ3800 C13İ3500:TP:RF C81I$" QUIT":3605:I$"Y"ĉ::ALL::"BYE..":FP$:IRIR0:285@ INITSTK:MP,A;OS,O:LN#:PO0:PO,0:P0:L20F 1:36,SW6:3):"FILE":LCC:12:0,C:K$(C):LC27Ģ1:36,SW21:9): C21C10įSU:200 C8C11įSD:200 C9įINS.LN2:RF:200 C18BDAO:LNW:1400:Q'COR.II 4/19/84#CHAIN: P::::51,0:RESET,99:EW,EW:10000VF128VID(33):SWW1(WVID)(VIDW):H((W1)2)(WVID)W(WVID):MO(WSW1)(WSW):VS(VID40)3 SW,SW;HF,H;MO,MO;VID,VID;LM,LM;FM,FM;PL,PL:2520:49168,0:               :3400:C23:I0:2540z& TP:"NUMBER OF LINES AT TOP TO FREEZE? ";I$:I(I$)::I$""2560:I92530:MP,A:HT,ALF& 34,1I:LF(10I)W:LF,LF& TP:RF:& :4000& A256EWį,A:RF::2710& & CL$:K$"("3160:TP:':/%I$FF$:PDįVOLUME,OV;DRIVE,OD;SLOT,OSD%LB1:875:1525J%]%4:(103),BP:o%CF,0:C0:%1:LCS$,C,P%C13ī2100%C29į%C30į%C31į%2205% (34)1BS24:35,BS:2530& BS20:35,BS:I0:IR2540P,I:I24I891815-$I24T1AP:1865d$REPLC,P,S$,R$:RF:EN,E:AF,L:LL(R$)1:1815$FF$F$:T1AP:PDįVOLUME,OV;DRIVE,OD;SLOT,OS$$LT0:LE1W:IN$"":FRMT,IN$,0,L:(49152)152LTFL$(IN$,2):LTN$(IN$,3)%49168,0(S$):((S$,T))175ĂH#AST((S$,T1,1)(175)):T(S$)T9E9:]#AS1AS(S$)ı#R$(S$,AS1):S$(S$,AS1):(R$)(S$)įWF,0#SR1:TP:UPR"ALL OR SOME (A/S)? ";I$:ASI$"A":TP:#I(49152)128:49168,0$ASįRF:11::I01:LL1:I(LT)(I$,L,1)","::N((I$,L1)):L((PG1)PLN(N0))WBW"lEW,EW;BW,BW:LL(LBW)(BWL)(LEW)(EWL):TLBW:N(TW):ANWBW:PBWTA"vPHC74C69C5C86įLJ:O0:MP,A:RF:"RJ:OMO:PPO:MP,AO:RF:#T1:S$"":R$"":TP:LT1:SR0:WF,WF:1900H!<AF,T:SRTI$F$::1040!?2010:LTI$N$::POPO((EBW)(PLW)1):PO,PO:2030:1815!DF$FF$ĺ:2020!ILC0:1850!eTP:"PAGE (,LINE) TO JUMP TO? ";I$:TP:T(I$):TıO"gPG(I$):L0:OFF' RSK TPLL2(L2PL)PLCP:(T)FMāI1T:(10(IT)3);:I^ L2(P10)L2: 2000:EN,E:TP:LAP1:"TO FIND?->";:P10:2200:TP:S$""1960:S$""1865:3000 LL1:FIND,S$,L,L:LEİ1900:545)!:LC27ĺ"":K$" ":2100:L2L21DS1ĺ:L2L216LLW:LELTW1715[C16LTİ1795:I$N$:2030:1712sFF$F$C16İ2020CPCP1:CP0İ1795:17102100:C16JF0::LC27İ1795:D$"PR#"VS:24:"PRESS RETURN...";:T LC27:80 COL 'PHICS MOD IN HELPER IS NOT INSTALLED!"8(IN$)ĺLL)hT(49152):T1281740:49168,0:T155178049152,128:T(49152):49168,0:T1551780:LP26(VF128LC27C15)3100IN$;:FM(I$,5)"HELP."(IN$)VIDĺVID(IN$)) FM1900:POPO1:P1P11:J$" -"(PO)"- ":I16:LW24I,((J$,I))128::RF:1715rIN$"":FRMT,IN$,JFJT,LLP(L)64:LP26IN$(0)::MP,L:RF:1735JF$(IN$,2)JFJF:IN$" "(IN$,3)&PDĭGF$(IN$,2)IN$"GRAPHICS HERE? GRAC27įTP:"NO 80 COLUMN CARD.":T:1790I3100:VID40VF128ĺ(21)WD$"PR#1"uFMį(121),T:(103),T1EN,E:20002010:LB:JP,0P11718:L((P11)PLL21)WB:LELTW1717:F$""I$F$:1040P11:PO,PO:1777U"į"PG NUMBER TO START ON? ";I$:P11:PO(I$)(I$""):35,24:TP:CP1:"LINE POSN ON EACH PG? ";I$:L2(I$):TP:1709"NUMBER OF COPIES? ";I$:CP(I$)(I$""):TPUPR"JUSTIFY? (Y/N) (DEFAULT='NO') ";I$:JF(I$,1)"Y":JT("F"):TP)LMP,A:AAO:12:0,C.C21C10įSU@C8C11įSDSC76C59900YLJ:MP,B;UL,12864(LC27):RF:TP:26:"[/ TO BACK OUT]":1:1:"LEFT MARGIN? (DEF="V2") ";:UPRI$:LL(I$)(I$"")V2:TP:I$"/"įMP,A:zP10:I$"P"Y"1600:T77BDSB:LNSESB:1400:1680]rSESE1:SB,160:MOVE,SB,SE1,SE,SB1,0:1680uwLN1DBLNEW4100|BRDB:1300:SBDBSBSBLN:SESELNBRSB:ERSE1:EDDBLN1:1430:EDEEED:EN,ET77BDBR:1400TP::RF:34006,SW3:("COPYMOVE",14(T77),4)<J1690:1:C131680\YC74T1T:1893:TT1:1600^C2Ė15:"BLOCK BEG SET":SBAcC5Ė15:"BLOCK END SET":SEAWhC4Ė15:"DESTINATION SET":DBA:LNSESB:1655+mC24SBSE1610:3610:CT:I$:TP:I$""ıK3390:UPR"DOCUMENT TO LOAD? ";I$:I$"?"1510:I$""ı`ABWF$I$:865r3150:T2700D$"BLOAD"I$",A"A:PDįLN,T:TTA13750:(TA)TA3162@I$" "("REMOVECLEAR",16(T67),6)" TEXT":CT:3500$E1:3®󠠠󠠠󠠠󠠠®砧Ϳ砠ɮ󠠠堠®ŧƧ堠خا堠î󠠠Įخ󠠠ȧ򠠠ɮϠ堠®렠ǧŠ堠®堠î堠Įɮ9įMP,AO;OS,0:1859.$'EC1(EC16PD)EC21Ĺ216,0:p.&'K$"H"(EC4EC5)TEC:EC6:T5ĺ:D$"DELETE"I$.)'EC5ĴK$"("2750:K$".":3822.+'EC9FMĺ:D$"DELETE"F$..'TP:PDĺ"ERROR: ";:ERR,EC:.0'PDĹ37,255:ERR,EC4/['"PRESS A :1:CL$::35,BS:C13#-S$"":A-D$"OPEN"I$:D$"READ"I$:^-12::K$" "508:1680t-'FIXSTK:EC(222)-'EC255K$" "505-'EC5K$"("10012-'SR0:WF,WF:1:CL$:D$"PR#"VS:D$"IN#"VS::34,1-'2100:EC255İ1680:200.'EC9$"LETTER" ,I$"W"I$"WORD"7,I$"O"I$"OTHER"W,(I$,1)" "I$"HELP."I$q,4000:BS(35):35,24,K$"."3822::I123:I::PFįS$,PFįUPRS$,K$"(":T((S$)41)(VID40)2:T)(S$,VID(I23));:-23::T:T673810"? (Y/N) ";I$:TP:z+tK$(I$,1):TP:"CURRENT POSN OR "I$" OF TEXT? (C/"K$")";:UPR" ";I$:TP:I$"C"I$K$200:+FIND,T:TBW((TB)W)W1:+TP:UPR"LETTER,WORD,BLOCK OR OTHER? ";I$:TP:I$""3825:I$"B"I$"BLOCK" ,I$"L"IMOVE UP,DOWN":H1$;" TO CAPITALIZE; CTRL-A,? FOR HELP";* C67C77ĺ"CTRL-B,CTRL-E TO SET BEG & END":"CTRL-D TO SET DESTINATION":"CTRL-X TO"I$"; TO EXIT";* 35,20* 1::*I$""*242,0:AF,T:Tğ+TP:"CONFIRM"I$;::UPR)H C13:35,BSA) (35)203515:35,24:20::I0SW:"=";::P) 22:EOP) C13ĺ"PRESS TO ENTER MORE TEXT":"G OR S TO GET OR SAVE A FILE":"CTRL-P TO PRINT A FILE, ? FOR HELP";7* C32ĺ"CONTROL-X TO PRINT OR FILE DOCUMENT":H2$" TO 5)".TEXT"(I$,5)"HELP.":-(X MP,T:TT1O(Z TEET(TEW)(EWT):EN,EU(] ( LJ:1:36,SW3:"DISP"::SW,H1;CW,H;LF,10H:RF:O0( 1690:C133205:ABW((AB)W):MP,A:LJ:SW,SW;CW,W;LF,LF:1680(> 35,24::C$SD$::SD$"": D$"OPEN"I$:CL$:D$"DELETE"I$:D$"OPEN"I$:D$"WRITE"I$:DS1:CP1:JF0:LL0:UL,0:1709:(CL$,1((IN$,1)(13)PD)):Q3165:F$I$:865' :1:36,SW9:3)(3255WF)2):("EDITFIND",14(K$"F"),4):' ::12:"PRINTING...":(N TFM(I$,P h : `ޭȿ{[\|]}~_ `oo@?` ,0LX L,0LB,L%H8#%   0h%L Iऐ xऐఐ Hȱhऐ   ;`HH j݅hh% 0Lc jhLtɠ@,0 ۰)),0 -)  ?2I  |H2h` ?,0 H0)?  @ $02E2$H | h$0 ƥƦӍ,"p Ɂо* ɠ) I2 Lh %H h [8$ t)     L Hh,0P VL uɛHd0a]Ʉ o  @L7ɀ 8,0)p',p,,0',c ۰  I)H ީ; = 4 ? , I( `)ߙ L l݅`,PH`,PH H hh` w ^ | s`5Hɠ@$2p<,P72%2H{$${JhTU(T05 h` ކ$ V))L 4 ޥHH H T(ʽU(ʈT,0(2  L7H6H  % ȱ :   h6h7L&*8婰&&瘟`8 #8Aee 8888 (Lh`8$  "Ѕ " 8-."#  [( `L   P8%H&h p p/mȪȘ $ P/ $ HLH [)* +ť,$0{p" L (ehi`x   J:4.-&?8 8>>?>8԰Ր` -eazʈ?e(' 8@A -  - hhhh`% P ` -e<` <ԥ= Ѕҥхӥ h` O L[LA G<@M< ;   P< $ HɓL\U -L<ɠɭ<8<=eeȅe'(<<L -8<<=<ɠL  ɠŦ$> ƫƪ o, P-I0% ɀ`I))  L  ʆ   'Lک $, 0  `H h_`H   ,02H h2h`2H  Jh2 i=^Ȅ8姪>ħ^ɀ@[^ɠ㊦FCL RL YH<@, ɡ hL h?ħ^ɠť腥I8ef>8媅1)$pF8>?Ji, ħy^,0۰hH'(h'(  $ P8e  $ J O [$ t)Hh! L  Lm   L H h  hh  ޥL8e#i$` 4 L g R^_e<_ >?h8e@@A>@>@?AHh`+ f  \< [ Tj=cIE?/NZ>RFEDTPSUSDLJRJLRJSLSRWRDJMPWRDLNINS.LN2INS.LNBLFINDFINDFRMTUPRLCCTRMOVELN#W1W2RMV.LNEOPUDREPLCFIXSTKERRCHAININITSTKRESET   `,!,,(`,!H,L,h(`8<=`e`΅υ`^ `ԠƠ͠ǽν̽COPYRIGHT (C) 1983 RWP!;ѸL;ޱ, HH` Fo-F VDVS PPDM HMVENMPBGLF-HTBW%EW'RF1AF#BV)EV+VOfDRhSLjLN` h` 掭ɊI` 33vcu ةcLԠ؈ ? )gh`8LX6`  Lk IHHH { R煪hhhऐ xऐఐ ȥऐ  ;` ( R焥xLޢѸȽѸ L } 轚轚`OSLMCWSW CMLKMOHFPD"CFMAS#(BLVFKEVI PLFMC2WFPFPOJPFP UL堠򮠠󮠠宠笠̠Ӭᠠ宠󠠠󺠠ӠĠҠŠ젠󠠠䠠ϠŮ򠲷ĠŮ       ٠Ԡ堠i* JD HDidDh FL/L򠳰ĠŮ     ٠ʮ̬ŠҠ󠠠宠砠Ӡ󮠠堠宠堠䠠䩠宠̠Ӡ堠򮠠'ަʆΊ eeޅ eeΥiϭ8e8 $ w$ : = s $$ =$ wP{$%Q \ s,ɺH$ $  :΅υ s =hɕ/ɋ.Ɉ*Ɋ#ɛTɍZܐ͂) 0,ޠ` {ݥ HF!J8h8ePΥϤ%6 XŠŠƠӠii Ȅ% $$ Bڥ$ \۩ \ Wۤ : ڦʽ ݥ$ 0 \۩ \ W݈ eei = ڦ Ƥ%Ȅ   ۝  i ۝  eei!MΥϱP͎iΐϥݭ*ijΥ!j X { L W Wȩ \ۈ ک \۩ \ W۠^I \ W۩ \۩ \! ڥET NORM.RM8`JERRERR.RMhhߚHH 0:, jݪ + , ޥۤ jݪ +`+AMPRESTORE AMPERSAND.RMưȱ`0MENUMENU GENERATOR.RM, , ޅ ߅ { RP QLފ8 0NORM":"AMP":D$"RUN HELPER":U)S$;:36,(33)1(E$"ESCAPE: "):"ESCAPE: ";E$:c)'"ERR",ECr)'EC99100)$'EC255Ħ).'216,0:dRESETRESET ONERR.RM OHx Xi'<i=Xh<<= o` 33vcu آL#NORMRESROGRAM MENU":E$"BASIC":200:34,2T(x"MENU",A$(1),3,"THE WRITE CHOICE MENU",P$,SE`(z34,0:(}SE0ĺ:"DO YOU WANT TO QUIT TO BASIC? (Y/N)";:A$:A$"Y"100:6,0:35(SE2į"NORM":"AMP":D$"RUN THE ANALYST":(SE3KEY1:30)SE1į"47į"NORM":"AMP":(4)"RUN CORRESPONDENT"8'#16368,0K'%"NORM":"AMP"d'(::D$"CATALOG"::v'dMENU SECTION'n:P$"ENTER A NUMBER & PRESS RETURN":A$(1)"RUN 'HELPER' PROGRAM":A$(2)"RUN 'THE ANALYST'":A$(3)"RUN 'THE CORRESPONDENT'""(sS$"P߼ ɍL,L<E(xE$"MAIN MENU":3030((}20:A$""J(SE1190,150,200,300,180,190(I01I11I21ĺ"DO YOU WANT TO SAVE THE CHANGES?";:"GET"A$"YynN"(27),1:A$"Y"A$"Y"İ327(A$(27)100("NORM":"AMP":216,0:D$;"RUN COPY":R)I01I11I2'p"WINDOW",3'qA$(1)"MAKE A COPY OF A DISKETTE":A$(2)"MAKE A DATA DISKETTE":A$(3)"PERSONALIZE THE CORRESPONDENT":A$(4)"RUN THE CORRESPONDENT":A$(5)"EXIT TO APPLESOFT BASIC":P$"ENTER A NUMBER & PRESS RETURN:"(s"MENU",A$(1),5,"MAIN MENU",P$,Sܠ󠠠렠̭ɠ宠Ơ젨穠󠠠Π宠۬ݠ򠠍򠍠ź򠠍렠`8HH hh`L  `ʎ8hhx Xʚhi hi ( e e Lee8sst t `HH HHHx Xʚh