' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#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 ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`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- (  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` # d ֠z# u`FT 45 BACK 100 LEFT 45 FORWARD 141 END TO SQUARESIZE :SIZE REPEAT 4 [FORWARD :SIZE RIGHT 90] END TO SQUARE FORWARD 50 RIGHT 90 FORWARD 50 RIGHT 90 FORWARD 50 RIGHT 90 FORWARD 50 RIGHT 90 END TO NAME END :SIZE IF :SIZE > 80 STOP REPEAT 4 [FORWARD :SIZE RIGHT 90] RIGHT 20 GROWSQUARES :SIZE + 5 END TO SPINSQUARES :SIZE REPEAT 4 [FORWARD :SIZE RIGHT 90] RIGHT 20 SPINSQUARES :SIZE END TO DIAG REPEAT 4 [FORWARD 100 RIGHT 90] RIGHT 45 FORWARD 141 LE ) LEFT 5 END TO RIGHT.CIRCLE.PIECE :RADIUS RIGHT 5 FORWARD :RADIUS * ( 3.14159 / 18 ) RIGHT 5 END TO RCIRCLE :RADIUS REPEAT 36 [RIGHT.CIRCLE.PIECE :RADIUS] END TO SPINSLINK :RADIUS RCIRCLE :RADIUS RIGHT 20 SPINSLINK :RADIUS END TO GROWSQUARES TO LCIRCLE :RADIUS REPEAT 36 [LEFT.CIRCLE.PIECE :RADIUS] END TO LARC :RADIUS REPEAT 9 [LEFT.CIRCLE.PIECE :RADIUS] END TO RARC :RADIUS REPEAT 9 [RIGHT.CIRCLE.PIECE :RADIUS] END TO LEFT.CIRCLE.PIECE :RADIUS LEFT 5 FORWARD :RADIUS * ( 3.14159 / 18   (B)" ";C$(C)MN FILL THIRD ARRAY WITH DATA( Z1243 C$(Z): ZX GENERATE RANDOM NUMBERSd M112 CHOOSE 3 RANDOMD NUMBERS A(24(1)1) B(24(1)1) C(24(1)1) PRINT RANDOMLY SELECTED WORDS FROM ARRAYS A$(A)" ";B$ DISFUNCTION,METHODOLOGY,QUOTIENTS,RE-ORGANIZATIONm RATIONALIZATION,ACTIVITIES,COMMUNICATION,RESOURCES SYNTHESIS,VALIDATION,TECHNIQUES,CONSENSUS MALADJUSTMENT,SECTOR,CRITERIA,AUTONOMY,ANALYSIS POLARIZATION,OBJECTIVITY,STRATEGY ,ACADEMIC,CONCEPTUALM h SOCIOECONOMIC,HYPOTHETICAL,IDEOLOGICAL,THEORETICAL i DEVELOPMENTAL,COMPESATORY,DIAGNOSTIC,EXPERIMENTAL n FILL SECOND ARRAY WITH DATA sY124 xB$(Y) }Y SITUATION,OVER-INVOLVEMENT,EVALUATION,COMPONENTS4 < FILL FIRST ARRAY WITH DATA, FX1247 PA$(X)> ZXr d MEANINGFUL,PROCEDURAL,SIGNIFICATNT,DEMOCRATIC e SOCIOMETRIC,CONSULTATIVE,EMPERICAL,UNSTRUCTURED f IMPLICIT,PERCEPTUAL,PSYCHOLINGUISTIC,COEDUCATIONAL g REACTIONARY,MOTIVATIONALIC, DIVERGENT,PROGRAMMED,OPERATIONAL,AFFECTIVEi 4 CHILD-CENTERED,MULTI-,EMOTIVE,DISADVANTAGED,ON-GOING 5 CORRELATED,EXTRA-,INNIVATORY,VIABLE,SUPPORTIVE,ELITIST 6 MICRO-,CREATIVE,ADVANCED 7 INFORMAL,ULTRA,INTERDISCIPLINARY,COGNITIVE,RELEVANT JARGON5 RESESERVE SPACE FOR ARRAYS]"THIS PROGRAM SPEAKS TECHNICALESE""WOULD YOU LIKE A FEW QUICK SAYINGS, PLEASE ENTER A YES OR NO";N$N$"YES"30N$"NO"260A$(24)(B$(24)2C$(24). 3 BAS     `(4)"SAVE PUZZLE  jQQ1tW$(A1);$~Q5Q0,A1=H110::HCKA1\H110::HbnA1A11~N(W$(A1))E16N:A1A11E);3690D1M:R(99):DX((20)(99)1):Y((20)(99)1)JJ1:J30330EAR,BULB,FILM,JERSEY1 A1A11:20)A1;:A1A11A 24)W$(A1)G U B03590_ BB1o B$(B)C$(Z)x 310C1B(C$(Z),4)(B$(C),4)300C$BB1.B$(B)C$(Z)8310B:LA1034VQ0ĺ:2);`Q03790,SUGAR,ROUTE,GLUE,BULL,SOAPW LIFE,MILK,ANGRY,COLLAR,TIED,ELI,UNITY,GROW,GOODS,PLOW BEEF,BAG,FRUITS,CARVER,ESCAPE,CREAM,PARTS,CHEESE,HUGE,MAGNET LIGHT,WATER,HEAT,RICH,CREATE,STEAM,FORCE,COIL,WIRE,NATURE CODE,METAL,MORSE,GOD,KNIT,SENT, 11);Y120*A$(X,Y);" ";1Y9:@XJ3650PW0:"WANT ANOTHER STUDENT PUZZLE";V$&(V$,1)"Y"1400+F(0)0::"WANT ANOTHER PUZZLE ?";V$:(V$,1)"Y"10D PROFIT,DEAF,VICE,BELL,MONEYdXx1:(9)"80N"4y ENHANCE PRINT COMMANDDz(27);"E";K{UW|P(P$)j}P1(40(P2))vP1)P$~:10)"BELOW IS A WORD SEARCH, THE WORD MAY BE HORIZONTANTAL, VERTICAL,"29)"DIAGONAL, OR BACKWARD.":X120A$(X,Y);" ";Y!:(X23650Z 0:"WANT ANOTHER ANS KEY (Y-N)";V$s (V$,1)"Y"Į:1195 FILLING REST OF A$(X,Y) ARRAYX120(Y1202A$(X,Y)"."1370<B((26)(99)1)FC64BPA$(X,Y)(C)ZY300):(8):"READY KEY FOR PRINTING";1:(9)"80N"W SET PRINTER TO NORMALg(27);"F";sP(P$)P1(40(P2))U10)"KEY FOR"P1)P$:X12011);Y120A$(X,Y)" "1270A$(X,Y)"."I)(W$(A1),I1,I).BI,A1A11:A13511957D300WL"RIGHT DOWN DIAG ";:3030aV4000n`I0N1jXI201110tYI201110~A$(XI,YI)" "1110II0N1A$(XI,YI)(W$(A1),I1,1)I:A1A11:A1351195$(XI,YI)" "910I(I0N1HA$(XI,YI)(W$(A1),I1,1)cI:A1A11:A1351195l300"LEFT UP DIAG PLAC";:30304000I0N1XI01010YI01010A$(XI,YI)" "1010$I.I0N18A$(XI,Y0004I0N1 >YI20810/HXI0810JRA$(XI,YI)" "810Q\I^fI0N1~pA$(XI,YI)(W$(A1),I1,1)zI:A1A11:A1351195|300"LEFT UP DIAG PLACE";:30304000I0N1YI0910XI20910AA11A1351195300?"LEFT HORIZ SEL PL ";:3030I4000VI0N1eYI0710~A$(X,YI)" "710II0N1A$(X,YI)(W$(A1),I1,1) I:A1A11A1351195300 "RIGHT UP DIAG PLA ";:3030*4" "510&I0I0N1;:A$(XI,Y)(W$(A1),I1,1)JDI:A1A11ZNA1351195cP300X"RIGHT HORIZ SEL-PL";:3030b4000lI0N1vYI20610A$(X,YI)" "610II0N1A$(X,YI)(W$(A1),I1,1)I:A1 ";:3030 4000& I0N15 XI0410N A$(XI,Y)" "410U Ib I0N1 A$(XI,Y)(W$(A1),I1,1) I:A1A11 A1351195 300 "DOWN VERTICAL ";:3030 4000 I0N1 XI20510 A$(XI,Y) ' SELECT WORD, ASSIGN TO W$0 ) PULL LENGHTJ ,Z((50)(99)1):K0T 13550e 6W$(A1)C$(Z)u @N(W$(A1)) E SELECT INSERT DIRECTION AT RANDOM JJ0:L((8)(99)1):KK1 OK11300 TL400,500,600,700,800,900,1100 "UP VERTICAL <" LOCATION";:(18):"COUNT";3 F(24):"WORD"= UU1[ ***** WHISTLE STOP ****c P$ SET MAIN ARRAY TO EMPTY SPACE X120 Y120 A$(X,Y)" " Y X READ DATA IN 2000+ Z150 C$(Z) Z "A10"3 $:" HINT: SMALLER WORDS ARE HARDER TO FIND."d %:"TO THE FIRST TIME USER: A SAMPLE SET OF" &"DATA IS INCLUDED. RUN THE PROGRAM" '"UNCHANGED FIRST AND THEN CHANGE IT." (::(8):"NEED TIME TO INPUT DATA ?";D$ 2(D$,1)"Y"Ā 7!00)";M D1M:R(99):D" P "THIS PROGRAM WILL PRINT A 20X20 SQUARE"t (9):"FOR 35 OUT OF 50 WORDS." :(4):"PLACE NAME OF PUZZLE IN LINE 202" :"PLACE WORDS BY TENS STARTING IN 2000" ":" WORDS SHOULD BE (2-15) LETTERS LONG. U04 WORD SEARCH PRO FROM MIC 80 OCT 1980| MODIFIED FOR TRS80 AND TRANSLATEDFOR APPLE BY BOB VANCE 16/MAR/82A$(20,20),C$(50),W$(35),B$(40):Z0 :6)"WORD SEARCH PRINTING PROGRAM": B0:B$" " :(8):"SELECT A NUMBER (1-1       X$X$"Y"ī210'X$"N"ī800-  NX"BET IS NOW ";Z!CC1N% YOU WILL NEVER HAVE C>3 BECAUSE OF 550\&C3ī600d0XZm:220N LOSING ENDINGX"YOU LOST THE COMPETITION"bl"DO YOU WANT TO PLAY AGAIN"v"ENTER A (Y) FOR YES"" OR A (N) FOR NO"S ";A$,B$$"BET NOW IS ";Z,XZ5590V TAIL - HEAD OR HEAD - TAILuA$"HEADS":B$"TAILS":520A$"TAILS":B$"HEADS" THEY WON'T GET ANOTHER TOSS HERE IF C IS 3 SO JUST PRINT RESULTS"YOUR TOSS WAS ";A$,B$ Z2Z.  INSTEAD OF TOSSING AGAIN AUTOMATICALLY\  WOULDN'T IT BE BETTER TO LET THE PLAYER  DECIDE WHETHER TO CONTINUE OR  TO STOP AND KEEP THE WINNINGS  HERE. 620  TAIL - TAIL A$"TAIL" B$"TAIL" ZX0 "GAME END Q(2(48)1)$ COIN - SORT6 Y1Q1ī290H Y2Q2ī420Z Y1Q2ī510l Y2Q1ī512  NO NEED FOR AN ERROR TRAP HERE " HEAD - HEAD ,A$"HEAD" 6B$"HEAD" @Z4X T"THROWER WON ";A$,B$ h"BET NOW IS ";Z |X- HEAD"2 "BET DOUBLES AND THE GAME CONTINUES."B BET INPUTi "ENTER THE AMOUNT OF YOUR BET:";X RESET COUNTER HERE OR AMOUNT WILL ACCUMULATE OVER SEVERAL GAMES C0 CLEAN OFF SCREEN COINS FLIP Y(2(48)1)IR."+ Z"THE COMPUTER WILL TOSS FOR YOU."1 d7 nW x"MATCH COINS HEAD TO HEAD"~ "AND YOUR BET IS MULTIPLIED BY 4" "MATCH COINS TAIL TO TAIL" "AND YOUR BET IS MULTIPLIED BY 0" "YOU LOSE..." "IF THE COIN COMES UP" "TAIL Q HOLDS FLIP FOR SECOND COIN1  X HOLDS BETO  Z HOLDS MULTIPLE OF BETf ( C IS THE COUNTER 2 A$, B$ ARE FACES OF COINS 6 LET'S CLEAR SCREEN TO BEGIN 7 <"TWO-UP" F P"THE GAME IS PLAYED BY TOSSING TWO COINS" U"IN THE A/# THIS PROGRAM WAS WRITTEN BY8 CALVIN LAMBERT>h RANDOMIZE DOESN'T WORK ON THE APPLE SO USE THE FOLLOWING METHOD:"PLEASE TYPE A POSITIVE NUMBER ";NX1N:R(1):X VARIABLES Y HOLDS FLIP FOR FIRST COIN      $(A),3)"IGN"(A$(B),3)"INE"ī1590Q(N$(A),3)"INE"(A$(B),3)"IGN"ī1590w"A(100(27)1):B(100(38)1),15006 NCLEARLY","SOFTLY","BRIGHTLY""xC(N$(A),3)(A$(B),3)ī1590p(N$(A),3)"GHT"(A$(B),3)"ITE"ī1590(N$(A),3)"ITE"(A$(B),3)"GHT"ī1590(N$(A),3)"OUR"(A$(B),3)"WER"ī1590(N$(A),3)"WER"(A$(B),3)"OUR"ī1590$(N "SADLY","HAPPILY","JOYFULLY","LOOSELY","ICILY"h "WARMLY","CLEVERLY","SMARTLY","FALSELY","SHARPLY" "IMMENSELY","BEAUTIFULLY","SOURLY","DESTRUCTIVELY","CALMLY"( "COOLY","BRIEFLY","DANGEROUSLY","FITFULLY","MEEKLY"2 "HOTLY","STRANGELY","YLY","STRANGELY"L "COMPLETELY","INSANELY","SILENTLY","RAPIDLY","SLOWLY" "INTENSELY","ROUGHLY","SURELY","CUNNINGLY","QUICKLY" "SMOOTHLY","ROUGHLY","SURELY","CUNNINGLY","QUICKLY" "SWIFTLY","HALTINGLY","NASTILY","EVILLY","PRETTILY"0 DE","MOVE","DRIVE","REMOVE"H "BURN","CLEAN","ARRANGE","HOLD","KEEP"p "TOW","PULL","LOVE","MISS","KISS" "HELP","PLEASE","SURPRISE","COMBINE","PUSH" "FINISH","RUSH","FLUSH","CRUSH","VANISH" "SWEETLY","CAREFULLY","MYSTERIOUSLY","SH"BRILLIANT","SIMILIAR"?t "TAKE","GALLOP","MAKE","SEE","FRY"h~ "RACE","FLY","TRY","AVOID","SLICE" "WANDER","JUMP","SWAT","BUMP","CONSUME" "DANCE","FALL","CLIMB","SWING","CHANGE" "THINK","WALK","CUT","SHUT","CREATE" "DRAW","HIOLLABLE","PORTABLE"RB "LAUGHABLE","CHANGEABLE","MOVABLE","MALLEABLE","LOVABLE"L "FUTILE","SENILE","VILE","PUERILE","SERVILE"V "DAMP","ARID","VACUOUS","FULL","SOLID"` "TAME","CALM","LAME","GRUMPY","FALSE"j "TRANQUIL","SHORT","ALERT", "LOW","MELLOW","YELLOW","CALLOW","SHALLOW"d "MISSING","THINKING","MOVING","RAVING","MATCHING"$ "GRUELLING","SINKING","LAUGHING","CRYING","LOSING"."BENIGN","SANGUINE","MALIGN","SERPENTINE","DEVINE"8 "BEARABLE","ABLE","MISERABLE","CONTRNATE","MISTY","CLOUDY"G "POLITE","CONTRITE","TRITE","BLIND","KIND"t "SOUR","DOUR","SIMPLE","SHARP","ROUGH" "LOOSE","SNIDE","BONAFIDE","LUMPY","BUMPY" "FINE","SWEET","SOFT","COOL","HARD" "HONEST","FALSE","TAME","CALM","WARM",LE","MISSILE"= "TIGHT","BRIGHT","LIGHT","RIGHT","SLIGHT"t "CONTENT","BENT","MALEVOLENT","CLEMENT","ABSENT" "EXCELLENT","INCLEMENT","AFFLUENT","VIOLENT","HEAVEN-SENT" "GOLDEN","ORANGE","AZURE","REDDISH","GREEN" "LATE","IRATE","OR"/p "RING","THING","CRAVING","WING","FLING"[z "SIGN","MINE","SHINE","SHRINE","PINE" "SCENT","VINE","WINE","LINE","INCLINE" "TABLE","CABLE","FABLE","GABLE","STABLE" "BLAME","FAME","DAME","GAME","NAME"  "MILE","FILE","TILE","PIUR","MOWER","HOUR","TOUR","SEWER"P> "KITE","SITE","MITE","INSIGHT","DELIGHT"}H "TIDE","RIDE","SIDE","STRIDE","SHADOW"R "TREE","WOOD","GRASS","MEADOW","SKY"\ "POOL","SCHOOL","TOOL","STOOL","FOOL"f "FELLOW","MIND","RIND","BELLOW","KINGENT","TRIDENT"D "CEMENT","RENT","COMMENT","ACCIDENT","MONUMENT"n  "MATE","DATE","CRATE","FATE","GATE" "HATE","PATE","GRATE","FATE","GATE"  "MOOSE","GOOSE","CHAIN","RAIN","TRAIN"* "TOWER","FLOWER","POWER","BOWER","SHOWER"!4 "FLO,"AROUND","BENEATH","OVER","NEAR"R "BETWEEN","ABOVE","INSIDE","BEFORE","FROM"~ "BEYOND","FOR","TO","AGAINST","AFTER" "MIGHT","SIGHT","FRIGHT","LIGHT","HEIGHT" "NIGHT","PLIGHT","FLIGHT","TWILIGHT","BLIGHT" "TENT","DENT","GENT","V$(R(4));" IS ";V$(R(14))"ING THE ";A$(R(5));" ";N$(R(6))ml"IT SEEMS TO BE SO ";A$(R(7));" AND ";A$(R(8))v" TO ";V$(R(15));" THE ";N$(R(9));" ";P$(R(16));" THE ";N$(R(10));" ";A$(R(11));"." "INTO","AS","UNDER","WITH","THROUGH"! "BESIDE"L(V$(D))1 X1L/ W$W$(V$(D),X,1)6 XC V$(D)W$L &599q 0 FIX VERB STEMS, DOULBE FINAL T :(V$(D),1)"T"V$(D)V$(D)"T" W X"THE ";A$(R(1));" ";N$(R(2));" ";D$(R(12));" ";V$(R(13))"S THE ";N$(R(3))9b"WHENEVER A ";NC)V$(C)"E";  FIX VERB STEMS, CHANGE Y TO I AND ADD EST (V$(C),1)"Y"ī410] 460n L(V$(C))1y X1L W$W$(V$(C),X,1) X V$(C)W$"IE"  FIX VERB STEMS, REMOVE FINAL E DR(14) (V$(D),1)"E"ī500 560 R(14)ī180! ,R(15)R(14)ī180J 6 MAKE THE ADJECTIVE PAIRS DIFFERENT^ @R(7)R(8)ī170~ JR(8)R(11)R(7)R(11)ī170 T MAKE TWO NOUNS DIFFERENT ^R(3)R(4)ī170 h FIX VERB STEMS, ADD E rCR(13) |(V$(C),1)"S"(V$(C),1)"H"V$()1)6 FIND RHYMING WORDS FOR END OF LINES 1 AND 3H AR(3):BR(8)R 1500d R(3)A:R(8)B FIND RHYMING WORDS FOR THE END OF LINES 2 AND 4 AR(6):BR(11) 1500 R(6)A:R(11)B  MAKE ALL VERBS DIFFERENT "R(13)R(15)R(13)dP$(20):N$(100):A$(100)6 nV$(50):D$(50):R(16)L xX120:P$(X):Xc X1100:N$(X):Xz X1100:A$(X):X X150:V$(X):X X150:D$(X):X X111:R(X)(100(54)1):X X1215:R(X)(50(65)1):X R(16)(20(76$ RHYME BY ROBERTA HEISTERKAMP*V "I'M GOING TO CREATE A RHYME FOR YOU."\"EVERY TIME YOU RUN THIS PROGRAM"("YOU WILL GET A DIFFERENT VERSE."2<"PLEASE TYPE ANY POSITIVE WHOLE NUMBER";NFX1NPR(83)ZX             ES","JAR OF PEANUT BUTTER"C "BAG OF CARROTS","TIN OF SARDINES" X","SALLY","WENDY","REBECCA"F "JIM","CHRIS","CHARLIE","BOB","JOHN"o "SAM","DAVID","JASON","TOM","JEFF" "LOAF OF BREAD","STICK OF BUTTER" "QUART OF MILK","HEAD OF LETTUCE" "PINT OF CREAM","GALLON OF ICE CREAM"  "POUND OF APPL"0"bJ$"$"H$ī660,lJ$"$ "H$ī660<vJ$H$ī660RJ(J$):JHī660c"TRY AGAIN"l520z"RIGHT!""WANT TO TRY ANOTHER PROBLEM";A$(A$,1)"Y"ī130 "JENNY","ANNA","MARY","SUSAN","JANE" "LAURA","AMY"RIGHT!"3"HOW MUCH CHANGE DID ";N$(A)R"BRING TO ";P3$;" MOTHER"ZJ$k&M1H500K+M2PJH500K,M2PDH500F0M3H500F5HH100:H$(H)D(H)HH$H$".00"N(H)Hī610X(10H)10HH$H$T PRICE WAS BETTER."!N<N3N1ĺ"NOT VALID."NN3N1ī330i(N)Nĺ"NOT VALID."{(N)Nī330KJFDM1KJFDM2KJFDM3NMī510"BETTER TRY AGAIN"M$(B)"LOAVE"M$(B)"LOAF"260 ";J;" ";M$(B)"S OF BRAND A SINCE"@ m"THAT PRICE WAS BETTER."Y nDJPD:DJU$"B"r oJDPJ:JDU$"A" r"2. BUY ";P;" ";M$(B);"S OF BRAND ";U$ w"SINCE BOTH PRICES WERE THE SAME." |"3. BUY ";D;" ";M$(B)"S OF BRAND B SINCE""THATEM WAS LESS."6 ,N$(A);" FOUND THE COST OF BRAND A"V 1M$(B)"LOAF"M$(B)"LOAVE" 6"WAS ";J;" ";M$(B)"S FOR $";L$;"," @"BUT ";P2$;" COULD BUY" ED;" ";M$(B);"S OF BRAND B FOR $";G$ J T"WHAT SHOULD ";N$(A);" DO?" ^" h"1. BUY (10L)10LL$L$"0"7 M$(B)"LOAF"M$(B)"LOAVE"c N$(A);"'S MOTHER SENT ";P1$;" TO THE" "GROCERY STORE WITH A $5.00 BILL" "TO COMPARE PRICES FOR A ";I$(B);"."  ""SHE TOLD ";P1$;" TO BUY MORE THAN ONE" '"IF THE PRICE PER I1) FDCE10 GF1001 J(4(S6)2)? JDī212T E(20(S4)1)c KJCE10o LK100{ G$(G) (G)GG$G$".00" (G)Gī260 (10G)10GG$G$"0"  L$(L) (L)LL$L$".00" (L)Lī270 }"PLEASE TYPE A POSITIVE NUMBER ";N; ~X1N:R(34):X_ A(20(48)1):B(10(35)1) A11P1$"HER":A11P2$"SHE":A11P3$"HER" A10P1$"HIM":A10P2$"HE":A10P3$"HIS" C(78(62)20) D(4(95)2) E(20(31)E + WORDPROBLEM2 BY ROBERTA HEISTERKAMPG N$(20):I$(10):M$(10)]X120:N$(X):XsX110:I$(X):X(X1102Y18<(I$(X),Y,1)" "LY1F(I$(X),Y,1)" "ī90PYZZ1LdM$(X)M$(X)(I$(X),Z,1)nZxX%      95(S)32) C$(AI)# X0E< Y(B(BD)(AC)X)M P$(AX,Y)C$T XZ d EBDy AI(95(S)32) C$(AI) X0E P$(A,BX)C$ X EDB AI(95(S)32) C$(AI) X0E P$(A,BX)C$ XL,RW); TCL ^P$(100,RW)& hRW- |0V "IF YOU WOULD LIKE ANOTHER COPY OF"x "THIS SKETCH, TYPE GOTO 260"~  ECA AI(95(S)32) C$(AI) X0E Y(B(BD)(AC)X) P$(AX,Y)C$ X  EAC AI()1) L1405 C(100(44)1):D(90(50)1)D ACİ1000S ACİ2000e ACBDī180x ACBDİ3000 ACBDİ3500 AC:BD L 1 (9)"80N" (15) "(27)"1" ,RW090 610);" "; @CL099 JP$(CEASE TURN THE PRINTER ON"7 "AND SET TO TOP OF PAGE"` "IT WILL TAKE 90 SECONDS TO SKETCH" "TYPE ANY NUMBER WHEN YOU'RE READY ";N X1N:R(56):X RW090 CL0100 P$(CL,RW)" " CL RW A(100(33)1):B(90(40& ARTIST4 BY ROBERTA HEISTERKAMP6 P$(100,90)c"THIS PROGRAM LETS THE COMPUTER SKETCH""ITS OWN LINE DRAWING"(" AND PRINT IT USING THE PRINTER."2::<"I WILL USE RANDOM KEYBOARD CHARACTERS"F"TO DRAW EACH LINE" x"PL    z#??  ӮР îŠ ҮȠ ŮΠ ҮРҮҠ ɮŠڮڠĮǠ ŠϠӠ ŠΠӮϠ ȠȠ ٲ͠à Բ!Ա"ԳԴͲ Ϡͱ ͠ ͠Ԡαβ ٱ :716302,01140,0140,191B(0,96279,96R2X140139^<CX140lFYXX100PY96Y95ī110ZR96YdC,RnXxX m "THIS DISK CONTAINS0"PROGRAMS FOR ANJ"ADVANCED IN-SERVICEe("R.A.H. OCT. 15, 1981k2 F :716302,01140,0140,191B(0,96279,96R2X140139^<CX140jAX080vFY100XPY96Y95ī110ZR96YdC,RnXxX "LOAF OF BREAD","STICK OF BUTTER"J "QUART OF MILK","HEAD OF LETTUCE"v "PINT OF CREAM","GALLON OF ICE CREAM"  "POUND OF APPLES","JAR OF PEANUT BUTTER" "BAG OF CARROTS","TIN OF SARDINES" XGHT!")"WANT TO TRY ANOTHER PROBLEM";1A$G(A$,1)"Y"ī130Mx "JENNY","ANNA","MARY","SUSAN","JANE" "LAURA","AMY","SALLY","WENDY","REBECCA" "JIM","CHRIS","CHARLIE","BOB","JOHN" "SAM","DAVID","JASON","TOM","JEFF""ER" J$ &M1M2H500C10M3H500F=5HH100I:H$(H)aD(H)HH$H$".00"rN(H)Hī610X(10H)10HH$H$"0"bJ$"$"H$ī660lJ$"$ "H$ī660vJ$H$ī660J(J$):JHī660"TRY AGAIN"520"RIī330 (N)Nĺ"NOT VALID."2 (N)Nī330A DCFM1P DCFM2_ DCFM3m NMī510 "BETTER TRY AGAIN" M$(B)"LOAVE"M$(B)"LOAF" 260 "RIGHT!"  "HOW MUCH CHANGE DID ";N$(A)"BRING TO ";P3$;" MOTH% h"1. BUY ONE ";I$(B);" BECAUSE"B m"THAT PRICE WAS BETTER"f r"2. BUY ONE ";I$(B);" BECAUSE" w"THAT PRICE WAS THE SAME." |"3. BUY ";D;" ";M$(B)"S BECAUSE THAT PRICE" "WAS BETTER."  N N3N1ĺ"NOT VALID." N3N1TO BUY MORE THAN ONE"< '"IF THE PRICE PER ITEM WAS LESS."n ,N$(A);" FOUND THE COST OF ONE ";M$(B);" WAS" 6C;" CENTS, BUT ";P2$;" COULD BUY " ;M$(B)"LOAF"M$(B)"LOAVE" @D;" ";M$(B)"S FOR $"G$ J T"WHAT SHOULD ";N$(A);" DO?" ^1) FDCE10 GF100) G$(G)A (G)GG$G$".00"R (G)Gī260n (10G)10GG$G$"0"t  N$(A);"'S MOTHER SENT ";P1$;" TO THE" "GROCERY STORE WITH A $5.00 BILL" "TO BUY A ";I$(B);"."  ""SHE TOLD ";P1$;" }"PLEASE TYPE A POSITIVE NUMBER ";N; ~X1N:R(34):X_ A(20(48)1):B(10(35)1) A11P1$"HER":A11P2$"SHE":A11P3$"HER" A10P1$"HIM":A10P2$"HE":A10P3$"HIS" C(78(62)20) D(4(95)2) E(20(31)+ WORDPROBLEM1 BY ROBERTA HEISTERKAMPG N$(20):I$(10):M$(10)]X120:N$(X):XsX110:I$(X):X(X1102Y18<(I$(X),Y,1)" "LY1F(I$(X),Y,1)" "ī90PYZZ1LdM$(X)M$(X)(I$(X),Z,1)nZxX%      P X110:7-(0,0279,15962:7G<279,00,159NFX X"SOFTLY","CAREFULLY","SNUGGLY","FREELY","SWIFTLY"g: "SWEETLY","SUDDENLY","MERRILY","CALMLY","ODDLY" NP","SING"5 "SLAM","SWING","SWAY","CLEAN","SHAPE"e "PAINT","SWEEP","CHARM","DELIGHT","SHAME" "TASTE","FEEL","HOLD","DROP","MOVE" "COLDLY","SLOWLY","SHARPLY","SIMPLY","SADLY"& "QUICKLY","QUIETLY","HAPPILY","HARSHLY","LOUDLY"10 "BIRD","CHIPMUNK"9 "ELK","MOOSE","BOY","DOOR","CAVE"e "FLOWER","BENCH","SKY","WIND","CLOUD" "SUN","STAR","ROCK","GRASS","GIRL" "RUN","SLIP","FALL","WALK","SLIDE" "JUMP","RAISE","SINK","SKIM","HANG"  "CALL","SAVE","CUT","WRAUDDY"3 "TIGHT","MELLOW","SLIPPERY","DRY","WET"b "MOON","TREE","LAKE","FOREST","MOUNTAIN" "RIVER","SEA","WATER","SNOW","RAIN" "HAIL","BEAR","KITTEN","COW","LAMB" "FENCE","BARN","BEACH","OCEAN","CABIN" "PATH","LANE","TRAIL",TE","PURPLE","BLACK"F T "SIMPLE","COMPLEX","ROUND","SQUARE","SHARP"u ^ "SMOOTH","SLOW","RAPID","AIRY","SHALLOW" h "DEEP","SALTY","TANGY","SPICY","DULL" r "BRILLIANT","FURRY","SPARKLING","TAUT","LOOSE"| "OPAQUE","GRITTY","SOUR","SHINY","M5));" SO ";A$(R(8));" ";V$(R(21));"S"Z " THROUGH THE ";A$(R(9));" ";N$(R(16));"."`  , "CLEAN","DARK","HEAVY","SWEET","PURE" 6 "LIGHT","CREAMY","HARD","SOFT","GENTLE" @ "WILD","TAME","GREEN","YELLOW","BLUE" J "RED","ORANGE","WHIIT IS SO ";A$(R(4));" TO ";V$(R(18));" AND ";V$(R(19))t " WITH THE ";A$(R(5));" "A$(R(6));" ";N$(R(12));"." "CAN IT BE THAT THE ";N$(R(13));" ";V$(R(20));"S" " AS ";D$(R(23));" AS A ";N$(R(14));" "A$(R(7));"?"% "MAYBE A ";N$(R(1(43)1):Y. Y1016:R(Y)(40(57)1):YQ Y1721:R(Y)(30(29)1):Yt Y2224:R(Y)(20(72)1):Yz "THE ";A$(R(1));" ";A$(R(2));" ";N$(R(10));" ";V$(R(17));"S ";D$(R(22)) " NEAR THE ";N$(R(11));" ";A$(R(3));","6 "UNS"( F"A NEW POEM WILL BE COMPOSED.". PQ Z"TYPE ANY POSITIVE NUMBER ";Ng _X1N:R(47):X dA$(50):N$(40):V$(30):D$(20):R(24) nX150:A$(X):X xX140:N$(X):X X130:V$(X):X X120:D$(X):X Y19:R(Y)(50i # POEM BY ROBERTA HEISTERKAMP)S "COMPUTERS CAN BE RANDOMLY CREATIVE"|"POEMS ARE GENERATED WHEN THERE IS""A LIST OF NOUNS, ADJECTIVES, VERBS AND ADVERBS"("FROM WHICH A WORD CAN BE CHOSEN."2 <"EVERY TIME THIS PROGRAM R     0İ90" *(16384)198C140İ90? +(16384)198C210İ90\ ,(16384)198C275İ90j 116368,0q 20 <C,80C,78C2,78C4,80C2,82C,82C,80 FC G"YOUR SCORE IS"S P ZR15901 nC,R sR80ĺ(7) xR ySS1000   7! X15003 C(280(1))ER(160(1))NC,RUXh70,15970,155}140,159140,155210,159210,155275,159275,155C02757(C,80C,78C2,78C4,80C2,82C,82C,80 )(16384)198C7    7#C(279(45)1)8(R(159(39)1)A2C,RM<X120bFC(279(74)1)wPR(159(21)1)ZC,RdXn C "WHICH CORRESPONDS TO THE PICTURE"G P"WHICH IS NOT LIKE THE OTHERS."M Zp d"TYPE ANY POSITIVE NUMBER ";N iX1N:R(56):X n x7 10,5135,5135,7510,7510,5 150,5275,5275,75150,75150,5 10,85135,85135,15510,15510,8& VISION1 BY ROBERTA HEISTERKAMP8C(20):R(20)I C125::Cu"I'M GOING TO SHOW YOU FOUR PICTURES.""ONE OF THEM WILL BE DIFFERENT FROM"("THE OTHER THREE."2<"SEE IF YOU CAN TYPE THE LETTER"A"(A, B, C, OR D)"" F & N0255(N);" ";$NN (4(55)1) Q1R$"A"2 Q1V5:Q1H10B Q2R$"B"Z Q2V5:Q2H150j Q3R$"C" Q3V85:Q3H10 "Q4R$"D" ,Q4V85:Q4H150 61000 @Q1ī470 JQ2ī430 TQ3ī390 ^H10:V5:1000 hH150:V55+ 150,85275,85275,155150,155150,85O 2,112,84,66,86,11:2,96,9 142,11142,6144,6145,7144,8145,9145,10144,11143,11:143,8 6,875,863,862,872,903,915,916,90 142,86142,91145,91146,90146,87145,86142,86 Qz P$(40,24)$C140:R1244P$(C,R)"*">(R:CR2X124:Y139`<P$(Y,X);gFYqP(0)xZXC :2000 rH10:V85:2000# |5008 H150:V85:1000L H150:V5:2000_ H10:V5:2000h 500} H150:V85:1000 H10:V85:2000 H10:V5:2000 500 H150:V85:1000 H10:V85:2000 H150:V5:2000 "WHICH PICTURE Ib& W$"ABCDEFGHIJKLMNOPQQRSTUVWXYZ"2X126CC$(W$,X,1)S((C$);" ";Z2X`<W R(0)RCH,RV#X1208C(125(43)1)CC(X)CW$R(70(89)1)b)R(X)Rp.CH,RVw8X}BC(0)H,R(0)VX120C(X)H,R(X)VX C,R(X)VX CS DIFFERENT") "FROM THE OTHER THREE";1 A$F A$R$ĺ"RIGHT!"W T11000:Tr A$R$ĺ"LOOK AGAIN." &A$R$ī500 0:::"WANT TO TRY A NEW SET"; :B$ D(B$,1)"Y"ī110 N C(125(67)1) C(0)C R(70(54)1)P L16336X15.S(L)(L)(L)5(XF2T11000:TN<10 L R(20)R C R(20)R% (54)1)R(0)R!CH,RV-X120BC(125(43)1)MC(X)Ca$R(70(89)1)l)R(X)Rz.CH,RV8XBC(0)H,R(0)VX120C(X)H,R(X)VX C(125(84)1) C(20)C R(70(28)1) PICTURE IS DIFFERENT"3 "FROM THE OTHER THREE";; A$P A$R$ĺ"RIGHT!"a T11000:T| A$R$ĺ"LOOK AGAIN." &A$R$ī500 0:::"WANT TO TRY A NEW SET"; :B$ D(B$,1)"Y"ī110 N C(125(67)1) C(0)C R(70H150:V5:2000$ rH10:V85:2000- |500B H150:V85:2000V H150:V5:2000i H10:V5:2000r 500 H150:V85:2000 H10:V85:2000 H10:V5:2000 500 H150:V85:2000 H10:V85:2000 H150:V5:2000 "WHICH(4(55)1) Q1R$"A"2 Q1V5:Q1H10B Q2R$"B"Z Q2V5:Q2H150j Q3R$"C" Q3V85:Q3H10 "Q4R$"D" ,Q4V85:Q4H150 61000 ;3000 @Q1ī470 JQ2ī430 TQ3ī390 ^H10:V5:2000 h5+ 150,85275,85275,155150,155150,85O 2,112,84,66,86,11:2,96,9 142,11142,6144,6145,7144,8145,9145,10144,11143,11:143,8 6,875,863,862,872,903,915,916,90 142,86142,91145,91146,90146,87145,86142,86 Q"WHICH CORRESPONDS TO THE PICTURE"G P"WHICH IS NOT LIKE THE OTHERS."M Zp d"TYPE ANY POSITIVE NUMBER ";N iX1N:R(56):X n x7 10,5135,5135,7510,7510,5 150,5275,5275,75150,75150,5 10,85135,85135,15510,15510,8& VISION2 BY ROBERTA HEISTERKAMP8C(20):R(20)I C125::Cu"I'M GOING TO SHOW YOU FOUR PICTURES.""ONE OF THEM WILL BE DIFFERENT FROM"("THE OTHER THREE."2<"SEE IF YOU CAN TYPE THE LETTER"A"(A, B, C, OR D)"" F      RAINBOW","HEART OF GLASS"^ "ROW, ROW, ROW YOUR BOAT","JEANNIE WITH THE LIGHT BROWN HAIR" "MOVING RIGHT ALONG","MUSICBOX DANCER" "LOVE ME DO","SMOKE GETS IN YOUR EYES" "LOVE LETTERS IN THE SAND","FASCINATION" "CANCAN","SHINE ONUDE","CAMPTOWN LADIES"V "RED RIVER VALLEY","SHE'LL BE COMING AROUND THE MOUNTAIN" "THE RAINBOW CONNECTION","THE YELLOW ROSE OF TEXAS" "YELLOW SUBMARINE","SWING LOW SWEET CHARIOT" "LADY MADONNA","OH SUSANNAH" "SOMEWHERE OVER THEUGH THE NIGHT","ROCKY MOUNTAIN HIGH"`n "COUNTRY GARDENS","I'VE BEEN WORKING ON THE RAILROAD"x "SCARLET RIBBONS","UP A LAZY RIVER" "THE FOOL ON THE HILL","OLD MACDONALD" "HOME, HOME ON THE RANGE","ROSE OF WASHINGTON SQUARE" "HEY J LAND IS YOUR LAND","MY COUNTRY TIS OF THEE"h< "ON TOP OF OLD SMOKEY","THERE'S A HOLE IN THE BUCKET"F "AQUARIUS","LOVE WILL KEEP US TOGETHER"P "HERE COMES THE SUN","JIMMIE CRACK CORN"Z "AMERICA THE BEAUTIFUL","JOHN HENRY"$d "ALL THRO "SUMMERTIME","YES, WE HAVE NO BANANAS"d "SINGING IN THE RAIN","TWINKLE, TWINKLE LITTLE STAR" "THE STING","FRERE JACQUES" "I WANT TO HOLD YOUR HAND","YOU ARE MY SUNSHINE"( "OLD MAN RIVER","LUCY IN THE SKY WITH DIAMONDS",2 "THIS,256* 61,40,64,40,74,40,82,140,91,140O 82,40,91,40,99,40,109,40,99,40h 109,80,125,255,256 91,180,82,180,78,180,74,255,74,255,1,255 74,180,78,180,74,180,91,255,91,255,256 "HAPPY BIRTHDAY","RAINDROPS KEEP FALLING ON MY HEAD"*4,120,61,255,68,120,68,120Gp 74,120,74,120,82,120,82,120,91,255,256p 91,180,82,180,78,180,74,100,45,200 74,100,45,200,74,100,45,255,256 189,180,168,180,149,180,189,180 189,180,168,180,149,180,189,180 149,200,143,200,125,2000,171,255 228,255,256E  96,180,128,60,114,60,128,120,144,60^* 152,60,128,255,256> 0,160,128,255,152,40,171,80,192,40H 228,255,1,40,0,160,192,255,192,40R 171,80,152,40,128,255,256\ 91,120,91,120,61,120,61,120f 54,120,5 91,100,91,100,82,200,91,200,68,200M  74,255,91,100,91,100,82,200,91,200e  61,200,68,255,256  152,180,152,120,152,60,144,120,152,60  171,120,192,60,152,255,256  114,120,144,60,114,255,1,120,128,120   144,60,128,120,114,60,144,125. ";F$(C) : 1000# N? NBĺ"YOU GUESSED IT!"_ NBĺ"NO, THAT'S NOT IT." "WOULD YOU LIKE TO TRY ANOTHER? ";A$ DA (A$,1)"Y"ī290 & Y1302 T(A,Y)256ı 768,T(A,Y):769,T(A,Y1) 770 Y$ N$(A) rC5A4( |B1ĺ"1. ";F$(C)> B2ĺ"2. ";N$(A)J C5A3a B2ĺ"2. ";F$(C)w B3ĺ"3. ";N$(A) C5A2 B3ĺ"3. ";F$(C) B4ĺ"4. ";N$(A) C5A1 B4ĺ"4. ";F$(C) B5ĺ"5. ";N$(A) C5A B5ĺ" Z- "PLEASE TYPE A POSITIVE NUMBER ";NC X1N:R(57):Xf "A(10(69)1):B(5(32)1)t 'ADī290z , 6"HERE'S YOUR SELECTION." @: J"PLEASE TYPE THE NUMBER (1-5)" T"OF THE TUNE YOU'RE HEARING." ^: hB1ĺ"1. ";782,208:783,245:784,1744 n785,0:786,3:787,76N x788,2:789,3:790,96` 791,0:792,0n T(10,30) N$(10):F$(50) X110 Y130 T(X,Y) T(X,Y)256ī210 Y X Z110 N$(Z) Z Z150 F$(Z)& MELODY1 BY ROBERTA HEISTERKAMP, Q"I HAVE SOME TUNES STORED AWAY"o"CAN YOU RECOGNIZE THEM"("WHEN I PLAY THEM?"<770,173:771,48:772,192F773,136:774,208:775,5P776,206:777,1:778,3Z779,240:780,9:781,202 d      S(16336):10 S HARVEST MOON"8 "STRANGERS IN THE NIGHT","MOONGLOW"i "ON THE STREET WHERE YOU LIVE","THE TANGO" "TIPTOE THROUGH THE TULIPS","STARWARS THEME"X# "LADY MADONNA","OH SUSANNAH"W "SOMEWHERE OVER THE RAINBOW","HEART OF GLASS" "ROW, ROW, ROW YOUR BOAT","JEANNIE WITH THE LIGHT BROWN HAIR" "MOVING RIGHT ALONG","MUSICBOX DANCER" "LOVE ME DO","SMOKE GETS IN YOUR EYES"$ "LOV, HOME ON THE RANGE","ROSE OF WASHINGTON SQUARE"S "HEY JUDE","CAMPTOWN LADIES" "RED RIVER VALLEY","SHE'LL BE COMING AROUND THE MOUNTAIN" "THE RAINBOW CONNECTION","THE YELLOW ROSE OF TEXAS" "YELLOW SUBMARINE","SWING LOW SWEET CHARIOT"N"-Z "AMERICA THE BEAUTIFUL","JOHN HENRY"ad "ALL THROUGH THE NIGHT","ROCKY MOUNTAIN HIGH"n "COUNTRY GARDENS","I'VE BEEN WORKING ON THE RAILROAD"x "SCARLET RIBBONS","UP A LAZY RIVER" "THE FOOL ON THE HILL","OLD MACDONALD"0 "HOME "OLD MAN RIVER","LUCY IN THE SKY WITH DIAMONDS"i2 "THIS LAND IS YOUR LAND","MY COUNTRY TIS OF THEE"< "ON TOP OF OLD SMOKEY","THERE'S A HOLE IN THE BUCKET"F "AQUARIUS","LOVE WILL KEEP US TOGETHER"P "HERE COMES THE SUN","JIMMIE CRACK COR6; "HAPPY BIRTHDAY","RAINDROPS KEEP FALLING ON MY HEAD"g "SUMMERTIME","YES, WE HAVE NO BANANAS" "SINGING IN THE RAIN","TWINKLE, TWINKLE LITTLE STAR" "THE STING","FRERE JACQUES" "I WANT TO HOLD YOUR HAND","YOU ARE MY SUNSHINE"1( 189,180,168,180,149,180,189,180A 149,200,143,200,125,200,256g 61,40,64,40,74,40,82,140,91,140 82,40,91,40,99,40,109,40,99,40 109,80,125,255,256 91,180,82,180,78,180,74,255,74,255,1,255 74,180,78,180,74,180,91,255,91,255,25,128,255,256.\ 91,120,91,120,61,120,61,120Wf 54,120,54,120,61,255,68,120,68,120p 74,120,74,120,82,120,82,120,91,255,256 91,180,82,180,78,180,74,100,45,200 74,100,45,200,74,100,45,255,256 189,180,168,180,149,180,189,180 4,60,114,255,1,120,128,120F  144,60,128,120,114,60,144,120,171,255X 228,255,256  96,180,128,60,114,60,128,120,144,60* 152,60,128,255,256> 0,160,128,255,152,40,171,80,192,40H 228,255,1,40,0,160,192,255,192,40 R 171,80,152,40A,Y)256ı(768,T(A,Y):769,T(A,Y1)17708Ya 91,100,91,100,82,200,91,200,68,200 74,255,91,100,91,100,82,200,91,200 61,200,68,255,256 152,180,152,120,152,60,144,120,152,60 171,120,192,60,152,255,256 114,120,14SONGS."6 NM1ĺ"NOT BAD. YOU ONLY MISSED 1 MELODY."Y XM2ĺ"YOU MISSED 2 MELODIES." bM3ĺ"YOU RECOGNIZED 2 SONGS OUT OF 5." lM4ĺ"YOU ONLY KNEW 1 SONG. TRY AGAIN." vM5ĺ"YOU DIDN'T RECOGNIZE ANY. TRY AGAIN."  Y1302 T( ";N$(A) C5A) B5ĺ"5. ";F$(C)1 :; 1000B N^ NBĺ"YOU GUESSED IT!"~ NBĺ"NO, THAT'S NOT IT." T1500 T NBMM1 TNTN1:TN5ī570 &U(TN)A 0290 : DM0ĺ"VERY GOOD. YOU RECOGNIZED ALL 5 RING." ^:$ hB1ĺ"1. ";N$(A)0 rC5A4G |B1ĺ"1. ";F$(C)] B2ĺ"2. ";N$(A)i C5A3 B2ĺ"2. ";F$(C) B3ĺ"3. ";N$(A) C5A2 B3ĺ"3. ";F$(C) B4ĺ"4. ";N$(A) C5A1 B4ĺ"4. ";F$(C) B5ĺ"5. F$(Z) Z8 "PLEASE TYPE A POSITIVE NUMBER ";NN X1N:R(57):Xq "A(10(69)1):B(5(32)1)| $X15 &U(X)A290 (X , 6"HERE'S YOUR SELECTION." @: J"PLEASE TYPE THE NUMBER (1-5)" T"OF THE TUNE YOU'RE HEA782,208:783,245:784,1744 n785,0:786,3:787,76N x788,2:789,3:790,96` 791,0:792,0n T(10,30) N$(10):F$(50) U(10) X110 Y130 T(X,Y) T(X,Y)256ī210 Y X Z110 N$(Z) Z Z150 & MELODY2 BY ROBERTA HEISTERKAMP, Q"I HAVE SOME TUNES STORED AWAY"o"CAN YOU RECOGNIZE THEM"("WHEN I PLAY THEM?"<770,173:771,48:772,192F773,136:774,208:775,5P776,206:777,1:778,3Z779,240:780,9:781,202 d     &  X125"";"NAME"$X X E LETTERS IN THE SAND","FASCINATION"K "CANCAN","SHINE ON HARVEST MOON"u "STRANGERS IN THE NIGHT","MOONGLOW" "ON THE STREET WHERE YOU LIVE","THE TANGO" "TIPTOE THROUGH THE TULIPS","STARWARS THEME"X 769,255N(4)<N(1)91:N(2)74:N(3)61:N(4)45G(A14R2B14]<C14hFD14{P768,N(A):770Z768,N(B):770d768,N(C):770n768,N(C):770xA;B;C;D768,1:770D:C:B:A A 779,240 780,9# 781,2020 782,208= 783,245J 784,174U 785,0` 786,3l 787,76w 788,2 789,3 "790,96 ,791,0 6792,0 @X150 JN(255(34)1) TD(255(82)1) ^768,N h769,D r770 |X+ RANDOM MUSIC BY ROBERTA HEISTERKAMP1 O"THIS PROGRAM WILL PLAY"m"A RANDOM SONG FOR YOU."{("LISTEN"2T11000<TZ770,173d771,48n772,192x773,136774,208775,5776,206777,1778,3  D)(AC)X) P$(AX,Y)C$$ X* 4 EAC? X0EX Y(B(BD)(AC)X)i P$(AX,Y)C$p Xv  EBD X0E P$(A,BX)C$ X EDB X0E P$(A,BX)C$ X 1 (9)"80N" (15)- "(27)"1": ,RW085I 610);" ";V @CL099f JP$(CL,RW);n TCL~ ^P$(100,RW) hRW |0 "IF YOU WOULD LIKE ANOTHER COPY OF" "THIS SKETCH, TYPE GOTO 260"  ECA X0E Y(B(B085 CL0100$ P$(CL,RW)B$, CL4 RW? C$" "d A(100(33)1):B(85(40)1)p L140 C(100(44)1):D(85(50)1) ACİ1000 ACİ2000 ACBDī180 ACBDİ3000 ACBDİ3500 AC:BD L(B$)32(B$)127ī110; Z"THAT WON'T WORK, TRY AGAIN."C d60M n::o x"PLEASE TURN THE PRINTER ON" "AND SET TO TOP OF PAGE" "IT WILL TAKE 90 SECONDS TO SKETCH" "TYPE ANY NUMBER WHEN YOU'RE READY ";N X1N:R(56):X RW& ARTIST2 BY ROBERTA HEISTERKAMP6 P$(100,85)c"THIS PROGRAM LETS THE COMPUTER SKETCH""ITS OWN LINE DRAWING"(" AND PRINT IT USING THE PRINTER."2::<"WHAT CHARACTER WOULD YOU LIKE"F"TO USE FOR THE BACKGROUND?";B$ P  X) P$(AX,Y)C$ X * EAC5 X0EN Y(B(BD)(AC)X)_ P$(AX,Y)C$f Xl v EBD X0E P$(A,BX)C$ X EDB X0E P$(A,BX)C$ X (9)"80N" (15)# "(27)"1"0 ,RW090? 610);" ";L @CL099\ JP$(CL,RW);d TCLt ^P$(100,RW)| hRW |0 "IF YOU WOULD LIKE ANOTHER COPY OF" "THIS SKETCH, TYPE GOTO 260"  ECA X0E Y(B(BD)(AC)090 CL0100% P$(CL,RW)" "- CL5 RWZ A(100(33)1):B(90(40)1)f L140 C(100(44)1):D(90(50)1) ACİ1000 ACİ2000 ACBDī180 ACBDİ3000 ACBDİ3500 AC:BD L 1 (C$)32(C$)127ī110; Z"THAT WON'T WORK, TRY AGAIN."C d60M n::o x"PLEASE TURN THE PRINTER ON" "AND SET TO TOP OF PAGE" "IT WILL TAKE 90 SECONDS TO SKETCH" "TYPE ANY NUMBER WHEN YOU'RE READY ";N X1N:R(56):X RW& ARTIST1 BY ROBERTA HEISTERKAMP6 P$(100,90)c"THIS PROGRAM LETS THE COMPUTER SKETCH""ITS OWN LINE DRAWING"(" AND PRINT IT USING THE PRINTER."2::<"WHAT CHARACTER WOULD YOU LIKE"F"THE COMPUTER TO DRAW WITH?";C$ P!! ! ! ! E Y(B(BD)(AC)X)/ AI(95(5)32)< C$(AI)M P$(AX,Y)C$T XZ d EBDo X0E AI(95(5)32) C$(AI) P$(A,BX)C$ X EDB X0E AI(95(5)32) C$(AI) P$(A,BX)C$ XL,RW); TCL ^P$(100,RW)& hRW- |0V "IF YOU WOULD LIKE ANOTHER COPY OF"x "THIS SKETCH, TYPE GOTO 260"~  ECA X0E Y(B(BD)(AC)X) AI(95(5)32) C$(AI) P$(AX,Y)C$ X  EAC X0)1) L1405 C(100(44)1):D(90(50)1)D ACİ1000S ACİ2000e ACBDī180x ACBDİ3000 ACBDİ3500 AC:BD L 1 (9)"80N" (15) "(27)"1" ,RW090 610);" "; @CL099 JP$(CEASE TURN THE PRINTER ON"7 "AND SET TO TOP OF PAGE"` "IT WILL TAKE 90 SECONDS TO SKETCH" "TYPE ANY NUMBER WHEN YOU'RE READY ";N X1N:R(56):X RW090 CL0100 P$(CL,RW)" " CL RW A(100(33)1):B(90(40& ARTIST3 BY ROBERTA HEISTERKAMP6 P$(100,90)c"THIS PROGRAM LETS THE COMPUTER SKETCH""ITS OWN LINE DRAWING"(" AND PRINT IT USING THE PRINTER."2::<"I WILL USE RANDOM KEYBOARD CHARACTERS"F"TO DRAW EACH LINE" x"PL"" " " "