' +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*`<<<<<<<<<<<<<<<<<<<<??<<-??????<<h> ǥB>C?'> ˘hh 00(j$8j>#оH8?i 0- >i>0<ե>؅>x0x>e?hаe i 7 H f ]tHeeHeehhХH 0>B?Ce '>B>H?HB>C? Ѝ />B?Ch?& u hhh`>fjjjjff>ee?>e>h?ʆʆ8 <τjjj&>ЋO(jF)(j"$8j>Șjjj&>,F (FP>Х(FH<h(8ׅ  AɈɌɔɒɐɇɍ,,EɊ?:H >? 0h00X,T`HHH0"  hHNOO  ,,c0$Iɟ ɝɀ @,ɕ$ɛ$0ДɈH hHɈ'I$0U Q820,h ` &8b_A eΠ &Aiƅ@AiABChi=eA? ,e@ikmeAjln` ʚΠFΐejfΈJfΈ(hi8hi98i9i8iT69i78i)9iL  @ ,R,W,P,U           @@@@@@UUUUUU NNUUUUUU UUU 6?333?600?3383 ? 33333?63333 ~$33 3333333?60?0 ?U@@@@@@@@@@U@@@@@@UUUUUU N33 3333333?60?0 ?U@@@@@@@@@@UPPTTTUUUPPPTTUUUUUUTTP 6?333?6?333?0006?333?633?366?333?60?33333 33 [?33333?333??333?00000033 3333?? cggok{sscc 333333 33 33333;4 333 303 ?? 33333333?333333 ~$33 33333 ??08??UU@@@U@@@PธఌరBÁƁñBธÁsBBƁƁsƁpB;΃ƁÙƁ6ƁÁఀ 8 ?~< ``00  33>;3333;??????>3;33>3333??3333UUUUUUUUUPPPPTTUUTT     00  ~ff~   <~p8 <~||~< cccccc```` ?~<ɸhhh`fjjjjffeee΅*&*&f*&j &0*f&*fH18i 0) iȘ0H؅h x0xeh0e i 0UUU` ʚhi~6hi76i`7i ` Y0J8ׅ  7ɈɌɔɒɐɍ{Ɋ}HHHɠ0) A 0k8 FejfeׄΥ *8ΰiϥ@(@i'Υ e152152(TS20NP152)3:7,I:8,0:TS:8,0:" ":768,5:769,I30:SN:IiC!7,178:8,238:"LEVEL"H!I152152(MAXMX152)3:7,I:8,240:MAX:8,240:" ":768,4:769,I30:SN:IR!!7,85:8,60:"PLAY AGAIN? ";A$:0:FI0VDL024040-`NNNC:NLNCNNNLgjNN0āIFI1FINN:PIFI:5950:I:FIFINN:NLNLNNqtDL:~@:7,178ETSTSSCJNI4MAXMAX(NMAX(NI2)1):MAXMXMAXMXONI0MAXMAX((MAX5)10)|4!7,178:"SCORE"M>!I8ĺ" "(8);3((K13)(A0))(A99)ĺ" ";:::9W :7,178:8,HP:"COUNT";k7,160:PPHP15u 560047,178:8,HP:" ":>7,DS(P1):HHHPODDDL17:9,(HH256):8,HH256(HH256):I:768,15:769,TN:SN:J1DY:J:LNLN ";:J15:(8);:$"?";:57004" ";:5700>5610QD(8);:I150fN(KB)127I200~XI:(KB)127İ5800bKS,0:K(KB)" "(8);(K47)(K58)A10AK48:A0ĺK48;(K8)(A0)A(A10):8,PP:A0ĺA; K1100:J,I:,{ SOUND FOR CORRECT ANSWERJ|7,178:8,HP5:"YES! "c768,75:769,115:SN|768,130:769,90:SNI1500:7,178:8,HP8:"NO "NI0768,180:769,255:SNI1500:I8,PP:A0" DL:: hI1NN:7,DS(I1):8,HPODDDL:SH$(S)::@ $J 5900i ANSC20:NINI1:5500:s 5550} P7500 5900 ANSC10:5500: J5550:7,178:8,HP8:" ":I110:7,160:8,HP15:" ":J1100:J:7,160:8,HP15:N:JR(MAX):SR(NS)- I((N1)7):NCIR(8I)R NC=NUMBER OF SHAPES PER COLUMNi CR(4):C2CC2z TN30R(40) SC0: ODD0:(C1)(C5)ODD1 C DS(HTNC):NLN DL024040 NNNC:NLNCNNNL NN0İ4200:NLNLNNO U N T" j7,178: t"(C)1982 BY SCOTT STEKETEE"^ I11500:: TITLE FRAME PAUSEi NI0:  NI IS # OF PROBLEMS CORRECT IN A ROW lSH$(S)" ";:768,15:769,45:SN:J1200:: TS0 DY(10000MAX):DY500DY500  NPR (12); A$(A$,1)& 200, W I15:SH$(I)(18)(90I)(90I):In SH$(6)(34)(34)~ SH$(7)"#$" SH$(8)"%&" NS8 L(12)"UNICORN PRESENTS--" M3 N7,50:8,50 QS3:I15:1900:I V7,90:8,70 `"C 173ĺ(4)"BLOAD SOUND" OG. MVOG1478 1002P KB16384:KS16368g (R(I)(I(I)1)q d1000 MAX8: MAX # OF SHAPES AT START (INCREASES TO MX) 2000 ,PR1NP:3000:(12); @HP0:4000 ED1DS J5000 8000   ADD1d (C)1982 BY SCOTT STEKETEE 4639 SPRUCE ST., PHILA., PA 19139. ALL RIGHTS RESERVED8192:NROW8:HT144::16302,0NP5: PROBLEMS PER ROUNDMX56: HIGHEST # USED (NOT OVER 56)OG(175)256(176)1732 SN770:(SN)         o on."; I$ 3600:F ERASE WRONG ANSWER & RESTORE ARROW P OSCS_ CS2:6000v 7,VV:8,H1:(29) CS1:6000 7,10:8,137:(124) CSOS:6000  FLASH THE CURRENT NUMBER  H(8):BL$" " F0BL$" " 8p8p88ARACTER GENERATOR & SOUND M$&(L1)56(L2)56(773)173(L28001)207ım$&"LOADING CHARACTER FILES."$&(4)"BLOAD FAST CHARS,A"L2$&(4)"BLOAD CHARS 12X14"$&(4)"BLOAD SOUND"$&Csometime."&#$:"Would someone else"?#$"like to play Solo"U#$"Integer Facts?"_#$9500}#$A$"N"ĺ:(4)"RUN MENU"#$#% GET Y OR N RESPONSE #!%7,(7)5#&%"Press Y or N: ";#0%A$#:%A$"Y"A$"N"9520#D%$& CHECK FOR CH?""P#9500:8"# DOES USER WANT DIFFERENT PROBLEMS?L"$L$;N$", would"k"$"you like to try another"""$"kind of problem?"",$9500:"T$ ANOTHER PLAYER? "^$L$;N$", it""h$"was fun playing""r$"with you today." #|$:"Let's play again !!! PERFECT0!"5000:"FANTASTIC,":5500C!"N$", you got"[!""a perfect score!"g!"I110!$"768,14:769,12:770!."J150:J!8"I!B"!(# DOES USER WANT SAME PROBLEMS?!2#!<#N$", do":"you want more""F#WRD$(TYPE)" problems"even better." ' 4!TIME958600? >!"Excellent, "N$"."_ H!"You should try for a 95."e R!x !TIME1008700 !"Superb, "N$"!" !"You came very close to" !"a perfect score." !I13 !768,14:769,12:770 !J150:J !I!LϊHH w O  hh`VT @" c X ΩF     W 4 `(C) 1982 BY SCOTT STEKETEESTEKETEE EDUCATIONAL SOFTWARE' 08 `)` 0  i' i`֤ ȱȄ8  `08 `HH chh`ll`  cPRV``$  B H !h8` w΢ Ci@# O   & `ʥ ~~~~~~~~~~~~ "37; \  ' D "37; l A*+ G000T HH)JJJJH ȱH Ȅ h hi !hh`  )e )ep i iPo~_U ~~P/~zUU/P0< <@7C@ 4pp 4@p 4@,U ,U ,8D (08@H,8D,8D~~~~~~~~~~<<<<~~~~_P>_U/~~P/~U/~_U U_U UP/U~ \ @@  400000{/0- ?s@ | @/z \ T-0";:4059 3771:I11000:] ::"DO YOU WANT TO PLAY AGAIN? ";:A$:A$"Y"A$"y"185t :(4)"RUN HELLO" M3364:I14:C01:500:C0C J1N(I):500:J,I: C(X(Y(1))Z):CC0CC050500 M,17C:MM1: 7,9,6,4NG FOR YOU."o xR$"IF YOU PRESS THE LAST LETTER"R$"THAT I SANG, I WILL REPEAT THE SONG"R$"UP TO THAT LETTER." R$"PRESS 'C' FOR COLOR"R$"OR 'B' FOR BLACK & WHITE.":4042 X1:Y14:Z1:(227)194X7.5:Y3:Z.5 400: "PRESS A TO START.# (C) 1982 BY SCOTT STEKETEE> ALL RIGHTS RESERVEDb(770)173ĺ(4)"BLOAD SOUND"3888:I14:N(I)::::R$(13)(13)F"I AM THE APPLE COMPUTER,"R$"AND I LIKE TO SING." ZR$"TYPE THE LETTERS OF THE ALPHABET,"R$"AND I WILL SI       ~ 00c` ؀ l` ?1a | 01q {00 11a8 000 c0`0>  011a 0 `f<0lff? 08l`  011a 0 ` 11a 01` | 0  11a 001100000 `````06 0030c0000096c ǥB>C?'> ˘hh 00000 3030 ۰x  1 `f36 <`0 f`c3700`000000(j$8j>#оH8?i 0- >i>0<ե>؅>x0x>e?hаe i 7 H f ]tHeeHeehhХH 0>B?Ce '>B>H?HB>C? Ѝ />B?Ch?& u hhh`>fjjjjff>ee?>e>h?ʆʆ8 <τjjj&>ЋO(jF)(j"$8j>Șjjj&>,F (FP>Х(FH<h(8ׅ  AɈɌɔɒɐɇɍ,,EɊ?:H >? 0h00X,T`HHH0"  hHNOO  ,,c0$Iɟ ɝɀ @,ɕ$ɛ$0ДɈH hHɈ'I$0U Q820,h `i8b_A eΠ &Aiƅ@AiABChi=eA? ,e@ikmeAjln` ʚ ΠFΐejfΈJfΈ(hi8hi98i9i8iT69i78i)9iL  @ ,R,W,P,U      sฌ㰌ᘜsB:߃܃7؁s샿s܃8BrBƁఀM# hLJ7oఘCB hธÁᘌƍ7O؁%BDZƁÙƁ6 NฌÁర$B㰰ƱM#Ɓ؇8 O$B؇ƱM# hƁATING"#"SYSTEM MANUAL.""#"SYSTEM MANUAL.";#LBÙƱ߃BƁ3,T525,H1:27,W1:206,N1$:(# ERROR ROUTINE J-#0:0:1002R2#:<#"ERROR ";(222)" IN LINE "(218)256(219)"."F#(222)0(222)169100P#:"PLEASE REFER TO YOUR APPLESOFT MANUAL."Z##:"PLEASE REFER TO YOUR DISK OPERER CASE N$""$J1(P$(I)):A((P$(I),J,1))SA97A122AA32bN$N$(A)iJxP$(I)N$: SWITCH TO BIG CHARACTERS 252,T4:253,T625,H2:27,W2:206,N2| SWITCH TO SMALL CHARACTERS 252,T3:25GE  (12)"Loading"! 50004  7,65:"COUNT": Z DISPLAY EDUSOFT ADDRESS d 5500 7,143:(126)"1983 by Scott Steketee" "EduSoft, P.O. Box 2560" "Berkeley, CA 94702"; 7,0:  CONVERT PROGRAM NAME TO ALL UPP 5000 7,20& 8,20:"ALPHABET"8 8,65:"SONG"I 8,74:"AND"\ 8,50:"COUNT"f  3500l  DISPLAY LOADING ALPHABET MESSAGE (12)"Loading" 5000 7,45 "ALPHABET":8,50:"SONG": DISPLAY LOADING COUNT MESSAT6   SHOW CHOICES ) (12);9 "Options:"? ^ I12:I".";:8,40:P$(I)d k I :"Your choice? "; A$ 4A$"1"A$"2"ĺ(7);:2080 >I(A$)48: DISPLAY MENU TITLE FRAME (12)"EduSoft presents--" AD FAST CHARS,A"L2/ .(4)"BLOAD CHARS 12X14"Q  INITIALIZE CHARACTER SETS ^ :24579~ H1(25):W1(27):N1(206) T1L11577:T5(T1256):T3T1256T5 H2(L2110):W2(L2118):N2((H2W27)8)1 T2L21577:T6(T2256):T4T2256ʰ3200,3300 (4)"RUN "P$(I)X  "ALPHABET SONG AND COUNT","Alphabet Song","Count"k  INITIALIZE v 16384 L124576: START OF CHARS 12X14 L228265: END OF CHARS 12X14 (L1)56(L2)56(773)173(L28001)2071200 $(4)"BLO# MENU FOR FAST FACTS0d MAIN PROGRAM ;i9000Rn1000: INITIALIZEgsI02:P$(I):Iu3000: MENU TITLE FRAMEvW11000:(16384)127Ĺ16368,0:W1000wWx2000: SHOW CHOICES}4000: CONVERT NAME TO UPPER CASE I      ERASE PROBLEM -7,PV:8,0:9,0:5000<"###### "N7,ML:"## ";d5500:8,0:9,0:}4 SELECT A PROBLEM >AR(10):BR(10):CR(10)RTYPE5T((1)4)1\T2150,2160,2170,2180fCAB:pABC:zCAB: B0BI?DI1NP1IT(O(I));:8,40:N$(O(I))8NIDS8900:rl USE PROPER UPPER & LOWER CASE IN NAME q(I$)2ıvN2(I$)A((I$,N,1))A65A90(I$,N1,1)" "1950I$(I$,1,N1)(A32)(I$,N1,(I$)N)N:ELAY (TERMINATED BY KEYPRESS) @I1WT:(KB)127ĹKS,0:IWTII:` SHOW STANDINGS vI1NP:O(I)I:II1NP1!LARGESTI&JI1NP+T(O(J))T(O(LARGEST))LARGESTJ0J5TEMPO(I):O(I)O(LARGEST):O(LARGEST)TEMP:OR PLAYER J:"Your turn,"1TN$(PLAYER)"."X^7,170:"Press any key to start.";fhKS,0:A$rL$"Score: ";:TP(8):TIME|"Problem: ";:PP(8)BEST1Ĺ7,0:8,180:"Best: "BESTLAST1Ĺ7,16:8,180:"Last: "LAST D8,40:"for "WRD$(T)T2:"Your choice? ";IX$:X$PL$X$"+"WTYPE15tX$CODE$(TYPE)TTYPE:~TYPE768,10:769,10:770:1460 SET UP A ROUND OF PROBLEMS L$;WRD$(TYPE)" Problems."TIME100 @ CALL F79)): SEED THE RANDOM NUMBERS$nHs802:768,10:769,10:770:1355cx INTRODUCE THE GAME t}PLAYER1MPL(PLAYER)1:B(PLAYER)1PLAYERL$"What kind of problems""do you want?""Type:"T15CODE$(T);:."Z#5#:"PLEASE REFER TO YOUR DISK OPERATING"K#"SYSTEM MANUAL."Q#L SWITCH TO SMALL CHARACTERS 3252,T3:253,T5M25,H1:27,W1:206,N1Si(# ERROR ROUTINE y-#0:0:10022#:<#"ERROR ";(222)" IN LINE "(218)256(219)"."F#(222)0(222)169100P#:"PLEASE REFER TO YOUR APPLESOFT MANUAL: 7 CONVERT PROGRAM NAME TO ALL UPPER CASE AN$""SJ1(P$(I))iA((P$(I),J,1))A97A122AA32N$N$(A)JP$(I)N$: SWITCH TO BIG CHARACTERS 252,T4:253,T625,H2:27,W2:206,N2|(I))3290$ (P$(I),P,1)" "3280A I$I$(P$(I),P,1):3250U I$:I$"":3250] I$i 3500: DISPLAY EDUSOFT ADDRESS 5500 7,143:(126)"1983 by Scott Steketee" "EduSoft, P.O. Box 2560" "Berkeley, CA 94702"; 7,0)"EduSoft presents--" 5000) 7,20? 8,20:"ALPHABET"Q 8,65:"SONG"b 8,74:"AND"u 8,50:"COUNT"  3500  DISPLAY APPROPRIATE TITLE FRAME (12)"EduSoft presents--" 5000 7,35 P0:I$"" PP1:P(P$7:T6(T2256):T4T2256T6! 6  SHOW CHOICES B (12);R "Options:"X w I12:I".";:8,40:P$(I)}  I :"Your choice? "; A$ 4A$"1"A$"2"ĺ(7);:2080 >I(A$)48: DISPLAY MENU TITLE FRAME  (121)2071200+ $(4)"BLOAD FAST CHARS,A"L2H .(4)"BLOAD CHARS 12X14"j  INITIALIZE CHARACTER SETS w :24579 H1(25):W1(27):N1(206) T1L11577:T5(T1256):T3T1256T5 H2(L2110):W2(L2118):N2((H2W27)8)1 T2L2157200: TITLE FRAME OF PROGRAM TO RUN8 (4)"RUN "P$(I)q  "ALPHABET SONG AND COUNT","Alphabet Song","Count"  INITIALIZE 16384 L124576: START OF CHARS 12X14 L228265: END OF CHARS 12X14 (L1)56(L2)56(773)173(L2800R MENU FOR FAST FACTS0d MAIN PROGRAM ;i9000Rn1000: INITIALIZEgsI02:P$(I):Iu3000: MENU TITLE FRAMEvW11000:(16384)127Ĺ16368,0:W1000wWx2000: SHOW CHOICES}4000: CONVERT NAME TO UPPER CASE# 3      33 [?33333?333??333?6?333?600?3383 ? 33333?63333 ~$33 3333333?60?0 ?U@@@@@@@@@@U33333 ~$33 33333 ??08??UU@@@U@@@PPPTTTUUUPPPTTUUUUUUTTP 6?333?6?333?0006?333?633?366?333?60?3333333>33>;3333;??????>3;33>3333??333300000033 3333?? cggok{sscc 333333 33 33333;4 333 303 ?? 33333333?3%&"LOADING CHARACTER FILES."?%&(4)"BLOAD FAST CHARS,A"L2\%&(4)"BLOAD CHARS 12X14"s%&(4)"BLOAD SOUND"y%&"nteger Facts?"$$95006$$A$"N"ĺ:(4)"RUN MENU"<$$X$% GET Y OR N RESPONSE q$&%:"Press Y or N: ";y$0%A$$:%A$"Y"A$"N"9520$D%L$;:$& CHECK FOR CHARACTER GENERATOR & SOUND $&(L1)56(L2)56(773)173(L28001)207ı##"to try a different kind"2#"$"of problem?">#,$9500:V#T$ ANOTHER PLAYER? s#^$"It was fun doing this"#h$"contest with you today."#|$:"Let's play again sometime."#$:"Would some other players"#$"like to play Competition"$$"I,176:"Press any key to go on.";-""A$:L$;3""Y"(# DOES USER WANT SAME PROBLEMS? _"2#"7#"Do the same players want""<#"another "WRD$(TYPE)"F#"contest?""P#9500:"# DOES USER WANT DIFFERENT PROBLEMS? ##"Do the same players want""Superb! You came very"8!!"near to a perfect score!"C!!I13\!!768,14:769,12:770k!!J150:Jr!!I|!!8900!!5000:"FANTASTIC,":5500!":"a perfect score!"!"I110!$"768,14:769,12:770!."J150:J!8"I!B"8900 ""7 v "Nice job. I know you"8 "can still improve it."B 8900U TIME908500r "Good work! I bet you" "can do even better." 8900 4!TIME958600 >!"Excellent! You" H!"should try for a 95." R!8900 !TIME1008700!!"Right on!"*"A new high score!"8BESTTIMEFLASTTIMEL_TIME608200y"Good try! You can""improve this score."8900 TIME708300 "This is not bad." "Keep practicing!"& 8900l TIME808400ACTERS 252,T3:253,T5525,H1:27,W1:206,N1B30,B1:^@ PRINT FINAL MESSAGE zEL$"Final score: ";TIMETLAST1TIME1008095^TIMEBEST8080hTIMELAST8100r"Congratulations--You"|"improved your score!"8100ธఌరBÁƁñBธÁsBBƁƁsƁpB;΃ƁÙƁ6ƁÁఀsฌ㰌ᘜsB:߃܃7؁s샿s܃8BrBƁఀM# hLJ7oఘCB hธÁᘌƍ7O؁%BDZƁÙƁ6 NฌÁర$B㰰ƱM#Ɓ؇8 O$B؇ƱM# hƁ,h0!!`hhhߚHH` ATING"#"SYSTEM MANUAL.""#"SYSTEM MANUAL.";#LBÙƱ߃BƁ3,T525,H1:27,W1:206,N1$:(# ERROR ROUTINE J-#0:0:1002R2#:<#"ERROR ";(222)" IN LINE "(218)256(219)"."F#(222)0(222)169100P#:"PLEASE REFER TO YOUR APPLESOFT MANUAL."Z##:"PLEASE REFER TO YOUR DISK OPERER CASE N$""$J1(P$(I)):A((P$(I),J,1))SA97A122AA32bN$N$(A)iJxP$(I)N$: SWITCH TO BIG CHARACTERS 252,T4:253,T625,H2:27,W2:206,N2| SWITCH TO SMALL CHARACTERS 252,T3:25GE  (12)"Loading"! 50004  7,65:"COUNT": Z DISPLAY EDUSOFT ADDRESS d 5500 7,143:(126)"1983 by Scott Steketee" "EduSoft, P.O. Box 2560" "Berkeley, CA 94702"; 7,0:  CONVERT PROGRAM NAME TO ALL UPP 5000 7,20& 8,20:"ALPHABET"8 8,65:"SONG"I 8,74:"AND"\ 8,50:"COUNT"f  3500l  DISPLAY LOADING ALPHABET MESSAGE (12)"Loading" 5000 7,45 "ALPHABET":8,50:"SONG": DISPLAY LOADING COUNT MESSAT6   SHOW CHOICES ) (12);9 "Options:"? ^ I12:I".";:8,40:P$(I)d k I :"Your choice? "; A$ 4A$"1"A$"2"ĺ(7);:2080 >I(A$)48: DISPLAY MENU TITLE FRAME (12)"EduSoft presents--" AD FAST CHARS,A"L2/ .(4)"BLOAD CHARS 12X14"Q  INITIALIZE CHARACTER SETS ^ :24579~ H1(25):W1(27):N1(206) T1L11577:T5(T1256):T3T1256T5 H2(L2110):W2(L2118):N2((H2W27)8)1 T2L21577:T6(T2256):T4T2256ʰ3200,3300 (4)"RUN "P$(I)X  "ALPHABET SONG AND COUNT","Alphabet Song","Count"k  INITIALIZE v 16384 L124576: START OF CHARS 12X14 L228265: END OF CHARS 12X14 (L1)56(L2)56(773)173(L28001)2071200 $(4)"BLO# MENU FOR FAST FACTS0d MAIN PROGRAM ;i9000Rn1000: INITIALIZEgsI02:P$(I):Iu3000: MENU TITLE FRAMEvW11000:(16384)127Ĺ16368,0:W1000wWx2000: SHOW CHOICES}4000: CONVERT NAME TO UPPER CASE I         @@@@@@UUUUUU N NOVER+  INITIALIZE & SHOW TITLE FRAME A L124576:L228265S 9900::L13i H1(25):W1(27) B1(30):N1(206) T1L11577:T5(T1256):T3T1256T5 H2(L2110):W2(L2118) B2(L2114):N2((H2W27)8)1 T2L21577:T6 6L$;:1580: SET UP SCREEN 2 PROBLEM51100K 4000: DO A PROBLEM[ PROBLEM: u 7000: FIX MISTAKES? 8000: FINAL MESSAGE 9000:A$"Y"150: SAME PROBLEMS AGAIN 9200:A$"Y"140: DIFFERENT PROBLEMS 9300::120: START PROGRAM , nSEC10: 10 SECONDS PER PROBLEMC x1000: TITLE PAGEX 1200: GET NAME 1400: INTRODUCTION & CHOOSE TYPE OF PROBLEM 1500: SET UP SCREEN PROBLEM150 4000: DO A PROBLEM PROBLEM: ,6000: HALF-TIME MESSAGE 55)  TIMED STROBE FOR DIGIT 0-9 E X(KB)128:X0ĹKS,0b XX48:TTTT1:TT025r X0X921x  TTSSTT:FIX23 TIMETIME1:7,0:8,TP:TIME" " TIMENTİ2700::: 23 7R(A)((1)A) FP(99) d MAIN  9/7/83 VERSION7 (C) 1983 BY SCOTT STEKETEER ALL RIGHTS RESERVED.u *************************** * * * MARATHON FAST FACTS * * * ***************************383 ? 33333?63333 ~$33 3333333?60?0 ?U@@@@@@@@@@U@@@@@@UUUUUUK OUUTTP 6?333?6?333?0006?333?633?366?333?60?33333 33 [?33333?333??333?6?333?600?3?? cggok{sscc 333333 33 33333;4 333 303 ?? 33333333?333333 ~$33 33333 ??08??UU@@@U@@@PPPTTTUUUPPPTTUUUUf33>;3333;??????>3;33>3333??333300000033 3333TTUUTT    f<!I152152(TS20NP152)3:7,I:8,0:TS:8,0:" ":27,5:28,I30:SN:IC!7,178:8,238:"LEVEL"H!I152152(MAXMX152)3:7,I:8,240:MAX:8,24:27,15:28,TN:SN:J1DY:J:-LNLN:FI0>VDL024040U`NNNC:NLNCNNNLjNN0āIFI1FINN:PIFI:5950:I:FIFINN:NLNLNNtDL:@:7,178:"PRESS SPACE BAR."ETSTSSCJNI2MAXMAX(NMAX(NI2)1):MAXMXMAXMXOK8)(A0)A(A10):8,PP:A0ĺA;6K8ĺ" "(8);]((K13)(A0))(A99)ĺ" ";:::c :7,178:8,HP:"COUNT";7,160:PPHP15 560047,178:8,HP:" ":>7,DS(P1):HHHPODDDL17:9,(HH256):8,HH256(HH256):II1500:I 8,PP:A0>" ";:J15:(8);:N"?";:5700^" ";:5700h5610{D(8);:I150N(KB)127I200XI:(KB)127İ5800bKS,0:K(KB)" "(8);(K47)(K58)A10AK48:A0ĺK48;#(HP15:" ":J1100:J:7,160:8,HP15:N:J1100:J,I:[{ SOUND FOR CORRECT ANSWERy|7,178:8,HP5:"YES! "27,75:28,160:SN27,150:28,120:SNI1500:7,178:8,HP8:"NO "NI027,200:28,255:SN  NNNC:NLNCNNNL. NN0İ4200:NLNLNN8 DL:i hI1NN:7,DS(I1):8,HPODDDL:SH$(S)::o $y 5900 ANSC20:NINI1:5500: 5550 P7500 5900 ANSC10:5500:<J5550:7,178:8,HP8:" ":I110:7,160:8, DY(10000MAX):DY500DY500' > NR(MAX):SR(NS)\ I((N1)7):NCIR(8I) NC=NUMBER OF SHAPES PER COLUMN CR(4):C2CC2 TN40R(40) SC0: ODD0:(C1)(C5)ODD1 C DS(HTNC):NLN DL024040 QS3:I15:1900:I& V7,90:8,70< `"C O U N T"G j7,178k t"(C)1982 BY SCOTT STEKETEE" I11500:: TITLE FRAME PAUSE NI0:  NI IS # OF PROBLEMS CORRECT IN A ROW lSH$(S)" ";:27,15:28,60:SN:J1200:: TS0!00 PR (12);:85007 8600:(A$,1)"Y"200Q DOSĺ(4)"RUN HELLO"Z 100 I15:SH$(I)(18)(90I)(90I):I SH$(6)(34)(34) SH$(7)"#$" SH$(8)"%&" NS8 L(12)"EDU-SOFT PRESENTS--" M3 N7,50:8,50HANGE TO SN=-53 TO DISABLE SOUND( OG6 MVOG147@ 1002X KB16384:KS16368o (R(I)(I(I)1)y d1000 MAX8: MAX # OF SHAPES AT START (INCREASES TO MX) 2000 ,PR1NP:3000:(12); @HP0:4000 ED1DS J5000 80"  ADD1d (C)1982 BY SCOTT STEKETEE 4639 SPRUCE ST., PHILA., PA 19139. ALL RIGHTS RESERVED8192:NROW8:HT144::16302,0NP5: PROBLEMS PER ROUNDMX56: HIGHEST # USED (NOT OVER 56)OG(175)256(176)1732 SNOG18: C            " ";(8);+F DLY150:(16384)12726704K DLY>P 2600en 16368,0:I(16384):" ";(8);: *********************************************************** TIMED STROBE FOR DIGIT 0-9 2000 XX48:T1T11 T103100 X5XX$(X)16368,0 8 CH(8):CV(7):IN$C$S 7,CV:8,CH:9,0:IN$;] 2600k I13ĺ:y I82560 IN$IN$(I):2510 IN$C$2510 IN$(IN$,(IN$)1):2510( CUR$;(8);:DLY1502 (16384)12726707 DLY < 500N$IN$!(N$)151570HC$"THAT^S TOO LONG TO REMEMBER."qN$(N$,14):C$"I^LL CALL YOU "N$"."I11000:"*********************************************************** STROBE KEYBOARDX(16384)128X0ı 1140I***********************************************************a GET PLAYER'S NAMEjE$;{C$;"HELLO,"C$"I AM THE "C$"APPLE ]"(91)" COMPUTER."C$"YOU CAN CALL ME ^";C$;"APPLE^ FOR SHORT."C$"WHAT IS YOUR NAME ?"2"tC$"TYPE: ";~T150SIGN$(4)"/"R8,72:SIGN$(T)" FOR "WRD$(T)YTc2000qTYPE15TYPE1X$";"T1:X$SIGN$(TYPE)TTYPE:SIGN$(4)"*":TYPEX$""1180E$;C$"YOU CAN ONLY CHOOSE FROM:"X$""*******************L:E$;@VC$"LET^S PLAY A GAME, "N$"."h[C$"THIS GAME WILL TEST YOUR SPEED"^"AND ACCURACY ON ARITHMETIC"`"NUMBER FACTS.":aC$"PRESS ANY KEY TO CONTINUE";:A$:eE$;jC$"CHOOSE THE KIND OF PROBLEM YOU WANT%&"LOADING CHARACTER FILES."?%&(4)"BLOAD FAST CHARS,A"L2\%&(4)"BLOAD CHARS 12X14"s%&(4)"BLOAD SOUND"y%&"LϊHH w O  hh`VT @" c X ΩF     W 4 `(C) 1982 BY SCOTT STEKETEESTEKETEE EDUCATIONAL SOFTWARE' ` I 0  i' i`֤ ȱȄ80 `HH chh`ll`  cPRV``$  B H !h8` w΢i@# O   & `ʥ ~~~~~~~~~~~~ "37; \  ' D "37; l A*+ G000T HH)JJJJH ȱH Ȅ h hi !hh`  )e )ep i iPo~_U ~~P/~zUU/P0< <@7C@ 4pp 4@p 4@,U ,U ,8D (08@H,8D,8D~~~~~~~~~~<<<<~~~~_P>_U/~~P/~U/~_U U_U UP/U~ \ @@  400000{/0- ?s@ | @/z \ T-03771 I12000: 1902 ,I14:N(I):8 6F @ 7,9,6,4N K0Y I14g 500:C0C 3364K,C017:KK1 J1N(I) 500 CC0CC050450 3364K,C17:KK1 J I  C(X(Y(1))Z):."1 xR$;R$"ANY TIME YOU PRESS THE LAST LETTER"^ R$"THAT I SANG, I WILL REPEAT THE SONG"z R$"UP TO THAT LETTER." R$;R$"PRESS 'C' FOR COLOR" R$"OR 'B' FOR BLACK & WHITE." 4042 X1:Y14:Z1:(227)194X7.5:Y3:Z.5 400 " (C) 1982 BY SCOTT STEKETEE< ALL RIGHTS RESERVEDF3888O(300\2R$(13)d<:F"I AM THE APPLE COMPUTER,"PR$"AND I LIKE TO SING."ZR$;R$"IF YOU WILL TYPE THE LETTERS"dR$"OF THE ALPHABET," nR$"I WILL SING FOR YOU   " ";:(9)H9(8)H2830* WT50:1700? 7,PV:8,HH:9,0W 768,10:769,5:770d C:5500u" WT400:1700{'  DO ONE PROBLEM 2000: ERASE PREVIOUS2100: PICK A PROBLEM2300: PRINT A PROBLEM2400: GET A KEY"770  "( ANSWER IS WRONG 62 7,ML:8,0:9,0D< "Sorry."NF 2800_ TOO SLOW  7,ML:8,0:9,0:"Too slow!" FIX ANSWER  TIMENT 7,0:8,TP:TIME" " 768,35:769,10:770 WT50:1700 5000:7,PV:8,HH:9,0 2455: "-" SIGN%~ 5000:X;:55008 H(8):H9(9)G R10RX:] 5000:"-";:5500p H(8):H9(9) CC0R999:: "-" IS WRONG CC(CC):2410: "-" IS RIGHT ANSWER IS CORRECT  7,ML:8,0:9,0:"Yes!" 768,14:769,12::"Would some other players"<#$"like to play Competition"O#$"Fast Facts?"Y#$9500w#$A$"N"ĺ:(4)"RUN MENU"}#$#% GET Y OR N RESPONSE #!%7,(7)5#&%"Press Y or N: ";#0%A$#:%A$"Y"A$"N"9520#D%L$;:$& CHECK FOR CHA DOES USER WANT DIFFERENT PROBLEMS? D"#"Do the same players want"c"#"to try a different kind"v""$"of problem?"",$9500:"T$ ANOTHER PLAYER? "^$"It was fun doing this""h$"contest with you today.""|$:"Let's play again sometime."#$110!$"768,14:769,12:770,!."J150:J3!8"I=!B"8900d!"7,176:"Press any key to go on.";q!"A$:L$;w!"!(# DOES USER WANT SAME PROBLEMS? !2#!7#"Do the same players want"!<#"another "WRD$(TYPE)!F#"contest?"!P#9500:$"# You"! H!"should try for a 95."+ R!8900> !TIME1008700\ !"Superb! You came very"| !"near to a perfect score!" !I13 !768,14:769,12:770 !J150:J !I !8900 !5000:"FANTASTIC,":5500 ":"a perfect score!"!"I is not bad."% "Keep practicing!"/& 8900Bl TIME808400_v "Nice job. I know you"| "can still improve it." 8900 TIME908500 "Good work! I bet you" "can do even better." 89004!TIME958600 >!"Excellent! "Congratulations--You"2|"improved your score!"<8100M"Right on!"f"A new high score!"tBESTTIMELASTTIME7,(7)5TIME608200"Good try! You can""improve this score."8900 TIME708300  "This| SWITCH TO SMALL CHARACTERS 4252,T3:253,T5N25,H1:27,W1:206,N1[30,B1:w@ PRINT FINAL MESSAGE EL$"Final score for"JN$(PLAYER)": "TIMEO7,(7)5TLAST1TIME1008095^TIMEBEST8080hTIMELAST8100rLEM2400: GET A KEY?RCİ2500:4090: CORRECT ANSWERQR0C04080R(C10)R(C100)4040: SO FAR, SO GOOD2600: WRONG ANSWER SWITCH TO BIG CHARACTERS 252,T4:253,T625,H2:27,W2:206,N230,B2: 770 WT50:1700/ 5000:7,PV:8,HH:9,09 "##"I WT50:1700^ 7,PV:8,HH:9,0v 768,10:769,5:770 C:5500" WT400:1700'  DO ONE PROBLEM 2000: ERASE PREVIOUS2100: PICK A PROBLEM2300: PRINT A PROBCT  7,ML:8,0:9,0:"Yes!"8 768,14:769,12:770> V( ANSWER IS WRONG j2 7,ML:8,0:9,0x< "Sorry."F 2800 TOO SLOW  7,ML:8,0:9,0:"Too slow!" FIX ANSWER  TIMENT 7,0:8,TP:TIME" " 768,35:769,10: 7,16:8,PP:PROBLEM# KS,0- 7,PV7$ 5000S. A" "SIGN$(T)" "B" = ";]8 5500mB H(8):HHHL TT2.54SEC:NTTIME10V R0:` GET A KEY j 20t 7,PV:8,H~ 5000:X;:5500 H(8) R10RX: ANSWER IS CORRE"###### "7,ML:"## ";35500:8,0:9,0:L4 SELECT A PROBLEM k>AR(10):BR(10):CR(10)RTYPE5T((1)4)1\T2150,2160,2170,2180fCAB:pABC:zCAB:B0BR(10):2180ABC: PRINT A PROBLEM &,&HT(3)28:WD(3)24:BK(3)4:NB(3)85,,&:NB(3)85?,&ication","X","/","Division","/","A","Assorted","A"k<PV75:ML150: VERTICAL LOCS FOR PROBLEM & MESSAGE|=WT500:1700BPL$";":(64435)6PL$"=": ALTERNATE KEY FOR + IS = ON //EDSS(SEC1.35).370G GET PLAYER'S NAME L$" 8,120:"FACTS" $5500) )7,143M .(126)"1983 by Scott Steketee"k 3"EduSoft, P.O. Box 2560" 8"Berkeley, CA 94702"; 9LAST1:BEST1 :I15:SIGN$(I),WRD$(I),CODE$(I):I2; "+","Addition","+","'","Subtraction","-","X","MultiplT1L11577:T5(T1256):T3T1256T5B H2(L2110):W2(L2118)g B2(L2114):N2((H2W27)8)1 T2L21577:T6(T2256):T4T2256T6 KB16384:KS16368:L$(12) L$"EduSoft presents" 5000 7,35 "REGULAR" 8,60:"FAST"NAL MESSAGE7 9000:A$"Y"150: SAME PROBLEMS AGAINb 9200:A$"Y"140: DIFFERENT PROBLEMS 9300::120: START OVER  INITIALIZE & SHOW TITLE FRAME L124576:L228265 9900::L13 H1(25):W1(27) B1(30):N1(206)$ # nSEC5: 10 SECONDS PER PROBLEM: x1000: TITLE PAGEO 1200: GET NAME 1400: INTRODUCTION & CHOOSE TYPE OF PROBLEM 1500: SET UP SCREEN PROBLEM110 4000: DO A PROBLEM "PROBLEM: 7000: FIX MISTAKES? 8000: FI 55)  TIMED STROBE FOR DIGIT 0-9 E X(KB)128:X0ĹKS,0b XX48:TTTT1:TT025r X0X921x  TTSSTT:FIX23 TIMETIME1:7,0:8,TP:TIME" " TIMENTİ2700::: 23 7R(A)((1)A.5) d MAIN PROGRAM  9/7/83 VERSION7 (C) 1983 BY SCOTT STEKETEER ALL RIGHTS RESERVED.u *************************** * * * REGULAR FAST FACTS * * * ***************************             T?ppx88 ?ppp888???<<<<8888888 ?|<<<<<<<<<<<<p8|<<>?sqpp8<<<<<<<<<<<<<<<<????<<<<<<??????<<<<??????????(0)9:WD(0)8:BK(0)2:NB(0)10P+&T1(1)L(27243):T2(1)H(27243): SMALL CHARSt+&HT(1)7:WD(1)5:BK(1)1:NB(1)6+&T1(2)L(27819):T2(2)H(27819): CHARS 12X14+&HT(2)14:WD(2)12:BK(2)2:NB(2)22+&T1(3)L(29931):T2(3)H(29931): CHARS 24X28127ĹKS,0:IWTI:/ SHOW STANDINGS EI1NP:O(I)I:ISI1NP1a!LARGESTIo&JI1NP+T(O(J))T(O(LARGEST))LARGESTJ0J5TEMPO(I):O(I)O(LARGEST):O(LARGEST)TEMP:I?DI1NPIT(O(I));:8,40:N$(O(I))'^7,170:"Press any key to start.";5hKS,0:A$UrL$"Score: ";:TP(8):TIMEo|"Problem: ";:PP(8)BEST1Ĺ7,0:8,180:"Best: "BESTLAST1Ĺ7,16:8,180:"Last: "LAST DELAY (TERMINATED BY KEYPRESS) I1WT:(KB);X$:X$PL$X$"+"&TYPE15CX$CODE$(TYPE)TTYPE:MTYPEl768,10:769,10:770:1460 SET UP A ROUND OF PROBLEMS L$;WRD$(TYPE)" Problems."TIME100@ CALL FOR PLAYER J:"Your turn,"TN$(PLAYER)"."8,10:769,10:770:13552x INTRODUCE THE GAME C}PLAYER1MPaL(PLAYER)1:B(PLAYER)1mPLAYERL$"What kind of problems""do you want?""Type:"T15CODE$(T);:8,40:"for "WRD$(T)T:"Your choice? "$;:768,10:769,10:770:1240(1395G(L$"Please type the names"`2"of the players.":m<NN1NPFNN;:". ";I$K1900:N$(NN)I$PNNU216,0: RESET ERROR FLAGdA((78)256(79)): SEED THE RANDOM NUMBERSns802:76"Computer. You can call"9"me 'Apple' for short."D1300b:"How many players are""entering this contest?":"Please type a number""from 2 to "MP;": ";NP NP2NPMP13101305802: ERROR PATCHLn","/","A","Assorted","A"P`PV75:ML150: VERTICAL LOCS FOR PROBLEM & MESSAGEaeWT500:1700jPL$";":(64435)6PL$"=": ALTERNATE KEY FOR + IS = ON //EoSS(SEC1.2).375t GET PLAYER'S NAME L$"Hello. I am the Apple ]["5500=7,1434B(126)"1983 by Scott Steketee"RG"EduSoft, P.O. Box 2560"nL"Berkeley, CA 94702";QLAST1:BEST1VI15:SIGN$(I),WRD$(I),CODE$(I):I[ "+","Addition","+","'","Subtraction","-","X","Multiplication","X","/","Divisio256T5%H2(L2110):W2(L2118)J B2(L2114):N2((H2W27)8)1sT2L21577:T6(T2256):T4T2256T6KB16384:KS16368:L$(12)L$"EduSoft presents"5000$7,35)"COMPETITION".8,60:"FAST"38,120:"FACTS"8160: SAME PROBLEMS AGAIN?E 9200:A$"Y"150: DIFFERENT PROBLEMSc 9300::130: START OVER  INITIALIZE & SHOW TITLE FRAME L124576:L228265 9900::L13 H1(25):W1(27) B1(30):N1(206)T1L11577:T5(T1256):T3T1ET(PLAYER):BESTB(PLAYER):LASTL(PLAYER)E 1600: CALL FOR PLAYERW PROBLEM610a 4000n PROBLEM T(PLAYER)TIME 8000: SHOW MESSAGE AT END L(PLAYER)LAST:B(PLAYER)BEST &PLAYER "Final standings:":1800 9000:A$"Y"BESTB(PLAYER):LASTL(PLAYER):TIME100D 1600: CALL FOR PLAYERU PROBLEM15_ 4000l PROBLEM T(PLAYER)TIME L$; PLAYER "Half-time standings:":1800 "The second half is" "about to begin." PLAYER1NP) TIM$ nSEC10: 10 SECONDS PER PROBLEM@ xMP5: MAX # OF PLAYERSW 1000: TITLE PAGEm 1200: GET NAMES 1400: INTRODUCTION & CHOOSE TYPE OF PROBLEM 1500: SET UP ONE ROUND "The first half is about" "to begin." PLAYER1NP( 55)  TIMED STROBE FOR DIGIT 0-9 E X(KB)128:X0ĹKS,0b XX48:TTTT1:TT025r X0X921x  TTSSTT:FIX23 TIMETIME1:7,0:8,TP:TIME" " TIMENTİ2700::: 23 7R(A)((1)A.5) d MAIN PROGRAM  9/8/83 VERSION7 (C) 1983 BY SCOTT STEKETEER ALL RIGHTS RESERVED.u *************************** * * * COMPETITION FAST FACTS * * * ***************************&(24576)56(30497)240(34910)2249915Y*&"LOADING CHARACTERS":(4)"BLOAD CHARS"p*&(4)"BLOAD SOUND"}*&:24579*&H(X)(X256): FIND HIGH BYTE*&L(X)X256H(X): FIND LOW BYTE*&T1(0)L(26283):T2(0)H(26283): STD CHARS+&HTz#??ԮʰԠˠ֮֠ʰ ٮԠ ήԠ׮ԠԮԠЮԠŠήԠԠ îԠîԠˮԠ Ԡ ҮԠ ŮԠ ϮԠ ֠ ֮ʰ ֲֲʰǠ Ǯʰ Ǡˠ ΠҠӠŮĠ Բ Ԡ" ̱ʰ ̱"̱ʰ  Ҡՠ ӠرԠǠ Ġ Ԡ נϠ ͠ҠӠ Ԡՠ ͠ҠӠ ΠҠӠϠҠӠԠԠӠ Ϡ ӠرԠǠ Ԡ ǠӠ(ĠŠ<ppppp0p8p q1988p8p8888w?v><8pp8p88pp<88<ppp888pppp8p8p88888<<8888  011a 0 `f<0lff? 08l`  011a 0 ` ?ppx88 ?ppp888???<<<<8888888 ?|<<<<<<<<<<<<p8|<<>?sqpp8<<<<<<<<<<<<<<<<????<<<<<<??????<<<<??????????<<<<<<<<< ?333 f3 3333?60? ?    ~< 0``0 "Options:"D c I12:I".";:8,40:P$(I)i p I :"Your choice? "; A$ 4A$"1"A$"2"ĺ(7);:2080 >I(A$)48: DISPLAY MENU TITLE FRAME  (12)"EduSoft presents--4)"BLOAD BIG CHARS,A"L24 .(4)"BLOAD CHARS 12X14"V  INITIALIZE CHARACTER SETS c :24579 H1(25):W1(27):N1(206) T1L11577:T5(T1256):T3T1256T5 H2(L2110):W2(L2118):N2((H2W27)8)1 T2L21577:T6(T2256):T4T2 I3200,3300% (4)"RUN "P$(I)^  "ALPHABET SONG AND COUNT","Alphabet Song","Count"q  INITIALIZE | 16384 L124576: START OF CHARS 12X14 L228265: END OF CHARS 12X14 (L1)56(L2)56(773)173(L28001)2071200 $((! MENU FOR ALPHABET/COUNT 6d MAIN PROGRAM Ai9000Xn1000: INITIALIZEmsI02:P$(I):Iu3000: MENU TITLE FRAMEvW11000:(16384)127Ĺ16368,0:W1000wWx2000: SHOW CHOICES}4000: CONVERT NAME TO UPPER CASE       ~ 00c` ؀ l` ?1a | 01q {00 11a8 000 c0`0>  011a 0 `f<0lff? 08l`  011a 0 ` 11a 01` | 0  11a 001100000 `````06 0030c0000096cI(A$)48:f DISPLAY MENU TITLE FRAME (12)"UNICORN presents"(95);(95) 5000 7,20 8,20:"ALPHABET" 8,65:"SONG" 8,74:"AND" 8,50:"COUNT"  3500  0):W2(L2118):N2((H2W27)8)1L T2L21577:T6(T2256):T4T2256T6R g  SHOW CHOICES s (12); "Options:"  (771)48ĺ"0. Turn sound off": I12:I".";:8,40:P$(I)  I :"Your choice? "; A$ *80! $(4)"BLOAD BIG CHARS,A"L2> .(4)"BLOAD CHARS 12X14"I 3770,0y 8(770)173(772)192ĺ(4)"BLOAD SOUND"  INITIALIZE CHARACTER SETS :24579 H1(25):W1(27):N1(206) T1L11577:T5(T1256):T3T1256T5# H2(L211 (12)"Loading..."% 0:0:1002: (4)"RUN "P$(I)s  "ALPHABET SONG AND COUNT","Alphabet Song","Count"  INITIALIZE 16384 L124576: START OF CHARS 12X14 L228265: END OF CHARS 12X14 (L1)56(L2)56(L28001)20710! MENU FOR ALPHABET/COUNT 6d MAIN PROGRAM Ai9000Xn1000: INITIALIZEmsI02:P$(I):Iu3000: MENU TITLE FRAMEvW1400:(16384)127Ĺ16368,0:W1000wWx2000: SHOW CHOICES}4000: CONVERT NAME TO UPPER CASE      7,VV:A" "S$" "B$;3G FB:2800: FLASH SECOND #GQ D1A:D2C:5200fV 7,VV:CS2:6000::(29);w[ WT200:1800` 2900: FLASH ARROWe :CS2:6000j 7,VV:8,H1o FC:2800t WT500:1800y :CS0:6000~ (11):"Press any key to g(11) CS0:6000::0 N$", please watch"Y "while I do it on the number line."p WT100:1800:2700 WT200:1800 7,VV:CS2:6000$ FA:2800: FLASH FIRST #. D10:D2A:52003 7,VV:CS2:60008 :(29);= WT200:1800BS2:6000:7,VV:A" + ";*B0AN$"-";B0AN$"+"K3950:B$A$oBB:S$"+":B$;(B)" = "(11);{H1(8)CS0:6000:7,122:8,0"Now, "N$", please try again." DEMONSTRATE ON NUMBER LINE  7,VV:8,H1:CS2:6000:an addition"8"problem now, by pressing the + sign."GCS2:6000XVV100:7,VVcA" ";uAN$"+":3950"+"(11)CS0:6000:7,136"Now change the second number""to its opposite, by pressing""the correct sign."C"Write the problem as an addition"8R8,25:"problem."lW"2.";:8,25:"Change the second number to its"\8,25:"opposite."a"Press any key to continue.";fWT5000:1800k2700p7,103:8,0:(11)u7,136 z"Write the problem as 70 WT200:180042300: DEMONSTRATE SOLUTION:i4 CHANGE SUBTRACTION TO ADDITION PROBLEM x9CS0:6000>7,103:"For subtraction, you must add"C"the opposite of the second number."H"Follow these two steps:""M"1.";:8,25:N: WRONG ANSWER 77,VV16:8,H1:(11)HS$"+"2065R2100i3000: GET ANSWERv(11):RC2050"RIGHT ON!"768,10:769,10:770NSNS1:WT500:1800:CS0:6000:"Still wrong."768,40:769,20:7LϊHH w O  hh`VT @" c X ΩF     W 4 `(C) 1982 BY SCOTT STEKETEESTEKETEE EDUCATIONAL SOFTWARE' ` 0  i' i`֤ ȱȄ80 `HH chh`ll`  cPRV``$  B H !h8` w΢i@# O   & `ʥ ~~~~~~~~~~~~ "37; \  ' D "37; l A*+ G000T HH)JJJJH ȱH Ȅ h hi !hh`  )e )ep i iPo~_U ~~P/~zUU/P0< <@7C@ 4pp 4@p 4@,U ,U ,8D (08@H,8D,8D~~~~~~~~~~<<<<~~~~_P>_U/~~P/~U/~_U U_U UP/U~ \ @@  400000{/0- ?s@ | @/z \ T-0AIN." 280 190) I11000::< ,I14:N(I):B 6P @ 7,9,6,4X K0c I14q 500:C0C 3364K,C017:KK1 J1N(I) 500 CC0CC050450 3364K,C17:KK1 J I  C(X(Y(1))Z):S THE LAST LETTER"? R$"THAT I SANG, I WILL REPEAT THE SONG"[ R$"UP TO THAT LETTER."{ R$;R$"PRESS 'C' FOR COLOR" R$"OR 'B' FOR BLACK & WHITE." 4042 X1:Y14:Z1:(227)194X7.5:Y3:Z.5 400:3771:280 ::"LET'S PLAY AG" (C) 1982 BY SCOTT STEKETEE< ALL RIGHTS RESERVEDT3888:300:R$(13)\<:|F"I AM THE APPLE COMPUTER,"PR$"AND I LIKE TO SING."ZR$;R$"TYPE THE LETTERS OF THE ALPHABET,"nR$"AND I WILL SING FOR YOU." xR$;R$"IF YOU PRES     !I1WT:(KB)127ĹKS,0:IWT*I:Xl USE PROPER UPPER & LOWER CASE IN NAME gq(I$)2ıvvN2(I$)A((I$,N,1))A65A90(I$,N1,1)" "1950I$(I$,1,N1)(A32)(I$,N1,(I$)N)N: ERASE PROBLEM 7TN$(PLAYER)"."9^7,170:"Press any key to start.";GhKS,0:A$grL$"Score: ";:TP(8):TIME|"Problem: ";:PP(8)BEST1Ĺ7,0:8,180:"Best: "BESTLAST1Ĺ7,16:8,180:"Last: "LAST DELAY (TERMINATED BY KEYPRESS) :"Your choice? ";)X$:X$PL$X$"+"7TYPE15TX$CODE$(TYPE)TTYPE:^TYPE}768,10:769,10:770:1450 SET UP A ROUND OF PROBLEMS L$;WRD$(TYPE)" Problems."TIME1000@ CALL FOR PLAYER J:"Your turn,"s any key to go on.";$A$#%G(802:768,10:769,10:770:1290bx INTRODUCE THE GAME v}LAST1:BEST1L$"What kind of problems""does your team want?""Type:"T15CODE$(T);:8,40:"for "WRD$(T)T216,0: RESET ERROR FLAG;SS(SEC(100NP).125).0455oA((78)256(79)): SEED THE RANDOM NUMBERSL$"You will have "SEC" seconds" "to do each problem."!:"Each problem will be"""worth "(100NP)" points."#7,170:"Presmber""from 2 to 5: ";NP3NP2NP51265=1260U802: ERROR PATCHyL$;:768,10:769,10:770:12251320L$"Please type the names""of the contestants.":NN1NPNN;:". ";I$ 1900:N$(NN)I$NN"=": ALTERNATE KEY FOR + IS = ON //E,oF GET PLAYER'S NAME iL$"Hello. I am the Apple ][""Computer. You can call""me 'Apple' for short."1255:"How many contestants""are on your team?":"Please type a nu1,VI15:SIGN$(I),WRD$(I),CODE$(I):I[ "+","Addition","+","'","Subtraction","-","X","Multiplication","X","/","Division","/","A","Assorted","A"`PV75:ML150: VERTICAL LOCS FOR PROBLEM & MESSAGEeWT500:1700&jPL$";":(64435)6PL$16384:KS16368:L$(12)3L$"EduSoft presents"=5000G$7,35S)"TEAM"h.8,60:"INTEGER"|38,120:"FACTS"85500=7,143B(126)"1983 by Scott Steketee"G"EduSoft, P.O. Box 2560"L"Berkeley, CA 94702";QLAST1:BESTW TITLE FRAME $ L124576:L2282656 9900::L13L H1(25):W1(27)c B1(30):N1(206) T1L11577:T5(T1256):T3T1256T5 H2(L2110):W2(L2118) B2(L2114):N2((H2W27)8)1 T2L21577:T6(T2256):T4T2256T6KB: CALL FOR PLAYER$ PROBLEM610. 4000; PROBLEMD L$;S PLAYER: s 8000: SHOW MESSAGE AT END 9000:A$"Y"150: SAME PROBLEMS AGAIN 9200:A$"Y"140: DIFFERENT PROBLEMS 9300::120: START OVER  INITIALIZE & SHOut" "to begin."% PLAYER1NPA 1600: CALL FOR PLAYERR PROBLEM15\ 4000i PROBLEMr L$; PLAYER: ,"Half-time score: "TIME 6WT500:1700 @:"The second half is" J"about to begin.": PLAYER1NP 1600(1)(2A1)A)* FMP5: MAX # OF PLAYERS? d MAIN PROGRAM i nSEC15: GIVES 15 SECONDS PER PROBLEM x1000: TITLE PAGE 1200: GET NAMES 1400: INTRODUCTION & CHOOSE TYPE OF PROBLEM 1500: SET UP SCREEN :"The first half is abo 55)  TIMED STROBE FOR DIGIT 0-9 E X(KB)128:X0ĹKS,0Z X45ı: - SIGNw XX48:TTTT1:TT026 X0X921  TTSSTT:FIX24 TIMETIME1 7,0:8,TP:9,0:TIME" " TIMENTİ2700::: 24 7R(A)(0`  8 ?~< ``00  33>;3333;??????>3;33>3333??3333UUUUUUUUUPPPPTTUUTT     00  ~ff~   <~p8 <~||~< cccccc```` ?~<ɸhhh`fjjjjffeee΅*&*&f*&j &0*f&*fH18i 0) iȘ0H؅h x0xeh0e i 0UUU` ʚhi~6hi76i`7i ` Y0J8ׅ  7ɈɌɔɒɐɍ{Ɋ}HHHɠ0) A 0k8 FejfeׄΥ *8ΰiϥ@(@i'Υ e152152(TS20NP152)3:7,I:8,0:TS:8,0:" ":768,5:769,I30:SN:IiC!7,178:8,238:"LEVEL"H!I152152(MAXMX152)3:7,I:8,240:MAX:8,240:" ":768,4:769,I30:SN:IR!!7,85:8,60:"PLAY AGAIN? ";A$:0:FI0VDL024040-`NNNC:NLNCNNNLgjNN0āIFI1FINN:PIFI:5950:I:FIFINN:NLNLNNqtDL:~@:7,178ETSTSSCJNI2MAXMAX(NMAX(NI2)1):MAXMXMAXMXONI0MAXMAX((MAX5)10)|4!7,178:"SCORE"M>!I8ĺ" "(8);3((K13)(A0))(A99)ĺ" ";:::9W :7,178:8,HP:"COUNT";k7,160:PPHP15u 560047,178:8,HP:" ":>7,DS(P1):HHHPODDDL17:9,(HH256):8,HH256(HH256):I:768,15:769,TN:SN:J1DY:J:LNLN ";:J15:(8);:$"?";:57004" ";:5700>5610QD(8);:I150fN(KB)127I200~XI:(KB)127İ5800bKS,0:K(KB)" "(8);(K47)(K58)A10AK48:A0ĺK48;(K8)(A0)A(A10):8,PP:A0ĺA; K1100:J,I:,{ SOUND FOR CORRECT ANSWERJ|7,178:8,HP5:"YES! "c768,75:769,115:SN|768,130:769,90:SNI1500:7,178:8,HP8:"NO "NI0768,180:769,255:SNI1500:I8,PP:A0" DL:: hI1NN:7,DS(I1):8,HPODDDL:SH$(S)::@ $J 5900i ANSC20:NINI1:5500:s 5550} P7500 5900 ANSC10:5500: J5550:7,178:8,HP8:" ":I110:7,160:8,HP15:" ":J1100:J:7,160:8,HP15:N:JR(MAX):SR(NS)- I((N1)7):NCIR(8I)R NC=NUMBER OF SHAPES PER COLUMNi CR(4):C2CC2z TN30R(40) SC0: ODD0:(C1)(C5)ODD1 C DS(HTNC):NLN DL024040 NNNC:NLNCNNNL NN0İ4200:NLNLNNO U N T" j7,178: t"(C)1982 BY SCOTT STEKETEE"^ I11500:: TITLE FRAME PAUSEi NI0:  NI IS # OF PROBLEMS CORRECT IN A ROW lSH$(S)" ";:768,15:769,45:SN:J1200:: TS0 DY(10000MAX):DY500DY500  NPR (12); A$(A$,1)& 200, W I15:SH$(I)(18)(90I)(90I):In SH$(6)(34)(34)~ SH$(7)"#$" SH$(8)"%&" NS8 L(12)"UNICORN PRESENTS--" M3 N7,50:8,50 QS3:I15:1900:I V7,90:8,70 `"C 173ĺ(4)"BLOAD SOUND" OG. MVOG1478 1002P KB16384:KS16368g (R(I)(I(I)1)q d1000 MAX8: MAX # OF SHAPES AT START (INCREASES TO MX) 2000 ,PR1NP:3000:(12); @HP0:4000 ED1DS J5000 8000   ADD1d (C)1982 BY SCOTT STEKETEE 4639 SPRUCE ST., PHILA., PA 19139. ALL RIGHTS RESERVED8192:NROW8:HT144::16302,0NP5: PROBLEMS PER ROUNDMX56: HIGHEST # USED (NOT OVER 56)OG(175)256(176)1732 SN770:(SN)      ction","-","X","Multiplication","X","/","Division","/","A","Assorted","A"`PV75:ML150: VERTICAL LOCS FOR PROBLEM & MESSAGEeWT500:1700jPL$";":(64435)6PL$"=": ALTERNATE KEY FOR + IS = ON //EoSS(SEC1.25).455t  GET PLAN".8,60:"INTEGER"+38,120:"FACTS"585500@=7,143dB(126)"1983 by Scott Steketee"G"EduSoft, P.O. Box 2560"L"Berkeley, CA 94702";QLAST1:BEST1VI15:SIGN$(I),WRD$(I),CODE$(I):II[ "+","Addition","+","'","Subtra):N1(206)4T1L11577:T5(T1256):T3T1256T5RH2(L2110):W2(L2118)w B2(L2114):N2((H2W27)8)1T2L21577:T6(T2256):T4T2256T6KB16384:KS16368:L$(12)L$"EduSoft presents"5000$7,35)"COMPETITIO"Final standings:":1800G 9000:A$"Y"160: SAME PROBLEMS AGAIN?r 9200:A$"Y"150: DIFFERENT PROBLEMS 9300::130: START OVER  INITIALIZE & SHOW TITLE FRAME L124576:L228265 9900::L13 H1(25):W1(27) B1(30"about to begin."% PLAYER1NPV TIMET(PLAYER):BESTB(PLAYER):LASTL(PLAYER)r 1600: CALL FOR PLAYER PROBLEM610 4000 PROBLEM T(PLAYER)TIME 8000: SHOW MESSAGE AT END L(PLAYER)LAST:B(PLAYER)BEST &PLAYER s about" "to begin."* PLAYER1NPU BESTB(PLAYER):LASTL(PLAYER):TIME100q 1600: CALL FOR PLAYER PROBLEM15 4000 PROBLEM T(PLAYER)TIME L$; PLAYER "Half-time standings:":1800 "The second half is" R(A)((1)(2A1)A)- d MAIN PROGRAM Q nSEC15: 15 SECONDS PER PROBLEMm xMP5: MAX # OF PLAYERS 1000: TITLE PAGE 1200: GET NAMES 1400: INTRODUCTION & CHOOSE TYPE OF PROBLEM 1500: SET UP ONE ROUND "The first half i******** 553  TIMED STROBE FOR DIGIT 0-9 O X(KB)128:X0ĹKS,0d X45ı: - SIGN XX48:TTTT1:TT026 X0X921  TTSSTT:FIX24 TIMETIME1 7,0:8,TP:9,0:TIME" " TIMENTİ2700::: 24 7z 9/8/83 VERSION7 (C) 1983 BY SCOTT STEKETEER ALL RIGHTS RESERVED.w ***************************** * * * COMPETITION INTEGER FACTS * * * *********************        L{3K34;(ͷ /<Ï<:A(*A44*A~($G+( ~/_~(=G+~(6+<=(+~>.66?*AO DE͖4?!I152152(TS20NP152)3:7,I:8,0:TS:8,0:" ":768,5:769,I30:SN:IC!7,178:8,238:"LEVEL".H!I152152(MAXMX152)3:7,I:8,2H256):I:768,15:769,TN:SN:J1DY:J:8LNLN:FI0IVDL024040``NNNC:NLNCNNNLjNN0āIFI1FINN:PIFI:5950:I:FIFINN:NLNLNNtDL:@:7,178:"PRESS SPACE BAR."ETSTSSCJNI2MAXMAX(NMAX(NI2)1):MAXMX8;,(K8)(A0)A(A10):8,PP:A0ĺA;?K8ĺ" "(8);f((K13)(A0))(A99)ĺ" ";:::l :7,178:8,HP:"COUNT";7,160:PPHP15 560047,178:8,HP:" ":*>7,DS(P1):HHHPODDDL17:9,(HH256):8,HH256(H5:SNI1500:I)8,PP:A0G" ";:J15:(8);:W"?";:5700g" ";:5700q5610D(8);:I150N(KB)127I200XI:(KB)127İ5800bKS,0:K(KB)" "(8);(K47)(K58)A10AK48:A0ĺK4:8,HP15:" ":J1100:J:7,160:8,HP15:N:J1100:J,I:_{ SOUND FOR CORRECT ANSWER}|7,178:8,HP5:"YES! "768,75:769,115:SN768,130:769,90:SNI1500:7,178:8,HP8:"NO "NI0768,180:769,2540 NNNC:NLNCNNNL2 NN0İ4200:NLNLNN< DL:m hI1NN:7,DS(I1):8,HPODDDL:SH$(S)::s $} 5900 ANSC20:NINI1:5500: 5550 P7500 5900 ANSC10:5500:@J5550:7,178:8,HP8:" ":I110:7,1600% DY(10000MAX):DY500DY500+ B NR(MAX):SR(NS)` I((N1)7):NCIR(8I) NC=NUMBER OF SHAPES PER COLUMN CR(4):C2CC2 TN30R(40) SC0: ODD0:(C1)(C5)ODD1 C DS(HTNC):NLN DL0240 QS3:I15:1900:I( V7,90:8,70> `"C O U N T"I j7,178m t"(C)1982 BY SCOTT STEKETEE" I11500:: TITLE FRAME PAUSE NI0:  NI IS # OF PROBLEMS CORRECT IN A ROW lSH$(S)" ";:768,15:769,45:SN:J1200:: TSPR (12);:8500) 8600:A$(A$,1)@ A$"Y"A$"y"200W :(4)"RUN HELLO"]  I15:SH$(I)(18)(90I)(90I):I SH$(6)(34)(34) SH$(7)"#$" SH$(8)"%&" NS8 L(12)"EDUSOFT PRESENTS--" M3 N7,50:8,50173ĺ(4)"BLOAD SOUND" OG. MVOG1478 1002P KB16384:KS16368g (R(I)(I(I)1)q d1000 MAX8: MAX # OF SHAPES AT START (INCREASES TO MX) 2000 ,PR1NP:3000:(12); @HP0:4000 ED1DS J5000 8000 2  ADD1d (C)1982 BY SCOTT STEKETEE 4639 SPRUCE ST., PHILA., PA 19139. ALL RIGHTS RESERVED8192:NROW8:HT144::16302,0NP5: PROBLEMS PER ROUNDMX56: HIGHEST # USED (NOT OVER 56)OG(175)256(176)1732 SN770:(SN)       ōϠӠćˠ̍ˠŠčŠčɯϠҍĠԠ٠ϠΠ͍Š۠ŠҠנŠŠҠŠ٠ҍξϠŠǠŠҍ̭þξϠٍ̠ҮŽĠՠŠϠŠҠٿԠŠˠĠӠԠΠˠĠӠ٠ϠՠԠǿ$:GRc*1DNSjwŠԿſΠԿſſԠӮӠþϠΠϠΠՠҠ٠Ҡ٠Ϡ΍٠ӮŠΠL   LϠ젃Š𠁠Ƞɠź̪ӯؠԉȠҠńϠ̠̠ΒȤŠ͠㠩υe h QQQQQ<JWdv&crK.М LHHH?!=>@AH IL=K>Lhhh`HHH ; ( L -hhh` : :  ,% f f4,$ ɀ@  RSQzmVVW` `DE]^ /].^ E̞`DE `HHH/.0+>0jj.9hhh`( 01 0㎓/%` f`RS`KȱL`KȭL`DERS ` ` I,`DE]ȹ]Ȍ  E`,0 /R.SDE$,/ ` f` : :   oOɃ  hhhhhh`+t+TPɍɬC+L,)  o : L f f`   t+L:,     `H jjH9mmL[mmhh`  # L# # 3,0ޭR S   ` .H h. ` % fɽQ ʎ`8`HH Uɽ"̦̦88hh` ȹHH`%) ` f `,%0 f `,% f ` f` `  f `hh" XL  ̅ $T+  # o? : L  hh` %)`ʽQ08`  `  ?,06 /,0&莤 ,0欧ȌP8``ȈQ`  UɽQ 莣Ȍ`8`  U$'   hhh`, `Hhݯ`h`# q  ` Y  # LK ` RRSS`R S8`RSDE  `iiiQLk RLk H m hLk S%RQr@@@@@@UUUUUU N333 33 [?33333?333??333?6?333?600?3383 ? 33333?63333 ~$33 3333333?60?0 ?U@@@@@@@@@@U33333333?333333 ~$33 33333 ??08??UU@@@U@@@PPPTTTUUUPPPTTUUUUUUTTP 6?333?6?333?0006?333?633?366?333?60?33333?3333333>33>;3333;??????>3;33>3333??333300000033 3333?? cggok{sscc 333333 33 33333;4 333 303 ?? 216,0: RESET ERROR FLAG;SS(SEC(100NP).125).0455oA((78)256(79)): SEED THE RANDOM NUMBERSL$"You will have "SEC" seconds" "to do each problem."!:"Each problem will be"""worth "(100NP)" points."#7,170:"Presmber""from 2 to 5: ";NP3NP2NP51265=1260U802: ERROR PATCHyL$;:768,10:769,10:770:12251320L$"Please type the names""of the contestants.":NN1NPNN;:". ";I$ 1900:N$(NN)I$NN"=": ALTERNATE KEY FOR + IS = ON //E,oF GET PLAYER'S NAME iL$"Hello. I am the Apple ][""Computer. You can call""me 'Apple' for short."1255:"How many contestants""are on your team?":"Please type a nu1,VI15:SIGN$(I),WRD$(I),CODE$(I):I[ "+","Addition","+","'","Subtraction","-","X","Multiplication","X","/","Division","/","A","Assorted","A"`PV75:ML150: VERTICAL LOCS FOR PROBLEM & MESSAGEeWT500:1700&jPL$";":(64435)6PL$16384:KS16368:L$(12)3L$"EduSoft presents"=5000G$7,35S)"TEAM"h.8,60:"INTEGER"|38,120:"FACTS"85500=7,143B(126)"1983 by Scott Steketee"G"EduSoft, P.O. Box 2560"L"Berkeley, CA 94702";QLAST1:BESTW TITLE FRAME $ L124576:L2282656 9900::L13L H1(25):W1(27)c B1(30):N1(206) T1L11577:T5(T1256):T3T1256T5 H2(L2110):W2(L2118) B2(L2114):N2((H2W27)8)1 T2L21577:T6(T2256):T4T2256T6KB: CALL FOR PLAYER$ PROBLEM610. 4000; PROBLEMD L$;S PLAYER: s 8000: SHOW MESSAGE AT END 9000:A$"Y"150: SAME PROBLEMS AGAIN 9200:A$"Y"140: DIFFERENT PROBLEMS 9300::120: START OVER  INITIALIZE & SHOut" "to begin."% PLAYER1NPA 1600: CALL FOR PLAYERR PROBLEM15\ 4000i PROBLEMr L$; PLAYER: ,"Half-time score: "TIME 6WT500:1700 @:"The second half is" J"about to begin.": PLAYER1NP 1600(1)(2A1)A)* FMP5: MAX # OF PLAYERS? d MAIN PROGRAM i nSEC15: GIVES 15 SECONDS PER PROBLEM x1000: TITLE PAGE 1200: GET NAMES 1400: INTRODUCTION & CHOOSE TYPE OF PROBLEM 1500: SET UP SCREEN :"The first half is abo 55)  TIMED STROBE FOR DIGIT 0-9 E X(KB)128:X0ĹKS,0Z X45ı: - SIGNw XX48:TTTT1:TT026 X0X921  TTSSTT:FIX24 TIMETIME1 7,0:8,TP:9,0:TIME" " TIMENTİ2700::: 24 7R(A)(۟ 9/8/83 VERSION7 (C) 1983 BY SCOTT STEKETEER ALL RIGHTS RESERVED.u *************************** * * * TEAM INTEGER FACTS * * * ***************************          08>B?Ch?h> ƥB>C?'> ʘhh>Юe)(>> j>ʢ г)'>0p`饠 LLL˹Ɂ <ȱ<L4 0#( 8<  8  `<#`<ȑ<<ȑ<Ƚȑ<Ƚ< <   `LH =<` STTIME!""A perfect score!"+!"I110D!$"768,14:769,12:770S!."J150:JZ!8"I`!B"!(# DOES USER WANT SAME PROBLEMS? !2#!7#"Does the same team want"!<#"more "WRD$(TYPE)!F#"problems?"!P#9500: "# DOES USER WANT DIFFERENT ould try for "5(TIME5)5"."$ R!8 !TIME10008700V !5000:"FANTASTIC,":5500q !"Your team came very" !"near to a perfect score!" !I15 !768,14:769,12:770 !J150:J !I ! !5000:"FANTASTIC,":5500!"LASTTIME:BEticing!"& "l TIME80084009v "Nice job, team,"S "and I know you can"l "still improve it."r  TIME9008500 "Good work!" "I bet you can do":"even better." 4!TIME9508600>!"Excellent! Your team" H!"sh" 8100""Right on, team!";"A new high score!"TTIMEBESTBESTTIMEbLASTTIMEp7,(7)5TIME6008200"You can improve your""score if you practice." TIME7008300 "This is not bad." "Keep prac252,T3:253,T5)25,H1:27,W1:206,N1630,B1:R@ PRINT FINAL MESSAGE qE"Your final score: ";TIMEG7,(7)5JLAST1TIME9508095^TIMEBEST8080hTIMELAST8100r"Congratulations--Your"|"team improved its score!?333 33 g?333333?3?6?3?600?303333>333 f3 3333?60? ?    ~< 0``0 0    30 ~~ 33?3333333333333???3;3333?33300000333? cgo{ssh> ǥB>C?'> ˘hh 66666 ~~~G%tRq 33s    ~~ ? 00 33333  30?3003?00(j$8j>#оH8?i 0- >i>0<ե>؅>x0x>e?hаe i 7 H f ]tHeeHeehhХH 0>B?Ce '>B>H?HB>C? Ѝ />B?Ch?& u hhh`>fjjjjff>ee?>e>h?ʆʆ8 <τjjj&>ЋO(jF)(j"$8j>Șjjj&>,F (FP>Х(FH<h(8ׅ  AɈɌɔɒɐɇɍ,,EɊ?:H >? 0h00X,T`HHH0"  hHNOO  ,,c0$Iɟ ɝɀ @,ɕ$ɛ$0ДɈH hHɈ'I$0U Q820,h ` 8b_A eΠ &Aiƅ@AiABChi=eA? ,e@ikmeAjln` ʚ ΠFΐejfΈJfΈ(hi8hi98i9i8iT69i78i)9iL  @ ,R,W,P,U      170:"Press any key to start.";-hKS,0:A$LrL$"Time: ";:TP(8):TIMEf|"Problem: ";:PP(8)BEST1Ĺ7,0:8,180:"Best: "BESTLAST1Ĺ7,16:8,180:"Last: "LAST DELAY (TERMINATED BY KEYPRESS) I1WT:(KB)127ĹKS,$:X$PL$X$"+"TYPE15;X$SIGN$(TYPE)TTYPE:ETYPEV(7);:1455y SET UP A ROUND OF PROBLEMS L$;WRD$(TYPE)" Problems."TIME1000T1SEC@ CALL FOR PLAYER J:"Your turn,"T:N$(PLAYER)"."^7,THE RANDOM NUMBERSn.s801:(7);:1355Ix INTRODUCE THE GAME ]LAST1:BEST1|L$"What kind of problems""does your team want?""Type:"T15SIGN$(T);:8,40:"for "WRD$(T)T:"Your choice? ";X801: ERROR PATCH)L$;(7);:124041395S(L$"Please type the names"p2"of the contestants.":}<NN1NPFNN;:". ";I$K1900:N$(NN)I$PNNU216,0: RESET ERROR FLAGZSEC1.91NP2.31dA((78)256(79)): SEED S NAME *L$"Hello. I am the Apple ]["I"Computer. You can call"f"me 'Apple' for short."q1300:"How many contestants""are on your team?":"Please type a number""from 2 to 5: ";NP NP2NP513101305I\; "+","Addition","-","Subtraction","X","Multiplication","/","Division","A","Assorted"<PV75:ML150: VERTICAL LOCS FOR PROBLEM & MESSAGE=WT1500:1700BPL$";":(64435)6PL$"=": ALTERNATE KEY FOR + IS = ON //EG GET PLAYER'L$"EduSoft presents" 5500) 7,355 "TEAM"G 8,60:"FAST"[ 8,120:"FACTS"e $5550p )7,143 .(126)"1983 by Scott Steketee" 3"EduSoft, P.O. Box 2560" 8"Berkeley, CA 94702"; 9LAST1:BEST1:I15:SIGN$(I),WRD$(I):L228262 9900:L13. H1(25):W1(27)E B1(30):N1(206)n T1L11574:T5(T1256):T3T1256T5 H2(L2110):W2(L2118) B2(L2114):N2((H2W27)8)1 T2L21574:T6(T2256):T4T2256T6 KB16384:KS16368:L$(12) E 1L$;* @8000: SHOW MESSAGE AT END6 EPLAYERW G8900: SHOW FINAL STANDINGS J9000:A$"Y"130: SAME PROBLEMS AGAIN ^9200:A$"Y"120: DIFFERENT PROBLEMS h9300::100: START OVER  INITIALIZE & SHOW TITLE FRAME  L124576:1600: CALL FOR PLAYER( PROBLEM152 4000? PROBLEMR T(PLAYER)TIME[ L$;g PLAYERx PLAYER1NP TIMET(PLAYER):BESTB(PLAYER):LASTL(PLAYER) 1600: CALL FOR PLAYER PROBLEM610 "4000 ,PROBLEM .T(PLAYER)TIM7R(A)((1)A)3 <SEC18: SEC CONTROLS TIMINGO FMP5: MAX # OF PLAYERSf d1000: TITLE PAGE| n1200: GET NAMES x1400: INTRODUCTION & CHOOSE TYPE OF PROBLEM 1500: SET UP SCREEN PLAYER1NP BESTB(PLAYER):LASTL(PLAYER) #XD1#5300:XD25270##R# MOVE ARROW ONE SPACE IN DIRECTION OF S a#CS1:6000#J1378XS1378X8SS#8,L(J):9,H(J)#7,10#(124);#J#XXS#CTCT1:5400## DISPLAY COUNT AND BEEP $"7,0:8(IJ),NV31398(IJ),NV3$"J+"I5"5150L"139,NV6139,NV6R" `"X1398Is"#X,NV5X,NV5"((I)9XX4"-I0XX8"28,X2:I;"7"P MOVE ARROW FROM D1 TO D2 "ZCS1:6000"dS(D2D1)"nCT0"D1D2ıUN RENUMBER"8. (978)190ĺ:(4)"BRUN PLE DOS MOVER"c(978)190ĺ"ERROR: CAN'T INITIALIZE PLE.DM":z((4)"BRUN PLE.DM"-(4)"BLOAD CHARS 12X14"2(4)"CATALOG"<(4)"RUN RENUMBER"1002::AI(16295): TURN OFF 80 COLUMNS F(4)"R ******** 553  TIMED STROBE FOR DIGIT 0-9 O X(KB)128:X0ĹKS,0d X45ı: - SIGN XX48:TTTT1:TT026 X0X921  TTSSTT:FIX24 TIMETIME1 7,0:8,TP:9,0:TIME" " TIMENTİ2700::: 24 7S)%206,NB(CS):)%X TEST ROUTINE /%?E%@ PRINT MESSAGE T%JCS0:6000w%TL$;N$", you did 10 problems,"%^"and you got "NR" right."%hNS0ĺ:"You got "NS" more right":"on the second try."%rPCT10NR5NS&|"Your score is "PCT8,L(JS1):9,H(JS1)/$,(CT)9Ĺ8,(8)28$6CT;Q$@768,10:769,10:770d$J(8);(8)" "j$T$p CHANGE CHARACTER SET $z CS=0 FOR STD, 1 FOR SMALL, 2 FOR 12X14, 3 FOR 24X28$252,T1(CS):253,T2(CS)%25,HT(CS):27,WD(CS):30,BK(CLINES IN RANGEINCREMENT TOO LARGEDUPLICATE LINE NUMBERSOUT OF MEMORYPROGRAM ON HOLD, USE "&M" TO RECOVERHOLD FILE IN USELIMITED MEMORY, MAY DESTROY PROGRAM CONTINUE (Y/N)?SYNTAX> 63999LINE TOO LONGINCREMENT = 0Ȫ`樥sthhRL`EȱEi樠 ȱȱ`ijEȱEi椠`H h`:808`ESIFee'Lѥȥ񥰶NO PROGRAM IN MEMORYNO ` Lӆ Ԇ8stijRLghLABCՆ>ֆ?sȥ Ȫ͆0 ҅ >&eee膝 & &ghȱ y y;L ۥghij L L  ͆0 ҅ >&eee膝JJJJ)ŝƝLpƞߥ ,LLL )WHLC L , Ɇ ɀL  , ҅LзLgş堰G L & & & .ee'Lѥȥ񥰶Ls 8tit8sB@tCtABCB>?><>=?>BPݱ>BL@ /@L  ipm@8e@@AiA8ϥ_^8LKLKLp iLe ꤸ ML#gAXFILES'/  YOU WILL HAVE TO RE-RUN RENUMBERY ' ADJUST PROGRAM LENGTH SO POINTER AT ' LOCATION 175-176 IS $13E7 HEX OR 5095 DECIMAL. ' PAD-PAD-PAD-PAD-PAD-PAD-PAD-PAD-PAD-PAD-P 'A175 '(A)(A1)25623046yi<>zi=i?AR(10):BR(10):CR(10)RTYPE5T((1)4)1\T2150,2160,2170,2180fCAB:pABC:zCAB: B0BI?DI1NP1IT(O(I));:8,40:N$(O(I))8NIDS8900:rl USE PROPER UPPER & LOWER CASE IN NAME q(I$)2ıvN2(I$)A((I$,N,1))A65A90(I$,N1,1)" "1950I$(I$,1,N1)(A32)(I$,N1,(I$)N)N:ELAY (TERMINATED BY KEYPRESS) @I1WT:(KB)127ĹKS,0:IWTII:` SHOW STANDINGS vI1NP:O(I)I:II1NP1!LARGESTI&JI1NP+T(O(J))T(O(LARGEST))LARGESTJ0J5TEMPO(I):O(I)O(LARGEST):O(LARGEST)TEMP:OR PLAYER J:"Your turn,"1TN$(PLAYER)"."X^7,170:"Press any key to start.";fhKS,0:A$rL$"Score: ";:TP(8):TIME|"Problem: ";:PP(8)BEST1Ĺ7,0:8,180:"Best: "BESTLAST1Ĺ7,16:8,180:"Last: "LAST D8,40:"for "WRD$(T)T2:"Your choice? ";IX$:X$PL$X$"+"WTYPE15tX$CODE$(TYPE)TTYPE:~TYPE768,10:769,10:770:1460 SET UP A ROUND OF PROBLEMS L$;WRD$(TYPE)" Problems."TIME100 @ CALL F79)): SEED THE RANDOM NUMBERS$nHs802:768,10:769,10:770:1355cx INTRODUCE THE GAME t}PLAYER1MPL(PLAYER)1:B(PLAYER)1PLAYERL$"What kind of problems""do you want?""Type:"T15CODE$(T);:MP13101305*802: ERROR PATCHNL$;:768,10:769,10:770:1240Y1395x(L$"Please type the names"2"of the players.":<NN1NPFNN;:". ";I$K1900:N$(NN)I$PNNU216,0: RESET ERROR FLAGdA((78)256(YER'S NAME .L$"Hello. I am the Apple ]["M"Computer. You can call"j"me 'Apple' for short."u1300:"How many players are""entering this contest?":"Please type a number""from 2 to "MP;": ";NP NP2NPction","-","X","Multiplication","X","/","Division","/","A","Assorted","A"`PV75:ML150: VERTICAL LOCS FOR PROBLEM & MESSAGEeWT500:1700jPL$";":(64435)6PL$"=": ALTERNATE KEY FOR + IS = ON //EoSS(SEC1.25).455t  GET PLAN".8,60:"INTEGER"+38,120:"FACTS"585500@=7,143dB(126)"1983 by Scott Steketee"G"EduSoft, P.O. Box 2560"L"Berkeley, CA 94702";QLAST1:BEST1VI15:SIGN$(I),WRD$(I),CODE$(I):II[ "+","Addition","+","'","Subtra):N1(206)4T1L11577:T5(T1256):T3T1256T5RH2(L2110):W2(L2118)w B2(L2114):N2((H2W27)8)1T2L21577:T6(T2256):T4T2256T6KB16384:KS16368:L$(12)L$"EduSoft presents"5000$7,35)"COMPETITIO"Final standings:":1800G 9000:A$"Y"160: SAME PROBLEMS AGAIN?r 9200:A$"Y"150: DIFFERENT PROBLEMS 9300::130: START OVER  INITIALIZE & SHOW TITLE FRAME L124576:L228265 9900::L13 H1(25):W1(27) B1(30"about to begin."% PLAYER1NPV TIMET(PLAYER):BESTB(PLAYER):LASTL(PLAYER)r 1600: CALL FOR PLAYER PROBLEM610 4000 PROBLEM T(PLAYER)TIME 8000: SHOW MESSAGE AT END L(PLAYER)LAST:B(PLAYER)BEST &PLAYER s about" "to begin."* PLAYER1NPU BESTB(PLAYER):LASTL(PLAYER):TIME100q 1600: CALL FOR PLAYER PROBLEM15 4000 PROBLEM T(PLAYER)TIME L$; PLAYER "Half-time standings:":1800 "The second half is" "."&PCT10081308&CS2:6000:"A PERFECT SCORE!"Y&I110:768,20:769,20:770i&WT10:1800p&I&CS0:6000&&PCT908160&:"This is an excellent score,":N$"!"&&PCT808190&:N$", you did quite well!"'<<<<<<< <<<<<<<<<?<x<<?<<??<<<<<<<<<<<<<<<<xppx<< <<<<00<< <<????8pp8p88p<<<<<<<<<<<<<<<<<<<<??<<-??????<<h> ǥB>C?'> ˘hh 00(j$8j>#оH8?i 0- >i>0<ե>؅>x0x>e?hаe i 7 H f ]tHeeHeehhХH 0>B?Ce '>B>H?HB>C? Ѝ />B?Ch?& u hhh`>fjjjjff>ee?>e>h?ʆʆ8 <τjjj&>ЋO(jF)(j"$8j>Șjjj&>,F (FP>Х(FH<h(8ׅ  AɈɌɔɒɐɇɍ,,EɊ?:H >? 0h00X,T`HHH0"  hHNOO  ,,c0$Iɟ ɝɀ @,ɕ$ɛ$0ДɈH hHɈ'I$0U Q820,h mprove your skill."(b :(l :"You need more practice,"S(v N$". You got less"}( "than half of the problems correct."( ((# DOES USER WANT TO PLAY AGAIN?(2#:"Would you like to practice"(<#"some more, "N$;(F#9500:)# ANOTHER PL'PCT7082305' :"This is pretty good, "N$","^' "but more practice would help you."d' u'& PCT508300'0 :N$", you got ";': PCT50ĺ"more than ";'D :"half the problems right."'N "But you need some more practice,"(X N$", to i?????? <<<<<<<<<<<<<<<<<??<<<<????<<<<??????????<<<<??<<<<;8|ppp<<<<88 0`a~Ɓcff 088??p8|<88p8p8<ppppp0p8p q1988p8p8888w?v><8pp8p88pp<88<ppp888pppp8p8p88888<<8888