' +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 33552"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)      :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)      NE OF YOUR CINQUAIN NEEDS"Ez"THREE WORDS THAT DESCRIBE SOMETHING"b"THAT HAPPENS IN "S$"."h"TYPE IN A HAPPENING USING THREE WORDS."1140:"=>";D$D$""920:: 4TH LINE OF PROGRAM"THE 4TH LINE OF YOUR CI  SECOND LINE OF PROGRAMI*"THE SECOND LINE YOUR CINQUAIN NEEDS 2"j4"WORDS THAT DESCRIBE "S$"."p9>"PLEASE TYPE IN A DESCRIPTION USING TWO WORDS."H1140:"=>";B$RB$""840W::\f 3RD LINE OF POEMp"THE 3RD LIMN"S$"WINTER"S$"SPRING"710%a"ENTER ONLY ONE OF THE WORDS ABOVE. ":W150:1100:605gq::wS$:W10:1100W10:1100"THAT'S THE FIRST LINE OF YOUR CINQUAIN."W300:1100W10:1100  CHOOSING A TITLE]:2Ab" WHAT IS YOUR FAVORITE SEASON? "Ql" ------"av" SUMMER"q" AUTUMN"" WINTER"" SPRING""TYPE IN TITLE'S NAME AND PRESS .""WHICH ONE? ";S$S$"SUMMER"710S$"AUTU=>";A$:(A$)27432-A$"Y"ĺ:564>A$"N"500G:2u"A CINQUAIN (SIN KWANE') IS A POEM THAT"&"HAS ONLY 5 LINES."0W150:11004:"I'M GOING TO HELP YOU WRITE A CINQUAIN."?1150:590DW150:1100NX -"TO TRY? (Y FOR YES OR N FOR NO)=>";6V$:V$"Y"ĬGV$"N"434_::"GOOD BYE ";N$}D$(4):D$;"RUN HELLO";:3: INTRODUCTION:"HI, "N$".""DO YOU KNOW WHAT A CINQUAIN IS? ""(Y, N, OR IF YOU WANT TO QUIT))B$: r(20(D$)2))D$:6 |(20(G$)2))G$:N (20(K$)2))K$:} "WOULD YOU LIKE TO TRY ANOTHER CINQUAIN?" "(Y FOR YES OR N FOR NO)=>"; V$:V$""410 V$"Y"210 V$"N"410$:3:"IS THERE ANYONE ELSE WHO WANTS":ION TO GAME 600:: TITLE: 800: 2ND LINE OF POEM@ \ 870: 3RD LINE OF POEMb " ,950: 4TH LINE OF POEM 6 @1030: 5TH LINE OF POEM J TN$", HERE IS YOUR CINQUAIN: " Y:: ^(20(S$)2))S$: h(20(B$)2OR EDUCATIONAL USE &*3 *MAY NOT BE SOLD.COPY-*Q ! *RIGHT 1981 CUE,INC *o " ***********************w : W100:1100 : "WHAT IS YOUR NAME? ";N$ N$""ĺ"GEE, I THOUGHT EVERYONE HAD A NAME.":12:220 460: INTRODUCT  * 333 MAIN STREET *;  * REDWOOD CITY *Y  * CA 94063 *w  *(415)364-5600 EX 4401*  * *  ***********************  *  ***********************  *PROGRAM MAY BE COPIED*  *F *-  * SAN MATEO COUNTY *K  * OFFICE OF EDUCATION *i  * & *  * COMPUTER-USING *  * EDUCATORS *  * *  * SOFTSWAP *  * *  CINQUAIN 12/13/1980& P HELPS MAKE CINQUAIN POEMS W ^ t APPLESOFT 16K}  DOREAN BARNES  ADAPTED FROM THE PET VERSION  *********************** *     <: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$,4Q57675679>:"THAT'S NOT A VALID ANSWER..."::660JT(T$)WTP710]s" NO, IT IS ";P}WW11500720"": CNTRL G:"THAT'S RIGHT!"Z111000:Z1II13S((1)H)1R((1)H"CORRECT!"^Z111000:Z1%bI0lI13BvM((1)H)1TG((1)H)1ZdPMG6)I6,M;" X ";G;" = ";16368,0T$:T$""675(T$)2R((T$,2,1)):R48R57675Z((T$,1)):Q((T$,1))Z48Z57Q48((T$,1))64(T$)2R((T$,2,1)):R48R57567S5Z48Z57Q48Q57567\65687:"THAT'S NOT A VALID ANSWER..."::5408T(T$):TF600?D" OOPS, THAT SHOULD BE ";FNWW1O1500S610X"": CNTRL G ]: G:"VERY GOOD!")Z111000:Z10I;I13KD((1)X)XD0510hE((1)D)n xFDE6)I3,D;" - ";E;" = ";& > > SUBTRACTION ALWAYS GIVES POSITIVE ANSWER/16368,00T$1T$""567 3Z((T$,1)):Q(T$,2,1)):R48R57444C(T$)4R((T$,3,1)):R48R57444`Z48Z57Q48Q57444i445:"THAT'S NOT A VALID ANSWER..."::430T(T$)TC480:" SORRY, THE ANSWER IS ";CWW11500490"": CNTRL14 |I13C((1)X)*C0390:B((1)C)c > > ANY TWO NUMBERS ADDED TO MAX XmACBs6)I,A;" + ";B;" = ";16368,0T$:(T$)4ĺ"TOO BIG!"::435T$""444Z((T$,1)):Q((T$,1))(T$)2R( FOR * AND /X10:H4:3101X25:H10:310E"X100:H12:310U,X1000:H20b6:6:W0@ > > W COUNTS WRONG ANSWERSJ"OK, ";A$T" ANSWER THESE QUESTIONS -"^:"(REMEMBER TO PRESS 'RETURN' AFTER EACH ANSWER!)"h34,12r> KEY TO END..."A 9:"WHAT LEVEL DO YOU WANT TO START WITH?";O 16368,0b L$:L$""205u (L$)271069 (L$)49(L$)52204 L(L$) :5 L270,280,290,300  > > SETS LEVELS OF DIFFICULTY. X IS MAX FOR + AND -, H IS MAX6:" HI, ARE YOU READY FOR A MATH QUIZ? "T :"FIRST TELL ME YOUR NAME - ";A$h A$""Ģ10:140| :2:"OK, ";A$ :" THERE ARE FOUR LEVELS TO THIS QUIZ - " :"LEVEL 1 IS THE EASIEST, 4 IS THE HARDEST" 23:5:"...PRESS  *FOR EDUCATIONAL USE &*\ *MAY NOT BE SOLD.COPY-*z ! *RIGHT 1981 CUE,INC * " *********************** d::298,0:16300,0:16368,0 n > > J IS PASSMARK:NUMBER CORRECT OUT OF 12 xJ9:Y1:N0- AP *(  * *F  * 333 MAIN STREET *d  * REDWOOD CITY *  * CA 94063 *  *(415)364-5600 EX 4401*  * *  ***********************  *  **********************************+ * *I  * SAN MATEO COUNTY *t 16368,0: * OFFICE OF EDUCATION *  * & *  * COMPUTER-USING *  * EDUCATORS *  * *  * SOFTSW  MATH QUIZ OCTOBER '80) F FOUR FUNCTION, WHOLEd NUMBER DRILL-4 LEVELSl  APPLESOFT, 8K ADAPTED FOR APPLE BY B. GOODSON FROM THE COMPUTING TEACHER **********         ("NEEDS ONE WORD THAT REFERS TO "S$A$"TYPE IN ONE WORD."T.1140:"=>";K$d8K$""1070n=::tBL SECOND TIMERVTT1`TITWTITI1:1120jt~23:"PRESS TO CONTINUE.";:IN$::(IN$)131150WNQUAIN NEEDS FOUR";@"WORDS THAT DESCRIBE A FEELING YOU GET"T"DURING "S$"."Z"TYPE IN A FEELING USING FOUR WORDS."1140:"=>";G$G$""1000:: 5TH LINE OF POEM"THE 5TH, AND LAST, LINE OF YOUR CINQUAIN";       ","1945","1960","1776","1958","1974","1976","1969"1SSINATED","H","WAR OF 1812","E"  "ATOMIC BOMBS DROPPED ON JAPAN","N","BATTLE OF THE ALAMO","M","PROHIBITION REPEALED","B","DECLARATION OF INDEPENDENCE","P"2  "1492","1933","1863","1950","1812","1917","1876","1963","1620","1972","1861","1941","1836CLAMATION","C","CUSTER'S LAST STAND","G"  "COLUMBUS DISCOVERS AMERICA","A","U.S. ENTERS KOREAN WAR","D","NIXON RESIGNS","R","PILGRIMS LAND AT PLYMOUTH ROCK","I" X "U.S. ENTERS WORLD WAR I","F","FIRST U.S. EARTH SATELLITE","Q","JOHN F. KENNEDY ASSARY THIS QUIZ AGAIN? (TYPE YES OR NO)";W$@ W$"N0"ī32767R W$"YES"ī55 , "AMERICANS LAND ON MOON","T","CIVIL WAR BEGINS","K","NIXON VISITS CHINA","J","U-2 INCIDENT","O"(  "PEARL HARBOR","L","VIKING 1 LANDS ON MARS","S","EMANCIPATION PRO(64X);". ";T$(X):::X:3 DX120:18:Q$(X)< FRE$g PRE$A$(X)ĺ:"CORRECT, ";N$:CC1:95 Z:"NO, THAT IS INCORRECT. LET'S GO ON." _F12000:F d18:958 X 17:"YOU GOT ";C;" RIGHT OUT OF 20.":19, "DO YOU WANT TO T CORRECT DATE."G *:"PRESS 'RETURN' WHEN YOU ARE READY TO GO ON.";X$M -i 2:Q$(20),A$(20),T$(20)o 7 <X120:Q$(X),A$(X):X =X120:T$(X):X >X120:Y17:BX:X7BX7 ?X14BX14 @(2B):X7X15Ė13 AX14Ė26 B4 :3- 6)"* * DATES IN HISTORY * *"5 :g"HELLO THERE, PLEASE TELL ME YOUR NAME?":N$m"DO YOU WANT INSTRUCTIONS?";D$#D$"NO"ī50$: ("MATCH THE EVENT WITH THE YEAR IN WHICH IT OCCURRED. TYPE IN THE LETTER OF THE20C,20C20C&20C,20C20C:20C,20C20CN20C,20C20CUCr ::13)"GOOD JOB! ! !"DL12000:DL:(5:950x:24:6:"PRESS TO CONTINUE....";U$:(U$)27950WAITING TO TRY?"0["(Y FOR YES, N FOR NO)=>";>_16368,0R`U$:U$""1120heU$"Y"ė:10:15zjU$"N"1119t:3:" GOOD-BYE!"~D$(4):DL1500:DL:D$;"RUN HELLO";::C019((1)13)1"(Y FOR YES, N FOR NO)=>";,16368,0@Y$:Y$""1010]Y$"Y"ĉ:936:10:160oY$"N"1008y1070-.::"OK, ";A$8" STUDY A LITTLE MORE AND THEN COME TO SEE ME AGAIN!"BDL12000:DLV:" IS SOMEONE ELSE $"THAT'S NOT A VERY HIGH GRADE!"0::2:Z$c::"WOULD YOU LIKE TO TRY THIS LEVEL AGAIN?""(Y FOR YES, N FOR NO)=>";16368,0U$:U$""955U$"Y"310U$"N"954936:8:"WOULD YOU LIKE TO TRY A DIFFERENT LEVEL?"DL f:p10 u16368,0Bz10)"LET'S SEE HOW YOU DID!"`::"M-M-M-M-M OK ";A$:"YOU HAD ";12W;" QUESTIONS OUT OF 12 CORRECT!"Z((12W)10012):"THAT'S A SCORE OF ";Z;"%."1500Z$""Z951210!Z75ZHAT'S NOT A VALID ANSWER..."::780/T(T$)< TS830B%m*" OH DEAR, THAT SHOULD HAVE BEEN ";Sw4WW191500:840>"": CNTRL GC:"RIGHT YOU ARE!"DZ111000:Z1HIMR::"THAT'S ALL!!!!"\DL12000:)1 QRSB > > DIVISION ALWAYS GIVES INTEGER ANSWER_ 6)I9,Q;" / ";R;" = ";m16368,0uT$T$""796Z((T$,1)):P((T$,1))(T$)2R1((T$,2,1)):R148R157796Z48Z57P48P57796798#:"T24,29:15,29XI1200:I:25,28:14,28:I1200:I:13,27:26,27:I1200:I:27,2612,26:I1200:I:11,25:28,25:I1200:I:I12000:I:::11:19:"RIGHT L E T T E R !":12:19:"NICE WORK, "N$"!": 8:19:N$" IS A COMPUTE9::"SMARTY!"::*\ GRAPHICS FOR FACEwf::11:I139:0,39I:1,3939:39,039:39,1O:8:8,158:22,298:2p11,1212:10,1212:10,1211:10,1025:10,1126:11,1125:12,1126 z12,1125:5:22,1518:18,2022:1:I1200:I:16,2330: FOR COLORSX ::I139:I:1,39I:I:I139:I:1,39I:I:M3901:M:39,1M:M*I3911:I:39,1I:I:I139:S1100:S:0:1,39I:I:::414:19::"YOU GOT IT!"::>14:19:"YOU DID IT!":H16:19:"PERFECT!":R17:1%20720eX%750,760,770,780,790,820,830,840,850,860,920,930,940,950,960,1010,1020,1030,1040,1060k19:12:"GOOD JOB, "N$"!":15:19:"TERRIFIC!":11:19:"GR-R-R-EAT WORK!!!": 12:19::"GOOD WORK, "N$"."::  GRAPHICS6260:L$(X%1):6:"WHAT LETTER FOLLOWS THIS ONE?":] PRINT FOR FIND THE MISSING LETTERA$"4"X%1260:16:18:L$(X%1)6:"WHAT LETTER COMES BEFORE THIS ONE?": RANDOM NUMBER GENERATER TO CHOOSE REINFORCERX%(9)2004:X%1X2003):X%1X%26610:5l PRINT FOR LETTER MATCH_vL$(X%):6:12:"MATCH THE LETTER!": PRINT FOR THREE LETTER SEQUENCEA$"2"X%1X%26260:12:16:L$(X%1)" ^ "L$(X%1): PRINT FOR FOLLOW THE LETTER 5A$"3"X%222:N$:N$""550::4:15:"HELLO "N$"X010:"FILL IN THE MISSING LETTER BY PUSHING:11:" THE CORRECT LETTER KEY.":14:"PRESS ANY KEY TO BEGIN.D20:"PRESS ESC TO RETURN TO PROGRAM MENU.";:B$:(B$)27ė:100N240X680bX%((9)THE CORRECT LETTER KEY.":14:"PRESS ANY KEY TO BEGIN.|20:"PRESS ESC TO RETURN TO PROGRAM MENU.";:B$:(B$)27ė:100240 DIRECTIONS FOR FIND THE MISSING LETTER5:5:"WELCOME TO FIND THE MISSING LETTER(&10:12:"YOUR NAME":10:PROGRAM MENU.";:B$:(B$)27ė:100-240T DIRECTIONS FOR FOLLOW THE LETTER}5:5:"WELCOME TO FOLLOW THE LETTER10:12:"YOUR NAME":10:22:N$:N$""480::4:15:"HELLO "N$"10:"FILL IN THE MISSING LETTER BY PUSHING611:":5:"WELCOME TO THREE LETTER SEQUENCEl10:12:"YOUR NAME":10:22:N$:N$""410::4:15:"HELLO "N$"10:"FILL IN THE MISSING LETTER BY PUSHING 11:"THE CORRECT LETTER KEY.":14:"PRESS ANY KEY TO BEGIN.$20:"PRESS ESC TO RETURN TO $)27ė:1001 ^18:14: CHECK STUDENT RESPONSEo hL$(X%)B$ĺ"NO, "N$". TRY AGAIN.":1120::12:18:290 rB$L$(X%)İ710 |1120::IIII1:II50250:11:10:"THANKS FOR PLAYING!":1120::100  DIRECTIONS FOR THREE LETTER SEQUENCE&5 LOOP TO GET LETTERS II1# F  SELECTS RANDOM NUMBER/LETTERe 610:: PRINT FOR LETTERSq 12:18 "A$"1"İ620 ,A$"2"İ640 6A$"3"İ660 @A$"4"İ680 J B$ = STUDENT RESPONSE T8:14:"LETTER?":17:14:B$:18:B$:(B12:"YOUR NAME":10:22:N$:N$""190::4:15:"HELLO "N$h 10:" MATCH THE LETTER ON THE SCREEN BY 11:" PUSHING THE CORRECT LETTER KEY. PRESS":12:" ANY KEY TO BEGIN. 20:" PRESS ESC TO RETURN TO PROGRAM MENU.";:B$:(B$)27ė:100 :9:"5. QUIT":20:5:"CHOOSE ONE - ";:A$::A$"1"180:A$"2"400 A$"3"470:A$"4"540:A$"5"ĺ"SEE YOU LATER!"::"RUN HELLO CHECK ON MENU SELECTION 80 DIRECTIONS FOR LETTER MATCH 5:8:"WELCOME TO LETTER MATCH; 10:):I126:L$(I):I& P PROGRAM MENU. Z:q d5:13:"ALPHABET ANTICS":8:5:"CHOOSE ONE OF THE FOLLOWING: n10:9:"1. LETTER MATCH":12:9:"2. THREE LETTER SEQUENCE x14:9:"3. FOLLOW THE LETTER":16:9:"4. FIND THE MISSING LETTERE 18 ALPHABET ANTICS 1/4/82n THIS PROGRAM IS DESIGNED TO TEACH AND REINFORCE ALPHABET SKILLS. H. BURKE (:70224:"PRESS TO GO ON, TO END ";<IN$:(IN$)160:(IN$)(27)80:(IN$)1360:: FL$(2604>H  ':Y127N150(Y1)ID((5)61)RY4`X10100tN10,XN100,X{X4D14090X1D1(ND(X,D,1)),D(X,D,2)X41002(N20),60Y1D2DYp"r2000 T0LP4409::P$(P)", YOU WIN!!!"a"FINAL SCORE IS "P(1)" TO "P(2)".""CONGRATULATIONS TO "P$(P)H17HY015980,80279,Y279,8000,Y X027910 140,0X,159*140,159X,VE BEEN DOUBLE ZAPPED.";"YOU LOSE ALL YOUR POINTS AND"M"YOUR TURN."XP(P)0a595"VERY GOOD !! YOU HAVE EARNED ";MTTM"POINTS. TOTAL FOR THIS ROUND IS ";TG0LL2000:60000445P(P)P(P)TP(P)100AT IS THE PRODUCT";(0LL3:50000:AAN3:MDD2@DAM750bN"WRONG, YOU LOSE YOUR TURN."uSLL1000:60000X1000"YOU HAVE BEEN ZAPPED.""POINTS FOR THIS ROUND ARE LOST,""AND YOU LOSE YOUR TURN."S0595"YOU HA10);P$(1);20);P$(2)/:11);P(1);21);P(2)<G1480d16:"POINTS FOR THIS ROUND ARE ";T20:P$(P)", DO YOU WANT TO PASS";LL3:50000AN$"YES"900AN$"NO"4504000D1D21700D1D21650&P$(P);", WHPLE.") (20):"DO YOU WANT THE RULES";O LL3:50000:AN$"YES"İ6000:400b AN$"NO"380m X12 :15:"WHAT IS YOUR NAME, PLAYER "X" "; LL10 50000:P$(X)AN$:P(X)0  P12  :10:10);"THE SCORE IS:":5,45' 45,0,0,46,45,45,45,63,63,63 @ "D(6,6,2),P$(2),P(2)K ,X16V 6Y16m @D(Y,X,1),D(Y,X,2)u J: TX1638416570 ^Y:X,Y: h232,0:233,64 r3:0:1 |:10:" ZAP IS A MULTIPLICATION GAME" :" PLAYED BY TWO PEO54,62,36,360 36,36,52,54,54,63,63,63,63,63U 63,63,44,45,45,45,45,45,45,45w 77,73,73,73,9,54,54,54,37,36 36,36,39,37,47,60,44,60,61,44 45,45,45,45,62,63,63,63,47,45 45,45,45,46,54,54,44,36,55,54 62,62,63,63,63,63,44,45,4,45,45,45,45,45,37,638 63,63,63,63,63,37,37,37,37,37[ 37,37,37,37,37,37,61,63,63,63 63,63,63,46,45,45,45,45,45,109 73,73,73,73,73,18,54,54,54,54 62,36,36,36,36,37,37,37,37,45 45,45,53,63,63,63,47,45,45,45 53,53,53,53,54,54,50,50,70,70,0,0,0,0,0,0= F 30,30,30,70,70,70,70,30,0,0,0,0e P 30,30,50,50,70,70,30,70,70,30,0,0 Z 30,30,30,50,30,70,70,30,70,50,70,70 d2,0,8,0,32,0,182,0,45,46 n61,63,63,55,47,45,45,45,53,63 x63,63,63,53,45,45,45,63,62,63 0,0,45 ZAP BY BILL HECKC MODIFIED FOR APPLE BY BEN JACKSON FOR MICROCOMPUTERS IN EDUCATION PROJECT/ ROBBINSDALE AREA SCHOOLS #H$(8)%&G1( 50,50,0,0,0,0,0,0,0,0,0,02 30,30,70,70,0,0,0,0,0,0,0,0 < 30,30,    F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z3`50::j Qt ****************h~ * MODIFIED BY * * TOM McCORD * * EDUCATIONAL * * MEDIA * * SERVICES * ****************:11,19254 11:28,3110:32,APHICS FOR RIGHT\.::12:1,713:1,718:13,241:13,187:2,19:3,20:4,21:5,22:6,2387,24:13,2412:17,2313:17,2324:20,2319:13,2417B19,2423:13,2425:13,2431:25,3118:13,2436:33,3913:I12000:IL::)V A,B,C,D,E,28,3120:10,2028:12,1833:1:10,1837H37,20:I12000:I:::j14:19::"WHAT A WHIZ!"::10:19::"F A N T A S T I C !"::17:19::"SUPER!":: NAME REINFORCEMENT:J124:N$N$N$N$N$N$N$;:K140:K:J:$ GRR WHIZ!":.9:19:N$" IS SO-O-O SMART!":G GRAPHICS FOR GOOD!::7:5,810:5,820:7,915:11,129:15,199:11,194:2:13,161013,1620:11,1912:11,1917:3:21,2410:21,2420:11,1920:11,1925*11:28,3110:32,11:32,19: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)       í(XX$)90(XX$)32500205úXX$;:AN$AN$XX$@ë50020Tí(AN$)050020dúH$;" ";H$;xí(AN$)150010AN$(AN$,(AN$)1)ë50020í(AN$)050020ú:AN(AN$):`C1LL:C: HNNER IS THE FIRST ONE TO 100 POINTS."L:::"HIT ANY KEY TO CONTINUE.";UAN$[aPò INPUT SUB. IN 'AN' & 'AN$'Uò LL=LENGTH OF WINDOW.Wú"? ";ZAN$""_XX(0)dþXX$:XX$H$50100ní(XX$)1350150xí(AN$)LL50020ASS."+"IF YOU PASS YOU GET THE POINTS"L"YOU GAINED IN THAT ROUND."s"IF YOU CONTINUE TO PLAY YOU MAY""GET MORE POINTS OR YOU MAY ""GET ZAPPED.""ONE ZAP--LOSE POINTS FOR THE ROUND.""DOUBLE ZAP-LOSE EVERYTHING."%"WI"THE COMPUTER WILL ROLL TWO DICE"It"THE DICE CONTAIN 2,3,4,5,6, AND"nv"ZAP. WHEN TWO NUMBERS COME UP"x"MULTIPLY THEM CORRECTLY AND GET"z"POINTS EQUAL TO THE PRODUCT."|"AFTER EACH CORRECT ANSWER YOU WILL"~"BE GIVEN A CHANCE TO P <: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$