' +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`Ԫ~{կժժժժժѪՊԪժժӪժժժժ՜P*ԪߪժժժժՊԪժժժժժ@T*ԪժժժժժժժժժժժժժժժժՊԪժժժժժժժժժ ԪժժժժժժժժժժժժժժժՊԪժժժժժժժժժԪժժժժժժժժժժժ<~x|@@ԪժժժժժժժժժժժժժժժժժժՊԪժժժժժժժժժժ8xԪߪժժժNJԪժOժժ@!UUԪժծժתժժժժժ_Ԫ~c?ԪԪ?ժժժժժժԪՊԪժժѪժժժժղ@*ԪתժժժժՊԪժժժժժ `T*ԪժժժժժժժժժժժժժժժժՊԪժժժժժժժժժժԪժժժժժժժժժժժժժժժՊԪժժժժժժժժժ倀 Ԫժժժժժժժժժժժ|~}~``ԪժժժժժժժժժժժժժժժժժժՊԪժժժժժժժժժժxpԪߪժժժ~ӊԪժǪժժ` U*UԪժվ~~~ժժժժԪ~wժՊԪߪ~ߪ?ժժժժժժ?ԪՊԪժժԪժժժժ @ ԪժժժժժՊԪժժժժժ0T*ԪժժժժժժժժժժժժժժժժժՊԪժժժժժժժժժժԪժժժժժժժժժժժժժժϪժՊԪժժժժժժժժժԪժժժժժժժժժժժ|CԪpp0倀ԪժժժժժժժժժժժժժժժժժժՊԪժժժժժժժժժժ՘x@ԪժժժՊԪժӪժժ՜0 U*UԪWu~~ժժժժ ԪժժԪժժժժժժժժժժժժՊԪժժպԪժժժժ@ ԪժժժժժՊԪժժ~ժժժժT*Ԫժժժժժժժժժժժժժժժ~ժժՊԪժժժժժժժժժժ @ԪժժժժժժժժժժժժժժתժՊԪժժժժժժժժժԪժժժժժժժժժժժ|gԪ p<|Ԫժժժժժժժժժժղ| pԪժժժԊԪժѪժժղU*UԪ~_~{ժժժժ~ Ԫժժ x|W*U*UT*U*U" ~P*E`(Y*U*U*U*U*U@U@U*U*UT*U*U*R?~+U*U*U*U*%*Q*Uz*H*U*U*U*U*UH*UT U*U*U*U*@ B*U*U*U*U*U U*U*U*U*UpT*U*U*U P +U*U*U*U*%@*U*U*UT*U*U*T U~TU*U*U*U**@* U*U*U*U*U*U* `|V*U*T*U*U2 @?P*E@? U(M(U*T*A U( U@U*U*UT*U*U*S|@"U*U*U*U*5*`U*UJ X*U*U*U*U*UH*UT U*U*U*U*@*S*U*U*U*U*U2 U*U*U*U*UU*U*U*U* P )U*U*U*U*eP*U*U*UT*U*U*TU@TU*U*U*U**@*0U*U*U*U*U*U**U|XE?|V*U*U8T*U*U `_*UU@*H*A"`U(U@0T*U*UT*U*U*Q`p*U*U*U*U*(0T*UJ@*U*U*U*U*H*U T U*U*U*U*@*Q*U*U*U*U*Ub@ 0U*U*U*U*TU*U*U*U*9@*@)T*U*U*U*UP*U*U*UT*U*U*VTT8U*U*U*U**@* U*U*U+U*U* Up?uW R*U*UbW*U*U(P*U|TjU X*tm~?6w *U@ T*U*UT*U*U*Q(| .U*U*U*U*(T*U*@*U*U*U*U*T\*UT U*U*U*U *@Q*U*U*U*U*UJ@ U*U*U*U*T@!U*U*U*U*eԪתժժժϊԪժժժ#TԪժժժժժժժժժժժ~|Ԫ~cԪ  NONE OF THE";N;"GAMES.";ELSE3990B56780:'ʵENTERWITHPROMPT.L54130i5SC;"OF THE";N;"GAMES.";5SC8ĺ@580,"PRESS ENTER TO RECEIVE YOUR"5SC8ĺ@708,"SKIING AWARD.";5SC7ī40705679054940:'ʈAPHICSPRIZE.66790:'I4I610:@LL(I),E$;:I44INKEY$(13)ī3910Q4(I2630:@LL(I),"*";:Im42I1115:@LL(I),E$;:Iw4<37504FEX1COUNT1İ6110:'ʀOFEXAMPLE.4P26604ZCLS:(23);4d@324,"THAT'S ALL OF THE GAMES.";4n@452,"YOU WON";"5xSC0ĺ"LL(I),E$;:I(3I610:@LL(I),"*";:I@3INKEY$(13)ī3910\3I2125:@LL(I),E$;:Iy3I1115:@LL(I),"*";:I3I2630:@LL(I),E$;:I3INKEY$(13)ī39103I1620:@LL(I),"*";:I3I15:@LL(I),E$;:I4 I2125:@LL(I),"*";:L(13)122:LL(14)296:LL(15)426:LL(16)518:LL(17)736:LL(18)9242LL(19)156:LL(20)328:LL(21)470:LL(22)552:LL(23)756:LL(24)9462LL(25)176:LL(26)348:LL(27)480:LL(28)624:LL(29)810:LL(30)9242I15:@LL(I),"*";:I:'SNOW. 3I1620:@T U*U*U*U*P F*U*U*U*U*U*U*U*U*U*U@W*U*U*UrV3 `(S)(S)T5 ******************M ** ALP SKI HEADERf ******************ly:599002:14:"ALPINE SKIER"$6:0:1)FF132.X50FF782FFX,11=2FFX,11B2FFX,15G2FFX,15LX16368,0:WCR60070 >8@ *****************JB ** RUN ASSMbD *****************hF~H(4);"BRUN ASSM"R **************** ** CLICK SOUND ****************S16336T15 SOUND(S)(S)304,016299,0:16297,0#)XAZ *****************V\ ** WAIT FOR CRn] *****************t^`24:"PRESS RETURN TO GO ON."e45,18294,18294,19145,19145,182jCR13128t16368,0W(16384):W12860070:"STUDENT'S RESPONSE: F"?S60000: WAIT FOR CR WITH PROMPT.WSK15:LE$(K)"":KSB1$(II)"":B2$(II)"":B3$(II)"":B4$(II)"":F2$(II)""S ******************* ** HGR2 SCREEN *******************16302,0:16 ";RLE$(1)""Ģ10:1:LE$(1)SRLE$(2)""ĺLE$(2)kRLE$(3)""ĺLE$(3)RLE$(4)""ĺLE$(4)RLE$(5)""ĺLE$(5)R:"CORRECT ANSWER: ";F2$(II)S(F2$(II))70ĺ:"STUDENT'S RESPONSE: O" S(F2$(II))79ĺ ";RLE$(1)""ĺ" "0RK1255:RRI$(A$,K),BRL(A$)K<DRLE$(A$,L){NR(LE$)40(LE$,1)" "LE$(P2)LE$:P2P21:A$RI$:21100XRKlR(A$)40LE$(P2)A$:21200vR21040iRLE$(1)""Ģ10:1:" T U*U*U*U*P F*U*U*U*U*U*U*U*U*U*U@W*U*U*UrP*U*U*U*U*5@*U*U*UT*U*U*T UpxTU*U*U*U*** T*U*U*U*U*U 6450:'ʔ"C""E"SCEBOX.'E@66,AN$;7ET1100:TZE@960,"PRESS ENTER TO GO ON.";uE5550:'CAUSEEFFECTE@66,AN$;ET1100:TE"@960,"PRESS ENTER TO GO ON.";E,@192,AA$;E6T150:TE@@192," ";EJT130:TFTIN@348,(131);(139);(180);": ,";(176);"O";(95);"/ *:*:*";oD@416,(130);(141);"<<";(131);", *:*:*:*";D@482,"*:*:*:*:*:*:*";D@550,"*:*:*:*:*";D@618,"*:*:*:";D@790,"SORRY,";D@854,"NO POINTS THIS TIME.";DT1100:TEC'"C(@960,(30);.C2I811HC<@L(I),AS$;:'SKIER.WCFT150:TvCP@L(I),EA$;:'ERASESKIER.}CZICd@228,"*:*:*:*:*/";STRING$(3,(131));"/";Cn@164," ";Cx@168,"*:*:*";C@282,(170);"1";(133);" *:*:*:*:*:* /";>D ";STRING$(3,(191));[B@780,STRING$(4,(191));" ALPINE SKIER";(170);STRING$(3,(191));yB@844,STRING$(21,(191));B@960,"PRESS ENTER TO GO ON.";BB'B'B '2NDWIPEOUT C'));(159);(135);K$(13)ī4860&>,>'N>$'e>.'ʈAPHICSAWARD.>8'>B'>LCLS:(23);>V@12,(156);STRING$(2,(140));STRING$(15,(191));STRING$(2,(140));(172);G?`@76,(149);" THE"*=:"DIFFERENCE BETWEEN CAUSE AND"M=:"EFFECT. I HOPE TO SEE YOU"r=:"AGAIN SOON FOR ANOTHER GAME"=:"OF ALPINE SKIER."=@636,"*";:@568,"*";:@756,"*";:@510,"*";=@740,AS$;:'SKIER.=@960,"PRESS ENTER TO START OVER."; >,"THANK YOU, ";NA$;"."><\@256,"IF YOU WANT TO PLAY ANOTHER"cII;HCLS:(23);>>> TEACHER FEATURE <<<<"y8@86,NA$;"'S SCORE:";SC;"/";N8I1N2:'DUPLICENO.RIGHTARRAY.8WW(I)NW(I)8I8@128,"DO YOU WANT TO SEE THE INCORRECT RESPONSES? (Y/N)"9K$INΠӠҠΠȍ׮ƍӠŠōĠٮύΠӠҠӠŠ΍ƍƍϠŮύՠĠӠˠˍΠՠԠӮύנӠٍӠ٠ԮƍϠӠ  /";U@722,"___/";$U@782,"/";6U@592,"___/";HU@590,(138);ZU@526,(170);lU@462,(170);U@398,(170);"2";(133);U@640,STRING$(6,(176));"/";U@704,"FINISH";U@768,(191);U @832,(191);U@772,"/";V @778,(19T@488,"___/";T@306,"/";2T&@358,"____/";DT0@356,(138);VT:@292,(170);hTD@228,(170);TN@164,(170);"1";(133);TX@418,"/";Tb@478,"/";Tl@538,"/";Tv@592,"___/";T@488,"___/";T@548,"/";T@608,"/";U@668,"3S'SKI1FRAMEPSTART\S'bS'SN1:I1N1:A$(I):I:F1$SN2:I1N2:B$(I):I:F2$SCLS:(23);:@246,"/";STRING$(3,(131));"/";S@314,"/";S@374,"/";S@434,"/";TINDEXTEACHERFEUREARRAY. RJ'LRT'hR^'ʵENTERWITHPROMPT.Rh'Rr'R|@960,"PRESS ENTER TO GO ON.";RK$INKEY$RINKEY$(13)R6800R'S'IF 1ST SENTENCE IS MISSED. Q&Q'MQ'aQ'TRUEV21vQ'FALSEV20Q'Q'QAN$F2$V21Q"AN$F2$V20Q,EX1COUNT149920Q6IIII1R@NW(II)V2:'SEV100P'6P'HPAN$F1$V11[PAN$F1$V10rPEX1COUNT16610~PIIII1PNW(II)V1:'SETINDEXTEACHERFEUREARRAY.QV10IIII1:NW(II)1:'INCENT II COUNTER FOR 2ND SENTENCE WHICH IS SKIPPED $O'ʺUPPERLEFSWERBOXNO'TO('rO2@0,(156);(140);(172);O<@64,(149);" ";(170);OF@128,STRING$(3,(131));OPOZ'Od'On'TRUEV11Px'FALSEN'ʺ2NDSENTENCEPHRASES.KN'QN'mN@676,B$(1);:N216390N@738,B$(2);:N226390N@800,B$(3);:N236390N@862,B$(4);:N246390N@924,B$(5);NN'O '8MB'ʺ1STSENTENCEPHRASES.aML'gMV'M`@8,A$(1);:N116280Mj@72,A$(2);:N126280Mt@136,A$(3);:N136280M~@200,A$(4);MM'N'/L'DLEX1CC0ī6130NL6170LCLS:(23):@128,"I THINK YOU'VE GOT THE IDEA."L:"NOW LET'S GO TO THE SLOPES"L:"FOR REAL."L6780:'ʵENTERWITHPROMPT.LCCCC1L$L.'M8'AA$;KfT150:T(Kp@192," ";7KzT130:T[KINKEY$(13)6040:'STARVER.eK5980KEX1COUNT1İ6110:'ʀOFEXAMPLE.K2660K'K'K'ʀOFEXAMPLE,STARTREALQUESTIS.)L'ԠҍΠҠŠ؍ͮƍӠŠŠήύ͠ӠōƠŠԍӮĠԠ҇ΠӠĠҍŮύӠ٠ӠӠҍƍĠӠҍΠŮύŠҠӠϠӠӍӮύӠŠϠˍΠŠŠōΠӮύǠӠǮύҠٍ̠ҠϠϮύҠӠŠŠ΍ҮύŠΠӍӠΠōԮƍǠӠϠŠҍٮύϠҠӍŠĠ΍àĮƍ̠ΠŠŠͮύӠŠԠǍ٠ΠŠĮύԠӠōԠŠՍŠҠήύ̠ӠŠԠԠō̠ҮƍΠŠٍӠŠҍٮύ٠ӠŠԠȍƠŠҮƍŠčΠԱΠӠҠΠȍ׮ƍӠŠōĠٮύΠӠҠƍӠŠ΍ƍϠŮύՠĠӠˠˍΠՠԠӮύנӠٍӠ٠ԮƍϠӠ THE SNOW.",E,3,"TICKLE THE","CHILD; THE","CHILD LAUGHS.",Ce 2,"MOVE THE GEARS;","START THE MOTOR.",E,3,"TURN ON THE","FAN; COOL THE","AIR.",Ce 2,"HANDS GET WARMER;","PUT ON YOUR MITTENS.",E,3,"CREATE A","BOUNDARY;","BUILD A FENCE.",ETf" 2,"TH"DRINK LEMONADE.",Esd 2,"CHILD IS HAPPY;","CHILD WINS THE GAME.",E,3,"SCRUB A","FLOOR; THE","FLOOR IS CLEAN.",Cd 2,"SCORE A BASKET;","EARN TWO POINTS.",C,3,"THE STREET","BECOMES WET;","IT RAINS.",E;e 2,"THE SNOWBALL GROWS;","ROLL A SNOWBALL INTHE TIRE;","THE TIRE GOES FLAT.",C,4,"MAKE","FOOTPRINTS;","WALK IN THE","SNOW.",Ec 2,"THE NAIL SINKS INTO THE","WOOD; POUND A NAIL.",E,3,"THE WIND","BLOWS; THE","FLAG WAVES.",Cd 2,"THE ANKLE IS STRONGER;","TAPE AN ANKLE.",E,3,"FEEL","REFRESHED;",FADE; DRY","SOME FLOWERS.",Eb 2,"RADIATION IN THE AIR;","NUCLEAR POWER PLANT LEAKAGE.",E,4,"THE OVEN","IS TOO HOT;","THE CAKE IS","BURNT.",Cb 2,"THE LOLLIPOP GETS SMALLER;","LICK A LOLLIPOP.",E,2,"FINGER BLEEDS;","CUT FINGER.",EQc 2,"DEFLATE E.",E,4,"CROSS THE","FINISH LINE","FIRST; WIN THE","RACE.",Cax 2,"SAVE ENERGY;","INSULATE YOUR HOUSE.",E,2,"PET THE DOG;","HIS TAIL WAGS.",Ca'a'a'a'ROUND#3a'b 2,"THE KITTEN PURRS;","THE KITTEN IS PETTED.",E,3,"THE COLORS",",3,"DROP A ROCK","IN THE RIVER;","MAKE WAVES.",C`Z 2,"MAKE ICE;","PUT WATER IN FREEZER.",E,3,"FEEL SAD;","RECEIVE BAD","NEWS.",E`d 2,"YOU ARE LATE FOR SCHOOL;","MISS THE BUS.",E,3,"WIN THE","GAME; GET","FIRST PRIZE.",C#@ *****************5B ** RUN ASSMMD *****************SFiH(4);"BRUN ASSM"oRu **************** ** CLICK SOUND ****************S16336T15SOUND(S)(S)(S)(S)T16297,0X,Z *****************A\ ** WAIT FOR CRY] *****************_^`24:"PRESS RETURN TO GO ON."e45,18294,18294,19145,19145,182jCR13128t16368,0W(16384):W1286007016368,0:WCR60070ÍƠōһŮÍŻŠȮÍŠŠӻĠӠŠŮō̠΍ŠŻΠōͮÍҠҠӠλŠӮÍŠčӻӍϠĠ΍̮ōŠΠӠٻӠͮÍ̠ŠŻŠӠήÍԠȻŠŠŮÍŠ׍ӻ׍ˠԠ׮ōӠһӠӮōŠ΍ӻōĠӮōŠΠӻˠήōРΠŠȠӻŠĠӮōՠԻՠŠٮōԠӻӠͮÍԠŠԻҠԠӮōԠԠӻŠҠӮōԠōŻЍŠŮōԠŠ̻̠ŠӮŠ٠ӠλŠ٠ӮÍŠàԍӠĻŠҍӮÍРȻŠӠϠήÍԠٻˠΠōԠήōŠŠϻŠҠǮÍŠӠ̻ΠӮō  S;","GET DIZZY.",C,3,"BLOOD FLOWS;","THE HEART","BEATS.",E^ END OF FILENAME : SKIDEMO/C HEART","BEATS.",E6g END OF FILENAME : SKIDEMO/CNIDEMO/CLING IN CIRCLES;","GET DIZZY.",C,3,"BLOOD FLOWS;","THE HEART","BEATS.",Eg END OF FILENAME : SKIDEMO/CI) <J1I F:A$(J) PJ3 ZD$;"CLOSE ";Z$I dD$;"NOMON C,I,O" D: F"*S60000: WAIT FOR CR WITH PROMPT.BSK15:LE$(K)"":K}SB1$(II)"":B2$(II)"":B3$(II)"":B4$(II)"":F2$(II)""S ******************* ** HGR2 SCREEN *******************16302,0:16304,016299,0: "&RLE$(1)""Ģ10:1:LE$(1)>RLE$(2)""ĺLE$(2)VRLE$(3)""ĺLE$(3)nRLE$(4)""ĺLE$(4)RLE$(5)""ĺLE$(5)R:"CORRECT ANSWER: ";F2$(II)S(F2$(II))70ĺ:"STUDENT'S RESPONSE: O" S(F2$(II))79ĺ:"STUDENT'S RESPONSE ";RLE$(1)""ĺ" $(A$,K)BRL(A$)K'DRLE$(A$,L)fNR(LE$)40(LE$,1)" "LE$(P2)LE$:P2P21:A$RI$:21100mXRKlR(A$)40LE$(P2)A$:21200vR21040TRLE$(1)""Ģ10:1:" " RP21R8:1:"SENTENCE GIVEN:"RA$B1$(II)" "B2$(II)" "B3$(II)" "B4$(II)" "0RK1255 :RRIRESPONSE: F"2)O60000: WAIT FOR CR WITH PROMPT.J,OK15:LE$(K)"":K-OA1$(II)"":A2$(II)"":A3$(II)"":A4$(II)"":F1$(II)"".O P P *******************P ** WRONG SENT.#2P *******************PR8:1:" ".NLE$(1)""Ģ10:1:LE$(1)FNLE$(2)""ĺLE$(2)^NLE$(3)""ĺLE$(3)vNLE$(4)""ĺLE$(4)NLE$(5)""ĺLE$(5)O:"CORRECT ANSWER: ";F1$(II)O(F1$(II))70ĺ:"STUDENT'S RESPONSE: O" $O(F1$(II))79ĺ:"STUDENT'S ";NLE$(1)""ĺ" " 8_3(8d2,474,474,182,182,4E8n1,375,375,191,191,3K8Q8i8 *****************8 ** END OF EXAMPLE8 *****************88:59900861200: HEADER86:"I THINK YOU'VE GOT THE IDEA."9:"NOW LET'S GO TO "97-VT4:HT2:" "c72VT6:HT3:" "i77o7F7H ********************7J ** DRAW "POINT" BOX7L ********************7N7P1:" "7U2:" "8Z3:" /60:45,18294,18294,19145,19145,182:356"I*************O6}60:45,18294,18294,19145,19145,182:36"8*******66 SPACES 1-19,2-20,3-21,4-226VT16:HT226#VT:HT:" "7(VT2:HT1:" 5 *****************5+5:59900?561200: HEADERf56:"I THINK YOU'VE GOT THE IDEA."5:"NOW LET'S GO TO THE SLOPES FOR REAL."560000555 ********************5 ** BLANK RETURN BOX5 ********************6*********#4J ** DRAW "POINT" BOX>4L ********************D4NY4P1:" "n4U2:" "4Z3:" "4_34d2,474,474,182,182,44n1,375,375,191,191,3444 *****************5 ** END OF EXAMPLE*************343 SPACES 1-19,2-20,3-21,4-22D3VT16:HT22g3#VT:HT:" "3(VT2:HT1:" "3-VT4:HT2:" "32VT6:HT3:" "373F 4H ***********K D$(4): CTRL D? "THIS PROGRAM RETRIEVES TEXT FILES"l"CREATED BY THE 'CREATE TEXT' PROGRAM.""MON C,I,O IS IN EFFECT.""NAME OF TEXT FILE? ";Z$D$;"MON C,I,O"D$;"OPEN ";Z$(D$;"READ ";Z$2I 7A$(I  5RNRI$(A$,K)ZNL(A$)K/\NLE$(A$,L)nfN(LE$)40(LE$,1)" "LE$(P1)LE$:P1P11:A$RI$:20100upNKN(A$)40LE$(P1)A$:20200N20040\NLE$(1)""Ģ10:1:" ***********N  N8:1:" "%NP11*N8:1:"SENTENCE GIVEN:"4NA$A1$(II)" "A2$(II)" "A3$(II)" "A4$(II)" "HNK125ON FOR ANOTHER GAME OF ALPINE".`":"SKIER."{"24:"PRESS RETURN TO START OVER.":45,18294,18294,19145,19145,182(#60010#(4);"BLOAD CHAIN,A520"#520"INSTRUCTIONS"NN *******************N ** WRONG SENT.#1 N ********1200:TW141ī7900*W206ī83004x7300Q(4);"BLOAD CHAIN,A520"`@520"MAIN"ml :59900 61200: HEADER!6:NA$;","4!:"ALWAYS REMEMBER THE DIFFERENCE BETWEEN"!:"FACT AND OPINION. I HOPE TO SEE YOU"!:"AGAIN SO5500II2N(NW(II,1)0İ20000?NW(II,2)0İ21000GIIT:59900h61200: HEADERX6:"THANK YOU, ";NA$;".":"IF YOU WANT TO PLAY ANOTHER ROUND," :"PRESS RETURN, IF NOT, PRESS N."W(16384)16368,0LT00 61200: HEADERI P:NA$;"'S SCORE:";25);N1;28);" ATTEMPTED,"g Q25);SC;28);" CORRECT." 8:"DO YOU WANT TO SEE THE INCORRECT" ":"RESPONSES? (Y/N)" |W(16384) 16368,0 DT150:T W217ī6100 W206ī6800pR AS IT IS AND"> :"TELL HIM OR HER YOU ARE FINISHED. IF"p :"YOU ARE SUPPOSED TO GO ON, PRESS RETURN."~ 16368,0 W(16384):W1284300 016368,0 W148ī4900 \W141ī6800 4290 :59900 61200: HEADER $:599PT. 38007 T 60000: WAIT FOR RETURN WITH PROMPT.= W  *******************p ** TEACHER FEATURE ******************* H :59900 61200: HEADER 6:"IF YOUR TEACHER WANTS TO KNOW HOW YOU" :"DID, LEAVE THE COMPUTE." ` SC7ī2900< 60010: WAIT FOR CR WITHOUT PROMPT.T ( 62450: CLEAR HGR2\ 2 :y < (4);"BLOAD PIC.TROPHY" F 59900: HGR2 P 16:29:"SKI CHAMP" Z 17:28:"OLYMPIC CLASS" d 18:28:"ALPINE SKIER" 60000: WAIT FOR CR WITH PROMER% 6:"THAT'S ALL OF THE GAMES."8 @:"YOU WON ";` SC0ĺ"NONE OF THE ";N1;" GAMES."q SC0ī2100 l60000: WAIT FOR CR 3800 4SC;" OF THE ";N1;" GAMES." SC8Ģ10:"PRESS RETURN TO RECEIVE YOUR SKIING" SC8ĺ:"AWARDd  FILENAME: TFEATURE&,,28X>Y  ********************r ** STUDENT'S SCORE ********************R211100LE$(5)R21LT(0)V3:0:1:5990061000: ASSM x61200: HEAD                  1:6:" "\23:6:" "25:6:" "27:6:" "222 *******************2 ** ERASE SENT.#2 3 ******g1LL(8,1)15:LL(8,2)1/h1LL(9,1)3:LL(9,2)38Ji1LL(10,1)11:LL(10,2)5fj1LL(11,1)22:LL(11,2)11k1LL(12,1)5:LL(12,2)15l1LL(13,1)15:LL(13,2)15m1LL(14,1)2:LL(14,2)31n1LL(15,1)23:LL(15,2)33o1LL(16,1)14:LL(16,2)36 p1LL(17,1)12d)---???W---???W---???W---???W---    *****************- ** COLOR SUBR. **E *****************KYX30160iX,YX,Y12pXv17:"VIOLET">5:Y109:9703H15:27:"ORANGE"ER6:Y133:970Y\18:27:"BLUE"f22:"WHEN YOU ARE SET, PRESS RETURN TO BEGIN."pW(16384)z16368,0WCR880DC1(4);"BLOAD CHAIN,A520"520"INSTRUCTIONS"********************0  ** COLOR ADJUSTMNT **L  *********************R ^ :32,0e 3 "BEFORE WE BEGIN, PLEASE ADJUST YOUR" :" VIDEO MONITOR TO MATCH THESE COLORS." 1:Y60:970 9:27:"GREEN" *2:Y85:970 412:2 &W(16384)(16368)130' 0I02= :1:1:UO$(I);H$;T D1:39:RO$(I);V$;k N24:1:BO$(I);H$;x XI1620 b" "; l1:1:LO$(I);V$; vI0650 D$;" "; I W(16384) 16368,0 WCR560     *$ :"THIS IS A DATA COMMAND";CR$A " MICROCOMPUTER";CR$c " LEARNING PROGRAM";CR$;CR$ 20:"PRESS RETURN TO GO ON."; V$"":H$"" 32,0:34,0 I112:H$H$"* ":I:H$H$"*" I17:V$V$"*"D$" "D$" "D$:I:V$V$"*"OPENING FRAME **. | *********************4 : _ UO$(0)"":UO$(1)" ":UO$(2)" " RO$(0)" "D$:RO$(1)RO$(0)RO$(0):RO$(2)"" BO$(0)"":BO$(1)" ":BO$(2)" " LO$(0)RO$(1):LO$(1)RO$(0):LO$(2)"" ::62450 :32,8:34,7***************** - (4);"BRUN ASSM"O "N225576256:232,232:233,N2p ,UO$(3),RO$(3),BO$(3),LO$(3) 6CR13128:NO("N")128 @Q$(34):D$(10)(8):CR$(13):UN$(21):NR$(14) J T ^ h ********************* r ** wd FILENAME:HELLOn"x; ******************Q ** ALPINE SKIERZ **u ** CAUSE AND EFFECT. **  ** 4-30-81  ****************** ******************** ** INITIALIZATIONS  ***        1XX,YY1XXXXFINISH4>1Y((FDX)FA)FBFE(FCX)K11XX,YYV11X,Yd1XXX:YYYk1X1HOLD0ĕ1XX,YY111 ******************1 ** ERASE SENT.#11 ******************11 SPACES 1-34,2-34,3-34,4-28,20[V21AN79ĪAA$"OPINION"=0`V20AN70ĪAA$"OPINION"Y0eV20AN79ĪAA$"FACT"_0je0~0 *******************0 ** MOVE SKIER DOWN0 ** SLOPE0 *******************00FC310: Y OFFSET030XXXSTART:YYYSTART 11AN70ĪAA$"FACT"3/)V11AN79ĪAA$"OPINION"R/.V10AN70ĪAA$"OPINION"n/3V10AN79ĪAA$"FACT"t/8z/L/N *******************/P ** -- #2 --/R ** FACT OR OPINION/T *******************/U/VV21AN70ĪAA$"FACT". ..V21/.AN(F2$(II))ĪV20H.EX1COUNT0ī62480.NW(II,2)V2: NW ARRAY IS USED IN THE TEACHER FEATURE.... *******************. ** -- #1 --. ** FACT OR OPINION. *******************."/$V1-Z-\V11(-fAN(F1$(II))ĪV10@-pEX1COUNT062380P-NW(II,1)V1e-V10NW(II,2)1k-- ********************- ** SECOND SENTENCE- ** RIGHT OR WRONG ?- ** TRUE--- V2=1- ** FALSE-- V2=0. ********************1100:T,>2:2:" "',HT1200:T8,J2:2:(AN)_,L16384,0: CHANGE FOR NEXT ANSWERe,Nk,R,S ********************,T ** FIRST SENTENCE,U ** RIGHT OR WRONG ?,V ** TRUE--- V1=1,W ** FALSE-- V1=0,X ******************** RETURN TO GO ON.":45,18294,18294,19145,19145,182J[1W0:16368,0c`1LL(1,1)4:LL(1,2)29}a1LL(2,1)10:LL(2,2)13b1LL(3,1)7:LL(3,2)31c1LL(4,1)20:LL(4,2)24d1LL(5,1)23:LL(5,2)39e1LL(6,1)19:LL(6,2)8f1LL(7,1)17:LL(7,2)33,K)ZNL(A$)K!\NLE$(A$,L)xfN(LE$)40(LE$,1)" "(LE$)40(LE$,1)"."LE$(PN)LE$:PNPN1:A$RI$:20100pNKN(RI$)2ī20200N20040NK15ZNLE$(K)""Ģ10:1:" "%NPN1*N8:1:"SENTENCE GIVEN:"4NA$A1$(I)" "A2$(I)" "A3$(I)" "A4$(I)" "HNK1255RNRI$(A$24:"PRESS RETURN TO START OVER.",(#60010I#(4);"BLOAD CHAIN,A520"`#520"INSTRUCTIONS"fNN *******************N ** WRONG SENT.#1N *******************N  N8:1:" 9100x7300,(4);"BLOAD CHAIN,A520";@520"MAIN"Hl :59900\ 61200: HEADER4!6:"ALWAYS REMEMBER THE DIFFERENCE BETWEEN"!:"CAUSE AND EFFECT. I HOPE TO SEE YOU"!:"AGAIN SOON FOR ANOTHER GAME OF ALPINE"`":"SKIER."!"WW(II,2)0İ20100dI II+,600008:59900L61200: HEADERaX6:"THANK YOU.":"IF YOU WANT TO PLAY ANOTHER ROUND," :"PRESS RETURN, IF NOT, PRESS N."W(16384)16368,0LT1200:TW141ī7900W206. I1N:WW(I,1)NW(I,1):WW(I,2)NW(I,2):IY 8:"DO YOU WANT TO SEE THE INCORRECT"s ":"RESPONSES? (Y/N)" |W(16384) 16368,0 DT150:T W217ī6100 W206ī6800 p5500 II1N 8I12 WW(II,1)0İ20000KIP"A h:"THE ";(34);"TEACHER FEATURE";(34);" PRESS RETURN."Q W(16384)_ 016368,0o T1100:T W148ī4900 \W141ī8300 4300 $:59900 61200: HEADER 5:12:"TEACHER FEATURE" P10:"STUDENT'S SCORE: ";SC;"/";N :59900! 61200: HEADERP t6:"NOW FOR THE TEACHER FEATURE. IF THE"| :"TEACHER WANTS TO SEE THE STUDENT'S" <:"RESULTS, HE OR SHE CAN DO SO JUST BY" :"HOLDING DOWN THE (CTRL) KEY AND" :"PRESSING (T). WHY NOT TRY IT? TO S10: WAIT FOR CR WITHOUT PROMPT.8 ( 62450: CLEAR HGR2a 60010: WAIT FOR CR WITHOUT PROMPT.} 3500: TEACHER FEATURE T 60000: WAIT FOR RETURN WITH PROMPT.  ******************* ** TEACHER FEATURE ******************* H F THE GAMES." @:"YOU WON ";F SC0ĺ"NONE OF THE ";N;" GAMES."W SC0ī2100p l60000: WAIT FOR CRz 3500 4SC;" OF THE ";N;" GAMES." SC8Ģ10:"PRESS RETURN TO RECEIVE YOUR SKIING" SC8ĺ:"AWARD." ` SC7ī2900 600XZ *****************4\ ** WAIT FOR CRM] *****************S^w`24:"PRESS RETURN TO GO ON."e45,18294,18294,19145,19145,182jCR13128W(16384)16368,0WCRī60130T150:T60070T T OR OPINION%+ ******************++h+24:"PRESS ";(34);"F";(34);" OR ";(34);"O";(34);"."}+AN(16384)128+ 16368,0+AN70ī62265+ AN79ī62265+"T1100:T+$0:312,8+&T1200:T+(3:312,8+*62210,9TЖ6:A4$(II)*b*-* ***************B* ** SENTENCE #2X* ***************^*n*VT16:HT22*VT:HT:B1$(II)*VT2:HT1:B2$(II)*VT4:HT2:B3$(II)*VT6:HT3:B4$(II)*** ****************** + ** FAC SKIER FROM 3RD->4TH STEP..$11:" "B&12:" "V(13:" "l)162800: DRAW BOX*1EX1COUNT1Ģ2:2:"1 POINT !".1EX1COUNT1ī1261081SCSC1B1SC1Ģ2:2:"1 POINT!"L1SC1Ģ2:2:SC;" POINTS"8V124:"PRESS5ī16000: 2ND SENTENCE WIPE OUT.-012400L062750: ERASE SENTENCE #2024:" "063000: BLANK RETURN BOX.02:2:" "0XSTART100:XFINISH241YSTART105:HOLD110:1XX,YY162600: MOVEύƭŠōӠŠŮύΠĮîӠŠ̍ƠŠĠӮƍӠӍˠĮύύӠٍҠӮύŠŠ̠ӠҠǮƍ٠ŠӍĠӠύŠԮƍ̠ӠŠŠήƍԠӠĠύԠԠȮύ̠ӠĠ̮ŠήύӠĠŠŠԍϠŠ̠ԠȠŮύΠӠӍĠϮƍĠӠ̠ȠōҮƍՠĠŠΠϠԠЮύӠĠŠčӮύŠΠŠٍΠΠͮύĠӠŠ̮ƍŠĠ΍ŠĮύЭǠӠήύӍŠĠӮύŠΠӠҠԍԮƍŠ΍ӠȱˠĠӠҠȠͮύ̠ӠōΠϠŮύŠԠ٠Ϡ̠ӠΠ΍ŮύҠȍΠōǠҠˮύŠŠӠ芊ҮƍԧӠŠΠ   ')A1$(I),A2$(I),A3$(I),A4$(I),F1$(I)O)B1$(I),B2$(I),B3$(I),B4$(I),F2$(I)V)If)D$;"CLOSE"l)!r)&)( ******************)* ** SENTENCE #1), ******************).)01:6:A1$(II)):3:6:A2$(II))D5:6:A3$(II) *N7:d[g???$ -6.-....>.>>''''''I -?->5ے--(--(--(--(--(--(@@#????? d-6--??W--??W--??W--??W "WNLE$(K)""Ģ10:1:LE$(K)^OKO:"CORRECT ANSWER: ";F1$(I)O(F1$(I))67ĺ:"STUDENT'S RESPONSE: E"$O(F1$(I))69ĺ:"STUDENT'S RESPONSE: C")O60000: WAIT FOR CR WITH PROMPT. ";8NLE$(K)""ĺ" ,K)ZNL(A$)K!\NLE$(A$,L)xfN(LE$)40(LE$,1)" "(LE$)40(LE$,1)"."LE$(PN)LE$:PNPN1:A$RI$:20100pNKN(RI$)2ī20200N20040NK15ZNLE$(K)""Ģ10:1:" "%NPN1*N8:1:"SENTENCE GIVEN:"4NA$A1$(I)" "A2$(I)" "A3$(I)" "A4$(I)" "HNK1255RNRI$(A$24:"PRESS RETURN TO START OVER.",(#60010I#(4);"BLOAD CHAIN,A520"`#520"INSTRUCTIONS"fNN *******************N ** WRONG SENT.#1N *******************N  N8:1:" 9100x7300,(4);"BLOAD CHAIN,A520";@520"MAIN"Hl :59900\ 61200: HEADER4!6:"ALWAYS REMEMBER THE DIFFERENCE BETWEEN"!:"CAUSE AND EFFECT. I HOPE TO SEE YOU"!:"AGAIN SOON FOR ANOTHER GAME OF ALPINE"`":"SKIER."!"WW(II,2)0İ20100dI II+,600008:59900L61200: HEADERaX6:"THANK YOU.":"IF YOU WANT TO PLAY ANOTHER ROUND," :"PRESS RETURN, IF NOT, PRESS N."W(16384)16368,0LT1200:TW141ī7900W206. I1N:WW(I,1)NW(I,1):WW(I,2)NW(I,2):IY 8:"DO YOU WANT TO SEE THE INCORRECT"s ":"RESPONSES? (Y/N)" |W(16384) 16368,0 DT150:T W217ī6100 W206ī6800 p5500 II1N 8I12 WW(II,1)0İ20000ӍӠҠ̍Ϡήύ٠ƠԠӠčȮύҠŠΠРԠǍҠΠĠҮύǠӠήύΠϠӍӠٮύԍ٠ȠӮύӠӠŠΠύȮύ̠ӠōǠ΍̮ύŠӠĠٍàӮƍϠԠŠԍƠՠԠύŠӮƍԠӠǠǮƍΠΠҠĮύΠӠŠӠϠ׮ƍԠӠΠύŠϮύҠ٠̠ŠΠӍԠΠӮύӠŞ̌ӠԠĮύҠӠŠΠĠŮƍӠĠΠԠӠΠƍӠŠӍԠȠȠōǠЮƍԠ̠ӠŠĮƍŠҠӍŠŠƠîƍҧӠԠӠԭ΍٠Ԯƍ̠ԍӠŠ΍ؠŠԠ٠ϠŠĠӍϠˠӠƠŠŮύŠŠōӠΠҍҠͮƍ̠ӠĠŠ΍ԮύǠ΍ӠӠӍĮύŠΠƠϠӍҠ٠    ,3((&( *****************>( ** READ DATA **V( *****************\((RD1ĺD$;"OPEN ROUND 1":D$;"READ ROUND 1"(RD2ĺD$;"OPEN ROUND 2":D$;"READ ROUND 2"(RD3ĺD$;"OPEN ROUND 3":D$;"READ ROUND 3"(RL(I1N1,145'639,17539,145'@6-'JX2404:'T2X,130A'^XV'h61850: ANS BOX\'b'y' ****************' ** ANSWER BOX **' ****************''3' VTAB 2 HTAB 2'2,418,418,182,182,4(1,319,319,191,191ԠҍΠҠŠ؍ͮƍӠŠŠήύ͠ӠōƠŠԍӮƍĠԠ҇ΠӠĠҍŮύӠ٠ӠӠҍƍĠӠҍΠŮύŠҠӠϠӠӍӮύӠŠϠˍΠŠŠōΠӮύǠӠǮύҠٍ̠ҠϮύҠӠŠŠ΍ҮύŠΠӍӠΠōԮƍǠӠϠŠҍٮύϠҠӍŠĠ΍àĮƍ̠ΠŠŠͮύӠō120&75,11055,110)&55,12058,115<&58,11555,110B&O& POLE#1U&h&165,89165,62x&9:23:"1"&165,62145,62&145,72165,72&145,72148,67&145,62148,67&& FINISH SIGN&&"18:"FINISH"',1,175ԠǍ٠ΠŠĮύԠӠōԠŠՍŠҠήύ̠ӠŠԠԠō̠ҮƍΠŠٍӠŠҍٮύ٠ӠŠԠȍƠŠҮƍŠčΠϠΠӠҠΠȍ׮ƍӠŠōĠٮύΠӠҠӠŠ΍ƍϠŮύՠĠӠˠˍΠՠԠӮύנӠٍӠ٠ԮƍϠӠ    z#????o   Ҡ ŠԠ Ġ  ѮҮà Š Ġ Ġî٠! ŠΠŠϠ ŠԠ Π4 î٠"î٠!͠îԠ!ӠĠĠĠ. I1N:WW(I,1)NW(I,1):WW(I,2)NW(I,2):IY 8:"DO YOU WANT TO SEE THE INCORRECT"s ":"RESPONSES? (Y/N)" |W(16384) 16368,0 DT150:T W217ī6100 W206ī6800 p5500 II1N 8I12 WW(II,1)0İ20000KIP"A h:"THE ";(34);"TEACHER FEATURE";(34);" PRESS RETURN."Q W(16384)_ 016368,0o T1100:T W148ī4900 \W141ī8300 4300 $:59900 61200: HEADER 5:12:"TEACHER FEATURE" P10:"STUDENT'S SCORE: ";SC;"/";N :59900! 61200: HEADERP t6:"NOW FOR THE TEACHER FEATURE. IF THE"| :"TEACHER WANTS TO SEE THE STUDENT'S" <:"RESULTS, HE OR SHE CAN DO SO JUST BY" :"HOLDING DOWN THE (CTRL) KEY AND" :"PRESSING (T). WHY NOT TRY IT? TO S10: WAIT FOR CR WITHOUT PROMPT.8 ( 62450: CLEAR HGR2a 60010: WAIT FOR CR WITHOUT PROMPT.} 3500: TEACHER FEATURE T 60000: WAIT FOR RETURN WITH PROMPT.  ******************* ** TEACHER FEATURE ******************* H F THE GAMES." @:"YOU WON ";F SC0ĺ"NONE OF THE ";N;" GAMES."W SC0ī2100p l60000: WAIT FOR CRz 3500 4SC;" OF THE ";N;" GAMES." SC8Ģ10:"PRESS RETURN TO RECEIVE YOUR SKIING" SC8ĺ:"AWARD." ` SC7ī2900 600 201,141,240,21,201,136: 240,17,201,128,144,13U 201,160,176,9,72,132o( 53,56,233,64,76,2492 253,76,240,253<I76876827FV:I,V:IP54,0:55,3Z1002d1002d1RUCTIONS"' *****************? ** COLOR SUBR. **W *****************]kX30160{X,YX,Y12X85:970412:27:"VIOLET"/>5:Y109:970EH15:27:"ORANGE"WR6:Y133:970k\18:27:"BLUE"f22:"WHEN YOU ARE SET, PRESS RETURN TO BEGIN."pW(16384)z16368,0WCR880DC1(4);"BLOAD CHAIN,A520" 520"INST  &  *********************B  ** COLOR ADJUSTMNT **^  *********************d p :32,0w 3 "BEFORE WE BEGIN, PLEASE ADJUST YOUR" :" VIDEO MONITOR TO MATCH THESE COLORS." 1:Y60:970 9:27:"GREEN"*2:YҠΠҍŠؠͮƍӠŠŠήύ͠ӍŠƠōԠӮƍĠҍŮύӠ٠ӠӠҍƍĠӠҍΠŮύŠҠӠϠӠӍӮύӠŠύˠΠŠōŠΠӮύǠӠǮύҠ̍٠ҍԠϮύҠӠŠŠ΍ҮύŠΠӍӠΠōԮƍǠӠϠŠҍٮύϠҍӠŠčΠàĮƍ̠ΠŠŠͮύӠōӠԠǍ٠ΠŠĮύԠӠōԠōՠŠҍήύ̠ӠŠԠԠō̠ҮƍΠŠٍӠŠҍٮύ٠ӠŠԠȍƠŠҮƍŠčΠϠñΠӠҠΠȍ׮ƍӠŠōĠٮύΠӠҠƍӠŠ΍ϠŮύՠĠӠˠˍΠՠԠӮύנҧӠٍӠ٠ԮƍϠӠŠ    ,U*U*U*U* `+U*U*eP@*U*U*U*U*UPV*UT U*U*U*U**`T*U*U*U*U*UJP U*U*U*U*Pp*U*U*U*U*U *0*U*U*U*U*T U*U*UT*U*U*RT,U*U*U*U*@**@U*U*U|+U*U*D"U~>(\*U*U*U*U*U P*Ux*U @U*U*UT*U*UJ@pP(E x ((U*U*U*U* 8(U*U*T@(U*U*U*U*E@ R*U8T0U*U*U*U*** T*U*U*U*U*U P T*U*U*U*P \*U*U*U*U*U(*U*U*U*U*UUU*U*UT*U*U*R`P*U*U*U*U*@**@U*U*UT*U*U*D Ux`(H*U*U*U*U*U X*U@xU*U*UT*U*Uj@|P*E p@ (8U*U*U*U**U*U*U@)U*U*U*U*e@ S*U:          ******************8 ** ALP SKI HEADERQ ******************Wd:599002:14:"ALPINE SKIER"$6:0:1)FF132.X50FF782FFX,11=2FFX,11B2FFX,15G2FFX,15LXV3`T>> """"**6"""""""> >>> >00000>">>>>>>>>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< h`a `I?a(j`NO,0 i`j`ё(,ɍ `LSa ``"*:"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""`#`6`L`aHɠ_ɟ XɈFɕk` ɎOk`h`"%$i`j` ` `i`j`h` ` ` `L` `k`h ``H%) *n%jm$m *.%%j) @ahH)?mmiZiȘ0   ԪժժժժժժժժժժժժժժՊԪժժ՚ժժժժժՊԪժժժժժՊԪժժ?ժժժժ倀 P*ԪժժժժժժժժժժժժժժժժժՊԪժժժժժժժժժժ`Ԫժժժժժժժժժժժժժժ~ӪժՊԪժժժժժժժժժՎ@Ԫժժժժժժժժժժժ~@Ԫx~~OԪժժժժժժժժժժꀀ|?XԪժժժ?ԊԪժԪժժ  U*Ԫ{ժժժժ Ԫժժ ԪժժժժժժժժժժժժժժժՊԪժժՊժժժժժժ@Ԫ?ժժժժժϪՊԪժժժժժժP*ԪժժժժժժժժժժժժժժժժժՊԪժժժժժժժժժժ0ԪժժժժժժժժժժժժժժժժՊԪժժժժժժժժժ՘`ԪժժժժժժժժժժժpԪ>xcǪԪժժժժժժժժժժ|@?@Ԝ ԪժժժՊԪժ?ԪժժU*Ԫ?ժժժժ?Ԫժժժ ԪժժժժժժժժժժժժժժժՊԪժժժժժժժժժ`Ԫ?}}ժժժժժǪՊԪժժϪժժժժP*ԪժժժժժժժժժժժժժժժժժՊԪժժժժժժժժժժ倀8ԪժժժժժժժժժժժժժժԪժՊԪժժժժժժժժժղ0ԪժժժժժժժժժժժՌ_~Ԫ~|Ӫ Ԫժժժժժժժժժժժ|``ԺԪߪժժժՊԪժժժժՊU*ԪժժժժԪժ?ժժ倀@ԪժժժժժժժժժժժժժժժՊԪժժժժժժժժժ0Ԫozժժժժժ~ӪՊԪժժתժժժժP*ԪժժժժժժժժժժժժժժժժժՊԪժժժժժժժժժժ8 Ԫժժժժժժժժժժժժժժ?ժժՊԪժժժժժժժժժ @Ԫժժժժժժժժժժժ՚~`Ԫ~}AѪոԪժժժժժժժժժժժ~?px#           NATIONAL"-#18:20:"LEARNING CORPORATION"@#61100: CLICKP#T1500:Tc#61100: CLICKn#60000t## *********************# ** STUDENT'S NAME# *********************##:59900$61200: HEADER$6:"HI THERE. 1F#XX165:YY161!P#1XX,YY2Z#X165404K_#Y((FDX)FA)FBFCXd#1XX,YYcn#1X,Yqs#XXX:YYYxx#X#T1500:T#7:5:"ALPINE SKIER"#61100: CLICK#T1500:T#16:23:"COPYRIGHT 1981" #17:19:"IMPERIAL INTERX250:YY130!X2501704>!Y((FDX)FA)FBFE(FCX)K"1XX,YYV"1X,Yd"XXX:YYYk"Xz"1170,166)#*# ** FLAT PLANE **+#.#FA3: NO.OF NODES/#FB5: AMPLITUDE0#FC160: Y OFFSET2#FD166: X OFFSET<#3:0:3,100:232,0!X59900: HGR2 ON'L= SKIER ANIMATIONCPZ3:0:1ahT11000:Tpi1250,130nT11000:TxFA3: NO. OF NODESFB5: AMPLITUDE@FC575: Y OFFSETFD250: X OFFSET FE0.4: SLOPEB!3:0:1 H!XӍҠ̠ύήύ٠ƠԠӠčȮύҠŠ΍РԍǠҠ΍ĠҮύǠӠήύΠύӠӍٮύȍӮύӠӠŠΠύȮύ̠ӍŠǍΠ̮ύŠӠĠٍàӮƍϠԠōԠƠՍԠϠōӮƍԠӠǠǮƍΠōӠҠĮύΠӠŠӠϠ׮ƍԠӠΠύŠϮύҠ٠̠Š΍ӠԠΠӮύӠō̧ӠԍĮύҠӠŠΠĠŮƍӠčԠ٠ΠԠӠΠƍӠōӠԍȠȍŠǠЮƍԠ̠ӠŠĮƍŠҠӍŠŠƍîƍҧӠԠӠԭ΍٠Ԯƍ̠ԍӠŠΠؠ΍ٱŠԠ٠ϠŠĠӍϠˠӠƠŠŮύŠŠōӠΠҍҠͮƍ̠ӠĠŠ΍ԮύǠΠӍӠӠĮύŠΠƠϠӍҠ٠     :LL(17,2)3'q1LL(18,1)13:LL(18,2)15Ar1LL(19,1)6:LL(19,2)3\s1LL(20,1)6:LL(20,2)25xt1LL(21,1)18:LL(21,2)29u1LL(22,1)23:LL(22,2)20v1LL(23,1)2:LL(23,2)13w1LL(24,1)3:LL(24,2)21x1LL(25,1)8:LL(25,2)20y1LL(26,1)6:LL(26,2)13ŠӍŠŮύΠĮîӠŠ̍ƠŠĠӮƍӍӠˍĮύٍҍӮύŠŠ̠ӠҠǮƍ٠ōӠčӠϠōԮƍ̠ӠŠŠήƍԠӠčϠԠԠȮύ̠ӠĠ̮ύƭōήύӠĠŠŠԍϠŠ̠ԠȠŮύΠӍӠčϮƍĠӠ̠ȠōҮƍՠĠōΠύԠЮύӠĠŠčӮύӠŠΠō٠ΠΠͮύĠӠŠ̮ƍŠčΠŠĮύЭǠӠήύӍŠĠӮύŠΠӠҠԍԮƍŠ΍ӠͱˠĠӠҠȍͮύ̠ӠōΠϠŮύŠԠ٠Ϡ̠Ӡ΍ΠŮύҠȍΠōǠҍˮύŠŠӠ芊ҮƍԧӠŠ΍Ϡ     z1LL(27,1)19:LL(27,2)57{1LL(28,1)21:LL(28,2)12R|1LL(29,1)1:LL(29,2)14n}1LL(30,1)17:LL(30,2)22~1I15:LL(I,1):LL(I,2):"*":I1I1620:LL(I,1):LL(I,2):" ":I1I610:LL(I,1):LL(I,2):"*":I1W(16384)116368,0@*@+U*U*U*U*UP*U*U*UT*U*U*RT(U*U*U*U* @*@*0U*U*U+U*U* U`` V*U*U U*U*U (P*P*XbvP@*P`T*U*UT*U*U Ap(? $U*U*U*U* U*U*9Pp*U*U*U*U*PT*UT U*U*U*U**@P*U*U*U*U*UJP U*U*U*U*T@(U*U*U*U*@*`+U*U*U*U*T U*U*UT*U*U*RT,U*U*U*U* @*@*AU*U*U+U*U*"U?x T*U*U*P*U*U P*Uh~@*U*P@T*U*UT*U*UJQp(` ,U*U*U*U* `+U*U*eP@*U*U*U*U*UPV*UT U*U*U*U**`T*U*U*U*U*UJP U*U*U*U*Pp*U*U*U*U*U *0*U*U*U*U*T U*U*UT*U*U*RT,U*U*U*U*@**@U*U*U|+U*U*D"U~>(\*U*U*U*U*U P*Ux*U @U*U*UT*U*UJ@pP(E x ((U*U*U*U* 8(U*U*T@(U*U*U*U*E@ R*U8T0U*U*U*U*** T*U*U*U*U*U P T*U*U*U*P \*U*U*U*U*U(*U*U*U*U*UUU*U*UT*U*U*R`P*U*U*U*U*@**@U*U*UT*U*U*D Ux`(H*U*U*U*U*U X*U@xU*U*UT*U*Uj@|P*E p@(8U*U*U*U**U*U*U@)U*U*U*U*e@ S*U:          1:" " RP21R8:1:"SENTENCE GIVEN:"RA$B1$(II)" "B2$(II)" "B3$(II)" "B4$(II)" I))79ĺ:"STUDENT'S RESPONSE: F"G)O60000: WAIT FOR CR WITH PROMPT._,OK15:LE$(K)"":K-OA1$(II)"":A2$(II)"":A3$(II)"":A4$(II)"":F1$(II)"".O P P *******************P ** WRONG SENT.#2P *******************PR8: "CNLE$(1)""Ģ10:1:LE$(1)[NLE$(2)""ĺLE$(2)sNLE$(3)""ĺLE$(3)NLE$(4)""ĺLE$(4)NLE$(5)""ĺLE$(5)O:"CORRECT ANSWER: ";F1$(II)O(F1$(II))70ĺ:"STUDENT'S RESPONSE: O"!$O(F1$(I ";$NLE$(1)""ĺ" $(II)" "HNK1255&RNRI$(A$,K)4ZNL(A$)KD\NLE$(A$,L)fN(LE$)40(LE$,1)" "LE$(P1)LE$:P1P11:A$RI$:20100pNKN(A$)40LE$(P1)A$:20200N20040qNLE$(1)""Ģ10:1:" ENT.#1 N *******************'N  N8:1:" "%NP11*N8:1:"SENTENCE GIVEN:" 4NA$A1$(II)" "A2$(II)" "A3$(II)" "A4YOU"3!:"AGAIN SOON FOR ANOTHER GAME OF ALPINE"C`":"SKIER.""24:"PRESS RETURN TO START OVER.":45,18294,18294,19145,19145,182(#60010#(4);"BLOAD CHAIN,A520"#520"INSTRUCTIONS"NN *******************N ** WRONG S84):W128730016368,0.W141ī7900?W206ī8300Ix7300f(4);"BLOAD CHAIN,A520"u@520"MAIN"l :59900 61200: HEADER!6:NA$;","4!:"ALWAYS REMEMBER THE DIFFERENCE BETWEEN"!:"FACT AND OPINION. I HOPE TO SEE ī6800p5500II2N3NW(II,1)0İ20000JNW(II,2)0İ21000RII_:59900s61200: HEADERX6:"THANK YOU, ";NA$;".":"IF YOU WANT TO PLAY ANOTHER ROUND," :"PRESS RETURN, IF NOT, PRESS N."*16368,0W(16300 61200: HEADERI P:NA$;"'S SCORE:";25);N1;28);" ATTEMPTED,"g Q25);SC;28);" CORRECT." 8:"DO YOU WANT TO SEE THE INCORRECT" ":"RESPONSES? (Y/N)" ,16368,0 |W(16384):W1285500 16368,0 W217ī6100 W206R AS IT IS AND"> :"TELL HIM OR HER YOU ARE FINISHED. IF"p :"YOU ARE SUPPOSED TO GO ON, PRESS RETURN."~ 16368,0 W(16384):W1284300 016368,0 W148ī4900 \W141ī6800 4290 :59900 61200: HEADER $:599PT. 38007 T 60000: WAIT FOR RETURN WITH PROMPT.= W  *******************p ** TEACHER FEATURE ******************* H :59900 61200: HEADER 6:"IF YOUR TEACHER WANTS TO KNOW HOW YOU" :"DID, LEAVE THE COMPUTE." ` SC7ī2900< 60010: WAIT FOR CR WITHOUT PROMPT.T ( 62450: CLEAR HGR2\ 2 :y < (4);"BLOAD PIC.TROPHY" F 59900: HGR2 P 16:29:"SKI CHAMP" Z 17:28:"OLYMPIC CLASS" d 18:28:"ALPINE SKIER" 60000: WAIT FOR CR WITH PROMER% 6:"THAT'S ALL OF THE GAMES."8 @:"YOU WON ";` SC0ĺ"NONE OF THE ";N1;" GAMES."q SC0ī2100 l60000: WAIT FOR CR 3800 4SC;" OF THE ";N1;" GAMES." SC8Ģ10:"PRESS RETURN TO RECEIVE YOUR SKIING" SC8ĺ:"AWARD d  FILENAME: TFEATURE&,,28X>Y  ********************r ** STUDENT'S SCORE ********************R211100LE$(5)R21LT(0)V3:0:1:5990061000: ASSM x61200: HEAD          RUCTIONS"' *****************? ** COLOR SUBR. **W *****************]kX30160{X,YX,Y12XYLET">5:Y109:970,H15:27:"ORANGE">R6:Y133:970R\18:27:"BLUE"f22:"WHEN YOU ARE SET, PRESS RETURN TO BEGIN."k16368,0pW(16384):W128880z16368,0WCR880DC1(4);"BLOAD CHAIN,A520" 520"INST*************)  ** COLOR ADJUSTMNT **E  *********************K W :32,0^ 3 "BEFORE WE BEGIN, PLEASE ADJUST YOUR" :" VIDEO MONITOR TO MATCH THESE COLORS." 1:Y60:970 9:27:"GREEN" *2:Y85:970412:27:"VIO16384)(16368)130 0I026 :1:1:UO$(I);H$;M D1:39:RO$(I);V$;d N24:1:BO$(I);H$;q XI1620{ b" "; l1:1:LO$(I);V$; vI0650 D$;" "; I W(16384) 16368,0 WCR560     ********"THIS IS A DATA COMMAND";CR$: " MICROCOMPUTER";CR$\ " LEARNING PROGRAM";CR$;CR$ 20:"PRESS RETURN TO GO ON."; V$"":H$"" 32,0:34,0 I112:H$H$"* ":I:H$H$"*" I17:V$V$"*"D$" "D$" "D$:I:V$V$"*" &W(OPENING FRAME **. | *********************4 : _ UO$(0)"":UO$(1)" ":UO$(2)" " RO$(0)" "D$:RO$(1)RO$(0)RO$(0):RO$(2)"" BO$(0)"":BO$(1)" ":BO$(2)" " LO$(0)RO$(1):LO$(1)RO$(0):LO$(2)"" : :32,8:34,7 :***************** - (4);"BRUN ASSM"O "N225576256:232,232:233,N2p ,UO$(3),RO$(3),BO$(3),LO$(3) 6CR13128:NO("N")128 @Q$(34):D$(10)(8):CR$(13):UN$(21):NR$(14) J T ^ h ********************* r ** d FILENAME:HELLOn"x; ******************Q ** ALPINE SKIERZ **u ** CAUSE AND EFFECT. **  ** 4-30-81  ****************** ******************** ** INITIALIZATIONS  ***     7539,145@6JX2404+T2X,1302^XGh61850: ANS BOXMSj **************** ** ANSWER BOX ** ****************32:2"O"2,418,418,182,182,41,319,319,191,191,3F55,11055,12058,115-58,11555,1103@ POLE#1FY165,89165,62i9:23:"1"|165,62145,62145,72165,72145,72148,67145,62148,67 FINISH SIGN"18:"FINISH",1,1751,145 639,1360: Y OFFSET/FD230: X OFFSETHFE0.50: SLOPE O 3[279,42lX279110(Y((FDX)FA)FBFE(FCX)2X,Y4TH STEP."0CLANK RETURN BOX 00:1XX,YYJ*062600: MOVE SKIER FROM 2ND->3RD STEP_4062100: SENT.#2>062200: INPUT C OR E, WITH FLASHING CURSOR.H062400: ANS.T/F?R0T1250:T\0V21Ģ24:"PRESS RETURN TO GO ON.":45,18294,18294,19145,19145****************)0 ** MOVE SKIER FROMB0 ** 2ND TO 3RD STEP\0 *******************b0h 0 0XSTART188:XFINISH100:YSTART61062700: ERASE SENTENCE #102:2:" "024:" "063000: B0 /6:AA$/T1250:T./V11ī122108/CC1J/6:" "Z/T1100:Tk/V10ī12250{/W(16384)/16368,0/W141ī12300: MOVE SKIER 2ND->3RD STEP/C5ī14000: 1ST SENTENCE WIPE OUT./12170//0 ***61900:F31: READ DATA+D/62000: SENT.#1\N/62200: INPUT C OR E, WITH FLASHING CURSOR.rX/62300: ANS.T/F?b/T1250:Tl/V11Ģ24:"PRESS RETURN TO GO ON.":45,18294,18294,19145,19145,182v/62500: RETURN AA$=FACT OR OPINION./C.IIII1(.EX0COUNT1COUNT2:II2M.COUNTN1ī12750: END OF ROUNDX.T(0)e.:59900~.XSTART260:YSTART22.61340: SLOPE.XFINISH190:HOLD1.62600: MOVE SKIER DOWN SLOPE TO 1ST FLAG/PRRDī12100/F31ī12100/F THE SENTENCE IS A FACT TYPE ";(34);"F.";(34)n 6):"IF THE SENTENCE IS AN OPINION TYPE ";(34);"O.";(34)y @)60000 . . ******************* . ** START MAIN SKI- . ** SLOPE ALGORITHM . ******************* . .COUNTCOUNT1 YES EXAMPLE (W141ĪEX1. (W141ī10510G ( IF W=N, NO EXAMPLEX (W206ĪEX0j (W206ī12000u )10450 )61200: HEADER ")6:"LET'S TRY TO SKI DOWN JUST ONE SLOPE" '):"FOR PRACTICE. TWO SENTENCES WILL BE" ,):"GIVEN."0 1):"I** ( ** EXAMPLE **0 ( ****************6 (J (61200: HEADERy (6:"IF YOU WOULD LIKE TO SEE AN EXAMPLE," (:"PRESS RETURN. IF YOU ALREADY KNOW HOW" (:"TO PLAY, PRESS N." (16368,0 (W(16384) (16368,0 ( IF W=CR, ** ROUND NUMBER ?+ A( *****************1 F(; K(PRRDK P(W(16384)Y Z(16368,0k d(W177ī10380} n(W178ī10380 x(W179ī10380 (T1100:T (10320 (RDW176 (21:"OK, ROUND ";RD;" IT IS." (60000 ( ( **************L(30,2) j'R11$ '61200: HEADERR '8:"WHICH ROUND WOULD YOU LIKE TO PLAY?"j '11:" ROUND 1" (:" ROUND 2" (:" ROUND 3" (18:"PRESS THE NUMBER OF YOUR CHOICE." (3:0:1 ((1180,80 -( 2( ***************** <(6.'' FILENAME:MAIN!$'K3'II0:RD0:V12:V22:COUNT0:EX0:F30Y4'AN0:SC0k8'61000: ASSMw='D$(4)B'T(0)L'N13Q'R1110200V'A1$(13),A2$(13),A3$(13),A4$(13),B1$(13),B2$(13),B3$(13),B4$(13),F1$(13),F2$(13) `'NW(13,2),L           ! ! "     ! &1I2125:LL(I,1):LL(I,2):"*":IL1I610:LL(I,1):LL(I,2):" ":I\1W(16384)j116368,0{1WCRī127001I2630:LL(I,1):LL(I,2):"*":I1I1115:LL(I,1):LL(I,2):" ":I1126701EX1COUNT1İ62900112000: GO TOE WITH"&:"THREE LETTERS."M &:"AN OPINION IS WHAT SOMEONE THINKS OR"}*&:"BELIEVES. A FACT IS A TRUE STATEMENT."/&34&105,65154,655&105,66154,66>&96,96125,96?&96,97125,97R&60000&:59900&61200: HEADER+&ACT OR OPINION."<%:"PRESS RETURN TO SEE SOME EXAMPLES."d%60010: WAIT FOR CR WITHOUT PROMPTq%:59900%61200: HEADER%6:"EXAMPLES:"%:"IF YOU WANT MY OPINION, ROB IS A FINE"&:"NAME." &:"IF YOU WANT A FACT, ROB IS A NAMG SKILLS."]%60000b%3c% *****************Id% ** INSTRUCTIONSae% *****************gf%t%:59900%61200: HEADER%6:"TO BECOME A CHAMPION SKIER, YOU'LL HAVE"%:"TO READ SOME SENTENCES AND DECIDE"%:"WHETHER THEY ARE F%:59900!%61200: HEADER:&%6:"THANKS, ";NA$;"."k0%:"HOW WOULD YOU LIKE TO BECOME AN OLYMPIC":%:"CLASS ALPINE SKIER? TO DO IT, YOU'LL"D%:"HAVE TO SKI OUR SPECIAL SLOPE VERY"N%:"WELL. THIS IS DONE BY USING YOUR" X%:"READINEADER2$6:"HI THERE. WHAT'S YOUR FIRST NAME?"U$:"TYPE IT AND PRESS RETURN."d$1170,166q$10:NA$$NA$""9370$NA$" "9370$NA$(NA$,12)$(NA$,1)" "NA$(NA$,(NA$)1):9430$(NA$,1)" "NA$(NA$,(NA$)1):9440 #17:19:"IMPERIAL INTERNATIONAL"F#18:20:"LEARNING CORPORATION"Y#61100: CLICKi#T1500:T|#61100: CLICK#60000## *********************# ** STUDENT'S NAME# *********************##:59900$61200: H166: X OFFSET<#3:0:1-F#XX165:YY161:P#1XX,YYKZ#X165404d_#Y((FDX)FA)FBFCqd#1XX,YY|n#1X,Ys#XXX:YYYx#X#T1500:T#7:5:"ALPINE SKIER"#61100: CLICK#T1500:T#16:23:"COPYRIGHT 1981"" SLOPEB!3:0:1%H!XX250:YY1307!X2501704W!Y((FDX)FA)FBFE(FCX)d"1XX,YYo"1X,Y}"XXX:YYY"X"1170,166)#*# ** FLAT PLANE **+#.#FA3: NO.OF NODES/#FB5: AMPLITUDE0#FC160: Y OFFSET2#FD LENGTH,$82^%233,100:232,0:X59900: HGR2 ON@LV SKIER ANIMATION\iZ3:0:1zhT11000:Ti1250,130nT11000:TxFA3: NO. OF NODESFB5: AMPLITUDE@FC575: Y OFFSETFD250: X OFFSET FE0.4: ** COPYRIGHT FRAME **3  *********************9 dC ::l ,:(4);"BLOAD PIC.COPYRIGHT,A$4000" 6(4);"BLOAD SHAPETABLE,A$6400" ; @ SHAPE#1:SKIER J SHAPE#2:CIRCLE L SHAPE#3:SQUARE CURSOR O ADDRESS $6400 T SHAPETABLE I02! \1:1:UO$(I);H$;8 1:39:RO$(I);V$;O $24:1:BO$(I);H$;] I15200g " ";} P1:1:LO$(I);V$; I05500 D$;" "; |I W(16384) D16368,0 WCR4600  p  8 ********************* ,7& :"THIS IS A DATA COMMAND";CR$C <" MICROCOMPUTER";CR$e " LEARNING PROGRAM";CR$;CR$ 20:"PRESS RETURN TO GO ON."; hV$"":H$"" 32,0:34,0 0I112:H$H$"* ":I:H$H$"*" I17:V$V$"*"D$" "D$" "D$:I:V$V$"*" ** OPENING FRAME* T ******************0 6  [ UO$(0)"":UO$(1)" ":UO$(2)" " RO$(0)" "D$:RO$(1)RO$(0)RO$(0):RO$(2)"" H BO$(0)"":BO$(1)" ":BO$(2)" " LO$(0)RO$(1):LO$(1)RO$(0):LO$(2)"" :59900: HGR2 ON t32,8:34TIALIZATIONS'  ********************- C l(4);"BRUN ASSM"S DC1ī6600Y z 4UO$(3),RO$(3),BO$(3),LO$(3) CR13128:NO("N")128 Q$(34):D$(10)(8):CR$(13):UN$(21):NR$(14) ` ( ****************** d FILENAME:INSTRUCTIONS#),E *********************[ ** ALPINE SKIERdX **~ ** DETERMINING FACT  ** AND OPINION ** 7-20-81 *********************Lx ******************** @ ** INI          " \*U*U*U*U*UP*Ux@U*U*UT*U*UJpP(E x (U*U*U*U*8(U*U*@(U*U*U*U*ER*U80U*U*U*U* T*U*U*U*U*U  T*U*U*U*\*U*U*U*U*U*U*U*U*U*UU*U*UT*U*U*`*U*U*U*U*@U*U*UT*U*U*x`H*U*U*U*U*U X*U@xU*U*UT*U*Uj|P*E p@8U*U*U*U**U*U*U @)U*U*U*U*eS*U:**********~>)>XSTART96:YSTART1058>1100,105N>XFINISH80:HOLD0f>62600: MOVE SKIERx>48:160,105>T1500:T>48:160,105>32:145,125>T1500:T>32:145,125>16:135,145>T1500:T >16:135,11100,130-73:0:1A2724:1:"SORRY, NO POINTS THIS TIME."R<7T12000:TxF760000: WAIT FOR CR WITH PROMPT.P7EX1COUNT1İ62900<12000: START OVERv>x> ******************z> ** 2ND SENTENCE{> ** WIPE OUT. |> ********160:HOLD0"662600: MOVE SKIER4648:1140,60D6T1500:TV648:1140,60h632:1120,80x6T1500:T632:1120,80616:1110,1006T1500:T716:1110,100 748:190,11570:1110,105716:1120,120 (732: ******************2 ** ALP SKI HEADERK ******************Q^:59900y2:14:"ALPINE SKIER"$6)FF132.X50FF782FFX,11=2FFX,11B2FFX,15G2FFX,15LXV3`5LXV3>@ *****************/B ** RUN ASSMGD *****************MFcH(4);"BRUN ASSM"iRo **************** ** CLICK SOUND ****************S16336T15SOUND(S)(S)(S)(S)T0 X%Z *****************:\ ** WAIT FOR CRS] *****************Y^}`24:"PRESS RETURN TO GO ON."e45,18294,18294,19145,19145,182jCR13128t16368,0W(16384):W1286007016368,0:WCR60070 ROUNDS"':"IN ALL."8'::"GOOD LUCK, ";NA$;"."C'60000`'(4);"BLOAD CHAIN,A520"o'520"MAIN"|x"END": ******************* ** HGR2 SCREEN *******************16302,0:16304,016299,0:16297,OUT";(34);" AND GAIN NO POINTS.",`'600009t':59900My'61200: HEADER~'6:"IF YOU EARN 8 POINTS, YOU WIN A SPECIAL"':"TROPHY FOR BECOMING AN OLYMPIC CLASS"':"ALPINE SKIER. THERE ARE 12 RACES IN"':"EACH ROUND. THERE ARE THREEYOU MAKE IT THROUGH">$':"THE FIRST GATE. THEN YOU'LL GET"h.':"ANOTHER SENTENCE. IF YOU ANSWER"8':"CORRECTLY AGAIN, YOU'LL CROSS THE"B':"FINISH LINE AND EARN A POINT. IF YOU"L':"ARE WRONG AT ANY TIME, YOU'LL ";(34);"WIPE"!V':"6:"I'LL GIVE YOU A SENTENCE THAT MAY BE A"H&:"FACT OR AN OPINION."~&::"IF IT IS A FACT, TYPE ";(34);"F";(34);"."&::"IF IT IS AN OPINION, TYPE ";(34);"O";(34);"."&60000':59900'61200: HEADER'6:"IF YOU ARE RIGHT, *U*U*U*U*0T*UJ*U*U*U*U*H*U U*U*U*U*Q*U*U*U*U*Ub0U*U*U*U*U*U*U*U*9@)T*U*U*U*UU*U*UT*U*U*8U*U*U*U* U*U*U+U*U*p?uWR*U*UbW*U*UP*U|@X*tm~?6w  T*U*UT*U*U*(|.U*U*U*U*T*U**U*U*U*U*\*U U*U*U*U @Q*U*U*U*U*UJ U*U*U*U*@!U*U*U*U*e@+U*U*U*U*UU*U*UT*U*U*(U*U*U*U* 0U*U*U+U*U*``V*U*U U*U*U P*Xbv`T*U*UT*U*U p(?$U*U*U*U* U*U*9p*U*U*U*U*@T*U U*U*U*U*@P*U*U*U*U*UJ U*U*U*U*@(U*U*U*U*@`+U*U*U*U*U*U*UT*U*U*,U*U*U*U* U*U*U+U*U*?xT*U*U*P*U*U P*Uh~@T*U*UT*U*UJp(`,U*U*U*U* `+U*U*e@*U*U*U*U*UV*U U*U*U*U*`T*U*U*U*U*UJ U*U*U*U*p*U*U*U*U*U 0*U*U*U*U*U*U*UT*U*U*,U*U*U*U*U*U*U|+U*U*~>45 >48:120,155% >0:145,1507 >16:145,170I >32:120,180V >3:0:1 ?24:1:"SORRY, NO POINTS THIS TIME." ?T12000:T ?60000: WAIT FOR CR WITH PROMPT. ?EX1COUNT1İ62900 A12000: START OVER ! ********** U*U*U*U*F*U*U*U*U*UU*U*U*U*@W*U*U*Ur*U*U*U*U*5U*U*UT*U*U*pxU*U*U*U* T*U*U*U*U*U x|W*U*UT*U*U"~P*E`Y*U*U*U*U*U@U*U*UT*U*U*?~+U*U*U*U*%Q*UzH*U*U*U*U*UH*U U*U*U*U*@B*U*U*U*U*UU*U*U*U*pT*U*U*U +U*U*U*U*%U*U*UT*U*U*~U*U*U*U* U*U*U*U*U*U*`|V*U*T*U*U2@?P*E@?H(U*T*A UU*U*UT*U*U*|@"U*U*U*U*5`U*UJX*U*U*U*U*UH*U U*U*U*U*S*U*U*U*U*U2U*U*U*U*U*U*U*U* )U*U*U*U*eU*U*UT*U*U*@U*U*U*U*0U*U*U*U*U*U*|XE?|V*U*U8T*U*U`_*UH*A"`U0T*U*UT*U*U*`p*********! ** HGR2 SCREEN8! *******************>!V!16302,0:16304,0n!16299,0:16297,0t!z!X!Z *****************!\ ** WAIT FOR CR!] *****************!^!`24:1:"PRESS RETURN TO GO ON. "$"eTHE SLOPES FOR REAL." 960000&9,9G9 ********************a9 ** BLANK RETURN BOX|9 ********************990:45,18294,18294,19145,19145,182:39"II *******************9959900: HGR2:":"THAT'S A45,18294,18294,19145,19145,1822"jCR13128@"t16368,0]"W(16384):W12860070x"16368,0:WCR60070~"">"@ *****************"B ** RUN ASSM"D *****************"F"H(4);"BRUN ASSM""R"# ***********,K)ZNL(A$)K!\NLE$(A$,L)xfN(LE$)40(LE$,1)" "(LE$)40(LE$,1)"."LE$(PN)LE$:PNPN1:A$RI$:20100pNKN(RI$)32ī20200N20040NK15NLE$(K)""ĺLE$(K)OKO:"CORRECT ANSWER: ";F1$(I)O(F1$(I))67ĺ: "%NPN1*N8:1:"SENTENCE GIVEN:"4NA$A1$(I)" "A2$(I)" "A3$(I)" "A4$(I)" "HNK1255RNRI$(A$24:"PRESS RETURN TO START OVER.",(#60010I#(4);"BLOAD CHAIN,A520"`#520"INSTRUCTIONS"fNN *******************N ** WRONG SENT.#1N *******************N  N8:1:" 9100x7300,(4);"BLOAD CHAIN,A520";@520"MAIN"Hl :59900\ 61200: HEADER4!6:"ALWAYS REMEMBER THE DIFFERENCE BETWEEN"!:"CAUSE AND EFFECT. I HOPE TO SEE YOU"!:"AGAIN SOON FOR ANOTHER GAME OF ALPINE"`":"SKIER."!"WW(II,2)0İ20100dI II+,600008:59900L61200: HEADERaX6:"THANK YOU.":"IF YOU WANT TO PLAY ANOTHER ROUND," :"PRESS RETURN, IF NOT, PRESS N."W(16384)16368,0LT1200:TW141ī7900W206. I1N:WW(I,1)NW(I,1):WW(I,2)NW(I,2):IY 8:"DO YOU WANT TO SEE THE INCORRECT"s ":"RESPONSES? (Y/N)" |W(16384) 16368,0 DT150:T W217ī6100 W206ī6800 p5500 II1N 8I12 WW(II,1)0İ20000KIP"A h:"THE ";(34);"TEACHER FEATURE";(34);" PRESS RETURN."Q W(16384)_ 016368,0o T1100:T W148ī4900 \W141ī8300 4300 $:59900 61200: HEADER 5:12:"TEACHER FEATURE" P10:"STUDENT'S SCORE: ";SC;"/";N :59900! 61200: HEADERP t6:"NOW FOR THE TEACHER FEATURE. IF THE"| :"TEACHER WANTS TO SEE THE STUDENT'S" <:"RESULTS, HE OR SHE CAN DO SO JUST BY" :"HOLDING DOWN THE (CTRL) KEY AND" :"PRESSING (T). WHY NOT TRY IT? TO S10: WAIT FOR CR WITHOUT PROMPT.8 ( 62450: CLEAR HGR2a 60010: WAIT FOR CR WITHOUT PROMPT.} 3500: TEACHER FEATURE T 60000: WAIT FOR RETURN WITH PROMPT.  ******************* ** TEACHER FEATURE ******************* H F THE GAMES." @:"YOU WON ";F SC0ĺ"NONE OF THE ";N;" GAMES."W SC0ī2100p l60000: WAIT FOR CRz 3500 4SC;" OF THE ";N;" GAMES." SC8Ģ10:"PRESS RETURN TO RECEIVE YOUR SKIING" SC8ĺ:"AWARD." ` SC7ī2900 600d  FILENAME: TFEATURE&,,28X>Y  ********************r ** STUDENT'S SCORE ********************LE$(5)LT(0)V3:0:1:5990061000: ASSMx61200: HEADER 6:"THAT'S ALL OLL OF I0:1$)FF132$.X50FF7.$82FFX,11=$=2FFX,11L$B2FFX,15[$G2FFX,15b$LXi$V3o$`u$t$~ *****************$ ** SLOPE & FLAGS$ *****************$$:59900$ SLOPE EQUATION$%FA14: NO.OF NOD*****# ** CLICK SOUND1# ****************7#D#S16336O#T15m#SOUND(S)(S)(S)(S)t#Tz### ******************# ** ALP SKI HEADER# ******************##:59900#2:14:"ALPINE SKIER"$$6:Š٠ӠλŠ٠ӮÍŠÍԠӠĻŠҠӮÍРȻŠӠϠήÍԠٻˠΠŠԠήō!******************* ** ALP SKI HEADERC ******************IV:59900q2:14:"ALPINE SKIER"~$6:0:1)FF132.X50FF782FFX,11=2FFX,11B2FFX,15G2FFX,15LXV3`@ *****************'B ** RUN ASSM?D *****************EF[H(4);"BRUN ASSM"aRg~ **************** ** CLICK SOUND ****************S16336T15SOUND(S)(S)(S)(S)T Z *****************/\ ** WAIT FOR CRH] *****************N^r`24:"PRESS RETURN TO GO ON."e45,18294,18294,19145,19145,182jCR13128W(16384)16368,0WCRī60130T150:T60070>"STUDENT'S RESPONSE: E"E$O(F1$(I))69ĺ:"STUDENT'S RESPONSE: C"k)O60000: WAIT FOR CR WITH PROMPT.q.Ow ******************* ** HGR2 SCREEN *******************16302,0:16304,016299,0:16297,0XES%FB6: AMPLITUDE-%FC360: Y OFFSETC%FD230: X OFFSETW%FE0.50: SLOPE^% 3j%279,42{%X279110%(Y((FDX)FA)FBFE(FCX)%2X,Y%