' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6L:5 & "L}"BB5L&]66 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`7`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"_*]6` L/5553L3  !"#$%&'()*+,-./0123456789:;<=>?80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L6 i:5`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmxԠ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n555m5555m555`"L? 585H ~.(3` d ֠z#ԍӍӍ   ^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`s:0 R \M W \LA7ݩ  = {ڥ$0 \L٠ޙ \M W$ץ)П^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^eP% [٬{$ ,Ɉ>ɕBɍRɉNɟSM)LL \Šd0 'MLݽ \КTPɛLH hг {$0 {$䥃h)ݥXRR {$ {$as "MAX" entr"S$":""*/mINPFIXED LENGTH INPUT.TB , ,݅L " ީ; = g RQP5LԅM l݅%ڥ${٤M \ۈM \ۈۅLȱȱߥۅMM܅Lڅ% [٬{$ޙ \ \ۈ ";:P1400:P<)D/L%(W,2):36,L%(W,1):W" "WD$(MAX)P)N/WD$(W)WD$(MAX))X/L%(MAX,2):36,L%(MAX,1):" ";)b/WD$(MAX)"":MAXMAX1)/255)/S$"ies":MAX1S$"y")/Z$FL$(0):Z$""Z$"NEW FILE:"*/1:36,1:Z$" now h/L%(W,2):36,L%(W,1):W" "WD$(W)" ":80;(0/23:36,1:LC$~(1/23:36,1:MAXWĺ"DELETING Entry #"W:P11200:P:200:12120(5/"DELETING Entry #"W", and moving Entry #"MAX" to its place...":(7/P11200:P:200):/L%(W,2):36,L%(W,1):W" K (Y/N)? Y"(8);*'.Z$:Z$(13)Z$"Y"C'.Z$"N"Z$"n"12070\'/Z$"Y"Z$"y"12050g'/12025'/23:36,17:190:" "'/23:36,17:"... You're sure (Y/N)? Y"(8);:Z$:255:Z$(13)Z$"Y"'/Z$"Y"Z$"y"12080((&6,1:Z$" now has "MAX" entries: "8&.36,1:21:64578&.36,1:21:LC$;:36,1:"DELETE which Entry? (1-";MAX") ";:"";W$:W(W$):W1WMAX12010&.L%(W,2):36,L%(W,1):W;::" "WD$(W)" ";:'.23:36,1:"DELETE Entry #"W;:36,17:"... Is this O):10:1:"Your file was deleted.":P11300:P:24N%,---QUIT WITHOUT SAVE?%,23:36,1:"Quit to MENU without Saving this file? N"(8);:Z$%,Z$"Y"Z$"y"24%,80%. DELETE ENTRY%.MAX280%.Z$FL$(0):Z$""Z$"NEW FILE:"#&.1:3-YES choose none of these$$+1:1:A$+D$"DELETE GAME."FL$(NN)e$+PNNMAX:FL$(NN)FL$(NN1):P:s$+MAXMAX1$+Z$"BASENAMEFILE"$+D$"DELETE"Z$$+D$"OPEN"Z$$+D$"WRITE"Z$$+MAX$+P1MAX$,FL$(P)$,P$,D$"CLOSE"3%$,:(21#+Z$(13)Z$"Y"-#+Z$"Y"Z$"y"ī11160F#+Z$"N"Z$"n"11120L#+#+23:36,1:"To REMOVE ";::" "FL$(NN)" ";::" from this disk, please type YES: ";Z$:Z$"YES"Z$"yes"ī11180$+:(21):10:1:"No file was removed.":P11300:P:24:-N" ";::" None ":r"f+21:36,1:64578:21:36,1:"Which file (1-"MAX1")? "(8)(8);:N$"":L1:(MAX1)9L2"p+"INP",L,N$:NN(N$):NN1NNNF1N$"":10110"z+23:36,1:"You chose: ";::" "FL$(NN)" ";::"... Is this OK (Y/N)? Y"(8);:Z$":MAX1SS$""E! +1:36,1:"This disk has "MAX" word file"SS$"..."!*+21:36,1:64578:21:36,1:"Do you wish to REMOVE any file here? (Y/N) ";:Z$!/+Z$"N"Z$"n"ĺ(21):24!4+Z$"Y"Z$"y"ī11100!9+11050!H+"\+L%(N1,2):36,L%(N1,1):hoice? (E,A,D,M) ";:A$. T)A$"E"A$"e"120E Y)A$"A"A$"a"125\ ^)A$"D"A$"d"115s c)A$"M"A$"m"110~ h)10575 ) ) *-------REMOVE OLD FILES * +N1MAX +36,L%(N,1):(L%(N,2)):N" "FL$(N)!+N:FL$(N)"No file":SS$"sEAD "Z$FL$(0)")MAX#')P1MAX/,)WD$(P)61)P=6)1T8)D$"CLOSE"Z$FL$(0)\;):@)1:36,1:FL$(0)" now has "MAX" entries: "J)P1MAX:36,L%(P,1):L%(P,2):P" "WD$(P):P O)36,1:21:64578:"dit dd elete enu Your cn adn set it up for editC'(21):24:--YES choose none of theseI'T'10050n)-----read in to edit ):12:36,1:"Loading "FL$(NN)"..." )P150:WD$(P)"":P)Z$"GAME.")FL$(0)FL$(NN))1)D$"OPEN "Z$FL$(0))1 )D$"R "FL$(NN)" ";::"... Is this OK (Y/N)? Y"(8);:Z$J'Z$(13)Z$"Y"d'Z$"Y"Z$"y"ī10160}'Z$"N"Z$"n"10110'VTAB L%(N + 2,2): POKE 36,L%(N + 2,1): PRINT " ": NORMAL : GOTO 10050'NNMAX110500:--- GO read it iz#     !ŠҠ'ŮԠ ŮӠ ԠŠԠ Ůˠˠՠ-̭έŠ6Š4ӠIU@յ؃`Us܍յ`ߵUU Ug` `p~އ pc\px~֍Ձ ăcpյ؍xs؇Ս`ݵ  EDg`pc ׍ pc\@@`G @@@G@@@@@Oڪ `p~֍ @յՂp Ď?s`֍յ g8 Ug`p~؃pc|`p~֍Ձ @`g@@@᰸@@ꅺ@ @@Gc@@@8c`@ă`oGD@"`g@~?@@A@ꊪ@ @@Gꇪ@@ @@{@` @@Gc@@Gs@ꆰ@ă@N@D@"`w@@@@@Ʈ@ @@Gc@D@~c`@`GG@ @@GcA@@G;@@D@"`?@@@ @@~@ @@Gc@@Gs@N?@@`w@@@@ @@Gꇪ@@@ă`;GD @*G@@@@@ @*@G`@*@G;@*@*@*` @@@ @@ N`յՃăAxpN" Np`pՃx@Հ`Հ ĎNpՍՇ N DGxp``p`Ճյ @@ګ @ N`յՃNՅփG" Nx@pxc@Ճ`|cՂ `ՂՃ ĎN`յՃ"GՅ؃N DNp`pxc`Ճ@|c`Հ`ՂՃ Ճ |G`ՀąNՄՍ" Np `p{ ՂՃ ĎN`յՃN`ՃփA DNp `xcx ൃՂՃ`QصյՍ `Հ ~NՍ N" UA`p`p$صՇ UpA``ՀU~N׵ՍUU UN ?p `p{$ص      C." > >P > ":J 17:" THIS DISK MAY BE FREELY COPIED AND"y 18:" GIVEN AWAY, BUT MAY NOT BE SOLD" 19:" OR INCLUDED AS PART OF ANY " *20:" COMMERCIAL PACKAGE WITHOUT " 421:" WRITTEN PERMISSION FROM CUE, IN : "  -- TITLE PAGE --: PAUSE3: (SECONDS)P P1PAUSE700:PX :x ND$"LANG-ARTS SHELL GAMES" 6:21(ND$)2:ND$ 10:4:"COPYRIGHT 1987, CUE, INCORPORATED" 12:11:"ALL RIGHTS RESERVED" 15:4::"  CUE BOOT PROGRAM 0 ::49234,0:BD$(13)(4)YD$"BLOAD RUNPACK"r(D$"BLOAD TITLE.PAK"|28048<2000: -- TEXT TITLE --FD$"RUN MENU"P SOFTSWAP TITLE GRAPHIC BY JOHN FORRESTER AND HIS MOM, ROXIE FORRESTER Z   600 D$"APPEND HIDE.NOTE"- 216,0:404  K X -- NEW DISK NOTEb b1800:1820:216,0 l3:" -- FILE MAKER NOTICE -- " v::" THIS DISK HAS A FILE MAKER UTILITY" " PROGRAM TO LET YOU MAKE YOUR OWN" " FILES. TO ACC11000 K141VNP4ĉ::7000:D$"RUN"A$(V)[ K141VNP4ĴV(NP4)2000,3000,4000i VNP50v ::999 , -- ACCESS TO FILE MAKER 6A$(1)"FILE MAKER":P25:A$(P)A$(P2):P:XX1:NP5 @50 J:  -- CHECK IF NEW 1 TURN>";: P105 ZN1NP:20(A$(N))2:A$(N):V d:V9:20(A$(V))2:A$(V)q nK(16384):K128110 x16368,0::V9:20(A$(V))2:A$(V) }K148XX0ī300 K136K139VV1:V0VNP K149K138VV1:VNP1V1 K14FTSWAP MENU ) 49168,0:D$(13)(4)9 XX0:255:S NP:N1NP:A$(N):Ng #L$(24),LT$(50)| $FI$(150),B$(50) %500 (1800:1820 2::V1:255 <ND$"LANG-ARTS SHELL GAMES (10/88)":1700 F:23:4:"USE ARROW KEYS AND PRESS Ďs8``?g  E, " OR SLOWS DOWN DEPENDING ON ACCURACY"K " AND SPEED OF RESPONSE."w :" USE FILE MAKER TO ENTER UP TO 50 " " WORDS WITH / FOR SYLLABLE BREAKS." 1000 3:10::" SYLLABLES! ":! :" THIS PROGRAM COMES FROM COURSE- "#& " 5:" FROM COURSEWARE MAGAZINE, THIS "T " PROGRAM FLASHES A WORD AND YOU MUST" " TYPE IT IN. IF YOU MISS, THE WORD " " WILL BE FLASHED IN SYLLABLES. IF" " YOU MISS IT TWICE, IT IS SHOWN FOR" " COPYING. FLASHING TIME SPEEDS UP"R HER OWN "$ " WORD LIST FILES."R :" THESE GAMES ARE LIKE 'SHELLS' THAT "} " A USER MAY 'FILL' WITH CUSTOM WORD" " LISTS, MADE FOR SPECIFIC NEEDS." :" USE FILE MAKER TO MAKE WORD FILES." 1000 3:10::" SPELL-N-TIME ":("% " HILL, FARMINGTON, MI 48018."/ 1000: : W ABOUT THESE PROGRAMS ]  3:5::" LANG-ARTS SHELL GAMES ": 5:" THE 3 GAMES ON THIS DISK ARE IN" " 'SHELL FORMAT', WHICH MEANS THAT THE"  " USER IS ABLE TO MAKE HIS ODISK CONTAINS A HIGH";" SPEED OPERATING SYSTEM CALLED"b" DIVERSI-DOS, WHICH IS LICENSED"" FOR USE WITH THIS PROGRAM ONLY.":" TO LEGALLY USE DIVERSI-DOS" " WITH OTHER PROGRAMS, YOU MAY SEND" " $30 TO DSR, INC., 34880 BUNKER A FILE."z1000-3:15::"CREDITS":45a" FILE MAKER USES INPUT ROUTINES FROM:"g" TRIAL SIZE TOOLBOX"" ROGER WAGNER PUBLISHING"" (C) COPYRIGHT 1984"10003:15::"CREDITS":5:" THIS *H" THE FILE MAKER PROGRAM WAS WRITTEN"VR" BY PHILL JACKSON OF CUE-LA AND THEN"t\" MODIFIED BY DON BECK."a:" YOU CAN MAKE NEW FILES, ADD ENTRIES"f" TO OR EDIT EXISTING FILES. MAKE "p" UP TO 50 WORD/PHRASE ENTRIES MAX " u" INROGRAMS---WHICH MEANS "= " THAT USERS CAN MAKE THEIR OWN"b" WORD FILES BY USING THE FILE"" MAKER PROGRAM INCLUDED ON THIS"" DISK TO MAKE UP WORD/PHRASE" " FILES SPECIFIC TO THEIR NEEDS."*100043:15::"CREDITS":>5*5:" ALL THREE PROGRAMS -- SPELL-N-"S" TIME, SYLLABLES & ALPHABETIZE --"|" WERE DONATED BY DAN ISAACSON TO "" CUE. THEY FIRST APPEARED IN HIS"" 'COURSEWARE MAGAZINE'.":" THEY HAVE BEEN REVISED TO 'SHELL'"" FORMAT P140:1:ZZ:" ";:ZZ4 ZZ223:40:ZZ:" ";:ZZVZZ4011:ZZ:23:" ";:ZZwZZ2311:1:ZZ:" ";:ZZ}:  -- SET WINDOW --:1806 32,1:33,38:34,1:35,21":  CREDITS :3:15::"CREDITS"::ZZ37:3:ZZ:" "pZZ4ĢZZ:CUE$"CUE SOFTSWAP":21(CUE$)2:CUE$ZZ6ĢZZ:21(ND$)2:ND$ZZXX1Ģ21:8:"REBOOT FOR GAME PROGRAMS";:1:  -- SCREEN SETUP -- ::ZZOW";::1:P11000:P:50#:1;D$"OPEN HIDE.NOTE"T D$"CLOSE HIDE.NOTE"c216,0:50k v:  -- SCREEN CLEAR --23:3:" PRESS ANY KEY TO CONTINUE ";49168,0:Z$:::  -- MENU BANNER --911:10:" SHOW THIS NOTE ";D12:10:" ";nP15:11:10P:Z$:Z(Z$):P5761Z$("HIDE",P,1)760Z$("hide",P,1)ZZ32:760ZZ$"":P6:761ZZ$ZZ$(Z):11:10P:(Z);PZZ$""Ģ11:11:"SHOCK THIS NOTE")" BY THE FOLLOWING:"P:" -TYPE 'HIDE' TO REPLACE"t" THE WORD 'SHOW' ABOVE":" -AND THEN PRESS ";:23:1:" ";ZZ$""10:10:" ";!R ";::"!"1000A4:" THIS FILE MAKER NOTE IS SET TO "h" SHOW WHENEVER THE DISK BOOTS.":" -PRESS ALONE TO STAY"" SET TO 'SHOW THIS NOTE'"14:" WHEN YOU ARE READY TO SET DISK"" FOR STUDENT USE, BLESS FILE MAKER:"= ::" 1- WAIT FOR THE MENU TO APPEAR"i :" 2- TYPE A CONTROL-T. (HOLD THE" " CONTROL-KEY & PRESS T ONCE)" :" 3- FILE MAKER WILL BE ON MENU" :::" THAT'S ";::" CONTROL-T ";::" FOR ";::" TEACHE".,&" DONATION OF USEFUL EDUCATIONAL SOFT-"Y,0" WARE AND DATA, TO SCREEN AND CLEAN",:" THE DONATIONS, AND TO DISSEMINATE",D" COPYABLE DISKS TO EDUCATORS AT LOW",N" COST.",X1000,b:3:12::"ABOUT SOFTSWAP":-l5:" THIS DISK ISA 94026"/+::" FOR MORE INFORMATION, CALL"J+:" (415) 328-2248"T+1000w+:3:12::"ABOUT SOFTSWAP":+5:" SOFTSWAP IS A SERVICE OF CUE, INC., "+" AND HAS BEEN OPERATING SINCE 1978.",:" SOFTSWAP'S MISSION IS TO SOLICIT THEUE MEMBERS ATTEND THE "@*" STATEWIDE CONFERENCES HELD EVERY"f*" FALL AND SPRING, AND RECEIVE "*" THE CUE NEWSLETTER SIX TIMES A YEAR."*::" TO JOIN CUE, SEND $22 TO:"*:" CUE, INC."*" P O BOX 2087"+" MENLO PARK, CTERIALS, AND"4)J" SOFTWARE APPLICATIONS TO ALL"V)T" INTERESTED PERSONS; AND")^:" * TO PROMOTE THE PROFESSIONAL GROWTH")h" OF ITS MEMBERS AND ALL FELLOW")r" EDUCATORS.")|1000):3:15::"ABOUT CUE":*5:" OVER 2500 CUE ARE:"4(:" * TO PROMOTE THE DEVELOPMENT AND "("" GROWTH OF THE USE OF COMPUTERS":" AND OTHER TECHNOLOGIES":" IN EDUCATION."(,:" * TO MAKE A SUBSTANTIAL CONTRIBUTION"(6" TOWARD DEVELOPING AND PROVIDING" )@" INFORMATION, MAATIONAL CALIFORNIA">'" CORPORATION FOUNDED BY TEACHERS IN"L'" 1978."{':" CUE HAS OVER 7000 MEMBERS THROUGHOUT"'" THE U.S., CANADA, AND IN SEVERAL"'" FOREIGN COUNTRIES."'1000':3:15::"ABOUT CUE":(5:" THE GOALS OF CLE MAKER BY PHILL JACKSON, CUE-LA."P& 9:" ALL PROGRAMS HERE EDITED/MODIFIED"e& " BY DON BECK."o&1000z&: & -- ABOUT CUE & SOFTSWAP --&:3:15::"ABOUT CUE":&5:" COMPUTER-USING EDUCATORS, INC., IS A"'" NON-PROFIT EDUC";::" IF YOU DO THIS, YOU MUST"J%% " RUN FILE MAKER FROM THE CUE MENU"s%* " TO AUTOMATICALLY UPDATE THE FILE"%4 " LIST FOR THE DISK, TO ADD NEW "%6 " FILES COPIED INTO THE LIST."%> 1000%C 3:5::" LANG-ARTS SHELL GAMES ":#& 6:" FI$ " GAME FILES MAX ON A DISK) START ON"A$ " ANOTHER DISK. "l$ :" ADD OR REMOVE GAME FILES USING A"$ " STANDARD UTILITY PROGRAM (EG. FID"$ " OR COPY II+). GAME FILES IN THE "$ " CATALOG HAVE A PREFIX: 'GAME.' "!% :" ";::" NOTE :&# :" * MAKE NEW WORD(S) FILES"F# " * EDIT EXISTING FILES"_# " * ADD TO FILES"y# " * REMOVE FILES";# 1000# 3:12::" FILE MAKER ":# :" MAKE A COPY OF THIS DISK BEFORE YOU "# " MAKE NEW GAME FILES. WHEN FULL (25 ")WERCASE (II-E,C,GS)."@" :" YOU WILL USE FILE MAKER TO MAKE "i" " YOUR OWN GAME FILES. FOLLOW THE"" " PROMPTS IN THE PROGRAM. PROGRAM "" " IS SET TO ALLOW ONLY LETTERS, / "" " AND SPACES IN FILE ENTRIES."# ::" YOU WILL BE ABLE TOIF YOU WISH, FOR STUDENTS WHO "F! " MAY WORK BETTER WITH ALL CAPS."o! :" THIS WILL CHANGE THE FILE ONLY"! " DURING PLAY, NOT ON THE DISK.";! 1000! 3:12::" FILE MAKER ":! :" THE FILE MAKER REQUIRES BOTH 80 "" " COLUMNS AND LOTTERS, SPACES & /."< x :" ON APPLES WITHOUT LOWER CASE,"b y " PROGRAM & FILE(S) WILL BECOME"~ z " UPPERCASE FOR PLAY." { :" FOR OTHERS, YOU MAY CHOOSE (AS A" | " PROGRAMS STARTS) TO CHANGE ALL" } " LOWERCASE IN WORD LIST TO CAPS "!~ " (i " WORD PAIRS UNTIL THE LIST IS IN "?j " CORRECT ORDER."lk :" PLAYER CAN REPLAY TO IMPROVE TIME."vn 1000o 3:12::" WORD FILES ":q :" FILES MADE HERE ARE SHARED BY ALL"v " 3 PROGRAMS. YOU CAN ENTER UPPER &" w " LOWERCASE LES 3:10::" ALPHABETIZE ":GX :" ALSO FROM COURSEWARE MAGAZINE,"o] " THIS VERSION WILL SHOW FROM 3-8"b " WORD/WORD GROUPS LISTED IN RANDOM "d " ORDER."e :" PLAYER MUST PUT LISTED WORDS INTO"g " ALPHABETICAL ORDER BY SWAPPING OF"WARE MAGAZINE ALSO. THIS VERSION "L+ " WILL LET A PLAYER BREAK WORD(S) "e0 " INTO SYLLABLES. "l5 ": :" PROGRAM WILL SHOW THE CORRECT"? " SYLLABLE BREAKS AFTER 2 WRONG"D " TRIES. PLAYER PLAYS FOR SPEED"N " AND POINTS."P 100020"CURRENT FILE: "FL$(0)'NA3ZHO(1)10:VO(1)12:OP$(1)" PLAY CURRENT FILE "HO(2)12:VO(2)14:OP$(2)" CHANGE FILES "HO(3)12:VO(3)16:OP$(3)" QUIT FOR NOW "1010:1170:CH400,4000,950200"===============1ZZ0:400,=====================> MAIN MENUY=====================_3:4:"S P E L L - N - T I M E M E N U"4:4:"=================================":NA47:(13((FL$(0)))2):COMP0ĺ"Current File: "FL$(0):2PERGAMEI R$(50),FL$(25),OP$(25),HO(25),VO(25),WD$(50),MW$(NW),FW$(NW)p 1:4900: READ WORDS INTO PROGRAM ===================== INITIALIZE ===================== R(1(78)256(79)) SC0:I0:WA0:NC0:NNQ:ZZ987 BY"5 22:6:"COMPUTER USING EDUCATORS, INC."O P11200:P: PAUSE z COMP0İ1400: SPELL WORDS- ALL CAPS? ====================== WORDS PER GAME & DATA WORDS ====================== NW10:ZZ0: # OF WORDS by"6 15:4:"Dan Isaacson & CourseWare Magazine"[ 21:9:"(c) Copyright 1987 by" 22:6:"Computer Using Educators, Inc.":165 14:9:"(C) COPYRIGHT 1980 BY" 15:4:"DAN ISAACSON & COURSEWARE MAGAZINE" 21:9:"(C) COPYRIGHT 1AVAIL U SET IN SUBR 14009 x ===================== T z T I T L E P A G Ep | ===================== ::D$(13)(4) 7:9:"S P E L L - N - T I M E" 8:9:"=======================" COMP1150 14:9:"(c) Copyright 1980=====! G UPPER-CASE/LOWER-CASE= H =====================h PCOMP0:SPL0:(64435)6COMP1:SPL1 RCOMP1İ1300: COMP=1 MEANS UPPER CASE ONLY S SPL = 1 MEANS UPPER CASE FILES BY CHOICE T SPL = 0 MEAND MIXED CASE AS MADE WHEN LOWER CASE L4====================. SPELL-N-TIMEM (C) 1980 BY DAN ISAACSONg COURSEWARE MAGAZINE (C) 1987 BY CUE, INC. EDITED BY DON BECK====================  :( -- PROGRAM REALLY BEGINS HERE F ================               !" 3M12:"ONE MOMENT PLEASE,"<3R:"LOADING "A$(V)"..."B3\(B$(B))5BB12: D2P1B1:B$(P)(B$(P),(B$(P))5):P_2D$"OPEN BASENAMEFILE"|2D$"DELETE BASENAMEFILE"2D$"OPEN BASENAMEFILE"2 D$"WRITE BASENAMEFILE"2B12 P1B2*B$(P)24P2>D$"CLOSE"3H:8:1:"THANK YOU$"@@@")1I332:Q(XI)128:Q0Q0;1A$A$(Q):I_1FI$(NF)A$:"* ";:X:N15:7050g1B1s1N1NF1(FI$(N),5)"GAME."B$(B)(FI$(N),21):71451N:71601P1161(B$(B),22P,1)" "71551B$(B)(B$(B),22P):P162:OG READ0ZXX07245:0]8:1:"ONE MOMENT, PLEASE...."b0b:"UPDATING LIST OF GAME FILES.":0l*A MODIFIED BEAGLE BROS SUB0vN0:L146278:L2464880NF0045073N:READCAT0XL1L235:(X)1(X)25571101NFNF1:A$"":(X)254A" MENLO PARK, CA 94026"#/ 1000./: 6/p 7I/u SPELL-N-TIMEY/z SYLLABLESk/ ALPHABETIZE/ +------ CREDITS -------+/ ! USING THESE PROGRAMS !/ ! ABOUT CUE & SOFTSWAP !/ +------ Q U I T -------+/ 0X ---- CATALINTO THE DEVELOPMENT OF NEW"+." DISKS."5.1000X.:3:12::"ABOUT SOFTSWAP":.5:" DO YOU HAVE SOMETHING TO CONTRIBUTE?".:" SEND INQUIRIES OR DISKS TO:".:" SOFTSWAP CHAIRPERSON"." CUE, INC."." P O BOX 2087"/ COPYRIGHTED BY CUE, "=-v" INC., AND IS NOT IN THE PUBLIC"j-" 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 68,0:NN1NA:HO(NN):VO(NN):OP$(NN):NNNNN1:HO(NN):VO(NN)::OP$(NN)oKEY(49152)128:KEY01174:HO(NN):VO(NN):OP$(NN)KEY21KEY10NNNN1:NN(NA)NN1KEY8KEY11NNNN1:NN0NNNA :HO(NN):VO(NN):OP$(NN):KEROWS & Press RETURN";:1:1014K"CHOOSE WITH ARROWS & PRESS RETURN";:1V: | -- MOVING TEXT CURSOR INPUT -- -- NA = # OF CHOICES, OP$(X) = MENU ITEM #X, HO(X) = HTAB OF OP$(X), VO(X) = VTAB OF OP$(X), CH= LEARNER'S CHOICE.*491y key";:1003#"PRESS ANY KEY";649168,0:Z$:A: Y -- SCREEN ADD --24:1:868:24:13:COMP0ĺ"Press any key";:1008"PRESS ANY KEY";49168,0:Z$:  -- CHOOSE MESSAGE24:4:COMP0ĺ"Choose with AR)R$(N)R$(N)T$NN1&WANET(TIBG): ELAPSED TIME FOR GAMEZ2000:q ================| END ================(13)(4)"RUN MENU"::  -- SCREEN CLEAR -- 24:1:868:24:13:COMP0ĺ"Press an900 f:k9000p7400Bu800: WAIT FOR CORRECT RESPONSEY ================m HOUSEKEEPING ================FL0935: DON'T SWAP IF WORD WAS MISSED: SWAP USED WORD WITH 'LAST' WORD IN RANDOM ARRAYT$R$(R)R$(R CONTINUE."*FL2,,==================<. THIRD TRYT0==================b4FL2900}910:20(FH$)2:FH$;>15:HTC8400H:MGT$FH$875RSCSC300T7100: UPDATE WINDOWSW9000Y10:10:A1$;\7400a600(TITS))=18:10:COM0ĺ" That's it!! ":772Z" THAT'S IT!! "u7100: UPDATE WINDOWS9000 7400900: 18:10:COMP0ĺ"Type word correctly":13:"to continue.":810 ""TYPE WORD CORRECTLY":13:"TO==================( SECOND TRY E =================== TFL1820w7800: 'WATCH CAREFULLY' K1J: FLASH SYLLABLES F$FW$(K):7200P5.05:8200K:15:HT8400GT$FH$875 SCSC( 9000.7400:ERASE ANS & MESSG 7900=:s18:10:COMP0ĺ" Sorry, try again. ";:685" SORRY, TRY AGAIN. ";CICCIC1CCC0FL1II1MW$(I)FH$: STORE MISSED WORD 90007400 =FH$680"SCSC(800(TITS))BNCNC1:ADD 1 TO # CORRECTt18:10:COMP0ĺ" Good job!! ";:650" GOOD JOB!! ";CCCCCC1: CONSEC. CORRECT CTR. CIC0: CONSEC. INCORRECT CTR. 7100: UPDATE WINDOWS E>FH$FH$FW$(J)1D ================== GF FIRST TRY dH ================== oXF$FH$ZCOMP0İ7900: USE CAPS LOCK[7800:'WATCH CAREFULLY']7200: FLASH WORDb8400:GET RESPONSE & UPDATE TIME q: GT$"":J1"+LP1: LEFT POINTER 20RP1(W$)[5(W$,RP,1)"/"(W$,RP,1)" "570u6FW$(J)(W$,LP,RPLP)7(W$,RP,1)" "FH$FH$FW$(J)" ":5698FH$FH$FW$(J)9LPRP1:JJ1:RP=FW$(J)(W$,LP,(W$)1LP):ATTACHLASTSYLLABLBGTI: SET BEGIN TIME FOR GAME-WA1NW?R(N(1))1[W$R$(R):SELECT A WORDw FL0: 'ATTEMPT' FLAG }:FL0720 ===================  REMOVE SYL MARKERS / FROM DATA WORD  =================== &FH$:"No. Correct:";:26:"Score:";LNQNWNWNQ: FEWER THAN NW DATA WORDS\14:2:NW;k36:"00";7100: UPDATE SCORING WNDW9000: PRESS RETURN ====================  SELECT & FLASH WORDS  ==================== 2:10:X1:A$;::10:X1:A1$;:1COMP0435a3:2:"THIS GAME: WORDS";:26:"TIME:";4:3:"WORDS ATTEMPTED:";:5:3:"NO. CORRECT:";:26:"SCORE:";:4403:2:"This Game: Words";:26:"Time:"; 4:3:"Words Attempted:";:5:3====== $ DRAW 4 WINDOWS A===================== :A$"+-------------------+":A1$"! !":A2$"+-------------+":A3$"! !"X165:2:X:A$" "A2$;::X25:2:X:A1$" "A3$;:!X9145:X1XX2(ZZ32)$/<:Converttoalllowercase?/==================== Z/SUBR - UPDATE SCORINGo/ WINDOWS /==================== /20:4:WA;/20:5:NC;/34:SC;// =================== /"SUBR - FLASH WORDS 0$=======BB$"".W11(R$(N)):.ZZ$(R$(N),W1,1):ZZ(ZZ$)K.SPL1İ5150m.IF COMP = 0 THEN GOSUB 5170}.BB$BB$ZZ$.W1.R$(N)BB$.N. NN1.: .ZZ96ZZ123ZZ$(ZZ32).(:Converttoalluppercase/2ZZ64ZZ91ZZ$E"Z$-GZ$"GAME.":1.-LD$;"OPEN";Z$FL$(0)I-VD$;"READ";Z$FL$(0):1Q-`NQ]-eP1NQh-jR$(P)t-oP:NNQ-t1:D$;"CLOSE";Z$FL$(0)-y5000-~: -====================- ALL UPPER OR LOWER-====================-N1NQ.,Z$"CURRENT",1),D$;"OPEN"Z$;,D$;"WRITE"Z$G,FL$(0)Y,D$;"CLOSE"Z$`, v,$================,& READ CURRENT,' & GAME FILE,(================,)Z$"CURRENT",.D$;"OPEN"Z$,8D$;"READ"Z$,=FL$(0)-BD$;"CLOSVO(2)16:HO(2)14:OP$(2)" NO "++2:13;+1010:1170J+CH24400e+(NL$,4)"CONT"ī4580o+4600x+: +--"" GAME$+P150+ WD$(P)""+P+  +*FL$(0)NL$+================+ WRITE CURRENT,================FL$(P1):4450:*]HO(P)(3H):VO(P)(8P):OP$(P)FL$(P1)A*bPQ*v1010:1170p*NL$OP$(CH):NFL$FL$(CH1)*V18:V220:1203*9:5:"YOU CHOSE: ";::11:5:" ";NL$" ";:*14:5:"IS THIS OK? ";*NA2:VO(1)16:HO(1)7:OP$(1)" YES " +:"----------- ---------"!)0-)NNANF1@)QH8:NA12H0t)SHO(1)5:VO(1)8:OP$(1)"CONTINUE WITH: "FL$(0))UVO(1):HO(1):OP$)VNF0Ģ12:4:"THERE IS ONLY ONE GAME FILE HERE.":1000:)XP2(NF1)*[P12HO(P)21:VO(P)(P3):OP$(P):255( B$"BASENAMEFILE",(D$;"OPEN"B$=(D$;"READ"B$R("NF:NF25NF25Z('Z1f(,P1NFn(1Z$(8Z$FL$(0)ī4160(;FL$(Z)Z$(=ZZ1(@P(ENFZ1(JD$;"CLOSE"B$(^(h15:2:(r3:8:"C H A N G E F I L E S")|4:8"try to beat your score (Y/N)? ";2'49168,0:Q$O'Q$"Y"Q$"y"ZZ1:180]'ZZ0:180c' {' ==================' INSTRUCTIONS' ==================' 255: '==================' CHANGE GAME'==================(4107IME: ";BT;E&5:3:COMP0ĺ"Score: ";SC;:23:"Score: ";BS;:2270k&"SCORE: ";SC;:23:"SCORE: ";BS;&:COMP1Ģ21:5:"WANT TO PLAY THIS FILE AGAIN TO"::5:"TRY TO BEAT YOUR SCORE (Y/N)? ";!'21:5:"Want to play this file again to"::5:"A NEW":13:"HIGH SCORE!!"5%BSSC: SAVE NEW HIGH;%:J%BT02240[%ETBT2250%15:14:"A NEW, FASTER":18:"ELAPSED TIME!!"%:BTET: SAVE NEW TIME%:3:3:COMP0ĺ"Time: ";ET;:23:"Time: ";BT;:2260 &"TIME: ";ET;:23:"T=================M$H:COMP1ĺ" THIS GAME:";:22:"BEST SO FAR:";:2130x$I" This Game:";:22:"Best So Far:";$RX264:Y22220:X:Y:A2$;:Y:X$\X35:Y22220:X:Y:A3$;:Y:X$f:$pBS02190$zSCBS2210%:10:10:These are the words you missed.":"Copy them onto your Study-Sheet.":2050#"THESE ARE THE WORDS YOU MISSED. ":"COPY THEM ONTO YOUR STUDY-SHEET."::#K1I# MW$(K),:K#9000# =================#* TIME-SCORE#4 COMPARISON$>:"Change lowercase to CAPS? (Y/N) N"(8);:Z$:Z$(13)Z$"N"Z"Z$"N"Z$"n"SPL0:z"Z$"Y"Z$"y"SPL1:"Y":"1420""===================" LIST WORDS MISSED"==================="I02080: NO ERRORSJ#:COMP0ĺ"7!(12:2:"CAN YOU DISPLAY LOWERCASE? Y/N) ";:Z$E!2Z$"N"ıa!<Z$"Y"Z$"y"COMPO:k!F1320q!P!x===================!y FLASH UPPER OR MIXED CASE WORDS?!z===================!!9:2:"Spelling list words..."?"12:2Y13Ĺ49168,0:11740 49168,0:CHNN::: N  -- PARTIAL SCREEN CLEARl 24:11:"PRESS ANY KEY";} 49168,0:Z$ VV1V2 1:V:64668 V : ===================  CHECK FOR LOWERCASE 2+ ===================!YRIGHT 1987 *- 2* BY COMPUTER USING *K 3* EDUCATORS, INC. *i 4* * 5* ORIGINAL VERSION * 6* DESIGN,DOCUMENTATION * 7* AND PROGRAMMING * 8* SUPERVISION BY * 9* DAN ISAACSON, PH.D. *n2)************************=** *[+* ALPHABETIZE *y,* (C) COPYRIGHT 1984 *-* BY SCHOOL & HOME *.* COURSEWARE, INC. */* *0* REVISED VERSION * 1* (C) COP               ::10)<"CHECK FOR ERROR #";(222)K<"IN LINE ";(218)256(219)E TABLE IS AT ";(232)256(233)?;:" LAST BINARY FILE "[;" LOADED OCCUPIES ";" MEMORY BETWEEN ";(43634)256(43635);" AND ";;(43616)256(43617)(43634)256(43635);/: ; -- ERROR LISTER -- <56(112)6:f" NUMERICS END AT ";(109)256(110)c:p" ARRAYS START AT ";(107)256(108):z"VARIABLES START AT ";(105)256(106):" PROGRAM ENDS AT ";(175)256(176):" PROGRAM STARTS AT ";(103)256(104):::!;" SHAP&9F#X1(16384):X1141X11559030b9K#:23:2:" ";:1u9L#X1155ġ:180{9M#9H --- MEMORY INFORMATION ROUTINE ---9M::59R" HIMEM IS AT ";(115)256(116) :\" STRINGS START AT ";(111)2========== <82#16368,0: CLEAR KEYBOARD BUFFER b87#16368,0: CLEAR KEYBOARD BUFFER8<#23:2::COMP0ĺ" RETURN ";::" to Continue -- ";::" ESC ";::" to Menu";:90308A#" RETURN ";::" TO CONTINUE -- ";::" ESC ";::" TO MENU";368,07k!(XQ128);7p!842077! =================K7! SUBR - TIMERc7! =================7!CH(36):CV(37): SAVE CURSOR LOCATION7!2:36:(TITS)7!CH1:CV17!7(#==================== 7*# SUBR - PRESS RETURN 8,#==========XQ141ĺ" ";: 6C!XQ136854556E!(36)1HT8420O6H!(8);" ";(8);(8);6M!(GT$)1GT$"": DELETE FROM STORED WORD6R!(GT$)1GT$(GT$,(GT$)1)6V!16368,06W!85606\!:6a!GT$GT$(XQ128): CONCATENATE NEW LETTER TO WORD7f!16 ==================== /5 SUBR - 'GET'K5 ==================== t5 16368,0: CLEAR KEYBOARD BUFFER 5 GT$""5 T5TI5 XQ(16384):XQ12785105 T5TIğ:" ";::(8);5 7300:8600: UPDATE THE TIMER5%!85605*!:6>!============"4 CAPS LOCK NOTE;4===================`4SPL1Ģ21:13:"CAPS LOCK down"4SPL0Ģ21:12:"Use SHIFT for CAPS"44 ====================4 SUBR - PAUSE 4 ==================== 4 K61700P5:K64 5ATCH3{ CAREFULLY :3| =================== M3}36:2:" ";q3:10:12:" WATCH CAREFULLY ";3:P51:8200:10:12:" "310:ZK262:ZK:" ->";3P5.3:82003ZK310:3:" ";3 4======= ";:2:2=================== U2SUBR - COMPUTE FLASH j2 TIME 2=================== 2FT.05(F$)2CCC2FTFT(CCC3).12CIC2FTFT(CIC3).122x=================== 3z SUBR - W37)1 1W$1===================71 SUBR - TIMERP1===================l1TITI.1:P5.05:8200:1=================== 1 SUBR - ERASE ANSWER 1 & MESSAGE1=================== 115:10:A1$;2ZK13:17ZK:10:" ============ 70/7600:'COMPUTE FLASH TIME' k0410:20(F$)2:F$;: CENTER WORD & DISPLAY ITu09TSTI0>TITSFTİ7300:7230: FLASH TIME0C10:A1$;: ERASE WORD0H18:11:"TYPE WORD CAREFULLY"1M15:20(FH$)2:HT(36)1:VT(RANGING WORDS..."\20002 ================= ENDT ================n(13)(4)"RUN MENU"|::  -- SCREEN CLEAR --24:1:868:24:13:COMP0ĺ"Press any key";:1003"PRESS ANY KEY";49168,0:Z$:: SE=====================3 DRAW SCORE BOARDN"=====================T*p41:26:"+----------+";H2:26:COM0ĺ"!Time: !";:850I"!TIME: !";R3:26:"+----------+";W11:1:COMP0ĺ"Arranging words...":860X"AR:ZY1J1NWLNJ1/R((1)L)1QT$R$(L):R$(L)R$(R):R$(R)T$yTT$RR$(L):RR$(L)RR$(R):RR$(R)TT$W$(J)R$(L):WW$(J)RR$(L): TAKE SELECTED WORDS FROM BOTTOMJ:: OF ARRAY R$,RR$ & PUT INTO ARRAY W$,WW$ W=MIXED WW = ONE CA::+"YOU MAY HAVE FROM 3 TO 8 WORDS."Y:"ENTER CHOICE (3-8) & PRESS RETURN: ";{ZB$"38":ZL1: NO # <3 OR >88400NW(GT$): # OF WORDS=====================SELECT RANDOM WORDS FOR GAME=====================T01:J$3:1:COMP1674g"How many words do you wish"::"in your list, ";NM$"?":::"You may have from 3 to 8 words.":"Enter choice (3-8) & Press RETURN: ";:678"HOW MANY WORDS DO YOU WISH"::"IN YOUR LIST, ";NM$"?":HO(3)12:VO(3)16:OP$(3)" QUIT FOR NOW "=1010:1170:RCH500,4000,950[400a|===================== BEGIN PLAY OF GAME=====================: SET GRAPHIC LOCATIONS!J11"J5192&V(J1)J0J1J1H A B E T I Z E"84:9:"=====================":NA4x7:(13((FL$(0)))2):COMP1ĺ"CURRENT FILE: "FL$(0):435"Current File: "FL$(0)NA3HO(1)10:VO(1)12:OP$(1)" PLAY CURRENT FILE "HO(2)12:VO(2)14:OP$(2)" CHANGE FILES ",R,NUMBER OF WORDS IN GAME,WORD 178400: SUBR - GETCNM$GT$"TMR0:W10:ZL8:ZB$"AZaz ":Z1Z0:704: TIMER,NUMBER OF WORDS IN GAME,WORD 1$===================== MAIN MENU=====================3:9:"A L P ::Z(37)1@23:7:COMP0ĺ"Press RETURN when ready";:264`"PRESS RETURN WHEN READY";zZ1:26:"---------" Z:1:COMP0ĺ"What is your first name? ";:270 "WHAT IS YOUR FIRST NAME? "; TMR0:NW8:W10:ZL9:ZB$"AZaz ": TIMEis in correct"?:"alphabetical order, you're done."::250j"IN THIS GAME YOU WILL ALPHABETIZE A":"LIST OF WORDS BY SWAPPING WORD PAIRS."::"WHEN THE WHOLE LIST IS IN CORRECT":"ALPHABETICAL ORDER, YOU'RE DONE.":: =====================. INTRO & GET NAMEI=====================Ob"ALPHABETIZE"w"-----------":COMP1240"In this game you will alphabetize a":"list of words by swapping word pairs."::"When the whole list P11200:P:101400: --CHOOSE ALL CAPS???K=====================h DIM & READ VOCAB WORDS=====================R$(60),RR$(60),W$(8),WA$(8),WW$(8)10000=====================INITIALIZE=====================2:3:" Computer Using Educators, Inc.":145d 18:3:"ORIGINAL VERSION (C) COPYRIGHT 1984 BY" 19:3:" SCHOOL & HOME COURSEWARE, INC." 21:3:"REVISED VERSION (C) COPYRIGHT 1987 BY" 22:3:" COMPUTER USING EDUCATORS, INC."(4) x. }7:10:"A L P H A B E T I Z E"O 10:"---------------------"^ COM1140 18:3:"Original version (C) copyright 1984 by" 19:3:" School & Home CourseWare, Inc." 21:3:"Revised version (c) copyright 1987 by"/ 2*************, PCOMP0:(64435)6COMP1Y RCOMP1İ1300: COM=1 means no lowercase TQQ(COMP1): if QQ when no lowercase b ===================== d T I T L E P A G E f ===================== iER$" " nD$(13) :* BILL BOTZONG *; ;* CHAS SWANSON, PH.D. *Y <* *w =* REVISED BY DON BECK * >* FOR CUE,INC. 1987,88 * ?* * @* ALL RIGHTS RESERVED. * A* * B***********5:"WRITE DOWN YOUR":14:25:"TIME. THEN...":24:11:" PRESS WHEN READY";d) 16368,0t) Q(16384)) Q1412960) ) 4:3:"+--------------+ +--------------+") " ! THIS GAME ! ! BEST SO FAR !"* " ! SON(h ====================?(m 2:1:" "P(q COMP12940p(r 10:25:"You won ";NM$;"!"(s 12:25:"Write down your":14:25:"time. Then...":24:11:"Press RETURN when ready";:2950(| 10:25:"YOU WON ";NM$;"!"V)} 12:28: ERASE INQUIRY TEXT(' 23:15:868M' VTAB V(W1): HTAB 23: PRINT ER$;r' VTAB V(W2): HTAB 23: PRINT ER$;x' :'" SWAP WORDS IN ARRAY W$', T$W$(W1):W$(W1)W$(W2):W$(W2)T$'6 W10'@ :'J 2540'T ====================(^ TIME COMPARIY& V(W1):6:ER$;-& V(W1):23:W$(W1);G& 8200: SUBR - PAUSE[& V(W2):6:ER$;s& V(W2):23:W$(W2);}& 8200& V(W1):6:W$(W2);& V(W2):23:ER$& 8200& V(W2):6:W$(W1);& V(W1):23:ER$& K61300:K6' 22:11:86:COMP1ĺ"EXCHANGE WORD #: ";:2620>%3 "Exchange Word #: ";U%< ZB$"1"(NW):ZL1k%F 8400:FLAG1290y%P W1(GT$)%Z 23:15:COMP1ĺ"WITH WORD #: ";:2660%[ "with Word #: ";%d 8400:FLAG1290%n W2(GT$)%x :& SWAP WORDS ON DISPLA;::" ESC ";::" TO QUIT":2530J$ "Press ";::" ESC ";::" to Quit"z$ TEST IF WORDS ON DISPLAY ARE ALPHABETIZED$ J1NW$ W$(J)WA$(J)2590: NOT IN ORDER$ J$ :$ 2910$ :$( FIND OUT WHICH WORD NUMBERS TO SWAP$%2 22:11$ DISPLAY WORD NUMBERS$#. J1NW9#8 V(J):3:J;".";@#B JF#L :Z#V DISPLAY WORDSf#` J1NW{#j V(J):6:W$(J);#t J#~ :# TMR1: START TIMER# ====================# GAME IS ON# ====================!$ 2:1:COMP1ĺ"PRESS "2160 ""16368,0Y"11:1:COM1ĺ" PRESS RETURN TO BEGIN PLAY...";:2280"" Press RETURN to begin play...";"Q(16384)"Q1412280"11:5:868"====================" DISPLAY WORDS" ====================#200!4=====================5!>CHECK RANDOM LISTO!H====================`!f SCRAMBLED?l!pJ1NW!zW$(J)WA$(J)2260!J!:! SCRAMBLE WORDS IN ARRAY W$!JNW11!K((1)J)1!T$W$(J):W$(J)W$(K):W$(K)T$!J"ORT WORDS IN WA$ L1J. WA$(L)""166V WA$(L)WA$(L1)2085: DON'T SWAP T$WA$(L):WA$(L)WA$(L1):WA$(L1)T$:T$W$(L):W$(L)W$(L1):W$(L1)T$:T$WW$(L):WW$(L)WW$(L1):WW$(L1)T$: SWAP %L *J /P1NW:WA$(P)W$(P):P!12Z$"N""Z$"N"Z$"n"SPL0:BZ$"Y"Z$"y"SPL1:"Y":L1420Rm===================== ALPHABETIZE WORDS FOR GAME=====================J1NW:WA$(J)WW$(J):J: INITIALIAZE ARRAY WA$: JNW111: BUBBLE S$2Z$"N"ı+<Z$"Y"Z$"y"COMP0:5A1320;FZx========================={y USE ALL UPPER CASE ANYWAY?{=========================10:2:"Word list..."12:2:"Change lower case to CAPS? (Y/N) N"(8);:Z$:Z$(13)SCREEN CLEAR*24:11:"PRESS ANY KEY";;49168,0:Z$HVV1V2X1:V:868_Vj: ========================= CHECK FOR LOWERCASE 2+=========================(12:2:"CAN YOU DISPLAY LOWERCASE? (Y/N) ";:Z)::OP$(NN)-KEY(49152)128:KEY01174L:HO(NN):VO(NN):OP$(NN)uKEY21KEY10NNNN1:NN(NA)NN1KEY8KEY11NNNN1:NN0NNNA:HO(NN):VO(NN):OP$(NN):KEY13Ĺ49168,0:117449168,0:CHNN:::  -- PARTIAL RETURN";:1: < -- MOVING TEXT CURSOR INPUT -- -- NA = # OF CHOICES, OP$(X) = MENU ITEM #X, HO(X) = HTAB OF OP$(X), VO(X) = VTAB OF OP$(X), CH= LEARNER'S CHOICE.49168,0:NN1NA:HO(NN):VO(NN):OP$(NN):NN NN1:HO(NN):VO(NN  -- SCREEN ADD --S24:1:868:24:13:COMP0ĺ"Press any key";:1008i"PRESS ANY KEY";z49168,0:Z$:  -- CHOOSE MESSAGE24:4:COMP0ĺ"Choose with ARROWS & Press RETURN";:1:1014 "CHOOSE WITH ARROWS & PRESS9<(====================>9=(----MAKE RR$() = ALL LOWER CASED9>(P9Z(N1WZ[9_(BB$""n9d(W11(R$(N))9g(ZZ$(R$(N),W1,1):ZZ(ZZ$)9i(ZZ64ZZ91ZZ$(ZZ32)9s(BB$BB$ZZ$9x(W19}(RR$(N)BB$9(N9(NN19(: :)ZZ96ZZ123'====================&8' PURGE /@8'====================L8'N1WZW8'BB$""j8(W11(R$(N))8(ZZ$(R$(N),W1,1):ZZ(ZZ$)8(ZZ$"/"102608(SPL1İ105008(IF COMP = 0 THEN GOSUB 106008(BB$BB$ZZ$8(W18(R$(N)BB$8(NFILE...":1"7)'D$;"OPEN CURRENT"97.'D$;"READ CURRENT"E73'FL$(0)]78'D$;"CLOSE CURRENT"x7B'D$;"OPEN GAME."FL$(0)7G'D$;"READ GAME."FL$(0)7L'REC7V'WZ1REC7`'R$(WZ)7j'7t'7~'D$;"CLOSE GAME."FL$(0)7'WZWZ17'7'7'81İ73006!8425+6'====================I6' READ CURRENT WORD FILEc6$'====================6%':10:1:COMP0ĺ"One moment please,":100236&'"ONE MOMENT PLEASE,"6'':1:COMP0ĺ"getting your Game File...":1:10025 7('"GETTING YOUR GAME H!ZQ$(8)8555 5M!" ";(8);35R!(GT$)08555H5W!(GT$)1GT$""j5\!(GT$)1GT$(GT$,(GT$)1)t5a!ZQ$;z5f!:5k!ZQ$(27)85905m!ZQ$(27)FLAG1:5p!GT$""85905u!ZK1(GT$)5z!" ";(8);(8);5!ZK5!GT$""5!:6!TMR" ";::(8);4 RF(1)#4 8590)4 :24!ZF1E4!ZK1(ZB$)2s4 !ZQ$(ZB$,ZK,1)ZQ$(ZB$,ZK1,1)ZF0{4!ZK4!(GT$)ZLZF14!:4 !ZF185004%!GT$GT$ZQ$4*!ZQ$;4/!:44!ZQ$(13)852049!GT$""85554>!" ";:4C!:5SUBR - PAUSE&3 ====================83 K61450::>3 :Z3 ======================m3 SUBR - GET 3 ======================3 FLAG03 ZQ(16368)3 GT$""3 :3 ZQ(16384)3 ZQ127ZQ(16368):ZQ$((16384)):8450 4 :=2 SUBR - TIMER+2================X2TB(37):TA(36): SAVE CURSOR LOCATIONb2TT1v2T10000T99992TI$(T)2TI$(ER$,5(TI$))TI$22:32:TI$;2TA1:TB1: RESTORE CURSOR LOCATION22 ==================== 3 1 WRITE CURRENT*1================;1Z$"CURRENT"E15:3V1D$;"OPEN"Z$h1D$;"WRITE"Z$t1FL$(0)1D$;"CLOSE"Z$1 1$================1& READ CURRENT1' & GAME FILE1(================1)100002===============0NA2:VO(1)16:HO(1)7:OP$(1)" YES "K0VO(2)16:HO(2)14:OP$(2)" NO "V02:13f01010:1170u0CH244000(NL$,4)"CONT"ī4580046000: 0--"" GAME$0P1500 R$(P)""0P0 FL$(0)NL$0* 0================F1)9/[P12HO(P)21:VO(P)(P3):OP$(P)FL$(P1):4450e/]HO(P)(3H):VO(P)(8P):OP$(P)FL$(P1)l/bP|/v1010:1170/NL$OP$(CH):NFL$FL$(CH1)/V18:V220:1203/9:5:"YOU CHOSE: ";::11:5:" ";NL$" ";:/14:5:"IS THIS OK? ";'3:8:"C H A N G E F I L E S"F.|4:8:"----------- ---------"L.0X.NNANF1k.QH8:NA12H0.SHO(1)7:VO(1)8:OP$(1)"CONTINUE WITH: "FL$(0).UVO(1):HO(1):OP$.VNF0Ģ12:4:"THERE IS ONLY ONE GAME FILE HERE.":1000:/XP2(NAME FILES!-==================0-4107:465F- B$"BASENAMEFILE"W-D$;"OPEN"B$h-D$;"READ"B$}-"NF:NF25NF25-'Z1-,P1NF-1Z$-8Z$FL$(0)ī4160-;FL$(Z)Z$-=ZZ1-@P-ENFZ1-JD$;"CLOSE"B$-^-h15:2:!.r9:6:"Would you like to try to beat"G, 20:6:"your score (Y,N)? ";e, TMR0:ZB$"YYNNyynn":ZL1o, 8400, GT$"Y"GT$"y"Z1:290, GT$"N"GT$"n"3190, 19:6:868, 20:6:868, Z0:290,================== - CHANGE G15:15:"ELAPSED TIME!""+: 31604+D 14:15:868F+N 15:15:868N+X ZKT+b :u+l BTT:BT$TI$: SAVE NEW TIME+v 19:6:868+ 20:6:868+ COMP03220+ 19:6:"WOULD YOU LIKE TO TRY TO BEAT"+ :6:"YOUR SCORE (Y,N)? ";:3230%, 1 ! ! !"G* " ! TIME: ! ! TIME: !"u* " +--------------+ +--------------+"* 7:10:TI$* 7:30:BT$* BT03180* TBT3210* :* ZK121* ZK2(ZK2)3140*& 14:15:"A NEW FASTER,"+0 ying!"D$"RUN MENU"&:: ? -- SCREEN CLEAR --x24:1:868:24:13:COMP0ĺ"Press any key";:1003"PRESS ANY KEY";49168,0:Z$::  -- SCREEN ADD --24:1:868:24:13:COMP0ĺ"Press any key";:1008THIS GAME:"( ================3 ENDJ ================W::255gCOMP097310:15((NA$)2):"GOODBYE, "NA$"!"12:13:"THANKS FOR PLAYING!":98010:15((NA$)2):"Goodbye, "NA$"!"12:13:"Thanks for plaNT FILE "7HO(2)12:VO(2)14:OP$(2)" CHANGE FILES "eHO(3)12:VO(3)16:OP$(3)" INSTRUCTIONS "HO(4)12:VO(4)18:OP$(4)" QUIT FOR NOW "1010:1170:CH6400,4000,6000,950400"! !AVG. TIME !" " ==================B3:7:"S Y L L A B L E S M E N U"q4:7:"============================":NA47:(13((FL$(0)))2):COMP0ĺ"Current File: "FL$(0):440"CURRENT FILE: "FL$(0)NA4 HO(1)10:VO(1)12:OP$(1)" PLAY CURRE======= ;::" SYLLABLES ":0@COMP0325HA:"PLEASE TYPE IN"iC:"YOUR FIRST NAME: ";:330E:"Please type in"G:"your first name: ";JZL10:ZB$"AZaz":2010: GETONA$GT$===================== MAIN MENU===70PW$(1)"Way to go",PW$(2)"Super"FPW$(3)"That's right"^PW$(4)"You got it"tPW$(5)"Right on" PW$(6)"Correct" PW$(7)"Well done", =========================1 GET USER'S NAME6 ==================COMP1ĺ"ONE MOMENT PLEASE...":228?"One moment please..."I4600O_COMP0260vPW$(1)"WAY TO GO"PW$(2)"SUPER"PW$(3)"THAT'S RIGHT"PW$(4)"YOU GOT IT"PW$(5)"RIGHT ON"PW$(6)"CORRECT"PW$(7)"WELL DONE":2"Revised version (c) Copyright 1987"V21:4:" by Computer Using Educators, Inc."fJ11800:xCOMP0İ1400 =================== INITIALIZE ===================W$(50),WW$(50),IC$(50),ZB$(10),FL$(25)#1::12:1:OL & HOME COURSEWARE, INC."L 20:4:"REVISED VERSION (C) COPYRIGHT 1987" 21:4:" BY COMPUTER USING EDUCATORS, INC.":150 15:11:" Original Version" 16:9:"(c) Copyright 1984 by" 17:6:"School & Home CourseWare, Inc."%20:4:LY b =====================: d T I T L E P A G E V f =====================\ x| }7:12:"S Y L L A B L E S" 12:"-----------------" COMP0143 15:11:" ORIGINAL VERSION" 16:9:"(C) COPYRIGHT 1984 BY" 17:6:"SCHOS RESERVED. *+ L* *J M************************ P O:c PD$(13)(4): Z ===================== [ UPPER-CASE/LOWER-CASE \ ===================== ]COMP0:(64435)6COMP1 ^COMP1İ1300:COMP=1MEANSUPPERCASEON C* SUPERVISION BY *; D* DAN ISAACSON, PH.D. *Y E* BILL BOTZONG *w F* CHAS SWANSON, PH.D. * G* * H* REVISED BY DON BECK * I* FOR CUE,INC. 1987-88 * J* * K* ALL RIGHT *- ;* REVISED VERSION *K <* (C) COPYRIGHT 1987 *i =* BY COMPUTER USING * >* EDUCATORS, INC. * ?* * @* ORIGINAL VERSION * A* DESIGN,DOCUMENTATION * B* AND PROGRAMMING *G2************************=3* *[4* S Y L L A B L E S *y5* *6* ORIGINAL VERSION *7* (C) COPYRIGHT 1984 *8* BY SCHOOL & HOME *9* COURSEWARE, INC. * :*                           !!! ! ! ! ! !!!ZZ$(ZZ32)-:): Convert to all uppercaseK:h)ZZ64ZZ91ZZ$(ZZ32)m:r): Convert to all lower caseZ$%D$;"WRITE"Z$ %FL$(0)2%D$;"CLOSE"Z$9% O%================c% READ CURRENTv%  & GAME FILE%================% Z$"CURRENT"%*D$;"OPEN"Z$%4D$;"READ"Z$%>FL$(0)%HD$;"CLOSE"Z$%RZ$"GAME.":1&\D$;"OPEN";Z2:13$&1010:1170$$0CH24210?$:(NL$,4)"CONT"ī4430I$D4440R$N: b$X--"" GAME$n$bP150{$lW$(P)""$vP$ $FL$(0)NL$$================$ WRITE CURRENT$================$Z$"CURRENT"$1%D$;"OPEN"8P):OP$(P)FL$(P1)#P+#1010:1170J#NL$OP$(CH):NFL$FL$(CH1)_#V18:V220:1203#9:5:"YOU CHOSE: ";::11:5:" ";NL$" ";:#14:5:"IS THIS OK? ";#NA2:VO(1)16:HO(1)7:OP$(1)" YES "#VO(2)16:HO(2)14:OP$(2)" NO "$NANF1"H8:NA12H0N"HO(1)5:VO(1)8:OP$(1)"CONTINUE WITH: "FL$(0)e"VO(1):HO(1):OP$"NF0Ģ12:4:"THERE IS ONLY ONE GAME FILE HERE.":1000:"P2(NF1)"P12HO(P)21:VO(P)(P3):OP$(P)FL$(P1):4300#HO(P)(3H):VO(P)(PEN"B$!D$;"READ"B$,!NF:NF25NF254!Z1@!P1NFH!Z$]!Z$FL$(0)ī4140k!FL$(Z)Z$u!"ZZ1|!,P!6NFZ1!@D$;"CLOSE"B$!J!T15:2:!^3:8:"C H A N G E F I L E S"!h4:8:"----------- ---------"!r"|10 _ 2645 d ZQ$(13)ZR0: i ZQ$"R"ZQ$"r"ZR1a n ZQ$"E"ZQ$"e"ZR2:NTNT1:QF1p s ZR32645 x 23:1:958 }  ==================  CHANGE GAME ================== 4040:400 B$"BASENAMEFILE"!D$;"O= 7 ZR3< 23:1:958GA ZP(16368): CLEAR KEYBOARD BUFFERF 23:06:COMP1ĺ"PRESS ";::"RETURN";::" TO CONTINUE":2640G "Press ";::"RETURN";::" to Continue"P :U ZQ(16384):ZQ127ZQ$(ZQ128):2660 Z ZTMR1İ25================= TITI.21 (TI)TI2580_ TC(36):TB(37): STORE CURSOR LOCATION 2:33:(TI);: UPDATE CLOCK TB1:TC1:: RESTORE CURSOR LOCATION ( * ================- SUBR-PRESS RETURN2 ===============(GT$)1GT$""1 (GT$)1GT$(GT$,(GT$)1); ZQ$;A :V$ ZQ$(27)2410g. GT$""2410x8 ZK1(GT$)B " ";(8);(8);L ZKV GT$""` :j ZTMR1İ2510t 2060~ 2060 ================== SUBR - TIMER =1(ZB$)28fZQ$(ZB$,ZK,1)ZQ$(ZB$,ZK1,1)ZF0@pZKUz(GT$)ZLZF1[:jZF12230zGT$GT$ZQ$ZQ$;:ZQ$(13)2270GT$""2340" ";:::ZQ$(8)2340" ";(8);(GT$)02340"======================4 SUBR - GET P======================aZQ(16368)lGT$""r: ZQ(16384)ZQ127ZQ(16368):ZQ$((16384)):2120 :" ";::(8);*RF(1)42410>:HZF1RZIĞ \ZK=1z MAKE WORDS UPPERCASE ONLY OR LEAVE AS ISJ{===================Pk10:2:"Word list..."12:2:"Change lower case to CAPS? Y/N) N"(8);:Z$:Z$(13)Z$"N"Z$"N"Z$"n"SPL0:Z$"Y"Z$"y"SPL1:"Y":142064668 V: 7===================U CHECK FOR LOWERCASE 2+n===================t(12:2:"CAN YOU DISPLAY LOWERCASE? Y/N) ";:Z$2Z$"N"ı<Z$"Y"Z$"y"COMPO:F1320Pxy==================EY21KEY10NNNN1:NN(NA)NN1HKEY8KEY11NNNN1:NN0NNNA:HO(NN):VO(NN):OP$(NN):KEY13Ĺ49168,0:117449168,0:CHNN:::  -- PARTIAL SCREEN CLEAR24:11:"PRESS ANY KEY";49168,0:Z$VV1V21:V:ICES, OP$(X) = MENU ITEM #X, HO(X) = HTAB OF OP$(X), VO(X) = VTAB OF OP$(X), CH= LEARNER'S CHOICE.49168,0:NN1NA:HO(NN):VO(NN):OP$(NN):NNNN1:HO(NN):VO(NN)::OP$(NN)KEY(49152)128:KEY01174:HO(NN):VO(NN):OP$(NN)"K"PRESS ANY KEY";$49168,0:Z$/: G -- CHOOSE MESSAGE24:4:COMP0ĺ"Choose with ARROWS & Press RETURN";:1:1014"CHOOSE WITH ARROWS & PRESS RETURN";:1:  -- MOVING TEXT CURSOR INPUT --b -- NA = # OF CHOD)5ZP(16368): CLEAR INPUT BUFFER/5:w5I$"":ZQ(16384):ZQ127I$(ZQ128):ZP(16368):GET A COMMAND5I$"E"I$"e"QF1:7660: EXIT FROM PROGRAM5:5I$"R"I$"r"İ8430:REMOVE SPACES FROM WORD5&: 60I$(8)6990:MOVR): W$=WITH / WW$= WITH ALL SPACES*4:K4S1: RESET SYLLABLE COUNTERw4I1(W$): COUNT NUMBER OF SYLLABLES4(W$,I,1)"/"SS14I4:4F0:CORRECT-ON-TRY-NUMBER FLAG4WT12: WT=WORD TRIED58430: REMOVE SPACES FROM WORT0:IC0:PL0:QF0:SC0: ZERO VARIABLES.3@:N3JINNP: WORD ARRAY POINTERf3TNT1NW:GAME LOOP3^8340:PRINT RESPONSE MENU3h:3rR((1)IN)1:RANDOMLY SELECT A WORD3|W$(R)W$6770:DON'T IMMEDIATELY REPEAT A WORD$4W$W$(R):WW$WW$(16:NW;D224:8:"PRESS ";::"RETURN";::" TO START GAME";:1t2(16384)1416660: ACCEPT ONLY "RETURN"2VTAB 24: HTAB 8: PRINT SPC( 32);22 ======================2" PLAY GAME2, ======================(36TI0:NC0:N !"<1"! !Avg. Time !"k1"!Words Right: 0 ! per Word: !"1"! ! !"1"!Words Tried: 0 !Score: !"1"+-----------------+-------------------+"23: !AVG. TIME !"K0"!WORDS RIGHT: 0 ! PER WORD: !"z0"! ! !"0"!WORDS TRIED: 0 !SCORE: !":66200"!No. of Words !Timer: !" 1"!in Game: ! ====================-/x DRAW GAME FRAMEI/ ====================O/~/"+-----------------+-------------------+"/COMP06570/"!NO. OF WORDS !TIMER: !"/"!IN GAME: ! !"0"! MP0ĺ"How many words do you wish":6470J.="HOW MANY WORDS DO YOU WISH".F:COMP0ĺ5)"in this game (2-"NQ")? ";(8);(8);:6480.G5)"IN THIS GAME (2-"NQ")? ";(8);(8);.PZB$"09":ZL2:2010.ZNW(GT$).dNW2NWNP6460.i/n PRESS TO REDO THE WORD."<-RF1:2605: PRESS RETURNN-ZR6030,6380W-400]-~- =========================-  GET NUMBER OF PROBLEMS- =========================-NQNP:NP30NQ30-(-2:" SYLLABLES ":(.<5:5:COED,"/," MOVE THE MARKER RIGHT, PAST THE"O," THE END OF THE WORD:"d,:16)"CLO SET"r,22)")(",:" THEN, PRESS .",2605: PRESS RETURN,ZR06330,:,13:1:" 5. IF YOU MAKE A MISTAKE, YOU MAY"-" 6160 +$:A+.15:1:" 3. PRESS . A SPACE WILL APPEAR"l+8" AT THE POSITION YOU HAVE CHOSEN"+B:16)"CLO SET"+L19)")("+V2605: PRESS RETURN+`ZR06230+j:+t::" SYLLABLES ":,~:" 4. WHEN ALL SYLLABLES ARE DIVID*2605: PRESS RETURN(*ZR06080.*:e*8:1:958:" 2. MOVE THE MARKER TO THE END OF A"*" SYLLABLE USING THE LEFT/RIGHT"*" ARROW KEYS TO MOVE IT LEFT/RIGHT"*:16)"CLOSET"*18)")("*2605: PRESS RETURN+ZR0 ): Convert to all lowercase&)pF)u ========================a)z PRINT INSTRUCTIONS) ========================)::" SYLLABLES ":):" 1. A WORD WILL BE SHOWN WITH A MARKER")" UNDER IT:")16)"CLOSET")15)")("$(W$(N),W1,1):ZZ(ZZ$)>(QZZ47ZZ$" ": CHANGE / TO " "N(VBB$BB$ZZ$V([W1e(`WW$(N)BB$(eN: WW$()ALL SPACES AND W$() WITH /(jNN1(o: (tZZ96ZZ123ZZ$(ZZ32)(y: Convert to all uppercase(~ZZ64ZZ91ZZ$(ZZ32) 'BB$""'W11(W$(N))='ZZ$(W$(N),W1,1):ZZ(ZZ$)\'ZZ96ZZ123ZZ$(ZZ32)l'BB$BB$ZZ$t'W1'W$(N)BB$'N: W$()=WORDS WITH ALL UPPER CASE NOW'$ ---SUBSTITUTE SPACES FOR /'8N1NP'=BB$""'BW11(W$(N))(GZZ$FL$(0)"&fD$;"READ";Z$FL$(0):1*&pNP6&zP1NPA&W$(P)H&Pd&1:D$;"CLOSE";Z$FL$(0)n&4790w&: }&&====================& ALL UPPER OR LOWER&====================&SPL04900: LEAVE W$(N) MIXED CASE&N1NP33:HA;E6:33:HS;E:DEQF18230: EARLY EXIT SELECTEDXEPCHP.018150bEHPPCE:13:6:" A NEW, HIGHER PERCENT CORRECT ":E:EHATA.018190EHATAE:15:4:" A NEW LOWER, AVG. TIME PER WORD!! ":E:FSCHS1:20:" BEST SO FAR:";:D`2:21:"------------------+"\Db3:21:"% Correct: !"~Dd4:21:"Avg. Time !"Df5:21:" per Word: !"Dh6:21:"Score: !"Dr7:21:"------------------+"D|3:33:HP;"%";E5::HSSC:8230C,GC08230,C1COMP08030JC61:20:" BEST SO FAR:";lC82:21:"------------------+"C:3:21:"% CORRECT: !"C<4:21:"AVG. TIME !"C>5:21:" PER WORD: !"C@6:21:"SCORE: !":8050D^ect: !"*B"!Avg. Time !"FB"! per Word: !"bB"!Score: !"~B"+------------------+"B3:13:PC;"%";B5:13:TA;B6:13:SC;B:BQF0GCGC1: IF COMPLETE GAME SET COUNTER C"GC1HATA:HPPCVERAGE TIMEACOMP078800A" THIS GAME:"LA"+------------------+"hA"!% CORRECT: !"A"!AVG. TIME !"A"! PER WORD: !"A"!SCORE: !":7910A" This game:"A"+------------------+"B"!% Corr20);I1;". ";IC$(I1)@ZI%@d:R@n2605:ZR07790: ACCEPT ONLY X@x:^@@NT108230: CHECK IF USER SELECTED XIT ON FIRST TRY@PC(NC(NT1)100): CALCULATE PERCENT CORRECT ATA((TI(NT1).05)10)10:CALCULATE AOMP07700-? "THESE ARE WORDS YOU MISSED."[? "COPY THEM ONTO YOUR STUDY-SHEET.":7710~?"These are words you missed."?"Copy them on your study-sheet."??(:?2I1IC2?<I;". ";IC$(I);:PRINT MISSED WORDS?FIC$(I1)""7770@PNT(TINT)8SACAC52:7600?>TINT(TINT)10SACAC25L>SCSCAC\>7:33:SC;d>NT> =====================> RECAP> =====================>ZR2QF1: EARLY EXIT SELECTED>IC07810: NO WORDS MISSED> ?C:" ";A=`5:33:((TINT.05)10)10;:AVERAGE PER PROBLEMg=jAC(NW30.5): CALCULATE SCORE=tF1ACAC100:CORRECT FIRST TRY=~F2ACAC52:CORRECT SECOND TRY=F0ACAC6:NOT CORRECT=TINT(TINT)6SACAC100:7600>TI$)(W$))2)):CC$" --> "WW$%<2556<11:1:868e<24:12::"E";::COMP0ĺ" Exit";:7460t<" EXIT";<$2605:ZR7460,7660<.WT<8:b;7470:TO BOTTOM OF LOOP;13:1:958: CLEAR BOTTOM OF SCREEN;12:12:868;14:12:150:COMP0ĺ"The answer is:":7440;"THE ANSWER IS:"<100:17:(17(((CCCT WORD=:2510:(16384)1417300: ACCEPT ONLY "RETURN"]:8340: PRINT RESPONSE MENU:8430: REMOVE SPACES FROM WORD:::WT27470:C$WW$7410:F2:CORRECT SECOND TRY FLAG:8540: PRAISE ;24:12::"E";::COMP0ĺ" MP0ĺ"That's not correct.":7270<9]"THAT'S NOT CORRECT."p9f19:20:COMP0ĺ"Press ";::"RETURN";::72809g"PRESS ";::"RETURN";:9p21:20:COMP0ĺ"to redo this word.":72909q"TO REDO THIS WORD.":zICIC1:IC$(IC)WW$: STORE INCORRE$8 F1:SET CORRECT FIRST TRY FLAGD8WT3: SET WORD TRY TO DONEW8 8540: PRAISEx8*24:12::"E";::" EXIT";842605:ZR7220,7660: PRESS 8>7470:TO BOTTOM OF LOOP8H:8R18:1:958: CLEAR BOTTOM OF SCREEN!9\16:20:CO1307(C$)PO7130A7C$(C$,PO)" "(C$,(C$)PO):POPO1q711:10:NT;". ";:11:14:C$;" ";712:12:20):12:12PO:" )( "7:72510: UPDATE TIMER76910: BOTTOM OF LOOP7:7WT17340: TRY 18C$WW$7250E )( LEFT/6:PO0POPO1:12:12PO:" )( ";56D:X6NI$(21)7020:MOVE )( RIGHT6XPO(C$)POPO1:12:12PO:" )( ";6b:6lI$(13)7130: 6vPO(C$)71606:6PO171306(C$,PO,1)" "71307(C$,PO1,1)" "7 Quit before 50 Entries";:1Q &Z$"NEW FILE":FL$(0)""Z$"ADDING TO "FL$(0)z (1:36,1:Z$": Up to 50 Entries..." 21000 4WD$(N)""50 77000:FLAG1ī50: CHECK LETTERS <(WD$(N)"XXX"WD$(N)"xxx")N124S AWD$(N)"XXX"WD$(N)"xETE A FILE" ---MAKE A NEW FILE0 FL$(0)""U N1:MAX1:P150:WD$(P)"":P: !21:36,1:64578:21:36,1:"Type / between Syllables --- 10 Entries MINIMUM for a File to work" #23:36,1:"Type Entry & Press RETURN.......Type XXX To N150:C12:L%(N,C)" :G :9000:-----MENU CHOOSE ACTION_ CH43000:---QUITm D$"PR#3"s  CH2Ģ12:36,1:"One moment please...":9100:10000:---EDIT A FILE CH3Ģ12:36,1:"One moment please...":1:9100:11000:---DEL SYLLABLES / (C) COPYRIGHT 1988 BYR COMPUTER USING EDUCATORS INCp ======================== WD$(52):L%(52,2),FL$(30) LC$" " 255 D$(13)(4):N0:MAX0U%!(175)256(176)46?========================` FILE MAKER (LISTMAKER 5) BY PHILL JACKSON 10/87 EDITED BY DON BECK 3/88 MAKES WORD LIST FILES FOR: SPELL-N-TIME, ALPHABETIZE & !!!!!""" " " " " """""""""     "IN LINE ";(218)256(219)7O"LAST LINE# DONE "YO"EXECUTED";(117)256(118)rO"LINE# WHERE PROG "O"STOPPED ";(119)256(120)O"ADDRESS OF STATMENT BEING"O"EXECUTED";(121)256(122)AST BINARY FILE ".N" LOADED OCCUPIES "_N" MEMORY BETWEEN ";(43634)256(43635){N" AND ";N(43616)256(43617)(43634)256(43635)N/: N -- ERROR LISTER --N::10N"CHECK FOR ERROR #";(222)O56(110)6Mp" ARRAYS START AT ";(107)256(108)cMz"VARIABLES START AT ";(105)256(106)M" PROGRAM ENDS AT ";(175)256(176)M" PROGRAM STARTS AT ";(103)256(104)M::M" SHAPE TABLE IS AT ";(232)256(233)N:" LW$(IN):W$(IN)W$(R):W$(R)H$:ININ1: SWAP USED WORD WITH LAST IN ARRAYNL!wLH --- MEMORY INFORMATION ROUTINE ---LM::5LR" HIMEM IS AT ";(115)256(116)L\" STRINGS START AT ";(111)256(112) Mf" NUMERICS END AT ";(109)2===============$K\! SUBR-PRAISE>Kf! ===================cKp!NCNC1:5:16:NC;:18:1:958Kz!18:12:PW$(((1)7)1);K!(1).4ĺ", ";NA$;K!"!";K!:K!HH$WW$(IN):WW$(IN)WW$(R):WW$(R)HH$: SWAP USED WORD WITH LAST IN ARRAYHL!H$ GET DISPLAY WORD (NO /)3J ====================TJ!C$"":PO0: RESET VARIABLEScJ !I1(W$){J!(W$,I,1)"/"8490J !C$C$(W$,I,1)J*!I:CC$C$J4!11:10:NT;". ";:11:14:C$;" ";J>!12:12:20):12:12:" )( "JH!KR! ==== ";::"E";::"..EXIT"EI :12:COMP0ĺ"When done, move )(":8400_I "WHEN DONE, MOVE )("I 2:COMP0ĺ" to right of word & Press ";::"RETURN"::8410I " TO RIGHT OF WORD & PRESS ";::"RETURN":I I ====================J ::"..Move )( Left/Right ";::"R";::"..ReDo":8380}H :"ARROWS";::"..MOVE )( LEFT/RIGHT ";::"R";::"..REDO"H 2:COMP0Ğ:"RETURN";::"..Divide at Marker ";::"E";::"..Exit":8390I :" RETURN";::"..DIVIDE AT MARKER E WITH ANOTHER GAME (Y,N)? ";;GD ZB$"YYNNyynn":ZL1:2010UGN GT$"Y"GT$"y"6540^GX 400dG G ======================G SUBR-RESPONSE MENUG ======================G 13:1:958:CLEAR BOTTOM OF SCREEN9H 18:2:COMP0Ğ:"ARROWS";.018230F HSSC:F :17:10:" A NEW HIGH SCORE!! ":@F :VF& GC0NT108280F0 21:1:COMP0ĺ"Would you like to try to beat your":8250F1 "WOULD YOU LIKE TO TRY TO BEAT YOUR"F: COMP0ĺ"score with another game (Y,N)? ";:8260G; "SCORY"Z$"y"ī10100Q'10050!`'St'L%(N1,2):36,L%(N1,1):N" ";::" None ":~'N$"":21:36,1:64578:21:36,1:"Which file (1-"MAX1")? "(8)(8);:L1:MAX19L2'"INP",L,N$:NN(N$):NN1NNNF1101105'23:36,1:"You chose: ";::"FL$(N)4.'N:FL$(N)"No file":SS$"s":MAX1SS$""j8'1:36,1:"This disk has "MAX" word file"SS$"..."B'21:36,1:64578:21:36,1:"Do you wish to EDIT a file on this disk? (Y/N) Y"(8);:Z$:Z$(13)Z$"Y"G'Z$"N"Z$"n"ĺ(21):24L'Z$"Z# #(#------READ BASENAMEFILE>#Z$"BASENAMEFILE"G#1:W#D$"OPEN"Z$g#D$"READ"Z$p#MAX}#P1MAX#FL$(P)#P:NFMAX#D$"CLOSE"Z$#: '-------EDIT OLD FILES''N1MAX$'36,L%(N,1):(L%(N,2)):N" "======================="64#9:7:"Your choices are:X7#12:10:"1. Make a NEW File"v<#14:10:"2. Edit a File"A#16:10:"3. Remove a File"B#18:10:"4. Quit for now"F#21:7:"Enter your choice (1-4): ";P#Z$:CH(Z$):CH1CH49030PP217130WD$(N)B$K36,L%(N,1)1((N)):L%(N,2):WD$(N):oFLAG1:WD$(N)"_______________"36,L%(N,1)1((N)):L%(N,2):WD$(N):WD$(N)"":(#------MAIN MENU2#(21):3:5:"F I L E M A K E R M E N U"3#4:5:"====== "836,38:21:FL$(0);:FL$(0)"":36,38:21::JX CHECK INPUT[bFLAG0:B$""nlP1(WD$(N))vZZ$(WD$(N),P,1):ZZ(ZZ$)ZZ477080ZZ327080ZZ96ZZ1237080ZZ64ZZ917080P20:7090B$B$(ZZ)L$(0),P,1):ZZ(ZZ$)5ZZ96ZZ123ZZZZ32:6080KZZ64ZZ916080aZZ47ZZ586079wZZ32ZZ466079P20:6090P16070B$B$(ZZ)PP216130FL$(0)B$36,38:21:FL$(0);:FLAG1:FL$(0)" Entries MINIMUM for a File to work"{36,1:21:LC$;:36,1:"EDIT which Entry? (1-";MAX") ";:W$:W(W$):W1WMAX4010NW:1000:7000:FLAG1402080p CHECK FILE NAMEzFLAG0:B$""(FL$(0))06130P1(FL$(0))ZZ$(F36,4:21:64578:"Quit? Are you sure? (Y/N) N"(8);:X$Q X$"Y"X$"y"ī3060Y 24 :(21):12:36,1:"Leaving FILE MAKER..." (4)"RUN MENU" EDIT SUBROUTINE36,1:21:64578#23:36,1:"Type / between Syllables --- 10 Z$D$;"OPEN "Z$'D$;"WRITE "Z$5FLAG0:1\P1NF:FL$(0)FL$(P)FLAG1:PNFpP:FLAG12070NFNF1:FL$(NF)FL$(0)NFP1NF:1FL$(P)PD$;"CLOSE "Z$ :24: MAIN MENU QUIT---ARE YOU SURE?8 20151:,D$;"OPEN GAME."FL$(0)HD$;"DELETEGAME."FL$(0)cD$;"OPEN GAME."FL$(0)D$;"WRITE GAME."FL$(0)MAXN1MAXWD$(N)1:D$;"CLOSE GAME."FL$(0) Z$"BASENAMEFILE" D$;"OPEN "Z$ D$;"DELETE " for this File? ";L"INP",15,FL$(0):6000:FLAG1FLAG0:FL$(0)"":200521:36,38:FL$(0):36,1:23:64578:36,1:23:"Save FILE as: ";::" "FL$(0)" ";::"? (Y/N) Y"(8);:Z$Z$(13)Z$"Y"Z$"Y"Z$"y"2020Z$"N"Z$"n"80,27,17,27,18,27,19p53,3,53,4,53,5,53,6,53,7,53,8,53,9,53,10,53,11,53,12,53,13,53,14,53,15,53,16,53,17,53,1836,L%(N,1):L%(N,2)N;" ";"INP",16,WD$(N) WRITE FILE TO DISK21:36,1:64578:21:36,1:"What NAME do you wantA$"d"İ12000:80.xA$"E"A$"e"İ4000:80M}A$"A"A$"a"NMAX1:33U80[1,3,1,4,1,5,1,6,1,7,1,8,1,9,1,10,1,11,1,12,1,13,1,14,1,15,1,16,1,17,1,18,1,1927,3,27,4,27,5,27,6,27,7,27,8,27,9,27,10,27,11,27,12,27,13,27,14,27,15,27,16":FL$(0)""Z$FL$(0)^W1:36,1:Z$" now has "MAX" entries: "Z36,1:21:64578:"ave dit dd elete enu: Your choice? (S,E,A,D,M) ";:A$dA$"S"A$"s"ī2000nA$"M"A$"m"ī11400sA$"D"xx"N51NN1:MAXN:WD$(N1)"":36,L%(N1,1):L%(N1,2):" ":80s FNN1:MAXMAX1:MAX51ī50 P POKE 36,1: VTAB 21: CALL 64578: PRINT "ave dit dd elete enu: Your choice? (S,E,A,D,M) ";: GET A$UZ$"NEW FILE