8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL LL !C_" %k"l" (#M8( % ) L*"m"n" (_7, )7(P0 ( @X p 8  u"!_"f"0 ~&f"0 %o"p" (,) &q"r" ( %L*")0I0hx H( +*FOTO.FLASH1F9$)SYLLABLES*F9"(SCRAMBLE DF9 F!F'REVERSEW F9))WORD.SWAPd5F9(,SPELL.N.TIMEt"F9'-DEWEY.DECIMAL F9',CARD.CATALOG-F9%%COMMA2F9#LANGUAGE.ARTSF' &PRODOS }<F!),BASIC.SYSTEM((F!  'STARTUP=F9$ )TITLE.PAK@h Fa9 RUNPACKFF`9 $MENUH? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R %Щ ߩu"L! )L! 8'  )ɀ)4,- U JNT) u"Ls"t" ( !` ^"M)Fi/ b"3   !"#$%&آ <B*IBGF08Lé'+8H <,``h(`@ڍL3<>=?<>CAB@?A` 1 L  <>`ڢF]PL8i m L   6< L  BLRAM' hLDLHB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`eLJCAB@=?.<ʆ>,=?BC8 é&'112``* G** c*` v* G* c*`hh8`8`***`}*`e`H)hJJ*0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <ȱȱȱȱ0]cȱeem*ȱ*ȱ**ȱ**ȱ* )* * )L(`L?* *Ll) ) L( )Ll)8e` ,$`ee` < @( )m((.(( M(i  ``) |'(j21 z& {&!` ({&z&(i({&(( CBDFGE (r&$ 3(,}&r& … 3(ŅL&JJJJ`Ϡ'8`r&h)hr')L&18|&"m11 2H22h2舌|&|&12H)M0 h10200I20h2 (`LE%12 `_'"L  <8# ȱ)ɀ  )( ` (Xp0`ŠӠֱǭԠŠҬî̠ӠĮʎ1|&… (n}&Dž (\%Tz&Lc()8= (J 8'z&'{& 3((ʎ1|&|&|&3223 `=YYZLYLYLY뿭` 8!@8` %MNЩUMߩ  L 5   8 0 8  `0 / X& & +&&7&P^&  VG+ #X ɛL ' 0% '8 Jm ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8 ) ɘ"    L:#:#ŠϠĠԠ  m# m# J Qڨ)̰}] нȱ ̀𩠙 i V N c ɘ\ h"i"j" e" iL X>"L;"ίΠ`v""""""*$ Fk%YeQP!/RB}QBiBB}\ }FEL,#> ȏ6 .hh@ihAiH(ؠȱ@JJJJq@)@qvȱ@Hȱ@Ah@@cqe J) LL LJiB LJ) BxNhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJl`B g-`J,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ( ߐ ߐ  0 HϭߍLпlll IL3FHGI ҭJjHIHB>IؙJJ [: IL}HIHI`JKJK`FHIG ( Ȣ؝}؈JL)eKM`)` J vJ͛ $0 ΊJFJL8`JGBJ T(8`ؑ@`M8`8@ؐʈI묂)v8vv L} LةC8`؍)@ i)v8vyJ ^ ؅F Ls) +%J(a .FإGؐ.` .JHIH۩ ٰvw`JJJJ;i z묁͖ zٍ0  `H8` `ٍyٍiB0H0FG h0`FG `ϩBxED0C ް(`vw `ٽJJJJ`H͌hn)NjNjNjN. GH͌ z;٭ *Nۙ۰ڙک `Z8` G# ,`w .w .w .w8۰*Jv٭'ܝ٭(ܝ`)َ 8ʈ` 0ٝ)i `8`R ꍌvw zNمFمG < Ό0 FGL鮁0 ٭w٭vٽ8`H8`  ,v w 8` 1 E8`1ݺ00 ] 0ʩ 谼 谷`12)1`0`Ȏi 0U`)8`Ψ` W |G 4A)H ܝʈh٭0٭)ܝ٭*ܝ٥F٥GȱHΨ`Ί8AeHI SB60I ٙGٙEFJCʈ h猪`8m0`,0H hi PȽΨhٍ0GF8yאFG  $0 K08`܅I `L܍MN h8D`F` alH)HFȍJHGK $%܍&܍!ܢ8* J8` L ܝ:)I 'ܝ6`B8iNFLGM`B܅IH3H ( )ݰJK 밨C%܈@" T)Ii)܍N*܍A'ܮ( 4 䭐 $H %HFFHGHG 됬`R8`)` AHO` 'Q'܅IHHOOЍO@`8 ` ͉% ΉQיOʈ@mȱ@_ȱ@iklbJtKuO)5OI0ܢܽ eL'A* 7`aFG (CD Lz܅IN mAIH` pm mI0LM AOHJFKG 0NN` G8`F@ 0 H LK8`6 7I8`FHGH hGhF܌ բFܽܕF芝ܝ 밶67 8܅I m9IHHyHȘI Lܝ` @_@ g@Ю׍O)mJHi 뎁`C8` @ 3N@) K莭 ⭪i`0 ]; 뮁ٝ٘ 0 W,0 .H hȑNWȮّNW8`ٍّNΨ뎎׮Б` L ` @>O)I38 I`aם`K8`@Nȱ@O@ IiNȽבN)/ȩ/N`@[ WHJjjjhA D'KI؍0lhh8` Q)T'P#) ɺiL? )?      `l@Hȱ@IױHXATȱH ɯȩ׍̎5H)/@a)_ .0 :A[8@`, FإG`BH TFإG`,H hHB؅F  ؅GxDE؍00C ް(`(8` zL+J  :"L zH  : 9ؙ` @ P8`K8`B8` H؈OJJJJحm) ) )Ю ЪG `F $ ᭔ع+ؠ 6H  Rh8` 䮁ٽ ٬ؠ@` ( H )8`)i п` H h)N$хhꭋILhH),fx8 (8` ԍ`@Ae J m00[roIIJK,-NOPQRSu' >K@J5 {9X(K {XXK تKo`V8`no` D on {I9XX`)HJJJh`OeNeO࿰ {9XАO`@ȭ@` ON aNJKO`H݅G ` { rͬ 밽܅F݅G ` {* r% L`L뮰HH hFhG܍ݍ 8 `FHGH  hGhF`ݹܙ݊`@Bɼ`FaG 6%&N    ܮ `J HH hh` 0 @ LGL r`̴Yܝ ݝ0̴ȩFG   0` ܅F`a 밑 LȹL@ȅH@IL,0` G קּ= ]H.m)N 0 H`aO)@LP8` \᮰ ֩OCDC z L䬁yٙ٭yٙ٩`K GE@LL =@ /ȹP8` i` =ם0 /B =)( ȹ`8m8m@8` G8`F Pm)@N8`O)@J /טyרםOO)׍OꭱJJJJ Ȣ؝I؈ 6h(8H = h(8Hh(`ؑ@`@ȱ@ ` B@8ZO h鮁ٍٍٍoHٍn8bhcOJJJJO)O@` %I -m) 0@O)N8` ) ;⬂Ȣ؝z@zݚ@ʈLJ KIJHȢݚ h魚)Jn 8 δ ؍ ؍ \H8 ع)8` L )߹0 )p )@ ) ȩ ؝H0JK 방 LMJKFG 嬂؍b؍c؝d ؝_ vO) vO )حI͖ z`H@h`h``N8`  IhH  iع `  عiعi` )؍0CGHFHBFGx ް(8hFhG`@4͔ L @Ai ׭2` . R#ع؍0 ]讁)`.@+ i ؊ PLKΞʱNLMO MЈMEKݸP%MEKΞL( O, PeNNO J(` C  7 2JvHIwHI؊ LI  .` A Hv ع Hw ؙ؊ؠIhHƱ@O`؝}}vIvؐ` jzؽ}؝v j ) j؝zv؈` ` H Th)N@ ;; L  6$ )bJ ] ) H 8hL )  )حJjIwHIvHNNO 8 ؍JL`RΞʱLN1MOMEKP/MEKΞL;L-M O,p莝eNNO(`JNKOL 6/ &P L8 } [ؑJ`L@ȱ@ `@NȐ% LL L L 6 &pJ덟 )@።NJOK 6iKKΞΞ IJΟ JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@L6쬂8@   !"#$Ԡ͠(C)1983-87APPLELKL`BLL ެެެެެެެެެެެެެެެ(C)APPLE'83xLLM Mh@8nЍLޭ 0J @,,LRLG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)<0h)ύh0HHHH " ׍hhhhhhh .hh8`JIMJAYKERRY&MIKE 蝀 0Lm '    hLW(L $ ]` L  `$ i [  0 ] bȱ ]L]`ºԠōκԠō` i G ?橭 ) Ƨƨn  Т V b  u LLJR/H XLw u  u ʆ L   u ɉɛɈɋɕɊɍحa0ӭL  b 9 oXύX012)0120 X F)?i/  O O ] \ + L# L$0)Ħ 0e8V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8``8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌1֍ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` *L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| ֽ ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>P׽8H  ): e: y8鰕:Jjjj<)yאi8i;i(*=>hPם8`;Zx3QZYXXWV[HEVhEhH)IWHPHHHAHHHLaVEWLӿ``JJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""IzL')*+,-./0123456789:;j>>m>` _m8injkiljo풼i>?Ek?>Q>> L> \/ e>>?́?ޱ>ȥpnG @p;G=po:Q>>>̀ `` \> ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m};>:8o>oȑ>ppȑ>> :op`G DKJپھ pHJh` D!hgt}~p `~t}p8n~ni}tpi~~tso8pinii>j?k̈́>~|p|Ii||̈́ l - `>i>L8933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B8` K  춼LK ҟ ҟ ( KK`HJJJJ8`HK)` #hhL𚾤3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅303پھ p H־Ǿh۰8L־Jjjjɾ)Ⱦ8 ѱ OLӜ ĤLLX>(F`־ؾپھ׾` bɄ KDEF vLl v lL bKɍKL?` w  vLl@$݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O ]c־Jjjj `O>0O l PODEF޾ p ޾ p($ذ v (0 ( L?ԦʚLeةީa s  lL b,FLg,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ B94 l% bʽ  ՚,S` H EH06172839h` v97L75v^a ?/( va?LLLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b w,S0 @ lLޭBYL 8!9 詍` "  à4"/pŠϠŠà͠ӠàԠŬh,PIN'ҍIxy /L6Ix y JpnoF /= plm /w)!,ZJYH)h****)  md8幙`\H[< h  /( 载쳼󩭙L/id /`H) hJJJJ ɺi` M  ` ת.8 `O`S  AI-L9 ᪰B C VWS`޾Lp h־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`ȾɾʾNfne}ȾȾI>Ie f`8` P־ǾҾ,G0C f=W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) 5W) =)W)@! pZ}ȾȾ󰹩 p` ־ǾҾ,G 8`׾ؾ f p vۥs׾tؾE` :````M@ꪪL L@สL` #@  꺎`,UUUU# #U##,` **""" **DD*DDD |UUDDD`@UU"U  CUE, INC." > ":T 17:" THIS DISK MAY BE FREELY COPIED AND" 18:" GIVEN AWAY, BUT MAY NOT BE SOLD" 19:" OR INCLUDED AS PART OF ANY " *20:" COMMERCIAL PACKAGE WITHOUT " 421:" WRITTEN PERMISSION FROM<>R Z : , -- TITLE PAGE --C PAUSE3:(SECONDS)Y P1PAUSE700:P_  ND$"COURSEWARE LANGUAGE ARTS" 6:21(ND$)2:ND$ 10:4:"COPYRIGHT 1987, CUE, INCORPORATED" 12:11:"ALL RIGHTS RESERVED"# 15:4::"  CUE BOOT PROGRAM . :49234,0::D$(4)QD$"BLOAD RUNPACK"j(D$"BLOAD TITLE.PAK"20,0:1,97:230,64:24576<2000:-- TEXT TITLE --FD$"RUN MENU" P SOFTSWAP TITLE GRAPHIC BY JOHN FORRESTER AND HIS MOM, ROXIE FORRESTELLwLLL) `8` ԠŬLLʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,C[B?I>孓`仫6VtCicQĿUKqtVt Nֵ#ح#׮2}q :IC@@ -!S    !C- !ABELSDFRV@@ !$(19@EüϠž(+@ABCDEFGHIKLMNPSsƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPEND6D(!쫂8 ( 8о(־Ǿ,G 8`_`W)H־Jjjjh p̭ fLᶢǾ ת..8 ۭ (8mȾȾmɾɾʾiʾ` Lpl8l:/,s`p****D*  UUxp``p```p~UU""U""" |**""" ?**DD*DDD UUDDDp`UU"U`յ ****D*?ABCDE SOFTSWAP MENU .A$(20),RN$(20);49168,0\NP:N1NP:A$(N),RN$(N):Nl(1800:1820}2::V1:255<ND$"COURSEWARE LANGUAGE ARTS":1700F:23:4:"USE ARROW KEYS AND PRESS ";:P9 ZN1NP:8N:20(A$(N))2 (0 Z`нй`)JJ & & f)`  (0 Z` H  ` ` ` `h$``99`8A4LՍL~L յTNNNOO88|"`c{c|~յ#Nc꺺A#յp"y88x88xx`A@ƺ"GNA p"GG?wgGcc;scꪪp"@`@@ ?@ "?qqc? ݵյ#x`A99q9py8y@@$GNAյx"o;G8ఱꚚ"g <|\cs`$?qq ᰬ|Uxp|xđđ" յ"""*@D ర@@@DDDU~~~~~đđphhhjqq|`KDU~p```p``pxđđ ׍|* ` Uxpđđ"յ """*D~A DDDUx px|đđյp `*@@K $@ ꛀx>EEEUőő 8 @`*  ꪪxU@`đđ" `"""*D DD8x88x`x~A@檪"ANG "?GGwgGcc;scꪪ@@@99p8q3L?LR յTR@@N`ꪫ`Kx @Kյ"GG~{౮Ꚛ"fg<|\sa`$qq?NNOON 88"xc{ccp~xյ"N`బ`""y8~~~~~UU""U"""`@ 5jjbbbjjdqdjd4 LՃ#`@@@ ꪫ "qq?c? ~յ#`xq99a9@y8yA@$ANG UU pxUU""U""" **""" **DD*DDDAḫ UUDDDpxx|UU"UՍ**@**D*@OUU:A$(N);:. d:V8:20(A$(V))2:A$(V);I nK(16384):K128110u x16368,0::V8:20(A$(V))2:A$(V); K136K139VV1:V0VNP K149K138VV1:VNP1V1 K141100 K141VNP4ĉ:::(4)"RUN"RN$(V) K141VNGIJKLMNOPQRSTUES OR"4* " WORDS. THE USER (OR SOMEONE WITH "`4 " SOME PROGRAMMING SKILL) CAN MODIFY"> " THESE DATA STATEMENT LINES TO BETTER"H " SUIT YOUR NEEDS. THESE PROGRAMS ARE:"R " SPELL-N-TIME COMMA ": \ " FOTO FLASH SY. "> :" ";::"SCRAMBLE:";::" TEACHER UTILITY THAT "k " WILL SCRAMBLE A LIST OF WORDS AND " " PRINT THEM TO SCREEN OR PRINTER. " : " ";::"NOTE";::": FOUR OF THESE PROGRAMS USE " " DATA LINES FOR LISTS OF SENTENCS FLASHED IN "= " SAME OR REVERSED ORDER. CHOICE OF "g " 3-10 CHARACTERS. DATA WORD LIST."q 1000 3:" ";::"SYLLABLES:";::" SPEED DRILL TO DIVIDE " " WORDS SYLLABLES. DATA WORD LIST OF " " ABOUT 30 WORDS AT 5TH GRADE LEVELLL NUMBER. "Qv :" ";::"COMMA:";::" SPEED DRILL TO PLACE COMMAS "~ " NEEDED INTO SENTENCES. DATA LIST OF" " 10 SENTENCES AT 5TH GRADE LEVEL." :" ";::"FOTO FLASH:";::" GAME TO TYPE SEQUENCES" " (NUNBER/LETTER) OR WORDNUMBER"5: " AND CLASSIFICATIONS. ASSUMES PRIOR "bD " INSTRUCTION OF DEWEY DECIMAL SYSTEM."X :" ";::"LIBRARY SKILLS: CARD CATALOG"::" TIMED DRILL TO IDENTIFY PARTS/TYPES "b " LIBRARY CATALOG CARDS SHOWN: AUTHOR,"l " SUBJECT, TITLE, CA WORD FLASHED ON SCREEN. THE FLASH"R " TIME GETS FASTER/SLOWER FOR RIGHT/ "} " WRONG ANSWERS. MISSED WORDS SHOWN" " BY SYLLABLES. DATA WORD LISTS." 1000 & 3:" ";::"LIBRARY SKILLS: DEWEY DECIMAL"::" TIMED DRILL TO IDENTIFY CALL  " REVERSING A PORTION AT A TIME. "d :" ";::"WORD SWAP:";::" GAME TO ALPHABETIZE A" " LIST WORDS QUICKLY BY SWAPPING WORD" " PAIRS. USER SETS LIST OF 3-8 WORDS." :" ";::"SPELL-N-TIME:";::" SPEED GAME TO TYPE IN"& " AP). "z1000 : : ABOUT THESE PROGRAMS f :3:7::"COURSEWARE LANGUAGE ARTS": 5:" THERE ARE 9 PROGRAMS ON THIS DISK.":: " ";::"REVERSE:";::" STRATEGY GAME TO ORDER LIST" " OF 3-12 RANDOM LETTERS QUICKLY BY "+15::"CREDITS":>6DH:" FOR APPLESOFT AFICIONADOS, THE"sR:" COURSEWARE PROGRAMS HAVE MANY USEFUL"\:" SUBROUTINES. "f:::p" CONVERSION TO PRODOS AND 3.5 INCH "u" VERSIONS BY HAL GIBSON (SOFTSWAESE PROGRAMS FIRST APPEARED IN HIS"` :" PUBLICATION ";::" COURSEWARE MAGAZINE ";::"." :::" NOT ONLY DO THESE PROGRAMS PROVIDE " :" ENJOYABLE PRACTICE, THEY ARE ALSO " :" MODELS OF STRUCTURED PROGRAMMING. " *100043:ZZ:" ";:ZZ  : 7  -- SET WINDOW --C :1806a 32,1:33,38:34,1:35,21l ": |  CREDITS :3:15::"CREDITS": 6:" PROGRAMS ON THIS DISK WERE OBTAINED" :" FROM THE GENEROSITY OF DAN ISAACSON."% :" TH9 ZZ4ĢZZ:CUE$"CUE SOFTSWAP":21(CUE$)2:CUE$Y ZZ6ĢZZ:21(ND$)2:ND$a ZZg r :  -- SCREEN SETUP -- ::ZZ140:1:ZZ:" ";:ZZ ZZ223:40:ZZ:" ";:ZZ ZZ4011:ZZ:23:" ";:ZZ ZZ2311:1:P4ĴV(NP4)2000,4000,3000, VNP504 :? : X  -- SCREEN CLEAR --e 23:3: " PRESS ANY KEY TO CONTINUE "; 49168,0:Z$:: :  -- MENU BANNER -- :ZZ37:3:ZZ:" "LLABLES ";1000!: B -- ABOUT CUE & SOFTSWAP --`:3:15::"ABOUT CUE":5:" COMPUTER-USING EDUCATORS, INC., IS A"" NON-PROFIT EDUCATIONAL CALIFORNIA "" CORPORATION FOUNDED BY TEACHERS IN "" 1978."':" CUE HAS OVER 7000 MEMBERS THROUGHOUT"Q" THE U.S., CANADA, AND IN SEVERAL "l" FOREIGN COUNTRIES."v1000:3:15::"ABOUT CUE":5:" THE GOALS OF CUE ARE:":" * TO PROMOTE THE DEVELOPMENT AND ";"" GROWTH OF THE USE OF COVXYZ[\]^_`ab *- * REVISED VERSION *K * (C) COPYRIGHT 1987 *i * BY COMPUTER USING * * EDUCATORS, INC. * * * * ORIGINAL VERSION * * DESIGN,DOCUMENTATION * * AND PROGRAMMING *  ************************= * *[* REVERSE *y* ** ORIGINAL VERSION ** (C) COPYRIGHT 1984 ** BY SCHOOL & HOME ** COURSEWARE, INC. * * ARY SKILLS-CARD CATALOG,CARD.CATALOG7!xCOMMA,COMMAR!zFOTO FLASH,FOTO.FLASHk!|SYLLABLES,SYLLABLES!~SCRAMBLE,SCRAMBLE!+--- C R E D I T S ----+,Z!! ABOUT CUE & SOFTSWAP !,Z!! ABOUT THESE PROGRAMS !,Z"+------ Q U I T -------+,ZOG, WRITE TO:"% :" SOFTSWAP"= " PO BOX 271704"^ " CONCORD, CA 94527-1704"h 1000s : { p13 qREVERSE,REVERSE rWORD SWAP,WORD.SWAP tSPELL-N-TIME,SPELL.N.TIME uLIBRARY SKILLS-DEWEY DECIMAL,DEWEY.DECIMAL&!vLIBR:3:12::"ABOUT SOFTSWAP":Q5:" DO YOU HAVE SOMETHING TO CONTRIBUTE?"w:" SEND INQUIRIES OR DISKS TO:":" SOFTSWAP CHAIRPERSON"" CUE, INC."" P O BOX 2087"" MENLO PARK, CA 94026" :" FOR A COMPLETE CATAL" DOMAIN. IT MAY BE FREELY COPIED AND"\" GIVEN AWAY, ";::"BUT NOT SOLD";::".":" SOFTSWAP IS A NON-PROFIT SERVICE. "" ALL PROCEEDS BEYOND COSTS ARE PLOWED"" BACK INTO THE DEVELOPMENT OF NEW "" DISKS."1000!EEN AND CLEAN "?:" THE DONATIONS, AND TO DISSEMINATE "jD" COPYABLE DISKS TO EDUCATORS AT LOW"xN" COST."X1000b:3:12::"ABOUT SOFTSWAP":l5:" THIS DISK IS COPYRIGHTED BY CUE, "v" INC., AND IS NOT IN THE PUBLIC ",1000,:3:12::"ABOUT SOFTSWAP":\5:" SOFTSWAP IS A SERVICE OF CUE, INC., "" AND HAS BEEN OPERATING SINCE 1978. ":" SOFTSWAP'S MISSION IS TO SOLICIT THE"&" DONATION OF USEFUL EDUCATIONAL SOFT-"0" WARE AND DATA, TO SCRAND SPRING, AND RECEIVE "H" THE CUE NEWSLETTER SIX TIMES A YEAR."n::" TO JOIN CUE, SEND $22 TO:":" CUE, INC."" P O BOX 2087"" MENLO PARK, CA 94026"::" FOR MORE INFORMATION, CALL":" (415) 328-2248" AND"5^:" * TO PROMOTE THE PROFESSIONAL GROWTH"bh" OF ITS MEMBERS AND ALL FELLOW "wr" EDUCATORS."|1000:3:15::"ABOUT CUE":5:" OVER 2500 CUE MEMBERS ATTEND THE "" STATEWIDE CONFERENCES HELD EVERY"" FALL MPUTERS":" AND OTHER TECHNOLOGIES":" IN EDUCATION."j,:" * TO MAKE A SUBSTANTIAL CONTRIBUTION"6" TOWARD DEVELOPING AND PROVIDING "@" INFORMATION, MATERIALS, AND"J" SOFTWARE APPLICATIONS TO ALL"T" INTERESTED PERSONS; * SUPERVISION BY *; * DAN ISAACSON, PH.D. *Y !* BILL BOTZONG *w "* CHAS SWANSON, PH.D. * #* * $* REVISED BY DON BECK * %* FOR CUE, INC. 1987 * &* * ** ALL RIGHTS RF(1) 8590 :#!ZF16!ZK1(ZB$)2d !ZQ$(ZB$,ZK,1)ZQ$(ZB$,ZK1,1)ZF0l!ZK!(GT$)ZLZF1!: !ZF18500%!GT$GT$ZQ$*!ZQ$;/!:4!ZQ$(13)85209!GT$""8555>!" ";:C!:H!ZQ$(8)8555 =====================5 K61700P5:K6:; :W ======================j SUBR - GET  ====================== ZQ(16368) GT$"" : ZQ(16384) ZQ127ZQ(16368):ZQ$((16384)):8450 :" ";::(8); =============3:1:<" ";:K11N:" ";:K1:c" ";:K11N:A$(K1);" ";:K1:" ";:K11N:" ";:K1::6:K12N:"^ ";:K1:5:K12N:NB$(K1);:K1:: ===================== SUBR - PAUSEf" YOUR TIME WAS "(T)" SECONDS."1z:\22:7:"ANOTHER GAME (Y/N) ? ";:958ZL1:ZB$"YYNN":8400: GET Y OR NGT$"Y"İ9350:190GT$"N"905X19999Z:v=====================xSUBROUTINE-PRINT LISTz========K1)T$K:, CHECK FOR A WIN.5%EF0@*K1Na/A$(K)B$(K)EF1: NO WINh4Kn6:|7EF16109A WINNER.CZTMR0:8600H7800: PRINT THE LIST.R:\10:958:7:"YOU WON IN "M" MOVE";:M1ĺ"S";]"!!!":+)1648(GT$)N660?:::"OOPS! USE A NUMBER ";w"BETWEEN 2 AND "N".":958:9000:13:1:958:605MM1: ADD 1 TO NO. OF MOVES.R(GT$):REVERSE THE NUMBERS.K1(R2)T$A$(K)A$(K)A$(RK1) A$(RRINT THE LISTQo23:9:"TYPE # OR Q (TO QUIT)":9:"THEN PRESS ";yp10:1:"FOR MOVE #"M1", HOW MANY"q12:1:"LETTERS WILL YOU REVERSE (2-"N")? ";:868vZTMR1:ZB$"09QQ":ZL2:8400: GET & TIMER{GT$"Q"900:QUIT (GT$JK1N1KA$(K)B$(K)EF1: NOT IDENTICAL8LK>M:LNEF0300gV=====================X PRINT ORIGINAL LISTY AND THEN STARTZ=====================[]T0:TC0b1:1g"THE LIST IS:";:28:"TIME:"l7800: P: SORT L ARRAY.,JN1117K1JM L(K)L(K1)535mTL(K):L(K)L(K1):L(K1)TwK:J}:&STORE N LETTERS IN ALPHA SEQUENCE IN B$ ARRAY.0J1N5B$(J)C$(L(J)):J?:DCHECK FOR MIXED LISTIEF0 . :* STORE I NUMBERS IN ARRAY L>K1I:L(K)K:D:_ SCRAMBLE THE LIST L.mJI21K((1)J)1TL(J):L(J)L(K):L(K)TJ: STORE N RANDOMLY-SELECTED LETTERS IN A$ ARRAY.J1NA$(J)C$(L(J))JS,T,U,V,W,X,Y,Z$J"END OF DATA"*:E=====================_ MAKE A RANDOM LISTz=====================I0: READ DATA INTO C$ ARRAY.II1C$(I)C$(I)"END OF DATA"410II1: I IS NO. OF LETTERS IN ALPHABET :"HERE WE GO. . .";6 M0: NUMBERS OF MOVES.\ NN29:NB$(NN)" "(NN)" ":NN NN1012:NB$(NN)" "(NN):NN (: *===================== , ALPHABET DATA .===================== 6A,B,C,D,E,F,G,H,I,J,K,L,M@N,O,P,Q,R,16:9:"(C) COPYRIGHT 1984 BY"P 17:6:"SCHOOL & HOME COURSEWARE, INC." 20:4:"REVISED VERSION (C) COPYRIGHT 1987" 21:4:" BY COMPUTER USING EDUCATORS, INC." 9000 : A$(40),B$(40),NB$(15) C$(40),L(40) 9300:RULESRESERVED. *+ +* *I ,************************O -:l b ===================== d T I T L E P A G E f ===================== x }7:14:"R E V E R S E" 14:"-------------" 15:11:" ORIGINAL VERSION"# M!" ";(8);$R!(GT$)085559W!(GT$)1GT$""[\!(GT$)1GT$(GT$,(GT$)1)ea!ZQ$;kf!:k!ZQ$(27)8590p!GT$""8590u!ZK1(GT$)z!" ";(8);(8);!ZK!GT$""!:!ZTMR1İ8600!8425!=====================! SUBR - TIMER5!=====================F!ZTMR08640t!TB(37):TA(36): SAVE CURSOR LOCATION!TT.1:TC0!1:34:(T)!TA1:TB1: RESTORE CURSOR LOCATION!(#=====================)# SUBR-PRESS RETURN,#=ICROCOMPUTER,HOE,KEEL,DOG,CATMMOUSE,CHEESE,CAMERA,PITCHER,BACKHOE,MULETHIRTY-TWO,THIRTY-THREE,FOUR,HIVE,STICKS,HEAVEN,ATEMIME,SPORTY,BUN,FLU,TREE,SOAR,JIVE,KICKS,GLIB,PLATEHOUSE,CLOCK,DISK,APPLE,PRINTER,CARPET,CHAIR,AUTOMOBILE,ANT,BE AND DATA WORDS( ==============Q LIMIT YOUR WORDS TO 15 CHARACTERS!! CONTINENT,ISTHMUS,PENINSULA,EARTH,ISLAND,IS,IT GOOGLEPLEX,MANUFACTURE,STORE,GREASE,DATA,CARNEGIE TESTING,TELEVISION,RADIO,STEREOPHONIC,SPELLINGTIME,SHACK,M-"% 15:11:" ORIGINAL VERSION"I 16:9:"(C) COPYRIGHT 1984 BY"v 17:6:"SCHOOL & HOME COURSEWARE, INC." 20:4:"REVISED VERSION (C) COPYRIGHT 1987" 21:4:" BY COMPUTER USING EDUCATORS, INC." ============== WORDS PER GAME *+ ** ALL RIGHTS RESERVED. *I +* *g ,************************m .: b ===================== d T I T L E P A G E f ===================== x }7:12:"W O R D S W A P" 12:"----------------* AND PROGRAMMING *; * SUPERVISION BY *Y * DAN ISAACSON, PH.D. *w !* BILL BOTZONG * "* CHAS SWANSON, PH.D. * #* * $* REVISED BY DON BECK * %* FOR CUE, INC. 1987 * (* cefghijklmnopqrWARE, INC. *- * *K * REVISED VERSION *i * (C) COPYRIGHT 1987 * * BY COMPUTER USING * * EDUCATORS, INC. * * * * ORIGINAL VERSION * * DESIGN,DOCUMENTATION *  ************************= * *[* WORD SWAP *y* ** ORIGINAL VERSION ** CALLED 'ALPHABETIZE' ** (C) COPYRIGHT 1984 ** BY SCHOOL & HOME * * COURSEOOSE A NUMBER"::"BETWEEN 3 AND 12:";:868:19X$ZB$"09":ZL2:8400:GET RESPONSEk$(GT$)39355$(GT$)129355$N(GT$)$N RETURN TO MENU OR END N:(4)"RUN MENU"*NIN!":%t$9);::" A B C D E ":yv$:"NO DOUBT YOU WILL LIKE THIS GAME OF"::"SKILL, BUT IF YOU WANT TO QUIT,":w$"ENTER Q AS 'HOW MANY' TO REVERSE."{$9000$:$:4:"HOW MANY LETTERS DO YOU WISH":$"TO PLAY WITH?"2$1:12:"CHREVERSE."i$9000j$:Ik$:"FOR EXAMPLE, IF THE CURRENT LIST IS:"hl$:9);::" B C D E A ":n$:"AND YOU REVERSE 4 LETTERS, THE RESULT":"WILL BE:"p$:9);::" E D C B A ":q$9)" - - - -"r$:"NOW, IF YOU REVERSE 5 LETTERS, YOU WTHIS IS THE GAME OF / R E V E R S E /"\`$::"TO WIN, ALL YOU HAVE TO DO IS ARRANGE":b$"THE LIST OF LETTERS IN ALPHABETICAL":d$"ORDER FROM LEFT TO RIGHT."f$:::"TO MOVE, YOU TELL ME HOW MANY LETTERS": h$"(COUNTING FROM THE LEFT) TO ====================$-#16368,0M2#23:8:"PRESS TO CONTINUE"e4#TCTC1:TC8İ86007#Q(16384):Q1419012A#23:1:958F#R$=====================T$ RULESV$=====================Y$ZTMR0: TIMER OFF)^$::"EKLEMON,WATERMELON,PINEAPPLE,APRICOT,ORANGE,TANGERINE,LETTUCE,CELERYPARSLEY,PECAN,WALNUT,PEANUT,PEAR,PARE,PAIR,TRUNK,ROSE,LILY,DANDELIONPAINT,SHAMPOO,GLASS,CUP,SAUCER,TAPE,DRESS,SLACKS,SOCKS,SHOES,SHIRT)BLOUSE,FIG,BOX,TILE,WINDOW,SLIDE,SWING,SKATES,FILE,TYPEWRITER,KEYBOARD>)"NO MORE WORDS"N*==========^,INITIALIZEn.==========;ER$" "@R$(101),W$(8),WA$(8)J=====================READ VOCABULARY WORDS=====================R$(1411507B4:3:"+--------------+ +--------------+"p" ! THIS GAME ! ! BEST SO FAR !"" ! ! ! !"" ! TIME: ! ! TIME: !"" +--------------+ +--------------+" 7::1230$===============9TIME COMPARISONN===============n10:23:"YOU WON ";NM$;"!"12:23:"WRITE DOWN THE":14:23:"TIME ON YOUR WORK":16:23:"SHEET, THEN PRESS":18:23:"."16368,0Q(16384) Q):6:W$(W2);82000V(W2):6:W$(W1);BK61300:K6h23:15:868:ERASE INQUIRY TEXTz24:19:8688200V(W1):23:ER$;V(W2):23:ER$;:SWAP WORDS IN ARRAY W$T$W$(W1):W$(W1)W$(W2):W$(W2)T$W10NW):ZL1<8400"AW1(GT$)EF24:19:"WITH WORD NUMBER: ";OP8400]UW2(GT$)cZ:~dSWAP WORDS ON DISPLAYnV(W1):6:ER$;xV(W1):23:W$(W1);}8200:SUBR - PAUSEV(W2):6:ER$;V(W2):23:W$(W2);8200V(W1===GAME IS ON%==========TTEST IF WORDS ON DISPLAY ARE ALPHABETIZED`J1NWW$(J)WA$(J)1300:NOT IN ORDERJ:1500:FIND OUT WHICH WORD NUMBERS TO SWAP(23:15:"EXCHANGE WORD NUMBER: "; 2ZB$"1"(1411090D11:5:868/J=============BLDISPLAY WORDSUN=============oVDISPLAY WORD NUMBERS{`J1NWjV(J):3:J;".";tJv:xDISPLAY WORDSzJ1NW|V(J):6:W$(J);~J:TMR1:START TIMER=======ICAL ORDERJ1NW0W$(J)WA$(J)10887 J=:]SCRAMBLE WORDS IN ARRAY W$l$JNW11~.K((1)J)18T$W$(J):W$(J)W$(K):W$(K)T$=J>1020@16368,0A11:5:"PRESS RETURN TO CONTINUE...";BQ(16384) CQA$L1J"WA$(L)""166HWA$(L)WA$(L1)960:DON'T SWAPxT$WA$(L):WA$(L)WA$(L1):WA$(L1)T$:SWAPLJ=================CHECK RANDOM LIST================= CHECK TO SEE IF WORDS WERE ORIGINALLY IN ALPHABET*#41:26:"+----------+";?H2:26:"!TIME: !";[R3:26:"+----------+";r=================ALPHABETIZE WORDS=================J1NW:WA$(J)W$(J):J:INITIALIAZE ARRAY WA$:JNW111:BUBBLE SORT WORDS IN W========T0:ZY1#J1NW/LNJ1AR((1)L)1cT$R$(L):R$(L)R$(R):R$(R)T$W$(J)R$(L):TAKE SELECTED WORDS FROM BOTTOMJ::OF ARRAY R$ AND PUT INTO ARRAY W$================ DRAW SCORE BOARD"================HOLE NUMBER FROM 3 THROUGH 8"E:"THEN PRESS THE RETURN KEY: ";ZB$"38":ZL1: DONT ACCEPT A NUMBER LESS THAN 3 OR GREATER THAN 88400NW(GT$):NUMBER OF WORDS=============== SELECT RANDOM WORDS FOR GAME =======" PLEASE TYPE YOUR FIRST NAME, THEN"Bu:"PRESS RETURN: ";vTMR0:NW8:W10:ZL8:ZB$"AZ ":TIMER,NUMBER OF WORDS IN GAME,WORD 1{8400:SUBR - GET}NM$GT$NM$;",":"HOW MANY WORDS DO YOU WISH IN YOUR LIST?""TYPE A Wgl"WORD SWAP"*m"---------"Xn" IN THIS GAME YOU WILL ALPHABETIZE A"o:"LIST OF WORDS BY SWAPPING WORD PAIRS"p:"UNTIL THE WHOLE LIST IS IN CORRECT"q:"ALPHABETICAL ORDER."r:" * * * * * * * * * * *"s)tK):INPUT DATA WORDS9(R$(K))15R$(K)(R$(K),15)_R$(K)"NO MORE WORDS"NK1:542iKK1r510x:SET GRAPHIC LOCATIONS!J11"J5192&V(J1)J0J1J11:JV=============XGET GAME PLANZ=============10:TI$7:30:BT$)%BT017009&TBT1710?':L(ZK121c*ZK2(ZK2)1586,14:15:"A NEW FASTER,".15:15:"ELAPSED TIME!"01595214:15:868415:15:868;ZK:BTT:BT$TI$:SAVE NEW TIME 19:6:868 20:6:868G 19:6:"WOULD YOU LIKE TO TRY TO BEAT"i 20:6:"YOUR SCORE (Y,N)? "; TMR0:ZB$"YYNN":ZL1 8400 GT$"Y"704 GT$"N"1705 19:6:868 20:6:868 19:1:"END OF PROGRAM." 19999!AU-TUMN,AV-E-NUE,AV-ER-AGE,AXLE,BA-CON,BAG-GAGE,BALD,BA-NAN-A,BANDBAN-NER,BARE,BARGE,BAR-REN,BASE-MENT,BASS,BAT-TLE,BEACHBEAST,BEAU-TY,BEEF,BE-GIN-NING,BE-HAVE,BE-LIEVE,BELT,BI-CY-CLEBLAN-KET"NO MORE WORDS"================== WORDS PER GAME &/ DATA WORDSL ======================o NW10:NUMBER OF WORDS IN GAME A-BAN-DON,AC-CI-DENT,AC-CUS-TOMED,AD-DI-TION,AD-DRESS,AIL-MENT AL-TI-TUDE,A-MER-I-CAN,AP-PLAUD,A-PRON,AT-MOS-PHERE,AUNT,AU-TO-MAT-ICFIGINAL VERSION"5 16:9:"(C) COPYRIGHT 1984 BY"b 17:6:"SCHOOL & HOME COURSEWARE, INC." 20:4:"REVISED VERSION (C) COPYRIGHT 1987" 21:4:" BY COMPUTER USING EDUCATORS, INC." 9000 R$(101),MW$(100) ======================RESERVED. *+ +* *I ,************************O .:l b ===================== d T I T L E P A G E f ===================== x }7:9:"S P E L L - N - T I M E" 9:"-----------------------" 15:11:" OR* SUPERVISION BY *; * DAN ISAACSON, PH.D. *Y !* BILL BOTZONG *w "* CHAS SWANSON, PH.D. * #* * $* REVISED BY DON BECK * %* FOR CUE, INC. 1987 * (* * ** ALL RIGHTS suvwxyz{|}~ *- * REVISED VERSION *K * (C) COPYRIGHT 1987 *i * BY COMPUTER USING * * EDUCATORS, INC. * * * * ORIGINAL VERSION * * DESIGN,DOCUMENTATION * * AND PROGRAMMING *  ************************= * *[* SPELL-N-TIME *y* ** ORIGINAL VERSION ** (C) COPYRIGHT 1984 ** BY SCHOOL & HOME ** COURSEWARE, INC. * * RETURN TO MENU OR END.% N:(4)"RUN MENU"4%*N$H!ZQ$(8)8555$$M!" ";(8);7$R!(GT$)08555L$W!(GT$)1GT$""n$\!(GT$)1GT$(GT$,(GT$)1)x$a!ZQ$;~$f!:$k!ZQ$(27)8590$p!GT$""8590$u!ZK1(GT$)$z!" ";(8);(8);$!ZK$!GT$""$!:$!TMR1İ7300$!8425%N:" ";::(8);# RF(1)'# 8590-# :6#!ZF1I#!ZK1(ZB$)2w# !ZQ$(ZB$,ZK,1)ZQ$(ZB$,ZK1,1)ZF0#!ZK#!(GT$)ZLZF1#!:# !ZF18500#%!GT$GT$ZQ$#*!ZQ$;#/!:#4!ZQ$(13)8520#9!GT$""8555#>!" ";:$C!:============='" SUBROUTINE - PAUSE?" ==================Q" K61450::W" :m" ================" SUBROUTINE - GET" ================" ZQ(16368)" GT$""" :" ZQ(16384)" ZQ127ZQ(16368):ZQ$((16384)):8450# ==================,!SUBROUTINE - TIMERD!==================p!TB(37):TA(36):SAVE CURSOR LOCATIONz!TT1!T10000T9999!TI$(T)!TI$(ER$,5(TI$))TI$!2:32:TI$;!TA1:TB1:RESTORE CURSOR LOCATION!" ======== INITIALIZE4=====================:V R(1(78)256(79))mSC0:I0:WA0:NC0s:READ WORDS INTO R$(N)K1 :"R$(K)$R$(K)"NO MORE WORDS"K101NK1:300&KK1(290*: ,===================== %. DRAW 4 WINDOWS B0===================== 6:A$"+-------------------+":A1$"! !":A2$"+-------------+":A3$"! !";X165:2:X:A$" "A2$;::X25:2:X:A1$" "A3$;:"@X9145:X1XX226:"BEAT YOUR SCORE WITH":5:"ANOTHER GAME (Y OR N) ? ";VZB$"YYNN":ZL1:8400gGT$"Y"200zGT$"N"1225  19999==================== SUBR - UPDATE SCORING WINDOWS ==================== ZTMR0A NEW":13:"HIGH SCORE!!"5BSSC:SAVE NEW HIGH;:JBT01200[ETBT121015:14:"A NEW, FASTER":18:"ELAPSED TIME!!":3:3:"TIME: ";ET;:23:"TIME: ";BT;:BTET: SAVE NEW TIME<:21:5:"WOULD YOU LIKE TO TRY TO":PARISON P=================MV:" THIS GAME:";:22:"BEST SO FAR:";w`X264:Y22220:X:Y:A2$;:Y:XeX35:Y22220:X:Y:A3$;:Y:Xq:r5:3:"SCORE: ";SC;:23:"SCORE: ";BS;sBS01170tSCBS1173v:10:10:"===============+I01100: NO ERRORS:"THESE ARE THE WORDS YOU MISSED. COPY":"THEM ONTO YOUR SPELL-N-TIME STUDY-SHEET."K1IK15(K15)İ9000:4:1:958MW$(K):K9000L=================N TIME-SCORE O COM0960:DON'T SWAP IF WORD WAS MISSED]:SWAP USED WORD WITH 'LAST' WORD IN RANDOM ARRAYjT$R$(R)zR$(R)R$(N)R$(N)T$NN1:WAET(TIBG):ELAPSED TIME FOR GAME=================== LIST WORDS MISSED====ET RESPONSEH:%MGT$FH$8753RSCSC300MT7100:UPDATE WINDOWSWW9000iY10:10:A1$;s\7400|a900f:k9000p7400u800:WAIT FOR CORRECT RESPONSE================ HOUSEKEEPING================'FLѰ7400900:X 18:23:"TYPE THE WORD":23:"CORRECTLY TO":23:"CONTINUE."a*FL2y,==================. THIRD TRY0==================4FL2900910:20(FH$)2:FH$;>15:20(FH$)2 CZTMR1:8400:TURN TIMER ON, GK1J:FLASH SYLLABLES2F$FW$(K):7200CP5.05:8200JKP:e15:20(FH$)2ZTMR1:8400:TURN TIMER ON, GET RESPONSEGT$FH$875SCSC(600(TITS))18:23:"THAT'S IT!!"7100:UPDATE WINDOWS9000 900:018:23:"SORRY, TRY AGAIN.";>CICCIC1HCCC0QFL1[II1}MW$(I)FH$:STORE MISSED WORD90007400=================== SECOND TRY===================FL18207800:'WATCH CAREFULLY'TIME q:GT$FH$680;SCSC(800(TITS.01))[NCNC1:ADD 1 TO # CORRECTv18:23:"GOOD JOB!!";CCCCCC1:CONSEC. CORRECT CTR.CIC0:CONSEC. INCORRECT CTR.7100:UPDATE WINDOWS90007400:ERASE ANS & MESSAGETTACH LAST SYLLABLE(>FH$FH$FW$(J)@D==================SF FIRST TRYkH==================vXF$FH$YTSTI:RESET CLOCK TO 0Z7800:'WATCH CAREFULLY']7200:FLASH WORDbZTMR1:ZB$"AZ":ZL(W$)2:8400:GET RESPONSE & UPDATE ===REMOVE HYPHENS FROM1 DATA WORDJ ===================Y&FH$"":J1p+LP1:LEFT POINTER0RP1(W$)5(W$,RP,1)"-"5707FW$(J)(W$,LP,RPLP)8FH$FH$FW$(J)9LPRP1:JJ1:RP=FW$(J)(W$,LP,(W$)1LP):A0:PRESS RETURN+====================F SELECT & FLASH WORDS`====================BGTI:SET BEGIN TIME FOR GAMEWA1NWR(N(1))1W$R$(R):SELECT A WORD FL0:'ATTEMPT' FLAG:FL0720================:10:X1:A$;::10:X1:A1$;:RE3:2:"THIS GAME: WORDS";:26:"TIME:";J4:3:"WORDS TRIED:";:5:3:"WORDS RIGHT:";:26:"SCORE:";NNWNWN:FEWER THAN NW DATA WORDS14:2:NW;36:"0";7100:UPDATE SCORING WNDW90020:4:WA;"20:5:NC;837((SC)):SC;>Y =================== t"SUBR - FLASH WORDS $=================== /7600:'COMPUTE FLASH TIME' 410:20(F$)2:F$;: CENTER WORD & DISPLAY IT9TSTI >TITSFTİ7300:7230: FLASH TIME7 C10:A1$;:ERASE WORD= H:R M15:20(FH$)2X Wq ===================  SUBR - TIMER =================== TITI.1:P5.05:8200: ===================  SUBR - ERASE ANSWER ! & MESSAWARE, INC. *- * *K * REVISED VERSION *i * (C) COPYRIGHT 1987 * * BY COMPUTER USING * * EDUCATORS, INC. * * * * ORIGINAL VERSION * * DESIGN,DOCUMENTATION *  ************************= * *[* LIBRARY SKILLS *y* DEWEY DECIMAL ** ** ORIGINAL VERSION ** (C) COPYRIGHT 1984 ** BY SCHOOL & HOME * * COURSEN> TO CONTINUE";0*F#X1(16384):X11419035P*G#ZTMR1İ8600:UPDATE TIMERp*H#ZQ(1):SEED RANDOM NUMBERz*I#9030*K#7:" ";:*NRETURN TO MENU OR END* N:(4)"RUN MENU"**N((16384)):TYPE-AHEAD BUFFER-)!TITI.3Q)!2:37(((TITS))):(TITS)a)!CH1:CV1g)!)(#==================== )*# SUBR - PRESS RETURN),#==================== )2#16368,0: CLEAR KEYBOARD BUFFER *<#23:7:"PRESS ";!#P5.3:8200)#ZK@#10:3:" ";F#`# ====================w# SUBR - PAUSE# ====================# K61700P5:K6# # ======================# SUBR - GET # ======================$ ZQ((CCC3).1)"CIC2FTFT(CIC3).1/"J"x=================== c"z SUBR - WATCH }"{ CAREFULLY "|===================":7:2:"WATCH";:8:2:"CAREFULLY";":P52:8200:7:2:" ";:8:2:" ";#10:ZKGE!=================== 3!2:34:" 0 ";E!15:10:A1$;t!ZK13:17ZK:23:" ";:z!!=================== !SUBR - COMPUTE FLASH ! TIME !=================== !FT.05(F$) "CCC2FTFT* AND PROGRAMMING *; * SUPERVISION BY *Y * DAN ISAACSON, PH.D. *w !* BILL BOTZONG * "* CHAS SWANSON, PH.D. * #* * $* REVISED BY DON BECK * %* FOR CUE, INC. 1987 * (* "-------"'10:8:"1. CATEGORIES"C:8)"2. CALL NUMBERS"h:8)"3. MIXTURE OF BOTH TYPES"|:8)"4. QUIT"20:11:"YOUR SELECTION ? ";ZB$"14":ZL1:300S(GT$):CONVERT GT$ TO NUMERIC VALUE S46600:END GAME B1:09":ZL2:300\NP(GT$)2fNP1NP102110MpB1:800:ZR2000,6600h=====================z MENU=====================:" LIBRARY SKILLS 1 ":BT0:BF0:BS0:GC0: CLEAR VAR.6:11:"M E N U" 7:11: NA$GT$*BF1:800:ZR2000,6600J 23:1:39);:24:1:39);e3=====================~4 NUMBER OF PROBLEMS5=====================>8:1:"HOW MANY PROBLEMS DO YOU, "H3)"WISH IN THIS GAME ( 1 - 10 ) ? ";(8);(8);RZB$"NDND1:SET NUMBER OF DATA SETS(ND) TO TRUE VALUEP=====================h GET USER'S NAME=====================:" LIBRARY SKILLS 1 ":8:"WHAT IS YOUR FIRST NAME ? ";ZB$"AZ":ZL12:300: ACCEPT 12 CHARACTERS (A-Z)99 jUSEFUL ARTS,600 TO 699EoFINE ARTS-RECREATION,700 TO 799`tLITERATURE,800 TO 899xyHISTORY,900 TO 999NO MORE DATA,END7:7:"L I B R A R Y S K I L L S":NDND1C$(ND),CA$(ND)C$(ND)"NO MORE DATA"15005$PW$(4)" THAT'S RIGHT "4.PW$(5)" RIGHT ON "K8PW$(6)" CORRECT "Q=:oLGENERAL WORKS,000 TO 099QPHILOSOPHY,100 TO 199VRELIGION,200 TO 299[SOCIAL SCIENCES-SOCIOLOGY,300 TO 399`PHILOLOGY,400 TO 499ePURE SCIENCE,500 TO 5pZQ$"B"B1ZR1'zZQ$"E"ZR25ZR3840=B0C]====================r INITIALIZE====================PW$(6),R(3),PR(3),C$(40),CA$(40):PW$(1)" WAY TO GO "PW$(2)" SUPER "PW$(3)" YOU GOT IT "P(16368):CLEAR KEYBOARD BUFFER5923:1:958`>23:6:"PRESS TO CONTINUE,"lA24:12CB1ĺ" BACK, ";E"OR EXIT";HZQ(16384):ZQ127ZQ$(ZQ128):ZP(16368):870RZTMR1İ700\840fZQ$(13)ZR0==================!TITI.13(TI)TI760`TC(36):TB(37):STORE CURSOR LOCATION3:9::(TI);::UPDATE CLOCKTB1:TC1:RESTORE CURSOR LOCATION================  PRESS RETURN"================*ZR3$4ZGT$)0535!(GT$)1GT$""C(GT$)1GT$(GT$,(GT$)1)M ZQ$;S:gZQ$(27)565wGT$""565ZK1(GT$)!" ";(8);(8);&ZK+GT$""0:5ZTMR1İ700:370================== SUBR - TIMER:ZF1#ZK1(ZB$)2QZQ$(ZB$,ZK,1)ZQ$(ZB$,ZK1,1)ZF0YZKn(GT$)ZLZF1t:ZF1480GT$GT$ZQ$ZQ$;:ZQ$(13)500GT$""535" ";::ZQ$(8)535" ";(8); (ORS, INC." J11500:& 1000B *======================Y , SUBROUTINE - GETu .====================== 6ZQ(16368) ^GT$"" h: rZQ(16384) |ZQ127ZQ(16368):ZQ$((16384)):430 RF(1) :" ";::(8);565Y D E C I M A L"8 8:"-------------------------"Y 15:11:" ORIGINAL VERSION"} 16:9:"(C) COPYRIGHT 1984 BY" 17:6:"SCHOOL & HOME COURSEWARE, INC." 20:4:"REVISED VERSION (C) COPYRIGHT 1987" 21:4:" BY COMPUTER USING EDUCAT *+ ** ALL RIGHTS RESERVED. *I +* *g ,************************m .: b ===================== d T I T L E P A G E f ===================== x }7:7:"L I B R A R Y S K I L L S" 8:"D E W E 800:ZR2000,6600- ====================E DRAW GAME FRAME_ ==================== F0:TI0:SC0:QF0:ZERO VARIABLES  ::" " " TIMER: 0 " " " " SCORE: 0 " " "" 3:18:" TOTAL PROBLEMS: ";F 2:18:" ";j 4:18:" "; 5:18:" RIGHT IN 1 TRY: 0 "; 6:18:" "; 3:36:NP;: ==================== PLAY GAME  ==========N$(PR(I))CA$(R(I))'I!' 9'==================O'  RANDOM NUMBERSg'!==================|'*K1N:S(K)K:K'4KN11'>R((1)N)1'HHS(K)'RS(K)S(R)'\S(R)H'fK'p'NRETURN TO MENU OR END' N:(4)"RUN MENU"(*I &&================3& SELECTION TWOI&================b&CN$"CLASSIFICATION"&11:3:958:11:1:NT". WHAT TYPE OF BOOK WOULD YOU FIND"&13:6:"IN SECTION ";::" "CA$(R(1))" ";::" ?"&I13&PR$(PR(I))C$(R(I))'S99%W================.%X SELECTION ONED%Y================W%bCN$"CATEGORY"%l11:1:958:11:3:NT;". WHERE WOULD YOU FIND A BOOK"%v13:6:"ON ";::" "C$(R(1))" ";::" ?"%I13%PR$(PR(I))CA$(R(I))%S$(PR(I))C$(R(I))&WOULD YOU LIKE TO TRY TO BEAT YOUR"Q$d"SCORE WITH ANOTHER GAME (Y OR N) ? ";q$nZTMR0:ZB$"YYNN":ZL1:300$xGT$"Y"2505$GT$"N"2210$:$$10:9:"L I B R A R Y S K I L L S 1"$12:15:"END OF DRILL"$20:1:;%1990 #tBTTAF#:13:1:" A NEW LOWER, AVG. TIME PER PROBLEM!! ":L#:_#FBF.016410h#BFF#:15:5:" A NEW HIGH NO. CORRECT ON FIRST TRY ":#:# SCBS.016490#BSSC#<:17:11:" A NEW HIGH SCORE!! ":#F:%$Z:21:1:"PROB.: "2"!5:21:" ";T"$6:21:"NO. CORRECT ";u")7:21:" FIRST TRY: ""+8:21:" ";".9:21:"SCORE: ";"B4:33:BT;"L7:33:BF;"V9:33:BS;"[:#jTABT.01633" FIRST TRY: "3!" "M!"SCORE: "]!4:13:TA;l!7:13:F;|!9:13:SC;!:!GC1BSSC:BTTA:BFF:6490!:!:1:21:"BEST SO FAR:";!!3:21:"AVG. TIME ";"4:21:" PER RECAP q===================& z2 GCGC1c TA(TI(NT1).005):CALCULATE AVERAGE TIMEi :{ "THIS GAME:" " ": "AVG. TIME " " PER PROB.: " " " "NO. CORRECT "!00R 3120W :3f PT1FF1:5:36::F;:Yp PT1SCSC1000:CALCULATE SCOREmr PT2SCSC500t PT3SCSC100v SCSC(500TI)x 5:9::SC;:z ZTMR0:800:ZR22200 9:2:30); NTo=================== p ! " :9:2:PW$;:  :* 3430; 11:1:958^ 11:2:"THAT IS NOT CORRECT." 15:2:"YOU CHOSE: ";PR$((GT$));"."* 17:2:" WHICH IS: ";S$((GT$))4 PTPT1:TIMES PROBLEM TRIED> RF1:REPEAT FLAG ONH ZTMR1:800:ZR222 (GT$)PR(1)3330< 14(2PR(1)):6:"YES! ...."i PR(1)2Ģ16:1:868:20:1:868:3270 PR(1)1Ģ18:1:868:20:1:868:3270 PR(1)3Ģ16:1:868:18:1:868 PW$PW$(((1)6)1) (1).6PW$PW$", "NA$ PW$PW$"1)2)1+ :90 T1İ7000:PRINT CATEGORIES PROBLEMSe: T2İ7100:PRINT CALL NUMBERS PROBLEMSk : I13:PRINT ANSWER CHOICES 14I2:12:"<"I;"> ";PR$(I) I : 23:6:"YOUR CHOICE (1-3): "; ZB$"13":ZL1:ZTMR1:300 :========== NT1NP: PT1:INITALIZE PROBLEM TYPEm NND:7200:SELECT THREE RANDOM NUMBERS (1-10) I13:R(I)S(I):I N3:7200:SELECT THREE RANDOM NUMBERS (1-3) I13:PR(I)S(I):I TS:SET FLAG = MENU SELECTION & S3T(( ************************= * *[* LIBRARY SKILLS *y* -CARD CATALOG ** ** ORIGINAL VERSION ** (C) COPYRIGHT 1984 ** BY SCHOOL & HOME * * COURSEST LINE FLASH)N====================S`FF11140:CHECK IF LINE IS FLASHINGtj:FF1:2:9:C$(1CT):1150t:FF0:2:9:C$(1CT)~:=================== CALL NUMBER FLASH===================FF11340(:FF1:3:2:3:1:958:CLEAR MESSAGE WINDOW+NBF01RI==================_ RANDOM NUMBERSw==================K1N:S(K)K:KKN11R((1)N1)HS(K)S(K)S(R)$S(R)H.K8J====================L FIR264ZTMR1İ7006818$8:8:ZQ$(13)ZR0O<BF1ZQ$"B"ZR1f>BF0ZQ$"E"ZR2u@ZR2842B23:1:958:CLEAR MESSAGE WINDOWD" REALLY QUIT NOW (Y/N) ? ";FZL1:ZB$"YYNN":300HGT$"N"ZR3JZR3806"L2=====$ZR38&ZP(16368):CLEAR KEYBOARD BUFFER_(23:1:958:CLEAR MESSAGE WINDOW*23:2:"PRESS ";::"RETURN";::" TO CONTINUE OR ";.BF1Ğ:"B";::" BACK";0BF0Ğ:"E";::" TO EXIT";2ZQ(16384):ZQ127ZQ$(ZQ128):8- TIMER!=================='4T1T1.1F(T1)T1760sTA(36):TB(37):STORE CURSOR LOCATION15:36:(T1);:UPDATE CLOCKTB1:TA1::RESTORE CURSOR LOCATION:================  PRESS RETURN"===========);(GT$)0535+(GT$)1GT$""M(GT$)1GT$(GT$,(GT$)1)W ZQ$;]:qZQ$(27)565GT$""565ZK1(GT$)!" ";(8);(8);&ZK+GT$""0:5ZTMR1İ700:370================== SUBROUTINE :ZF1ZIĞ+ZK1(ZB$)2YZQ$(ZB$,ZK,1)ZQ$(ZB$,ZK1,1)ZF0aZKv(GT$)ZLZF1|:ZF1480GT$GT$ZQ$ZQ$;:ZQ$(13)500GT$""535" ";:::ZQ$(8)535" ";(800:SKIP STANDARD ROUTINES" :> *======================W , SUBROUTINE - GETs .====================== 6ZQ(16368) ^GT$"" h: rZQ(16384) |ZQ127ZQ(16368):ZQ$((16384)):430 :" ";::(8); RF(1) 565-------------------"7 15:11:" ORIGINAL VERSION"[ 16:9:"(C) COPYRIGHT 1984 BY" 17:6:"SCHOOL & HOME COURSEWARE, INC." 20:4:"REVISED VERSION (C) COPYRIGHT 1987" 21:4:" BY COMPUTER USING EDUCATORS, INC." J11500: 20 *+ ** ALL RIGHTS RESERVED. *I +* *g ,************************m .: b ===================== d T I T L E P A G E f ===================== x }7:8:"LIBRARY SKILLS-CARD CATALOG" 8:"--------* AND PROGRAMMING *; * SUPERVISION BY *Y * DAN ISAACSON, PH.D. *w !* BILL BOTZONG * "* CHAS SWANSON, PH.D. * #* * $* REVISED BY DON BECK * %* FOR CUE, INC. 1987 * (* WARE, INC. *- * *K * REVISED VERSION *i * (C) COPYRIGHT 1987 * * BY COMPUTER USING * * EDUCATORS, INC. * * * * ORIGINAL VERSION * * DESIGN,DOCUMENTATION * C$(1) -4:2:C$(2);:13509<:FF0:3:2:C$(1);KA4:2:C$(2);SF:n===================== FLASH AUTHOR'S NAME=====================FF11540:FF1:4:9:C$(5):1550:FF0:4:9:C$(5): =======================( PROGRAM STARTS HEREE=======================C$(10),OA(4),PW$(6),CN$(3),QT$(4),Q$(6),Q1$(3),Q2$(3),Q3$(3),A$(3),AH$(3),S(30),SA(30)IN$:CCCC1IN$"END OF DATA"2040NC(CC1)10:CALCULATE NUMBER OF CARDS IN DAT$ NUMBER OF PROBLEMS7$ =====================^$& 11:1:"HOW MANY PROBLEMS DO YOU"$+ 13:1:"WISH IN THIS GAME (1-10)? ";(8);(8);$0 ZB$"09":ZL2:300$: ND(GT$)$D ND1ND103115$N BF1:800:ZR13000%====================================+# GET USER'S NAMEF# =====================L# h# :"LIBRARY SKILLS 2":# 7:"WHAT IS YOUR FIRST NAME? ";# ZB$"AZ":ZL11:300:ACCEPT 12 CHARACTERS (A-Z) # NA$GT$# BF1:800:ZR13000$ ====================="SCALE MODEL SAILING SHIPS"4"Y "MODEL BUILDING"N"Z "BOWEN, JOHN, 1916-"r"[ " SCALE MODEL SAILING SHIPS""\ "/ EDITED BY JOHN BOWEN. --""] "NEW YORK: MAYFLOWER BOOKS,""^ "(1978)""_ " 192P. ILLUS. PLANS""T "END OF DATA"# ====917.49,R312 !N "NEW JERSEY"1!O "GEOGRAPHY"I!P "RESNICK, ABRAHAM"k!Q "NEW JERSEY: ITS PEOPLE AND"!R "CULTURE. BY ABRAHAM RESNICK;"!S "ROSENFELT, EDITORIAL CONSUL-"!T "TANT. DENISON (1974)"!U " 325P. ILLUS"!V :!W 623.80,B675"X : C 636,C469' D "PETS HANDBOOK"A E "ANIMAL CARE - PETS"a F "CHRUSTIE, FRANCES, 1904-" G " PETS HANDBOOK; A COMPLETE" H "HANDBOOK ON CARE AND UNDER-" I "STANDING OF ALL ANIMAL PETS." J "LITTLE (1974)" K " 269P. ILLUS." L :!M ""7 ""8 :#9 158.4,B289: "THE OTHER HAND"]; "PHILOSOPHY - LEFT HANDEDNESS"u< "BARSELY, MICHAEL"= "INVESTIGATION INTO THE"> "SINISTER HISTORY OF LEFT-"? "HANDEDNESS. HAWTHORN (1966)"@ " 228P. ILLUS., PORTS"A "" BEW YORK, F. WATTS, (1959).2, " 69P. ILLUS":- ""@. :P/ 572.4,B684n0 "THE QUEST FOR ATLANTIS"1 "ARCHAEOLOGY"2 "BOWMAN, JOHN STEWART, 1931-"3 " THE QUEST FOR ATLANTIS."4 "DOUBLEDAY,1971."5 " 182P. ILLUS., MAPS."6AGIC"* "BOOK. MANY DIFFERENT TRICKS"A! " 31P. ILLUS."I" ""Q# ""W$ :e% 622,M342& "THE FIRST BOOK OF MINES"' "MINING"( "MARKUN, PATRICIA MALONEY") " THE FIRST BOOK OF MINING."* "PICTURES BY MILDRED WALTRIP."+ "N; WORD-"( "WORKING WITHOUT NAILS."I "PROJECTS BY SIDNEY SHUPAK"o "PHOTOS. BY JEFF MURPHY. DUTTON" " 91P. ILLUS." : 793.8,L88LI "IT'S MAGIC?" "MAGIC - MAGICIANS" "LOPSHIRE, ROBERT" " IT'S MAGIC? A CHILDREN MCOMPILED"0 "AND EDITED BY HARRY A. PLOSKI"L "AND ROSCOE C. BROWN."k "BELLWETHER PUB., C1967." " 1012P. ILLUS. TABLES." : 684,L338G "GLUE IT YOURSELF" "ARTS AND CRAFT" "LOPSHIRE, ROBERT"  " GLUE IT YOURSELF THE ZOO BREAKS OUT. TRANS."E "AND ADAPTED FROM THE GERMAN BY"Y "NORMAN DALE."o "BARNES, C1958." " 128P. ILLUS." : 321.1,P "THE NEGRO ALMANAC" "NEGROES - BIOGRAPHY" "PLOSKI, HARRY A."  " THE NEGRO ALMANAC. (2)3Q2$(1)QT$(1):Q2$(2)QT$(2):Q2$(3)QT$(3)aQ3$(1)QT$(1):Q3$(2)QT$(2):Q3$(3)QT$(4)v=============== DATA===============:F,L "THE ZOO BREAKS OUT""ZOOLOGICAL GARDENS - FICTION" "LOBE, MIRA" " LL NUMBER"'QT$(2)"AUTHOR'S NAME"AQT$(3)"BOOK'S TITLE"]QT$(4)"BOOK'S SUBJECT"c:Q$(2)"WHAT CARD IS THIS?"Q$(1)""Q$(4)"WHAT LINE IS FLASHING?"Q$(3)""Q$(5)Q$(3)Q$(6)Q$(4):Q1$(1)QT$(1):Q1$(2)QT$A :"PW$(1)" WAY TO GO "7 PW$(2)" SUPER "Q*PW$(3)" YOU GOT IT "m4PW$(4)" THAT'S RIGHT ">PW$(5)" RIGHT ON "HPW$(6)" CORRECT "R:\CN$(1)"AUTHOR CARD"fCN$(2)"TITLE CARD"pCN$(3)"SUBJECT CARD"u: zQT$(1)"CA% DRAW GAME FRAME0%===================Z%NNC:1010:SHUFFLE SEQUENCE OF CARDSt%I1NC:SA(I)S(I):I%CU0:NT0:SC0:T10:ZERO VARIABLES%:%%%I112:" ";:I:DRAW CARD&14:29:" ";/&15:29:" TIME: 0 ";L&16:29:" ";i&17:29:" AVG. ";&18:29:" TIME: 0 ";&"19:29:" ";&,20:29:" SCORE:0 ";&621:29:" ";&;&@800:PRESS 'APER PROBLEM!! ":4:-4SCBS.01543074BSSC_4:16:13:" A NEW HIGH SCORE!! ":e4,:46:21:4:"WOULD YOU LIKE TO TRY TO BEAT"4@22:4:"YOUR SCORE (Y OR N) ? ";4JZTMR0:ZB$"YYNN":ZL1:3004TGT$"N"54904^40104h:5r:20:" PROBLEM: ";?3K6:20:" ";a3P7:20:" SCORE: ";3U8:20:" ";3Z5:31:BT;3d7:31:BS;3n:3TA.01BT53403BTTA3:12:9:" A NEW LOWER AVERAGE "413:9:" TIME "+2" SCORE: "E2" "U25:12:TA;e27:12:SC;k2q2:2 GC1BTTA:BSSC:54302:2(1:20:" BEST SO FAR:";2-223:20:" ";2<4:20:" AVG. TIME PER ";3F51((NT)3)(NT)34310#1:-1$4170F1===================X1 RECAPq1===================w1}1:1GCGC11" THIS GAME:"111" "1" AVG. TIME PER "1" PROBLEM: "2" 3000TA)PT)!020:36:SC;:L0ZTMR0:800:ZR25490:PRESS X0NTNT1d0CPCP10HA$AH$(1):FILL HOLDER OF LAST ANSWER0LF1300,1500,1100:STOP LINE FLASHING0 I1324:I:1:" ";:I1NTND5000 /uPTPT1'/z21:5:"TRY AGAIN.";K/800:ZR25490:PRESS m/21:5:" ";w/4690}/:/:21:4:PW$(((0)61));:(0).64780/", ";NA$" ";/"! ";:/TA(T1(NT1))/:18:36:TA;" "0SCSC((0,1500,1100+.MPT1:PROBLEM TRY COUNTER^.R14:1:NT1;". ";Q$(OA(CP)2):PRINT QUESTION.UVTAB 14: HTAB 5: PRINT Q$(OA(CP) * 2).V23:4:"ENTER CHOICE (1-3): ";.WZB$"13":ZL1:ZTMR1:300:GET RESPONSE.fGT$"4"4747/p(GT$)(CA)4760HA$QT$(S(J))AH$(1)QT$(S(J))AH$(2)AH$(I)QT$(S(J)):J4E-JL-IR-:-N3:1010:RANDOMLY ORDER POSSIBLE ANSWERS- I13-A$(I)AH$(S(I)):S(I)1CAI- I-%:-*I13-4I15:4:"<"I;"> ";A$(I)->I-?:-C: .HLF130N3:1010:ORDER QUESTION TYPES 1-3 RANDOMLYa,Q3$(S(1))HA$AH$(1)Q3$(S(1)):LFS(1):4550,Q3$(S(2))HA$AH$(1)Q3$(S(2)):LFS(2):4550,AH$(1)Q3$(S(3)):LFS(3),:,N4:1010:RANDOMLY ORDER (1-4),I23,J14>-QT$(S(J))) +S:%+XCT24490:TITLE CARDV+bN3:1010:ORDER QUESTION TYPES 1-3 RANDOMLY+lQ2$(S(1))HA$AH$(1)Q2$(S(1)):LFS(1):4490+vQ2$(S(2))HA$AH$(1)Q2$(S(2)):LFS(2):4490+AH$(1)Q2$(S(3)):LFS(3)+:+CT34550:SUBJECT CARD.,S(I))*S(I)CTCAI *I&*:[*&OA(CP)2OA(CP)34650:LINE FLASHED QUESTIONa*+:~*0CT14440:AUTHOR CARD*:N2:1010:ORDER QUESTION TYPES 1 AND 2 RANDOMLY*DQ1$(S(1))HA$AH$(1)Q1$(S(1)):LFS(1):4440+NAH$(1)Q1$(S(2)):LFS(23:1010:SELECT THREE RANDOM NUMBERS (1-3)g)I13:OA(I)S(I):I:PLACE NUMBERS IN QUESTION ARRAYm):)LF0:CA0:ZERO VARIABLES):)OA(CP)14390:CARD TYPE QUESTIOMN)N3:1010:GET THREE RANDOM NUMBERS (1-3))I13*A$(I)CN$(I):I:READ THE 10 FIELDS OF CARDK(rCT((1)31):DETERMINE CARD TYPE(|CT14240:IF AUTHOR CARD DON'T PRINT FIRST LINE(2:9:C$(1CT);(3:2:C$(1);(4:2:C$(2);(4:9:C$(5)(I610:I:9:C$(I):I((:(CP1-)NZR25490$'B===================8'E PLAY GAMEQ'G===================]'JCUCU1'T:I211:I:1:" ":I:CLEAR CARD'^:SA(CU)1āI1(SA(CU)1)10:IN$:I:GET NEXT CARD TO BE READ#(hI110:C$(/5|10:8:"L I B R A R Y S K I L L S 2"K513:15:"END OF DRILL"X520:1:c519999~5NRETURN TO MENU OR END5 N:(4)"RUN MENU"5*N ************************= * *[* C O M M A *y* ** ORIGINAL VERSION ** (C) COPYRIGHT 1984 ** BY SCHOOL & HOME ** COURSEWARE, INC. * * F1480GT$GT$ZQ$#ZQ$;):=ZQ$(13)500MGT$""535[" ";::a:tZQ$(8)535" ";(8);(GT$)0535(GT$)1GT$""(GT$)1GT$(GT$,(GT$)1) ZQ$;:ZQ$(27)565GT$""565)^GT$""h:%rZQ(16384)T|ZQ127ZQ(16368):ZQ$((16384)):430i:" ";::(8);uRF(1)~565:ZF1ZIĞZK1(ZB$)2ZQ$(ZB$,ZK,1)ZQ$(ZB$,ZK1,1)ZF0ZK(GT$)ZLZF1: ZE SOCCER GAME."1"YES, PLEASE HAND ME THAT"A"HAMSTER."c"CHESTER, I FOUND YOUR SOCK""IN THE TRUNK OF MY CAR!"""NO MORE SENTENCES"'3000(:*==================, SUBROUTINE - GET.==================6ZQ(16368FINDING EGGS BEHIND THE":"SOFA, CHAIRS, AND BOOKS."["MARY, JOE, AND FELIX WERE"w"WATERING THE PLANTS.""THOSE ANCIENT SCROLLS ARE""EITHER 2000, 3000, OR""3500 YEARS OLD.""HE WILL, OF COURSE, WEAR A""SWEATER TO THWELS IN A ROW."2"ANYONE WHO EATS A SUNDAE,"R"PUMPKIN PIE, AND PEANUTS"h"WILL GET SICK.""HER RED HAT, PINK BLOUSE, AND""PLAID SHIRT MADE HER FRIENDS""SHUDDER, GRIN, AND LAUGH.""A WEEK AFTER EASTER WE WERE""STILL "TOMORROW, THE CLASS WILL KNOW"D"WHAT FOLLOWS QUINTILLION."e"BILL, THE SCHOOL'S OLDEST""JANITOR, CHASTISED TONY, ED,""AND LISA FOR CALLING HIM BOB.""THE WORDS SEQUOIA, OBSEQUIOUS,""AND HAWAIIAN ALL CONTAIN FOUR""VOGER,"("WENT TO BUY GLOVES, BATS,"@"AND JELLY BEANS."^"EDWIN, THE NEARSIGHTED""FOOTBALL PLAYER, WAS HIT BY""A MOPED, A CAR, AND A BUS.""THE WORDS BOOM, CRASH, FLOP,""CRUNCH, SQUASH, AND HISS""ARE ALL SOUNDS."#EASE..."* :"(TO PREPARE THIS GAME)"F ======================` DATA SENTENCES: FROM| HERE TO LINE 290. TYPE IN WITH COMMAS BROKEN INTO 2-3 30 CHARACTER LINES FOR DISPLAY ======================"ED, THE ASSISTANT MANA(C) COPYRIGHT 1984 BY"E 17:6:"SCHOOL & HOME COURSEWARE, INC."v 20:4:"REVISED VERSION (C) COPYRIGHT 1987" 21:4:" BY COMPUTER USING EDUCATORS, INC." 23:9:"PRESS ";::"RETURN";::" TO CONTINUE";:Z$ :12:"SEVERAL MOMENTS PLRESERVED. *+ +* *I ,************************O .:k b ===================== d T I T L E P A G E f===================== x }7:16:"C O M M A" 16:"---------" 15:11:" ORIGINAL VERSION" 16:9:"* SUPERVISION BY *; * DAN ISAACSON, PH.D. *Y !* BILL BOTZONG *w "* CHAS SWANSON, PH.D. * #* * $* REVISED BY DON BECK * %* FOR CUE, INC. 1987 * (* * ** ALL RIGHTS *- * REVISED VERSION *K * (C) COPYRIGHT 1987 *i * BY COMPUTER USING * * EDUCATORS, INC. * * * * ORIGINAL VERSION * * DESIGN,DOCUMENTATION * * AND PROGRAMMING * ZK1(GT$)%!" ";(8);(8);-&ZK8+GT$"">0:O5ZTMR1İ700q7720:720:720:DELETE COMMASz:370<=====================>CALC SG,VT,HT FROM MK@=====================BJ(PC(MK)1)39DSG(J)1ESG1VT12 FSG2VT15GSG3VT189HHT((JSG1)39.05)1?JX===================p GET ONE CHARACTER===================C(16384)128C0670700:UPDATE TIMER720:720:720:DELETE COMMAS662:C$(C)ENCE!"$ /$ 2000:SELECT FIRST SENTENCEL$ FF1:SET FINISH FLAG ONd$ 720:DELETE COMMAS~$====================$GET NO. OF SENTENCES$====================$SM10:MAXIMUM NUMBER OF SENTENCES$$ %.::"HOW MANY SENTENCES DO YO'# SY$(4)"AW SHUCKS":SY$(5)"SORRY"?# WG1:WHICH SEGMENTU# G0:GAME COUNTERt# ND0:COUNT DATA SENTENCESz# :# J$# J$"NO MORE SENTENCES"3082# J1$(J$,1)# J1$"."J1$"?"J1$"!"NDND1# 3074$ :"THANK YOU FOR YOUR PATIER$ER$" ":J:ERASE STRINGQ" KH$(ER$,40):HORIZONTAL AND VERTICAL STRINGSw" J123:KV$KV$" "(10)(8):J" PR$(1)"GOOD":PR$(2)"OKAY":PR$(3)"CORRECT":PR$(4)"RIGHT"# PR$(5)"GREAT":SY$(1)"TOO BAD":SY$(2)"MISSED IT":SY$(3)"INCORRECT":!=J$(SB$(J),1)5!>J$"."J$"!"J$"?"2130T!CJ$" "SB$(J)SB$(J)" "[!HJa!Rg!\y! ============! INITIALIZE! ============! J$,J,SB$(3),DB$(3),PB(20),AB(20),WC,WG,FL! CS,S$(3),DS$(3),PC(20),AC(20)" ER$"":J139:((1)ND)1@ JRS2010:NOT SAME SENTENCE TWICE IN A ROWI RSJX RS12080` J0f :o J1$ J$(J1$,1) J$"."J$"!"J$"?"JJ1 JRS12040 : J13:SB$(J)"":J *J13 4SB$(J) 5(SB$(J))302005!;======J((1)5)1%21:1+:RPS0ĺSY$(J);".";:1260:SYMPATHY_PR$(J);RANDOMLY ADD NAME 1/5 OF TIME((1)5)0ĺ", "N$;"!";:================= SELECT SENTENCE================= J================[/`KK$(KH$,RHLH1)SeUV:LH:KK$;:HORIZONTAL LINESehLV:LH:KK$;oKK$(KV$,(LVUV1)3):VERTICAL LINEStUV1:LH:KK$;vUV1:RH:KK$;xz================= PRAISE/SYMPATHY=================! SUBROUTINE - FLASH;====================HJ51FH_J52(J52)1018oV:H:FS$;y1024:J1LL:J:PAUSEV:H:(ER$,39);J1LL:JJ5J===================L DRAW WINDOW FRAMEN===(I1I3)ZR1,zZQ$"E"(I2I3)ZR2;ZR2950b23:1:958:CLEAR MESSAGE WINDOW" REALLY QUIT NOW (Y/N) ? ";ZL1:ZB$"YYNN":300GT$"N"ZR3ZR382023:1:958:CLEAR MESSAGE WINDOW==============::"RETURN";::" TO CONTINUE ".@24:15PBI1I3Ğ:"B";::" BACK ";rDI2I3Ğ:"E";::" EXIT ";HZQ(16384):ZQ127ZQ$(ZQ128):870RZTMR1İ700W720:720:720:DELETE COMMAS\840a:fZQ$(13)ZR0pZQ$"B"T ANSWER COMMA POSITION FLAG BUFFER ON4CSCS1::NFF1WG3724Tj================~  PRESS RETURN"================*ZR34ZP(16368):CLEAR KEYBOARD BUFFER923:1:958:CLEAR MESSAGE WINDOW">23:9:"PRESS ";COMMA FLAG OFF'DB$(WG)DB$(WG)J$07646:GJ$" "752_DB$(WG)DB$(WG)" "FL0HBHB1:PB(HB)(WG1)39WCCS764:J$","FL0:DB$(WG)DB$(WG)J$:764FL1HBHB1PB(HB)(WG1)39WCCS(AB(HB)1:SE=====================6DELETE COMMAS & STOREO SENTENCE IN BUFFERj=====================WCWC1:WHICH CHARACTERWC32WC1:WGWG1:CS0WG3764J$(SB$(WG),WC,1):J$"A"J$"Z"742FL0:TURN BLANK AFTER ZC(16368)-==================ESUBROUTINE - TIMER]==================jT1T1.3|(T1)T1714TA(36):TB(37):STORE CURSOR LOCATION4:38(((T1))):(T1);:UPDATETB1:TA1::RESTORE CURSOR LOCATIONU WISH".%8:"IN THIS GAME (1-";SM;") ? ";E%BZL2:ZB$"09":300S%LNS(GT$)h%VNS1NSSM3620~%r================%t GET FIRST NAME%v================%z10:1%|"PLEASE TYPE IN"%~:"YOUR FIRST NAME: ";%ZL12:ZB$"AZ":300 &N$GT$$&I3:800:ZR3600,5610<&==================S& DRAW GAME WINDOWk&==================q&&::" SENTENCES"&" THIS GAME:"24)"TIME:"&:" NO. TRIED:"24)"AVG. TIME PER"&" NO. CORRECT:"24)"SENTENCE:"'UV1:LV0:1200:SYMPATHY44=VT:HT:" ";:ERASE MARKERd4BJ1120:INDICATE CORRECT COMMA LOCATIONS:4GAC(J1)04960:NO COMMA THERE4LMKJ14Q5724VVT:HT::"^";:4`J14eV21:H13:FH5:LL3004fFS$"'^'S SHOW CORRECT LOCATIONS.":10005R OF INCORRECT RESPONSESD3)IR2Ģ19:16::"TRY AGAIN";::4990[3.ZTMR0: TIMER OFF3/6:18((WS)):WS;:NUMBER TRIED30CT(T1WS):AVERAGE TIME PER SENTENCE327:35((CT)):" ";CT;:PRINT AVG TIME3318:1:958:ERASE PROMPT48PSR CORRECT62CT(T1WS):AVERAGE TIME PER SENTENCEe2 7:35((CT)):" ";CT;:PRINT AVG TIME2 PS1:1200:PRINT PRAISE2I2:800:ZR25610211:1:958:ERASE SENTENCE AND PRAISE249902!:2"RESPONSE INCORRECT:3$IRIR1:NUMBE:01J13:DETERMINE IF RESPONSE IS CORRECTH1S$(J)DS$(J)RF1O1J^1RF149001ZTMR0:TIMER OFF - RESPONSE CORRECT:118:1:958:ERASE PROMPT16:18((WS)):WS;:NUMBER TRIED1NCNC1 27:18((NC)):NC;:DISPLAY NUMBEMK)PC(J)J1PC(J)PC(J)1$0J.0480040:F0C$"E"4800y024:3:"DO YOU REALLY WISH TO QUIT (Y/N) ? ";0ZB$"NNYY":ZL1:3000GT$"Y"5610:END024:1:958:ERASE INQUIRY0END CASE0:0C$(13)4400:NOT RETURN1DS$(SG),HT,1)","47377/HJ$DS$(SG):DELETE COMMA:]/RDS$(SG)(J$,HT1)(J$,(J$)HT)/WVT1:1:DS$(SG)" ";:DISPLAY NEW DS$(SG)/fJ1SG39:LAST LOCATION ON SEGMENT/pJ120:DECREMENT LOCATIONS IF ON SEGMENT AND AFTER COMMA:0zPC(J)PC(VT1:1:DS$(SG);:DISPLAY NEW DS$(SG)Q.J1SG39:LAST LOCATION IN SEGMENT. J120:INCREMENT LOCATIONS IF ON SEGMENT AND PAST COMMA.PC(J)PC(MK)PC(J)J1PC(J)PC(J)1. J.*4800./:.4C$"X"4740.>574:COMPUTE SG,HT/@(VT:HT::"^";::DISPLAY MARKER?-T1T1.3:ADJUST TIMERI-4800O-:a-C$","4660y-574:COMPUTE SG,HT-(DS$(SG),HT,1)","4650:SKIP IF COMMA ALREADY THERE-J$DS$(SG):INSERT COMMA:-DS$(SG)(J$,HT1)","(J$,(J$)HT1)*.460,bMKMK1),l574:COMPUTE VT,HTO,vVT:HT::"^";::DISPLAY MARKERj,{T1T1.3:ADJUST TIMERt,4800z,:,C$(21)4580:NOT RIGHT AROW,VT:HT:" ";:ERASE MARKER,MKHPMK1:4525,MKMK1,:,574:COMPUTE VT,HT$- ON +&:*+*ZC(16368):CLEAR BUFFER0+,:Z+0RF0:CLEAR RESPONSE NOT CORRECT FLAGv+5650:GET ONE CHARACTER+:19:1:ER$;:ERASE PRAISE WINDOW+?BEGIN CASE+DC$(8)4500:NOT LEFT ARROW+NVT:HT:" ";:ERASE MARKER,XMK1MKHP:4574:COMPUTE VT,HT=*VT:HT::"^";::DISPLAY MARKER*21:1:"USE: ";::",";::" ADD COMMA ";::"ARROWS";::" ^ LEFT/RIGHT"* :6:"X";::" REMOVE COMMA"*:6:"E";::" EXIT ";::"RETURN";::" WHEN DONE"+ZTMR1:TIMER2000:SELECT NEXT SENTENCES)J13:DB$(J)"":J:INITIALIZE BUFFER VARIABLES:z)WG1:WC0:FL0:CS0:FF0:HB0:FF0)J120:PB(J)0:AB(J)0:J)11:1:DS$(1):DISPLAY SENTENCE)::DS$(2))::DS$(3);)MK1:COMMA POSITION MARKER*:37:"0";:TIME*(6I2:800:ZR256100(@:=(JWS1NSe(OIR0:NUMBER OF INCORRECT RESPONSES~(TFF1:FINISH FLAG ON(^720:DELETE COMMAS(hJ13:S$(J)SB$(J):DS$(J)DB$(J):J:GET BUFFER:(|HPHB(J120:PC(J)PB(J):AC(J)AB(J):J)9:LH1:RH19:11004'UV1:LV9:LH22:RH39:1100F'============W' GAME IS ONi'============w'NC0:T10'GG1:GAME COUNTER'"4:18((NS)):NS;:# OF SENTENCES'$6:17:"0";:NUMBER TRIED''7:17:"0";:NUMBER CORRECT (,4oI2:800:ZR25610C5q11:1:958:ERASE TO BOTTOM OF SCREENI5y:5~RF1IR24394:LOOP UNTIL CORRECT OR INCORRECT TWICE5WS5===============5 RECAP OF GAME5===============551:2:"THIS GAME:";6UV2:LV8:LH1:RH19261100:DRAW WINDOW FRAME FOR CURRENT SCORESM63:2:"AVG TIME PER";d64:2:"PROBLEM:";}64:18((CT)):CT;6:66:2:"PERCENT PROBLEMS";67:2:"CORRECT:";6CP(NCNS100)67:18((CP)):CP;6:7 G1BTCT:BPCP:F(1)565: ZF13ZK1(ZB$)2aZQ$(ZB$,ZK,1)ZQ$(ZB$,ZK1,1)ZF0iZK~(GT$)ZLZF1:ZF1480GT$GT$ZQ$ZQ$;:ZQ$(13)500GT$""535" ";::ZQ$(8)535 "LAY ==================4 XX0X1200:XX:P ,======================i . SUBROUTINE - GET 0====================== 6ZQ(16368) ^GT$"" h: rZQ(16384) |ZQ127ZQ(16368):ZQ$((16384)):430 :" ";::(8);RINAL VERSION"3 16:9:"(C) COPYRIGHT 1984 BY"` 17:6:"SCHOOL & HOME COURSEWARE, INC." 20:4:"REVISED VERSION (C) COPYRIGHT 1987" 21:4:" BY COMPUTER USING EDUCATORS, INC." 800 1280 ================== SUBROUTINE - DERESERVED. *+ +* *I ,************************O .:l b ===================== d T I T L E P A G E f ===================== x }7:10:"F O T O - F L A S H" 10:"---------------------" 15:11:" ORIG* SUPERVISION BY *; * DAN ISAACSON, PH.D. *Y !* BILL BOTZONG *w "* CHAS SWANSON, PH.D. * #* * $* REVISED BY DON BECK * %* FOR CUE, INC. 1987 * (* * ** ALL RIGHTS *- * REVISED VERSION *K * (C) COPYRIGHT 1987 *i * BY COMPUTER USING * * EDUCATORS, INC. * * * * ORIGINAL VERSION * * DESIGN,DOCUMENTATION * * AND PROGRAMMING *  ************************= * *[* FOTO-FLASH *y* ** ORIGINAL VERSION ** (C) COPYRIGHT 1984 ** BY SCHOOL & HOME ** COURSEWARE, INC. * * T$"Y"4000::<:21:1:958:ERASE TO BOTTOM SCREEN[:21:14:"END OF PROGRAM";l:'END PROGRAM:NRETURN TO MENU OR END: N:(4)"RUN MENU":*NWRITE THESE RESULTS ON YOUR"D9r7)"'COMMA' RECORD SHEET. THEN"Q9|I0:800z921:1:958:ERASE TO BOTTOM SCREEN922:8:"WOULD YOU LIKE TO TRY TO"99)"BEAT YOUR SCORE WITH"910)"ANOTHER GAME (Y/N) ? ";9ZB$"NNYY":ZL1:300 :G((BP)):BP;8n:%8xCTBT5290/8BTCTH8V14:H1:FH11:LL208FS$"A NEW, LOWER AVERAGE TIME PER PROBLEM!!":10008:8CPBP54708BPCP8V16:H1:FH11:LL208FS$"A NEW, BETTER PERCENT CORRECT!!":10008:8^21:79h"5470#71:22:"BEST-SO-FAR:";=7UV2:LV8:LH21:RH39j71100:DRAW WINDOW FRAME FOR BEST SCORES7(3:22:"AVG TIME PER";724:22:"PROBLEM:";7<4:38((BT)):BT;7F:7P6:22:"PERCENT PROBLEMS";7Z7:22:"CORRECT:";8d7:38 ";(8);(GT$)05351(GT$)1GT$""S(GT$)1GT$(GT$,(GT$)1)] ZQ$;c:wZQ$(27)565GT$""565ZK1(GT$)!" ";(8);(8);&ZK+GT$""0:5ZTMR1İ700:370==================SUBROUTINE - TIMER'==================4T1T1.2F(T1)T1760sTA(36):TB(37):STORE CURSOR LOCATION8:(21(((T1)))):(T1);:UPDATE CLOCKTB1:TA1::RESTORE CURSOR LOCATION================  PRESS RETURN"===========#: REVERSE OR NOT?:D=================@NhX5:6:"HOW DO YOU WISH TO ANSWER?"Z6:"--------------------------"b8:6:"1. FORWARD: SEE 123, TYPE 123"v10:6:"2. REVERSED: SEE 123, TYPE 321" 14:6:"ENTER CHOICE1830:SKIP IF CHOICE IS WORD GAMEN16:4:"HOW MANY NUMBERS/LETTERS DO";18:8:"YOU WISH PER PROBLEM (";MC;"-";M1;") ";:18:35:"? ";ZB$"09":ZL2:300:NC(GT$)(NCM1)(NCMC)1790:&I1:800:ZR1500,1500 0======11:MN2:MC2(MS3NDMX2MXND2O7:4:"HOW MANY PROBLEMS DO YOU";9:8:"WISH IN THIS GAME (";MN;"-";MX;") ";:9:32:"? ";ZB$"09":ZL2:300:NP(GT$)(NPMX)(NPMN)(NPND)1730:REJECT ILLEGAL VALUES:#MS3615:11:"4. QUIT";8@18:14:"CHOICE (1-4): ";OJZB$"14":ZL1:300jTMS((GT$)):MS44250p^:hI4:800:ZR1360,4250r===================|NUMBER OF PROBLEMS,CHARACTERS, "PAGE"===================MX20:M1$"AZ":ZL9:300:NA$GT$ :;I4:800:ZR1320,4250N=============` MENU "PAGE"s=============y5:14:"M E N U";6:14:"========"9:11:"1. NUMBER GAME";"11:11:"2. LETTER GAME";,13:11:"3. WORD GAME";-FLASH YOU WILL TYPE";1x4:8:"- NUMBERS,";M6:8:"- LETTERS, OR";c8:8:"- WORDS";11:2:"FROM MEMORY AFTER SEEING THEM FLASHED";13:2:"QUICKLY ON THE SCREEN."17:2:"PLEASE TYPE IN"19:2:"YOUR FIRST NAME: ";ZB:1310:(G0:OS0:OT0:OA0:OC0:GAME CTR + OLD GAME.f-J$" "(10)(8):J123:VE$VE$J$:J2ER$" "F=====================P INSTRUCTIONS "PAGE"Z=====================dn1:2:"IN FOTOOR,MORE,FOR,VARIETY,DURING,GAME,EXECUTIONd "NO-MORE-WORDS": DO NOT DELETE THIS LINE!!!!{================= INITIALIZATIONS =================:ND0E$(3),R$(10),WD$(20)WD$(0):WD$(0)"NO-MORE-WORDS"1320#NDND1;HERE,IS,WHERE,THE,TEACHER,SHOULD,TYPE,OUT,WORDS,THAT}ARE,TO,BE,USED,DURING,THE,GAME,SPACE,NO,NUMBERS,OR,BLANKS,ORSPECIAL,CHARACTERS,AND,WORDS,SHOULD,NOT,BE,LONGER,THAN,TWENTY,CHARACTERS,FROM,ATOZ,SPACE,TYPE,FIFTY,FAIRLY,UNIQUE,WORDS/.YOU GOT IT CORRECT !!!" j2~============BDATA WORDSfTHE RULES: NO EMBEDDED BLANKS,DO NOT TYPE IN NUMBERS LIKE 5, OR SPECIAL CHARACTERS LIKE ',AS THESEARE NOT ACCEPTED BY THE GET RESPONSE ROUTINE DURING GAME=============OWER AVERAGE TIME !!"C.R$(7)" A NEW HIGHER PERCENT CORRECT!!"f8R$(8)" A NEW HIGHER SCORE !!"BR$(9)" A NEW HIGHER AVERAGE SCORE !!"LR$(10)ER$:ERASE THE REWARD!VI2R$(0)R$(I)"..YOU GOT IT CORRECT, "NA$"!"`I2R$(0)R$(I)".GT$"N"ZR3ZR3820D23:1:958:CLEAR MESSAGE WINDOWJj====REWARD VARIATION======R$(0)"":BLANK OUT JUNK CHARACTERSR$(1)"YAHOOO!":R$(2)"HURRAY!"R$(3)"YIPPEE!":R$(4)"YOWWIE!"R$(5)"YAHOOO!"$R$(6)" A NEW LZQ127ZQ$(ZQ128):870-RZTMR1İ7006\840<a:PfZQ$(13)ZR0lpZQ$"B"(I1I3)ZR1zZQ$"E"(I2I3)ZR2ZR295023:1:958:CLEAR MESSAGE WINDOW" REALLY QUIT NOW (Y/N) ? ";ZL1:ZB$"YYNN":300================*ZR3C4ZP(16368):CLEAR KEYBOARD BUFFERj923:1:958:CLEAR MESSAGE WINDOW>23:6:"PRESS ";::"RETURN";::" TO CONTINUE "@24:12BI1I3Ğ:"B";::" BACK ";DI2I3Ğ:"E";::" EXIT ";HZQ(16384): (1,2): ";#ZB$"12":ZL1:3001RS(GT$)LI1:800:ZR1650,1500d=================={ DRAW GAME "PAGE"==================SC0:TA0:PC0:AS0:NR0:NT0:T10:RESET GAME VARIABLES TO ZEROI0NPWD$(I)" " I :A$(ER$,20)" 1:2:A$;1 7:2:A$;A 12:2:A$;R A$(ER$,13)b 1:26:A$;r 7:26:A$; 12:26:A$; A$(VE$,123) 1:1:A$; 1:22:A$; A$(VE$,123) %1:25:A$; *1:39:A$;: /:!p2:2:"PROBL"BEST-SO-FAR:";$. :A$(ER$,17)3. 3:2:A$;C. 3:22:A$;S. 17:2:A$;d. 17:22:A$;w. A$(VE$,153). 3:1:A$;. 3:19:A$;. 3:21:A$;. 3:39:A$;. .% :.* A$"PERCENT":5:4:A$;./ 24:A$;/4 A$"CORRECT:":6:CT FOR SUMMARY=- TA(((T1NP)100))100:TA=AVERAGE TIMEi- AS(SCNP):AS = AVERG SCORE PER PROB.o- - =====================- DRAW SUMMARY "PAGE"- =====================- - 1:1:"THIS GAME:";- 1:17:"SUMMARY";. 1:28: CONSOLATION', 5:21((NT)):NT;.,& I4,0 :A,: I2:800P,D ZR21500Z,N 4360q,X NA:NEXT ATTEMPT.,l ================,v END OF GAME LOOP, ================, GG1:THIS COUNTS GAMES PLAYED.- PC((NRNP)100):PC = PERCENT CORRE1020+ 3040+ :>+ SCSC100:R$(0)"AWW..TRY ANOTHER"g+ XX.05:IF WRONG, LONGER FLASH TIMEm+ :+ 6:21((NR)):NR;+ N1$((SC)):4310+ 10:20(N1$):N1$;+ L(R$(0)):I02+ 18:1:(ER$,L);:1:R$(0);, FLASH REWARD OR"";:ZLNC:MS3MS2ZB$"AZ"3*^ MS1ZB$"09"D*h 300:AN$GT$y*r ZTMR0:NTNA:T1(T1):TURN TIMER OFF. SET NT,T1*| :* 5:FF:DS$;* AN$AS$3010:SKIP IF WRONG* NRNR1:XX.05:SC(SCNCRS300(((11NC)T1NT)200))+ I((1)4)2:) :) I02:FLASH LOOP?) 5:FF::(ER$,NC);::288[) 5:FF:(ER$,NC);:288b) Ih)" :), 5:FF:DS$;:PRINT DISPLAY STRING DS$)6 288:DELAY WHILE READING WORD.)@ 5:FF:(ER$,NC);:ERASE WORD!)J ZTMR1:TURN TIMER ON *T 11:FF:Y STRG.DS$&( 3.ERASE DISPLAY AND>( TAKE A TIMED, ANDU( REVERSED? ANSWERn( 4.EVALUATE + SCORE( ====================( FF26(13NC)2:FF CENTERS THE FLASH AREA!( A$" ":5:26:A$;( 11:26:A$;( X0X0) X1X:SET AS$ TO DISPLAY IF FORWARDS CHOSEN,SKIP REVERSING LOOPZ'd AS$"":CLEAR ANSWER AS$i'n INC11'x AS$AS$(DS$,I,1):REBUILD REVERSED ANSWER AS$' I' :' ====================' READY? DISPLAY:' 1.WHITE BOX WARN. ( 2.DISPLAI)WD$(0):DS$WD$(0):NC(DS$):ADD WORD TO LIST,CALCULATE LENGTHZ& END OF CASE 1,2,3t&2 ====================&7 IF REVERSE OPTION&< RS=2 IS CHOSEN,&A REBUILD THE ANSWER&F STRING AS$&K ====================='Z RS1AS$DS$:271064N9124709% DS$DS$(N):CHANGE TO RANDOM LETTERF% I:2590L% :g% =TEACHER-INPUT WORDS=% :I0((1)ND):WD$(0):I:RND WORDS% :% I1NP:LOOP FOR THE NUMBER OF PROBLEMS% WD$(I)" "2580% WD$(I)WD$(0)2520% IC& WD$(510 $L :%$V =RANDOM-NUMBER GAME=V$` I1NC:LOOP THE NUMBER OF CHARACTERS TIMESv$j N((1)10):RANDOM NUMBER$t DS$DS$((N),1)$~ I:2590$ :$ =RANDOM-LETTER GAME=$ I1NC:LOOP THE NUMBER OF CHARACTERS TIMES% N((1)91)1:N50,1500#4360,#===================@# BEGIN GAME!U# A = NUMBER OFl# ATTEMPTS SO FAR# ===================# NA1NP:THIS LOOPS THE NUMBER OF PROBLEMS#$ DS$""#. :#8 BEGIN CASE 1,2,OR 3 BASED ON MENU!$B MS2400,2450,2"8:2:"TIMER:";0"8:21((T1)):T1;\"10:2:"SCORE:";:LEFT SIDE PRINTS END"N1$" "((SC),1):10:20((N1$)1):"*";N1$;"*";":"SKIP SET TIMER IF NOT FIRST GAME"G02280"X.3:SET TIMER": #I3:800:ZR16EMS"; !u3:2:"THIS GAME:";9!z3:21((NP)):NP;P!5:2:"NO.TRIED";i!5:21((NT)):NT;!6:2:"NO. CORRECT:";!6:21((NR)):NR;!2:27:"HERE IS";!3:27:"YOUR 'CUE'";!8:27:"YOUR ANSWER";"9:27:"GOES HERE";4:A$;/9 24:A$;6/> A$"AVG.TIME PER":8:2:A$;C/C 22:A$;`/H A$"PROBLEM:":9:2:A$;m/M 22:A$;}/R 15:2:A$;/W 15:22:A$;/\ A$"TOTAL":11:4:A$;/a 24:A$;/f A$"SCORE:":12:4:A$;/k 24:A$;0p A$"AVG. SCORE PER":14:2:A$;0u 14:22:A$;0 :70 6:17((PC)):PC;"%";Q0 37((OC)):OC;"%";_0 G13560r0 (PCOC)3580}0 I130 19:1:ER$;0 1:R$(I)R$(7);0 I0 OCPC:PUT THIS PERCENT INTO BEST SO FAR (OC)0 :0 9:18((TA)):TA;13* SUPERVISION BY *; * DAN ISAACSON, PH.D. *Y !* BILL BOTZONG *w "* CHAS SWANSON, PH.D. * #* * $* REVISED BY DON BECK * %* FOR CUE, INC. 1987 * (* * ** ALL RIGHTS *- * REVISED VERSION *K * (C) COPYRIGHT 1987 *i * BY COMPUTER USING * * EDUCATORS, INC. * * * * ORIGINAL VERSION * * DESIGN,DOCUMENTATION * * AND PROGRAMMING *  ************************= * *[* S Y L L A B L E S *y* ** ORIGINAL VERSION ** (C) COPYRIGHT 1984 ** BY SCHOOL & HOME ** COURSEWARE, INC. * * (N1$,(N1$)3)","(N1$,3)$9>9====================X9ERASE TO PAGE BOTTOMr9====================9&I182490I:1:ER$;9:I9D9N:9NRETURN TO MENU OR END9 N:(4)"RUN MENU"9*N6368,0: CLEAR BUFFER38(16384)12813423098:S8END OF GAME AND EXITY8|812:10:"F O T O - F L A S H"820:"END OF GAME."816368,08199998=============8FORMAT SCORES8=============8(N1$)443509N1$к"YOUR BEST AVERAGE SCORE WAS:";87@38((OA)):OA;i7J20:10:"YOU PLAYED ";G;" GAME";:G1ĺ"S";s7T".";7^21:2:"OK, THEN...REMEMBER TO WRITE THESE";7h22:2:"RESULTS INTO YOUR STUDENT RECORD.";7r24:8:"PRESS TO END";8|1HE SAME ORDER.".6RS2ĺ"REVERSE ORDER.";46:e613:1:"YOUR BEST PERCENTAGE CORRECT WAS:";{638((OC)):OC;614:1:"YOUR BEST AVERAGE TIME WAS:";638((TA)):TA;6"15:1:"YOUR BEST SCORE WAS:";6,38((OS)):OS;"7616:1::";#56:6:"YOU PLAYED THE ";>5MS1ĺ"NUMBER GAME.";Y5MS2ĺ"LETTER GAME.";r5MS3ĺ"WORD GAME.";x5:5MS34050:SKIP IF CHOICE WAS WORD GAME58:6:"YOU PLAYED WITH ";NC;" CHARACTERS.";510:6:"YOU PLAYED IN ";6RS1ĺ"TN) ? ";"42ZL1:ZB$"YYNN":30044<GT$"Y"1980N4F====================h4PFINAL SUMMARY "PAGE"4Z====================4d4n1:10:"THANKS FOR PLAYING"4x2:14(NA$)2:"FOTO-FLASH, ";NA$;"!!";54:4:"HERE IS A SUMMARY OF YOUR GAME%3N1$(OA):4310:LARGE NUMBERSP315:30:"* *";:38(N1$):N1$;^3G13845q3AS(OA)3880|3I13322:1:ER$;31:R$(I)R$(9);3I3OAAS:PUT AVG.SCORE AS INTO BEST (OA)3 : 4(24:5:"TRY TO BEAT YOUR SCORE (Y/NUMBERS42j12:30:"* *";:38(N1$):N1$;B2oG13750S2tSCOS3760^2~I13o221:1:ER$;21:R$(I)R$(8);2I2OSSC:SCORE SC INTO BEST (OS)2:2N1$(AS):4310:LARGE NUMBERS315:10:"* *";:18(N1$):N1$;8((OT)):OT;1G1366001TAOT3675;1$I13L1.20:1:ER$;j181:R$(I)R$(6);:REWARD!q1BI1LOTTA:PUT TA INTO BEST (OT)1V:1[N1$(SC):4310:LARGE NUMBERS1`12:10:"* *";:18(N1$):N1$; 2eN1$(OS):4310:LARGE RESERVED. *+ +* *J ,************************ P -:s .DATA WORDS AT LINE 1000-1090 b ===================== d T I T L E P A G E f ===================== x }7:12:"S Y L L A B L E S" 12:"-----------------"+ 15:11:" ORIGINAL VERSION"O 16:9:"(C) COPYRIGHT 1984 BY"| 17:6:"SCHOOL & HOME COURSEWARE, INC." 20:4:"REVISED VERSION (C) COPYRIGHT 1987" 21:4:" BY COMPUTER USING EDUCATORS, INC." 800 1440:SKIP STANDARD SN>."800:PRESS RETURN-ZR022453:d13:1:" 5. IF YOU MAKE A MISTAKE, YOU MAY"" PRESS TO REDO THE WORD."RF1:800:PRESS RETURNZR2110,2265_ =====================` GET NO. OF PROBLEMS a ==============800:PRESS RETURN(ZR02205.:G::" SYLLABLES ":t:" 4. WHEN ALL SYLLABLES ARE DIVIDED,"" MOVE THE MARKER RIGHT, PAST THE"" THE END OF THE WORD:":16)"CLO SET"22)")(":" THEN, PRESS . A SPACE WILL APPEAR"" AT THE POSITION YOU HAVE CHOSEN":16)"CLO SET"19)")("SYLLABLES ":?C:" 1. A WORD WILL BE SHOWN WITH A MARKER"TH" UNDER IT:"fM16)"CLOSET"tR15)")("W800: PRESS RETURN\ZR02135_:a8:1:958:" 2. MOVE THE MARKER TO THE END OF A"f" SYLLABLE USING THE LEFT/RIGHT"= GET USER'S NAME3===================L::" SYLLABLES ":d:"PLEASE TYPE IN":"YOUR FIRST NAME: ";ZL10:ZB$"AZ":300:GETNA$GT$3====================4 PRINT INSTRUCTIONS5====================>::" W$(ND)"XXX"14609NDND1:DO NOT COUNT "XXX"]NPND:NO. OF PROBLEMS POSSIBLEc:zPW$(1)"WAY TO GO"PW$(2)"SUPER"PW$(3)"THAT'S RIGHT"PW$(4)"YOU GOT IT"PW$(5)"RIGHT ON"PW$(6)"CORRECT"================== CHES TRA,PER I OD,POP U LA TION,QUICK,RE TURNED,SEA SONrSOME BOD Y,TI GER,US ING,VOICE,WON DERED,YOUR SELF{KXXXw===================x INITIALIZEy===================W$(50),IC$(50),PW$(6),ZB$(10)ND0NDND1:W$(ND)LLABLE BREAKS &+COMMAS BETWEEN WORDSB50 WORDS MAXIMUM,[14 LETTERS MAXIMUM.w===================== AN Y BOD Y,BE GIN NING,CAUSE,DIS TANCE,FOL LOW,GOT TEN,HON EYIN TER EST ED,JUN IOR,KICKED,LIGHT ED,MEM BERS,NEWS PA PER:OR"ZR1'zZQ$"E"ZR2:NTNT1:QF15ZR3840F23:1:958Lh ===================== DATA STATEMENTS=====================LINES 1010-1099 ARETO BE USED FOR DATAWORDS. ENTER WORDSWITH SPACES ATSY4ZP(16368): CLEAR KEYBOARD BUFFERc>23:06:"PRESS ";::"RETURN";::" TO CONTINUE"CRF1Ģ24:10:"OR ";::"B";::" BACK";:RF0D:HZQ(16384):ZQ127ZQ$(ZQ128):870RZTMR1İ700\840fZQ$(13)ZR0pZQ$"B=TITI.2"(TI)TI760OTC(36):TB(37):STORE CURSOR LOCATIONp2:33:(TI);:UPDATE CLOCKTB1:TC1::RESTORE CURSOR LOCATION================= SUBR-PRESS RETURN"=================*ZR3/23:1:958+""&(GT$)1GT$(GT$,(GT$)1)0 ZQ$;6:JZQ$(27)565ZGT$""565kZK1(GT$)!" ";(8);(8);&ZK+GT$""0:5ZTMR1İ700:370370==================SUBROUTINE - TIMER=================22ZQ$(ZB$,ZK,1)ZQ$(ZB$,ZK1,1)ZF0:ZKO(GT$)ZLZF1U:cZF1480sGT$GT$ZQ$}ZQ$;:ZQ$(13)500GT$""535" ";:::ZQ$(8)535" ";(8);(GT$)0535(GT$)1GT$UBS *==================4 , SUBROUTINE - GETL .==================] 6ZQ(16368)h ^GT$""n h: rZQ(16384) |ZQ127ZQ(16368):ZQ$((16384)):430 :" ";::(8); RF(1) 565 : ZF1 ZIĞZK1(ZB$)=======e NP30NP30 j 7t :" SYLLABLES ":_ 5:5:"HOW MANY WORDS DO YOU WISH" :5)"IN THIS GAME (2-"NP")? ";(8);(8); ZB$"09":ZL2:300 NW(GT$) NW2NWNP2440 ==================== DRAW GAME FRAME ==================== K "+-----------------+-------------------+"z "!NO. OF WORDS !TIMER: !" "!IN GAME: ! !" "! !AVG. TIME !" "!WORDS RIGHT: 0 ! PER WORD: E>XIT ON FIRST TRYG*TPC(NC(NT1)100):CALCULATE PERCENT CORRECT*^TA((TI(NT1).05)10)10:CALCULATE AVERAGE TIME*|" THIS GAME:"*"+------------------+"*"!% CORRECT: !"*"!AVG. TIME !"+"! PER WORD: !YOUR SYLLABLE STUDY-SHEET."%)+):9)I1IC2a)I;". ";IC$(I);:PRINT MISSED WORDSw)IC$(I1)""4130)20);I1;". ";IC$(I1))"I)':),800:ZR04140:ACCEPT ONLY )@:)J*ONT104670:CHECK IF USER SELECTED % 3472:TO BOTTOM OF LOOP& 13:1:958:CLEAR BOTTOM OF SCRECLEAR BOTTOM OF SCREEN<$ 16:20:"THAT'S NOT CORRECT."]$ 17:20:"PRESS THE KEY"~$ 18:20:"TO REDO THE WORD."$ ICIC1:IC$(IC)W$:STORE INCORRECT WORD$ 700:(16384)2103270:ACCEPT ONLY "R"$ 5000:PRINT RESPONSE MENU% 700#v :# WT13320:TRY 10# C$W$3220T# F1:SET CORRECT FIRST TRY FLAGs# WT3:SET WORD TRY TO DONE# 7100:PRAISE# 24:12::"E";::" EXIT";# 800:ZR3216,4010:PRESS # 3472:TO BOTTOM OF LOOP# :$ 18:1:958:80"& (C$,PO,1)" "31808"0 (C$,PO1,1)" "3180K": (C$)PO3180v"D C$(C$,PO)" "(C$,(C$)PO):POPO1"X 11:10:NT;". ";:11:14:C$;" ";"b 12:12:20):12:12PO:" )( ""g :"l 700:UPDATE TIMER#q 2960:BOTTOM OF LOOPEMOVE SPACES FROM WORD! :?! I$(8)3040:MOVE )( LEFTe! PO0POPO1:12:12PO:" )( ";k! :! I$(21)3070:MOVE )( RIGHT! PO(C$)POPO1:12:12PO:" )( ";! :! I$(13)3180:! PO(C$)3200! :" PO131MBER FLAG' r WT12: WT=WORD TRIEDJ | 7000:REMOVE SPACES FROM WORDo ZP(16368):CLEAR INPUT BUFFERu : I$"":ZQ(16384):ZQ127I$(ZQ128):ZP(16368):GET A COMMAND I$"E"QF1:4010:EXIT FROM PROGRAM :! I$"R"İ7000:R :/, R((1)IN)1:RANDOMLY SELECT A WORDc; W$(R)W$2860:DON'T IMMEDIATELY REPEAT A WORDpJ W$W$(R)vO :Q S1: RESET SYLLABLE COUNTERT I1(W$):COUNT NUMBER OF SYLLABLESY (W$,I,1)" "SS1^ Ih : m F0:CORRECT-ON-TRY-NU6384)2112710:ACCEPT ONLY "S"5 24:10:30);H =============Y PLAY GAMEl ============= TI0:NC0:NT0:IC0:PL0:QF0:SC0:ZERO VARIABLES : INND:WORD ARRAY POINTER NT1NW:GAME LOOP 5000:PRINT RESPONSE MENU" !"6 "! ! !"e "!WORDS TRIED: 0 !SCORE: !" "+-----------------+-------------------+"( 3:16:NW;Z 5000:PRINT RESPONSE MENU 24:10:"PRESS ";::"S";::" TO START GAME";" (1"+"!SCORE: !:+"+------------------+"N+3:13:PC;"%";^+5:13:TA;n+6:13:SC;t+:+QF0GCGC1:IF COMPLETE GAME SET COUNTER+GC1HATA:HPPC:HSSC:4670+GC04670+1:20:" BEST SO FAR:";,2:21:"------------------+"7,3:21:"% CORRECT: !"Y,4:21:"AVG. TIME !"{, 5:21:" PER WORD: !",6:21:"SCORE: !,7:21:"------------------+",&3:33:HP;"%";,05:33:HA;,:6:33:HS;,?:-DQF1"' 16:9:"(C) COPYRIGHT 1984 BY"T 17:6:"SCHOOL & HOME COURSEWARE, INC." 20:4:"REVISED VERSION (C) COPYRIGHT 1987" 21:4:" BY COMPUTER USING EDUCATORS, INC." 9000 W$(100),S$(100),H$(100) ================== PRINT RESERVED. *+ +* *I ,************************O .:l b ===================== d T I T L E P A G E f ===================== x }7:13:"S C R A M B L E" 13:"---------------" 15:11:" ORIGINAL VERSION* SUPERVISION BY *; * DAN ISAACSON, PH.D. *Y !* BILL BOTZONG *w "* CHAS SWANSON, PH.D. * #* * $* REVISED BY DON BECK * %* FOR CUE, INC. 1987 * (* * ** ALL RIGHTS  *- * REVISED VERSION *K * (C) COPYRIGHT 1987 *i * BY COMPUTER USING * * EDUCATORS, INC. * * * * ORIGINAL VERSION * * DESIGN,DOCUMENTATION * * AND PROGRAMMING *  ************************= * *[* S C R A M B L E *y* ** ORIGINAL VERSION ** (C) COPYRIGHT 1984 ** BY SCHOOL & HOME ** COURSEWARE, INC. * * 6)1); 2(1).4ĺ", ";NA$;*2"!";02:2H$W$(IN):W$(IN)W$(R):W$(R)H$:ININ1:SWAP USED WORD WITH LAST IN ARRAY22*DO NOT DELETE/CHANGE LINE 1099 DATA XXX2NRETURN TO MENU OR END2 N:(4)"RUN MENU"2*N70401vC$C$(W$,I,1)!1IQ111:10:NT;". ";:11:14:C$;" ";s112:12:20):12:12:" )( "y11===================1SUBROUTINE - PRAISE1===================1NCNC1:5:16:NC;:18:1:958218:12:PW$(((1)ʞ:"E";::"..EXIT"50:12:"WHEN DONE, MOVE )("l02:" TO RIGHT OF WORD & PRESS ";::"RETURN":r00W====================0X SUBR-REMOVE SPACES0Y====================0bC$"":PO0:RESET VARIABLES0gI1(W$)1l(W$,I,1)" " /19999'/====================@/ SUBR-RESPONSE MENUZ/====================/13:1:958:CLEAR BOTTOM OF SCREEN/18:2::"ARROWS";::"..MOVE )( LEFT/RIGHT ";::"R";::"..REDO"02::"RETURN";::"..DIVIDE AT MARKER ";:HIGH SCORE!! ":.:..>GC0NT104730_.C21:1:"WOULD YOU LIKE TO TRY TO BEAT YOUR".H"SCORE WITH ANOTHER GAME (Y,N)? ";.RZB$"YYNN":ZL1:300.\GT$"Y"2510.z.10:12:"S Y L L A B L E S".12:15:"END OF DRILL"/20:1:4670:EARLY EXIT SELECTED0-NPCHP.014510:-XHPPCl-b:13:6:" A NEW, HIGHER PERCENT CORRECT ":r-g:-HATA.014590-HATA-:15:4:" A NEW LOWER, AVG. TIME PER WORD!! ":-:-SCHS.014670-HSSC.:17:10:" A NEW DIRECTIONS$ ==================C :3:9:"S C R A M B L E" 7:"THIS PROGRAM IS A TEACHER UTILITY"::"THAT WILL SCRAMBLE WORDS FOR YOU.":::"IT CAN SCRAMBLE UP TO 100 WORDS"::"AND DISPLAY THEM HERE 10 AT A TIME"::"OR PRINT THEM ALL TO PAPER.":9000?1:"DIRECTIONS:":"-----------":k" -TYPE ONE WORD AFTER EACH NUMBER.":" -DO NOT USE HYPHENS OR APOSTROPHES.":" -WORDS MAY BE UP TO 14 LETTERS LONG.":::"TYPE ";::" STOP ";::" AS YOUR LAST WORD TO 868 F#'N RETURN TO MENU OR END= N:(4)"RUN MENU"C*N(8);(8);!ZK!GT$""$!:6!ZTMR1İ7300@!8425Y&#===================r(#SUBR - PRESS RETURN*#===================2#16368,0:CLEAR KEYBOARD BUFFER.7#24:8:"PRESS TO CONTINUE";<#Q(16384):Q1419020A#8:Q$; /!: 4!ZQ$(13)852019!GT$""8555=>!" ";:CC!:WH!ZQ$(8)8555fM!" ";(8);yR!(GT$)08555W!(GT$)1GT$""\!(GT$)1GT$(GT$,(GT$)1)a!ZQ$;f!:k!ZQ$(27)8590p!GT$""8590u!ZK1(GT$) z!" ";ZQ(16384)> ZQ127ZQ(16368):ZQ$((16384)):8450S :" ";::(8);_ RF(1)i 8590o :x!ZF1!ZK1(ZB$)2 !ZQ$(ZB$,ZK,1)ZQ$(ZB$,ZK1,1)ZF0!ZK!(GT$)ZLZF1!: !ZF18500%!GT$GT$ZQ$*!ZDING A SCRAMBLED FORM FOR THIS WORD.070106 N ==================f SUBROUTINE - PAUSE~ ================== K61700P5:: : ================ SUBROUTINE - GET ================ ZQ(16368) GT$"" : 1):S$(C)S$(C)H$(R):ADD LETTER TO SCRAMBLED WORD.qT$H$(R):SWAP ADDED LETTER WITH PRESENT LAST ONE.H$(R)H$(LK1)H$(LK1)T$KL17200S$(C)W$(C)7200:SCRAMBLED <> UNSCRAMBLED.FLFL1&FL57200:NOT FIN1::" UNSCRAMBLED ";:;21::" SCRAMBLED "::AZX===================sZSCRAMBLE SUBROUTINE\===================`FL0bL(W$(C)):S$(C)""d:gK1LlH$(K)(W$(C),K,1)qKv:{K1LR((LK1)(1)OGRAM."199990p======================LrHEADING 'A' SUBROUTINEht======================z4::" UNSCRAMBLE ";::" ('STOP' TO END)":======================HEADING 'B' SUBROUTINE====================== A DIFFERENT":9\"SCRAMBLE OF THESE WORDS (Y/N)? ";Ca8400TfGT$"N"970fkGT$"Y"855lm:|nA14::Ao"SCRAMBLING":A14::ApC1Nu7000:SCRAMBLE SUBROUTINE.w"*";zC|600: 15:1:"END OF PR" CC1CN705!':7 (4)"PR#0"G%F$"P"855\'C10İ9000:855*"DO YOU WISH TO SEE THIS LIST OF":/"WORDS AGAIN (Y/N)? ";4ZL1:ZB$"YYNN":8400>GT$"Y"895CGT$"N"ė:810R:W:"DO YOU WISH TO SEEe:(4)"PR#";PS,g6100:HEADING 'B'.2l:_C10(C10)730:10 WORDS PER SCREEN.e:F$"P"730:OMIT PAGING FOR PRINTER.9000:'PRESS RETURN'.6100:(C);". ";W$(C);17(W$(C)));(C);". ";S$(C)" RACTERS MAX.)" 525#:9&7000:SCRAMBLE WORD.B+505H0:gX=========================Z PRINT SCRAMBLED WORDS\=========================bNC1:C1dF$"P"Ģ12:"PRINTER IS IN SLOT:1":12:20:"";PS$:PS(PS$):PS$""PS1============%C15(C15)520H:MAX. OF 14 WORDS ON SCREEN.`6000:HEADING 'A'.sZL14:ZB$"AZ"}CC1 C;". ";:8400:GET WORD.W$(C)GT$W$(C)"STOP"600(W$(C))15550:LENGTH OK."WORD TOO LONG (14 CHAEND."9000,,=====================G.WHAT TYPE OF DISPLAY?b0=====================;17:1:"SEND TO SCREEN OR PRINTER (S,P)? ";EZL1:ZB$"SSPP":8400:GET S OR PTF$GT$==================== ACCEPT WORDS========