' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( l  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` i d ֠Ġ MX*@#nj@#_MF$(I)MF$(I)C$H1000 DT"# v"TO DISPLAY THE MENU AGAIN") 4 (13)G D$;"RUN ";GN$e :"LEAVING MENU PROGRAM"m : "PRESS OPEN APPLE - CONTROL - RESET " "TO SEE MENU AGAIN"   ********************  READ MENUFILE SUBROUTINE *****:  ********************4  FIND AND RUN GAMEP  *********************\ I1CT (MF$(I),1)CH$GN$(MF$(I),5,30) &I X"NOW RUNNING ";GN$ b k:: l:" WHEN DONE WITH PROGRAM. " q" PRESS OPEN APPLE - CONTROL - RESEF YOUR CHOICE-> "; YCH$7 ZCH$"X"CH$"x"ī350h [936:"DO YOU REALLY WANT TO EXIT? ->";:R$ \R$"Y"R$"y"ī740 ]355 ^(CH$)64(CH$)64CTī500 c936 d:CH$; e h" NOT A VALID CHOICE. TRY AGAIN." r340 :O "ī210Z MF$(I)"STOP "ī300g :MF$(I)p CTIw I ,D$;"CLOSE MENUFILE" -"X - EXIT": ."MAKE SURE CAPS LOCK IS ON ": 6 GET CHOICE @34,CT6:: T"TYPE THE LETTER O"PROJECT ACCESS PD/SHAREWARE COLLECTION"0 c "BY L. DEMARAIS, W. HILLER AND G. MODELL" t " M E N U" " -------" READ MENUFILE FROM DISK R$;D$;"OPEN MENUFILE" D$;"READ MENUFILE" I1100 1000$ MF$(I)"HELLSTORY PRINT OUT"O12:7)"TURN ON AND ADJUST PRINTER.":13)"(E TO ESCAPE)"d300: CONTINUE y(X$,1)"E"59011250A"Vx:NAME$;" THREW THE ";THING$;" AT IT."::NAME$;" CRASHED IN THE DOOR, AND WAS":"OUTSIDE AT LAST. ";NAME$;" WAS SAFE.":17)"THE END"0255300: CONTINUE620 ** PRINT ON PAPER **:10)"GHOST 8EP:"IT WAS A ";THING$;"!"::NAME$;" HEARD A NOISE. THE GHOST"VZ380: NOISEd:"APPEARED. ";NAME$;" RAN, BUT TRIPPED"::"AND FELL DOWN SOME STAIRS, LANDING IN A"n:WHERE$;". ";NAME$;" SAW A DOOR, AND"::"RAN TO IT. THE GHOST FLEW IN.T!"::NAME$;" YELLED '";SAY$;"'."z:"SUDDENLY THE GHOST VANISHED. ";NAME$::"STARTED LOOKING FOR THE DOOR. A COLD":"BREEZE WHISTLED IN. ";NAME$;" FELT"::"SOMETHING IN THE DARK AND GRABBED IT."(N313602300: CONTINUE<4:95 MX*@#nj@#_4X018X40:0,38X:0,3838X_4Ci4AA140,38X1:0,3837X4R1100:R4X4K01840:19,K:19,38K4R1100:R4C4K:R1500:R4A21:B17:C19:D19,34280411,2612-:4PZ12000:PZ:::74 ***J4 *** NEW BYET4 ***Z4p4C((1)14)1:C45,355::5,115:5,920:5,113545,1811:22,3511410,19:10,21420,3515:20,3821:15,2135:17,2138!421,3425:21,29:7,824:25,836>315,228:8,1215:15,2212:9,1119t318,2617:18,2214:15,1718:15,1722:14,1626318,2223:20,2322:21,2220:20,2220:20,2318:24,23427,16:18,2227418,2230:31,18:19,2032:33,21:18,2234&41:823,2427+28,22:23,2429?+22,2330:21,2231:10,2132W+20,2211:20,2228g+ZP12:ZPo+PZ+PZ1750:PZ+::33 *** TRY AGAIN ***33::2311,18535,1014:5,101537,1020:21,837,1026+ *** WOW ***+!+*+:2D+PZ039:0,39PZ:PZT+PZ17:PZ}+10,217:21,228:22,239:23,2410+11,22:23,2412:22,2313:21,2214:10,2115+21,2317:21,2321:18,2020:18,2024+10,2124:21,2225:22,2326:3,11:4,12:5,13:6,14A>+10,159:10,1210:10,1113:10,1215mH+10,1514:10,1518:15,1710:15,1713R+21,2510:11,1523\+10,1528:10,1532:29,3110:29,3115f+10,1336:36,15p+6,15:2,10u+PZz+PZ11000:PZ+::+9:"YOU GOT ";S" RIGHT, ";N$".":Hr"TELL YOUR TEACHER HOW YOU DID."St10000^x13501dX'::::" PRESS ANY KEY TO GO ON ";:AN$:::++ *** NEATO ***++ +:PZ120:3:PZ2(PZ2)Ġ13*+10,151:10,1574+>> DRESS.","'S"="6. WHERE IS <> HAT?","'S"l "7. THE SIX <> GO SLOW.","S" "8. WHERE IS <> TOY?","'S" "9. THE <> ARE ON THE GRASS.","S""10. THE <> BALL IS RED.","'S""p:.  "1. WHO FOUND <> BALL?","'S"_  "2. WHERE IS THE <> HOUSE?","'S"  "3. THE THREE <> WILL PLAY." ,"S" "4. THE <> GO VERY FAST.","S" "5. THIS IS <> IN THIS CLASS."l PZ11000:PZ 10:20:"S":PZ12500:PZ :8:"HERE ARE YOUR PROBLEMS." 10000 S0 I110 K0 A$(I),B$(I),C$(I)# K2DUMY0:D AN S OR 'S TO EACH WORD THAT "O u"HAS BRACKETS AROUND IT." v:"DO NOT HIT THE RETURN KEY AFTER YOU"::"TYPE IN YOUR ANSWER!" x10000 6:"EXAMPLE 1:" 10:"THAT IS THE <> PUPPY." PZ11000:PZ 10:18:"4 * LEVEL III, SKILL 157 * TITLE-APOSTROPHESi * TEACHERS-ADAMS,FRALER, STEELE,AND TROUT {( * GRADE-1STd14220i10:"HI! WHAT IS YOUR NAME";:N$:n8:"READ EACH SENTENCE AND DECIDE IF YOU "0 s"SHOULD AD      29,3016:29,3020:28,1937PZ13500:PZ:::P77 *** HOWDY ***#7+7:O715:11,177:11,1710:7,1014714:14,1612:14,1615:13,1413:13,1417713:14,1617:14,1621:18,17:20,17:15,1619712:15,1623:11,1726:24,2517:24,2514711:14,1528:14,1931::14,178:13,1610:15,169:15,1611:14,1712:7,1513AF712]P714,1715:16,13:17,14Z714,1619:14,1623:20,2213:20,2217d714,1725:26,2713:14,1728n714,1630:31,3313:31,3317:14,1934:32,3320:31,19x7PZ13000:PZ:::490 5000"5100!,PPJ06P365500:@5000DJ5200RTTP4000\^5300brt| *TAKE GOLD*~5000G1520057005300D *RESET GOLD*N0:X5,X3Y2:X4,X3Y1pz(7)"TROLL STAY?";D$:E0:E$(D$,1):E$"U"E66E$"D"E6ME$"R"E$"I"E1eE$"L"E$"O"E1oJ0:(E0)(P1)(G1)4500(E6)(A(P)2)JE(E6)(A(P6)2)JE(E1)(A(P51)2)JE(E1)(A(P50)2)JEJ050:X3,Y.G1Ġ0:X5,X2Y2:X4,X3Y14FJP *SET PLAYER * YZ12:X3,Y|xG1Ġ13:X5,X3Y2:X4,Y1 *CONTROL PHASE *(A(P)2)(A(P6)2)(A(P50)2)(A(P51)2)5490&"UP, DOWN, RIGHT (OR IN), LEFT (OR OUT), OR!!!!!!!!"A1500:5:"BY THE WAY...";KA11000:r"CAN YOU LOAN ME A FEW THOUSAND?" A1500: 4110 * PLAYER LOCATION *DP622002400XX3YY3 * RESET PLAYER *ROLL JUST ATE YOU FOR DINNER!"$J" * * * Y O U L O S E ! * * *"Pw"WOULD YOU LIKE TO TRY AGAIN?";B$(B$,1)"N"ĝ:50 * GAME WON*:10"* * * * Y O U W I N * * * * " " YOU ARE VERY RICH!! * EATEN BY TROLL*1I110:(7)::3000;3200KI11000:W::10:10:::"SOME PEOPLE NEVER LEARN!!":"THE SIGN AT THE ENTRANCE TO THE CAVE":"SAID:":"* PLEASE DON'T FEED THE TROLL *":"THE T600 A(T50)2TT1& TP40008 A(T)2TT6B 3800Z * MOVE TROLL IN *uA(T51)2TT1:3730t * MOVE TROLL DOWN *~T303800TP4000A(T6)2TT6 *END TROLL TURN*TP4000300032002 *SET TROLL*! 9:X3,Y' ? * CONTROL TROLL *I 3000S 3100] CTPk C03370u 3400* C(C)4 C63600> 3700H *MOVE TROLL UP*R T73500\ A(T)2TT6f TP4000 * MOVE TROLL OUT * T1390110 DA(A) A(A)0( A(D)12" 2200<, 2400D. 15S1 D402880f6 15:X1,X1Yp; 2890}@ Y,Y1XJ AO  * LOCATE TROLL * DT6 2200 2400 XX3 YY3  *RESET TROLL*& 0:X3,Yv 6X31  # ( * SELECT DOORS *8 2 D(((1)80)7)J < A(D)12610U F A(D)2_ P 2200i Z 2400o * WHICH DOORS ARE OPEN ? * B90110 2600 A(B)D 0:X,Y D40čX,Y1 B * CLOSE DOORS * A t Z492530 ~ ZZ6% Z624303 Z(Z.2)@ Z1X4N Z2X10\ Z3X16j Z4X22x Z5X28 Z6X34 2590 ZD44 ZZ6 Z62540 Z(Z.2) Z2X7  Z3X13 Z4X19  Z5X25  Z12:2390 D25Y18:23902 D31Y24:2390G D36Y36:2390V Y30:2390j D57Y5:2390 D63Y11:2390 D69Y17:2390  D75Y23:2390  D81Y29:2390  Y35 V ` * X COORD OF DOOR : IN D : OUT X * j ZD RS* A1110 A(A)0! - A7368 A(A)1> K A5256V A(A)1c *A(A6)1q 4A(A12)1 >A(A18)1 HA(A24)1 RA(A30)1 \ f  * Y COORD OF DOOR * IN D * OUT. Y* D492280 D13Y6:2390 D19YР15:4,360$ xI6366:1,36I:I< I1376:0,36I:f "5:2,2:2,3:3,3:3,4:4,4:4,5:5,5 @13:32,3435:33,34 5000 5200   *MASTER ROUTINE* 2,2)5İ100 2700 L5300 3300 v2800 1000  *DOOb ***TROLL'S GOLD***7 SOFTSIDE FEB 1980 P 28_ A CHILDREN'S GAME BY GEORGE BLANK APPLE CONV. BY MURRAY SUMMERSA(110) *TROLL'S GOLD *60002G0:P1:T36<P2000Z1000d *DRAW GRID* n:     EASE DON'T FEED THE TROLL";:::" ***"7A12000:=CVZ *SET TROLL* `XX3XX30SGOLD" 2"IF YOU ARE FOOLHARDY ENOUGH TO"Z"DESCEND TO THE LOWEST AND INMOST"}"REACHES OF A CAVE INHABITED""BY A NASTY TROLL, JUST TO""STEAL HIS GOLD...""PRESS RETURN";A$:(7)'10::"*** ";::"PL2:"MATCH THE LETTER!"$B. PRINT FOR THREE LETTER SEQUENCE]8A$"2"X%1X%26430B12:16:L$(X%1);" ^ ";L$(X%1)LV PRINT FOR FOLLOW THE LETTER `A$"3"X%26430jL$(X%1)t6:"WHAT LETTER FOLLOWS THIS ONE11:" THE CORRECT LETTER KEY."B14:"PRESS ANY KEY TO BEGIN."v20:"PRESS ESC TO RETURN TO PROGRAM MENU.":B$(B$)27ė:1104101160X%((9)2003)X%1X%261000 PRINT FOR LETTER MATCHL$(X%)6:1R(B$)27ė:110\410Kf DIRECTIONS FOR FIND THE MISSING LETTER{p5:5:"WELCOME TO FIND THE MISSING LETTER"z10:15:"NAME?":10:22:N$N$""8904:15:"HELLO "N$"10:"FILL IN THE MISSING LETTER BY PUSHING"TTER"&10:15:"NAME?":10:22:N$5 N$""770;U 4:15:"HELLO "N$"*10:"FILL IN THE MISSING LETTER BY PUSHING"411:"THE CORRECT LETTER KEY.">14:"PRESS ANY KEY TO BEGIN."H20:"PRESS ESC TO RETURN TO PROGRAM MENU.":B$ MISSING LETTER BY PUSHING "?11:"THE CORRECT LETTER KEY."b14:"PRESS ANY KEY TO BEGIN."20:"PRESS ESC TO RETURN TO PROGRAM MENU.":B$(B$)27ė:110410 DIRECTIONS FOR FOLLOW THE LETTER5:5:"WELCOME TO FOLLOW THE LE3000 XbIICl11:10:"THANKS FOR PLAYING!":3000::110nv DIRECTIONS FOR THREE LETTER SEQUENCE5:5:"WELCOME TO THREE LETTER SEQUENCE"10:15:"NAME?":10:22:N$N$""6504:15:"HELLO "N$"10:"FILL IN THEA$"3"İ1110"A$"4"İ1160> B$ = STUDENT RESPONSEh8:14:"LETTER?":17:14:B$:18:B$}(B$)27ė:110&18:140 CHECK STUDENT RESPONSE:L$(X%)B$ĺ"NO, ";N$;". TRY AGAIN.":3000::12:18:480DB$L$(X%)İ1220NY TO BEGIN."A|20:" PRESS ESC TO RETURN TO PROGRAM MENU.":B$V(B$)27ė:110p LOOP TO GET LETTERS}II150 SELECTS RANDOM NUMBER/LETTER1000 PRINT FOR LETTERS12:18A$"1"İ1030A$"2"İ1070DIRECTIONS FOR LETTER MATCH@,5:8:"WELCOME TO LETTER MATCH"a610:15:"NAME?":10:22:N$p@N$""310vJT4:15:"HELLO "N$"^10:" MATCH THE LETTER ON THE SCREEN BY"h11:" PUSHING THE CORRECT LETTER KEY. PRESS" r12:" ANY KE6:9:"4. FIND THE MISSING LETTER"8 18:9:"5. QUIT"U 20:5:"CHOOSE ONE - ";] A$c t A$"1"ī300 A$"2"ī640 A$"3"ī760 A$"4"ī880 A$"5"ĺ"SEE YOU LATER!":"RUN MENU"  CHECK ON MENU SELECTION 100" 352 8: <L$(26)$ FI126/ PL$(I)6 ZII d PROGRAM MENUg n5:13:"ALPHABET ANTICS" x8:5:"CHOOSE ONE OF THE FOLLOWING:" 10:9:"1. LETTER MATCH" 12:9:"2. THREE LETTER SEQUENCE" 14:9:"3. FOLLOW THE LETTER"" 1OR EDUCATIONAL USE &*3 *MAY NOT BE SOLD.COPY-*Q ! *RIGHT 1982 CUE, INC. *o " ***********************u (} -60 224:"PRESS TO GO ON, TO END "; 4IN$:(IN$)152 6(IN$)(27)ė:"SEE YOU LATER!!!":: 7(IN$)1 *%  * 333 MAIN STREET *C  * REDWOOD CITY *a  * CA 94063 *  * (415) 363-5472 *  * *  * *  ***********************  *PROGRAM MAY BE COPIED*  *F* *5  * SAN MATEO COUNTY *S  * OFFICE OF EDUCATION *q  * & *  * COMPUTER-USING *  * EDUCATORS *  * *  * SOFTSWAP *  * U ALPHABET ANTICS 1/4/82, { THIS PROGRAM IS DESIGNED TO TEACH AND REINFORCE ALPHABET SKILLS.   APPLE II W/APPLESOFT  H. BURKE   ***********************           ! ! ! J! A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,ZT! 50: 50:";:CN$:N8 13,241 13,187% 2,19/ 3,209 4,21C  5,22M  6,23W  7,24e " 13,2412s , 17,2313 6 17,2324 @ 20,2319 J 13,2417 T 19,2423:13,2425 ^ 13,2431 h 25,3118 r 13,2436 | 33,3913 I12000:IHIZ!":  4( 10:19::"F A N T A S T I C !"::2 T< 17:19::"SUPER!":ZF sP NAME REINFORCEMENTyZ d J124n N$;N$;N$;N$;N$;N$;N$;x K140:K J  GRAPHICS FOR RIGHT   12 1,713 1,712L 11,1917V 3$` 21,24102j 21,2420@t 11,1920N~ 11,1925V 11d 28,3110o 32,11z 32,19 28,3120 10,2028 12,1833 1 10,1837 37,20 I12000:I    14:19::"WHAT A W*8:19:N$;" IS A COMPUTER WHIZ!"0S9:19:N$;" IS SO-O-O SMART!"Yr GRAPHICS FOR GOOD!x~75,8105,8207,915 11,129 15,199 11,194$ 2. 13,16108 13,1620B 11,191,2814,28I1200:I)13,27426,27DI1200:IO 27,26Z12,26j I1200:Iu*11,25428,25>I1200:IHI12000:IR\fp11:19:"RIGHT L E T T E R !"z12:19:"NICE WORK, ";N$;"!"8,15822,2982(&11,12126010,1212D:10,1211RD10,1025`N10,1126nX11,1125|b12,1126l12,1125v522,151818,20221I1200:I16,233024,2915,29I1200:I25J#T14:19::"YOU GOT IT!":)^Dh14:19:"YOU DID IT!"Jrb|16:19:"PERFECT!"h17:19::"SMARTY!": GRAPHICS FOR FACE11I1390,39I1,393939,03939,1O8RAPHICS FOR COLORSPZ*dI1391nI=x1,391DIPI139WIc1,39IjIyM3901M39,1MMI3911I39,1III139S1100:S0"1,39I,I6@310,1330,1350,1620,1640,1660,1680,1700,2160,2180,2200,2220,2240,2580,2600,2620,2640,2710^19:12:"GOOD JOB, ";N$;"!" 15:19:"TERRIFIC!"11:19:"GR-R-R-EAT WORK!!!"(212:19::"GOOD WORK, ";N$;".":<F G?"~0 PRINT FOR FIND THE MISSING LETTEREA$"4"X%1430Q16:18_L$(X%1)6:"WHAT LETTER COMES BEFORE THIS ONE?" RANDOM NUMBER GENERATER TO CHOOSE REINFORCERX%(9)2004X%1X%201230XX%1270,1290,1O BAD, ";:495/"YOU CAN DO BETTER, ";:495PZ((1)31):Z481,482,483}"BETTER PUT ON YOUR THINKING CAP!":499"PLEASE TRY HARDER ,";:495"LET'S GET THE SCORE UP!":499A$:A$;"'S SCORE IS ";S;" OUT OF ";T#"OK, ";:4954"YOU'RE PRETTY GOOD AT THIS, ";:495UZ((1)31):Z461,462,463l"ALRIGHT, ";:495"LOOKING GOOD BUT CAN LOOK BETTER!":499"NOT BAD AT ALL, ";:495Z((1)31):Z471,472,473"KEEP GOING, ";:495"NOT TOZ1440,450,460,470,480=Z((1)31):Z441,442,443Y:"WOW!";::" ";:495"*********SUPER!********* ";:495A$;", YOU ARE A WHIZ!":499Z((1)31):Z451,452,453"YOU'RE GOING STRONG, ";:495 "KEEP UP THE GOOD WORS1:499!D$"AN"SS1:400*3806 SCORE@TT1MA1A0gZ((S1000.5)T)10"***************************************":Z92Z11:431Z92Z84Z12:431Z84Z76Z13:431Z76Z68Z14:431Z15:"";D$!@D$"A"D$"AN"310AJ7:TA1:" ";D$;" ";:14:VT COMPARE ANSWERh^C$(N$(Y),1)hC$"A"C$"E"C$"I"C$"O"C$"U"390rD$"A"SS1:400|:"OOPS!":AA1I11000:IA1600N(J)Y:KK1:JJ1:127 S;" ";N$(Y);"."TA13:290C" THEY LOST ";B$;" ";N$(Y);"."RTA15:290x" WE BOUGHT ";B$;" ";N$(Y);"."TA15":::"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX":, ANSWER ROUTINE613::"A";::" OR ";::"AN";::"?";:958;" ";N$(Y);"."TA16:290B" HE FOUND ";B$;" ";N$(Y);"."QTA14:290v" THERE IS ";B$;" ";N$(Y);"."TA14:290" HERE IS ";B$;" ";N$(Y);"."TA13:290" HE HAD ";B$;" ";N$(Y);"."TA12:290" SHE HAD ";B$Y1xZ((1)91)M:4::"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX":U:Z140,150,160,170,180,190,200,210,220,230" I SAW ";B$;" ";N$(Y);"."TA11:290" IT WAS ";B$;" ";N$(Y);"."TA12:290" SHE CAUGHT ";B$ DECIDE IF"GR:"A";::" OR ";::"AN";::" BELONGS IN THE BLANK."}U::"A";::" GOES BEFORE A CONSONANT: A TREE."W:"AN";::" GOES BEFORE A VOWEL: AN OCEAN, AN EAR."XI110::IZ800d PRINTS SENTENCESnYARE YOU?"::- <20:" ->";:868:4:"";A$; ?A$""60I @(A$)60Y AA$(A$,10) F:2:"AAH! WELL, ";A$;", AS I WAS" K"SAYING, I WILL PRINT 10 SENTENCES. EACH ONE WILL HAVE A BLANK LIKE" L"THIS: ";B$ P:"READ THE SENTENCE AND:I, ':6:"XXXXXXXXXXXXXXXXXXXXXXXXXXXX"b (:7:13:"USING ";::"A";::" OR ";::"AN";:l ,12:t -13 /B$(95)(95)(95) 2"I WILL PRINT OUT FOR YOU, ";::" ";::" . . ." 5 7::::"OOPS!";::" I FORGOT TO ASK--WHO BE COPIED*)  *FOR EDUCATIONAL USE &*G *MAY NOT BE SOLD.COPY-*e ! *RIGHT 1981 CUE,INC * " *********************** #N$(20),N(20):I010:N$(I):I $:::::Y1 %:6:"XXXXXXXXXXXXXXXXXXXXXXXXXXXX" &I15:6:"X";:33:"X" * *9  * 333 MAIN STREET *W  * REDWOOD CITY *u  * CA 94063 *  *(415)364-5600 EX 4401*  * *  * *  ***********************  *PROGRAM MAY*************+ * *I  * SAN MATEO COUNTY *g  * OFFICE OF EDUCATION *  * *  * COMPUTER-USING *  * EDUCATORS *  * *  * SOFTSWAP *  A & AN NOV 1979& o STUDENT CHOOSES 'A' OR 'AN' TO COMPLETE RANDOM SENTENCES.z   APPLESOFT 8K  GLENN FISHER 1517 HOLLY ST. BERKELEY, CA. **********        13800 "$ 10 NOUNS FOR DATA~ ELEPHANT,MOUSE,COMPUTER,HOUSE,UMBRELLA,ANTLER,ICICLE,OTTER,CAR,BICYCLE,STEREO,DESKZ((1)31):Z481,482,483O,DESKZ((1)31):Z481,482,483OUSE, A CAR"H"YOU USE ";::"AN";::" BEFORE A WORD STARTING WITH"o"A VOWEL, THAT IS A,E,I,O, OR U.""EXAMPLES: AN ANT, AN ORANGE."K0800::A0:T10550100 21:"PLEASE PRESS TO CONTINUE.==>";:Z$::(Z$)PROBLEM, ":"PLEASE PRESS ";Z$::Z$13574??Z$HD120tX REPEAT INSTRUCTIONS AFTER SECOND MISS~YTT1b:2::A$;", YOU SEEM TO HAVE FORGOTTEN!"l"YOU USE ";::"A";::" BEFORE A WORD STARTING WITH" v"A CONSONANT: A HS TO CONTINUE...";:Z$:(Z$)13551O(:2::"THANK YOU, ";A$;"."{)"IS THERE ANYONE ELSE WAITING TO PLAY"*"(Y FOR YES, N FOR NO)=>";+Z$:Z$"Y"36,Z$"N"555-.:/0YN(Y):JJ17>21:"FOR THE NEXT R ";((S1000.5)T)10;" PERCENT."+A0:T10550!21:"FOR THE NEXT BRAIN-BOUNCING PROBLEM, PRESS THE KEY":"OR PRESS KEY TO END ==>";"Z$::#(Z$)27552$(Z$)13100%545&T0:K0:S0.'23:6:"PRES,SAP,SAT,SAW,SAY,SEE,SET,SEW,SEX,SIN,SIP,SIR,SIT,SIX,SOB,SOD,SON,SOP,SOT,SOW,SOX,SOY,SUE,SUM8 TAD,TAG,TAN,TAP,TAR,TAX,TEE,TEN,TIC,TIE,TIN,TIP,TIT,TOE,TOG,TON,TOP,TOT,TOW,TOY,TUB,TUGB UGH,USEL VAN,VAT,VEX,VET,VIE,V WAD,WAG,WAR,WAS,WAX,WAYDE,OAF,OLD,OHM,ONE,OAR,OAT,OUT,OWE PAD,PAL,PAN,PAP,PAR,PAT,PAY,PEG,PEN,PEP,PET,PEW,PIE,PIG,PIN,PIT,POD,POP,POT,POW,POX,PUB,PUN,PUP,PUT$ RAG,RAM,RAN,RAP,RAT,RAW,RAY,RED,RIB,RID,RIG,RIM,RIP,ROB,ROD,ROE,ROT,ROW,RUB,RUE,RUG,RUM,RUN,RUT\. SAD,SAG LAB,LAD,LAG,LAP,LAW,LAX,LAY,LED,LEG,LET,LID,LIE,LIP,LIT,LOB,LOG,LOP,LOT,LOW,LOX,LUG,LYE MAD,MAN,MAP,MAR,MAT,MAY,MEN,MET,MEW,MID,MIT,MIX,MOB,MOD,MOO,MOP,MOW,MUD,MUG NAB,NAG,NAP,NAY,NET,NEW,NEY,NIP,NIT,NIX,NOD,NOR,NOT,NOW,NUB,NUN,NUT" ORB,O,GEM,GET,GIB,GIG,GIN,GYM,GYP,GOB,GOD,GOO,GOT,GUM,GUN,GUT  HAD,HAG,HAM,HAS,HAT,HAW,HAY,HEN,HEW,HEX,HEY,HID,HIM,HIP,HIS,HIT,HOB,HOE,HOG,HOP,HOT,HOW ICE,IRE JET,JOT,JAM,JAB,JIB,JOB,JAR,JAY,JIG,JOG,JOY,JUG KEY,KEG,KEN,KIN,KID,KITXb DAB,DAD,DAM,DAY,DEN,DEW,DIB,DID,DIE,DIG,DIM,DIN,DIP,DOE,DOG,DON,DOT,DUE,DUG,DUN,DUO,DYE,DRY| EEL,EGO,EGG,ERE,EAT FAD,FAN,FAR,FAT,FRY,FLY,FEE,FEW,FEZ,FIB,FIE,FIG,FIN,FIR,FIT,FIX,FOB,FOE,FOG,FOP,FOR,FOX,FUR: GAB,GAD,GAG,GAP,GAS,GAY,GEE ADD,ARK,ART,ASK,ANT,AIM,ALL,APT,ACT,ATE,ALE,AXE BAN,BET,BIT,BAT,BUT,BAD,BED,BID,BEE,BOW,BUM,BUN,BAR,BAG,BAH,BAY,BEG,BIB,BIN,BOG,BOY,BOO,BOP,BOX,BUD,BUG,BUY,BUS CAN,CAB,CAT,CAD,CAM,CAP,CAR,COB,COD,COG,CON,COP,COT,COW,CUB,CUD,CUE,CUP,CUT,CRY .",HM10ĺ7)"OH, THAT WAS A HARD WORD!"2R[\"WOULD YOU LIKE TO PLAY AGAIN? ";B$sf(B$,1)"Y"ė:300p"THANKS FOR PLAYING WITH ME. 'BYE."z:H1B$" "(B$,2)H2B$(B$,1)" "(B$,1)H3B$(B$,2)" "2"1"LL1:" FERMI";J(J13FC$(J)"2"L1:" PICO";MJc L0ĺ" BAGELS";k: L3ĺ"YOUR LETTERS? "::520*"THAT TOOK YOU ONLY ";M;" GUESSES!"4M6ĺ12)"THAT WAS SUPER!!">M5M10ĺ10)"THAT WAS PRETTY GOOD" ";B$;0C$(J)B$:J%DMM1FX CHECK LETTERS AGAINST WORDP]B$A$[vH13C$(H)(B$,H,1)C$(H)"1":895HJ13H13C$(J)(B$,H,1)C$(J)"2":895HJ PRINT RESULTSL0J13C$(J)NJI:L1:380& rK(J)0K(J)N:JI- |J8 J1N@ A$G JM U M0r  GET THE PLAYER'S GUESS "WHAT ARE YOUR THREE LETTERS? ":: J13 B$ B$(27)ī880 B$(8)X(0):(X1):JJ1 B$"A"B$"Z"ī530&A$ (A$,1)"Y"İ20006 :20:15)"HERE WE GO:"Y FIND NUMBER OF WORDS ON FILEa I0i A$ A$"0"II1:220 K(250),C$(3)  , PICK A WORD 6N((1)(I1)) @N0N1 JNI1NI TL0 ^J1250 hK(J) *#  ***********************A  *PROGRAM MAY BE COPIED*_  *FOR EDUCATIONAL USE &*} *MAY NOT BE SOLD.COPY-* ! *RIGHT 1983 CUE, INC. * " *********************** 13)"ALPHABAGELS":: "WOULD YOU LIKE INSTRUCTIONS? "; *3  * SOFTSWAP *Q  * *o  * 333 MAIN STREET *  * REDWOOD CITY *  * CA 94063 *  * *  * (415)363-5472 *  * ESOFT 16K% DONATED TO SOFTSWAPC ***********************a * *  * SAN MATEO COUNTY *  * OFFICE OF EDUCATION *  * & *  * COMPUTER-USING *  * EDUCATORS *  *  ALPHABAGELSS USER TRIES TO GUESSp THREE LETTER WORD.{  WRITTEN BY HANNELORE S MADDOX 1121 BERNARDO AVE SUNNYVALE, CA 94087 APPLE II W/APPL          SD"@:"PROPER NAMES ARE NOT USED, AND ALL WORDSARE ENGLISH.":"IF YOU WISH TO QUIT BEFORE YOU HAVE GUESSED THE WORD, PRESS ."::14)"GOOD LUCK!!!":::::::23:"PRESS RETURN TO CONTINUE";A$HE CORRECT LETTER IN THE CORRECT PLACE"y"AND THAT ONE LETTER (THE 'N') IS THE CORRECT LETTER IN THE WRONG PLACE."::"PRESS RETURN TO CONTINUE";A$:"THE COMPUTER CAN CHOOSE WORDS THAT HAVE THE SAME LETTER TWICE, SUCH AS:":15)"DA"PRESS RETURN TO CONTINUE";A$W>::"FOR INSTANCE, IF THE COMPUTER PICKS THE WORD:"hH:15)"SON"R:"AND YOUR GUESS IS:"\:13)"N O T"f:"THE COMPUTER WILL SAY"p:7)"FERMI PICO"'z:"TO TELL YOU THAT ONE LETTER (THE 'O') IST COMPUTER WILL SAY"% :7)"FERMI":"IF YOU HAVE THE CORRECT LETTER IN THE WRONG PLACE OF THE COMPUTER'S WORD, THE COMPUTER WILL SAY" :7)"PICO"*:"IF ALL YOUR LETTERS ARE WRONG, THE COMPUTER WILL SAY"4:7)"BAGELS"9::R TASK TO GUESS THE WORD."L:"THE COMPUTER WILL HELP YOU BY GIVING YOU"{"CLUES FOR EACH THREE LETTERS YOU GUESS."(23):"PRESS RETURN TO CONTINUE";A$:"IF YOU HAVE THE CORRECT LETTER IN THE CORRECT PLACE OF THE COMPUTER'S WORD, THE,WEB,WED,WEE,WET,WIG,WIN,WIT,WOE,WON,WOO,WOWn` YAK,YAP,YAW,YEN,YEP,YET,YEW,YES,YIP,YON,YOU,YUP,YUK,YUM,YAMj ZAP,ZEN,ZIG,ZIP,ZAG,ZIT,"0" INSTRUCTIONS:"IN THIS GAME THE COMPUTER WILL THINK OF A THREE-LETTER WORD.":"IT WILL BE YOUH.,SCHOOL BUSES --- AT ALL RAILROAD CROSSINGS.,GRASSHOPPERS --- HIGHER THAN FROGS.p WE --- DANDELIONS IN OUR YARD.,IN THE SPRING THE GRASS --- GREEN.,BILL --- CARS.,MY BIRD --- TO GET OUT OF ITS CAGE.;z PLEASE --- BEFORE YOU ENTER.,WE ---Y.,BARB --- GOOD GRADES IN SCHOOL.,MOM --- GROCERIES ON THURSDAYS.\ TOM --- THE LAKE FROM HIS ROON.,THE TWINS --- FOUR LEAF CLOVERS IN THEIR YARD., PAUL AND JIM --- THEIR HOMEWORK RIGHT AFTER SCHOOL.Yf THE BOXERS --- THREE TIMES A MONTIGHT1, :10)"THAT'S RIGHT!":X1800:R*SPECIAL99VERB$(I)"*"VERB$(I)q4TRIES0:SPECIAL0:MISSED0z>410HI --- SPELLING WITH MY FRIENDS., THE WIND --- HIS HAT., SHE --- ICE CREAM BEFORE GOING TO BED.BR MAGGIE --- A MILE EVERY DALAR IN PAST !":X11500::TRIESTRIES1:640hTRIESTRIES1::10)"NO. TRY AGAIN.":X11000::64021:13:958:23:10)"THIS IS THE ANSWER!"21:13:150QQ1ĺPV$(I)QQ1ĺVERB$(I) X11500::255:640TRIES2RIGHTR(VERB$(I),(VERB$(I))1):SPECIAL99CANSWER$VERB$(I)QQ1790`ANSWER$PV$(I)QQ1790ANSWER$PV$(I)QQ1İ1600:640ANSWER$VERB$(I)QQ1İ1610:640TRIES2İ1110TRIES2740-QQ1SPECIAL99ĺ:5)"THIS VERB IS IRREGUENT TENSE "::570.011::" PAST TENSE ":N:QQ1Ģ13:PRESENT$(I):590`D13:PAST$(I)vN19:"TYPE THE ";|XbQQ1ĺ" PAST ";lQQ1ĺ" PRESENT ";v:" TENSE VERB:"21:13:958:"";ANSWER$#(VERB$(I),1)"*"VERB$(I)8:"POINTS = ";:RIGHT5+QQ(2(1))1QQQ1Ģ5::" PAST TENSE "::490o5::" PRESENT TENSE ":QQ1DD$PAST$(I):1620:QQ1510DD$PRESENT$(I):16207:FF$;QQ1İ1690:540PV$(I);LL$&QQ1Ģ11::" PRES-- GOOD LUCK!!"$^ RETURN WAITah23:"PRESS ";::"--RETURN--";::" TO CONTINUE ":958or16368,0|P(16384):P14138016368,0COUNT0COUNTCOUNT1:COUNT201260D0:I(33(1))11180:D14202:2SE, YOU MUST ANSWER IN PAST TENSE."i@11:"IF IT IS IN PAST TENSE, YOU MUST ANSWER IN PRESENT TENSE."J14:"YOU GET 2 CHANCES TO TYPE IN THE VERB.":"AFTER 3 MISTAKES THE CORRECT ANSWER WILLAPPEAR."T18:"YOU GET 5 POINTS FOR EACH RIGHT ANSWER MV$(33)% K133:PRESENT$(K):= K133:PAST$(K):U K133:VERB$(K):k K133:PV$(K):~  INSTRUCTIONS "2:"*** INSTRUCTIONS ***" ,5:"YOU WILL SEE TWO SENTENCES."$67:"IF THE VERB IN THE FIRST SENTENCE IS IN PRESENT TENARY SCHOOL" x1A "DANVILLE COMMUNITY SCHOOL DISTRICT #118"I 11c "DANVILLE, ILLINOIS"o 22:14 "PRESS ANY KEY" 23:20:A$ : PAST TENSE FILL IN SENTENCE PRESENT$(33),PAST$(33),VERB$(33),NUMBER(33) PV$(33)   *FOR EDUCATIONAL USE &*; *MAY NOT BE SOLD.COPY-*Y ! *RIGHT 1983 CUE, INC. *w " *********************** 2: <6:4 F"*** PAST AND PRESENT TENSE ***" P15:7 Z"TITLE VII BILINGUAL PROGRAM" d7 n"NORTHEAST ELEMENT *-  * 333 MAIN STREET *K  * REDWOOD CITY *i  * CA 94063 *  * *  * (415)363-5472 *  * *  ***********************  *PROGRAM MAY BE COPIED** * *=  * SAN MATEO COUNTY *[  * OFFICE OF EDUCATION *y  * & *  * COMPUTER-USING *  * EDUCATORS *  * *  * SOFTSWAP *  *  PAST AND PRESENT( G PAST AND PRESENT TENSESf OF VERBS GIVEN OR TO BE ENTERED IN SENTENCES NORTHEAST ELEMENTARY SCHOOL, IV-C  APPLE II W/APPLESOFT 32K **********************          :1710%VERB$(I); %:%X1Y:3:MV$(X):::0:II1(DD$)=$^ZZ0(DD$,II,1)"-"AA$AA$(DD$,II,1)X$h(DD$,II,1)"-"ZZII`$rIIs$|FF$AA$:AA$""$LL$(DD$,(DD$)ZZ)$$(VERB$(I),1)"*"ĺ(VERB$(I),(VERB$(I))1);:1710$VERB$(I);$$X1Y:3:MV$(X)::X):A$ #"A$(13)RIGHT0:4002#,A$(27)ĺ:<#11520B#6#@23:2:150:"THAT IS PRESENT TENSE; GIVE THE PAST !":X11500::255:TRIESTRIES1:#J23:2:150:"THAT IS PAST TENSE; GIVE THE PRESENT !":X11500::255:TRIESTRIES1:$TZZ0:"PRETTY GOOD ...."::"YOU MISSED ONLY ONE VERB !!"m""NOT BAD ...."::"YOU MISSED ONLY ";MV;" VERBS."w"1520""HMMM...."::"YOU NEED SOME MORE WORK ON THIS.""16:958":""PRESS TO CONTINUE, OR TO"""QUIT."#X1MV:3:MV$(X)::!P23V!Z"PRESS ";::"--RETURN--";::" TO CONTINUE ":958d!d16368,0!nP(16384):P1411390!x16368,0!!1470!!5!"EXCELLENT WORK.... A PERFECT SCORE !!"!1520!MV415106"MV11490 X1COUNT1) NUMBER(X)I12401 D18 X> b  TO PRINT OUT MISSED ITEMSh w MV01430 "THESE ARE THE VERBS YOU MISSED ....": MV91350 X18:3:MV$(X):: (3 2X9MV:15:MV$(X):: <1430!FES,MOVE,CLEANS,SAYS,CLOSE,YELLS,PLAYS,HITS,OPENS,CHANGEWV TO STORE MISSED VERBSj`MISSED11170vjMVMV1tQQ1MV$(MV)PV$(I):1160~MV$(MV)VERB$(I)MISSED1 TO CHECK FOR DUPLICATESNUMBER(COUNT)I COUNT1125*WAS,*WROTE,*SLID,VISITEDc$ *DROVE,MOVED,CLEANED,*SAID,CLOSED,YELLED,PLAYED,*HIT,OPENED,CHANGEDy.STUDY,BLOWS,EATS8 RUNS,MAKES,BUYSB SEES,FIND,DO,FIGHT,STOP,JUMP,HAVE,TURNS,FIXES,TRIES,KNOCK,HEAR,LEARNS,IS,WRITES,SLIDE,VISITS7L DRIVALL LAST SUMMER.p THE BASEBALL --- THE BACKSTOP.,JOHN --- THE PACKAGE.,BO --- HIS CLOTHES WHEN HE GOT HOME. STUDIED,*BLEW,*ATE *RAN,*MADE,*BOUGHT *SAW,*FOUND,*DID,*FOUGHT,STOPPED,JUMPED,*HAD,TURNED,FIXED,TRIED,KNOCKED,*HEARD,LEARNED, INTO HOME BASE.,THE FIFTH GRADERS --- SPRINGFIELD.,MARTY --- TO CHAMPAIGN.,THE JONES FAMILY --- TO ANOTHER HOUSE.,MARK --- THE ATTIC. JILL --- GOODBYE TO HER FRIENDS.,KIM --- HER BOOK CAREFULLY.,THE CROWD --- FOR THEIR FAVORITE TEAM ,BEV --- SOFTBRONG WAY AT THE CORNER.,TOM --- HIS BICYCLE.,SAM --- TO TIE HIS SHOES.,THE KITTY --- OVER A GLASS OF MILK. MAX --- NOISES IN THE BASEMENT.,ERIC --- THE TIMES TABLES QUICKLY.,MARY --- SICK YESTERDAY.,JANE --- A LETTER TO HER GRANDMA. WILLIE ---NDA --- A SHOOTING STAR.,KAREN --- A DOLLAR IN HER POCKET.,BILL --- HIS CHORES THIS MORNING. THE MOTHER RACCOON --- FOR HER BABIES.,THE CAR --- IN FRONT OF THE BANK.,ALL THE DOGS --- OVER THE CREEK.,THE WILSONS --- NO TIME TO EAT.j DAD --- THE WLL.y TODAY I --- SPELLING WITH MY FRIENDS.,THIS MORNING THE WIND --- HIS HAT.,SHE --- ICE CREAM BEFORE GOING TO BED. FRED --- TRACK WHEN HE WAS IN HIGH SCHOOL.,MIKE --- A MISTAKE ON HIS SCIENCE PAPER.,MISSY --- THREE PIECES OF GUM.\ LIIS ROOM ON SATURDAYS.,OUR CLASS --- THE PLEDGE OF ALLEGIANCE EVERY DAY. --- THE DOOR WHEN YOU LEAVE.,JACK'S BABY BROTHER --- A LOT!,JUDY --- IN HER BACKYARD. OSCAR --- THE BALL HARD.,THE DOOR --- AUTOMATICALLY.,THE LEAVES --- COLOR IN THE FA CHURCH BELLS ON SUNDAY.,THE CLASS --- ABOUT THE CIVIL WAR. CHARLES --- TALL!,SUE --- FOR THE NEWSPAPER.,PLEASE --- YOUR CHAIR OVER HERE.,CARLOS --- HIS AUNT EVERY SUNDAY.H MY UNCLE --- A TRUCK.,LET'S --- THE BOOKS TO THE OTHER SHELF.,JOE --- H LINE!:: 6000 DETERMINES THE=:: THE NUMBER OF SETS.X:: THE NUMBERS BEFOREr:: THE WORDS SET THE:: NUMBER OF POSSIBLE:: RIGHT ANSWERS.::::::::::::::::::::::::::::::::::::::::::::","ACQUAINTANCE","BUDDY","AMIGO","INTIMATE","COMRADE","COMPANION" K\gf::::::::::::::::::::::p:: WORDS MAY EASILY BEz:: CHANGED BY REVISING:: THE DATA STATEMENTS:: STARTING AT:: LINE 6000.:::: THE NUMBER INHOLE","HOLLOW","WELL","GULF","CHASM","ABYSS" k4 7,"PUSH","SHOVE","THRUST","PROD","POKE","BUTT","PRESS"> 6,"RED","ROUGE","SCARLET","CRIMSON","FLAME","RUBY"H 7,"PAIN","SUFFERING","HURT","MISERY","DISTRESS","ACHE","DISCOMFORT"ER 7 ,"FRIENDDEL","PATTERN","PROTOTYPE","STANDARD","CRITERION"j  5,"SMALL","INSIGNIFICANT","LITTLE","TINY","MINUTE" 6,"STOP","HALT","STAY","ARREST","CHECK","STANDSTILL"   6,"HOUSE","DWELLING","RESIDENCE","DOMICILE","LODGING","HABITATION".* 7,"PIT"," TO CONTINUE, TO":"QUIT.">G$:G$(27)720G100h:10:12:"*** THE END ***"}(4);"RUN MENU" 11 5,"FIRST","START","BEGINNING","ONSET","INITIAL"  5 ,"SIMILAR","ALIKE","SAME","LIKE","RESEMBLING"1 5,"MO DRILL COMPLETED.":610b$l8]v"VERY GOOD! YOUR SCORE WAS ";((RRXX)RR100);"%"c{"CORRECT ON YOUR FIRST TRY."8X12500:"NOW WHY DON'T YOU TRY IT AGAIN AND SEE"::"HOW MUCH BETTER YOU CAN DO."21("PRESS 1):20(Z$)2Z$'U1800:UN23:7:""W270m&G1((1)L(0)1)s0:"**** A SYNONYM OF ";W$(G);" IS ";W$(L(G1));".":DL(G1)L(L(0)):L(0)L(0)1:430NL(G1)L(L(0)):L(0)L(0)1:430X:"SYNONYM(0)):L(0)N21:" WHAT IS A SYNONYM OF ";W$(G);"? ";:A$A$"HELP"550K1N2GK480A$W$(K)500KXXXX1::" TRY AGAIN."::430:Z$R$((1)7NONYM."/23:"PRESS TO CONTINUE.";?RRRR1:Q$ET":CC1:Na,CN600t6N1((1)N1)@R(N1)1310JR(N1)1TI1N1^N2hJ1N2rW$(J)|JIJ1N2:L(J)J:JL(0)N2:G1:L(G)L(LF A WORD MEANS ANOTHER WORD IN THE ENGLISH LANGUAGE WHICH HAS THE SAME OR VERY NEARLY THE SAME MEANING."q " I CHOOSE A WORD -- YOU TYPE A SYNONYM." "IF YOU CAN'T THINK OF A SYNONYM, TYPE THE WORD 'HELP' AND I WILL TELL YOU A SY S Y N O N Y M" ::> R$(7),W$(10),L(30),R(30){ R$(1)"RIGHT":R$(2)"CORRECT":R$(3)"FINE":R$(4)"GOOD!" R$(5)"RIGHT ON!" R$(6)"YOU GOT IT ON THE BUTTON!" R$(7)"AN EXCELLENT ANSWER!" RR0:XX0 C0k "A SYNONYM O* (415)363-5472 *5  * *S  ***********************q  *PROGRAM MAY BE COPIED*  *FOR EDUCATIONAL USE &* *MAY NOT BE SOLD.COPY-* ! *RIGHT 1983 CUE, INC. * " *********************** d n x" SING *'  * EDUCATORS *E  * *c  * SOFTSWAP *  * *  * 333 MAIN STREET *  * REDWOOD CITY *  * CA 94063 *  * *  :  MIKE CONWAY6 WEST MARIN SCHOOLU APPLE II W/APPLESOFT 8Ks *********************** * *  * SAN MATEO COUNTY *  * OFFICE OF EDUCATION *  * & *  * COMPUTER-U::::::::::::::::::::::::? E A S Y S Y N O N Y My PRACTICE GUESSING THE COMPUTERS SYSNONYM FOR A GIVEN WORD. MODIFIED FROM 'BASIC COMPUTER GAMES' BY DAVID AHL (CREATIVE  COMPUTING) BY     "IT TOOK YOU ";COUNT;" SECONDS." AE TO START TIMER **( (C$)X128205B C$:(C$)X128200P C$;" ";^ 16368,0k WX1Y C(16384):COUNTCOUNT.01:CW220 (C);" "; 16368,0 COUNTCOUNT2.2 COUNT((10COUNT5)10) "::: ,::$;" TO ";B$+ i:"IN ALPHABETICAL ORDER."V n::"*** TIMING STARTS WHEN YOU TYPE"x x:"THE BEGINNING LETTER ***" ::"*** PRESS RETURN WHEN READY ***" C$:C$(13)140 X(A$):Y(B$) XX128:YY128 C$ ** ROUTINLETTER AND RETURN. 7# <A$,B$O >(A$)64(A$)91(B$)64(B$)9170l A"LETTERS ONLY, PLEASE!"t B60 F(A$)(B$)90 P"LETTERS MUST BE IN ALPHABET ORDER.":"(SINGLE LETTER CASE IS TRIVIAL!)":60 Z d"TYPE THE LETTERS FROM ";A"7 "****** REACTION TIME TEST PROGRAM ******"?""o"* FOR TYPING A PORTION OF THE ALPHABET *"#:"WRITTEN BY ITTRU PROJECT, SARASOTA, FL":"COPYRIGHT, STATE OF FLORIDA, 1987."::(:"TYPE BEGINNING LETTER, COMMA, ENDING" 2:"  ."2A4ĺ"I'M GLAD TO HEAR THAT. LET'S PLAY."8 IT":5:"3) FINE"G5:"4) OK":5:"5) NOT SO GOOD":5:"6) TERRIBLE"b6:14:A$:A$:A(A$)hA6ĺ"THAT'S TOO BAD. YOU PROBABLY DON'T WANT TO PLAY WITH ME TODAY. GOOD-BYE.":A3ĺ"I'M SORRY TO HEAR THAT. PERHAPS I CAN CHEER YOU UP~34,4:::"HI. I CAN SPELL MY NAME ";::"A-P-P-L-E":aN$"":::"WHAT IS YOUR NAME? ";:A$:A$(13)ĺA$;:N$N$A$:1170:I11000::"WELL ";N$;", I'M FEELING GREAT TODAY.""HOW ARE YOU? ":5:"1) SUPER":5:"2) GREAF","KEEP","KIND","LAUGH"j "LIGHT","LONG","MUCH","MYSELF","NEVER","ONLY","OWN","PICK","SEVEN","SHALL","SHOW","SIX","SMALL","START","TEN","TODAY","TOGETHER","TRY","WARM"t:I039:"=";:w2:12::"SPELLING PRACTICE":y3:I039:"=";:9EP","TELL","THEIR","THESE","THOSE","UPON","US","USE","VERY","WASH","WHICH","WHY","WISH","WORK","WOULD","WRITE","YOUR","ABOUT","BETTER"` "BRING","CARRY","CLEAN","CUT","DONE","DRAW","DRINK","EIGHT","FALL","FAR","FULL","GOT","GROW","HOLD","HOT","HURT","I"THINK","WALK","WERE","WHEN","ALWAYS","AROUND","BECAUSE","BEEN","BEFORE","BEST","BOTH","BUY"L "CALL","COLD","DOES","DON'T","FAST","FIRST","FIVE","FOUND","GAVE","GOES","GREEN","ITS","MADE","MANY","OFF","OR","PULL","READ","RIGHT","SING"V "SIT","SLEAFTER","AGAIN","AN","ANY","AS","ASK","BY","COULD","EVERY" 8 "FLY","FROM","GIVE","GOING","HAD","HAS","HER","HIM","HIS","HOW","JUST","KNOW","LET","LIVE","MAY","OF","OLD","ONCE","OPEN","OVER"\B "PUT","ROUND","SOME","STOP","TAKE","THANK","THEM","THEN",D","HAVE","HE","INTO","LIKE","MUST" $ "NEWS","NO","NOW","ON","OUR","OUT","PLEASE","PRETTY","RAN","RIDE","SAW","SAY","SHE","SO","SOON","THAT","THERE","THEY","THIS","TOO"9 . "UNDER","WANT","WAS","WELL","WENT","WHAT","WHITE","WHO","WILL","WITH","YES","","IT","JUMP","LITTLE","LOOK"  "MAKE","ME","MY","NOT","ONE","PLAY","RED","RUN","SAID","SEE","THE","THREE","TO","TWO","US","WE","WHERE",YELLOW","YOU","ALL"#  "AM","ARE","AT","ATE","BE","BLACK","BROWN","BUT","CAME","DID","DO","EAT","FOUR","GET","GOO10:"ANOTHER SET OF WORDS? ":A$:A$"N"ĺ"GOOD-BYE":I A$"Y"150t :"HOW MANY WORDS THIS TIME? ";T$:50 W$(220) I1219:W$(I):  "A","AND","AWAY","BIG","BLUE","CAN","COME","DOWN","FIND","FOR","FUNNY","GO","HELP","HERE","IN","ISK:% d8:"NOW, TYPE THE WORD: ";A$E iA$W$(J)Č198:198:198w nA$W$(J)Ģ14:6:"GOOD. GOOD. GOOD.":NCNC1 xA$W$(J)Ģ14:6:"YOU MISSED THAT ONE." }II1500: I NW0SCNCNW::6:"YOUR SCORE WAS ";(SC100);" PERCENT"8 :  SPELLING QUIZ!:::+1000l(:"HOW MANY WORDS WOULD YOU LIKE TO START WITH TODAY? ";T$y2NW(T$)7NC08:"READY? ";:A$:A$:A$"N"56<I1NWFJ((1)200)1PL(W$(J)) Z:8:((40L)2):W$(J):K1100L:!! ! ! ! ! !!!!!!:-"BY ";NAME$;" AND THE APPLE COMPUTER":NAME$;" WENT TO A HAUNTED HOUSE."::"IT WAS VERY DARK INSIDE. A SMALL LIGHT":"APPEARED. IT MOVED CLOSER. SOON"::NAME$;" COULD SEE TWO SMALL LIGHTS."" :"THEY WERE EYES!-THE EYES OF A GHOSB~:"THROW THE ";THING$;" AT IT, AND CHARGE"::"THE DOOR. ";V300: CONTINUEb10:11"YOUR'RE OUTSIDE! YOU'RE SAFE!"::"THAT WAS CLOSE."300: CONTINUE620 ** DISPLAY STORY **:5015)"GHOST STORY"0İ450:20:12:"";WHERE$BL(WHERE$,2)"A "WHERE$(WHERE$,3)lV(WHERE$,3)"AN "WHERE$(WHERE$,4)`(WHERE$,4)"IN A"WHERE$(WHERE$,6)j3:958t:"YOU SEE A DOOR. YOU RUSH TOWARD IT. THE"::"GHOST IS STILL COMING AFTER YOU. YOU"$,4)&:"YOU GRAB THE ";THING$;"!"8350: PAUSEI$380: NOISE.:"SUDDENLY, YOU HEAR A SOUND. YOU TURN"::"AND SEE THE GHOST! YOU RUN, BUT YOU"8:"TRIP AND FALL DOWN SOME STAIRS. WHERE"::"ARE YOU?>>>";:"";WHERE$B(WHERE$)1YOU START SEARCHING FOR THE DOOR. THEN"::"A COLD BREEZE WHISTLES IN. YOU FEEL"::"SOMETHING IN THE DARK. WHAT IS IT?>>>":"";THING$(THING$)10İ450:10:THING$(THING$,2)"A "THING$(THING$,3)(THING$,3)"AN "THING$(THING YOU SEE THERE'S"::"REALLY TWO LIGHTS."=300: CONTINUEI12:21e"EYES! IT'S A GHOST!":"WHAT DO YOU SAY?>>>";SAY$(SAY$)10İ450:15:20:"";SAY$:"SUDDENLY, THE GHOST DISAPPEARS."300: CONTINUE3:958:}"ING.">300: CONTINUE&H3:958,Rx\"YOU'RE IN A HAUNTED HOUSE. IT IS VERY"::"DARK. YOU HEAR A NOISE";f300: CONTINUEp380: NOISEz6:25)" AND THEN"::"A FAINT LIGHT APPEARS IN THE DISTANCE."::"IT MOVES CLOSER--UNTIL:"";NAME$6:NAME$;", LET'S WRITE A GHOST STORY." :"WHEN YOU SEE THE > SYMBOL, THE COMPUTER"::"WANTS YOU TO TYPE SOMETHING. THE"*:"WORDS YOU TYPE MAY BE NO MORE THAN"::"10 LETTERS LONG. PRESS RETURN"4:"WHEN YOU HAVE FINISHED TYP230N07302(NAME$"")((N2)(N3))710EN0N4.1720S280:680lN750,1220,1480,750}510: TITLE ** WRITE A STORY **::12)"* STORY WRITER *"5:"WHAT IS YOUR NAME?>>>";NAME$  (NAME$)10İ450:5:22 PAUSE2 l:::9)"*** GHOST STORY ***"::S v4)"1- WRITE A NEW STORY": 4)"2- DISPLAY YOUR STORY ON THE SCREEN": 4)"3- PRINT YOUR STORY ON PAPER": 4)"4- LET SOMEONE ELSE WRITE A STORY": :4)"0 TO QUIT"20:958::"WORD TOO LONG. REENTER.":( 3506 23:958< B N  TITLET n 8:14)"GHOST STORY" :3)"AUTHOR PROGRAMMER: ROBERT V. PRICE" 0:13)"COPYRIGHT, 1984" :23: D N ** MAIN PROGRAM ** X510: TITLE b350:UE.";::X$ @23:958 J% T1 ^ PAUSEL hPAUSE11500:PAUSE:R r_ | NOISEl S16336x X150 P(S)(S)(S)(S)(S)(S)(S)(S)(S)(S)(S)(S)(S)(S) X    INPUT TOO LONG MESSAGE 23:8:N. SUBROUTINES *+ ********************1 E INPUT ROUTINEP 23:6n "ENTER YOUR CHOICE:";N:t   INPUT ERROR MESSAGE 22:958::"ILLEGAL ENTRY! PLEASE REENTER.": " , CONTINUE 624:6::"PRESS SPACE BAR TO CONTIN:::216,0:A(0) i5 n *DIM STMTS & VAR. KEY*K x NAME$=USER NAMEi SAY$=USER'S EXCLAMATION THING$=WHAT USER PICKS UP WHERE$=WHERE USER FALLS PGM CTRL VARIABLES: X,N,X$,S 590 ******************** * GE ********************7 * GHOST STORY *R * BY *m( * ROBERT V. PRICE *2 *OSBORNE/MCGRAW-HILL< * COMPUTER: APPLE 2*F * *P * COPYRIGHT, 1984 *Z ********************_ d"" " " " " """""""""