' +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*`s샿s܃8BrBƁM# hLJ7oఘCBM#Ɓ hธÁᘌƍ7O؁%BDZƁƁÙƁ6 NฌÁర$B㰰ƱƁ؇8 O$B؇ƱM# h؇8BÙƱ߃B REFER TO YOUR DISK OPERATING"4#"SYSTEM MANUAL.":# ʚhi~hi@`ɀWRPU`HHehehȱeiМƁ𿌌󙞘;΃RACTERS 252,T3:253,T5625,H1:27,W1:206,N1<R(# ERROR ROUTINE b-#0:0:1002j2#:<#"ERROR ";(222)" IN LINE "(218)256(219)"."F#(222)0(222)169100P#:"PLEASE REFER TO YOUR APPLESOFT MANUAL."Z##:"PLEASE PROGRAM NAME TO ALL UPPER CASE *N$""<J1(P$(I))RA((P$(I),J,1))kA97A122AA32zN$N$(A)JP$(I)N$: SWITCH TO BIG CHARACTERS 252,T4:253,T625,H2:27,W2:206,N2| SWITCH TO SMALL CHA I$I$(P$(I),P,1):PP1:30502  8,60:"FAST"F & 8,120:"FACTS"R 0 3500:r DISPLAY EDUSOFT ADDRESS | 5500 7,140:(126)"1983 by Scott Steketee" "EduSoft, P.O. Box 2560" "Berkeley, CA 94702"; 7,0:  CONVERTA$"0"(770)173Ĺ770,96:(12)"Sound is off.":2030c 4A$"1"A$"5"Ĺ768,10:769,10:770:2080t >I(A$)48: DISPLAY APPROPRIATE TITLE FRAME (12)"EduSoft presents--" 5000 7,35 P1:I$"" (P$(I),P,1)" "ĺI$:3100 8):N2((H2W27)8)1? T2L21577:T6(T2256):T4T2256T6E Z  SHOW CHOICES f (12);v "Options:" 7,(7)15 (770)173ĺ"0.";:8,40:"Turn sound off" I15:I".";:8,40:P$(I) I :"Your choice? "; A$5 *(176)2441: SHOW TITLE8 $(4)"BLOAD FAST CHARS,A"L2U .(4)"BLOAD CHARS 12X14"l 8(4)"BLOAD SOUND"  INITIALIZE CHARACTER SETS :24579 H1(25):W1(27):N1(206) T1L11577:T5(T1256):T3T1256T5 H2(L2110):W2(L211s","Solo Fast Facts","Team Fast Facts","Competition Fast Facts","Marathon Fast Facts"h  INITIALIZE s 16384 L124576: START OF CHARS 12X14 L228265: END OF CHARS 12X14 (L1)56(L2)56(773)173(L28001)2071200 (175)256 MENU FOR FAST FACTS0d MAIN PROGRAM ;i9000Rn1000: INITIALIZEgsI15:P$(I):Ix2000: SHOW CHOICES}4000: CONVERT NAME TO UPPER CASE3000: TITLE FRAME OF PROGRAM TO RUN(4)"RUN "P$(I)U  "Beginner Fast Fact      problem?"!,$9500:-!T$ ANOTHER PLAYER? >!^$L$;N$", it"U!h$"was fun playing"l!r$"with you today."!|$:"Let's play again sometime."!$:"Would someone else"!$"like to play Solo"!$"Fast Facts?"!$9500"$A$"N"ĺ:(4)"RUN MENU"2:770 ."J150:J 8"I" B"G (# DOES USER WANT SAME PROBLEMS?M 2#l <#N$", do":"you want more" F#WRD$(TYPE)" problems?" P#9500: # DOES USER WANT DIFFERENT PROBLEMS? $L$;N$", would" $"you like to try another" !"$"kind of !"Superb, "N$"!"1!"You came very close to"I!"a perfect score."T!I13m!768,14:769,12:770|!J150:J!I!! PERFECT"5000:"FANTASTIC,":5500"N$", you got"""a perfect score!""I110 $"768,14:769,1e job, "N$","' "and I know you can"@ "still improve it."F Y TIME908500l "Good, "N$"!" "I bet you can do":"even better." 4!TIME958600>!"Excellent, "N$"."H!"You should try for a 95."R!!TIME1008700on-""A new high score!"+BESTTIME9LASTTIMEG7,(7)5ZTIME608200v"You can improve your""score if you practice." TIME708300 "This is not bad." "Keep practicing!"& l TIME808400 v "NicTIME:26004N>FIX0:9@ SHOW FINAL MESSAGE ZEL$"Your final score: ";TIMEhG7,(7)5JTIME100LAST18095^TIMEBEST8080hTIMELAST8100r"Congratulations--You"|"improved your last score!"8100"Right $"N"ıFIX1:L$;:1580(N1NW22000VAWA(N):BWB(N):CWC(N):TWT(N)pTWT(N):PROBLEMWP(N)z23002400: GET A DIGITRCİ2500:TIMETIME2:7,0:8,TP:TIME" ";:7220 R0C07200R(C10)R(C100)7160  NT,W2:206,N230,B2:;| SWITCH TO SMALL CHARACTERS O252,T3:253,T5i25,H1:27,W1:206,N1v30,B1:X SHOW MISTAKES bNW0ılL$;N$", do"v"you want to get more""points by fixing your""mistakes?"9500:A2300: PRINT A PROBLEM32400: GET A KEYZRCİ2500:4090: CORRECT ANSWERlR0C04080R(C10)R(C100)4040: SO FAR, SO GOOD2600: WRONG ANSWER SWITCH TO BIG CHARACTERS 252,T4:253,T6 25,H2:27PV:8,HH:9,0.J 768,10:769,5:770:C:5500?T WT400:1700WY FIXNWNR102940c^ NWNW1h WA(NWNR)A:WB(NWNR)B:WC(NWNR)Cr WT(NWNR)T:WP(NWNR)PROBLEM|  DO ONE PROBLEM 2000: ERASE PREVIOUS2100: PICK A PROBLEM2 7,ML:8,0:9,0:"Sorry."(< 28009 TOO SLOW Z 7,ML:8,0:9,0:"Too slow!"u RECORD & FIX ERROR  TIMENT 7,0:8,TP:TIME" " 768,35:769,10:770 WT50:1700" 5000:7,PV:8,HH:9,0, "## "6 WT50:1700 @ 7, "; 8 5500B H(8):HHH2L TTSS:NTTIME10<V R0:N` GET A KEY Vj 20et 7,PV:8,Hy~ 5000:X;:5500 H(8) R10RX: ANSWER IS CORRECT  7,ML:8,0:9,0:"Yes!" 768,14:769,12:770 ( ANSWER IS WRONG ABC:+AWA(1):BWB(1):CWC(1):TWT(1)DNRNR1:NR0NW0ıSI1NRNWWA(I)WA(I1):WB(I)WB(I1):WC(I)WC(I1):WT(I)WT(I1)I: PRINT A PROBLEM  7,16:8,PP:PROBLEM KS,0 7,PV$ 5000. A" "SIGN$(T)" "B" =ÁఀธఌరBÁƁñBธÁsLBBƁƁsƁpB;΃ƁÙƁ6Ɓsฌ㰌ᘜsB:߃܃7(10):2170ABC:. PRINT A PROBLEM G 7,16:8,PP:PROBLEMQ KS,0[ 5000}$ 7,PV:A" "SIGN$(T)" "B" = ";. 55008 H(8):HHHB TTSS:NTTIME(100NP)L R0:` GET A DIGITj 20: GET A KEYt 7,PV:8,H~ 5000:A$"N"9520#D%L$;:E#& CHECK FOR CHARACTER GENERATOR & SOUND x#&(L1)56(L2)56(773)173(L28001)207ı#&"LOADING CHARACTER FILES."#&(4)"BLOAD FAST CHARS,A"L2#&(4)"BLOAD CHARS 12X14"#&(4)"BLOAD SOUND"#&H."&"|$:"Let's play again sometime."H"$:"Would some other players"h"$"like to play Competition"{"$"Fast Facts?""$9500"$A$"N"ĺ:(4)"RUN MENU""$"% GET Y OR N RESPONSE "!%7,(7)5"&%"Press Y or N: ";"0%A$ #:%A$"Y"RD$(TYPE)!F#"contest?"%!P#9500:P!# DOES USER WANT DIFFERENT PROBLEMS? p!#"Do the same players want"!#"to try a different kind"!"$"of problem?"!,$9500:!T$ ANOTHER PLAYER? !^$"It was fun doing this""h$"contest with you todayIC,":5500$ ":"a perfect score!"0 "I110I $"768,14:769,12:770X ."J150:J_ 8"Ii B"8900 "7,176:"Press any key to go on."; "A$:L$; " (# DOES USER WANT SAME PROBLEMS? 2# 7#"Do the same players want" !<#"another "W 89004!TIME9586001>!"Excellent! You"MH!"should try for a 95."WR!8900j!TIME1008700!"Superb! You came very"!"near to a perfect score!"!I13!768,14:769,12:770!J150:J!I!8900 !5000:"FANTASTre."8900! TIME7083009 "This is not bad."Q "Keep practicing!"[& 8900nl TIME808400v "Nice job. I know you" "can still improve it." 8900 TIME908500 "Good work! I bet you" "can do even better."^TIMEBEST8080&hTIMELAST8100Br"Congratulations--You"^|"improved your score!"h8100y"Right on!""A new high score!"BESTTIMELASTTIME7,(7)5TIME608200"Good try! You can""improve this scoT625,H2:27,W2:206,N2)30,B2:L| SWITCH TO SMALL CHARACTERS `252,T3:253,T5z25,H1:27,W1:206,N130,B1:@ PRINT FINAL MESSAGE EL$"Final score for"JN$(PLAYER)": "TIMEO7,(7)5TLAST1TIME100809500: PICK A PROBLEM/2300: PRINT A PROBLEME2400: GET A KEYkRCİ2500:4090: CORRECT ANSWER}R0C04080R(C10)R(C100)4040: SO FAR, SO GOOD2600: WRONG ANSWER SWITCH TO BIG CHARACTERS 252,T4:253, 7,0:8,TP:TIME" "0 768,35:769,10:770@ WT50:1700[ 5000:7,PV:8,HH:9,0e "##"u WT50:1700 7,PV:8,HH:9,0 768,10:769,5:770 C:5500" WT400:1700'  DO ONE PROBLEM 2000: ERASE PREVIOUS21H(8) R10RX:/ ANSWER IS CORRECT K 7,ML:8,0:9,0:"Yes!"d 768,14:769,12:770j ( ANSWER IS WRONG 2 7,ML:8,0:9,0< "Sorry."F 2800 TOO SLOW  7,ML:8,0:9,0:"Too slow!" FIX ANSWER  TIMENT0):2180ABC:, PRINT A PROBLEM E 7,16:8,PP:PROBLEMO KS,0Y 7,PVc$ 5000. A" "SIGN$(T)" "B" = ";8 5500B H(8):HHHL TT2.54SEC:NTTIME10V R0:` GET A KEY j 20t 7,PV:8,H~ 5000:X;:5500 SE PROBLEM %7,PV:8,0:9,0:50004"###### "F7,ML:"## ";\5500:8,0:9,0:u4 SELECT A PROBLEM >AR(MAX):BR(MAX):CR(MAX)RTYPE5T((1)4)1\T2150,2160,2170,2180fCAB:pABC:zCAB:B0BR(1 FAST CHARS,A"L2-#&(4)"BLOAD CHARS 12X14"D#&(4)"BLOAD SOUND"J#&A"$""% GET Y OR N RESPONSE 0"!%7,(7)5G"&%"Press Y or N: ";O"0%A$i":%A$"Y"A$"N"9520o"D%"& CHECK FOR CHARACTER GENERATOR & SOUND "&(L1)56(L2)56(773)173(L28001)207ı"&"LOADING CHARACTER FILES."#&(4)"BLOADSWITCH TO SMALL CHARACTERS /252,T3:253,T5I25,H1:27,W1:206,N1V30,B1:lX SHOW MISTAKES xbNW0ılL$"Do you want to get"v"more points by fixing""your mistakes?"9500:A$"N"ıFIX1:L$;:1550N1NWT DIGIT OF RESPONSE9RCİ2500:4090: CORRECT ANSWERKR0C04080}R(C10)R(C100)4040: SO FAR, SO GOOD2600: WRONG ANSWER SWITCH TO BIG CHARACTERS 252,T4:253,T625,H2:27,W2:206,N230,B2:| ."; r A$#| FIXNWNR102990/ NWNW1W WA(NWNR)A:WB(NWNR)B:WC(NWNR)Cy WT(NWNR)T:WP(NWNR)PROBLEM NC0  DO ONE PROBLEM 2000: ERASE PREVIOUS2100: PICK A PROBLEM2300: PRINT A PROBLEM2400: GE1  TIMENT% 7,0:8,TP:TIME" "> 768,35:769,10:770O" WT200:1700j, 5000:7,PV:8,HH:9,0v6 "## "@ WT200:1700J 7,PV:8,HH:9,0T 768,10:769,5:770:C^ 7,ML:"######";: ERASE MESSAGEh 5500:8,0:9,0:"Press any key4)"BLOAD SOUND"#&"Press Y or N: ";"0%A$4":%A$"Y"A$"N"9520:"D%h"& CHECK FOR CHARACTER GENERATOR & SOUND "&(L1)56(L2)56(773)173(L28001)207ı"&"LOADING CHARACTER FILES.""&(4)"BLOAD FAST CHARS,A"L2"&(4)"BLOAD CHARS 12X14"#&(!h$L$"It was fun playing"7!r$"with your team today."[!|$:"Let's play again sometime."w!$:"Would another team"!$"like to play Team"!$"Fast Facts?"!$9500!$A$"N"ĺ:(4)"RUN MENU"!$!% GET Y OR N RESPONSE !!%7,(7)5"&%?  2#' 7#"Does the same team want"> <#"more "WRD$(TYPE)O F#"problems?"[ P#9500: # DOES USER WANT DIFFERENT PROBLEMS? #L$"Would the same team like" #"to try a different kind" "$"of problem?" ,$9500: T$ ANOTHER PLAYER? rfect score!"!I151!768,14:769,12:770@!J150:JG!IM!k!5000:"FANTASTIC,":5500"LASTTIME:BESTTIME""A perfect score!""I110$"768,14:769,12:770."J150:J8"IB" (# DOES USER WANT SAME PROBLEMS00 "Good work!"< "I bet you can do":"even better."B V4!TIME9508600s>!"Excellent! Your team"H!"should try for "5(TIME5)5"."R!!TIME10008700!5000:"FANTASTIC,":5500!"Your team came very" !"near to a pe"You can improve your":"score if you practice."@T TIME7008300l "This is not bad." "Keep practicing!"& l TIME8008400v "Nice job, team," "and I know you can" "still improve it."  TIME900851TIME9508095%^TIMEBEST8080:hTIMELAST8100Wr"Congratulations--Your"w|"team improved its score!"8100"Right on, team!""A new high score!"TIMEBESTBESTTIMELASTTIME7,(7)5TIME6008200 TO BIG CHARACTERS '252,T4:253,T6A25,H2:27,W2:206,N2N30,B2:q| SWITCH TO SMALL CHARACTERS 252,T3:253,T525,H1:27,W1:206,N130,B1:@ PRINT FINAL MESSAGE E"Your final score: ";TIMEG7,(7)5JLASTRASE PREVIOUS(2100: PICK A PROBLEMD2300: PRINT A PROBLEMj2400: GET ONE DIGIT OF RESPONSERCİ2500:4090: CORRECT ANSWERR0C04080R(C10)R(C100)4040: SO FAR, SO GOOD2600: WRONG ANSWER SWITCHX ERROR  TIMENT, 7,0:8,TP:TIME" "E 768,35:769,10:770U WT50:1700p" 5000:7,PV:8,HH:9,0z, "##"6 WT50:1700@ 7,PV:8,HH:9,0J 768,10:769,5:770O C:5500T WT400:1700^  DO ONE PROBLEM 2000: EX;:5500 H(8)" R10RX:< ANSWER IS CORRECT X 7,ML:8,0:9,0:"Yes!"q 768,14:769,12:770w ( ANSWER IS WRONG 2 7,ML:8,0:9,0< "Sorry."F 2800 TOO SLOW  7,ML:8,0:9,0:"Too slow!" RECORD & FIr"Congratulations--You"=|"improved your last score!"G8100X"Right on-"q"A new high score!"BESTTIMELASTTIME7,(7)5TIME6008200"You can improve your""score if you practice." TIME70087,0:8,TP:TIME" ";:7220, R0C07200KR(C10)R(C100)7160] NTTIME:2600e4PRq>FIX0:@ SHOW FINAL MESSAGE EL$"Your final score: ";TIMEG7,(7)5JTIME1000LAST18095^TIMEBEST8080hTIMELAST8100"N"ıFIX1:L$;:1580:PR1100:P(PR1)17220D2000iA(P(PR1)100):BP(PR1)100AT7110,7120,7130,7140CAB:7150CAB:7150CAB:7150CAB2300:R02400: GET A DIGITRCİ2500:TIMETIME2:"score will be "2TIME1000" points."N7,159:"Press any key to begin"g"the second half.";oA$uX SHOW MISTAKES bNW0ılL$;N$", do"v"you want to get more""points by fixing your""mistakes?"9500:A$7,W2:206,N230,B2:<| SWITCH TO SMALL CHARACTERS P252,T3:253,T5j25,H1:27,W1:206,N1w30,B1:p HALF-TIME MESSAGE zL$" HALF-TIME":"Your score so far is"TIME" points.":"At this rate, your final")PRINT A PROBLEM52400: GET ONE DIGIT OF RESPONSE[RCİ2500:4090: CORRECT ANSWERmR0C04080R(C10)R(C100)4040: SO FAR, SO GOOD2600: WRONG ANSWER SWITCH TO BIG CHARACTERS 252,T4:253,T6 25,H2:2770 WT50:1700." 5000:7,PV:8,HH:9,0=, " "M6 WT50:1700b@ 7,PV:8,HH:9,0zJ 768,10:769,5:770O C:5500T WT400:1700^ NWNW1: DO ONE PROBLEM 2000: ERASE PREVIOUS2100: PICK A PROBLEM2300: 7707 P(PROBLEM1)1: CODE ARRAY FOR CORRECT ANSWER= U( ANSWER IS WRONG i2 7,ML:8,0:9,0w< "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:2"&(4)"BLOAD CHARS 12X14"5"&(4)"BLOAD SOUND";"&s2X14"\"&(4)"BLOAD SOUND"b"&OAD SOUND"u"&A$!% GET Y OR N RESPONSE 8!&%:"Press Y or N: ";@!0%A$Z!:%A$"Y"A$"N"9520`!D%!& CHECK FOR CHARACTER GENERATOR & SOUND !&(L1)56(L2)56(773)173(L28001)207ı!&"LOADING CHARACTER FILES.""&(4)"BLOAD FAST CHARS,A"Ld of problem?" ,$9500:2 T$ ANOTHER PLAYER? N ^$L$"It was fun playing"e r$"with you today." |$:"Let's play again sometime." $:"Would someone else" $"like to play Beginner" $"Fast Facts?" $9500 $A$"N"ĺ:(4)"RUN MENU"!10$"768,14:769,12:770*."J150:J18"I7B"\(# DOES USER WANT SAME PROBLEMS?b2#z<#"Do you want more"F#WRD$(TYPE)" problems?"P#9500:# DOES USER WANT DIFFERENT PROBLEMS?$$L$"Do you want to try" "$"another kin00>!"Very good!")H!"Try for a 95."/R!B!TIME1008700P!"Super!"o!"Almost a perfect score."z!I13!768,14:769,12:770!J150:J!I!! PERFECT"5000:"FANTASTIC,":5500":"A perfect score!""I1trying."""You can do better."(; TIME708300N "This is OK."b "Keep trying!"h& {l TIME808400v "Nice work." "You can do even better."  TIME908500 "Good job!" "Keep it up!" 4!TIME9586ESSAGE AT END #EL$"Score: "TIME>JTIME100LAST18095R^TIMEBEST8080ghTIMELAST8100}r"You did better"|"than last time!"8100"This is your best so far!"BESTTIMELASTTIMETIME608200"Keep 2000*AWA(N):BWB(N):CWC(N):TWT(N)DTWT(N):PROBLEMWP(N)N2300f2400: GET A DIGITRCİ2100:TIMETIME2:7,0:8,TP:TIME" ";:7170R0C07160R(C10)R(C100)7120NTTIME:2300N FIX0:@ GIVE M<ppppp0p8p q1988p8p8888w?v><8pp8p88pp<88<ppp888pppp8p8p88888<<8888#$"like to play Marathon"Q#$"Fast Facts?"[#$9500y#$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 CHARAC#9500:3"# DOES USER WANT DIFFERENT PROBLEMS? G"$L$;N$", would"f"$"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 sometE:BESTTIME)!"5000:"FANTASTIC,":5500!"Excellent, "N$"."? H!"You should try for a 950."E R!Y !TIME10008700n !"Superb, "N$"!" !"You came very close to" !"a perfect score." !I13 !768,14:769,12:770 !J150:J !I ! ! PERFECT !!LASTTIM300 "This is not bad."3 "Keep practicing!"9& Ml TIME8008400dv "Nice job, "N$","~ "and I know you can" "still improve it."  TIME9008500 "Good, "N$"!" "I bet you can do":"even better."  4!TIME95SWITCH TO SMALL CHARACTERS /252,T3:253,T5I25,H1:27,W1:206,N1V30,B1:lX SHOW MISTAKES xbNW0ılL$"Do you want to get"v"more points by fixing""your mistakes?"9500:A$"N"ıFIX1:L$;:1550N1NWT DIGIT OF RESPONSE9RCİ2500:4090: CORRECT ANSWERKR0C04080}R(C10)R(C100)4040: SO FAR, SO GOOD2600: WRONG ANSWER SWITCH TO BIG CHARACTERS 252,T4:253,T625,H2:27,W2:206,N230,B2:| T?ppx88 ?ppp888???<<<<8888888 ?|<<<<<<<<<<<<p8|<<>?sqpp8<<<<<<<<<<<<<<<<????<<<<<<??????<<<<??????????<<<<<<<<< ?CAB:2210LCA:ABCgP(PROBLEM1)100AB: PRINT A PROBLEM  7,16:8,PP:PROBLEM 7,PV 5000$ KS,0. A" "SIGN$(T)" "B" = ";8 H(8):HHHB 5500L TTSS:NTTIME1###"7,ML:"## ";,5500:8,0:9,0:E4 SELECT A PROBLEM >IR(101PROBLEM)PROBLEM1: GIVES RANDOM # FROM PROBLEM-1 TO 99HA(P(I)10):BP(I)10ARA0A10\A10B0ĭ(1).5CA:AB:BCfP(I)P(PROBLEM1) pT2170,2180IWT I:;l USE PROPER UPPER & LOWER CASE IN NAME Jq(N$)2ıYvN2(N$)lA((N$,N,1))A65A90(N$,N1,1)" "1950N$(N$,1,N1)(A32)(N$,N1,(N$)N)N: ERASE PROBLEM 7,PV:8,0:9,0:5000"###I099:P(I)I:I!TIME1000D,7,0:"Score: ";:TP(8):TIMEd67,16:"Problem: ";:PP(8)@BEST1Ĺ7,0:8,180:"Best: "BESTJLAST1Ĺ7,16:8,180:"Last: "LASTT DELAY (TERMINATED BY KEYPRESS) I1WT:(KB)127ĹKS,0:CODE$(T);:8,40:"for "WRD$(T)(T@:"Your choice? ";WX$:X$PL$X$"+"eTYPE14X$CODE$(TYPE)TTYPE:TYPE768,10:769,10:770:1455 SET UP A ROUND OF PROBLEMS NW0L$:7,PV:WRD$(TYPE)" Problems."uracy on"""100 number facts."E ::"Press any key to go on."WWT2000:1700]xx INTRODUCE THE GAME NW0: NW IS # WRONG ON THIS ROUNDLAST1:BEST1L$"What kind of problem do""you want? Type:"T14!151260N$(N$,14)2"That's too long to"R"remember. I'll call you"]N$"."oWT1000:1700A((78)256(79)): SEED THE RANDOM NUMBERSL$"Let's play a game,"N$".":"This game will test your" "speed and acc64435)6PL$"=": ALTERNATE KEY FOR + IS = ON //EIoSS(SEC1.2).375Oti GET PLAYER'S NAME L$"Hello. I am the Apple ][""Computer. You can call""me 'Apple' for short.":"What's your name?"N$1900(N$), CA 94702";!QLAST1:BEST1JVI14:SIGN$(I),WRD$(I),CODE$(I):I[ "+","Addition","+","'","Subtraction","-","X","Multiplication","X","/","Division","/"`PV75:ML150: VERTICAL LOCS FOR PROBLEM & MESSAGEeWT500:17003jPL$";":(4)"BLOAD SOUND"#&OVER+  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 * * * ***************************                 TIME908500# "Good, "N$"!"K "I bet you can do":"even better."Q d4!TIME958600|>!"Excellent, "N$"."H!"You should try for a 95."R!!TIME1008700!"Superb, "N$"!"!"You came very close to" !"a perfect score."& SOUND ;$&(L1)56(L2)56(773)173(L28001)207ı[$&"LOADING CHARACTER FILES."{$&(4)"BLOAD FAST CHARS,A"L2$&(4)"BLOAD CHARS 12X14"$&(4)"BLOAD SOUND"$&AWould someone else"0#$"like to play Marathon"C#$"Fast Facts?"M#$9500k#$A$"N"ĺ:(4)"RUN MENU"q#$#% GET Y OR N RESPONSE #!%7,(7)5#&%"Press Y or N: ";#0%A$#:%A$"Y"A$"N"9520#D%$& CHECK FOR CHARACTER GENERATOR DOES USER WANT DIFFERENT PROBLEMS? 9"$L$;N$", would"X"$"you like to try another"p""$"kind of problem?"|",$9500:"T$ ANOTHER PLAYER? "^$L$;N$", it""h$"was fun playing""r$"with you today.""|$:"Let's play again sometime."#$:""5000:"FANTASTIC,":5500.!"N$", you got"F!""a perfect score!"R!"I110k!$"768,14:769,12:770z!."J150:J!8"I!B"!(# DOES USER WANT SAME PROBLEMS? !2#!<#N$", do":"you want more"!F#WRD$(TYPE)" problems?"!P#9500:%"#xcellent, "N$"."1 H!"You should try for a 950."7 R!K !TIME10008700` !"Superb, "N$"!"~ !"You came very close to" !"a perfect score." !I13 !768,14:769,12:770 !J150:J !I ! ! PERFECT !LASTTIME:BESTTIME! is not bad."% "Keep practicing!"+& ?l TIME8008400Vv "Nice job, "N$","p "and I know you can" "still improve it."  TIME9008500 "Good, "N$"!" "I bet you can do":"even better." 4!TIME9508600 >!"Eulations--You"/|"improved your last score!"98100J"Right on-"c"A new high score!"qBESTTIMELASTTIME7,(7)5TIME6008200"You can improve your""score if you practice." TIME7008300  "ThisT3MA:ABMB:2535' MB:CBMC8 WT200:1700t RAISE THE MAXIMUM ONLY IF AT LEAST 2 IN A ROW CORRECT AND THE LARGER OF THE TWO #S DETERMINING THE PROBLEM IS AT LEAST MM - 1. (MM IS THE LARGEST # USED.) NCNC1:NC2MMM10NP)V R0:1` GET ONE DIGIT OF RESPONSE Ej 20: GET A KEYTt 7,PV:8,Hh~ 5000:X;:5500s H(8) R10RX: ANSWER IS CORRECT  7,PV:8,H:9,0 5000:" "(64):5500 7,ML:"Yes!" 768,14:769,12:770 T1(I1):WT(I)WT(I1)I<(T1T3)(AMMBMM)2100^(T2T4)(BMMCMM)2100d| PRINT A PROBLEM  7,16:8,PP:PROBLEM KS,0 7,PV$ 5000. A" "SIGN$(T)" "B" = ";8 5500B H(8):HHHL TTSS:NTTIME(10AR(MM):BR(MM):CR(MM)5RTYPE5T((1)4)1P\T2150,2160,2170,2180\fCAB:hpABC:tzCAB:B0BR(MM):2180ABC:AWA(1):BWB(1):CWC(1):TWT(1)NRNR1I1NRNWWA(I)WA(I1):WB(I)WB(I1):WC(I)WCME" ";:7220 R0C07200=R(C10)R(C100)7160O NTTIME:2600W4PRc>FIX0:~@ SHOW FINAL MESSAGE EL$"Your final score: ";TIMEG7,(7)5JTIME1000LAST18095^TIMEBEST8080hTIMELAST8100r"Congrat1:L$;:1580,PR1100:P(PR1)1722062000[A(P(PR1)100):BP(PR1)100AvT7110,7120,7130,7140CAB:7150CAB:7150CAB:7150CAB2300:R02400: GET A DIGIT RCİ2500:TIMETIME2:7,0:8,TP:TIl be "2TIME1000" points."@7,159:"Press any key to begin"Y"the second half.";aA$g}X SHOW MISTAKES bNW0ılL$;N$", do"v"you want to get more""points by fixing your""mistakes?"9500:A$"N"ı FIX30,B2:.| SWITCH TO SMALL CHARACTERS B252,T3:253,T5\25,H1:27,W1:206,N1i30,B1:p HALF-TIME MESSAGE zL$" HALF-TIME":"Your score so far is"TIME" points.":"At this rate, your final""score wilM'2400: GET ONE DIGIT OF RESPONSEMRCİ2500:4090: CORRECT ANSWER_R0C04080R(C10)R(C100)4040: SO FAR, SO GOOD2600: WRONG ANSWER SWITCH TO BIG CHARACTERS 252,T4:253,T625,H2:27,W2:206,N2 1700 " 5000:7,PV:8,HH:9,0/, " "?6 WT50:1700T@ 7,PV:8,HH:9,0lJ 768,10:769,5:770yO C:5500T WT400:1700^ NWNW1: DO ONE PROBLEM 2000: ERASE PREVIOUS2100: PICK A PROBLEM2300: PRINT A PROBLELEM1)1: CODE ARRAY FOR CORRECT ANSWER/ G( ANSWER IS WRONG [2 7,ML:8,0:9,0i< "Sorry."sF 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:(8):HHHB 5500'L TTSS:NTTIME101V R0:Q` GET ONE DIGIT OF ANSWER ej 20: GET A KEYtt 7,PV:8,H~ 5000:X;:5500 H(8) R10RX  ANSWER IS CORRECT  7,ML:8,0:9,0:"Yes!" 768,14:769,12:770) P(PROBfP(I)P(PROBLEM1)0pT2170,2180,2190,2200@zCAB:2210TCA:ABC:2210dCAB:2210rCA:ABCP(PROBLEM1)100AB: PRINT A PROBLEM  7,16:8,PP:PROBLEM 7,PV 5000$ KS,0. A" "SIGN$(T)" "B" = ";8 HM 7,PV:8,0:9,0:5000*"######"<7,ML:"## ";R5500:8,0:9,0:k4 SELECT A PROBLEM >IR(101PROBLEM)PROBLEM1: GIVES RANDOM # FROM PROBLEM-1 TO 99HA(P(I)10):BP(I)10ARA0A10\A10B0ĭ(1).5CA:AB:BC DELAY (TERMINATED BY KEYPRESS) FI1WT:(KB)127ĹKS,0:IWTOI:e ERASE PROBLEM 7,PV:8,0:9,0:5000"###### "7,ML:"####";5500:8,0:9,0:4 SELECT A PROBLEM >NR02200: NR IS # OF PROBS TO REPEATHD OF PROBLEMS NRNW:NW0CL$:7,PV:WRD$(TYPE)" Problems."TWT100:1700aTIME1007,0:"Score: ";:TP(8):TIME7,16:C$"Problem: ";:PP(8)"BEST1Ĺ7,0:8,180:"Best: "BEST,LAST1Ĺ7,16:8,180:"Last: "LAST6$:8,50:"for "WRD$(T)T97,176:"Your choice? ";PX$:X$PL$X$"+"A((78)256(79)): SEED THE RANDOM NUMBERSX$PL$X$"+"TYPE15X$CODE$(TYPE)TTYPE:TYPE768,10:769,10:770:1445 SET UP A ROUNERNATE KEY FOR + IS = ON //E3~SS(SEC1.35).3709Tx INTRODUCE THE GAME }NR0: NR IS # TO REPEAT FROM PREVIOUS ROUNDNW0: NW IS # WRONG ON THIS ROUNDLAST1:BEST1MMMAXL$"Press:"T157,(7)10:CODE$(T);T1:BEST15 VI15:SIGN$(I),WRD$(I),CODE$(I):I ` "+","Addition","+","'","Subtraction","-","X","Multiplication","X","/","Division","/","A","Assorted","A" jPV75:ML150: VERTICAL LOCS FOR PROBLEM & MESSAGEtPL$";":(64435)6PL$"=": ALT265 9900::L13+ H1(25):W1(27)B B1(30):N1(206)k T1L11577:T5(T1256):T3T1256T5 $H2(L2110):W2(L2118) .B2(L2114):N2((H2W27)8)1 8T2L21577:T6(T2256):T4T2256T6 BKB16384:KS16368:L$(12) LLASLEM1NP! 4000: DO A PROBLEM1 "PROBLEM: K 7000: FIX MISTAKES?e 8000: FINAL MESSAGE 9000:A$"Y"160: SAME PROBLEMS AGAIN 9200:A$"Y"150: DIFFERENT PROBLEMS 9300::140: START OVER  INITIALIZE  L124576:L228 STARTS HERE K nSEC30: SEC CONTROLS THE TIMING--30 SECONDS PER PROBLEM r xMAX10: MAX # TO USE IN PROBLEMS NP5: 5 PROBLEMS PER ROUND 1000: INITIALIZE 1400: INTRODUCTION & CHOOSE TYPE OF PROBLEM 1500: SET UP SCREEN  PROB 55*  TIMED STROBE FOR DIGIT 0-9 F X(KB)128:X0ĹKS,0c XX48:TTTT1:TT025s X0X921y  TTSSTT:FIX23 TIMETIME1:7,0:8,TP:TIME" " TIMENTİ2700::: 23 7R(A)((1)A.5) d MAIN PROGRAM< 9/25/83 VERSION8 (C) 1983 BY SCOTT STEKETEES ALL RIGHTS RESERVED.v *************************** * * * BEGINNER FAST FACTS * * * ***************************%&"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!"8100RCCİ2500:4090: CORRECT ANSWER6R0CC04080iR(CC10)R(CC100)4040: SO FAR, SO GOOD2600: WRONG ANSWER SWITCH TO BIG CHARACTERS 252,T4:253,T625,H2:27,W2:206,N230,B2:| SWITCH TO SMALL CHAR                   " ";:(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:YPRESS) *I1WT:(KB)127ĹKS,0:IWT3I:al USE PROPER UPPER & LOWER CASE IN NAME pq(N$)2ıvN2(N$)A((N$,N,1))A65A90(N$,N1,1)" "1950N$(N$,1,N1)(A32)(N$,N1,(N$)N)N: ERASE PROBLEL$:7,PV:WRD$(TYPE)" Problems."9I099:P(I)I:IGTIME1000j,7,0:"Score: ";:TP(8):TIME67,16:"Problem: ";:PP(8)@BEST1Ĺ7,0:8,180:"Best: "BESTJLAST1Ĺ7,16:8,180:"Last: "LASTT DELAY (TERMINATED BY KE14(CODE$(T);:8,40:"for "WRD$(T)/TG:"Your choice? ";^X$:X$PL$X$"+"lTYPE14X$CODE$(TYPE)TTYPE:TYPE768,10:769,10:770:1455 SET UP A ROUND OF PROBLEMS NW0: NW IS # WRONG ON THIS ROUND#"This game will test your"7"speed and accuracy on"P"100 number facts."s ::"Press any key to go on."WT2000:1700x INTRODUCE THE GAME LAST1:BEST1L$"What kind of problem do""you want? Type:"That's your name?"N$#19006(N$)151260FN$(N$,14)`"That's too long to""remember. I'll call you"N$"."WT1000:1700A((78)256(79)): SEED THE RANDOM NUMBERSL$"Let's play a game,"N$".":CAL LOCS FOR PROBLEM & MESSAGEajPL$";":(64435)6PL$"=": ALTERNATE KEY FOR + IS = ON //EwoSS(SEC1.2).375}t GET PLAYER'S NAME L$"Hello. I am the Apple ][""Computer. You can call""me 'Apple' for short.":"W1+ T2L21577:T6(T2256):T4T2256T6L KB16384:KS16368:L$(12)` QLAST1:BEST1 VI14:SIGN$(I),WRD$(I),CODE$(I):I [ "+","Addition","+","'","Subtraction","-","X","Multiplication","X","/","Division","/"`PV75:ML150: VERTIFFERENT PROBLEMS. 9300::130: START OVERA  INITIALIZE W L124576:L228265i 9900::L13 H1(25):W1(27) B1(30):N1(206) T1L11577:T5(T1256):T3T1256T5 H2(L2110):W2(L2118) B2(L2114):N2((H2W27)8)PROBLEM: ( ,6000: HALF-TIME MESSAGEH 6L$;:1580: SET UP SCREEN \ PROBLEM51100u 4000: DO A PROBLEM PROBLEM: 7000: FIX MISTAKES? 8000: FINAL MESSAGE 9000:A$"Y"160: SAME PROBLEMS AGAIN 9200:A$"Y"150: DI PROGRAM - nSEC10: 10 SECONDS PER PROBLEMV x MAX # IS ALWAYS 10 IN THIS PROGRAMm 1000: INITIALIZE 1200: GET NAME 1400: INTRODUCTION & CHOOSE TYPE OF PROBLEM 1500: SET UP SCREEN PROBLEM150 4000: DO A PROBLEM  55*  TIMED STROBE FOR DIGIT 0-9 F X(KB)128:X0ĹKS,0c XX48:TTTT1:TT025s X0X921y  TTSSTT:FIX23 TIMETIME1:7,0:8,TP:TIME" " TIMENTİ2700::: 23 7R(A)((1)A) FP(99) d MAIN 9/25/83 VERSION8 (C) 1983 BY SCOTT STEKETEES ALL RIGHTS RESERVED.v *************************** * * * MARATHON FAST FACTS * * * ***************************              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"Press Y or N: ";"0%A$4":%A$"Y"A$"N"9520:"D%h"& CHECK FOR CHARACTER GENERATOR & SOUND "&(L1)56(L2)56(773)173(L28001)207ı"&"LOADING CHARACTER FILES.""&(4)"BLOAD FAST CHARS,A"L2"&(4)"BLOAD CHARS 12X14"#&(!h$L$"It was fun playing"7!r$"with your team today."[!|$:"Let's play again sometime."w!$:"Would another team"!$"like to play Team"!$"Fast Facts?"!$9500!$A$"N"ĺ:(4)"RUN MENU"!$!% GET Y OR N RESPONSE !!%7,(7)5"&%?  2#' 7#"Does the same team want"> <#"more "WRD$(TYPE)O F#"problems?"[ P#9500: # DOES USER WANT DIFFERENT PROBLEMS? #L$"Would the same team like" #"to try a different kind" "$"of problem?" ,$9500: T$ ANOTHER PLAYER? T?ppx88 ?ppp888???<<<<8888888 ?|<<<<<<<<<<<<p8|<<>?sqpp8<<<<<<<<<<<<<<<<????<<<<<<??????<<<<??????????<<<<<<<<< ?!"Excellent! Your team"H!"should try for "5(TIME5)5"."R!!TIME10008700!5000:"FANTASTIC,":5500!"Your team came very" !"near to a pe"You can improve your":"score if you practice."@T TIME7008300l "This is not bad." "Keep practicing!"& l TIME8008400v "Nice job, team," "and I know you can" "still improve it."  TIME900851TIME9508095%^TIMEBEST8080:hTIMELAST8100Wr"Congratulations--Your"w|"team improved its score!"8100"Right on, team!""A new high score!"TIMEBESTBESTTIMELASTTIME7,(7)5TIME6008200 TO BIG CHARACTERS '252,T4:253,T6A25,H2:27,W2:206,N2N30,B2:q| SWITCH TO SMALL CHARACTERS 252,T3:253,T525,H1:27,W1:206,N130,B1:@ PRINT FINAL MESSAGE E"Your final score: ";TIMEG7,(7)5JLASTRASE PREVIOUS(2100: PICK A PROBLEMD2300: PRINT A PROBLEMj2400: GET ONE DIGIT OF RESPONSERCİ2500:4090: CORRECT ANSWERR0C04080R(C10)R(C100)4040: SO FAR, SO GOOD2600: WRONG ANSWER SWITCHX ERROR  TIMENT, 7,0:8,TP:TIME" "E 768,35:769,10:770U WT50:1700p" 5000:7,PV:8,HH:9,0z, "##"6 WT50:1700@ 7,PV:8,HH:9,0J 768,10:769,5:770O C:5500T WT400:1700^  DO ONE PROBLEM 2000: EX;:5500 H(8)" R10RX:< ANSWER IS CORRECT X 7,ML:8,0:9,0:"Yes!"q 768,14:769,12:770w ( ANSWER IS WRONG 2 7,ML:8,0:9,0< "Sorry."F 2800 TOO SLOW  7,ML:8,0:9,0:"Too slow!" RECORD & FI(10):2170ABC:. PRINT A PROBLEM G 7,16:8,PP:PROBLEMQ KS,0[ 5000}$ 7,PV:A" "SIGN$(T)" "B" = ";. 55008 H(8):HHHB TTSS:NTTIME(100NP)L R0:` GET A DIGITj 20: GET A KEYt 7,PV:8,H~ 5000:RASE PROBLEM '7,PV:8,0:9,0:50006"###### "H7,ML:"## ";^5500:8,0:9,0:w4 SELECT A PROBLEM >AR(MAX):BR(MAX):CR(MAX)HTYPE5T((1)4)1RT2140,2150,2160,2170\CAB:fABC:pCAB: zB0BRNATED BY KEYPRESS) 5I1WT:(KB)127ĹKS,0:IWT>I:ll 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:  EJ:"Your turn,"&TN$(PLAYER)"."M^7,170:"Press any key to start.";[hKS,0:A${rL$"Score: ";:TP(8):TIME|"Problem: ";:PP(8)BEST1Ĺ7,0:8,180:"Best: "BESTLAST1Ĺ7,16:8,180:"Last: "LAST DELAY (TERMIWRD$(T)T&:"Your choice? ";=X$:X$PL$X$"+"KTYPE15hX$CODE$(TYPE)TTYPE:rTYPE768,10:769,10:770:1450 SET UP A ROUND OF PROBLEMS L$;WRD$(TYPE)" Problems."TIME1000@ CALL FOR PLAYER .")<7,170:"Press any key to go on.";1AA$7F[K802:768,10:769,10:770:1295vx INTRODUCE THE GAME }LAST1:BEST1L$"What kind of problems""does your team want?""Type:"T15CODE$(T);:8,40:"for "(NN)I$NN-216,0: RESET ERROR FLAGOSS(SEC(100NP).120).0375#A((78)256(79)): SEED THE RANDOM NUMBERS(L$"You will have "SEC" seconds"-"to do each problem."2:"Each problem will be"7"worth "(100NP)" points type a number"("from 2 to "MP": ";0NPGNP2NPMP1270Q1265i802: ERROR PATCHL$;:768,10:769,10:770:12251355L$"Please type the names""of the contestants.":NN1NP NN;:". ";I$1900:N$z#?ԮʰԠˠ֮֠ʰ ٮԠ ήԠ׮ԠԮԠЮԠŠήԠԠ îԠîԠˮԠ Ԡ ҮԠ ŮԠ ϮԠ ֠ ֮ʰ ֲֲʰǠ Ǯʰ Ǡˠ ΠҠӠŮĠ Բ Ԡ" ̱ʰ ̱"̱ʰ  Ҡՠ ӠرϠԠӠĠ ՠ ҠԠӠ ͠ҠӠ ӠرĠҠԠӠ ΠԠӠϠҠӠԠӠ!(ҠԠӠՠϠԠӠΠԠӠ͠ԠӠҠԠӠΠԠӠԠӠ( DI1NP)IT(O(I));:8,40:N$(O(I))0NI<S8900:jl USE PROPER UPPER & LOWER CASE IN NAME yq(I$)2ıvN2(I$)A((I$,N,1))A65A90(I$,N1,1)" "1950I$(I$,1,N1)(A32)(I$,N1,(I$)N)N:  ERARMINATED BY KEYPRESS) 8I1WT:(KB)127ĹKS,0:IWTAI:X SHOW STANDINGS nI1NP:O(I)I:I|I1NP1!LARGESTI&JI1NP+T(O(J))T(O(LARGEST))LARGESTJ0J5TEMPO(I):O(I)O(LARGEST):O(LARGEST)TEMP:I?7,ML:"## ";#5500:8,0:9,0:<4 SELECT A PROBLEM h>NR02200: NR IS # OF PROBS TO REPEATHAR(MAX):BR(MAX):CR(MAX)RTYPE5T((1)4)1\T2150,2160,2170,2180fCAB:pABC:zCAB:B0BR(10):2180I:1l USE PROPER UPPER & LOWER CASE IN NAME @q(N$)2ıOvN2(N$)bA((N$,N,1))A65A90(N$,N1,1)" "1950N$(N$,1,N1)(A32)(N$,N1,(N$)N)N: ERASE PROBLEM 7,PV:8,0:9,0:5000"###### " 00:1700TIME1008,7,0:"Score: ";:TP(8):TIMEZ67,16:C$"Problem: ";:PP(8)@BEST1Ĺ7,0:8,180:"Best: "BESTJLAST1Ĺ7,16:8,180:"Last: "LASTT DELAY (TERMINATED BY KEYPRESS) I1WT:(KB)127ĹKS,0:IWT:8,40:"for "WRD$(T)T4:"Your choice? ";KX$:X$PL$X$"+"YTYPE15vX$CODE$(TYPE)TTYPE:TYPE768,10:769,10:770:1455 SET UP A ROUND OF PROBLEMS NRNW:NW0L$:7,PV:WRD$(TYPE)" Problems."WT1 go on."WT2000:1700 ;x INTRODUCE THE GAME l}NR0: NR IS # TO REPEAT FROM PREVIOUS ROUNDNW0: NW IS # WRONG ON THIS ROUNDLAST1:BEST1L$"What kind of problem do""you want? Type:"T15CODE$(T);I'll call you"N$"."+WT1000:1700_A((78)256(79)): SEED THE RANDOM NUMBERS{L$"Let's play a game,"N$".":"This game will test your""speed and accuracy on""arithmetic number facts." ::"Press any key to.370 % GET PLAYER'S NAME HL$"Hello. I am the Apple ]["g"Computer. You can call""me 'Apple' for short.":"What's your name?"N$1900(N$)151260N$(N$,14)"That's too long to""remember. :Iq ` "+","Addition","+","'","Subtraction","-","X","Multiplication","X","/","Division","/","A","Assorted","A" jPV75:ML150: VERTICAL LOCS FOR PROBLEM & MESSAGE tPL$";":(64435)6PL$"=": ALTERNATE KEY FOR + IS = ON //E~SS(SEC1.35)(30):N1(206)9 T1L11577:T5(T1256):T3T1256T5W $H2(L2110):W2(L2118)| .B2(L2114):N2((H2W27)8)1 8T2L21577:T6(T2256):T4T2256T6 BKB16384:KS16368:L$(12) LLAST1:BEST1 VI15:SIGN$(I),WRD$(I),CODE$(I) 7000: FIX MISTAKES?3 8000: FINAL MESSAGE_ 9000:A$"Y"160: SAME PROBLEMS AGAIN 9200:A$"Y"150: DIFFERENT PROBLEMS 9300::130: START OVER  INITIALIZE L124576:L228265 9900::L13 H1(25):W1(27) B1 $ nSEC5: 10 SECONDS PER PROBLEMJ xMAX10: MAX # TO USE IN PROBLEMSa 1000: INITIALIZEw 1200: GET NAME 1400: INTRODUCTION & CHOOSE TYPE OF PROBLEM 1500: SET UP SCREEN PROBLEM110 4000: DO A PROBLEM "PROBLEM:  55*  TIMED STROBE FOR DIGIT 0-9 F X(KB)128:X0ĹKS,0c XX48:TTTT1:TT025s X0X921y  TTSSTT:FIX23 TIMETIME1:7,0:8,TP:TIME" " TIMENTİ2700::: 23 7R(A)((1)A.5) d MAIN PROGRAMK 9/25/83 VERSION8 (C) 1983 BY SCOTT STEKETEES ALL RIGHTS RESERVED.v *************************** * * * REGULAR FAST FACTS * * * ***************************          DI1NP)IT(O(I));:8,40:N$(O(I))0NI<S8900:jl USE PROPER UPPER & LOWER CASE IN NAME yq(I$)2ıvN2(I$)A((I$,N,1))A65A90(I$,N1,1)" "1950I$(I$,1,N1)(A32)(I$,N1,(I$)N)N:  ERARMINATED BY KEYPRESS) 8I1WT:(KB)127ĹKS,0:IWTAI:X SHOW STANDINGS nI1NP:O(I)I:I|I1NP1!LARGESTI&JI1NP+T(O(J))T(O(LARGEST))LARGESTJ0J5TEMPO(I):O(I)O(LARGEST):O(LARGEST)TEMP:I?R J:"Your turn,")TN$(PLAYER)"."P^7,170:"Press any key to start.";^hKS,0:A$~rL$"Score: ";:TP(8):TIME|"Problem: ";:PP(8)BEST1Ĺ7,0:8,180:"Best: "BESTLAST1Ĺ7,16:8,180:"Last: "LAST DELAY (TEor "WRD$(T)T*:"Your choice? ";AX$:X$PL$X$"+"OTYPE15lX$CODE$(TYPE)TTYPE:vTYPE768,10:769,10:770:1460 SET UP A ROUND OF PROBLEMS L$;WRD$(TYPE)" Problems."TIME100@ CALL FOR PLAYEEED THE RANDOM NUMBERSn@s802:768,10:769,10:770:1355[x INTRODUCE THE GAME l}PLAYER1MPL(PLAYER)1:B(PLAYER)1PLAYERL$"What kind of problems""do you want?""Type:"T15 CODE$(T);:8,40:"f 1305"802: ERROR PATCHFL$;:768,10:769,10:770:1240Q1395p(L$"Please type the names"2"of the players.":<NN1NPFNN;:". ";I$K1900:N$(NN)I$PNNU216,0: RESET ERROR FLAGdA((78)256(79)): SME &L$"Hello. I am the Apple ]["E"Computer. You can call"b"me 'Apple' for short."m1300:"How many players are""entering this contest?":"Please type a number""from 2 to "MP;": ";NP NP2NPMP1310'","Subtraction","-","X","Multiplication","X","/","Division","/","A","Assorted","A"jPV75:ML150: VERTICAL LOCS FOR PROBLEM & MESSAGEtPL$";":(64435)6PL$"=": ALTERNATE KEY FOR + IS = ON //E~SS(SEC1.2).375 GET PLAYER'S NA7:T5(T1256):T3T1256T59$H2(L2110):W2(L2118)^.B2(L2114):N2((H2W27)8)18T2L21577:T6(T2256):T4T2256T6BKB16384:KS16368:L$(12)LLAST1:BEST1VI15:SIGN$(I),WRD$(I),CODE$(I):IS` "+","Addition","+","al standings:":1800A 9000:A$"Y"170: SAME PROBLEMS AGAIN?l 9200:A$"Y"160: DIFFERENT PROBLEMS 9300::140: START OVER  INITIALIZE L124576:L228265 9900::L13 H1(25):W1(27) B1(30):N1(206)T1L1157out to begin." PLAYER1NPP TIMET(PLAYER):BESTB(PLAYER):LASTL(PLAYER)l 1600: CALL FOR PLAYER~ PROBLEM610 4000 PROBLEM T(PLAYER)TIME 8000: SHOW MESSAGE AT END L(PLAYER)LAST:B(PLAYER)BEST &PLAYER "Fint" "to begin."$ PLAYER1NPO BESTB(PLAYER):LASTL(PLAYER):TIME100k 1600: CALL FOR PLAYER| PROBLEM15 4000 PROBLEM T(PLAYER)TIME L$; PLAYER "Half-time standings:":1800 "The second half is" "ab % nSEC10: 10 SECONDS PER PROBLEMK xMAX10: MAX # TO USE IN PROBLEMSg MP5: MAX # OF PLAYERS~ 1000: INITIALIZE 1200: GET NAMES 1400: INTRODUCTION & CHOOSE TYPE OF PROBLEM 1500: SET UP ONE ROUND "The first half is abou 55*  TIMED STROBE FOR DIGIT 0-9 F X(KB)128:X0ĹKS,0c XX48:TTTT1:TT025s X0X921y  TTSSTT:FIX23 TIMETIME1:7,0:8,TP:TIME" " TIMENTİ2700::: 23 7R(A)((1)A.5) d MAIN PROGRAM 9/25/83 VERSION8 (C) 1983 BY SCOTT STEKETEES ALL RIGHTS RESERVED.v *************************** * * * COMPETITION FAST FACTS * * * ***************************          RASE PROBLEM '7,PV:8,0:9,0:50006"###### "H7,ML:"## ";^5500:8,0:9,0:w4 SELECT A PROBLEM >AR(MAX):BR(MAX):CR(MAX)HTYPE5T((1)4)1RT2140,2150,2160,2170\CAB:fABC:pCAB: zB0BRNATED BY KEYPRESS) 5I1WT:(KB)127ĹKS,0:IWT>I:ll 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:  EJ:"Your turn,"&TN$(PLAYER)"."M^7,170:"Press any key to start.";[hKS,0:A${rL$"Score: ";:TP(8):TIME|"Problem: ";:PP(8)BEST1Ĺ7,0:8,180:"Best: "BESTLAST1Ĺ7,16:8,180:"Last: "LAST DELAY (TERMIWRD$(T)T&:"Your choice? ";=X$:X$PL$X$"+"KTYPE15hX$CODE$(TYPE)TTYPE:rTYPE768,10:769,10:770:1450 SET UP A ROUND OF PROBLEMS L$;WRD$(TYPE)" Problems."TIME1000@ CALL FOR PLAYER .")<7,170:"Press any key to go on.";1AA$7F[K802:768,10:769,10:770:1295vx INTRODUCE THE GAME }LAST1:BEST1L$"What kind of problems""does your team want?""Type:"T15CODE$(T);:8,40:"for "(NN)I$NN-216,0: RESET ERROR FLAGOSS(SEC(100NP).120).0375#A((78)256(79)): SEED THE RANDOM NUMBERS(L$"You will have "SEC" seconds"-"to do each problem."2:"Each problem will be"7"worth "(100NP)" points type a number"("from 2 to "MP": ";0NPGNP2NPMP1270Q1265i802: ERROR PATCHL$;:768,10:769,10:770:12251355L$"Please type the names""of the contestants.":NN1NP NN;:". ";I$1900:N$35)6PL$"=": ALTERNATE KEY FOR + IS = ON //E6oP GET PLAYER'S NAME sL$"Hello. I am the Apple ][""Computer. You can call""me 'Apple' for short."1260:"How many contestants""are on your team?":"Please8:L$(12)QLAST1:BEST1GVI15:SIGN$(I),WRD$(I),CODE$(I):I[ "+","Addition","+","'","Subtraction","-","X","Multiplication","X","/","Division","/","A","Assorted","A"`PV75:ML150: VERTICAL LOCS FOR PROBLEM & MESSAGE0jPL$";":(644 L124576:L228265' 9900::L13= H1(25):W1(27)T B1(30):N1(206)} T1L11577:T5(T1256):T3T1256T5 H2(L2110):W2(L2118) B2(L2114):N2((H2W27)8)1 T2L21577:T6(T2256):T4T2256T6 KB16384:KS16361600: CALL FOR PLAYER( PROBLEM6102 4000? PROBLEMH L$;W PLAYER: w 8000: SHOW MESSAGE AT END 9000:A$"Y"170: SAME PROBLEMS AGAIN 9200:A$"Y"160: DIFFERENT PROBLEMS 9300::140: START OVER  INITIALIZE about" "to begin.") PLAYER1NPE 1600: CALL FOR PLAYERV PROBLEM15` 4000m PROBLEMv L$; PLAYER: ,"Half-time score: "TIME 6WT500:1700 @:"The second half is" J"about to begin.": PLAYER1NP  + nSEC10: GIVES 10 SECONDS PER PROBLEMQ xMAX10: MAX # TO USE IN PROBLEMSm MP5: MAX # OF PLAYERS 1000: INITIALIZE 1200: GET NAMES 1400: INTRODUCTION & CHOOSE TYPE OF PROBLEM 1500: SET UP SCREEN :"The first half is 55*  TIMED STROBE FOR DIGIT 0-9 F X(KB)128:X0ĹKS,0c XX48:TTTT1:TT025s X0X921y  TTSSTT:FIX23 TIMETIME1:7,0:8,TP:TIME" " TIMENTİ2700::: 23 7R(A)((1)A.5) d MAIN PROGRAM 9/25/83 VERSION8 (C) 1983 BY SCOTT STEKETEES ALL RIGHTS RESERVED.v *************************** * * * TEAM FAST FACTS * * * ***************************            ~ 00c` ؀ l` ?T1a | 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      MMMAXMMMM1 -( ANSWER IS WRONG A2 7,PV:8,H:9,0[< 5000:" "(92):5500tF 7,ML:"No. Sorry."~Z 2800 TOO SLOW  7,PV:8,H:9,0 5000:" "(92):5500 7,ML:"Too slow." RECORD & FIX ERROR  MM5MMMMT3MA:ABMB:2535' MB:CBMC8 WT200:1700t RAISE THE MAXIMUM ONLY IF AT LEAST 2 IN A ROW CORRECT AND THE LARGER OF THE TWO #S DETERMINING THE PROBLEM IS AT LEAST MM - 1. (MM IS THE LARGEST # USED.) NCNC1:NC2MMM10NP)V R0:1` GET ONE DIGIT OF RESPONSE Ej 20: GET A KEYTt 7,PV:8,Hh~ 5000:X;:5500s H(8) R10RX: ANSWER IS CORRECT  7,PV:8,H:9,0 5000:" "(64):5500 7,ML:"Yes!" 768,14:769,12:770 T1(I1):WT(I)WT(I1)I<(T1T3)(AMMBMM)2100^(T2T4)(BMMCMM)2100d| PRINT A PROBLEM  7,16:8,PP:PROBLEM KS,0 7,PV$ 5000. A" "SIGN$(T)" "B" = ";8 5500B H(8):HHHL TTSS:NTTIME(10AR(MM):BR(MM):CR(MM)5RTYPE5T((1)4)1P\T2150,2160,2170,2180\fCAB:hpABC:tzCAB:B0BR(MM):2180ABC:AWA(1):BWB(1):CWC(1):TWT(1)NRNR1I1NRNWWA(I)WA(I1):WB(I)WB(I1):WC(I)WC DELAY (TERMINATED BY KEYPRESS) FI1WT:(KB)127ĹKS,0:IWTOI:e ERASE PROBLEM 7,PV:8,0:9,0:5000"###### "7,ML:"####";5500:8,0:9,0:4 SELECT A PROBLEM >NR02200: NR IS # OF PROBS TO REPEATHD OF PROBLEMS NRNW:NW0CL$:7,PV:WRD$(TYPE)" Problems."TWT100:1700aTIME1007,0:"Score: ";:TP(8):TIME7,16:C$"Problem: ";:PP(8)"BEST1Ĺ7,0:8,180:"Best: "BEST,LAST1Ĺ7,16:8,180:"Last: "LAST6$:8,50:"for "WRD$(T)T97,176:"Your choice? ";PX$:X$PL$X$"+"A((78)256(79)): SEED THE RANDOM NUMBERSX$PL$X$"+"TYPE15X$CODE$(TYPE)TTYPE:TYPE768,10:769,10:770:1445 SET UP A ROUNERNATE KEY FOR + IS = ON //E3~SS(SEC1.35).3709Tx INTRODUCE THE GAME }NR0: NR IS # TO REPEAT FROM PREVIOUS ROUNDNW0: NW IS # WRONG ON THIS ROUNDLAST1:BEST1MMMAXL$"Press:"T157,(7)10:CODE$(T);T1:BEST15 VI15:SIGN$(I),WRD$(I),CODE$(I):I ` "+","Addition","+","'","Subtraction","-","X","Multiplication","X","/","Division","/","A","Assorted","A" jPV75:ML150: VERTICAL LOCS FOR PROBLEM & MESSAGEtPL$";":(64435)6PL$"=": ALT265 9900::L13+ H1(25):W1(27)B B1(30):N1(206)k T1L11577:T5(T1256):T3T1256T5 $H2(L2110):W2(L2118) .B2(L2114):N2((H2W27)8)1 8T2L21577:T6(T2256):T4T2256T6 BKB16384:KS16368:L$(12) LLASLEM1NP! 4000: DO A PROBLEM1 "PROBLEM: K 7000: FIX MISTAKES?e 8000: FINAL MESSAGE 9000:A$"Y"160: SAME PROBLEMS AGAIN 9200:A$"Y"150: DIFFERENT PROBLEMS 9300::140: START OVER  INITIALIZE  L124576:L228 STARTS HERE K nSEC30: SEC CONTROLS THE TIMING--30 SECONDS PER PROBLEM r xMAX10: MAX # TO USE IN PROBLEMS NP5: 5 PROBLEMS PER ROUND 1000: INITIALIZE 1400: INTRODUCTION & CHOOSE TYPE OF PROBLEM 1500: SET UP SCREEN  PROB 55*  TIMED STROBE FOR DIGIT 0-9 F X(KB)128:X0ĹKS,0c XX48:TTTT1:TT025s X0X921y  TTSSTT:FIX23 TIMETIME1:7,0:8,TP:TIME" " TIMENTİ2700::: 23 7R(A)((1)A.5) d MAIN PROGRAM< 9/25/83 VERSION8 (C) 1983 BY SCOTT STEKETEES ALL RIGHTS RESERVED.v *************************** * * * BEGINNER FAST FACTS * * * ***************************          " = ";8 H(8):HHH B 55005L TTSS:NTTIME10?V R0:_` GET ONE DIGIT OF ANSWER sj 20: GET A KEYt 7,PV:8,H~ 5000:X;:5500 H(8) R10RX  ANSWER IS CORRECT  7,ML:8,0:9,0:"Yes!" 768,14:769,12:fP(I)P(PROBLEM1)0pT2170,2180,2190,2200@zCAB:2210TCA:ABC:2210dCAB:2210rB0B10CA:ABCP(PROBLEM1)100AB: PRINT A PROBLEM  7,16:8,PP:PROBLEM 7,PV 5000$ KS,0. A" "SIGN$(T)" "BM 7,PV:8,0:9,0:5000*"######"<7,ML:"## ";R5500:8,0:9,0:k4 SELECT A PROBLEM >IR(101PROBLEM)PROBLEM1: GIVES RANDOM # FROM PROBLEM-1 TO 99HA(P(I)10):BP(I)10ARA0A10\A10B0ĭ(1).5CA:AB:BCYPRESS) *I1WT:(KB)127ĹKS,0:IWT3I:al USE PROPER UPPER & LOWER CASE IN NAME pq(N$)2ıvN2(N$)A((N$,N,1))A65A90(N$,N1,1)" "1950N$(N$,1,N1)(A32)(N$,N1,(N$)N)N: ERASE PROBLEL$:7,PV:WRD$(TYPE)" Problems."9I099:P(I)I:IGTIME1000j,7,0:"Score: ";:TP(8):TIME67,16:"Problem: ";:PP(8)@BEST1Ĺ7,0:8,180:"Best: "BESTJLAST1Ĺ7,16:8,180:"Last: "LASTT DELAY (TERMINATED BY KE14(CODE$(T);:8,40:"for "WRD$(T)/TG:"Your choice? ";^X$:X$PL$X$"+"lTYPE14X$CODE$(TYPE)TTYPE:TYPE768,10:769,10:770:1455 SET UP A ROUND OF PROBLEMS NW0: NW IS # WRONG ON THIS ROUND#"This game will test your"7"speed and accuracy on"P"100 number facts."s ::"Press any key to go on."WT2000:1700x INTRODUCE THE GAME LAST1:BEST1L$"What kind of problem do""you want? Type:"That's your name?"N$#19006(N$)151260FN$(N$,14)`"That's too long to""remember. I'll call you"N$"."WT1000:1700A((78)256(79)): SEED THE RANDOM NUMBERSL$"Let's play a game,"N$".":CAL LOCS FOR PROBLEM & MESSAGEajPL$";":(64435)6PL$"=": ALTERNATE KEY FOR + IS = ON //EwoSS(SEC1.2).375}t GET PLAYER'S NAME L$"Hello. I am the Apple ][""Computer. You can call""me 'Apple' for short.":"W1+ T2L21577:T6(T2256):T4T2256T6L KB16384:KS16368:L$(12)` QLAST1:BEST1 VI14:SIGN$(I),WRD$(I),CODE$(I):I [ "+","Addition","+","'","Subtraction","-","X","Multiplication","X","/","Division","/"`PV75:ML150: VERTIFFERENT PROBLEMS. 9300::130: START OVERA  INITIALIZE W L124576:L228265i 9900::L13 H1(25):W1(27) B1(30):N1(206) T1L11577:T5(T1256):T3T1256T5 H2(L2110):W2(L2118) B2(L2114):N2((H2W27)8)PROBLEM: ( ,6000: HALF-TIME MESSAGEH 6L$;:1580: SET UP SCREEN \ PROBLEM51100u 4000: DO A PROBLEM PROBLEM: 7000: FIX MISTAKES? 8000: FINAL MESSAGE 9000:A$"Y"160: SAME PROBLEMS AGAIN 9200:A$"Y"150: DI PROGRAM - nSEC10: 10 SECONDS PER PROBLEMV x MAX # IS ALWAYS 10 IN THIS PROGRAMm 1000: INITIALIZE 1200: GET NAME 1400: INTRODUCTION & CHOOSE TYPE OF PROBLEM 1500: SET UP SCREEN PROBLEM150 4000: DO A PROBLEM  55*  TIMED STROBE FOR DIGIT 0-9 F X(KB)128:X0ĹKS,0c XX48:TTTT1:TT025s X0X921y  TTSSTT:FIX23 TIMETIME1:7,0:8,TP:TIME" " TIMENTİ2700::: 23 7R(A)((1)A) FP(99) d MAIN 9/25/83 VERSION8 (C) 1983 BY SCOTT STEKETEES ALL RIGHTS RESERVED.v *************************** * * * MARATHON FAST FACTS * * * ***************************         <<<<<<< <<<<<<<<<?<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 ` &8b_A eΠ &Aiƅ@AiABChi=eA? ,e@ikmeAjln` ʚΠFΐejfΈJfΈ(hi8hi98i9i8iT69i78i)9iL  @ ,R,W,P,U                  ~ 00c` ؀ l` ?T1a | 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      I$(P$(I),P,1):PP1:3050. 8,60:"FAST"B& 8,120:"FACTS"N0 3500:n DISPLAY EDUSOFT ADDRESS x 5500 7,140:(126)"1983 by EduSoft" "P.O. Box 2560" "Berkeley, CA 94702"; 7,0:  CONVERT PROGRAM NAME TO ALL0"(770)173Ĺ770,96:(12)"Sound is off.":2030_ 4A$"1"A$"5"Ĺ768,10:769,10:770:2080p >I(A$)48: DISPLAY APPROPRIATE TITLE FRAME (12)"EduSoft presents--" 5000 7,35 P1:I$"" (P$(I),P,1)" "ĺI$:3100 I$) "35008 ,I1400:(16384)127Ĺ16368,0:I2000A 6I:V  SHOW CHOICES b (12);r "Options:" 7,(7)15 (770)173ĺ"0.";:8,40:"Turn sound off" I15:I".";:8,40:P$(I) I :"Your choice? "; A$1 *A$"56(773)173(L28001)207ı>$&"LOADING CHARACTER FILES."^$&(4)"BLOAD FAST CHARS,A"L2{$&(4)"BLOAD CHARS 12X14"$&(4)"BLOAD SOUND"$&& CHECK FOR CHARACTER GENERATOR & SOUND ^#&(L1)56(L2)56(773)173(L28001)207ı~#&"LOADING CHARACTER FILES."#&(4)"BLOAD FAST CHARS,A"L2#&(4)"BLOAD CHARS 12X14"#&(4)"BLOAD SOUND"#&HRATOR & SOUND $&(L1)56(L2):"Let's play again sometime.":"$:"Would another team"S"$"like to play Team"f"$"Fast Facts?"p"$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%+#)!F#"problems?"!P#9500:I!# DOES USER WANT DIFFERENT PROBLEMS? k!#L$"Would the same team like"!#"to try a different kind"!"$"of problem?"!,$9500:!T$ ANOTHER PLAYER? !h$L$"It was fun playing"!r$"with your team today.""|$;" DISK AND PRESS RETURN";:" ";DK$-9363CPRESS RETURN";:" ";DK$X936^DK$t936z16368,0:K141340:KK176:KLKH330:NKDO16368,0:K141340]PKK176:KLKH330eQNKT20:N;" ":^:22:"DEFAULT = ";:((41)256(40)14),96:hMSSSırMDSDıw:(DK$,1)"D"ĺ#|"INSERT ";DK$16368,0::"DO YOU WISH TO MAKE ANOTHER COPY?";I$:(I$)0300U '(I$,1)"Y"160k ,(I$,1)"N"290s 1: 6:350:N;::1:I$;" SLOT: ";:L1:H7:330:A,N16: @350:N;::4:" DRIVE: ";:L1:H2:330:+JK(16384):K128330:"DUPLICATE":360: GET DUP DISKC 8:24::"WRITING";::" "\ 710: WRITE A HUNKr 8:24:" " (713)2190 (222)255ij 18::"****** UNABLE TO WRITE ******":290 18::"****** UNABLE TO READ ******"@ "19:: ERROR!+ 5:24:" ":(713)1290F FT255: NOT FIRST RDn DK$"DUPLICATE":360: GET DUP DISKx 275 8:24::"FORMATTING": "INIT XXX,S";SS;",D";SD;",V";(714):FT1 8:24:" " 216,0:222,0 256 DK$ "2 704:717,SS16:718,MS16:719,SD:720,MDG 17:34,16:936T :222,0 "-- PRESS 'RETURN' KEY TO BEGIN COPY --";:" ";I$ DK$" ORIGINAL":360: GET ORIG DISK 5:24::"READING": 707: READ A HUNK (713)2280:ON PROGRAM"::% Z704:CS(718)16A d715,(110)1:BUFSTART[ n716,(112)1:BUFEND I$" ORIGINAL":NCS:A718:310:MSN:N(720):320:MDN:A717 I$"DUPLICATE":NMS:310:SSN:N3MD:320:SDN FT0 5:24:" ":8:24:" ,h0!!`hhhߚHH`ōϠӠćˠ̍ˠŠčŠčɯϠҍĠԠ٠ϠΠ͍Š۠ŠҠנŠŠҠŠ٠ҍξϠŠǠŠҍ̭þξϠٍ̠ҮŽĠՠŠϠŠҠٿԠŠˠĠӠԠΠˠĠӠ٠ϠՠԠǿ$: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%RQrU o00Щ莢ɽదɬUɽ̢ʎ! o : Lm  ɛhhL%H% h% ` ` `HHH  hhh`HHH : 7 , ͭ) ; # ͭ  ; ` o ɱɸ" L; )  o ɱɳ# L_ )`  o ɱɸ" L ) o ɱɳ# L ) ##` L N D   , b Y L> b @   Lvم38x` X L !   - `" X    i( ! o , и` X$i( " X ,          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 * * * ***************************         NU" "$%"% GET Y OR N RESPONSE 3"!%7,(7)5J"&%"Press Y or N: ";R"0%A$l":%A$"Y"A$"N"9520r"D%"& CHECK FOR CHARACTER GENERATOR & SOUND "&(L1)56(L2)56(773)173(L28001)207ı"&"LOADING CHARACTER FILES."#&(4)"BL`饠 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!4090: CORRECT ANSWER*R0CC04080]R(CC10)R(CC100)4040: SO FAR, SO GOODv2600: WRONG ANSWER| SWITCH TO BIG CHARACTERS 252,T4:253,T625,H2:27,W2:206,N230,B2:| SWITCH TO SMALL CHARACTERS H9(8)H28606 WT50:17003@ 7,PV:8,HH:9,0KJ 768,10:769,5:770XO C:5500iT WT400:1700o^  DO ONE PROBLEM 2000: ERASE PREVIOUS2100: PICK A PROBLEM2300: PRINT A PROBLEM2400: GET A KEYRCCİ2500:SWER IS WRONG "2 7,ML:8,0:9,00< "Sorry.":F 2800K TOO SLOW l 7,ML:8,0:9,0:"Too slow!" RECORD & FIX ERROR  TIMENT 7,0:8,TP:TIME" " 768,35:769,10:770 WT50:1700" 5000:7,PV:8,HH:9,0, " ";:(9)~ 5000:X;:5500$ H(8):H9(9)3 R10RX:I 5000:"-";:5500\ 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:770 ( AN PRINT A PROBLEM 0 7,16:8,PP:PROBLEM: KS,0D 7,PVN$ 5000j. A" "SIGN$(T)" "B" = ";t8 5500B H(8):HHH:H90L TTSS:NTTIME(100NP)V R0:CCC:` GET A KEY j 20t 7,PV:8,H:9,H9y X452455: "-" SIGN,PV:8,0:9,0:5000""###### "47,ML:"## ";J5500:8,0:9,0:c4 SELECT A PROBLEM >AR(10):BR(10):CR(10)HTYPE5T((1)4)1RT2140,2150,2160,2170\CAB:fABC:pCAB:zB0BR(10):2170ABC:!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)TOAD FAST CHARS,A"L20#&(4)"BLOAD CHARS 12X14"G#&(4)"BLOAD SOUND"M#&c35)6PL$"=": ALTERNATE KEY FOR + IS = ON //E6oP GET PLAYER'S NAME sL$"Hello. I am the Apple ][""Computer. You can call""me 'Apple' for short."1260:"How many contestants""are on your team?":"Please8:L$(12)QLAST1:BEST1GVI15:SIGN$(I),WRD$(I),CODE$(I):I[ "+","Addition","+","'","Subtraction","-","X","Multiplication","X","/","Division","/","A","Assorted","A"`PV75:ML150: VERTICAL LOCS FOR PROBLEM & MESSAGE0jPL$";":(644 L124576:L228265' 9900::L13= H1(25):W1(27)T B1(30):N1(206)} T1L11577:T5(T1256):T3T1256T5 H2(L2110):W2(L2118) B2(L2114):N2((H2W27)8)1 T2L21577:T6(T2256):T4T2256T6 KB16384:KS16361600: CALL FOR PLAYER( PROBLEM6102 4000? PROBLEMH L$;W PLAYER: w 8000: SHOW MESSAGE AT END 9000:A$"Y"170: SAME PROBLEMS AGAIN 9200:A$"Y"160: DIFFERENT PROBLEMS 9300::140: START OVER  INITIALIZE about" "to begin.") PLAYER1NPE 1600: CALL FOR PLAYERV PROBLEM15` 4000m PROBLEMv L$; PLAYER: ,"Half-time score: "TIME 6WT500:1700 @:"The second half is" J"about to begin.": PLAYER1NP  + nSEC10: GIVES 10 SECONDS PER PROBLEMQ xMAX10: MAX # TO USE IN PROBLEMSm MP5: MAX # OF PLAYERS 1000: INITIALIZE 1200: GET NAMES 1400: INTRODUCTION & CHOOSE TYPE OF PROBLEM 1500: SET UP SCREEN :"The first half is 55*  TIMED STROBE FOR DIGIT 0-9 F X(KB)128:X0ĹKS,0c XX48:TTTT1:TT025s X0X921y  TTSSTT:FIX23 TIMETIME1:7,0:8,TP:TIME" " TIMENTİ2700::: 23 7R(A)((1)A.5) d MAIN PROGRAM 9/25/83 VERSION8 (C) 1983 BY SCOTT STEKETEES ALL RIGHTS RESERVED.v *************************** * * * TEAM FAST FACTS * * * ***************************      :253,T5"25,H1:27,W1:206,N1(>(# ERROR ROUTINE N-#0:0:1002V2#:<#"ERROR ";(222)" IN LINE "(218)256(219)"."F#(222)0(222)169100P#:"PLEASE REFER TO YOUR APPLESOFT MANUAL."Z# #:"PLEASE REFER TO YOUR DISK UPPER CASE N$""(J1(P$(I))>A((P$(I),J,1))WA97A122AA32fN$N$(A)mJ|P$(I)N$: SWITCH TO BIG CHARACTERS 252,T4:253,T625,H2:27,W2:206,N2| SWITCH TO SMALL CHARACTERS 252,T3"like to play Team"*#$"Integer Facts?"4#$9500R#$A$"N"ĺ:(4)"RUN MENU"X#$t#% GET Y OR N RESPONSE #!%7,(7)5#&%"Press Y or N: ";#0%A$#:%A$"Y"A$"N"9520#D%#& CHECK FOR CHARACTER GENERATOR & SOUND "$&(L1)56(PROBLEMS? ,"#L$"Would the same team like"K"#"to try a different kind"^""$"of problem?"j",$9500:"T$ ANOTHER PLAYER? "h$L$"It was fun playing""r$"with your team today.""|$:"Let's play again sometime.""$:"Would another team"#$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 7z 9/8/83 VERSION7 (C) 1983 BY SCOTT STEKETEER ALL RIGHTS RESERVED.w ***************************** * * * COMPETITION INTEGER FACTS * * * *********************               LINES 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" 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<<<<<<< <<<<<<<<<?<x<<?<<??<<<<<<<<<<<<<<<<xppx<< <<<<00<< <<????8pp8p88p<<<<<<<<<<<<<<<<<<<<??<<-??????<<h> ǥB>C?'> ˘hh & 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 !! ! ! ! ! !!!!!!!!!""" " " " " """""""""     ?????? <<<<<<<<<<<<<<<<<??<<<<????<<<<??????????<<<<??<<<<;8|ppp<<<<88 0`a~Ɓcff 088??p8|<88p8p8<ppppp0p8p q1988p8p8888w?v><8pp8p88pp<88<ppp888pppp8p8p88888<<8888