' +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*`yz#?     Ϡ ààĠԠԠ Ǡ ǠŠ Ҡ ҠҠΧԠŠ:B$:"DUPLICATE NAME";::1030&LZ=VA$"DELETE"1140`19:1:868:"PRESS 'D' TO DELETE FILE ";K$:"OR ANY OTHER KEY TO CANCEL.";:R$:R$"D"810t(A$"RUN"A$"LOAD")T$(JPLK)"B"A$"B"A$0~A$A$" "N$(JPLK):19:1:958:(A$,4820A$"RENAME"1110K19:1:868:"RENAME ";K$;:RR$:RR$""810(RR$)65(RR$)90Ģ20:1:868::B$;"INVALID NAME";::1030R$"":I1(RR$):R$R$(((RR$,I,1))128):I:R$R$(BL$,30(R$))BZ1L%PL:N$(Z)R$Ģ20:1:868:(K$)48K17K318105KK16:(JPLK)C810MN$(JPLK)"1"810(A$"RUN"A$"LOAD")T$(JPLK)"T"Ģ19:1:868::B$;"FILE ";K$;" IS TEXT"::820(A$"DELETED"A$"RENAME")L$(JPLK)"*"Ģ19:1:868::B$;"FILE ";K$;"LOCKED"::R16368,0:19:1:958:K$(K):KK176:K0K9970CfK01340UpK6K71260fzK8K9300"PRESS 'LETTER' YOU WISH TO ";:K1A$"LOAD"K2A$"LOCK"K3A$"UNLOCK"K4A$"DELETE":K5A$"RENAME"A$;::K$:K1PL:(JPLI)C810L N$(JPLI)"1"ĺ(TI);" ";::"DELETED FILE":N$(JPLI)"1"ĺ(TI);" ";L$(JPLI);T$(JPLI);" ";S$(JPLI);" ";N$(JPLI) I*19:1:9584A$"RUN":21:1:M1$:M2$:M3$:M4$;>K(16384):K1288305B"N$(C)(INP$,ZZ,30)$Y:XAL%CPL:CL%PLL%L%1fV$((VOL)):(V$)1V$"00"V$}(V$)2V$"0"V$F$(F):(F$)1F$"00"F$(F$)2F$"0"F$:"SL:";S;"DR:";D;"VOL:";V$;" FREE:";F$;" PAGE ";P;"OF ";L%::JP1:I:Z(Y33):Z06906&CC1:(Y)255N$(C)"1":670h:FFZ:S$(C)(Z):(S$(C))1S$(C)"00"S$(C)X(S$(C))2S$(C)"0"S$(C)bZ(Y2):L$(C)" ":Z4L$(C)"*":ZZ128lZ0T$(C)"T"vZ1T$(C)"I"Z2T$(C)"A"Z4T$(C)""7"Ģ3:1:370<I$:S(I$):OS,(CS):OD,(CD):CS,S16:"CURRENT DRIVE IS ";D:"PRESS RETURN OR ENTER DRIVE #";:I$:I$(13)490I$"1"I$"2"Ģ5:1:958:440I$:D(I$):CD,DX1511:SEC,X:768:ZZ34:YF1F735:ZZZZ35IDEAS.":BN1150:BN:::::"LET'S GET GOING!!":SW1600:SW:OrK0490|K8ĺ"INSERT NEW DISK IN SLOT:";S;",DRIVE:";D:"AND PRESS RETURN.";:R$:490"CURRENT SLOT IS ";S:"PRESS RETURN OR ENTER SLOT #";:I$:I$(13)ĺ:440I$"0"I$ f] h(5):"ROOM 300"::(5):"18 DUNCAN DRIVE"::(5):"NEW PORT RICHEY, FLORIDA 34653"p jSD11200:SD m::"OF COURSE THEY WILL GIVE YOU YOUR":"$5.00 BACK WITH YOUR FIRST ORDER." nNB1600:NB oLK1600:LK pBq"ENOUGH OF MY :WE11000:WEF [:"FOR YOUR OWN CATALOG LISTING OVER":UY11:UYt ^::(12):"2,000 PROGRAMS":IO1500:IO _:(6)::"FOR LESS THAN 25 CENTS EACH!!"::QP11:QP a::"SEND $5.00 TO:":TG1600:TG d:(5):"DUNCAN INSTITUTE LIBRARY":(15):"AND GET MORE WORK DONE"N J:"BY USING MORE OF THE":TH1100:THw O:(5):"FASCINATING,":RD1100:RD R:(10):"LOW COST,":PO1300:PO U:(15):"PUBLIC DOMAIN PROGRAMS":WR1100:WR X:"AVAILABLE FROM THE DUNCAN INSTITUTE."OCK 6=PAGE AHEAD 9=RESET DRIVE":S(18455)16:D(18454):K0:CS,S16:CD,Do ,TKR,17:F496:P1:C0:: /K8K9370 1:(18):"HI!" 3Q1400:Q: 5 6"YOU AND I CAN" : ;(5):"LEARN MORE," ?:(10):"HAVE MORE FUN,"" C:IOB777:T64:PL15:RB27136:CSIOB1:CDIOB2:TRKIOB4:SECIOB5:VOLIOB14:OSIOB15:ODIOB16:F1RB11:F7RB221:M1$"TYPE'LETTER' TO RUN, OR 0=EXIT"Q "M2$"1=LOAD 4=DELETE 7=PAGE BACK":M3$"2=LOCK 5=RENAME 8=NEW DISK":M4$"3=UNL*dINP$"":VS(106)256(105):VS2,240:VS3,14:VS4,150: 169,3,160,9,32,217,3,96,0,1,96,1,0,17,15,251,183,0,150,0,0,1,0,254,96,1:I768793:X:I,X:I:BL$""I140:BL$BL$(160):I:N$(105),S$(105),T$(105),L$(105):1290 D$(4):B$(7)      RRECTLY T0:C0R* BOX OF 9. ARRAY KEEPS TRACK OF WHICH BOXES ARE COLORED.]4BX(9)c>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İ3022:"PRESS TO CONTINUE OR TO END";:C$l(C$)27ė:"THANKS FOR PLAYING!!!":"RUN MENU"(C$)13ĺ:750  T COUNTS THE NUMBER OF PROBLEMS THE STUDENT IS GIVEN C COUNTS THE NUMBER OF PROBLEMS THE STUDENT ANSWERS COE TIC"89:"TAC TOE. YOU WILL PICK A BOX AND SOLVE"i11:"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!"670X9b10:"HELLO, "A$". WELCOME TO TIC TAC ADD."cl:::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 LIK9$21:10:"BY LINDA Y. JOHNSEY"_:"PRESS TO CONTINUE OR TO END";:CN$(CN$)27ė:"THANKS FOR PLAYING!!!"(4);"RUN HELLO"!(CN$)13ľCN$:540&0:D12:"WHAT IS YOUR FIRST NAME? ";A$NA$""5J 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 STd TIC TAC ADD 12/25/81, I PROGRAM TEST ADDITIONg SKILLS THROUGH TIC TACx TOE GAME.~ APPLE II W/APPLESOFT LINDA Y. JOHNSEY  *********************** * *          <:10:12:"MASH 6502 ENDED"(F: I)"RENA"N$(JPLK)(R$,30)%750>K6PP1:PL%P1WK7PP1:P1PL%`750 ECD(222):LOC(219)256(218):19:1:958::ECD4ĺB$;"WRITE PROTECTED"(A$,1)"B"ĝ:1350(ECD4ĺB$;"ERROR ";ECD;" LINE ";LOC2:820)"RENA"ĺA$:20:8:(R$,30):A$A$","(R$,30)I(A$,4)"RENA"ĺA$tD$;A$;",S";S;",D";D:(A$,1)"B"1350(A$,4)"LOCK"L$(JPLK)"*"(A$,4)"UNLO"L$(JPLK)" "(A$,4)"DELE"N$(JPLK)"1":FF(S$(JPLK)):730(A$,4NTINUE":CN$:#r =#| 10:A$", DO YOU WANT TO PLAY AGAIN?"i# 13:"PRESS Y FOR YES OR N FOR NO.":B$z# B$"Y"ī830# B$"N"2930# 3000# # # ESCAPE# # # # 10:A$","$ 13:"YOU SOLVED "C" OUT OF "T" PROBLEM" G% GIVES PER CENT CORRECT,"" 7:A$","X", 10:"YOU HAVE SOLVED "C" OUT OF "Tm"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 CO. ! 50! 1550C! STUDENT DID NOT ANSWER PROBLEM CORRECTLY.s! 23:4:A$", BE CAREFUL. "X%" + "Y%" = "Z%{! 50! 1550! ! WE HAVE A WINNER! 22::A$", YOU ARE A WINNER!!":! :"PRESS TO CONTINUE";:CN$! ! 8)1BX(9)1ī27805 d BX(1)1BX(4)1BX(7)1ī2780X n BX(2)1BX(5)1BX(8)1ī2780{ 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 BOX630 COLOR IN BOX 8  15- I2738: 14,25IJ J1100:JQ I[ 2630p COLOR IN BOX 9x 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( COLOR IN BOX 515& I14253 14,25IC J1100:JJ$ IT. 2630i8 COLOR IN BOX 6qB 15~L I1425V 27,38I` J1100:Jj It 2630~ COLOR IN BOX 7 15 I2738 1,12I J1100:J I 2LOR IN BOX 2*15 4I112->14,25I=HJ1100:JDRIN\2630cf COLOR IN BOX 3kp15wzI11227,38IJ1100:JI2630 COLOR IN BOX 415I14251,12IJ1100:JI2630 COLOR THE BOXvBX(A)1)A1ī20108A2ī2080GA3ī2150VA4ī2220eA5ī2300tA6ī2360A7ī2430A8ī2510A9ī2570 COLOR IN BOX 115I1121,12IJ1100:J I2630   COUDENT HAS BEEN GIVEN&TT1G0" TYPE ANSWER AND PRESS "g: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 1810B P = 1 RANDOM PROBLEMS WILL HAVE SUMS OF 20 OR LESS_ X% IS THE FIRST ADDENDrX%(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 STEN MIXED PROBLEMS WITH SUMS 20 OR LESS.6rP1ī1740r| 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%'21:"CHOOSE A BOX (1-9)":B$3"A(B$)G,A0A10ī1600Q61550l@ IS THIS BOX COLORED?JBX(A)0ī1640T BOX IS ALREADY COLORED.^1550'h P = PROBLEMS. IF P = 0 THEN RANDOM PROBLEMS WITH SUMS OF 10 OR LESS. IF P = 1 TH31d31,3319n31,3321,x19,2133@ DRAW NUMBER 7L5,730Y30,347m DRAW NUMBER 8{18,203018,203218,203430,341830,3420 DRAW NUMBER 931,333031,333230,323130,3433AW NUMBER 331,334%31,336231,338>4,833R DRAW NUMBER 4_17,195k5,819x17,217  DRAW NUMBER 518,201717,1918(18,2019219,2120<18,2021F DRAW NUMBER 6P31,3317Z17,21,3900,393939,039+$0,3908.0,3913E80,3926RB0,3913_L0,3926V NUMBER THE SQUARES 1-9 IN WHITE` DRAW NUMBER 1j4,86t DRAW NUMBER 2~18,2044,62018,2066,81818,208  DR005 NONE OF THE BOXES ARE COLORED AT THIS POINT.KI19:BX(I)0:IQW DRAW A COLOR GRAPHICS TIC TAC TOE GAMEBOARD COLOR BACKGROUND ORANGE9I1381,38II DRAW LINES OF GAMEBOARD130CT OF THIS GAME IS TO":"COMPLETE SQUARES.":3080 :21:"YOU DO THIS BY DRAWING LINES BETWEEN":"THE DOTS ON THE GAME BOARD.":3080 :21:"TO PLOT A LINE, TYPE IN THE COORDINATES OF ITS END POINTS (TOP NUMBER FIRST,":"THEN THE SIDE NUMBER).":30(X1)(X13):F,(Y1)F,(Y13):8 SL(AB):SL0SL1> l 0:Y16142:77,Y203,Y:Y::3070:1055 DRAW DOTS ON GAME BOARD 3:X7720314:Y1614214:X,Y:Y,X: 24:10::"PRESS ANY KEY TO CONTINUE";:Y$::1 :21:"THE OBJE.:"PLAY AGAIN? (Y/N) ";:Y$:Y$"Y"3060K:::"PLAY AGAIN SOON"Qd FILL SQUARES F(X1)(X13):F,(Y13)F,(Y1): SJ(A(B1)):SJ0SJ1  F(X13)(X1):F,(Y1)F,(Y13): SK(B(A1)):SK0SK1  FBS:2255SASAS0STSASB:ST13132270>S02005[S0:SJ0:SK0:SL0:2015kSASB2280:21::PA$;"'S SCORE = ";SA;"! YOU WIN!"::PB$;"'S SCORE = ";SB:2285:21:PA$;"'S SCORE = ";SA::PB$;"'S SCORE = ";SB;"! YOU WIN!":0A02210@H%(A1,B)1V%(A1,B)1H%(A1,B1)1İ3020mH%(A,B)1V%(A1,B)1H%(A,B1)1İ3035w2235B02230V%(A,B1)1H%(A,B1)1V%(A1,B1)1İ3005V%(A,B)1H%(A,B1)1V%(A1,B)1İ3035SSJSKSL P2SBSV,WWACV%(A,B)1)\BDH%(A,B)1;a MOVE OKAY? df" OK? (Y/N) ";:Y$:Y$"Y"2170k0:ACēX,(Y1)V,(W1):V%(A,B)0pBDē(X1),Y(V1),W:H%(A,B)0u2015z SQUARE COMPLETE?P2Ē6:21852AC2200222ONE":2120:2015i9ACBDİ2115:"YOU PLOTTED THE SAME POINT TWICE --":"PAY ATTENTION!!":2120:2015s>2130C:22::HZ(16336):D1300:U(Z)(Z)(Z):::M DISPLAY LINER3:X(A14)77:Y(B14)16:V(C14)77:W(D14)16:X,YA)1(DB)1İ2115:"THAT'S TOO LONG -- TRY AGAIN":2120:2015/ACV%(A,B)1BDH%(A,B)1İ2115:"THAT LINE IS ALREADY ON THE BOARD --":"PLOT ANOTHER ONE":2120:20154ACBDİ2115:"THAT WAS A DIAGONAL LINE --":"WON'T WORK -- PLOT ANOTHER B103060- " TO ";:2055:CPP:C103060M ",";:2055:DPP:D103060W 2080u PP(16384):PP1282055 16368,0:PPPP176:PP21PP10: PP0PP92055 PP;:  LEGAL PLOT? ACEA:AC:CE %BDEB:BD:DE?*(CT":3080 8P((1)2)1,  PLAYER MOVEJ O(0):"":P1P2:2015R P1 :21:"SCORE = ";SA;:28)"SCORE = ";SB P1ğ:PA$;::28)PB$:2030 PA$;::(28):PB$: :(4):"PLOT FROM ";:2055:APP:A103060 ",";:2055:BPP:NY LETTERS":2120:37,21:958:1060 )37,21:958:"PLAYER 2: ";PB$:(PB$)11Ğ:"TOO MANY LETTERS":2120:37,21:958:1065 .:2:X2740:X,73X,84::6:X241254:X,73X,84: 321:PA$;"'S COLOR IS ON THE LEFT":PB$;"'S COLOR IS ON THE RIGHD1100:D:NN1:X,Y[ N1:X65215150:N1:Y1614214:NX,Y:D1100:D:NN1:Y,X 21:"DO YOU WANT INSTRUCTIONS? (Y/N) ";:"";:Y$:Y$"Y"ī3090 :21:"TYPE IN YOUR NAMES (11 LETTERS MAXIMUM)"$ $"PLAYER 1: ";PA$:(PA$)11Ğ:"TOO MAD LOADING SHAPE TABLE6 232,126:233,31:4005:1:1O  DISPLAY GAME TITLE :10:10)"*** CONNECT-A-DOT ***"::9)"A GAME FOR TWO PLAYERS" D12500:D :1:1,0279,0279,1591,1591,0:3070 N1:Y5154149:N1:X7720314:NX,Y:y ====================== *** CONNECT-A-DOT *** BY DUANE A BARTS 208 FLIVA AVE FT. WALTON BEACH, FL JULY 30,1980  PUBLISHED IN SOFTSIDE DECEMBER 1980 ========================H%(9,9),V%(9,9),PA$(12),PB$(12):8061  ADDRESS AN        S."$ T0ī3130#$& G%(100TC)M$0 16:A$", THAT IS A SCORE OF "G%"%"c$: (4);"RUN HELLO"E T0ī3130$& G%(100TC)$0 16:A$", THAT IS A SCORE OF "G%"%"$: "RUN MENU"Cr O$(5)936.A0:F0:X0:Y0:Z0 "SPOIL","INCREASE","COSTUME","CLAIM","OMIT","SHOOK","SLEIGH","SCIENCE","FURNISH","CONTAIN" "STRAIT","RECENT","INDEX","ESTATE","BARGAIN","TELEGRAPH","PLEDGE","SINGLE","CRUEL","SPARE"%  "REDUCE",     E$"7JF4F":G$"9L9F5":H$"J6J;0"(DE$"OOWPFL":G$"PEGTO":H$"DORWQ"'l-vQA$"JVAPU":B$"TBINQ":C$"YMDL"vE$"QVFBN":G$"WBGME":H$"ONHVR"|A$"ZU/PX":B$"KTSVC":C$"XYDB."E$"EQFN/":G$"IWCMZ":H$"XOHZC"A$"2S28K":B$"K83D3":C$"D3J7J"""EK;DI":G$"SEJLI":H$"FSDAJ"$ * O A$"RIJUA":B$"DEKAI":C$"FREUS"t E$"LUARD":G$"SRFUI":H$"JIL;E"z  & 0A$"SIJUH":B$"HYKEG":C$"URLIT" :E$"FGTUD":G$"GEYRI":H$"HTREY" D N XA$"YAHRW":B$"QSJIP":C$"WOKUQ"!bRS AGAIN.":I11000:I:150a :"WOULD YOU LIKE THE SAME LETTERS AGAIN?";:MM$::MM$"Y"150r MM$"N"430 :"WOULD YOU LIKE DIFFERENT LETTERS?";:TY$: TY$"Y"ĺ:130 TY$"N"Ā   A$"ASDFI":B$"EJKL;":C$"SEFIA" E$T$WR$ĺ:"YOU SCORED 100%. VERY GOOD!!!":410A TT$WR$350z ^:"OOPS!!":S16336:JJ155:B(S):SOUNDBB:JJ: hX1183 r:(T$,X,3)(WR$,X,3)ĺ(T$,X,3);::" SHOULD BE ";::(WR$,X,3);::" ": | X :"TRY THESE LETTE1) Z$(C$,Z,3)' Q(5(1)1)9 Q$(G$,Q,3)L K(5(1)1)^ K$(E$,K,3)q V(5(1)1) V$(H$,V,3) X$;Y$,K$;Q$,Z$;V$, ": ,T$ 6WR$X$Y$K$Q$Z$V$ @ ADD BELL ON TOP OF EXCLAMATION MARK IN LINE 3100 J:"TYPE THE LETTERS IN ONE LINE WITH "K x"NO SPACES BETWEEN LETTERS.":{ "WHAT LEVEL OF DIFFICULTY? (1-7)";:DF:DF DF470,510,550,590,630,670,710 X(5(1)1) X$(A$,X,3) Y(5(1)1) Y$(B$,Y,3) Z((1)5)! THIS IS A TYPING PRACTICEF PROGRAM BY GEORGIA A. LAWRENCEa 5435 COLUMBUS AVENUEz( VAN NUYS, CA 914112< FROM CREATIVE COMPUTING F VOL. 7, NO. 12P DECEMBER, 1981Zd:"THIS IS TYPING PRACTICE."' n ,0E 117,246,63,28,36,229,12,12,45,6,0,12,12,60,63,183,82,30,46,0 231,100,45,21,246,14,246,63,28,36,0,231,100,45,21,54,119,30,30,63,4,044,0,54,0,66,0,76,0,88,0,99,0,108,0,119,0n 12,37,28,63,23,54,46,30,14,45,5,36,4,0,36,188,150,18,45,28,36,0 101,228,63,23,150,241,46,45,37,0,12,12,60,63,183,146,21,45,12,228,7,0 58,38,12,12,12,54,174,55,62,0,56,39,44,45,245,170,54,23,63,28,4:21:"THE GAME IS OVER WHEN ALL SQUARES":"ARE FILLED IN. HIGH SCORE WINS.":3080D :21:"TO STOP A GAME AND START OVER":"PRESS THE 'ESC' KEY. GOOD LUCK.":3080:3060 ****.SHAPE TABLE.**** I80628191:J:I,J:I:( 10,0,22,0,36,0,421:"EACH SQUARE HAS A DIFFERENT SCORE.":"THE SQUARES' SCORES INCREASE FROM":"UPPER LEFT TO LOWER RIGHT.":30805 :21:"IF A PLAYER SCORES BY":"COMPLETING A SQUARE, S/HE GETS":"ANOTHER TURN.":3080: 2:X77:Y16:3035:6:X189:Y128:3035R? 80(! 3:119,72133,72:161,86161,100& :21:"FOR EXAMPLE, THE LINES SHOWN ARE":"PLOTTED FROM 3,4 TO 4,4 AND":"FROM 6,5 TO 6,6":3080+ 77,1691,1691,3077,3077,16:189,128203,128203,142189,142189,128:284,23:7193,135:5199,135r0 :5:"RIGHT!"-R32,0:Z121: Z STOPS GAMETXX1:X9X0:YY1:UU2: CHANGE ANIMAL AND TIME INTERVAL AFTER 10 PROBLEMSV21Z24:"ANOTHER GAME (Y/N)? ";I$:I$"Y"Ĺ33,40::16\34,0:33,40:xXAGAIN/MENU/END":A$:A$"A"2nOR UNITS,TENSdBVV1:V0Ģ6:13:" ";:12:(V18):60: BLANK SECOND DIGIT OF SECONDS REMAININGFZ1:16:5:(7);"TOO LATE!"H::3:"ANSWER? ";AJAS78: CORRECT ANSWERLZ1::5:"WRONG, TRY AGAIN!":72NPP1:P51Z1:Y6 P: MULTIPLIER FOR ACTUAL SECONDSC :::3:"ANSWER? ";: NO CURSOR <I(16384):16368,0: READ KEYBOARD,RESET KEYBOARD STROBE >I141Ģ15:74: RETURN KEY INDICATES ALL DIGITS RECIEVED @I127AA10((I128)):14:11:A: WEIGHT KEYSTROKES FSMN:SH34 (46D *LMH:NL34: TOP NUMBER MUST BE LARGERZ ,SLN:S$"- ":MLn - PRINT PROBLEM .D11000:: DELAY 29:8:M10Ė9: RIGHT JUSTIFY 4M:6:S$; 6N10Ė9 7N:6:"----" 8 INPUT ANSWER, TEST IT: 9VU18:2:C: SCROLL UP ONE LINEO 32,0:6:"NUMBER: ";P:32,17:D11000:: DELAYh 6:3:"SECONDS: ";U~  SELECT NUMBERS: S$"+ ":LH:A0 M((1)100):M2H32: TOP NUMBER "N((1)100):NH34: BOTTOM NUMBER $MH42: SUBTRACT & PRINT ANIMALS:. 10:W16:WYĞ:Z1ğ? W$(W):::r Z1āC15:D110:D:(7);:C:90: 5 BEEPS  BLANK LAST PROBLEM, PRINT NEW NUMBER AND TIME REMAINING* 6:868: BLANK LINE 32,17: LEFT MARGIN C120:D160:D:91NK,RABBIT,COYOTE,ROADRUNNER0 PRINT HEADINGSr :11:"R O A D R U N N E R"::9:"50 ADD/SUBTRACT PROBLEMS" 34,5: TOP MARGIN 33,22: WIDTH,ALTERNATES FROM LEFT HALF TO RIGHT HALF P1:X0:Y1:Z0:UT: RESETS VARIABLES FOR NEW GAME T -- ROADRUNNER--PETE COOK--OCT,1979--COPYIED FROM MICRO MAY,1980 BY ART COHLdX12500:~H12: HIGHEST NUMBERT20: LONGEST TIMEW$(6):W16:W$(W):(4);"BLOAD ROADRUNNER HELPER DON'T USE":24:A$ SNAIL,TURTLE,CHIPMUN THIS PROGRAM."F"YOU CAN DO BETTER THAN THIS. STUDY YOUR WORDS.":"NOW GO GET THE NEXT PERSON TO WORK ON THIS PROGRAM.":"DON'T FORGET TO TYPE 'RUN'?":3K ";(XY)" TURNS TO SPELL THE 25 WORDS CORRECTLY."=::e"TO PLAY AGAIN PLEASE TYPE 'RUN'!"k:qA((XY)20)((XY)30)ī515((XY)15)((XY)18)ī520(XY)30ī505"THAT WAS PERFECT. NOW GO GET THE NEXT PERSON TO WORK OE WORD WAS ";A$* Y:" NOT ";B$U Z::"TYPE IN THE WORD CORRECTLY";:C$e [A$C$ī349 \:"YOU MUST PRINT THE WORD CORRECTLY":346 ]::"GOOD, NOW WE WILL TRY IT ONCE AGAIN":115 ^I1999:I h100 XYZ3936:"YOU TOOT EVEN CLOSE TRY AGAIN.":320H "SOME LETTERS RIGHT, TRY AGAIN.":320p "PRETTY GOOD, BUT TRY AGAIN.":320 "CLOSE, BUT NOT CLOSE ENOUGH. TRY AGAIN.":320 @FF1 AF3ī340 BF3ĺ::"READY? PUSH RETURN TO CONTINUE";:O$:122 T:"TH ::K A$B$X(X1):::"RIGHT! YOU NOW HAVE ";X" WORDS CORRECT."y A$B$ĺ::"ONLY "(25X)" WORDS TO GO." X25ī400 A$B$ī100 Y(Y1) L1(A$) (A$,L,1)(B$,L,1)NN1 L (N4L)250,260,270,280 "NO xI02000:I# z936::::- |::5 }N0W "GET READY HERE IT COMES---"h I02000:Ix 936::: ::::: :: (42(A$))2);A$ I0500:I 936 ::: ::: : (42(A$))2) B$"ORCHARD","TUNNEL","TABLET","GRAMMAR"1 2 "END"P _14);"SPELLING BEE"::: a"I WILL QUICKLY GIVE YOU THE WORD AND YOU SPELL IT BACK TO ME." b:::::"WHEN YOU ARE READY TO GO HIT RETURN.":Z$ c "END" dA$ nA$"END"Į:100 sF0vZ1T$(C)"I"&Z2T$(C)"A"9Z4T$(C)"B"QN$(C)(INP$,ZZ,30)[Y:XxL%CPL:CL%PLL%L%1V$((VOL)):(V$)1V$"00"V$(V$)2V$"0"V$F$(F):(F$)1F$"00"F$(F$)2F$"0"F$L:"SL:";S;"DR:"JX1511:SEC,X:768:ZZ34:YF1F735:ZZZZ35:Z(Y33):Z0690m&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"N OR ENTER SLOT #";:I$:I$(13)ĺ:440F I$"0"I$"7"Ģ3:1:370s I$:S(I$):OS,(CS):OD,(CD):CS,S16 :"CURRENT DRIVE IS ";D:"PRESS RETURN OR ENTER DRIVE #";:I$:I$(13)490 I$"1"I$"2"Ģ5:1:958:440I$:D(I$):CD,DL GIVE YOU YOUR":"$5.00 BACK WITH YOUR FIRST ORDER."= n:b o"PRESS TO CONTINUE=>";y pA$:(A$)13367 rK0490 |K8ĺ"INSERT NEW DISK IN SLOT:";S;",DRIVE:";D:"AND PRESS RETURN.";:R$:490( "CURRENT SLOT IS ";S:"PRESS RETURROGRAMS"D _:(6)::"FOR LESS THAN 25 CENTS EACH!!"::QP11:QP^ a::"SEND $5.00 TO:" d:(5):"DUNCAN INSTITUTE LIBRARY" f h(5):"ROOM 300"::(5):"18 DUNCAN DRIVE"::(5):"NEW PORT RICHEY, FLORIDA 34653"5 m::"OF COURSE THEY WILOCK 6=PAGE AHEAD 9=RESET DRIVE":S(18455)16:D(18454):K0:CS,S16:CD,Do ,TKR,17:F496:P1:C0:: /K8K9370 1:(18):(12):"HI!" 3Q1400:Q: 5 [:"FOR YOUR OWN CATALOG LISTING OVER":UY11:UY ^::(12):"2,000 P:IOB777:T64:PL15:RB27136:CSIOB1:CDIOB2:TRKIOB4:SECIOB5:VOLIOB14:OSIOB15:ODIOB16:F1RB11:F7RB221:M1$"TYPE'LETTER' TO RUN, OR 0=EXIT"Q "M2$"1=LOAD 4=DELETE 7=PAGE BACK":M3$"2=LOCK 5=RENAME 8=NEW DISK":M4$"3=UNLadINP$"":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)     ǠҠӠŠŮƠՠŠΠҠΠǬՠƠՠŠŠΠӠϠԠԠԮՠŠӠϠŠŠԠϠԠϠŠҮԠΠϠԮ`ҠĠԠή(ӠӠ̠ŠȠ̮ՠԠƠӠ̮ŠԠӠ`ҬŠŠӮҠŠԠҠĠӠ     A$"M"ĺ(4);"RUNMENU"xT <:10:12:"MASH 6502 ENDED"(F: S)"RENA"N$(JPLK)(R$,30)%750>K6PP1:PL%P1WK7PP1:P1PL%`750 ECD(222):LOC(219)256(218):19:1:958::ECD4ĺB$;"WRITE PROTECTED"(A$,1)"B"ĝ:1350(ECD4ĺB$;"ERROR ";ECD;" LINE ";LOC2:8200+(ECD4ĺB$;"ERROR ";ECD;" LINE ";LOC62:820W<:10:12:"MASH 6502 ENDED"_F: I I)"B"1350(A$,4)"LOCK"L$(JPLK)"*"(A$,4)"UNLO"L$(JPLK)" "(A$,4)"DELE"N$(JPLK)"1":FF(S$(JPLK)):730(A$,4DELE"N$(JPLK)"1":FF(S$(JPLK)):730S(A$,4)"RENA"N$(JPLK)(R$,30)\750uK6PP1:PL%P1K7PP1:P1PL%750 ECD(222):LOC(219)256(218):19:1:958::ECD4ĺB$;"WRITE PROTECTED"(A$,1)"B"ĝ:135A$"B"A$g~A$A$" "N$(JPLK):19:1:958:(A$,4)"RENA"ĺA$:20:8:(R$,30):A$A$","(R$,30)(A$,4)"RENA"ĺA$D$;A$;",S";S;",D";D:(A$,1)"B"1350(A$,4)"LOCK"L$(JPLK)"*"(A$,4)"UNLO"L$(JPLK)" "+(A$,4)"(BL$,30(R$))VBZ1L%PL:N$(Z)R$Ģ20:1:868::B$:"DUPLICATE NAME";::1030]LZtVA$"DELETE"1140`19:1:868:"PRESS 'D' TO DELETE FILE ";K$:"OR ANY OTHER KEY TO CANCEL.";:R$:R$"D"810 t(A$"RUN"A$"LOAD")T$(JPLK)"B"(JPLK)"*"Ģ19:1:868::B$;"FILE ";K$;"LOCKED"::820QA$"RENAME"111019:1:868:"RENAME ";K$;:RR$:RR$""810(RR$)65(RR$)90Ģ20:1:868::B$;"INVALID NAME";::1030R$"":I1(RR$):R$R$(((RR$,I,1))128):I:R$R$4A$"DELETE":$K5A$"RENAME">A$;::K$:K(K$)48QK17K31810lKK16:(JPLK)C810N$(JPLK)"1"810(A$"RUN"A$"LOAD")T$(JPLK)"T"Ģ19:1:868::B$;"FILE ";K$;" IS TEXT"::820:(A$"DELETED"A$"RENAME")L$1:1:M1$:M2$:M3$:M4$;4>K(16384):K128830lR16368,0:19:1:958:K$(K):KK176:K0K9970zfK01340pK6K71260zK8K9300"PRESS 'LETTER' YOU WISH TO ";:K1A$"LOAD"K2A$"LOCK"K3A$"UNLOCK"K;D;"VOL:";V$;" FREE:";F$;" PAGE ";P;"OF ";L%::JP1:I1PL:(JPLI)C810 N$(JPLI)"1"ĺ(TI);" ";::"DELETED FILE":N$(JPLI)"1"ĺ(TI);" ";L$(JPLI);T$(JPLI);" ";S$(JPLI);" ";N$(JPLI) I*19:1:9584A$"RUN":2