' +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*`oing names? ";:36000:Z$"N"2045k#fBOX:CO::"Do you want to make any changes? ";:36000:Z$"N"ī2190#pA1:C1Ģ3:"Which number? ";:FLI,(2,"-09",1),A$:A((A$)):ACA02160#zACāLAC1:W$(L)W$(L1):L#CC1:FL1:2045E$C1W$(That name has already been used. Please enter another name.":30000:FD1b"L:FD1CC1:2050" FLįBOX,30,20,279,138:L1C1:CO,40,L1010:W$(L):L"*CO,40,C1010:W$(C)"HFL02045"\C02050!#aFL0įBOX:CO::"Are you done enter9,191:3:"Enter first name: ";:FLI,(11,"-AZ-az '-.",1),SN$:U((SN$,1)):A$SN$:400:SN$A$:(A$)0A$" "((U64U91))2060!CC1:W$(C)LN$", "SN$:C1įBOX,30,20,279,138:PN$LN$:CO,40,20:W$(1):2050I"FD0:L1C1:W$(C)W$(L)įBOX:CO:"ette being created can be used by as many as 12 students.":30000N C0:FL0] C122150 BOX:CO:5:"(Press RETURN to continue)"CC$:2:"Enter last name: ";:FLI,(14,"-AZ-az '.-",0),LN$:A$LN$:400:LN$A$:(LN$)0LN$" "2140! BOX,0,178,2713:W$(L)Y$(L):L:F$"DEFAULT.DESIGN":E13:6005ML113:W$(L)"":LCL$:WIND:CO:CN$"NAME LIST"CC$CO$:0,18279,18L112:CO,10,(L10)10:L10ĺ" ";L;".":L:0,140279,140A WIND,0,142,279,191:BOX:CO::"The SPELLING diskd in a review? ";:FLI,(2,"-09",1),NW$:((NW$))01735yWIND:Y$(12)NR$:Y$(13)NW$:12:33:"("Y$(12)"/"Y$(13)") "1110BOX:CO::"Are you done designing the lesson? ";:36000:Z$"N"ī1110BOX:CO::"One moment please..."/L1Y$(9)"Yes":WIND,0,115,279,191:BOXCO::"How many misspelled words must be on the review list before forced reviews are required? ";:FLI,(2,"-09",1),NR$:((NR$))017328BOX:CO::"What is the maximum number of words that should be presentening":" misspelled words reaches a specified":" number, forced reviews can be":" required.":" Do you want forced reviews? ";:36000WIND:11:33:Z$"N"ĺ"No ":33:" ":Y$(9)"No":Y$(12)"0":Y$(13)"0":1740$Z$"Y"ĺ"Yes":l misspelled words":" can be kept for your records":" and to generate review lessons."::" Save results? ";:36000:WIND|10:33:Z$"N"ĺ"No ":Y$(8)"No"Z$"Y"ĺ"Yes":Y$(9)"Yes"1110dBOX:CO::"9. Once the review list contaiCO::"7. At the end of the lesson, all":" words missed can be presented again":" for review."::" Do you want a review? ";:36000JWIND:9:33:Z$"N"ĺ"No ":Y$(7)"No"TZ$"Y"ĺ"Yes":Y$(7)"Yes"^1110rBOX:CO::"8. A list of alcorrect":" 2. Compare spellings and try again":" 3. Same as #2 (with blanks)"" 4. Two tries and go on ":" 5. No remediation - go to next word":"Which option? ";:FLI,(1,"-15",1),Z$"Z$Y$(6)įWIND:8:33:Z$:Y$(6)Z$,1110@BOX: 11106Z1Y$(10)"Correct":Y$(11)"Incorrect"]Z2Y$(10)"Right":Y$(11)"Wrong"Z3Y$(10)"SMILING FACE":Y$(11)"SAD FACE"Z4Y$(10)"":Y$(11)""1110QBOX:CO:"6. Options (if word missed):":" 1. Repeat sequence until 5ī1470WIND,0,115,279,191:BOX:CO:8:"(Phrases limited to 20 characters.)":1:"Feedback Phrases"CC$:2:"If correct: ";:FLI,(20,"-AZ-az ,.!?'",1),C$4:"If incorrect: ";:FLI,(20,"-AZ-az ,.'!?",1),I$Y$(10)QO$C$QO$:Y$(11)QO$I$QO$eedback Options:":" 1. Correct/Incorrect":" 2. Right/Wrong":" 3. (Smiling face)/(Sad face)":" 4. No feedback":" 5. Enter your own feedback phrases""Which option? ";:FLI,(1,"-15",1),Z$:Z$Y$(5)įWIND:7:33:Z$:Y$(5)Z$Z((Z$)):Z":Y$(3)"Random"1110BOX:CO::"4. Each word displayed can be typed":" from 0 to 10 times."::" How many times? ";:FLI,(2,"-09",1),Z$Z((Z$)):Z101250WIND:Z$Y$(4)Ģ6:33:Z$;" ":Y$(4)Z$1110xBOX:CO:1:"5. F110BOX:CO::"3. The word list can be presented in:":4:"1. the order entered ":4:"2. random order"::" Which way? ";:FLI,(1,"-12",1),Z$5:33:WIND:Z$"1"Y$(3)"Random"ĺ"Ordered":Y$(3)"Ordered"Z$"2"Y$(3)"Ordered"ĺ"Random ~BOX:CO::"2. If sentences are included with the":" word list, they can be displayed with":" each word."::" Display sentences? ";:36000:WIND4:33:Z$"N"Y$(2)"Yes"ĺ"No ":Y$(2)"No"Z$"Y"Y$(2)"No"ĺ"Yes":Y$(2)"Yes"1u,,I,`1650,1700eBOX:CO::"1. The entire word list can be displayed":" at the start of the spelling lesson."::" Display word list? ";:36000:WINDj3:33:Z$"Y"Y$(1)"No":"Yes":Y$(1)"Yes"oZ$"N"Y$(1)"Yes"ĺ"No ":Y$(1)"No"t11109)"Yes"Ģ12:33:"("Y$(12)"/"Y$(13)")"VWIND,0,115,279,191:BOX:CO:6::"(Press RETURN to continue)"CC$:2:"Enter option number to change: ";:FLI,(2,"-09",0),A$:(A$)0ī1770WA((A$)):A0A91110 [A1125,1150,1200,1250,1400,1550,1600,s?":"3. Words ordered or random?":"4. Type each word ? times."."5. Type of feedback:":"6. Type of remediation:":"7. Review at end of lesson?":"8. Save results?":"9. Forced review sessions?"80,112279,112'LL19:(2L):33:Y$(L):L:Y$(cate the correct setting by running the Diskette Support option on the main menu.":30000:31000}F$"DEFAULT.DESIGN":700CL$:CO:CN$"SPELLING LESSON DESIGN"CC$CO$:0,14279,14@$3:"1. Show entire list to start?":"2. Show sentences with worde no longer needed) must be supplied."::"Do you want to continue? ";:36000:Z$"N"31000CL$:CO,0,40:"Your current Diskette Support setting indicates that you have:"::NM$CC$::"Is this correct? ";:36000`Z$"N"ĺCL$:CO,0,40:"Please indiFD1(E3)DLY$(DL2)"0"āL2DLE3:Y$(L2)Y$(L23):Y$(L21)Y$(L24):Y$(L22)Y$(L25):L2L22:L2:EE3:5050$FD1Y$(DL2)"0"EE3:L3DLDL2:Y$(L3)"":L3$L:600$p SAVE RESULTS$uDE$(8)"No"9000$wCNT,FS:FS108000&%zF$NMFD0XX1:Y$(X)WD$(RV(L1)):XX1:Y$(X)S$(RV(L1)):XX1:Y$(X)"2"L#L1Y#EX:600r# UPDATE REVIEW FILE#CR0RO0ī6000#F$NM$".REV":700:XE#L1CR:FD0:L11X:CR$(L)Y$(L1)DLL1:FD1:Y$(L12)(((Y$(L12)))1):L1Xr$L1:L:CO$:300006" FG1:XRV:L1X:O(L)RV(L):L:1524M" SAVE REVIEW FILEc"DE$(8)"No"5000"CL$:CO,0,89:"One moment please...""RV05000"F$NM$".REV":700"XE:L11RV:FD0:L21E:Y$(L2)WD$(RV(L1))FD1:Y$(L22)"2"D#L2:00:L! REVIEW OPTION9! FG1RV0DE$(7)"No"4000W! CL$:EN$"":RV1EN$"s"! CO,0,0:"Let's review the word"EN$" you missed.":3:0,18279,18:0,178279,178! CO,0,20:L1RV:CN$WD$(RV(L))CC$:L9İ30000:BOX,0,20,279,176:CO,0,20 " A0(PGA19)(PGA18)1060MLCC1:W$(C)Y$(A)".WORD":LA:A18LA18VBOX,C2(1,L)24,C2(2,L)1,((Y$(L))7)C2(1,L)25,C2(2,L)7,3:CO,C2(1,L)26,C2(2,L)::Y$(A)::1060CEįBOX:CO::"Are you finished selecting word lists to transfer?":L:L1(PG18)18(PG18):XL:X18XX188BOX,C2(1,X)22,C2(2,X)1,(Y$(L))8C2(1,X)22,C2(2,X)7,7:CO,C2(1,X)26,C2(2,X)::Y$(L)::LEL18(PG18):L:1200=(A$,1)"R"E18PGPG:200:1055>(A$,1)"R"1060BA((A$)):AE00,300,10 6:"This utility will create an independent SPELLING diskette for use by students. You may design the lesson format and specify the names of the students who will be using this diskette.":["A blank diskette (or one whose contents ar,~0 ,~0L}L} o~L} ` ֩PyQ AL b~~~`Z~Y~ :~Y~Z~` ~LD~H)hJJJ~` `ANCS AZ09!/:@[`{~ @RAWFWFDDSENOPRPRFPRFRNINWzzvv{pwwwwx{ u` g ~ ,]} [~~) ~ ~~)~ ߅ l b} ) L{'~,~0~ ~ o~ ɛ M'~'~0L)~'~Ɉhdɘɿɯ,~ 詍0Sɍ~J,~ ,~0~(~) b~(~9~~~~]}~~ ( [~L0} L| {$0( 掀~n~ ,L} k {$0L}N]} a}L|_} ||-?n~Ls| :~ |`} | :~-`}`}`} D~Ls|_}a}_}^`N]} ݕ~ 輕~~~~߹~~^} D~^} ,  B{Ь<  B{П-`Vzz{y{x{w{ <=s{<` <= <` {ݩ- ^ -`- &Lu`L 䎱 掲`  ȱ v`,X` {ݩD ^ D`JzDKzED` N{ g RPTzQUz {  B{3Wz-<)VzP>Q?Wz  v?Wz`-LԢWz񈌌{Tz{Uz{ { N{  B{ ? y:p"Rz>Sz? y%p yg^h_^`ȱ^Șe^^_iȑ^^_HzGzFz@A Bz  2z `@ i @xQx xL xyLl`Q ueDJzEKzBNzCOz@PzAQz>Rz?Sz z x)y e,L׭xxxxXxxLXLXxx y$)yRz>Sz? ypy G 8`Ly8ghegiȱehj8ȱLȢL( 掲 v` \w?> \w=<8?+ e<#8>>> g R>P>Q?=<`L #H h`7P v`Z7OP  v` g RP v`L uVDJzEKzBNzCOz@PzAQz>Rz?Sz z  { RP@ ?88`  vvv <= <ȭ<ȭ<ȭv<ȭv<><ȥ?< <<= H <=vI<vʱD>` <=B~BBBYCFJUNGAGQF@`Dp`@HB@@_BY_CFJ*NGAGOG|L|HBFACFJUNGAGOD@CAAGA <CFJ*NGAGO?_WUUUBUABUCUBB>0CFJUNGTvGJ??C*B*B***B*AB*C*Bt7 u@ )` t t t0H)?hJ t t t?Lt t&'&Ȅ``tt ttt`t)tJJ tttt .t .t ntt)   '(`H$+)hH$ɍ h`) j)` mͳ   ފ `(C)MECC/1983PACPINIPOFFEEiI7-./߭ +efi`%6L͉Ήω6H7He6f7,i0 ͉ɍ L$Hg8$h$ Љ͉  @ Љ$hhi͉$g6eh7h6ωΉ͉`ɍɌ hͳ h` ډ8鍸ζ`H88HH?@ ߅$0?@  c`Lv?<>?>,>$f<<`S% *$H)+h0,,0RL>efK67  feggi,)5S,)N, -9.L+ɇst+Lɯt酝 8ɀ   Lޤȱ:,Әe湥 HH L`stLB A?F<?F<> >?Ȑ۩`?) "(Master Spell the lists":E18ĺ"c) Enter R to see remaining word lists"$1:"Enter word list numbers (one at a time) of the lists to transfer: ";:FLI,(3,"ALR-09",0),A$)(A$)0C01010.(A$)011700(A$,1)"A"1085-3CE:L1C:W$(L)Y$(L)".WORDOAD PRINTER COMMANDS.BIN,A"PP",D1"K PD$(4):CL$(12):CC$(3):QO$(34) UCO(2,16),W$(90),S$(16),C2(2,18),Y$(90),V$(12),Y2$(15),WL$(90) ZCN$(14):CO$(15):U(0):3 _L1118:L212:C2(L2,L1):L2:L1 bT$(0)"MASTER SPELL":T$(1)"DATA":T  DISKETTE: MASTER SPELL5PROGRAM: FIVE QPROGRAMMER: SK RUSSELLq(LAST UPDATE 84/08/03 SKR 2COPYRIGHT (c) 1984<F(13)(4)"MAXFILES1"K16384:230,64:24576:32000" NRNH,"PRUTIL.OBJ":PP(948)(949)256:(4)"BLves" d1000 ! LA(A$)Q (A$,1)" "LALA1:LA0A$(A$,LA):420 (A$,1)" "LALA1:LA0A$(A$,LA):430  X ]T0:ZD1:WP1:34000 bD$"OPEN"F$,D1$ lD$"WRITE"F$:E vE0āI1E:W$(I):I D$"CLOSE"F$ :CO,ZX,ZY:Đ Đ J*NGAGsBcB6cCtwutJUNGAGsBsB63CCnJ*NAsBc600`CFJUOAs``wBfgC{9{{ J*B MBlLC8W0W8JUBBgBlgClk {|J*BBC AC~~|~~JUC8W0W8JUBBgBlgClk {|J*BBC ACFJUNG\AaEgAdGsvC6ACFJ*NG\AE?AdGsBcB6f`CBwJUNG\G~AxdGsBBCFB;FJ*NGAGsB`B0`Ca]a}}JUNGAGsBgB0gC.5B;J*NGAGsBsB63Cwx{JUNGAGsBs600p00CBn<B~BBBYCFJUNG_8030?08dGQF@`Dp`@HB@@_BY_CFJ*NG_BC~dGOG|L|HBFACFJUNGAGOD@CAAGA ~x`FBAQB oBlOCFJUNG\OF@IIDOdGP?D@B`ABpAB8ABAABBLBlOCFJ*NG_CByCdGOaHBAQBBOB`OCFJUNG_ | dGQ|0TAA ~~B@@oBLOCFJ*NG_p`pc`pdGOE@`pG`@GBBYBB3CFJ*NGAGJ`@UCUBUBUUUBUABUCUBOBfFCFJUNGAGN~C*B*B* FBC BBB CFJ*NGAGOCUBWBB@B`@CFJUNGAGOCC@B`ABpAB8ABAABBGlo`OCFJ*NG\IdGO捿ttmtt`BB0xXCFJ*B037B6ACFJUBBC3ACFJ*BA_BBC3ACFJUNA]??B/++*C*BB3?>CFJ*NGAGO?_WUUUBUABUCUBB>0CFJUNGTvGJ??C*B*B***B*AB*C*Bt u@ )` t t t0H)?hJ t t t?Lt t&'&Ȅ``tt ttt`t)tJJ tttt .t .t ntt)  %67LHh0 8 hL D:30000+ UY$(15),PY$(15),W$(15),PW$(15)M ZCN$(14):CO$(15):U(0):3 bT$(0)"MASTER SPELL":T$(1)"DATA":T$(2)"BACKUP":T$(3)"SPELLING":T$(4)"RESULTS":ZS704:RFL,"MECC$$DISK"ZS:38000:N$ZN$:35000:NM$"one disk drive":SMNM$"two disk dri):CC$(3):QO$(34):(64435)685R QCL$:CO,0,20:"Apple II and II+ Users"CC$ R3:12,74271,74271,11012,11012,74:WIND,20,80,272,191:CO:"Capital letters may be entered by first typing a ^ (Shift-N) and then the letter to be capitalized.":WIN to another diskette."::"Do you want to continue? ";:36000OZ$"N"31000C0:800:E0įBOX:CO::"No word lists exist on this diskette.":30000:1010:BOX:CO:4:"or...":"a) Press RETURN key when finished":"b) Enter ALL to transfer all 0:930F$F$".WORD":CL$#)]RFL,"ASCII BOLD.PFT"35598:DFT,2,35598:AFT,2CL$:WIND:3:CN$"TRANSFER WORD LISTS"CC$CO$:0,10275,10275,300,300,10=8:"This utility will transfer word lists which have been saved on a diskettee name will replace the existing word list."m:"Would you like to rename the list? ";:36000:Z$"N"940CO,0,120:"New name: ";:FLI,(12,"-AZ-09 .-",1),F$:U((F$,1)):(U64U91)ĺ:"Name must begin with a letter A-Z. Please re-enter.":3000$"CLOSE"F$ 5%FL1:NT3:WP0:ZD1:34000T*PFZT:T$"WORD LISTS":PG0j4FCN,".WORD",Y$,E~9ZT0İ400:890>200z,CL$:CO,0,30:"The word list "(F$,(F$)5)" already exists on the destination diskette. Using the sam000?{f<f~<~{~>>>~~p` fffffffffl6iɆpqs 0 000000 0 0Z<|~~6c z#  &L`L 䎱 掲`SEDDFMRFRNđ֑aϒ `>? :p">? %p gg^h_^`ȱ^Șe^^_iȑ^^_@A   䔠 `@ i @ ȱ C`,X` {ݩD ^ D`DED`>? >&g eL׭<7=8X<=LXLX<= h$)g>? pg G 8`L38ghegiȱehj8ȱL< = <ȱ=8<=8ȱ G` M?> M=<8?+ e<#8>>> g R>P>Q?=<`L #H h` VDEBC@A>?  { RPgLl`N bDEBC@A<ȥ?< <<= H <=ÑI<‘<đÑ` ,, ,` , , L( L+ɐst+Lɯtd 8ɀ   Lޤȱ:,Әe湥 vHuH L`stL<=ʱD>` <=    E?`G`xx`EpG@Gp`@CAL@`p<NBB 8D08 q\EE .w@``p8BBA88p``@P`xTx`@Hp|H ?? Gp@F|pFAW@HAF|p@G ?? GF@p|Jp hhh ɛ Moo0LooɈ95ɍ=p7,?p >p h5880`L =p>p?pHoAp ( $pL!o | {$0! >p ,Ln ^ {$0LnNHo Lo|Jo nr- p nKo n p-KoKoKo pLnnJoLoJo^`NHo Qphh,lp` ֩PyQ ALŠҠ僁iimiʈ i i &'iq& iLi N8`f `.f`xmym ` ң Σ  h`+ hR("  LPj,Hk  l  hl`L, HHHHHHHHH k ީl wjlNO,ɍɠ ɛ8nl,lPݩ lhhhhhhhmHihʍ i i i LiL 2k 3kM4k2k g<>=M4k?'<>2k2k3k` H g Rh PQ`L     խ)?` ` @)`,` Rj ެiii g&' i jQ&-iQ&&ii i`*U U*ժ Fj')JMFj)i Q&,iP 0=Kj`Gj`J&)` `L3f̙ujvj ߅$0Hujvj LbLvjj j` hiii h8)h` g R  QP (`L h`L)  @ iiiiiiiii g iii i i g iii i iBi g&' i jQ&-iQ&&ȭi i j& jQ&-iQ&&ii i`i-hhh hJ` &eeieh ghIiVhi 썛h gmh﬜hMhVhPjjjjjjj0jj) h0ȱjhjhhУ`8pPH)8 qȥq-`,f`imimʈ i iiʎ iLi Aggg` gg }ggg` g Ag }gggg`{g|g|g8pug.{g(ugg|gm{gg`8p g)gJJ gg gg .g .g ngg)ggmgg`hH80 " Jfm8h)` dem88eLf` deme` d8` f@ yf yf f`Lb dffL(f ``fʽ`) ` `fH`mS` dS`)We`Ve hWe gVe}`mf8ff`f` dLb,0*`%f 8fHfJhj`mfff` b d` b dI``L defff`) ffffffO,0 `)  d`f(`HHf,Pf88`f d fhLcfHfHff,P d fhf8hfffffff``S`S```f穀f f`f3f'ff ``)    LX8e湥 pHpH L`@ @ʩ WRPT` J  dȱȱȱ` hfH) #,f h`` fffffffh`f fS```emffff f`em (f%%h $20 LPc $ aHaH`dWeceWeeeee'fIfbffffff(bb d cf hf gNOH c h f ghH ,aɈ( cb h) e f g c ebbh`xo 8ɀ`>```L`bbbbp$% `@ GaLa6 ,fLbLcfPa bHaa,aaɠ,wa ` a欇aah`ɀ)?  @IH c$ d e$%0 d             # " DISKETTE: MASTER SPELL3" PROGRAM: ONEQ" PROGRAMMER: SK RUSSELLe(" (C)MECC 19842" LAST UPDATE:84/08/03SKR<F(13)(4)"MAXFILES1"K16384:(975)255Č24768:975,1N230,64:24576:32000# PD$(13)(4):CL$(12            LING diskette? ";:36000::12:"One moment please..."]'yZU1:ZE0:ZEĺD$"VERIFY LOGO"D1$,ySET,1:D$"BRUN SPELLUTIL.OBJ":RFL,"HPRINT.OBJ":975,255:Z$"N"įRNH,"MENU"6yRNH,"ONE"} }ZE(222):ZN(218)(219)256/}ZUZE0ZE16Ħ: (64435)6Ğ1Ku"SPACE BAR";::" to continue";wNu16368,0:16384,128:ZP(16384):ZF(ZF1)(ZP155):ZF231000SuZP160ZP14130030Xu16368,0::y ENDING ROUTINE6"yT0:ZD1:WP0:34000::11:"Do you want to create another":"SPEL,L325"zNL2ĺD$"BSAVE LOGO,A27900,L1992"D2$:D$"BSAVE SPELLUTIL.OBJ,A23808,L3856":D$"BSAVE HEADLINE.FNT,A22528,L1160"NLNN HELLO,"NAME LIST","SPELLING PROGRAM","DEFAULT.DESIGN"0uSPACEBAR:u24:1:868:7:ZF0Du"Press "; IuIMA"23552_NL2įRFL,"COPY LOGO"27900:RFL,"SPELLUTIL.OBJ"23808:RFL,"HEADLINE.FNT"22528}NT3:ZD2:WP1:34000:300NWFL,P$:10000NL1ĺD$"BSAVE HPRINT.OBJ,A24768,L4926"D2$:D$"BSAVE ASCII BOLD.FNT,A23896,L776":D$"BSAVE FACES.IMA,A23552,02,15122884096bNT3:ZD2:WP1:34000:NOPRO:DW,0,00,1512288:PRO:DW,1,02,15122884096qNL12:P$NT0:ZD1:WP0:34000:300NRAWFL,"COPY "P$12288:F$:11000 NL1įRFL,"HPRINT.OBJ"24768:RFL,"ASCII BOLD.FNT"23896:RFL,"FACES.:"Try again.":30000:20115NBF24576:DW,17,017,0BF:I0255:BFI,0:I:DW,17,117,1BF:BF1,17:I1521:BF2,I1:DW,17,I17,IBF:INS,3:D$"BSAVE MECC$$DISK,A"S",L$28"D2$:S,0NT0:ZD1:WP0:34000:NOPRO:DR,0,00,1512288:PRO:DR,1OPEN"F$;D1$ +D$"READ"F$:E3 +I1E:W$(I):ID +D$"CLOSE"F$J [+^ NCREATE ROUTINE NT6:ZD2:WP0:34000:39000:OK20115 N:12:1:300:SET,2:ZU1:ZE0:ZEįFPD,254NZU0:ZEĴZE832040::12:"Cannot create a "T$(3)" diskette."will then":"work by itself to present spelling":"lessons."G .30000R K31000b 'WRITE FILE 'T3:ZD2:WP1:34000:D$"OPEN"F$;D2$ $'D$"WRITE"F$:E .'I1E:QO$W$(I)QO$:I 8'D$"CLOSE"F$ s' *READ FILE +T0:ZD1:WP0:34000:D$"se after word":"lists have been saved on it. "; "You can":"save word lists on this new SPELLING":"diskette by using one of these":"utilities:"< $:" 1) Enter or Edit a Word List":" 2) Transfer Word Lists"::"This new SPELLING diskette ease..."' :D$"BRUN CREATEUTIL.OBJ" S704:S1654:SET,1:RFL,"MECC$$DISK"S:SM((S36)1):ZSS:RFL,"VTOC"24576:38000:N$ZN$ 35000:201001 :10:"*** IMPORTANT NOTE ***"::"The SPELLING diskette just created will be ready for student uUP":T$(3)"SPELLING":T$(4)"RESULTS data":T$(5)"WORD LIST data":T$(6)"BLANK"X 1000f , MESSAGE 6:12:1:"Creating a SPELLING diskette for":"student use..." @  MAIN PROGRAM UNHOOK::D$"BRUN UPPER/LOWER.OBJ"::11:"One moment pl MASTER SPELL:PROGRAM: CREATE SPELLING DISKETTEXCOPYRIGHT (C) MECC, 1984t(AUTHOR:ANDY HOLLENBECK2 LAST UPDATE 84/07/19 AAHd12288e32000nD$(13)(4):W$(15):QO$(34)N T$(0)"MASTER SPELL":T$(1)"DATA":T$(2)"BACK       ! DE$(6)"1"İ30000:15351 DE$(6)"5"2900 DE$(6)"2"DE$(6)"3"įCO,0,160:"Let's try again."CC$:30000:CL$:CO,0,40:CN$WD$(O(L))CO$CC$:900:DE$(6)"3"BL1:1650 DE$(6)"2"1650 DE$(6)"4"CC1:C2İ30000:1535 C0!T 300CO(2,16),W$(36),S$(16),C2(2,36),Y$(36),WD$(16),QT$(2)Y ZCN$(14):CO$(15):U(0):3 _L1115:L212:CO(L2,L1):L2:L1:L1118:L212:C2(L2,L1):L2:L1k bT$(0)"MASTER SPELL":T$(1)"DATA":T$(2)"BACKUP":T$(3)"SPELLING":T$(4)"RESULTS":T$(534):QK0:(64435)685F QCL$:CO,0,20:"Apple II and II+ Users"CC$ R3:12,74271,74271,11012,11012,74:WIND,20,80,272,191:CO:"Capital letters may be entered by first typing a ^ (Shift-N) and then the letter to be capitalized.":WIND:300007 U1 "DISKETTE: MASTER SPELL7"PROGRAM: TWO T"PROGRAMMER:S K RUSSELLr("LAST UPDATE 84/08/02SKR2"(C)MECC, 1984<F(13)(4)"MAXFILES1"I39590K34688:230,64:24576:32000 PD$(13)(4):CL$(12):CC$(3):QO$(                   results can be transferred to a RESULTS data diskette containing cumulative results."Aon a SPELLING diskette that has already been created. The lesson design may be changed, the name list edited, or the results deleted."VÃ"Check Student Results","FIVE","This utility allows you to see a list of all misspellings made by a student. Thesep to 16 words and sentences."xÃ"Transfer Word Lists","THREE","This utility will transfer selected word lists from any diskette containing a word list to another diskette."Ã"Edit a Spelling Diskette","FOUR","This utility allows you to make changes ing a tailored spelling lesson and a management system. This diskette can be used by a group of students or an individual."nÃ"Enter or Edit a Word List","TWO","This program allows you to enter, edit, or delete word lists. Each word list can contain une #"ZN" in Menu Program. Please report this error to MECC.":30000:d}" Please check your disk drive and diskette.":30000:PòPROGRAM DATA|dÃ"Create a Spelling Diskette","ONE","This utility will create an independent SPELLING diskette contain            53,SL:954,1:955,VO:956,SL:957,DC:958,254R DC3āZ02:956Z,(LL37Z):X  37Z):i  iTINE 5uZH(36)1:ZV(37)1:ZF0 :u24:1:868:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE"; Du16368,0:16384,128 Xu1:868:1:: RNH,"MENU":3 PREPARE FOR DISKETTE SUPPORT] LL704: LOAD LOCATION FOR MECC$$DISKx P(X)(X)(X1)256 SL(P(P(999))1)16:VO(P(P(999))14):BOOTED SLOT & VOLUME RFL,"MECC$$DISK"LL DC(LL36):DRIVE SETUP CODE- 9GOSUB 3000 FOR HARDWARE CHECK (64K, 128K, OR //E)d D$"BRUN SPELLUTIL.OBJ": PUT NAME OF UTILPACK $RFL,"HPRINT.OBJ"::4000 .ALSO LOAD ANY OTHER ESSENTIAL BINARY FILES 8975,255:SOUND BYTE; DO NOT DELETE BIF YOU NEED A DELAY, PUT IT HEREZ MASTER SPELL'PROGRAM: HELLOECOPYRIGHT (C) MECC, 1984d(LAST UPDATE: 84/08/01 SKRvMAIN PROGRAM16372,0:::TURN OFF THE 80-COLUMN CARDD$(13)(4)230,64:D$"BRUN LOGO":16304,0:16297,0:16299,0:16302,01   }ERROR PROCESSINGB }ZE(222):ZN(218)(219)256:ZE255Ĭ}CO$CL$:WIND:HSP:VSP:CO,0,80:ZE6ĺ"Error: File not found.";:32100}ZE8ĺ"I/O Error.";:32100(}ZE0ZE16ĺ"DOS Error #"ZE" in line #"ZN:30000:F2}:"Error #"ZE" in li#Z#Z8Z127įCO,ZX,ZY:CEL:9010-d#9040Bn#AA48:A1A1ix#XX(XX):SEED RANDOM # GENERATORq#:#ZL11:XX(1):Z(16384):ZL(Z127)::ZZ128:16368,0:0uSPACE BAR ROUTINE:u:SPACE::yPROCESS ESC-ESC"y2000,y{yL x @w`E0āL13:CO,C2(1,L)26,C2(2,L):Y$(L):ELL3? E0ĂLW WIND,0,115,279,191] c Xw bD$"OPEN"F$,D1$ lD$"WRITE"F$:E vI1E:W$(I):I D$"CLOSE"F$   D$"OPEN"F$,D1$ D$"READ"F$:E I1E:Y$(I):I Dd hBOX,C2(1,X)22,C2(2,X)1,(Y$(L2))7C2(1,X)25,C2(2,X)7,3:CO,C2(1,X)26,C2(2,X)::Y$(L2):p rL2:L1 |WIND,0,115,279,191   CL$:WIND:CN$"WORD LISTS"CC$CO$:O,18279,18:L13:CO,C2(1,L),C2(2,L):" "L".":L:0,50279,503 DED` &L@w`L 䎱 掲`$8 ߅=<(LL<{a <`? :p">? %p }g^h_^`ȱ^Șe^^_iȑ^^_@A     `@ i @ ȱ w`,X` {ݩD ^ D`110,120:1740<WD$(O(L))A$įCO,0,145:CN$DE$(11)CO$CC$IFG2000ERER1:ER$(1,ER)WD$(O(L)):ER$(2,ER)A$:R$"Y"PS$(ER)S$(O(L))R$"N"PS$(ER)""RV0FD0:L11RV:FD(O(L)RV(L1))FD:L1(FD)RV0ER1RVRV1:RV(RV)O(L)2(2,L):(L(18PG))".":L, 0,110279,1102 ,x 6L118:CO,C2(1,L)26,C2(2,L):Y$(L(PG18)):E(L(PG18))L18 @L JC0380 TL11C:L21(PG18)E:(W$(L1),(W$(L1))5)Y$(L2)370 ^XL2:((PG)X18)(PGX19)370 cPGXL2181)"DATA":T$(2)"BACKUP":T$(3)"SPELLING":T$(4)"RESULTS":T$(5)"WORD LIST":T$(6)"MASTER SPELL, SPELLING, OR WORD LIST":ZS704:RFL,"MECC$$DISK"ZS:38000:N$ZN$:35000 d1000 CL$:WIND:CO:CN$T$CC$CO$:0,18279,18 L118:CO,C2(1,L),CC@A>? ׂ T)} e,L׭RMSNXRSLXLXRS ~$)}>? p} G 8`LI8ghegiȱehj8ȱLR S RȱS8RS8lling Diskette"CC$:E330007 "for"CC$:Y$(3)CC$CO$A 3010u Y$(E1)"Y"ĺ"for the"CC$:Y$(E)" Group"CC$CO$ 16304,0:16297,0:16299,0:16302,0 D$"BRUN SPELLUTIL.OBJ,A$7500":RFL,"HPRINT.OBJ":RNH,"SPELLING PROGRAM" ROGRAM" )UUND BYTE; DO NOT DELETE@ CN$(14):CO$(15):CC$(3):Y$(15)w D$"BLOAD HEADLINE.FNT,A33857":DFT,1,33857:AFT,1 :D$"BRUN LOGO,A$7400" D$"OPEN NAME LIST":D$"READ NAME LIST":E:L1E:Y$(L):L:D$"CLOSE NAME LIST" CO,0,40::CN$"Spe MASTER SPELL,PROGRAM: COPY HELLOJCOPYRIGHT (C) MECC, 1984i(LAST UPDATE: 84/07/03 SKR{MAIN PROGRAM16384:230,6416372,0:::TURN OFF THE 80-COLUMN CARD16384:D$(13)(4)$D$"BRUN HPRINT.OBJ" 8975,255:SO $(0)" ":QQ$(1)"s "W UCO(2,16),W$(36),S$(16),C2(2,18),Y$(36),T$(36),EY$(36),WL$(36) ZCN$(14):CO$(15):C0:U(0):3:FL0:T(1)0:T(2)3:T(3)5 _L1116:L212:CO(L2,L1):L2:L1:L1118:L212:C2(L2,L1):L2:L1 bT$(0)"MASTER SPELL":T$(1,LY19L1,LY1:L1DCO,0,40:CN$WD$(O(L))CO$CC$:BOX,0,0,279,25xWD$(O(L))A$DE$(5)"3"įIMAGE,1,110,120:1725WD$(O(L))A$įCO,0,145:CN$DE$(10)CO$CC$WD$(O(L))A$CRCR1:CR$(CR)WD$(O(L)):2900 WD$(O(L))A$DE$(5)"3"įIMAGE,2,CN$CC$:PAUSE,15:5:L1LX1RX1:L1,LY19L1,LY1:L1t|BL1įCO,LX16,103:(LW1)āL11(LW1):"_";:L1:QRLWQR14:BLĺ"_":BL0:QRLWCN$CO,LX16,100:FLI,(QR,"-09-AZ-az ,.'-",1),A$:QR14:400:A$" "16804:L1RX1LX11:LBN<6BOX,0,70,279,191:CO,0,70:"Type the word:":L1AB]@CO,LX,X1080:L110ĺ" ";EL1". ";:FLI,(14,"-09-AZ -az,.' - ",1),A$:400:A$WD$(O(L))1600JXX1:L1:N5A6:X1:BN:N0:15907rBOX,0,70,279,191:CO,0,10:"Spell the word:":UL,Q1$SLW(Q1$):LX139((LW2)10)15:LY35:RY35:RX139((LW2)1015):900iDE$(2)"No"1565R$"Y"DE$(2)"Yes"QB$S$(O(L)):(QB$)0QC$QB$:UL,QC$:150:QG0įCO,0,90:18030000"N((DE$(4))):N01650,X1:A1:B5:N5L0,174279,174:300001 SPELLING LESSON>XE:FG0SL1E:O(L)L:LqDE$(3)"Random"ME:200QA0:QB0:QA$"":QB$"":QC$"":QT$(1)"":QT$(2)"":QE0:QQ0:QG2:QY0:QX0L1XCL$:CO,0,40:CN$WD$(O(L))CO$CC$:Q1$WD$(O(L))st? ";:FLI,(2,"-09",1),A$:A((A$)):AEA01245bPF$Y$(A):F$Y$(A)".WORD":950:WIND:CL$xDE$(1)"No"1500"Your word list"CC$:0,18279,18:L18:(L4):2:WD$(L):LEL8L:E91295L916:(L4):20:WD$(L):LEL16 80:"Your review list contains "E3" "QW$((E3)1)::"How many would you like":"to review? ";:FLI,(2,"-09",1),M$:M((M$)):ME31235M01200L1M:O(L)L:L:200:350:1524RO0:800:E0120033:0,175279,175:CO,0,180:"Which lire:"::" 1. Practice a word list"::" 2. Review missed words"::" 3. Quit"::"Which number? ";FLI,(1,"-13",1),A$:A((A$)):A331000A11240RO2:300:E0ĺCL$:CO,0,89:"Your review list is empty."CC$:30000:1200CL$:CO,0,((DE$(13))):EM3ME3:tL1M:O(L)L:L:200:350CL$::CN$"Review Lesson"CC$::"Before doing a new lesson, let's review some of the words missed in other lessons.":CO$:RO1:30000:1524 MENU SCREENeCL$:CO,0,50:"Your choices a";:6:SN$(L)" "LN$(L):LsB20:"Enter the number of your name: ";:FLI,(2,"-09",1),A$:A((A$)):ASLA01090GQN$SN$(A):NM$SN$(A)" "LN$(A):L1SL:SN$(L)"":LN$(L)"":L:L(0)LES1:300:DE$(9)"No"1200`E((DE$(12)))31200jML1)(ST$(L1),L22) L2:L1SF$"DEFAULT.DESIGN":700:L1E:DE$(L)Y$(L):LDE$(5)"3"įRFL,"FACES.IMA"35744:DFT,7,35744SL1NM$SN$(1)" "LN$(1):QN$SN$(1):1100.CL$:"Spelling lessons for:":8L1SL:2:L10ĺ" ";=L".0,89:"One moment please..."F$"NAME LIST":700:E20ĺCL$:CO,0,89:"There are no names on this diskette.":30000:31000L1E:ST$(L)Y$(L):Y$(L)"":L:SLE2:L11SL:L21(ST$(L1)):CH$(ST$(L1),L2,1):CH$","LN$(L1)(ST$(L1),1,L21):SN$(21LX1,LY21LX1,LY14 WORD FILE READERXD$"OPEN"F$:D$"READ"F$:E:R$:}R$"Y"āL1E:WD$(L):S$(L):LR$"N"āL1E:WD$(L):LD$"CLOSE"F$: MENU SCREENRFL,"HEADLINE.FNT"34584:DFT,1,34584:AFT,1CL$:CO,EO9E0įCO,0,89:"There are no word lists on this diskette."CC$:30000:870sCL1E:L10įCO,7,10L20:850HCO,143,(L9)1020RL". "Y$(L):Lf BOX7LX,LYRX,RYRX,RY20LX,LY20LX,LYLX1,LY1RX1,RY1RX1,RY0000ZU0:0::for "ZN$"."M::"Do you want to erase this? ";:36000:OK(Z$"Y"):390999:ZEĺ"This is a MECC program diskette.":3909038000:"This is the program diskette for:":ZN$"."::"Please choose another diskette for use.":30000ZU0:Y LOGO,S"(ZO)",D"(ZO1)",V"(ZO2)@gLZE:ZE8OK1:ZU0:mlSET,ZD:ZE0:(ZE)įRFL,"MECC$$DISK"ZSv:L(ZE(ZS)0)390709:"WARNING:"::ZEĺ" This is a MECC data diskette.":39060 38000:" This is a "T$(ZT)" diskette":" INP,(3,"YESNO",ZC),Z$:Z$(Z$,1):(Z$""ZC)(Z$"Y"Z$"N")ĖZH:ZV:868:36010[appzZN$"":Z1(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:38020ZT(ZS)ӔX VERIFY DISKETTE$bZS654:ZO9503ZD:ZU1:ZE0::ZEĺD$"VERIFotect tab":"from your "T$(T)" diskette.":WP2:30000:34010G3ZU0:` GET DRIVE STRINGS̈D1$",S"((953))",D"((954))",V"((955))ֈD2$",S"((956))",D"((957))",V"((958)):D1$D2$SM1UZH(36)1:ZV(37)1:ive "ZD"."[30000:T0ė:12:1:"Creating a SPELLING diskette for":"student use...":f 34010uWP34099ZT$D1$:ZD2ZT$D2$ZE0:ZEĺD$"BSAVE MECC$$DISK,A"ZS",L$28"ZT$< WP(WP1):ZE4ĺCL$:CO,0,89:"Please remove the write-pr error to MECC.":30000:31000/ЄDISK VERIFYGՄZU1:SET,ZD:ZS654ڄZE0:ZET0įRFL,"MECC$$DISK"ZS:38000:(TZT)(N$ZN$)34070䄗:SMĢ11:5:"Insert your "T$((T))" diskette." 鄭SMĢ10:5:"Insert your "T$((T))" diskette":5:"in dr4)ZC1Ĺ957,(954)B@ DISPLAY CURRENT SETUP MESSAGEJCO,0,27:"The current setup selection is:":(S36)18020,8030::" one disk drive"::8099T:" two disk drives"::8099l^" "CA$;:GCP,ZX,ZY:WIND,ZX,ZY,279,191:;k"To make a backup copy, use "QU$"Copy a "T$(U1)" diskette"QU$" or "QU$"Copy a "T$(U2)" diskette."QU$x30000:p SET PAGE 3 DISK VARSzZC(S36):ZC3Ĺ956,(S37):957,(S38):958,(S39)ZC3Ĺ956,(953):958,254:ZC2Ĺ957,3(95s will create a data diskette to hold word lists or results obtained from a SPELLING diskette.":"Periodically making a backup copy of your data diskette is highly recommended. This will minimize your losses if a data diskette is lost or damaged. "e used to determine the proper insertion of diskettes used with "N$".":30000CO,0,27:CEW:"If you wish to create a "T$(U1)" or "T$(U2)" data diskette, select "QU$"Create a "T$(U1)" diskette"QU$" or "QU$"Create a "T$(U2)" diskette."QU$" ";a"Thikettes.": "The current disk drive setup is displayed at the top of the "QU$"Diskette Support"QU$" menu screen. If that setup is not what you wish to use, select "QU$"Change the disk drive setup."QU$" ";M"When necessary, this information will b)10000,14100,14200,19100,19200,31030/ B1000U l HELP SCREEN FOR MAIN DISK MENU vCL$"Diskette Support Help"CC$:::QU$"Diskette Support"QU$" allows you to view and change the disk drive setup, and to create or copy "T$(U1)" and "T$(U2)" data distte":" 5. Copy a "T$(U2)" diskette":" 6. "CA$;:GCP,ZX,ZY:WIND,ZX,ZY,279,191:"Return to the "N$" menu":WIND ):"Which number? "CA$;:GCP,ZX,ZY:CO,0,180:"Press RETURN for help.":CO,ZX,ZY .INP,(1,"-16",0),Z$:Z$""İ1900% 8Z$""Ĵ(Z$"RESULTS":T$(5)"WORD LIST"/  MAIN PROGRAM9 WIND] CL$"Diskette Support"CC$:8000 $:"You may:"::" 1. Change the disk drive setup":" 2. Create a "T$(U1)" diskette":" 3. Create a "T$(U2)" diskette"t %" 4. Copy a "T$(U1)" diskeq35000::D$"BRUN IDENT.OBJ"D1$:K64((0)0) xD$"BRUN HPRINT.OBJ":D$"BRUN DISKUTIL.OBJ":RFL,"UPPER/LOWER.OBJ":RFL,"MECC$$DISK"S 901,1:ZSS:38000:N$ZN$:29800 U15:U24:T$(0)"PROGRAM":T$(1)"DATA":T$(2)"BACKUP":T$(3)"SPELLING":T$(4)0  PRODUCT:MECC MASTER SPELL>PROGRAM:DISKETTE SUPPORT_PROGRAMMER: ANDY HOLLENBECK|(COPYRIGHT (C) MECC 19842 LAST UPDATE:84/07/03 AAHd901,0e32000f16128:230,64nD$(4):CA$(1):CL$(12):CC$(3):QU$(34):S704.                !!!!!!!! ie` { p^>_? { t^<_= ޭtp vȐ rx` uVDEBC@A>? ׂ  { RPRQS \L T}Ll`Q ueDEB?~ w>?2ȱ쨊 wLԠ ~ ~ U~i#Ǎ~L/~ tx`~Ȍ~i~Fɠ~4~.ȩ~Ȣ)~~~~) ~`~ um~m~  {`L { ~^ `@ ~m~` )` L ֩PyQ AL J~~m~`B~A~ "~A~B~` ~L,~H)hJJJm~` LALNC SAZa{09!/:@[`{~@ @  ~~~~~ l u/> W~L| `} } }},k~Yȱ< ͆}ȱ?͆}}ȱ> } }𽍆}} @@ ͆}ȱ@}}` ~ ~`k~)k~l~ ~ l~Il~0L~^ k~Ik~L},j~ k~I@k~A*[a"|,i~,h~,k~p 0 ݍ~ 輍~~~~߹~~| ,~| , g f~ ,| C~y~) z~ {~|~) h~i~ ߅ l | L{g~-   },( f~*g~} J~}9~ֽ ~ver the computer is waiting for you to type."EWIND:VSP:30000:X(#INPUT ROUTINE-#CA$;:16368,0:GCP,ZX,ZY:WIND,ZX,ZY,250,ZY12:DL$(127)2#DL$:CO,ZX,ZY:9100:AZ:A19070<#A49A(48N)9010F#(A);DL$;CA$;P#9100:Z139070ngton Avenue North":"St. Paul, Minnesota 55112":"(612) 481-3527"YR30000:CL$:WINDmESC ESC SCREENVSP,4:CL$:::"Use of ESC Key"CC$::-"You may want to quit in the middle of a program. If so, press the ESC (escape) key twice whenemanual to aid in the use of this diskette is available from MECC.":VSP49:" Title: ";CA$;:GCP,ZX,ZY:TI$:PA$""įCO,ZX:PA$>12:" Direct inquiries to:"::" "CC$;:GCP,ZX,ZYCH:WIND,ZX,ZY,279:CO:"MECC Distribution":"3490 Lexi ; { lLz L{ کL,0~h~ʈ …<~=ą>~?Å@~Af~g~|m~ (Lk| | {$0! g~ ,L=| ^ {$0L7|N| 协||| {r- "~ {| { "~-͎||| ,~L{|̏||^`N| @  @A:<  ^wqe>>?@ޮ   L+z ޤ>?Ltx z g RPzQz g RPz,z ȱeezzIi vIzIz  vzzz y,` ^ ~ `yyqyi)` y y y0H)?hJ y y y?L$y v&'y wȄyy`` u w v tx`L { A<=>?nxoxpx <= <ȭ<ȭ<ȭnx<ȭpx<><ȥ?< <<= H <=oxI<nxw?w?w=w ?w>wڰ?w` <=?4> v<=8> <=v<=`=w>w<uLuLɅ 8ɀ  Lȱ:,֘e湥 HH L`<=ʱD>`uuu .uu muuumuu        z#< Ġ" ̮ʠӠӠ  Ȯ֠!ΠҠ Ӡ"ŮĠ! ٠ϠӮĠԮΠԠĠ ڠڮӠ ̮ʠŠˮĠ  Š"ŠԠ2 ٠Ǡ͠% ҠԠŠԠ̮ʠ ŠǠŠ ҠӮΠ٠Ϡ  ̮ʠ Ϡ3Ԯʠ!ŠҠ1  ŮԠ Š% үҮʠ Ϡ ɠĮԠ äˠ ̮ʠ Ϡ" ՠ Ԯʠ ɠĮԠ Ӯ ̮ʠ à$ՄZU1:SET,ZD:ZS654:FL034030/؄34015ڄZE0:ZEįRFL,"MECC$$DISK"ZS:38000:R0:ZL1NT:R(ZTT(ZL))R:ZL:RN$ZN$34070߄WIND,13,80,265,191:FL034030䄺CL$:SMįCO,13,80:"Insert your "T$(T)" diskette.":340505鄭SMįCO,13,80:ZE25532090+F}S$"DOS":ZE15S$"BASIC"tK}ZE8ĺ"I/O Error. Please check your disk and drive.":30000:32090P}S$" error number "ZE" at line #"ZN:"in Program Three."::"Please report this error to MECC.":30000Z}T0:ZD1:34000:31000Є90,0,100NLO 130,20,130,30,130,40,130,50,130,60,130,70,130,80,130,90,130,100T0ui:u(1):SPACE::oy|y35000:FL0:T0:NT1:ZD1:WP0:34000yRNH,"MENU"} }ZE(222):ZN(218)(219)256}ZUZE16Ħ(}2}CL$:CO,0,80 <} 3. Return to main menu"Q:"Which number? ";:FLI,(1,"-13",1),A$:A((A$))hA1425,1050,31000 N 0,20,0,30,0,40,0,50,0,60,0,70,0,80,0,90N 136,20,136,30,136,40,136,50,136,60,136,70,136,80,136,90N 0,20,0,30,0,40,0,50,0,60,0,70,0,80,0,n it.":30000LlgWIND:CL$:CO:CN$"TRANSFER LISTS TO SPELLING DISKETTE"CO$:0,15279,154:"Options:"::" 1. Transfer the same word lists to":" another diskette"::" 2. Transfer different word lists to":" a diskette"::"10ī1460HCL$:CO,0,89:" Transferring "(F$,(F$)5)" word list..."D$"OPEN"F$;D2$:D$"WRITE"F$:E:R$:XE:R$"Y"XE2I1X:QO$Y$(I)QO$:I:D$"CLOSE":1465 LC:CL$:CO,0,89:"Your disk is almost full. No more lists can be saved oR$"Y"XE2/I1X:Y$(I):I:D$"CLOSE"F$yFD0:L11EY:FD((F$,(F$)5)EY$(L1))FD:L1:FDİ900:Z$"Y"1448SMNT3:FL2:WP1:ZD1:34000:SET,ZD:ZS645:RFL,"MECC$$DISK"ZS:38000:PTZT1450D$"VERIFY MECC$$DISK",D2$:CNT,FS:FS,50:"There are "EY" lists stored on this disk. Only "NMEY" more lists can be saved.":30000:1900yL1C:F$WL$(L)SMNT3:ZD1:WP0:FL1:34000:SET,ZD:ZS645:RFL,"MECC$$DISK"ZS:38000:PFZT1435 D$"OPEN"F$;D1$:D$"READ"F$:E:R$:XE: ";:36000:Z$"N"1055=EC:F$"TRANSFER WORD LISTS":600CxF$"TRANSFER WORD LISTS":700:L1E:WL$(L)Y$(L):L:CENT3:ZD1:WP1:FL2:SMZD234000:PTZT:FCN,".WORD",EY$,EY:NM3:PT3NM18PT5NM36dEYENMĺCL$:CO,00,89:"Please remove the write-protect tab from your "T$(T)" diskette.":WP2:30000:34010e*3ZU0:k**̈D1$",S"((953))",D"((954))",V"((955))*ֈD2$",S"((956))",D"((957))",V"((958)):D1$D2$SM1*ۈ*+(1);:GCP,skette."CC$U)鄭SMįCO,0,80:"Insert your "T$(T)" diskette"CC$:"in drive "ZD"."CC$)0,70279,70279,1100,1100,70:30000:34010)WP34099)ZT$DT$:ZD2ZT$D2$)ZE0:ZEĺD$"BSAVE MECC$$DISK,A"ZS",L$28"ZT$Z* WP(WP1):ZE4ĺCL$:CO,mber "ZE" at line #"ZN:"in Program One."::"Please report this error to MECC.":30000r(Z}T0:ZD1:34000:31000x(Є(ՄZU1:SET,ZD:ZS654(ڄZE0:ZEįRFL,"MECC$$DISK"ZS:38000:(TZT)(N$ZN$)34070 )䄺CL$:SMįCO,0,89:"Insert your "T$(T)" di0:ZD1:WP0:34000#'yRNH,"MENU")'}L' }ZE(222):ZN(218)(219)256\'}ZUZE16Ħb'(}t'2}CL$:CO,0,80'<}ZE25532090'F}S$"DOS":ZE15S$"BASIC"'K}ZE8ĺ"I/O Error. Please check your disk and drive.":30000:31000W(P}S$" error nu$(L2)T$'&L2:L1:BOX,30,20,279,138K&L1C:CO,40,L1010:W$(L):Lr&BOX:CO::"One moment please..."&F$"NAME LIST":EC2:L1E:W$(L)QO$W$(L)QO$:L:600& RNH,"CREATE SPELLING DISKETTE"&0u&:u(1):SPACE::&y'|y35000:T)R$:R$"N"W$(C1)R$:W$(C2)" ":2220%BOX:CO::"Enter group name: ";:FLI,(13,"-AZ-az-09 ,.'-",1),GN$:A$GN$:400:GN$A$:W$(C1)"Y":W$(C2)GN$%BOX:CO::"One moment please..."&L12C:L21C:W$(L1)W$(L2)T$W$(L1):W$(L1)W$(L2):WC1)"N":W$(C2)SN$" "PN$:(W$(C2))19W$(C2)(SN$,1)". "PN$S$C12250$BOX:CO:"This group can be given a name which will appear on the title screen of the SPELLING diskette."::"Do you want to name the group? ";:36000*%R$Z$:W$(C10cPGXL218uhBOX,C2(1,X)22,C2(2,X)1,(Y$(L2))7C2(1,X)25,C2(2,X)7,3:CO,C2(1,X)26,C2(2,X)::Y$(L2):rL2:L1|WIND,0,115,279,191CL$:WIND:CO:CN$"WORD LISTS"CC$CO$:0,16279,16:L13:CO,C2(1,L),C2(2,L):" "L"."2(1,L),C2(2,L):(L(PG18))".":L:0,110279,110:X(1(PG18))330@L118:CO,C2(1,L)26,C2(2,L):Y$(L(PG18)):X(L(PG18))L18ELJC0380TL11C:L21(PG18)E:(W$(L1),(W$(L1))5)Y$(L2)370^XL2:((PG)X18)(PGX19)37 report this error to MECC.".+}SPACE:310004+J+(1);:GCP,ZX,ZY+CO,ZX,ZY:FLI,(3,"YESNOyesno",1),Z$:Z(Z$):Z$(Z(Z96Z123)32):Z$"Y"Z$"N"36020+036020+Ewrite protect sticker from your diskette.":32160|*P}ZE8ĺ"I/O error. Please check your disk drive and diskette.":32160*Z}ZE9ĺ"Your diskette is full.":32160*n}*x}(12):CO,0,89*}"Error "ZE" at line "ZN" in Master Spell."+}:"PleaseDzCS(P(P(999))1)16,)zCS1CS7CS64) {CS:)}l) }ZE(222):ZN(218)(219)256:216,0:32000)}WIND:VSP,1:ZE25531000)}(15):ZE1532110)}ZUĦ: ZU=USER PROCESSING FLAG)(})2}(12):CO,0,891*F}ZE4ĺ"Please remove the 1):SPACE::&(y ESC-ESC PROCESSING5(yES31100("yCL$:CO$:CO,0,80:QN$", do you want to practice another word list? ";:36000:Z$"Y"1200(,yQN$""(|yCL$:CO,0,89:"Insert another diskette."CC$:ES0:30000:CL$(yP(S)(S)(S1)256)OPEN"F$:D$"WRITE"F$:N$:D$"CLOSE"F$:90001'@'JCL$:CO,0,89:"Your disk is almost full. No more results can be saved until records have been transferred or deleted.":30000'(#RV0:ER0:FG0:BL0:C0:CR0:RO1RO0:1200'2#31000'0u (:u(05&:D$"OPEN"F$:D$"WRITE"F$:"0000":D$"CLOSE"F$&X:D$"APPEND"F$:D$"WRITE"F$:W$(1):ER:ER0āL1ER2:QO$W$(L2)QO$:L&bD$"CLOSE"F$&D$"OPEN"F$:D$"READ"F$:N$:D$"CLOSE"F$&N((N$)):NN(ER2)2&N$("0000"(N),4)+'D$"$".RES":RO1W$(1)"REVIEW (forced)"J%RO2W$(1)"REVIEW (optional)"^%RO0W$(1)PF$m%ER06050%X0:L1ER2:XX1:W$(L2)ER$(1,X):W$(L3)ER$(2,X):LL1:L%FCN,".RES",V$,V:V06070%FD0:L1V:V$(L)NM$FD1&L:FD1700  QS(S$(L)):QK0G QS$"":FSS,S$(L),(34),QL:QL0290c QL1QS$(S$(L),QL1) QS$QS$(123QK):QLQSQS$QS$(S$(L),QSQL) QK2(QK):S$(L)QS$:270 " , 6CL$:WIND:CO:CN$T$CC$CO$:0,18279,18C;L118:CO,C((QT$(2),QL1)):QT$(2)(QT$(2),(QT$(2))(QLQA1)):(QM97QM122)((QT$(2))97(QT$(2))122)QF1w QF1210 (QF)įBOX:CO::"The word "QO$QW$QO$" could not be found in the sentence you entered. Please type the sentence again.":30000 )"WORD LIST":T$(6)"MASTER SPELL, SPELLING, or WORD LIST":ZS704:RFL,"MECC$$DISK"ZS:38000:N$ZN$:35000u d1000{ n sQD1QW$QT$(QD) xUL,QT$(QD): QF0:QA(QT$(1)) QT$(2)" "QT$(2)" ":FSS,QT$(2),QT$(1),QL:QL0230i QMntire sentence has been entered.)":CO,0,140:FLI,(70,"-AZ-az- @",1),S$:S$(A)S$:QD2:QT$(QD)S$(A):110{ 200:QF3070 3030 BOX:CO:8:"(Name can have 12 or fewer characters.)"CC$:2:"New word list name: ";s FLI,(12,"-AZ-09 .-",1),NQ$:red.":30000:3030 R$"Y"įBOX:CO::"Re-enter sentence for which word? ";:FLI,(2,"-09",1),A$:A((A$)):A0ANA3:3062 QF0:QD1:QT$(QD)WD$(A):110h BOX:CO::"Enter sentence using: "WD$(A):CO,0,170:"(Do not press RETURN key until e":CO,CO(1,A)20,CO(2,A):FLI,(14,"-AZ-az .'-",1),WD$(A):Q2$WD$(A):900:WD$(A)Q2$:WD$(A)" "3055 R$"Y"QD1:QT$(QD)WD$(A):110:QD2:QT$(QD)S$(A):110:WIND,0,115,272,191:200:(QF)3070 3030 R$"N"įBOX:CO::"No sentences were ente"āL1N:BOX:CO::"Word: ";WD$(L)::S$(L):30000:L:3030w BOX:CO::"No sentences were entered.":30000:3030 BOX:CO::"Re-enter which word? ";:FLI,(2,"-09",1),A$:A((A$)):A0AN3050d WIND:CO,CO(1,A)20,CO(2,A):" 90:BOX:CO:"Options:":3:"1. Review sentences":3:"2. Re-enter a word":3:"3. Re-enter a sentence":3:"4. Save the word list":3:"5. Exit without saving." :"Which number? ";:FLI,(1,"-15",1),A$:A((A$)):A3040,3050,3060,3080,1010= R$"Ye using: "WD$(L)::CO,0,170:"(Do not press RETURN until the entire sentence has been entered.)" CO,0,136:FLI,(70,"-AZ-az- @",1),S$:S$(L)S$:QD2:QT$(QD)S$(L):110 200:QF3005 BOX FL1Z$"N"LL1:BOX L WIND,0,115,272,1:((WD$(L))0WD$(L)" ")L12090 (WD$(L))0WD$(L)" "įBOX,0,165,279,191:CO,10,175:"Are you finished? ";:FL1:36000:Z$"Y"NL1:L15:3020 R$"N"Z$"N"3010a QF0:QD1:QT$(QD)WD$(L):110:WIND,0,115,272,190:BOX:CO:"Enter sentencse above the horizon and lit the dark room."CO$?'30000:500U*N15:BOX:L115/CO:"(When done entering words, press RETURN instead of entering a word.)"# FL0:CO,CO(1,L)20,CO(2,L):FLI,(14,"-AZ-az .'-",0),WD$(L):Q2$WD$(L):900:WD$(L)Q2$u enter a sentence, do not press the RETURN key until the entire sentence has been entered."::"A sentence entered like this:"/%:CN$"The morning sun rose above the hor":"izon and lit the dark room."CO$::"-will appear as:"::CN$"The morning sun ro14 characters. Sentences using each word in context may also be entered. Each sentence is limited to 70 characters." :"Do you want to enter sentences? ";36000:R$Z$R$"N"2090 R$"Y"įWIND:CL$CN$"IMPORTANT NOTE"CO$CC$:3:"When youmber? ";1FLI,(1,"-15",1),A$:A((A$)):Q1AQ$A2000,4000,5000,9000,10808NT0:T(1)0:T0:ZD1:WP0:Q10:34000:RNH,"MENU"T$"ENTER A NEW WORD LIST":500vCO:"The new word list can have up to 15 words. Each word is limited to DIT A WORD LIST"CC$:6:CO$"Options:":0,10275,10275,300,300,108:" 1. Enter a new word list":" 2. See an existing word list":" 3. Edit an existing word list":" 4. Delete an existing word list":" 5. Return to main menu" 14:"Which ndiskette."CC$:30000z 8LA(Q2$):LA0940k(Q2$,1)" "LALA1:LA0Q2$(Q2$,LA):920(Q2$,1)" "LALA1:LA0Q2$(Q2$,LA):930RFL,"ASCII BOLD.PFT"33808:DFT,2,33808:AFT,2CCL$:WIND:3:CN$"ENTER OR E$(L):L%R$"N"āL1E:WD$(L):L6D$"CLOSE"F$<B u%NT3:T(1)0:T(2)5:T(3)3:T6:ZD2:WP1:34000*T$"WORD LISTS":PG04FCN,".WORD",Y$,X:EX9ZT0İ400:840>300HE0FRįBOX:CO::"There are no word lists on this 115,272,191X+bD$"OPEN"F$,D2$<lD$"WRITE"F$uqR$"Y"ĺE:R$:L1E:WD$(L):250:QO$;S$(L);QO$:LsR$"N"ĺE:R$:L1E:WD$(L):LD$"CLOSE"F$D$"OPEN"F$,D2$D$"READ"F$:E:R$R$"Y"āL1E:WD$(L):S:L:0,50279,50GX0āL13:CO,C2(1,L)26,C2(2,L):Y$(L):XLL3SX0ĂLkWIND,0,115,272,191qwCL$:WIND:CO:CN$T$CC$CO$:0,18279,18L115:COCO(1,L):L9COCO6 CO,CO,CO(2,L):L".":L:0,100279,100 WIND,0,he write-protect tab from your "T$(T)" diskette.":WP2:30000:34010U'3WIND:ZU0:[''̈D1$",S"((953))",D"((954))",V"((955))'ֈD2$",S"((956))",D"((957))",V"((958)):D1$D2$SM1'''(1);:GCP,ZX,ZYU(CO,ZXSNOyesno",1),Z$:Z(Z$):Z$(Z(Z96Z123)32):Z$"Y"Z$"N"36020L7R7pa7zZN$"":Z17(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:380207ZT(ZS)7Ӕ diskette in drive "ZD"."K50,70279,70279,1100,1100,70:30000:34010Z5WP34099t5ZT$D1$:ZD2ZT$D2$5ZE8ĺ"I/O Error. Please check your disk and drive.":30000:3100056 WP(WP1):ZE4ĺCL$:CO,0,89:"Please remove the write-protec to: ";:FLI,(14,"-AZ-az .'-",0),W$:Q2$W$:900:W$Q2$:(W$)0W$" "6030)CO,CO(1,A)20,CO(2,A):" ":CO,CO(1,A)20,CO(2,A):W$:WD$(A)W$)R$"N"6500)QF0:QD1:QT$(QD)WD$(A):110)BOX:CO:"Sentence: ";:S$(A)h*8:"(PZX,ZYe+CO,ZX,ZY:FLI,(3,"YESNOyesno",1),Z$:Z(Z$):Z$(Z(Z96Z123)32):Z$"Y"Z$"N"36020k+q+p+zZN$"":Z1+(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:38020+ZT(ZS)+Ӕ,(1,"-14",1),A$:A((A$))5(A6000,7000,8000,1010(pBOX:CO::"Enter number of word to edit: ";:FLI,(2,"-09",0),A$:(A$)05070(uA((A$)):AEA06000K)zBOX:CO::"Word: ";:WD$(A):8:"(Press RETURN if no change wanted)"CC$:4:"Change:500'F$Y$(A)".WORD":700L'L1E:CO,CO(1,L)20,CO(2,L):WD$(L):Lt'RS$"":R$"Y"RS$" and sentence "'BOX:CO:"Options:"::" 1. Edit a word"RS$:" 2. Delete a word"RS$:" 3. Add a word"RS$:" 4. Quit"(:"Which number? ";:FLIo continue":E18ĺ"b) Enter R to see remaining lists"{&2:"Edit which word list? ";:FLI,(2,"R-09",0),A$:(A$)01010&(A$,1)"R"E18PGPG:300:5015&(A$,1)"R"5015&A((A$)):AEA05020'PF$Y$(A):T$"WORD LIST NAME: "Y$(A)see the sentences? ";:36000:Z$"N"4140b%L1E:BOX:CO::"Word: "WD$(L)::S$(L):30000:L%,BOX:CO::"Do you want to see another list? ";:36000:Z$"Y"4000%61010%%C0:800%E010106&BOX:CO:4:"or":"a) Press RETURN t(A$,1)"R"E18PGPG:300:4040;$(A$,1)"R"4040X$A((A$)):AEA04050}$T$"WORD LIST NAME: "Y$(A):500$PF$Y$(A):F$Y$(A)".WORD":700$L1E:CO,CO(1,L)20,CO(2,L):WD$(L):L$R$"N"4140)%BOX:CO::"Do you want to er disk? ";:36000:Z$"Y"3080)# 1010/#<#C0:800J#E01010#BOX:CO:4:"or":"a) Press RETURN to continue":E18ĺ"b) Enter R to see remaining lists"#2:"Which word list do you want to see? ";:FLI,(2,"R-09",0),A$:(A$)01010%$ll replace the old word list."::"Do you want to use the name? ";:36000:Z$"N"3080r" F$NQ$".WORD":EN:600" XX1:AX:X18AX18" X19PG1:300" FD0X1įCO,C2(1,A)26,C2(2,A):NQ$# BOX:CO::"Do you want the list saved on anothd.":30000b!X XNMįBOX:CO::"DISK IS FULL":"Do you wish to continue? ";:36000:Z$"Y"3080y!b XNMZ$"N"1010!t X03200!v FD0:L1X:Y$(L)NQ$FD1:LXV"{ L:FD1įBOX:CO::"The name entered has already been used. Using the name wiU((NQ$,1)):(U64U91)įBOX:CO:"Word list name must begin with a letter A-Z. Please re-enter.":30000:3080  C0:FR1:800:FR0:NM18:ZT5NM36  ZT0NM3 ! BOX:CO:"This diskette can hold "NM" word lists.":"It currently has "X" store"Insert your "T$(T)" diskette in drive "ZD".":34050CL$:WIND,13,80,265,110:FL1įCO:"Insert diskette containing word list"QQ$(E1)"to be transferred";FL2įCO:"Insert diskette to save word list"QQ$(E1)"on";SMĺ" in drive ";ZD; line #"ZN:"in Program Two."::"Please report this error to MECC.":30000|4Z}NT1:T(1)0:WP0:Q10:T0:ZD1:34000:310004Є4ՄZU1:SET,ZD:ZS654:Q1340154ڄZE0:ZEįRFL,"MECC$$DISK"ZS:38000:R0:ZL1NT:R(ZTT(ZL))R:ZL:RN$ZN$3407065S$"BASIC"U3K}ZE8ĺ"I/O Error. Please check your disk and drive.":30000:320903N}ZE9ĺ"Your disk is full."CC$:30000:FCN,".WORD",W$,W:FD0:L1W:FD(W$(L)NQ$)FD:L:FDĺD$"DELETE"NQ$".WORD"3O}ZE9ĺCL$:3250K4P}S$" error number "ZE" at,40,130,50,130,60,130,70,130,80,130,90,130,100420uI2:u(1):SPACE::O2y2|y35000:NT1:T(1)0:T0:ZD1:WP0:Q10:340002y10002}2 }ZE(222):ZN(218)(219)2562}ZUZE16Ħ2(}22}CL$:CO,0,802<}ZE25532090 3F}S$"DOS":ZE1퍳獰ō"N"9020Q1.BOX:CO::"One moment please...":L1C:D$"DELETE"W$(L):L:1010~1 N0,20,0,30,0,40,0,50,0,60,0,70,0,80,0,901N136,20,136,30,136,40,136,50,136,60,136,70,136,801N 0,20,0,30,0,40,0,50,0,60,0,70,0,80,0,90,0,100.2LO 130,20,130,30,13010$'A((A$)):AEA0(PGA19)(PGA18)9030`0.'CC1:W$(C)Y$(A)".WORD":LA:A18LA1808'BOX,C2(1,L)22,C2(2,L)1,((Y$(A))7)C2(1,L)25,C2(2,L)7,3:CO,C2(1,L)26,C2(2,L)::Y$(A)::9030 1*CEįBOX:CO::"Are you finished? ";:36000:Z$$(L)Y$(L)".WORD":L:L1(PG18)18(PG18):XL:X18XX18:/x#BOX,C2(1,X)22,C2(2,X)1,(Y$(L))7C2(1,X)25,C2(2,X)7,3:CO,C2(1,X)26,C2(2,X)::Y$(L)::LEL18(PG18)/#L:12000/'(A$,1)"R"E18PGPG:300:9020/'(A$,1)"R"9030ter ALL to delete all the lists":X18ĺ"c) Enter R to see remaining lists".F#1:"Enter word list numbers (one at a time) of the lists to delete: ";:FLI,(3,"ALR-09",0),A$.P#(A$)0C01010.Z#(A$)011000.d#(A$,1)"A"10000?/n#CE:L1C:WE):110:BOX:CO:"Enter sentence using: "WD$(E):CO,0,130:FLI,(70,"-AZ-az- @",1),S$:S$(E)S$:QD2:QT$(QD)S$:110-r200:(QF)8040-600:700:5070-(#--#C0:800-2#X01010K.<#BOX:CO:4:"or":"a) Press RETURN key when finished":"b) EnAES$(E)"":7150<,LAE1:S$(L)S$(L1):L:S$(E)""V,EE1:600:700:5070\,@k,EE155070,JBOX:CO:"Enter new word: ";:FLI,(14,"-AZ-az .'-",1),W$:EE1:WD$(E)W$:CO,CO(1,E)20,CO(2,E):W$,^R$"N"8070s-hQF0:QD1:QT$(QD)WD$(t tab from your "T$(T)" diskette.":WP2:30000:34010F63WIND:ZU0:L66̈D1$",S"((953))",D"((954))",V"((955))6ֈD2$",S"((956))",D"((957))",V"((958)):D1$D2$SM1666(1);:GCP,ZX,ZYF7CO,ZX,ZY:FLI,(3,"YE0),A$:(A$)050700+gA((A$)):AEA07010s+lCO,CO(1,A)20,CO(2,A):" ":AEWD$(E)"":7110+vLAE:CO,CO(1,L)20,CO(2,L):" ":L+LAE1:CO,CO(1,L)20,CO(2,L):WD$(L1):WD$(L)WD$(L1):L+R$"N"7150,ress RETURN if no change wanted)":4:"Change to: ";:FLI,(70,"-AZ-az- @",0),S$:(S$)0S$" "S$S$(A)u*S$(A)S$*QD2:QT$(QD)S$:110*200:(QF)6050*d600:700:5070*X+bBOX:CO::"Enter number of word to delete: ";:FLI,(2,"-09",4Є/4ՄZU1:SET,ZD:ZS654:FLFLFL:340204ڄZE0:ZEįRFL,"MECC$$DISK"ZS:38000:R0:ZL1NT:R(ZTT(ZL))R:ZL:R(N$ZN$)340704䄺CL$:WIND,13,80,265,191:SMįCO,13,80:"Insert your "T$(T)" diskette."5鄭SMįCO,13,80:"Insert your "T$(T)"EN"F$:D$"READ"F$:E$:E((E$))( X0= I1E:Y$(I):IN D$"CLOSE"F$ L11WL:WIND,0,9,279,191:BOX:CO::"Word list: "WL$(L1):C0:QY0:L21E:Y$(L2)WL$(L1)3080< CC1::"Session #"C;:Y((Y$(L21))):" ...(-"Y")":Y0āL31Y:QY a printer? ";:36000:Z$"Y"ĺCL$:CO,0,89:"Please prepare your printer...":30000:UNHOOK:PINIT:PACT L1ST:Z$"N"ĺCL$ CO:"Name: ";:ST$(L):F$ST$(L)".RES" FCN,".RES",V$,V:FD0:I1V:V$(I)ST$(L)FD1 I:(FD)3090  D$"OP:2025 BOX:CO::"Do you want to see the results from the review lessons? ";:36000:Z$"Y"WLWL1:WL$(WL)"REVIEW (optional)":WLWL1:WL$(WL)"REVIEW (forced)"*WL05000 PRINT RESULTS 200:WINDi CL$:CO,0,89:"Do you want to use L:2080#(A$,1)"R"20553WL182025JPGPG1:PG5PG0Y300:2020wA((A$)):A0AWL2025 XX1:WL$(X)Y$(A):LA:L18LL18BOX,C2(1,L)24,C2(2,L)1,(Y$(A))7C2(1,L)27,C2(2,L)7,3:CO,C2(1,L)26,C2(2,L)::Y$(A): shown for: ";=FLI,(3,"ALR-09",0),A$:(A$)0WLX:2080T(A$,1)"A"2050L1WL:WL$(L)Y$(L):L:L1PG1818PG18:XL(18PG):BOX,C2(1,X)24,C2(2,X)1,(Y$(L))7C2(1,X)27,C2(2,X)7,3:CO,C2(1,X)26,C2(2,X)::Y$(L)::LWLL18PG18C0ST05000& CHOOSE WORD LISTS3800:X0BOX:4:"or...":"a) Press RETURN key if finished":"b) Enter ALL to see all results":WL18ĺ"c) Enter R to see remaining lists"1:"Enter numbers of word lists (one at a time) you want resultswill be given the options to transfer results to the spelling records diskette (if you have created one) or delete the results.":"Do you want to continue? ";:36000:Z$"N"31000FL1:NT2:T(1)3:T(2)4:T6:WP0:ZD2:34000$WD$"see":10600:T RESULTS"CC$CO$:0,10275,10275,300,300,105:"This program allows you to check spelling results. The results can be printed if you have a printer attached and have set the proper printer support options. ";"After viewing the results, you F$:EE0āI1E:Y$(I):I0D$"CLOSE"F$6K WRD LIST SCREENw%ZD2:T6:NT2:T(1)3:T(2)4:WP0:34000*T$"WORD LISTS":PG0:C04400:300RRFL,"ASCII BOLD.PFT"35598:DFT,2,35598:AFT,2.CL$:3:CN$"CHECK STUDEN$)):NBNBE:NB$("0000"(NB),4)PD$"OPEN"F$:D$"WRITE"F$:NB$:D$"CLOSE"F$V&gXFILE WRITERbNB$("0000"(E),4):D$"OPEN"F$;D2$:D$"WRITE"F$:NB$lL21E:W$(L2):L2:D$"CLOSE"F$FILE READERD$"OPEN"F$;D1$D$"READ"W (forced)"XX1@N:L1L12:N0āL21N2:ER$:L1L11:L2hL1:D$"CLOSE"ST$(L)".RES":L:WLXn APPEND FILED$"APPEND"F$;D2$:D$"WRITE"F$:L21E:W$(L2):L2:D$"CLOSE"F$D$"OPEN"F$:D$"READ"F$:NB$:D$"CLOSE"F$!NB((NB)::Y$(L2): rL2:L11 |WIND,0,115,279,1917 K FIND WRD LISTS X0:L1ST:D$"OPEN"ST$(L)".RES";D2$:D$"READ"ST$(L)".RES":EL11E:XX1:Y$(X):X1FD0:L31X1:FD(Y$(L3)Y$(X))FD:L3:FDY$(X)"REVIEW (optional)"Y$(X)"REVIE8)):X(L(PG18))L18' OL:C0380j TEX:L11C:L21(PG18)E:(W$(L1),(W$(L1))5)Y$(L2)370 ^XL2:(X(1(PG18))X(18(18PG)))370 cXL2(18PG) hBOX,C2(1,X)24,C2(2,X)1,(Y$(L2))7C2(1,X)25,C2(2,X)7,3:CO,C2(1,X)26,C2(2,X(ST$(L1),L22) L2:L1! 8 ,DISPLAY WRD LISTSe 6CL$:WIND:CO:CN$T$CC$CO$:0,18279,18 @L118:CO,C2(1,L),C2(2,L):PGL10ĺ" "(L(18PG))".":328 E(L(18PG))"." HL:0,110279,110 JL118:CO,C2(1,L)26,C2(2,L):Y$(L(PG1$(2)"BACKUP":T$(3)"SPELLING":T$(4)"RESULTS":T$(5)"WORD LIST":T$(6)"SPELLING or RESULTS":ZS704:RFL,"MECC$$DISK"ZS:38000:N$ZN$:35000 d1000 NAMES L11ST:L21(ST$(L1)):CH$(ST$(L1),L2,1):CH$","LN$(L1)(ST$(L1),1,L21):SN$(L1)к"."<WIND:0,70279,70279,1050,1050,70:30000:34010KWP34099eZT$D1$:ZD2ZT$D2$ZE0:ZEĺD$"BSAVE MECC$$DISK,A"ZS",L$28"ZT$ WP(WP1):ZE4ĺCL$:CO,0,89:"Please remove the write-protect tab from your "T$(T)" diskette.":WP0BOX:CO::"4. Each word displayed can be typed":" from 0 to 10 times."::" How many times? ";:FLI,(2,"-09",1),Z$Z((Z$)):Z101250WIND:Z$Y$(4)Ģ6:33:Z$;" ":Y$(4)Z$1110xBOX:CO:1:"5. Feedback Options:":" 1. he word list can be presented in:":4:"1. the order entered ":4:"2. random order"::" Which way? ";:FLI,(1,"-12",1),Z$5:33:WIND:Z$"1"Y$(3)"Random"ĺ"Ordered":Y$(3)"Ordered"Z$"2"Y$(3)"Ordered"ĺ"Random ":Y$(3)"Random"111 are included with the":" word list, they can be displayed with":" each word."::" Display sentences? ";:36000:WIND4:33:Z$"N"Y$(2)"Yes"ĺ"No ":Y$(2)"No"Z$"Y"Y$(2)"No"Ģ4:33:"Yes":Y$(2)"Yes"1110}BOX:CO::"3. The entire word list can be displayed":" at the start of the spelling lesson."::" Display word list? ";:36000:WINDj3:33:Z$"Y"Y$(1)"No"ĺ"Yes":Y$(1)"Yes"oZ$"N"Y$(1)"Yes"ĺ"No ":Y$(1)"No"t1110~~BOX:CO::"2. If sentences:30000VWIND,0,115,279,191:BOX:CO:5::"(Press RETURN to continue)"CC$:2:"Enter option number to change: ";:FLI,(2,"-09",0),A$:(A$)0ī1770WA((A$)):A0A101110[A1125,1150,1200,1250,1400,1550,1600,1650,1700zeBOX:CO::"1. T end of lesson?":"8. Save results?":"9. Forced review sessions?"U80,112279,112LL19:(2L):33:Y$(L):L:Y$(9)"Yes"Ė33:"("Y$(12)"/"Y$(13)") "QWIND,0,115,279,191:BOX:CO::"The current design of the spelling lesson is shown above. "CO:CN$"SPELLING LESSON DESIGN"CC$CO$:0,14279,14$3:"1. Show entire list to start?":"2. Show sentences with words?":"3. Words ordered or random?":"4. Spell each word ? times."B."5. Type of feedback:":"6. Type of remediation:":"7. Review at:" 4. Return to main menu"T:"Which number? ";:FLI,(1,"-14",1),A$:A((A$)) A1A2T3:NT1:T(1)3:ZD2:WP1:FL1:34000A3ZD2:T6:NT2:T(1)3:T(2)4:FL1:WP1:34000A1048,2000,8000,31000F$"DEFAULT.DESIGN":7003CL$::RFL,"ASCII BOLD.PFT"35598:DFT,2,35598:AFT,2CL$:WIND:3:CN$"EDIT A SPELLING DISKETTE"CC$CO$:0,10275,10275,300,300,10:5"Options:"::" 1. Change design of spelling lesson":" 2. Edit name list":" 3. Delete results data"FILE WRITER$ ]T3:WP1:ZD2:340008 bD$"OPEN"F$,D2$L lD$"WRITE"F$:Ef vE0āI1E:W$(I):Iw D$"CLOSE"F$}   FILE READER T3:WP0:ZD2:34000 D$"OPEN"F$,D2$ D$"READ"F$:E E0āI1E:Y$(I):I D$"CLOSE"F$$$ TFCN,".REV",Z$,Z:F$ST$".REV"1 YZ0370Q ^FD0:L1Z:ST$Z$(L)FD1l hL:FD1ĺD$"DELETE"F$r r  REMOVE SPACES LA(A$) (A$,1)" "LALA1:LA0A$(A$,LA):420 (A$,1)" "LALA1:LA0A$(A$,LA):430  X NAMES N L1(ST$):CH$(ST$,L,1):CH$","LN$(ST$,1,L1):SN$(ST$,L2)U Li ST$SN$" "LN$o , DELETE RESULTS AND REVIEW FILES 6FCN,".RES",Z$,Z:F$ST$".RES" ;Z0340 @FD0:L1Z:ST$Z$(L)FD1 JL:FD1ĺD$"DELETE"F$(15),Z$(12),V$(12): ZCN$(14):CO$(15):U(0):FL0:3 bT$(0)"MASTER SPELL":T$(1)"DATA":T$(2)"BACKUP":T$(3)"SPELLING":T$(4)"RESULTS":T$(5)"WORD LIST":T$(6)"SPELLING or RESULTS":ZS704:RFL,"MECC$$DISK"ZS:38000:N$ZN$:35000 d1000 6854 QCL$:CO,0,20:"Apple II and II+ Users"CC$ R3:12,74271,74271,11012,11012,74:WIND,20,80,272,191:CO:"Capital letters may be entered by first typing a ^ (Shift-N) and then the letter to be capitalized.":WIND:30000 UY$(15),PY$(15),W/ " DISKETTE:MASTER SPELL3" PROGRAM: FOURG" (C)MECC 1984e(" PROGRAMMER: SK RUSSELL2" LAST UPDATE:84/08/07SKR<F(13)(4)"MAXFILES1"K16384:230,64:24576:32000 PD$(13)(4):CL$(12):CC$(3):QO$(34):(64435)                ber? ";:FLI,(2,"-09",0),A$:(A$)0ī2190H&uA((A$)):ACA0ī2162t&zT$W$(A):ACāLAC1:W$(L)W$(L1):L&CC1:2050&C1R$"N"&W$(C1)R$:W$(C2)GN$&BOX:CO::"One moment please..."'F$"NAME LIST":EC2:L1E:W$(L)QO$)T$%*L2:L1'%4BOX,30,20,279,138K%>L1C:CO,40,L1010:W$(L):L%pC0įBOX:CO::"There are no names on this diskette.":30000:2030%qC1T$W$(1):CC1:2050*&rBOX:A1:C1Ģ5:"(Press RETURN key to continue)"CC$:3:"Edit which num"RENAME"ST$".RES,"C$".RES"!$L@$FCN,".REV",V$,V:V02080$FCN,".REV",V$,V:L1V:V$(L)ST$ĺD$"RENAME"ST$".REV,"C$".REV"$L$ C1įBOX,30,20,279,138:CO,40,20:W$(1):2190%%L12C:L21C:W$(L1)W$(L2)T$W$(L1):W$(L1)W$(L2):W$(L2(GN$)19GN$(SN$,1)". "LN$.#C12072#FD0:L1C1:W$(L)W$(C)įBOX:CO:"That name has already been used. Please enter another name.":30000:FD1#L:FD1CC1:2050#ST$T$:200:FCN,".RES",V$,V:V02076$L1V:V$(L)ST$ĺD$"-AZ-az '.-",1),LN$:A$LN$:400:LN$A$:(A$)02050" BOX,0,178,279,191:3:"Enter first name: ";:FLI,(11,"-AZ-az '-.",0),SN$:U((SN$,1)):A$SN$:400:SN$A$:(A$)0A$" "((U64U91))2060 #CC1:W$(C)LN$", "SN$:C$SN$" "LN$:C1GN$C$:1E:W$(L)Y$(L):L!WIND,0,142,279,191:BOX:CO:" 1. Edit names":" 2. Add names":" 3. Delete names":" 4. Return to menu":"Which option? ";:FLI,(1,"-14",1),A$!A((A$)):A2160,3000,5000,10104"BOX:CO::"Enter last name: ";:FLI,(14,ESIGN":E13:600 1010) NAME LIST[ WIND:CL$:CN$"NAME LIST"CC$CO$:0,18279,18 L112:CO,10,L1010:L10ĺ" "; L".":L:0,140279,140 F$"NAME LIST":700:R$Y$(E1):GN$Y$(E):CE2:C0āL1C:CO,40,(L10)10:Y$(L):L!L((NW$))01735PY$(12)NR$:Y$(13)NW$:WIND:12:33:"("Y$(12)"/"Y$(13)") "Z1110BOX:CO::"Are you done editing the ":"lesson design? ";:36000:Z$"N"ī1110BOX:CO::"One moment please..."; L113:W$(L)Y$(L):L:F$"DEFAULT.D91:BOXCO::"How many misspelled words must be on the review before reviews are required? ";:FLI,(2,"-09",1),NR$:((NR$))01732BOX:CO::"What is the maximum number of words that should be presented in a review? ";:FLI,(2,"-09",1),NW$: words reaches a specified":" number, forced reviews can be":" required.":" Do you want forced reviews? ";:36000WIND:11:33:Z$"N"ĺ"No ":Y$(9)"No":33:" ":Y$(12)"0":Y$(13)"0":1740"Yes":Y$(9)"Yes":WIND,0,115,279,1 can be kept for your records":" and to generate review lessons."::" Save results? ";:36000:WIND|10:33:Z$"N"ĺ"No ":Y$(8)"No"Z$"Y"ĺ"Yes":Y$(8)"Yes"1110OBOX:CO::"9. Once the review list containing ":" misspelledf the lesson, all":" words missed can be presented again":" for review."::" Do you want a review? ";:36000J9:33:WIND:Z$"N"ĺ"No ":Y$(7)"No"TZ$"Y"ĺ"Yes":Y$(7)"Yes"^1110krBOX:CO::"8. A list of all misspelled words":"e spellings and try again":" 3. Same as #2 (with blanks)"" 4. Two tries and go on ":" 5. No remediation - go to next word":"Which option? ";:FLI,(1,"-15",1),Z$"Z$Y$(6)įWIND:8:33:Z$:Y$(6)Z$,1110u@BOX:CO::"7. At the end o"Correct":Y$(11)"Incorrect"DZ2Y$(10)"Right":Y$(11)"Wrong"uZ3Y$(10)"SMILING FACE":Y$(11)"SAD FACE"Z4Y$(10)"":Y$(11)""1110;BOX:CO:1:"6. Options (if word missed):":" 1. Repeat sequence until correct":" 2. Compar279,191:BOX:CO:8:"(Phrases limited to 20 characters.)":1:"Feedback Phrases"CC$:2:"If correct: ";:FLI,(20,"-AZ-az ,.!?'",1),C$4:"If incorrect: ";:FLI,(20,"-AZ-az ,.'!?",1),I$Y$(10)QO$C$QO$:Y$(11)QO$I$QO$1110Z1Y$(10)Correct/Incorrect":" 2. Right/Wrong":" 3. (Smiling face)/(Sad face)":" 4. No feedback":" 5. Enter your own feedback phrases""Which option? ";:FLI,(1,"-15",1),Z$:Z$Y$(5)įWIND:7:33:Z$:Y$(5)Z$Z((Z$)):Z5ī1470WIND,0,115,results":" 3. Return to main menu"::"Which number? ";:FLI,(1,"-13",1),A$oA((A$)):A6000,1050,31000pTRANSFER RESULTSuT3:WP0:FL1:NT1:T(1)3:ZD1((SM)1):34000YzWIND:CL$:5:"Records will be transferred to a results diskette  L1::"END OF RECORDS FOR "ST$(L)::Z$"N"İ30000:WIND:CL$H L`Z$"Y"įPOFF:HOOKfWIND:CL$:CN$"CHECK RESULTS"CC$CO$:0,18279,18M:"Options:"::" 1. Transfer results to a RESULTS":" data diskette":" 2. Check other QY1:QY14Z$"N"QY0:30000:WIND,0,18,279,191:BOX:CO: Y0ĺ" "Y$(L22L3)" ";:L4(Y$(L22L3))18:"-";:L4:"> "Y$((L23L3)(L31)):L3 QY14Z$"N"QYQY2:3080 Z$"N"İ30000:WIND,0,18,279,191:BOX:CO L2:Z$"N"İ30000A3<}ZE2553209013F}S$"DOS":ZE15S$"BASIC"z3K}ZE8ĺ"I/O Error. Please check your disk and drive.":30000:320903P}S$" error number "ZE" at line #"ZN:"in Program Four."::"Please report this error to MECC.":300003Z}T0:ZD1:34000:31000e moment please...":A1X:F$W$(A)".RES":D$"DELETE"F$:AK2WIND:1010S20u h2:u(1):SPACE::n2y2|y35000:NT1:T(1)0:FL0:T0:ZD1:WP0:340002yRNH,"MENU"2}2 }ZE(222):ZN(218)(219)2562}ZUZE16Ħ2(}32}CL$:CO,0,80$,1)"A"XC:L1C:W$(L)Y$(L):BOX,36,L109,(Y$(L))739,L1017,7:CO,40,L1010::Y$(L):L::80901A((A$)):ACA080501BOX,36,A109,(Y$(A))839,A1017,7:CO,40,A1010::Y$(A):1XX1:W$(X)Y$(A):8050;2X0įBOX:CO::"On":L:0,140279,14070^L1C:CO,40,L1010:Y$(L):L0hWIND,0,142,279,191:BOX:3:"or...":"a) Enter ALL to delete all results.":"b) Press RETURN to continue."0r1:"Delete results for which user? ";:FLI,(3,"-AL-09",0),A$:(A$)08090i1|(A$W$(L)QO$:L:600:2000-/@DELETE RECORDSs/JWIND:CL$:CN$"RESULTS ARE AVAILABLE FOR"CC$CO$:0,18279,18:X0/OFCN,".RES",Y$,C:C0įCO,0,89:"There are no results on this diskette."CC$:30000:8100/TL112:CO,10,L1010:L10ĺ" ";0YL".5020.pC16500e.zGN$W$(1):L1(GN$):CH$(GN$,L,1):CH$","LN$(GN$,1,L1):SN$(GN$,L2).L:GN$SN$" "LN$:(GN$)19GN$(SN$,1)". "LN$/dBOX:CO::"One moment please...":W$(C1)R$:W$(C2)GN$:F$"NAME LIST":EC2:L1E:W$(L)QO1:"Enter number of name to delete: ";L-FLI,(2,"-09",0),A$:(A$)06000i-A((A$)):A0AC5020-ST$W$(A):200:300:W$(A)"":C2CC1:6000-LAC1:W$(L)W$(L1):L-CC1:BOX,30,20,279,138:L1C:CO,40,L1010:W$(L):L.C0"NAME LIST":EC2:L1E:W$(L)QO$W$(L)QO$:L:600:2000L,DELETE NAME,C0įBOX:CO::"There are no names on this diskette.":30000:2030&-BOX:CO:5:"(Press RETURN to continue)"CC$:3:"Note: Records for this user will also be deleted.": screen."::"Do you want to name the group? ";:36000:R$Z$:W$(C1)R$:R$"N"W$(C2)"":3095+ BOX:CO:"Enter group name: ";:FLI,(13,"-AZ-az-09 ,.'-",1),GN$:W$(C2)GN$:A$GN$:400:GN$A$:(A$)03090+ BOX:CO::"One moment please...";,F$g names? ";:36000:Z$"N"3000:* W$(C1)R$:W$(C2)GN$* FGC1W$(C1)"N":W$(C2)SN$" "PN$:(W$(C2))19W$(C2)(SN$,1)". "PN$* FGC13095`+ FG1C1įBOX:CO:"This group can be given a name which will appear on the diskette titledy been used. Please enter another name.":30000:FD1N) L:FD1CC1:3015) L12C:L21C:W$(L1)W$(L2)T$W$(L1):W$(L1)W$(L2):W$(L2)T$) L2:L1) BOX,30,20,279,138:L1C:CO,40,L1010:W$(L):L:3015* BOX:CO::"Are you done addinst name: ";:FLI,(11,"-AZ-az ,.-'",0),SN$:U((SN$,1)):A$SN$:400:SN$A$:(A$)0A$" "((U64U91))3030( CC1:W$(C)LN$", "SN$:C1įBOX,30,20,279,138:CO,30,20:W$(1):PN$LN$:30155) FD0:L1C1:W$(C)W$(L)įBOX:CO:"That name has alreaW$(L)QO$:L:600:2000(' ADD NAMES6' C2FG1E' C123085' BOX:CO:5:"(Press RETURN key to continue)"CC$:2:"Enter last name: ";:FLI,(14,"-AZ-az ,-'",0),LN$:A$LN$:400:LN$A$:(LN$)0LN$" "3080n( BOX,0,178,279,191:3:"Enter firS DISKETTE KT1U2:20000! cK= NCOPY A T$(T1) DISKETTEh *NCL$"Copy a "T$(T1)" data diskette"CC$2!4NCO,0,72:"A blank diskette (or one whose contents you no longer need) must be supplied for making a backup copy of the "T$(T1)" data diskette."::4Z$"results of student performance":CO,0,81:CEW::"This data diskette is now ready to store "Z$".":30000:ZU1:ZE0:ZEĺD$"VERIFY LOGO"D1$:GET BACK TO FIRST DRIVE:ZU0:J COPY WORD LIST DISKETTEJT1U1:20000J K COPY RESULT30000:ZD2:39000!:OK15099d:CO,0,27:CEW:CO,0,89:"Creating a "T$(T1)" data diskette...":DT$D2$:29500:ZE15099:S,T1:D$"BSAVE MECC$$DISK,A"S",L$28"D2$:S,0: ADD ANY FEATURES TO NEW T$(T1) DISKETTE HERE%:Z$"word lists":T1e? ";:36000:Z$"N"15099j:CO,0,18::CEW:CO,0,81:"Please insert a blank diskette";:(S36)1ĺ"."p::(S36)3ĺ"in the drive located at:":" Slot: "(S37):" Drive: "(S38):" Volume: "(S39):(S36)2ĺ"in drive 2.":T1U2:1500072: CREATE A T$(T1) DISKETTE_:CL$"Create a "T$(T1)" data diskette"CC$:CO,0,72:"A blank diskette (or one whose contents you no longer need) must be supplied for creating the "T$(T1)" data diskette."::"Do you want to continu press return. ";."Pressing return alone will accept the current values (or the default values if no current values exist) displayed to the right.":30000.7 CREATE WORD LIST DISKETTE7T1U1:15000w7x7 CREATE RESULTS DISKETTE 7$:DL$""DL$DF$/-CO,ZX,ZY:DL$CA$;:CEL:5.Q|.HELP FOR SPECIAL SETUPy.CL$"Special Disk Drive Setup"CC$:.:"To change the slot, drive or volume of the drive to hold the "T$(U1)" and "T$(U2)" data diskettes, type the desired number andok for your "T$(U1)" and "T$(U2)" diskettes in:":CO,0,153:"Is this correct? ";:36000:CO,0,144::CEL:Z$"N"11020R+S37,SL:S38,DR:S39,VO[+- SLOT,DRIVE,VOL INPUT-L$CA$;:GCP,ZX,ZY:CO,105,ZY:"["DF$"]":CO,ZX,ZY:INP,(M,I$,0),DL:L$" Slot: ":DF$((956)):11700:SL(DL$)p+M1:I$"12":L$" Drive: ":DF$((957)):11700:DR(DL$)+M3:I$"-09":L$" Volume: ":DF$((958)):11700:VO(DL$):VO255VO254:CO,ZX,ZY:VOv+CEW:CO,0,99:CEL:CO,0,90:CEL:N$" will lo+CL$"Special Disk Drive Setup"CC$:::"Your PROGRAM diskette was started from:"::" Slot: "(953):" Drive: "(954):" Volume: "(955) +CO,0,99:CEL:CO,0,90:CEL:"Where will your "T$(U1)" and "T$(U2)" diskettes be?"0+:M1:I$"-37"ontroller card), use "QU$"Select special disk drive setup."QU$*:"This option will ask you for the slot, drive, and volume where your "T$(U1)" and "T$(U2)" data diskettes will be located. ";*30000** SPECIAL DISK DRIVE SETUP*11900elp"CC$::*"This menu asks how many disk drives you are using. The current selection is displayed at the top of the screen.":*"Most users will have either one or two disk drives. ";>*"If you have a different setup (such as more than one cQ'S36,SC:T0:ZD1:WP1:34000GV'D$"BSAVE MECC$$DISK,A"S",L$28"D1$o'6000:35000:29800:WPĺCL$:CO,0,89:"You may now replace your write-protect tab.":30000s'* HELP SCREEN FOR CHANGE DISK DRIVE SETUP *CL$"Change Disk Drive Setup Hsk drives":" 3. Select special disk drive setup"O'" 4. Make no change"$':"Which number? "CA$;:GCP,ZX,ZY:CO,0,180:"Press RETURN for help.":CO,ZX,ZYB'INP,(1,"-14",0),A$:A$""İ10900:10010G'(A$)410099L'SC(A$):SC3İ11000 "a special disk drive setup ";:"(data diskette in slot "(S37)", drive "(S38)", volume "(S39)")":WINDr' CHANGE DISK DRIVE SETUP3'CL$"Change Disk Drive Setup"CC$:8000::"You may:"::" 1. Select one disk drive":" 2. Select two diand be deleted from this diskette.":10:"Do you want to continue? ";:36000:Z$"N"5000WD$"transfer":10600:C0ST06010SMT4:NT1:T(1)4:ZD2:WP1:FL1:34000:T3:ZD1:WP0:FL1:NT1:T(1)3:34000CST'L1ST:F$ST$(L)".RES":SCL$:CO,0,89:ZVZE7ĺ"The volume number of this diskette does not match the current setting.":300000ZV(ZE7):CL$:CO,0,89:"Please insert your "T$(T)" diskette for "N$;:ZC(S36):ZC2ĺ" in drive "ZD;71ZC3ZL953(ZD2)3:" in the drive Support"::"Please report this error to MECC.":30500e/U}29700:ZU1:ZE0:ZEĺD$"VERIFY LOGO"D1$/Z}T0:ZD1:WP0:34500::12:31060/Є DISK VERIFY/ՄZU1:SET,ZD:ZS654:ZV0/ڄZE0:ZEįRFL,"MECC$$DISK"ZS:38000:(TZT)(N$ZN$)34070h0OBJ":975,255:RNH,"MENU"0.} ERROR PROCESSINGS. }ZE(222):ZN(218)(219)256.}ZUZE0ZE16Ħ: ZU IS THE USER PROCESSING FLAG (FOR DOS ERRORS).(}REENTRY.<}ZE25531000.F}38304:::12:17/P}"Error "ZE" at line #"ZN".":"in DisketteRES)-y(901)ĬB-y29700:(901)2T0:ZD1:WP0:34500::S- y54915:1000-6y29700:ZU1:ZE0:ZEĺD$"VERIFY LOGO"D1$-@yZU1:T0:ZD1:WP0:34000-JyZU0:CL$:CO,0,89.Ty"Getting the menu..."::901,0:D$"BRUNSPELLUTIL.OBJ":RFL,"HPRINT.E-BAR TEXT VERSIONE,.wZF0:24:1:868:7:"Press ";:(64435)6Ğj,8w"SPACE BAR";::" to continue";,Lw16368,0:16384,128:ZP(16384):ZF(ZF1)(ZP155):ZF231000,VwZP160ZP14130540,`w16368,0::-y STANDARD ENDING ROUTINE (HI-RE PAGE 3 DRIVE SETTINGSS+t953,PS:954,PD:955,PV:956,DS:957,DD:958,DV:35000Y+gty+ht GET PAGE 3 DRIVE SETTINGS+rtPS(953):PD(954):PV(955):DS(956):DD(957):DV(958)+t+0u standard space-bar routine+:u(1):SPACE::,$w SPACDT$:ZU0:D$"DELETEHELLO"*xsZE8įCO,0,140:"Unable to create a "T$(T1)" diskette from this diskette. Be sure that your disk drive door is shut and that the diskette does not have a write-protect tab.":30000:29599*sZE32040*sZU0:+t RESTOs damaged.":30500:31000$)r32040B)NZU0:ZE29400:CPINIT:"Printer Test":UI13:J3295:(J);:::J96127:(J);:::::FEEDPOFF:24576:11:" Printer test complete.":30000WIND:CO:"Printer Support"CC$:WIND,0,20,279,191:SET NEW OPTIONSN3:"1. Apple communications boair original state (slot search)...": I0127:PPI,0:l D$"BSAVE PRINTER COMMANDS.BIN,A"PP",L128,D1"y 30000:TEST THE PRINTERBOX:9:"Please prepare your printer...":30000CL$:9:"Testing the printer...":D$"IN#0":D$"PR#0":64::GCP,X,Y:BOX,X1,Y1,X5,Y7,3H L2(P13):PP21L2:(P)CA$;:R L2:\ L1:n PRINTER TYPE :" Type of printer:"::7:L120:((PP106L));::: RETURN TO DEFAULTS # 8:"Now returning the printer settings to"::"theLĺ" Page length: ";(PP1):4 (PP2)0İ2400K$ (PP107)0İ2500X. 30000:t` PRINT SPECIAL COMMANDSj " Commands:"::CT2t L115:(PPCT)0L15:2470~ 7:"PRINT "(34)CA$;:L211:P(PPCT):CTCT1$ P0P13P32PPS 7:"The speed is set to '";SD$;"'":"(usually ";SD;" characters per second)."| :APLĺ:" Page length: ";(PP1) :(PP107)0İ2500 30000: USER SET  CO:"The current printer settings are:" :" Slot: ";(PP)128::APor a recognizable card"::"each time the diskette is started up."O H30000:^ COMM CARD 3:"This diskette is currently set up to":"expect an Apple Communications Board":"in slot #";(PP);".": SD$"LOW":SD10:(PP2)127SD$"HIGH":SD30OX:CO:ZN2000,5000,3000,4000,310401 BL00:L0M CHECK CURRENT SETTINGSl JP1((PP)0)((PP)127) JP2100,2200,2300: 4DEFAULTSB >5:"This diskette is currently set to the"::"default setting, which is to search"::"slots 1 and 2 ftings":. " 2. Change printer settings": " 3. Return printer settings to their":" original state (slot search)": " 4. Test printer settings": " 5. Return to main menu" $::"What is your choice? ";:ZB1:ZT5:37000$ 8B.OBJ"M PP(948)(949)256:CA$(1):CC$(3):CL$(12):Q$(34):VSP:HSPu D$"BLOAD PRINTER COMMANDS.BIN,A"PP WIND:CO:"Printer Support"CC$:WIND,0,20,279,191 MENU L011:BOX:CO::"You may:": " 1. Check current printer set PROGRAM: PRINTER SUPPORT<PROGRAMMER: P. BOUCHARDYCOPYRIGHT (C) MECC 1983y(LAST UPDATE: 84/08/03 SKR 2HI-RES VERSIONdINITIALIZATIONnAPL0:SET TO 1 TO ALLOW USER TO ADJUST PAPER LENGTHxD$(4): }24576:RNH,"PRUTIL      "or...":"a) Press RETURN key if finished":"b) Enter ALL to "WD$" results for all"!*1:"Enter numbers (one at a time) you want to "WD$" results for: ";!*FLI,(3,"AL-09",0),A$:(A$)0STX:12000A"\+(A$,1)"A"āL1C:ST$(L)Y$(L):BOX,36,L1098:FCN,".RES",Y$,C:C0:CO,0,89:"There are no results saved on this disk.":30000:12000 )L19:CO,10,(L10)10:" "L".":L:L1012:CO,10,(L10)10:L".":L:0,140279,140 0*L1C:CO,40,(L10)10:Y$(L):L:WIND,0,142,279,191:X0T!*BOX:3:dL DELETE RESAT3:ZD1:WP1:FL0:NT1:T(1)3:34000rL1C:F$ST$(L)".RES":D$"DELETE"F$;D1$:L|X5000) CHOOSE NAMESh)NT2:T(1)3:T(2)4:T6:ZD2:WP0:SMZD1[ )34000:CL$:CN$"RESULTS ARE AVAILABLE FOR:"CO$CC$:0,18279,1ed.":CL:LST:30000:6500c8FCN,".RES",Y2$,Y2:FD0:L21Y2:FD(Y2$(L2)ST$(L))FD:L2:FDİ500LY212FDĺCL$:CO,0,89:"There are 12 student's results saved on this diskette. Results for "ST$(L)" could not be saved.":30000:6500jFDİ600MT3:ZD1:T(1)3:NT1:WP0:FL0:34000J700:L11E:W$(L1)Y$(L1):L1xSMNT1:T(1)4:WP1:T4:FL1:ZD1:34000SMFL0:ZD2:T4:NT1:T(1)4:WP1:34000CNT,FS:FS10ĺCL$:CO,0,89:"Your disk is almost full. No more results can be savom your "T$(T)" diskette.":WP2:30000:34010>83WIND:ZU0:D8y8̈D1$",S"((953))",D"((954))",V"((955))8ֈD2$",S"((956))",D"((957))",V"((958)):D1$D2$SM18ۈ88(1);:GCP,ZX,ZY>9CO,ZX,ZY:FLI,(3,"YESNOyesnocontaining the word list in drive "ZD"."Z70,70279,70279,1050,1050,70:30000:34010i7WP340997ZT$DT$:ZD2ZT$D2$7ZE0:ZEĺD$"BSAVE MECC$$DISK,A"ZS",L$28"ZT$-8 WP(WP1):ZE4ĺCL$:CO,0,89:"Please remove the write-protect tab fre word list on.":34050z6SMįCO,13,76:"Insert the diskette ("T$(T)") to save the word list on in drive "ZD".":340506CL$:SMįCO,13,76:"Insert the diskette ("T$(T)") containing the word list."(7SMįCO,13,76:"Insert the diskette ("T$(T)") 5߄WIND,13,80,265,191:Q1ĴQ134030,34040,34040,34040u5䄺CL$:SMįCO,13,84:"Insert your "T$(T)" diskette.":340505鄭SMįCO,13,80:"Insert your "T$(T)" diskette in drive "ZD".":340506CL$:SMįCO,13,76:"Insert the diskette ("T$(T)") to save th3 ZB = MIN, ZT = MAX, ZC = C/R LEGAL (BOOLEAN)I(1);:GCP,ZX,ZYYZL((ZT))CO,ZX,ZY:INP,(ZL,N,(ZC)),ZN$:ZN(ZN$):ZCZN$""ıZNZBZNZTįCO,0,181:ZF1:"Enter a number between "ZB" and "ZT"."(3):37030 ZFįCO,0,181:CELagain? ";,y36000"6yZ$"Y"ĬU@yCL$:10:"Getting the menu..."::RNH,"MENU"q STANDARD YES-NO INPUT(1);:GCP,ZX,ZYCO,ZX,ZY:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"36020 STANDARD RANGED NUMERIC INPUT (HI-RES):50,Y1279,Y1:CEL:L(S$):K1Lq#A((S$,K,1)):PPCTK,A:A32AA64::GCP,X,Y:BOX,X1,Y1,X5,Y7,3#(A);CA$;:#K:Q$:CTCTL#0uSPACE BAR ROUTINE:u:SPACE::yENDING ROUTINE "yWIND:CL$:10:"Do you want to try %<#K1L6:(S$,K,5)"CHR$("9110GF#JK6L:(S$,J,1)")"9100iP#X$(S$,K5,JK5):X((X$))|Z#X0X127X0d#L$"":K1L$(S$,K1)n#R$"":LJR$(S$,LJ)x#S$L$(X)R$#LKLJ:9110#J#K$#13:CA$;:GCP,X,Y:0):A13Ĺ16368,0:/^(A8L0)ĺC$Q$;:8020=hA88080QrA34L198020|A32AA64::GCP,X,Y:BOX,X1,Y1,X5,Y7,3(A);::S$S$C$:8020C$" "C$;:L1S$"":8020S$(S$,L1):8020(#SCAN FOR CHR$2#L(S$):L79120"Ģ42L2:1:CA$;:CEW::L25BS$""İ9000:CTCT1:PPCT,13uL2:CTCT1:PPCT,0:PPCT1,255:PPCT2,25517:"Are the above commands correct? ";:36000L1(Z$"Y"):L1@STRING INPUTJS$"":16368,0TL(S$):C$:A(C$mands? ";:36000:Z$"N"ĹPP2,0:PP3,255:PP4,255:BOX:CO:"Please type in the special commands for your printer. Type an extra 'RETURN' when you have finished."L111:CT1L215:42L2:6:CA$;:CEW:"PRINT "Q$;:8000S$"PP,ZN:XNOT A COMM CARD~bBOX::4:"The printer interface card may be in any slot 1 - 7. (Most commonly 1 or 2.)"l9:"Which slot is your interface card in? ";:ZB1:ZT7:37000:PP,128ZNv13:"Does your printer require any special comPzBOX:3:"1. High speed (usually 30 cps)"::"2. Low speed (usually 10 cps)"9:"Which printing speed do you want"::"to use? ";:ZB1:ZT2:37000PP2,128(ZN1)14:"Which slot is the communications"::"card in? ";:ZB1:ZT7:37000 er set to produce? ";=ZB10:ZT120:ZC0:37000:PP1,ZN:KPID FIELDeZL120:PP106L,0:d10:"What printer are you making these":"settings for? ";:INP,(20,0),P$:LP(P$):LP0ınL1LP:PP106L,((P$,L,1))::pSET COMM CARD";:ZB1:ZT2:37000%ZN6000,7000BPP1,66:BOX:APLİ5100w5200:D$;"BSAVEPRINTER COMMANDS.BIN,A"PP",L128"}ADJUST PAPER LENGTH2:"The normal setting for page length is":"66 lines per page.":6:"What page length is your printrd":" (an obsolete card that is not":" compatible with the Apple //e)":"2. Any other type of printer":" interface card (e.g., parallel":" or serial, Centronics type, etc.)"::"Which type of printer interface will":"you be using? ,ZY:FLI,(3,"YESNOyesno",1),Z$:Z(Z$):Z$(Z(Z96Z123)32):Z$"Y"Z$"N"36020[(a(pp(zZN$"":Z1((ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:38020(ZT(ZS)(ӔOO,(Y$(L))739,L1019,3:CO,40,L1010::Y$(L)::L:STC:12000_"+A((A$)):A0AC10950"$,XX1:ST$(X)Y$(A):BOX,36,A109,(Y$(A))739,A1019,3:CO,40,(A10)10::Y$(A)::10950"."N 0,20,0,30,0,40,0,50,0,60,0,70,0,80,0,90,0,100@#LO",1),Z$:Z(Z$):Z$(Z(Z96Z123)32):Z$"Y"Z$"N"36020D9J9pY9zZN$"":Z19(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:380209ZT(ZS)9Ӕ:380209ZT(ZS)9Ӕxur "T$(T)" diskette ";:"in drive "ZD"."Z&0,70279,70279,1100,1100,70:30000:34010i&WP34099&ZT$D1$:ZD2ZT$D2$&ZE8ĺ"I/O Error. Please check your disk and drive.":30000:31000D' WP(WP1):ZE4ĺCL$:CO,0,89:"Please remove t4000:31000%Є;%ՄZU1:SET,ZD:ZS654:FLFLFL:34020%ڄZE0:ZEįRFL,"MECC$$DISK"ZS:38000:R0:ZL1NT:R(ZTT(ZL))R:ZL:RN$ZN$34070%䄺CL$:WIND,13,80,265,191:SMįCO,13,84:"Insert your "T$(T)" diskette."(&鄭SMįCO,13,80:"Insert yo5532090'$F}S$"DOS":ZE15S$"BASIC"p$K}ZE8ĺ"I/O Error. Please check your disk and drive.":30000:32090$P}S$" error number "ZE" at line #"ZN:"in Program Five."::"Please report this error to MECC.":30000 %Z}WP0:FL1:NT1:T(1)0:T0:ZD1:3000`0x |||| ||x|8l````|| x0p000x8pp00000xxx|| |x ````l8|x0x0x| x0`l00000000lll0`x000x|0xxx||00000 xxxxlxx x000000xx0܌x0xx0000 0``0 0xX]`000000lllXXXXX0|x<00` ``t0`0``00 00x0x00000 @0 0`xx0p0000xx 8` 8 x8x x<`x 0```xxxx| 00000`0``0`0     130,20,130,30,130,40,130,50,130,60,130,70,130,80,130,90,130,100F#0u[#:u(1):SPACE::a#y#|y35000:FL0:NT1:T0:ZD1:WP0:T(1)0:34000#y:RNH,"MENU"#}# }ZE(222):ZN(218)(219)256#}ZUZE16Ħ#(}#2}CL$:CO,0,80$<}ZE20:L1V:V$(L)NM$FD1:LV.@L:FD0330vE:D$"OPEN"NM$".REV":D$"WRITE"NM$".REV":"0":D$"CLOSE":E0:340JF$NM$".REV":700T^ CHOOSE REVIEW WORDShX0rL1E:XX1:Z$(1,X)Y$(L):Z$(2,X)Y$(L1):Z$(3,L)Y$(L2):LL2:L? :CO,0,90:QB$:VSP 9 " SET END UNDERLINEH QVQL1QAu QV(QB$)(QB$,QV,1)" "QVQV1:194{ RND NUM GEN L1M:R((1)M)1:TO(R):O(R)O(L):O(L)T:L ," REVIEW FILE 6FCN,".REV",V$,V:V0325;FDB97QB122)((QC$)97(QC$)122)įFSS,QC$," ",QL:QGQG1:QW(QG)QRQA:WD(QG)QRQL2` 160f w "UNDERLINE VSP,3 3:QL1QG:QS$(QB$,1,WD(QL)):CO,0,90:QS$CA$;:GCP,QQ,QY::QXQQ8(WD(QL)QW(QL)1):QX1ēQX,QY9QX(QA8)3,QY9(0):ER0:FL0:FG0:BL0:C0:RO0:CR0:X0:WD(0)1:QR14:QW$(0)"word.":QW$(1)"words."` c1000v " STRING SEARCH QR0:QG0:QA(Q1$) QC$" "QC$" ":FSS,QC$,Q1$,QL:QL0175W QB((QC$,QL1)):QRQRQLQA1:QC$(QC$,(QC$)(QLQA1)):(Qbe entered by first typing a ^ (Shift-N) and then the letter to be capitalized.":WIND:30000 UW$(36),S$(16),Y$(36),ST$(15),DE$(15),O(50),ER$(2,32),PS$(32),V$(12),Z$(3,50),CR$(32),WD$(16),SN$(12),LN$(12),WD(20),QW(20),RV(32)V ZCN$(14):CO$(15):U,"ASCII BOLD.FNT"33808:DFT,2,33808:AFT,2,2x PES0:D$(4):CA$(1):CL$(12):CC$(3):QO$(34):3::(64435)685 QCL$:CO,0,20:"Apple II and II+ Users"CC$] R3:12,74271,74271,12012,12012,74:WIND,20,80,272,191:CO:"Capital letters may # " DISKETTE: MASTER SPELL<" COPY SPELLING PROGRAMP" (C)MECC 1984n(" PROGRAMMER:S K RUSSELL2" LAST UPDATE:84/08/07SKR< INITIALIZATIONSF(13)(4)"MAXFILES1"K230,64:16384:32000N(975)255Č24768:975,1- ORFL  ""               2:30000:34010 3WIND:ZU0:& [ ̈D1$",S"((953))",D"((954))",V"((955)) ֈD2$",S"((956))",D"((957))",V"((958)):D1$D2$SM1  (1);:GCP,ZX,ZY !CO,ZX,ZY:FLI,(3,"YESNOyesno",1),Z$:Z(Z$):Z$(Z(Z96Z"."H8WIND:::"Do you want to do this? ";:36000:OK(Z$"Y"):390998CO,0,73:ZEĺ"This is a MECC program diskette.":39090838000:"This is the "ZN$" diskette."8OK0:::"Please choose another diskette for use.":300008ZU0: SET,ZD:ZE0:ZEįRFL,"MECC$$DISK"ZSV7vCO,0,27:CEW:L((ZE(ZS)0)(ZE6))390707CO,0,73:"WARNING:":WIND,16,90:CO:ZEĺ"You are about to erase a MECC data diskette.":39060838000:"You are about to erase a MECC "T$(ZT)" diskette for "ZN$6r EXIT: ZN$,ZT"6zZN$"":Z1W6(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:38020d6ZT(ZS)j6Ӕ6X VERIFY DISKETTE6bZS654:Z9503ZD:ZU1:ZE0:ZEĺD$"VERIFY LOGO,S"((Z))",D"((Z1))",V"((Z2))6gLZE:ZE8OK1:39099%7lD"((954))",V"((955))P5ֈD2$",S"((956))",D"((957))",V"((958))V5r5 standard yes-no input5(1);:GCP,ZX,ZY5CO,ZX,ZY:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"3602055p GET DISK NAME AND TYPE6q ENTRY:ZS0:345104 WP34599M4DR,17,017,016128:ZE0:ZEįDW,17,017,0161284WP(WP1):ZE4ė:12:"Please remove the write-protect tab":"from your "T$(T)" diskette.":WP2:30500:345104'ZU0::4 GET DRIVE STRINGS5̈D1$",S"((953))",.3Ԇ(TT1)(T1ZT)(N$ZN$)(16128)ID345703؆:11:"Please insert your "T$(T)" diskette":"for "N$;:ZC(S36):ZC2ĺ" in drive "ZD;3↭ZC3ZL953(ZD2)3:" in the drive":"located at:":" Slot: "(ZL):" Drive: "(ZL1);4".":30500000:3401023ZU0:H2Ć DISK VERIFY TEXT VERSION USED ONLY FOR COPY`2ɆZU1:SET,ZD:ZS6542ΆZE0:ZT1:ZEįDR,34,1534,1516128:ZEįRFL,"MECC$$DISK"ZS:38000:(T0)(TZT)(N$ZN$)345702ц(T2)(((T1ZT)(N$ZN$))ZE6)(16128)IB34570located at:":" Slot: "(ZL):" Drive: "(ZL1);N1".":30000:34010]1WP340991DR,17,017,016128:ZE0:ZEįDW,17,017,016128 2 WP(WP1):ZE4ĺCL$:CO,0,89:"Please remove the write-protect tab from your "T$(T)" diskette.":WP2:3} ENTRY: CALLED BY ONERRD} EXIT: MESSAGE AND RERUNS PROGRAM_} CALLS: 30000,34000 }ZE(222):ZN(218)(219)256}ZUZE16Ħ: ZU IS THE USER PROCESSING FLAG (FOR DOS ERRORS)(} PROGRAMMERS REENTRY POINT FOR BAD ERROR.2}CL$:,80,0,90,0,100TLO 130,20,130,30,130,40,130,50,130,60,130,70,130,80,130,90,130,100l0u SPACE BAR ROUTINE:u(1):SPACE::y ESC-ESC PROCESSING|y35000:FL0:T0:NT1:ZD1:WP0:34000yRNH,"MENU"} STANDARD ERROR PROCESSING (TEXT)"::" 3. Return to main menu"W:"Which number? ";:FLI,(1,"-13",1),A$:A((A$))nA1425,1050,31000 N 0,20,0,30,0,40,0,50,0,60,0,70,0,80,0,90N 136,20,136,30,136,40,136,50,136,60,136,70,136,80,136,90N 0,20,0,30,0,40,0,50,0,60,0,70,0΍ƍʍʍʍ " DISKETTE: MASTER SPELL:" PROGRAM: THREE X" PROGRAMMER:S K RUSSELLl(" (C)MECC,19842" LAST UPDATE:84/08/06SKR<F(13)(4)"MAXFILES1"K16384:230,64:24576:32000 PD$(13)(4):CL$(12):CC$(3):QO$(34):QQZU IS THE USER PROCESSING FLAG (FOR DOS ERRORS)I(} PROGRAMMER REENTRY[2}ZE255310007}ZE8ė:12:"I/O Error. Please check disk and drive.":30000:31000<}:12:"Error "ZE" at line #"ZN:"in CREATE SPELLING DISKETTE."::"Please report this!       !" X1,Y1:CEW DESCRIPTIONSZL1NP:GCP,ZX,ZY:ZY150ZYY1İ30000::CO,X1,Y1:CEWAFT,2:CN$MN$(L)CO$::" ";:GCP,ZX,ZY:WIND,ZX,ZY,279,191:L11DP:DS$(L,L1);:L1:WIND:::L:30000 SUPPORT BOOK INFOG*CL$:CO:VSP,10::"A aster Spell is a teacher's utility that allows you to create an independent SPELLING diskette that can:"::" 1) be used by up to 12 students;"" 2) be individualized;":" 3) contain up to 18 word lists;":" 4) store results.":30000:VSP CO,X1L,Y1DYLX1DXL,Y1DYLX1DXL,Y1L:1:L02:9,6L432L,6L:2352L,6L269,6L:9,183L392L,183L:2392L,183L269,183L:XGENERAL INFObAFT,2:CN$CL$TI$CC$:PA$""ĺPA$CC$lVE$CC$:CO$::GCP,X1,Y1vVSP,4:"M267,6267,32:269,6269,33:267,159267,185:269,158269,185o6:X10:Y10:X2278:Y2191:DX18:DY12:L02+X1DXL,Y1LX2DXL,Y1LX2DXL,Y1DYLX2L,Y1DYLX2L,Y2DYLX2DXL,Y2DYLX2DXL,Y2LX1DXL,Y2LX1DXL,Y2DYLX1L,Y2DYL...":RNH,F2$#END OPTIONOCL$:11:"Insert another diskette."CC$_30000:CL$CS(P(P(999))1)16: SLOT #CS1CS7CS6CSp BORDERz4:21,021,191=1:9,69,33:11,611,32:9,1589,185:11,15911,185:tions":F2$"MANAGEMENT"O AS(3)F1$"Printer Support":F2$"PRINTER SUPPORT" AS(4)F1$"Diskette Support":F2$"DISKETTE SUPPORT" AS(6)5000  16384 A0ANPF1$MN$(A):F2$CN$(A) CL$:HSP:VSP:CO,0,89:"One moment please(6)N:N". End" : :GCP,ZX,ZY:ZY160įCO,ZX,ZY4b "Which number? ";:9000:CO$:WINDz AS(1)İ7000:2000 MOA1ĺCL$:VSP,8:CO,0,75:"There are no management options available.":30000:2000 AS(2)A1F1$"the management opO:"Teacher Utilities:"? :L1NP:2(L9):L". "MN$(L)::O "Other:": NNP1:2(N9):S(1)N:N". General Information"  *NN1:2(N9):S(3)N:N". Printer Support" 4NN1:2(N9):S(4)N:N". Diskette Support" HNN1:2(N9):SATA STATEMENTS ARE AT 50000- DISPLAY MENUK (975)255Č24768:975,1 230,64:24576:DFT,2,35598:AFT,2:DFT,1,15128:AFT,1:CO$:HSP:VSP:WIND CL$:6000:CO,0,MT:CN$TI$CC$:PA$""ĺPA$CC$ AFT,2:CN$:GCP,ZX,ZY:WIND,ML,ZYSP,270:C0 P(S)(S)(S1)256W RFL,"ASCII BOLD.PFT"35598:RFL,"HEADLINE.FNT"15128] Lp VNP5:DP1:MO0 `TITLE$"Master Spell":PART2$"":VE$"Version 1.0" jMN$(NP),CN$(NP),DS$(NP,DP) tL1NP:MN$(L),CN$(L):L11DP:DS$(L,L1):: ~D123)32):Z$"Y"Z$"N"36020&!,!p;!zZN$"":Z1p!(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:38020}!ZT(ZS)!Ӕ5W MASTER SPELL&PROGRAM: MENUCPROGRAMMER: P. BOUCHARDa(COPYRIGHT (C) MECC, 19842LAST UPDATE: 84/07/19 SKRZ32000INITIALIZATION15128CA$(1):CC$(3):D$(13)(4):CL$(12):CN$(14):CO$(15) MT13:ML37:SP" " """""""""     E#vE0āI1E:QO$;Y$(I);QO$:I4D$"CLOSE"F$:L FILE READER^:D$"OPEN"F$sD$" READ "F$:EE0āI1E:Y$(I):ID$"CLOSE"F$  WORD LISTS*3:CL$:WIND:CN$"WORD LISTS"CC$CO$:0,20279,204FCN,".WORD",Y$,=*`~|L1M:WD$(O(L))Z$(1,O(L)):S$(O(L))Z$(2,O(L)):L:R$"Y":XMEXREMOVE SPACESeLA(A$)(A$,1)" "LALA1:LA0A$(A$,LA):420(A$,1)" "LALA1:LA0A$(A$,LA):430X FILE WRITERbD$"OPEN"F$lD$"WRITE"F$: