' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` @@>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`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- (   Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`  d ֠z# u@ENU PROGRAM...":(4);"RUN HELLO"> ::::::::::::::::::::::::]DISPLAY TEXT & FIND PLACEc~N11:N223:LN101580"N1LN9:N2LN13'N2NXN2NX:N1NX22,M1:NN1N2:1:M:C$(N);:MM1:N6NZN11:ZZNX23:LNN11:CH1:?PLEASE CONTINUE."::"(PAGE #";RR;")":N11000:N?s::100Yw:::::::::::::::::::::i CONTINUE?::"DO YOU WANT TO QUIT PROGRAM? ";Y$Y$"Y"1530:"CLEARING MEMORY...":N1ZZ23:C$(N)"":N:Z(0)80!::10:"GETTING MTHAT YOU WANT TO SAVE? ";Y$:Y$"N"1380OP:10:"SAVING TEXT TO DISK...."fU:"(PAGE ";RR;")"uZRA2:2100dRRRR1:LN0:SS0:CH0:PG0iN1MX23:C$(N)"":N:Z(0): REMOVE DEADWOOD jNZ0:ZZ0kEF01650: EDIT FLAG2n:10:"23:"HIT ANY KEY TO GO ON ";:A$(:"TO ESCAPE FROM THE PROGRAM AND SAVE THE CURRENT STATE OF THE PUZZLE, PRESS AND HOLD DOWN SWITCH#2 WHEN THE ALPHABET ARRAY IS PRESENT.":::LBY REFERRING TO THE BOOK FOR CLUES AND USING THE SCREEN AS THE WRITING MEDIUM.":"THE WORK MAY BE DONE USING TWO SWITCHES.SWITCH#1 IS USED FOR SCANNING AND MOVINGTHE CURSOR. SWITCH#2 IS USED TO MARK THECURSOR POSITION WHEN APPRORIATE.""T TO BE USED WITH A BOOK OF CROSSWORD PUZZLES."::"BY USING THE PUZZLE WRITER PROGRAM, THE FORMAT OF PUZZLES FROM THE BOOK IS SAVEDON DISK, WHICH WILL ALLOW THE COMPUTER "Z"TO RECONSTRUCT THE PUZZLE ON THE SCREEN"::"THEN THE PUZZLE MAY BE WORKED "'";:4480#v(("A")1A(H,V));.C1ĺ>C2ĺ" ";TH:C2ĺ" ":" "[VmC2Ċ0:4495D$;"CLOSE C-SAVE"16304,0:HHS:VVS:4100 INSTRUCTIONS::" *** CROSSWORD PUZZLE *** ":"THIS PROGRAM IS MEANOUT."::"IF NOT, WAIT"+D(SA)1274420MXT10TT:DF1:1500:OP14455ab16304,0:1200ygC2ĊSLOTPF:4460iD$;"OPEN C-SAVE,L200"jD$;"WRITE C-SAVE,R";RRkDDl:V1DD:H1DD:2V:3H:A(H,V)44ĺ"*";:4480 qA(H,V)39ĺF1N1TT9:N:4230)XF14230/: SAVE:::"DOUBLE-CHECK: HIT THE SWITCH AGAIN IF YOU WANT TO SAVE."::"IF NOT, WAIT"D$;"MON I,C,O"44200PRINT::::"DOUBLE-CHECK: HIT THE SWITCH AGAIN IF YOU WANT A PRINT-XFFFQF1-DF1:TTT:1500:OP04238CN13:Z(SP):N^DIDI1HF:DI4DID0h4220wOP34270SF1ıHH(DI2)(DI4):VV(DI3)(DI1):V1V1H1H1HDDHDDVDDVDD1980:1960A(H,V)44X MF0HSH:VSV/"C11200,4300,4400N6AA(H,V):1660:1980:1200[h CURSORvrB$" CURSOR":1900wH(DD2):V(DD2):1960xA(H,V)44XF1yD01HF:DID0|XXX:YYY:AAA:FFXF:XF0:X5:Y190:ADII0:1980:XXX:YYY:AAA:,VD$;"CLOSE ";V$!216,0*230d216,0:(13);D$;"CLOSE"::RR;" IS NOT ON THIS DISK"p:4030| MENU  AA(H,V):1660:1980B$"NEXT SAVE PRINT":1900C0:SM92:LN55WF1:1500MF1:RF1:DF0:WF0:T2TT:1563"E":3007 NNN::"ENTER NEW WORDS"::NNN1000:856384)1282040X16368,0hR$"E":300 NNN::"ENTER NEW WORDS"::NNN1000:85S ONE AT A TIME,AS IN THE WRITE FUNCTION":"WHEN FINISHED,ENTER THE WORD 'END'. THE NEW LIST WILL BE SAVED TO THE DISK"::"TO MAKE ANY CHANGES,USE THE EDIT FUNCTION"23:" - - - HIT ANY KEY TO GO ON - - -"A$16368,0R$N." q:8v:" - - - HIT ANY KEY TO GO ON - - -"IKY(16384)QA$_16368,0g44{ ADD ONTO LIST)::"+ + INSTRUCTIONS FOR ADD-ON FUNCTION + +":"THE OLD LIST WILL BE LOADED FROM THE DISK. TO ADD ON TO THE LIST,ENTER WORDTIONS FOR WRITE FUNCTION + +"%:N:"TO BEGIN THE LIST, TYPE EACH ENTRY":"(WORD), THEN HIT 'RETURN'. WHEN DONE,":"TYPE 'END'."X:"LATER, TO CHANGE, ADD TO, OR DELETE":"WORDS IN THE LIST, USE THE 'EDIT,'":"RATHER THAN THE 'WRITE,' FUNCTIO"/";: NORMAL SCAN:V1SV:H11:">";:R1:C1HQF0:DF0WMF11800yWF1:T1.5TT:1500:WF0:TTT1500OP21700R0R0 GET CHARACTER,CHECK IF SPECIAL 1700NSQ11:SQ$(N)A$(JA,R,C)1770:A%6,72:A%7,152:A%8,72:A%9,96-(.'A%A(8'N13:(7);:J(B'100-'"+++++++++++++++++++++++++++++++++++++"m'""BETWEEN THE INSTRUCTIONS AND THE REST OF THE WORKSHEET"''23:"HIT 'RETURN' TO BEGIN..."',A$:'' ONERR HANDLING''A%2256816%($'A%,104:A%1,168:A%2,104:A%3,162:A%4,250:A%5,154LL OPTION TO VIEW THE ENTIRE WORKSHEET WHEN IT IS TOO LONG TO FIT ON THE SCREEN."]& ':"TO KEEP A BLOCK OF INSTRUCTIONS AT THE BEGINNING OF THE WORKSHEET FROM SCROLLING WHEN USED IN THE PHONICS MACHINE PROGRAM, PRINT THE LINE :": OPEN,CLOSE (ADD OR REMOVE LINES) "?%b%" RIGHT ARROW : UNDERLINE":%" CTRL-N : GO TO NEXT PAGE."::" CTRL-Q : QUIT"%23%A$::3W&"IN THE PHONICS MACHINE PROGRAM, THE STUDENT MAY USE THE SCRO3G$"THE FOLLOWING CONTROL CODES ARE USED WITHIN THE PROGRAM:":$" ESC-I,J,K,M : MOVE CURSOR UP,LEFT, RIGHT,DOWN"::" CTRL-S,Z : SCROLL & REVERSE":$" CTRL-I,D : INSERT,DELETE LETTER"$9%" CTRL-O,C IDENTIFIED BY:"::" 1) WORKBOOK NAME":" 2) PAGE NUMBER"#:"THE OPTIONS W,R,C ALLOW THE USER TO:"::" W:WRITE NEW WORKSHEETS"::" R:REVIEW AND EDIT EXISTING WORKSHEETS"::" C:COPY WORKSHEETS FROM ONE DISK"#" TO ANOTHER"$23:A$::"+++++++++++++++++++++++++++++++++++++"."V G"::::::::::::::::::::Z" INSTRUCTIONS`"j"::""* * * PHONICS WORKSHEET WRITER * * *"":;#"THIS PROGRAM ALLOWS WORKSHEETS TO BE WRITTEN AND SAVED ON DISK. "::"EACH WORKSHEET IS ::::::::::::::!! DETERMINE RX-! RA3ıO! N1NX:(C$(N),8)MRK$2330]! N:RX1:! RXN:NXNX1:NRXNX:C$(N)C$(N1):N!$ !- ::::::::::::::!. DISPLAY RX!3 RA2ı!8 RX4ı!B NXNX1:NNXRX11:C$(N)C$(N1):N("L C$(RX)$;" ,R";RR1 A$:RX NX2 N1NX:1:N< 2350Q D$;"CLOSE ";BN$\ 216,0n RA1665,1770 216,0::10:"PAGE #";RR;" OF ";BN$:"ISN'T ON THIS DISK" ::"DO YOU WANT ANOTHER PAGE? ";Y$:Y$"N"1500 RA1630,1730!:::::::;"CLOSE ";BN$k216,0/pRA1290,1380,1795z216,0::10:"UNABLE TO WRITE TO THIS DISK "::"HIT 'RETURN' TO TRY AGAIN "A$:2100::::::::::::::::::::: READ RECORD FROM DISK2270D$;"OPEN ";BN$;" ,L";RL D$;"READ ";BNTAL LINES IN RR RX =#NON-SCROLLING `3:::::::::::::::::::::{4 SAVE RECORD TO DISK 6230092170>D$;"OPEN ";BN$;" ,L";RLHD$;"WRITE ";BN$;" ,R";RR1MBN$:RXRNX\N1NX:C$(N):N fD$:::::::::::::::::::::= DISK ROUTINES TEXT STORED UNDER NAME OF BOOK IN RECORDS APPROX 3 SCREEN PAGES F BN$=BOOK NAME RL =RECORD LENGTH RR =RECORD # NX =TOT RETURN ":"(ENTER 'Q' TO QUIT )";Y$:Y$"Q"1500h:"WORKBOOK -- ";BN$::"LOADING PAGE ";RR;"..."wRA2:2200:5:"INSERT COPY DISK AND HIT RETURN ";A$::"WORKBOOK -- ";BN$::"SAVING PAGE ";RR;"..."RA3:2100RRRR1:1740 PAGE ";RR;"..."|RA1:22003LN2:1550:100K:::::::::::::::::::V COPY_:8"WHAT IS THE NAME OF THE WORKBOOK YOU WANT TO COPY? ";BN$:"WHAT PAGE # DO YOU WANT TO START WITH? ";RR2:5:"INSERT ORIGINAL DISK AND HI:::::::::::::::::::%@ SET UP EDIT.EEF17J:8sT"WHAT IS THE NAME OF THE WORKBOOK YOU AREUSING? ";BN$^:"WHAT PAGE # DO YOU WANT TO SEE? ";RRq:::::::::::::::::::::::rLOAD & START FROM TOPw:8:"WORKBOOK -- ";BN$::"LOADING2)(DI4):VV(DI3)(DI1):VVMVVM3'H1H1B'H40H40V'EF1UF04280f'SYF14295u'HF14250'V19V19'VV:HH:875:V:H:875'VVV:HHH'N1TT12(DI1DI3HF1):N:4230'24:1:" ";:(1665:1660:875:0&h CURSOR-&r1950:22:14:"*CURSOR*"F&wVVV:HHH:V:H:875X&yD01HF:DID0l&|24:1:V$(DI);u&QF1&DF1:TTT(13HF):1500:OP04238&N13:Z(SP):N&DIDI1HF:DI4DID0&4220&OP34270&SF1ı&'HH(DI* ";:N%1:1%657.%(37)QV4040Y%V1:H1:VM1:QT1:QV1:QB19:VE1:HB1s%FF1:FL19:RR1:SS19~% MENU% JA0:1600%JA0:1700:K1NS:A$(JA,R,C)SP$(K)4120%K%K4400,3000,4500,3100,4600,3200,4700,3400,4800&"4100:NF0:$$ 2770:FLSSNF1:3420-$ NF0]$ 1950:"CAN'T FIND NEXT BLANK":N11000:Ni$ JA1ġo$ $ INPUT FROM KEYBOARD$:23:"TYPE IN WORKSHEET: WHEN CURSOR GOES BELOW LINE, PROGRAM WILL BEGIN "$QV20%QV:1:N110:" *#\ N2:2700:BF13455&#] NF0:HZH8#^ 2515:VEVE1J#_ HZHB23410X#` L43410h#a VVE:HHB1#f N0:NF1:2700:NF0:(CNT)L13410#h VQB13440#k SK12:2770:N1300:N,SK:VEVE2#p VVE:HHB2:1660:875#u SF1ı$z NF1:440MOVING CURSOR WILL LEAVE A LINE UNTIL SECOND SWITCH IS HIT.";I" HF1Y" 4215:1666p" (SB)127KF3330z" VMQV" UFU:HF1:4215:UF0:HF0:1665:"H FILL IN NEXT BLANK"M VVE:HHB:3420: IF ORIGINAL LINE BLANK?"R VVE:HHB"W VV1HB ! 1660:A$(JA,R,C);:MB$;*! 2515:! HHS:VVS:N! 2500:L03245X! 3200h! UNDERLINEx! VQB3310! 1950:HZH:UF1:34,QT:35,QB:3025::UF0:HHZ:VQB:VEVE1@" 1950:"USE CURSOR TO SHOW WHERE TO START UNDERLINING. THEN $(KE);:KEKE1:3110$ X VVZ:HHZ:4 ] 2500:3110= b AF0M d 2600:3110\ g AF1:3172d l U1t n 3300:3110 q U2:3182 v 2800:KE0:3110 PREFIXES VSV:HSH:VVE:HHB1:2515:HHB 1666:JA3:1600 1750:1665:N53250! HEKE1:VVE:HHB:2515:ME$(KE)MB$8( HHB:VVE1:1667M+ 1950:JA4:1600]0 1750:1665k5 N53165: N83170,3175,3180,3185,3190,3160,3150,3155N 4400:3110S ERASEU VV1:HHB1:1660:NHB1HE1:" ";:N V 1660:KEKE(KE1):ME FFRR30101 VQB:NFL:35,24:3090:35,QB: 906N FFFF1:FLFL1d QT1:1:C$(FF);n 3010 V:1:884:125,0:126,2:C$(N): DIVIDE INTO SYLLABLES,UNDERLINE,ETC. KE0! VZV:HZH# VEQT1HB2QT0VEQT:2800"& K *** SCROLL ***"@ HF1:SF1:4220:HF0:SF0:OP33019n :VEVEFZFF:QT1VEVEQBVEQT1:HB2t  34,QT:35,QB DI33050 FLSS3010 VQT1:NFF:3090:912 FFFF1:FLFL1 QB:1:C$(FL); UF1ı 3010 NUMBER HHB1:VVE% N1:27004 BF12825= NF0Q N0:2700:2515] VQBıq 2770:VEVE1: 2770:FLSSNF1:2812 NF0 1950:"CANT FIND NEXT NUMBER":N11000:N: SCROLL FZFF:UF0 D01:DI1 1950:" 1:LTHGTH1 BTM,QB1 GTH,MN(N):LTH,MX(N); 1660I 7723NFf V(37)1:H(36)1:BF0u VQBBF1{  SCROLL ONE LINE UF1:34,QT:35,QB:3025::UF0:H1:VQB N1KE:VE(N)VE(N)1:N  FIND WORD FOLLOWING NEXT4217:HF0:SYF04 2620;7 KEKE1:VE(KE)VE:HE(KE)H1n< 1665:VVE:HH1:LHEH:L(1AF)L1(MB$)ıxA 1660F AF0ĺ"-";P AF1ĺ"'";R L02650U (MB$,L);Z 2515: FIND NEXT WORD,#,OR ---  CNT2563:BTMCNT1:GTHBTM END OF WORD! 4215:1660:875C 1660:846:125,0:126,2:MB$s HE(36)1:L(MB$):LL1:L0MB$(MB$,L) HBHEL1:HB1HB1 VEV ( INSERT (DIVIDE,ACCENT)) VVE:HHB* 2515- VVE1:HHB:HHH:VVV2 1667:SYF1:HF1:N / INPUT FROM KEYBOARD,MORSE,ETC.= 16368,0bG$:G$;:M(G$):NM497(M64)yN0NKA(JA)1810&C(NCX):RNCCX+N1500:N:(8);(8);" ";0 CLEAR BOTTOM OF SCREENN24211:N:1:868:N:  FINDǍččӍӍčǍӍčӮӍčǍčӍǍčǍҍ ŠĠϠȠؠӠĠӍĠԠħŠŠԠĠҠȠƠōǠĹA%,104:A%1,168:A%2,104:A%3,162:A%4,250:A%5,154:A%6,72:A%7,152:A%8,72:A%9,96f3.'A%z38'N13:(7);:3B'4100 ERASE21950:"USE CURSOR TO SHOW WHERE TO START ERASING. THEN MOVING CURSOR WILL ERASE UNTIL SECOND SWICH IS HIT.";24215:16662(SB)127KF48302VMQV2EF1:4215:EF0:1665:2' ONERR HANDLING2'A%2256816^3$'E"(1:"XXX":RR:SS:N1SS:C$(N):N91D$;"CLOSE "K1KB$"K"4780g1:"NEXT PAGE #?? ";A:1"ONE MOMENT PLEASE"1N1SS:C$(N)"":N:Z(0)1AAA012201"KEYBOARD OR DISK INPUT? (K/D) ";KB$:KB$"D"47401::40002E PRINTER? ";Y$:PF(Y$"Y")-0cPF04720B0f(4);"PR#";SLOT[0p:N1SS:XT$;C$(N)m0uM1100:M,N~0z(4);"PR#0"0{::"DO YOU WANT TO SAVE THIS PAGE ON THE DISK? ";Y$:Y$"N"47390|D$;"OPEN ";BN$;"-SAVE"1D$;"WRITE ";BN$;"-SAV16:Z(SP):N:"/[1660:875:./\ PRINTF/](16287)1274701/^1950::"DO YOU WANT TO STOP??":" YES - HIT SWITCH NO - WAIT";/_T15TT:DF1:1500:DF0:OP0ı/aNFFFL:VQT1NFF:3090:N0b:10:"DO YOU WANT A PRINTOUT ON TH9.14699:4635.4 DONE,.6HHZ:VVZ:6.> (>)F.@4690:4635R.C ERASEh.EKE0İ4699:4635.HVVE(KE):HHE(KE):KEKE1:1665:4699:4635.M NEXT --.NSF1:3400:SF0:KE30KE0.OMF04635.P4627.R (>)/WHF1:4215:HF0:N = ERASE 'CTRL-A'=MENU";:4635.-JA1:1600G-VEV:HBH:MF04640q-G$:4699:N411:(G$)GA(N)4645-N:1660:G$;:4655- 1750:4699-%N14650,4670,4685,4675,4660-*1660:A$(JA,R,C);./KEKE1:VE(KE)V:HE(KE)H:HH1:H39H315:HHE$,1660:(MB$,1);:HH1:4, SPELLING=,KE0k,1950:" SHOW WHERE TO START SPELLING", V1:H1:N2:2700:VV(V1):HH1, VZV:HZH:4215,HHH-MF1İ1950:23:1:"SPECIAL: 'RETURN' = NEXT--- 'ESC'=MOVE 'BCKSP'V+VVS:HHS:4+1665:N44570,4550,4580,4560D+1666:4520\+ DROP FINAL LETTERh+HH1:+ CHANGE FINAL LETTER TO 'I'+HH1:1660:"I";:HH1:+ FIND WORD+2500:HHE:VVE:L0ġ++ DOUBLE FINAL LETTER,HH1:2515 *l1660:N1L:(MB$,N,1);3*nM120T:M,NM*qVE(37)1:HE(36)1f*rHBHEL1:HB1HB1*sH18:VV3:VQBVQB*v* SUFFIXES*VSV:HSH:VVE:HHE:1666*JA2:1600*1750:N04530*1660:A$(JA,R,C);+HE(36)1:VE,1)CM$(N)MB$(MB$,L1) )N&)&A)0 PICK UP AND SET DOWNn):1950:22:7:"INDICATE WORD OR NUMBER";)?VM1:VSV:HSH)DVV2:HH2:4215:4300)F1950:21:MB$)IV2V:H2H)MVVS:HHS:NF14460)N7:"INDICATE WHERE TO PRINT";*b42VV:HH:EF1ĺ" ";#(UF1ĺ"-";3(UF2ĺ"*";=(4255[(VV:HH:" ";:1667:4255f( MARKu(V:H:875(846:126,2:125,0:MB$:( PROCESS STRING(L(MB$)(L24390(MB$(MB$,L1)(L(MB$):L24390)N1CM:(MB$Ӎ٠ȠĠ׮ŠŠӍϠӮˠŠíŮčŠŮҠ̠ŠٮҠĬԠӠύˠΠŮŠ̠ŠנΠōɠ̠ŠҠōɠĠԠŠԠ٠̮Ҡ̠Š٠ύӮҠӠǠΠōҠŧϠȍĠՠԠϠŠōӠ׮ĠŠĠǍŠӠŠōΠӠϠϠϠōٮȠӠϠҠӮӍĠŠؠ΍ŮɠˠΠŠٍӠЮčϠӠٮŠΠΠҍĠҮŠΠĠРύŠҮҠĠԠӠǬŠԍ΍ŠĮŠΠӠǠӍǮŠĠӠčȠ׮͠ĠŠ̮ŠΠŠŠΠٍԮŠŠҠĠԍӮŠŠĠӍĠŠؠ٧ϠŠӠԍՠŠϠŠŠӍŠԠˠčŠנĠčԠĠҠԍŠĠΠĠЍčΠĠӠȠōԠԠӠŠ̬Š̠Ԡ٠ӠčŠؠӠĬӠΠٮĠŠؠ٧ϠȠƠōӮǠĠ΍ҠΠàҠԠŠȠΠҮŠĠҠŠŠӠҠӠ٠ȠӮӠΠŠӮčŠؠ٠ϠȠĠՠŮҠԠˠčРˠĠЍӠŠƠŠΠӠ͠ӠϠŠԠϠĮӍ٠ȠĮΠנŠҍŠԠĠΠԮ٠٠ٍԠؠϠՠŠΠȠĿŠŠϭԠӠŠԠǠɧŠή٠ŠӠŠҮčҍԍŠȠĠȠجčŠӠԠĠΠŠŮҮȠӠȠ٠ήӠǠӠҠΠԠŮԍҍٍԍٍҍԍٍˍč׍΍ŠŠԠĠҠȠƠōǠӮӍ͠נӠ٠ǠŠӍҧԧĠ٧ҠԠٍčԍĩŠ٠ĠŬũƍҠŮ٠ӠϠԬԩŠͮ٠ҠӠҬҩӠĮҠԠŠҬҩƍΠӮčŠōٮŠ٠ΠŠȬȩԠӍ٠ҮҠӠϠϬשӠҍŮ٠٠ӠԠˬ˩ҠǠӠĬŬĠ׬ũҠӠǠŠĬӍŠϠӠΠӠΠȍŠŠӮנōҠŠ͠ȠӠōǠƠŠŮŠӠ̬ũԠčō٠ˍŠٍҠٍŠٍŠōŠ̍ŠӠҍ٠ō̠ҍ̠ǍǠ̩ŧΠϭ٧ŠȠĠנϠӮΠˠŠĠŮΠōˠԠŠԠƠŠĬō¬ҠàҠŠŠԠӮàōӍŠˠҠŠӺϠũ§٠ͧҍ®ԩͧӠ٧ǍîōččӮŠōŠōŠōŠōŠōŠōŠōŠҠ٠ӠϠΠōҮ٠ǠӠԮŠנӠƠԠōͮ芊ǠΠҠ̮ҠԠӠРΠӠ٠ٮ؍ŠӠԠ̠ŠōӠ׬ĠŠŠӠ΍ŠӮӠ̠נӍנˠנ̍נ̠נ̍ ӠϠנӮ  ΍ˍ΍ˍЍӍ͠נӠ٠ǠŠӍӧħĠǧӠĠǍˍҠǠԠˠŠϠҠͮȠӠĠŠŠƠҠӮŠӠƠ̠ҠӮčҠŠ٠ӠˠӠ٠ҍĠȮȠԠӠĮ͠ӠӍŠŠӠٮ٠ǠӠԠŬԠŠĠԠ͍Ů͠ŠӠǮŠ٠ӠˠԍԍĠŠؠӧҍ̧ϠŠĠΠŠˮ٠ǠӠŠō٠̠ΠŠϠٮȠŠӠǮΠӠԠŠōƠӠӮӍĠȠŮĠŠčҠŠŠĠԠԠΠōˮōΠōŠԠŠԠŠōŠ͍ŠנŠԠōŮŠΠōɠĠϠҠԮӠӍΠĠӠΠҠōӍנŠŮΠŠōŠ٠ǠŠĠΠȍՠĠŠԠǧĮŠנԠŠӮŠԍ͠ĠŠΠǠӍĠȠŠĠ٠ŠĵҠ٠ӠϠΠōҮ٠ǠӠԮŠנӠƠԠōͮčӮŠŠǠΠҠ̮ҠԠӠРΠӠ٠ٮӍŠӠԠ̠ŠōӠ׬ĠŠŠӠ΍ŠӮӠ̠נӍנˠנ̍נ̠נ̍ ӠϠ               ߥ%#$(ɡɮɿ 8ɠɢ`ɠ`$(`$(ɠ LP @(ɠ`$(I(` д q`#8H $(*)+!h8"0 H $(*0" $ ` @ $`9KA(JA):R(KCC(JA)):CKRCC(JA):H1(C1)SH:V1RSVF_MF01635`CX((KA(JA)1)CC(JA))1:(8);(8);:CNRCCX:(CN497(CN8));" ";cA$(JA,R,C);:Khr CURSOR LOCATOR |V:H:1660:" ";:1660:"*";:1660: PRINTA1620E INITqJJA04:KA(JA):CC(JA):K01KA(JA):R(KCC(JA)):CKRCC(JA):A$(JA,R,C):K~LRR(JA)ROJAPA$(1,2,7)" ":T SET WINDOW AND CLEAR IF MORE THAN ONE ARRAY USEDU1950YSH(39(CC(JA)1))7^K01BAA:OP1DF1ı7V1SVR:H1SH(C1)1:" ";FOP01570WRF1WF1ıiRF1:C0C0s 1505"CCRF:RRRF:(C1CC(JA))(RRR(JA))OP2:,V1SVR:H1SH(C1)1:">";1SP16336:N16:Z(SP):N61505@ ARRAYMX(2)174:MN(2)173!"N";N<V,H:1666:HH1:2700R"####";:2:1010m SWITCH SUBROUTINESvRF0N1T:AA(16287)127:AA(BB)11540(SB)127QF1OP3:DF1AA1ıBBAA:NWF11500OP0:1550 B00 REPLACE C2$ W/ C1$"LL1(T$):NC1L1:(T$,NC,1)C2$530VNC:kNC1L$"":540}L$(T$,NC1)NCL1RT$"":550!RT$(T$,L1NC)&T$L$C$RT$:520MX(0)96128:MN(0)33128QB20MN(1)176:MX(1)185A0300480.D$;"OPEN ";BN$;",L2000"ID$;"READ ";BN$;",R";AVA$:R,SgL1S:1:LxD$;"CLOSE "1000022510000D$;"CLOSE"AAA0:"PAGE #";A;" ISN'T ON THIS DISK ":"ENTER PAGE # ";A:AAA0:4R:SSSR1QV0:QT06NR19:N:1:C$(N);:NOFFR:FL19:VER:HB2Y4100v, INPUT SAVED WORKSHEET 6D$;"OPEN ";BN$;"-SAVE"@D$;"READ ";BN$;"-SAVE"JA$:R:S:L1S:1OLTD$;"CLOSE "^225 DISK INPUTAK ON LAST WORKSHEET, ENTER '0')":" ";A:AAA0S:"ONE MOMENT PLEASE"]1605wQT0:QB19:FF1:FL19H18:VQT1 STARTKB$"K"4000400R3R1:240L1R1:C$(L):LQVR1:QTR1:QB19:RR:Lx"INPUT: RATE OF SCAN 1 SLOW--10 FAST--":"TRY 5 FOR DEMO":R:TTRAR:"INPUT WORKSHEET FROM DISK OR KEYBOARD? (D/K) ";KB$KB$"K"150:"WHAT IS THE NAME OF THE WORKBOOK YOU ARE USING? ";BN$8:"ENTER PAGE # ":"(TO CONTINUE WOR4)"<"F 3CM$(1)",":CM$(2)".":CM$(3)";":CM$(4)"?":CM$(5)":":CM5l 4N15:CM$(N)(128(CM$(N))):N 7AD$(1)"+":AD$(2)"-":AD$(3)"X" <GA(1)27:GA(2)13:GA(3)8:GA(4)01 d START h i OPTION SCANNING MF=0, MORSE MF=1 jMF0sU,Y,NXT,B,F,J,N,R,V,Z,>,C,G,K,O,S,W,SP,DN,D,H,L,P,T,X,.{ -16,4,FIND,ED,Y,ER,DROP,ING,LY,EST,DBL,FUL,S,D,Y>>I,LESS,ES," " / 6,3,FIND,UN,RE, ,ANTI,PRE 0 9,3,FIND,DIVIDE,ACCENT,NEXT#,U.LINE,****,DONE,COPY,ERASE 2V$(1)"^":V$(2)">":V$(3)"V":V$(T,U.LINE,****,NEXT#,DONE,COPY,ERASE@ %SQ16:M1SQ:SQ$(M):M (COPY,SCROLL,SUFFIX,SYLLABLE,SPELL,PREFIX,PRINT,NEXT--,ERASE )NS9:N1NS:SP$(N):N * 9,3 +NEXT--,SCROLL,SYLLABLE,COPY,SUFFIX,ERASE,SPELL,PREFIX,PRINT7 ,32,8,EE,A,E,I,M,Q,21:SV1:H218:V210= H03:V05:LS4:A01: STARTING PAGE#U V11:H18:VSV:HSH N16:H(N)312(N13(N3)):V(N)105(N3):N " 33,95,48,58,45,46 #N02:A,B:MN(N)A128:MX(N)B128:N# $>,NXT,EE,DN,FIND,DROP,DBL,Y>>I,DIVIDE,ACCEN)Z SA16287:SB16286:KY16384:K$(1)"U":K$(2)"R":K$(3)"D":K$(4)"L":K$(5)"M":BB1v B(100),B$(100),MD(100) A$(4,10,15) SQ$(20):C$(200) VV(100),H(100),LN(100),HL(100) W$(30),P$(10,50) MN(2),MX(2):RA150 H12:SH5:V1+NSLOT4:XT$"":2: SET XT$=" . . . " FOR CENTERING ON 80 COLUMN DISPLAYy1:"?";:890:126,2:125,0:C$(L)::D$"":QV8D$;"MAXFILES 1"D$;"BLOAD PHONICS SCREEN READER 5"10000 HE(50),VE(50),LE(50),KE(50),ME$(50               z #??   ٠ íӠ !ӠΠҠ"ԠҠ"ӠŠ-ˠΠҠӠ4 ӭŠ ĠˠҠ٠ՠĠ͠ ŠҠíŠϠӠ٠ȠؠŠ  ٠Ġˠ21530: SPECIAL INPUTS?-325615164,07:10CD$(4)X:D$;"RUN MENU"^NGLE BUTTON ON YOUR GAME PADDLES"M "IS ALL THAT IS NEEDED TO USE MOST OF"| "THESE PROGRAMS. STUDENTS MAY NEED SOME" "ASSISTANCE IN STARTING THE PROGRAMS." 23 "PRESS TO CONTINUE"; A$AD94096132561:(AD)8161PED"0 Z"NON-SPEAKING STUDENT, THESE PROGRAMS"Y d"DO NOT REQUIRE THE STUDENT TO USE"t n"THE APPLE KEYBOARD."| x: "THE SOFTWARE IS ALSO USEFUL FOR" "YOUNGER CHILDREN AS WELL AS" "THE DEVELOPMENTALLY DISABLED." :! "THE SIDISKETTES") "ARE AVAILABLE FOR LESS."S "CHECK WITH THE RESEARCH FOUNDATION"n "FOR CURRENT PRICES."v 23 ("PRESS TO CONTINUE "; 2A$ < F"ORIGINALLY DEVELOPED AS A TRAINING AID" P"FOR THE SEVERLY PHYSICALLY HANDICAPN" 5:"SUITE 322"4 5:"U DISTRICT BUILDING"K 5:"1107 NE 45TH"h 5:"SEATTLE, WA 98105" :5:"(206) 633-2610" : "CURRENTLY EACH DISKETTE WITH DOCUMENT" "IS $25, AND ALL 7 ARE $120." "CERTAIN COMBINATIONS OF THE 7 R VERSION IS WELCOME" B23A L"PRESS TO CONTINUE ";I VA$O `w j"SEVEN MORE RECENT DISKETTES WITH" t"NEW DOCUMENTATION MAY BE OBTAINED BY" ~"CONTACTING:" : 5:"BRUCE KLEAVELAND" 5:"WASHINGTON RESEARCH FOUNDATIO_ ACADEMICS WITH( SCANNING --< LANGUAGE ARTSBHg"ACADEMICS WITH SCANNING"~"--LANGUAGE ARTS":"DEVELOPED BY""JUDY MACDONALD AND PAUL SCHWEJDA"$:."NON-COMMERCIAL DISTRIBUTION OF THIS" 8"OLDE      (4);"RUN ";A$(N): 1NS3 2N1NS:A$(N):N<<DB COPY,AUX MAKE,HELLOjd:5:"* * * DISK UTILITIES * * *"::n"SELECT ONE: ":x" 1. COPY THIS DISK "::" 2. INITIALIZE AN AUXILIARY DISK"::" 3. RETURN TO MENU"::"??? ";N NNSN1130  `PROGROO LARGNOT  2 :8 0е`8`` TEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLF` LLLҘL   8LiF0` 8 08L ` `   e 0 Ɇ0`   e#H h  >J>LJ>LKVUL)?L`8'x0|L&HhHh VLYK'&YKxKꪽ' `Hh`80^݌Hh Ö Ö݌ Ֆ Ֆ ՖA ĖD Ė? ĖAEDE?HJ>h Ԗ Ֆ Ֆ Ֆ`HJ>݌h Hh݌`X Iɪ꽌ɵ (I٠**<%<(=о<Y < <Y <&,Y Ѝ`= <$<&<ʊ 栙 + 'A@ ?> b e=MA=>??l>2 JJJ? =? @ P >? =? @ `+>AD`꽎P) +V `꽌Iɪ꽌ɵ*<%<=( V *`     *",325615164,0: AUTOSTART CHECK BITX :2:" * * * AUXILIARY DISK * * *"`:"THIS DISK CONTAINS NO PROGRAMS"::"TO RUN PROGRAMS, INSERT A PROGRAM DISK AND HIT 'RESET'" 6B0,48: SPEEDUP INIT ;:"FORMATTING..." @B11,S2:B12,D2:B112,4:A3:INIT JA2: WRITE D,325615164,0: AUTOSTART CHECK BITX :2:" * * * AUXILIARY DISK * * *"`:: * * *"`:`: AUXILIARY DISK * * O INITIALIZE ANOTHER? ";Y$0 Y$"Y"Ĺ7,0:1606 Q , INIT,WRITE DOS,PATCHk 6B0,48: SPEEDUP INIT ;:"FORMATTING..." @(4);"INIT HELLO" JA2: WRITE DOS TA4: PATCH ^6,0:,0:9,3:A1:9,35y , INIT,WRITE DOS,PATCHT RETURN .... ";A$ :10% 300? SAVE HELLO PROGRAM Y HELLO(AUX) IMBEDDED AA6167: BEGINNING OF PROGRAM POINTER AA,1:AA1,15 (4);"SAVE HELLO" AA1,8 :"THE AUXILIARY DISK HAS BEEN INITIALIZED ":"DO YOU WANT TRAMS, BUT IS USED IN CONJUNCTION WITH DISKS WHICH DO."E ::A$ :3:"AT THIS TIME, REMOVE THE PROGRAM DISK AND INSERT A BLANK DISK"::"HIT RETURN WHEN READY ";A$ "DOUBLE CHECK-- THE DISK NOW IN THE SLOT SHOULD BE BLANK": "HIXILIARY DISK WITH ANY PROGRAM THAT WRITES AND RETRIEVES DATA FROM DISK.": x"I.E. THIS DISK CAN BE USED TO STORE:"::" DRAWINGS":" WORD LISTS":" WORKSHEETS":" TEXT FILES":9 :"THE AUXILIARY DISK DOES NOT ITSELF CONTAIN ANY PROG)' 4S1(C31):D1(C32):S2S1:D2D16 F LOAD DOSg K2,S1:3,D1:4,S2:5,D2:6,0:7,0:8,16:9,3 PAX,96:N15:AXN,0:N UA1 d:2:"* * * AUXILIARY DISK CREATE * * * "::M n"THIS PROGRAM WILL INITIALIZE A DISK TO BE USED AS AN AU(4);"MAXFILES 1"6(4);"BLOAD COPY,A$9810"U(4);"BLOAD PATCH,A$9300"i 64096:54096A038928:A1A03:A2A06:A3A09A437632:AX39244B0488172C0995 3C1(C01)256(C02):C2(C04)256(C05):C3256(C1)(C2     WRITE DOS TA4: PATCH ^A"Y"NF0:90 ! READ DOS> A0:N05:AXN,M(N):N\ :"LOADING DOS IMAGE..."y 6,0:7,0:9,3:A1:9,35 , INIT,WRITE DOS,PATCH 6B0,48: SPEEDUP INIT ;:"FORMATTING..." @B11,S2:B12,D2:B112,4:A3:INIT JA2: xSFĄ"INSERT COPY DISK AND HIT RETURN ";A$E yNF0NF1:300:125j z:"WRITING...":A2:(7)34130} }SFĺ"";"": 110 "";"";"":::"DONE":"THE DISK HAS BEEN COPIED AND VERIFIED" :"DO YOU WANT TO COPY ANOTHER DISK? ";Y$:Y$;A$ b:5b c2-SLOT1;3-DRIVE1;4-SLOT2;5-DRIVE2;6-TRACK COUNT 1;7-TRACK COUNT 2;8-NA.;9-STOP+1 d2,S1:3,D1:4,S2:5,D2:6,3:7,3:8,16:9,35 nSFĄ"INSERT ORIGINAL AND HIT RETURN ";A$ oNF0İ200:115 p:"READING...":A1 sSFĺ"":, INAL IN... SLOT # ";S1:" DRIVE# ";D1::[ 7D21D22S21S2760 <"COPY IN... SLOT # ";S2:" DRIVE# ";D2:: FSF(S1S2)(D1D2) PS116S1:S216S2 Z::SF0Ą"INSERT DISKS AND HIT RETURN "025610 96,0,0,0,0,0- S05:M(S):6 :3a " * * * DOUBLE-BOOT COPY * * *"i #: (:"PLEASE ENTER SLOT AND DRIVE NUMBERS FOR SOURCE AND DESTINATION "::"(IF SINGLE DRIVE, USE THE SAME NUMBERS FOR BOTH)":? 2"ORIG"(4);"MAXFILES 1"6(4);"BLOAD COPY,A$9810"U(4);"BLOAD PATCH,A$9300"a 25616A0925616825616:A1A03:A2A06:A3A09A49256163256:AX925616925641612: $994C=BIT MAP B011162561425611161:B19256161     V1:868:1000:850xWF11550"@ ERASE*JJ21650WTHH:V1:868:B$(NP)B$(NP)B$(P):B(P)0zVB$(P)"":NPL:H(N)H(N)1:NYV1V12^770rPP1670tPPL11665wHX:V1:868|V1V12NPP111:B(N)0ĂNPPNCH(PP)1:(NP)):B$(P)(B$(NP),LNPNP):B$(NP)(B$(NP),PNP)>B(P)1XNPL:H(N)H(N)1:NrV1V12:V1:HH:1250 SWITCH SUBROUTINEN1TA(16287)127:AAA11560AAA:NWF11510N16:Z(16336):NA0: AAA:1P2<A11400'FPP1:PLP28KB(P)11350BP1320Vx WORD DIVISIONpy1410: RESET FOLLOWSzL(A$(K)):P2L:B$(P)"":B(P)0:P:B(1)1:B$(1)A$(K)|P0L:H(P)H1P:P}B(P)1ıNPP11:B(NP)0ĂNP3LN(B$K;" ";A$(K);'N2L:B(N)0ĂN4NLĺ:B" : ";Y PRINT WORD PARTSB$(1);:N2L:B(N)1ĺ"-";B$(N);N:: SCANNINGL(A$(K))#P1(H(P):V11:"/";-TTT:WF(P1):15002H(P):V11:" ";7A1PM:1500V(M):H:" ";'A1ı: MMS1MMS1RMM1:MMM(J)MMS\1010pL PRINT CHOICESVM1MM(J):V(M):H2:C$(M,J);:M:` CLEAR CHOICESjM1MM(J):V(M):H2:868:M: PRINTOUT::PFĺ(4);"PR#";SLOT1:M5ĺ"PART OF C.W.";:865*^C$(M,J);6aC(PP)MNfPPPP1:PPL1830gkMS7:1005:M71600mpz1200::N1L:B(N)1ĺ" ";B$(N);" - ";C$(C(N),J)N(4);"PR#0":660 SCANNING(1)MS1M0 V(M):H:">";:TTT:WF,770,730,800,6701300:7607 J1:1120:J2:1100\*V2V1VV21:HH:V2:868:V2l4V1VV:14406PP1L:C(PP)6:PP9PP1>B(PP)0870HV1V12:V1:HX:B$(PP);" - ";:CH(PP)(36):1000RM71600XM8880\V1:CH(PP)WF1:1500* :VV:HH4:K;:HH:A$(K): V1VV:1402H J0:1100R 1000m M750,730,730,740,745 1200:"....";C$(M,J):(4);"PR#0" 660 KK1:KNNK1 670 KK1:K1K1 670 1300 J1:11001000:M1600"540 N NNN) &D$;"CLOSE ";V$1 0:d X"IS PRINTER TURNED ON? ";Y$:(Y$,1)"Y"PF1 b"SCANNING SPEED? ";R:TT300R l"BEGIN AT WHAT #? ";BN  MAIN PROGRAM  KBN1 KK1:KNNK1 ::"HIT SWITCH WHEN READY" OVERP  8,SYLLABLE,PREFIX,ROOT WORD,SUFFIX,PART OF COMPOUND WORD,?,ERASE,DONE{ J02:MM(J):N1MM(J):C$(N,J):N,J HAHH  INPUT VOCAB FROM DISK D$;"MON I" D$;"OPEN ";V$;",L800" D$;"READ ";V$ N11000:A$(N):A$(N)"ENDD$""3 6A$(1000),C$(10,5),B(100),B$(100),MM(5)L ;V(10),H(100),C(100)l @V12:H1:VV1:HH15:H1HH2t BV8 EHXHH3 JM010:V(M)V2M:M  5,DO,I DON'T KNOW,NO DIVISION,SKIP,BACK-UP  5,ERASE,DIVIDE AGAIN,I DON'T KNOW,DONE,START CH" 8:~ Z"PLEASE ENTER THE NUMBER OF THE WORD LISTYOU WANT TO USE. TO USE THE ORIGINAL LIST, JUST HIT 'RETURN' ";A$ _V$"VOCABULARY WA"A$ d:"WORD ATTACK PROGRAM":::"WORDS WILL NOW BE LOADED FROM DISK":N1500:N , PARAMETERS 1 SLOT4@2:::" * * * WORD ATTACK * * * ":: 7"THIS PROGRAM ALLOWS THE STUDENT TO DIVIDE WORDS INTO PARTS OR SYLLABLES ANDLABEL THESE AS 'PREFIX','SUFFIX',ETC."::"THE STUDENT OPERATES THE PROGRAM BY MEANS OF A SINGLE SWIT     DY TO COPY"::A$7hD$;"OPEN VOCABULARY ";V$;",L800"]rD$;"WRITE VOCABULARY ";V$;",R";ArK1N:A$(K):KD$;"CLOSE VOCABULARY ";V$:"COPY SAVED"::"HIT RETURN KEY TO CONTINUE":A$::20 WRITE FUNCTION::"+ + INSTRUC"Y"700130% COPY FUNCTIONKD$;"OPEN VOCABULARY ";V$;",L800"pD$;"READ VOCABULARY ";V$;",R";A~N11000A$(N):A$(N)"END"1590N6D$;"CLOSE VOCABULARY ";V$@:"INSERT NEW DISC (IF NEEDED)":"HIT RETURN KEY WHEN REA1)A$(K):K:NN12>"TYPE IN NEW ENTRY:";A$(J)?HJNNJHR800f"DELETE ENTRY? (Y/N)";Y$wY$"N"1000"ENTRY#?";JJN750KJN1:A$(K)A$(K1)K:NN1900"DO YOU WANT TO READ REVISED LIST? (Y,N)";Y$Y$ - -" 5A$616368,0!7*X3005:410R"CHANGE ENTRY?(Y/N)";Y$bY$"N"800t"ENTRY #?";J "TYPE IN NEW ENTRY:";A$(J)JNNJ750 "INSERT NEW ENTRY?(Y/N)";Y$*Y$"N"9004"ENTRY #?";J9KNJ1:A$(KA$16368,0&::::"WHEN YOU RESPOND 'N' TO 'DO YOU WANT TO":"READ REVISED LIST?', THE REVISED LIST":"WILL BE STORED AND THE OLD ONE DELETED."+::"REMEMBER--THE LIST MUST END WITH 'END'."0::::"- - HIT ANY KEY WHEN READY TO GO ONETE DELETES OLD ENTRY;THOSE BE-":" ENTRY' LOW IT MOVE UP ONE #"M"NOTE 2--IF DELETING >1 ENTRY, WORK FROM":"BOTTOM UP (DELETE ITEMS NEAREST END OF":"LIST FIRST)."::"- - HIT ANY KEY WHEN READY TO GO ON - -"KY(16384)" 'INSERT ADDS A NEW ENTRY AT DESIG-":" ENTRY' NATED SPOT, PUSHING ALL":" THOSE AFTER IT DOWN ONE #":"NOTE--IF ADDING >1 ENTRY, WORK FROM TOP":"DOWN (ADD ITEMS NEAREST THE BEGINNING":"OF THE LIST FIRST)"G:" 'DEL":"WAIT UNTIL THE ENTIRE ARRAY HAS BEEN":"READ."k :::::"- - HIT ANY KEY WHEN READY TO GO ON - -"s A$ 16368,0  :" + / + / EDITING OPTIONS + / + /":" 'CHANGE SUBSTITUTES A NEW ENTRY FOR":" ENTRY' AN OLD ONE""E"ı:200 EDIT FUNCTIONb::": : INSTRUCTIONS FOR EDIT FUNCTION : :":"I WILL ASK FOR THE BEGINNING #. THEN":"I'LL READ SLOWLY THROUGH THE LIST,":"STARTING WITH THAT #."2:"TO EDIT, HIT THE 'E' KEY AT ANY TIME OR rA$(N)"END"400 N; D$;"CLOSE VOCABULARY ";V$O D$;"MON I,C,O"U c R$"E"ı~ "BEGIN AT WHAT #?";BN : KBNN:I1400:I R$"W"1800 X(16384):16368,0:X32450 X69ı K;:4)A$(K) KR$." :::::A "- - HIT ANY KEY WHEN READY TO GO ON - -"I A$W 16368,0w , READ VOCABULARY FROM DISC 1D$;"NOMON I,C,O": 2D$;"MON I" 6D$;"OPEN VOCABULARY ";V$;",L 800" @D$;"READ VOCABULARY ";V$;",R";A hN11000:A$(N)/ / INSTRUCTIONS FOR READ FUNCTION / /": :"I WILL ASK FOR A BEGINNING #, THEN I":"WILL SLOWLY READ THROUGH THE LIST,":"STARTING AT THAT #." :"TO PAUSE IN THE READOUT, HIT THE SPACE":"BAR. TO CONTINUE THE READOUT, HIT ANY ":"KEY EXCEPT 'E'ZA$(N)"END"130, nA$(N)"REENTER"İ2503 xNZ D$;"OPEN VOCABULARY ";V$;",L 800" D$;"WRITE VOCABULARY ";V$;",R";A K1N:A$(K):K D$;"CLOSE VOCABULARY ";V$ :20 N1NN1 A$(N):  READ FUNCTION) ::" LIST, JUST HIT 'RETURN' ";A$* V$"WA"7 V$V$A$= | "READ, WRITE, EDIT, ADD-ON, OR COPY? (R/W/E/A/C) ";R$ R$"R"270 #R$"C"1500 (R$"E"510 )R$"A"2000 *R$"W"1795 +20 , PN11000 UN;:4:A$(N) 9 A$(1000):D$""0 D$;"MON I,C,O"8 :"THIS PROGRAM ALLOWS YOU TO READ,WRITE, EDIT,ADD-ON-TO, OR COPY THE WORD LISTS USED IN THE WORD ATTACK PROGRAM" :"WHAT IS THE NUMBER OF THE WORD LIST YOU WANT TO USE? TO USE THE ORIGINAL       ԍٍ̍čҍōōōōōÍǍÍٍčҍԍԍōōčԍҍōٍӍ׍ǍčǍčٍōčҍōȍōٍ΍ōōҍčӍٍԍԍԍō NPUZZLE WRITER,PHONICS MACHINE,*WORKSHEET WRITER? %*UTILITIESK 'A$(20)a (N1NS:A$(N):N 2N1NS:5:N;:8:A$(N):N 7 <K FD$"" PD$;"NOMON I,C,O" U Z"LOADING" _(A$(K),1)"*"A$(K)(A$(K),2) dD$;"RUN ";A$(K) :7 "ACADEMICS WITH SCANNING: LANGUAGE ARTS"?:b" * * * MENU * * * ":"TYPE IN THE NUMBER OF THE PROGRAM YOU":"WANT TO RUN, THEN HIT THE 'RETURN' KEY:":NS7/ WORD ATTACK,*WORD ATTACK LISTWRITER,CROSSWORD,*  ED":"? ";CF1V$"C-PUZZLES":CF2V$"C-SAVE"L:"WHICH PAGE #? ";RRW4095rD$;"OPEN ";V$;",L200"D$;"READ ";V$;",R";RRDD:V1DD:H1DD:E$:E$"'"A(H,V)39E$"*"A(H,V)44A(E$)("A")1:A0A27A(H,V)AH7XM,Y:M:4:M12:AXM,Y:M:7 CANCEL INVERSE]4:M12:37XM,Y:M:XF01950}6:M12:37XM,Y:M:XF0 INPUT PUZZLE FROM DISK :"DO YOU WANT TO:":" 1) START ON A NEW PUZZLE":" 2) CONTINUE AN OLD ONE WHICH WAS SAV75191:0,Y277,Y:YIL(B$):N1L:A((B$,N,1))("A")1:A01940jAAA0:K1SQ:ASQ(K)1937qK}ASP(K)X13(N1)2:Y188:7:M12:AXM,Y:M,N7:M12:AXM,Y:M: INVERSE1660:AA(H,V)"7:M12:3 R0:C0QF1:DF05WF1:1500:WF0:TTT.7DOP31750PR0:C0Z1580iOP21700vR0R0| SW2>>MENUN110TT:(SB)127ĂNN10TT1700QF0:4100l PRINT B$ AT BOTTOM OF SCREENn1v4:Y11WF1ıRF1:RR1" 1505N"CCRF:RRRF:(CCC)(RRR(C))OP2:},7:XX(C)9R:Y187:X,YX7RFL(C)RF,Y1N16:Z(SP):N61505r LOCATER|XLMSHHHD:YUMSVVVD:XLMSHHHE:YUMSVVVE: NORMAL SCANWF11500OP0:1550+BBAA:OP17 WF1ıCDF1ıl4:MF1ēCSM,191CSMLN,191:1560XX(C)9R(R1):Y187:X,YX7RFL(C)RF,Y(OPMF)01570OP01565CC1:C2C07:CSM,191CSMLN,191:1585 RFVANCE,SPACER2A39:13308AA(H,V):1660:1980FR11340jHH2DH:VV2DV:H0V01200t1340 SWITCH SUBROUTINESRF0N1T:AA(16287)127:AA(BB)11540(SB)127QF1OP3:DF1AA1ıBBAA:N 7BB$" ":1900:K129:X99K4((K1)5(K29)):Y185R#K4AC(K)a$K3AK3o%AX,Y:K(1700:C01400-A5(C1)(R1)21660:19807A(H,V)A<HHDH:VVDV:HDDVDDA(H,V)441200F1960:1320 x BACKSP,AD)X,YN(N2)X8,Y. FIND SQUARE84200[B$" ACROSS OR DOWN?":1900uDI2:X5:Y190:T2TTAI0DI:1980DF1:1500:OP11255N13:Z(SP):NDIDI1:DI3DI21242DH(DI2):DV(DI3) SPELLING jE1:V1E(A(H,V1)44)) oA11145H t(B1C0)(E1D0)İ1150\ yH,V:CF11200 {V1DD:H1DD:AA(H,V):A0A27İ1660:1950 |H,V }1200 ~ PRINT NUMBERS NNNN1 N1(NN10):N2NN10N1:1665:N10XX7:1180N(N11100  COLOR SQUARE b $LHSH(H1)LM:RHLHSH:UVSV(V1)UM:N1SV:LH,UVNRH,UVN:Nh )| L NUMBER BLANKS M7 VV1DD:H1DD:A(A(H,V)44) [B1:H1B(A(H1,V)44) `C1:HDDC(A(H1,V)44) eD1:VDDD(A(H,V1)44)5:RMLMDDSH:UM0:BMUMDDSV= HD112(10DD):VDDD11Q HE3SH:VE7SVZ :6h 16302,0x  DRAW GRID N0DD:VNSVUM:LM,VRM,V:N M0DD:HSHMLM:H,UMH,BM:H1,UMH1,BM:M V1DD:H1DD:A(H,V)44İ1050 H,V N0CC:RR(N):N4 1N0CC:L(N)9(RR(N)1)4:N_ 2X(0)0:N1CC:X(N)X(N1)L(N1)8:Nk STARTs :} 5000 "IS THE PRINTER ON?";Y$:Y$"Y"PF1 :"RATE (1-10) (TRY 7) ";R:TT720R 4000 SV(170DD):SH(270DD) LM(2)41:C(3)39. $CC(1),RR(6),X(6),L(6):CC5Q (36,27,28,29,30,31,32,33,34,35e )N09:N(N):Nu *A017:SQ12 +1,2,3,4,5,6,7,8,9,10,-15,16 ,N1SQ:SQ(N):N -36,27,28,29,30,31,32,33,34,35,39,38 .N1SQ:SP(N):N /2,4,4,4,4,5 0 SLOT INFO IN LINE 7::(4);"BLOAD ALPHANUM 1"L"MAXFILES 1"Z525616s232,0:233,64:1:0~D$""SLOT4 SP16336:SA16287:SB16286 TT20 I039SP(20),SQ(20) A$(20)!A(20,20) #C(3):C(1)43:C         $$$$$=$ *C--*2CC--CC$??CC$ C-- $$$$$$$$ ????, C???? -- <#)$$$$$66666  $$$$ 6666CC$$$$$,' --*26666.CCCCCCCCCCC --*26666>C$ 6$-66666!!!!!###;;CC$??6666 C !!!!<3611!' --6666??C7666. !####!!!)%$$$$<%??6666 CCC1661)-CCCCC$;?C$)-*36C--66666--$$$??6.-%5> )-C$$?66-$$$$$$CCCCC, '$$$$,56666.%$$$$,56666.$$$$$-66666$$$566666 !C$)C$??2CC$;/-C$;?%C??6666 CCCCCCCCC6.-=$66>CC??6666 C-C$?',--#;??236666!CCCC+-----$56666)-C$!!!!!!.****21 >67>>7??7??>7?>6>6?>6.6555555.CCCCCCCCC61116.CCCCCCC, $?<$''?''<$,, CC6C,CCCCCC''C$$$$$$$>677>?7''?>7 -,-,-%--,C%C$$$$6.C!$$$, >65... .65.....65.>>>676CC$$$ --666??,<''?<C$$$$---6???CC$$$ --6663;? CCC%%%-,$%CCCCCCCCCC$C$$$$---26;?7 $CC65-C2567?''>667C$$$$CCC6666 >66?''$<$,%--,$%,%%,,$-,,%'<$$7?<C$$$$--66??C$$$$---5??7*---  ------,5-...67>67>?/C$$$$---5??75CCCCCC 9??%%-,556.65656CC$$$ --5+6???CCC ??%,,,$,<<<<<<'$,$%$<<$$C$$$$ ---$$6666 666CCCC??>7777>'<$%$%,,@ 22f2e1d0c/b.a-`,_+^* ] ) C$$,CCC666CCCC???CCC?????66-,$%=>C$$$$---26;?7 16;??/----5556>6??????,,$-%%-555CC$$$ --??<'<$$$$,$%-,--.5-..-%-,-,556     D-IN SQUARESIN PUZZLE". :N1DD:A$(N):NA SAVE ON DISK\ D$;"OPEN ";V$;",L200"x D$;"WRITE ";V$;",R";RR DD:V1DD:H1DD:E$"'":(A$(V),H,1)"X"E$"*" E$:H,V D$;"CLOSE ";V$ :"ANOTHER? ";Y$:Y$"Y"ė:115D D$"":V$"C-PUZZLES".d INPUT PUZZLE6n:qs"ENTER THE PAGE# ON WHICH THIS PUZZLE APPEARS ";RRx"ASSUMING SQUARE FORMAT, ENTER DIMENSION (SINGLE DIGIT) ";DD :"ENTER ";DD;" LINES OF O'S AND X'S --":"THE X'S STAND FOR THE COLORE