' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 7777777 7777JJJJx 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*`READEDIT.FILE"N:NL:I1NL:TX$(I)""O&A$:A$(13)TX$(I)TX$(I)A$:9920u&TX$(I)TX$(I)(26):I:D$"CLOSE"&INL11:TX$(I)""NLNL1:9960&I1&I:LO//EXITVO:11:Z$"RETURNING TO THE MENU...":S(20):Z$`O230,64:6245FIND > END OF WORD&BWHP(&HPHP17&V8CH(HP)}&(V8("'"))(V8("0")V8("9"))(V8("A")V8("Z"))9870&EWHP1:LW(EWBW)1:W2$(TX$(L1),BW,LW):9700:&//FILL LINE ARRAY&I120:TX$(I)"":I%&D$"OPENEDIT.FILE"N:D$"91!@&(TX$(ZZ),ZX,1)(EOL)ıKA&BL1:ZZ8:1:CLINE:TX$(ZZ)(EOL):aH&//FIND NEXT WORDqR&BFİ9300:}\&HPEW1a&V8CH(HP)f&V8EOLİ9300:p&(V8("'"))(V8("0")V8("9"))(V8("A")V8("Z"))9850u&HPHP1:9825z&//8L1:1:CLINE:FP$;::W2$;::LP$*&9&L129761n&ZZL1111:9790:BL0Ģ8ZZ:1:TX$(ZZ):ZZ1v &ZZ|!&*&ZZL11NL:9790:BL0Ģ8ZZ:1:TX$(ZZ):ZZNL4&ZZ:>&ZX0:BL0:L(TX$(ZZ)):L0ı?&ZXZX1:(TX$(ZZ),ZX,1)" "974,TP:35,7::35,23:)%//DISPLAY TEXTO%I1NL:8I:1:TX$(I);40):I:c%//DISSECT LINE%FP$"":LP$"":LL(TX$(L1)):EWLLLP$(TX$(L1),EW1,LL)""%BW1FP$(TX$(L1),1,BW1)""%%//PRINT LINE%9650:9750:9770$%L10ĭ(V8("'"))(V8("0")V8("9"))(V8("A")V8("Z"))9450S$HPHP1:9430s$//INITIALIZE PREVIOUS LINE}$EWHP$HPHP1%HP1ĭCH(HP)SPACE9470%BWHP1:LW(EWBW)1:W2$(TX$(L1),BW,LW):9700:%//CLEAR UPPER WINDOW&%3"$CH(HP)SPACE9230!,$9450:=T$//INITIALIZE NEXT LINEa^$BF0:HP1:L1L11:L1NLFF1:wh$CH(HP)EOL9310r$CH(HP)SPACEHPHP1:9320|$9850:$//FIND PREVIOUS WORD$FFİ9200:$HPBW1$HP1İ9200:$V8CH(HP)A$U WOULD LIKE TO EDIT:";>#FI$F2$:MLI:IN$"1"IN$"8"9000R#IN$"8"İ20300#:14:11:"LOADING TEXT":34,14:N(IN$):9900:::#//INITIALIZE PREVIOUS LINE#FF0:L1L11:L11BF1:$LL(TX$(L1)):HPLL$HPHP1$HP19210Ү΍΍ҠҬɠԠϠ̠ՠנȠɠٍҠЮŠŠŠԍƠԠӠҮɠٍ͠ɠԠԠԠԠՠĠŮҠĬӍԍ, L"JUSTIFY TEXT","JUSTIFY" V"THIS PROGRAM DEMONSTRATES HOW THE LEFT","AND RIGHT MARGINS OF TEXT CAN BE","AUTOMATICALLY MADE EVEN.","",""R"h . "THIS PROGRAM DEMONSTRATES THE WAY","TEXT MATERIAL IS ENTERED INTO A WORD","PROCESSOR.","","" 8"EDIT TEXT","EDITOR" B"THIS PROGRAM ALLOWS YOU TO CHOOSE","ANY OF 7 DIFFERENT TEXT SAMPLES ON","WHICH TO PRACTICE YOUR EDITING SKILLS.","",""ERENT MESSAGES TO A","PERSON OF YOUR CHOICE." I "RECEIVE MAIL","READ" "THIS PROGRAM DEMONSTRATES HOW YOU","MIGHT GET A LETTER THROUGH 'ELECTRONIC","MAIL'. YOU CAN READ ANY OF THE","LETTERS THAT HAVE BEEN MAILED BY YOU.","" $"ENTER TEXT","ENTE5JFIRST LINE OF DATA:DISKETTE #,NAME LINE 1,NAME LINE 2,# OF PROGRAMSk214,"PROCESSING WORDS","",5"SEND MAIL","SEND". "THIS PROGRAM DEMONSTRATES HOW YOU","MIGHT SEND A LETTER THROUGH","'ELECTRONIC MAIL'. YOU CAN SEND ANY","OF THREE DIFF    ҠҠҬɠԠϠˠՠҠŠŠԠՠԠŮԠӠŠƠՠύˠƠŬԠɠĠϠΠԮԠΧԠȠ٠ӮӠάҮ٬ӠӍԠҠҠҬɠ͠Ǡ٠ӠĮɍŠՠ̠ŠŬҮӠ٬ԠԠŠ®٠Ӡ̠ŠŮҠĬӠӍԠҠҠҬԠӠΠŠϠŠՠΠӮƠՠԠϠ٠ΠӬՠ̍ŠϠԠϠˬҮҠŠҬԠԍԠ ҠŠή٬РӍԠҠҠҬҠŠӠΠԠϠӠӍŠϠӠӮϬҬՠ̠נԠΠӠӮŠŠǍՠҠĠǠŠҍ٠ӬՠŠŠύΠҠŠƠՠĠ΍  00 P//SPACE BARL P24:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE"; (P16368,0:16384,128,0:16368,0:24:1:868:$:S1$:S2$:LR$! (:D$"CLOSE"dDҠҠҬՠŠӠҠҠÍ̠Ů٠ЬҬҠŧ̠̠ҠǮҠ٠̠ŬԠӬîԠ #* D$(13)(4):D$"OPEN MAILFILE,L60"FL0:R1$"ANGEL":R2$"NELSON":S1$"RUSS":S2$"ERICKSON":LR$"3":CM$(0)"READ":CM$(1)"WRITE"I060:D$CM$(FL);"MAILFILE,R"IFLĄR1$,R2$,S1$,S2$,LR$:R1$"/"R2$"/"S1$"/"S2$"/"LR$"/"I #FLĺR1$:R2  $"WRITE MAILFILE,R"L:"X":"X":"X":"X":"0":L:D$"CLOSE":34,0:X::11:Z$"RETURNING TO THE MENU...":S(20):Z$:D$"RUN HELLO"P SPACE BAR P24:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";(P16368,0:16384,128,0:16368,0:ONTINUE";1(P16368,0:16384,128,0:16368,0:O    Ԯ̠ŠӠΠŠŠȠĠҮŠ٠ϠȠҠĠӠ̠ΠӠƠӮҠ٧ӠӠŠԠ̬ԠՠŠϠȠϠŠԠՠΠŠ͠ҠٮҠˠӠԠŬԠՠŠϠȠҠҠ w[g_?^ Fox? F>ppA}@x @OA?AX_{@@wF~_>?wv@yFx?@o@`B @}@?@_EyxA?oB}={C^o^k@|Bs @g"A~np{G~`{{aqsBw@x @NO8oJV[_{]n]v=oA}]A;?o@g@yB{ @s"@~nGun{~n{{n@w@wA?~Noxp67\_{]qcf? AwgBo@g@?@wAo@Ax?Co@ A?~L8``A8_D?x@@_A`C_@@_@~A{~Mo?_`A8_~A?@pD_0@G@~@~F_m>[ow_ A?O]{o}_oBo@x @|A?@x@O@_@yC_@@_A8A{~Mo?o}v[>{}>_}~A? A?~Dx@sA~LxXcnw` A?Oc>{o~_ow[k_?] FoxG? DG|A}@x @H?X_s;wF|_>?gv@|F_x?@oA~ B?~ @}@?@_E}xA??|@xA~L0W]v[k6wmo.{~E_o>{m7 A?Oy>x`ow[m_?[ Fox? Cq?@A}@| @?T?8ok=?o{z^>?Wt?~FOx?@xA| @}@?@OE|xA?oE}@?7{Fox?@sD}|@q@?@oL~xA?oOoy]_{?o@g@OB{ @}"qHpnpqan`{q@`@w@qAqA`}@O? AwsBo@@@w@n%Aw_Bo@p @qA?@x@g@O@|CO@@_@~A{~Mo?w}v[?}>O}~A? @F_kA~Bs @}?@w@gB?|@{@_? AwxBoA?~A_J|pn6|Xg]_cn%Aw_Bo@p @gA?@x@w@o@~Co@@_@~A{~Mo?{}v_?}>W~A? @gF?~D~~B?~LPO>zog>{k/{~E_o>{m7 A?O|>{o7ow[n_?W Fox> A?|@}8onV;W[]_]n%Aw_Bo@x @A?@|@g@oA?~Co@ @|L8`}vxA~>[}A? ApF?pAxB?CX_~zoF>{k/?{~F_o>{m7_ A?O~>{o7owoW?O Fox< A@@}@~D??|@_@OFox?@gD}x@G@?@gK~xA?o/wu>o{C^o?@_O~zog>{K/{~F_oAx` A?P?~>{o7_ow[oO?_ Bo8 A`@}@~F_oA{ x` A? @~@gFox?@OD}xA~A?A|p{D@|~?~B1wv@wF?~xc?oIx p|ao?l@xBg @}?@s@OB@{@_"qI~{nqan{`xqA~Bo@xA_Jo<~` Fox? @a@@D}x @xA?M8o{;?o{~_}~.wv@sF?x?@o@cBO @}?@{@Bo @_"nC~{v{nC{{wn@ Bg@x @sA_JX_nfWO{]_>n%AwOBoA?~@? @o@g@?Co@ @qLo7_}v_~{>]}D?| @CF?@C~`Qa?lA?~Bg @O"M~n~{z{fn{{ono>Bw@p @gA_JX_nvW_{]_~n%AwoBo@|@? @o@w@?Co@ @GLo7_}v[~{>^}D?x @xF??`@A?`Q@?W~v[k>w-w.{~A?@J> x`\o_@` FO0A?~@}@~Fg>{n7_ A? @_Nqwlw`\Co@ @Mo7_}v[>{}>_}~D?xA?~@AGC_@KX~nx1{~A?@GF_ @@|@~F_j>;ow_ A? @_O?|k{o;_ow[o_?>_ Fox? @ AA}@x @cA?AX_{@?wF~_>wv@{G?x?o@A~B_ @}@?@@E{?|c@o}F`|` ` ʚhih@ (0: Hh @H(hJ)?Pp݄PD & &JJոP`)Bw@p @ON_X_lfW_{_>f%AwoBo@q@? @o@w@?           z #?????_  נŠ àϠ Ԡ̮ʠ ԭ ͠Ҡ͠Ҡ͠ҠҠŠ͠Ϡ ԮŹ Ϡ !ϠĠàϠ Π ̠Ҡ ĠҠ ҠҠ ԮŴԮŵԮŶ ԮŷԮų"Ҡ٠ ϠԠҠ ҠӠĠԮűԮŲ0:D$"RUN HELLO"(O//ERROR PROCESSINGKOER(222):LN(218)(219)256bOER0ER16EF1:|OLZ53856ER:ER255Ħ O::8::MZ01:PE(LZ):(PE);:MZ(PE127):LZLZ1:MZ:" ERROR AT LINE #"LN"."::"PLEASE REPORT THIS TO MECC.":20500:203ODE IN LETTER FILE W22:BL$"ILLEGAL ESCAPE CODE ^"C$:"IN "FI$:11000G SPACE BAR TO CONTINUE.";A(P16368,0:16384,128,0:16368,0:O@ ERRORS vJEC(222):EL(218)256(219):D$EC255406004 CONTROL-C>BL$::1100022:BL$"ERROR CODE "EC:"AT LINE NUMBER "EL"!!":11000 ( ILLEGAL ESCAPE CNR03000I1NR3D$"READ MAILNAMES, R"I<NM$ND$"OPEN "NM$b$D$"DELETE "NM$i.I8D$"WRITE MAILNAMES, R0"B0LD$"CLOSE"W3000' EXIT ':* ERROR EXIT+D$"CLOSE":P SPACE BAR P24:7:"PRESSET"41000^:D$"CLOSE"%h20500/3000;// ENDQ:(4)"RUN MENU"sp// REMOVE STUDENT NAME FILESzD$(4)8:12:"REMOVING LETTERS";:D$"OPEN MAILNAMES, L32"D$"READ MAILNAMES, R0"NRD$ "^"ĺ:C$;:4100)C1$:C2$:C$C1$C2$DC$"FS"ĺ:FS$;:4100_"C$"LS"ĺ:LS$;:4100t,C$"DT"ĺ:41006C$"TI"ĺ:4100@C$"FR"ĺ:FR$;:4100JC$"LR"ĺ:LR$;:4100MC$"FT"ĺ:FT$;:4100QC$"LT"ĺ:LT$;:4100 TC$"ERS" " 9) END" :1 "WHICH OPTION";H& FI$"12 $$4191":Z0 IN$"1"2000l: IN$"8"6000~D IN$"9"5000N LP(IN$)1 FRAME 4 (LETTER) ::"HERE IS THE LETTER:"FI$FL$(LP):D$"OPEN "FI$:D$"READ "FI$C$:C$ETTER TO YOUR STUDENTS."  :4 "PREVIEW THE:"X " 2) LETTER FROM THE TEACHER"u " 3) PARTY INVITATION" " 4) FRIENDSHIP NOTE" " 5) THANK YOU NOTE" " 6) ADVERTISEMENT" " 7) BILL" : " 8) REMOVE STUDENTS' LETTSERTING YOUR NAME INTO THE 'LETTERFROM THE TEACHER.' . . ." FI$"TEACHER NAME":D$"OPEN "FI$:D$"WRITE "FI$:FT$:LT$:D$"CLOSE" // MENU "THE FOLLOWING OPTIONS ARE AVAILABLE." : " 1) ENTER YOUR NAME INTO A FORM" " L:"ENTER YOUR TITLE (E.G. DR., MS.) AND/OR":"YOUR FIRST NAME IF YOUR STUDENTS CALL":"YOU BY YOUR FIRST NAME:" FI$"21*(7$3AZ1":20999,96: FT$IN$"" 411:"PLEASE ENTER YOUR LAST NAME:" >FI$"210(7$3'Z1": HLT$IN$""; :12:"NOW IN . . ." 20500. FL$(1)"TEACHER LETTER"I FL$(2)"FORM LETTER 1"d FL$(3)"FORM LETTER 3" FL$(4)"FORM LETTER 2" FL$(5)"AD LETTER" FL$(6)"BILL LETTER" 3000  FRAME 2 (GET NAME OF TEACHER) o 3:LS$LR$ D$"NOMONICO":: ,5:12:"* PREVIEW MAIL *N 6D$"BRUN INPUT"l  FRAME 1 (DESCRIPTION)  :6:"THIS PROGRAM ALLOWS TEACHERS TO INSERT"::"THEIR NAMES INTO A 'LETTER FROM THE"::"TEACHER' AND TO PREVIEW THE AVAILABLE"::"LETTERS.LES: FORM LETTER <1-3>; AD LETTER; TEACHER LETTER; BILL LETTER; TEACHER NAME; INPUT INITIALIZATION :::255 16384 D$(13)(4):BL$(7)(7):IN$"":FL$(6) FR$"RECEIVING":FS$"SENDING":LR$"STUDENT"X d COPYRIGHT MECC 19818n PROGRAM NAME: PREVIEWLs VERSION: 1.1x AUTHOR: DAN PELOWSKI} PROGRAMMER: SETH A. ROSENBLATT LANGUAGE: APPLESOFT (FP)n ASSOCIATED FI     ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍ӍӍ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍ή؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ؍؍؍؍΍Ӎ׍ȍ؍؍؍؍Ӎ΍΍؍؍؍؍΍Ӎ΍΍؍؍؍؍΍Ӎҍ΍؍؍؍؍΍Ӎ؍؍؍؍͍Ѝ΍؍؍؍؍΍΍ȍ΍؍؍؍؍΍̍ȍ΍؍؍؍؍ȍ׍ȍ؍؍؍؍ȍ     $$! $%%# GeNhh`d7 6  "(!#``"% e*&+'% e!&*'i' e0#0Υ#%% e*!0 e0`+i+`%J)+%j )* * (je$*`WITCH. z32,0:14:4:" ^THI0 #eWRT @UPHN2 ?hHh`0 i Hɍ[Ɉ  d LeɊ%%# Ge "Leɇ LeɌ**+*++8 $%OOHH eh%HJJJ'hH*&'*&'*&')&&OH**hQ**O+i+~<&"""" ,2""<"><$ " "&"""  0 $" "8****&""""""""""< `&< ("""""""""*6""""">>88   (""*:<"">""""""""""""">>>"2"""">""" """  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> > *""""">(((>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""<   >>_Ld6 >>">""""A~>I**<<>6>H$$H$H$AAIAI6>6"> *U*U*U*U"""6"">" >>::>>>     UUUUUUUUUUUUUU UU P Oȱȱ8`ML`EHJJh)JJL)hL~D D0 EL~L?F?1BC ؂ I rF L{L LҁB>H)hɠFȄBLҁL9Bѥ<%=eB$$ " CBFFLҁ=$<% " C0` UU8#>L?ȱ81@ȱ Dȱ Eȱ81ׅh<&݅ۅ߅,߅߅߅ h%<$=ЅFȄB@ ii>CBCC ؂H)L+ɀqr+Lɯd 8ɀ   Lޥ8e湥 HH L`qrLF r L81Hȱ81Hȥ 8$օ<ȥ 8$(ƅ=ȱ8"(>ȱ   TEXT EDITOR FEATURES"2d#" 3. SEARCHING A FILE"^n#" 4. ADDITIONAL TEXT EDITOR FEATURES"zx#" 5. WORD PROCESSORS"#" 6. A FORM LETTER"#" 7. A POEM"#" 8. RETURN TO MENU"#:#"ENTER THE NUMBER OF THE TEXT"#:"SAMPLE YO"Y"8020hFL1:"(# //MENUN2#:Z$"* EDIT TEXT *":2:S(20):Z$::y<#"THIS PROGRAM WILL ALLOW YOU TO EDIT">#"TEXT MATERIAL. SEVERAL DIFFERENT TEXT"@#"SAMPLES ARE AVAILABLE."F#:P#" 1. BACKGROUND ON TEXT EDITORS"Z#" 2. :16384,128:CH(16384)128:Z(CH8BF0)(CH21FF0)2:Z9400,9800TCH13ı^6030j@//EXITJ::2:14:"EDITED TEXT":14:"------ ----"::9600:20500T:FI$F3$:8:"DO YOU WANT TO TRY AGAIN?";:MLI:(IN$,1)"N"20300 ^(IN$,1) //TITLETTP0:9500:1:STAR$;STAR$;STAR$;STAR$:Z$""Z$"":1:S(20):Z$:hp//MOVE POINTERzZ$"MOVE CURSOR":5100:TP1:9500:3:"USE THE ARROW KEYS TO MOVE THE CURSOR":"PRESS ";::"RETURN";::" WHEN FINISHED."GEF0:16368,0$:9800:9700:"//DELETE WORD[9650:LLLW1TX$(L1)(EOL):L10Ģ8L1:1:CLINEkBF1İ9300FP$""TX$(L1)(LP$,(LP$)((LP$,1,1)" ")):5030TX$(L1)(FP$,(FP$)((FP$,(FP$),1)" "))LP$W2$"":L1L11:9300:9650:9700:PE EITHER "QU$"BEFORE"QU$" OR "QU$"AFTER"QU$".":20500:4040i9650:((IN$"B")(IN$"A")2)4100,4200L1L11:9300:9700://INSERT BEFORETX$(L1)FP$NW$" "W2$LP$:h//INSERT AFTER rTX$(L1)FP$W2$" "NW$LP$:TX$(L1)TMOOM TO INSERT":QU$NW$QU$:"IN THE SPACE LEFT ON THE LINE.":20500:4080{TP1:9500:3::"WOULD YOU LIKE TO INSERT IT"::"B";::"EFORE OR ";::"A";::"FTER THE WORD ";<:W2$;::" ";:FI$F4$:MLI:IN$"A"IN$"B"TP1:9500:4:1:"TY$F1$:MLI:IN$""ı2 9650:TX$(L1)FP$IN$LP$L L1L11:9300:9700:_//INSERT WORDzZ$"INSERT WORD":5100:"ENTER THE WORD YOU WOULD LIKE TO INSERT"::FI$F1$:MLI:NW$IN$""H(NW$)LL39TP1:9500:4:1:"THERE IS NOT ENOUGH R1:"CONTINUE SEARCH(";::"Y";::"ES/";::"N";::"O)?";:FI$F4$:MLI:IN$"Y"IN$"N"2110eHx //CHANGE WORD Z$"REPLACE WORD":5100 3:"THE WORD UNDER THE CURSOR IS"::W2$;::"." 5:"WITH WHAT DO YOU WANT TO REPLACE IT?" FIN$""ı! TP1:9500:WS$IN$""6 HP1:9850:2030@ 9800 FF1TP1:9500:I(W2$)30:5::WS$;::CR$(I)" NOT FOUND.":20500:9600:BW0:L10:FF0:9300: W2$WS$2027 2100:TP1:9500:IN$"Y"2027  4//USER DECIDES_>5::"PRESS S,R,I,D,M,OR P:";:MLI:I16:IN$(CM$(I),1)CMI:I6R $I:CM01050x .CM2000,3000,4000,5000,6000,8000 8FL1000 B1020 //SEARCH FOR WORD Z$"SEARCH FOR WORD":5100:3:"ENTER THE WORD YOU WISH TO LOCATE:"::FI$F1$:MLI:IRT OF MAIN PROGRAMR FL0::9000:::8:I140:"=";:I:L10:9600:9300:9700c //MAIN MENU 1:Z$"EDITOR":5100:3 I13::(CM$(I),1);::(CM$(I),(CM$(I))1);:20::(CM$(I3),1);::(CM$(I3),(CM$(I3))1):@ CM0:7:1:FI$F4$D":CM$(4)"DELETE A WORD":CM$(5)"MOVE WORD POINTER":CM$(6)"PRINT TEXT AND END" TCS$(1)"ENTER NEW SEARCH-WORD":CS$(2)"CONTINUE SEARCH" ^S(I)I(Z$)2:B(I)ILW:L(I)I(B(BW)):CH(I)((TX$(L1),I,1)) CR$(1)(13):CLINE868 //STA":F2$"12 $$2 1":F3$"12 &$4AZ1":F4$"14 $$4AZ1":STAR$"**********":SPACE32:EOL26c 20400w ,TX$(20),CM$(6) 6IN$"":FI$"":D$(13)(4) @D$"PR#0":D$"BRUNINPUT"P JCM$(1)"SEARCH FOR A WORD":CM$(2)"REPLACE A WORD":CM$(3)"INSERT A WORdPROGRAM NAME:EDITOR6iLAST MOD.:08/16/83 KLMPnCOPYRIGHT 1981 MECC jxAUTHOR: KENT CARLSONLANGUAGE: APPLESOFT(FP)ASSOCIATED FILES: EDIT.FILE1 - EDIT.FILE7//INITIALIZATION16384::W 255:F1$"12 H#1 1      ^ -`- &Ls`L 䎱 掲`RFRNSEN s`8ƹ>? ̎9p!>? ̎&pg^h_^`ȱ^Șe^^_iȑ^^_@A   - `@ @ `,X` {ݩ- <<`  'LlLԩ { R P>Q? ̎?P` & eL׭}~XLXLX ")>? ̎p F 8`L[8ghgmihmj8:l8LL{ 8ɀ  L8e湥 HH L` <=<ȥ?< <<= H <=I       BAR=P24:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";e(P16368,0:16384,128,0:16368,0:"O//ERROR PROCESSING<OER(222):LN(218)(219)256SOER0ER16EF1:mOLZ53856ER:ER255ĦO::8::MZ01:PE(LZ):(PE);:MZ(PE127):LZLZ1:MZ:" ERROR AT LINE #"LN"."::"PLEASE REPORT THIS TO MECC.":20500:20300P//SPACE b34,0:Ng10:"DO YOU WANT TO SEND"::"ANOTHER LETTER?";:FI$F3$:MLIel(IN$,1)"Y"3000v(IN$,1)"N"Ģ22:1:"PLEASE TYPE YES OR NO.":7015LO//EXITVO:11:Z$"RETURNING TO THE MENU...":S(20):Z$`O230,64:62450:D$"RUN HELLOR1$,R2$,S1$,S2$,N$+N$"0"RL:L60L:R0ĺD$"CLOSE":::10:"THE MAILBOX IS FULL. PLEASE ASK YOUR"::"TEACHER TO HELP YOU.":20500:8000D$"WRITE MAILFILE,R"RFR$:LR$:FS$:LS$:LN$:D$"CLOSE"XSEE IF THEY WANNA DO IT AGAIN"SEND TO ";FR$"?";:MLI7ZQS$(IN$,1):QS$"N"3000IdQS$"Y"6000rn24:"PLEASE TYPE YES OR NO.";:5200p//SAVE NEW FILEz:12:8:"YOUR LETTER IS BEING SENT."D$"OPEN MAILFILE,L60":R134,14:L060D$"READMAILFILE,R"L5100C1$:C2$:C$C1$C2$9C$"FS"ĺ:FS$;:5100T C$"LS"ĺ:LS$;:5100iC$"DT"ĺ:5100~C$"TI"ĺ:5100(C$"FR"ĺ:FR$;:51002C$"LR"ĺ:LR$;:5100F:D$"CLOSE"P20:FI$F3$::"IS THIS THE LETTER YOU WOULD LIKE TO":N TO MENU"$ 032,0::RESET MARGINN :19:1:"WHICH NUMBER?";:FI$F2$:MLIb DIN$"4"İ20300q NLN$IN$""  //FRAME 5 ::"HERE IS HOW THE LETTER LOOKS NOW:": FL$"FORM LETTER "LN$:D$"OPEN "FL$:D$"READ "FL$C$:C$"^"ĺ:C$;:AME?";:MLI:LR$IN$"", //FRAME 4 (MENU)~ :3:"YOU MAY SEND ONE OF THE FOLLOWING THREE":"LETTERS OR RETURN TO MENU." 32,5::>5 7:"1. AN INVITATION TO A PARTY": h"2. A THANK YOU NOTE": "3. A FRIENDSHIP NOTE": "4. RETUR11:CPAGE:"WHAT IS YOUR LAST"::"NAME, ";FS$;"?";:MLII HLS$IN$""f //FRAME 3 (RECVER NAME) :4:"ENTER THE NAME OF THE PERSON TO WHOM":FI$F1$ "YOU WISH TO SEND A LETTER." 9:"FIRST NAME?";:MLI:FR$IN$""  12:CPAGE:"LAST NM WILL DEMONSTRATE":S(20):Z$::Z$"HOW YOU MIGHT SEND A FORM LETTER":S(20):Z$::Z$"THROUGH "QU$"ELECTRONIC MAIL"QU$".":S(20):Z$ 20500 //FRAME 2 (NAME-SENDER) :FI$F1$ 5:"WHAT IS YOUR FIRST NAME?";:MLI FS$IN$"": 48:D$(13)(4):S(I)I((Z$)2)c D$"PR#0":F1$"13 /$4AZ1":F2$"12 $$4141":F3$"12 &$4AZ1"o 20400 D$"NOMONICO": ,::5:Z$"* SEND MAIL *":S(20):Z$ 6D$"BRUN INPUT" //FRAME 1 (DESCRIPTION) QU$(34):10:Z$"THIS PROGRAf dPROGRAM: SEND2nPROGRMER:SETH ROSENBLATTKxCOPYRIGHT MECC 1981cLANGUAGE:APPLESOFTASSOC. FILES:FORM LETTER 1-3, ADLETTER, TEACHER LETTER, BILL LETTER, TEACHER NAME, INPUTINITIALIZATION16384" IN$"":CPAGE958:CLINE86     TEXT:8:SPD0:"DO YOU WANT TO USE "QU$"ENTER TEXT"QU$::"WITH A PROGRAMMING CLASS?";:FI$"12 &$4AZ1":MLI:(IN$,1)"N"5040:8:"HOW FAST WOULD YOU LIKE THE COMPUTER":"TO CORRECT BROKEN WORDS AT THE END":"OF LINES?"d::" 1. VERY F:4100!"C$"LS"ĺ:LS$;:41006,C$"DT"ĺ:4100K6C$"TI"ĺ:4100f@C$"FR"ĺ:FR$;:4100JC$"LR"ĺ:LR$;:4100MC$"FT"ĺ:FT$;:4100QC$"LT"ĺ:LT$;:4100TC$"ET"41000^:h205003000//CONFIGURE ENTER OPTION?";:FI$"12 $$4171":MLI:LP(IN$)5LP7ız::"HERE IS THE LETTER:":FL$FL$(LP):D$"OPEN"FL$:D$"READ"FL$4100:D$"CLOSE":20500:4000PRINT OUT A LETTER C$:C$"^"ĺ:C$;:4100C1$:C2$:C$C1$C2$C$"FS"ĺ:FS$;0:5:"THESE LETTER OPTIONS ARE AVAILABLE."Y:" 1. LETTER FROM THE TEACHER":" 2. PARTY INVITATION"::" 3. FRIENDSHIP NOTE"::" 4. THANK YOU NOTE"::" 5. ADVERTISEMENT"::" 6. BILL"):" 7. RETURN TO MENU":::"WHICH E,L60"> KāI0K1:J16:RI6J1:3100:J:20500:::If LāJ1L:RK6J1:3100:J:20500y :D$"CLOSE": V(37):21:D$"READ MAILFILE,R"R(R):R1$,R2$,S1$,S2$,LR$:V:1:"TO: "R1$" "R2$:"FROM: "S1$" "S2$::: FRAME 4 (LETTER) PEN MAILFILE,L60":L060f 21:D$"READ MAILFILE,R"L:R1$,R2$,S1$,S2$,LR$:LR$"0"R(NL)L:NLNL1 L:D$"CLOSE":NL0ė:11:Z$"NO LETTERS ARE PRESENT":S(20):Z$:20500:: :1::KNL6:L((K(K.005))6.005):K(K.005):D$"OPEN MAILFILIN$""\ :12:"NOW INSERTING YOUR NAME INTO THE"::QU$"LETTER FROM THE TEACHER"QU$"..." FI$"TEACHER NAME":D$"OPEN "FI$:D$"WRITE "FI$:FT$:LT$:D$"CLOSE": //LIST UNREAD MAIL :11:Z$"CHECKING THE MAILBOXES":S(20):Z$ NL0:D$"OME IN FILE  3:"ENTER YOUR TITLE (MR., DR., MS.) AND/OR":"YOUR FIRST NAME IF YOUR STUDENTS CALL":"YOU BY YOUR FIRST NAME:" FI$"21*(7$3AZ1":20999,96:MLI FT$IN$"" 11:"PLEASE ENTER YOUR LAST NAME:" FI$"210(7$3'Z1":MLI:LT$L":) ." 4. DELETE ALL UNREAD MAIL":e 8" 5. MODIFY THE "QU$"ENTER TEXT"QU$:" PROGRAM": =" 6. RETURN TO MENU": B:"WHICH OPTION?";:FI$"12 $$4161":MLI:OP(IN$) GOP4000,2000,3000,6000,5000,7000 K:1010 PUT TEACHER NAR" FL$(6)"BILL LETTER"' //MENUG :1:12:"TEACHER OPTIONS"u :"THE FOLLOWING OPTIONS ARE AVAILABLE."} : " 1. PREVIEW LETTERS": " 2. ENTER YOUR NAME INTO A":" FORM LETTER TO YOUR STUDENTS": $" 3. LIST UNREAD MAIIVING":FS$"SENDING":LR$"STUDENT":LS$LR$H D$"NOMONICO":D$"PR#0":j ,::1:12:"TEACHER OPTIONS"~ 6D$"BRUN INPUT" FL$(1)"TEACHER LETTER" FL$(2)"FORM LETTER 1" FL$(3)"FORM LETTER 3" FL$(4)"FORM LETTER 2" FL$(5)"AD LETTE dPROGRAM: TEACHER OPTIONS9nAUTHOR: DAN PELOWSKIRxCOPYRIGHT MECC 1981pPRGRMER: SETH ROSENBLATT//INITIALIZATION:::25516384D$(13)(4):BL$(7)(7):IN$"":FL$(6),R(61):QU$(34):S(I)I((Z$)2)* FR$"RECE    ĮĠҠӠˍƠŠՠŠӠՠōȠŠԮŠӠՠŠȠŠԮԮӠ͠ӠΠŠƠנԠҠӮԠӠŠ٠ӠԠˠȍӮ٠נՍϠŠӠϠǍՠŠΠĠĠ΍ҠŮՠٍȠҠĠҠԠ !$dF~Gq@@@APX1LGa`0 c<`@@@C D9FxGqAB@gB`??I@p1?B Ax@@Bq?G`GqKl`LMC0A@??J@Gq|@`@ ?,J~Gq_L`@l0`< FyB!$ D! %$B!$Cd  #A@BqH  O FGqFl`LMABp?B|?I@Gq|@`@ ?,J|GqOL`@ 08`pBaC T!`FC'AC@#G@GCGAcC@6FGq@A@@@`@`@@@@@@@@ P`GC$`' d'@  F$DJ|GAqG`@ x0@`@!D $aB@@6FGq@Ap@@`@`@@@@@@@@R`c $ @c#$``#d@  C$D!$@F~Gq@@@A@F0g`C38`?F|GqAB@CB`%@?'D@Gq@K@c(A@ A J $D"$ D"@@@FGq@L@ACpf`C38`F  CC M  2F~GqAA@Q?!J`GqyF@C38`@ HDF@ABG2F~GqAGQ?!JpGqyF@30`Bx HI@E3AxCqC@JAEGqElF=C@v@|Aq?H~GqA@@C3A~DAqBC@CHDGq?A @Bq?H|Gq A@?,JppL`@ `{A7xc`?$F~GqA@c\!D@cG# DCGECg@'@@GgC$DG A`J@cAc`a@B@FGq@B@AgMp1Fa`0 Oa<`pL$L$A$:L(L$)HLML2050M(7);RPSL11\TI$(L$,PS,1)aTI$(32)2170fL$(L$,1,PS120)"2";30);"3";40);"4"68:I140:((I),1);:I=7KLH:"'";YRH:"'";e10:LH|L$"":T$"":TI$""CH(36)1:CV(37)1SPD0Ģ1:5:L$;ML(L$));"":5:T$;ML(T$)):CV:CH A$A$(27)2300A$(8)210N YOU ARE" n:Z:"FINISHED."+ w20500: xMLRHLH1r :SPD0ĺ"L$=";Q$;ML5);Q$:2:"T$=";Q$;ML5);Q$ 3:N140:"-";: "TYPE IN MATERIAL. PRESS "; :"ESC";: " TO STOP" :8:"C O L U M N N U M B E R S"10)"1";$:MLI:RH(IN$)( RHLH9RH3512008 // PREPARE> z (5:Z$"PREPARE TO ENTER YOUR MATERIAL.":ZS(20):Z:Z$ 2: <Z:"USE THE BACK-ARROW KEY TO ERASE A" F:Z:"MISTAKE." P: ZZ:"PRESS THE "; d:"ESC";: i" KEY WHE e8/ j"IN WHICH COLUMN WOULD YOU LIKE THE"5 oI t"LEFT MARGIN";Z y" (1-25)?";u ~FI$F1$:MLI:LH(IN$) LH1LH251100 14:1:958 "IN WHICH COLUMN WOULD YOU LIKE THE"  "RIGHT MARGIN"; "("LH9"-35)?"; FI$F1ALLY PLACED ON THE"::"NEXT LINE.":20500b 8:D$"BLOADSPDOPTION,A1022":SPD(1022):SPD01100 BSPD(SPD1)1(SPD2)750(SPD3)1500 L// GET LEFT MARGIN V ["YOU CAN SET THE RIGHT AND LEFT MARGINS" ] `"FOR YOUR TEXT MATERIAL.":IN$"" ::255, //START OF PROGRAMM ::3:14:"* ENTER TEXT *" 7:"THIS PROGRAM DEMONSTRATES THE WAY TEXT"::"MATERIAL IS ENTERED INTO A WORD"::"PROCESSOR."* ::"WORDS WHICH DO NOT FIT ON THE END OF"::"A LINE ARE AUTOMATIC# dPROGRAM:ENTER)nAUTHOR: UNKNOWNBxCOPYRIGHT 1981 MECC[PROGRMER: UNCLAIMEDaw//INITIALIZATION16384D$(13)(4):Q$(34):S(I)I((Z$)2)D$"PR#0":F1$"12 %$4091":F2$"12 &$4AZ1"20400 D$"BRUN INPUT"ΠҮӠΠŠ͠ԍϠԠϠҠŠӠƠԍĠӮԬӍҠȠӠύҠԠԠŠӍĠԠԠŠԮĬ֠٠ҍŠҮĬŠύŠӬȠӠˮȬҠύԠŠ E MENU...":S(20):Z$8`O230,64:62450:D$"RUN HELLO"PO//ERROR PROCESSINGsOER(222):LN(218)(219)256OER0ER16EF1:OLZ53856ER:ER255Ħ*O::8::MZ01:PE(LZ):(PE);:MZ(PE127):LZLZ1:MZ:" ERROR AT LINE #"LN"."::"P$B$(B$,2,(B$)1)0%LH:(B$,1,(B$)1):<%:9130]%LLNB$B$SP$W$(L):LL1c&s &PS1(B$)&(B$,PS,1)SP$9770 &PS*&LH:(B$,1,PS1)4&B$(B$,PS1,(B$)PS1)>&FC1:9240LO//EXITVO:11:Z$"RETURNING TO TH ",1,NA)(L$,PS1,LLPS1)Ov%PSPSNA:II1:LLLLNAW%PSc%LH:L$l%FC1v%9240%(B$,1)(92)9680%(B$,1,1)SP$B$(B$,2,(B$)1)%LH:(B$,1,(B$)1)%:%(B$,1)(30)9720%(B$,1,1)S$LL(L$):B0$PSFCLL6%(L$,PS,1)SP$BB1>%PSL%B09610o&%E(AB)://NO. TO ADD TO EACH0%NABE://NO. W/EXTRA SPACES:%I1D%PSFCMLN%(L$,PS,1)SP$9600X%INNAE1b%INNAE3l%L$(L$,1,PS)(" R AFTER 1ST SPACE (PUT EXTRA IN B$) -|$SF1>$PSMLFC1Q$TI$(L$,PS,1)i$SF0TI$SP$9440}$L$(L$,1,PS1)$TI$SP$SF0:9410$B$TI$B$$PS$9740$//ADD SPACES$AML(L$)://NO. TO ADD$//FIN NO. OF BREAKSNİ9640!,$B$B$SP$W$(L):LL1:6$(B$,1,1)SP$9290W@$B$(B$,2,(B$)1):9270lJ$(B$)MLİ9640~T$L$(B$,1,ML)^$B$(B$,ML1,(B$)ML1)h$(B$,1,1)SP$9350://CUTS AT WORD SO DON'T SET SPACE FLAG$r$//STRIP CHARS OFF L$ TO 1ST CHAT$,1,ML):B$(T$,ML1,(T$)ML1):LL2:9190G#//BEGIN OF PARAGRAPH\#L$(W$(L),1,ML)#B$(W$(L),ML1,(W$(L))ML1)#LL1#FC1ML#(L$,FC,1)SP$9320:#FC$$//TOP OF ROUTINE$(B$)ML9270"$(B$,1)(30)LL"FL$F#D$"READ"FL$P#NLGZ#A$:A$(13)W$(LN)W$(LN)A$:9050Wd#LNNL9080in#LNLN1:9050x#W$(LN)W$(LN)(92)#D$"CLOSE":#MLRHLH1:L1#B$"":L$""#(W$(L))ML9160#(W$(L))ML9160-#T$W$(L)SP$W$(L1):L$(: 34,4! 9100://JUSTIFY, 205008 34,0:B 4:1 :"DO YOU WANT TO TRY AGAIN?";:FI$F2$:MLI:(IN$,1)"Y"1100 (IN$,1)"N"20300 1500 (#//LOAD TEXT FILE 2#N150:W$(N)"":N:LN1:12:15:"LOADING TEXT"<#D$"OPEN345 9000://READ IN FILE/ ;//PRINT TEXT5 <R A14:"ORIGINAL TEXT"::` FN1LN1k PW$(N)q Z _(W$(LN),1,(W$(LN))1) d20500:23:CPAGE: nTT1 x:13:"JUSTIFIED TEXT" :"MARGINS-";20);"LEFT: ";LH;31);"RIGHT: ";RH COLUMN WOULD YOU LIKE"E j:"THE LEFT MARGIN (1-26)";:FI$F1$:MLId tLH(IN$):LH1LH261100v ~12:1:CPAGE :"IN WHICH COLUMN WOULD YOU LIKE" :"THE RIGHT MARGIN ("LH12"-38)";:MLI:RH(IN$) RHLH12RH381150  TT11OGRAM DEMONSTRATES HOW A":D "COMPUTER CAN MAKE STRAIGHT LEFT":m "AND RIGHT MARGINS. YOU CAN SET": "THE MARGINS AND THE TEXT WILL": "BE SPACED OUT BETWEEN THEM.":32,0:20500: L// GET MARGINS V8:1:CPAGE `"IN WHICHSP$(32):CPAGE958H FS$" "\ D$"BRUN INPUT" F1$"12 %$2 1":F2$"12 &$4AZ1":IN$"" .W$(50) 6FL$"DEMO" //START OF PROGRAM ::3:Z$"* JUSTIFY TEXT *":S(20):Z$ 32,3:7:"THIS PRdPROGRAM: JUSTIFY3nAUTHOR: JEFF JORGENSENLxCOPYRIGHT 1979 MECCcASSOCIATED FILES:{INPUT, DEMO (TEXT)//INITIALIZATION16384:::25520400D$(13)(4):S(I)20((Z$)2)D$"PR#0":D$"NOMON I,C,O" ҠجӠӠҠƍҠԠԠجΠجϠӠخ٬؍ЍŠԮŶJ:16368,0&DESCRIPTIONS aCL$:21(DN$)2:DN$:10:"^PROGRAM ^DESCRIPTION"SP$I1N:(37)21DLİ900:CL$:21(DN$)2:DN$:10:"^PROGRAM ^DESCRIPTION"SP$ :MN$(I)" -"J1DL:DE$(I,J)""DE$(I,J)" "ĺ" "DE$(I,J) .":"(48K IS NEEDED.)"D900/XEND OPTION\CL$:11:7:"^INSERT THE NEW DISKETTE."e900CS(P(P(999))1)16: SLOT #CS1CS7CS6CS: DELAY LOOP /W KEYBD CHECK16368,0J1100D:(16384)128J100D N":7:"LIST":" OR RUN MENU":D$"LOAD "CN$(A)UCL$:12:"^GETTING "MN$(A)"..."mPR(950)0İ30000CNįRNH,CN$(A)RNH,MN$(A)&NOT ENOUGH MEMORY010:"^SORRY, THIS ^APPLE DOES NOT HAVE ENOUGH ":"MEMORY TO RUN THIS DISKETTEN1ĺD$"RUN"X1$-jDRAN1PRĺD$"RUN"X2$@lAN2PDİ600ZrAN1PDİ750:MENU0d|MENUSEED RANDOM # GENERATOR & CLEAR HGRX(P(78)) GET THE PROGRAMDP(A)5100D$"PR#0":D$"IN#0":::"PROGRAM: "CN$(A)::"TYPE: RUĺD$"RUN TEACHER OPTIONS"BTCAA$(1)ĺD$"RUN TEACHER OPTIONS"^A((A$)):A1AN2PDB$(13)ĢVV2:6F35:"^PLEASE TYPE A NUMBER FROM 1 TO "N2PD:6F35:"AND PRESS THE RETURN KEY.";:IN0_VV:6F3514:" "hIN:PRA,RESPOND TO USER'S CHOICE:6VVVV7PD:VV22VV22t@IN11:VV:6F35:"^WHICH NUMBER? "(8)(8);:A$}BA$;EB$:B$(8)320J(B$)47(B$)58N7ĺB$;:A$A$B$:B$:B$(8)A$(A$,1):B$;:325LB$(13)320OCAA$(1)6F35:"^OTHER OPTIONS:"VPRĢVV2:9(N9):X1$"SET PRINTER OPTIONS":N1". "X1$DRĢVV2PR:9(N9PR):X2$"SET DRIVE OPTIONS":N1PR". "X2$VV2PD:9(N9PD):N1PD". ^PROGRAM ^DESCRIPTION"SP$"VV3PD:9(N8PD):N2PD". ^END" DISPLAY MENUA MENU11:CL$:1(D2$""):21(DN$)2:DN$Z 2:21(D2$)2:D2$~ 5F5:6F35:"^PROGRAM"SP$":" VV7F5:HH9F38 I1N:VV:HH(I10):I". "MN$(I) VVVV1:F3IC2VV7F5:HH21 I:VVVV2F2F3F6VV:955,T:FL16 wFL1ĺD$"BSAVE DRIVE OPTIONS,A953,L6"k xC2((N1)2):F2C2(N1)2:ODD # OF MENU ITEMS PDPRDR:F3N7PD:TWO COLUMNS F5N142PD:F6N182PD:FULL SCREEN (LIMIT VARIES 16-20) (1023)DNİ700 K48(978)157İ550$(I,J):J:I' nP(I)(I)(I1)2564 oDR120Q pD$"BLOAD DRIVE OPTIONS"y qT(P(P(999))1)16:T(953)116 r(953)(956)Ĺ953,T:956,T:FL1 s953,T:FL1 tT(P(P(999))14):T(955)119 u(955)(958)Ĺ955,T:958,T:FL1 v0 716302,0:16299,0:16297,0:16304,0:700k 8230,64:RNH,"PRINT-48":251,1:D$(13)(4):CL$(12)x :1023,DN <DN$,D2$,N:MN$(N),CN$(N),DE$(N,DL),DP(N) FSP$"":N1SP$"S" PI1N:DPćDP(I) UMN$(I) ZCNćCN$(I) dJ1DL:DEM:DP=DEMO PROGRAMS? DL5:CN1:CA1:PR0:DR0:K481:IS0:DP0j (4)"NOMON CIO":(4)"BRUN YUTIL.OBJ"} (::255:0:1 2DN:(1023)DN56 3230,32:RNH,"MECC LOGO" 416304,0:16300,0:16297,0:16302,0:230,64:RNH,"CLIM LOGO":D5:700VERSION 4.7 3 LAST UPDATE: 83/06/06 CC F(C) MECC 1983La INITIALIZATIONSl 16384  DL=LENGTH OF DESCRIPS:CN=DISTINCT CATALOG NAMES:CA=CTRL-A OPTION:PR=PRINTER OPTION:DR=DRIVES OPTION:K48=48K REQUIRED:IS=INSTRUCTIONAL PROGRAPLEASE REPORT THIS TO MECC.":20500:20300;P//SPACE BARtP24:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";(P16368,0:16384,128,0:16368,0:DĠǠӠ٬Ҡ٠̠ҠٮĠҠǠӬԠӠ̠ٮЍ (AD5)Z5(CARD)(AD7)Z7(CARD)40110?ZK02:Z2(ZK)0jZI02558:Z2(ZK)Z2(ZK)(ZWZI)::Z2(0)Z2(1)Z2(0)Z2(2)Z2(0)25640120CARD:SLOT:CARD0:SLOT0951,CARD:952,SLOTœCARD1Ĺ950,CARD:D$"BLOAD COMM CARD ROUTINENE" ֈ.@ SEARCH SLOTS FOR AN INTERFACE ZJ CARDS: COMM=1,SERIAL=2,PAR=3,MALIBU=4~TD$"CLOSE"F$:Z5(4),Z7(4),Z2(2)^Z5(1)24:Z5(2)56:Z5(3)72:Z5(4)8hZ7(1)56:Z7(2)24:Z7(3)72:Z7(4)72rSLOT17:AD(SLOT192)256|CARD14*:uF$"PRINTER COMMANDS";DuD$"OPEN"F$:D$"READ"F$:FT$[NuFT$"COM-CARD"FT1:35000{XuFT$"DEFAULTS"FT2:40000buFT$"USER-SET"FT3lu950,FT:D$"CLOSE"F$vu COMM CARDˆSP:SP10Ĺ802,92:818,82̈D$"BLOAD COMM CARD ROUTIXT SAMPLES ON","WHICH TO PRACTICE YOUR EDITING SKILLS.","",""gL "^J^U^S^T^I^F^Y ^T^E^X^T","JUSTIFY"V "^THIS PROGRAM DEMONSTRATES HOW THE LEFT","AND RIGHT MARGINS OF TEXT CAN BE","AUTOMATICALLY MADE EVEN.","",""0u POKE PRINTER SPECS INTO MEMORYED TO YOU.","" 3$ "^E^N^T^E^R ^T^E^X^T","ENTER". "^THIS PROGRAM DEMONSTRATES THE WAY","TEXT MATERIAL IS ENTERED INTO A WORD","PROCESSOR.","","" 8 "^E^D^I^T ^T^E^X^T","EDITOR"=B "^THIS PROGRAM ALLOWS YOU TO CHOOSE","ANY OF 7 DIFFERENT TEY","OF THREE DIFFERENT MESSAGES TO A","PERSON OF YOUR CHOICE." g "^R^E^C^E^I^V^E ^M^A^I^L","READ" "^THIS PROGRAM DEMONSTRATES HOW YOU","MIGHT GET A LETTER THROUGH '^ELECTRONIC","^MAIL'. ^YOU CAN READ ANY OF THE","LETTERS THAT HAVE BEEN MAILJFIRST LINE OF DATA:DISKETTE #,NAME LINE 1,NAME LINE 2,# OF PROGRAMSm214,"^PROCESSING ^WORDS","",5 "^S^E^N^D ^M^A^I^L","SEND"@ "^THIS PROGRAM DEMONSTRATES HOW YOU","MIGHT SEND A LETTER THROUGH","'^ELECTRONIC ^MAIL'. ^YOU CAN SEND AN520 ^BROADWAY ^DRIVE":"^ST. ^PAUL, ^M^N 55113":"(612) 638-0638"Y~32,0:900:CL$:q SPACE BAR ROUTINE24:7:16368,0"^PRESS ^S^P^A^C^E ^B^A^R TO CONTINUE";Z01:ZC(16384):Z(ZC141)(ZC160):Z16368,0:1:868:23::N ^CENTER":8:"2520 ^BROADWAY ^DRIVE":8:"^ST. ^PAUL, ^M^N 55113":8:"(612) 638-0627"fg900:CL$hCL$:4:"^IF YOU HAVE ANY PROBLEMS USING ^M^E^C^C"::"COURSEWARE WITH YOUR COMPUTER,"Ci:"WRITE OR CALL:"::32,8::"^M^E^C^C ^HELP ^LINE":"2ΠӍĠΠ٠ŠǠ΍ӮӠ̠͠ĠӍΠӠϠ٠ŠԮՍĠĠΠŠҠϠōŠϠŠŠǠ΍ӮӠ͠ӠΠƠ׍ŠƠԠΠŠԠĮΠ٠Š̠ĠΠŠōήӠӠŠԠˠȍҮӠӠŠ٠ҍӠĠŠӠōĮ٠ĠӠ! ! J:I:900:34,0*CL$14SUPPORT BOOK INFOH4:"^A MANUAL TO AID IN THE USE OF THIS"::"DISKETTE IS AVAILABLE FROM ^M^E^C^C."R9:" ^TITLE:"::8:DN$:D2$""Ė8:D2$\15:" ^DIRECT INQUIRIES TO:"Xf:8:"^M^E^C^C ^DISTRIBUTIO"̜P