' +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Ԫ~_~{ժժժժ~ Ԫժժ 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@*@+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 ԪתժժժϊԪժժժ#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:' CLOSEN1$ CLOSEN2$E dD$(4))n"INPUT FILENAME: ";N1$Fs"OUTPUT FILENAME: ";N2$YxD$;"OPEN";N1$l}D$;"OPEN";N2$D$;"READ";N1$D$;"WRITE";N2$RL"RECORD LENGTH: ";RLI1RL1A$LN(A$)(A$,3)"REM"A$""A$ IT 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 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 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 THIS IS A TEST.A$"WAYNE CHANNELL"H NOW PRINT THE NAME.P(A$j2 NOW PRINT IT AGAIN.<A$: SECOND NAME.A/";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'94,18294,19145,19145,182:3%+"***********:59900/*61200: HEADERV*6:"I THINK YOU'VE GOT THE IDEA."*:"NOW LET'S GO TO THE SLOPES FOR REAL."*60000*** ********************* ** BLANK RETURN BOX* *********************+0:45,182** DRAW "POINT" BOX.)L ********************4)NI)P1:" "^)U2:" "s)Z3:" "z)_3)d2,474,474,182,182,4)n1,375,375,191,191,3))) *****************) ** END OF EXAMPLE* *********8294,18294,19145,19145,182:3'("*d(VT16:HT20:A$" ": 20 SPACESt(#VT:HT:A$((VT1:HT:A$(-VT2:HT:A$(2VT3:HT:A$(3VT4:HT:A$(46:A$(57:A$(7(F(H ********************)J 2:" "%'Z3:" ",'_3I'd2,474,474,182,182,4f'n1,375,375,191,191,3l'y':59900'61200: HEADER'6:"I THINK YOU'VE GOT THE IDEA."':"NOW LET'S GO TO THE SLOPES FOR REAL."'60000'!(0:45,1&I04:4I:A$:I&&20:15:A$6&21:15:A$<&r&VT16:HT20:A$" ": 20 SPACES&#VT:HT:A$&(VT1:HT:A$&-VT2:HT:A$&2VT3:HT:A$&3VT4:HT:A$&46:A$&57:A$&7&P1:" "'U(F2$(II))%`AA$B$(II,V)"%j8%FC310: Y OFFSET?%3W%XXXSTART:YYYSTARTd%1XX,YYy%XXXXFINISH4%Y((FDX)FA)FBFE(FCX)%1XX,YY%1X,Y%XXX:YYY%X%HOLD0ĕ1XX,YY%%A$" ": 15EX1COUNT062380$$NW(II,1)V19$V10NW(II,2)1?$H$V21Y$I(F2$(II))x$AN$(II,2)B$(II,I)ĪV20$EX1COUNT0ī62480$NW(II,2)V2: NW ARRAY IS USED IN THE TEACHER FEATURE.$$$V(F1$(II))$.AA$A$(II,V)$8 %VV32,0# 34,0:35,24#N#*24:"TYPE THE ONE THAT'S DIFFERENT. "_#433,25:32,0o#534,5:35,7#96:AN$(II,2)#:(AN$(II,2))162265#=33,40:32,0#>34,0:35,24#H#\V11#aI(F1$(II))#fAN$(II,1)A$(II,I)ĪV10$pT:B$(II,1)#"VT1:HT:B$(II,2);"VT2:HT:B$(II,3)S"VT3:HT:B$(II,4)k"VT4:HT:B$(II,5)q""24:"TYPE THE ONE THAT'S DIFFERENT. ""33,25:32,15"34,19:35,21"20:AN$(II,1)"(AN$(II,1))162215# 33,40:D 3" !RL!I1N"!J15/!A$(I,J)6! JB!F1$(I)M!J15Z!B$(I,J)a!Jm!F2$(I)t!I!D$;"CLOSE"!!!04:A$(II,1)!:5:A$(II,2)!D6:A$(II,3)!N7:A$(II,4)!X8:A$(II,5)!b!VT16:HT20 "VT:HNISH SIGN ! "18:"FINISH"2 ,1,1751,145E 639,17539,145L @6Z JX2404g T2X,130n ^Xt 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 ROUN5,13575,110x15:10:"2"075,12055,120C75,11055,110V55,12058,115i58,11555,110o| POLE#1165,89165,629:23:"1"165,62145,62145,72165,72145,72148,67145,62148,67  FI SLOPE EQUATION/FA14: NO.OF NODESDFB6: AMPLITUDEZFC360: Y OFFSETpFD230: X OFFSETFE0.50: SLOPE 3279,42X279110(Y((FDX)FA)FBFE(FCX)2X,Y32:145,125!>16:135,1451>T1500:TC>16:135,145U>48:120,155f>0:145,150x>16:145,170>32:120,180>3:0:1?24:"SORRY, NO POINTS THIS TIME. " ?T12000:T?60000 ?EX1COUNT1İ62900 POINTS THIS TIME. "/<7T12000:T:F760000SP7EX1COUNT1İ62900^<12000w>XSTART96:YSTART105>1100,105>XFINISH80:HOLD0>62600>48:160,105>T1500:T>48:160,105>32:145,125>T1500:T1140,606T1500:T+648:1140,60=632:1120,80M6T1500:T_632:1120,80r616:1110,1006T1500:T716:1110,100 748:190,11570:1110,105716:1120,120(732:1100,130-73:0:12724:"SORRY, NOLL(I,2):"*":I71I1115:LL(I,1):LL(I,2):" ":IB112670[1EX1COUNT1İ62900f112000s1:59900~1T(0)2(4);"BLOAD CHAIN,A520"(2520"TFEATURE"6XSTART188:YSTART6161192,616XFINISH160:HOLD0662600 648:4)116368,0!1WCRī12700H1I1620:LL(I,1):LL(I,2):"*":Im1I15:LL(I,1):LL(I,2):" ":I1I2125:LL(I,1):LL(I,2):"*":I1I610:LL(I,1):LL(I,2):" ":I1W(16384)116368,01WCRī127001I2630:LL(I,1):I(1I1620:LL(I,1):LL(I,2):" ":IN1I610:LL(I,1):LL(I,2):"*":I^1W(16384)l116368,0}1WCRī127001I2125:LL(I,1):LL(I,2):" ":I1I1115:LL(I,1):LL(I,2):"*":I1I2630:LL(I,1):LL(I,2):" ":I1W(163820v1LL(23,1)2:LL(23,2)138w1LL(24,1)3:LL(24,2)21Sx1LL(25,1)8:LL(25,2)20ny1LL(26,1)6:LL(26,2)13z1LL(27,1)19:LL(27,2)5{1LL(28,1)21:LL(28,2)12|1LL(29,1)1:LL(29,2)14}1LL(30,1)17:LL(30,2)22~1I15:LL(I,1):LL(I,2):"*":LL(13,2)15&m1LL(14,1)2:LL(14,2)31Bn1LL(15,1)23:LL(15,2)33^o1LL(16,1)14:LL(16,2)36yp1LL(17,1)12:LL(17,2)3q1LL(18,1)13:LL(18,2)15r1LL(19,1)6:LL(19,2)3s1LL(20,1)6:LL(20,2)25t1LL(21,1)18:LL(21,2)29u1LL(22,1)23:LL(22,2))31c1LL(4,1)20:LL(4,2)248d1LL(5,1)23:LL(5,2)39Qe1LL(6,1)19:LL(6,2)8kf1LL(7,1)17:LL(7,2)33g1LL(8,1)15:LL(8,2)1h1LL(9,1)3:LL(9,2)38i1LL(10,1)11:LL(10,2)5j1LL(11,1)22:LL(11,2)11k1LL(12,1)5:LL(12,2)15 l1LL(13,1)15:.1EX1COUNT1ī12610$81SCSC1@B1SC1Ģ2:2:"1 POINT!"^L1SC1Ģ2:2:SC;" POINTS"V124:"PRESS RETURN TO GO ON.":45,18294,18294,19145,19145,182[1W0:16368,0`1LL(1,1)4:LL(1,2)29a1LL(2,1)10:LL(2,2)13b1LL(3,1)7:LL(3,2 >#@ *****************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:WCR6007024:" "9063000H02:2:" "b0XSTART100:XFINISH24x1YSTART105:HOLD110:1XX,YY162600$11:" "&12:" "(13:" ")162800*1EX1COUNT1Ģ2:2:"1 POINT !"8294,18294,19145,19145,182)f062550Jp06V:" "Zz0T1100:Tk0V21ī12440u0CC106V:AA$0T1250:T0V20ī124900W(16384)016368,00W141ī125100C5ī16000012400062750.0ī14000, 0XSTART188:XFINISH100:YSTART617062700k024:" "v063000 00:1XX,YY*0626004062100>062250H062400R0T1250:T\0V21Ģ24:"PRESS RETURN TO GO ON. ":45,1N.":45,18294,18294,19145,19145,1822v/62500:/C0m/3V:" "}/T1100:T/V11ī12210/CC1/3V:AA$/T1250:T/V10ī12250/W(16384)/16368,0/W141ī12300/C5190:HOLD1 .62600' /PRRDī121008 /F31ī12100H /61900:F31S D/62000^ N/62200i X/62300 ]/24:" " b/T1250:T'l/V11Ģ24:" ":24:"PRESS RETURN TO GO OELONG. TYPE YOUR"? 6):"ANSWER, THEN PRESS RETURN TO SEE IF"Y ;):"YOU ARE CORRECT."d @)60000v .COUNTCOUNT1 .IIII1 .EX0COUNT1COUNT2:II2 .COUNTN1ī12750 .T(0) .:59900 .XSTART260:YSTART22 .61340 .XFINISHЭW141ĪEX1 (W141ī10510/ (W206ĪEX0A (W206ī12000L )10450W )61200 ")6:"LET'S TRY TO SKI DOWN JUST ONE SLOPE" '):"FOR PRACTICE. I'LL GIVE YOU A SET OF" ,):"WORDS OR PHRASES. DECIDE WHICH WORD" 1):"OR PHRASE DOES NOT B0:T (10320 (RDW176? (21:"OK, ROUND ";RD;" IT IS."J (60000U (61200 (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 (E TO PLAY?"# '11:" ROUND 1"9 (:" ROUND 2"O (:" ROUND 3"{ (18:"PRESS THE NUMBER OF YOUR CHOICE." (3:0:1 ((1180,80 K(PRRD P(W(16384) Z(16368,0 d(W177ī10380 n(W178ī10380 x(W179ī10380 (T110 ******************4 ** ALP SKI HEADERM ******************S`:59900{2:14:"ALPINE SKIER"$6:0:1)FF132.X50FF782FFX,11=2FFX,11B2FFX,15G2FFX,15LXV3`F16299,0:>@ *****************1B ** RUN ASSMID *****************OFeH(4);"BRUN ASSM"kRq **************** ** CLICK SOUND ****************S16336T15SOUND(S)(S)(S)(S)TPINE SKIER"$6:0:1#)FF1322.X50FF7A82FFX,11P=2FFX,11_B2FFX,15nG2FFX,15uLX|V3`RXV3`R45,19145,182jCR13128t16368,0W(16384):W1286007016368,0:WCR60070 ****************- ** CLICK SOUNDD ****************JWS16336bT15SOUND(S)(S)(S)(S)T ****************** ** ALP SKI HEADER ******************:59900 2:14:"ALURN TO GO ON."7e45,18294,18294,19145,19145,182EjCR13128St16368,0pW(16384):W1286007016368,0:WCR60070>@ *****************B ** RUN ASSMD *****************FH(4);"BRUN ASSM"R "S/ *******************D ** HGR2 SCREEN^ *******************d|16302,0:16304,016299,0:16297,0XZ *****************\ ** WAIT FOR CR] *****************^`24:"PRESS RET&RI(F2$(II));R:"CORRECT ANSWER:";CR$;20);B$(II,I)kS:"STUDENT'S RESPONSE:";CR$;20);AN$(II,2)S60000: WAIT FOR CR WITH PROMPT.S9:I15:20);" ":I S::20);" " *S::20);" P ** WRONG SENT.#21P *******************7PR8:" "R8:"WORDS GIVEN:"RCR$(13)RI15!R20);B$(II,I):I " 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 7 ******************** 7N70:45,18294,18294,19145,19145,182:3T7"45,182:3g7"7F7H ********************7J ** DRAW "POINT" BOX7L ********************7N7P1:" "7U2:" "8Z3:" FOR REAL."6600006!6<6 ********************V6 ** BLANK RETURN BOXq6 ********************w660:45,18294,18294,19145,19145,182:36"AL."660000666 ********************6 ** BLANK RETURN BOX*****************5 ** BLANK RETURN BOXE5 ********************K5y50:45,18294,18294,19145,19145,182:35"***********55:59900561200: HEADER56:"I THINK YOU'VE GOT THE IDEA." 6:"NOW LET'S GO TO THE SLOPES 75,191,191,34424 *****************J4 ** END OF EXAMPLEb4 *****************h4u4:59900461200: HEADER46:"I THINK YOU'VE GOT THE IDEA."4:"NOW LET'S GO TO THE SLOPES FOR REAL."460000445 ****:A$33VT4:HT:A$!346:A$,357:A$23783FS3H ********************m3J ** DRAW "POINT" BOX3L ********************3N3P1:" "3U2:" "3Z3:" "3_33d2,474,474,182,182,44n1,375,3( )'1638463'II0:RD0:V12:V22:COUNT0:EX0:F30D4'AN0:SC0O8'61000[='D$(4)fB'T(0)oL'N13Q'R1110200V'A$(13,5),B$(13,5),F1$(13),F2$(13)['AL$(5)`'NW(13,2),LL(30,2)j'R11'61200 '8:"WHICH ROUND WOULD YOU LIK                  20);A$(II,I)<O:"STUDENT'S RESPONSE:";CR$;20);AN$(II,1)b)O60000: WAIT FOR CR WITH PROMPT..O9:I15:20);" ":I8O::20);" "BO::20);" "O P P *******************N  N8:1:" "*N8:"WORDS GIVEN:"/NCR$(13)4NI159N20);A$(II,I):I>NI(F1$(II)) O:"CORRECT ANSWER:";CR$;OR ANOTHER GAME OF ALPINE SKIER."n"24:"PRESS RETURN TO START OVER.":45,18294,18294,19145,19145,182y(#60010#(4);"BLOAD CHAIN,A520"#520"INSTRUCTIONS"NN *******************N ** WRONG SENT.#1N *******************16368,0W141ī79000W206ī8300:x7300W(4);"BLOAD CHAIN,A520"f@520"MAIN"sl :59900 61200: HEADER!6:NA$;","4!:"ALWAYS REMEMBER HOW TO CATAGORIZE WORDS"!:"AND PHRASES. I HOPE TO SEE YOU SOON"!!:"F0 II2N$NW(II,1)0İ20000;NW(II,2)0İ21000CIIP:59900d61200: HEADERX6:"THANK YOU, ";NA$;".":"IF YOU WANT TO PLAY ANOTHER ROUND," :"PRESS RETURN, IF NOT, PRESS N."*16368,0W(16384):W12873000: HEADER< P4:NA$;"'S SCORE:";25);N1;29);"ATTEMPTED"X Q25);SC;29);"CORRECT" 8:"DO YOU WANT TO SEE THE INCORRECT" ":"RESPONSES? (Y/N)" ,16368,0 |W(16384):W1285420 16368,0 W217ī6100 W206ī6800p550ND"2 :"TELL HIM OR HER YOU ARE FINISHED. IF"d :"YOU ARE SUPPOSED TO GO ON, PRESS RETURN."r 16368,0 W(16384):W1284300 016368,0 W148ī4900 \W141ī6800 4290 :59900 61200: HEADER $:59900 61200+ T 60000: WAIT FOR RETURN WITH PROMPT.1 K  *******************d ** TEACHER FEATURE~ ******************* H :59900 61200: HEADER 6:"IF YOUR TEACHER WANTS TO KNOW HOW YOU" :"DID, LEAVE THE COMPUTER AS IT IS A7ī29000 60010: WAIT FOR CR WITHOUT PROMPT.H ( 62450: CLEAR HGR2P 2 :m < (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 PROMPT. 380THAT'S ALL OF THE GAMES.", @:"YOU WON ";T SC0ĺ"NONE OF THE ";N1;" GAMES."e SC0ī2100~ l60000: WAIT FOR CR 3800 4SC;" OF THE ";N1;" GAMES." SC8Ģ10:"PRESS RETURN TO RECEIVE YOUR SKIING" SC8ĺ:"AWARD." ` SCЃd  FILENAME: TFEATURE&,,28X>Y  ********************r ** STUDENT'S SCORE ********************R211100R21LT(0)V3:0:1:5990061000: ASSMx61200: HEADER 6:"                  4I:A$:I220:15:A$+221:15:A$1272Q2 *******************h2 ** ERASE SENT.#22 *******************22VT16:HT20:A$" ": 20 SPACES2#VT:HT:A$2(VT1:HT:A$2-VT2:HT:A$32VT3:HT9,2)38"i1LL(10,1)11:LL(10,2)5>j1LL(11,1)22:LL(11,2)11Yk1LL(12,1)5:LL(12,2)15ul1LL(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)36p1LL(17,1)12:LL(17,2)3q1LL(18,1)13:LL(18,2)15m :16302,0:16304,0316299,0:16297,0>d33,20In32,20O_10:20:A$k24:A$A 0"INSTRUCTIONS"- *****************E ** COLOR SUBR. **] *****************cqX30160X,YX,Y12X92:Y85:970#412:27:"VIOLET"5>5:Y109:970KH15:27:"ORANGE"]R6:Y133:970q\18:27:"BLUE"f22:"WHEN YOU ARE SET, PRESS RETURN TO BEGIN."pW(16384)z16368,0WCR880DC1(4);"BLOAD CHAIN,A520"52   ,  *********************H  ** COLOR ADJUSTMNT **d  *********************j v :32,0} 3 "BEFORE WE BEGIN, PLEASE ADJUST YOUR" :" VIDEO MONITOR TO MATCH THESE COLORS." 1:Y60:970 9:27:"GREEN" *D$" "D$:I:V$V$"*"4 &W(16384)(16368)130? 0I02U :1:1:UO$(I);H$;l D1:39:RO$(I);V$; N24:1:BO$(I);H$; XI1620 b" "; l1:1:LO$(I);V$; vI0650 D$;" "; I W(16384) 16368,0 WCR56062450 :32,8:34,7< :"THIS IS A DATA COMMAND";CR$Y " 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$" "************) r ** OPENING FRAME **F | *********************L R w 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)"" ::ONS  ********************$ / 16384E (4);"BRUN ASSM"g "N225576256:232,232:233,N2 ,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 *********d FILENAME:HELLOn"x; ******************Q ** ALPINE SKIERZ **v ** CATAGORIZING WORDS ** AND PHRASES. ** 08-10-81 ****************** ******************** ** INITIALIZATI        X,YY1XXXXFINISH491Y((FDX)FA)FBFE(FCX)F11XX,YYQ11X,Y_1XXX:YYYf1X{1HOLD0ĕ1XX,YY111 ******************1 ** ERASE SENT.#11 ******************11A$" ": 15 2I04:O THE SLOPES FOR REAL.""060000(0.0H0 ** BLANK RETURN BOXN0|00:45,18294,18294,19145,19145,182:30"IVE SKIER DOWN0 ** SLOPE0 *******************00FC310: Y OFFSET030XXXSTART:YYYSTART11X" "!/U2:" "6/Z3:" "=/_3Z/d2,474,474,182,182,4w/n1,375,375,191,191,3}/// ** END OF EXAMPLE//:59900/61200: HEADER/6:"I THINK YOU'VE GOT THE IDEA."0:"NOW LET'S GO T.. ** ERASE SENT.#2%.[.VT16:HT20:A$" ": 20 SPACESm.#VT1:HT:A$.(VT2:HT:A$.-VT3:HT:A$.2VT4:HT:A$.3VT5:HT:A$.46:A$.57:A$.7.H.J ** DRAW "POINT" BOX.L /P1:XFINISH4+-Y((FDX)FA)FBFE(FCX)8-1XX,YYC-1X,YQ-XXX:YYYX-Xm-HOLD0ĕ1XX,YYs-y-- ** ERASE SENT.#1--A$" ": 25 SPACES-I04:3I:A$:I-20:15:A$-21:15:A$.$(II)),.AA$A$(II,V),8#,N9,P ** -- #2 --R,R ** FACT OR OPINIONX,Ti,VV(F2$(II))z,`AA$B$(II,V),j,, ** MOVE SKIER DOWN, ** SLOPE,,FC310: Y OFFSET,3,XXXSTART:YYYSTART,1XX,YY -XXX9145,19145,182"[1W0:16368,0;`1LL(1,1)4:LL(1,2)29Ua1LL(2,1)10:LL(2,2)13nb1LL(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)33g1LL(8,1)15:LL(8,2)1h1LL(9,1)3:LL(,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 SJ)(A$,LP,RPLP1):LPI1! I7 "I16:AL$(I):I> ,KN 6D$;"CLOSE" D) <J1I F:A$(J) PJ3 ZD$;"CLOSE ";Z$I dD$;"NOMON C,I,O"U nAL$(6)l D$;"OPEN ROUND 7" D$;"WRITE ROUND 7" I NI K1N LP1:RP1:J0 LN(A$(K)) A$A$(K) I1LN (A$,I,1)(64)RPI1:JJ1:AL$(P 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 RUE--- V2=1!+ ** FALSE-- V2=0'+0+V21A+I(F2$(II))`+AN$(II,2)B$(II,I)ĪV20y+EX1COUNT0ī62480+NW(II,2)V2: NW ARRAY IS USED IN THE TEACHER FEATURE.+++ ** -- #1 --+ ** FACT OR OPINION+ ,$V(F1GHT OR WRONG ?$*V ** TRUE--- V1=1:*W ** FALSE-- V1=0@*XI*\V11Z*aI(F1$(II))y*fAN$(II,1)A$(II,I)ĪV10*pEX1COUNT062380*NW(II,1)V1*V10NW(II,2)1*** ** SECOND SENTENCE* ** RIGHT OR WRONG ? + ** T "&12:" ".(13:" "D)162800: DRAW BOXi*1EX1COUNT1Ģ2:2:"1 POINT !".1EX1COUNT1ī1261081SCSC1B1SC1Ģ2:2:"1 POINT!"L1SC1Ģ2:2:SC;" POINTS"V124:"PRESS RETURN TO GO ON.":45,18294,18294,112400$062750: ERASE SENTENCE #2X024:" "w063000: BLANK RETURN BOX.02:2:" "0XSTART100:XFINISH241YSTART105:HOLD110:1XX,YY162600: MOVE SKIER FROM 3RD->4TH STEP.$11:" ύƭŠōӠŠŮύΠĮîӠŠ̍ƠŠĠӮƍӠӍˠĮύҍ̍ҍōٍǍٍٍčҍčō͍ǍԍǍԍōύǍōōōčҍ΍׍ōǠ͍͍΍͍Ӎȍҍԍԍ̍ԍ΍Ѝ΍΍ҍٍԍҍҍҍύנōōҍԍƍ̍΍ӍӍӍӍӍҍӍԍԍǍ΍ˍōˍԍ͍ōҍǍԍӍ΍ԍ΍Ӎč̍΍΍׍ōōōбӍӍӍō΍΍̍ō΍ȍ̍ҍōōčˍҍčōҍٍٍٍҍӍčӍōōōčٍٍ̍̍   T ANSWER #2)&C)*24:"TYPE THE ONE THAT'S DIFFERENT. "T)433,20:32,0d)534,5:35,7v)96:AN$(II,2)):(AN$(II,2))162265)=33,40:32,0)>34,0:35,24)CAN$(II,2)(AN$(II,2),20))H)S)T ** FIRST SENTENCE*U ** RId[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ӍӠҠ̍Ϡήύ٠ƠԠӠčȮύҠŠΠРԠǍҠΠĠҮύǠӠήύΠϠӍӠٮύԍ٠ȠӮύӠӠŠΠύȮύ̠ӠōǠ΍̮ύŠӠĠٍàӮƍϠԠŠԍƠՠԠύŠӮƍԠӠǠǮƍΠΠҠĮύΠӠŠӠϠ׮ƍԠӠΠύŠϮύҠ٠̠ŠΠӍԠΠӮύӠŞ̌ӠԠĮύҠӠŠΠĠŮƍӠĠΠԠӠΠƍӠŠӍԠȠȠōǠЮƍԠ̠ӠŠĮƍŠҠӍŠŠƠîƍҧӠԠӠԭ΍٠Ԯƍ̠ԍӠŠ΍ؠנӠŠŠҠ̠Ġ΍ (( ** GET ANSWER #1%(W(24:"TYPE THE ONE THAT'S DIFFERENT. "i(33,20:32,20{(34,19:35,21(20:AN$(II,1)((AN$(II,1))162215( 33,40:32,0( 34,0:35,24(AN$(II,1)(AN$(II,1),20)((" )$ ** GE'03:A$(II,1) ':4:A$(II,2)1'D5:A$(II,3)B'N6:A$(II,4)S'X7:A$(II,5)Y'b_'p' ** SENT #2v''VT17:HT20'VT:HT:B$(II,1)'VT1:HT:B$(II,2)'VT2:HT:B$(II,3)'VT3:HT:B$(II,4)'VT4:HT:B$(II,5)(ԠҍΠҠŠ؍ͮƍӠŠŠήύ͠ӠōƠŠԍӮƍĠԠ҇ΠӠĠҍŮύӠ٠ӠӠҍƍĠӠҍΠŮύŠҠӠϠӠӍӮύӠŠϠˍΠŠŠōΠӮύǠӠǮύҠٍ̠ҠϮύҠӠŠŠ΍ҮύŠΠӍӠΠōԮƍǠӠϠŠҍٮύϠҠӍŠĠ΍àĮƍ̠ΠŠŠͮύӠōRD2ĺD$;"OPEN ROUND 2":D$;"READ ROUND 2"Z&RD3ĺD$;"OPEN ROUND 3":D$;"READ ROUND 3"b&RLm&I1Nx&J15&A$(I,J)& J&F1$(I)&J15&B$(I,J)&J&F2$(I)&I&D$;"CLOSE"&!&(&* ** SENT. #1&,ԠǍ٠ΠŠĮύԠӠōԠŠՍŠҠήύ̠ӠŠԠԠō̠ҮƍΠŠٍӠŠҍٮύ٠ӠŠԠȍƠŠҮƍŠčΠϠʍƍ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ӍҠ̠ύήύ٠ƠԠӠčȮύҠŠ΍РԍǠҠ΍ĠҮύǠӠήύΠύӠӍٮύȍӮύӠӠŠΠύȮύ̠ӍŠǍΠ̮ύŠӠĠٍàӮƍϠԠōԠƠՍԠϠōӮƍԠӠǠǮƍΠōӠҠĮύΠӠŠӠϠ׮ƍԠӠΠύŠϮύҠ٠̠Š΍ӠԠΠӮύӠō̧ӠԍĮύҠӠŠΠĠŮƍӠčԠ٠ΠԠӠΠƍӠōӠԍȠȍŠǠЮƍԠ̠ӠŠĮƍŠҠӍŠŠƍîƍҧӠԠӠԭ΍٠Ԯƍ̠ԍӠŠΠؠ΍ٱŠԠ٠ϠŠĠӍϠˠӠƠŠŮύŠŠōӠΠҍҠͮƍ̠ӠĠŠ΍ԮύǠΠӍӠӠĮύŠΠƠϠӍҠ٠r1LL(19,1)6:LL(19,2)34s1LL(20,1)6:LL(20,2)25Pt1LL(21,1)18:LL(21,2)29lu1LL(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)13z1LL(27,1)19:LL(27,2)5{1LL(28,1)ŠӍŠŮύΠĮîӠŠ̍ƠŠĠӮƍӍӠˍĮύ٠΍ԍӍҍҍԍ΍ԍԍ׍ō̍ȍōō΍ٍč̍̍̍ˍ̍̍ԍҍ΍ōō΍ҍԍЍōԍōύנˍϠٍӍ΍ōЍԍЍ׍ōԍǍō͍ҍЍ΍ύԍ̍΍ȍٍōЍōōԍȍΠٍ΍ĠԍӍӍčō΍ōӍԍȍčԍӍǍԍ΍ԍڍÍ˧Π̍̍ҍҍҍҍҍ̍ҍԍŠǍǍǍҠǍǍԍӍӍӍҍҍԍ̍ԍ΍̍̍Šԍ̍ҍōҍԍҠҍ΍Ǎōƍ    21:LL(28,2)12*|1LL(29,1)1:LL(29,2)14F}1LL(30,1)17:LL(30,2)22k~1I15:LL(I,1):LL(I,2):"*":I1I1620:LL(I,1):LL(I,2):" ":I1I610:LL(I,1):LL(I,2):"*":I1W(16384)116368,01WCRī127001I2125:LL(I,1):L ";@926," * ";4@994,"* * ";CI120:Ih@860,A1$;:@926,A1$;:@994,A1$;xI1200:I@704,(31);@720,"COPYRIGHT 1981";@776,"IMPERIAL INTERNATIONAL";@842,"LEARNING CORPORATION"; @970,"PRESS ENT * * ";$B@926,"* * *";<L@994,"* * * ";KVI120:Ic`@728," * ";{j@792," * * ";t@860,"* * ";~@926,"* * ";@994,"* * * ";I120:I@728,A1$;:@792,A1$;@860," * @926," * * ";.@994,"* * * ";=I120:IU@728," * ";m@792," * * ";@860," * * * ";@926,"* * * ";@994,"* * * *";I120:I$@728," * ";.@792," * * "; 8@860,"' >I113HI10A$A1$8R@L(I),A$;:'SKIERG\@654,B2$;WfI1TT500fpI2TT50uzT1TT:T@L(I),EA$;:'ERASESKIER@654,B2$;I'PUFFOFSNOWFROMWIPEOUT.'A1$" "@860," * ";)STRING$(5,(24))SF$STRING$(8,(25))(26)SF$7'Q@456,B1$;:@654,B2$;k@662,B3$;:@418,B4$;@358,B5$;:@296,B6$;@174,B7$;@10,S1$;:@196,LA$; @70,"THIS IS A ";@128,"DEMONSTRATION OF"; '*'MOVINGSKIER.4$(2,(24))(26)STRING$(5,E$)STRING$(4,(24))(26)STRING$(3,E$)STRING$(5,(24))(26)STRING$(3,E$)vSF$(42)1S1$SF$(26)STRING$(12,(25))SF$(26)STRING$(4,(24))SF$STRING$(10,(25))(26)SF$STRING$(2,(26))STRING$(6,(24))SF$(26)cB7$(160)(190)STRING$(3,(191))(189)(144)STRING$(5,(24))(27)(184)(191)(180)L(1)630:L(2)628:L(3)690:L(4)688:L(5)750:L(6)748:L(7)810:L(8)808:L(9)806:L(10)804:L(11)802:L(12)800:L(13)798E$(128)hEA$E$STRING(176)<vB4$(160)(158)(129)STRING$(10,(128))(128)B5$(184)(135)STRING$(2,(32))(139)(129)(130)(175)(135)(130)(175)(135)B6$(160)(158)(175)STRING$(8,(191))STRING$(9,(24))(27)(184)STRING$(7,(191))(180ō٠΍ԍӍҍҍԍ΍ԍԍ׍ō̍ȍōō΍ٍč̍̍̍ˍ̍̍ԍҍ΍ōō΍ҍԍЍōԍōύנˍϠٍӍ΍ōЍԍЍ׍ōԍǍō͍ҍЍ΍ύԍ̍΍ȍٍōЍōԍȍΠٍ΍ĠԍӍӍčō΍ōӍԍȍčԍӍǍԍ΍ԍڍÍ˧Π̍̍ҍҍҍҍҍ̍ҍԍŠǍǍǍҠǍǍԍӍӍӍҍҍԍ̍ԍ΍̍̍Šԍ̍ҍōҍԍҠҍ΍Ǎōƍ   T.) Z"TYPE STRING #";I;":", d"";A$(I)> nA$(I)""60D x_ "WHAT FILE NAME? ";N$r D$;"OPEN ";N$ D$"DELETE ";N$ D$;"OPEN ";N$ D$;"WRITE ";N$ I1 J1I1 A$(J) J D$;"CLOSE ";N$I MAKE TEXT# A$(500):I08D$(4): CTRL D@:m("YOU GET TO TYPE ONE STRING AT A TIME."2"A STRING MAY HAVE UP TO 239 CHARACTERS."<"THIS PROGRAM LETS YOU WRITE TEXT FILES. "F:II1 P"(PRESS THE RETURN KEY TO QUI N THE","FAN; COOL THE","AIR.",Ch 2,"HANDS GET WARMER;","PUT ON YOUR MITTENS.",E,3,"CREATE A","BOUNDARY;","BUILD A FENCE.",Er 2,"THE FLOOR SHINES;","WAX THE FLOOR.",E,3,"BAKE A CAKE;","THE BATTER","BECOMES SOLID.",C:| 2,"KEEP TURNING IN CIRCLEZJ 2,"SCORE A BASKET;","EARN TWO POINTS.",C,3,"THE STREET","BECOMES WET;","IT RAINS.",ET 2,"THE SNOWBALL GROWS;","ROLL A SNOWBALL IN THE SNOW.",E,3,"TICKLE THE","CHILD; THE","CHILD LAUGHS.",C^ 2,"MOVE THE GEARS;","START THE MOTOR.",E,3,"TURN O"WOOD; POUND A NAIL.",E,3,"THE WIND","BLOWS; THE","FLAG WAVES.",C6 2,"THE ANKLE IS STRONGER;","TAPE AN ANKLE.",E,3,"FEEL","REFRESHED;","DRINK LEMONADE.",E@ 2,"CHILD IS HAPPY;","CHILD WINS THE GAME.",E,3,"SCRUB A","FLOOR; THE","FLOOR IS CLEAN.",COT;","THE CAKE IS","BURNT.",Cz 2,"THE LOLLIPOP GETS SMALLER;","LICK A LOLLIPOP.",E,2,"FINGER BLEEDS;","CUT FINGER.",E" 2,"DEFLATE THE TIRE;","THE TIRE GOES FLAT.",C,4,"MAKE","FOOTPRINTS;","WALK IN THE","SNOW.",EA, 2,"THE NAIL SINKS INTO THE",OG;","HIS TAIL WAGS.",C#9 ** ROUND#3 **?E 2,"THE KITTEN PURRS;","THE KITTEN IS PETTED.",E,3,"THE COLORS","FADE; DRY","SOME FLOWERS.",E 2,"RADIATION IN THE AIR;","NUCLEAR POWER PLANT LEAKAGE.",E,4,"THE OVEN","IS TOO H","NEWS.",Ei 2,"YOU ARE LATE FOR SCHOOL;","MISS THE BUS.",E,3,"WIN THE","GAME; GET","FIRST PRIZE.",C 1,"FALL; SLIP ON THE ICE.",E,4,"CROSS THE","FINISH LINE","FIRST; WIN THE","RACE.",C 2,"SAVE ENERGY;","INSULATE YOUR HOUSE.",E,2,"PET THE DER A BROKEN BOTTLE;","GET A FLAT TIRE.",C,3,"CAR WON'T","START; CAR","IS OUT OF GAS.",E 2,"OPEN THE DOOR;","TURN THE DOORKNOB.",E,3,"DROP A ROCK","IN THE RIVER;","MAKE WAVES.",C  2,"MAKE ICE;","PUT WATER IN FREEZER.",E,3,"FEEL SAD;","RECEIVE BAD.",C,4,"YOUR CLOTHES","FEEL TIGHT;","GAIN 20","POUNDS.",E 2,"MOW THE LAWN;","THE GRASS IS SHORTER.",C,3,"WATER COMES","OUT; OPEN THE","FAUCET.",E 1,"LAUGH; HEAR A FUNNY JOKE.",E,3,"LIE IN THE","SUN ALL DAY;","GET A SUNBURN.",CW 2,"DRIVE OVRER.",Cad 2,"THE BUG DIES;","STEP ON A BUG.",E,4,"PUSH ON","THE BRAKE;","COME TO A","STOP.",Cn 2,"DISCOVER THE PLOT;","READ THE STORY.",E,4,"TYPE A WORD;","PRESS CERTAIN","KEYS ON THE","TYPEWRITER.",E9x 2,"MAKE MUD PIES; GET YOUR","HANDS DIRTY"PEPPER;","SNEEZE.",C ! (7 2 ** ROUND#2 **= <C F P 2,"MILK CHANGES COLOR;","STIR CHOCOLATE INTO MILK.",E,3,"TAP YOUR","FOOT; LISTEN","TO MUSIC.",EZ 2,"ADD SUGAR;","SWEETEN THE LIQUID.",C,3,"WEAR YOUR","GLASSES; SEE","THINGS CLEA1) <J1I1 F:A$(J)# PJ7 ZD$;"CLOSE ";Z$M dD$;"NOMON C,I,O"S nY x_ s D$;"MON C,I,O" D$;"OPEN ROUND 2" D$;"WRITE ROUND 2" I1 J1I1 A$(J) J D$;"CLOSE ROUND 2" D$;"NOMON C,I,O" > 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  ) <J1I F:A$(J) PJ3 ZD$;"CLOSE ";Z$I dD$;"NOMON C,I,O" AK 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 ";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:" ō٠΍ԍӍҍҍԍ΍ԍԍ׍ō̍ȍōō΍ٍč̍̍̍ˍ̍̍ԍҍ΍ōō΍ҍԍЍōԍōύנˍϠٍӍ΍ōЍԍЍ׍ōԍǍō͍ҍЍ΍ύԍ̍΍ȍٍōЍōԍȍΠٍ΍ĠԍӍӍčō΍ōӍԍȍčԍӍǍԍ΍ԍڍÍ˧Π̍̍ҍҍҍҍҍ̍ҍԍŠǍǍǍҠǍǍԍӍӍӍҍҍԍ̍ԍ΍̍̍Šԍ̍ҍōҍԍҠҍ΍Ǎōƍ   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.0C5ī16000: 2ND SENTENCE WIPE OUT.000: SENT.#23>062250: INPUT STUDENT'S RESPONSE.IH062400: ANS.T/F?YR0T1250:T\0V21Ģ24:"PRESS RETURN TO GO ON. ":45,18294,18294,19145,19145,182f062550: RETURN AA$=CORRECT ANS. V=POSITIONp016V:20:" FROM0 ** 2ND TO 3RD STEP$0I 0XSTART188:XFINISH100:YSTART61j062700: ERASE SENTENCE #1024:" "063000: BLANK RETURN BOX 00:1XX,YY*062600: MOVE SKIER FROM 2ND->3RD STEP 40621 "/T1100:T./V11ī122108/CC1F/2V:AA$V/T1250:Tg/V10ī12250w/W(16384)/16368,0/W141ī12300: MOVE SKIER 2ND->3RD STEP/C5ī14000: 1ST SENTENCE WIPE OUT./1217000 ** MOVE SKIER "0b/T1250:Tl/V11Ģ24:" ":24:"PRESS RETURN TO GO ON.":45,18294,18294,19145,19145,182v/62500: RETURN AA$=CORRECT ANS. V=POSITION/C0 /2V:" .61340: SLOPE(.XFINISH190:HOLD1W.62600: MOVE SKIER DOWN SLOPE TO 1ST FLAGi/PRRDī12100z/F31ī12100/61900:F31: READ DATAD/62000: PRINT SENT.#1N/62200: INPUT STUDENT'S RESPONSE.X/62300: ANS.T/F? ]/24:" SEE IF"" ;):"YOU ARE CORRECT."- @)600003 .L . ** START MAIN SKI-e . ** SLOPE ALGORITHMk .} .COUNTCOUNT1 .IIII1 .EX0COUNT1COUNT2:II2 .COUNTN1ī12750: END OF ROUND .T(0) .:59900 .XSTART260:YSTART220 )10450 )61200: HEADERO ")6:"LET'S TRY TO SKI DOWN JUST ONE SLOPE"~ '):"FOR PRACTICE. I'LL GIVE YOU A SET OF" ,):"WORDS OR PHRASES. DECIDE WHICH WORD" 1):"OR PHRASE DOES NOT BELONG. TYPE YOUR" 6):"ANSWER, THEN PRESS RETURN TOE,"3 (:"PRESS RETURN. IF YOU ALREADY KNOW HOW"N (:"TO PLAY, PRESS N."\ (16368,0y (W(16384):W12810450 (16368,0 ( IF W=CR, YES EXAMPLE (W141ĪEX1 (W141ī10510 ( IF W=N, NO EXAMPLE (W206ĪEX0 (W206ī120084) Z(16368,0# d(W177ī103805 n(W178ī10380G x(W179ī10380W (T1100:Tb (10320o (RDW176 (21:"OK, ROUND ";RD;" IT IS." (60000 ( ( ** EXAMPLE ** ( (61200: HEADER (6:"IF YOU WOULD LIKE TO SEE AN EXAMPL200: HEADER: '8:"WHICH ROUND WOULD YOU LIKE TO PLAY?"R '11:" ROUND 1"h (:" ROUND 2"~ (:" ROUND 3" (18:"PRESS THE NUMBER OF YOUR CHOICE." (3:0:1 ((1180,80 2( <( ** ROUND NUMBER ? A( K(PRRD P(W(163('' FILENAME:MAIN!$'K3'II0:RD0:V12:V22:COUNT0:EX0:F30Y4'AN0:SC0k8'61000: ASSMw='D$(4)B'T(0)L'N13Q'R1110200V'A$(13,5),B$(13,5),F1$(13),F2$(13)['AL$(5),AN$(13,2)`'NW(13,2),LL(30,2)j'R11 '61           ! ! "     ! 1I610:LL(I,1):LL(I,2):" ":I41W(16384)B116368,0S1WCRī12700z1I2630:LL(I,1):LL(I,2):"*":I1I1115:LL(I,1):LL(I,2):" ":I1126701EX1COUNT1İ62900112000: GO TO TOP OF SLOPE AND START OVER.1:599%33,25:32,15P%:"PENCIL";CR$;"ERASER";CR$;"RULER";CR$;"PEN";CR$;"DESK"a%33,40:32,0%1::"TYPE THE WORD THAT DOES NOT BELONG,"%:"AND PRESS RETURN."&33,25:32,15&34,19:35,21&20:A$ &33,40:32,0 &34,0:35,24WORD OR PHRASE DOES NOT"5%:"BELONG IN EACH SET."`%::"PRESS RETURN TO SEE AN EXAMPLE."%60010: WAIT FOR CR WITHOUT PROMPT.%:59900%CR$(13)%61200: HEADER%6:"THERE IS ONE WORD WHICH DOES NOT BELONG"%:"IN THIS SET."ING SKILLS."]%60000b%5c% *****************Kd% ** INSTRUCTIONSce% *****************if%v%:59900%61200: HEADER%6:"TO BECOME A CHAMPION SKIER, YOU'LL HAVE"%:"TO READ SETS OF WORDS OR PHRASES AND"%:"DECIDE WHICH %:59900!!%61200: HEADER<&%6:"THANKS, ";NA$;"."m0%:"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%:"READ900$61200: HEADERD$6:"HI THERE. WHAT'S YOUR FIRST NAME?"g$:"TYPE IT AND PRESS RETURN."v$1170,166$10:NA$$(NA$)19370$NA$(NA$,12)$(NA$,1)" "NA$(NA$,(NA$)1):9430$(NA$,1)" "NA$(NA$,(NA$)1):9440OPYRIGHT 1981"4#17:19:"IMPERIAL INTERNATIONAL"X#18:20:"LEARNING CORPORATION"k#61100: CLICK{#T1500:T#61100: CLICK#60000## *********************# ** STUDENT'S NAME# *********************##:59 Y OFFSET 2#FD166: X OFFSET-<#3:0:1?F#XX165:YY161LP#1XX,YY]Z#X165404v_#Y((FDX)FA)FBFCd#1XX,YYn#1X,Ys#XXX:YYYx#X#T1500:T#7:5:"ALPINE SKIER"#61100: CLICK#T1500:T#16:23:"CFFSET FE0.4: SLOPE%B!3:0:17H!XX250:YY130I!X2501704i!Y((FDX)FA)FBFE(FCX)v"1XX,YY"1X,Y"XXX:YYY"X"1170,166)#*# ** FLAT PLANE **+#.#FA3: NO.OF NODES/#FB5: AMPLITUDE 0#FC160:ABLE LENGTH,$82^)233,100:232,0>X59900: HGR2 ONDLZ SKIER ANIMATION`nCR$(13){Z3:0:1hT11000:Ti1250,130nT11000:TxFA3: NO. OF NODESFB5: AMPLITUDE@FC575: Y OFFSETFD250: X O  ** COPYRIGHT FRAME **7  *********************= dG ::p ,:(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 $6400T SHAPET"*" I02% \1:1:UO$(I);H$;< 1:39:RO$(I);V$;S $24:1:BO$(I);H$;a I15200k " "; P1:1:LO$(I);V$; I05500 D$;" "; |I W(16384) D16368,0 WCR4600  p  8 *********************:34,7* :"THIS IS A DATA COMMAND";CR$G <" MICROCOMPUTER";CR$i " 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 ******************4 :  _ 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 INITIALIZATIONS+  ********************1 G l(4);"BRUN ASSM"W DC1ī6600] ~ 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 ** ** CATAGORIZING WORDS  ** AND PHRASES. ** 08-10-81 *********************Lx ******************** @ **          "((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:          0:T>48:160,105(>32:145,1258>T1500:TJ>32:145,125\>16:135,145l>T1500:T~>16:135,145>48:120,155>0:145,150>16:145,170>32:120,180>3:0:1 ?24:"SORRY, NO POINTS THIS TIME. &F760000: WAIT FOR CR WITH PROMPT.?P7EX1COUNT1İ62900W<12000: START OVER]x>sz> ** 2ND SENTENCE{> ** WIPE OUT.|>>XSTART96:YSTART105>1100,105>XFINISH80:HOLD0>62600: MOVE SKIER>48:160,105>T150632:1120,806T1500:T0632:1120,80C616:1110,100S6T1500:Tf716:1110,100x 748:190,11570:1110,105716:1120,120(732:1100,130-73:0:12724:"SORRY, NO POINTS THIS TIME. "<7T12000:T ** WAIT FOR CR*] *****************0^T`24:"PRESS RETURN TO GO ON."|e45,18294,18294,19145,19145,182jCR13128t16368,0W(16384):W1286007016368,0:WCR60070>@ *****************B ** RULUCK, ";NA$;"."'600007'(4);"BLOAD CHAIN,A520"F'520"MAIN"Sx"END":Ys ******************* ** HGR2 SCREEN *******************16302,0:16304,016299,0:16297,0XZ *****************\000t':59900$y'61200: HEADERV~'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 THREE ROUNDS"':"IN ALL."'::"GOOD TE. THEN YOU'LL GET"?.':"ANOTHER SENTENCE. IF YOU ANSWER"j8':"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':"OUT";(34);" AND GAIN NO POINTS."`'60ASES. DECIDE WHICH"C&:"WORD OR PHRASE DOES NOT BELONG. TYPE"r&:"YOUR ANSWER, THEN PRESS RETURN TO SEE"':"IF YOU ARE CORRECT."'60000':59900'61200: HEADER'6:"IF YOU ARE RIGHT, YOU MAKE IT THROUGH"$':"THE FIRST GASCHOOL. FOUR OF THE WORDS"G&:"NAME SOMETHING THAT CAN BE HELD IN"u&:"YOUR HAND. A DESK CANNOT BE HELD IN"&:"YOUR HAND."&60000&:59900&61200: HEADER&6:"HERE ARE THE RULES. I'LL GIVE YOU A"&:"SET OF WORDS OR PHR&(A$)19730&:599001&61200: HEADERb&A$"DESK"Ģ6:"YES, THAT IS CORRECT.":9920&6:"THAT'S NOT QUITE CORRECT."&:"THE WORD THAT DOES NOT BELONG IS"&:(34);"DESK.";(34);" ALL THE WORDS HAVE SOMETHING"&:"TO DO WITH *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*eHAIN,A520"!520"INSTRUCTIONS"'? *****************W ** COLOR SUBR. **o *****************uX30160X,YX,Y12X?5:970412:27:"VIOLET".>5:Y109:970DH15:27:"ORANGE"VR6:Y133:970j\18:27:"BLUE"f22:"WHEN YOU ARE SET, PRESS RETURN TO BEGIN."k16368,0pW(16384):W128880z16368,0WCR880DC1 (4);"BLOAD C %  *********************A  ** COLOR ADJUSTMNT **]  *********************c o :32,0v 3 "BEFORE WE BEGIN, PLEASE ADJUST YOUR" :" VIDEO MONITOR TO MATCH THESE COLORS." 1:Y60:970 9:27:"GREEN"*2:Y8D$:I:V$V$"*"- &W(16384)(16368)1308 0I02N :1:1:UO$(I);H$;e D1:39:RO$(I);V$;| N24:1:BO$(I);H$; XI1620 b" "; l1:1:LO$(I);V$; vI0650 D$;" "; I W(16384) 16368,0 WCR560   :32,8:34,75 :"THIS IS A DATA COMMAND";CR$R " MICROCOMPUTER";CR$t " 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$" "************) r ** OPENING FRAME **F | *********************L R w 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)"" :ONS  ********************$ / 16384E (4);"BRUN ASSM"g "N225576256:232,232:233,N2 ,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 *********d FILENAME:HELLOn"x; ******************Q ** ALPINE SKIERZ **v ** CATAGORIZING WORDS ** AND PHRASES. ** 08-10-81 ****************** ******************** ** INITIALIZATI      " ?T12000:T< ?60000: WAIT FOR CR WITH PROMPT. U ?EX1COUNT1İ62900m A12000: START OVERs ** HGR2 SCREEN 16302,0:16304,0 16299,0:16297,0  Z \ ** WAIT FOR CR ]!`24:1:"PRESS RETURN "&12:" ".(13:" "D)162800: DRAW BOXi*1EX1COUNT1Ģ2:2:"1 POINT !".1EX1COUNT1ī1261081SCSC1B1SC1Ģ2:2:"1 POINT!"L1SC1Ģ2:2:SC;" POINTS"V124:"PRESS RETURN TO GO ON.":45,18294,18294,112400$062750: ERASE SENTENCE #2X024:" "w063000: BLANK RETURN BOX.02:2:" "0XSTART100:XFINISH241YSTART105:HOLD110:1XX,YY162600: MOVE SKIER FROM 3RD->4TH STEP.$11:" " z0T1100:TG0V21ī12440: SKIP FLASH COUNTER.Q0CC1d016V:20:AA$t0T1250:T0V20ī124900W(16384)016368,00W141ī12510: MOVE SKIER 3RD->4TH STEP.0C5ī16000: 2ND SENTENCE WIPE OUT.000: SENT.#23>062250: INPUT STUDENT'S RESPONSE.IH062400: ANS.T/F?YR0T1250:T\0V21Ģ24:"PRESS RETURN TO GO ON. ":45,18294,18294,19145,19145,182f062550: RETURN AA$=CORRECT ANS. V=POSITIONp016V:20:" FROM0 ** 2ND TO 3RD STEP$0I 0XSTART188:XFINISH100:YSTART61j062700: ERASE SENTENCE #1024:" "063000: BLANK RETURN BOX 00:1XX,YY*062600: MOVE SKIER FROM 2ND->3RD STEP 40621 "/T1100:T./V11ī122108/CC1F/2V:AA$V/T1250:Tg/V10ī12250w/W(16384)/16368,0/W141ī12300: MOVE SKIER 2ND->3RD STEP/C5ī14000: 1ST SENTENCE WIPE OUT./1217000 ** MOVE SKIER "0b/T1250:Tl/V11Ģ24:" ":24:"PRESS RETURN TO GO ON.":45,18294,18294,19145,19145,182v/62500: RETURN AA$=CORRECT ANS. V=POSITION/C0 /2V:" .61340: SLOPE(.XFINISH190:HOLD1W.62600: MOVE SKIER DOWN SLOPE TO 1ST FLAGi/PRRDī12100z/F31ī12100/61900:F31: READ DATAD/62000: PRINT SENT.#1N/62200: INPUT STUDENT'S RESPONSE.X/62300: ANS.T/F? ]/24:" SEE IF"" ;):"YOU ARE CORRECT."- @)600003 .L . ** START MAIN SKI-e . ** SLOPE ALGORITHMk .} .COUNTCOUNT1 .IIII1 .EX0COUNT1COUNT2:II2 .COUNTN1ī12750: END OF ROUND .T(0) .:59900 .XSTART260:YSTART220 )10450 )61200: HEADERO ")6:"LET'S TRY TO SKI DOWN JUST ONE SLOPE"~ '):"FOR PRACTICE. I'LL GIVE YOU A SET OF" ,):"WORDS OR PHRASES. DECIDE WHICH WORD" 1):"OR PHRASE DOES NOT BELONG. TYPE YOUR" 6):"ANSWER, THEN PRESS RETURN TOE,"3 (:"PRESS RETURN. IF YOU ALREADY KNOW HOW"N (:"TO PLAY, PRESS N."\ (16368,0y (W(16384):W12810450 (16368,0 ( IF W=CR, YES EXAMPLE (W141ĪEX1 (W141ī10510 ( IF W=N, NO EXAMPLE (W206ĪEX0 (W206ī120084) Z(16368,0# d(W177ī103805 n(W178ī10380G x(W179ī10380W (T1100:Tb (10320o (RDW176 (21:"OK, ROUND ";RD;" IT IS." (60000 ( ( ** EXAMPLE ** ( (61200: HEADER (6:"IF YOU WOULD LIKE TO SEE AN EXAMPL200: HEADER: '8:"WHICH ROUND WOULD YOU LIKE TO PLAY?"R '11:" ROUND 1"h (:" ROUND 2"~ (:" ROUND 3" (18:"PRESS THE NUMBER OF YOUR CHOICE." (3:0:1 ((1180,80 2( <( ** ROUND NUMBER ? A( K(PRRD P(W(163('' FILENAME:MAIN!$'K3'II0:RD0:V12:V22:COUNT0:EX0:F30Y4'AN0:SC0k8'61000: ASSMw='D$(4)B'T(0)L'N13Q'R1110200V'A$(13,5),B$(13,5),F1$(13),F2$(13)['AL$(5),AN$(13,2)`'NW(13,2),LL(30,2)j'R11 '61              !!! ! !!!!!!!!! TO GO ON. "C!e45,18294,18294,19145,19145,182Q!jCR13128_!t16368,0|!W(16384):W12860070!16368,0:WCR60070!!@!B ** RUN ASSM!D!H(4);"BRUN ASSM"!R!! ** CLICK SOUND!"S#~# ** SLOPE & FLAGS!#.#:59900C# SLOPE EQUATIONI#a#FA14: NO.OF NODESv#FB6: AMPLITUDE#FC360: Y OFFSET#FD230: X OFFSET#FE0.50: SLOPE# 3#279,42#X279110#(Y((FDX)FA)FBFE(FCX)$216336"T15."SOUND(S)(S)(S)(S)5"T;"A"Y" ** ALP SKI HEADER_" l":59900"2:14:"ALPINE SKIER""$6:0:1")FF132".X50FF7"82FFX,11"=2FFX,11"B2FFX,15"G2FFX,15"LX"V3"` TO GO ON. "C!e45,18294,18294,19145,19145,182Q!jCR13128_!t16368,0|!W(16384):W12860070!16368,0:WCR60070!!@!B ** RUN ASSM!D!H(4);"BRUN ASSM"!R!! ** CLICK SOUND!"S " ?T12000:T< ?60000: WAIT FOR CR WITH PROMPT. U ?EX1COUNT1İ62900m A12000: START OVERs ** HGR2 SCREEN 16302,0:16304,0 16299,0:16297,0  Z \ ** WAIT FOR CR ]!`24:1:"PRESS RETURN0:T>48:160,105(>32:145,1258>T1500:TJ>32:145,125\>16:135,145l>T1500:T~>16:135,145>48:120,155>0:145,150>16:145,170>32:120,180>3:0:1 ?24:"SORRY, NO POINTS THIS TIME. &F760000: WAIT FOR CR WITH PROMPT.?P7EX1COUNT1İ62900W<12000: START OVER]x>sz> ** 2ND SENTENCE{> ** WIPE OUT.|>>XSTART96:YSTART105>1100,105>XFINISH80:HOLD0>62600: MOVE SKIER>48:160,105>T150632:1120,806T1500:T0632:1120,80C616:1110,100S6T1500:Tf716:1110,100x 748:190,11570:1110,105716:1120,120(732:1100,130-73:0:12724:"SORRY, NO POINTS THIS TIME. "<7T12000:T00 1T(0)*2(4);"BLOAD CHAIN,A520"=(2520"TFEATURE"C6Y6 ** 1ST SENTENCEl6 ** WIPE OUT.r66XSTART188:YSTART6161192,616XFINISH160:HOLD0662600: MOVE SKIER648:1140,606T1500:T648:1140,601I610:LL(I,1):LL(I,2):" ":I41W(16384)B116368,0S1WCRī12700z1I2630:LL(I,1):LL(I,2):"*":I1I1115:LL(I,1):LL(I,2):" ":I1126701EX1COUNT1İ62900112000: GO TO TOP OF SLOPE AND START OVER.1:599L(I,2):" ":I51I1115:LL(I,1):LL(I,2):"*":I\1I2630:LL(I,1):LL(I,2):" ":Il1W(16384)z116368,01WCRī127001I1620:LL(I,1):LL(I,2):"*":I1I15:LL(I,1):LL(I,2):" ":I1I2125:LL(I,1):LL(I,2):"*":I$21:LL(28,2)12*|1LL(29,1)1:LL(29,2)14F}1LL(30,1)17:LL(30,2)22k~1I15:LL(I,1):LL(I,2):"*":I1I1620:LL(I,1):LL(I,2):" ":I1I610:LL(I,1):LL(I,2):"*":I1W(16384)116368,01WCRī127001I2125:LL(I,1):Lr1LL(19,1)6:LL(19,2)34s1LL(20,1)6:LL(20,2)25Pt1LL(21,1)18:LL(21,2)29lu1LL(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)13z1LL(27,1)19:LL(27,2)5{1LL(28,1)9,2)38"i1LL(10,1)11:LL(10,2)5>j1LL(11,1)22:LL(11,2)11Yk1LL(12,1)5:LL(12,2)15ul1LL(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)36p1LL(17,1)12:LL(17,2)3q1LL(18,1)13:LL(18,2)159145,19145,182"[1W0:16368,0;`1LL(1,1)4:LL(1,2)29Ua1LL(2,1)10:LL(2,2)13nb1LL(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)33g1LL(8,1)15:LL(8,2)1h1LL(9,1)3:LL(THE SLOPES FOR REAL." 960000&9,9G9 ********************a9 ** BLANK RETURN BOX|9 ********************990:45,18294,18294,19145,19145,182:39"II *******************9959900: HGR2:":"THAT'S A16336"T15."SOUND(S)(S)(S)(S)5"T;"A"Y" ** ALP SKI HEADER_" l":59900"2:14:"ALPINE SKIER""$6:0:1")FF132".X50FF7"82FFX,11"=2FFX,11"B2FFX,15"G2FFX,15"LX"V3"`O THE SLOPES FOR REAL.""060000(0.0H0 ** BLANK RETURN BOXN0|00:45,18294,18294,19145,19145,182:30"I" "!/U2:" "6/Z3:" "=/_3Z/d2,474,474,182,182,4w/n1,375,375,191,191,3}/// ** END OF EXAMPLE//:59900/61200: HEADER/6:"I THINK YOU'VE GOT THE IDEA."0:"NOW LET'S GO T.. ** ERASE SENT.#2%.[.VT16:HT20:A$" ": 20 SPACESm.#VT1:HT:A$.(VT2:HT:A$.-VT3:HT:A$.2VT4:HT:A$.3VT5:HT:A$.46:A$.57:A$.7.H.J ** DRAW "POINT" BOX.L /P1:XFINISH4+-Y((FDX)FA)FBFE(FCX)8-1XX,YYC-1X,YQ-XXX:YYYX-Xm-HOLD0ĕ1XX,YYs-y-- ** ERASE SENT.#1--A$" ": 25 SPACES-I04:3I:A$:I-20:15:A$-21:15:A$.$(II)),.AA$A$(II,V),8#,N9,P ** -- #2 --R,R ** FACT OR OPINIONX,Ti,VV(F2$(II))z,`AA$B$(II,V),j,, ** MOVE SKIER DOWN, ** SLOPE,,FC310: Y OFFSET,3,XXXSTART:YYYSTART,1XX,YY -XXXRUE--- V2=1!+ ** FALSE-- V2=0'+0+V21A+I(F2$(II))`+AN$(II,2)B$(II,I)ĪV20y+EX1COUNT0ī62480+NW(II,2)V2: NW ARRAY IS USED IN THE TEACHER FEATURE.+++ ** -- #1 --+ ** FACT OR OPINION+ ,$V(F1GHT OR WRONG ?$*V ** TRUE--- V1=1:*W ** FALSE-- V1=0@*XI*\V11Z*aI(F1$(II))y*fAN$(II,1)A$(II,I)ĪV10*pEX1COUNT062380*NW(II,1)V1*V10NW(II,2)1*** ** SECOND SENTENCE* ** RIGHT OR WRONG ? + ** TT ANSWER #2)&C)*24:"TYPE THE ONE THAT'S DIFFERENT. "T)433,20:32,0d)534,5:35,7v)96:AN$(II,2)):(AN$(II,2))162265)=33,40:32,0)>34,0:35,24)CAN$(II,2)(AN$(II,2),20))H)S)T ** FIRST SENTENCE*U ** RI(( ** GET ANSWER #1%(W(24:"TYPE THE ONE THAT'S DIFFERENT. "i(33,20:32,20{(34,19:35,21(20:AN$(II,1)((AN$(II,1))162215( 33,40:32,0( 34,0:35,24(AN$(II,1)(AN$(II,1),20)((" )$ ** GE'03:A$(II,1) ':4:A$(II,2)1'D5:A$(II,3)B'N6:A$(II,4)S'X7:A$(II,5)Y'b_'p' ** SENT #2v''VT17:HT20'VT:HT:B$(II,1)'VT1:HT:B$(II,2)'VT2:HT:B$(II,3)'VT3:HT:B$(II,4)'VT4:HT:B$(II,5)(RD2ĺD$;"OPEN ROUND 2":D$;"READ ROUND 2"Z&RD3ĺD$;"OPEN ROUND 3":D$;"READ ROUND 3"b&RLm&I1Nx&J15&A$(I,J)& J&F1$(I)&J15&B$(I,J)&J&F2$(I)&I&D$;"CLOSE"&!&(&* ** SENT. #1&,LL OF IX,Y $$n75,13575,110O$x15:10:"2"b$75,12055,120u$75,11055,110$55,12058,115$58,11555,110$$ POLE#1$$165,89165,62$9:23:"1"$165,62145,62$145,72165,72%#~# ** SLOPE & FLAGS!#.#:59900C# SLOPE EQUATIONI#a#FA14: NO.OF NODESv#FB6: AMPLITUDE#FC360: Y OFFSET#FD230: X OFFSET#FE0.50: SLOPE# 3#279,42#X279110#(Y((FDX)FA)FBFE(FCX)$2145,72148,67#%145,62148,67)%;% FINISH SIGNA%S%"18:"FINISH"d%,1,1751,145w%639,17539,145~%@6%JX2404%T2X,130%^X%%% ** READ DATA **%%RD1ĺD$;"OPEN ROUND 1":D$;"READ ROUND 1"*&X,Y $$n75,13575,110O$x15:10:"2"b$75,12055,120u$75,11055,110$55,12058,115$58,11555,110$$ POLE#1$$165,89165,62$9:23:"1"$165,62145,62$145,72165,72%******************* ** 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,0X145,72148,67#%145,62148,67)%;% FINISH SIGNA%S%"18:"FINISH"d%,1,1751,145w%639,17539,145~%@6%JX2404%T2X,130%^X%%% ** READ DATA **%%RD1ĺD$;"OPEN ROUND 1":D$;"READ ROUND 1"*&) <J1I F:A$(J) PJ3 ZD$;"CLOSE ";Z$I dD$;"NOMON C,I,O" DN ASSMD *****************$F:H(4);"BRUN ASSM"@RF] ****************r ** CLICK SOUND ****************S16336T15SOUND(S)(S)(S)(S)T ******************  ** ALP S