' +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*`z#     Ϡ Π ĠĠӠӠ ٠ˠӠ :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)      K YOU HAVE BEEN STUDYING":"AGAIN, ";N$: OR N) ==>";:A$A$"Y"Ĭ5A$"N"ė:2:711;YD$(4):D$;"RUN";"HELLO"s"THAT'S IT, "N$".":"CORRECT ANSWER, "N$".":"GOOD WORK! KEEP IT UP, "N$".":"YOUR A REAL LIVE GENIUS!":"GO, ";N$;", GO!":) "I THINWANT TO TRY AGAIN, "N$"? ":.v"Y OR N.";C$=C$""590XC$"Y"Č936:10:230iC$"N"590q:{936255:"THANKS FOR WORKING SO HARD,"::N$". COME BACK AGAIN.":"IS ANYONE ELSE WAITING TO PLAY, (YSS1S10580350R&:N$:"THE RIGHT ANSWER IS":A;" X ";B;" = "ABc0Z11000:Zl:370uDY0N::936:2XN$", YOU ANSWERED 10 MULTIPLICATION"::"PROBLEMS IN "Q" TRIES."::Q10ĺ"CONGRATULATIONS.":b:l"DO YOU C(C$)CAB490%TT12T3550]CABĺ"TRY A BIGGER NUMBER, "N$".":CABĺ"TRY A SMALLER NUMBER, "N$".":CV(37):CV16āI1600:I:936:37,8390936:R(6(1))1R730,740,750,760,770,780A11GA!6A0A11Ģ11:2708@936:33,31:32,6BJ34,6JT10]^B((.05)10)vhG11A((.05)10)|r|T0:A;" X ";B;" = ";QQ1C$:C$""410(C$)48(C$)57ĺ"NOT A VALID ANSWER!":"TRY AGAIN =>";:410 : Q0:S0i "I WILL GIVE YOU A PROBLEM. PLEASE TYPE IN THE ANSWER. THEN PRESS ."q G0 :"WHAT TABLE WOULD YOU LIKE TO PRACTICE?"  ""0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, OR 11 FOR PRACTICE FROM ALL TABLES=>";:A , *";8 "****************************************";B :21g "PRESS TO CONTINUE=>";~ A$:(A$)13165 936:3 "HI, WHAT'S YOUR NAME? ";N$:N$""200 N$(N$,8) :"IT'S GREAT TO HAVE YOU HERE TODAY,":N$;"!" *- "************************< d::255:C n5t x"****************************************"; "* *"; "* M U L T I P L I C A T I O N *"; "* 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 * * *  MULTIPLICATION AUG 1980( G STUDENT SELECTS TABLE(S)W FOR DRILL]q 16K APPLESOFTy  AUTHOR UNKNOWN    ************************ * * * SAN MATEO COUNTY     <: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: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$,4A1(B$)2:"-";: "/"#5 XX1500:XXK 14:19:958::{ 19:"SORRY!!";:XX1500:XX:19:868::090`(EE$)1EE$"":11406jEE$(EE$,(EE$)1)\tCV((EE$)40)24CVCV1:1140z~CV:CH:EE$;:958:1090(13);:CV:17:"/";A1(B$)2:"-";:(92);CV1:16:"<";:16(B$)1:">";CV2:17:(92);! CHAIR,AWOKE,AROUSE,SIPHONQ ZIGZAG,DONKEY,SPENT,VANITY,FAMOUS,INFUSE_ END,ENDe$. CURSOR INPUT ROUTINE8EE$"":CV(37)1:CH(36)1BG$:AA(G$):AA13(EE$)2551160LAA8EE$EE$(AA):(AA);:1090V(EE$)01,NIMBLE( YIELD,ABYSS,EMPLOY,FASTENI ALBUM,TWINE,RANSOM,BEDECKi IGLOO,WHINE,GRIMLY,SOLID LOUSY,APRON,BANGLE,ANKLET FINISH,PREFER,IODINE,DABBLE GUTTER,NICKLE,POISON,OUTING,MOBILE,RAMROD NERVE,CHIME,HYMNAL,FACTOR p SOUSE,FUZZY,AFFRAY,ESTATEAz CLEFT,STEED,OUTBID,WIDESTc LINEAR,THYME,DISMAL,HELMET CLOVE,HITCH,DUPLEX,ARTERY WEDGE,TAFFY,QUAVER,BUTTER ENACT,JOINT,THRUSH,WISDOM DOUBT,QUEEN,MARINA,BEHELD BEGIN,CANAL,GHOSTWSY,WINDOW** FELON,DICED,THROW,CLOUDY[4 DARING,BAFFLE,INVITE,ENAMEL,DAHLIA,OBJECTz> WINCE,CRESS,DRUG,INVERTH SNORT,MOTIF,CHORUS,GENDERR POUCH,EXACT,BUTTON,ORIOLE\ YOKEL,ARMOR,VANDAL,PICKETf LIMIT,GAUDY,SINGLE,DOUBLYD$(4):D$;"RUN HELLO";:? HOBBY,BUILT,DIVERT,FLOWER` GRIMY,SMART,ENGINE,MUFFIN RUSTY,DESTROY,ICEBOX,DEBTOR SCHOOL,HENNA,ARCADE,PURPLE  RAINY,LAPEL,FROZEN,CIPHER NUTTY,MAGIC,PASTRY,SOLACE   BOOTY,CLOUT,DROT100.5)Y(WT100.5)%:KX;"% CORRECT ";Y;"% WRONG"S:"IS THERE ANYONE ELSE WAITING TO PLAY?""(Y FOR YES OR N FOR NO)=>";QQ$:QQ$""707QQ$"Y"ĬQQ$"N"707::8:"* * * T H E E N D * * *"A$::WW0:580#WW1:51060"CORRECT!!":@:RR1jD:"SCORE: CORRECT ";R;" WRONG ";WN23:"ANOTHER WORD? (Y OR N) ==>";SQQ$:QQ$""595XQQ$"Y"ė:3:240bQQ$"N"595:::"YOU ANSWERED: "TWR X(R,D,1) B$B$B$(E) A(D)1' E6 A$B$360e 10:" UNSCRAMBLE: ";B$;:CV(37):2000m 14 "WHAT'S YOUR GUESS? "; 1060 : C$EE$ A$C$560 530 3100:WWWW1:WW3İ3000:445" THE ANSWER IS: ";::AMBLED WORD GAME":::! 34,53 B$(20),A(20)9 C A$""M B$""W C$""c Z120n A(Z)0u "Z ,A((1)301) 6B1A @A$ JA$"END"Į:BB1 TB ^C(A$) hE1C rD((1)C1) |A(D)1370 B$(E)(A$ *#  * *A  ***********************_  *PROGRAM MAY BE COPIED*}  *FOR EDUCATIONAL USE &* *MAY NOT BE SOLD.COPY-* ! *RIGHT 1981 CUE,INC * " *********************** d:::255 ::: 8);"SCR EDUCATORS *3  * *Q  * SOFTSWAP *o  * *  * 333 MAIN STREET *  * REDWOOD CITY *  * CA 94063 *  *(415)364-5600 EX 4401*  * DAPTED TO THE APPLE FROM THE PET BY KEITH ROLLINa *********************** * *  * SAN MATEO COUNTY *  * OFFICE OF EDUCATION *  * *  * COMPUTER-USING *  * |" SCRAMBLED WORD 7/1980 / e UNSCRAMBLE LETTERS TO SPELL A GIVEN WORD.p {  APPLESOFT 8K  AUTHOR UNKNOWN BUT IT WAS KID PROOFED ON 7/17/80 BY QJ C A     NTA","HAWAII","HONOLULU","IDAHO","BOISE","ILLINOIS"f"SPRINGFIELD","INDIANA","INDIANAPOLIS","IOWA""DES MOINES","KANSAS","TOPEKA","KENTUCKY","FRANKFORT""LOUISIANA","BATON ROUGE","MAINE","AUGUSTA","MARYLAND""ANNAPOLIS","MASSACHUSETTS","YES" : 160Gz"ALABAMA","MONTGOMERY","ALASKA","JUNEAU","ARIZONA"||"PHOENIX","ARKANSAS","LITTLE ROCK","CALIFORNIA"~"SACRAMENTO","COLORADO","DENVER","CONNECTICUT","HARTFORD""DELAWARE","DOVER","FLORIDA","TALLAHASSEE","GEORGIA"3"ATLA%N50850)2*"DO YOU WANT TO STOP? ";Z$P4 Z$"Y" Z$"YES" 850v>"YOUR ANSWER FOR LAST QUESTION";H X 730,490R:10\"YOU GOT ";N;" RIGHT IN ";G;" GUESSES"]f"WOULD YOU LIKE TO TRY AGAIN? ";Z$p Z$"Y" Z$"A$S$(B(C))7C$(R);" IS THE CAPITAL OF ";I Z:Z((Z))b Z 1 Z 4 810r ZC 770xA(R)1:"WRONG. THE ANSWER IS ";A$:790A(R)2:NN1  "RIGHT! YOU HAVE ";N;" CORRECT.":GG1  N50ī310 CHOICES"1.";C$(B(1))."2.";C$(B(2))A"3.";C$(B(3))T"4.";C$(B(4))Z "THE CAPITAL OF ";S$(R);" IS";A$C$(B(C)) 730 PRINT STATE CHOICES"1.";S$(B(1))"2.";S$(B(2))"3.";S$(B(3))"4.";S$(B(4))'& PICK FOUR STATES FOR THE CHOICES50 I1 4K:B(I)((I)50)1SD I^NB(C)RX MAKE SURE NONE ARE THE SAMEb B(1)B(2) B(1)B(3) B(1)B(4) 560l B(2)B(3) B(2)B(4) B(3)B(4) 560v Y2 690 PRINT CAPITAL";S$(R);  490*A$S$(R)LC$(R);" IS THE CAPITAL OF ";R[ Z$au (Z$)1 810Z$A$ī770760 THIS SECTION ASKS MULTIPLE CHOICE QUESTIONS THE VALUE4 OF C IS THE CORRECT ANSWERC((I)4)1^ I+h DON'T WASTE TIME PICKING ONE:r R1 50N| A(R)2 400] R: 850 A(R)1 "TRY THIS ONE AGAIN" X1 520 THIS SECTION ASKS FOR FILL-IN ANSWERS Y2 470A$C$(R) "WHAT IS THE CAPITAL OF "YOU HAVE YOUR CHOICE OF WHETHER THE STATE OR CAPITAL IS ASKED"I"WOULD YOU LIKE TO ANSWER WITH THE CAPITAL? ";Z$Y2" Z$"Y" Z$"YES" Y1,6 PICK A STATE@ I1 10JR((I)50)1T A(R)2 400E -- ANSWER EACH QUESTION WITH 1, 2, 3 OR 4"2 e X1: "TO STOP, TYPE 0 (ZERO) FOR YOUR ANSWER"o 250u "FOR FILL-INS, YOU MUST SPELL EXACTLY! (SAINT IS ABBREVIATED TO ST.)" X2: "TO STOP, TYPE S FOR YOUR ANSWER" C& I1 50 : A(I)0: I: G0: N08 I13000:: :"YOU HAVE YOUR CHOICE OF TAKING A FILL-INOR A MULTIPLE CHOICE TEST" "WOULD YOU LIKE TO FILL-IN THE ANSWERS? ";Z$ Z$"Y" Z$"YES" 230 , "MULTIPLE CHOIC *ONLY AND IS NOT TO BE*; ! *SOLD. *Y " ***********************c <:10 F" :::::::*** STATES & CAPITALS ***::::::: " x A(50),B(4),C$(50),S$(50) READ IN STATE & CAPITAL ARRAYS I1 50 S$(I), C$(I) : IMAIN STREET *-  * REDWOOD CITY *K  * CA 94063 *i  *(415)364-5600 EX 4401*  * *  * *  ***********************  *PROGRAM MAY BE COPIED*  *FOR EDUCATIONAL USE **  * SAN MATEO COUNTY *=  * OFFICE OF EDUCATION *[  * & *y  * COMPUTER-USING *  * EDUCATORS *  * *  * SOFTSWAP *  * *  * 333  STATES & CAPITALS 1977+ a PRACTICE IN MATCHING STATES AND CAPITALSl w  APPLESOFT 8K  DAVE ALVERSON   *********************** *        :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=UNLcdINP$"":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)     RE PRACTICE!" 6& :"DO YOU WANT TO TRY AGAIN?"A+ "";L$_0 (L$,1)"Y"ė::6::70 ::"OKAY, SEE YOU LATER, ";N$;"." :6M(1)7N(1)6O(1)6G((1)9)2H((1)9)2d0L ";NQ;" QUESTIONS, ";N$;"."" P "YOU GOT ";QR;" RIGHT AND ";QW;" WRONG."V u QRNQĺ"PERFECT SCORE!!!" QRNQ1.0QRNQ.90ĺ"EXCELLENT WORK! ALMOST ALL RIGHT!"  QRNQ.75ĺ"GOOD TRY, ";N$;", BUT I THINK YOU":"COULD USE A LITTLE MO2010. A$(M);" THINKS YOU'RE WRONG!":2010C "NOT IT!":2010o "WRONG. YOU MUST NOT BE A COMPUTER!!!" T1T0:P13500:: QWQW1 T1 :"LET'S TRY AGAIN.":P13500:::6::300 P13500:  :12 "THAT'S AL":1010( "RIGHT! GOOD WORK, ";N$;"."C T1T0:P13500::^ T1T0:P13500::j QRQR1z P13500:  :15:R(((1)5)1):R2001,2002,2003,2004,2005 "SORRY, ";N$;". THAT'S NOT IT.":2010 "NO. TRY AGAIN, ";N$;".":GHİ2000 ZNQİ3000# 210Y :15:R(((1)5)1):R1001,1002,1003,1004,1005 "I'M PROUD OF YOU, ";N$;"!":1010 "YOU'VE BEEN STUDYING! WOW!":1010 "I THINK YOU'RE SMART ENOUGH TO MARRY ME!":1010 A$(M);" SAYS YOU'RE RIGHT!!!OW MANY QUESTIONS TODAY, ";N$;"?", "";NQ6 ZZ1? :8I 4000r ,"IF ";A$(M);" HAD ";G;" ";B$(N);","x 6 @"AND ";C$(O);" GAVE ";H;" MORE ";B$(N) J T"HOW MANY WOULD ";A$(M);" HAVE IN ALL?" ^ h"";A rAGHİ1000 |AESTOR","JOSHUA","MANESSA","COOKIE","EDELWEISS","ELIOT","PEACE" "KITTENS","TENNIS BALLS","COOKIES","PENNIES","MICE","SEEDS" "PAULA","BOBBY","TAMMY","HEATHER","TONY","RICHIE" "HI! I'M ADDLE APPLE. WHAT'S YOUR NAME?" "";N$:::! "H# WORD PROBLEMS: ADDING TO 200::255811e(">>>>> ADDLE APPLE WORD PROBLEMS <<<<<"2:" ADDING TO TWENTY"<P12500:F:12dJ06nA$(J)sxJ05B$(J)J05C$(J)> "N   BYE!" ; DAKOTA","PIERRE","TENNESSEE"W"NASHVILLE","TEXAS","AUSTIN","UTAH","SALT LAKE CITY""VERMONT","MONTPELIER","VIRGINIA","RICHMOND","WASHINGTON""OLYMPIA","WEST VIRGINIA","CHARLESTON","WISCONSIN""MADISON","WYOMING","CHEYENNE":10:" E"6"NEW YORK","ALBANY","NORTH CAROLINA","RALEIGH"t "NORTH DAKOTA","BISMARCK","OHIO","COLUMBUS","OKLAHOMA""OKLAHOMA CITY","OREGON","SALEM","PENNSYLVANIA""HARRISBURG","RHODE ISLAND","PROVIDENCE","SOUTH CAROLINA" "COLUMBIA","SOUTHBOSTON","MICHIGAN"O"LANSING","MINNESOTA","ST.PAUL","MISSISSIPPI","JACKSON""MISSOURI","JEFFERSON CITY","MONTANA","HELENA","NEBRASKA""LINCOLN","NEVADA","CARSON CITY","NEW HAMPSHIRE""CONCORD","NEW JERSEY","TRENTON","NEW MEXICO","SANTA F <: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:820350-(ECD4ĺB$;"ERROR ";ECD;" LINE ";LOC82:820Y<:10:12:"MASH 6502 ENDED"aF: 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$,4"DELE"N$(JPLK)"1":FF(S$(JPLK)):730U(A$,4)"RENA"N$(JPLK)(R$,30)^750wK6PP1:PL%P1K7PP1:P1PL%750 ECD(222):LOC(219)256(218):19:1:958::ECD4ĺB$;"WRITE PROTECTED"(A$,1)"B"ĝ:1"A$"B"A$i~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)R$(BL$,30(R$))XBZ1L%PL:N$(Z)R$Ģ20:1:868::B$:"DUPLICATE NAME";::1030_LZvVA$"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)"BL$(JPLK)"*"Ģ19:1:868::B$;"FILE ";K$;"LOCKED"::820SA$"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$K4A$"DELETE":&K5A$"RENAME"@A$;::K$:K(K$)48SK17K31810nKK16:(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")͢21:1:M1$:M2$:M3$:M4$;6>K(16384):K128830nR16368,0:19:1:958:K$(K):KK176:K0K9970|fK01340pK6K71260zK8K9300"PRESS 'LETTER' YOU WISH TO ";:K1A$"LOAD"K2A$"LOCK"K3A$"UNLOCK":";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":T"vZ1T$(C)"I"(Z2T$(C)"A";Z4T$(C)"B"SN$(C)(INP$,ZZ,30)]Y:XzL%CPL:CL%PLL%L%1V$((VOL)):(V$)1V$"00"V$(V$)2V$"0"V$F$(F):(F$)1F$"00"F$(F$)2F$"0"F$N:"SL:";S;"DR,DLX1511:SEC,X:768:ZZ34:YF1F735:ZZZZ35:Z(Y33):Z0690o&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)"URN OR ENTER SLOT #";:I$:I$(13)ĺ:440H I$"0"I$"7"Ģ3:1:370u 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$):CDILL GIVE YOU YOUR":"$5.00 BACK WITH YOUR FIRST ORDER."? n:d o"PRESS TO CONTINUE=>";{ pA$:(A$)13367 rK0490 |K8ĺ"INSERT NEW DISK IN SLOT:";S;",DRIVE:";D:"AND PRESS RETURN.";:R$:490* "CURRENT SLOT IS ";S:"PRESS RETROGRAMS"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):"5513 DUNCAN DRIVE"::(5):"NEW PORT RICHEY, FLORIDA 34653"7 m::"OF COURSE THEY WOCK 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