' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL]$$8HIL,նh, ,`, ,`, , C,:/8` 鷎귭෍ᷩ췩緈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,&"_]` L/浍굺L  !"#$%&'()*+,-./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#0EB 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`   vLDcpq` [` ~  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 iõ`  \ 濭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䵍䵐`"L ŵ8ŵH ~(` F d ֠z# u`0,39Y & Y 0 I : 6( D X0194 N 0,20X; X XU b DEMO SCREEN COMMANDz l 21:"TYPE A NUMBER FROM 1 TO15" v I X039 Y039 X,Y)I X,Y Y X 24:"PRESSSPACE BAR TO CONTINUE";:Z$:: STOP,QUIT$ hA(Q$):A((40A)2)1 r:A:Q$7 |? 22c Q$" PRESS RETURN TO CONTINUE "l 360x 23:34 F$:  **** FLAG-SCRN*** : 1 Y039 0,39Y Y 15 I1122  AI3  YAA2  10! " YOUR PERCENTAGE IS ";P* 3900 9 440C ::U ALUMINUM,ALg ANTIMONY,SBv  ARGON,AR  ARSENIC,AS  CALCIUM,CA " CARBON,C , CHLORINE,CL 6 CHROMIUM,CR @ COPPER,CU J FLUORINE,F T GOLD,AU ^ME THE SYMBOL.":Y$ (:" 26- <Q$,A$A FQ$"STOP"ī160J P360P ZX dR$^ n xR$A$Q$" THE CORRECT ANSWER IS "A$:360:NWNW1 R$A$Q$"VERY GOOD!! ":360:NRNR1 390 40 TQNRNW P(100(NRTQ).5) 12: ELEMENT QUIZ::6m" PLEASE TYPE IN YOUR":"NAME AND PRESS THE":"THE RETURN KEY":::Z$:t6 " HELLO ";Z$;" I AM":" HERE TO HELP YOU LEARN THE ":"ELEMENTS AND THEIR SYMBOLS. ":"I WILL GIVE YOU THE NAME AND YOU ":"WILL GIVE     STOP,QUIT$ hA(Q$):A((40A)2)1 r:A:Q$7 |? 22c Q$" PRESS RETURN TO CONTINUE "l 360x 23:34 F$: Z10! " YOUR PERCENTAGE IS ";P* 3900 9 440C ::U ALUMINUM,ALg ANTIMONY,SBv  ARGON,AR  ARSENIC,AS  CALCIUM,CA " CARBON,C , CHLORINE,CL 6 CHROMIUM,CR @ COPPER,CU J FLUORINE,F T GOLD,AU ^ME THE SYMBOL.":Y$ (:" 26- <Q$,A$A FQ$"STOP"ī160J P360P ZX dR$^ n xR$A$Q$" THE CORRECT ANSWER IS "A$:360:NWNW1 R$A$Q$"VERY GOOD!! ":360:NRNR1 390 40 TQNRNW P(100(NRTQ).5) 12: ELEMENT QUIZ::6m" PLEASE TYPE IN YOUR":"NAME AND PRESS THE":"THE RETURN KEY":::Z$:t6 " HELLO ";Z$;" I AM":" HERE TO HELP YOU LEARN THE ":"ELEMENTS AND THEIR SYMBOLS. ":"I WILL GIVE YOU THE NAME AND YOU ":"WILL GIVE    A(Q$):A((40A)2)# J:A:Q$) T1 ^22U hQ$" PRESS RETURN TO CONTINUE "^ r320j |23:34t F$::10" " YOUR PERCENTAGE IS ";P+ 3505 ::G ALUMINUM,ALY ANTIMONY,SBh ARGON,ARy ARSENIC,AS CALCIUM,CA CARBON,C  CHLORINE,CL  CHROMIUM,CR  COPPER,CU " FLUORINE,F , GOLD,AU 6 STOP,QUIT @u ELEMENT QUIZ:#6.(Q$,A$B2Q$"STOP"ī140K<320QFYPR$_ZdR$A$Q$" THE CORRECT ANSWER IS "A$:320:NWNW1nR$A$Q$"VERY GOOD!! ":320:NRNR1x35020TQNRNWP(100(NRTQ).5) 12  OP   :6E$,S$&(M1512R$(M)7<JFE$"END"ī300\P ALUMINUM,ALnZ ANTIMONY,SBd ARSENIC,ASn ARGON,ARx CALCIUM,CA CARBON,C CHLORINE,CL CHROMIUM,CR COPPER,CU FLUORINE,F END,ST X039 Y039 X,Y)I( X,Y/ Y6 Xe 24:"PRESSSPACE BAR TO CONTINUE";:Z$::k Yl **** FLAG-SCRN***! :( 14 Y039@ 0,39YG YO 15] I1122g AI3t YAA2 0,39Y& Y0 I: 6D X019N 0,20XX Xb DEMO SCREEN COMMANDl 21:"TYPE A NUMBER FROM 1 TO15"v I  !~ GREAT!960M"OOPS --WHAT HAPPENED? THE CORRECT ANSWER SHOULD HAVE BEEN ";S$(I);"M:o"DO YOU WISH TO PROCEED?";T$$T$"Y"950.T$"N"9908BT(5(1))1L:R$(T):V NICE JOB!` WAY TO GO!j KEEP UP THE GOOD WORK!t SUPERENT IS ";E$(I);" ";C$#6C$S$(I)1080JC$S$(I)1030PaX11500:XhIA$;" I HOPE YOU NOW KNOW":"THE ELEMENTS AND THEIR SYMBOLS......":" GOOD LUCK ""MANGANESE HAS THE SYMBOL MN";H$:870ET YOU TO TYPE IN THE":"SYMBOL OF THE ELEMENT. "<*:::4"REMEMBER TO DEPRESS THE RETURN KEY WHEN YOU HAVE ENTERED THE ANSWER.">::H" DO YOU NEED TO SEE AN EXAMPLE Y/N ?";B$R\B$"Y"1000fI135pz6"THE ELEME$(35)"ZINC" S$(35)"ZN"$ 6` "TYPE IN YOUR NAME AND DEPRESS":"THE RETURN KEY ":A$f m 60 "HELLO ";A$;" I AM HERE TO HELP":" YOU LEARN THE ELEMENTS":"AND THEIR SYMBOLS. I":"WILL GIVE YOU THE NAME":" OF AN ELEMENT AND I ":"WAN" XE$(28)"SILICON"& bS$(28)"SI": lE$(29)"SILVER"J vS$(29)"AG"^ E$(30)"SODIUM"n S$(30)"NA" E$(31)"SULFUR" S$(31)"S" E$(32)"TIN" S$(32)"SN" E$(33)"TUNGSTEN" S$(33)"W" E$(34)"URANIUM" S$(34)"U" E$(21)"NICKEL"! S$(21)"NI"7 E$(22)"NITROGEN"F S$(22)"N"Z E$(23)"OXYGEN"i S$(23)"O" E$(24)"PHOSPHOROUS" S$(24)"P" E$(25)"PLATINUM" &S$(25)"PT" 0E$(26)"POTASSIUM" :S$(26)"K" DE$(27)"RADIUM" NS$(27)"RA @E$(14)"IODINE"# JS$(14)"I"5 TE$(15)"IRON"E ^S$(15)"FE"W hE$(16)"LEAD"g rS$(16)"PB"~ |E$(17)"MAGNESIUM" S$(17)"MG" E$(18)"MERCURY" S$(18)"HG" E$(19)"MOLYBDENUM" S$(19)"MO" E$(20)"NEON" S$(20)"NE" 6)"C" E$(7)"CHLORINE"* S$(7)"CL"? E$(8)"CHROMIUM"N S$(8)"CR"a E$(9)"COPPER"p S$(9)"CU" E$(10)"FLUORINE" S$(10)"F" E$(11)"GOLD" S$(11)"AU" E$(12)"HELIUM" "S$(12)"HE" ,E$(13)"HYDROGEN" 6S$(13)"H"  E$(35):S$(35)&M151(R$(M)72K<E$(1)"ALUMINUMZFS$(1)"AL"oPE$(2)"ANTIMONY"~ZS$(2)"SB"dE$(3)"ARGON"nS$(3)"AR"xE$(4)"ARSENIC"S$(4)"AS"E$(5)"CALCIUM"S$(5)"CA"E$(6)"CARBON" S$(      6 ADD THESE LINES) @ 92 RE=VAL(G$)A J 94 IF R<1 THEN 80R T 96 AG(A)=R NS);:20:AG(S)  S# A$/ :4:7Z ::"PICK A NUMBER FROM 1 TO ";N;" ";e "";Q$q Q(Q$) QNQ1210  "THE NAME OF PERSON # ";Q;" IS ";N$(Q)  " AFTER RUNNING THIS CHANGE LINE 90 , 90 ?: INPUT "AGE: ";G$T  :6 DIMENSION VARIABLES IF GREATER THAN 10Y"HOW MANY NAME TO ENTER? ";N_(r2N$(20),AG(20)}<A1NFA;"> ";:"NAME: ";N$(A)Z"AGE: ";AG(A)dnAx"NAME";:19:"AGE"6S1NS;"> "; N$(  NO PROGRAM IN MEMORYNO LINES IN RANGEINCREMENT TOO LARGEDUPLICATE LINE NUMBERSOUT OF MEMORYPROGRAM ON HOLD, USE "&M" TO RECOVERHOLD FILE IN USELIMITED MEMORY, MAY DESTROY PROGRAM CONTINUE (Y/N)?SYNTAX> 63999LINE TOO LONGINCREMENT = 0ɧi `hhLȪ`樥sthhRL`EȱEi樠 ȱȱ`ijEȱEi椠`H h`:808`ESIFee'Lѥȥ񥰶giihijg` Lӆ Ԇ8stijRLghLABCՆ>ֆ?sȥ Ȫ͆0 ҅ >&eѥȥ񥰶L & &ghȱ y y;L ۥghij L L  ͆0 ҅ >&eee膝JJJJ)ŝƝLpƞߥ ML#gL )WHLC L , Ɇ ɀL  , ҅LзLgş堰G L & & & .ee'Lyi<>zi=i??><>=?>BPݱ>BL@ /@i ipm@8e@@AiA8ϥ_^8LKLKA$ (A$)3Ā( (A$)131150T :4)"RENUMBER IS INSTALLED AND READY" 8:"IF YOU USE 'FP', 'HIMEM', OR 'MAXFILES'" :" YOU WILL HAVE TO RE-RUN RENUMBER" (4)"MAXFILES 3" ' DO NOT CHANGE 10010 '(121)(122)256316A:S$: B1:S$;:40:S$:E L::"RENUMBER (DEFAULT VALUES)"w V:"& [FIRST 10] [,INC 10] [,S 0] [,E 63999]" `:"MERGE" j:"&H PUT PROGRAM ON HOLD" t"&M MERGE TO PROGRAM ON HOLD" ~23: "PRESS 'RETURN' TO CONTINUE..."; -=============>RENUMBER<===============<:::255VS$"&":1080:2:10903:"&";:12:"APPLESOFT RENUMBER";:40:"&":4:1090$5:"&";:4:"COPYRIGHT APPLE COMPUTER,INC. 1978";:40:"&".6:1090:7:1080::1100 8A139:S$;:        LM, WORLAND, WYO,888-1234B 8:22:"PRESS RETURN TO CONTINUE ";L &U$:R : N530  "X1N7 64:2:"NAME";:22:"PHONE"? J:J ^X1Na rN$(X);:20:P$(X)g m v 530|   DATA LINES MUST START WITH THE WOR DATA  RICH PORTER,7665 E EASTMAN 101A, DENVER, COLORADO, 696-7316  TOM POST,28 ET  : DATA STATEMENTS`2 IF YOU ADD MORE DATA THEN CHANGE THE VALUE OF N IN LINE 70hFN2ZN$(N),A$(N),C$(N),S$(N),P$(N)nA1NN$(A),A$(A),C$(A),S$(A),P$(A)X1NN$(X):A$(X):C$(X):S$(X):P$(X)  ; JU$: T N: X1N$ N$(X);:20:S(X)* 0 9 310D X1NQ PPS(X)W ~ "THE TOTAL OF ALL SCORES IS: ";P 310  " DATA LINES MUST START WITH THE WORD DATA , RICH, 98 6 TOM, 67 @8:22:"PRESS RETURN TO CONTINUE"  : DATA STATEMENTS` IF YOU ADD MORE DATA THEN CHANGE THE VALUE OF N IN LINE 40h(N2x2N$(N),S(N)<A1NFN$(A),S(A)PZX1NdN$(X):S(X)nx310X1N4:2:"NAME";:19:"SCORE"  M15R$(M)(M15:T(5(1))1@K$R$(T)V. NICE`8 WOWkB DUMBwL GREATV OKM NTINUE " "240 ,23:34' 6F$: Q10! " YOUR PERCENTAGE IS ";P* 2704 ::] WHAT IS THE LARGEST STATE?, ALASKA{ WHAT IS 2 TIMES 2? , 4 DO YOU UNDERSTAND DATA?, YES STOP, QUIT A(Q$):A((40A)2) :A:Q$  22 Q$" PRESS RETURN TO CO) SIMPLE DATA:"6-(Q$,A$A2Q$"STOP"ī140J<240PFXPR$^ZdR$A$Q$" THE CORRECT ANSWER IS "A$:240:NWNW1nR$A$Q$"VERY GOOD!! ":240:NRNR1x27020TQNRNWP(100(NRTQ).5) 12:   T1200:: X  ::X02615)(1000<- DRAW PICTUREF22000b7X4IN(X4)ĺ(7);(7)i<0sF1000yPZ12:1000dA$:::Y20T08P8:YY1Y23P12X,XPYTX1,X3Y1X9,X11Y1   X39X39:XC1& X1X1:XC1; Y24Y24:YC1M Y1Y1:YC1U 90XW BOUNCER 5$ CLEAR SCREEN*0(>2XC1:YC1^< XO IS OLD X : YO IS OLD YtFX1:Y1:OX1:OY1P ERASEZX:Y:d PLOTnX:Y:"X"x SAVE OLD COORDINATESOXX:OYY FIND NEW COORDINATES XXXC:YYYC z#????????????  ԠԱР Ա Ա   Ҡ ٱ DZӠ Ҡ!Ҡ"ҠҠˠ ͠Р Ҡ͠ȠǠȠΠϠӠҠҲҠϠԠؠڠǠDZ̤;:Z$:: Z2 &AI3 0YAA2$ :0,39Y+ DY2 NI9 X6E bX019Q l0,20XX vXr  DEMO SCREEN COMMAND 21:"TYPE A NUMBER FROM 1 TO15" I X039 Y039 X,Y)I X,Y Y X 24:"PRESSSPACE BAR TO CONTINUE"LUORINE,F h GOLD,AU' r STOP,QUITA |A(Q$):A((40A)2)N :A:Q$T \ 22 Q$" PRESS RETURN TO CONTINUE " 380 23:34 F$:   **** FLAG-SCRN*** : 1 Y039 0,39Y Y 15 I112ǖ10! " YOUR PERCENTAGE IS ";P* 4109 P70240G P70250M V 460` ::r  ALUMINUM,AL  ANTIMONY,SB  ARGON,AR " ARSENIC,AS , CALCIUM,CA 6 CARBON,C @ CHLORINE,CL J CHROMIUM,CR T COPPER,CU ^ FME THE SYMBOL.":Y$ <:" F6- PQ$,A$A ZQ$"STOP"ī180J d380P nX xR$^ R$A$Q$" THE CORRECT ANSWER IS "A$:380:NWNW1 R$A$Q$"VERY GOOD!! ":380:NRNR1 410 60 TQNRNW P(100(NRTQ).5) 12: ELEMENT QUIZ::6m" PLEASE TYPE IN YOUR":"NAME AND PRESS THE":"THE RETURN KEY":::Z$:t(6 2" HELLO ";Z$;" I AM":" HERE TO HELP YOU LEARN THE ":"ELEMENTS AND THEIR SYMBOLS. ":"I WILL GIVE YOU THE NAME AND YOU ":"WILL GIVE      839 X,Y)I X,Y Y' XX 24:"PRESS SPACE BAR TO CONTINUE ";:Z$::^ p D((1)51)~ Q$DA$(D)  Y15:DA$(Y):Z-SCRN*** : 1# Y039/ 0,39Y6 Y> 15L I1122V &AI3c 0YAA2o :0,39Yv DY} NI X6 bX019 l0,20X vX  DEMO SCREEN COMMAND 22:"TYPE A NUMBER FROM 1 TO 15 " I X039 Y0 6 CARBON,C! @ CHLORINE,CL3 J CHROMIUM,CRC T COPPER,CUT ^ FLUORINE,Fb h GOLD,AUr r STOP,QUIT |A(Q$):A((40A)2) :A:Q$  22 Q$" PRESS RETURN TO CONTINUE " 380 23:34 F$:   **** FLAG) 12:10+ " YOUR PERCENTAGE IS ";P4 410C P70240Q P70250W ` 460o GOOD JOBy WOW NEAT TREMENDOUS GREAT ::  ALUMINUM,AL  ANTIMONY,SB  ARGON,AR " ARSENIC,AS , CALCIUM,CAME THE SYMBOL.":Y$( 4Y15:DA$(Y):0 <:7 F6B PQ$,A$V ZQ$"STOP"ī180_ d380e nm xR$s R$A$Q$" THE CORRECT ANSWER IS "A$:380:NWNW1 R$A$İ4000::380:NRNR1 410 60 TQNRNW P(100(NRTQ).5 ELEMENT QUIZ::6m" PLEASE TYPE IN YOUR":"NAME AND PRESS THE":"THE RETURN KEY":::Z$:t(6 2" HELLO ";Z$;" I AM":" HERE TO HELP YOU LEARN THE ":"ELEMENTS AND THEIR SYMBOLS. ":"I WILL GIVE YOU THE NAME AND YOU ":"WILL GIVE    18,13 18,12 17,11' 16,105 "19,2414C ,19,2415Q 619,2416\ @13,25g J12,26u T12,1827 ^18,26 h17,25 |14,13 16,13 15,15 14,16 15,17 16,16 A$::: A  :15!(15,7+215,85<15,9@F15,10KP14,10VZ13,11ad12,12ln12,13wx12,1412,1512,1612,1713,1814,1815,1816,1817,1818,1718,1618,1518,14   :12%(11,25193220,2215A<15,1920OF15,1922]P19,3111kZ11,2532yd19,3225n14,1723x14,172823,281423,281722,322022,322320,2322A$:::AZ  :9#(0,3910020,39308<14EF0,3910RP0,3930XZ 1V  ::15X139+(0,39X22X9<0EFX039NPX,XTZ   ::15X139+(0,39X22X9<0EFX039NPX,XTZ`dX039lnX,39XrxA$::: X T$  AC11$ C:A5 B$(A$,A,1)= B$C K T$T 255Z &A 1:C AC11" C3 B$(A$,A,1); B$A Q "C21:C2\ ,"HI";p 6C22:C2:T$v @ J DIAGONAL TAC11 ^A hB$(A$,A,1) rB$ | T$  AC11 A:A B$(A$,A,1) B$ [  :6"TYPE IN ANY WORD LESS THAN 23 LETTERS"D:" ";A$J(Q22X<1gFA1(A$)xPB$(A$,A,1)ZB$dnC(A$)xA1CB$(A$,A,1)B$;11AC111:AB$(A$,A,1)B$;   E A$"JERRY"#A(A$)5C((40A)2)C(3:C:A$ A FLASHING IN LOW RES#:)F(X120: DRAWS 20 TIMES[2 10 BLACK LINESe<PX2mF15}P IS P EVENZ IF P= INT (P) THEN P IS EVEdP(P)Ġ0n IF P=0 BLACKx12,282015,2520T1800:X:X DIAG FLASH: ,(T110323F<T2(T2)Ġ0RFX039pP DIAG LEFT TO RIGHT DOWNyZX,XdR150:: TIME LOOPn DIAG LEFT TO RIGHT UPxX,39XR1500:: TIMERTA$33,33::: T MOTION IN LOW RES!:'7(X39102?215U< DRAW THEN ERASE`FP12sPP2(P2)Ġ0ZX,X520dX,X521nT1100:xPX X  ::!"WHAT COLOR? ";C(C7("X-COR";XF2"Y-COR";YU<X1,X2YdFY,Y4X2uPX1,X3Y5}Z20 C  ::!"WHAT COLOR? ";C(C7("X-COR";XF2"Y-COR";YU<X1,X5YdFY,Y2X5uPX1,X5Y3ZY3,Y5X1dX1,X5Y6n20 CYC X39X39:XC1) X1X1:XC1> Y24Y24:YC1P Y1Y1:YC1X 90Z BOUNCER 5$ CLEAR SCREEN*0(>2XC1:YC1^< XO IS OLD X : YO IS OLD YtFX1:Y1:OX1:OY1P ERASEZX:Y:";d PLOTnX:Y:"X"x SAVE OLD COORDINATESOXX:OYY FIND NEW COORDINATES  XXXC:YY YYC X39X39:XC1+ X1X1:XC1@ Y24Y24:YC1R Y1Y1:YC1Z 90\ BOUNCER" CLEAR SCREEN(.(<2XC1:YC1\< XO IS OLD X : YO IS OLD YrFX1:Y1:OX1:OY1~P ERASEZOX:OY:"";d PLOTnX:Y:"O";x SAVE OLD COORDINATESOXX:OYY FIND NEW COORDINATES  XXXC:Y  YYC X39X39:XC1+ X1X1:XC1@ Y24Y24:YC1R Y1Y1:YC1Z 90X\ BOUNCING O% CLEAR SCREEN+1(?2XC1:YC1_< XO IS OLD X : YO IS OLD YuFX1:Y1:OX1:OY1P ERASEZX:Y:";d PLOTnX:Y:"O";x SAVE OLD COORDINATESOXX:OYY FIND NEW COORDINATES  XXXC:Y!! YYC X39X39:XC1, X1X1:XC1A Y24Y24:YC1S Y1Y1:YC1[ 90Ɂ] BOUNCER 2$ CLEAR SCREEN*0(>2XC1:YC1^< XO IS OLD X : YO IS OLD YtFX1:Y1:OX1:OY1P ERASEZOX:OY:"";d PLOTnX:Y:"Z"x SAVE OLD COORDINATESOXX:OYY FIND NEW COORDINATES  XXXC:Y""