' +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`<--     ٠ĠŮ󺠠젠砠Ӡ٠ʮĠ󠠠㮠򠠠嬠宠栠嬠㮩󮠠⮠󮠠䬠䠠ᮠ䠠堠䠠򠠠󠠠󮠠堠󮠠ؠ堠砠 w$ : = s $$ =$ wP{$%Q \ s,ɺH$ $  :΅υ s =hɕ/ɋ.Ɉ*Ɋ#ɛTɍZܐ͂) 0,ޠ 8 ް٥ ϩɥũޅ#C { L W Wȩ \ۈ ک \۩ \ W۠^I \ W۩ \۩ \! ڥ` {ݥ HF!J8h8ePΥϤ%6 XŠŠƠӠii Ȅ% $$ Bڥ$ \۩ \ Wۤ ӠĠΠҠӠԠġԱ͍ԱԢӠĮԱ͍ԱƤԤΤΤӠſӠĠΠҠӠԠġԱ򠠠6 XŠŠƠӠii Ȅ% $$ Bڥ$ \۩ \ Wۤ : ڦʽ ݥ$ 0 \۩ \ W݈ eei = ڦ Ƥ%Ȅ  'ަʆΊ eeޅ eeΥiϭ8e8 $i!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 ۝  ee LB LXFIDAPPLE ID.RMxЍԍ؍j0a0T0O XʚhiɅhi*Hh8鑠(L*Hh(p `@ )i h Hl+H L X l hLL8 /I LDATA DISKCOPR. 1982-RER SOFTWAREW 820310R1820326R2830221GCLEARCLEAR SCREEN.RM $ ީE ީO PL L   HIe E9)H i8ȱ)HHȑH   HIsq XʽiiwYilqirȄ 婍qHHȑH   HIH`H Thi)hiёȭi҅018f84 i8*8e;*:;;:0.5ʆ4HȥH8c_HH i8:ȱI;$8&&;ff:ȥ8С?? 4iUi 5i 5, { lݠ:  , g ::ɑ,($ 4 @ HI HHH H   HIc Hviiz<i=BCBHBhBC=<`@-eff L ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLINITINIT.RM8\8`+AMPRESTORE AMPERSAND.RMưȱ`FIXBAND-AID. ML֓SWITCHDSR/SDS SWITCH.RM Xiʽi܅I I Xʽiii<i=OBCBHBhBC=< Xʽi8d0 ˥opooȥoȥp$P  F `LBLENBLEN.RM j݅`ast `aꍁ% 0Lc Lk?INPUTSTRING INPUT.RM  " ީ; = l݅ , L#NORMRESET NORM.RM"@>:# ,0 e! P" , Q ! `5L GETGET.RM" ީ; = l݅ ;b {ݠ 5 P;@ LLአ $'L@ @ $%($$ " ; , J+ $216,0:8$'"8COPYRIGHT 198448ROGER WAGNERI8PUBLISHING,INC.JERRERR.RMhhߚHH 0:, jݪ + , ޥۤ jݪ +`=CTRCENTER.RM { JPL):GOTO1775":I2I21d65C2$(I2)"PRINT"Q$"GRAPHICS ABILITY ADDED."Q$:I2I21j686BC1$(I1)"7REM":I1I116GC1$(I1)"19REM":I1I116LC1$(I1)"31 IFNOTPDTHENGF$=CHR$(7)+CHR$(6)":I1I116QC2$(I2)"2031REM":I2I21y7VC2$()"31 IFNOTPDTHENGF$=CHR$(7)+CHR$(6)":I1I11X5)C2$(I2)"2031 IFNOTPDTHENGF=0":I2I215.C2$(I2)"1722 IFNOTPDTHENIFGF$=LEFT$(IN$,2)THENGF=NOTGF:IN$=MID$(IN$,3):IFNOT(IN$="Q$Q$")THENGF=1:CALLGP,IN$":I2I21(63C2$(I2)"1740 IFNOTPDANDGFTHENL2=L2+1:I0I01 4(4INSTALL GRAPHICS MODS:4GF$"2"36504C1$(I1)"7 &RECALL PD,PD:IF NOTPD THEN PRINTCHR$(4)"Q$"BRUNPRINTFILE.COR,A"Q$";PEEK(109)+PEEK(110)*256":I1I114C1$(I1)"19 IF NOT PD THEN GP=PEEK(115)+256*PEEK(116)":I1I11-5$C1$(I112)":I2I21:3570:SUP'R TERMV3 LC$"N"C1$(I1)"70 PF=0:REMNO LOWER CASE":I1I113 LC$"Y"C1$(I1)"70 PF=1:REMLOWER CASE":I1I113 C2$(I2)"PRINT"Q$"SCREEN DISPLAY CONFIGURED."Q$:I2I214VD$"2"VD$"4"C0$(I0)"6REM"(13)"185REM":3570:MICROTEK 80 COLUMN2 C0$(I0)"6?:?CHR$(4);"Q$"PR#3"Q$":VID=80":I0I01:C0$(I0)"185?CHR$(4);"Q$"BLOAD SUPERTERM,A768"Q$":&STORERF,768;BL,223":I0I01:SPECIAL DRIVER3 C2$(I2)"1704IFLC=27THENPRINTCHR$(12):GOTO 1709":I2I21:C2$(I2)V2$"S SMARTERM.1 C2$(I2)V1$"GOTO 1709":I2I211 C2$(I2)V2$"26);"Q$"4"Q$":?D$"Q$"PR#0"Q$":?D$"Q$"IN#0"Q$:I2I21:3570:VISTA VISION 801 C2$(I2)V1$"GOTO1709":I2I211 C2$(I2)V2$"26);"Q$"1"Q$:I2I21:3570:VIEWMAX 801 :2 Q$"1"Q$:I0I010 C2$(I2)V2$"22)"Q$"1"Q$:I2I21:C0$(I0)"185?CHR$(4)"Q$"BLOAD VIDEOTERM,A768"Q$":&STORERF,768;BL,160;VDX,192":I0I01:3570:VIDEX ULTRATERM @ 80 X 480 C2$(I2)V1$"GOTO 1709":I2I21 1 C2$(I2)V2$"21)":I2I21:3570:ALR#0"Q$":?:?D$"Q$"IN#0"Q$":POKE - 16207,0":I2I21:3570:WIZARD 800 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:?CHR$(22)"$(4)"Q$"PR#3"Q$":VID = 80":I0I01. 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:VIDEX. C2$(I2)V1$"GOTO 1709":I2I21I/ C2$(I2)"1786IFLC=27THEN?D$"Q$"PTP:PRINT"Q$"NO 80 COLUMN CARD."Q$":&GETT: GOTO 1790":I2I21- C2$(I2)V2$"21):REM80 COL 'OFF'":I2I21:3570:NO 80 COL.- C2$(I2)V1$"GOTO1709":I2I21- C2$(I2)V2$"12)":I2I21:3570://E&. C2$(I2)V1$"GOTO1709":I2I21:C0$(I0)"6?:?CHR27THEN?D$"Q$"PR#3"Q$":?:&HOME:"G, V2$"1786IFLC=27THENPRINTCHR$("t, EN$"Y"C1$(I1)"4&STOREKE,128":I1I11, EN$"N"C1$(I1)"4REM":I1I11, (VD$)13520,3522,3524,3526,3528,3530,3532,3534,3536,3538,3540@- C2$(I2)"1704IFLC=27THEN&CLEARXEC MODFILE":2+*"CHANGES SAVED.":I1900:I:D+ 34,(34)2:t+ 34,(34)2:D$;"PR#1":"DUMP":D$;"PR#0":+ "MENU",A$(1),0,M$:+ 1:"CLEAR"EOL:S$;:36,(33)1("ESCAPE: "E$):"ESCAPE: ";E$:+ INSTALL SCREEN MODS#, V1$"1704IFLC=R.I"Q$c*"40?"Q$"?"Q$"+QP$+"Q$"MODIFICATIONS DONE."Q$"+QP$":"45?"Q$"RUN HELPER.II"Q$~*"50?D$"Q$"CLOSE"Q$*"PRINT"Q$"NEARLY DONE!"Q$*"60?D$"Q$"EXEC MODFILE"Q$":END":"RUN"* D$;"CLOSE"*""WINDOW",12:13+%D$;"EQ$"UNLOCK COR.I"Q$:"20?"Q$"LOAD COR.I"Q$)"25?"Q$"80CALLIR"Q$";QP$;"Q$"PTRD"Q$";QP$;"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$*"30?"Q$"SAVE COR.I"Q$":?"Q$"LOCK CO22060:COR.I CHANGES8("UNLOCK COR.I":"LOAD COR.I"o(I1I11:"PRINT";I1I;";"Q$"..."Q$:C1$(I):I("SAVE COR.I":"LOCK COR.I"( "NEW":"5QP$=CHR$(34)"("10D$=CHR$(4):?D$"Q$"OPEN MODFILE"Q$":?D$"Q$"WRITE MODFILE"Q$/)"15?"0:COR.II CHANGES5'"UNLOCK COR.II":"LOAD COR.II"o'I1I21:"PRINT";I1I2I;";"Q$"..."Q$:C2$(I):I'"SAVE COR.II":"LOCK COR.II"'"L=PEEK(175)+256*PEEK(176)-PEEK(103)-256*PEEK(104):POKE 768,L-INT(L/256)*256:POKE 769,INT(L/256)"(I1" &"FP"2&"PRINT"Q$"SAVING CHANGES..."Q$S&I022020:CORRESP. CHANGES&"UNLOCK CORRESPONDENT":"LOAD CORRESPONDENT"&I1I01:"PRINT";I0I1I2I;";"Q$"..."Q$:C0$(I):I&"SAVE CORRESPONDENT":"LOCK CORRESPONDENT"'I22204EN HELP.";H$(I,0):D$"WRITEHELP.";H$(I,0)7%J1H(I)D%H$(I,J)K%JZ%D$"CLOSE"a%Ij%280%"ERR":D$"CLOSE":H(I)K::"DISK ERROR!"::10000:285%SAVE ALL CHANGES%(I01I11I21)ı&D$"OPEN MODFILE":D$;"WRITE MODFILERD":H$(3,0)"BLOCK":H$(4,0)"OTHER"@$I1H:H(I)0:K0:1030t$D$"OPEN HELP.";H$(I,0):D$"READ HELP.";H$(I,0)$"INPUT",H$(I,K1)$KK1:1020$"ERR":D$"CLOSE":H(I)K:10000$ I$$WRITE HELP FILES$I1H:1550)%D$"OP:"IS THE ABOVE CORRECT? (Y/N)";:"GET",I$"YNyn"(27),1:I$"N"700#C1$(I1)"35 IF I$="Q$" "Q$"THEN W="(W)":PL="(PL)":DS="(DS)":FM="(FM):I1I11#C2$(I2)"REM":I2I21#300#READ HELP FILES#$H$(1,0)"LETTER":H$(2,0)"WONPUT","LINES PER PAGE? (DEFAULT=66) ";I$:PL(I$)66(I$""):I$""Ģ(37):36,29:PL{"PL1PL255ĺ(7);:(37)1:745":"INPUT","LINE SPACING? (DEFAULT=1) ";I$:DS(I$)(I$""):I$""Ģ(37):36,30:DS"DS1DS2ĺ(7);:(37)1:755G#29:"BINARY":K$""$!K$(27)300m!FM(K$)1(K$""K$"B")2(K$"S"):FM0FM1ĺ(7);:(37)4:725!:"INPUT","COLUMN WIDTH? (DEFAULT=60) ";I$:W(I$)60(I$""):I$""Ģ(37):36,29:W!W5W2VIDW255ĺ(7);:(37)1:735U":"I0C "WINDOW",7::M$"'SPACE BAR' PAGE FORMAT":3020:"WINDOW",10I d "WHAT FILE FORMAT?": "1) BINARY FILE":"2) SEQUENTIAL TEXT FILE"!:"WHICH WOULD YOU LIKE?":"(DEFAULT='BINARY') ";:"GET",K$"12"(13)(27),1:K$(13)Ģ(37):36,:"GET",I$(13)(27),1::I$(27)300NA1,(L256):A4,L(L256)256D$"UNLOCK PRINTFILE.COR":D$;"BSAVE PRINTFILE.COR,A";A;",L";L3600:"GRAPHICS ";::"ADDED."::I1600:I300SET UP SPACE BAR DEFAULTS V20:VID4NTOGRAPHER":"DISKETTE, AND PRESS .";:"GET",I$(13)(27),1::I$(27)300xD$;"BLOAD PRINTFILE.RM,A";AL"BLEN",L1:LLL1(::"REMOVE";::" THE PRINTOGRAPHER DISKETTE,":"INSERT THE WRITE CHOICE DISKETTE,":"AND PRESS .";;:"GET",GF$"12"(27),1:GF$"2"ĺ:"GRAPHICS ABILITY ";::"DELETED."::I1600:I:3600:300tqGF$(27)300vL0:L10:A0:I$"":A(109)256(110){D$;"BLOAD PRINTFILE.HDR,A";A"BLEN",LU:"INSERT YOUR ";::"CONFIGURED";::" PRI = l݅ ;b {ݠ 5 P;@ LLአ $'L@ @ $%($$ " ; , J+ $8d0 ˥opooȥoȥp$P  F `0MENUMENU GENE k k kkkkQАMKAE IOUkk!?.kkkkkk jjo k!.? - k k`#NORMRESET NORM.RM8`+AMPRESTORE AMPERSAND.RMưȱ` GETGET.RM" ީ;CHLޅȢħ^ $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,"Tj&THE ANALYST 5/16/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           YNyn"(27),1AI$"N"500,C3500:300>XGRAPHICS MODIaX(0)sb:M$"GRAPHICS PRINTING OPTION":3020}d3000g:"1) ADD GRAPHICS PRINTING ABILITY."::"2) DELETE GRAPHICS PRINTING ABILITY."::al"WHICH CHOICE DO YOU WANT? (1 OR 2)"("WIZARD 80."::5758*"VIDEX ULTRATERM."::575W,"ALS SMARTERM 2.0"::575u."VISTA VISION 80"::5750"VIEWMAX 80."::5752"MICROTEK 80 COLUMN."::5754"M&R SUP'R TERMINAL."::575 ?:"IS THIS CORRECT? (Y/N)";:"GET",I$""HAVE";#EN$"N"ĺ"DON'T HAVE";A:" A VIDEX ENHANCER.": "YOUR 80 COLUMN CARD TYPE IS:"::(VD$)1546,548,550,552,554,556,558,560,562,564""NONE"::575$"APPLE //E COMPATIBLE.":LC$"Y":EN$"N"::575&"VIDEX COMPATIBLE."::5750 COLUMN":A$(10)"SUP'R TERM 80 COLUMN."c "MENU",A$(1),10,"DISPLAY SELECTION",P$,SE::SE0300sVD$(SE1)yX32ĺ:544:"YOU ";::"CAN";:LC$"N"ĺ"NOT";:" DISPLAY LOWER CASE TEXT."::LC$"N"544"YOU ";::EN$"Y"ĺWINDOW",9A$(1)"NO 80 COLUMN CARD.":A$(2)"APPLE //E 80 COLUMN CARD.":A$(3)"VIDEX 80 COLUMN CARD.":A$(4)"WIZARD 80 COLUMN CARD."(A$(5)"VIDEX ULTRATERM":A$(6)"ALS SMARTERM 2.0":A$(7)"VISTA VISION 80":A$(8)"VIEWMAX 80 COLUMN":A$(9)"MICROTEK 8"=>";:"GET",LC$"YsyS"(27),1:LC$"y"LC$"Y"GLC$(27)300qLC$"S"LC$"s"LC$"N":EN$"N":512:"DO YOU HAVE A LOWER CASE KEYBOARD?":"(VIDEX KEYBOARD ENHANCER) ";:"GET",EN$"YNy"(27),1:EN$"y"EN$"Y"EN$(27)300 "SCREEN DISPLAY:"WINDOW",7::M$"SCREEN DISPLAY":3020TE$"PERSONALIZE MENU"{"ID",X:X32LC$"Y":EN$"N":512::"If you can read this, press the 'y' key.":"IF THE ABOVE TEXT IS SCRAMBLED,":"PRESS THE ";::"'S'";::" KEY.":48":I1I118PT$"O"C1$(I1)"5 &STORE DMP,0":I1I11C2$(I2)"1706 PRINTD$"Q$"PR#"(PS)Q$:I2I21:IFPI$= "P" THEN C2$(I2 - 1) = C2$(I2 - 1) + ":?CHR$(9);" + Q$ + "81N" + Q$C2$(I2)"PRINT"Q$"PRINTER CONFIGURED."Q$:I2I21300(I$):"PRINTER SLOT:";::PS;::N:"YOU HAVE AN '";::PT$"A"ĺ"APPLE";ePT$"O"ĺ"OTHER";:"' TYPE PRINTER.":::"IS THIS CORRECT? (Y/N)";:"GET",I$"YynN"(27),1:I$"N"400I$(27)300 PT$"A"C1$(I1)"5 &STORE DMP,12K:"WHAT SLOT IS YOUR PRINTER IN? (1..7)";:"GET",I$"1234567"(27),1]I$(27)300:"DO YOU HAVE AN APPLE OR OTHER PRINTER?":"ENTER 'A' OR 'O'=>";:"GET",PT$"AaoO"(27):PT$(27)300PT$"o"PT$"O"PT$"a"PT$"A"!:PS^:" MAKE SURE YOUR WORKING COPY OF 'THE":" CORRESPONDENT' IS IN THE DISK DRIVE."::" THEN PRESS TO SAVE CHANGES.";:"GET",I$(13)(27),1:I$(27)100c2000eI01:I11:I21h:100PRINTER:M$"PRINTER SETUP":30204)"SET 'SPACE BAR' PAGE FORMAT"M;"MENU",A$(1),4,"PERSONALIZE MENU",P$,SE]="WINDOW",7k@SE0100BE$"PERSONALIZE":3030ESE400,500,600,700G:"CTR","SAVE CHANGES TO THE CORRESPONDENT":"CTR","---------------------------------"YDISKETTE AND":"INSERT CORRESPONDENT DISKETTE."::"THEN PRESS ANY KEY...";:A$::100l,PERSONALIZE MENU|1"WINDOW",53E$"MAIN MENU":3030 6A$(1)"SET UP YOUR PRINTER":A$(2)"SET UP YOUR SCREEN DISPLAY":A$(3)"ADD/DELETE GRAPHICS ABILITY":A$(堠®ڠî砧Ϳ砠󠠪ܠ󠠠ܠ󠠺߮߮߮߮߮߮߮߮󠠮߮߮߮߮߮߮߮߮߮󠠺󠠭󠠺ߠߠ󠠭󠠫󠭭֠󠠽󠼺ޠޠޠ󠼭󠼫󠼽ܠܯ̠Ӡܠܠܠܠܠܠܠܺܠܺ젠ܠܠ󠠠ܠܠܠܠܭDLܠ󠠠          Dh䠠۠ɠ󠠠ɢˠҮɢФӠŮФΠҮɢĤŢԢ٠šĤàŢč΍ĠҮɍƠàΠƠԠĠΠԠҤ̠ŬԺĠԺŠŬĺƠĠΠԠҤˠҮɍŠҮɍ 󬠠oo欠宩砠堠嬠䠠宠䠠󮠠魠嬠󠠠󮠠렠䠠٠ĠŮ             ,        堠           .򠠠򠠠쬠ﮠ󬠠箠嬠򬠠頠䬠宠笠笠Šՠǿ宠堠䠠̠̮򠠠򠠠򠱵٠ĠŮ          蠠󠠠    ,             󮠠宠ɧ嬠宠䬠宠堠򠠠砠󮠠󬠠䮠宠嬠ﬠ䮠󠠠宠堠宠堠䠠ﬠ蠠謠򠠠젲DLJ    :٠ĠŮ                               堠쬠殠堠󠠠婠嬠󮠠蠠GF䠧Ƨ젠󺠠GFŮà堧Ůç栠婠ᠠ砧Ƨ򠠠嬠䠠뮠堢뢠宠䬠󺠠Р堠堧ħ堠堠宠󠠠Ҡ堧ç宠堢堠堢䠠堢笠㮬󠠠ŠɭӠӠȠԠԠD RESENT!"::"FORMATTING..."::"INIT",N$,0:(37):" "Y"SWITCH":SDS DOSc1500:IT SHOULD NEVER GET HERE..."ERR":"SWITCH"::(7):"DISK ERROR!":10000285"DATA DISKETTE COMPLETED.":10000V:"REMOVE DATA N)";:"GET",I$"ynYN"(27),16I$"Y"I$"y"100::"TO FORMAT THE DATA DISKETTE":"PRESS RETURN...";:"GET",A$(13)(27),1::A$(27)100275"SWITCH":'INIT' DOSBN$(13)(13)"CORRESPONDENT DATA DISK"(13)(13)"NO DOS P         ΦкԢϠΠĮԺϠԲýҤ͸̠ƧԲԢΠ٠ĮԲ͍ԱƤԤΤΤӠˠҮɍĠҮɍҢĢк½Ы׺Ͻº׽ºάźƬƪŠҮɍˠҮɍӠŮΠҮɍԲĤңԲԢҠĮԲý ֮렠堠®ӧ堠ɮ젠Ǯ砠㠠Ǻ䠠ɺҺƮà纠ᮠԺ𠠠⮠ٺ䠠ŮŠîĮ󠠠֮®󠠠Ԡ®堠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.{/{ S A KEY TO GO BACK..."2VID25)::2:26:T:2520:200ZD(C) COPYRIGHT 1984 RWP128VID(33):SWW1(WVID)(VIDW):H((W1)2)(WVID)W(WVID):MO(WSW1)(WSW):VS(VID40)3SW,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 ŮӮԠ"ŮŮԠ  РӠ ЮҠ" ЮĠЮˠ ЮҠЮҠ ҮɠҮɠ)ҮʠԮŠԮР ԮĠ"ŠԠ Ϡ !ЮҠ Ԡ Ժ𮠠ٺ䮠󩍠Ǻ䮠ƺ: ڦʽ ݥ$ 0 \۩ \ W݈ eei = ڦ Ƥ%Ȅ  'ަʆΊ eeޅ eeΥiϭ8e8 $ w$ : = s $$ =$ wP{$%Q \ s,ɺH$    :٠ĠŮߐ,Ș 0Л s$ $ \ \۩ \ ߅ ee 륂 cڥP$QQ $ \۩ \۩ 0 \,L}RESETRESET ONERR.NEW.RM OHx Xi<<i=Xh<L<=`<= o` 33vcu < 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 GINGERBYΤυ8΅ϐC ۰ ))ߑ౥ ۰ ))ߑħȐ`   &HELLO 5/16/84.&(175)256(176)46:&10000J&"RESET",99Z& D$(4):D$o&KEY(49152)128&(6)27KEY27:6,0&KEY27Ĺ16368,0:100&'KEY0KEY32KEY52KEY54KEY56KEY68KEY84KEY100KEY116KEY80KEY112KEY47į       󺠠 嬠𺠠 庠 ﺠ 庠 ﺠ  󠠠ӠŠ㮠B      󮠍宍䮠ú宠宍ư8^_氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`X0&'KEY0KEY32KEY52KEY54KEY56KEY68KEY84KEY100KEY116KEY80KEY112KEY47į $ \ \۩ \ ߅ ee 륂 cڥP$QQ $ \۩ \۩ 0 \,L}RESETRESET ONERR.NEW.RM OHx Xi<<i=Xh<L<=`<= o` 33vcu آL^_:ʽe^^e__l^" ަL,< 2L,< Lx< LxL,< LxL,< LxL,٠ĠŮ젲ЍĠҮɍƠàΠŠŠҠкԠӠԧϠŮàΠĠˠҮɍŠҮɍ]Τυ8΅ϐG۰  ޱ۰  ħȐ` ̺ 簮 Π٠Š̠ 󺠠 嬠𺠠 庠 Q $ \۩ \۩ 0 \,L}RESETRESET ONERR.NEW.RM OHx Xi<<i=Xh<L<=`<= o` 33vcu آL^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^ $  :΅υ s =hɕ/ɋ.Ɉ*Ɋ#ɛTɍZܐ͂) 0,ޠ 8 ް٥ ϩɥũޅ#ߐ,Ș 0Л s$ $ \ \۩ \ ߅ ee 륂 cڥP$Q̭ĺ宠آL^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`X : nS$"HELPER PROGRAM":E$"BASIC":I01        Ѡנ󠠍󮠠̭׺̭º̭źֺ̭栠󠠍Ԡṷ̃ƺ宠Ƨ婠̭Ӻhɝ,`8HH hh`L  `iiɝ ,,Hȱh $ 8ɝ,` ۱  ɝ,,  ɝ,,ȥ#H h   ) 8H^ȩȩȑȑȑȩȩȩȩ    8H ɝ,,(hɝ,``H0h`8H ɝ,,( , { ^_x XiiXLiiɝ ,,Hȱh $ 8ɝ,` ۱    JJJJHȱh   ̭ɺ堠̭Һ堠 Š֠堠̭宠ŠŠ٩̭к宠󠍭ԠŠ٩̭ú堠̭ںRATOR.RM, , ޅ ߅ { RP QLފ8 0 ۝  i ۝  eei!MΥϱP͎iΐϥݭ*ijΥ!j X HHة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.6":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$("%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%     `X/15/84=PD,PD:(978)158ĺ(4)"MAXFILES1"CQDMP,128WI1260:T(49152)128:T0(T32T52T27T54T56T68T84T47T100T116T80T112)Ă:T32:'SPC'=DEFAULT 49168,0:6,T:(115)256(116)1200PD10M g R*+ g RH8*,h+- L犠- *+*,Ȑ`L^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ?% 0Lc LkڪPTRWRTPTR WRITE.RM$HY g RP*Q+ $H? g RP,Q-*+`, *+*+- ` 0:A G  >P?Qh*VAR SENDSIMPLE CHAIN;SEND.RM h`OERASEERASE.RTIR:IR1:T"VAR SEND",D$"RUN COR.II"@COPYRIGHT 1984RROGER WAGNERgPUBLISHING,INC.PTRDPTR READ.RM$3 0:A G  >P?Q g RP<=<= ? j݅>8: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):C32:(64255)RS6794:(1017),RST%(W):T%(0)1:T%(4)1:I9W10:T%(I)1::T%(W1)1:T%(W)1:T(0)RASE",M,T1,1606sAWW,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:C12WSW1)(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"E$"Y":(37):36,V230:I$CBI$"Y"I$"N"ĺ(7);:(37)1:65XFPF1:LOWER CASEGPDCL$(CL$,2):C$(C$,2):FP$""HPDĹ4928916OS,0PIR"PTRD",$67,BP:BBP100832W:PO0:AB:BWB:EN,E:PF,PF128USWW1(WVID)(VIDW)WZMO(I$""Ģ(37):36,V229:PL@=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$""I$"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$""):AT 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"05FM(K$)1(K$""K(6) PL66:FM0:T10:DS1. !I$"/"W66O #I$" "W60:PL66:DS1:FM0s $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 -W170E 2:V25)"BASIC PAGE FORMD CAT.WILD":IR"PTRWRT",$B1DD,$0020:IR"PTRWRT",$B1DE,$B6B3p ::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)15729s (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$"BLOA24::E IN$"X""":C0:P0:O0:A0:T0:WF1:B0:E0:I$"":D$(4)k 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 5/15/84=PD,PD:(978)158ĺ(4)"MAXFILES1"CQDMP,128WI1260:T(49152)128:T0(T32T52T27T54T56T68T84T47T100T116T80T112)Ă:T32:'SPC'=DEFAULT 49168,0:6,T:(115)256(116)1200PD10EBD1:1420:+ERE:1430:EELN:BDBBBD:BG,Bd+BRE1:ERER1:BDBR1:BR,160:EN,E~+MOVE,BR,ER,ED,BD,M:+LJ:O0:MP,A;EN,E:TP:EBİ880:1510+242,0:AF,T:Tğ,"REPLACE DOCUMENT IN MEMORY";::UPR"? (Y/N) ";I$:I$"Y"875*Q3165:F$I$:865P*M1:EN,E:BDBRLN:NB:BREEBD1:EN,E:h*BDBBBR:BG,B:*(BRBLNBDB:NBR:BRB*2EDELN: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)"="FM1003)3150:T2800*D$"BSAVE"I$",A"B",L"E1B010:F$"":875:(J$,2)"Y*"LTI$N$::2030;(\RFH(aAF,0:r(kEN,E:B,160:MOVE,B,E1,E,B1,0:EB(pLJ:O0:AB:MP,B;EN,E:(I111:UD,C59::(LK,T:PPO(T8)(P0):T1(T8)2:T%(0)1(PPT:T%(P)0960:PPO:545=)EN,C30C14į"'C31į9'C22įAF,L:1900w'C23I$"":3610:I$"Y"505:WFWF:WF,WF;LM,LM:3000'C24C17İ2100:K$" ":"":TP:'508: 'RI$" CLEAR":3605:J$I$:(J$"Y"J$"Y*"J$"Y**")ı'TJ$"Y**"I$F$:10403(W2C19T%(PO)T%(PO):"";:BWPO,173T%(PO)2:T%(PO)ĺ"";&C12I$"":3610:3000:I$"Y"TBWWWLM:T,160:TLMPO,222:(7):LMPO:LM,LM:505&C6K$"F":1800:3000:508&C28K$"H":3800:C32:3500:TP:3000'C29į'545%lC7įWRD:5082%qC8PP1:545@%vC21545k%{C15MOįLRJ,OMO(OMO2)(O0):510y%C20950%C13K$"F"1815%C26C13FMįLN:AP,16083FM:C13%C13įSU,L:505%C2LB:1900&C5įEN,E:LE:1900:PLMI&10|$SC9į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:508$bC18WFįRMV.LN:508 %gC25įWRDJMP,T:LK,C:PP(1(C8)2)T:&#"PSWOMOPPMOO:RJ:510H##POHC8PPMOO:RJ:510h#$POH1C8PPO:LJ:510#%P0OPPO:LJ:510#&P(LMO)WF(K$"F")įW2,T:OMO:SD,R:PSWT:545#D510: #IC3įCTR:AF,AO:505#KC10įSU:510$NC11įSD:50VF128ĺ(21):VS0:RST"jC56ĭLC27W161VID41(VF96VF112)VS3:RS]"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:1680B!1C83İ1000:1680R!6C16İ1700k!8C4WSWįTP:3200{!;C70İ1800!@C86įAF,L:1900!EC66LB:1900!JC69įEN,E:LE:1900!OC74İ1893!hC67C77TC:1600"iC52ĭLC27W81VID4:* C32į:3500:500:LJ:3400l "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:200RC15MOįLRJ,OMO(OMO2)(O0):200bC87İ2500qC26İ850C27Ģ1:36,SW21:"ESCAPE FN"C72C63İ3800C13İ3500:TP:RF C81I$" QUIT":3605:I$"Y"ĉ::ALL::"BYE..":FP$:IRIR0:285FINITSTK:MP,A;OS,O:LN#:PO0:PO,0:P0:L20L1:36,SW6:3):"FILE":LCC:12:0,C:K$(C):LC27Ģ1:36,SW21:9):C21C10įSU:200C8C11įSD:200C9įINS.LN2:RF:200C18BDAO:LNW:1400:U'COR.II 6/11/84)CHAIN: V::::51,0:RESET,99:EW,EW:10000VF128VID(33):SWW1(WVID)(VIDW):H((W1)2)(WVID)W(WVID):MO(WSW1)(WSW):VS(VID40)3SW,SW;HF,H;MO,MO;VID,VID;LM,LM;FM,FM;PL,PL:2520:49168,0:               2540:3400:C23:I0:2540; 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:68,0:9:I$FF$:PDįVOLUME,OV;DRIVE,OD;SLOT,OSN:LB1:875:1525T:g:4:(103),BP:y:CF,0:C0::1:LCS$,C,P:C13ī2100:C29į:C30į:C31į:2205: (34)1BS24:35,BS:2530; BS20:35,BS:I0:IR:P,I:I24I89181579I24T1AP:1865n9REPLC,P,S$,R$:RF:EN,E:AF,L:LL(R$)1:18159FF$F$:T1AP:PDįVOLUME,OV;DRIVE,OD;SLOT,OS99LT0:LE1W:IN$"":FRMT,IN$,0,L:(49152)152LTFL$(IN$,2):LTN$(IN$,3) :491T1(S$):((S$,T))175ĂR8AST((S$,T1,1)(175)):T(S$)T9E9:g8AS1AS(S$)ı8R$(S$,AS1):S$(S$,AS1):(R$)(S$)įWF,08SR1:TP:UPR"ALL OR SOME (A/S)? ";I$:ASI$"A":TP:8I(49152)128:49168,0 9ASįRF:11:0:I01:LL1:I(LT)(I$,L,1)","::N((I$,L1)):L((PG1)PLN(N0))WBW7lEW,EW;BW,BW:LL(LBW)(BWL)(LEW)(EWL):TLBW:N(TW):ANWBW:PBWTA7vPHC74C69C5C86įLJ:O0:MP,A:RF:8RJ:OMO:PPO:MP,AO:RF:"82100:S$"":R$"":TP:LT1:SR0:WF,WF:1900R6<AF,T:SRTI$F$::10406?2010:LTI$N$::POPO((EBW)(PLW)1):PO,PO:2030:18156DF$FF$ĺ:20206ILC0:18506eTP:"PAGE (,LINE) TO JUMP TO? ";I$:TP:T(I$):TıY7gPG(I$):L):80 COL 'OFF'5RSU5TDS(PLL2)CP:(T)FMāI1T:(10(IT)3);:Ih5L2(P10)L2:52000:EN,E:TP:LAP1:"TO FIND?->";:P10:2200:TP:S$""1960:S$""1865:30005LL1:FIND,S$,L,L:LEİ1900:54536:LC27ĺ"":K$" ":ĺ:L2L21:L2PLL21(4DS2ĺA4LLW:LELTW1715f4C16LTİ1795:I$N$:2030:1712~4FF$F$C16İ20204CPCP1:CP0İ1795:171042100:C16JF0:4:LC27İ1795:D$"PR#"VS:4::"PRESS RETURN...";:T5LC27ĺ(21(IN$,2)IN$"GRAPHICS HERE? GRAPHICS MOD IN HELPER IS NOT INSTALLED!"_3(IN$)ĺLL)3T(49152):T1281740:49168,0:T1551780349152,128:T(49152):49168,0:T155178033IN$;:FM(I$,5)"HELP."(IN$)VIDĺVID(IN$))4FM1040!2P11:PO,PO:1777|21900:POPO1:P1P11:J$" -"(PO)"- ":I16:LW24I,((J$,I))128::RF:17152IN$"":FRMT,IN$,JFJT,L2LP(L)64:LP26IN$(0)::MP,L:RF:17352JF$(IN$,2)JFJF:IN$" "(IN$,3)M3PDĭGF$"F"):TP?1LC27įTP:"NO 80 COLUMN CARD.":T:1790m13100:VID40VF128ĺ(21):W40įSW,39{1D$"PR#1"1FMį(121),T:(103),T11EN,E:200012010:LB:JP,0 2P11718:L((P11)PLL21)WB:LELTW1717:F$""JFI$F$:$"P"į"PG NUMBER TO START ON? ";I$:P11:PO(I$)(I$""):35,24:TP:CP1:"LINE POSN ON EACH PG? ";I$:L2(I$):TP:2010:JFLT:17090"NUMBER OF COPIES? ";I$:CP(I$)(I$""):TP1UPR"JUSTIFY? (Y/N) (DEFAULT='NO') ";I$:JF(I$,1)"Y":JT(!/MP,A:AAO:12:0,C4/C21C10įSUF/C8C11įSDY/C76C59900_//LJ: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:RF:0P10:I"Y"1600:T77BDSB:LNSESB:1400:1680c.rSESE1:SB,160:MOVE,SB,SE1,SE,SB1,0:1680{.wLN1DBLNEW4100.|BRDB:1300:SBDBSBSBLN:SESELN.BRSB:ERSE1:EDDBLN1:1430:EDEEED:EN,E.T77BDBR:1400/TP::RF:34006,SW3:("COPYMOVE",14(T77),4)B-J1690:1:C131680b-YC74T1T:1893:TT1:1600-^C2Ė15:"BLOCK BEG SET":SBA-cC5Ė15:"BLOCK END SET":SEAW-hC4Ė15:"DESTINATION SET":DBA:LNSESB:16551.mC24SBSE1610:3610:CT:I$:TP:I$""ıQ,3390:UPR"DOCUMENT TO LOAD? ";I$:I$"?"1510:I$""ıf,ABWF$I$:865x,3150:T2700,D$"BLOAD"I$",A"A:PDįLN,T:TTA1,3750:(TA)TA,3162,@I$" "("REMOVECLEAR",16(T67),6)" TEXT":CT:3500*-E1:3®󠠠󠠠󠠠󠠠®砧Ϳ砠ɮ󠠠堠®ŧƧ堠خا堠î󠠠Įخ󠠠ȧ򠠠ɮϠ堠®렠ǧŠ堠®堠î堠ĮɮEC99įMP,AO;OS,0:185CC$'EC1(EC16PD)EC21Ĺ216,0:zC&'K$"H"(EC4EC5)TEC:EC6:T5ĺ:D$"DELETE"I$C)'EC5ĴK$"("2750:K$".":3822C+'EC9FMĺ:D$"DELETE"F$C.'TP:PDĺ"ERROR: ";:ERR,EC:C0'PDĹ37,255:ERR,EC>D['"PRES3810:1:CL$::35,BS:C13-BS$"":KBD$"OPEN"I$:D$"READ"I$:hB12::K$" "508:1680~B'FIXSTK:EC(222)B'EC255K$" "505B'EC5K$"("10012B'SR0:WF,WF:1:CL$:D$"PR#"VS:D$"IN#"VS::34,1C'2100:EC255İ1680:200C'L"I$"LETTER"*AI$"W"I$"WORD"AAI$"O"I$"OTHER"aA(I$,1)" "I$"HELP."I${A4000:BS(35):35,24AK$"."3822::I123:I::PFįS$APFįUPRS$AK$"(":T((S$)41)(VID40)2:T)(S$,VID(I23));:!B23::T:T67UPR"? (Y/N) ";I$:TP:@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"AI$" TO MOVE 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$;:::>H C13:35,BSK> (35)203515:35,24:20::I0SW:"=";::Z> 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";A? C32ĺ"CONTROL-X TO PRINT OR FILE DOCUMENT":H2$"(I$,5)".TEXT"(I$,5)"HELP.":7=X MP,T:TT1Y=Z TEET(TEW)(EWT):EN,E_=] = 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 TFMP 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򠳰ĠŮ     ٠ʮ̬ŠҠ󠠠宠砠Ӡ󮠠堠宠堠䠠䩠宠̠Ӡ堠򮠠酡 =$ wP{$%Q \ s,ɺH$ $  :΅υ s =hɕ/ɋ.Ɉ*Ɋ#ɛTɍZܐ͂) 0,ޠ 8 ް٥ ϩɥũޅ#ߐ,Ș 0Л s$ Ȅ% $$ Bڥ$ \۩ \ Wۤ : ڦʽ ݥ$ 0 \۩ \ W݈ eei = ڦ Ƥ%Ȅ  'ަʆΊ eeޅ eeΥiϭ8e8 $ w$ : = s $$ϥݭ*ijΥ!j X { L W Wȩ \ۈ ک \۩ \ W۠^I \ W۩ \۩ \! ڥ` {ݥ HF!J8h8ePΥϤ%6 XŠŠƠӠiiSTORE AMPERSAND.RMưȱ`0MENUMENU GENERATOR.RM, , ޅ ߅ { RP QLފ8 0 ۝  i ۝  eei!MΥϱP͎iMP":D$"RUN HELPER":L)S$;:36,(33)1(E$"ESCAPE: "):"ESCAPE: ";E$:Z)'"ERR",ECi)'EC99100w)$'EC255Ħ).'216,0:#NORMRESET NORM.RM8`JERRERR.RMhhߚHH 0:, jݪ + , ޥۤ jݪ +`+AMPREAM MENU":E$"BASIC":200:34,2P(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:35(SE2į"NORM":"AMP":D$"RUN THE ANALYST":(SE3KEY1:30)SE1į"NORM":"A"NORM":"AMP":(4)"RUN CORRESPONDENT"4'#16368,0G'%"NORM":"AMP"`'(::D$"CATALOG"::r'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$"PROGR߼ ɍL,L<"' s"MENU",A$(1),5,"MAIN MENU",P$,SE@ xE$"MAIN MENU":3030N }20:A$""p 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,I11I21E$"SAVE CHANGES"& o30306 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:ܠ󠠠렠̭ɠ宠Ơ젨穠󠠠Π宠۬ݠ򠠍򠍠ź򠠍렠`8HH hh`L  `ʎ8hhx Xʚhi hi ( e e Lee8sst t `HH HHHx Xʚh