' +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*`qz#      ͧӠȠ̠ ààĠ ӠӠ ΠϠӠӠŠΠ Ϡ ΠӠϠΠӠȠӠ  Ӡ٠ŠPL:N$(Z)R$Ģ20:1:868::B$:"DUPLICATE NAME";::1030@LZWVA$"DELETE"1140`19:1:868:"PRESS 'D' TO DELETE FILE ";K$:"OR ANY OTHER KEY TO CANCEL.";:R$:R$"D"810t(A$"RUN"A$"LOAD")T$(JPLK)"B"A$"B"A$J~A$A$" "N$(JB$;"FILE ";K$;"LOCKED"::8204A$"RENAME"1110e19:1:868:"RENAME ";K$;:RR$:RR$""810(RR$)65(RR$)90Ģ20:1:868::B$;"INVALID NAME";::1030R$"":I1(RR$):R$R$(((RR$,I,1))128):I:R$R$(BL$,30(R$))9BZ1L%RENAME"!A$;::K$:K(K$)484K17K31810OKK16:(JPLK)C810gN$(JPLK)"1"810(A$"RUN"A$"LOAD")T$(JPLK)"T"Ģ19:1:868::B$;"FILE ";K$;" IS TEXT"::820(A$"DELETED"A$"RENAME")L$(JPLK)"*"Ģ19:1:868::K(16384):K128830OR16368,0:19:1:958:K$(K):KK176:K0K9970]fK01340opK6K71260zK8K9300"PRESS 'LETTER' YOU WISH TO ";:K1A$"LOAD"K2A$"LOCK"K3A$"UNLOCK"K4A$"DELETE":K5A$"GE ";P;"OF ";L%::JP1:I1PL:(JPLI)C810f N$(JPLI)"1"ĺ(TI);" ";::"DELETED FILE":N$(JPLI)"1"ĺ(TI);" ";L$(JPLI);T$(JPLI);" ";S$(JPLI);" ";N$(JPLI) I*19:1:9584A$"RUN":21:1:M1$:M2$:M3$:M4$;>T$(C)"A"Z4T$(C)"B"4N$(C)(INP$,ZZ,30)>Y:X[L%CPL:CL%PLL%L%1V$((VOL)):(V$)1V$"00"V$(V$)2V$"0"V$F$(F):(F$)1F$"00"F$(F$)2F$"0"F$/:"SL:";S;"DR:";D;"VOL:";V$;" FREE:";F$;" PAZ34:YF1F735:ZZZZ35:Z(Y33):Z0690P&CC1:(Y)255N$(C)"1":670:FFZ:S$(C)(Z):(S$(C))1S$(C)"00"S$(C)X(S$(C))2S$(C)"0"S$(C)bZ(Y2):L$(C)" ":Z4L$(C)"*":ZZ128lZ0T$(C)"T"vZ1T$(C)"I" Z2(13)ĺ:440)I$"0"I$"7"Ģ3:1:370VI$:S(I$):OS,(CS):OD,(CD):CS,S16:"CURRENT DRIVE IS ";D:"PRESS RETURN OR ENTER DRIVE #";:I$:I$(13)490I$"1"I$"2"Ģ5:1:958:440I$:D(I$):CD,D-X1511:SEC,X:768:Zp\q"ENOUGH OF MY IDEAS.":BN1150:BN:::::"LET'S GET GOING!!":SW1600:SW:irK0490|K8ĺ"INSERT NEW DISK IN SLOT:";S;",DRIVE:";D:"AND PRESS RETURN.";:R$:490 "CURRENT SLOT IS ";S:"PRESS RETURN OR ENTER SLOT #";:I$:I$ f] h(5):"ROOM 300"::(5):"18 DUNCAN DRIVE"::(5):"NEW PORT RICHEY, FLORIDA 34653"w i:" 813-848-0413" jSD11200:SD m::"OF COURSE THEY WILL GIVE YOU YOUR":"$5.00 BACK WITH YOUR FIRST ORDER." nNB1600:NBoLK1600:LK:WE11000:WEF [:"FOR YOUR OWN CATALOG LISTING OVER":UY11:UYt ^::(12):"2,000 PROGRAMS":IO1500:IO _:(6)::"FOR LESS THAN 25 CENTS EACH!!"::QP11:QP a::"SEND $5.00 TO:":TG1600:TG d:(5):"DUNCAN INSTITUTE LIBRARY":(15):"AND GET MORE WORK DONE"N J:"BY USING MORE OF THE":TH1100:THw O:(5):"FASCINATING,":RD1100:RD R:(10):"LOW COST,":PO1300:PO U:(15):"PUBLIC DOMAIN PROGRAMS":WR1100:WR X:"AVAILABLE FROM THE DUNCAN INSTITUTE."OCK 6=PAGE AHEAD 9=RESET DRIVE":S(18455)16:D(18454):K0:CS,S16:CD,Do ,TKR,17:F496:P1:C0:: /K8K9370 2:(18):"HI!" 3Q1400:Q: 5 6"YOU AND I CAN" : ;(5):"LEARN MORE," ?:(10):"HAVE MORE FUN,"" C:IOB777:T64:PL15:RB27136:CSIOB1:CDIOB2:TRKIOB4:SECIOB5:VOLIOB14:OSIOB15:ODIOB16:F1RB11:F7RB221:M1$"TYPE'LETTER' TO RUN, OR 0=EXIT"Q "M2$"1=LOAD 4=DELETE 7=PAGE BACK":M3$"2=LOCK 5=RENAME 8=NEW DISK":M4$"3=UNLDdINP$"":VS(106)256(105):VS2,240:VS3,14:VS4,150: 169,3,160,9,32,217,3,96,0,1,96,1,0,17,15,251,183,0,150,0,0,1,0,254,96,1:I768793:X:I,X:I:BL$""I140:BL$BL$(160):I:N$(105),S$(105),T$(105),L$(105):1290 D$(4):B$(7)      E FROM MENU ":4:"OR 0 TO CREATE NEW DATA BASE"F 2D$(13)(4):A$Y <:A$"0"9000 FA(A$):FILE$(F$(A),(F$(A))3) PD$"EXEC";FILE$:: d ROUGE,RED,NOIR,BLACK f JAUNE,YELLOW,VERT,GREEN h ARGENT,SILVER,BLANC,WHITE  *,*: 9 FLASH CARDS BY RICK WILLIAMS :8000::4:"THE FOLLOWING FLASH CARD DATA BASES ARE AVAILABLE"8:4:F$(1):4:F$(2):4:F$(3):4:F$(4):4:F$(5):4:F$(6):4:F$(7):4:F$(8):4:F$(9)0 (20::4:" SELECT DATA BAS     S$"I":L$"V":V$"X":5 S$"X":L$"L":V$"C":P S$"C":L$"D":V$"M":] S$"M": S$"M":  D$(A$,Q,1) XX11 X400,410,420,430f (D$)1230,240,250,260,270,280,290,300,310,320r C$"":~ C$S$: C$S$S$: C$S$S$S$: C$S$L$: C$L$: "C$L$S$: ,C$L$S$S$: 6C$L$S$S$S$: @C$S$V$:TO BE IN "% -" ANCIENT ROME ...":6 2I11500:I> 4:F 523n 6" ..HIT <> TO CONTINUE";T$t 8z d nZ11000 oX0 pAZ A$(A):B$"":A$(A$,(A$)) Q(A$)11 200 B$C$B$ Q A;" = ";B$ Z_/IT IS INTERESTING THAT;/APPLE IS 2.83 TIMES ASZ/FAST AS AN 8080 (S0L-20){/WHEN RUNNING THIS PROGRAM.// 6" <<< CONVERSION TO "" ROMAN NUMERALS >>>":#"HANDY IF YOU" (" EVER HAPPEN  S$"X":L$"L":V$"C":6 S$"C":L$"D":V$"M":C S$"M": "M": . X400,410,420,430L (D$)1230,240,250,260,270,280,290,300,310,320X C$"":d C$S$:s C$S$S$: C$S$S$S$: C$S$L$: C$L$: "C$L$S$: ,C$L$S$S$: 6C$L$S$S$S$: @C$S$V$: S$"I":L$"V":V$"X": LESS THAN 2000 ..";AO xA1999A1A(A)ĺ"THAT WAS RATHER STUPID ..":110` zA(A)110 A$(A):B$"":A$(A$,(A$)) Q(A$)11 200 B$C$B$ Q :"IN ROME THAT WOULD BE ...";B$ :::100 D$(A$,Q,1) XX1E 6)" <<< CONVERSION TO "H" ROMAN NUMERALS >>>"P:g#"...HANDY IF YOU"(" EVER HAPPEN TO BE IN "-" ANCIENT ROME ...":2I11500:I5236" ..HIT <> TO CONTINUE";T$8d n"..ANY NUMBER   D;" LINE ";LOC2:820:<:10:12:"MASH 6502 ENDED"BF: I(JPLK)):7306(A$,4)"RENA"N$(JPLK)(R$,30)?750XK6PP1:PL%P1qK7PP1:P1PL%z750 ECD(222):LOC(219)256(218):19:1:958::ECD4ĺB$;"WRITE PROTECTED"(A$,1)"B"ĝ:1350(ECD4ĺB$;"ERROR ";ECPLK):19:1:958:(A$,4)"RENA"ĺA$:20:8:(R$,30):A$A$","(R$,30)c(A$,4)"RENA"ĺA$D$;A$;",S";S;",D";D:(A$,1)"B"1350(A$,4)"LOCK"L$(JPLK)"*"(A$,4)"UNLO"L$(JPLK)" "(A$,4)"DELE"N$(JPLK)"1":FF(S$         V$  ! A,E,I,O,U,YO B,C,D,F,G,H,J,K,L,M,N,P,Q,R,S,T,V,W,X,ZZ K1Ic K2 S(K)PPğ:15:P$(K)::S1  S1ı I24:"GAME WON AT ";PP;" POINTS!!!"  |100 N$""" X1NL(K)2, 10006 2000< ] NL(K)(NL(K)2)20İ1000j N$(K)N$p   CONSONANT ROUTINE J1(1)207 C$  N$N$C$  $  VOWEL ROUTINE J1(1)61 V$  N$N$K)ĺ16)"CORRECT!!":S(K)S(K)1:NL(K)NL(K)1:300L (40(N$(K)))29x ""SORRY, IT WAS ";N$(K):NL(K)NL(K)1 'NL(K)2NL(K)2 ,J12500:: 6J(0) @ JK1I T Y15 ^P$(K);": ";S(K) h rJ15000: w4000 "? 4:(40(N$(K)))2J N$(K)_ J1NL(K)500: 4:" " 6:(40(N$(K)))27:"YOUR GUESS: ";N$ 8:" "5 N$N$( ":10H ("NAME OF PLAYER #";K;X 2": ";P$(K)^ 7d <y FK1I:NL(K)3: dK1I n900 x K1I 1:(40(P$(K)))2 P$(K);":" 4:"PRESS 'RETURN' WHEN READY.";RZ$' 4:"  ::'"HOW MANY PLAYERS? ";IP:"HOW MANY POINTS TO PLAY TO? ";PPZ t ** MEMORY GAME ** BY DAVID SPARKS GREEN APPLES WATERLOO, IOWA  P$(I),NL(I),N$(I),S(I)K1I- 10:"̠ŬĬҬˍŬ׬Ԭ΍ԬҬìōαE"D$"APPEND"A$:9030:WRITE NEXT GROUP OF DATA #D$"APPEND"A$;D$"WRITE"A$:"RUN100":D$"CLOSE"::8:6:A$" DATA BASE COMPLETED."::"SAVING FLASH CARDS TO DISK":D$"SAVE FLASH CARDS":20:WRAP IT UP I$"WRITE"A$CZ#LINE100ĺ"DEL 100,998":SCRAP OLD DATA STATEMENTS d#" "LINE" DATA ";:I14:DTA$(I);:I4ĺ",";: ADD BASIC LINE FORMAT THEN WRITE TO DISK n#::D$"CLOSE":"WRITE MORE DATA PAIRS ?":Y$:Y$"Y"9090/x#LINELINEINCR:D$"CLOS1))3):9020 : < (#"WHAT NAME FOR NEW DATA BASE ";A$f 2#D$(13)(4):8100: GO ADD TO MENU <#LINE100:INCR2:D$(13)(4):D$"DELETETEMP"D$"OPEN";A$: OPEN NEW DATA BASE F#:2:"INPUT TWO DATA PAIRS (FOUR WORDS)" P#I14:DTA$(I)::D: M I19:(F$(I))1AI:8120: WRITE NEW ITEM TO MENU S r D$"OPENTEMP"D$"WRITETEMP" 8010A" F$("A")="(34);A" "A$;(34) "RUN8180" D$"CLOSE" D$"EXECTEMP": 8000:I19:(F$(I))1A$(F$(I1),(F$(I j1030: \ @ DATA BASE WRITER FOR FLASH CARDS BY VAL J GOLDING v JF$(9):MENU STRINGS KF$(1)"1 COLORS" LF$(2)"2" MF$(3)"3" NF$(4)"4" OF$(5)"5" PF$(6)"6" QF$(7)"7" RF$(8)"8" SF$(9)"9" T Q$,A$:NN1:Q$"*"1000= :NN1:A(N),Q$(N),A$(N)E :Y I1N:A(I)I: J1N:X((NJ1)(1)1):Q$(A(X)),A$(A(X)):A(X)A(NJ1):: J1N $ .6:Q$(J); 8Q0999: B:18:A$(J): LQ0999: V `(7) X ";S$;B 3150" F213120/! MGMYMXW& "EQUATION Y = ";MYMX;" X ";S$;Ba+ 3150n0 MGMYMX5 "EQUATION Y = ";MY;"/";MX;" X ";S$;BN PLOT LINES F313170U F50X XGX1:YGS:4000Z XGX1:YG(1)S:4000] 3250b103045 BGBG10 SS10) 30203 :21Z "EACH DIVISION = ";S10;" UNITS." PRINT EQUATION AND SET UP FOR POLTTING LINE F313080 "EQUATION X = ";X1 3150 F413100 MGMY "EQUATION Y = ";MY;" | 148,A152,A& 80A,6880A,72, J 127,7131,7:129,5129,9o 133,4136,7139,4:136,7136,10 232,70236,70:234,68234,72 238,67244,73:238,73244,67 DESIDE MAGNITUDE OF GRAPH BG(B):S10 F31BG(X1) BG Y = "; F412810* MY;" X ";S$;B4 2850C F212840] MY;"/";MX;" X ";S$;Bg 2850} MYMX;" X ";S$;B" :"PRESS ANY KEY TO CONTINUE"' R$, T DRAW GRAPH^ c 3h 150,0150,140m 80,70220,70r A01407 2 FRACTION" F4$ F4127503 F422760? :2720U "ENTER M ";MY_ 2770y "CHANGE IN Y ";MY "CHANGE IN X ";MX F10:F20:2400 :"B = Y INTERCEPT" "ENTER B ";B S$"+ ":B0S$"" :"EQUATION X INTERCEPT ";n X15x :"EQUATION X = ";X1[} :"PUSH ANY KEY TO CONTINUE ";c R$i  :"EQUATION FORMAT IS Y = M X + B" "M = SLOPE = CHANGE IN Y / CHANGE IN X" "HOW DO YOU WANT TO ENTER M?"  " 1 DECIMAL":" XA:F11 2465 -( INPUT EQUATIONE2 F10:F20:F30:F40< :"THIS PORTION OF THE PROGRAM ALLOWS YOU TO ENTER THE EQUATION OF A STRAIGHT LINE"F "IS THE LINE PARALEL TO THE Y AXIS?"P R$Z (R$,1)"Y"2700d F31i :"INPUT ,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83 89,97,101,103,107,109,113,127,131,137,139,149,151,157,163,167 173,179,181,191,193,197,199 A:A1992510 AMYAMX2510 MYA(MYA)MXA(MXA)2460 MYMYA:MXMES ARE LIMITED TO SAVE TIME.^b THEREFORE LOWEST COMON DENOMINATOR MAY NOT ALLWAYS BE FOUNDre MX0MY0F11j MYMX02430t MY(MY)(1):MX(MX)y 2435~ MY(MY):MX(MX) MYMX(MYMX)2450 F21:F11  ; 2,3,5COORDINATES GIVEN")3 S$"+ ":B0S$""84 F202370`8 :10);"Y = ";MYMX;" X ";S$;" ";Bj= 2380B :10);"Y = ";MY;"/";MX;" X ";S$;" ";BL :"PRESS ANY KEY TO CONTINUE"Q R$V ` FIND LOWEST COMON DENOMINATORa NUMBER OF PRIM2400 F102300% F2022900 4:15G " = ";MYMX:2300R 4:15g " = ";MY;"/";MX~ "B = Y INTERCEPT"  "SUBSTITUTE TO SOLVE FOR B"  "B = Y - M X = Y1 - M X1"  MGMYMX  BY1MGX1 $ "B = ";B. :"EQUATION FOR TE SLOPE FLAG F31 23808 15);"Y = M X + B"] "M = SLOPE = (Y2-Y1) / (X2-X1)"s MYY2Y1:MXX2X1 "M = ";MY;"/";MX F10:F20  F1 IS CHANGE IN MY OR MX FLAG  F2 IS WHOLE NUMBER FLAG  FIND LOWEST COMON DENOMINATOR )  DEVELOPE EQUATION FROM COORDINATESc :"(";X1;",";Y1;")";28);"(";X2;",";Y2;")":F30:F40t X1X22220 :"THESE COORDINATES CAN NOT BE DEFINED BY Y = M X + B. THE EQUATION FOR THIS LINE IS:" :" X = ";X1  F3 IS INFINA21 " ENTER Y1 ";Y18 15);"(";X1;",";Y1;")"? 8d "SECOND COORDINATES (X2,Y2)"} " ENTER X2 ";X2 9:21 " ENTER Y2 ";Y2 X1X2Y1Y22046 15);"(";X2;",";Y2;")" %A11000 *DA /A 02200 423 S$"+ " (5000>  INPUT TWO SETS OF COORDINATES :"THIS PORTION OF THE PROGRAM GENERATES A STRAIGHT LINE EQUATION FROM TWO SETS":"OF COORDINATES SUPPLYED BY YOU." :"FIRST COORDINATES (X1,Y1)" " ENTER X1 ";X1 6:***********************;** ALGEBRA 1 **X** BY **u** TOM JACOBSEN **** GREEN APPLES ****NORTH CENTRAL IOWA*************************F10:F20:F30:F40 MY2:MX3:B24:S100:MG "  1 16:11:" 66666 "U 17:11:" 6 6 "y18:11:" 6 "19:11:" 666666 "20:11:" 6 6 "21:11:" 6 6 " 22:11:" 66666 " /16:11:" 5555555 "S17:11:" 5 "w18:11:" 5 "19:11:" 555555 "20:11:" 5 "21:11:" 5 5 "22:11:" 55555 " -16:11:" 4 "Q17:11:" 4 4 "u18:11:" 4 4 "19:11:" 4444444 "20:11:" 4 "21:11:" 4 "22:11:" 4 " + 16:11:" 33333 "O 17:11:" 3 3 "s 18:11:" 3 " 19:11:" 33 " 20:11:" 3 " 21:11:" 3 3 "22:11:" 33333  ) 16:11:" 22222 "M 17:11:" 2 2 "q 18:11:" 2 " 19:11:" 222 " 20:11:" 2 " 21:11:" 2 " 22:11:" 2222222 ' 16:11:" 11 "K 17:11:" 111 "o 18:11:" 11 " 19:11:" 11 " 20:11:" 11 " 21:11:" 11 " 22:11:" 111111 "% 16:11:" 00000 "I 17:11:" 0 0 "m 18:11:" 0 0 " 19:11:" 0 0 " 20:11:" 0 0 " 21:11:" 0 0 " 22:11:" 00000 " T12000,2010,2020,2030,2040,2050,2060,2070,2080,2090,2100,2110,2120,2130,2140,2150] #X1l (T01400v )TT1 -1030 xT0:SC(U)SC(U)T:2210 }(7) 1999 AAR1400 TT1 SC(U)SC(U)T:1:(7):(7) (7):(7)  d6000!T15:C0:AR0:X0/16368,0>T01999NX401300^R(16384)nR1271110xBXX1L1030V16368,0ZR1411500[R176R1851090`RR176e11:27C:Rj(7)oARAR10R:CC1t1090U      H"10);"5 STOP"4:12:"ENTER NUMBER ";AFA1A55050XA(A)5050yA6000,2000,2600,2900,200005050p DEMO VALUESuF10:F20:F30:F40vS$"+ "zMY2:MX3:B24:S100:MG232900 NHEBRA PROGRAM NUMBER 1"-14)"Y = M X + B"\:" THOMAS JACOBSEN 8-26-79"jA12000rDAyA:718);"MENU":10);"1 DEMO"10);"2 INPUT COORDINATES"10);"3 INPUT EQUATION"10);"4 PLOT GRAP(16384) 16368,0(* A1273260/4 09> 3320n CHANGE X Y COORDINATES TO HIGH RES COORDINATESX(F51)((XGS70).5)150Y(F51)(1)((YGS70).5)70F5F51 MENU AND MAIN CONTROL PROGRAM:108);"ALG, MG.05MG.05BS50B(1)S503300T "PRESS ANY KEY TO CONTINUE ";:R$^ :: FLASH LINE IF IT LIES ON AXIS "PRESS ANY KEY TO CONTINUE" X(1),Y(1)X(2),Y(2) D1100: 3 X(1),Y(1)X(2),Y(2) D1100:  A0 F513224 YGS* XG(YGB)MGA XG0XGSİ4000P F513224^ YG(1)So XG(YGB)MG XG0XGSİ4000 PLOT LINE X(1),Y(1)X(2),Y(2) F31X1(1)S35X1S353300 MG20F313300 MG20F313300 F50g XG(1)S"l YGMGXGB>q YG(1)SYGSİ4000Mr F503202Vs YGSgv XG(YGB)MGx XG(1)SXG0İ4000z F503202| YG(1)S~ XG(YGB)MG XG(1)SXG0İ4000 XGS YGMGXGB YG(1)SYGSİ4005230,5240,5250 ZP310" _5260, dP3506 i5260A nP3100K s5260V xP3200` }5260l P31000 P1((1)(P31)) P2((1)(P11)) AP1P2 11:" "!11:11:P1;16);"-";19);P2;24);"5060P3505060$P3100.50609P3200C5060OP31000eP1((1)(P31)){P2((1)(P31))AP1P211:" "11:11:P1;16);"+";19);P2;24);"=" PS(U)5210,5220,5S(U)5D 3155#I S(U)S(U)16N S(U)1S(U)1BS SC(U)0IX UP] Pxb 23:1:"DO YOU WANT TO TRY AGAIN?"g S$(0):(S$(0),1)"N"20000l m X15n SC(X)0:ST(X)0o q 3000S(U)5010,5020,5030,5040,5050P310X  X(1) X.5İ5200. X.5İ50008 2160B 1000T ST(U)ST(U)Td U2:27:Px U2:35:ST(U) X11000 X U! P3(P3)3165& U1NS+ SC(U)3031300 SC(U)1531455 3155: S(U)S(U)1 ? S(U) N O O "419:11:" N N N O O "X20:11:" N N N O O "|21:11:" N NN O O "22:11:" N N OOO "  P1NP U1NS 2200  U2:1:S$(U)  X11000 2:11:" GGG OOO "#wX1:1:" STUDENT PROBLEM SCORE "f3:S$(1)t4:S$(2)5:S$(3)6:S$(4)7:S$(5)16:11:" N N OOO "17:11:" NN N O O "18:11:" N N 11:" 111111 55555 "!mEp16:11:" GGG OOO "iq17:11:" G G O O "r18:11:" G O O "s19:11:" G O O "t20:11:" G GGG O O "u21:11:" G G O O "v21:" 111111 4 "cCf16:11:" 11 5555555 "gg17:11:" 111 5 "h18:11:" 11 5 "i19:11:" 11 555555 "j20:11:" 11 5 "k21:11:" 11 5 5 "l22:" 111111 33333 "YA\16:11:" 11 4 "e]17:11:" 111 4 4 "^18:11:" 11 4 4 "_19:11:" 11 4444444 "`20:11:" 11 4 "a21:11:" 11 4 "b22:1 111111 2222222 "O?R16:11:" 11 33333 "cS17:11:" 111 3 3 "T18:11:" 11 3 "U19:11:" 11 33 "V20:11:" 11 3 "W21:11:" 11 3 3 "X22:11:111111 111111 "E=H16:11:" 11 22222 "aI17:11:" 111 2 2 "J18:11:" 11 2 "K19:11:" 11 222 "L20:11:" 11 2 "M21:11:" 11 2 "N22:11:"1111 00000 ";;>16:11:" 11 11 "_?17:11:" 111 111 "@18:11:" 11 11 "A19:11:" 11 11 "B20:11:" 11 11 "C21:11:" 11 11 "D22:11:" 9 "19416:11:" 11 00000 "]517:11:" 111 0 0 "618:11:" 11 0 0 "719:11:" 11 0 0 "820:11:" 11 0 0 "921:11:" 11 0 0 ":22:11:" 118888 "'7*16:11:" 999999 "[+17:11:" 9 9 ",18:11:" 9 9 "-19:11:" 999999 ".20:11:" 9 "/21:11:" 9 "022:11:" "5 16:11:" 88888 "Y!17:11:" 8 8 "}"18:11:" 8 8 "#19:11:" 88888 "$20:11:" 8 8 "%21:11:" 8 8 " &22:11:" 8 "316:11:" 7777777 "W17:11:" 7 "{18:11:" 7 "19:11:" 7 "20:11:" 7 "21:11:" 7 " 22:11:" 7 NONE OF THE BOXES ARE COLORED AT THIS POINT.BI19:BX(I)0:IHN DRAW A COLOR GRAPHICS TIC TAC TOE GAMEBOARD COLOR BACKGROUND ORANGE9I1381,38II DRAW LINES OF GAMEBOARD130,390  T0:C0I* BOX OF 9. ARRAY KEEPS TRACK OF WHICH BOXES ARE COLORED.T4BX(9)Z>H11:"DO YOU WANT EASY PROBLEMS?"R16:"PRESS Y FOR YES OR N FOR NO.":B$\B$"N"P1fB$"Y"P0pB$"N"B$"Y"830z(B$)27İ3000, S TO CONTINUE OR TO END";:C$c(C$)27ė:"THANKS FOR PLAYING!!!":"RUN MENU"y(C$)13ĺ:750  T COUNTS THE NUMBER OF PROBLEMS THE STUDENT IS GIVEN C COUNTS THE NUMBER OF PROBLEMS THE STUDENT ANSWERS CORRECTLY 9:"TAC TOE. YOU WILL PICK A BOX AND SOLVE"`11:"THE MATH PROBLEM. WHEN YOU GET THREE"13:"IN A ROW - YOU WIN. YOU MAY GO"15:"VERTICALLY, HORIZONTALLY, OR DIAGONALLY."17:"THINK BEFORE YOU ANSWER. GOOD LUCK!"-22:"PRES0b10:"HELLO, "A$". WELCOME TO TIC TAC ADD."Zl:::A$;", DO YOU NEED DIRECTIONS?"v"PRESS Y FOR YES OR N FOR NO.":B$B$"N"ī770B$"Y"ī6003:11:"RULES OF THE GAME"7:7:"TIC TAC ADD IS A GAME LIKE TIC"/9$21:10:"BY LINDA Y. JOHNSEY"_:"PRESS TO CONTINUE OR TO END";:CN$(CN$)27ė:"THANKS FOR PLAYING!!!":"RUN MENU"!(CN$)13ľCN$:540&0:D12:"WHAT IS YOUR FIRST NAME? ";A$NA$""570XJ DRAW CT33,378$^8,14332h33,3714?r DRAW AM|10,1523[23,2910i23,2915w10,1526 DRAW D17,222323,291823,292217,2229 DRAW D24,292323,292523,292924,292TAC ADD IN COLOR GRAPHICS." 13/ DRAW T: 1,58F 8,143S DRAW I_ 8,148l DRAW Cy 10,148 8,1410 10,1414 DRAW T 21,258 8,1423  DRAW A "27,318 ,8,1427 68,1431 @27,3111 Y x: THIS PROGRAM IS DESIGNED TO GIVE A STUDENT RANDOM ADDITION PROBLEMS WITH SUMS OF 20 OR LESS. THIS PROGRAM UTILIZES A TIC TAC TOE GAMEBOARD PROVIDING THE STUDENT DRILL AND PRACTICE OF ADDITION FACTS WITH SUMS OF 20 OR LESS.  : PRINT TIC MAY NOT BE SOLD.COPY-*4 ! *RIGHT 1982 CUE, INC. *R " ***********************[ #100 224:"PRESS TO GO ON, TO END "; 4IN$:(IN$)152 6(IN$)(27)3000 7(IN$)1352 8: d n TIC TAC ADD BY LINDA Y. JOHNSEREET *&  * REDWOOD CITY *D  * CA 94063 *b  * (415) 363-5472 *  * *  * *  ***********************  *PROGRAM MAY BE COPIED*  *FOR EDUCATIONAL USE &* * * SAN MATEO COUNTY *6  * OFFICE OF EDUCATION *T  * & *r  * COMPUTER-USING *  * EDUCATORS *  * *  * SOFTSWAP *  * *  * 333 MAIN STV TIC TAC ADD 12/25/81, I PROGRAM TEST ADDITIONg SKILLS THROUGH TIC TACx TOE GAME.~ APPLE II W/APPLESOFT LINDA Y. JOHNSEY  *********************** * *          HOW MANY PROBLEMS IN THIS COMPETITION?"/"vNPH"{NP1NP(NP)7045R"7020X"d"X1NS"1:"NAME OF STUDENT # ";X"11X:S$(X)"S$(X)S$(X)" ""S$(X)(S$(X),24)""3000" N"%NX="!!p*!uS$(5),S(5),SC(5),ST(5)5!zX15Z!S$(X)" "u!S(X)2:SC(X)0:ST(X)0{!!U1:P1!X!\12:"HOW MANY STUDENTS WILL COMPETE?(1TO5)"!]NS!bNS1NS5NS(NS)7020!g7000!l'"q12:"T0ī3130$& G%(100TC)D$0 16:A$", THAT IS A SCORE OF "G%"%"U$: "RUN MENU"PROBLEMS."r$ T0ī3130$& G%(100TC)$0 16:A$", THAT IS A SCORE OF "G%"%"$: "RUN MENU"CCN$: #r 4#| 10:A$", DO YOU WANT TO PLAY AGAIN?"`# 13:"PRESS Y FOR YES OR N FOR NO.":B$q# B$"Y"ī830# B$"N"2930# 3000# # # ESCAPE# # # # 10:A$","# 13:"YOU SOLVED "C" OUT OF "T" PROBLEMS." $ IVES PER CENT CORRECT#"" 7:A$","O", 10:"YOU HAVE SOLVED "C" OUT OF "Td"6 11:"PROBLEMS.""@ ROUND UP TO THE NEXT HIGHEST INTEGER"J T0ī2990"T G%(100TC)"^ 15:A$", THAT IS A SCORE OF "G%"%."#h 20:"PRESS TO CONTINUE": ! 1550:! STUDENT DID NOT ANSWER PROBLEM CORRECTLY.j! 23:4:A$", BE CAREFUL. "X%" + "Y%" = "Z%r! 50|! 1550! ! WE HAVE A WINNER! 22::A$", YOU ARE A WINNER!!":! :"PRESS TO CONTINUE";:CN$! ! " G% G)1ī2780, d BX(1)1BX(4)1BX(7)1ī2780O n BX(2)1BX(5)1BX(8)1ī2780r x BX(3)1BX(6)1BX(9)1ī2780 BX(1)1BX(5)1BX(9)1ī2780 BX(3)1BX(5)1BX(7)1ī2780 STUDENT DOES NOT HAVE TIC TAC TOE. RETURN TO PICK A BOX.! 50 COLOR IN BOX 8 15$ I27381 14,25IA J1100:JH IR 2630g COLOR IN BOX 9o 15| I2738( 27,38I2 J1100:J< IF BX(1)1BX(2)1BX(3)1ī2780P BX(4)1BX(5)1BX(6)1ī2780 Z BX(7)1BX(8)1BX(9IN BOX 515 I1425* 14,25I: J1100:JA$ IK. 2630`8 COLOR IN BOX 6hB 15uL I1425V 27,38I` J1100:Jj It 2630~ COLOR IN BOX 7 15 I2738 1,12I J1100:J I 2630 X 2 *154I112$>14,25I4HJ1100:J;RIE\2630Zf COLOR IN BOX 3bp15nzI112{27,38IJ1100:JI2630 COLOR IN BOX 415I14251,12IJ1100:JI2630 COLOR E BOXvBX(A)1 A1ī2010/A2ī2080>A3ī2150MA4ī2220\A5ī2300kA6ī2360zA7ī2430A8ī2510A9ī2570 COLOR IN BOX 115I1121,12IJ1100:J I2630  COLOR IN BO BEEN GIVEN&TT1>0" TYPE ANSWER AND PRESS "^:22:14:X%;" + ";Y%" = ";:D22:24:S$:(S$)0S$"0"TT1:1810NZ%(S$)ī2740X23:10:A$", THAT'S SUPER!!"bCC1l STUDENT HAS SOLVED PROBLEM. TIME TO COLOR TH9 P = 1 RANDOM PROBLEMS WILL HAVE SUMS OF 20 OR LESSV X% IS THE FIRST ADDENDiX%(9)21010 Y% IS THE FIRST ADDENDY%(9)21010 Z% IS THE SUM OF X% PLUS Y%Z%X%Y%  T IS THE NUMBER OF PROBLEMS THE STUDENT HASPROBLEMS WITH SUMS 20 OR LESS.-rP1ī1740i| P = 0. RANDOM PROBLEMS WILL HAVE SUMS OF 10 OR LESS. X% IS THE FIRST ADDENDX%(9)21020 Y% IS THE SECOND ADDENDY%(9)21020 Z% IS THE SUM X% PLUS Y%Z%X%Y%181021:"CHOOSE A BOX (1-9)":B$*"A(B$)>,A0A10ī1600H61550c@ IS THIS BOX COLORED?vJBX(A)0ī1640T BOX IS ALREADY COLORED.^1550h P = PROBLEMS. IF P = 0 THEN RANDOM PROBLEMS WITH SUMS OF 10 OR LESS. IF P = 1 THEN MIXED 1,3319n31,3321#x19,21337 DRAW NUMBER 7C5,730P30,347d DRAW NUMBER 8r18,203018,203218,203430,341830,3420 DRAW NUMBER 931,333031,333230,323130,3433 331,33431,336)31,33854,833I DRAW NUMBER 4V17,195b5,819o17,217  DRAW NUMBER 518,201717,1918(18,2019219,2120<18,2021F DRAW NUMBER 6P31,3317Z17,2131d30,393939,039"$0,390/.0,3913<80,3926IB0,3913VL0,3926|V NUMBER THE SQUARES 1-9 IN WHITE` DRAW NUMBER 1j4,86t DRAW NUMBER 2~18,2044,62018,2066,81818,208 DRAW NUMBERF23,2727:13,28:13,29:14,30@P15,30:16,31:17,31:26,28`Z26,29:25,30:24,30:23,31nd22,31:7n16,22:17,22:16,23:17,23x22,22:22,23:23,22:23,2311,2832:9,33:10,33:29,3330,33:7,934:30,3234 6,35:6,36:52,25:23,25:23,24:24,24+24,23:7:1780=:F:4c 19,1:20,1:19,2:20,2:3,518:3,521:6,8176,822:9,1116:9,1123(12,1515:12,1524:16,1814216,1825:14,2519:13<20,2213:20,2226:23,2712 PP1:YY1:RR1:KK1:I&`:1780/~:9O24,15:24,14:23,14:23,13h22,13:15:15,22126:15,13:14,13:14,1413,14:13,15:1:13,1613,22:13:16,221214:13,23:13,24:14,2414,25:15,25:715,2226:11:24,2813:14,1814:20,2214G24,2814:14,1815:20,2215:24,2815s14,1816:23,2816:15,2717:16,261817,2519:18,2420:15:20,22920,2212:20,2216:9,1619:10,112313,1523:P15:Y19:R16:K19I113:P,Y:R,K:3:19,2116/>19,2114:15,1818:15,18229z1780KA$"N"ī1800QX1w18,246:17,257:16,26815,189:23,279:14,181020,2210:24,2810:14,1811:20,221114,1812:23,2812:14,1813:20,221324,2811:215,2510:14,2611813,2712:12,1613:24,2813:8d 17,2313:14,1814:22,2614:15,181415,1915:15,2016:15,2217:19,3518 15,2023:15,2024:15,1925:19,3522*14,1826:17,3619:17,3720:17,3621 419,3522:19,211522:36,22:37,22:37,23E31,37:31,38:32,38:36,38:37,38:37,37K`J0:G11000:GlJ0::rz1121,243:19,215:19,216:20,4:25,4:25,5:15:18,22717,238:13,1512:12,1613:13,152812,1627:15,259:1,2:2,1:6,1:7,1:7,2@X1,15:1,16:2,16:7,15:7,16:6,16kb16,5:17,4:17,3:16,11:17,12:17,13l21,1:22,1:21,2:26,1:27,1:27,2v31,6:31,7:32,7:37,6:37,7:36,711,23:11,22:12,22:16,22:17,22:17,2331,23:31,22:32,94+35,375:32,356:28,327:21,288M24,3910:24,3918:22,3924l24,3630:24,3638:3,50&3,517:11,137:11,139:13,1510013,156:23,250:21,278:33,358:11,1730:13,1521D20,2821:33,3521:33,3539N1,1:,3636:6,1737:33,3537> HH1:H3440:H1Ġ0:H2Ġ15L G11000T G:\ :b j 15p  3,140:3,148:0,1710 0,218:13,1718:3,1720:3,1728 0,530:0,538:8,1734:21,28028,321:32,352:35,373:37,3:12,19286 T12,1438:16,1838:22,3010:22,3018Z ^22,3020:1,7:7,7:1,15:7,15 h1,21:7,21:1,31:7,31:12,37:14,37 r18,1:18,3:18,8:18,7:16,37:18,37 |6,1733:33,3533:5,2534 32,3634:5,3035:32,3635 5,2536:3216,200:24,300:9,124> 4,68:16,208:24,308:0,811j "10,1811:20,2811:30,3711:33,3715 ,1,319:5,719:30,3719:11,1726 621,2826:2,68:2,614:2,622 @2,632:12,180:12,184:12,188 J12,1918:12,1920:12,1624;" AND GOT ";X;" RIGHT"\ :" IN A MOMENT YOU WILL BE RECEIVING YOUR GRADE FOR THE TEST"m U13000:Uz PFī40 Q((XF)100) Q90710 Q80Q90920 Q70Q801150 Q60Q701280 Q601540 :15 4,60:CABK P"WHAT DO YOU THINK THE ANSWER TO ";A;"*";B;" IS?":DY ZDC110f dDC130o n260x x140 450 DABĪXX1 DABĪZZ1 PP1 PF185 190 "ON A TEST OF ";F;" PROBLEMS YOU MISSED ";Z "I AM THE APPLE II PLUS, AND I WILL TRY TO HELP YOU WITH YOUR MULTIPLICATION TABLES BY TESTING YOU""HOW MANY PROBLEMS WOULD YOU LIKE ON YOUR TEST ":F(2A((1)12)<B((1)12) F       TY *$  * OFFICE OF EDUCATION *B  * *`  * COMPUTER-USING *~  * EDUCATORS *  * *  * SOFTSWAP *  * *  * 333 MAIN STREET *  *  BINGO MULTIPLICATION 8-80) FMULTIPLICATION PRACTICELS f16K APPLESOFTo RUSS BAYLEY AND BILL WALLQUIST   *********************** * *  * SAN MATEO COUN          1O END 'SPACE' TO CONT.>"/T(16384)155370G^(16384)160340[h:16368,0:10r::10:10:"* * * THE END * * *":| BY LEROY LARSEN FROM 15 PROGRAMS BY JONATHAN FRANKLIN  FRACTIONS & DECIMALS U GOT";Y;" PROBLEMS RIGHT OUT OF TEN.":"WHAT PERCENTAGE DID YOU GET RIGHT?";Nt ,:NY10ĺ"YOU GOT IT!":K0:320 6"TRY AGAIN"::"(HINT:MULTIPLY THE NUMBER CORRECT BY THE NUMBER OF PROBLEMS.)":N11750:N:290 @:::J20:"< PRESS 'ESC' TRRECT ANSWER IS (1,2,3,4,5,6) ?";F:XX1T H(F)H(G)X1YY1:"! RIGHT !":60 C(F)D(F)C(G)D(G)X1YY1:"! RIGHT !":60 H(F)H(G)ĺ"! RIGHT !":60 C(F)D(F)C(G)D(G)ĺ"! RIGHT !":60 "TRY AGAIN.":230N "::::"YO7 :"THE DECIMAL IS ";AB;28);"QUESTION # ";K:W G((1)6)1:C(G)A:D(G)B "<1> ";C(1);"/";D(1);" <2> ";C(2);"/";D(2);" <3> ";C(3);"/";D(3): "<4> ";C(4);"/";D(4);" <5> ";C(5);"/";D(5);" <6> ";C(6);"/";D(6)::X0( "THE CO4):E(6)C(5)D(5):E(7)C(6)D(6)H G((1)6)1:X16:GXH(X)E(1)^ GXH(X)E(X1) H(X)H(X)1000:H(X)(H(X)):H(X)H(X)1000:X: "<1> ";H(1);" <2> ";H(2);" <3> ";H(3)::"<4> ";H(4);" <5> ";H(5);" <6> ";H(6)::X0 230 K0:230 <KK1:K11290% F:E PA((1)L)1:B((1)M)1u ZX16:C(X)((1)L)1:D(X)((1)M)1:X dZ2180 n:"THE FRACTION IS ";A;"/";B;28);"QUESTION # ";K xE(1)AB:E(2)C(1)D(1):E(3)C(2)D(2):E(4)C(3)D(3):E(5)C(4)D(S MULTIPLE CHOICE DECIMAL AND FRACTION CONVERSIONS `L9:M20:(8):14);"MULTIPLE CHOICE":(10):5);"FRACTION AND DECIMAL CONVERSIONS":::("FRACTIONS TO DECIMALS (1)":"DECIMALS TO FRACTIONS (2)";Z 2Y0:   FAILED! YOU HAD BETTER STUDY SOME MORE!!!"FV11500:VSS39:T6_0:S,TqAB1100:AB:"WOULD YOU LIKE TO TAKE ANOTHER TEST.(Y/N)":A$::A$"Y"25:A$"N"1800 F::A$"Y"25:A$"N"1800 F'^33,35:33,36:34,37:34,38:35,39Nh17,31:16,31:15,30:14,30:13,29ur13,28:10,18:14,17:15,16:16,15|17,14:18,14:19,15:20,15:21,1422,14:23,15:24,16:25,17:29,1826,28:26,29:25,29:24,29:23,3022,30:5"YOU22,2423:+16,2328:11,2832:7,934:M"30,3234:19,2234:18,2213o,23,2712:18,2226:23,2727624,2619:24,2620:34,3918@4,39:5,38:5,37:6,36:6,35J9,33:10,33:11,39:11,38:19,37T10,37:28,39:28,38:29,33:30,33,37:5,38(4,39:33,35:33,36:34,37=34,38:35,39:0]19,25:20,25:19,26:20,26}11,38:11,39:28,38:28,391117,2228:16,29:23,2913,1618:13,162118,2012:18,2017:1780:15 11,2819:15,1723: PROBLEM WILL APPEAR." 1P13000:PO FIVE IN A LINE IS BINGOk" 5 IN A LINE = BINGO"qP13000:P"WHAT'S YOUR NAME? ";N$::N$""5060::"HI, ";N$;". LET'S GET STARTED."2120- RANDOM CONGRATULAT 24,10)HUE2100. 19,15)HUE2100E 14,20)HUE2100[ 9,25)HUE2100d 854"******* BINGO *******""******* TIMES TABLES PRACTICE *******":P13000:P"TYPE IN THE CORRECT ANSWER AND A NEW 854 B5255,( 24,B)HUE263032 B<< 854JF B5255`P 29,B)HUE2680gZ Bpn 854x 9,5)HUE2730 14,10)HUE2730 19,15)HUE2730 24,20)HUE2730 29,25)HUE2730 854 29,5)HUE2100 854L A9295)V A,19)HUE24200` A9j 854Gt A9295]~ A,24)HUE2460d Am 854{ B5255 9,B)HUE2500 B 854 B5255 14,B)HUE2540 B 854 B5255 19,B)HUE2590 BA" X ";B" = ";:C]:*fCAB2200;CAB2220IT1:1890WT0:1900k CHECK FOR WINyA9295A,4)HUE2300A854A9295 A,9)HUE2340 A 854$ A9295. A,14)HUE23808 ABO(((1)5).4)5+P(((1)5)1.8)5AP2,O3)22000K1930ZO,(O3)PmO,(O3)(P1)O,(O3)(P2) O,(O3)(P3) 224045130> RANDOM SELECTION OF MULTIPLICATION PROBLEMHA((1)10):B((1)10)\15):34,363:36,370T33,373,h36,370:35,3719H35,3714V32,3515d31,3515r31,351816,172916,1730016,1733N5018bT11920lT05260{ RANDOM FILL-IN OF BINGO SQUARESHUE11HUE,3712U30,3210:31,3311,d29,3722:x29,3727H38,3933V38,3935n29,3729:29,373234,3637:34,362930,3230:31,333122,253729,373434,3632, 'A FIVE'@0,329:0,337:0,332J30,320ANT TO TRY AGAIN?'YES' OR 'NO'";Z$>(Z$,1)""Č936:1304S(Z$,1)"Y"100j(Z$,1)"N"1304 :::::::::"O.K., ";N$;". BYE FOR NOW."$T11500:T::' GRAPHICS FOR '5 IN A LINE ="(13229,377<29,379P2934jX1200:X-t768,152:769,80:770Hv768,128:769,160:770bx768,152:769,40:770|z768,144:769,80:770|768,128:769,200:770"***************************************""CONGRATULATIONS!!!! YOU HIT A BINGO."""W GRAPHICS FOR 'G'u4{z5,3522:5,3523:5,1029:5,1028:25,3528:25,3529:24,275:24,276:24,2734:24,2735|26,2923:26,2924~ GRAPHICS FOR 'O'25,3532:5,3538:33,375:33,37355,3533:5,3539:33,376:33,371:6,167:19,347:5,356=^0,65:0,76:0,635:0,734Q_0,517:0,518n`5,75:16,195:33,355ua6f5,359:5,3510j GRAPHICS FOR 'N'k8p5,3512:5,3513:5,3518:5,3519r5,1114:10,1615:15,2116:20,2617tD8335:1,26D:D. E1265:8,33E:E8 R1320M T GR FOR 'BINGO'e VX11500:X:10020 W:1:768,152:769,80:770 X768,128:769,160:770 Y768,152:769,40:770 Z768,144:769,80:770 [768,128:769,200:770\5,350:5,35CHANGED& + SQUARE COLOR - LINE 1920X , 'BINGO' COLORS - LINES 855,865,875,885,895 - '5 IN A LINE =' COLOR - LINE1320 27999 d BACKGROUND COLOR FOR BINGO SQUARES i:::2 nA932:2,26A:A x LINES FOR BINGO SQUARES 15 S NOT TO BE** ! *SOLD. *H " ***********************j #11000: INTRODUCTORY REMARKS ( COLOR LINE LOCATIONS ) BINGO LINES - LINE 130 * BACKGROUND COLOR - LINE 105 - IF THIS COLOR IS CHANGED THEN COLOR IN LINE 1960 MUST BE REDWOOD CITY *2  * CA 94063 *P  *(415)364-5600 EX 4401*n  * *  ***********************  *  ***********************  *PROGRAM MAY BE COPIED*  *FOR EDUCATIONAL USE * *ONLY AND IE "TYPE IN THE CORRECT ANSWER AND A NEW"::"PROBLEM WILL APPEAR."x ::"YOUR SCORE WILL SHOW ON THE SCREEN.":: "WHEN YOU WANT TO STOP HIT 'RESET'"::: "WHAT'S YOUR NAME?";N$ :::"HI, ";N$;". LET'S GET STARTED." A((1)10)D. *. "************************q d USES RANDOM NUMBERS ANDRANDOM CONGRATULATORY MESSAGES. n CAN BE CHANGED TO ADDITION OR SUBTRACTION. x:Q$(2):N$(10):WR0:SC0:: "******* TIMES TABLES PRACTICE *******"::: CA 94063 *0 *415-364-5600 EXT. 4401*N * *l ************************s *z * ************************ * PROGRAM MAY BE COPIED* * FOR EDUCATIONAL USE * * ONLY AND IS NOT TO * !* BE SOL *" * OFFICE OF EDUCATION *@ * *^ COMPUTER-USING EDUCATORS| * * * SOFTSWAP * * * * 333 MAIN STREET * * REDWOOD CITY * * ~ !TIMES TABLES PRACTICE 7/80( EPRACTICE WITH ONE DIGIT_MULTIPLICATION FACTSez32K - APPLESOFTRUSS BAYLEY    ************************ * * * SAN MATEO COUNTY      PLAY IS RANDOMLY FILLED BY CORRECT RESPONSES TO PROBLEMS |#+CREATED BY BILL WALLQUIST AND RUSS BAYLEY - MARCH 1980 #+P TIMES TABLE PRACTICE."/"*:15)"CREATED BY"\"+::5)"BILL WALLQUIST AND RUSS BAYLEY"u"+:15)"MARCH, 1980"" +X12500:X=# +MULTIPLICATION TABLES PRACTICE PROGRAM USING RANDOM NUMBERS AND RANDOM CONGRATULATORY MESSAGES. A BINGO GRAPHICS DIS020!$'14080u!t'770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202!~'782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0!'855!*****!*:"*::::7)"BINGO I * N N * GGGG * OOOO *"& 0 86000 l 8800: q ::S v "'YES' OR 'NO' ";Z$h (Z$,1)"Y"100 (Z$,1)"N"Ģ22:8310 1312 !3)"* * * * * *" ! `"3)"************************************" j"!'100013)"* BBB * I * N N * GGGG * OOOO *"`3)"* B B * I * NN N * G G * O O *" 3)"* B B * I * N NN * G * O O *" 3)"* BBB * I * N N * G GG * O O *" 3)"* B B * I * N N * G G * O O *" & 3)"* BBBB * 5S16336ESOUND(S)(S)(S)(S)(S)(S)(S)(S)(S)OBEEPU> INTRODUCTORY MESSAGE IN NON-GRAPHICS ?:::@8800860086003)"*WOULD * YOU * LIKE * TO * PLAY *"86008600860088H, ";N$;".":50805350nWRWR1::"YOU GOOFED, ";N$;". WANT TO TRY THAT ONE ":"AGAIN? 'YES' OR 'NO'"vQ$|Q$"Y"2140"O.K. ";AB;" IS THE CORRECT ANSWER."W12000:W:"TRY THAT ONE AGAIN.":2140BEEP12ZC60ĺN$;", YOU ARE REALLY DOING FINE.":5080bdC70ĺ"THEY DO GET HARDER SOMETIMES.":5080nC80ĺ"THAT WAS A HARD ONE,WASN'T IT, ";N$;"?":5080xC90ĺN$;", IT LOOKS LIKE YOU HAVE BEEN STUDYING.":5080C101ĺ"THAT ONE WAS REALLY TOUGGHER ONES.":5080?(C15ĺ"YOU'RE DOING FINE, ";N$;".":5080o2C20ĺ"NOT BAD. HERE'S ANOTHER ONE.":5080<C30ĺ"MAYBE THE NEXT ONE WILL BE HARDER, ";N$;".":5080FC40ĺ"GO, ";N$;", GO.":5080PC50ĺ"KEEP UP THE GOOD WORK, ";N$:50801ORY MESSAGES BASED ON VALUE OF PROBLEM ANSWER| C1ĺ"ZEROS ARE EASY, ";N$;". LET'S TRY A MORE":"CHALLENGING ONE.":5080C5ĺ"THAT WAS PRETTY EASY, WASN'T IT, ";N$;"?":"THEY DO GET HARDER THOUGH.":5080C10ĺN$;", IT'S TIME TO GET SOME TOU6 7T0$ <:A;" X ";B;" = ";/ AQQ19 F"";CH PCAB130S UTT1` WT3200 dCABĺ"TRY A BIGGER NUMBER, "N$".": nCABĺ"TRY A SMALLER NUMBER, "N$".": sCV(37):CV16āI1600:I:936:37,8 x60 936: R( ,:"WHAT TABLE WOULD YOU LIKE TO PRACTICE?"4 - ."0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, OR 11=PROBLEMS FROM ALL TABLES. ":"";A /A11GA 0A0A11Ģ14:26 1936:33,30:32,8 234,6 310 4B((.05)10) 5G11A((.05)10) *- "************************: &936:3e '"HI, WHAT'S YOUR NAME? ";N$:N$""10 (:"IT'S GREAT TO HAVE YOU HERE TODAY, "N$:: )Q0:S0 *"I WILL GIVE YOU A PROBLEM. PLEASE TYPE IN THE ANSWER. THEN PUSH RETURN." +G0.CA 94063 */ * (415)364-5600 EX 4401*M * *k ************************r *y * ************************ *PROGRAM MAY BE COPIED * *FOR EDUCATIONAL USE * *ONLY AND IS NOT TO BE * !*SOLD. *! * OFFICE OF EDUCATION *? * *] COMPUTER-USING EDUCATORS{ * * * SOFTSWAP * * * * 333 MAIN STREET * * REDWWOD CITY * * P  MULTIPLICATION AUG 1980( G STUDENT SELECTS TABLE(S)W FOR DRILL]q 16K APPLESOFTy  AUTHOR UNKNOWN    ************************ * * * SAN MATEO COUNTY  ;N$;". YOU WIN A FREE ICE CREAM."}:"BEFORE ANYONE ELSE PLAYS HAVE YOUR TEACHER CHECK THE SCREEN AND WRITE YOU A NOTE."Y8E13,2326:14,2228:14,2227:15,2129:15,2130:16,2031n16,2032:17,1933:17,1934:35,18|0:35,18:"YOU WIN, ";N$;" THE PRIZE IS A FREE ICE CREAM. CONGRATULATIONS."U13000:U::::! :::"THAT'S RIGHT, ":13,236:12,247:11,258:10,269:9,2710:9,2711:9,2712k10,2613:11,2514:12,2415:14,22161:13,16:23,16:12,2417:11,2518:10,2619:9,2720:9,272124,16:12,2425:9,2720:9,2721:9,2722:10,2623:11,2524:12,24255,2910:15,1611'D9,2129:9,2130?N19,2920:19,2921WX20,2819:20,2820ob19,2032:19,2033l:"IF YOU REACH 'SCORE 25' WITH NO ERRORS YOU WILL BE SURPRISED."vT13000:T::15:16,203:15,214:?14,22520/"O.K. THE CORRECT ANSWER IS ";AB;::W"YOUR SCORE IS NOW ";WR;" WRONG.":"NOW TRY THAT LAST ONE AGAIN.":220BEEP125S16336SOUND(S)(S)(S)(S)(S)(S)(S)(S)(S)&BEEP0::8:15,299:1$;"?":190GC90ĺN$;", IT LOOKS LIKE YOU HAVE BEEN STUDYING.":190}C101ĺ"THAT ONE WAS REALLY TOUGH, ";N$;".":190520WRWR1:12)"YOU GOOFED, ";N$;"."::"WANT TO TRY THAT ONE AGAIN? 'Y' OR'N'.":Q$:Q$"Y"ī2E WILL BE HARDER, ";N$;".":190A^C40ĺ"GO, ";N$;", GO.":190ohC50ĺ"THAT'S THE SPIRIT, ";N$;".":190rC60ĺN$;", YOU ARE REALLY DOING FINE.":190|C70ĺ"THEY DO GET HARDER SOMETIMES.":190 C80ĺ"THAT WAS A HARD ONE,WASN'T IT, ";NTHAT WAS PRETTY EASY, WASN'T IT, ";N$;"? THEY DO GET HARDER, THOUGH.":1906C10ĺN$;", IT'S TIME TO GET SOME TOUGHER ONES.":190@C15ĺ"YOU'RE DOING FINE, ";N$;".":190JC20ĺ"NOT BAD. HERE'S ANOTHER ONE.":190TC30ĺ"MAYBE THE NEXT ON B((1)10) :5 " ";A:"*";B:"---":CE CAB420Q SCSC1k 32)"SCORE ";SC::{ K1400:K SC5WR0İ570 SC25WR0ī660 "C1ĺ"ZEROS ARE EASY, ";N$;". LET'S TRY A MORE"::"CHALLENGING ONE.":190K,C5ĺ" "N$".":(6"CORRECT ANSWER, "N$".":N@"GOOD WORK! KEEP IT UP, "N$".": TIONS."::;"DO YOU WANT TO TRY AGAIN, "N$"? ":Q"YES OR NO. ";C$`C$""227{(C$,1)"Y"Č936:18(C$,1)"N"227:936255"THANKS FOR WORKING SO HARD,"::N$". COME BACK AGAIN."+ ,"THAT'S IT,3(1))1R300,310,320'SS15S10219=52r:N$:"THE RIGHT ANSWER IS":A;" X ";B;" = "ABZ11000:Z54Y0::936:2 N$", YOU ANSWERED 10 MULTIPLICATION"::"PROBLEMS IN "Q" TRIES."::Q10ĺ"CONGRATULA