@L|2}6CD l0C)HCC WhL/h `CmCDiD`  R@P1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD`10 T:20 T:30 T: F U N W I T H P L A N E40 T:50 T: G E O M E T R Y60 T:70 T: BY80 }T:90 T: HADI H. YASSIN100 T:110 T:120 T: AND IS130 T:140 T: DONATED TO150 T:160 }T:Atari Bay Area Computer Users Society170 T:180 T: WRITTEN APRIL 1981190 T:200 T: Public Domain210 T:}220 T: RETURN230 T:240 A:$ANS241 GR:QUIT250 T:260 T:270 T:280 T: HAD YOUR ATARI PILOT CARTRIDGE BEEN USED ONLY }TO LEARN THE LANGUAGE SO FAR ?290 T: IN GENERAL,THE ANSWER IS YES .300 :310 : WELL,THE TIME HAD COME FOR YOU TO USE I }10 T:20 T:30 T: F U N W I T H P L A N E40 T:50 T: G E O M E T R Y60 T:70 T: BY80  }T:90 T: HADI H. YASSIN100 T:110 T:120 T: AND IS130 T:140 T: DONATED TO150 T:160  }T:Atari Bay Area Computer Users Society170 T:180 T: WRITTEN APRIL 1981190 T:200 T: Public Domain210 T:}220 T: RETURN230 T:240 A:$ANS241 GR:QUIT250 T:260 T:270 T:280 T: HAD YOUR ATARI PILOT CARTRIDGE BEEN USED ONLY }TO LEARN THE LANGUAGE SO FAR ?290 T: IN GENERAL,THE ANSWER IS YES .300 :310 : WELL,THE TIME HAD COME FOR YOU TO USE I}T WITTINGLY TO LEARN AND HAVE FUN WHILE LEARNING.320 T:330 T:340 T: LIKE PAC-MAN,THIS PROGRAM WILL WIN THE HEARTS & TH}E MINDS ,AS WELL AS THE TIME OF BOTH MALES &350 T:FEMALES OF ALL AGES.360 A:$ANS361 GR:QUIT365 T:370 T: IT FASCILITATES }SOME OF THE PLANE GEOMETERY FIGURES IN EASY TO UNDERSTAND SIMPLE INSTRUCTIONS .380 T:IT IS A "DO IT YOUR SELF" APPROACH THA}T WILL SELF TEACH .390 T:THE INSTRUCTIONS ARE LITTLE BIT LONG,BUT ONCE READ & UNDERSTOOD,YOU NEED NOT TO WORRY ABOUT,BECAUSE}400 T: YOU WILL BE LEARNING BY PRACTICING .402 :403 :410 T:THIS " FUN WITH PLANE GEOMETRY " REQUIRES:420 T:* ATARI 400\8}00 WITH A MINIMUM ( )K OF RAM.430 T:* ATARI PILOT LANGUAGE CARTRIDGE.440 T:* ONE JOY-STICK450 T:* ATARI DISC DRIVE (O}R EQUIVALENT)460 T:* A TV (MONITOUR) * COLOR IS PREFERED, BUT A BLACK & WHITE WILL WORK AS GOOD.490 T:500 A:$ANS501 GR:Q}UIT510 T:580 T:PLUG IN A JOY-STICK IN THE FARMOST LEFT CONTROLLER JACK( #1 ).590 T:600 T: WHEN THE PROGRAM IS LOADED IN, } TYPE & PRESS Λ610 T:620 T: THE SCREEN WILL GO INTO GRAPHICS MODE, TITLE AND WRITER'S NAME DISPLAYED.630 :640 T}: IN THE TEXT WINDOW YOU READ A SCROLLING MESSAGE:650 T:660 T: MOVE STICK FOR MENU . PRESS TRIGGER FOR CIR}CLES .670 T:680 :690 T:700 T:710 T:750 A:$ANS751 GR:QUIT961 GR:QUIT965 T:970 T:PRESSING THE NUMBER OF YOUR CHOICE W}ILL, IN ALL CASES EXCEPT , & ,\980 T: DISPLAY IN THE TEXT WINDOW: A DEFINITION OF THAT CHOICE.990 }T:1000 T: WITH , THE DISPLAY WILL READ: YTHAGOREAN,QUILATERAL,SOSCELESS, BTUSE) ?1010 T:1020 T: WITH },IT WILL BE: INES OR OTS ?1030 T:1040 T:AFTER READING THE DEFINITIONS,PRESS TO CONTINUE INSTRUCT}IONS IN FORM OF REQUESTS.1050 T:1060 T: THE REQUESTS ARE EITHER ALPHABETICAL OR NUMERICAL.1070 T:1080 T:1090 A:$ANS10}91 GR:QUIT1100 T:WITH THE ,YOU SHOULD ENTER THE Ϡ LETTER OF YOUR CHOICE.1110 T: IN MOST CASES,IF Y }OU ENTER A CHARACTER THAT IS NOT REQUESTED,YOU WILL BE ASKED SAME REQUEST AGAIN.1120 T: THIS IS MEANT FOR YOUR PROTECTION AG!}AINST ACCIDENTAL WRONGFUL ENTRIES.1130 T:1140 : WITH THE ,EACH REQUEST IS A NUMBER THAT HAS TWO LIMITS:1150 T:1"}160 T: AN UPPER ONE:YOUR ENTRY SHOULD NOT BE GREATER THAN THIS.1170 T:1180 T: A LOWER ONE:YOUR ENTRY SHOULD NOT BE SMALLER#} THAN THIS.1190 T:1200 T: IF YOU ENTER -ACCIDENTALLY- OR WILLFULLY A NUMBER OUTSIDE THE LIMITS, THE PROGRAM WILL \1210 T:P$}ERSIST ON AN ACCEPTABLE ENTRY.(TRY IT ,IT IS FRUSTRATING SOMETIMES !)1220 A:$ANS1221 GR:QUIT1230 T:1240 T: THE CAUSE FOR %}THIS IS EITHER THE ENTRY WILL CAUSE THE FIGURE TO BE OUTSIDE THE SCREEN LIMIT, OR1250 T: FOR A REASON: THE NU&}MBER YOU ENTER WILL NOT BE MATHEMATICALLY ACCEPTABLE FOR THAT1260 T: PARTICULAR FIGURE.( A GOOD EXAMPLE IS WITH YTHAGOREAN '}TRIANGLES.)1270 T:1280 A:$ANS1281 GR:QUIT1290 T: THE FOLLOWING IS A LIST OF THE GENERAL MEANING OF SOME ALPHABETICAL REQU(}ESTS:1300 T:1310 T: REQUEST MEANING1320 T:1330 T: X ........ ABSCISSA OF POINT1340 T:1350 T: Y ...... OR)}DINATE OF POINT.1360 T:1370 T: L ... LENGTH OF A STRAIGHT LINE SEGMENT.1380 T:1390 T: D ..... HOW MANY UNITS TO DRA*}W .1400 T:1410 T: A .... ANGLE-DIRECTION OF DRAWING.1420 T:1430 T: Y,B,R,E... COLORS YELLOW,BLUE,RED,ERASE.1440 T:+}1450 T: Y,N ....... YES , NO .1460 A:$ANS1461 GR:QUIT1490 T:  I M P O R T A N T 1500 T:1510 T: BECAUSE ,} CAN ONLY HANDLE WHOLE INTEGERS ,MANY OF THE UPPER & LOWER LIMITS ARE EXECLUSIVE.1520 T: FOR AN ILLUSTRATION TAKE THIS : A-}NGLE (1<= A <90) .\1530 T:ALTHOUGH,IN FACT THERE ARE MANY ANGLES THAT MEASURE MORE THAN (89)DEGREES & LESS THAN (90) DEGREES.} -LIKE1540 T:((89)DEGREES:(40)MINUTES:(25)SECONDS)-;YET CANNOT (CALCULATE TURN ) LESS THAN ONE WHOLE DEGREE.1550 /}T:{`{`{`{`{`{`{`{`{`{`{`{`{1560 T: BY WE MEAN: (1)*PRESS THE CHARACTER(S):1570 T:(1,2,3,4,5,6,7,8,9,0,-0}) THAT WILL COSTITUTE YOUR ANSWER TO A NUMERICAL REQUEST, 0R1580 T:(1)*PRESS THE ALPHABET LETTER THAT ANSWERS THE INVERSED V1}IDEO LETTER OF THE ALPHABETICAL REQUEST.1590 T:(2)* PRESS THE KEY1600 T:{`{`{`{`{`{`{`{`{`{`{`{`{\16102} A:$ANS1611 GR:QUIT1640 T: THE NEXT REQUEST AFTER THE NUMERICALS IS:1650 T:1660 T: COLOR( ELLOW,ED,LUE,RASE) ?1670 T3}:1680 T:ENTER THE VIDEO INVERSED LETTER OF YOUR CHOICE .1690 T:1700 T:1710 T:1720 T: H U R R A H ! HERE IS YOUR4} GEOMETRIC FIGURE AT LAST !1730 T:1740 T: WHAT A LONG WAY HOME PAL !1750 T:1760 T:1770 T:SO FAR YOU KNOW WHAT THAT FIG5}URE LOOKS LIKE,ITS NAME, VITAL STATISTICS, & ITS LOCATION WITH RESPECT\1780 T: TO THE RECTANGULAR SYSTEM OF CARTESIAN CO-ORD6}INATES PASSING THRU THE CENTER OF SCREEN AT POINT(0,0)\1790 T:1800 A:$ANS1801 GR:QUIT1810 T:1820 T:1830 T:1840 T:18507} T:1860 T: NOW THE FUN STARTS.1870 T:1880 T: AFTER REVIEWING THE DATA DISPLAYED IN THE TEXT WINDOW ,PRESS ,8}AND THE NEXT REQUEST( M O R E !) IS:1890 T:1900 T:1910 T:1920 T: CLEAR SCREEN (ES OR O )?1930 T:1940 T: ENTE9}RING (Y) CLEAR THE SCREEN INSTANTLY,1950 T:1960 T: ENTERING (N) ,NEXT REQUEST WILL PROMBT THE SCREEN AS IS.19:}70 T:1980 T:1990 A:$ANS1991 GR:QUIT2000 T: THE NEXT REQUEST IS:2010 T:2020 T: OTATE OR ENUE ?2030 T:2040 T: E;}NTERING (M),WILL DISPLAY THE MENU IN THE TEXT WINDOW.2050 T:2060 T: ENTERING ANY CHARACTER OTHER THAN (R) OR (M),WILL REDRA<}W THE FIGURE IN ITS CURRENT POSITION & COLOR \2070 T: AND THE NAME &,THE STATISTICS WILL BE TYPED,THEN THE (CLEAR SCREEN) RE=}QUEST PROMBTS AGAIN.2080 T:2090 T: ENTERING (R) WILL PROMBT THE NEXT REQUEST :2100 T:2110 T:2120 T: DO YOU WANT A >} (ES OR O )?2130 T:2140 T:ENTER (Y) OR (N) ONLY2150 A:$ANS2151 GR:QUIT2160 T:2170 T: HERE,YOU HAVE?} TO BE CAREFULL. IF YOU ENTER ANY CHARACTER OTHER THAN (Y), IT WILL BE IGNORED \2180 T: AND THERE WILL BE NO GRAPH SHEET FOR@} THIS TURN(UNLESS YOU ALREADY HAVE ONE),AND THE NEXT REQUEST PROMBTS.2190 T:2200 T:2210 T: ENTERING (Y) WILL PROMBTS A SUBA}-REQUEST :2220 T:2230 T: CHECK ֮ VOLUME2240 T: WHAT IS THE DISTANCE BETWEEN BARS (1<= D <= 15) ?2250 T:2260 T: TB}HE NUMBER YOU ENTER WILL PUT THE CONSECUTIVE PARALLELS( VERTICALLY & HORIZONTALLY ),SPACED AT \2270 T:EQUAL INTERVALS (AS A C} BOARD).2280 T: TURN THE ֮ VOLUME TO A DESIRABLE LOUDNESS .2290 T:2300 A:$ANS2301 GR:QUIT2310 T:2320 T: THE NEXTD} SUB-REQUEST IS:2330 T:2340 T: GRAPH-SHEET BARS2350 T: COLORPEN(ELLOW,ED,LUE,RASE) ?2360 T:2370 T: ENTER COLOR E}LETTER .2380 T:2390 T: VERTICALS THEN HORIZONTALS ARE DRAWN IN THE COLOR ENTERED LATEST.THIS IS ACCOMPANIED WITH MUSICAL TOF}NES.2400 T:2410 T: IF THE NUMBER (D)=(0),ONLY VERTICALS ARE DRAWN,& THE SCREEN WILL HAVE ONE SOLID COLOR.2420 T:2430 T: IG}F THE NUMBER (D)=(1),(2),(3),(4),(5),(6),(8),(10), (12) OR,(15): A VERTICAL WILL PASS THRU THE2440 T: SCREEN CENTER AT THEH} POINT (0,0).2450 T:2460 A:$ANS2461 GR:QUIT2470 T:2480 T: IF THE NUMBER (D)=(1),(2),(3),,(5),(6),(10) OR,(15): A HORIZOI}NTAL A VERTICAL WILL PASS THRU THE2490 T: SCREEN CENTER AT THE POINT (0,0).2500 T:2510 T: IN ALL CASES, A HORIZONTAL ANJ}D/OR A VERTICAL COVER HORIZONTAL AND/OR VERTICAL STRAIGHT LINE2520 T: SEGMENT(S) OF THE GEOMETRIC FIGURE ON DISPLAK}Y.2530 A:$ANS2531 GR:QUIT2540 T:2550 T: THE NEXT REQUEST IS:2560 T:2570 T: DO YOU WANT A RECTANGULAR SYSTEM OF L} CO-ORDINATES2580 T: (ES OR O) ?2590 T:2600 T: ENTERING ANY CHARACTER OTHER THAN (Y), WILL PROMBT THE NEXT REQUM}EST .2610 T:2620 T: ENTERING (Y),WILL PROMBT THIS SUB-REQUEST :2630 T:2640 T: CARTESIAN CO-ORDINATES SYSTEM2650 T:COLON}RPEN(ELLOW,ED,LUE,RASE) ?2660 T:2670 T: ENTER COLOR LETTER.2680 T:2690 T: THIS IS YOUR CHANCE TO HAVE A SECOND COO}LOR FOR THE SYSTEM FROM THAT OF THE GRAPH-SHEET !2700 T:2710 A:$ANS2711 GR:QUIT2730 T: THE NEXT REQUEST IS:274P}0 T:2750 T: WHILE THE FIGURE,CLEAR SCREEN (ES OR O)?2760 T:2770 T: BY ENTERING (N),THE SCREEN WILQ}L RETAIN EVERY DOT ENTERED(BY MOVING THE STICK),AND THUS YOU SEE YOUR2780 T: SAME FIGURE IN DIFFERENT LOCATIONS,EACH OF WHICR}H YOU CAN READ ITS VITAL STATISTICS MOMENTARILLY.2790 T:2800 T: *** *** BY ENTERING (Y) THE WHOLE SCREEN S}WILL CLEAR, AND ONLY YOUR FIGURE WILL BE2810 T: MOVING AROUND.2820 T:THIS SHOULD BE NO PROBLEM TO YOU IF YOU ONLY HAVE ONE T}FIGURE ON SCREEN,BECAUSE ONCE YOU RELEASE THE2830 T: TRIGGER,YOU WILL HAVE THE CHANCE TO RETAIN THE CARTESIAN SYSTEM &/OR THU}E GRAPH-SHEET IN THE COLORS2840 T: OF YOUR CHOICE.\2850 T:2860 T:************************************\2870 A:$ANS2871 GRV}:QUIT2880 T: THE NEXT TO THE REQUEST IS :2890 T: CHECK VOLUME2900 T: KEEP HOLDING DOWN !2910 TW}:2920 T: HOW FAR (1<= D <=150) ?2930 T:2940 T: THE NUMBER (D) YOU ENTER HERE MEANS THAT : ON MOVING THE STICK, THE X} OF THE FIGURE WILL BE2950 T:(D) UNITS AWAY IN ONE OF THESE DIRECTION::TOP, RIGHT, BOTTOM, LEFT-ACCORDING TO THE POSITION OY}F THE2960 T: STICK- FROM ITS PREVIOUS LOCATION; AND IT WILL BE AT A DISTANCE EQUALS TO THE INTEGER OF2970 T: ((D)*(Square-Z}Root OF 2))2980 T: AWAY,IN THE OTHER FOUR DIRECTIONS,FROM ITS PREVIOUS LOCATION.2990 T:3000 T:3010 T: T H E L A S T [} R E Q U E S T3020 A:$ANS3030 T:3040 T: BELIEVE IT OR NOT IS:\3050 A:$ANS3060 T:3070 T: KEEP THE TR\}IGGER DOWN3080 T: WHILE THE FIGURE3090 T:COLORPEN(ELLOW,ED,LUE,RASE)?3100 A:$ANS3101 GR:QUIT3110 T:3120 T]}:AND HERE IS ANOTHER CHANCE TO HAVE THE FIGURE IN A THIRD COLOR THAN THOSE OF THE SHEET & SYSTEM3130 T: PROVIDED THAT ^}THE FIGURE WILL ROTATE CLEARING THE SCREEN. \3140 T:3150 T: ENTER THE LAST REQUEST LETTER AND FORGET TO KEEP _}HOLDING THE TRIGGER DOWN,WHILE MOVING THE3160 T: JOY STICK AROUND.3170 T:3180 T: IF THE FIGURE CREPT OUT SIDE THE SCREEN L`}IMITS IN ANY DIRECTION, DO NOT PANICK : RELEASE THE BUTTON3190 T: THE FIGURE STOPS MOVING,THE TEXT WINDOW MESSAGES STOP SCROa}LLING.3200 T: READ THE VITAL STATISTICS,LOOK FOR THE FIRST (VERTEX) OR END ,USE THESE VALUES OF(X,Y) TO KNOW WHERE3210 T: Tb}HE FIGURE IS IN THE IMAGINARY EXTENDED SCREEN.3220 T:3230 A:$ANS3231 GR:QUIT3232 T:3240 T: PRESS ,AND THE"CLEAR Sc}CREEN " PROMBTS. ENTER (Y) OR (N),,HOLD THE TRIGGER DOWN, PRESS3250 T: TWICE (THUS IGNORING THE "ROTATE OR d} MENUE" REQUEST, & MOVE THE ROTATE AGAIN AROUND.3260 T: YOU CAN USE THE LAST PROCEDURE ANY MOMENT YOU ARE ROTATING ANY FIGUe}RE.3270 T: ή YOU CAN ONLY MOVE ONE FIGURE AT A TIME; YOU CAN NOT ,FOR EXAMPLE MOVE A SQUARE & A TRIANGLE3280 T: BOTH AT Tf}HE SAME INSTANT.3290 T: THE ONLY FIGURE THAT MOVES IS THE LAST ONE YOU ENTERED ITS STATISTICS.3300 T: THAT IS WHY I ADVISE g}YOU TO USE A PENCIL & PAPER TO KEEP TRACK OF THE VITAL STATISTICS OF CERTAIN3310 T: FIGURE THAT YOU LIKE;USE THESE LATER TOh} CREATE YOUR OWN COMBINATIONS OF DIFFERENT FIGURES IN \3320 T: DIFFERENT LOCATIONS.3330 :3350 A:$ANS3351 GR:QUIT3360 T:Ti}RY (OTS) WITH () UNIT FOR MOVING, AND YOU HAVE AN ARTIST BRUSH,FREE TO USE TO DRAW WHAT YOU FEEL3370 : LIKE.3380 : PUT j}DIFFERENT FIGURES OF SAME CATEGORY(e.g POLYGONS) IN DIFFERENT LOCATIONS, AND COMPARE THEM.3390 : USE THIS PROGRAM CAPABILITIk}ES WITH YOUR CREATIVE IMAGINATION,AND YOU ARE AN ARTIST :3400 T: CLEARING THE SCREEN WHILE ROTATING:3410 T: A CIRCl}LE, & YOU GET A BARREL, A TUBE, A TUNNEL, A VACCUM CLEANER HOSE...3420 : A SQUARE ,A RECTANGLE,OR A TRAPEZIUM, & YOU HAVE A m}MINE SHAFT,A BRIDGE SO TO SPEAK, A WIND TUNNEL...3430 : DRAW A LARGE CIRCLE(D=1, T=1, X=-70, Y=0),AND PRESS FOR CONTIn}NUOUSLY SHRINKING CIRCLE & YOU3440 : HAVE A HORN,A LOOK THRU A HUGE GAS PIPE, A SEA SHELL....\3450 A:$ANS3451 GR:QUIT3460o} T: THE FUN IS EDUCATING.3470 T:THE POSSIBILITIES ARE LIMITED3480 : ENJOY YOUR "FUN WITH PLANE GEOMETRY" ALONE OR WITH FRp}IENDS.3490 :HAVE FUN WHILE LEARNING SOME OF THE PLANE GEOMETRY FIGURES.3500 T:3510 T: NOW THAT YOU READ THE INSTRUCTIONS ,q}3520 : TYPE NEW3530 : PRESS Λ3540 :3560 : MAKE SURE THAT THE PROGRAM DISC IS IN THE DISC DRIVE, THE DOOR IS SHUTr}, &3570 :3580 : TYPE LOAD D:GEOMETRY3590 :5600 : PRESS . THE PROGRAM IS LOADING. TYPE RUN & PRESS .561s}0 :3570 :3580 : TYPE LOAD D:GEOMETRY3590 :5600 : PRESS . THE PROGRAM IS LOADING. TYPE RUN & PRESS .5610 GR:QUIT9 C:@B1373=1618 C:@B1374=227 WRITE:S, F n36 WRITE:S, I h45 WRITE:S, L n 54 WRITE: u}S, G o E r 63 WRITE:S,72 WRITE:S, B ٛ81 WRITE:S,90 WRITE:S, a. . Y s I Λ99 WRITE:S, 1 8 v}108 T:117 T: Press Λ126 A:$ANS135 T:144 GR:CLEAR153 *MENUE C:#G=-1162 SO:0,0171 T: NUMBER OF Y w}OUR CHOICE.180 T: Circle Line Paralellogram Polygon Rectangle Rhombus Square Trapezium Triangle x}\189 *AZR J(@B764=255):*AZR198 C:#C=@B764207 C:@B764=255216 J(#C=31):*TYPE225 J(#C=30):*FLIP234 J(#C=26):*PLGM243 J(#C y}=24):*POLY252 J(#C=29):*TREC261 J(#C=27):*RHOM270 J(#C=51):*SQUARES279 J(#C=53):*PEZIUM288 J(#C=48):*RT297 J:*AZR306 * z}RT T:315 :324 T:YTHAGOREAN , QUILATERAL ,SOSCELES ,BTUSE333 A:$W342 M:P,E,I,O351 JM:*TR,*EQUILATERAL,*ISO,*OBTUSE36 {}0 J:*RT369 *TR T: A PYTHAGORIAN TRIANGLE IS A RIGHT ANGLED TRIANGLE378 T:WITH ITS SIDES IN THIS PROPORTIONS :387 A:$ANS39 |}6 T:405 T: 3 :: 4 :: 5414 T: SHORT SIDE::LONG SIDE::HYPOTENEOUS.423 A:$ANS432 T:IF THE MEASUREMENTS OF T }}HE TRIANGLE ARE MORE THAN THE SCREEN CAN HANDLE,YOU WILL BE TOLD SO IN TIME !441 A:$ANS450 T: THE SCREEN CAN FIT UP TO : \ ~}459 T: UNITS UNITS UNITS\468 T: FOR FOR FOR\477 T: SIDE SI }DE .\486 A:$ANS495 T:504 *1 T: PYTHAGORIAN TRIANGLES513 T: CHOICE OF SIDE HO }RT , ONG , YPOTENEOUS522 A:$G531 M:S,L,H540 JM:*3,*4,*5549 JN:*1558 *3 T:GIVE LENGTH OF SIDE (MULTI }PLES OF * 3 * ONLY)567 A:#A576 T(#A<9): LENGTH IS TOO SHORT FOR ! TRY A LARGER NUMBER PLEASE.585 A(#A<9):$ANS594 J }(#A<9):*3603 T(#A>19659): LENGTH IS TOO HIGH FOR ! TRY A SMALLER NUMBER PLEASE.612 A(#A>19659):$ANS621 J(#A>19659):* }3630 C:#U=#A/3639 C:#V=#U*3648 J(#V=#A):*X657 C:#D=#A-#V666 J(#D=1):*ONE675 J(#D=2):*TWO684 *ONE C:#T=#A693 C:#T=#T+1 }702 C:#U=#T/3711 C:#V=#U*3720 C: #F=#A+#A-#T+3729 C:#E=#T-2738 T: #A IS NOT A MULTIPLE OF * 3 * TRY  #E  OR  #F  }\747 A:$ANS756 J:*3765 *TWO C:#T=#A774 C:#T=#T+2783 C:#U=#T/3792 C:#V=#U*3801 C: #F=#A+#A-#T810 C:#E=#T-1819 T: #A }IS NOT A MULTIPLE OF * 3 * TRY  #E  OR  #F  \828 A:$ANS837 J:*3846 *X C:#B=#A+#U855 C:#C=#B+#U864 T: SHORT SIDE = # }A  LONG SIDE = #B  HYPOTENEOUS = #C 873 A:$ANS882 U:*SAMIR891 J:*2900 *4 T:GIVE LENGTH OF SIDE ( }MULTIPLES OF * 4 * ONLY)909 A:#B918 T(#B<12): LENGTH IS TOO SMALL FOR ! TRY A LARGER NUMBER PLEASE.927 A(#B<12):$ANS }936 J(#B<12):*4945 T(#B>26212): LENGTH IS TOO HIGH FOR ! TRY A SMALLER NUMBER PLEASE.954 A(#B>26212):$ANS963 J(#B>2 }6212):*4972 C:#U=#B/4981 C:#V=#U*4990 J(#V=#B):*Y999 C:#D=#B-#V1008 J(#D=1):*UNO1017 J(#D=2):*DEU1026 J(#D=3):*THREE1 }035 *THREE C:#T=#B1044 C:#T=#T+31053 C:#U=#T/31062 C:#V=#U*31071 C: #F=#B+#B-#T1080 C:#E=#T-21089 T: #B IS NOT A MUL }TIPLE OF * 4 * TRY  #E  OR  #F  \1098 A:$ANS1107 J:*41116 *Y C:#A=#B-#U1125 C:#C=#B+#U1134 T: SHORT SIDE = #A  L }ONG SIDE = #B  HYPOTENEOUS = #C 1143 A:$ANS1152 U:*FADI1161 J:*21170 *5 T:GIVE LENGTH OF SIDE } (MULTIPLES OF * 5 * ONLY)1179 A:#C1188 T(#C<15): LENGTH IS TOO SMALL FOR ! TRY A LARGER NUMBER PLEASE.1197 A(#C<1 }5):$ANS1206 J(#C<15):*51215 T(#C>32765): LENGTH IS TOO HIGH FOR !TRY A SMALLER NUMBER PLEASE.1224 A(#C>32765):$ANS1 }233 J(#C>32765):*51242 C:#U=#C/51251 C:#V=#U*51260 J(#V=#C):*Z1269 C:#D=#C-#V1278 J(#D=1):*EIN1287 J(#D=2):*ZWEI1296 J }(#D=3):*DRI1305 J(#D=4):*FUR1314 J:*51323 *Z C:#B=#C-#U1332 C:#A=#B-#U1341 T: SHORT SIDE = #A  LONG SIDE = #B  HYPO }TENEOUS = #C 1350 A:$ANS1359 U:*ADIBEH1368 J:*21377 *2 T(#A>75):#A = LENGTH OF SMALL SIDE IS > 75 UNITS;SO PYTHAGORIAN }TRIANGLE CANNOT BE DRAWN FULLY ON SCREEN!1386 A(#A>75):$ANS1395 J(#A>75):*11404 T(#A<3):THERE IS NO TRIANGLE WITH A SIDE O }F UNIT LENGTH !1413 A(#A<3):$ANS1422 J(#A<3):*11431 C:#X=-751440 C:#Y=-251449 J(#G=1):*TRYP1458 J(#G=-1):*PYT1467 } *TRYP GR:CLEAR1476 *PYT C: #L= #Y+#A1485 GR:GOTO #X,#Y;TURNTO 0;DRAW#A;GOTO #X,#Y;TURNTO90;DRAW#B1494 C:#H=%X1503 GR:DRA }WTO#X,#L+11512 T:SHORT SIDE=(#A), LONG SIDE=(#B), HYPOTENEOUS=(#C), VERTICES AT :: (#X, #Y), (#X, #L), (#H, #Y).\1521 }T: ή \1530 J(%T8=1):*TAT1539 SO:0,0,0,01548 C:#I=131557 J:*FKA1566 *UNO C:#T=#B1575 C:#T=#T+11584 } C:#U=#T/31593 C:#V=#U*31602 C: #F=#B+#B-#T+41611 C:#E=#T-21620 T: #B IS NOT A MULTIPLE OF * 4 * TRY #E OR #F \1629 A: }$ANS1638 J:*41647 *DEU C:#T=#B1656 C:#T=#T+21665 C:#U=#T/41674 C:#V=#U*41683 C: #F=#B+#B-#T1692 C:#E=#T1701 T: #B IS } NOT A MULTIPLE OF * 4 * TRY  #E  OR  #F  \1710 A:$ANS1719 J:*41728 *EIN C:#T=#C1737 C:#T=#T+11746 C:#U=#T/51755 } C:#V=#U*51764 C: #F=#C+#C-#T+51773 C:#E=#T-21782 T: #C IS NOT A MULTIPLE OF * 5 * TRY  #E  OR  #F  \1791 A:$ANS1 }800 J:*51809 *ZWEI C:#T=#C1818 C:#T=#T+21827 C:#U=#T/51836 C:#V=#U*51845 C: #F=#C+#C-#T1854 C:#E=#T+11863 T: #C IS }NOT A MULTIPLE OF * 5 * TRY  #E  OR  #F  \1872 A:$ANS1881 J:*51890 *DRI C:#T=#C1899 C:#T=#T+51908 C:#U=#T/51917 C: }#V=#U*51926 C: #F=#C+#C-#T+21935 C:#E=#T-31944 T: #C IS NOT A MULTIPLE OF * 5 * TRY  #E  OR  #F  \1953 A:$ANS19 }62 J:*51971 *FUR C:#T=#C1980 C:#T=#T+51989 C:#U=#T/51998 C:#V=#U*52007 C: #F=#C+#C-#T+12016 C:#E=#T-42025 T: #C IS }NOT A MULTIPLE OF * 5 * TRY  #E  OR  #F  \2034 A:$ANS2043 J:*52052 *FLIP T:2061 :2070 :2079 :2088 : INES }OR OTS ?2097 A:$W2106 M:L,D2115 JM:*STLINES,*POINTS2124 J:*FLIP2133 *POINTS T:WHERE YOU WANT THE DOT(-79<= X <=79)? }2142 A:#X2151 T(#X>70): ADJUST HORIZONTAL2160 PA(#X>70): 2002169 T(#X<-70): ADJUST HORIZONTAL2178 PA(#X<-70): 2002187 } J((#X>79)+(#X<-79)):*POINTS2196 *TNIP T:WHERE YOU WANT THE DOT(-31<= Y <=47)?2205 A:#Y2214 J((#Y>47)+(#Y<-31)):*TNIP2223 } U:*HAMED2232 J(#G=1):*DIOT2241 J(#G=-1):*TOD2250 *DIOT GR:CLEAR2259 *TOD GR:GOTO #X,#Y2268 T:2277 T:LOOK FOR THE DOT A }T (#X , #Y)!2286 T:2295 J(%T8=1):*TAT2304 SO:0,0,0,02313 C:#I=112322 J:*FKA2331 *STLINES T:WHERE IS ITS END(-79<= X <=0 }) ?2340 A:#X2349 J((#X>0)+(#X<-79)):*STLINES2358 *QLBO T:WHERE'S ITS END(-31<= Y <=47)?2367 A:#Y2376 J((#Y>47)+(#Y<-31)) }:*QLBO2385 *XDR T:HOW LONG (194>= L >=1) ?2394 A:#L2403 J((#L>194)+(#L<1)):*XDR2412 *RFV T:DIRECTION (0<= D <=360) ?2421 } A:#E2430 J((#E>360)+(#E<0)):*RFV2439 U:*SAMIR2448 J(#G=1):*WTK2457 J(#G=-1):*BQL2466 *WTK GR:CLEAR2475 *BQL GR:TURNTO# }E;GOTO#X,#Y;DRAW#L2484 C:#A=%X2493 C:#B=%Y2502 T((#E<>90)+(#E<>270)+(#E<>0)+(#E<>180)): Ϡ ̠ɠѠՠ .2511 T((#E }=90)+(#E=270)): ȠϠҠɠڠϠΠԠ .2520 T((#E=0)+(#E=180)): ֠ŠҠԠɠà .2529 T:2538 T:END (#A , #B), } DIRECTION( #E ), LENGTH=( #L ) , END (#X , #Y).\2547 J(%T8=1):*TAT2556 SO:0,0,0,02565 C:#I=152574 J:*FKA2583 *SQUARES T }:2592 :2601 :A SQUARE IS A QUADRILATERAL WITH EQUAL SIDES ,AND ALL ITS INTERIOR ANGLES ARE ANGLES.\2610 A:$ANS2619 }T:2628 T:WHERE YOU WANT LEFT BOTTOM VERTEX(-75<= X <=0 )?2637 A:#X2646 J((#X>0)+(#X<-75)):*SQUARES2655 *GOX T:WHERE YOU W }ANT LEFT BOTTOM VERTEX(-28<= Y <=44)?2664 A:#Y2673 J((#Y>44)+(#Y<-28)):*GOX2682 C(#Y>0) :#V=25+#Y2691 C(#Y<=0) :#V=44-#Y }2700 C:#T=74-#X2709 C(#V>#T):#V=#T2718 C(#Y=0):#V=402727 *LONG T:HOW LONG THE SIDE(4<= L <=#V) ?2736 T:2745 A:#L2754 T( }#L>#V): TOO LONG ,MAKE IT SHORTER !2763 A(#L>#V):$ANS2772 J(#L>#V):*LONG2781 J((#L<4)+(#L>#T)):*LONG2790 C(#Y<=0):#E=027 }99 C(#Y>0):#E=902808 U:*FADI2817 J(#G=1):*CDQ2826 J(#G=-1):*QRS2835 *CDQ GR:CLEAR2844 *QRS GR:GOTO#X,#Y2853 GR:TURNTO # }E;DRAW#L;TURN902862 C:#A=%X2871 C:#B=%Y2880 GR:DRAW#L;TURN902889 C:#C=%X2898 C:#D=%Y2907 GR:DRAW#L;TURN902916 C:#H=%X }2925 C:#F=%Y2934 GR:DRAW#L2943 T:2952 T: ,SIDE=(#L), ANGLE=(90), { VERTICES AT ::(#X,#Y),\2961 T: (#A,#B), (#C, }#D), (#H,#F)2970 J(%T8=1):*TAT2979 SO:0,0,0,02988 C:#I=162997 J:*FKA3006 *TREC T:3015 :3024 : A RECTANGLE IS A QUADRI }LATERAL WHOSE ANGLES ARE ALL RIGHT ANGLES.3033 A:$ANS3042 *RECT T:3051 T:WHERE YOU WANT LEFT BOTTOM VERTEX (-74<= X <=3) }?3060 A:#X3069 J((#X>3)+(#X<-74)):*RECT3078 *ECRT T:WHERE YOU WANT LEFT BOTTOM VERTEX (-28<= Y <=14) ?3087 A:#Y3096 J((# }Y>14)+(#Y<-28)):*ECRT3105 C:#A=74-#X3114 C:#B=42-#Y3123 C(#A>=#B):#C=#A3132 C(#A>=#B):#D=#B3141 C(#A<#B):#C=#B3150 C(#A }<#B):#D=#A3159 *LEN T:HOW LONG THE LENGTH(4<= L <= #C) ?3168 A:#L3177 J((#L>#C)+(#L<4)):*LEN3186 *WED T:HOW LONG THE WIDT }H (4<= L <=#D) ?3195 A:#U3204 J((#U>#D)+(#U<4)):*WED3213 C(#L>=#U):$L=LENGTH3222 C(#L<#U):$L=WIDTH3231 C(#L>=#U):$P=WIDT }H3240 C(#L<#U):$P=LENGTH3249 U:*ADIBEH3258 C(#A>=#B):#E=903267 C(#A<#B):#E=03276 J(#G=1):*KMT3285 J(#G=-1):*HOZ3294 *K }MT GR:CLEAR3303 *HOZ GR:GOTO#X,#Y;TURNTO#E;DRAW#L;TURN2703312 C:#K=%X3321 C:#F=%Y3330 GR:DRAW#U;TURN2703339 C:#H=%X3348 } C:#N=%Y3357 GR:DRAW#L;TURN2703366 C:#P=%X3375 C:#S=%Y3384 GR:DRAW#U3393 C:$Z=ś3402 C(#L=#U):$Z=ś3411 T:$ }Z, $L=(#L), $P=(#U)3420 T(#E=0): VERTICES AT :: (#X,#Y), (#K,#F), (#H,#N), (#P,#S).3429 T(#E=90): VERTICES AT :: (#X },#Y), (#P,#S), (#H,#N), (#K,#F).3438 J(%T8=1):*TAT3447 SO:0,0,0,03456 C:#I=123465 J:*FKA3474 *RHOM T: A RHOMBUS IS A }PARALELLOGRAM WHOSE SIDES ARE ALL EQUAL .3483 T:3492 A:$ANS3501 GR:TURNTO03510 *MOH T:WHERE YOU WANT VERTEX(-14<= X <=0)? }3519 A:#X3528 J((#X>0)+(#X<-14)):*MOH3537 *HWS T:WHERE YOU WANT VERTEX (-8<= Y <=10)?3546 A:#Y3555 J((#Y>10)+(#Y<-8)):*H }WS3564 *LANG T:WHAT IS THE ACUTE ANGLE (90>= A >=1) ?3573 A:#A3582 J((#A>90)+(#A<1)):*LANG3591 C:#B=#A-1803600 C:#D=180- }#A3609 C:#C=74-#X3618 C:#V=44-#Y3627 *DOM C:#R=?/103636 J(#R<4):*DOM3645 C(#C>=#V):#E=90+#R3654 C(#C<#V):#E=#R3663 C(# }C>=#V):#T=#C3672 C(#C<#V):#T=#V3681 C:#T=(#T+1)/23690 C(#A>36):#T=#T+((#T+3)/4)3699 T:3708 *GON T:HOW LONG THE SIDE (20< }= L <=#T) ?3717 A:#L3726 J((#L>#T)+(#L<20)):*GON3735 C(#A=90):$Q= .3744 C(#A<>90):$Q= .3753 C(#A=90):#E=03 }762 U:*HAMED3771 J(#G=1):*SUB3780 J(#G=-1):*BUS3789 *SUB GR:CLEAR3798 *BUS GR:GOTO#X,#Y;TURNTO#E;DRAW#L;TURN#B3807 C:#F= }%X3816 C:#H=%Y3825 GR:DRAW#L;TURN(-#A)3834 C:#K=%X3843 C:#N=%Y3852 GR:DRAW#L;TURN#B3861 C:#U=%X3870 C:#S=%Y3879 GR:DR }AW#L3888 T:. ACUTE(A=#A).  SIDE(L=#L).  OBTUSE(OB=#D). { VERTICES AT :: (#X,#Y), (#F, #H), (#K, #N)3897 T:, (#U, #S }). {{ $Q {{ \3906 J(%T8=1):*TAT3915 SO:0,0,0,03924 C:#I=233933 J:*FKA3942 *POLY T:3951 :3960 :A REGULAR POLYGON IS } A PLANE GEOMETRIC FIGURE \3969 T: THAT HAS OR SIDES ,ALL OF WHICH ARE EQUAL ,\3978 A:$ANS3987 T: ALL ITS I }NTERIOR ANGLES ARE EQUAL TOO .3996 A:$ANS4005 *YOLP T:WITH HOW MANY SIDES THE POLYGON(3<=N<=20) ?DO NOT USE( OR OR } OR OR OR OR )?4014 A:#N4023 J((#N<3)+(#N>20)):*POLY4032 C:#A=360/#N4041 C(#N=3 ):#B=824050 C(#N=3):$Z=EQUIL }ATERAL-TRIANGLE4059 C(#N=4 ):#B=724068 C(#N=4):$Z=SQUARE4077 C(#N=5 ):#B=464086 C(#N=5):$Z=PENTAGON4095 C(#N=6 ):#B=404 }104 C(#N=6):$Z=HEXAGON4113 J(#N=7 ):*POLY4122 C(#N=8 ):#B=304131 C(#N=8):$Z=OCTAGON4140 C(#N=9 ):#B=254149 C(#N=9):$Z=NO }NAGON4158 C(#N=10):#B=234167 C(#N=10):$Z=DECAGON4176 J(#N=11):*POLY4185 C(#N=12):#B=184194 C(#N=12):$Z=DODECAGON4203 J( }#N=13):*POLY4212 J(#N=14):*POLY4221 C(#N=15):#B=154230 J(#N=16):*POLY4239 J(#N=17):*POLY4248 C(#N=18):#B=124257 J(#N=19 }):*POLY4266 C(#N=20):#B=114275 C(#N=15):$Z=#N-GON4284 C(#N=18):$Z=#N-GON4293 C(#N=20):$Z=ICOSAGON4302 C:#Y=-274311 C:#X }=(#B+1)/24320 C:#D=180-#A4329 GR:PENERASE;GOTO0,04338 U:*SAMIR4347 J(#G=1):*UPI4356 J(#G=-1):*OLYP4365 *UPI GR:CLEAR43 }74 *OLYP GR:GOTO #X,#Y;TURNTO2704383 GR:#N(DRAW#B;TURN#A)4392 T:LENGTH=#B ,SIDES=#N ,ANGLE=#D ,A VERTEX IS ( #X, #Y)\4401 }T: $Z 4410 J(%T8=1):*TAT4419 SO:0,0,0,04428 C:#I=184437 J:*FKA4446 *PLGM T:4455 :4464 :4473 : A PARALELLOGRAM IS } A QUADRILETERAL WITH OPPOSITE SIDES ARE PARALLEL .4482 A:$ANS4491 *GRAM T:WHERE IS ITS VERTEX (-40<= X }<=10) ?4500 A:#X4509 J((#X>10)+(#X<-40)):*GRAM4518 C:#H=74-#X4527 *TVER T:WHERE IS ITS VERTEX (-15<= Y } <=15) ?4536 A:#Y4545 J((#Y>15)+(#Y<-15)):*TVER4554 C:#V=42-#Y4563 *GNEL T:HOW LONG THE LENGTH (10<= }L <=#H) ?4572 A:#L4581 T:4590 J((#L>#H)+(#L<10)):*GNEL4599 *TWE T:HOW LONG THE WIDTH (6<= W <=#V) }?4608 A:#U4617 J((#U>#V)+(#U<6)):*TWE4626 C(#L>#U):$P= WIDTH4635 C(#L>#U):$L= LENGTH4644 C(#L>#U):#E=904653 T:4662 *MJ }U T: ANGLE (179 >= A >=1) ?4671 A:#A4680 J((#A>179)+(#A<1)):*MJU4689 C:#B=180-#A4698 C(#L<#U):$L= WIDTH4707 C(#L<#U):$P= } LENGTH4716 C(#L<#U):#E=04725 C(#L<#U):#B=180-#A4734 C(#L=#U):#E=1004743 C(#L=#U):#B=180-#A4752 C(#L=#U):$P= WIDTH4761 }C(#L=#U):$L= LENGTH4770 C:$V= ͛4779 C((#L=#U)*(#A=90)):$V= ś4788 C((#L<>#U)*(#A=90)):$V= ś4797 C }((#L=#U)*(#A<>90)):$V= ӛ4806 C(#A>90):$S= OBTUSE4815 C(#A>90):$T= ACUTE4824 C(#A<90):$S= ACUTE4833 C(#A<90):$T=OBTU }SE4842 C(#A=90):$S= A4851 C(#A=90):$T= B4860 U:*FADI4869 J(#G=1):*MVB4878 J(#G=-1):*PGRM4887 *MVB GR:CLEAR4896 *PGRM G }R:GOTO#X,#Y;TURNTO#E;DRAW#L;TURN(-#A)4905 C:#C=%X4914 C:#D=%Y4923 GR:DRAW#U;TURN(-#B)4932 C:#F=%X4941 C:#N=%Y4950 GR:DR }AW#L;TURN(-#A)4959 C:#K=%X4968 C:#R=%Y4977 GR:DRAW#U4986 T:$V,$S=(#A),$T=(#B), VERTICES AT:4995 :(#X,#Y),(#C,#D),(#F,#N) },(#K,#R)5004 :$L=(#L),$P=(#U) \5013 A(%T8=0):$ANS5022 J(%T8=1):*TAT5031 SO:0,0,0,05040 C:#I=195049 J:*FKA5058 *ROTATE }U:*COLORS5067 T:5076 *OTATE T:WHILE THE FIGURE, CLEAR SCREEN5085 T: (ES OR O) ?5094 C:#J=05103 }A:$G5112 M:Y,N5121 JM:*CLEAR,*KEEP5130 JN:*OTATE5139 *CLEAR C:#G=15148 C(#I=23):#J=235157 C(#I=45):#J=455166 C(#I=101 }):#J=1015175 C(#I=13):#J=135184 C(#I=56):#J=565193 C(#I=11):#J=115202 C(#I=17):#J=175211 C(#I=15):#J=155220 C(#I=16):#J }=165229 C(#I=12):#J=125238 C(#I=19):#J=195247 C(#I=14):#J=145256 C(#I=18):#J=185265 C(#I=88):#J=885274 C(#I=77):#J=775 }283 C(#I=66):#J=665292 J:*KEPT5301 *KEEP C:#G=-15310 *KEPT T: CHECK VOLUME. KEEP HOLDING Ġ } !5319 T:5328 T: HOW FAR (1<= D <=150) ?\5337 A:#Q5346 J((#Q<1)+(#Q>150)):*KEEP5355 *FARID T:KEEP HOLDING TH }E !DOWN\5364 T: WHILE THE FIGURE5373 U:*ADIBEH5382 *TAT C:#O=?5391 C(?):#O=#O+?5400 SO:#O5409 C(?\3-1 }):#O=#O+?5418 SO:#O5427 J(%J0=10):*TH5436 J(%J0=9):*NI5445 J(%J0=8):*EI5454 J(%J0=6):*SI5463 J(%J0=5):*FI5472 J(%J0=4) }:*FO5481 J(%J0=2):*TO5490 J(%J0=1):*ON5499 J(%J0=0):*PL5508 *ON C:#X=#X5517 C:#Y=#Y+#Q5526 J(%T8=0):*FKA5535 J:*I554 }4 *TO C:#X=#X5553 C:#Y=#Y-#Q5562 J(%T8=0):*FKA5571 J:*I5580 *FO C:#X=#X-#Q5589 C:#Y=#Y5598 J(%T8=0):*FKA5607 J:*I56 }16 *FI C:#X=#X-#Q5625 C:#Y=#Y+#Q5634 J(%T8=0):*FKA5643 J:*I5652 *SI C:#X=#X-#Q5661 C:#Y=#Y-#Q5670 J(%T8=0):*FKA5679 }J:*I5688 *EI C:#X=#X+#Q5697 C:#Y=#Y5706 J(%T8=0):*FKA5715 J:*I5724 *NI C:#X=#X+#Q5733 C:#Y=#Y+#Q5742 J(%T8=0):*FKA5 }751 J:*I5760 *TH C:#X=#X+#Q5769 C:#Y=#Y-#Q5778 J(%T8=0):*FKA5787 J:*I5796 *PL C:#X=#X5805 C:#Y=#Y5814 J(%T8=0):*FKA }5823 J:*I5832 *FKA SO:0,0,0,05841 J(#G=-1):*KCOD5850 GR:GOTO0,-32;TURNTO0;DRAWTO0,48;GOTO-83,0;TURNTO90;DRAWTO83,05859 *K }COD5868 A:$ANS5877 *DOCK T:5886 T:CLEAR SCREEN { {( ES OR O )?5895 A:$S5904 M:Y,N5913 JM:*CREEN,*BXY5922 JN:*D }OCK5931 *CREEN GR:CLEAR5940 *BXY T:5949 T: OTATE , OR ENU ?\5958 T:5967 A:$W5976 M:R,M5985 JM:*ROTATE,*MENU }E5994 *I J(#J=23):*SUB6003 J(#I=23):*BUS6012 J(#J=13):*TRYP6021 J(#I=13):*PYT6030 J(#J=101):*BWQ6039 J(#I=101):*QWB604 }8 J(#J=45):*WNL6057 J(#I=45):*LNW6066 J(#J=11):*DIOT6075 J(#I=11):*TOD6084 J(#J=15):*WTK6093 J(#I=15):*BQL6102 J(#J=16) }:*CDQ6111 J(#J=56):*RTPA6120 J(#I=56):*PART6129 J(#I=16):*QRS6138 J(#J=12):*KMT6147 J(#I=12):*HOZ6156 J(#J=19):*MVB616 }5 J(#I=19):*PGRM6174 J(#J=14):*GZE6183 J(#I=14):*TLE6192 J(#J=18):*UPI6201 J(#I=18):*OLYP6210 J(#J=88):*IXH6219 J(#I=88 }):*HXI6228 J(#J=77):*SOO6237 J(#I=77):*OOS6246 J(#J=66):*FFR6255 J(#I=66):*RFF6264 J:*I6273 *EQUILATERAL T:6282 :6291 } :AN EQUILATERAL TRIANGLE HAS ALL ITS SIDES EQUAL, \6300 A:$ANS6309 T:6318 T: EACH INTERIOR ANGLE IS ( DEGREES ,632 }7 A:$ANS6336 *ELT T:6345 T: LEFT VERTEX (-75<= X <=10) ?6354 A:#X6363 J((#X>10)+(#X<-75)):*ELT6372 T:6381 *LETR T:LEFT }VERTEX (-30<= Y <=-17) ?6390 A:#Y6399 J((#Y>-17)+(#Y<-30)):*LETR6408 T:6417 C:#H=31+#Y6426 C:#H=89-#H6435 *GHT T: SIDE }LENGTH (6<= L <=#H) ?6444 A:#C6453 J((#C>#H)+(#C<6)):*GHT6462 T:6471 U:*ADIBEH6480 J(#G=1):*GZE6489 J(#G=-1):*TLE6498 }*GZE GR:CLEAR6507 *TLE GR:TURNTO 906516 GR: GOTO #X,#Y;DRAW#C;TURN2406525 C:#A=%X6534 GR:DRAW#C;TURN2406543 C:#B=%X6552 } C:#E=%Y6561 GR:DRAW#C6570 T: TRIANGLE , SIDE=(#C) VERTICES AT ::6579 T:(#X,#Y), (#B,#E), (#A,# }Y) .6588 J(%T8=1):*TAT6597 SO:0,0,0,06606 C:#I=146615 J:*FKA6624 *COLORS T:6633 T:6642 SO:0,0,0,06651 *HEK T: DO YO }U WANT A GRAPH SHEET ?6660 T:6669 T: ( ES OR O ) ?\6678 T:6687 A:$F6696 M:Y6705 CY:#P=06714 CN:#P=-1672 }3 JN:*NABIL6732 *RAMZI T: CHECK ֮ VOLUME6741 T: WHAT IS THE DISTANCE BETWEEN BARS (0<= D <=15) ?6750 A:#M675 }9 J((#M<0)+(#M>15)):*RAMZI6768 T:6777 T: GRAPH-SHEET BARS6786 U:*SAMIR6795 *NABIL J(#P=-1):*CHECK6804 C:#W=-1206813 }*SAMIH GR:TURNTO0;GOTO#W,-31;DRAWTO#W,496822 C:#W=#W+#M+16831 C:#O=?\5006840 SO:#O6849 J(#W<82):*SAMIH6858 SO:06867 C:# }W=-306876 *SAMIRA GR:TURNTO90;GOTO-79,#W;DRAW1606885 J(#M=0):*CHECK6894 C:#O=?\5006903 SO:#O6912 C:#W=#W+#M+16921 J(#W< }48):*SAMIRA6930 *CHECK SO:06939 T:DO YOU WANT A RECTANGULAR SYSTEM OF CO-ORDINATES6948 T:6957 T: ( }ES OR O ) ?\6966 A:$F6975 T:6984 M:Y6993 CY:#Z=07002 CN:#Z=-17011 TY: CARTESIAN CO-ORDINATES SYSTEM . \70 }20 J(#Z=-1):*KEH7029 U:*SAMIR7038 GR:GOTO0,-32;DRAWTO0,48;GOTO-85,0;DRAWTO85,07047 *KEH E:7056 *TYPE T:7065 *MNBV T: }C I R C L E S7074 T:7083 C:#G=-17092 *DG T:PASS THRU (-78<= X <= 78) ?7101 A:#X7110 J((#X>78)+(#X<-78)):*DG7119 *HG T:P }ASS THRU (-31<= Y <= 47) ?7128 A:#Y7137 J((#Y>47)+(#Y<-31)):*HG7146 *FU T:DRAW (1< D <=20)?7155 A:#T7164 J((#T>20)+(#T<1 })):*FU7173 *CCC T: TURN (1<= T <=10) ?7182 A:#N7191 J((#N<0)+(#N>10)):*CCC7200 U:*HAMED7209 *VVV C:#D=360/#N7218 J(#N>1 }20):*MENUE7227 C:#K=#N*#D7236 C(#K<>360):#N=#N+17245 J(#K<>360):*VVV7254 J((#D\2)=0):*EVEN7263 J((#D\2)=1):*ODD7272 *EV }EN C:#D=#D/2-17281 C:#L=#D+17290 C:#I=457299 J(#G=1):*WNL7308 J(#G=-1):*LNW7317 *WNL GR:CLEAR7326 *LNW GR:GOTO#X,#Y;TUR }NTO0;#D(TURN#N;DRAW#T)7335 C:#E=%X7344 C:#F=%Y7353 GR:#L(TURN#N;DRAW#T);DRAWTO#X,#Y7362 J:*CONC7371 *ODD C:#D=(#D+1)/27 }380 C:#I=567389 J(#G=1):*RTPA7398 J(#G=-1):*PART7407 *RTPA GR:CLEAR7416 *PART GR:GOTO#X,#Y;TURNTO0;#D(TURN#N;DRAW#T)7425 } C:#T=#T/27434 C(#T=0):#T=17443 GR:DRAW#T7452 C:#E=%X7461 C:#F=%Y7470 GR:DRAW#T7479 C:#T=#T*27488 GR:#D(TURN#N;DRAW#T) }7497 J:*CONC7506 *CONC C:#R=(#E-#X)/27515 C:#A=#X+#R7524 C:#B=2*#R7533 C:#C=#X+#B7542 T:DRAW(#T),TURN(#N),THRU(#X,#Y),R }AD(#R),THRU(#C,#F),CEN(#A,#Y),DIAM(#B),CIRCUM=(2)*(#R)*(22)/(7).\7551 T:AREA=(#R)*(#R)*(22)/(7). \7560 J(%T8=1):*TAT }7569 SO:0,0,0,07578 A:$ANS7587 T:7596 T:7605 T:MALLER CURVE , OTATE , ENU ?7614 A:$E7623 M:S,R,M7632 JM:*SMA,*RO }TATE,*MENUE7641 JN:*SMA7650 *SMA C:#N=#N+17659 J:*VVV7668 T:7677 *ISO T:AN TRIANGLE IS A TRIANGLE WITH } SIDES(THE THIRD SIDE IS CALLED THE ),\7686 T:7695 A:$ANS7704 T:7713 C:#I=777722 *BA T:BASE VERTEX (-70<= X <=70) } ?7731 A:#X7740 J((#X>70)+(#X<-70)):*BA7749 T:7758 *AB T:BASE VERTEX (-25<= Y <=40) ?7767 A:#Y7776 J((#Y>40)+(#Y<-25)): }*AB7785 T:7794 *LOI T:BASE ANGLE (2<= A <=88) ?7803 A:#A7812 J((#A>88)+(#A<2)):*LOI7821 T:7830 *DTB T: SIDE LENGTH ( 10 }<= L <=78)?7839 A:#L7848 J((#L>78)+(#L<10)):*DTB7857 T:7866 C:#E=((?\5)+1)7875 C:#F=90-(#A+#E)7884 C(#Y>7):#F=180+#F78 }93 C:#B=2*#A7902 U:*SAMIR7911 C:$Q= ISOSCELES7920 J(#G=-1):*OOS7929 J(#G=1):*SOO7938 *SOO GR:CLEAR7947 *OOS GR:GOTO #X },#Y;TURNTO#F;TURN#E;DRAW#L;TURN#B7956 C:#H=%X7965 C:#K=%Y7974 GR:DRAW#L7983 C:#C=2*#H7992 C:#D=%Y8001 GR:DRAWTO#X,#Y80 }10 C(#A=45):$Q= TRIANGLE8019 C(#A<45):$Q= TRIANGLE8028 C(#A>45):$Q= TRIANGLE }8037 C(#A=60):$Q= TRIANGLE8046 C:#V=180-#A-#A8055 T: { TOP ANGLE=(#V),{ BASE ANGLE=(#A),{ SIDE =(#L), VERTICES }AT :: (#X, #Y), (#H, #K), (#C, #D).8064 T:{{ $Q {{ \8073 J(%T8=1):*TAT8082 SO:0,0,0,08091 J:*FKA8100 *OBTUSE T:AN } TRIANGLE IS A TRIANGLE HAVING ONE INTERIOR ANGLE GREATER THAN DEGREES .8109 A:$ANS8118 T:8127 C:#I=668136 *SD }T:BASE VERTEX (-70<= X <=70) ?8145 A:#X8154 J((#X>70)+(#X<-70)):*SD8163 T:8172 *DS T:BASE VERTEX (-25<= Y <=40) ?8181 A: }#Y8190 J((#Y>40)+(#Y<-25)):*DS8199 T:8208 *RVO T:FIRST SIDE LENGTH ( 10<= L <=75)?8217 A:#L8226 J((#L>75)+(#L<10)):*RVO }8235 *WFU T:OBTUSE ANGLE (91<= A <=179) ?8244 A:#A8253 J((#A>178)+(#A<91)):*WFU8262 T:8271 *OVR T:SECOND SIDE LENGTH ( 10 }<= L <=75)?8280 A:#U8289 J((#U>75)+(#U<10)):*OVR8298 T:8307 C:#E=((?\30)+30)8316 C((#Y>17)*(#X>25)*(#L>50)*(#A>134)):#E= }2458325 C((#Y>17)*(#X>25)*(#L>50)*(#A<135)):#E=2358334 C((#Y>17)*(#X<-25)*(#L>50)*(#A>134)):#E=608343 C((#Y>17)*(#X<-25)*( }#L>50)*(#A<135)):#E=458352 C((#Y<0)*(#X>25)*(#L>50)*(#A>134)):#E=1358361 C((#Y<0)*(#X>25)*(#L>50)*(#A<135)):#E=1208370 C(( !}#Y<0)*(#X<-25)*(#L>50)*(#A>134)):#E=458379 C((#Y<0)*(#X<-25)*(#L>50)*(#A<135)):#E=608388 C:#B=180-#A8397 U:*FADI8406 C:$Q "}= TRIANGLE ,8415 J(#G=-1):*RFF8424 J(#G=1):*FFR8433 *FFR GR:CLEAR8442 *RFF GR:GOTO #X,#Y;TURNTO#E;DRAW#L;TURN#B8 #}451 C:#C=%X8460 C:#D=%Y8469 GR:DRAW#U8478 C:#F=%X8487 C:#K=%Y8496 GR:DRAWTO#X,#Y8505 T: 1st.SIDE=(#L), OBTUSE-ANGLE(# $}A),{ 2nd.SIDE=(#U), { VERTICES AT:: (#X, #Y), (#C, #D), (#F, #K)8514 T(#L<>#U): {{ $Q {{ \8523 T(#L=#U): { %} TRIANGLE {\8532 J(%T8=1):*TAT8541 SO:0,0,0,08550 J:*FKA8559 *PEZIUM T:8568 :8577 : A TRAPEZIUM IS A QUADRILAT &}ERAL WITH OF ITS OPPOSITE SIDES ARE .\8586 A:$ANS8595 T:8604 T:8613 *RTY T: VERTEX(-75<= X <=7 '}5) ?8622 A:#X8631 J((#X>75)+(#X<-75)):*RTY8640 T:8649 *YTR T: VERTEX(-30<= Y <=45) ?8658 A:#Y8667 J((#Y>45)+(#Y<-30)):* (}YTR8676 T:8685 *LAZ T:LONG BASE (12<= L <=150) ?8694 T:8703 A:#L8712 J((#L>150)+(#L<12)):*LAZ8721 C:#D=#L-(?\4)-28730 )}*QAZ T:SIDE (5<= S <=100) ?8739 A:#V8748 J((#V>100)+(#V<5)):*QAZ8757 *ZAL T:SHORT BASE (5<= W <=#D) ?8766 A:#U8775 J((#U *}<5)+(#U>#D)):*ZAL8784 *JJ T: L\B ANGLE (0< A <180)8793 A:#A8802 J((#A>179)+(#A<1)):*JJ8811 C:#B=180-#A8820 U:*ADIBEH88 +}29 C:#I=1018838 J(#G=1):*BWQ8847 J(#G=-1):*QWB8856 *BWQ GR:CLEAR8865 *QWB C:#E=#X+#L8874 GR:GOTO#E,#Y;TURNTO270;DRAW#L;T ,}URN#B8883 C:#C=%X8892 C:#F=%Y8901 GR:DRAW#V;TURNTO908910 C:#H=%X8919 C:#K=%Y8928 GR:DRAW#U8937 C:#N=%X8946 C:#T=%Y89 -}55 GR:DRAWTO#E,#Y8964 C(#A<>90):$H= ͛8973 C(#A=90):$H= ě8982 T:{LONG=(#L),{SIDE=(#V),{SHORT=(#U),{L\B-ANGL .}E=(#A),VERTICES AT::\8991 T:(#C,#F), (#H,#K), (#N,#T), (#E,#Y).9000 T: $H . \9009 J(%T8=1):*TAT /}9018 SO:0,0,0,09027 J:*FKA9036 *SAMIR9045 *FADI9054 *ADIBEH9063 *HAMED9072 T:9081 T:COLORPEN(ELLOW, ED, LUE, RASE) 0} ?\9090 A:$A9099 M:Y,R,B,E9108 JM:*LLOW,*DE,*ULE,*ARSE9117 JN:*SAMIR9126 *LLOW GR:PENYELLOW9135 J:*TIT9144 *DE GR:PENR 1}ED9153 J:*TIT9162 *ULE GR:PENBLUE9171 J:*TIT9180 *ARSE GR:PENERASE9189 *TIT T:9198 E:OW9135 J:*TIT9144 *DE GR:PENR ^ D  C D     )16CS S)  C)D1 p p 3}0 C9DI pCDL~CiCDiD` DD˙` d J)L !4}D L(( LL()  L| L( S LH 0p n  5} CY?  q  L L  ` )6} `A! d߰")-݆ "  $G@LLL&0") $G%7}H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(08})8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH)9}  hyhyB q L> Lm JJ  Ln*` dB%':}8  H H` 1 { LL   !L     Hh SY?  q  1L;}  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L<}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@=}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q>} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF ?} G) *Gȩ GȽG GȌd q q G`  8   0G  `D@}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`YA}`piH n0)բY? 08`0 B}  0$L GGȽG L `8L`LC}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`D}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTEE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FRF}1LJ舩9GIH`LJJ`HGHh l`G} S gL   8 rii `дCDCG W  H}C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}@@I} HE |||DDOS DOSDOS SYS }J}}J}K}CINSTRUCTIONBi INSTRUCTIONCtGEOMETRY BtGEOMETRY C2DOS SYSL} 0`BDELV !B M}`LVUQ   ]   TU J ]L!T  #      TU N} L ? .  t`GBJ V~DEHI B V0dVO}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEhP}DEL8HI   0 HI,0 0  9 .G VLOQ},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHIR} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHIS} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO T}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -U}LLu DEHILV 9 .l 9 .l  `` s$B VBHV}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVLW}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2eX}1i1232435ޥ<<8} 3:}ŧӠɠҠӠӠéɛA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. DZ}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F[}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟\}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i]}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 0^}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE_}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH`}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L a} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED COPYING---DN:b}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: Bc} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#d}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%e} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C=2)}:GOTO #X,#Y+1;GOTO #X+1,#Y+1;GOTO #X+1,#Y [medium]430 GR(#P=3):TURNTO 90;GO 1;2(TURN -90;DRAW 2) [large]440 E:450 R:------}-------------------------460 *GETCOLOR [Set color to match key]470 C(#K=40):#C=1 [R=red]480 C(#K=43):#C=2 [Y=yellow]490 C}(#K=21):#C=3 [B=blue]500 GR(#C=1):PEN RED510 GR(#C=2):PEN YELLOW520 GR(#C=3):PEN BLUE530 E:540 R:-----------------------}--------550 *PENSIZE [Set pen size to match key]560 C(#K=31):#P=1 [1=small]570 C(#K=30):#P=2 [2=medium]580 C(#K=26):#P=3 }[3=large]590 E:600 R:-------------------------------610 *JSTICK [Joystick sets XY pos]620 C:#J=%J1630 C(#Y< 47):#Y=#Y +(}(#J\2)*#P)640 C(#Y>-31):#Y=#Y -((#J/2\2)*#P)650 C(#X>-79):#X=#X -((#J/4\2)*#P)660 C(#X< 79):#X=#X +((#J/8\2)*#P)670 E:68}0 R:-------------------------------690 *CLEAR [Display key codes]700 GR:CLEAR710 *INSTRUCTIONS720 T:Ҡ Š } ̠Ӡ730 T:R. RED 1. SMALL . SAVE . QUIT740 T:B. BLUE 2. MEDIUM . LOAD750 T:Y. YELLOW 3. LARGE }. CLEAR\760 C:#P=1 [Initialization]770 C:#C=2780 C:@B764=255790 E:UE 2. MEDIUM . LOAD750 T:Y. YELLOW 3. LARGE H100 T: THE PILOT'S SKETCH PAD105 T: ======================110 R:115 R:By Jim Carr 09-Feb-83 Corvallis OR120 R:125 }T:130 T:WHAT IS IT?135 T:140 T:The Pilot's Sketch pad is a program145 T:which allows you to create color150 T:pictures o}n your ATARI computer.155 T:You use the Joystick to guide160 T:an imaginary pen which draws the165 T:picture on your scree}n. You have170 T:control of both the pen size and175 T:the color of the ink. Completed180 T:pictures can be saved on eit}her185 T:disk or cassette. Once saved a190 T:picture can later be recalled for195 T:display and further changes.200 T:2}05 T:The program is written in ATARI210 T:PILOT.215 U:*PAGE220 T:HOW DO YOU GET STARTED?225 T:230 T:To get started with }the Pilot's235 T:Sketch Pad you must first plug a240 T:joystick into port number two.245 T:Thats right, use port two, not}250 T:port one. My computer gets tired255 T:of using port one all the time!260 T:265 T:The next step is to load the270 T:}the program. If you are using a275 T:disk the program name is SKETCH.280 T:When the progran is loaded, type285 T:RUN.290} T:295 T:The next thing you should see is a300 T:small yellow dot flashing in the305 T:center of your screen. If not,310 }T:maybe it would be a good day to go315 T:outside and play in the rain.320 U:*PAGE325 T:HOW DO I DRAW A PICTURE?330 T:33}5 T:Try moving the joystick control in340 T:all directions. You will see that345 T:the little dot moves in the direction3}50 T:you push the stick. Also, as the355 T:dot moves it leaves a trail.360 T:365 T:Next press the "2" key on the370 T:key}board. The little yellow dot375 T:will change to a medium sized dot.380 T:This dot will leave a wider trail385 T:as you c}ontrol its position with390 T:the joystick. Next press the "3"395 T:key. The dot will change to a400 T:large dot and leave} a wide trail.405 T:To get back to a small or medium410 T:size dot just press "1" or "2".415 U:*PAGE420 T:HOW DO I ERASE?}425 T:430 T:By now you probably have quite a mess435 T:on your screen. Try pressing the440 T:joystick trigger. The dot w}ill445 T:continue to flash, but as you move450 T:the dot around with the joystick455 T:instead of drawing, it erases.460 }T:465 T:HOW DO I CHANGE COLOR?470 T:475 T:By now you may also be getting a bit480 T:tired of yellow. Try pressing the485} T:"R" key. The dot will change to490 T:red. The "B" key will change the495 T:dot to blue and the "Y" key will500 T:chan}ge back to yellow. You can use505 T:these three keys at any time to510 T:switch between yellow, red, and blue.515 T:520 }T:Now is is up to you to draw a picture.525 U:*PAGE530 T:HOW DO I SAVE A PICTURE?535 T:540 T:To save your picture, simply} press545 T:"CTRL S". That is, while holding the550 T:"CTRL" key, press the "S" key. The555 T:program will respond by ask}ing for a560 T:file name. To save your picture565 T:on disk enter something like570 T:"D:HOUSE.PIX" (if your picture is5}75 T:a house). To save your picture on580 T:cassette, enter "C:". The computer585 T:will beep twice to remind you to590 T}:set up the recorder to record.595 T:600 T:It takes about a minute to save605 T:a picture on disk. It takes610 T:several} minutes to save on tape.615 T:When the picture has been saved,620 T:the program returns to the flashing625 T:dot.630 U:*}PAGE635 T:HOW DO I RELOAD A SAVED PICTURE?640 T:645 T:To load a saved picture type650 T:"CTRL L". The program will again}655 T:ask for the file name.660 T:If the picture was saved on disk type665 T:"D:filename" where "filename" is670 T:is the} name you used when you saved675 T:the picture. If the picture was680 T:saved on tape, type "C:".685 T:Loading pictures i}s a bit faster690 T:saving, but not much.695 T:700 T:If you want to start a new picture705 T:you can clear the entire scr}een by710 T:pressing "CTRL C".715 T:720 T:WHAT DO I DO WHEN I AM ALL DONE?725 T:730 T:When you are ready to quit press7}35 T:"CTRL Q".740 E:[Thats all folks]745 *PAGE [Page control routine]750 T:755 T:Press to continue.\760 A:765 GR}:QUIT770 E:.740 E:[Thats all folks]745 *PAGE [Page control routine]750 T:755 T:Press to continue.\760 A:765 GR 10 U:*BEGIN20 U:*STAFF30 U:*TREBLE40 U:*BASS50 U:*NOTES60 U:*NAMES70 U:*SOUND80 E:90 *SOUND100 J(@B764=33):*NSD110 !}J(@B764=22):*X120 J(@B764=18):*C130 J(@B764=16):*V140 J(@B764=63):*A150 J(@B764=62):*S160 J(@B764=58):*D170 J(@B764=56)!}:*F180 J(@B764=61):*G190 J(@B764=57):*H200 J(@B764=1):*J210 J(@B764=5):*K220 J(@B764=0):*L230 J(@B764=45):*T240 J(@B76!}4=43):*Y250 J(@B764=11):*U260 J(@B764=13):*I270 J(@B764=8):*O280 J(@B764=10):*P290 J:*SOUND300 E:310 *NSD320 SO:0330!} *NNT340 J(@B764=33):*NNT350 J(@B764<>33):*ND360 E:370 *ND380 J:*SOUND390 E:400 *X410 GR:PENRED;GOTO-50,2;4(DRAW1;TUR!}N90);GOTO-71,-27420 SO:1430 *XNT440 J(@B764=22):*XNT450 J(@B764<>22):*XND460 E:470 *XND480 GR:PENERASE;GOTO-50,2;4(DRA!}W1;TURN90);GOTO-71,-27;PENBLUE;GOTO-50,2;4(DRAW1;TURN90);GOTO-71,-27490 J:*SOUND500 E:510 *C520 GR:PENRED;GOTO-43,5;4(DRA!}W1;TURN90);GOTO-63,-27530 SO:3540 *CNT550 J(@B764=18):*CNT560 J(@B764<>22):*CND570 E:580 *CND590 GR:PENERASE;GOTO-43,5!};4(DRAW1;TURN90);GOTO-63,-27;PENBLUE;GOTO-43,5;4(DRAW1;TURN90);GOTO-63,-27600 J:*SOUND610 E:620 *V630 GR:PENRED;GOTO-36,7!};4(DRAW1;TURN90);GOTO-55,-27640 SO:5650 *VNT660 J(@B764=16):*VNT670 J(@B764<>16):*VND680 E:690 *VND700 GR:PENERASE;GOT!}O-36,7;4(DRAW1;TURN90);GOTO-55,-27;PENBLUE;GOTO-36,7;4(DRAW1;TURN90);GOTO-55,-27710 J:*SOUND720 E:730 *A740 GR:PENRED;GOT!}O-29,10;4(DRAW1;TURN90);GOTO-47,-27750 SO:6760 *ANT770 J(@B764=63):*ANT780 J(@B764<>63):*AND790 E:800 *AND810 GR:PENER!}ASE;GOTO-29,10;4(DRAW1;TURN90);GOTO-47,-27;PENBLUE;GOTO-29,10;4(DRAW1;TURN90);GOTO-47,-27820 J:*SOUND830 E:840 *S850 GR:P!}ENRED;GOTO-22,12;4(DRAW1;TURN90);GOTO-39,-27860 SO:8870 *SNT880 J(@B764=62):*SNT890 J(@B764<>62):*SND900 E:910 *SND920!} GR:PENERASE;GOTO-22,12;4(DRAW1;TURN90);GOTO-39,-27;PENBLUE;GOTO-22,12;4(DRAW1;TURN90);GOTO-39,-27930 J:*SOUND940 E:950 *D!}960 GR:PENRED;GOTO-15,15;4(DRAW1;TURN90);GOTO-31,-27970 SO:10980 *DNT990 J(@B764=58):*DNT1000 J(@B764<>58):*DND1010 E:!}1020 *DND1030 GR:PENERASE;GOTO-15,15;4(DRAW1;TURN90);GOTO-31,-27;PENBLUE;GOTO-15,15;4(DRAW1;TURN90);GOTO-31,-271040 J:*SOUN!}D1050 E:1060 *F1070 GR:PENRED;GOTO-8,17;4(DRAW1;TURN90);GOTO-23,-271080 SO:121090 *FNT1100 J(@B764=56):*FNT1110 J(@B76!}4<>56):*FND1120 E:1130 *FND1140 GR:PENERASE;GOTO-8,17;4(DRAW1;TURN90);GOTO-23,-27;PENBLUE;GOTO-8,17;4(DRAW1;TURN90);GOTO-2!}3,-271150 J:*SOUND1160 E:1170 *G1180 GR:PENRED;GOTO-1,20;4(DRAW1;TURN90);GOTO-15,-271190 SO:131200 *GNT1210 J(@B764=61!}):*GNT1220 J(@B764<>61):*GND1230 E:1240 *GND1250 GR:PENERASE;GOTO-1,20;4(DRAW1;TURN90);GOTO-15,-27;PENBLUE;GOTO-1,20;4(DR!}AW1;TURN90);GOTO-15,-271260 J:*SOUND1270 E:1280 *H1290 GR:PENRED;GOTO6,22;4(DRAW1;TURN90);GOTO-7,-271300 SO:151310 *HNT!}1320 J(@B764=57):*HNT1330 J(@B764<>57):*HND1340 E:1350 *HND1360 GR:PENERASE;GOTO6,22;4(DRAW1;TURN90);GOTO-7,-27;PENBLUE;!}GOTO6,22;4(DRAW1;TURN90);GOTO-7,-271370 J:*SOUND1380 E:1390 *J1400 GR:PENRED;GOTO13,25;4(DRAW1;TURN90);GOTO1,-271410 SO:!}171420 *JNT1430 J(@B764=1):*JNT1440 J(@B764<>1):*JND1450 E:1460 *JND1470 GR:PENERASE;GOTO13,25;4(DRAW1;TURN90);GOTO1,-2!}7;PENBLUE;GOTO13,25;4(DRAW1;TURN90);GOTO1,-271480 J:*SOUND1490 E:1500 *K1510 GR:PENRED;GOTO20,27;4(DRAW1;TURN90);GOTO9,-2!}71520 SO:181530 *KNT1540 J(@B764=5):*KNT1550 J(@B764<>5):*KND1560 E:1570 *KND1580 GR:PENERASE;GOTO20,27;4(DRAW1;TURN90!});GOTO9,-27;PENBLUE;GOTO20,27;4(DRAW1;TURN90);GOTO9,-271590 J:*SOUND1600 E:1610 *L1620 GR:PENRED;GOTO27,30;4(DRAW1;TURN90!});GOTO17,-271630 SO:201640 *LNT1650 J(@B764=0):*LNT1660 J(@B764<>0):*LND1670 E:1680 *LND1690 GR:PENERASE;GOTO27,30;4(D!}RAW1;TURN90);GOTO17,-27;PENBLUE;GOTO27,30;4(DRAW1;TURN90);GOTO17,-271700 J:*SOUND1710 E:1720 *T1730 GR:PENRED;GOTO34,32;4!}(DRAW1;TURN90);GOTO25,-271740 SO:221750 *TNT1760 J(@B764=45):*TNT1770 J(@B764<>45):*TND1780 E:1790 *TND1800 GR:PENERAS!}E;GOTO34,32;4(DRAW1;TURN90);GOTO25,-27;PENBLUE;GOTO34,32;4(DRAW1;TURN90);GOTO25,-271810 J:*SOUND1820 E:1830 *Y1840 GR:PEN!}RED;GOTO41,35;4(DRAW1;TURN90);GOTO33,-271850 SO:241860 *YNT1870 J(@B764=43):*YNT1880 J(@B764<>43):*YND1890 E:1900 *YND!}1910 GR:PENERASE;GOTO41,35;4(DRAW1;TURN90);GOTO33,-27;PENBLUE;GOTO41,35;4(DRAW1;TURN90);GOTO33,-271920 J:*SOUND1930 E:1940!} *U1950 GR:PENRED;GOTO48,37;4(DRAW1;TURN90);GOTO41,-271960 SO:251970 *UNT1980 J(@B764=11):*UNT1990 J(@B764<>11):*UND200!}0 E:2010 *UND2020 GR:PENERASE;GOTO48,37;4(DRAW1;TURN90);GOTO41,-27;PENBLUE;GOTO48,37;4(DRAW1;TURN90);GOTO41,-272030 J:*SOU!}ND2040 E:2050 *I2060 GR:PENRED;GOTO55,40;4(DRAW1;TURN90);GOTO49,-272070 SO:272080 *INT2090 J(@B764=13):*INT2100 J(@B76!}4<>13):*IND2110 E:2120 *IND2130 GR:PENERASE;GOTO55,40;4(DRAW1;TURN90);GOTO49,-27;PENBLUE;GOTO55,40;4(DRAW1;TURN90);GOTO49,!}-272140 J:*SOUND2150 E:2160 *O2170 GR:PENRED;GOTO62,42;4(DRAW1;TURN90);GOTO57,-272180 SO:292190 *ONT2200 J(@B764=8):*O!}NT2210 J(@B764<>8):*OND2220 E:2230 *OND2240 GR:PENERASE;GOTO62,42;4(DRAW1;TURN90);GOTO57,-27;PENBLUE;GOTO62,42;4(DRAW1;TU!}RN90);GOTO57,-272250 J:*SOUND2260 E:2270 *P2280 GR:PENRED;GOTO69,45;4(DRAW1;TURN90);GOTO65,-272290 SO:312300 *PNT2310 !}J(@B764=10):*PNT2320 J(@B764<>10):*PND2330 E:2340 *PND2350 GR:PENERASE;GOTO69,45;4(DRAW1;TURN90);GOTO65,-27;PENBLUE;GOTO6!}9,45;4(DRAW1;TURN90);GOTO65,-272360 J:*SOUND2370 E:2380 *NOTES2390 GR:GOTO-50,2;4(DRAW1;TURN90)2400 GR:GOTO-43,5;4(DRAW1!};TURN90)2410 GR:GOTO-36,7;4(DRAW1;TURN90)2420 GR:GOTO-29,10;4(DRAW1;TURN90)2430 GR:GOTO-22,12;4(DRAW1;TURN90)2440 GR:GOTO!}-15,15;4(DRAW1;TURN90)2450 GR:GOTO-8,17;4(DRAW1;TURN90)2460 GR:GOTO-1,20;4(DRAW1;TURN90)2470 GR:GOTO6,22;4(DRAW1;TURN90)2!}480 GR:GOTO13,25;4(DRAW1;TURN90)2490 GR:GOTO20,27;4(DRAW1;TURN90)2500 GR:GOTO27,30;4(DRAW1;TURN90)2510 GR:GOTO34,32;4(DRAW!}1;TURN90)2520 GR:GOTO41,35;4(DRAW1;TURN90)2530 GR:GOTO48,37;4(DRAW1;TURN90)2540 GR:GOTO55,40;4(DRAW1;TURN90)2550 GR:GOTO6!}2,42;4(DRAW1;TURN90)2560 GR:GOTO69,45;4(DRAW1;TURN90)2570 E:2580 *BASS2590 GR:GOTO-65,10;4(DRAW1;TURN-90)2600 GR:TURNTO1!}802610 GR:5(DRAW1;TURN30)2620 GR:9(DRAW1;TURN15)2630 GR:18(DRAW1;TURN10)2640 E:2650 *TREBLE2660 GR:PENBLUE2670 GR:GOTO!}-65,192680 GR:TURNTO0;DRAW26;TURNTO902690 GR:9(DRAW1;TURN20)2700 GR:21(DRAW1;TURN-8)2710 GR:18(DRAW1;TURN-10)2720 GR:5(D!}RAW1;TURN-20)2730 GR:5(DRAW1;TURN-5)2740 GR:18(DRAW1;TURN-30)2750 GR:GOTO-65,19;4(DRAW1;TURN90)2760 E:2770 *STAFF2780 G!}R:GOTO-75,452790 GR:DRAWTO75,452800 GR:GOTO-75,40;DRAWTO75,402810 GR:GOTO-75,35;DRAWTO75,352820 GR:GOTO-75,30;DRAWTO75,30!}2830 GR:GOTO-75,25;DRAWTO75,252840 GR:GOTO-75,20;TURNTO902850 GR:16(DRAW2;GO7);DRAW22860 GR:GOTO-75,15;DRAWTO75,152870 G!}R:GOTO-75,10;DRAWTO75,102880 GR:GOTO-75,5;DRAWTO75,52890 GR:GOTO-75,0;DRAWTO75,02900 E:2910 *BEGIN2920 R:PIANO COLORS29!}30 GR:CLEAR2940 C:@B712=128+0[PEN ERASE - BACKGROUND - DARK BLUE2950 C:@B709=0+0 [PEN YELLOW - BLACK2960 C:@B710=144+14 [P!}EN BLUE - WHITE2970 C:@B708=70+0 [PEN RED - LIGHT RED2980 *KEYBOARD2990 GR:PENBLUE;GOTO-75,-5 [KEY 13000 U:*FIRSTKEY3010!} GR:PENYELLOW;GOTO-69,-5 [KEY 23020 U:*BLACKKEY3030 GR:PENBLUE;GOTO-64,-5 [KEY 33040 U:*KEYBETWEEN3050 GR:PENYELLOW;GOTO-!}61,-5[KEY 43060 U:*BLACKKEY3070 GR:PENBLUE;GOTO-56,-5 [KEY 53080 U:*RIGHTSK3090 GR:PENBLUE;GOTO-50,-5 [KEY 63100 U:*LEFT!}SK3110 GR:PEN YELLOW;GOTO-45,-5 [KEY 73120 U:*BLACKKEY3130 GR:PENBLUE;GOTO-40,-53140 U:*KEYBETWEEN3150 GR:PEN YELLOW;GOT!}O-37,-5 [KEY 93160 U:*BLACKKEY3170 GR:PEN BLUE;GOTO-32,-5 [KEY 103180 U:*KEYBETWEEN3190 GR:PEN YELLOW;GOTO-29,-5 [KEY113!}200 U:*BLACKKEY3210 GR:PEN BLUE;GOTO-24,-5 [KEY123220 U:*RIGHTSK3230 GR:PEN BLUE;GOTO-18,-5 [KEY133240 U:*LEFTSK3250 GR:!}PEN YELLOW;GOTO-13,-5 [KEY143260 U:*BLACKKEY3270 GR:PEN BLUE;GOTO-8,-5 [KEY153280 U:*KEYBETWEEN3290 GR:PEN YELLOW;GOTO-5,!}-5 [KEY163300 U:*BLACKKEY3310 GR:PEN BLUE;GOTO0,-5 [KEY173320 U:*RIGHTSK3330 GR:PEN BLUE;GOTO6,-5 [KEY183340 U:*LEFTSK3!}350 GR:PEN YELLOW;GOTO11,-5 [3360 U:*BLACKKEY3370 GR:PENBLUE;GOTO16,-5 [3380 U:*KEYBETWEEN3390 GR:PENYELLOW;GOTO19,-5 [KE!}Y213400 U:*BLACKKEY3410 GR:PENBLUE;GOTO24,-5 [KEY23420 U:*KEYBETWEEN3430 GR:PEN YELLOW;GOTO27,-5 [KEY233440 U:*BLACKKEY"}3450 GR:PENBLUE;GOTO32,-5 [KEY243460 U:*RIGHTSK3470 GR:PEN BLUE;GOTO38,-5 [KEY253480 U:*LEFTSK3490 GR:PEN YELLOW;GOTO43,-"}5 [KEY263500 U:*BLACKKEY3510 GR:PEN BLUE;GOTO48,-5 [KEY 273520 U:*KEYBETWEEN3530 GR:PEN YELLOW;GOTO51,-53540 U:*BLACKKEY"}3550 GR:PEN BLUE;GOTO56,-5 [KEY293560 U:*RIGHTSK3570 GR:PEN BLUE;GOTO62,-5 [KEY 303580 U:*LEFTSK3590 GR:PEN YELLOW;GOTO6"}7,-5 [KEY313600 U:*BLACKKEY3610 E:3620 *FIRSTKEY3630 GR:TURNTO90;DRAW5;TURN90;DRAW15;TURNTO90;DRAW2;TURN90;DRAW10;TURN90;"}DRAW7;TURNTO03640 GR:FILL25 [WHITE KEY LEFT STRAIGHT EDGE3650 E:3660 *LEFTSK3670 GR:TURNTO90;DRAW4;TURN90;DRAW15;TURNTO90"};DRAW2;TURN90;DRAW10;TURN90;DRAW6;TURNTO03680 GR:FILL25 [WHITE KEY LEFT STRAIGHT EDGE3690 E:3700 *RIGHTSK3710 GR:TURNTO90"};DRAW4;TURNTO180;DRAW25;TURN903720 GR:DRAW6;TURNTO0;FILL10;TURNTO90;DRAW2;TURNTO0;FILL15[WHITE KEY STRAIGHT WHITE EDGE3730 "}E:3740 *BLACKKEY3750 GR:TURNTO90;DRAW4;TURN90;DRAW14;TURN90;DRAW4;TURN90;FILL14[BLACK KEY3760 E:3770 *KEYBETWEEN3780 GR:"}TURNTO90;DRAW2;TURN90;DRAW15;TURNTO90;DRAW2;TURNTO180;DRAW10;TURN903790 GR:DRAW6;TURNTO0;FILL10;TURNTO90;DRAW2;TURNTO0;FILL1" }5[WHITE KEY BETWEEN BLACKEYS3800 E:3810 *NAMES3820 T:C D E F G A B C D E F G A B C D E F3830 T:X C V A S D F G H J K L T " }Y U I O P3840 T:1 3 5 6 8 101213151718202224252729303850 E:F G A B C D E F G A B C D E F3830 T:X C V A S D F G H J K L T >10 *START15 VNEW:20 C:#X=?\2730 C(#X=1):$X=A40 C(#X=2):$X=B50 C(#X=3):$X=C60 C(#X=4):$X=D70 C(#X=5):$X=E80 C(#X=6):$X& }=F90 C(#X=7):$X=G100 C(#X=8):$X=H110 C(#X=9):$X=I115 C(#X=10):$X=J120 C(#X=11):$X=K130 C(#X=12):$X=L140 C(#X=13):$X=M& }150 C(#X=14):$X=N160 C(#X=15):$X=O170 C(#X=16):$X=P180 C(#X=17):$X=Q190 C(#X=18):$X=R200 C(#X=19):$X=S210 C(#X=20):$X=T&}220 C(#X=21):$X=U230 C(#X=22):$X=V240 C(#X=23):$X=W250 C(#X=24):$X=X260 C(#X=25):$X=Y270 C(#X=26):$X=Z280 J(#X=0):*STA&}RT290 C:@B1373=16300 C:@B1374=2310 WRITE:S,320 POS:4,9330 WRITE:S,ޛ340 POS:8,1350 WRITE:S,$X360 READ:K,$Y370&} M:$X380 JY:*RIGHT390 WRITE:S,}400 POS:4,9410 WRITE:S,ޛ420 POS:8,2430 WRITE:S,$X440 READ:K,$Y450 M:$X460 JY:&}*RIGHT470 WRITE:S,}480 POS:4,9490 WRITE:S,ޛ500 POS:8,3510 WRITE:S,$X520 READ:K,$Y530 M:$X540 JM:*RIGHT550 WR&}ITE:S,}560 POS:4,9570 WRITE:S,ޛ580 WRITE:S,590 POS:8,4600 WRITE:S,$X610 READ:K,$Y620 M:$X630 JM:*RIGHT640 WR&}ITE:S,}650 POS:4,9660 WRITE:S,ޛ670 POS:8,5680 WRITE:S,$X690 READ:K,$Y700 M:$X710 JM:*RIGHT720 WRITE:S,}730 P&}OS:4,9740 WRITE:S,ޛ750 WRITE:S,760 POS:8,6770 WRITE:S,$X780 READ:K,$Y790 M:$X800 JM:*RIGHT810 WRITE:S,}820 P&}OS:4,9830 WRITE:S,ޛ840 POS:8,7850 WRITE:S,$X860 READ:K,$Y870 M:$X880 JM:*RIGHT890 WRITE:S,}900 POS:4,9910 WR&}ITE:S,ޛ920 WRITE:S,930 POS:8,8940 WRITE:S,$X950 READ:K,$Y960 M:$X970 JM:*RIGHT980 WRITE:S,}990 POS:4,91000 W&}RITE:S,ޛ1010 POS:8,91020 WRITE:S,$X1030 WRITE:S,1040 POS:4,91050 WRITE:S,ޛ1060 WRITE:S,}1070 POS:4,91&}080 WRITE:S,ޛ1090 POS:4,71100 WRITE:S,1110 POS:6,51120 WRITE:S,1130 PA:601140 VNEW:$1150 J:*STAR&}T1160 E:1170 *RIGHT1180 WRITE:S,}1190 WRITE:S, 1222222211200 WRITE:S, 1 11210 WRITE:S, Q1 ^ ^ 1Q122&}0 WRITE:S, 1 0 11230 WRITE:S, 1 \___/ 11240 WRITE:S, \_____/1250 WRITE:S,1260 WRITE:S, 䡛1270 &}PA:1001280 VNEW:$1290 J:*START1300 E: 1 \___/ 11240 WRITE:S, \_____/1250 WRITE:S,1260 WRITE:S, 䡛1270 $)10 R:LETTER SNATCH20 R:by Ruth Ellsworth30 R:A PROGRAM FOR PAIRING UPPER AND40 R:LOWER CASE LETTERS OR TYPING50 R:PRACTIC*}E. THE OBJECT IS TO TYPE60 R:THE RIGHT UPPER CASE LETTER BEFORE70 R:THE LOWER CASE LETTER FALLS INTO80 R:THE WATER90 *OP*}TION95 T:CHOOSE THE LEVEL OF DIFFICULTY97 T:DESIRED 1 TO 6, 1 BEING THE EASIEST100 A:#O110 M:1,2,3,4,5,6120 JM:*ONE,*TWO*},*THREE,*FOUR,*FIVE,*SIX130 E:140 *ONE150 C:#Y=90160 J:*START170 E:180 *TWO190 C:#Y=60200 J:*START210 E:220 *THREE* }230 C:#Y=30240 J:*START250 E:260 *FOUR270 C:#Y=20280 J:*START290 E:300 *FIVE310 C:#Y=10320 J:*START330 E:340 *SIX*!}350 C:#Y=5360 J:*START370 E:380 *START390 VNEW:$400 C:#C=1410 C:@B764=49420 T:}430 C:@B710=142+7440 C:#X=?\27450 J(*"}#X=0):*START460 J(#X=1):*A470 J(#X=2):*B480 J(#X=3):*C490 J(#X=4):*D500 J(#X=5):*E510 J(#X=6):*F520 J(#X=7):*G530 J(#*#}X=8):*H540 J(#X=9):*I550 J(#X=10):*J560 J(#X=11):*K570 J(#X=12):*L580 J(#X=13):*M590 J(#X=14):*N600 J(#X=15):*O610 J(*$}#X=16):*P620 J(#X=18):*R630 J(#X=19):*S640 J(#X=20):*T650 J(#X=21):*U660 J(#X=22):*V670 J(#X=23):*W680 J(#X=24):*X690*%} J(#X=25):*Y700 J(#X=26):*Z710 E:720 *WRONG730 SO:15740 PA:48750 SO:0760 SO:15770 PA:48780 SO:0790 SO:15800 PA:32*&}810 SO:17820 PA:16830 SO:18840 PA:48850 J:*START860 E:870 *RIGHT880 T:}890 C:@B710=64+0900 T: $X$X$X*'}$X$X$X910 T: $X $X920 T: $X * * $X930 T: $X ^ $X940 T: *(} $X  $X950 T:  960 T: $X$X$X970 T:980 T:990 T:1000 T:1010 T: !!!!!! !!!*)}!!! !!!!!! !!!!1020 T: !! !! !! !! !! !! !! !!1030 T: !! !! !! !! !! !! !!1040 T: !! !!! !! !!**} !! !! !! !!1050 T: !! !! !! !! !! !! !! !!1060 T: !! !! !! !! !! !! !! !!1070 T: !!!!!! !!!!!! *+}!!!!!! !!!!1080 PA:1001090 T:}1100 J:*START1110 E:1120 *A1130 C:$X=A1140 POS:15,231150 T:^^^^^^^^^^^1160 POS:20,#C*,}1170 T:a1180 J(@B764=63):*RIGHT1190 PA:#Y1200 T:}1210 C:#C=#C+21220 J(#C<19):*A1230 POS:17,181240 T:' '1250 POS:*-}15,201260 T:' ' '1270 POS:15,231280 T:^^^^^^^^^^^1290 J:*WRONG1300 E:1310 *B1320 C:$X=B1330 POS:15,231340 T:^^*.}^^^^^^^^^1350 POS:20,#C1360 T:b1370 J(@B764=21):*RIGHT1380 PA:#Y1390 T:}1400 C:#C=#C+21410 J(#C<19):*B1420 POS:17,18*/}1430 T:' '1440 POS:15,201450 T:' ' '1460 POS:15,231470 T:^^^^^^^^^^^1480 J:*WRONG1490 E:1500 *C1510 C:$X=C*0}1520 POS:15,231530 T:^^^^^^^^^^^1540 POS:20,#C1550 T:c1560 J(@B764=18):*RIGHT1570 PA:#Y1580 T:}1590 C:#C=#C+21600 J(#*1}C<19):*C1610 POS:17,181620 T:' '1630 POS:15,201640 T:' ' '1650 POS:15,231660 T:^^^^^^^^^^^1670 J:*WRONG1680*2} E:1690 *D1700 C:$X=D1710 POS:15,231720 T:^^^^^^^^^^^1730 POS:20,#C1740 T:d1750 J(@B764=58):*RIGHT1760 PA:#Y1770 T:}*3}1780 C:#C=#C+21790 J(#C<19):*D1800 POS:17,181810 T:' '1820 POS:15,201830 T:' ' '1840 POS:15,231850 T:^^^^^^*4}^^^^^1860 J:*WRONG1870 E:1880 *E1890 C:$X=E1900 POS:15,231910 T:^^^^^^^^^^^1920 POS:20,#C1930 T:e1940 J(@B764=42):*R*5}IGHT1950 PA:#Y1960 T:}1970 C:#C=#C+21980 J(#C<19):*E1990 POS:17,182000 T:' '2010 POS:15,202020 T:' ' '2030*6} POS:15,232040 T:^^^^^^^^^^^2050 J:*WRONG2060 E:2070 *F2080 C:$X=F2090 POS:15,232100 T:^^^^^^^^^^^2110 POS:20,#C2120*7} T:f2130 J(@B764=56):*RIGHT2140 PA:#Y2150 T:}2160 C:#C=#C+22170 J(#C<19):*F2180 POS:17,182190 T:' '2200 POS:15,20*8}2210 T:' ' '2220 POS:15,232230 T:^^^^^^^^^^^2240 J:*WRONG2250 E:2260 *G2270 C:$X=G2280 POS:15,232290 T:^^^^^^^*9}^^^^2300 POS:20,#C2310 T:g2320 J(@B764=61):*RIGHT2330 PA:#Y2340 T:}2350 C:#C=#C+22360 J(#C<19):*G2370 POS:17,182380 *:}T:' '2390 POS:15,202400 T:' ' '2410 POS:15,232420 T:^^^^^^^^^^^2430 J:*WRONG2440 E:2450 *H2460 C:$X=H2470 *;}POS:15,232480 T:^^^^^^^^^^^2490 POS:20,#C2500 T:h2510 J(@B764=57):*RIGHT2520 PA:#Y2530 T:}2540 C:#C=#C+22550 J(#C<19)*<}:*H2560 POS:17,182570 T:' '2580 POS:15,202590 T:' ' '2600 POS:15,232610 T:^^^^^^^^^^^2620 J:*WRONG2630 E:2*=}640 *I2650 C:$X=I2660 POS:15,232670 T:^^^^^^^^^^^2680 POS:20,#C2690 T:i2700 J(@B764=13):*RIGHT2710 PA:#Y2720 T:}2730*>} C:#C=#C+22740 J(#C<19):*I2750 POS:17,182760 T:' '2770 POS:15,202780 T:' ' '2790 POS:15,232800 T:^^^^^^^^^^^*?}2810 J:*WRONG2820 E:2830 *J2840 C:$X=J2850 POS:15,232860 T:^^^^^^^^^^^2870 POS:20,#C2880 T:j2890 J(@B764=1):*RIGHT2*@}900 PA:#Y2910 T:}2920 C:#C=#C+22930 J(#C<19):*J2940 POS:17,182950 T:' '2960 POS:15,202970 T:' ' '2980 POS:1*A}5,232990 T:^^^^^^^^^^^3000 J:*WRONG3010 E:3020 *K3030 C:$X=K3040 POS:15,233050 T:^^^^^^^^^^^3060 POS:20,#C3070 T:k3*B}080 J(@B764=5):*RIGHT3090 PA:#Y3100 T:}3110 C:#C=#C+23120 J(#C<19):*K3130 POS:17,183140 T:' '3150 POS:15,203160 T*C}:' ' '3170 POS:15,233180 T:^^^^^^^^^^^3190 J:*WRONG3200 E:3210 *L3220 C:$X=L3230 POS:15,233240 T:^^^^^^^^^^^32*D}50 POS:20,#C3260 T:l3270 J(@B764=0):*RIGHT3280 PA:#Y3290 T:}3300 C:#C=#C+23310 J(#C<19):*L3320 POS:17,183330 T:' *E}'3340 POS:15,203350 T:' ' '3360 POS:15,233370 T:^^^^^^^^^^^3380 J:*WRONG3390 E:3400 *M3410 C:$X=M3420 POS:15,2*F}33430 T:^^^^^^^^^^^3440 POS:20,#C3450 T:m3460 J(@B764=37):*RIGHT3470 PA:#Y3480 T:}3490 C:#C=#C+23500 J(#C<19):*M3510*G} POS:17,183520 T:' '3530 POS:15,203540 T:' ' '3550 POS:15,233560 T:^^^^^^^^^^^3570 J:*WRONG3580 E:3590 *N3*H}600 C:$X=N3610 POS:15,233620 T:^^^^^^^^^^^3630 POS:20,#C3640 T:n3650 J(@B764=35):*RIGHT3660 PA:#Y3670 T:}3680 C:#C=#C*I}+23690 J(#C<19):*N3700 POS:17,183710 T:' '3720 POS:15,203730 T:' ' '3740 POS:15,233750 T:^^^^^^^^^^^3760 J:*J}*WRONG3770 E:3780 *O3790 C:$X=O3800 POS:15,233810 T:^^^^^^^^^^^3820 POS:20,#C3830 T:o3840 J(@B764=8):*RIGHT3850 PA:#*K}Y3860 T:}3870 C:#C=#C+23880 J(#C<19):*O3890 POS:17,183900 T:' '3910 POS:15,203920 T:' ' '3930 POS:15,23394*L}0 T:^^^^^^^^^^^3950 J:*WRONG3960 E:3970 *P3980 C:$X=P3990 POS:15,234000 T:^^^^^^^^^^^4010 POS:20,#C4020 T:p4030 J(@B*M}764=10):*RIGHT4040 PA:#Y4050 T:}4060 C:#C=#C+24070 J(#C<19):*P4080 POS:17,184090 T:' '4100 POS:15,204110 T:' '*N} '4120 POS:15,234130 T:^^^^^^^^^^^4140 J:*WRONG4150 E:4160 *Q4170 C:$X=Q4180 POS:15,234190 T:^^^^^^^^^^^4200 POS:*O}20,#C4210 T:q4220 J(@B764=47):*RIGHT4230 PA:#Y4240 T:}4250 C:#C=#C+24260 J(#C<19):*Q4270 POS:17,184280 T:' '4290*P} POS:15,204300 T:' ' '4310 POS:15,234320 T:^^^^^^^^^^^4330 J:*WRONG4340 E:4350 *R4360 C:$X=R4370 POS:15,234380*Q} T:^^^^^^^^^^^4390 POS:20,#C4400 T:r4410 J(@B764=40):*RIGHT4420 PA:#Y4430 T:}4440 C:#C=#C+24450 J(#C<19):*R4460 POS:1*R}7,184470 T:' '4480 POS:15,204490 T:' ' '4500 POS:15,234510 T:^^^^^^^^^^^4520 J:*WRONG4530 E:4540 *S4550 C:*S}$X=S4560 POS:15,234570 T:^^^^^^^^^^^4580 POS:20,#C4590 T:s4600 J(@B764=62):*RIGHT4610 PA:#Y4620 T:}4630 C:#C=#C+2464*T}0 J(#C<19):*S4650 POS:17,184660 T:' '4670 POS:15,204680 T:' ' '4690 POS:15,234700 T:^^^^^^^^^^^4710 J:*WRONG*U}4720 E:4730 *T4740 C:$X=T4750 POS:15,234760 T:^^^^^^^^^^^4770 POS:20,#C4780 T:t4790 J(@B764=45):*RIGHT4800 PA:#Y481*V}0 T:}4820 C:#C=#C+24830 J(#C<19):*T4840 POS:17,184850 T:' '4860 POS:15,204870 T:' ' '4880 POS:15,234890 T:^*W}^^^^^^^^^^4900 J:*WRONG4910 E:4920 *U4930 C:$X=U4940 POS:15,234950 T:^^^^^^^^^^^4960 POS:20,#C4970 T:u4980 J(@B764=1*X}1):*RIGHT4990 PA:#Y5000 T:}5010 C:#C=#C+25020 J(#C<19):*U5030 POS:17,185040 T:' '5050 POS:15,205060 T:' ' '*Y}5070 POS:15,235080 T:^^^^^^^^^^^5090 J:*WRONG5100 E:5110 *V5120 C:$X=V5130 POS:15,235140 T:^^^^^^^^^^^5150 POS:20,#C*Z}5160 T:v5170 J(@B764=16):*RIGHT5180 PA:#Y5190 T:}5200 C:#C=#C+25210 J(#C<19):*V5220 POS:17,185230 T:' '5240 POS:*[}15,205250 T:' ' '5260 POS:15,235270 T:^^^^^^^^^^^5280 J:*WRONG5290 E:5300 *W5310 C:$X=W5320 POS:15,235330 T:^^*\}^^^^^^^^^5340 POS:20,#C5350 T:w5360 J(@B764=46):*RIGHT5370 PA:#Y5380 T:}5390 C:#C=#C+25400 J(#C<19):*W5410 POS:17,18*]}5420 T:' '5430 POS:15,205440 T:' ' '5450 POS:15,235460 T:^^^^^^^^^^^5470 J:*WRONG5480 E:5490 *X5500 C:$X=X*^}5510 POS:15,235520 T:^^^^^^^^^^^5530 POS:20,#C5540 T:x5550 J(@B764=22):*RIGHT5560 PA:#Y5570 T:}5580 C:#C=#C+25590 J(#*_}C<19):*X5600 POS:17,185610 T:' '5620 POS:15,205630 T:' ' '5640 POS:15,235650 T:^^^^^^^^^^^5660 J:*WRONG5670*`} E:5680 *Y5690 C:$X=Y5700 POS:15,235710 T:^^^^^^^^^^^5720 POS:20,#C5730 T:y5740 J(@B764=43):*RIGHT5750 PA:#Y5760 T:}*a}5770 C:#C=#C+25780 J(#C<19):*Y5790 POS:17,185800 T:' '5810 POS:15,205820 T:' ' '5830 POS:15,235840 T:^^^^^^*b}^^^^^5850 J:*WRONG5860 E:5870 *Z5880 C:$X=Z5890 POS:15,235900 T:^^^^^^^^^^^5910 POS:20,#C5920 T:z5930 J(@B764=23):*R*c}IGHT5940 PA:#Y5950 T:}5960 C:#C=#C+25970 J(#C<19):*Z5980 POS:17,185990 T:' '6000 POS:15,206010 T:' ' '6020*d} POS:15,236030 T:^^^^^^^^^^^6040 J:*WRONG6050 E:):*Z5980 POS:17,185990 T:' '6000 POS:15,206010 T:' ' '6020(45 T:10 T: PILOT CHRISTMAS DISK20 T:30 T: 198340 T:* * * * * * * * * * * * * * * * * * *50 C:@B1373=2.f}60 C:$DIR=D:*.*70 C:#F=180 C:#R=090 READ:$DIR,$FILE130 *LOOP140 C: #C=2150 U: *FILELIST160 T: \170 READ:$DIR,$FILE1.g}80 J(@B228=136):*DIRDONE190 C:#C=20200 U:*FILELIST210 T:220 C:#R=#R+1230 READ:$DIR,$FILE240 J(@B228=136):*DIRDONE250 J.h}(#R<20):*LOOP260 T:SCREEN ABOUT TO OVERFLOW-CONTINUE (Y/N)?\270 A:280 M:Y290 JN:*DIRDONE300 C:#R=0310 T:}320 A:=$FILE.i}330 J:*LOOP370 *DIRDONE380 CLOSE:$DIR420 *SELECT430 T:440 T:SELECTION?\450 A: #N460 J(#N<1):*SELECT470 U:*ITEMNAME48.j}0 A:$FILENAME=D:$$ITEM490 M:$500 JY:*SELECT510 T:}LOADING'$FILENAME'.520 LOAD:$FILENAME530 E:570 *FILELIST580 C:$LEFT=.k}590 A:=$FILE!600 *FLOOP610 MS:0!,1!,2!,3!,4!,5!,6!,7!,8!,9!620 AY:=$LEFT!630 JY:*FLOOP640 POS:#C,#R+6650 T:$LEFT\660 .l}C:#C=#C+13670 C:#N=#N+1680 POS:#C,#R+6690 T:(#N)\700 A:=$LEFT710 MS:,720 C:$FILENAME=$RIGHT.$LEFT730 U:*ITEMNAME740 .m}C:$$ITEM=$FILENAME750 E:790 *ITEMNAME800 C:#X=100-#N810 C:$ITEM=Z#X820 E: C:$FILENAME=$RIGHT.$LEFT730 U:*ITEMNAME740 ,O10 R:PRETURT20 R:by Ruth Ellsworth30 T:40 R:THIS PROGRAM ALLOWS A YOUNG CHILD TO DRAW WITH THE TURTLE USING ONLY THE 2o}DIRECTIONAL ARROWS50 GR:CLEAR60 GR:GOTO0,0;TURNTO070 *BEGIN80 GR:PENYELLOW;4(TURN90;DRAW1)90 A:=100 J(@B764=14):*UP1102p} J(@B764=15):*DOWN120 J(@B764=6):*LEFT130 J(@B764=7):*RIGHT140 J(@B764=55):*FF150 J(@B764=54):*MFF160 J(@B764=34):*0TF12q}70 J(@B764=32):*TTF180 GR:PENERASE;4(TURN90;DRAW1)190 J:*BEGIN200 E:210 *UP220 J(%Y>46):*SOUND230 GR:TURNTO0;DRAW 12402r} C:@B764=49250 J:*BEGIN260 E:270 *DOWN280 J(%Y<-30):*SOUND290 GR:TURNTO180;DRAW 1300 C:@B764=49310 J:*BEGIN320 E:3302s} *LEFT340 J(%X<-78):*SOUND350 GR:TURNTO270;DRAW 1360 C:@B764=49370 J:*BEGIN380 E:390 *RIGHT400 J(%X>78):*SOUND410 GR:2t}TURNTO90;DRAW 1420 C:@B764=49430 J:*BEGIN440 E:450 *SELECT460 T:470 T:SELECTION?\480 *FF490 J(%X>78):*SOUND500 J(%Y>2u}46):*SOUND510 GR:TURNTO45;DRAW 1520 C:@B764=49530 J:*BEGIN540 E:550 *MFF560 J(%X<-78):*SOUND570 J(%Y>46):*SOUND580 GR2v}:TURNTO-45;DRAW 1590 C:@B764=49600 J:*BEGIN610 E:620 *0TF630 J(%X>78):*SOUND640 J(%Y<-30):*SOUND650 GR:TURNTO135;DRAW 2w}1660 C:@B764=49670 J:*BEGIN680 E:690 *TTF700 J(%X<-78):*SOUND710 J(%Y<-30):*SOUND720 GR:TURNTO225;DRAW 1730 C:@B764=42x}9740 J:*BEGIN750 E:760 *TOOUP770 C:#Y=47780 GR:DRAWTO#X,#Y790 SO:13800 PA:10810 C:@B764=49820 SO:0830 J:*BEGIN840 2y}E:850 C:$$ITEM=$FILENAME860 E:870 *ITEMNAME880 *TOODOWN890 C:#Y=-31900 GR:DRAWTO#X,#Y910 SO:13920 PA:10930 C:@B764=42z}9940 SO:0950 J:*BEGIN960 E:970 *TOORIGHT980 C:#X=79990 GR:DRAWTO#X,#Y1000 SO:131010 PA:101020 C:@B764=491030 SO:012{}040 J:*BEGIN1050 E:1060 *TOOLEFT1070 C:#X=-791080 GR:DRAWTO#X,#Y1090 SO:131100 PA:101110 C:@B764=491120 SO:01130 J:*2|}BEGIN1140 E:1150 *SOUND1160 SO:131170 PA:101180 C:@B764=491190 SO:01200 J:*BEGIN1210 E:C:@B764=491120 SO:01130 J:*0`10 R:SPELLING REVIEW20 R:by Ruth Ellsworth30 R:ACE NEWLETTER40 R:3662 VINE MAPLE DRIVE50 R:EUGENE, OREGON 9740560 *START6~}70 T:TYPE IN 5 SPELLING WORDS80 T: ONE AT A TIME90 A:$ONE100 A:$TWO110 A:$THREE120 A:$FOUR130 A:$FIVE140 C:@B1373=16}6150 C:@B1374=2160 WRITE:S, $ONE170 WRITE:S,180 WRITE:S, $TWO190 WRITE:S,200 WRITE:S, $THREE210 WRITE:S,26}20 WRITE:S, $FOUR230 WRITE:S,240 WRITE:S, $FIVE250 PA:100260 WRITE:S,}270 C:#A=?\5280 U(#A=0):*ONE290 U(#A=1):6}*TWO300 U(#A=2):*THREE310 U(#A=3):*FOUR320 U(#A=4):*FIVE330 J:*SEC340 *SEC350 C:#B=?\5360 J(#B=#A):*SEC370 U(#B=0):*O6}NE380 U(#B=1):*TWO390 U(#B=2):*THREE400 U(#B=3):*FOUR410 U(#B=4):*FIVE420 J:*THRI430 *THRI440 C:#C=?\5450 J(#C=#A):*T6}HRI460 J(#C=#B):*THRI470 U(#C=0):*ONE480 U(#C=1):*TWO490 U(#C=2):*THREE500 U(#C=3):*FOUR510 U(#C=4):*FIVE520 J:*FOR536}0 *FOR540 C:#D=?\5550 J(#D=#A):*FOR560 J(#D=#B):*FOR570 J(#D=#C):*FOR580 U(#D=0):*ONE590 U(#D=1):*TWO600 U(#D=2):*THRE6}E610 U(#D=3):*FOUR620 U(#D=4):*FIVE630 J:*LAST640 *LAST650 C:#E=?\5660 J(#E=#A):*LAST670 J(#E=#B):*LAST680 J(#E=#C):*6}LAST690 J(#E=#D):*LAST700 U(#E=0):*ONE710 U(#E=1):*TWO720 U(#E=2):*THREE730 U(#E=3):*FOUR740 U(#E=4):*FIVE750 VNEW:$76}60 GR:QUIT770 J:*START780 E:790 *ONE800 POS:5,5810 WRITE:S,$ONE820 A:830 WRITE:S,}840 A:850 M:$ONE860 T:870 TY:6}ġ $ONE IS SPELLED $ON880 TN:$ONE IS SPELLED $ONE890 POS:5,5900 WRITE:S,$ONE910 PA:100920 WRITE:S,}930 E:940 *TWO950 6}POS:5,5960 WRITE:S,$TWO970 A:980 WRITE:S,}990 A:1000 M:$TWO1010 T:1020 TY:ġ $TWO IS SPELLED $TWO1030 TN:$TWO IS S6}PELLED $TWO1040 POS:5,51050 WRITE:S,$TWO1060 PA:1001070 WRITE:S,}1080 E:1090 *THREE1100 POS:5,51110 WRITE:S,$THREE116}20 A:1130 WRITE:S,}1140 A:1150 M:$THREE1160 T:1170 TY:ġ $THREE IS SPELLED $THREE1180 TN:$THREE IS SPELLED $THREE116}90 POS:5,51200 WRITE:S,$THREE1210 PA:1001220 WRITE:S,}1230 E:1240 *FOUR1250 POS:5,51260 WRITE:S,$FOUR1270 A:1280 WRI6}TE:S,}1290 A:1300 M:$FOUR1310 T:1320 TY:ġ $FOUR IS SPELLED $FOUR1330 TN:$FOUR IS SPELLED $FOUR1340 POS:5,51350 WRI6}TE:S,$FOUR1360 PA:1001370 WRITE:S,}1380 E:1390 *FIVE1400 POS:5,51410 WRITE:S,$FIVE1420 A:1430 WRITE:S,}1440 A:1450 6}M:$FIVE1460 T:1470 TY:ġ $FIVE IS SPELLED $FIVE1480 TN:$FIVE IS SPELLED $FIVE1490 POS:5,51500 WRITE:S,$FIVE1510 PA:16}001520 WRITE:S,}1530 E:ġ $FIVE IS SPELLED $FIVE1480 TN:$FIVE IS SPELLED $FIVE1490 POS:5,51500 WRITE:S,$FIVE1510 PA:1410 R:PILOT DESIGNMAKER20 R:by Ruth Ellsworth30 R:MAY 1983 Eugene, Oregon40 GR:CLEAR50 C:#P=160 *START70 U:*PIX80 *MA:}IN90 J:*SELPIX100 E:110 *PIX120 GR:PENYELLOW130 GR:GOTO40,47;DRAWTO40,-31140 GR:GOTO54,34;4(DRAW10;TURN90)150 GR:GOTO4:}0,27;DRAWTO79,27160 GR:GOTO59,11;TURNTO-90;20(DRAW2;TURN18)170 GR:GOTO40,8;DRAWTO79,8180 GR:GOTO54,-7190 GR:TURNTO45;DRAW:}14;TURN90;DRAW14;TURN135;DRAW19200 GR:GOTO40,-11;DRAWTO79,-11210 GR:GOTO53,-26220 GR:TURNTO0;2(DRAW10;TURN90;DRAW20;TURN90:})230 E:240 *SELPIX250 C:#S=0260 T:270 T:280 T:USE JOYSTICK TO SELECT SHAPE290 J:*SHAPE300 E:310 *SHAPE320 J(%J0=1)::}*SQUARE330 J(%J0=8):*CIRCLE340 J(%J0=2):*TRIANGLE350 J(%J0=4):*RECTANGLE360 J:*SHAPE370 E:380 *SQUARE390 C:#S=1400 GR:}:PENRED410 GR:GOTO54,34;TURNTO0;4(DRAW10;TURN90)420 J(%T8=1):*INST430 GR:PENYELLOW;TURNTO0;GOTO54,34;4(DRAW10;TURN90)440 :}J:*SHAPE450 E:460 *CIRCLE470 C:#S=2480 GR:PENRED490 GR:GOTO59,11;TURNTO-90;20(DRAW2;TURN18)500 J(%T8=1):*INST510 GR:PE:}NYELLOW;GOTO59,11;TURNTO-90;20(DRAW2;TURN18)520 J:*SHAPE530 E:540 *TRIANGLE550 C:#S=3560 GR:PENRED570 GR:GOTO54,-7;TURN:}TO45;DRAW14;TURN90;DRAW14;TURN135;DRAW19580 J(%T8=1):*INST590 GR:PENYELLOW;GOTO54,-7;TURNTO45;DRAW14;TURN90;DRAW14;TURN135;:}DRAW19600 J:*SHAPE610 E:620 *RECTANGLE630 C:#S=4640 GR:PENRED650 GR:GOTO53,-26;TURNTO0;2(DRAW10;TURN90;DRAW20;TURN90)6:}60 J(%T8=1):*INST670 GR:PENYELLOW;GOTO53,-26;TURNTO0;2(DRAW10;TURN90;DRAW20;TURN90)680 J:*SHAPE690 E:700 *INST710 T: REL:}EASE JOYSTICK. WHEN DOT APPEARS POSITION SHAPE. PRESS TRIGGER TODRAW.720 PA:100730 J:*JOY740 E:750 *HELP760 C:@B764=49:}770 T:780 T:SELECT COLOR. RED=1 YELLOW=2 BLUE=3790 *COLOR800 J(@B764=31):*RED810 J(@B764=30):*YELLOW820 J(@B764=26)::}*BLUE830 J:*COLOR840 E:850 *RED860 GR:PENRED870 J:*DRAW880 E:890 PA:100900 *YELLOW910 GR:PENYELLOW920 J:*DRAW930 E:}:940 *BLUE950 GR:PENBLUE960 J:*DRAW970 E:980 E:990 *JOY1000 T:1010 C:#J=%J01020 C(#Y<47):#Y=#Y +((#J\2)*#P)1030 C(#:}Y>-31):#Y=#Y -((#J/2\2)*#P)1040 C(#X>-79):#X=#X -((#J/4\2)*#P)1050 C(#X<49):#X=#X +((#J/8\2)*#P)1060 J(%T8=0):*PLOT1070 J:}(%T8=1):*HELP1080 J:*JOY1090 E:1100 *PLOT1110 GR:PEN YELLOW; GOTO#X,#Y1120 J:*ERASE1130 E:1140 *ERASE1150 GR:PEN ERAS:}E;GOTO#X,#Y1160 J:*JOY1170 E:1180 *DRAW1190 J(#S=1):*SQU1200 J(#S=2):*CIR1210 J(#S=3):*TRI1220 J(#S=4):*REC1230 E:12:}40 *SQU1250 GR:4(DRAW10;TURN90)1260 GR:GOTO54,34;PENYELLOW;TURNTO0;4(DRAW10;TURN90)1270 J:*SELPIX1280 E:1290 *CIR1300 G:}R:TURNTO-90;20(DRAW2;TURN18)1310 GR:GOTO59,11;PENYELLOW;TURNTO-90;20(DRAW2;TURN18)1320 J:*SELPIX1330 E:1340 *TRI1350 GR::}TURNTO45;DRAW14;TURN90;DRAW14;TURN135;DRAW191360 GR:GOTO54,-7;PENYELLOW;TURNTO45;DRAW14;TURN90;DRAW14;TURN135;DRAW191370 J::}*SELPIX1380 E:1390 *REC1400 GR:2(DRAW10;TURN90;DRAW20;TURN90)1410 GR:GOTO53,-26;PENYELLOW;TURNTO0;2(DRAW10;TURN90;DRAW20;:}TURN90)1420 J:*SELPIX1430 E:GR:2(DRAW10;TURN90;DRAW20;TURN90)1410 GR:GOTO53,-26;PENYELLOW;TURNTO0;2(DRAW10;TURN90;DRAW20;810 R:DAVID'S DUNGEON20 R:by David and Ruth Ellsworh30 R:THIS IS AN EXAMPLE OF SOME OF THE TYPES OF MODULES THAT CAN BE USED>} IN AN ADVENTURE PROGRAM.40 R:YOU WILL HAVE TO ADD MODULES FOR ROOMS 2 TO 4, CAVE, MOUNTAIN, SWORD, AND ARROWS IF YOU WANT T>}O RUN IT.50 R:TO TRY IT OUR WITHOUT ADDING THOSE MODULES, SUBSTITUE *ROOM1 FOR *RANDOM ON LINE 890,60 R:DO NOT CHOOSE A DOO>}R THE FIRST70 R:TIME, AND CHOOSE DOOR 2 OR NO DOOR THE SECOND TIME YOU ARE ASKED TO CHOOSE A DOOR.80 R:SET ANY COUNTERS BEF>}ORE YOU LIST THE PROGRAM BEGINNING OR FIRST MODULES90 R:DO NOT FORGET TO PRESS START WHEN THE TITLE APPEARS TO MAKE THE PROG>}RAM CONTINUE.100 *START110 U:*TITLE120 U:*HELP130 E:140 *RANDOM150 C:#R=?\5160 J(#R=1):*ROOM1170 J(#R=2):*ROOM2180 J>}(#R=3):*ROOM3190 J(#R=4):*ROOM4200 J(#R=0):*RANDOM210 E:220 *ROOM1230 T:}240 U:*DOORS250 T:YOU ARE IN A ROOM WITH 3 DO>}ORS.260 T:WHICH DOOR DO YOU CHOOSE? 1, 2, OR 3270 A:280 M:1,2,3290 JM:*CAVE,*MONT,*RANDOM300 TN:A MONSTER IS NEAR BY31>}0 T:DO YOU CHOOSE TO FIGHT?320 M:Y330 TY:CHOOSE A WEAPON. SWORD OR ARROWS340 A:350 M:SWORD, ARROWS360 JM:*SWORD,*ARROWS>}370 TN:YOU MUST CHOOSE A DOOR. 1, 2, OR 3380 A:390 M:1,2,3,400 JM:*RANDOM,*FRIEND,*CAVE410 TN:THE MONSTER WINS, BETTER >}LUCK NEXT TIME.420 E:430 *ROOM4440 T:}450 T:THIS IS THE TREASURE ROOM. IN THE CHEST YOU WILL FIND GOLD AND A KEY TO THE >}WAY OUT.460 T:CONGRATULATIONS! COME AGAIN.470 E:480 *DOORS [THESE ARE ALL CONTROL CHARACTERS490 T: MMMMMMMM MMMMMMMM >} MMMMMMMM500 T: V V VQWEQWE V V V510 T: VQWEQWE V VASDASD V V V520 T: VASDASD V VASDASD V >} V V530 T: VZXCZXC V VASDASD V V V540 T: V TV VASDASDTV V TV550 T: VQWEQWE V VASDASD V >}V V560 T: VASDASD V VASDASD V V V570 T: VZXCZXC V VASDASD V V V580 T: V V VASDASD V V >} V590 T: V V VASDASD V V V600 T: V V VZXCZXC V V V610 T:NNNNNNNNNNN NNNNNNNNNNN NNNNNN>}NNNNN620 E:630 *FRIEND640 T:}650 T:660 T: 670 T:680 T: 690 T:700 T:710 T:720 T:730 T:740 T:HERE IS A FRIEN>}D TO HELP YOU. HE WILL LET YOU CHOOSE ONE OF TWO ROOMS. ONE OF THE ROOMS HAS THE TREASURE.750 T:WHICH ROOM WILL YOU CHOOSE>}? 1 OR 2760 A:770 M:1,2780 JM:*ROOM1,*ROOM4790 E:800 *HELP810 GR:QUIT820 C:@B755=2830 T:WELCOME TO ONE OF THE..>}ӠƠĠ840 T:BY..MRS.ELLSWORTH AND DAVID ELLSWORTH.850 T:ENTER YOUR NAME.860 A:$NAME870 T:THIS IS HOW YOUR ADVENTU>}RE STARTED:880 T:JOBS IN DAVIDVILLE ARE HARD TO COME BY.890 T:SO ONE DAY YOU WENT TO TALK TO THE TOWN WIZARD.900 T:HE AGRE>}ED THAT JOBS WERE HARD TO COME BY.910 T:HE STARTED RANDOMLY LISTING OUT SOME THINGS YOU COULD DO.920 T:NOW YOU,$NAME, HAD N>}OT BEEN IN DAVIDVILLE FOR MORE THAN A MONTH930 T:WHEN HE SAID "ŠΠƠ"940 T:YOU FOUND YOURSELF IN A ROOM YOU >}HAD NEVER SEEN BEFORE.950 T:WATCH OUR FOR MONSTERS WHILE YOU HUNT FOR GOLD AND THE WAY OUT.960 PA:100970 J:*RANDOM980 E:>}990 *TITLE1000 R:TITLE PAGE FOR PROGRAM1010 C:@B1373=161020 C:@B1374=21030 WRITE:S,}1040 U:*TITLE11050 E:1060 *TITLE1>}1070 POS:2,51080 C:@B755=21090 WRITE:S,DAVID'S DUNGEON1100 R:WAIT UNTIL START IS HIT1110 PA:601120 J(@B53279<>6):*TITLE2>}1130 J(@B53279=6):*HELP1140 E:1150 *TITLE21160 POS:2,51170 C:@B755=41180 WRITE:S,DAVID'S DUNGEON1190 R:WAIT UNTIL STAR>}T IS HIT1200 PA:601210 J(@B53279<>6):*TITLE11220 J(@B53279=6):*HELP1230 E:WRITE:S,DAVID'S DUNGEON1190 R:WAIT UNTIL STAR<OEiͩkΩ͙kCop j`j {j`Hi͝Νh`B}L"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh`@A,S(@f\C(@ >:A,>:A`,>:,>:A,\(@ AtarihLL(@B} >:A,>:A,>:A`,>:,>:A,nH-@@",(@>:,0 H(@B} Computerp;-@@",(@>:,0 ;(@rK-@@",(@>:,0 K(B}@ EnthusiastsvP(@FE(@$ 3662 VINE MAPLE, Eugene OR 97405P@x66160,160,160,192,2B}22,161,65,0,203,212,160,160,160}66160,192,216,223,165,160,67,0,160,207,221,208,16066202,191,167,161,160,160,69,0,160,1B}60,163,175,223D:BEST83 DDŠϠҠŠΠ Ҭ٠٠Ơ##@@