' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`X$"A"380X$"B"4500,X$(27)520N6X$"C"(49932)136540^@X$"D"670nJX$"E"750~TX$"F"790^X$"G"900_X$"K"(64435)6372cX$"P"1000hX$"V"((VD$)83(VD$)81)820r80^t::5:"(U)PPER C "(809))5:"F. MODEM SLOT: "(808)J5:"G. CLOCK SLOT: "(813)k5:"K. KEYBOARD TYPE: "KT$:5:"P. DEFAULT PRINTER MARGINS, ETC.":5:"ESC QUIT"16384,128:X%(16384)128:X%X%32(X%96):X$(X%):16368,0H$:,#MN%9200,#10030:91201,#"SORTING..."U,#X1AL%:X$AL$(X)::7:X$:E%:Xi,#"RESTORING...",#X1AL%:X$AL$(X)::6:X$:E%:X,T$M:50,' SORT LIST AL ,'AL%1XT1:,'XT(AL%2.5):XVXT,'(AL$(XT),20)X$ı-'(XV)1X$""5022:(X$,1,1)"1"(X$,1,1)"9"5021K+B(X$):X$(X$,1((B)))X+ABBA^++(#10:"ALPHABETIZING WITHIN WORD GROUPS"+#M0127:N%M+#X201:12+#"GROUP "M1" OF 128"+#614:"GETTING..."+#BAD3,255:AL%0+#:8:X$:N%AL0ALCE%910:RU23400"*L50H*V216,0:"NOT A DOCUMENT...":K$:T*A0:B0*(X$,1,1)"1"(X$,1,1)"9"X$(X$,2):X$""5015:5010*A(X$):X$(X$,1((A)))*(X$,1,1)" "X$(X$,2):5018*(X$,1,1)"-"BA:,+X$(X$,2):FU7į:7:R$:E%") FU6į:6:R$:E%)) X8) WF0:10:L) AD$": "R$" ";f) PS4ĺ", GROUP "LZ%;l) ) FU7į:7:R$:E%) FU6į:6:R$:E%) E%40ĺ"ERROR: "E%) KEEPER):3:R$:E%)WAWA1)$E%1ĺ"ERROR-";E%).3120)8:*B 5000:3450:X$""3440:3430?(z IAB:I0IWF3460:I:( N$(I)"":X301100(I)1480(I15):12:" ";:( N$((X$))"":X301100((X$))1480((X$)15):12:" ";:3430( X1WF:R$N$(X):R$""3520) PS4ĺ"GROUP "LZ%" "1'> WF303590:3400:3590@'H WF03530'R X2001:12:"STRIKE OUT WORDS YOU DON'T WANT TO":X2101:12:AD$" BY TYPING THEIR NUMBERS. TYPE"'\ X2201:12:"'OK' WHEN FINISHED."'f X2222:XJ15:32030:XK15550:X$"OK"3480(pWORD IN DICTIONARY & :5:S$:R%H& R%4ĺ"DISK ERROR FOR "S$:32020:N& :q& (R%0FU6)(R%0FU7)3340w& :& 3120& NOT FOUND& WFWF1& R$S$&* RU13540:N$(WF)R$:X301100WF1480(WF15):12:WF" "R$'4 X13912(PS4):12:԰Ȱְ׍ ::1:M$!%l X2001:12:614:3120'%v :S% CV3210:M$A$(L):A$(L)""::1:M$:3220t% 768:M$(X$,1)::1:M$:3220% X130:12:"LINE: "((L)" ",3)% LL1:3120% (16384)1283250:16368,0:32020:X$E$50% :% WKWK1& LOOK FOR L3:BAD15,L4:BAD3,TN%:N2%0LZ%03640:LZ%N2%:3240R$D :2:S$:S%:X%:Q%(S$)c$N S$""3240$X PS1CV0LILI1:LI03640%b PS53190:X2001:12:"TYPE SOME WORDS YOU WANT TO "AD$".":X2101:XJ7630((812)79):32030:X$""3640:M$(X$,1)):DAD7,S8%#5 N1%Z%:Z%N2%:TN%(BAD3):L3(BAD14):L4(BAD15):BAD3,SN%:BAD14,L1:BAD15,L2:BAD4,SB:DAD,2::8:S$:Z%#6 S6%(9):9,S5%:S8%(DAD7):DAD7,S7%8$: DAD,1:BAD4,PB:N2%Z%:Z%N1%:L1(BAD14):L2(BAD15):SN%(BAD3):BAD14, WF0:L10:L20" 900" :;" 216,0:PS13050:3640V" L1:PS5į:1:M$:3170p" Z%0:LZ%0:PS43120" CV3080:M$A$(1):3090" 768:M$(X$,1)" :1:M$" L%2"& X101:12:"FILE: "CF$" " #0 PS43140:S5%(9):9,S6%:S7%(DAD7D$"RUN PARAMETERS"OD::(12):::::::::::"ONE MOMENT, PLEASE..."]7,0:816d1o1: iyP.0pdI! ^PZ$]O2>i:O-Y~23Q:&IIG!F>G{Wpf(=I2RA)KRUa1U  4[D'^PJ3% RacU &))"' 0 @p)Т됝Lq0:A [ a{`8` 6v I' 6v'` ppp`pppppppm ppm p` ߅1 ߅2 ߅`     ` vw`ة!pp`9p:p9p8p`툱숱hhhh`) 9p)쨩':)M9p9p1   LuJfJfJfJf瘟:p:pȊ:p)됕Ȍ8p:p`)ȱ   JJJL v & & &0"8e vv vv p p ` v t  v` 'up 'u u s-8p8e08p i` sӠie 'u;p8pimppipppp8p`i8ppp ti 0tLrL3rL0rpp s*p 0rp i s 0iLuL5r숱mp0#i uieȑi` qL0rH) hJJvpvppv0pp8epp  6v evHȘhp ev  TvLq t,` Ft0 tL0r FtK VtO0A tEp0+i Șe tLVr,,,,L5r VtL5r08pȩ8pei8p88p +tLr 0t8np Vt09p=8p pk pl p p8pȱ,@pppppp`pL v1 6v xv!Hpȭphp xv  Tv,ȩȭp` jvppppҊ &mpmpm pm ppekelȱȱpLpw{{vwLITEN'TAPH pi p piv ipipp{pp8npLppp`, vpv"vLtHHȱ vhhLp v804LLUqL+rL?rLJrLrLrL8sLxs` pp p TASK LONG THIS COME SSMYNDICTMYNNDICTMYYDICTMMDICTTDICCDIIDDDD3 SSTT3,WHICH ENTRY (1-6)? FRONT A MOVE YOUR EASY ISN'T WORDS FIRST SINCE PARAGRAPH WHERE ALLY NEEDED SHOULD OF IN THAT'S IS AT AS AREN'T SECOND RE YOU ALL PRETTY LETTER IT TO S COME BELONGS THROUGH THE TWELFTH MOVE YOUR EASY TASK LONG THI FIRST SINCE PARAGRAPH WHERE FRONT A OF IN THAT'S ISN'T WORDS AS AREN'T SECOND REALLY NEEDED SHOULD U__PRETTYPRETTYPRETTYYPRETTTPRETTPREEPRRPPPPPPPP__MYNDICTMYNNDICTMYYDICTMMDICTTDICCDIIDD5 DD3IT TO IS AT WHICH ENTRY (1-6)?__PRETTYPRETTYYPRETTTPRETTPREEPRRPP__UGLYUGLYUGLYYUGLLUGGUU__PRETTYPRETTYYPRETTTPRETTPREEPRRPP__UGLYUGLYYUGLLUGGU  : S5000XfL((812)79):RV67000:AS5000rSEM1:(4)"PR#"3((812)79):RV67000:|S5000ZtXЉIHX=DC IOWRKWDD D הCΔVՔVӔMJX$"put in your program disk."R3L$(54)" OF ":L$(55)" LINES WILL BE INSERTED.":L$(56)"Bad name":L$(57)"Replace ":L$(58)"No space in menu":L$(59)"CHECKING PRINTER...":L$(60)"NOT IN CATALOG ":Y$"Y":N$"N":SEM1:(4)"PR#"3((812)79):RV67000"That file is locked.":L$(47)"This disk is full.":L$(48)"This disk is write-protected.":L$(49)"Error #":L$(50)" in line "R3L$(51)"Press any key to try again.":L$(52)"Diskette or hardware is faulty.":L$(53)"Take out your document disk and"(13)'":L$(38)"1. Save this as '":L$(39)"2. Save this under a different name.":L$(40)"3. Don't save this at all.":L$(41)"What to call it, then?"Q3L$(42)" words left":L$(43)"Insert the disk containing":L$(44)"' and press RETURN.":L$(45)"About ":L$(46)29)"B. Start a new document":L$(30)"P. Go to the printer":L$(31)"E. Edit ":L$(32)"M. Go to other menus"O3L$(33)" PRESS 'A' TO ADD TEXT, (ESC)APE TO QUIT":L$(34)"Go to line #":L$(35)"Now saving '":L$(36)"> Last saved "P3L$(37)"1. Replace 19)"FILE: ":L$(20)"Search for what"N|3L$(21)"MARKING...":L$(22)" MARKED.":L$(23)" TO ":L$(24)"R-REPLACE, S-SKIP, Q-QUIT":L$(25)"Subfile name?"pO3L$(26)"The Document Editor":L$(27)"=== ======== ======":L$(28)"A. Select a document to edit":L$(ines ":L$(12)"Delete marked range?":L$(13)"' found in this line":L$(14)"(A)DD (D)ELETE (M)ARK (P)RINT (ESC)APE "&NT3L$(15)"Search/replace ":L$(16)"Press 'RETURN' for DRAFT print":L$(17)"DOUBLE SPACE? ":L$(18)"SHOW LINE NUMBERS?":L$(RIGHT DISKETTE!"L3L$(5)"Which file # to edit: ":L$(6)"Create what document: ":L$(7)"NOT ENOUGH SPACE...":L$(8)"TYPE!. LEFT ARROW ERASES. (ESC) TO QUIT":L$(9)"...ONE MOMENT, please..."tM,3L$(10)"OPTIONS:(D)ELETE,(M)OVE,(F)ILE,(C)ANCEL":L$(11)", lKN/EL$(157):13000:PK/2084:DF%50((26)256(27))150:QR1000:85:VK2L2TT$" 2 0 5 0 0 0 0 0 0 0 0 0 0 0 0 0 3 0 6 0 0 0 8 4 7 9 0 116 013 0 0 011 0 012171514 0 0 01710 0 0":L$(1)"This disk can hold ":L$(2)" more words":L$(3)"NOT THE 109,16(804):2123,(2109):CR$"^":(812)8112090:CR$(127)sJ:/(812)8012100:VN$(27)"T":VF$(27)"U"KD/CR$VN$CR$VF$:MV$"....'....":X18:ML$ML$MV$(X)::ML$" "(ML$,WD)" ":MV$"":MIN(X)D(XD)X(DX):MAX(X)D(DX)X(XD$(4):CA$"CATALOG":OP$D$"OPEN":WR$D$"WRITE":RE$D$"READ":KL$D$"CLOSE"I/WD7940((812)40):DR$",S"((804))",D"((805))",V"((806)):DP$",S"((810))",D"((814))",V"((815)):(815)0DP$DP$" "I/WD7840((812)40)AJ0/2Y$Z$""1H+XW:12:X$Z$:X$(157);:868::7H+UH+I0:180:1130:110:1300[H.OI.X%5:I%1:UC%32:LI%0:LX%0:TP%0:NU%0:CX%0:SV%1:BV%0:DX%1:M4%1:HT%0:VT%0:LL%0:QQ%0:TMP%0:XM%0:X$"A":IN$"":XI$"B":A$(500),NL$(1),C$(45),L$(65):D) ) )), e8e8ϐ`$""L$L$(56):11200G+11100:Y0L$L$(57)X$"?":11210G+CE%38L$L$(58):X$"":11200G+G+XW:12:L$:13:X$"":11220 H+XW:12:L$:Z$X$:13:X$ &))"' 0 @@)Т됝LA0:A [ a{`8` 6F I' 6F'` @@@`@@@@@@@m @@m @` ߅1 ߅2 ߅`     `F`ة!@@`9@:@9@8@`툱숱hhhh`) 9@)쨩':)M9@9@1   LEJfJfJfJf瘟:@:@Ȋ:@)됕Ȍ8@:@`)ȱ   JJJL F & & &0"8e FF FF @ @ ` F D  F` 'E@ 'E E C-8@8e08@ i` CӠie 'E;@8@im@@i@@@@8@`i8@@@ Di 0DLBL3BL0B@@ C*@ 0B@ i C 0iLEL5B숱m@0#i Eieȑi` AL0BH) hJJF@F@@F0@@8e@@  6F eFHȘh@ eF  TFLA D,` FD0 DL0B FDK VDO0A DE@0+i Șe DLVB,,,,L5B VDL5B08@ȩ8@ei8@88@ +DLB 0D8n@ VD09@=8@ @k @l @ @8@ȱ,@@@@@@@`@L F1 6F xF!H@ȭ@h@ xF  TF,ȩȭ@` jF@@@@Ҋ &m@m@m @m @@ekelȱȱ@L@GKKFL @i @ @iF @iFi@i@@K@@8n@L@@@`, F@F"FLDHHȱ FhhL@ F804LLUAL+BL?BLJBLBLBL8CLxC` @@ @5210?F2890:X(0):OP$FI$DR$:208,255:A$(0)"0":5120:W$A$(0):5708:180:KL$FI$:(208)35705?G(212)WD5705:W$(W$,11):1000 @IOP$FI$DR$:RE$FI$:W$C.,S6,D2,V00,S6,D2,V,S6,D22,S6,D,S66,S6,D1,V00,S6,D1,SWHICH ENTRY (1-6)?C.RE> FKAN3C.NY KEY":320200ī5100080ĺ"ERROR CODE - ";(37399)>0ĀD08Ǭ0`10:"PUT YOUR PROGRAM DISK IN DRIVE #1":32020:216,0:01XkL$ D;E;D ;D ;CVBARADA PBDPSBpB)s B) X /6Ĺ37399,0/@Č37376./Jĭ(37399)15503605/TĂS WF303590:3400:3590H WF03530R X2001:12:"STRIKE OUT WORDS YOU DON'T WANT TO":X2101:12:AD$" BY TYPING THEIR NUMBERS. TYPE" \ X2201:12:"'OK' WHEN F0:16368,0:32020:X$E$50# :/ WKWK1Q LOOK FOR WORD IN DICTIONARY_ :5:S$:R% R%4ĺ"DISK ERROR FOR "S$:32020: : (R%0FU6)(R%0FU7)3340 : 3120 NOT FOUND WFWF1 R$S$&* RU13540:N$(WF)R$:X$".":X2101:XJ7630((812)79):32030:X$""3640:M$(X$,1)::1:M$`l X2001:12:614:3120fv : CV3210:M$A$(L):A$(L)""::1:M$:3220 768:M$(X$,1)::1:M$:3220 X130:12:"LINE: "((L)" ",3) LL1:3120 (16384)128325:N2%Z%:Z%N1%:L1(BAD14):L2(BAD15):SN%(BAD3):BAD14,L3:BAD15,L4:BAD3,TN%:N2%0LZ%03640:LZ%N2%:3240D :2:S$:S%:X%:Q%(S$)N S$""3240X PS1CV0LILI1:LI03640Fb PS53190:X2001:12:"TYPE SOME WORDS YOU WANT TO "AD:"FILE: "CF$" "K0 PS43140:S5%(9):9,S6%:S7%(DAD7):DAD7,S8%5 N1%Z%:Z%N2%:TN%(BAD3):L3(BAD14):L4(BAD15):BAD3,SN%:BAD14,L1:BAD15,L2:BAD4,SB:DAD,2::8:S$:Z%6 S6%(9):9,S5%:S8%(DAD7):DAD7,S7%w: DAD,1:BAD4,PBFK(Y):+ X2401:12:TW" WORDS";:320203 50; 10N WF0:L10:L20W 900] :z 216,0:PS13050:3640 L1:PS5į:1:M$:3170 Z%0:LZ%0:PS43120 CV3080:M$A$(1):3090 768:M$(X$,1) :1:M$ L%2& X101:12:M%R$""2500LN%M%/NQ%12160WHX$((B$,NQ%)((RADM%1)),NQ%)a2160| :"END OF DICTIONARY" P$"P"ĺ(4)"PR#"3((812)79) K$"R"2510:2510 32020:600:Y0127:W(Y22):VY22W:X100V6W101:12 Y" "GW:GW0:::LPLP4)cLN%0N%025005dGWGW1@fLN%N%`p(R$B$,NW%(HX$))HX$" ";u(16384)1282170:16368,0:32020:X$E$50zTF%TF%1:TF%02190:TF%NF%:LPLP1:LP0āLP(LP)9:" ":LP:LPL3K$"D"2115:9:R$4TF%NF% K$"D"20705 NQ%4: FREQ CNT;:I N%0:M%0W%NQ%NQ%1k*LN%0:GW0:TW0vCHX$""HK$"R"2200R:8:R$:N%S2147\LN%N%ĭTF%0ĺ:TF%NF%:LPLP1aLN%N%ĺ:"GROUP "LN%": "GW" WORDS":FK(LN%)GW:TWTW (T)EXT?":32020:K$X$*K$"D"İ43000=K$"T"K$"R"KX$E$50u"(S)CREEN OR (P)RINTER":32020:P$X$X$E$50L356LP99999:P$"P"LPL3:(4)"PR#"(809)NW%18:TF%0NF%42((812)80P$"P")P$"P"NW%17:NF%$"OPEN "CF$DR$"D$"READ ";CF$CLI0:PS1935:768:LI(X$)LMX0XCV990b980sPS1LI500{Y0X1LI768:YY1:A$(Y)(X$,1)XLIY:216,044000:DD0:303010:"WORD LISTS":"(D)ICTIONARY OR CURRENT PLEASE"4 X0:XJ30:32030:XK15550:X$""901< 10 AL0912:X$"":X1CE%1:C(X)0911:X$C$(X1):C(X)0:XCE%1 X:X$""AL0:3640 CF$(X$,1) CVDD915:10:"INSERT THE DISK WITH '"CF$"'":32020 :D$"CLOSE":50D(812)80601:(12):! Y:? f(812)80615:(139);:K g958:o X1((HX$,1))48:X19X1X17 *X2((HX$,1))48:X29X2X27 4DCX116X2 > LI0:PS135000 PS5990 PS4990 10:X101:12:"NAME OF TEXT FILE,01)252Ĺ2152,76:2153,125:2154,8:9 (FK(127),C$(45)j -BAD7,(BAD5):RAD,255:BAD8,143:BAD6,0 2B1$"=========================================":B$" " 3(4)"CLOSE" <10:40000 =: _3000 XAD:9, (4)"BLOAD DCBIN,A16384,D1":BAD_ 216,0:(4)"APPEND SPELLING PROGRAM DISK":40 (812)8011:(12):44010: :44010: (812)8014:KCX100(X100):(158)(159KC)(159(X100));: (X100):X100100(37):% (8 63999 16360Y X$"A":X%1:UL%32:D$(4):N$(50)::E$(27):C(45),AL$(250) 29000:BAD16384:CV4:BAD28672:116,112 RADBAD2816:DADBAD1764:PBBAD2567:DPBAD1792:SBPB11:60000 15:CV8 (4)"BLOAD DCBIN,A28672,D1":BI^NS]MK@PC];_3@+^#[\  LiI i`A[ cI Qi )ii`Ƀi`iI i`iȥii`ii`,LL,L %! p(R$B$,NW%(HX$))HX$" ";T u(16384)1282170:16368,0:32020:X$E$50x zTF%TF%1:TF%02190:TF%NF%: LPLP1:LP0āLP(LP)9:" ":LP:LPL3 K$"D"2115 :9:R$:M% R$""2500 LN%M% NQ%12160!HX$((B$,N%0:M%0%NQ%NQ%1,*LN%0:GW0:TW07CHX$""HHK$"R"2200VR:8:R$:N%`S2147\LN%N%ĭTF%0ĺ:TF%NF%:LPLP1aLN%N%ĺ:"GROUP "LN%": "GW" WORDS":FK(LN%)GW:TWTWGW:GW0:::LPLP4cLN%0N%02500dGWGW1 fLN%N쮠堍: S5000XfL((812)79):RV67000:AS5000rSEM1:(4)"PR#"3((812)79):RV67000:|S5000ZtXЉIHX=DC IOWRKWDD D הCΔVՔVӔMJX$"put in your program disk."R3L$(54)" OF ":L$(55)" LINES WILL BE INSERTED.":L$(56)"Bad name":L$(57)"Replace ":L$(58)"No space in menu":L$(59)"CHECKING PRINTER...":L$(60)"NOT IN CATALOG ":Y$"Y":N$"N":SEM1:(4)"PR#"3((812)79):RV67000"That file is locked.":L$(47)"This disk is full.":L$(48)"This disk is write-protected.":L$(49)"Error #":L$(50)" in line "R3L$(51)"Press any key to try again.":L$(52)"Diskette or hardware is faulty.":L$(53)"Take out your document disk and"(13)'":L$(38)"1. Save this as '":L$(39)"2. Save this under a different name.":L$(40)"3. Don't save this at all.":L$(41)"What to call it, then?"Q3L$(42)" words left":L$(43)"Insert the disk containing":L$(44)"' and press RETURN.":L$(45)"About ":L$(46)29)"B. Start a new document":L$(30)"P. Go to the printer":L$(31)"E. Edit ":L$(32)"M. Go to other menus"O3L$(33)" PRESS 'A' TO ADD TEXT, (ESC)APE TO QUIT":L$(34)"Go to line #":L$(35)"Now saving '":L$(36)"> Last saved "P3L$(37)"1. Replace 19)"FILE: ":L$(20)"Search for what"N|3L$(21)"MARKING...":L$(22)" MARKED.":L$(23)" TO ":L$(24)"R-REPLACE, S-SKIP, Q-QUIT":L$(25)"Subfile name?"pO3L$(26)"The Document Editor":L$(27)"=== ======== ======":L$(28)"A. Select a document to edit":L$(ines ":L$(12)"Delete marked range?":L$(13)"' found in this line":L$(14)"(A)DD (D)ELETE (M)ARK (P)RINT (ESC)APE "&NT3L$(15)"Search/replace ":L$(16)"Press 'RETURN' for DRAFT print":L$(17)"DOUBLE SPACE? ":L$(18)"SHOW LINE NUMBERS?":L$(RIGHT DISKETTE!"L3L$(5)"Which file # to edit: ":L$(6)"Create what document: ":L$(7)"NOT ENOUGH SPACE...":L$(8)"TYPE!. LEFT ARROW ERASES. (ESC) TO QUIT":L$(9)"...ONE MOMENT, please..."tM,3L$(10)"OPTIONS:(D)ELETE,(M)OVE,(F)ILE,(C)ANCEL":L$(11)", l)KN/EL$(157):13000:PK/2084:DF%50((26)256(27))150:QR1000:85:VK2L2TT$" 2 0 5 0 0 0 0 0 0 0 0 0 0 0 0 0 3 0 6 0 0 0 8 4 7 9 0 116 013 0 0 011 0 012171514 0 0 01710 0 0":L$(1)"This disk can hold ":L$(2)" more words":L$(3)"NOT THE 109,16(804):2123,(2109):CR$"^":(812)8112090:CR$(127)sJ:/(812)8012100:VN$(27)"T":VF$(27)"U"KD/CR$VN$CR$VF$:MV$"....'....":X18:ML$ML$MV$(X)::ML$" "(ML$,WD)" ":MV$"":MIN(X)D(XD)X(DX):MAX(X)D(DX)X(XD$(4):CA$"CATALOG":OP$D$"OPEN":WR$D$"WRITE":RE$D$"READ":KL$D$"CLOSE"I/WD7940((812)40):DR$",S"((804))",D"((805))",V"((806)):DP$",S"((810))",D"((814))",V"((815)):(815)0DP$DP$" "I/WD7840((812)40)AJ0/2Y$Z$""1H+XW:12:X$Z$:X$(157);:868::7H+UH+I0:180:1130:110:1300[H.OI.X%5:I%1:UC%32:LI%0:LX%0:TP%0:NU%0:CX%0:SV%1:BV%0:DX%1:M4%1:HT%0:VT%0:LL%0:QQ%0:TMP%0:XM%0:X$"A":IN$"":XI$"B":A$(500),NL$(1),C$(45),L$(65):D Gf+Y0:X1CE%:XX$C$(X)YX)Gp+X:FGz+XX$X$:11100:Y0İ7510LG+oG+11020:X$""L$L$(56):11200G+11100:Y0L$L$(57)X$"?":11210G+CE%38L$L$(58):X$"":11200G+G+XW:12:L$:13:X$"":11220 H+XW:12:L$:Z$X$:13:X$:,F +FC$(X$,1,1):FC$"A"FC$"Z"11050jF+FC1(X$):FC$(X$,FC,1):FC$"*"FC$","FC$":"11050F +FC:X$"CATALOG"11050:X$"MAILCAT"11050:F*+X$"":FH+L$(49)(222)L$(50)(218)256(219)"."FR+L$(51):ER%1:13:FI$""1100:G\+C$(CE%)X$: E`::RV0:EM1ĬE12160:768,(FI$):X1(FI$):769X,((FI$,X,1))::20:X610:12:L$(19)FI$:X810:12:L$(31)FI$:X1010:5100E'E'10070:(4)"RUN MENUS"DP$E='10070:7,20:X701:12:45:816EV'DR$DP$ıF`'LF$L$(53):13$(35)FI$"'"JDOP$FI$DR$:WR$FI$:CX%0:LO;W$:(813)07480:L$(36)TI$D8X1LI%:A$(X):X:KL$FI$:768,(FI$):(769)07520:769,1:X$FI$:FI$"Q*"7520:7510:7520 EVOP$CA$DR$:WR$CA$:(CE%1):0:0:QQ1CE%:C$(QQ):QQ:X$:KL$CA$:CE%CE%1:((FI$,X,1)):X:QQ1CE%:C$(QQ)FI$Ĺ769,1QQ:7020BCdC(769)0ĺ:D$"DELETE"FI$DR$CLOLI%:FI$"Q*"7440:(813)0LI%4407430:LOLI%1:P(2040):LOLI%1:P(2040):(4)"IN#"(813):TI$:(4)"IN#"03(P195):2040,P DX1501:12:L(NO%0));FI$"'.":CE%387120:L$(39)tBL$(40):13:X$"1"7300:X$"2"7140:X$"3"7520:X%27EM01020:7020BCE%387020:X1301:12:L$(41):X1324:XJ15:454:20:X$""7020.C*11020:X$""7020:FI$X$::768,(FI$):769,0:X1(FI$):769X,A$(Y)(A$(Y),W):YY1:5725EAgX:180:LI%Y:MI%LI%:KL$FI$:1000PAVLI%LOYAWEM1_AXAY:20:W$"T"("000"(TP%),3)"H"("00"(HT%),2)"V"("00"(VT%),2)"W"AlUC%32:CX%0X%0:7520&BvFI$"Q*"7300:NO%((769)0):X901:12:L$(37:5708:5710:@LLI%(W$):(W$,1)"W"W$"T001H01V03W"@@M@NW$(W$,11):Y0:X1LI%:2093:YY1:A$(Y)(X$,1):(16384)127Ĺ16368,0:FI$"":5230@](A$(Y))WD5735:WWD:ZWD11:(A$(Y),Z,1)" "5730:WZ:Z1AbZ:A$(Y1)(A$(Y),W1):))::(769)0FI$"Q*"5420:DR$DP$5640:20:X1201:12:L$(43):"'"FI$;L$(44):13`?5210?F2890:X(0):OP$FI$DR$:208,255:A$(0)"0":5120:W$A$(0):5708:180:KL$FI$:(208)35705?G(212)WD5705:W$(W$,11):1000 @IOP$FI$DR$:RE$FI$:W$:XJ15:454:X%275070:X$""5330:A1A:64477:5320K>A15510,5410p>"XX$X$:11160:X$""5320:FI$X$>,769,0:180:W$"T001H01V03W":2890:1000>(X$)1(X$)CE%15320:FI$C$((X$)1):769,1:5702V?FI$"":X1(768):FI$FI$((769X2:C$(1):L$(1)DF%L$(2):CE%15310:768,0:XCE%1:CE%20X20=}J1X:((J)" ",1,3)(C$(J1)" ",1,16);:J20CE%15255:((J20)" ",1,3)(C$(J21)" ",1,16);=:=XI$""8>X2302:12:L$(5A);:X23240:X$"P"10045:(X$"E"X%27)FI$""ī1020J<X1X2FI$"Q*"ī5125d<AX1:20:5210:5230q6| (A$(M2),1,H21):D$"CLOSE"SF$:H10M1M11:2950V6 A$(M1)(A$(M1),H1)6 A$(M11)">SF "(X$,3):LL%M1:TP%M1TP%M116 M1M12:H10:X101:12:28106 6 VT%2VT%3:HT%1{7 M3TP%VT%3:H3HT%:M3M1M3M23024:(M1M2)(M3L$(25):XJ13:A$"":UC%32:2610:UC%0:X$""11230:XX$"S*"X$6m 11160:X$""11230:X$"S*"X$::Z1MI%:Z2LI%:MI%0:LI%M2M11:11130:LI%Z2:MI%Z1:CX%1:SF$X$:D$"OPEN"SF$DR$:D$"WRITE"SF$:M2M11:(A$(M1),H11):M11M212940:QQM11M21:A$(QQ2),H2(H20)):M2M2124" M2M12861:180:11004- SV%LI%M2:TMP%M21:NU%M11:M4%M2:2072:LL%NU%:LI%LI%(M2M1)1:180:CX%1:2081:180:4J M11:M2499:H10:H20:LI%499:2861:4T ?5Y (M2M1)(H10)(H2(A$(M2))1)11230:XI$""::KL$:M9$L,3 X$(27)Ĭ*3 D$"RUN"B$DP$ 3000E3 X$(27)ĬW3 D$"RUN"B$DP$ X$(27)Ĭy3 D$"RUN"B$DP$T%:M1M2A$(M1)(A$(M1),1,H1)(A$(M1),H2):CX%1:180:11003 H10A$(M1)(A$(M1),H1):M1M114 H2(A$(M2))1A$(M2)(A$(M(X$,2):1980'2(X$,1,1)"-"BA:d2X$(X$,2):X$""2010:(X$,1,1)"1"(X$,1,1)"9"20002B(X$):X$(X$,1((B)))2ABBA22 410:"PUT YOUR PROGRAM DISK IN DRIVE #1":12402 30002 X$(27)Ĭ2 D$"RUN"B$DP$Xf5801l1950:A1BY1880K1vIAB:C(I)1C(I):X101100I1980(I20)j1100:P$" ":C(I)1P$"*"v1P$;:I119001A0:B01(X$,1,1)"1"(X$,1,1)"9"X$(X$,2):X$""1970:19601A(X$):X$(X$,1((A))) 2(X$,1,1)" "X$$(X)(X$,1):700410:X120((C$(1))2):100:C$(1)Q0:Y1:Z2CE%:C(Z1)0u0DX2100Z:Y20X22100(Z20)0N100:Y" "C$(Z):YY1:Z0XX2301:100:430:"WHICH #S. 'OK' WHEN DONE.":X2327:XJ12:1270:XK1551601bX$"OK"AL1:90:SM1:140)1790U/"SOME LINES ARE TOO WIDE TO DISPLAY":"PROPERLY ON THIS SCREEN.":1240^/510/CV11810:90:"INSERT YOUR DOCUMENT DISK IN THE DRIVE":1240/D$"OPEN CATALOG"DR$:D$"READ CATALOG":CE%,X,X:CE%(CE%)/LI999990&X1CE%:768:C768:LI(X$):1720*.LI500:MX0:1740i.X1LI:768:M$(X)(X$,1):MXMX1:(X$)MW1730:MW(X$)p.X.216,0:LI500LIX.CV11760:90:"NOW INSERT THE DICTIONARY IN THE DRIVE.":1240:SM0.1470 /(MW41(812)40)(MW81(812)1670r-w:"ADJUSTING TEXT..."-|XA%A%BL%:Y(X):X,Y128(Y192)64(Y32)64(Y218):".";:-1750-D$"OPEN ";CF$DR$-D$"READ ";CF$.LI0:PS11710:C3C3DPnD oD oCVSЀnXfB) H X1X2pDCRAB) LhM(X$):X$(X$,1((B)))'$ABBA-$a$ 410:"PUT YOUR PROGRAM DISK IN DRIVE #1":1240l$ 3000|$ X$(27)Ĭ$ (4)"APPEND SPELLING PROGRAM DISK"$ (B$)0Ĺ7,5((B$)1):816$ D$"RUN"B$DP$X? ؀ DoEoBA` #P$;:I#1900##A0:B0a#(X$,1,1)"1"(X$,1,1)"9"X$(X$,2):X$""1970:1960#A(X$):X$(X$,1((A)))#(X$,1,1)" "X$(X$,2):1980#(X$,1,1)"-"BA:#X$(X$,2):X$""2010:(X$,1,1)"1"(X$,1,1)"9"2000$B20)!"N100:Y" "C$(Z):YY1:Zr"XX2301:100:430:"WHICH #S. 'OK' WHEN DONE.":X2327:XJ12:1270:XK155160"bX$"OK"X$"ok"AL1:90:SM1:1580"l1950:A1BY1880"vIAB:C(I)1C(I):X101100I1980(I20)#100:P$" ":C(I)1P$"*""INSERT YOUR DOCUMENT DISK IN THE DRIVE":1240o!D$"OPEN CATALOG"DR$:D$"READ CATALOG":CE%,X,X:CE%(CE%)|!LI99999!&X1CE%:768:C$(X)(X$,1):!0410:X120((C$(1))2):100:C$(1)!:Y1:Z2CE%:C(Z1)0"DX2100Z:Y20X22100(Z 216,0:LI500LIX` CV11760:90:"NOW INSERT THE DICTIONARY IN THE DRIVE.":1240:SM0j 1470 (MW41(812)40)(MW81(812)40)1790 "SOME LINES ARE TOO WIDE TO DISPLAY":"PROPERLY ON THIS SCREEN.":1240 5100!CV11810:90:G|XA%A%BL%:Y(X):X,Y128(Y192)64(Y32)64(Y218):".";:Q1750gD$"OPEN ";CF$DR$zD$"READ ";CF$LI0:PS11710:768:LI(X$):1720LI500:MX0:1740X1LI:768:M$(X)(X$,1):MXMX1:(X$)MW1730:MW(X$)X500:M$(X)"":$TD$"CLOSE":MW0l^CV1SM11640:90:"INSERT THE DOCUMENT DISK IN THE DRIVE.":1240hPS31680:A%12000:MW0:115,0:116,46rD$"BLOAD"CF$DR$",A"A%:BL%(43616)256(43617)vCF$"BSAMPLE"1670w:"ADJUSTING TEXT..."DOCUMENT DISK IN THE DRIVE.":1240XD$"UNLOCK"CF$DR$:D$"OPEN"CF$:D$"WRITE"CF$:LIX1LI:M$(X):X:SM1:(4)"CLOSE""HC0:,AL01600:X$"":X1CE%:C(X)01590:X$C$(X1):C(X)0:XCE%16X:X$""AL0:490@CF$(X$,1)JX11:100:LI0:PS11800#:T90:X101:100:"NAME OF FILE TO PROOFREAD "X0:XJ30:1270:XK155160:X$""149090:1530:1580HC01570:90:"SAVE CORRECTED '"CF$"'?"#1240:X$"N"1570:X$"Y"1530:CV11550:"INSERT YOUR DP,0:BAD117:(DP)01450AX1(DP):ID$ID$((DPX)):g(ID$,1,4)"DICT"ID$(ID$,5):wX2301:100"INSERT A SPELLING LIST AND 'RETURN'":1240:X2301:100:430:X$E$1420::160 1420:X2418((ID$)2):100:"**"ID$"**";:X10(49251)1271290:(X$,1)" "32c(XKX%128:XE$"":XJ39:(812)79ĺ" "(158)(238)(255):n2" ":w<PS1nC$"DOCUMENT DISKTEXT FILEBINARY FILE":SS113(PS2)22(PS3):LS13(PS1)9(PS2)11(PS3)xPS$(C$,SS,LS)ID$"":X01280:1002X$XE$:UL$(95)(8):X$UL$;{ 2048:X%13X%271320:(X$)0X%81290:X%81310:(X$)XJ1290X%64Ċ1:(9)"D"(12):0:1002:1290$(X%)UL$;:X$X$(X%):X%81290:X$(X$,1,(X$)2):" "(8)(8)UL$;:(X$)01290:810))",D"((814))",V"((815))YDR$",S"((804))",D"((805))",V"((806))CV((804)(810)(815)0)(DP$DR$)SP$" ":X17:SP$SP$SP$:16384,128:X$((16384)128):16368,0(X$)96X$((X$)32)E%1ĺ"ERROR-";E%#`:6:S$:E%;jE%1ĺ"ERROR-";E%Dt620}~OU0ĺ(4)"PR#"3((812)79):2040,195((812)79)AL01520:HC01530OU0RU0ĺ:"PRESS A KEY...":1240OU0RU0ĺ:"PRESS A KEY...":1240490$DP$",S"((AD18)BAD19,FC14X100L%1:100:M$(X%)=790J KEEPERh$X100L%FC100:100:IX$v.:3:S$:E%8RU31100:RU5620:X2301:100:"ADD TO SPELLING LIST? (Y/N)"B1240:X$E$160:X$"Y"X$"N"1090:X$"N"620LWAWA1V100:"CORRECT:":X2310:XJ30:UC%0:1270:K$X$:UC%32@X%Y%PK(M$(X%))rN$"":FC1N$(M$(X%),FC1)N$N$K$FCQ%KN$N$(M$(X%),K(FCQ%)1)M$(X%)N$X100L%FC100:100:IX$BAD18,(X%256)BAD17,X%256(B:"(G)OOD OR (B)AD?":1240:X$E$160:X$"G"X$"B"860LfX$"G"1050pX2301:100:430:"(S)KIP IT OR (C)ORRECT IT?":1240:X$E$160:X$"S"X$"C"880zX2301:100:430X$"S"X100L%FC100:100:IX$:620Y%X%:HC16X2301:5:S$:R%CR%4İ410::"SPELLING LIST APPEARS DAMAGED.":1240:Q R%0810W:` 620p* NOT FOUND|4WFWF1>RU2ME$(ME$SP$,1,FC1)HX$:620HX100L%FC100:100:HX$RRU2X100L%FC100:100:IX$:620;\X2301:100:430%1:X201:100:430:LX%X%1^LX%X%710:L%L%1:X130:100:"LINE "X%" ":X100L%1:100jM$(X%)(16384)128720:16368,0:1240:X$E$160LX%X%FCS%:HX$(B1$,Q%):IX$(B$,Q%)WKWK1 LOOK FOR WORD IN DICTIONARY:0:A%:BL%:560&:1:M$(0)*0410:L%2F:X101:100:"FILE: "CF$ZDX100L%1:100`N:lXM$(X%)vbLX%0l:2:S$:S%:X%v:X%0620Q%(S$):Q%11150RU0LX%X%L%L%1:ME$:M$(X%):ME$"":710RU0710L%20L(812)80420:(12)::<(812)80440:(139);:H958:lX1((HX$,1))48:X19X1X17X2((HX$,1))48:X29X2X27DCX116X24101480X%0:HC0:WK0:WF0:WA0OU0ĺ(4)"PR#"OUPS3į: GIVE YOU THE OPTION OF ADDING":X1004:100:"5. JUST CONTINUE PROOFREADING"h1240:X$E$160:X$"3"X$"6"360:RU(X$)rRU0400:90:X101:100:"(S)CREEN OR (P)RINTER?":1240|X$E$160:OU0:X$"P"OU(809)490OU0:490ONS:"S6X404:100:"1. PROOFREAD ONLY":X504:100:"2. PROOFREAD AND CORRECT"{@1240:X$E$160:X$"1"X$"2"320JRU0:X$"1"370:RU1TX701:100:"FOR GOOD WORDS NOT IN THE LIST":X804:100:"3. ADD THEM TO THE LIST"O^X904:100:"4.X1505:100:"D. RETURN TO THE SECRETARY"n 1240::X$"A"290:X$"B"X$"D"260:X$"D"ĺ(4)"PR#"(810) CV1270:90 X$"B"B$"5":3010 X$"C"B$"PARAMETERS":3010 "1340:90:PS3RU0:370,410:X201:100:"PROOFREADING OPTI, 1981 BY JOHN RISKEN":X2301:100:"ALL RIGHTS RESERVED"J X1500:X X701:100:"WHAT DO YOU WANT TO DO?":X905:100:"A. PROOFREAD A DOCUMENT" X1105:100:"B. MANAGE YOUR SPELLING LIST" X1305:100:"C. CHANGE # OF DRIVES / DISPLAY"+ ========":B$" "w OU0ĺ(4)"PR#"3((812)79):2040,195((812)79):OU0 X145:C(X)0: 410 X101:100:"THE EXECUTIVE SPELLER":X201:100:"PROOFREADING SYSTEM - 4.1": X2201:100:"COPYRIGHT0110:KCX100(X100):(158)(159KC)(159(X100));:_ n(X100):36,X101100(37):l xHX$"80" 450:BAD5,DC:BAD7,DC:BAD6,0:DC256,255:BAD8,143 RADDC256:HX$"8F" 450:BAD8,DC19 B1$"================================= 286717 (801)252Ĺ2152,76:2153,125:2154,8x X$"A":X%1:UC%32:D$(4):M$(500)::E$(27):C$(50),C(50)~ : (BAD28672:DPBAD1792:1190:B$"1":3000 2: <D$"BLOAD DCBIN,A28672"DP$ F216,0 PBAD:120 Z410; d(812)8I^NS]MK@PC];_3@+^#[\  LiI i`A[ cI Qi )ii`Ƀi`iI i`iȥii`ii`,LL,L z!#p  Ӡ ŠӪԠĠɠͪҠͪҮֲԲ ӪĠ ӪŠӠӪŠ ӪŠ!̠ͪԠ Π Ԡ Ҡ Π ̠ Ѫ Π!ؠӠ% Ǡ͠ˠϠ Ӡ%! Ǡ Ġ٠!Ǡ;!\VS$:VS$"Y"VS$"N"8609fVS$"Y"Ĺ807,1:80QpVS$"N"Ĺ807,0:80zX$::X%(X$):X%X%32(X%96):X$(X%):::5:(813)" FOR CLOCK":"(0 IF YOU HAVE NO CLOCK)":"CCS CARDS OVER #1500, AND ALL THUNDER-":"CLOCKS ARE SUPPORT:"WHAT SLOT WOULD YOU PREFER ";MS$T (MS$)0(MS$)7ĺ"RANGE 1 - 7.":890:790h*808,(MS$):80p4:>"DO YOU HAVE THE 'VIDEO FLIPPER'":"INSTALLED? (Y/N)"H:"(IT'S AN AUTOMATIC VIDEO SWITCH.)"R:"IF YOU'RE NOT SURE, ANSWER 'N'. ""DOCUMENT DRIVE ";X$:805,(X$))80GSL$((SL$))" FOR DISK"O80::5:(809)" FOR PRINTER":"WHAT SLOT WOULD YOU PREFER? ";PR$(PR$)0(PR$)7ĺ"RANGE 1 - 7.":890:750809,(PR$):80 80#::5:(808)" FOR MODEM"0):903,16(810):917,(903):80EH$:::"HARD DISK VERSION:":w"PROGRAM SLOT ";X$:810,(X$):903,16(810)"PROGRAM DRIVE ";X$:814,(X$):904,(814)"PROGRAM VOLUME ";X$:815,(X$):905,(815)"DOCUMENT SLOT ";X$:804,(X$)!030:XK1555040buNS$(X$,1)::6:NS$:R%::7:OS$:R%?0lu30010K0y60000g0"y(4)"RUN PROOFREAD"DP$0}16384,128:X$((16384)128):16368,00}X$"@"Ċ1:(9)"D"(12):0:1002:320200}0}X032040:121(}X$XE$:UL$(95)(8):868:X$U//0u10:44000:X501:12:"CORRECT A SPELLING"e/:uX701:12:614:"OLD SPELLING: ":X0:XJ20:32030t/?uXK15550/DuX$(X$,1)::4:X$:R%::5:X$:R%/NuR%0ĺ"NOT IN THE DICTIONARY":X1200:X:30010/SuOS$X$0XuX901:12:"NEW SPELLING: ":X0:324'XAL%(XT)1(.6'AL$(X1)AL$(X):X6.8'AL%AL%1P.:'XT(XT):AL$(XT)X$:.HqDP$",S"((810))",D"((814))",V"((815)).RqDR$",S"((804))",D"((805))",V"((806)).\qCV((804)(810)(815)0)(DP$DR$).aq(CV)ĆA$(500)/fq"81 CHARS":80.X$"C"VD$"82 CHARS":80MX$"D"VD$"83 CHARS":80U80DD$"HARD DISK"700:::5:(12)(810)" FOR DRIVES":"WHAT SLOT WOULD YOU PREFER ";SL$(SL$)0(SL$)7ĺ"RANGE IS 2 - 7.":890:670!810,(SL$):804,(81 VIDEOTERM BY VIDEX":" C. SMARTERM":" D. SUPERTERM BY M&R"oY" E. GENIUS (80 X 57)"::" F. VANTEC 80"zb890:lX$"A"X$"H"610:812,79(X$)64mX(X$)64:X10(X5)7(X6)5(X7)6(X8)X(X5)n812,79XqvX$"B"VD$,14 80+(4)"BSAVE NFL,A$300,L$CF"@(4)"RUN HELLO"t::5:"SCREEN: (E)IGHTY OR (F)ORTY CHARACTER"}&8900OV$VD$:DX$"F"Ĺ812,40:80NX$"E"Ĺ812,80S600:630>X"WHICH ONE:":" A. FULL VIEW 80 BY BIT 3":" B.'T MAKE IT":" PRINT MORE THAN 40 CHARACTERS WIDE,":" OR IT ALWAYS DOUBLESPACES.":"X. SET UNDERLINING/INCREMENTAL SPACING":"CURRENTLY: GROUP "(811)::X$:X$"X"1100:X(X$):X1X4510:811,X:802,0:803,0X1Ĺ802,15:803X$"T"Ĺ805,2:441805,1W903,16(810):904,1:905,0:804,(810):806,0:80:::"WHICH PRINTER SET-UP DO YOU HAVE?":"1. CENTRONICS 737 OR 739""2. IBM ET- SERIES""3. NONE OF THE ABOVE"V:"4. I DON'T KNOW, BUT I CANASE ONLY, OR":"(L)OWER CASE AS ON APPLE II E,":" VIDEX ENCHANCER II, FRANKIN":" OR BASIS"u801,0:X$:X$"L"(X$)108Ĺ801,253v80|DD$"HARD DISK"80::5:"DISK DRIVES: (O)NE OR (T)WO"890X$"O"X$"T"380:&,812,40:FV$"B"Ĺ812,79(W$)64W,(4)"BSAVE NFL,A$300,L$CF":(4)"RUN HELLO"^,8,6:804,6:814,1:815,0:805,1(A$"T"):806,0+:"YOU CAN CHANGE THESE OPTIONS AT ANY":"TIME BY SELECTING OPTION 6 ON THE":"MAIN INDEX PAGE."::"PRESS 'RETURN'.":A$::16+:"THANK YOU."+809,1:811,3:807,0:808,0:813,0,802,0:803,0E YOU READ AT LEAST THE FIRST NINE":"LESSONS IN THE USER'S MANUAL?":DR$"ONE":A$:A$"Y"5320*::"ONE FINAL QUESTION REMAINS: WILL YOU BE":"USING ONE DISK DRIVE OR TWO DISK DRIVES?"::" O - ONE":" T - TWO":A$*A$"O"A$"T"5290.+8100 CHARACTER":" B. 80 CHARACTER"^% A$:A$"A"A$"B"5130::FV$A$:FV$"B"LC$"Y"5150%"SORRY, BUT YOU WILL NEED TO INSTALL A":"'LOWER CASE ADAPTER' BEFORE YOU CAN":"PROCEED. SEE THE SECTION ON SYSTEM":"REQUIREMENTS IN YOUR MANUAL.": &ER":"CASE LETTERS WILL APPEAR AS NUMBERS AND":"PUNCTUATION.":5120$"SINCE YOU SAY YOU WERE ABLE TO READ THE":"LINE, YOU WILL BE ABLE TO USE THE":"40 CHARACTER WIDE VERSION OF THE EDITOR."!%:::"WHICH VERSION WERE YOU PLANNING TO USE?":" A. 468,0:Y$&#X$:X$"Y"X$"N"5080#LC$X$:::LC$"Y"5110:"SINCE YOU ANSWERED THAT YOU COULD NOT":"READ IT, YOU DON'T HAVE A LOWER CASE":"ADAPTER INSTALLED."D$:"THIS MEANS THAT UNLESS YOU ARE PLANNING":"TO USE AN 80 COLUMN BOARD, ALL LOW BETWEEN":"UPPER AND LOWER CASE BY HOLDING DOWN":"THE 'CTRL' KEY AND PRESSING 'L'.":A$:"PRESS ANY KEY TO CONTINUE";:A$:":"THANK YOU. NOW, CAN YOU UNDERSTAND THE":"NEXT LINE? (Y FOR YES OR N FOR NO)":Y$"This is a test of lower case."#163:"FIRST, WE HAVE TO CHECK TO SEE IF THE":"SHIFT KEY IS WORKING. PRESS IT 3 TIMES,":"THEN PRESS 'RETURN'.":SK0!(49251)128SKSK1!(16384)1275040:5020}"SK05050::"THE SHIFT KEY IS NOT CONNECTED RIGHT.":"UNTIL IT IS, YOU CAN SHIFTX$" ";:"";Y$:Y$"Q"Ĭ1 X(Y$):X1X256ıQ " * OUT OF RANGE *":2000 216,0:"THIS PROGRAM DISK HAS NEVER BEEN USED.":"BEFORE YOU USE IT, IT NEEDS SOME INFOR-":"MATION ABOUT THE KIND OF EQUIPMENT":"YOU ARE USING IT ON." 810,6q!2551130:803,(X$):80~:H$:"WHICH OF THESE RULES DOES YOUR PRINTER":"FOLLOW TO GENERATE INCREMENTAL SPACING"::"1. 'ESCAPE E'":"2. 'ESCAPE US'":"0. NEITHER OF THESE":"CURRENTLY #"(971):A$:A(A$):A2A1A0971,A:80 ETTING":1130n`:"CURRENT SETTINGS:":"CHAR #"(802)" TURNS UNDERLINE ON,":"CHAR #"(803)" TURNS IT OFF."j:"TURN-ON CHAR #";X$:(X$)0ĺ"FEATURE NOW TURNED OFF":802,0:A$:80o(X$)2551130:802,(X$):"TURN-OFF CHAR #";X$:(X$)1(X$)EN LINES":2000:790,X80bL:H$:"U. SET UNDERLINING":"I. SET INCREMENTAL SPACING":A$:tNA$(27)ī80OA$"I"1150Q:H$:"SOME PRINTERS HAVE AN AUTO-UNDERLINE":"MODE. CONSULT YOUR PRINTER MANUAL."V [(802)0ĺ"NO CURRENT SRGIN":2000:795,X:X$"PAGE # ON LINE: ":2000:794,X:X$"PAGE # IN COLUMN: ":2000:793,X"(S)INGLE SHEETS OR (C)ONTINUOUS FORM":X$:X%(X$):X%X%32(X%96):X%67X%831030:792,X%X$"LINES LOST AT TOP":2000:791,X:X$"LINES TO SKIP BETWETB$:TB$:(4)"IN#0"+(4)"PR#"ZK:TB$4890H813,(TI$):80"PRINTER DEFAULTS: ('Q' TO QUIT)"::X$"LEFT MARGIN":2000799,X:X$"WIDTH OF LINE":2000:798,X:X$"PAGE LENGTH":2000:797,X:X$"TOP MARGIN":2000Z796,X:X$"BOTTOM MAED." 1"WHAT SLOT WOULD YOU PREFER ";TI$b(TI$)0(TI$)7ĺ"RANGE 0 - 7.":890:900t(TI$)0990:"IF THE TIME DOESN'T APPEAR ON THE NEXT":"LINE THEN YOUR CLOCK IS NOT COMPATIBLE"(4)"PR#"TI$:" ":(4)"PR#0":(4)"IN#"TI$: CHANGE."F UKT$"APPLE, PRE-1983":(789)252KT$"UPPER/LOWER CASE"g ZVS$"NO":(807)1VS$"YES" dDD(805)(814)(815)0:DD$"ONE":DD0DD$"TWO" nS(812) o(815)0DD$"HARD DISK" xSC$"40 CHARACTER":S80SC$"FULL VIEW 80/BIT 3:X13:972X,(1009X):= L(49932)136Ĺ801,254:812,79g M(64435)6Ĺ801,254:(810)0Ĺ810,6 N(64435)6(801)254Ĺ801,0:812,40 P::H$"MATCHING THE EXECUTIVE SPELLER TO":"YOUR APPLE COMPUTER. CHOOSE A LETTER TO":"SELECT AN ITEM TO_# :63999 :' (64435)620: (810)05000G H$(12)\ ZK3((812)40)e (60 2(4)"UNLOCK NFL":216,0:75 <(222)470:"REMOVE THE WRITE-PROTECT TAB FROM":"THE DISKETTE.":A$: F"I/O ERROR":A$: K(4)"BLOAD NFL"               :"WHAT SLOT WOULD YOU PREFER ";MS$T (MS$)0(MS$)7ĺ"RANGE 1 - 7.":890:790h*808,(MS$):80p4:>"DO YOU HAVE THE 'VIDEO FLIPPER'":"INSTALLED? (Y/N)"H:"(IT'S AN AUTOMATIC VIDEO SWITCH.)"R:"IF YOU'RE NOT SURE, ANSWER 'N'. ""DOCUMENT DRIVE ";X$:805,(X$))80GSL$((SL$))" FOR DISK"O80::5:(809)" FOR PRINTER":"WHAT SLOT WOULD YOU PREFER? ";PR$(PR$)0(PR$)7ĺ"RANGE 1 - 7.":890:750809,(PR$):80 80#::5:(808)" FOR MODEM"0):903,16(810):917,(903):80EH$:::"HARD DISK VERSION:":w"PROGRAM SLOT ";X$:810,(X$):903,16(810)"PROGRAM DRIVE ";X$:814,(X$):904,(814)"PROGRAM VOLUME ";X$:815,(X$):905,(815)"DOCUMENT SLOT ";X$:804,(X$)!"81 CHARS":80.X$"C"VD$"82 CHARS":80MX$"D"VD$"83 CHARS":80U80DD$"HARD DISK"700:::5:(12)(810)" FOR DRIVES":"WHAT SLOT WOULD YOU PREFER ";SL$(SL$)0(SL$)7ĺ"RANGE IS 2 - 7.":890:670!810,(SL$):804,(81 VIDEOTERM BY VIDEX":" C. SMARTERM":" D. SUPERTERM BY M&R"oY" E. GENIUS (80 X 57)"::" F. VANTEC 80"zb890:lX$"A"X$"H"610:812,79(X$)64mX(X$)64:X10(X5)7(X6)5(X7)6(X8)X(X5)n812,79XqvX$"B"VD$VF$"N"5210:5220A(Z:"NOW SWITCH TO 80 CHARACTERS, PLEASE."b(dA$::::VF$"Y"Ĺ16295,0(n(4)"PR#3"::(12):::"IF YOU CAN READ THIS, TYPE THE LETTER X.":EI$::W$"C"ĺ(20)"A1":(4)"IN#0":(4)"PR#0":5260 )x(27)"Q":VF$"Y"Ĺ162Y"VF$"N"5190:"Y/N":5180'F::"IF THE SCREEN REMAINS BLANK WHEN YOU ":"PRESS 'RETURN' AGAIN, THEN YOUR 80":"CHARACTER BOARD IS NON-EXISTENT OR":"IMPROPERLY INSTALLED. IN THAT CASE,":"CORRECT THE PROBLEM AND TRY AGAIN"(PW$"B"W$"D"5220:FV$"A"5280 &(600:W$(X64)Z&2" D. M&R'S SUPERTERM":" E. VISTA'S VISION 80"&3" F. VESPER'S WIZARD 80":" G. EPA'S VANTEC 80"&7W$"B"W$"D"5190:"DO YOU HAVE A DEVICE CALLED THE":"'VIDEO FLIPPER' INSTALLED?"'<VF$:VF$",14 80+(4)"BSAVE NFL,A$300,L$CF"@(4)"RUN HELLO"t::5:"SCREEN: (E)IGHTY OR (F)ORTY CHARACTER"}&8900OV$VD$:DX$"F"Ĺ812,40:80NX$"E"Ĺ812,80S600:630>X"WHICH ONE:":" A. FULL VIEW 80 BY BIT 3":" B.'T MAKE IT":" PRINT MORE THAN 40 CHARACTERS WIDE,":" OR IT ALWAYS DOUBLESPACES.":"X. SET UNDERLINING/INCREMENTAL SPACING":"CURRENTLY: GROUP "(811)::X$:X$"X"1100:X(X$):X1X4510:811,X:802,0:803,0X1Ĺ802,15:803X$"T"Ĺ805,2:441805,1W903,16(810):904,1:905,0:804,(810):806,0:80:::"WHICH PRINTER SET-UP DO YOU HAVE?":"1. CENTRONICS 737 OR 739""2. IBM ET- SERIES""3. NONE OF THE ABOVE"V:"4. I DON'T KNOW, BUT I CANASE ONLY, OR":"(L)OWER CASE AS ON APPLE II E,":" VIDEX ENCHANCER II, FRANKIN":" OR BASIS"u789,0:X$:X$"L"(X$)108Ĺ789,253v80|DD$"HARD DISK"80::5:"DISK DRIVES: (O)NE OR (T)WO"890X$"O"X$"T"380:X$"A"380X$"B"4500,X$(27)520N6X$"C"(49932)136540^@X$"D"670nJX$"E"750~TX$"F"790^X$"G"900_X$"K"(64435)6372cX$"P"1000hX$"V"((VD$)83(VD$)81)820r80^t::5:"(U)PPER C "(809))5:"F. MODEM SLOT: "(808)J5:"G. CLOCK SLOT: "(813)k5:"K. KEYBOARD TYPE: "KT$:5:"P. DEFAULT PRINTER MARGINS, ETC.":5:"ESC QUIT"16384,128:X%(16384)128:X%X%32(X%96):X$(X%):16368,0H$:5:"B. PRINTER GROUP: "(811)` 5:"C. SCREEN: "SC$:S81S83Ė5:"V. VIDEO FLIPPER: "VS$ :5:DD$"HARD DISK"200:"D. DISK DRIVE SLOT: "(810):210 "D. DISK INFO: "(810)"/"(814)"/"(815)" & "(804)"/"(805)5:"E. PRINTER SLOT:"! S81SC$"VIDEOTERM/VIDEX": S82SC$"SMARTERM"X S83SC$"SUPERTERM/M&R"r S86SC$"VANTEC 80" S85SC$"WIZARD 80" S84SC$"VISION 80" S89SC$"GENIUS" S79SC$"APPLE //e" ::5:"A. DISK DRIVES: "DD$ VF$"N"5210:5220A(Z:"NOW SWITCH TO 80 CHARACTERS, PLEASE."b(dA$::::VF$"Y"Ĺ16295,0(n(4)"PR#3"::(12):::"IF YOU CAN READ THIS, TYPE THE LETTER X.":EI$::W$"C"ĺ(20)"A1":(4)"IN#0":(4)"PR#0":5260 )x(27)"Q":VF$"Y"Ĺ162Y"VF$"N"5190:"Y/N":5180'F::"IF THE SCREEN REMAINS BLANK WHEN YOU ":"PRESS 'RETURN' AGAIN, THEN YOUR 80":"CHARACTER BOARD IS NON-EXISTENT OR":"IMPROPERLY INSTALLED. IN THAT CASE,":"CORRECT THE PROBLEM AND TRY AGAIN"(PW$"B"W$"D"5220:FV$"A"5280 &(600:W$(X64)Z&2" D. M&R'S SUPERTERM":" E. VISTA'S VISION 80"&3" F. VESPER'S WIZARD 80":" G. EPA'S VANTEC 80"&7W$"B"W$"D"5190:"DO YOU HAVE A DEVICE CALLED THE":"'VIDEO FLIPPER' INSTALLED?"'<VF$:VF$"0 CHARACTER":" B. 80 CHARACTER"^% A$:A$"A"A$"B"5130::FV$A$:FV$"B"LC$"Y"5150%"SORRY, BUT YOU WILL NEED TO INSTALL A":"'LOWER CASE ADAPTER' BEFORE YOU CAN":"PROCEED. SEE THE SECTION ON SYSTEM":"REQUIREMENTS IN YOUR MANUAL.": &ER":"CASE LETTERS WILL APPEAR AS NUMBERS AND":"PUNCTUATION.":5120$"SINCE YOU SAY YOU WERE ABLE TO READ THE":"LINE, YOU WILL BE ABLE TO USE THE":"40 CHARACTER WIDE VERSION OF THE EDITOR."!%:::"WHICH VERSION WERE YOU PLANNING TO USE?":" A. 468,0:Y$&#X$:X$"Y"X$"N"5080#LC$X$:::LC$"Y"5110:"SINCE YOU ANSWERED THAT YOU COULD NOT":"READ IT, YOU DON'T HAVE A LOWER CASE":"ADAPTER INSTALLED."D$:"THIS MEANS THAT UNLESS YOU ARE PLANNING":"TO USE AN 80 COLUMN BOARD, ALL LOW BETWEEN":"UPPER AND LOWER CASE BY HOLDING DOWN":"THE 'CTRL' KEY AND PRESSING 'L'.":A$:"PRESS ANY KEY TO CONTINUE";:A$:":"THANK YOU. NOW, CAN YOU UNDERSTAND THE":"NEXT LINE? (Y FOR YES OR N FOR NO)":Y$"This is a test of lower case."#163:"FIRST, WE HAVE TO CHECK TO SEE IF THE":"SHIFT KEY IS WORKING. PRESS IT 3 TIMES,":"THEN PRESS 'RETURN'.":SK0!(49251)128SKSK1!(16384)1275040:5020}"SK05050::"THE SHIFT KEY IS NOT CONNECTED RIGHT.":"UNTIL IT IS, YOU CAN SHIFTX$" ";:"";Y$:Y$"Q"Ĭ1 X(Y$):X1X256ıQ " * OUT OF RANGE *":2000 216,0:"THIS PROGRAM DISK HAS NEVER BEEN USED.":"BEFORE YOU USE IT, IT NEEDS SOME INFOR-":"MATION ABOUT THE KIND OF EQUIPMENT":"YOU ARE USING IT ON." 810,6q!2551130:803,(X$):80~:H$:"WHICH OF THESE RULES DOES YOUR PRINTER":"FOLLOW TO GENERATE INCREMENTAL SPACING"::"1. 'ESCAPE E'":"2. 'ESCAPE US'":"0. NEITHER OF THESE":"CURRENTLY #"(971):A$:A(A$):A2A1A0971,A:80 ETTING":1130n`:"CURRENT SETTINGS:":"CHAR #"(802)" TURNS UNDERLINE ON,":"CHAR #"(803)" TURNS IT OFF."j:"TURN-ON CHAR #";X$:(X$)0ĺ"FEATURE NOW TURNED OFF":802,0:A$:80o(X$)2551130:802,(X$):"TURN-OFF CHAR #";X$:(X$)1(X$)EN LINES":2000:790,X80bL:H$:"U. SET UNDERLINING":"I. SET INCREMENTAL SPACING":A$:tNA$(27)ī80OA$"I"1150Q:H$:"SOME PRINTERS HAVE AN AUTO-UNDERLINE":"MODE. CONSULT YOUR PRINTER MANUAL."V [(802)0ĺ"NO CURRENT SRGIN":2000:795,X:X$"PAGE # ON LINE: ":2000:794,X:X$"PAGE # IN COLUMN: ":2000:793,X"(S)INGLE SHEETS OR (C)ONTINUOUS FORM":X$:X%(X$):X%X%32(X%96):X%67X%831030:792,X%X$"LINES LOST AT TOP":2000:791,X:X$"LINES TO SKIP BETWETB$:TB$:(4)"IN#0"+(4)"PR#"ZK:TB$4890H813,(TI$):80"PRINTER DEFAULTS: ('Q' TO QUIT)"::X$"LEFT MARGIN":2000799,X:X$"WIDTH OF LINE":2000:798,X:X$"PAGE LENGTH":2000:797,X:X$"TOP MARGIN":2000Z796,X:X$"BOTTOM MAED." 1"WHAT SLOT WOULD YOU PREFER ";TI$b(TI$)0(TI$)7ĺ"RANGE 0 - 7.":890:900t(TI$)0990:"IF THE TIME DOESN'T APPEAR ON THE NEXT":"LINE THEN YOUR CLOCK IS NOT COMPATIBLE"(4)"PR#"TI$:" ":(4)"PR#0":(4)"IN#"TI$:;!\VS$:VS$"Y"VS$"N"8609fVS$"Y"Ĺ807,1:80QpVS$"N"Ĺ807,0:80zX$::X%(X$):X%X%32(X%96):X$(X%):::5:(813)" FOR CLOCK":"(0 IF YOU HAVE NO CLOCK)":"CCS CARDS OVER #1500, AND ALL THUNDER-":"CLOCKS ARE SUPPORT5:"B. PRINTER GROUP: "(811)` 5:"C. SCREEN: "SC$:S81S83Ė5:"V. VIDEO FLIPPER: "VS$ :5:DD$"HARD DISK"200:"D. DISK DRIVE SLOT: "(810):210 "D. DISK INFO: "(810)"/"(814)"/"(815)" & "(804)"/"(805)5:"E. PRINTER SLOT:"! S81SC$"VIDEOTERM/VIDEX": S82SC$"SMARTERM"X S83SC$"SUPERTERM/M&R"r S86SC$"VANTEC 80" S85SC$"WIZARD 80" S84SC$"VISION 80" S89SC$"GENIUS" S79SC$"APPLE //e" ::5:"A. DISK DRIVES: "DD$ CHANGE."F UKT$"APPLE, PRE-1983":(801)252KT$"UPPER/LOWER CASE"g ZVS$"NO":(807)1VS$"YES" dDD(805)(814)(815)0:DD$"ONE":DD0DD$"TWO" nS(812) o(815)0DD$"HARD DISK" xSC$"40 CHARACTER":S80SC$"FULL VIEW 80/BIT 3:X13:972X,(1009X):= L(49932)136Ĺ801,254:812,79g M(64435)6Ĺ801,254:(810)0Ĺ810,6 N(64435)6(801)254Ĺ801,0:812,40 P::H$"MATCHING THE EXECUTIVE SPELLER TO":"YOUR APPLE COMPUTER. CHOOSE A LETTER TO":"SELECT AN ITEM TO_# :63999 :' (64435)620: (810)05000G H$(12)\ ZK3((812)40)e (60 2(4)"UNLOCK NFL":216,0:75 <(222)470:"REMOVE THE WRITE-PROTECT TAB FROM":"THE DISKETTE.":A$: F"I/O ERROR":A$: K(4)"BLOAD NFL"        195ĺ(4)"PR#3",:29000=,(8)120000:(8)240000Q,B1:X%0:10050\,:10000c,1XhL DC}D ݔD XJAҺD$"CLOSE":10:"WHAT NAME TO GIVE THIS DOCUMENT?":X201:110:N$X$:N$""N$F$+TӺ:"PRESS ANY KEY TO SAVE":"FILE '"F$"' AS '"N$"'.":32020:X%2740000+ӺD$"OPEN "N$:D$"WRITE"N$:LI:X1LI:A$(X):X:D$"CLOSE":40000+START,:(2040)к"NOT A DOCUMENT-TYPE (TEXT) FILE":A$:c*`ѭ(222)8ĺ"DISKETTE DIRECTORY APPEARS DAMAGED":A$:*Ѻ"CAN'T HELP YOU. ERROR CODE="(222):A$:*(ҹ216,0:(222)8ĺLI" LINES RCOVERED, BUT DISK IS":"DAMAGED.":54000*ҺLI" LINES RECOVERED.":32020S+93:A$(LI)(X$,1),)LILI1:LIMLī52900E)lϺ"FILE IS TOO LONG.")Ϻ"PRESS 'S' TO SAVE IT AS IT IS":"WITH "LI" LINES.":"PRESS ANY OTHER KEY TO RETRY.":D$"CLOSE":A$::A$"S"Ĭ)4Ы54000)й216,0:(222)6ĺ"NO SUCH FILE":A$:)*Э(222)13_(L̺:"IT CAN ALSO OFTEN RESTORE A DAMAGED":"DOCUMENT TO SOME EXTENT."::32020:X%2740000(̺"WHAT FILE DO YOU WISH TO RESTORE?":X1101:XJ15:110:F$X$(ͥ53800(xͺD$"OPEN"F$DR$(BL$"N"(@ML455:LI1:A$(1)"**EMPTY**":D$"READ"F$)Ό20C LOSE":D$"OPENMAILCAT":D$"WRITEMAILCAT":CF1:CN$:X1CF:C$(X):X:(4)"CLOSE"`'˫40000w'˲RESTORE DOCUMENTS(ˉ::H$"CONVERT/RESTORE DOCUMENTS."::"THIS PROGRAM CONVERTS TEXT FILES TO A":"FORMAT THAT THE EXECUTIVE SECRETARY":"RECOGNIZES."FL$(FL$,1,XN):&,ɲE&ɴ(FL$,1,2)"M*"51800:FF1:T$(F)FL$:^&XCFCF1:C$(CF)FL$:& ˰10::"WHAT NAME FOR THE CATALOG"&RX801:XJ15:120:CN$(X$,1):(4)"OPEN CATALOG"DR$:(4)"WRITE CATALOG":(F1):0:0:CN$U'ˁX1F:T$(X):X:(4)"(BF1):SP(BF2)(%ƲMAKE FILE NAMEF%8FL$"":DL(DI):DL255ı%TF(DI32):FT(DI2):FC(DI33):(DI3)12951200:(FT0FT128)FC151200:DL255:%FL$"":XN0:IDI3DI32:(I)129ı%dFL$FL$((I)128):(I)160XN(FL$)&Ȃ:UDE '"FL$"'?"d$(16384)206(16384)21749400:(16384)206Ĺ16368,0:(37):868:48500$\16368,0:X$FL$:51700:48500$DŲNEXT ENTRY$DIDI35:DIBF25550900$ ƭTP0SP0FL$"":$ƹ2356,TP$ƹ2357,SP$ƌ2336%DIBF11:TP(806)&#2367,(2353):2368,(805)1#t50500a#::5:H$"RENAME '"FI$"'"::" NEW NAME:":X711:40600:X$""X$FI$40140:40630:X0ĺ"**DUPLICATE**":32020:40510 HY$X$:X$FI$:40630:X2401405!RC$(X)Y$:X$I$DR$:NO%040448:D$"DELETE"FI$::D$"OPEN"FI$X101:12:14:"NOW SAVING '"FI$"'.":D$"WRITE "FI$:LI:X1LI:A$(X):X:D$"CLOSE "FI$:216,0:NO%040450:X$FI$:40452:REWRITE CATALOGA D$"OPEN"CA$DR$:D$"WRITE"CA$:(CE%1):VR%:DF%3940436:11:::"NO MENU SPACE FOR NEW NAME";::868l32020::X$"A"40444:X$"B"40440:X$"C"ıyX%27ıCE%3840430:"WHAT TO CALL IT, THEN?":X1424:XJ15:XF0:40600:::X$""40430FI$X$::40430407000:D$"OPEN "F20W䝴T%040335:TA%040335:40125:TA%TA%1:TA%CE%40335:FI$C$(TA%1):40330kUC%32:CX%0ıX$FI$:40610:NO%X:X040444910:"A. REPLACE '"FI$"' WITH THIS.":"B. SAVE THIS UNDER A DIFFERENT NAME.":"C. DON'T SAVE THIS AT ALL.":CE),5):40395Ɲ40415C˝(X$)0(X$,1)"]"X$(X$,1,(X$)1){НB0T%:T$(B)X$40405:B:T%T%1:T$(T%)X$:40415՝B11:Bڝ MOVE FILEߝX:D$"CLOSE":DR$DC$40420:::5:H$"RE-INSERT THE ORIGINAL DISKETTE...":32020:X%274009:X1LI:(A$(X))540415:(A$(X),1)">"40415I GET X-REFSTA%040415:MI$(A$(X),2,2):(MI$)95MI$((MI$)32)(((MI$,1))32)MI$"XT"X$(A$(X),5):40395MI$"PH"X$"S*"(A$(X),5):40395 MI$"SF"X$"S*"(A$(X501:12:"GETTING "FI$" ...":D$"OPEN "FI$DR$:D$"READ "FI$~LI$:LI(LI$):Y1LI:2093:A$(Y)(X$,1):Y:DR$DC$40360:"INSERT THE OTHER DISKETTE NOW,":"THEN PRESS 'RETURN'.":32020:X%27400203MD$DR$:DR$DC$:CX%1:40430:DR$MD$:X999 FOR HARD DISK10:H$"ENTER THE SLOT, DRIVE, AND VOLUME":"TO WHICH YOU WISH TO COPY."::"SEPARATE THE ITEMS WITH COMMAS ";S,D,V:DC$",S"(S)",D"(D)",V"(V)T%1:T$(T%)FI$T%040100 'GET' LOOP<FI$T$(T%):T%T%1:10:X2020:@+("DISK LOCKEDFILE LOCKED",111(Z10),11):32020:Tl TRANSFERoqDC$DP$:DR$DP$40330v FOR DISKETTE{(815)0İ10:"REMOVE YOUR PROGRAM DISK, AND INSERT":"THE DISK YOU WISH TO COPY TO.":32020::40330 :32020::X$"D"40300%40230IX$FI$:D$"DELETE "FI$DR$:XFI%QQX1CE%:C$(QQ1)C$(QQ):QQ::D$"OPEN"CA$DR$:D$"WRITE"CA$:CE%CE%1:CE%:0:0:QQ1CE%:C$(QQ):QQ:D$"CLOSE"CA$!40140&Z(222):216,0:Z4Z10ĺ"ERROR #"Z:31201:12:FI$C$((X$)1):H$"FILE: "FI$::" D TO DELETE IT":" R TO RENAME IT":" T TO TRANSFER IT":32020::X$"R"ī40510X$"T"40305X$"D"40140 DELETE :"PRESS 'D' TO DESTROY '"FI$"'.":X1100:X:16368,0Y1:X100(ZY120(ZY21))120(ZY21):32000:I1" "C$(I):ZY4140155:IXۜXI$""X2301:32000:"WHICH # ":X2310:XJ3:110::X%2740000:X$""40160FI%(X$)1ꜭX$"ALL"TA%1:FI$C$(2):40305(X$)1(X$)CE%14016010:XCA$DR$:40125>10:"NOT A DOCUMENT DISK!":32020:216,0:mD$"OPEN"CA$DR$:D$"READ"CA$:CE%:CE%0ıœX:X:CE%(CE%):CE%0āX1CE%:C$(X):XǜD$"CLOSE"CA$:̜10:X101:12:C$(1):CE%1İ32020:40020ќ216,0M֜ZY1:I2CE%:ZYZC. RESTORE DOCUMENT/CARD FILE CATALOGS"::"ESC - QUIT"Qh32020:X%2758170[rA$X$|A$"A"A$"C"40020:A$"A"40100:A$"C"48000:A$"B"52200 DEL/TRANS/RENAME40110:40140READ CATALOG40120D$"CLOSE":D$"APPEND"V"((806))(qq(815)0DP$DP$" ".rq6}12n}2087:X%X%32(X%96):X$(X%):XKX%128:XX%64:@DEL/TRANS/RESTJ10TX101:12:"FILE MAINTENANCE OPTIONS:"::"A. RENAME/DELETE/TRANSFER DOCUMENTS"::"B. RESTORE A DOCUMENT"9^"ND$"CLOSE":D$"OPEN MAILCAT":D$"WRITEMAILCAT":1:V$" - "ID$:D$"CLOSE"UN20000lHqX$"A":X%1:UC%32MqD$(4):CA$"CATALOG"NqA$(475),T$(45),C$(45)oq: pqDP$",S"((810))",D"((814))",V"((815)):DR$",S"((804))",D"((805))",IS WILL TAKE A MINUTE OR SO...":216,0:D$"INIT HELLO"DR$FgN20076_kND$"DELETE HELLO"DR$jlN216,0pN10:X1001:32000:"NAME FOR "V$:XJ20:X1018:110:ID$X$:qND$"OPEN"V$" - "X$DR$uND$"OPEN"CA$DR$::D$"WRITE"CA$:1:0:0:V$" - "X$Jz20000>N:200701HND$"CATALOG"DR$:20060RN(4)"UNLOCK EXECUTIVE SEC'TY - RELEASE IV"DR$:(12)::"NOT YOUR PROGRAM "V$"!!!":32020:216,0:20000\N:"NOT BLANK!! PRESS 'D' TO DESTROY!!":216,0:32020:X$"D"20000:fN10:X501:32000:"TH0:X901:32000:&N(815)020010:"INITIALIZE WHAT VOLUME?":"('ESC' TO QUIT)":X1026:XJ3:120:(X$)25520000:806,(X$)'N29040:20015*N"INSERT A BLANK DISKETTE,":"THEN PRESS 'RETURN'.":"('ESC' TO QUIT)":32020/NX%27581704NX%13255): ~" ":$ 'EXIT PROGRAM0 '10090M '10070:D$"RUN MENUS"DP$] V'DR$DP$ı `'"REMOVE YOUR DOCUMENT DISK AND INSERT":"YOUR PROGRAM DISK":32020: j'216,0:10080:10000 NINITIALIZE DISK !NV$"DISK":(815)0V$"VOLUME"%N1:(X$)0X%8122:X%8124:(X$)XJ122:X%64123:X%31124G {: |(X%)UL$;:X$X$(X%):X%8122:X$(X$,1,(X$)2):" "(8)(8)UL$;:(X$)0122:(49251)127122:(X$,1)" "124:122 }XKX%128:XE$"":XJ39:(812)79ĺ" "(158)(238)( 63999 768,0:580009 (812)8011:(12):A : (812)8013:KCX100(X100):(158)(159KC)(159(X100));: (X100):X100100(37): n120 xX0121:12 yX$XE$:UL$(95)(8):X$UL$;A z2051:X%13X%27125:̠ŠͪŠԠi`iI i` 0 ``( @`L^LL0 uiȩiȩiI`I^NS]MK@PC];_3@+^#[\   L^iI i`A[ cI Qi )ii`Ƀ96,0:5260C)W$"B"W$"D"ĺ:"SWITCH TO 40 CHARACTERS, PLEASE."b)(4)"PR#0"::EI$"X"5280)"IT APPEARS THAT YOU HAVE SOME OTHER":"BOARD INSTALLED WHERE THE 80 CHARACTER":"BOARD SHOULD BE. FIX THAT, AND START":"OVER, PLEASE.":`*::"HAV) ) )), e8e8ϐ` & &))"' 0 @)Т됝L0:A [ a{`8` 6 I' 6'` `m m ` ߅1 ߅2 ߅`     ``ة!`9:98`툱숱hhhh`) 9)쨩':)M991   LJfJfJfJf瘟::Ȋ:)됕Ȍ8:`)ȱ   JJJL  & &0"8e     `    ` ' '  -88e08 i` Ӡie ';8imi8`i8 i 0LL3L0 * 0 i  0iLL5숱m0#i ieȑi` L0H) hJJ08e  6 eHȘh e  TL ,` F0 L0 FK VO0A E0+i Șe LV,,,,L5 VL508ȩ8ei888 +L 08n V09=8 k l  8ȱ,@`L 1 6 x!Hȭh x  T,ȩȭ` jҊ &mmm m ekelȱȱ Y XiL i  i iii8nL`, "LHHȱ hhL 804LLUL+L?LJLLL8Lx`  ˨ث˨ث˨Š̬̤ƍŸŹ̸ԢĢŹŸԺźԢȠ٠ԭؽ˨ŭؽحؼؾҤŠҢĠ̍ŷحؽح̽˨̾˨ثΠԢϠǢԠҤŠҢث  (:K$:D$"APPEND MAILCAT"DR$:216,0:Z:216,0:10:"NOT THE RIGHT DISKETTE":47462::216,0:D$"OPEN MAILCAT":D$"READ MAILCAT":CE%:CE%0ı:X1CE%:C$(X):X:D$"CLOSE MAILCAT":: (4)"PR#"3((812)79):1Xi@LL DD :X$:X11000:X:9c12C9f2087:X$(X%):XX%64:XKX%128:R9iX$"":454s9l"SORRY. BAD NAME.":47462:y9x:9y47503:D$"RUN MENUS"DP$9DR$DP$ı9"TAKE OUT YOUR DOCUMENT DISK,":"AND PUT IN YOUR PROGRAM DISK.":47462::47540L"20LI;DR$:MR047419o8:R$FI$",R"1:X2LI1:2093:X$(X$,1):PR$(X1)X$::(PR$(1),1,1)"*"PR$(1)""u8;8"ĴWSVS8250:82701 TY$"<"ĴWSVS8250:82701 827042 S$"BLANK"ĭX$""MX(MR999)#0rYYMR:YMR8270R0|R$FI$",R"Y:2093:O11āZ1O11:2093:Zj0(16384)1288100016368,0::S$""ı0D$"PR#"3((812)79):11110:20400Q$"B"O32(X$)281700Z(X$)11:(X$,Z,1)" "8120:Z:Z0:8140710/* AU03380:3170%/4 10:80006/> YMRYMR1/H DI$(1)(Y):RLY:FY:11110:RLMR2050:X901:47459:"CARD NUMBER "RL:XRL:2110/@:/JY1/T/^O$FI$",L"20LI;DR$:MX(130003MR)(MR1):MX254MX254/c(O30MX10)MX10 0hMXX522:454:X%27AU13000:X%27İ11110:2040x. TY$(X$,1,1):VS$"":TY$"="TY$">"TY$"<"VS((X$,2)):VS$"Y". X$""X$"BLANK". S$X$:XE$"":X$"". X601:47459:"LOOK IN WHICH LINE?":X622:454:X%272640/ O1(X$):O11O1LI33510:O$SF$:W$SF$:SO%:ID$:Q$:X1SO%:SO$(X):X:K$SF$:FI%0FI%1:FI$(1)FI$(0):3210f-l S$""-v Y0:X1FI%:FI$(X)FI$(0)Y1- X:Y0FI%FI%1:FI$(FI%)FI$(0)- 2430:14600. XE$"":X501:47459:X501:47459:UC%0:"WHAT TO LOOK FOR?":3100E,: X601:47459:"ALPHABETICAL?":47462:X$"Y"X$"N"3130R,D 10:O30,N X$"Y"X701:47459:"BY (L)AST WORD OR (F)IRST WORD ON LINE?":47462:X$"L"X$"F"3150:O32:X$"F"O31,X 10,b 8000:O30āX1SO%:SO$(X)((SO$(X))):\-g J38:454:ID$X$:X%273000:47468/+ SO%0r+ O$SF$:216,0:10:47405:11160:AU1:Q$"A"3100:Q$"B"3300+ SORT INDEX+& X501:12:"SORT BY WHAT LINE?":X520:454:X%273000:O1(X$),0 O11O1LIĺ"BETWEEN 1 AND "LI", PLEASE.":47462:10:$(0)X$B* Q$"D"3030:FI%13005:Y0:X1FI%:FI$(X)X$YXk* :Y0ĺ"NO SUCH INDEX":47462:3000* Y%FI%3024:XY1FI%:FI$(X1)FI$(X):* FI%FI%1:D$"DELETE"SF$:2430:3000* FI%93050:3000%+ X2005:12:"DESCRIPTION: ":X2201:X008F) X1405:12:"A. SORTED INDEX":X1505:12:"B. SEARCH INDEX"x) FI%13020:X1605:12:"D. DELETE AN INDEX"* 47462:X%271460:X$"A"X$"D"3020:X$"C"3020:X1805:Q$X$:12:Q$". NAME FOR INDEX":X1824:XJ5:UC%32:454:SF$FI$"*"X$:FI2000E( :O$FI$",L"LI20:XSE:D$:"RECORD "X" OF "E:R$FI$",R"X( Y2LI1:2093:DI$(Y)(X$,1):Y:DI$(L1)J$:W$FI$",R"X:Y2LI1:DI$(Y):Y:X:K$( 2000( :( 47405) 10:X1201:12:"INDEXED-ACCESS OPTIONS FOR '"(FI$,3)"'":FI%83:454:X%272000:L(X$):LLIL12000' X501:47459:"WHAT TO WRITE":X601:454:X%272000:J$X$:X801:12:"STARTING RECORD":X817:454:X%272000:S(X$):S1SMR2000( X1001:47459:"ENDING RECORD":X1017:454:X%272000:E(X$):ESEMR&2 S$""2640t&< 10:X301:12:"CONTINUE SEARCH FOR '"S$"' IN LINE "O1"?":47462:X$"N"İ10:YRL1:8030:3390&F S$"":O10:11110:2040&P X$"":XE$"":10:AU0:Q$"B":11160:3300& :)' 10:X101:12:"MULTIPLE CARD ACTION. WHICH LINE?":X301 K$FI$% 11110:2040% :d% X2410:47459::"'D' TO DELETE RECORD";::47462:X$"D"ī2320% RN(DI$(1))::O$FI$",L"20LI:MR12530:MR1MR1:2530% :R$FI$",R"MR:X1LI:2093:DI$(X1)(X$,1):X% MRMR2:DI$(1)(MR1):2420%( :t$t O$FI$",L"LI20:W$FI$",R"RN:X2LI1:DI$(X):X:(DI$(1))MR2460:MRMR1:2430:10:X$(MR1):11150:2070$~ WRITE C.F. HEADER$ W$FI$",R0":MR:LI;("00"(FI%),2);"I":X1LI:LI$(X):X:FI%0āX1FI%:FI$(X):X$ K$FI$:$ 2470%0:CX%02320:X2415:47459::"'S' TO SAVE";::47462:X1810:47459:15:XKXK128d# X$"S"2400# 10:X1208:12:CX%0ĺ"NO CHANGES"# CX%0ĺ"NOT SAVED...."#$ RN(DI$(1)):X1200:X:11110:2040:#` :#e RN(DI$(1)):$j FI%10FI%10(IC10)904(LI$(IC1)):454:CCCC(X$)OL:DI$(IC)X$CX%1m"X%272200:X%6X$(F1):11110:2070"P(IC)(49251)128"DI$(IC)X$:ICIC1:X%272300:X$"D"IC32500:ICLI1IC2"ICIC2(X%2IC3):2160":S# CX%0S$""260O":X201:12:"LINE, AND 'ESC' WHEN DONE. LEFT ARROW":X301:12:"ERASES."!pOL(DI$(IC)):X920:47459:(((19LI)5)(CC5));" WORDS LEFT ":XJ39:XJLI20CCLIOLXJLI20CCLIOL!zXJ37(LI$(IC1))XJ37(LI$(IC1))@"XE$DI$(IC):X100ICR"F:X2LI1:2093:X$(X$,1):DI$(X)X$:CCCC(X$):X> [: \Y1LI:X100(10Y)4(Y9)(LI$(Y)):12:DI$(Y1):Y:K$FI$:CC0:X2LI1:CCCC(DI$(X)):X e:K!fIC2:CX%0:X101:12:X14:15::X:X101:12:"PRESS 'RETURN' TO MOVE FROM LINE T"X$(MR1)I CC0:DI$(1)X$:F(X$):F1FMR1DI$(1)(MR1):2040c*(X$)MRMR9982040i3:4X901:12:"CARD NUMBER "X$;:15:F(X$)>Y2LI1:P(Y)12120:DI$(Y)""HY:FMR12150Q:8 RX139:12::O$FI$",L"LI20:R$FI$",F$""XE$"":XJ4:X917:454:2070Q$"A"2060:XE$"":XJ3:X914:454:X%271460:(X$)SO%2050:X$(SO$((X$)),3(MR999)):2080 XE$"":XJ30:X902:454:X%271460:17:2080 X$"M"X$"m"2700:X$"S"X$"s"2600:X%271460:X$"A"X$"aOPEN MAILCAT":D$"WRITE MAILCAT":CE%CE%1:CE%:QQ1CE%:C$(QQ):QQ:D$"CLOSE MAILCAT"c1415i:47405:FI%047342UC%0:2084:DF%(7)256(8):DF%.92((256DF%)(LI20)):DF%DF%MR:DF%999DF%99911110:CC0#DI$(1)(MR1):S):X1(FI$):769X,((FI$,X,1))::7,15:47503:X%271400:816bX$"E"2000:X$"M"47480sX$"X"3000y:X$"D"1400::"D TO DESTROY '"(FI$,3)"'":47462:X$"D"1415D$"DELETE "FI$YQQFM%1CE%:C$(QQ1)C$(QQ):QQ::D$"(X$)1(X$)CE%114306FM%(X$)1:FI$C$(FM%)<:10:X1201:12:"FILE: "(FI$,3)::" D TO DELETE IT":" E TO EDIT IT"" X TO MAKE AN INDEX":" O FOR OTHER OPTIONS":" M GO TO OTHER MENUS":47462C:X$"O"Ĺ768,(FI$(X)DI$(X):P(X)0:X:47534:47543HCE%2(49251)128X$"1":144010:X120(C$(1))2:12:C$(1)::CE%1İ47462:1100X2CE%:X1". "(C$(X),3):X:XE$""X2301:12:X$"":"WHICH FILE # TO MANAGE? ";:X2326:XJ3:454:X%271100FI$",L"LI20;DR$:W$FI$",R0":0:LI:MR0:X1LI:LI$(X):X:K$FI$U2216,0:X$FI$[<:FD$"OPEN MAILCAT":D$"WRITE MAILCAT":CE%1:QQ1CE%:C$(QQ):QQ:X$:D$"CLOSE MAILCAT":CE%CE%1:C$(CE%)X$x:}CE%11414#10:X120:DI$(X)"":LI$LI13:X101:12:"FILE: "(FI$,3)". MAX. OF 13 LINES/CARD":X201:12:"TO USE LINE # , GIVE IT A LABEL":BL1LI:X218:X218:12:BL;:X301100BL:XJ16:454 X$""LIBL1:BL11:BL:1310LI$(BL)X$:BL:BL14:X$"":1290:LI0ĬC(O$$(X)"M*"FI$OK1cX:OK11260::"INSERT THE DISK CONTAINING '"FI$"'.":SD0:47462:X%27Ĭ{47534:47543:1230FI$"M*"FI$:47405:SD11270:FI$F2$::"NOW INSERT THE DISK FOR '"(FI$,3)"'.":4746247534:47543FI$F2$:1320 FOR YOUR CONVENIENCE":"EACH LINE IS GIVEN A LABEL."::"PRESS ANY KEY.":47462:10::"DO YOU WANT TO USE ANOTHER FILE":"AS A MODEL FOR THIS ONE?":47462:X$"Y"İ10:1280:"WHAT FILE?":XJ13:X0:454:F2$FI$:FI$X$:SD1OK0:X1CE%:C(X$,1)"A"((X$,1))122İ47435:11309FI$"M*"X$?:MFI$""ı10:"'"(FI$,3)"' IS A NOW A FILE":"THAT CAN HOLD MANY CARDS. EACH CARD":"CAN HOLD UP TO 13 LINES, AND EVERY"Q"CARD IN THE FILE WILL HAVE THE SAME":"NUMBER OF LINES.47462:X%27X$"M"47480:X1X21120:X$"A"1400=i:j47534:47543:X$"":UC%32:X2205:12:"CREATE WHAT FILE? ":X2224:XJ15:UC%32:454:FI$X$:X%271000:1140tY0:X1CE%:YY("M*"X$C$(X)):X~X$""Y01130)(X$)1(X$)13SK CONTAINING":"'"(FI$,3)"' AND 'RETURN'":47462:1460CLMENUV10:X801:12:LF$" ":LF$"ELECTRONIC CARD FILE":LF$"========== ==== ====":CE%0:::LF$"A. Manage current files"::LF$"B. Start a new file"::LF$"M. Go to other menus7`"OPEN":W$D$"WRITE":R$D$"READ":K$D$"CLOSE"fDP$",S"((810))",D"((814))",V"((815))(815)0DR$DR$" "$(768)01100:FI$"":X1(768):FI$FI$((769X))::768,0)(FI$,2)"M*"Ĭ9.DR$DP$1460:10:"INSERT THE DI7(9)"K";:cX$"A":X%5:UC%32:10:DI$(20),SO$(1000),LI$(20),P(20),C$(45),FI$(20)pPR$(13)2353,16(804):2354,(805):2355,(806):2367,(2353):2368,(2354)D$(4):DR$",S"((804))",D"((805))",V"((806))1 O$D$502:X1LIkY1(PR$(X)):N$(PR$(X),Y,1):N$""N$"*"498:N$"Y"DI$(X1)""ĺDI$(X1)" ";:498(PR$(X),Y,2)"YR"DI$(X1)""YY1:ZZ1N$"R"ĺ" "N$"#"ĺ"#"F" ";Y:X:Z0500:X1Z:" ":D$"PR#"3((812)79):45$(X%):X%8457:X$(X$,1,(X$)2):" "(8)(8)UL$;:(X$)0457:(49251)127457:(X$,1)" "459:457XKX%128:XE$"":XJ39:(812)79ĺ" "(158)(238)(255):" ":X%1490:470PR$(1)""457 Z0::D$"PR#"(809):(811)4XT)1)1:30,(X256):29,X256(30):2066P<SO%SO%1:XT(XT):SO$(XT)X$:aX0456:12X$XE$:UL$(95)(8):X$UL$;2051:X%13X%27470::(X$)0X%8457:X%8459:(X$)XJ457:X%64458:X%31459X%8480n(X%)UL$;:X$XO%)XTSO%:, +X$SO$(SO%)XT(SO%1):D .SO$(XT)X$XTXT1Q 0XTXT:W 2g 320:XT0ı 4(XT)SO%60:SO$(SO%)SO$(SO%):6,(131):7,(132):X(6)256(7)2:26,(X256),525,X256(26):XX3:28,(X256):27,X256(28):X3(SO%():X$"+"X$"-"19% 20:RE(XT)D X$(SO$(RE),3(MR999)):K  ^ SO%1XT1:w XT(SO%2.5):XVXT SO$(XT)X$ı (XV)142 XV((XV)2.5):SO$(XT)X$XVXV $XTXTXV:XTSO%XT1XVXV:XTXTXV (28 *X$SO$(S 47648 10001 (812)8011:(12):9 : (812)8014:KCX100(X100):(158)(159KC)(159(X100));: (X100):X100100(37): (812)8016:(157);: 868: RERE(X$"+")(X$"-"):RERE(RE1):RERE(RESO%z#?????????????????i`iI i` 0 `( `888` 0 7   `L^LA Lw LL0 uiȩiȩiI`I^NS]MK@PC];_3@+^#[\   L^iI i`A[ cI Qi )ii`Ƀ    96,0:5260C)W$"B"W$"D"ĺ:"SWITCH TO 40 CHARACTERS, PLEASE."b)(4)"PR#0"::EI$"X"5280)"IT APPEARS THAT YOU HAVE SOME OTHER":"BOARD INSTALLED WHERE THE 80 CHARACTER":"BOARD SHOULD BE. FIX THAT, AND START":"OVER, PLEASE.":`*::"HAV uiȩiȩiI`(hij Ί΄HLf` T`L $ 0-./012345781X ؀ MӀXjDD gD EF1XK OO@ZKS+C@MRL&LIYD XJ@UaX PLITTTc,S,LPBLPRPֈSψS eL0DF02zYY1:YQRY1Y2X1017100Y:XE$T$(Y):XJ2:454:XK15543200:T$(Y)X$:43130d2160002DR$DP$63500:10:X1201:12:"INSERT YOUR PROGRAM DISK AND 'RETURN'.":320202 10:X1201:12:"ONE MOMENT, PLEASE...":6341027,10:8163DS.":32020:2RY1QR:X1020100Y:32000:(Y64)" "X$(Y):Y:X320:12:"FILE: "(NF$,3):X501:12:15:Y1QR:LI$(Y)X$(Y):Y:X601:12:"INDICATE BY NUMBER (1-"LI") WHICH OLD":X701:12:"FIELD WILL GO TO WHICH NEW.":X801:12:"'ESC' WHEN DONE.":YX701:32000:15::NF$"M*"NF$:430800?D$"OPEN"NF$D2$:D$"READ"NF$:QI,QR$:QR(QR$):(QR$,1)"I"QR((QR$,(QR$)3))0@X1QR:X$(X)::216,0:430901H216,0:10:X101:12:"APPARENTLY '"(NF$,3)"' IS NOT":X201:12:"PREPARED TO RECEIVE CARTCH":32020:k/)X701:32000:D2$DR$:DR$DP$ĺ"SAME DISK AS "(FI$,3)"?":32020:X$"N"X$"Y"43049/*X$"Y"43060:D2$",S6,D1":(815)043060:X801:32000:"ENTER SLOT, DRIVE, VOLUME - ":"LIKE THIS: S6,D1,V4":X922:XJ15:454:D2$","X$(04:)"CLOSER*"N$:$.@C2OF1LP0:B.ALPLP65:" ":LP:LP0:Y.FI%0İ22000:10.20020:X301:12:"FILE: "(FI$,3):X501:12:"WHAT IS THE NAME OF THE RECEIVING FILE?":X601:XJ15:454:XK15538000:NF$X$/NF$(FI$,3)ĺ"NAMES MUST NOT MA:X832:XJ1:XE$"":454:ST$X$f-10:X601:12:"SAVE THIS FORMAT FOR LATER USE?":32020:X$"Y"ı-X701:12:"WHAT NAME FOR FORMAT? ":X725:XJ10:UC%32:454:N$X$:(4)"OPENR*"N$DR$:(4)"WRITER*"N$:PL:ST$:X1PL.X$(X):P(X):T$(X):X:(4E$T$(I):X1033100I:XJ1:454:XK15539020:T$(I)X$:TTTT(X$"Y"):38990t,lX601:32000:TT$"N":TT0TT$"Y",rTT$"N"ST$"N":39050-{X701:32000:"INDICATE BY Y OR N IF A FIRST-COLUMN ":X801:12:"CHANGE SHOULD CAUSE SUBTOTALS. ")0XE$(P(I))d+:X1024100I:XJ3:454:P(I)(X$):P(I)1P(I)25538931:XK15538945:38915+!X601:32000:X701:12:"INDICATE BY Y OR N IF A COLUMN IS TO BE ":X801:12:"TOTALED. PRESS 'ESC' WHEN DONE. ":I0+"TT0+NII1:IPLI1M,]X)X$:38765'*X1LI:LI$(X)X$(X):B*1812:DR$D2$38000:*֗X701:12:"HOW MANY SPACES FROM THE LEFT EDGE OF":X801:12:"THE PAPER. PRESS 'ESC' WHEN DONE.":I1PL:X1001100I:32000:LI$((X$(I))):I:P(0)0*II1:IPLI1+XE$"":P(I$(13):ST$"Y":38495q)OOF1ĺD$"CLOSE":D$"OPEN"ZZ$:D$"WRITE"ZZ$:("0000"(ZK),4):D$"CLOSE":D$"NOMONO")T(4)"PR#"3((812)79):38000)^I1LI:X$(I)LI$(I):I:I0)mII1:ILII1 *|XE$X$(I):X1020100I:XJ18:454:XK15538830:X$(I(812)79):"PRESS ANY KEY TO RESUME.":XK$::"'ESC' TO QUIT, ANY KEY TO PAUSE."p($OF1ĺD$"WRITE"ZZ$:38695(%D$"PR#"PZ:CD$""ĺCD$('X:X$LD$((X$(1))):DI$((X$(1)))X$"X":38495:TT$"Y"38735:ST$"Y")(Y1PL:ST(Y)T(Y):Y:X$"TOTALS":LDI$(Y):Y:X$DI$((X$(1))):BL0āY1BL:" ":LPLP1:LP6040000:Y'BL0ĵ16384,128:XK(16384):16368,0:Y1BL1:" ":Y:XK15538695:38690'(16384)12838695:XK(16384):16368,0'"XK155ĺ:X1:X11:X:38735Q(#D$"PR#"3(P(Y1)P(Y)38643:PR038637:X$((NN)". ",5)X$J&햭OF1X$X$"]"u&X$:X$"":LPLP1:ZKZK1:LP6040000&(DI$(XF))138645&(DI$(XF),(DI$(XF)))"-"DI$(XF)"-"DI$(XF)&T$(Y)"Y"ST(Y)ST(Y)(DI$(XF))&YF'Y1LI:LD$(Y)Y)):T$(Y)"Y"38605:P(Y)25538580:X$(X$MS$,1,P(Y)1):38620W%X$X$" ":38620l%X$X$" ":38620%͖P(Y)(DI$(XF))P(Y)(DI$(XF))%זT$(Y)"Y"X$(X$MS$,1,P(Y)(DI$(XF)))%ܖTT$"Y"(Y1(DI$(XF)LD$(1)))38635%X$X$DI$(XF)6&떴:TETE.001:Y$(TE):TE.01Y$"0.001"?$pST(Y)0Y$"-"Y$$qY$(Y$,1,(Y$)1):X$(X$MS$,1,P(Y)(Y$))Y$:T(Y)T(Y)ST(Y):ST(Y)0$Y:ST$"Y"ı$OF1X$X$"]"$L$:X$:" ":LPLP3:ZKZK3:LP5940000$B%X$"":Y1PL:XF(X$(0:ZF0:Z1(DI$(XL))(SB$)1:(DI$(XL),Z,(SB$))SB$ZF1Q#XZ:ZF038685t#ZX$LD$((X$(1))):38495:38570#_X138555:LD$((X$(1)))DI$((X$(1)))38555:TT$"Y"38555:C238555($`Y1PL:T$(Y)"Y"38539:TE(ST(Y)).005:TE(100TE)100LP1:Y:38478'"HPR1X$" "X$;"IOF1X$X$"]"h"JX$:X$"":LPLP1:ZKZK1:LP6040000:"NL$(13)"SUBTOTAL FOR":XSMR:NN((SO$(X),3(MR999))):D$"READ"FI$",R"NN:Y1LI:2093:DI$(Y)(X$,1):Y:OF1ĺD$"WRITE"ZZ$>#OSR$"Y"3849R#"PZ!=CD$:OF1ĺ0:00!>C238478:X$""s!AY1PL:T$(Y)"Y"X$(X$MS$,1,P(Y)1)LI$((X$(Y))):38470!DT9P(Y)(LI$((X$(Y)))):T91T90!EX$(X$MS$,1,T9)LI$((X$(Y)))!FP(Y1)P(Y)İ38472"GY:" ":BL038478:Y1BL:" ":LP6):115,(111):116,(112)y 6OF1İ10:X201:12:"WHAT FILE TO WRITE ON?":X225:XJ12:454:ZF$X$:ZZ$X$:D$"OPEN"ZF$ 710:" 'ESC' TO QUIT, ANY OTHER KEY TO PAUSE.":Y1PL:P(Y)P(Y)(P(Y)0):Y: ;OF1ĺD$"WRITE"ZZ$:D$"MONO":38461!<(4)"PD$X$:X1501:123"SEND TO (S)CREEN, (P)RINTER, OR (D)ISK":32020:PZ(809):OF0:X$"P"PZ03((812)79):X$"D"OF1:CD$"0000"4(X$"P"X$"S")X$"D"38451:((811)4(811)1)CD$""CD$(9)"255N":OF1CD$"0000" 57,(115):8,(11"IN WHAT LINE?":X816:XJ3:454:XL(X$)s-X1001:12:"START AT WHAT RECORD":X1023:454:S(X$):X1:SMRSMR.S1S1/SO%MR:22000:SF$""MRSO%2X1201:12:"READY TO PRINT.":X1301:12:"PRESS 'RETURN' TO BEGIN":X1326:XJ1::12:X$:C12:PR0:"SHOW RECORD # ":X420:XJ1:454:PR$X$:PR$"Y"PR1R%XK15538000(X601:12:"SEARCH FOR SELECTED RECORDS?":X632:XJ1:454:SR$X$:SR$"Y"38445:X701:12:"SEARCH FOR WHAT?":UC%0:X720:XJ39:454:SB$X$:XK15538000))X801:12:XK15538390:38360'10:C338870XE$"":LP0:10:X201:12:"# OF BLANK LINES BETWEEN CARDS":X234:XJ2:454:BL(X$):BL038436:XK15538000:PR0:X301:12:"PAUSE BETWEEN CARDS ":X325:XJ1:454:X$"Y"BL(BL)@$XK15538000:X401:(X$,14(Y1),4):YrX701:32000:"SHOW WHAT ORDER THE LINES GO IN.":X801:12:"PRESS 'ESC' WHEN ALL DONE."zĕI0ؕII1:IPLI1XE$X$(I):X1024100I:XJ2:454:X$(I)X$:X$""(X$)LI38375:X1026100I:32000:(LI$((X$)),1,12);:15:32020:X101401100:12:15:X:XE$(PL):X$"Y"38420X501:12:"HOW MANY LINES TAKEN FROM EACH CARD?":X601:XJ2:454:PL(X$):PL1PLLI38303:X501:12:15:X$"1ST 2ND 3RD 4TH 5TH 6TH 7TH 8TH 9TH10TH11TH12TH13TH":Y1PL:X1019100Y:12:-STORED REPORT FORMAT? ":32020:X$"Y"38303:X201:12:"WHAT NAME":X212:XJ10:UC%32:454:N$X$:37900(4)"APPENDR*"N$DR$:216,0:(4)"OPENR*"N$:(4)"READR*"N$:PL,ST$:X1PL:X$(X),P(X),T$(X)::(4)"CLOSER*"N$9:"MODIFY THIS FORMAT ":X)0:T$(X)"":QCOO43000:C138300:X301:12:"FILE: "(FI$,3):X501:12:"TYPE IN EACH NEW NAME, PRESSING":X601:12:"'RETURN' AFTER EACH. 'ESC' WHEN DONE.":X801:12:"OLD NAME";:X820:12:"NEW NAME":38750mC338303:X101:12:"USE A PREPTION, YOU"SP$"MUST ALREADY HAVE CREATED A":SP$"RECEIVING FILE SHOWING ENOUGH ROOM":::SP$OO1". FULL/PARTIAL COPY OF FILE."32020:X%27X$"M"63410:C(X$):C1COO1Č64477:38165310:27205:COO120020:D2$DR$:X1LI:X$(X)"":P($,3):X601:12:"OPTIONS: ":UC%32:OO3:Eq115,136:116,138:ZK0X120:ST(X)0:T(X)0:X:SP$" ":SP$(SP$,1,520((812)79)):SP$"1. RENAME THE LINES" SP$"2. PRINT LABELS":SP$"3. PRINT REPORT"::SP$"FOR THE FOLLOWING O8,(814)$kq(815)0DR$DR$" "*pq2}12W}2087:X%X%32(X%96):X$(X%):r}XKX%128:X(X$)64:216,0:10:"NO SUCH FORMAT AVAILABLE.":32020: 216,0:10:"NO SUCH FORMAT AVAILABLE.":32020:*p10:X501:12:"CARD FILE: "(FI":X%5:UC%32:DI$(20):10:X$(20),LI$(20),T$(20):P(20),LD$(20):ST(20),T(20):C$(45)\qSO$(2000),CO$(150):MS$" ":X17:MS$MS$MS$:X:D$(4):DR$",S"((804))",D"((805))",V"((806)) fqDP$",S"((810))",D"((814))",V"((815)):3723LI(LI$):(LI$,1)"I"FI%((LI$,3)):LI((LI$,(LI$)3))}djX1LI:2093:LI$(X)(X$,1):X:FI%0āX1FI%:FI$(X):Xhj216,0:D$"CLOSE":D$"OPEN"FI$",L"20LI;DR$:rj10:FI$" IS NOT A WORKING CARD FILE.":"ERROR = "(222):32020:WHq::X$"A1XFI%122030:SF$"":X122050DVX1MR:SO$(X)"00"(X):X:"VSF$FI$"*"FI$(X1):D$"OPEN"SF$:D$"READ"SF$:SO%:2093:ID$(X$,1):O$:X1SO%:2093:SO$(X)(X$,1):X:D$"CLOSE"SF$:EjOj27250>YjD$"OPEN "FI$DR$:D$"READ "FI$:MR,LI$:1LI:X1100(10Y):12:Y" ";::LI$(Y);::Y:U10:"YOU MAY GO IN RECORD # ORDER, OR BY":"USING ONE OF THESE INDEX FILES:"::"1. BY RECORD #":X1FI%:X1". "FI$(X):X"VX100FI%601:12:"WHICH ONE?":XX12:XJ2:454:XK15563410:X(X$):XѺD$"WRITE "NF$",R"(XRCSC1)QI:Y1QR:T$(Y)""16115:CO$(LIRC(T$(Y))):Y:16116a>:Y>RC:D$:X"-":X:FI$NF$:MRQI1SO%SC:LIQR:FI%0:Y1LI:LI$(Y)X$(Y):Y:1812>D2$DR$(815)0ĺ"INSERT YOUR PROGRAM DISK":32020:>14NYL"20QR;D2$:D$"OPEN "FI$",L "20LI;DR$t>X1SO%(130LI):D$:RC0(130LI)1:XRCSC16095:XRCSO%16095>D$"READ"FI$",R"(SO$(XRC),3(SO%999)):Y1LI:2093:CO$(LIRCY)(X$,1):YX>RC:RC0(130LI)1:XRCSO%16116:XRCSC16116::SC(X$):X401:12:"END COPYING AT":X420:454:(X$)SC(X$)SO%16010:SO%(X$)>10:"NOW COPYING '"(FI$,3)"',":"IN ORDER BASED ON ";:SF$""ĺ"RECORD #.">SF$""ĺ"INDEX FILE '"SF$"'."(>:"COPYING RECORDS "SC" - "SO%".":D$"OPEN "NF$",("00"(FI%),2);"I":X1LI:LI$(X):X:FI%0āX1FI%:FI$(X):XW D$"CLOSE"FI$: >SF$""āX1MR:SO$(X)(10000X):X:SO%MRU>10:"THERE ARE "SO%" RECORDS.":X301:12:"START COPYING AT ":X320:XJ3:454:XK15538000:(X$)1(X$)SO%16010:] (X%)UL$;:X$X$(X%):XJ1X%8470:X%8457:X$(X$,1,(X$)2):" "(8)(8)UL$; (X$)0457:(49251)127457:(X$,1)" "459:457 XKX%128:XE$"":XJ39:(812)79ĺ" "(158)(238)(255): " ":C D$"WRITE"FI$",R0":MR:LI;KC)(159(X100));:8 (X100):X100100(37):U (812)8016:(157);:a 868: XJXJ(XJ1):X0456:12 X$XE$:UL$(95)(8):X$UL$; 2051:X%13X%27470:(X$)0X%8457:X%8459:(X$)XJ457:X%64458:X%31459  63999 29000:FI$"":X1(768):FI$FI$((769X)):X:DR$DP$38000:10:"INSERT THE DISK CONTAINING":"'"(FI$,3)"' AND 'RETURN'.":32020:38000 (812)8011:(12): : (812)8014:KCX100(X100):KC40(20KC):(158)(159i`iI i` 0 `( `888` 0 7   `L^LA Lw LL0 uiȩiȩiI`I^NS]MK@PC];_3@+^#[\   L^iI i`A[ cI Qi )ii`Ƀ"360:RU(X$)KrRU0400:90:X101:100:"(S)CREEN OR (P)RINTER?":1240q|X$E$160:OU0:X$"P"OU(809)z490OU0:490(812)80420:(12)::(812)80440:(139);:958:X1((HX$,1))48:X19X1X17X$"2"320#JRU0:X$"1"370:RU1{TX701:100:"FOR GOOD WORDS NOT IN THE LIST":X804:100:"3. ADD THEM TO THE LIST"^X904:100:"4. GIVE YOU THE OPTION OF ADDING":X1004:100:"5. JUST CONTINUE PROOFREADING"h1240:X$E$160:X$"3"X$"670:90'X$"B"B$"DICTMAINT":3010IX$"C"B$"PARAMETERS":3010g"1340:90:PS3RU0:370,410:X201:100:"PROOFREADING OPTIONS:"6X404:100:"1. PROOFREAD ONLY":X504:100:"2. PROOFREAD AND CORRECT" @1240:X$E$160:X$"1"XS RESERVED"X1500:XkX701:100:"WHAT DO YOU WANT TO DO?":X905:100:"A. PROOFREAD A DOCUMENT"X1105:100:"B. MANAGE YOUR SPELLING LIST"X1305:100:"C. CHANGE # OF DRIVES / DISPLAY"1240::X$"A"290:X$"B"X$"C"260:CV12&,812,40:FV$"B"Ĺ812,79(W$)64W,(4)"BSAVE NFL,A$300,L$CF":(4)"RUN HELLO"^,8,6:804,6:814,1:815,0:805,1(A$"T"):806,0+:"YOU CAN CHANGE THESE OPTIONS AT ANY":"TIME BY SELECTING OPTION 6 ON THE":"MAIN INDEX PAGE."::"PRESS 'RETURN'.":A$::16+:"THANK YOU."+809,1:811,3:807,0:808,0:813,0,802,0:803,0E YOU READ AT LEAST THE FIRST NINE":"LESSONS IN THE USER'S MANUAL?":DR$"ONE":A$:A$"Y"5320*::"ONE FINAL QUESTION REMAINS: WILL YOU BE":"USING ONE DISK DRIVE OR TWO DISK DRIVES?"::" O - ONE":" T - TWO":A$*A$"O"A$"T"5290.+810(812)84(812)89ĺ(26)"4"F2040,192:L$" ":(4)"PR#0":hZí(810)0ĺD$"RUN PARAMETERS"x޴AF158140޴(812)4039000:(812)7938000ޫ58002START29000:38000V$"DISK":(815)0V$"VOLUME"(810)0TCH YOUR MONITOR TO 40 COLUMN MODE, PLEASE.":(4)"PR#0":39040`l16296,0:(4)"PR#0":39040v(812)79ĺ(27)(21):39080(812)80ĺ(27)"Q"(812)81ĺ(4)"PR#0":49240,0:(4)"IN#0"(812)82ĺ(20)"A1":(4)"IN#0":(4)"PR#0" (812)79ĺ(27)(21):`Y(812)40(807)139003:(12)"SWITCH YOUR MONITOR TO 40 COLUMNS"Z(27)"Q":(20)"A1":(26)"4":49240,0:(4)"PR#0":(4)"IN#0":AF1:39080[(812)81(812)8339030:(807)139020?b(12)(158)(33)(45)"SWI)Ĺ16295,0(4)"PR#3"E(812)8238070::(20)"B1":38090w(812)8138080::49328,10:49329,32:38090(812)84(812)8938085:(26)"8":38090Ŕ(812)8538086::49331,192:49330,32:38090Ɣ(26)"B"ʔ2040,195:XIN SLOT 3."::"TEMPORARILY RESET TO 40 CHARACTER MODE.":812,40:L$"":32020: z(2040)195ĺD$"PR#3"::16295,0:(812)8538085: (812)81(812)8338030:38040 (807)138040:::12:"SWITCH YOUR MONITOR TO 80 COLUMN MODE." (807 zq }\ }16384,128:X$((16384)128):XK(X$):16368,0:XK96XKXK32:X$(XK)b }z pSWITCH TO 80 CHARS q(812)41Ĺ2040,192:(812)8538085: rL$" "O s(49925)56(49927)24ĺ"NO 80 CHARACTER BOARD (815) Hq: MqD$(4)[ NqL$" ":(812)79(2040)195L$" "k qq(815)0ı} uq975,0:X17 vqY49151(256X):((Y1)24)((Y6)105)29047:975,X wqX xq(975)0ĺ"NO PROTECTION CARD. UNABLE TO RUN.":214,128:E? ";Y$ TX(Y$):X254X1Ĭ+ T806,X7 T22000q TD$"APPENDCATALOG,S"(804)",D"(805)",V"(806):216,0w `T U:"NOT A DOCUMENT VOLUME";:(222)622010:" AVAILABLE TO YOU" U:32020:216,0:806,0:(4)"RUN HELLO,S"(810)",D"(814)",V"e  38144:63999[ (821)164(822)72:(4)"BLOAD NFL":X13:(972X),(1009X):v (815)0Ĺ905,(815) (49932)136Ĺ812,79:801,254 (64435)6Ĺ801,254 58000 (12)::: S(12):::::::::"WHICH DOCUMENT VOLUMX$E$506"(S)CREEN OR (P)RINTER":32020:P$X$DX$E$50NL356zLP99999:P$"P"LPL3:(4)"PR#"(809)NW%18:TF%0NF%42((812)80P$"P")P$"P"NW%17:NF%4TF%NF%K$"D"2070 NQ%4: FREQ CNT:  PS1935:768:LI(X$) MX0,CV9906980GPS1LI500OY0[X1LIx768:YY1:A$(Y)(X$,1)XLIY:216,044000:DD0:303010:"WORD LISTS":"(D)ICTIONARY OR CURRENT (T)EXT?":32020:K$X$K$"T"K$"R" (X$,2):1980'2(X$,1,1)"-"BA:d2X$(X$,2):X$""2010:(X$,1,1)"1"(X$,1,1)"9"20002B(X$):X$(X$,1((B)))2ABBA22 410:"PUT YOUR PROGRAM DISK IN DRIVE #1":12402 30002 X$(27)Ĭ2 D$"RUN"B$DP$X15801l1950:A1BY1880K1vIAB:C(I)1C(I):X101100I1980(I20)j1100:P$" ":C(I)1P$"*"v1P$;:I119001A0:B01(X$,1,1)"1"(X$,1,1)"9"X$(X$,2):X$""1970:19601A(X$):X$(X$,1((A))) 2(X$,1,1)" "X$C$(X)(X$,1):700410:X120((C$(1))2):100:C$(1)Q0:Y1:Z2CE%:C(Z1)0u0DX2100Z:Y20X22100(Z20)0N100:Y" "C$(Z):YY1:Z0XX2301:100:430:"WHICH #S. 'OK' WHEN DONE.":X2327:XJ12:1270:XK1551601bX$"OK"AL1:90:SM1:40)1790U/"SOME LINES ARE TOO WIDE TO DISPLAY":"PROPERLY ON THIS SCREEN.":1240^/510/CV11810:90:"INSERT YOUR DOCUMENT DISK IN THE DRIVE":1240/D$"OPEN CATALOG"DR$:D$"READ CATALOG":CE%,X,X:CE%(CE%)/LI999990&X1CE%:768:768:LI(X$):1720*.LI500:MX0:1740i.X1LI:768:M$(X)(X$,1):MXMX1:(X$)MW1730:MW(X$)p.X.216,0:LI500LIX.CV11760:90:"NOW INSERT THE DICTIONARY IN THE DRIVE.":1240:SM0.1470 /(MW41(812)40)(MW81(812),0:116,46?-rD$"BLOAD"CF$DR$",A"A%:BL%(43616)256(43617)W-vCF$"BSAMPLE"1670r-w:"ADJUSTING TEXT..."-|XA%A%BL%:Y(X):X,Y128(Y192)64(Y32)64(Y218):".";:-1750-D$"OPEN ";CF$DR$-D$"READ ";CF$.LI0:PS11710:I^NS]MK@PC];_3@+^#[\  LiI i`A[ cI Qi )ii`Ƀi`iI i`iȥii`!讠󮠍宍԰Ȱְ׍򮠠蠍쮍$(Y$,S1)9l/(X$,1,1)" "X$(X$,2):(X$)112140Nv/X$" "X$:Z4Y/120452X$(X$,1,Z1)(FL$,1,WD(X$))" "(X$,Z1)6X$:X6D$"PR#0":D$"CLOSE"6A$:6Hq"NOT AN INDEX":A$::Hq::"SORRY, NOT AN INDEX FILEX4000 /(X$)WD130000/S0:TWD1Z11A/T$(X$,T,1)P!/S012090w&/T$" "T$","T$"-"12080:120900/ST:/D/S014000:(X$,S,1)" "SS1N/Y$X$S/X$(X$,1,S)X/X$(X$,1,Z1)(FL$,1,WD(X$))" "(X$,Z1) b/X$:X THE INDEX":A$m]+::"TO (S)CREEN OR TO (P)RINTER?":SL$:SL$"S"SL$"P"11101:SL0:SL$"P"SL(809)f+:D$"PR#"SL:A$.:D$"READ"J$:X1FL.2048:X$(X$,1).Z0:Y1(X$).Z012040.(X$,Y,1)(91)12040:ZY/Y:Z01ITS PAGE NUMBER. WHAT FILL CHARACTER":"WOULD YOU LIKE USED?"M4+FL$:FL$>+TS$"TEST "FL$FL$FL$FL$" 20"::"LIKE THIS?"::TS$H+Y$:Y$"Y"11090I+11050R+X$FL$:X1WD1:FL$FL$X$:XW+D$[+216,0\+:"PRESS 'RETURN' TO PRINT" ENTRIES IN THE INDEX."Z+"HOW MANY CHARACTERS WIDE SHOULD THE":"INDEX COLUMNS BE? " +390::WD(X$):WD20WD239ĺ"20 - 239, PLEASE":11040?*+:"TEST ..... 20":"IN THIS SAMPLE, PERIODS ARE USED AS A":"FILL CHARACTER BETWEEN THE ENTRY AND":"NAL.":A$::100000'D$"OPEN"J$:D$"WRITE"J$I$'"**SORTED**":FLSIc.'X1FLSI:IX$(X):Xt8'D$"CLOSE"J$B'D$"OPEN"J$:D$"READ"J$*FL*D$+:"FILE '"FI$"' IS SORTED":"AND READY TO BE FORMATTED FOR PRINTING." +:"THERE ARE "FLX:10000X:WbCN$"-"IX$(FLSI)IX$(FLSI)"-"(((IX$(X1),L3))):7020gIX$(FLSI)IX$(FLSI)", "(((IX$(X1),L3)))lIX$(FLSI)mX:10000':"NAME FOR SORTED INDEX? ";:390:J$(X$,1)'J$FI$ĺ"NO. WOULD DESTROY ORIGIN$"-"IX$(FL)IX$(FL)"-"(((IX$(X1),L3))):5020dIX$(FL)IX$(FL)", "(((IX$(X1),L3)))rX:10000pSI$" "(IX$(X1),Z2,L2L3Z1)zSI$(IX$(FLSI),1,(SI$))7000SISI1:IX$(FLSI)SI$T$(((IX$(X1),L3)))IX$(FLSI)1,Z1)6000.FLFLSI:SI0282000:X:10000^FLFLSI1:SI0:L1(IX$(X1)):L4L1L3tCN$(IX$(X1),1)IX$(FL)(IX$(X1),1,L1L3)T$(((IX$(X1),L3)))SI0:200:Z0IX$(FL)(IX$(FL),1,Z1):XX1:L4Z1IX$(FL)::6C%:"MERGING ENTRIES IN '"FI$"'"/:D$8L35GFL0:L1L3WX50IX%1jL2(IX$(X1))yL205020CN$(IX$(X1),1)Z01060(IX$(FL),1,L4)(IX$(X1),1,L2L3)50002000:X:10000 $(IX$(FL),1,Z1)(IX$(X1),$,1,(VA$)1);z(VA$,1,1)"-"X$(VA$,2)" "PM$:680t(VA$,(VA$))"-"X$(VA$,1,(VA$)1)" "PP$:680X$VA$" "PP$:680X$"**SORTED**"IX%5011000X$(X$,1,(X$)5)" "(X$,5)X$152580216,0216,0632<GCM$">IX"CM$">ix"VA$(X$,5):CM$"":X$VA$:632DHX$pXCM$">FP"CM$">fp"PN((X$,5)):620bCM$">NP"CM$">np"PNPN1:620lPN$("0000"(PN),4):PM$PN$"-":PP$PN$"+"m580vVA$(X$,5)x(VA$,(VA$))"]"VA$(VA04)",D"(805)",V"(806))D$"READ"FI$POS0Č2048:X$"**SORTED**"11000u&:"READING AND SORTING '"FI$"'":900D2048:X$(X$,1):CM$(X$,1,3):CM$">XT"FI$(X$,5):500EX$"**SORTED**"11000FOS1660:(CM$,1,1)">"VA$X$:(8):X$UL$;R 2134:X%13X%27395::(X$)0X%8392:X%8394:(X$)15392 (X%)UL$;:X$X$(X%):X%8392:X$(X$,1,(X$)2):" "(8)(8)UL$;:392 " ":X$(X$,1): GET FILE 29000 OS(FI$,1,2)"I*"D$"OPEN"FI$",S"(8(X256):29,X256(30):2080B IX%IX%1:XT(XT):IX$(XT)X$:Y IX$(X1)IX$(X):Xg IX%IX%1 XT(XT):IX$(XT)X$: FIND COMMA Z0 Y1L4 Z0212 (IX$(FL),Y,1)","212 ZY Y: 391: X$"":UL$(95)%)XT(IX%1):) IX$(XT)X$XTXT16 XTXT:D INSERT U 100:XT0ı (XT)IX%168:IX$(IX%)IX$(IX%)"":6,(131):7,(132):X(6)256(7)2:26,(X256) 25,X256(26):XX3:28,(X256):27,X256(28):X3(IX%(XT)1)1:30,FI$ 2IX%50:500* d SORT LIST IX = hIX%1XT1:V lXT(IX%2.5):XVXTh pIX$(XT)X$ıy t(XV)1136 xXV((XV)2.5) |IX$(XT)X$XVXV XTXTXV:XTIX%XT1XVXV:XTXTXV 112 X$IX$(IX%)XTIX%: X$IX$(IX$ X$"A":X%1:UC%32:D$(4):X13 IX$(1000)D T$" "(91)k PN$"0000":PM$PN$"-":PP$PN$"+"z (12):: "WHICH INDEX FILE TO PREPARE?" #"'ESC' TO QUIT" (390:FI$X$ -X%27ĺD$"RUN MENUS,S"(810)",D"(814)",V"(815) .J$Т uiȩiȩiI`888`I^NS]MK@PC];_3@+^#[\ LViI i`A[ cI Qi )ii`Ƀi`