' +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)      CREEN TO PROMPT THE USER FOR TYPING OUT ON THE KEYBOARD." l:"PROVISION IS ALSO MADE FOR A PRINTER LISTING."::"THE SPELLING TEST PROVIDES FOR THREE LOOKS AT THE WORD BEFORE IT IS BYPASSED TO THE NEXT WORD. A RECORD OF NUMBER OF CORRECT WORDS I(A$,1)"Y"190B:"DON'T BLAME ME IF YOU DON'T GET YOUR"_"SPELLING TEST RIGHT!!"ekxI1NUMI(I)ĺW$(I)I:X"THIS PROGRAM PROVIDES FOR ENTERING A LIST OF SPELLING WORDS WHICH WILL THEN BE FLASHED ON THE S00|CV(37)CV:1:B$.T10CC1F"YOUR SCORE IS:";CMNU:x"YOU GOT ";C;" WORDS CORRECT"~:"DO YOU WANT TO SEE THE WORDS YOU MISSED (Y/N)? ";A$(A$,1)"Y"İ500:"DO YOU WANT TO DO IT AGAIN (Y/N)? ";A$ ";""DO YOU WANT TO SEE THE WORD AGAIN? ";J,A$:1:B$].TT1:T3400o1A$(13)240y6:A$;(W$(I),1)" "320<W$(I)(W$(I),((W$(I))1)):315@(A$,((W$(I))))W$(I)380ET1I(I)1JT11:T3240T4 ":C00I1NUM:R(I)0:I(I)0:I\"SPELLING TEST: TO BEGIN PRESS RETURN"qA$:(A$)13Ā~N1NUMI%(NUM.5)(1)1R(I%)0222II%:R(I)1T0:T1010:W$(I)J120Q(3)J10:1:" M1:D$;"READ SPELLING LIST,R";NUM/W$(NUM)DW$(NUM)""145wD$;"CLOSE SPELLING LIST":NUMNUM1:OPN1180(4);"PR#1"(20)I1NUM5)I;". ";W$(I)I(4);"PR#0"B$"  gD$;"CLOSE SPELLING LIST"= hD$;"LOCK SPELLING LIST":1_ i(A$)0Ģ(37)2:958:100m nNUM(A$) s:"ENTER WORD: ";W$(NUM) xD$;"WRITE SPELLING LIST,R";NUM }W$(NUM) NUMNUM1:80 D$;"OPEN SPELLING LIST,L20":NUM0"NUMNU0" PNUMNUM1:NLNL1; RD$;"READ SPELLING LIST,R";NUMH UW$(NUM)b WW$(NUM)""NL20:95 ZD$:5)NUM;". ";W$(NUM) _NL20NL0:D$::"IF YOU WANT TO MAKE A CORRECTION, ENTER # OF WORD,OTHERWISE PRESS RETURN: ";A$:105 dW$(NUM)""8035,22% #D$;"DELETE SPELLING LIST"F (D$;"OPEN SPELLING LIST,L20"o -NUMNUM1:D$:5)NUM;". ";:W$(NUM) 2D$;"WRITE SPELLING LIST,R";NUM 7W$(NUM) <W$(NUM)""45 F LIST SPELLING WORDS HNL0:NUM0:: KD$;"OPEN SPELLING LIST,L2 D$;"UNLOCK SPELLING LIST"> OPN370: CORRECT WORDS !:"** SPELLING LIST IS ABOUT TO BE DELETED."::10)"PRESS ESC TO AVOID.":A$:(A$)271 "::"ENTER YOUR WORD AFTER THE ?":I(37):24:"PRESS RETURN AFTER ? TO END INPUT. ";:I1::ND CORRECT WORDS") 5)"4. PRINT LIST"C 5)"5. INSTRUCTIONS"m 5)"6. STOP"::"INPUT OPTION? ";OPN D$(4):D$;"OPEN SPELLING LIST,L20" OPN1140 OPN4140: PRINT SPELLING LIST OPN5ė:600: INSTRUCTIONS OPN6ĺ(7): "W$(100),R(100),I(100):NUM0=:13)"SPELLING TEST"h:10)"BY RICHARD A. MICHAEL 1980  **THE GREEN APPLES** **CEDAR FALLS IOWA** :"OPTIONS:"5)"1. TAKE SPELLING TEST"5)"2. ENTER NEW WORDS" 5)"3. LIST A    <: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$,49)"I"3)"V";39)"V"-3)"X";39)"X"A3)"L";39)"L"U3)"C";39)"C"i3)"D";39)"D"}3)"M";39)"M"3)"I";39)"I"3)"V";39)"V"3)"X";39)"X"3)"L";39)"L" 3)"C";39)"C"3)"D";39)"D"%3)"I84:"PRESS TO CONTINUE..";=BA$:(A$)131090IL:936yV3)"IVXLCDMIVXLCDMIVXLCDMIVXLCDMIVXLCDMIV"`3)"V";39)"V"j3)"X";39)"X"t3)"L";39)"L"~3)"C";39)"C"3)"D";39)"D"3)"M";39)"M"3)"I";3)"N"830f1100p:#z7/2,375<5,3737G3,59S3,516_3,523k3,530s13A(S30C)A35AA,3610A,3611B(T30C)B35B12B,3626B,3627$7)N$;.24)M$%NTINUE..";16368,0/A$:(A$)137405DC5ī490] IN CASE OF A TIE -l STī3020 REPORT RESULTS 936*543)"WANT TO SEE A GRAPH OF THE SCORES!">"(YES OR NO)";:A$R(A$" ",1)"Y"880 \(A$" ",1C$N3750X530(bC$R$ī14802l2890:v:L{R(5(1))1Y~RP635wM$;", WHAT NUMERAL IS ";2320Q2: STUDENT #2 RESPONSEC$3750640C$R$ī1500289016368,0 :"PRESS RETURN TO CO I GUESS YOU JUST AREN'T READY FOR THIS TODAY!"BDL12000:DLL1520b START QUESTIONSh20:N$;" HAS ";S;" ";M$;" HAS ";T5 CC1P((1)5)1N$;", WHAT NUMERAL IS";02330:Q1: STUDENT #1 RESPONSE D!|:"ARE YOU READY TO START?"9"(YES OR NO)";:A$R(A$" ",1)"Y"490l(A$" ",1)"N"390:"WOULD YOU LIKE TO SEE THE INSTRUCTIONS AGAIN?""(YES OR NO)";:A$(A$" ",1)"Y"3480(A$" ",1)"N"430/:"WELL,AT'S TOO LONG!":290\6N$M$ĺ:"THAT'S THE SAME AS YOUR'S!":"TRY A DIFFERENT ONE.":290e@:6J"WELL, ";N$;" AND ";M$T^:"WOULD YOU LIKE TO SEE THE INSTRUCTIONS?(YES OR NO)";A$h(A$" ",1)"Y"3480r(A$" ",1)"N"ė:340 GREAT!!"c ::"WHAT IS THE FIRST PLAYER'S NAME";:N$:N$""ĺ:"COME ON NOW...":260 (N$)10ė:"THAT'S TOO LONG!":260 :"HI, ";N$ ""WHAT'S YOUR PARTNER'S NAME";:M$:M$""ĺ:"COME ON NOW...":290,(N$)10ė:"TH::F " DO YOU HAVE A FRIEND THAT MIGHT LIKE TO WORK WITH YOU?"L " I WOULD LIKE TO PLAY WITH TWO OF YOU TODAY!" :"PRESS WHEN YOU ARE READY!"; (16384)141210 16368,0 16368,0 ::" RAM MAY BE COPIED*0  *FOR EDUCATIONAL USE &*N *MAY NOT BE SOLD.COPY-*l ! *RIGHT 1981 CUE,INC * " *********************** dA$(5,1) i n x1570 "TODAY WE ARE GOING TO WORK WITH ROMAN NUMERALS" DL11000:DL *"  * *@  * 333 MAIN STREET *^  * REDWOOD CITY *|  * CA 94063 *  *(415)364-5600 EX 4401*  * *  * *  ***********************  *PROG********************2 * *P  * SAN MATEO COUNTY *n  * OFFICE OF EDUCATION *  * *  * COMPUTER-USING *  * EDUCATORS *  * *  * SOFTSWAP $  MEET THE ROMANS 11-17-80- b PROGRAM TO REINFORCE ROMAN NUMERALS m x  APPLESOFT, 8K  BOBBY GOODSON BARBARA MUMMA  CUPERTINO, CALIFORNIA ***               S KEPT.";" THE MISSED":"WORDS CAN BE REVIEWED AFTER THE TEST.":"WORDS ARE PRESENTED IN RANDOM ORDER TO AVOID ROTE MEMORY RESPONSES.":"PRESS A KEY FOR MENU: ";:A$:1 N"CDI":H$"401"%v 3200<% :N$;", WHAT IS YOUR ANSWER?"D% C$l% :"NOW, ";M$;", WHAT DID YOU GET?"t% D$% C$R$ī3370% C$H$ī3370% D$R$ī3320% D$H$ī3320% :" SORRY, YOU BOTH MISSED IT !"& :"BUT THIS WAS GOOD PRACTIC1000:DL$ CC1.$ "YOUR QUESTION IS - "@$ P(3(1))1V$ P3110,3140,3170v$& :" XXXVI + XCVIII= ?"$0 R$"CXXXIV":H$"134"$: 3200$D :" CXXXIV+XCIX= ?"$N R$"CCXXXIII":H$"233"$X 3200$b :" CCXLVII+CLIV = ?"%l R$# $# : STUDENT #2 RESPONSE :# - TIE BREAKER!![# :"YOU BOTH DID VERY WELL!"# :"HOW ABOUT ONE MORE QUESTION TO TRY TO BREAK THE TIE!"# :"YOU WILL BOTH HAVE THE SAME QUESTION - WORK THE PROBLEM AND TELL ME YOUR ANSWER!" $ DL1XIX":"J ERROR MESSAGES,"T X(3(1))B"^ X2920,2950,2980d"h "OOPS, YOU MISSED THAT ONE!""r "IT SHOULD HAVE BEEN ";R$"| " "NO, THINK CAREFULLY -"" "THE RIGHT ANSWER IS ";R$" " "SORRY, THAT'S WRONG - "# "IT WOULD BE ";R$":! " 490":"(IN ROMAN)"+! R$"XD":E! " 655":"(IN ROMAN)"U! R$"DCLV":u! P2790,2810,2830,2850,2870! " 240"! R$"CCXL":! " 1090"! R$"MXC":! " 2010"! R$"MMX":!" " 2400"!, R$"MMCD":!6 " 3119""@ R$"MMMC"9":  " IV" ( R$"4":) 2 " XL"7 < R$"40":B F " XC"P P R$"90":[ Z " IL"i d R$"49": n P2680,2700,2720,2740,2760 x " 36":"(IN ROMAN)" R$"XXXVI": " 52":"(IN ROMAN)" R$"LII": " 19":"(IN ROMAN)"! R$"XIXt R$"60":~ " LVI"& R$"56":F P2460,2480,2500,2520,2540S " XXII"a R$"22":m " DCX"| R$"610": " LXXI" R$"71": " CXV" R$"115": " MCL" R$"1150": P2570,2590,2610,2630,2650 " IX"  R$IVXLCDMIVXLCDMIV"/32,6:33,29:34,4:35,19;6:4)A^ SELECTION OF QUESTIONSf PR C2340,2450,2560,2670,2780$ P2350,2370,2390,2410,2430. " VIII"8 R$"8":B " XII"L R$"12":V " XV"` R$"15":j " LX" 9)"V">3)"X";39)"X"-H3)"L";39)"L"AR3)"C";39)"C"U\3)"D";39)"D"if3)"M";39)"M"}p3)"I";39)"I"z3)"V";39)"V"3)"X";39)"X"3)"L";39)"L"3)"C";39)"C"3)"D";39)"D"3)"IVXLCDMIVXLCDMIVXLCDMMIVXLCDMIVXLCDMIVXLCDMIVX",DL1300:DL51:e3)"IVXLCDMIVXLCDMIVXLCDMIVXLCDMIVXLCDMIV"y3)"V";39)"V"3)"X";39)"X"3)"L";39)"L" 3)"C";39)"C"3)"D";39)"D" 3)"M";39)"M"*3)"I";39)"I"43)"V";3X6)"X";36)"X"%b6)"L";36)"L"9l6)"C";36)"C"Mv6)"D";36)"D"x6)"M MEET THE ROMANS";36)"M"6)"I";36)"I"6)"V";36)"V"6)"X";36)"X"6)"L";36)"L"6)"C";36)"C"6)"D";36)"D"6)"IVXLCD;34)"M"8)"I";34)"I"08)"V";34)"V"D8)"X";34)"X"X8)"L";34)"L"~8)"IVXLCDMIVXLCDMIVXLCDMIVXLCD"DL1300:DL&306)"IVXLCDMIVXLCDMIVXLCDMIVXLCDMIVX":6)"V";36)"V"D6)"X";36)"X"N6)"V";36)"V"2)"D"(|10)"IVXLCDMIVXLCDMIVXLCDM1V":DL1300:DLA5g8)"IVXLCDMIVXLCDMIVXLCDMIVXLCD"{8)"V";34)"V"8)"X";34)"X"8)"L";34)"L"8)"C";34)"C"8)"C";34)"C"8)"D MEET THE ROMANS";34)"D"8)"M",1)"Y"ė:130)(A$" ",1)"N"153033920<":7_,10)"IVXLCDMIVXLCDMIVXLCDM1V"t610)"V";32)"V"@10)"X";32)"X"J10)"L";32)"L"T10)"C MEET THE ROMANS";32)"C"^10)"D";32)"D"h10)"M";32)"M"r10)"D";3IS THERE SOMEONE ELSE WAITING TO TRY?".A$G(A$" ",1)"Y"260S::10{"OK - COME AND SEE ME AGAIN SOON!"3920SS1630TT1760:"O.K., IS ANYONE ELSE WAITING TO TRY?""(YES OR NO)";:A$(A$" "VXLCDMIVXLCDMIVXLCDMIVXLCDMIVXLCDMIV"C(32,6:33,29:34,4:35,19M2(10)s<3)"WOULD YOU LIKE TO TRY AGAIN"F"(YES OR NO)";:A$P(A$" ",1)"Y"1390Z(A$" ",1)"N"1350d1520nC0:R0:S0:T0:A0xB0:P0:510&" TO SEE REST OF LIST...";mA1$:(A1$)13410::2:B41L1:S$(B)"L"370:B". "S$(B):B:370C150:S$(L)C$(C)430::"THAT IS NOT A STATE.":958:380D150:C$(D):D ALABAMA, ARIZONA,ARKANSAS,CALIFORNIA, COLORADB:S$(L)"L"350:V^:2:B120:S$(B)"L"370:B". "S$(B):B:2:B1L:L40B140hB21B1:S$(B)"L"370:21:B". "S$(B):B:L41400rS$(B)"":|24:"PRESS TO CONTINUE...";A1$:(A1$)13390:LL1:FL1:":24:"PRESS WANTS) "TO PLAY? (Y/N)=>";:16368,0F "Z$:Z$""290:Z$"Y"Ĭb ,Z$"N"Ĺ16368,0:290 616368,0::10:11:"* * * THE END * * *":(4)"RUN HELLO" @:S$(L)"0"260:B0L1 JS$(L)T$(B)ĺ"YOU HAVE GUESSED THAT ONE!":958:380T":180% 21:" PRESS 'ESC' TO ENDU " PRESS THE KEY TO CONTINUE...";~ A1$:A1$""240:(A1$)27L1:260 (A1$)13240:16368,0:: Z1$"S!":L11Z1$"! :3:"YOU GUESSED "L1" STATE"Z1$:5:"IS THERE ANYONE ELSE WHO;:S$(L):S$(L)""140:T$(L)S$(L):FL0:320:FL1170:420G L:320b PRINT CENTER ROUTINE~ 20(CT$)2:CT$:"": 4:CT$"NAME THE STATES":180:CT$"BY KEVIN ARMSTRONG":180 CT$"APRIL 1979":180::CT$"SEE HOW MANY STATES YOU CAN NAME:L50140:L51130a ::8:"THAT'S ALL OF THEM !!"::6:"CONGRATULATIONS!!":::230:260 :22:9:"....TYPE IN 0 TO QUIT....":3:"...OR L FOR A LIST OF STATES NAMED... 3:"PLEASE ENTER NAME OF STATE "::"AND PRESS .; :L"."P"NAME THE STATES":::"THIS IS A GAME TO SEE HOW MANY STATES Z:"YOU CAN NAME FROM MEMORY."::"FOR STATES ALREADY GUESSED ENTER 'L' d:"PLEASE ENTER FULL NAME OF STATES n23:"PRESS TO CONTINUE..."; xA1$:(A1$)13120:L151m  NAME THE STATES 4/79U STUDENT LISTS STATES FROM MEMORYm KEVIN ARMSTRONG(SAN FRANCISCO APPLE CORE2 (REVISED BY CHRIS EDWARDS)<:F:16368,0::200:S$(50),T$(50),C$(50):440:::5:10@   O"L"THE CHARACTERS FOR THE ROMAN NUMERALS CAN BE FOUND"b+("IN THE SQUARE ENCLOSING THIS WRITING"+2"PRESS THE KEY TO CONTINUE...";+<Q$:(Q$)133900+F:"TRY AGAIN":+HZ+I+JQ610,710+P:,ZD$(4):D$;"RUN";"HELL0:DL **C$""C$" "D*Z1(C$):Z2$(C$,Z,1):Z2(Z2$)V*(R$)03810n*Z248Z2573912*"THAT'S NOT A VALID ANSWER"*"TRY AGAIN"**Z273Z286Z288Z276Z267Z268Z2773912*"THAT'S NOT A VALID ANSWER!"6+).(A$)133620)8T)B:"IF I SHOW YOU A NUMBER LIKE 37, YOU WOULD ENTER ";g)LDL11000:DLo)V50~)`"XXXVII.")j255)t3730)~::"YOU CAN TAKE TURNS ANSWERING MY QUESTIONS AND I WILL KEEP SCORE. GOOD LUCK!")380*DL1200 ROMAN NUMERALYOU SHOULD TELL ME WHAT YOU THINK IT MEANS - LIKE THIS -"R( 3730h( :"IF YOU SEE ";p( 50( "XXIII -"( 255( :"YOU WOULD ENTER ";( SPPED50("23"(255(:"PRESS TO CONTINUE..";($A$:A$""362070 'p TT1-'z "YOU BOTH GOT IT RIGHT ! !"@' DL11500:DLc' "PRESS TO CONTINUE";' 16368,0:A$:(A$)133472' 16368,0:790' ' :"I AM GOING TO ASK EACH OF YOUTWO KINDS OF QUESTIONS - "' 3730H( :"IF I SHOW YOU AE!"& DL11500:DL & 3470*& TT1B& :"GOOD WORK, ";M$d& :" YOU GOT IT RIGHT ! !"w& DL11500:DL& 3470&* SS1&4 D$R$ī3440&> D$R$ī3440&H " CONGRATULATIONS, ";N$&R :" YOU WIN ! !"&\ DL11500:DL'f 3432,3532:32,3535:32,3538:(9)/R11080=R21580G:22}N$(U);", WHICH SQUARE DO YOU WANT";:16368,0:ZQ2Z1:Q(Q23):Q2Q23QW(Q,Q2)0ė:22:"THIS SQUARE IS OCCUPIED!":S11000:S:940R1:0Z1590Z:32,3519:32,3522:32,3525:(6)1 R11080?*R21580G411c>32,387:4,732: (7) qHR11080RR21580\12f32,3818:32,3821:18,2132:18,2135:18,2138:(8)pR11080zR2158013!32,3532:32,3835::32,355:32,3511:33,358:(3)/R11080=R21580D6g19,224:21,256:4,722:(4)uR11080R21580819,2218:22,2521:18,2119:18,2122:18,2125:(5)R11080R21580 9#19,2532:22,2535,Q2)0:Q2:Q"&R0:UU0:DL1600,0:15T:0,3913:0,3927:0,3913:0,3927[D1lN5,116:(1)zXR11080bR21580l2v5,821:8,1118:18,215:18,218:18,2111: (2) R11080R215804!5,1135," LARGEST VALUE OF FIRST NUMBER";LX(U)[:"SMALLEST VALUE OF SECOND NUMBER";SY(U)" LARGEST VALUE OF SECOND NUMBER";LY(U)R$(U)"A"R$(U)"+"R$(U)"S"R$(U)"-"R$(U)"M"R$(U)"*"U:U01(2(2)) Q02:Q202:W(Q=MULTIPLICATION"J 13:N$(U);", WHICH OPERATION":"DO YOU WANT? ";R$(U)t R$(U)"A"R$(U)"S"R$(U)"M"410 15:"HOW MUCH TIME,IN SECONDS, DO YOU WANT TO" 17:"ALLOW FOR EACH PROBLEM?";T(U)19:"SMALLEST VALUE OF FIRST NUMBER";SX(U)"# rS120000:(49152)127390:* |Su 16368,0:DO0:DX0:DL1600::2:"PLAYER 1, WHAT IS YOUR NAME?";N$(1) 4:"PLAYER 2,WHAT IS YOUR NAME?";N$(2) U12:: HANDICAPPING 7:6:"A=ADDITION" 9:6:"S=SUBTRACTION" 11:6:"M 6"SQUARE YOU PICKED WILL DISPLAY AN X OR "^ @"AN O.EACH GAME IS WORTH $1600.BUT,WHEN " J"SOMEONE TRIES TO ANSWER A PROBLEM,THIS " T"VALUE IS REDUCED BY $100.WHEN SOMEONE " ^"GETS THREE IN A ROW,THEY WIN ALL OF THE " h"MONEY LEFT. TAC DOUGH"> 4:"ARITHMETIC TAC DOUGH IS A GAME FOR TWO "n "PLAYERS.YOU WILL CHOOSE ONE OF THE NINE " "SQUARES IN THE TIC TAC TOE BOARD.THE " ""COMPUTER WILL ASK YOU AN ARITHMETIC " ,"PROBLEM.IF YOU ANSWER IT CORRECTLY,THE ".;:11:21:"C"V 17:31:"D":18:32:"O";:19:33:"U";:20:34:"G";:21:35:"H"j 18:3:"BRYAN" 18:16:"BUTLER" 9:3:"PROGRAM";:11:7:"B";:12:7:"Y" 3:3:"ARITHME-" S15000:S 16368,0: :2:11:"ARITHMETICk  :>W(2,2),N$(2),R$(2),T(2),LX(2),SX(2),LY(2),SY(2)JO121Q(O^213:"/"e<OrF26:"/"yPOZO140dOn7:"/"xO14:"/"O233:6:"T";:4:7:"I";:5:8:"C" 9:19:"T";:10:20:"A"       * TOM McCORD *'l * EDUCATIONAL *>v * MEDIA *U * SERVICES *l ****************STRONG a GIVEN TO APPLE CORE OF SAN FRANCISCO FOR USE OF MEMBERS BY AUTHOR..|& LAST MOD. APR. 19810 MOD.& DEBUGGED 04/81 C.D.E.: 'NAME THE STATES'D N ****************X * MODIFIED BY *b RTH CAROLINA,NORTH DAKOTA,OHIO,OKLAHOMA,OREGON,PENNSYLVANIA,RHODE ISLAND SOUTH CAROLINA,SOUTH DAKOTA,TENNESSEE,TEXAS,UTAH,VERMONT,VIRGINIA WASHINGTON,WEST VIRGINIA,WISCONSIN, WYOMING,NEVADA,NEW MEXICO DONATED BY... KEVIN ARMO, CONNECTICUT, DELAWAREd FLORIDA,GEORGIA,IDAHO,ILLINOIS,INDIANA,IOWA,KANSAS,KENTUCKY,LOUISIANA MAINE,MARYLAND,MASSACHUSETTS,MICHIGAN,MINNESOTA,MISSISSIPPI,MISSOURI ALASKA,HAWAII,MONTANA,NEBRASKA,NEW HAMPSHIRE,NEW JERSEY, NEW YORKH NOP$" "UU012(U02):U0U:540K:"DO YOU WANT TO PLAY AGAIN";:N$`N$"Y"ĉ::410j::NU":35,37,8,38,35,38,36,38,37,38,38,38 88,39,39,39,-1,0j:22:"HA-HA ,I WON THIS TIME!":S11000:SpN$(1)", YOU HAVE $"DXN$(2)", YOU HAVE $"DO"PRESS SPACE BAR TO CONTINUE":"PRESS ANY OTHER KEY FOR NEW SETUP";:16368,0:P$#,29,22,29,35,29, 8,30,11,30,22,30,35,30,7,31,8,31,10,31,11,31,22,31,35,31# 7,32,10,32,14,32,15,32,16,32,17,32,18,32,19,32,20,32,21,32,35,32,7,33, 9,33,10,33, 11,33,12,33,13,33,35,33,7,34,9,34,10,34,35,34,7,35,8,35,9,35,35,35,7,36,8,36,35,36,7,37,8,37,,21,22,22,23,22,37,22,22,23,27,23,32,23,38,23,22,24,38,24,13,25,14,25,15,25,21,25,29,25,30,25,31,25,38,25I12,26,13,26,15,26,21,26,30,26,38,26,11,27,14,27,15,27,21,27,22,27,28,27,29,27,31,27,32,27,35,27,36,27,37,27,38,27,10,28,13,28,22,28,35,28,9,29,12DL0ĺ"VALUE OF GAME IS $0.00. NO WINNER.":S11000:S:1730`^Q02:Q202:W(Q,Q2)0940khQ2:Q~r:((1)15)1|A,B:A1čA,B:1670i24,19,25,19,34,19,24,20,26,20,33,20,34,20,35,20,23,21,27,21,28,21,29,21,30,21,31,21,32,21,36Q30:Q40:Q02:Q3Q3W(Q,Q):Q4Q4W(2Q,Q):Q:Q33VQ43V1560P1580:22:N$(U);", YOU WON!":S11000:S:U2DODODL:1730"DXDXDL:1730,C$A$6A$B$@B$C$JUU12(U2):TOGGLE BETWEEN 1 AND 2>TDLDL100:R2Z1580Z2620+Z36608Z4700EZ5740RZ6780_Z7820lZ8860yZ9900V2(U1)1:W(Q,Q2)V:PLUS OR MINUS ONEQ02:Q30:Q40:Q202:Q3Q3W(Q,Q2):Q4Q4W(Q2,Q):Q2:Q33VQ43V1560QFU1čX1,Y1:X15,Y1:X11,Y11:X14,Y11:X12,Y12:X13,Y12:X12,Y13:X13,Y13:X11,Y14:X14,Y14:X1,Y15:X15,Y15:1510xU2ďY12,Y13X1:Y12,Y13X15:X12,X13Y1:X12,X13Y15:X11,Y11:X14,Y11:X11,Y14:X14,Y14:1510A3:14102:22:"YOU'RE RIGHT":A311000:A3:E Z1X14:Y14YZ2X118:Y14mZ3X131:Y14(Z4X14:Y1182Z5X118:Y118<Z6X131:Y118FZ7X14:Y131PZ8X118:Y131ZZ9X131:Y131d((1)15)1n"";:A1/:22:"SORRY,OUT OF TIME":A41CR$(U)"+"1220WR$(U)"-"1230kR$(U)"*"1240|A3XY:1250A3XY:1250A3XYA3A41280A401275:22:"SORRY, WRONG ANSWER"X" "R$(U)" "Y" = ";A3:A312500:= ";<`A40::" ";::A11T:A2144:(16384)1281160jA3(16384)176:16368,0:A31A310A410A4A3:(8);A3;::" ";::1160tA340A4(A310):(8);" ";(8);(8);::" ";::1160~A335ĺ(8);" ";:1190A2 2630Z3670Z4710,Z57509Z6790FZ7830S$Z8870`.Z99108X((1)(LX(U)SX(U)1))SX(U)=Y((1)(LY(U)SY(U)1))SY(U)BR$(U)"-"XYSY:YX:XSL:22:TT(U)VN$(U)", WHAT DOES "X" "R$(U)" "Y" "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: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)      <: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ҍ׍ӍҠנӍɍˍϫ͍ˍ!аэ׍ōҍԍٍհ""