' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`)`ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`z#      Ϡ ĮǠP ӠӠ̠Ƞ( Ӡ :B$:"DUPLICATE NAME";::1030&LZ=VA$"DELETE"1140`19:1:868:"PRESS 'D' TO DELETE FILE ";K$:"OR ANY OTHER KEY TO CANCEL.";:R$:R$"D"810t(A$"RUN"A$"LOAD")T$(JPLK)"B"A$"B"A$0~A$A$" "N$(JPLK):19:1:958:(A$,4820A$"RENAME"1110K19:1:868:"RENAME ";K$;:RR$:RR$""810(RR$)65(RR$)90Ģ20:1:868::B$;"INVALID NAME";::1030R$"":I1(RR$):R$R$(((RR$,I,1))128):I:R$R$(BL$,30(R$))BZ1L%PL:N$(Z)R$Ģ20:1:868:(K$)48K17K318105KK16:(JPLK)C810MN$(JPLK)"1"810(A$"RUN"A$"LOAD")T$(JPLK)"T"Ģ19:1:868::B$;"FILE ";K$;" IS TEXT"::820(A$"DELETED"A$"RENAME")L$(JPLK)"*"Ģ19:1:868::B$;"FILE ";K$;"LOCKED"::R16368,0:19:1:958:K$(K):KK176:K0K9970CfK01340UpK6K71260fzK8K9300"PRESS 'LETTER' YOU WISH TO ";:K1A$"LOAD"K2A$"LOCK"K3A$"UNLOCK"K4A$"DELETE":K5A$"RENAME"A$;::K$:K1PL:(JPLI)C810L N$(JPLI)"1"ĺ(TI);" ";::"DELETED FILE":N$(JPLI)"1"ĺ(TI);" ";L$(JPLI);T$(JPLI);" ";S$(JPLI);" ";N$(JPLI) I*19:1:9584A$"RUN":21:1:M1$:M2$:M3$:M4$;>K(16384):K1288305B"N$(C)(INP$,ZZ,30)$Y:XAL%CPL:CL%PLL%L%1fV$((VOL)):(V$)1V$"00"V$}(V$)2V$"0"V$F$(F):(F$)1F$"00"F$(F$)2F$"0"F$:"SL:";S;"DR:";D;"VOL:";V$;" FREE:";F$;" PAGE ";P;"OF ";L%::JP1:I:Z(Y33):Z06906&CC1:(Y)255N$(C)"1":670h:FFZ:S$(C)(Z):(S$(C))1S$(C)"00"S$(C)X(S$(C))2S$(C)"0"S$(C)bZ(Y2):L$(C)" ":Z4L$(C)"*":ZZ128lZ0T$(C)"T"vZ1T$(C)"I"Z2T$(C)"A"Z4T$(C)""7"Ģ3:1:370<I$:S(I$):OS,(CS):OD,(CD):CS,S16:"CURRENT DRIVE IS ";D:"PRESS RETURN OR ENTER DRIVE #";:I$:I$(13)490I$"1"I$"2"Ģ5:1:958:440I$:D(I$):CD,DX1511:SEC,X:768:ZZ34:YF1F735:ZZZZ35IDEAS.":BN1150:BN:::::"LET'S GET GOING!!":SW1600:SW:OrK0490|K8ĺ"INSERT NEW DISK IN SLOT:";S;",DRIVE:";D:"AND PRESS RETURN.";:R$:490"CURRENT SLOT IS ";S:"PRESS RETURN OR ENTER SLOT #";:I$:I$(13)ĺ:440I$"0"I$ f] h(5):"ROOM 300"::(5):"18 DUNCAN DRIVE"::(5):"NEW PORT RICHEY, FLORIDA 34653"p jSD11200:SD m::"OF COURSE THEY WILL GIVE YOU YOUR":"$5.00 BACK WITH YOUR FIRST ORDER." nNB1600:NB oLK1600:LK pBq"ENOUGH OF MY :WE11000:WEF [:"FOR YOUR OWN CATALOG LISTING OVER":UY11:UYt ^::(12):"2,000 PROGRAMS":IO1500:IO _:(6)::"FOR LESS THAN 25 CENTS EACH!!"::QP11:QP a::"SEND $5.00 TO:":TG1600:TG d:(5):"DUNCAN INSTITUTE LIBRARY":(15):"AND GET MORE WORK DONE"N J:"BY USING MORE OF THE":TH1100:THw O:(5):"FASCINATING,":RD1100:RD R:(10):"LOW COST,":PO1300:PO U:(15):"PUBLIC DOMAIN PROGRAMS":WR1100:WR X:"AVAILABLE FROM THE DUNCAN INSTITUTE."OCK 6=PAGE AHEAD 9=RESET DRIVE":S(18455)16:D(18454):K0:CS,S16:CD,Do ,TKR,17:F496:P1:C0:: /K8K9370 1:(18):"HI!" 3Q1400:Q: 5 6"YOU AND I CAN" : ;(5):"LEARN MORE," ?:(10):"HAVE MORE FUN,"" C:IOB777:T64:PL15:RB27136:CSIOB1:CDIOB2:TRKIOB4:SECIOB5:VOLIOB14:OSIOB15:ODIOB16:F1RB11:F7RB221:M1$"TYPE'LETTER' TO RUN, OR 0=EXIT"Q "M2$"1=LOAD 4=DELETE 7=PAGE BACK":M3$"2=LOCK 5=RENAME 8=NEW DISK":M4$"3=UNL*dINP$"":VS(106)256(105):VS2,240:VS3,14:VS4,150: 169,3,160,9,32,217,3,96,0,1,96,1,0,17,15,251,183,0,150,0,0,1,0,254,96,1:I768793:X:I,X:I:BL$""I140:BL$BL$(160):I:N$(105),S$(105),T$(105),L$(105):1290 D$(4):B$(7)      ::"TYPE THE RETURN KEY TO CONTINUE";85I1750:I@6C$I8950Y:I1750:Ib<420k?490q INITIAL TIME DETERMINATIONSP1SP600SP2SP500SP3SP400SP4SP300SP5SP200 LL RIGHT. BUT YOU NEED MORE PRACTICE."c/SCST6SCST4ĺ"YOU SHOULD TRY SOMETHING EASIER."0SCST4ĺ"THAT WAS WAY BEYOND YOU. WHY NOT TRY SOMETHING A LOT EASIER."1::"DO YOU WANT TO TRY AGAIN? ";2TR$:(TR$,1)"Y"3003(4OU WANT TO STOP? ";ST$,'(ST$,1)"Y"5535(564L)SC((10RAT)ST)i*::"YOUR SCORE IS ";SCo+,SCST10ĺ"THAT'S PERFECT. TRY SOMETHING HARDER NEXT TIME!"-SCST10SCST8ĺ"THAT'S VERY GOOD!").SCST8SCST6ĺ"YOU DID AILL BE DISPLAYED FOR A SLIGHTLY SHORTER LENGTH OF TIME"OSPSP10:RARA1`SP20SP20l!TT1:":"YOU HAVE GOTTEN ";RA;" CORRECT OUT OF ";T;"."#T10T20T30T40T50549$564%I120:SOUND(S)(S)(S):I&::"DO Y$ I0SPI!55 "WHAT WAS IT?"?:A$G:VA$P$540p"THAT'S NOT RIGHT":"IT WAS ",P$::"THE NEXT ONE WILL BE DISPLAYED FOR A LITTLE LONGER"SPSP10545:"THAT'S RIGHT"::"THE NEXT ONE W9):PP$(9)PP$(8):PP$(8)PP$(7):PP$(7)PP$(6):PP$(6)PP$(5)PP$(5)PP$(4):PP$(4)PP$(3):PP$(3)PP$(2):PP$(2)PP$(1):PP$(1)P$ BASIC PROCEDURE900950420I1750:I8:(20((P$)2))SP0SP0PL3439! P(IN(1)):P$I$(P)- X110@ P$PP$(X)435L X:450Z PL4444u P(AD(1)):P$AD$(P) X110 P$PP$(X)440 X:450 PL5450 P(EX(1)):P$EX$(P) X110 P$PP$(X)445 X:PP$(10)PP$("DISPLAY SPEED ";SP STPLSP) 470/ C  SELECT PHRASEI W PL1429v PL1P(W(1)):P$W$(P) X110 P$PP$(X)425 X:450 PL2434 PL2P(B(1)):P$B$(P) X110 P$PP$(X)430 X:450 PDISPLAY TIMES."< |:"1. WARM-UP 1. VERY SLOW"b "2. BEGINNER 2. SLOW" "3. INTERMEDIATE 3. MEDIUM" "4. ADVANCED 4. FAST" "5. EXPERT 5. VERY FAST"  "PHRASE LENGTH ";PL OUR READING SPEED."C Y:"A PHRASE WILL BE DISPLAYED FOR A SHORT"n ^"PERIOD OF TIME, AND YOU WILL TRY TO"~ c"READ IT." h:"TYPE WHAT YOU SEE AND YOU WILL BE TOLD" m"IF YOU WERE RIGHT." r:"YOU HAVE A CHOICE OF PHRASE LENGTHS" w"AND X1B B$(X) X% X1IN0 I$(X)7 XC X1ADO AD$(X)V Xb X1EXn EX$(X)u "X| , - INTRODUCTION . 6 J"THIS PROGRAM IS DESIGNED TO IMPROVE" O"YOUR READING HABITS, AND AT THE" T"SAME TIME, YNS16336936 12(14=("SPEED READING"M2I1750:ISnhx INITIALIZATIONnxW120B120IN120AD120EX120W$(W)B$(B)I$(IN)AD$(AD)EX$(EX)X1WW$(X)X                         <:10:12:"MASH 6502 ENDED"(F: S)"RENA"N$(JPLK)(R$,30)%750>K6PP1:PL%P1WK7PP1:P1PL%`750 ECD(222):LOC(219)256(218):19:1:958::ECD4ĺB$;"WRITE PROTECTED"(A$,1)"B"ĝ:1350(ECD4ĺB$;"ERROR ";ECD;" LINE ";LOC2:820)"RENA"ĺA$:20:8:(R$,30):A$A$","(R$,30)I(A$,4)"RENA"ĺA$tD$;A$;",S";S;",D";D:(A$,1)"B"1350(A$,4)"LOCK"L$(JPLK)"*"(A$,4)"UNLO"L$(JPLK)" "(A$,4)"DELE"N$(JPLK)"1":FF(S$(JPLK)):730(A$,4JACK"# "ON HIS WAY"/# "BOB GOT A RIDE"H# "VERY GOOD ADVICE"`# "BOB KILLED MARY"f#y# INTERMEDIATE## "WE ATE DINNER LATE"# "WE HATED HER DINNER"# "SHE LOVED HIS SUIT"# "LET'S GO HOME EARLY" $ "HERE COMESHE WAS ABUSIVE"&"w "COME DOWN HERE"<"| "HE WAS ABUSED"R" "COME UPSTAIRS"i" "SHE HAD ACCESS"~" "ANN WAS DEAD"" "SHE HAD SUCCESS"" "ANNE WAS PRETTY"" "IT IS MAY"" "JOHN KNEW MARY"" "IT IS MY OWN"# "JILL KISSED MARY HAD A DATE"%!@ "ABANDON SHIP" "LOOK AT THE MOUSE"&C "ANIMALS IN T THE DOG"$$ "THE WATER IS COLD"@$ "LOOK IN THE CLOSET"^$ "TRAFFIC IS HEAVY NOW"{$ "THE STORE IS CLOSED"$ "BILL READ THE BOOK"$ "BILL LEADS THE BAND"$  "AN IMPRESSIVE BUILDING"$ "HIS CUP IS EMPTY" % "LOOK FOR CREEP ABOUT HER EYES"@C "NO MAN SHALL MARK THE DAY SHE DIES"jC "WHO GROANS BENEATH THE PUNIC DIRT"C "AND STRANGLES IN A STRING OF CURSES"C "HER LIVING MOUTH SHALL SPEAK NO TRUTH"C "AND MAGGOTS CRAWL ABOUT HER EYES"D "HIS RIGHTOUOTE POSTERITY"9B "THE STYLE WAS SO PECULIARLY MY OWN"dB "WHO GROANS BENEATH THE PUNIC CURSE"B "AND STRANGLES IN THE STRINGS OF PURSE"B "BEFORE SHE MENDS MUST SICKEN WORSE"B "HER LIVING MOUTH WILL BREED BLUE FLIES"C "AND MAGGOTS EIR VACATION WAS A SUCCESS"!A.A EXPERT4AcA "I THOUGHT THAT THAT MOVIE WAS TERRIBLE"A "THE SUBJECT OF EVERY VARIETY OF MISERY"A "BOTH ARE EXAGGERATED BY POSTERITY"A "THE MOST PRECARIOUS HEARSAYS"B "I MEAN AN EXTREMELY REMDOWN HERE"+@ "IS ANY FOOD LEFT FOR ME?"L@ "THEY MUST HAVE MORE ROOM"p@ "THE CHILDREN HAVE MANY PETS"@ "THE PHONE KEEPS RINGING"@ "ELEPHANTS DO NOT FEAR MICE"@ "HE HAS 3 NIGHT CLASSES"@  "THE SAND WAS PURE AND WHITE"A "THE CALM AGAIN"3? "SHE HAD AN OPERATION RECENTLY"U? "THE WEDDING WAS POSTPONED"x? "BLUE IS THE FAVORITE COLOR"? "THE WEDDING WAS CALLED OFF"? "HOW MUCH FARM LAND IS LEFT?"? "POLLUTION CONTROL IS DIFFICULT" @ "A TORNADO TOUCHED OBBED LAST NIGHT"7> "I DIDN'T GET THE RIGHT CHANGE"\> "WHICH ISLAND WILL YOU VISIT?"> "WHEN WILL IT STOP RAINING?"> "SOME BIRDS MIGRATE EACH YEAR"> "SHE HAD LOTS OF SHOPPING TO DO"> "STARS COME OUT AT NIGHT" ? "THE WATERS ARE WATER IS TOO COLD FOR ME":= "CAN YOU FIND MY WATCH?"]= "SHE WAS A POOR HOUSEKEEPER"= "LIONS ARE VERY LAZY ANIMALS"= "THE LABEL FELL OFF THE CAN"= "CAN SHE FIND MY WATCH?"= "THEY GOT A BAD SUNBURN TODAY"> "THE MUSEUM WAS R "MY TV IS NOT WORKING RIGHT"H "WE HAVE 2 CATS AND 5 FISH"g;C "THIS SET OF BOOKS IS FOR SALE";H "LET'S ROW ACROSS THE RIVER";M "DO YOU THINK IT'S A GOOD IDEA?";R "HE HAS TRAVELED AROUND THE WORLD";W "I THINK A STORM IS COMING"<\SOMEDAY WE MAY BE ABLE TO GO"@: "HIS VACATION WAS CUT SHORT"f: "HE'S BEEN A TEACHER FOR YEARS":% "THIS TAPE SEEMS DEFECTIVE":* "WHAT GAME WOULD YOU LIKE TO PLAY?":/ "SHE'S A GOOD CARD PLAYER":4 "THE QUEEN'S GOWN WAS GREEN";9 "WHH"&9 "THE NEIGHBORS ARE VERY NICE"F9 "THIS NOVEL IS VERY GOOD"h9 "HE HAS TWO DOGS AND A CAT"9 "YOUR DINNER WAS DELICIOUS"9 "PLEASE COME AGAIN SOON"9 "PLEASE TRIM THE FAT FROM THE MEAT"9 "HER HAT LOOKED OLD FASHIONED": " "FIRECRACKERS ARE FUN TO WATCH"F8 "DO YOU THINK THIS IS CORRECT?"h8 "HOW MANY MORE MUST WE DO?"8 "WE WILL SEE THE BEST OF THEM"8 "THE HAT WAS TRIMMED WITH FEATHERS"8 "I'LL MAKE SANDWICHES FOR LUNCH"9 "I THINK THAT IS GOOD ENOUG "LOOK IT UP IN THE DICTIONERY"D7 "PIGS OFTEN MAKE GOOD PETS"i7 "LET'S GO TO THE SHOW TONIGHT"7 "THE LIBRARY HAS MANY NEW BOOKS"7 "THE CLOSET IS TOO FULL"7 "PACK EXTRA CLOTHES FOR THE TRIP"7 "JOHN GRADUATES THIS SPRING" 8 TV"'6 "WHEN DO YOU THINK WE'LL GO?"I6 "THE PLAY WAS WELL WRITTEN"k6 "HOW DO YOU GET THIS OPEN?"6 "WHICH ARE THE BEST BUYS?"6 "WHAT WOULD YOU LIKE IN YOUR SOUP?"6 "I THOUGHT OUR GUESTS WERE FUN"6 "I'M GOING SHOPPING LATER""7IGHT AT THE THEATRE"35g "HE DOESN'T LIKE TO FLY"S5l "THEY HAVE TOO MANY PETS"t5q "WHY DON'T YOU WAIT HERE?"5v "LONG DISTANCE PHONE CALLS"5{ "HOW MANY OF THESE DO YOU HAVE?"5 "ISN'T THIS SEASONING TOO HOT?"6 "MY FAVORITE SHOWS ON PMENT OF PAPER COME?":4D "I THINK THE INVOICE IS WRONG"_4I "DOES YOUR TV SET STILL WORK?"4N "HAVE YOU LEARNED SPANISH YET?"4S "THERE'S A HAUNTED HOUSE THERE"4X "HAS YOUR LETTER BEEN RECEIVED?"4] "THE LITTLE GIRL WAS PRETTY"5b "A NUS BECAUSE YOU THINK"@S "THEIR TOES AND YOURS ARE FAR APART"jS "YOUR WOOLLEN SOCKS CANNOT BE WORN"S "AND WHILE HIS SOCKS ARE HUNG TO DRY"S "AND YET THE IDIOTS KEEP ON LIVING"S "IN WOE AND PAIN THROUGH LIFE THEY GO"T "TO CONFIRM OF MEDIUM LENGTH"@R "LUCKY ARE THEY WHO RETAIN SOME FRIENDS"lR "THIS IS THE DAY THAT WON'T GET DARK"R "NEVER AGAIN SHALL WE GET TO BED"R "DUSK IS AN EXILE, NIGHT HAS FLED"R "MIDNIGHT LIES WITH THE BURIED CZARS"S "YOU BUY THEM TH DO NOT NEED IT!"GT "RISE IN YOUR GOWN OF SHINING BLACK"`GY "AND IT ALSO BAGGED BEHIND"G^ "HOW FAST HE GOES - HOW MANY WHEELS"Gc "HARK TO THE WHIMPER OF THE SEAGULL"Gh "OR ELSE THE OTHER WAY AROUND"Hm "I HOPE THAT IN MY ELDERING AG- I DON'T KNOW"9F6 "THIS WAS MADE POSSIBLE BY A GRANT"hF; "THAT HAS BEEN MANKIND'S MAJOR QUESTION"F@ "HE OPENED THE DOOR AND LED THE WAY"FE "THE STRANGE CASE OF THE MISSING DOVE"FJ "WITHDRAW, MY DEAR, WHILE YOU CAN"GO "GET UP, I TELL CAN IT LAST UNSPOILED?"";Z$:Z$NO)=>"; Z$:Z$""1820 Z$"Y"ė:2:230A Z$"N"182G P :3 "MULTIPLE CHOICE -- ANSWER EACH QUESTION WITH 1, 2, 3 OR 4" : X1:"TO STOP, TYPE 0 (ZERO) FOR YOUR ANSWER": 250 ':3:"FILL-IN. YOU MUST SPELL AD IN NATION & CAPITAL ARRAYS- I1 114F S$(I), C$(I) : Il I1 114 : A(I)0: I:G0:N0 "YOU HAVE YOUR CHOICE OF FILL-IN OR MULTIPLE CHOICE" "WOULD YOU LIKE TO FILL-IN THE ANSWERS?" "(Y FOR YES OR N FOR &* *MAY NOT BE SOLD.COPY-*> ! *RIGHT 1981 CUE,INC *\ " ***********************h 2:936n 3t 4z 5 6 7 8 9":::****::: NATIONS & CAPITALS :::****:::" : B C D x A(114),B(4),C$(114),S$(114) RE33 MAIN STREET *0  * REDWOOD CITY *N  * CA 94063 *l  *(415)364-5600 EX 4401*  * *  * *  ***********************  *PROGRAM MAY BE COPIED*  *FOR EDUCATIONAL USE *"  * SAN MATEO COUNTY *@  * OFFICE OF EDUCATION *^  * & *|  * COMPUTER-USING *  * EDUCATORS *  * *  * SOFTSWAP *  * *  * 3  NATIONS & CAPITALS 1977- d PRACTICE IN MATCHING NATIONS AND CAPITALSo z  APPLESOFT 8K  DAVE ALVERSON    *********************** *         YV ADDITIONS OR *V DELETIONS FROMDV THE CATAGORY TOTALSJV0_V1 APPLE T.A.R.T.sV2 SOFTWARE BANKzV3 V4 ENTERED BYV5 WILLIAM DAVISV6 ANDV7 ELUISE MARVINV8V9 AUGUST 19,1979 S "YOU SEARCH IN VAIN FOR A BEDSIDE LAMP"RU "A CENTURY LATER THE NIGHT IS PAST"jU MORE OR DIFFERENTU DATA STATEMENTSU MAY EASILY BEU ENTEREDU U THE DIMENSIONSU IN LINES 135-139U MUST BE CHANGEDV TO REFLECT ANTHROUGH SACRIFICE INTENSE"IT "MY ATTENTION HAS RECENTLY BEEN FOCUSED"sT "GIRL LOCUSTS DON'T MAKE ANY NOISE"T "WHOSE FLAVOR REEKS OF RANCID BUTTER"T "FIVE STORIES TALL THIS MANTRAP STANDS"T "THEY PASS UNWARY THROUGH ITS PORTALS"(Ua& VOWEL SEARCH 1/4/82) ` DRILL STUDENTS IN KNOWLEDGE OF VOWELS.k v  APPLE II W/APPLESOFT  DEER VALLEY   *********************** * *              ETNAM","HANOI","YUGOSLAVIA","BELGRADE","ZAIRE","KINSHASA","ZAMBIA","LUSAKA"f!:10:17:" BYE..."!D$(4):D$;"RUN ";"HELLO"UALOFA"T "TRINIDAD & TOBAGO","PORT OF SPAIN","TUNISIA","TUNIS","TURKEY","ANKARA" "UGANDA","KAMPALA","RUSSIA (USSR)","MOSCOW","UNITED ARAB EMIRATES","ABU DHABI"  "UNITED KINGDOM","ENGLAND","URUGUAY","MONTEVIDEO","VENEZUELA","CARACAS" K!"VIUBLIC 0F SOUTH AFRICA","PRETORIA AND CAPE TOWN","SPAIN","MADRID""SRI LANKA","COLOMBO","SUDAN","KHARTOUM","SWEDEN","STOCKHOLM""SWITZERLAND","BERN","SYRIA","DAMASCUS","TANZANIA","DAR ES SALAAM" "THAILAND","BANGKOK","TOGO","LOME","TONGA","NUKGUAY","ASUNCION","PERU","LIMA"e"PHILIPPINES","QUEZON CITY","POLAND","WARSAW","PORTUGAL","LISBON""RHODESIA","SALISBURY","ROMANIA","BUCHAREST","SAUDI ARABIA","RIYADH""SENEGAL","DAKAR","SIERRA LEONE","FREETOWN","SOMALIA","MOGADISHU"@"REPAT"O"MOZAMBIQUE","MAPUTO","NEPAL","KATMANDU","THE NETHERLANDS","AMSTERDAM""NEW ZEALAND","WELLINGTON","NICARAGUA","MANAGUA","NIGER","NIAMEY""NIGERIA","LAGOS","NORWAY","OSLO","OMAN","MUSCAT","PAKISTAN","ISLAMBAD""PANAMA","PANAMA","PARARUT","LIBERIA","MONROVIA","LIBYA","TRIPOLI"|"LIECHTENSTEIN","VADUZ","MADAGASCAR","TANANARIVE","MALAYSIA","KUALA LUMPUR""MALI","BAMAKO","MALTA","VALETTA","MAURITANIA","NOUAKCHOTT""MEXICO","MEXICO CITY","MONGOLIA","ULAN BATOR","MOROCCO","RABAN","TEHRAN","IRAQ","BAGHDAD" Z"IRELAND","DUBLIN","ISRAEL","JERUSALEM","ITALY","ROME""JAMAICA","KINGSTON","JAPAN","TOKYO","JORDON","AMMAN","KENYA","NAIROBI""SOUTH KOREA","SEOUL","KUWAIT","KUWAIT CITY","LAOS","VIENTIANE"+"LEBANON","BEI"FRANCE","PARIS","GERMANY","BERLIN","GHANA","ACCRA","GREECE","ATHENS""GUATEMALA","GUATEMALA CITY","HAITI","PORT-AU-PRINCE","HONDURAS","TEGUCIGALPA""HUNGARY","BUDAPEST","ICELAND","REYKJAVIK","INDIA","NEW DELHI""INDONESIA","JAKARTA","IRA","HAVANA","CYPRUS","NICOSIA","CZECHOSLOVAKIA","PRAGUE"y"DENMARK","COPENHAGEN","DOMINICAN REPUBLIC","SANTO DOMINGO""ECUADOR","QUITO","EGYPT","CAIRO","EL SALVADOR","SAN SALVADOR""ETHIOPIA","ADDIS ABABA","FIJI","SUVA","FINLAND","HELSINKI"IE","BRAZIL","BRASILIA","BULGARIA","SOFIA"j"BURMA","RANGOON","CAMBODIA","PHNOM PENH","CANADA","OTTAWA""CHILE","SANTIAGO","PEOPLE'S REPUBLIC OF CHINA","PEKING""REPUBLIC OF CHINA","TAIPEI","COLOMBIA","BOGOTA","COSTA RICA","SAN JOSE"8"CUBA","ALGERIA","ALGIERS"_|"ANGOLA","LUANDA","ARGENTINA","BUENOS AIRES","AUSTRALIA","CANBERRA"~"AUSTRIA","VIENNA","THE BAHAMAS","NASSAU","BANGLADESH","DACCA""BARBADOS","BRIDGETOWN","BELGIUM","BRUSSELS","BOLIVIA","SUCRE")"BOTSWANA","GABORON"(Y FOR YES OR N FOR NO)=>";1hZ$:Z$""872?iZ$"Y"ĬPjZ$"N"872p::"IS ANYONE ELSE WAITING TO PLAY?":"(Y FOR YES OR N FOR NO)=>";qZ$:Z$""881rZ$"Y"ĬsZ$"N"881t970z"AFGHANISTAN","KABUL","ALBANIA","TIRAN(Z$)13796 N114ī310&%850/):3X*"DO YOU WANT TO STOP? (Y OR N)==>";k/Z$:Z$""815{2Z$"Y"8504Z$"N"8159H800R:10\"YOU GOT ";N;" RIGHT IN ";G;" GUESSES."]f"WOULD YOU LIKE TO TRY AGAIN?"g ZC 7709A(R)1:"WRONG. THE CORRECT ANSWER"L"IS ";A$:790]A(R)2:NN1c  "RIGHT! YOU HAVE ";N;" CORRECT!":GG1 23:6:"PRESS TO CONTINUE...":6:"OR TO END PROGRAM=>";Z$:(Z$)27809 ":23:"TRY AGAIN!":50:21:958:6570V$"A"V$"E"V$"I"V$"O"V$"U"A$"N"Ģ22:"GOOD JOB!":50:21:958:6650I SEND TO REINFORCERS22000K HOW MANY VOWELS IN HOW MANY WORDS&3:"THERE WERE ";C;" VOWI):V$:22:"YOU ARE RIGHT!":50:21:958:6650V$"A"V$"E"V$"I"V$"O"V$""Ģ22:"OOPS! ";V$;" IS A SHORT VOWEL.":23:"TRY AGAIN!":50:21:958:6570'V$"A"V$"E"V$"I"V$"O"V$"U"A$"Y"Ģ22:"NO. ";V$;" IS NOT A SHORT VOWEL. (Y OR N)?":A$)A$"Y"A$"N"6570>V$(SV$(R),I,1)e COUNT THE NUMBER OF SHORT VOWELSV$"A"V$"E"V$"I"V$"O"V$"U"CC1A$"Y"A$"N"6570A$"Y"6605A$"N"66100V$"A"V$"E"V$"I"V$"O"V$"U"Ģ3:(26 SEND TO RANDOM WORD SELECTION SUBROUTINE5i9000Kn:12:18:SV$(R)ss DETERMINE THE LENGTH OF EACH WORDxX(SV$(R))I1X13:(16I) PRINT A ? UNDER EACH LETTER OF THE WORD PRESENTED" ?"20:"IS THIS A SHORT VOWELT!":30000:21:958:6150!I,8220003K9 o23:"THERE WERE ";C;" VOWELS IN ";N;" WORDS."323:"(PRESS ANY KEY TO CONTINUE.)":W$Z160d SHORT VOWEL SUBROUTINEe LIMIT THE NUMBER OF WORDS PRESENTED TO 10fK1N+h$"I"V$"O"V$"U"Ģ22:"OOPS! ";V$;" IS A VOWEL.":23:"TRY AGAIN!":30000:21:958:6070V$"A"V$"E"V$"I"V$"O"V$"U"A$"Y"Ģ22:"TRY AGAIN! ";NAME$:30000:21:958:6070V$"A"V$"E"V$"I"V$"O"V$"U"A$"N"Ģ22:"RIGHL (Y OR N)?":A$*A$"Y"A$"N"6070?V$(VV$(R),I,1)mV$"A"V$"E"V$"I"V$"O"V$"U"CC1~A$"Y"6105A$"N"6110V$"A"V$"E"V$"I"V$"O"V$"U"Ģ3:(26I):V$:22:"RIGHT!":30000:21:958:6150]V$"A"V$"E"VBROUTINE TO ALLOW STUDENT TO FIND VOWEL LETTERS IN A WORD (PROGRAM A)PrK1Nt SEND TO RANDOM WORD SELECTION SUBROUTINEu9000z:12:18:VV$(R)X(VV$(R))I1X13:(16I):" "13:(17I):"?"1:20:"IS THIS A VOWEGRAM."I-23:5:"HOW MANY DO YOU WANT TO DO?";N$:N$"0"(N$)05165U.N(N$)2 LIMIT THE NUMBER OF WORDS TO >5 BUT <25<N68200FN258400P SEND TO THE PROGRAM PICKEDZP$"A"İ6000dP$"B"İ6500nP$"C"İ7000Ep SU", WHICH DO YOU WANT?":"(PRESS A, B, C, OR D)":P$] SEND TO THE PROGRAM THAT WAS PICKED|P$"A"P$"B"P$"C"5150P$"D"10000170 ASK HOW MANY WORDS STUDENT WANTS TO DO(:9:5:"HI, ";NAME$;:12:5:"GLAD YOU CHOSE THIS PROLABLE WORD THAT HAS A SILENT E AT THE END OF THE WORD."B50M MENUj:4:10:"VOWEL SEARCH"7:10:"A. FIND THE VOWELS."9:10:"B. SHORT VOWELS."11:10:"C. LONG VOWELS."15:10:"D. I WANT TO QUIT NOW."321:NAMES$VOWEL SEARCH IS A PROGRAM DESIGNED TO GIVE PRACTICE TO STUDENTS IN THE AREAS OF:" t10:"A. IDENTIFYING A VOWEL LETTER IN A WORD." u13:"B. IDENTIFYING A SHORT VOWEL IN A ONE SYLLABLE WORD.":v16:"C. IDENTIFYING A LONG VOWEL IN A ONE SYL eI150 fVV$(I) gI* hI1506 iSV$(I)= jII kI150U lLV$(I)\ mIm n GREETINGS o:8:5:"WELCOME TO VOWEL SEARCH" p12:5:"WHAT IS YOUR NAME?";NAME$ qNAME$""111 r GENERAL DESCRIPTION OF THE PROGRAMT s:" *MAY NOT BE SOLD.COPY-*: ! *RIGHT 1982 CUE, INC. *X " ***********************a #100 223::23:"PRESS TO GO ON, TO END "; 4IN$:(IN$)152 6(IN$)(27)10000 7(IN$)1352 8: dVV$(50),SV$(50),LV$(50)AIN STREET *,  * REDWOOD CITY *J  * CA 94063 *h  * (415) 363-5472 *  * *  * *  ***********************  *PROGRAM MAY BE COPIED*  *FOR EDUCATIONAL USE &*  * SAN MATEO COUNTY *<  * OFFICE OF EDUCATION *Z  * & *x  * COMPUTER-USING *  * EDUCATORS *  * *  * SOFTSWAP *  * *  * 333 M(:a8(;a8,158(a11,1212A(?a10,1212O(@a10,1211](Aa10,1025k(Ba10,1126y(Ca11,1125(Da12,1126(Ea12,1125(Fa5(Ga22,1518(Ha18,2022(Ia1(JaI1200:I(Ka16,2330(La24,29(Ma15,29)NaI1200].'^10:22:" W O N D E R F U L !":300004'^_'P_13:22:"P E R F E C T ! ! ! ":30000e'_'`15:22:"S M A R T Y ! ! ! ":30000'J`'` DRAW A HAPPY FACE'`'`'`11'aI139'a0,39I'a0,3939'&a39,039'0a39,10,391 &]I&]I139& ]I+&*]1,39I2&4]IA&>]M3901H&H]MT&R]39,1M[&\]Mj&f]I3911q&p]I}&z]39,1I&]I&]I139&]0&]J1100:J&]1,39I&]I&]30000&]&]&]12:22:" G O O D J O B ! ! ! ":30000'0:22:"THAT'S RIGHT, ";NAME$:30000+% ZX%Z10:22:"T E R R I F I C ! ! ! ":30000^%Z%h[10:22:"GR-R-R-EAT!!!":30000%[%0\10:22:" G O O D W O R K ! ";NAME$:30000%b\%\ GRAPHICS FOR COLORS%\%\%]I139%]I& ]1 NOSE, HOME, DROVE, CODEK$U RANDOM NUMBER GENERATOR TO CHOOSE REINFORCER]$UX%(9)1004s$VX%1X%2022010$VX%23000,23200,23400,23600,23800,24000,24200,24400,24600,25000,25200,25400,25600,26000,26400,24800,26200,25800,27000,27200$"V%%Y1RAPE, LAKE, LATE, MADE, MAKE, PASTE, PLANE, PLATE, WOKE#O SAME, SHAKE, SKATE, TIDE, DRIVE, DIME, CHIME, BRIDE, WHALE, TRACE, TAKE, STATE, SPACE, NINE, PINE, CLOSE, BROKE$LO PRIZE, SHINE, SHRINE, SMILE, STRIKE, WHILE, WHITE, WIPE, THOSE, STONE, ROSE,, DON, FOX, HOT, LOT, MOB, NOT, PAN, RAN, RAT, MAD, FAD, PAT, ANN"N POT, ROD, TOP, BED, BET, GET, HEN, JET, LET, NET, RED, WED, YES, MITT, BUMP, LINT, FLINT, ED, SAT, LUMP, MIX, SAND, MACK7#N BAKE, BRAVE, CAGE, CAKE, CAME, CHASE, DATE, FACE, GATE, GLAUGHh!RN LITTLE, MADE, MYSELF, NOT, ONCE, OPEN, PLEASE, PRETTY, READ, ROUND, SEVEN, SING, SOME, THEIR!SN THERE, THREE, TOGETHER, TOO, UP, USE, WASH, WHERE, WOULD, YELLOW, YOURA"N SIX, WIG, ZIP, BUG, BUS, BUT, CUT, FUN, GUM, HUT, MUD, NUT, SUN, COPOU ";NAME$) $'15:"VISIT ME AGAIN SOON"F .'20:"GOODBYE FOR TODAY"[ 8'(4)"RUN HELLO" N ABOUT, AGAIN, ALWAYS, AN, ARE, AROUND, BECAUSE, BEEN , BEFORE, BLACK, BLUE, CARRY, COME, DOES!!N EIGHT, FIVE, FOUND, GIVE, GOT, HERE, HOW, IN, KEEP, KNOW, 0# R2 = SECOND TO LAST RANDOM NUMBER USED02#?<#R2R1:R1RSF#R((9)1002)fP#R1R509030zZ#RR1RR29030d#R,R1,R2x#' A SUBROUTINE WHICH LETS THE STUDENT QUIT IF HE WANTS TO ':5:"IT WAS NICE PLAYING VOWEL SEARCH WITH Y5:"BUT WHY DON'T YOU TRY DOING"J 17:5:"NO MORE THAN 25 THIS TIME."{ 19:5:"HAVE FUN, ";NAME$;" AND GOOD LUCK!" 5165(# SUBROUTINE TO SELECT WORDS TO BE PRESENTED AT RANDOM.# R=NEWLY SELECTED RANDO/# R1 = LAST RANDOM NUMBE *9:5:"OH, COME ON, ";NAME$;:12:5:"YOU CAN DO BETTER THAN THAT!"y 15:5:"BUT WHY DON'T YOU TRY 6 OR MORE.":5165l LIMIT # OF WORDS TO < OR = 25 N25ė:9:5:"WOW! ";NAME$;" YOU MUST LIKE":12:5:"WORKING ON THE VOWEL SEARCH ."! 15::21:958:7070eV$"A"V$"E"V$"I"V$"O"V$"U"A$"N"Ģ22:"GOOD!":50:21:958:7150lIw22000~K 3:"THERE WERE ";C;" VOWELS IN ";N;" WORDS."50 160 SUBROUTINE TO LIMIT # OF WORDS GIVEND N5ė::V$:22:"CORRECT!":50:21:958:7150V$"A"V$"I"V$"O"V$"U"Ģ22:"WRONG. ";V$;" IS A LONG VOWEL.":23:"TRY AGAIN!":50:21:958:7070V$"A"V$"I"V$"O"V$"U"A$"Y"Ģ22:"NO. ";V$;" IS NOT A LONG VOWEL.":23:"TRY AGAIN!":50I)$ PRINT A ? UNDER EACH LETTER." ?"\20:"IS THIS A LONG VOWEL (Y OR N)?":A$vA$"Y"A$"N"7070V$(LV$(R),I,1)V$"A"V$"I"V$"O"V$"U"CC1A$"Y"7105A$"N"7110(V$"A"V$"I"V$"O"V$"U"Ģ3:(26I)ELS IN ";N;" WORDS."050&:160aX SUBROUTINE TO FIND LONG VOWELS IN A WORD (PROGRAM C)lZK1N\ SEND TO RANDOM WORD GENERATOR]9000b:12:18:LV$(R)g DETERMINE THE LENGTH OF THE WORDlX(LV$(R))I1X13:(1622:36,22:37,22:37,23E31,37:31,38:32,38:36,38:37,38:37,37K`J0:G11000:GlJ0::rz1121,243:19,215:19,216:20,4:25,4:25,5:15:18,22717,238:13,1512:12,1613:13,152812,1627:15,259:1,2:2,1:6,1:7,1:7,2@X1,15:1,16:2,16:7,15:7,16:6,16kb16,5:17,4:17,3:16,11:17,12:17,13l21,1:22,1:21,2:26,1:27,1:27,2v31,6:31,7:32,7:37,6:37,7:36,711,23:11,22:12,22:16,22:17,22:17,2331,23:31,22:32,94+35,375:32,356:28,327:21,288M24,3910:24,3918:22,3924l24,3630:24,3638:3,50&3,517:11,137:11,139:13,1510013,156:23,250:21,278:33,358:11,1730:13,1521D20,2821:33,3521:33,3539N1,1:,3636:6,1737:33,3537> HH1:H3440:H1Ġ0:H2Ġ15L G11000T G:\ :b j 15p  3,140:3,148:0,1710 0,218:13,1718:3,1720:3,1728 0,530:0,538:8,1734:21,28028,321:32,352:35,373:37,3:12,19286 T12,1438:16,1838:22,3010:22,3018Z ^22,3020:1,7:7,7:1,15:7,15 h1,21:7,21:1,31:7,31:12,37:14,37 r18,1:18,3:18,8:18,7:16,37:18,37 |6,1733:33,3533:5,2534 32,3634:5,3035:32,3635 5,2536:3216,200:24,300:9,124> 4,68:16,208:24,308:0,811j "10,1811:20,2811:30,3711:33,3715 ,1,319:5,719:30,3719:11,1726 621,2826:2,68:2,614:2,622 @2,632:12,180:12,184:12,188 J12,1918:12,1920:12,1624;" AND GOT ";X;" RIGHT"\ :" IN A MOMENT YOU WILL BE RECEIVING YOUR GRADE FOR THE TEST"m U13000:Uz PFī40 Q((XF)100) Q90710 Q80Q90920 Q70Q801150 Q60Q701280 Q601540 :15 4,60:CABK P"WHAT DO YOU THINK THE ANSWER TO ";A;"*";B;" IS?":DY ZDC110f dDC130o n260x x140 450 DABĪXX1 DABĪZZ1 PP1 PF185 190 "ON A TEST OF ";F;" PROBLEMS YOU MISSED ";Z "I AM THE APPLE II PLUS, AND I WILL TRY TO HELP YOU WITH YOUR MULTIPLICATION TABLES BY TESTING YOU""HOW MANY PROBLEMS WOULD YOU LIKE ON YOUR TEST ":F(2A((1)12)<B((1)12) F      .TjI175=.^jNAME$;NAME$;NAME$;NAME$;NAME$;NAME$;NAME$;D.hjIO.mj30000U.rj_.0u50: I"PRESS TO CONTINUE";:CN$: If28,3110-f32,11!-f32,19/-f28,3120=-f10,2028K-f12,1833R-f1`-f10,1837k-f37,20v-f30000|-f-f-f- g15:22:"S U P E R ! ";NAME$:30000-Rg-xi20:22::"W O W ! ! ! "::30000-i-@j NAME REINFORCER.Jj,Xf GRAPHICS FOR GOOD!,]f%,bf,,gf78,lf5,810D,qf5,820P,vf7,915],{f11,129j,f15,199w,f11,194~,f2,f13,1610,f13,1620,f11,1912,f11,1917,f3,f21,2410,f21,2420,f11,1920,f11,1925,f11 -+d5,22+e6,23+ e7,24*+e13,24128+e17,2313F+e17,2324T+e20,2319b+"e13,2417p+'e19,2423~+,e13,2425+1e13,2431+6e25,3118+;e13,2436+@e33,3913+Ee30000+Je+Oe+Te+e12:22:"WHAT A W H I Z !":30000,eAME$:30000*bG*8c8:22:NAME$;" IS A COMPUTER W H I Z !":30000M*jc|*d5:22:NAME$;" IS SO S M A R T !":30000*2d*d GRAPHICS FOR RIGHT*d*d*d1*d1,713*d1,718*d13,241*d13,187*d2,19*d3,20*d4,21:I)Oa25,28)Pa14,28))QaI1200:I4)Ra13,27?)Sa26,27O)TaI1200:IZ)Ua27,26e)Va12,26u)WaI1200:I)Xa11,25)Ya28,25)Za30000)\a)]a)^a)a15:22:"C O R R E C T ! ! ! ":30000)a *pb12:22:"THAT IS R I G H T ! ";NFTER TYPING IN NUMBER.H 2:"CHOOSE TWO NUMBERS BETWEEN 1 AND "L" ANDm "TYPE IN THE LARGER ONE FIRST. 5:"LARGER NUMBER = ";N$:N$""250:N(N$):N1NLĢ5:16:958::250 7:"SMALLER NUMBER = ";I$:I$""260 I(I$):INI1Ģ7:1PRIATE NUMBER.S :7)"1) NUMBERS FROM 1 TO 10"::7)"2) NUMBERS FROM 1 TO 50x :7)"3) NUMBERS FROM 1 TO 100 12:"WHICH NUMBER? ";:IN$::IN$""190:Z(IN$):Z1Z3190:Z1L10 Z2L50 Z3L100 :23:"PRESS A OF1 x"THE SEQUENCE.":::"STUDY THE PATTERN._ ::"WHEN THE COMPUTER ASKS FOR THE NEXT "NUMBER, TYPE IN YOUR ANSWER. 21:"PRESS TO CONTINUE. ";:IN$::(IN$)13150 :::"CHOOSE LEVEL OF DIFFICULTY BY TYPING IN THE APPROINTERFACE AGE, DECEMBER , 1979":::16)"********w Z21:"PRESS TO CONTINUE. ";:IN$::(IN$)1390::: d"YOU WILL CHOOSE TWO NUMBERS WHICH THE COMPUTER WILL USE TO GENERATE A n"SEQUENCE.":::"YOU WILL SEE THE FIRST FIVE NUMBERSB SEQUENCES DECEMBER/1979& [ A NUMBER SEQUENCE GAME OF DEDUCTIONr( BY MARGE COLE 216368,0:16300,0:16298,0:::6<" THIS IS THE GAME OF SEQUENCES"::F" FROM AN ARTICLE BY BOB ALBRECHT2 P" IN   SO GOOD! STUDY MORE"&V11500:V3S39:T6?0:S,TQAB1100:AB:"WOULD YOU LIKE TO TAKE ANOTHER TEST.(Y/N)":A$::A$"Y"25:A$"N"1800 V$"Y"25:A$"N"1800 F::A$"Y"25:A$"N"1800 F'^33,35:33,36:34,37:34,38:35,39Nh17,31:16,31:15,30:14,30:13,29ur13,28:10,18:14,17:15,16:16,15|17,14:18,14:19,15:20,15:21,1422,14:23,15:24,16:25,17:29,1826,28:26,29:25,29:24,29:23,3022,30:"NOT22,2423:+16,2328:11,2832:7,934:M"30,3234:19,2234:18,2213o,23,2712:18,2226:23,2727624,2619:24,2620:34,3918@4,39:5,38:5,37:6,36:6,35J9,33:10,33:11,39:11,38:19,37T10,37:28,39:28,38:29,33:30,33,37:5,38(4,39:33,35:33,36:34,37=34,38:35,39:0]19,25:20,25:19,26:20,26}11,38:11,39:28,38:28,391117,2228:16,29:23,2913,1618:13,162118,2012:18,2017:1780:15 11,2819:15,1723:F23,2727:13,28:13,29:14,30@P15,30:16,31:17,31:26,28`Z26,29:25,30:24,30:23,31nd22,31:7n16,22:17,22:16,23:17,23x22,22:22,23:23,22:23,2311,2832:9,33:10,33:29,3330,33:7,934:30,3234 6,35:6,36:52,25:23,25:23,24:24,24+24,23:7:1780=:F:4c 19,1:20,1:19,2:20,2:3,518:3,521:6,8176,822:9,1116:9,1123(12,1515:12,1524:16,1814216,1825:14,2519:13<20,2213:20,2226:23,2712 PP1:YY1:RR1:KK1:I&`:1780/~:9O24,15:24,14:23,14:23,13h22,13:15:15,22126:15,13:14,13:14,1413,14:13,15:1:13,1613,22:13:16,221214:13,23:13,24:14,2414,25:15,25:715,2226:11:24,2813:14,1814:20,2214G24,2814:14,1815:20,2215:24,2815s14,1816:23,2816:15,2717:16,261817,2519:18,2420:15:20,22920,2212:20,2216:9,1619:10,112313,1523:P15:Y19:R16:K19I113:P,Y:R,K:3:19,2116/>19,2114:15,1818:15,18229z1780KA$"N"ī1800QX1w18,246:17,257:16,26815,189:23,279:14,181020,2210:24,2810:14,1811:20,221114,1812:23,2812:14,1813:20,221324,2811:215,2510:14,2611813,2712:12,1613:24,2813:8d 17,2313:14,1814:22,2614:15,181415,1915:15,2016:15,2217:19,3518 15,2023:15,2024:15,1925:19,3522*14,1826:17,3619:17,3720:17,3621 419,3522:19,2115K4A$"DELETE":&K5A$"RENAME"@A$;::K$:K(K$)48SK17K31810nKK16:(JPLK)C810N$(JPLK)"1"810(A$"RUN"A$"LOAD")T$(JPLK)"T"Ģ19:1:868::B$;"FILE ";K$;" IS TEXT"::820<(A$"DELETED"A$"RENAME")͢21:1:M1$:M2$:M3$:M4$;6>K(16384):K128830nR16368,0:19:1:958:K$(K):KK176:K0K9970|fK01340pK6K71260zK8K9300"PRESS 'LETTER' YOU WISH TO ";:K1A$"LOAD"K2A$"LOCK"K3A$"UNLOCK":";D;"VOL:";V$;" FREE:";F$;" PAGE ";P;"OF ";L%::JP1:I1PL:(JPLI)C810 N$(JPLI)"1"ĺ(TI);" ";::"DELETED FILE":N$(JPLI)"1"ĺ(TI);" ";L$(JPLI);T$(JPLI);" ";S$(JPLI);" ";N$(JPLI) I*19:1:9584A$"RUN":T"vZ1T$(C)"I"(Z2T$(C)"A";Z4T$(C)"B"SN$(C)(INP$,ZZ,30)]Y:XzL%CPL:CL%PLL%L%1V$((VOL)):(V$)1V$"00"V$(V$)2V$"0"V$F$(F):(F$)1F$"00"F$(F$)2F$"0"F$N:"SL:";S;"DR,DLX1511:SEC,X:768:ZZ34:YF1F735:ZZZZ35:Z(Y33):Z0690o&CC1:(Y)255N$(C)"1":670:FFZ:S$(C)(Z):(S$(C))1S$(C)"00"S$(C)X(S$(C))2S$(C)"0"S$(C)bZ(Y2):L$(C)" ":Z4L$(C)"*":ZZ128lZ0T$(C)"URN OR ENTER SLOT #";:I$:I$(13)ĺ:440H I$"0"I$"7"Ģ3:1:370u I$:S(I$):OS,(CS):OD,(CD):CS,S16 :"CURRENT DRIVE IS ";D:"PRESS RETURN OR ENTER DRIVE #";:I$:I$(13)490 I$"1"I$"2"Ģ5:1:958:440I$:D(I$):CDILL GIVE YOU YOUR":"$5.00 BACK WITH YOUR FIRST ORDER."? n:d o"PRESS TO CONTINUE=>";{ pA$:(A$)13367 rK0490 |K8ĺ"INSERT NEW DISK IN SLOT:";S;",DRIVE:";D:"AND PRESS RETURN.";:R$:490* "CURRENT SLOT IS ";S:"PRESS RETROGRAMS"D _:(6)::"FOR LESS THAN 25 CENTS EACH!!"::QP11:QP^ a::"SEND $5.00 TO:" d:(5):"DUNCAN INSTITUTE LIBRARY" f h(5):"ROOM 300"::(5):"5513 DUNCAN DRIVE"::(5):"NEW PORT RICHEY, FLORIDA 34653"7 m::"OF COURSE THEY WOCK 6=PAGE AHEAD 9=RESET DRIVE":S(18455)16:D(18454):K0:CS,S16:CD,Do ,TKR,17:F496:P1:C0:: /K8K9370 1:(18):(12):"HI!" 3Q1400:Q: 5 [:"FOR YOUR OWN CATALOG LISTING OVER":UY11:UY ^::(12):"2,000 P:IOB777:T64:PL15:RB27136:CSIOB1:CDIOB2:TRKIOB4:SECIOB5:VOLIOB14:OSIOB15:ODIOB16:F1RB11:F7RB221:M1$"TYPE'LETTER' TO RUN, OR 0=EXIT"Q "M2$"1=LOAD 4=DELETE 7=PAGE BACK":M3$"2=LOCK 5=RENAME 8=NEW DISK":M4$"3=UNLcdINP$"":VS(106)256(105):VS2,240:VS3,14:VS4,150: 169,3,160,9,32,217,3,96,0,1,96,1,0,17,15,251,183,0,150,0,0,1,0,254,96,1:I768793:X:I,X:I:BL$""I140:BL$BL$(160):I:N$(105),S$(105),T$(105),L$(105):1290 D$(4):B$(7)        * MEDIA ** * SERVICES *A ****************4İ700:FL1440qN", ";:X1NNI:510X2NNI:510X3NNI:510NNICC1:C5ĺ:54045012:"ENTER NEXT NUMBER: ";IN$:IN$""540:A(IN$) "N"420EIN$"Y"160::12:7:" * * * T H E E N D * * *":21_D$(4):D$"RUN HELLOFL0:N1N:J05:N1I(N1I)FL1N1N1I:J:  **************** * MODIFIED BY * * TOM McCORD * * EDUCATIONAL *0 |958X14:"SORRY, NOT IT. GUESS AGAIN (Y/N) ?";:IN$::IN$"Y"IN$"N"390IN$"Y"Ģ11:958:23:"PRESS AFTER TYPING IN NUMBER.":360:"OKAY. THE NUMBER IS "N 21:958:"TRY ANOTHER ONE? (Y/N) ";:IN$::IN$"Y"IN$8:958::260 C0:@ "X((1)3.91):X4İ450:FL1290\ ,N", ";:X1NNI:340p 6X2NNI:340 @X3NNI:340 JNNI TCC1:C5ĺ:360 ^300 h12:"ENTER NEXT NUMBER: ";IN$:IN$""360:A(IN$)rANĺ:"CORRECT!":42 <:10:12:"MASH 6502 ENDED"(F: S)"RENA"N$(JPLK)(R$,30)%750>K6PP1:PL%P1WK7PP1:P1PL%`750 ECD(222):LOC(219)256(218):19:1:958::ECD4ĺB$;"WRITE PROTECTED"(A$,1)"B"ĝ:1350(ECD4ĺB$;"ERROR ";ECD;" LINE ";LOC2:820350-(ECD4ĺB$;"ERROR ";ECD;" LINE ";LOC82:820Y<:10:12:"MASH 6502 ENDED"aF: I I)"B"1350(A$,4)"LOCK"L$(JPLK)"*"(A$,4)"UNLO"L$(JPLK)" "(A$,4)"DELE"N$(JPLK)"1":FF(S$(JPLK)):730(A$,4"DELE"N$(JPLK)"1":FF(S$(JPLK)):730U(A$,4)"RENA"N$(JPLK)(R$,30)^750wK6PP1:PL%P1K7PP1:P1PL%750 ECD(222):LOC(219)256(218):19:1:958::ECD4ĺB$;"WRITE PROTECTED"(A$,1)"B"ĝ:1"A$"B"A$i~A$A$" "N$(JPLK):19:1:958:(A$,4)"RENA"ĺA$:20:8:(R$,30):A$A$","(R$,30)(A$,4)"RENA"ĺA$D$;A$;",S";S;",D";D:(A$,1)"B"1350(A$,4)"LOCK"L$(JPLK)"*"(A$,4)"UNLO"L$(JPLK)" "-(A$,4)R$(BL$,30(R$))XBZ1L%PL:N$(Z)R$Ģ20:1:868::B$:"DUPLICATE NAME";::1030_LZvVA$"DELETE"1140`19:1:868:"PRESS 'D' TO DELETE FILE ";K$:"OR ANY OTHER KEY TO CANCEL.";:R$:R$"D"810 t(A$"RUN"A$"LOAD")T$(JPLK)"BL$(JPLK)"*"Ģ19:1:868::B$;"FILE ";K$;"LOCKED"::820SA$"RENAME"111019:1:868:"RENAME ";K$;:RR$:RR$""810(RR$)65(RR$)90Ģ20:1:868::B$;"INVALID NAME";::1030R$"":I1(RR$):R$R$(((RR$,I,1))128):I:R$