' +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Ԫ~_~{ժժժժ~ Ԫժժ % *****************%+%:59900@% SLOPE EQUATIONF%^%FA14: NO.OF NODESs%FB6: AMPLITUDE%FC360: Y OFFSET%FD230: X OFFSET%FE0.50: SLOPE% 3%279,42%X279110%(Y((FDX)FA)FBFE(FCX)&2X,LP SKI HEADER&$ ******************,$9$:59900T$2:14:"ALPINE SKIER"a$$6:0:1l$)FF132{$.X50FF7$82FFX,11$=2FFX,11$B2FFX,15$G2FFX,15$LX$V3$`$t$~ *****************% ** SLOPE & FLAGS* RUN ASSM"#D *****************(#F>#H(4);"BRUN ASSM"D#RJ#a# ****************v# ** CLICK SOUND# ****************##S16336#T15#SOUND(S)(S)(S)(S)#T### ****************** $ ** A CR"] *****************""^X"`24:1:"PRESS RETURN TO GO ON. ""e45,18294,18294,19145,19145,182"jCR13128"t16368,0"W(16384):W12860070"16368,0:WCR60070"">"@ ***************** #B *OMPT. ! ?EX1COUNT1İ62900E!A12000: START OVE R K!e! *******************z! ** HGR2 SCREEN! *******************!!16302,0:16304,0!16299,0:16297,0!!X!Z *****************"\ ** WAIT FORT1500:T >32:145,125. >16:135,145> >T1500:TP >16:135,145b >48:120,155s >0:145,150 >16:145,170 >32:120,180 >3:0:1 ?24:1:"SORRY, NO POINTS THIS TIME." ?T12000:T!?60000: WAIT FOR CR WITH PRx> ******************,z> ** 2ND SENTENCE?{> ** WIPE OUT.X|> ******************^~>w>XSTART96:YSTART105>1100,105>XFINISH80:HOLD0>62600: MOVE SKIER>48:160,105>T1500:T>48:160,105>32:145,125 >16:1110,100  748:190,115270:1110,105E716:1120,120X(732:1100,130e-73:0:12724:1:"SORRY, NO POINTS THIS TIME."<7T12000:TF760000: WAIT FOR CR WITH PROMPT.P7EX1COUNT1İ62900<12000: START OVERv> ******************636XSTART188:YSTART61A61192,61X6XFINISH160:HOLD0p662600: MOVE SKIER648:1140,606T1500:T648:1140,60632:1120,806T1500:T632:1120,80616:1110,1006T1500:T7L(I,1):LL(I,2):" ":I"112670;1EX1COUNT1İ62900k112000: GO TO TOP OF SLOPE AND START OVER.x1:599001T(0)2(4);"BLOAD CHAIN,A520"(2520"TFEATURE"66 ******************6 ** 1ST SENTENCE6 ** WIPE OUT.60(1I1620:LL(I,1):LL(I,2):"*":IM1I15:LL(I,1):LL(I,2):" ":It1I2125:LL(I,1):LL(I,2):"*":I1I610:LL(I,1):LL(I,2):" ":I1W(16384)116368,01WCRī127001I2630:LL(I,1):LL(I,2):"*":I1I1115:L:" ":I.1I610: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(16384)116368,01WCRī1270w1LL(24,1)3:LL(24,2)213x1LL(25,1)8:LL(25,2)20Ny1LL(26,1)6:LL(26,2)13iz1LL(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):"*":I1I1620:LL(I,1):LL(I,2),2)31"n1LL(15,1)23:LL(15,2)33>o1LL(16,1)14:LL(16,2)36Yp1LL(17,1)12:LL(17,2)3uq1LL(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)20v1LL(23,1)2:LL(23,2)13d1LL(5,1)23:LL(5,2)391e1LL(6,1)19:LL(6,2)8Kf1LL(7,1)17:LL(7,2)33dg1LL(8,1)15:LL(8,2)1}h1LL(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)15l1LL(13,1)15:LL(13,2)15m1LL(14,1)2:LL(14ԪתժժժϊԪժժժ#TԪժժժժժժժժժժժ~|Ԫ~cԪ 2,4 5n1,375,375,191,191,3&5,5D5 *****************\5 ** END OF EXAMPLEt5 *****************z55:59900561200: HEADER56:"I THINK YOU'VE GOT THE IDEA."5:"NOW LET'S GO TO THE SLOPES FOR REAL."5600006 ">42VT6:HT3:" "D47J4Fe4H ********************4J ** DRAW "POINT" BOX4L ********************4N4P1:" "4U2:" "4Z3:" "4_35d2,474,474,182,18 "3383 *******************O3 ** ERASE SENT.#2i3 *******************o33 SPACES 1-19,2-20,3-21,4-223VT16:HT223#VT:HT:" "3(VT2:HT1:" "4-VT4:HT2:" *2 ** ERASE SENT.#112 ******************72X2 SPACES 1-34,2-34,3-34,4-2821:6:" "23:6:" "25:6:" "37:6:" OPE1 *******************#191FC310: Y OFFSET@13X1XXXSTART:YYYSTARTe11XX,YYz1XXXXFINISH41Y((FDX)FA)FBFE(FCX)11XX,YY11X,Y1XXX:YYY1X1HOLD0ĕ1XX,YY112 ***************** #2 --0R ** CAUSE OR EFFECT90T *******************?0U\0VV21AN67ĪAA$"CAUSE"z0[V21AN69ĪAA$"EFFECT"0`V20AN67ĪAA$"EFFECT"0eV20AN69ĪAA$"CAUSE"0j0~0 *******************0 ** MOVE SKIER DOWN1 ** SL*****/ ** -- #1 --4/ ** CAUSE OR EFFECTN/ *******************T/"q/$V11AN67ĪAA$"CAUSE"/)V11AN69ĪAA$"EFFECT"/.V10AN67ĪAA$"EFFECT"/3V10AN69ĪAA$"CAUSE"/8/L/N *******************0P ** -- ** RIGHT OR WRONG ?+. ** TRUE--- V2=1A. ** FALSE-- V2=0\. ********************b.h.q.V21.AN(F2$(II))ĪV20.EX1COUNT0ī62480.NW(II,2)V2: NW ARRAY IS USED IN THE TEACHER FEATURE.../ ************** ** RIGHT OR WRONG ?*-V ** TRUE--- V1=1@-W ** FALSE-- V1=0[-X ********************a-Zj-\V11-fAN(F1$(II))ĪV10-pEX1COUNT062380-NW(II,1)V1-V10NW(II,2)1-- ********************- ** SECOND SENTENCE.N69ī62265,"T1100:T*,$0:312,8:,&T1200:TI,(3:312,8T,*62210d,9T1100:Ts,>2:2:" ",HT1200:T,J2:2:(AN),L16384,0: CHANGE FOR NEXT ANSWER,N,R,S ********************,T ** FIRST SENTENCE-U4:HT2:B3$(II)*+VT6:HT3:B4$(II)0+6+O+ ******************h+ ** CAUSE OR EFFECT+ ******************++24:"PRESS ";(34);"C";(34);" OR ";(34);"E";(34);"."+AN(16384)128+ 16368,0+AN67ī62265 , A *******************..*01:6:A1$(II)A*:3:6:A2$(II)T*D5:6:A3$(II)g*N7:6:A4$(II)m*bs** **************** ** SENTENCE #2* *****************VT16:HT22*VT:HT:B1$(II)*VT2:HT1:B2$(II)+VTND 2":D$;"READ ROUND 2"H)RD3ĺD$;"OPEN ROUND 3":D$;"READ ROUND 3"P)RL[)I1N)A1$(I),A2$(I),A3$(I),A4$(I),F1$(I))B1$(I),B2$(I),B3$(I),B4$(I),F2$(I))I)D$;"CLOSE")!)&)( ******************)* ** SENTENCE #1*,*** ((3$( VTAB 2 HTAB 2A(2,418,418,182,182,4^(1,319,319,191,191,3d(j(( *****************( ** READ DATA **( *****************((RD1ĺD$;"OPEN ROUND 1":D$;"READ ROUND 1")RD2ĺD$;"OPEN ROU145,72148,67 '145,62148,67&'8' FINISH SIGN>'P'"18:"FINISH"a',1,1751,145t'639,17539,145{'@6'JX2404'T2X,130'^X'h61850: ANS BOX''' ****************' ** ANSWER BOX **( *************Y&(\*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:          SC1 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)31c1LL(4,1)20:LL(4,2)240XSTART100:XFINISH24,1YSTART105:HOLD1<10:1XX,YYh162600: MOVE SKIER FROM 3RD->4TH STEP.|$11:" "&12:" "(13:" ")162800: DRAW BOX*1EX1COUNT1Ģ2:2:"1 POINT !".1EX1COUNT1ī1261081SCW(16384)016368,0G0W141ī12510: MOVE SKIER 3RD->4TH STEP.p0C5ī16000: 2ND SENTENCE WIPE OUT.{012400062750: ERASE SENTENCE #2024:" "063000: BLANNK RETURN BOX02:2:" "0:TR\0V21Ģ24:"PRESS RETURN TO GO ON.":45,18294,18294,19145,19145,182|f062550: RETURN AA$=CAUSE OR EFFECT.p06:AA$z0T1250:T0V21ī12440: SKIP FLASH COUNTER.0CC106:" "0T1100:T0V20ī12490 002:2:" "?024:" "]063000: BLANK RETURN BOXm 00:1XX,YY*062600: MOVE SKIER FROM 2ND->3RD STEP4062100: SENT.#2>062200: INPUT C OR E, WITH FLASHING CURSOR.H062400: ANS.T/F?R0T125STEP-/C5ī14000: 1ST SENTENCE WIPE OUT.8/12170>/D/^0 *******************w0 ** MOVE SKIER FROM0 ** 2ND TO 3RD STEP0 *******************0 0 0XSTART188:XFINISH100:YSTART61062700: ERASE SENTENCE #1 94,18294,19145,19145,182Hv/62500: RETURN AA$ = CAUSE OR EFFECT.P/C0\/6:AA$l/T1250:T}/V11ī12210/CC1/6:" "/T1100:T/V10ī12250/W(16384)/16368,0/W141ī12300: MOVE SKIER 2ND->3RD MOVE SKIER DOWN SLOPE TO 1ST FLAG4/PRRDī12100E/F31ī12100a/61900:F31: READ DATAvD/62000: SENT.#1N/62200: INPUT C OR E, WITH FLASHING CURSOR.X/62300: ANS.T/F?b/T1250:Tl/V11Ģ24:"PRESS RETURN TO GO ON.":45,182. ** SLOPE ALGORITHM0. *******************6.H.COUNTCOUNT1T.IIII1s.EX0COUNT1COUNT2:II2.COUNTN1ī12750: END OF ROUND.T(0).:59900.XSTART260:YSTART22.61340: SLOPE.XFINISH190:HOLD1".62600:F THE FIRST"; 1):"STATEMENT IS THE CAUSE OR THE EFFECT." 6)::"TYPE ";(34);"C";(34);" FOR CAUSE OR ";(34);"E";(34);" FOR EFFECT." :)3 ;)188,80224,80 <)188,81224,81 @)60000 . . ******************* . ** START MAIN SKI-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. I'LL GIVE YOU TWO" ,):"STATEMENTS. DECIDE 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( ***************** <(.'' FILENAME:MAIN!$'K3'II0:RD0:V12:V22:COUNT0:EX0:F30T4'AN0f8'61000: ASSMr='D$(4)}B'T(0)L'N13:SC0Q'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                  +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*  ******************+:59900F2:14:"ALPINE SKIER"M$6X)FF132g.X50FF7v82FFX,11=2FFX,11B2FFX,15G2FFX,15LXV3` *****************F0H(4);"BRUN ASSM"6R<S ****************h ** CLICK SOUND ****************S16336T15SOUND(S)(S)(S)(S)T ****************** ** ALP SKI HEADER FOR CR ] *****************&^J`24:"PRESS RETURN TO GO ON."re45,18294,18294,19145,19145,182jCR13128t16368,0W(16384):W1286007016368,0:WCR60070>@ *****************B ** RUN ASSMD$;"."'60000-'(4);"BLOAD CHAIN,A520"<'520"MAIN"Ix"END":Oi *******************~ ** HGR2 SCREEN *******************16302,0:16304,016299,0:16297,0XZ *****************\ ** WAIT:59900y'61200: HEADERN~'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 LUCK, ";NAN YOU'LL GET"7.':"ANOTHER SENTENCE. IF YOU ANSWER"b8':"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."`'60000t'&:"THE EFFECT.":e&:"TYPE ";(34);"C";(34);" FOR CAUSE OR ";(34);"E";(34);" FOR EFFECT."v&48,6582,65&48,6682,66&60000':59900'61200: HEADER'6:"IF YOU ARE RIGHT, YOU MAKE IT THROUGH" $':"THE FIRST GATE. THE THE VASE...";(34);" IS THE"-4&:"CAUSE."^>&:"THE EFFECT IS WHAT HAPPENED -- THE VASE"sH&:"WAS BROKEN."~R&60000&:59900&61200: HEADER&6:"I'LL GIVE YOU TWO STATEMENTS. DECIDE"&:"IF THE FIRST STATEMENT IS THE CAUSE OR"DER3%4:"THERE IS A REASON FOR EVERYTHING THAT"_%:"HAPPENS. THE REASON IS THE CAUSE."&:"WHAT HAPPENS IS THE EFFECT. HERE'S AN" &:"EXAMPLE:"&:" MY SON DROPPED THE VASE AND" &:" BROKE IT."*&:(34);"MY SON DROPPED*************#d% ** INSTRUCTIONS;e% *****************Af%N%:59900b%61200: HEADER%6:"TO BECOME A CHAMPION SKIER, YOU'LL HAVE"%:"TO TELL THE DIFFERENCE BETWEEN CAUSE"%:"AND EFFECT."%60000%:59900%61200: HEA:"THANKS, ";NA$;"."E0%:"HOW WOULD YOU LIKE TO BECOME AN OLYMPIC"t:%:"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%:"READING SKILLS."]%60000b% c% ****E. WHAT'S YOUR FIRST NAME?"?$:"TYPE IT AND PRESS RETURN."N$1170,166[$10:NA$n$(NA$)19370$NA$(NA$,12)$(NA$,1)" "NA$(NA$,(NA$)1):9430$(NA$,1)" "NA$(NA$,(NA$)1):9440%:59900!%61200: HEADER&%6RNATIONAL".#18:20:"LEARNING CORPORATION"A#61100: CLICKQ#T1500:Td#61100: CLICKo#60000u## *********************# ** STUDENT'S NAME# *********************##::59900$61200: HEADER$6:"HI THER:1F#XX165:YY161"P#1XX,YY3Z#X165404L_#Y((FDX)FA)FBFCYd#1XX,YYdn#1X,Yrs#XXX:YYYyx#X#T1500:T#7:5:"ALPINE SKIER"#61100: CLICK#T1500:T#16:23:"COPYRIGHT 1981" #17:19:"IMPERIAL INTEXX250:YY130!X2501704?!Y((FDX)FA)FBFE(FCX)L"1XX,YYW"1X,Ye"XXX:YYYl"X{"1170,166)#*# ** FLAT PLANE **+#.#FA3: NO.OF NODES/#FB5: AMPLITUDE0#FC160: Y OFFSET2#FD166: X OFFSET<#3:033,100:232,0"X59900: HGR2 ON(L> SKIER ANIMATIONDQZ3:0:1bhT11000:Tqi1250,130nT11000:TxFA3: NO. OF NODESFB5: AMPLITUDE@FC575: Y OFFSETFD250: X OFFSET FE0.4: SLOPEB!3:0:1 H!*  *********************# d+ :T ,:(4);"BLOAD PIC.COPYRIGHT,A$4000"x 6(4);"BLOAD SHAPETABLE,A$6400"~ ; @ SHAPE#1:SKIER J SHAPE#2:CIRCLE L SHAPE#3:SQUARE CURSOR O ADDRESS $6400 T SHAPETABLE LENGTH,$82 ^ 2UO$(I);H$;" 1:39:RO$(I);V$;9 $24:1:BO$(I);H$;G I15200Q " ";g P1:1:LO$(I);V$;u I05500 D$;" "; |I W(16384) D16368,0 WCR4600  p  8 *********************  ** COPYRIGHT FRAME *ATA COMMAND";CR$- <" MICROCOMPUTER";CR$O " LEARNING PROGRAM";CR$;CR$r 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$"*" I02 \1:1: ******************  E UO$(0)"":UO$(1)" ":UO$(2)" "v 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:34,7 :"THIS IS A D ******************** 3 l(4);"BRUN ASSM"C DC1ī6600d 4UO$(3),RO$(3),BO$(3),LO$(3) CR13128:NO("N")128 Q$(34):D$(10)(8):CR$(13):UN$(21):NR$(14) ` ( ****************** ** OPENING FRAME T YOU"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"!:"CAUSE AND EFFECT. I HOPE TO SEE ī6800p5420II2N3NW(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(163T 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?~d FILENAME:INSTRUCTIONS#),B ******************X ** ALPINE SKIERaX **| ** CAUSE AND EFFECT.  ** ** 4-30-81  ******************Lx ********************@ ** INITIALIZATIONS                :"STUDENT'S RESPONSE: C"?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))67ĺ:"STUDENT'S RESPONSE: E" S(F2$(II))69ĺ ";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:" 1:" " RP21R8:1:"SENTENCE GIVEN:"RA$B1$(II)" "B2$(II)" "B3$(II)" "B4$(II)" I))69ĺ:"STUDENT'S RESPONSE: C"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))67ĺ:"STUDENT'S RESPONSE: E"!$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)" "A4ŠΠӻŠΠӠĮōŠӠŻ٠ŠӮōΠΠŠһҠҠԠŮōŠΠӍϠԻōŠӠԮÍŠРӠһˠЮōҠӻ  ŠҠŮōԠŠǻӠ̠ӮÍÍŠŻԠҠΠҮō̠ĻŠĠӮōՠŠŠҠ̻ӠŠӮōΠŠŻԠŠԍŮÍ̻РΠŠŮōӠŠȍŠԻ΍ŠŮÍŠٻ̮ōȻҠ٠ŮōŠΠōΠ̠ٻԠήÍŠҠΠŻԠԠŮÍҠΧԠԻҠӠԠƍӮōΠŠһΠŠ®ōРˍΠŠһŠӮҠŠԻĠŠٮōŠĻӠΠӍΠŠҮōŠĠӻԠҠӍٮÍҠӠ̍ԻΠӮōנŠλŠӠӍҮÍҠӠԻΠŠԱˠӠһҠŠϠˮōРҠԻΠϠîōĠһΠŠĮÍҠҠӻŠӠҮÍŠǠӻРΠǮōȠΠōŻŠϠЮÍ     **! ** ALP SKI HEADER3! ******************9!F!:59900a!2:14:"ALPINE SKIER"n!$6:0:1y!)FF132!.X50FF7!82FFX,11!=2FFX,11!B2FFX,15!G2FFX,15!LX!V3!`R***** B ** RUN ASSM/ D *****************5 FK H(4);"BRUN ASSM"Q RW n **************** ** CLICK SOUND **************** S16336 T15 SOUND(S)(S)(S)(S) T ! ******************************#\ ** WAIT FOR CR;] *****************A^e`24:"PRESS RETURN TO GO ON."e45,18294,18294,19145,19145,182jCR13128t16368,0W(16384):W1286007016368,0:WCR60070> @ ************V3 `RSK15:LE$(K)"":K_SB1$(II)"":B2$(II)"":B3$(II)"":B4$(II)"":F2$(II)""eSk ******************* ** HGR2 SCREEN *******************16302,0:16304,016299,0:16297,0XZ ***(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,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ÍƠōһŮÍŻōȮÍŠŠӻĠӠŠŮō̠ΠōŻ΍ŠͮÍҠҠӠλŠӮÍŠĠӻӠϠčΠ̮ōŠΠӠٻӠ̠ͮŠŻŠӠήÍԠȻŠŠŮÍŠ׍ӻנˠԠ׮ōӠһӠӮōŠ΍ӻŠčӮōŠΠӻˠήōРΠŠȠӻŠĠӮōՠԻՠŠٮōԠӻӠͮÍԠŠԻҠԍӮōԠԠӻŠҠӮōԠōŻЍŮōԠŠ̻̠ŠӮÍбŠ٠ӠλŠ٠ӮÍŠàԍӠĻŠҍӮÍРȻŠӠϠήÍԠٻˠΠōԠήōŠŠϻŠҠǮÍŠӠ̻ΠӮō    ****************(+ ** ANSWER BOX **?+ ****************E+L+3`+ VTAB 2 HTAB 2}+2,418,418,182,182,4+1,319,319,191,191,3+++ *****************+ ** READ DATA **+ *****************+$,RD1ĺ*9:23:"1"#*165,62145,626*145,72165,72I*145,72148,67\*145,62148,67b*t* FINISH SIGNz**"18:"FINISH"*,1,1751,145*639,17539,145*@6*JX2404*T2X,130*^X*h61850: ANS BOX**+0XSTART100:XFINISH24,1YSTART105:HOLD1<10:1XX,YYh162600: MOVE SKIER FROM 3RD->4TH STEP.|$11:" "&12:" "(13:" ")162800: DRAW BOX*1EX1COUNT1Ģ2:2:"1 POINT !".1EX1COUNT1ī1261081SCW(16384)016368,0G0W141ī12510: MOVE SKIER 3RD->4TH STEP.p0C5ī16000: 2ND SENTENCE WIPE OUT.{012400062750: ERASE SENTENCE #2024:" "063000: BLANNK RETURN BOX02:2:" "**! ** ALP SKI HEADER3! ******************9!F!:59900a!2:14:"ALPINE SKIER"n!$6:0:1y!)FF132!.X50FF7!82FFX,11!=2FFX,11!B2FFX,15!G2FFX,15!LX!V3!`R***** B ** RUN ASSM/ D *****************5 FK H(4);"BRUN ASSM"Q RW n **************** ** CLICK SOUND **************** S16336 T15 SOUND(S)(S)(S)(S) T ! ******************************#\ ** WAIT FOR CR;] *****************A^e`24:"PRESS RETURN TO GO ON."e45,18294,18294,19145,19145,182jCR13128t16368,0W(16384):W1286007016368,0:WCR60070> @ ************WITH PROMPT.$SK15:LE$(K)"":K_SB1$(II)"":B2$(II)"":B3$(II)"":B4$(II)"":F2$(II)""eSk ******************* ** HGR2 SCREEN *******************16302,0:16304,016299,0:16297,0XZ ***  ******************8 ** ALP SKI HEADERQ ******************Wd:599002:14:"ALPINE SKIER"$6:0:1)FF132.X50FF782FFX,11=2FFX,11B2FFX,15G2FFX,15LXV3`VOR CR  >#@ *****************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: C"*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))67ĺ:"STUDENT'S RESPONSE: E" S(F2$(II))69ĺ:"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: C"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:" 42)X2791103)(Y((FDX)FA)FBFE(FCX)=)2X,YD).>>''''''I -?->5ے--(--(--(--(--(--(@@#????? d-6--??W--??W--??W--??W ".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))67ĺ:"STUDENT'S RESPONSE: E" $O(F1$(II))69ĺ:"STUDENT'S ";NLE$(1)""ĺ" 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"!:"CAUSE AND EFFECT. 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. 35607 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        3(` (t%(~ *****************<( ** SLOPE & FLAGST( *****************Z(g(:59900|( SLOPE EQUATION((FA14: NO.OF NODES(FB6: AMPLITUDE(FC360: Y OFFSET(FD230: X OFFSET(FE0.50: SLOPE( 3)279,(S) 'T''1' ******************I' ** ALP SKI HEADERb' ******************h'u':59900'2:14:"ALPINE SKIER"'$6:0:1')FF132'.X50FF7'82FFX,11'=2FFX,11'B2FFX,15'G2FFX,15'LX(VR ****************** -:59900H2:14:"ALPINE SKIER"O$6Z)FF132i.X50FF7x82FFX,11=2FFX,11B2FFX,15G2FFX,15LXV3`V3`F2FFX,15LXV3`VD *****************F2H(4);"BRUN ASSM"8R>U ****************j ** CLICK SOUND ****************S16336T15SOUND(S)(S)(S)(S)T ****************** ** ALP SKI HEADEIT FOR CR"] *****************(^L`24:"PRESS RETURN TO GO ON."te45,18294,18294,19145,19145,182jCR13128t16368,0W(16384):W1286007016368,0:WCR60070>@ *****************B ** RUN ASSMNA$;"."'60000/'(4);"BLOAD CHAIN,A520">'520"MAIN"Kx"END":Qk ******************* ** HGR2 SCREEN *******************16302,0:16304,016299,0:16297,0XZ ***************** \ ** WAt':59900y'61200: HEADERP~'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 LUCK, ";8,0:WCR60070&&>4&@ *****************F&B ** RUN ASSM^&D *****************d&Fz&H(4);"BRUN ASSM"&R&& ****************& ** CLICK SOUND& ****************&&S16336&T15'SOUND(S)(S)(S)HEN YOU'LL GET"9.':"ANOTHER SENTENCE. IF YOU ANSWER"d8':"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."`'60000 "&:"THE EFFECT.":g&:"TYPE ";(34);"C";(34);" FOR CAUSE OR ";(34);"E";(34);" FOR EFFECT."x&48,6582,65&48,6682,66&60000':59900'61200: HEADER'6:"IF YOU ARE RIGHT, YOU MAKE IT THROUGH"$':"THE FIRST GATE. TED THE VASE...";(34);" IS THE"/4&:"CAUSE."`>&:"THE EFFECT IS WHAT HAPPENED -- THE VASE"uH&:"WAS BROKEN."R&60000&:59900&61200: HEADER&6:"I'LL GIVE YOU TWO STATEMENTS. DECIDE"&:"IF THE FIRST STATEMENT IS THE CAUSE ORz#??   Ҡ ŠԠ Ġ  ѮҮà Š Ġ Ġî٠! ĠΠŠ Ӡî٠!Π4ŠԠ" Ϡ ͠îԠ!ŠΠ4 Ġ Ġ00 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           20"INSTRUCTIONS". *****************F ** COLOR SUBR. **^ *****************drX30160X,YX,Y12X7:"VIOLET">5:Y109:9703H15:27:"ORANGE"ER6:Y133:970Y\18:27:"BLUE"f22:"WHEN YOU ARE SET, PRESS RETURN TO BEGIN."k16368,0pW(16384):W128880z16368,0WCR880DC1(4);"BLOAD CHAIN,A520"5********************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 ** d FILENAME:HELLOn"x; ******************Q ** ALPINE SKIERZ **u ** CAUSE AND EFFECT. **  ** 4-30-81  ****************** ******************** ** INITIALIZATIONS  ***     A520">5520"MAIN"1R5(4);"BLOAD CHAIN,A520"H\5520"INSTRUCTIONS"IRUCTIONS"' *****************? ** COLOR SUBR. **W *****************]kX30160{X,YX,Y12XLET">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  *** >> """"**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  ** COPYRIGHT FRAME **6  *********************< dF ::o ,:(4);"BLOAD PIC.COPYRIGHT,A$4000" 6(4);"BLOAD SHAPETABLE,A$6400" ; @ SHAPE#1:SKIER J SHAPE#2:SQUARE O ADDRESS $6400 T SHAPETABLE LENGTH,$62 ^ 23"*" I02$ \1:1:UO$(I);H$;; 1:39:RO$(I);V$;R $24:1:BO$(I);H$;` I15200j " "; P1:1:LO$(I);V$; I05500 D$;" "; |I W(16384) D16368,0 WCR4600  p  8 *********************4,7' :"THIS IS A DATA COMMAND";CR$D <" MICROCOMPUTER";CR$h " DEMONSTRATION DISK";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 ******************1 7  \ 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:3ITIALIZATIONS(  ********************. D l(4);"BRUN ASSM"T DC1ī6600Z { 4UO$(3),RO$(3),BO$(3),LO$(3) CR13128:NO("N")128 Q$(34):D$(10)(8):CR$(13):UN$(21):NR$(14) ` ( ****************** ,2)31"n1LL(15,1)23:LL(15,2)33>o1LL(16,1)14:LL(16,2)36Yp1LL(17,1)12:LL(17,2)3uq1LL(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)20v1LL(23,1)2:LL(23,2)13ŠҠŮōԠŠǻӠ̠ӮÍÍŠŻԠҠΠҮō̠ĻŠĠӮōՠŠŠҠ̻ӠŠӮōΠŠŻԠŠԍŮÍ̻РΠŠŮōӠŠȍŠԻ΍ŠŮÍŠٻ̮ōȻҠ٠ŮōŠΠōΠ̠ٻԠήÍŠҠΠŻԠԠŮÍҠΧԠԻҠӠԠƍӮōΠŠһΠŠ®ōРˍΠŠһŠӮҠŠԻĠŠٮōŠĻӠΠӍΠŠҮōŠĠӻԠҠӍٮÍҠӠ̍ԻΠӮōנŠλŠӠӍҮÍҠӠԻΠŠԱˠӠһҠŠϠˮōРҠԻΠϠîōĠһΠŠĮÍҠҠӻŠӠҮÍŠǠӻРΠǮōȠΠōŻŠϠЮÍ     w1LL(24,1)3:LL(24,2)213x1LL(25,1)8:LL(25,2)20Ny1LL(26,1)6:LL(26,2)13iz1LL(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):"*":I1I1620:LL(I,1):LL(I,2) ";@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$(5,(24))(26)(184)(135)(175)(139)(151)(173)(144)STRING$(8,(24))(26)(158)(129)lB2$(139)(180)BD$(130)(173)(152)(135)STRING$(2,(24))(26)(139)(180)BD$(130)(173)(144)BD$(139)(180)BD$(130)(173)5,(24))(26)(136)(47)(47) DA1$(79)STRING$(2,(24))(26)(39)(170)(149)(46)(47)STRING$(4,(24))(26)(60)(60)(47) NBD$(24)(26) XBU$(24)(27)fbB1$(144)STRING$(3,(24))(26)(160)(190)(191)(180)STRING@64,A$(I); @190,BR$(W);0 @832,A$(2I);B @128,BL$(W);O W(W1)V I_ 440e 'k '{ &CLS:(23); 0'SKIER! :A$(79)STRING$(2,(24))(26)(39)(170)(149)(46)(47)STRING$(4,(24))(26)(60)(60)(47)STRING$($ hBL$(0)" "CL$BL$(0)5 rBR$(0)" "CR$BR$(0)h |@264,"THIS IS A ";(34);"DATA COMMAND";(34); @466,"MICROCOMPUTER"; @654,"LEARNING PROGRAM"; @960,"PRESS ENTER TO GO ON."; A$INKEY$ W0 I02 INKEY$(13)550 (24) 6CR$(24)r @BL$(0)"*"CL$" "CL$"*"CL$" "CL$"*"CL$" "CL$"*"CL$" "CL$"*"CL$" "CL$"*" JBR$(0)"*"CR$" "CR$"*"CR$" "CR$"*"CR$" "CR$"*"CR$" "CR$"*"CR$" "CR$"*" TBL$(1)BL$(0)CL$" " ^BR$(1)BR$(0)CRES) N4 N$"TWELVE"; L(30),LL(30),NW(25),WW(25)I E$(128)d DATA COMMAND HEADER.j  A$(0)"* * * * * * * * * * * " A$(1)" * * * * * * * * * * *" "A$(2)" * * * * * * * * * * " ,CL$(26)^d ***********************6n ** ALPINE SKIER Qx ** COPYRIGHT 1981 k ** SEEING CAUSE AND{ ** EFFECT ** APPLE DISC VERSION ** ALPSKI/CAE ******************** # OF RUNS DOWN SLOPE  (PAIRS OF SENTENC                                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 CLEABLOWS THE KITE.",E,4,"PULL DOWN","THE SHADE;","DARKEN THE","ROOM.",C 2,"AIR CONDITIONER BREAKS DOWN;","TEMPERATURE RISES.",C,4,"THE LEAD","BREAKS; PRESS","TOO HARD ON","A PENCIL.",E  2,"THE SUN SHINES BRIGHTLY;","SHADOWS FORM.",C,3,"SNIFF SOME",BREAKS; THROW","A ROCK AT A","WINDOW.",E 2,"STARS APPEAR;","DARKNESS COMES.",E,3,"THE CURTAIN","MOVES; THE","WIND BLOWS.",E 2,"THE BALLOON BREAKS;","PRICK A BALLOON.",E,3,"JUMP IN A","PUDDLE; MAKE","A SPLASH.",CD 2,"THE KITE RISES;","WIND TIGHT SHOES.",Eg 2,"GET WET HANDS;","USE FINGER PAINTS.",E,3,"GET SOME","EXERCISE;","JUMP ROPE.",E 2,"HIT THE BALL;","FEEL THE VIBRATIONS.",C,3,"PEDAL THE","BIKE; THE","WHEELS TURN.",C( 2,"LIGHT A MATCH;","SEE THE FLAME.",C,4,"THE WINDOW",""HOT SUN.",Eo 2,"PRACTICE THE PIANO;","IMPROVE YOUR PLAYING.",C,3,"THE LEAVES","FALL; AUTUMN","ARRIVES.",E 2,"THE BRANCH MOVES;","THE WIND BLOWS.",E,2,"YOU EAT;","YOU ARE HUNGRY.",E 1,"IT RAINS; PUDDLES FORM.",C,3,"GET SORE","FEET; WEAR","_` DATA FOR ALPSKI/CAE!j't=~ ** ROUND#1 **CI 2,"THE BABY FEELS PAIN;","THE BABY CRIES.",C,4,"THE TRAFFIC","LIGHT IS","RED; THE CAR","STOPS.",C 2,"FLIP A SWITCH;","THE LIGHTS GO ON.",C,3,"GET THIRSTY;","WALK IN THE",      ";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:" d%---???W---???W---???W---???-- dV???$ -6.-....>.>>''''''I -?->5ے--(--(--(--(--(--(@@#????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,Y1W(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(16384)116368,01WCRī1270 膢 ȱ " <67 L  8ij v vo>3RD STEP4062100: SENT.#2>062200: INPUT C OR E, WITH FLASHING CURSOR.H062400: ANS.T/F?R0T125STEP-/C5ī14000: 1ST SENTENCE WIPE OUT.8/12170>/D/^0 *******************w0 ** MOVE SKIER FROM0 ** 2ND TO 3RD STEP0 *******************0 0 0XSTART188:XFINISH100:YSTART61062700: ERASE SENTENCE #1 94,18294,19145,19145,182Hv/62500: RETURN AA$ = CAUSE OR EFFECT.P/C0\/6:AA$l/T1250:T}/V11ī12210/CC1/6:" "/T1100:T/V10ī12250/W(16384)/16368,0/W141ī12300: MOVE SKIER 2ND->3RD MOVE SKIER DOWN SLOPE TO 1ST FLAG4/PRRDī12100E/F31ī12100a/61900:F31: READ DATAvD/62000: SENT.#1N/62200: INPUT C OR E, WITH FLASHING CURSOR.X/62300: ANS.T/F?b/T1250:Tl/V11Ģ24:"PRESS RETURN TO GO ON.":45,182. ** SLOPE ALGORITHM0. *******************6.H.COUNTCOUNT1T.IIII1s.EX0COUNT1COUNT2:II2.COUNTN1ī12750: END OF ROUND.T(0).:59900.XSTART260:YSTART22.61340: SLOPE.XFINISH190:HOLD1".62600:F THE FIRST"; 1):"STATEMENT IS THE CAUSE OR THE EFFECT." 6)::"TYPE ";(34);"C";(34);" FOR CAUSE OR ";(34);"E";(34);" FOR EFFECT." :)3 ;)188,80224,80 <)188,81224,81 @)60000 . . ******************* . ** START MAIN SKI-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. I'LL GIVE YOU TWO" ,):"STATEMENTS. DECIDE 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( ***************** <(1'' FILENAME:MAIN!$'K3'II0:RD0:V12:V22:COUNT0:EX0:F30T4'AN0f8'61000: ASSMr='D$(4)}B'T(0)L'N13:SC0Q'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           ! ! "     ! 0(1I1620:LL(I,1):LL(I,2):"*":IM1I15:LL(I,1):LL(I,2):" ":It1I2125:LL(I,1):LL(I,2):"*":I1I610:LL(I,1):LL(I,2):" ":I1W(16384)116368,01WCRī127001I2630:LL(I,1):LL(I,2):"*":I1I1115:L BROKE IT."F*&:(34);"MY SON DROPPED THE VASE...";(34);" IS THE"V4&:"CAUSE.">&:"THE EFFECT IS WHAT HAPPENED -- THE VASE"H&:"WAS BROKEN."R&60000&:59900&61200: HEADER&6:"I'LL GIVE YOU TWO STATEMENTS. DECIDE"(&: %60000%:59900,%61200: HEADER\%4:"THERE IS A REASON FOR EVERYTHING THAT"%:"HAPPENS. THE REASON IS THE CAUSE."&:"WHAT HAPPENS IS THE EFFECT. HERE'S AN" &:"EXAMPLE:"&:" MY SON DROPPED THE VASE AND"  &:" DING SKILLS."]%60000b%6c% *****************Ld% ** INSTRUCTIONSde% *****************jf%w%:59900%61200: HEADER%6:"TO BECOME A CHAMPION SKIER, YOU'LL HAVE"%:"TO TELL THE DIFFERENCE BETWEEN CAUSE"%:"AND EFFECT."0%:59900"!%61200: HEADER=&%6:"THANKS, ";NA$;"."n0%:"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%:"REA HEADER5$6:"HI THERE. WHAT'S YOUR FIRST NAME?"X$:"TYPE IT AND PRESS RETURN."g$1170,166t$10:NA$$NA$""9370$NA$" "9370$NA$(NA$,20)$(NA$,1)" "NA$(NA$,(NA$)1):9430$(NA$,1)" "NA$(NA$,(NA$)1):944%#17:19:"IMPERIAL INTERNATIONAL"I#18:20:"LEARNING CORPORATION"\#61100: CLICKl#T1500:T#61100: CLICK#60000## *********************# ** STUDENT'S NAME# *********************##:59900$61200:FD166: X OFFSET<#3:0:10F#XX165:YY161=P#1XX,YYNZ#X165404g_#Y((FDX)FA)FBFCtd#1XX,YYn#1X,Ys#XXX:YYYx#X#T1500:T#7:5:"ALPINE SKIER"#61100: CLICK#T1500:T#16:23:"COPYRIGHT 1981"4: SLOPEB!3:0:1(H!XX250:YY130:!X2501704Z!Y((FDX)FA)FBFE(FCX)g"1XX,YYr"1X,Y"XXX:YYY"X"1170,166)#*# ** FLAT PLANE **+#.#FA3: NO.OF NODES/#FB5: AMPLITUDE0#FC160: Y OFFSET2#BLE LENGTH,$82^(233,100:232,0=X59900: HGR2 ONCLY SKIER ANIMATION_lZ3:0:1}hT11000:Ti1250,130nT11000:TxFA3: NO. OF NODESFB5: AMPLITUDE@FC575: Y OFFSETFD250: X OFFSET  FE0.  ** COPYRIGHT FRAME **6  *********************< dF ::o ,:(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 SHAPETA"*" I02$ \1:1:UO$(I);H$;; 1:39:RO$(I);V$;R $24:1:BO$(I);H$;` I15200j " "; P1:1:LO$(I);V$; I05500 D$;" "; |I W(16384) D16368,0 WCR4600  p  8 *********************4,7' :"THIS IS A DATA COMMAND";CR$D <" MICROCOMPUTER";CR$h " DEMONSTRATION DISK";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 ******************1 7  \ 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:3ITIALIZATIONS(  ********************. D l(4);"BRUN ASSM"T DC1ī6600Z { 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#),B ******************X ** ALPINE SKIERfX ** DEMO ** CAUSE AND EFFECT.  ** SKIDEMO/CAE ** 4-30-81  ******************Lx ******************** @ ** IN          \*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:x> ******************,z> ** 2ND SENTENCE?{> ** WIPE OUT.X|> ******************^~>w>XSTART96:YSTART105>1100,105>XFINISH80:HOLD0>62600: MOVE SKIER>48:160,105>T1500:T>48:160,105>32:145,125 >16:1110,100  748:190,115270:1110,105E716:1120,120X(732:1100,130e-73:0:12724:1:"SORRY, NO POINTS THIS TIME."<7T12000:TF760000: WAIT FOR CR WITH PROMPT.P7EX1COUNT1İ62900<12000: START OVERv> ******************636XSTART188:YSTART61A61192,61X6XFINISH160:HOLD0p662600: MOVE SKIER648:1140,606T1500:T648:1140,60632:1120,806T1500:T632:1120,80616:1110,1006T1500:T7***** ** ALP SKI HEADER6 ******************<I:59900d2:14:"ALPINE SKIER"k$6v)FF132.X50FF782FFX,11=2FFX,11B2FFX,15G2FFX,15LXV3`FFX,15LXV3`F********B ** RUN ASSM2D *****************8FNH(4);"BRUN ASSM"TRZq **************** ** CLICK SOUND ****************S16336T15SOUND(S)(S)(S)(S)T **************************"\ ** WAIT FOR CR;] *****************A^e`24:"PRESS RETURN TO GO ON."e45,18294,18294,19145,19145,182jCR13128W(16384)16368,0WCRī60130T150:T60070>@ *********" '::"GOOD LUCK, ";NA$;"."+'60000H'(4);"BLOAD CHAIN,A520"W'520"MAIN"dx"END":j ******************* ** HGR2 SCREEN *******************16302,0:16304,016299,0:16297,0X Z ****00t':59900#y'61200: HEADERU~'6:"IF YOU EARN 8 POINTS, YOU WIN A SPECIAL"':"TROPHY FOR BECOMING AN OLYMIC CLASS"':"ALPINE SKIER. FOR THIS DEMONSTRATION,"':"THERE ARE 12 RACES IN EACH ROUND."':"THERE THREE ROUNDS IN ALL.E. THEN YOU'LL GET">.':"ANOTHER SENTENCE. IF YOU ANSWER"i8':"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."`'600"IF THE FIRST STATEMENT IS THE CAUSE OR"?&:"THE EFFECT.":&:"TYPE ";(34);"C";(34);" FOR CAUSE OR ";(34);"E";(34);" FOR EFFECT."&60000':59900'61200: HEADER'6:"IF YOU ARE RIGHT, YOU MAKE IT THROUGH"$':"THE FIRST GAT*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*~>T1500:T >32:145,125. >16:135,145> >T1500:TP >16:135,145b >48:120,155s >0:145,150 >16:145,170 >32:120,180 >3:0:1 ?24:1:"SORRY, NO POINTS THIS TIME." ?T12000:T!?60000: WAIT FOR CR WITH PR 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*`pOMPT. ! ?EX1COUNT1İ62900E!A12000: START OVE R K!Na!N ***************w!N ** ERROR (II,1)!N ***************!N! N10:"SENTENCE GIVEN:"!*NA$""!4NA$A1$(II)" "A2$(II)" "A3$(II)" "A4$(II) ">NF1$(II)"C"ĪF19:"NOW LET'S GO TO THE SLOPES FOR REAL."7960000=9C9^9 ********************x9 ** BLANK RETURN BOX9 ********************990:45,18294,18294,19145,19145,182:39""R9959900: HGR2:":"THAT'S A$"CAUSE"("HNF1$(II)"E"ĪF1$"EFFECT"H"RN:"CORRECT RESPONSE: ";F1$v"\NF1$(II)"C"ĺ:NA$;"'S RESPONSE: EFFECT""fNF1$(II)"E"ĺ:NA$;"'S RESPONSE: CAUSE""pN60010: WAIT FOR CR WITHOUT PROMPT."rN10:958"uN"zN"|N ******************,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 I$;"'S RESPONSE: EFFECT"D$NF1$(II)"E"ĺ:NA$;"'S RESPONSE: CAUSE"m$N60010: WAIT FOR CR WITHOUT PROMPT.{$N10:958$N$$ *******************$ ** HGR2 SCREEN$ *******************$$16302,0:16304,0%16299,0:1#~N ** ERROR (II,2).#N ******************4#NO#N10:"SENTENCE GIVEN:"Y#NA$""#NA$A1$(II)" "A2$(II)" "A3$(II)" "A4$(II)#NF1$(II)"C"ĪF1$"CAUSE"#NF1$(II)"E"ĪF1$"EFFECT"#N:"CORRECT RESPONSE: ";F1$$NF1$(II)"C"ĺ:NAŠ٠ӠλŠ٠ӮÍŠÍԠӠĻŠҠӮÍРȻŠӠϠήÍԠٻˠΠŠԠήō!EADER5%4:"THERE IS A REASON FOR EVERYTHING THAT"a%:"HAPPENS. THE REASON IS THE CAUSE."&:"WHAT HAPPENS IS THE EFFECT. HERE'S AN" &:"EXAMPLE:"&:" MY SON DROPPED THE VASE AND" &:" BROKE IT."*&:(34);"MY SON DROPP***************%d% ** INSTRUCTIONS=e% *****************Cf%P%:59900d%61200: HEADER%6:"TO BECOME A CHAMPION SKIER, YOU'LL HAVE"%:"TO TELL THE DIFFERENCE BETWEEN CAUSE"%:"AND EFFECT."%60000%:59900%61200: H6:"THANKS, ";NA$;"."G0%:"HOW WOULD YOU LIKE TO BECOME AN OLYMPIC"v:%:"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%:"READING SKILLS."]%60000b%c% **ERE. WHAT'S YOUR FIRST NAME?"A$:"TYPE IT AND PRESS RETURN."P$1170,166]$10:NA$p$(NA$)19370$NA$(NA$,12)$(NA$,1)" "NA$(NA$,(NA$)1):9430$(NA$,1)" "NA$(NA$,(NA$)1):9440%:59900!%61200: HEADER&%TERNATIONAL"0#18:20:"LEARNING CORPORATION"C#61100: CLICKS#T1500:Tf#61100: CLICKq#60000w## *********************# ** STUDENT'S NAME# *********************##::59900$61200: HEADER$6:"HI TH0:1F#XX165:YY161$P#1XX,YY5Z#X165404N_#Y((FDX)FA)FBFC[d#1XX,YYfn#1X,Yts#XXX:YYY{x#X#T1500:T#7:5:"ALPINE SKIER"#61100: CLICK#T1500:T#16:23:"COPYRIGHT 1981" #17:19:"IMPERIAL INH!XX250:YY130!!X2501704A!Y((FDX)FA)FBFE(FCX)N"1XX,YYY"1X,Yg"XXX:YYYn"X}"1170,166)#*# ** FLAT PLANE **+#.#FA3: NO.OF NODES/#FB5: AMPLITUDE0#FC160: Y OFFSET2#FD166: X OFFSET<#3:233,100:232,0$X59900: HGR2 ON*L@ SKIER ANIMATIONFSZ3:0:1dhT11000:Tsi1250,130nT11000:TxFA3: NO. OF NODESFB5: AMPLITUDE@FC575: Y OFFSETFD250: X OFFSET FE0.4: SLOPEB!3:0:1 **  *********************% d- :V ,:(4);"BLOAD PIC.COPYRIGHT,A$4000"z 6(4);"BLOAD SHAPETABLE,A$6400" ; @ SHAPE#1:SKIER J SHAPE#2:CIRCLE L SHAPE#3:SQUARE CURSOR O ADDRESS $6400 T SHAPETABLE LENGTH,$82 ^1:UO$(I);H$;$ 1:39:RO$(I);V$;; $24:1:BO$(I);H$;I I15200S " ";i P1:1:LO$(I);V$;w I05500 D$;" "; |I W(16384) D16368,0 WCR4600  p  8 *********************  ** COPYRIGHT FRAMEATA COMMAND";CR$- <" MICROCOMPUTER";CR$Q " DEMONSTRATION DISK";CR$;CR$t 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$"*" I02 \1: ******************  E UO$(0)"":UO$(1)" ":UO$(2)" "v 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:34,7 :"THIS IS A D6297,0 %%X*%Z *****************?%\ ** WAIT FOR CRX%] *****************^%^%`24:1:"PRESS RETURN TO GO ON. "%e45,18294,18294,19145,19145,182%jCR13128%t16368,0%W(16384):W12860070&1636 ******************** 3 l(4);"BRUN ASSM"C DC1ī6600d 4UO$(3),RO$(3),BO$(3),LO$(3) CR13128:NO("N")128 Q$(34):D$(10)(8):CR$(13):UN$(21):NR$(14) ` ( ****************** ** OPENING FRAME T d FILENAME:INSTRUCTIONS#),B ******************X ** ALPINE SKIERaX **| ** CAUSE AND EFFECT.  ** ** 4-30-81  ******************Lx ********************@ ** INITIALIZATIONS "" " " " """""""""