@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  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`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}}07 |||DDOS DOSDOS SYS }}}C}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8?}10 *RUN GR:QUIT20 VNEW30 C:@B1373=1640 C:@B1374=150 WRITE:S,A T A R I P I L O T60 WRITE:S, two centuries70 WRITE:S,,}80 WRITE:S, C A L E N D E R90 WRITE:S,100 WRITE:S, 1900 - 2100110 WRITE:S,120 WRITE:S,  ٠130 WRITE:S,140 W-}RITE:S,ABDULHADI H. YASSIN150 WRITE:S,160 WRITE:S, P.O.BOX 210094170 WRITE:S,180 WRITE:S, san francisco190 WRITE:S,.}200 WRITE:S, 94121210 CLOSE:S220 *SP[PRINTER SCREEN CHOICE]230 T:PRESS P S240 : /} for250 : Printer Screen260 *PS J(@B764=255):*PS270 C:#T=-1280 C:#A=@B764290 C(#A=10):$Z=P300 C(#A=100}):#T=1 [PRINTER310 C(#A=62):$Z=S320 C(#A=62):#T=0 [SCREEN330 C:@B764=255340 J(#T=-1):*PS350 *YR [YEAR REQUESTED]360 C:#1}G=0370 C:#E=0380 T:390 :400 :410 T:ENTER THE YEAR (1900....2100)420 A:#Y430 J((#Y<1900)+(#Y>2100)):*YR440 M:1928,19562},1978,1984,2012,2040,2068,2096450 CY:#G=1460 JY:*MONTH470 M:1905,1911,1922,1933,1939,1950,1961,1967,1989,1995,2006,2017,203}23,2034,2045,2051,2062,2073,2079,2090480 CY:#E=1490 JY:*MONTH500 M:1912,1940,1968,1996,2024,2052,2080510 CY:#G=2520 JY:*4}MONTH530 M:1900,1906,1917,1923,1934,1945,1951,1962,1973,1979,1990,2001,2007540 CY:#E=2550 JY:*MONTH560 M:2018,2029,2035,25}046,2057,2063,2074,2085,2091570 CY:#E=2580 JY:*MONTH590 M:1924,1952,1980,2008,2036,2064,2092600 CY:#G=3610 JY:*MONTH6206} M:1901,1907,1918,1929,1935,1946,1957,1963,1974,1985,1991,2002,2013,2019,2030,2041,2047,2058,2069,2075,2086630 CY:#E=3640 J7}Y:*MONTH650 M:2097660 CY:#E=3670 JY:*MONTH680 M:1908,1936,1964,1992,2020,2048,2076,690 CY:#G=4700 JY:*MONTH710 M:1902,8}1913,1919,1930,1941,1947,1958,1969,1975,1986,1997,2003,2014,2025,2031,2042,2053,2059,2070,2081,2089720 CY:#E=4730 JY:*MONTH9}740 M:2098750 CY:#E=4760 JY:*MONTH770 M:1920,1948,1976,2004,2032,2060,2088780 CY:#G=5790 JY:*MONTH800 M:1903,1914,1925:},1931,1942,1953,1959,1970,1981,1987,1998,2009,2015,2026,2037,2043,2054,2065,2071,2082,2093810 CY:#E=5820 JY:*MONTH830 M:20;}99840 CY:#E=5850 JY:*MONTH860 M:1904,1932,1960,1988,2016,2044,2072870 CY:#G=6880 JY:*MONTH890 M:1909,1915,1926,1937,194<}3,1954,1965,1971,1982,1993,1999,2010,2021,2027,2038,2049,2055,2066,2077,2083,2074900 CY:#E=6910 JY:*MONTH920 M:2100930 CY=}:#E=6940 M:1916,1944,1972,2000,2028,2056,2078,2084950 CY:#G=7960 JY:*MONTH970 M:1910,1921,1927,1938,1949,1955,1966,1977,1>}983,1994,2005,2011,2022,2033,2039,2050,2061,2067,2089,2095,2101980 CY:#E=7990 JY:*MONTH1000 J:*RUN1010 *MONTH T:JAN FEB M?}AR APR MAY JUN JUL AUG SEP1020 :01 02 03 04 05 06 07 08 091030 :OCT NOV DEC ӛ1040 :10 11 12 N@}UMBER OF MONTH \1050 *MS[MONTH REQUEST]1060 C:#M=01070 J(@B764=255):*MS1080 C:#T=-11090 C:#T=@B7641100 C:@B764=2551110A} *SM1120 J(@B764=255):*SM1130 C:#U=-11140 C:#U=@B7641150 C:@B764=2551160 C((#T=50)*(#U=31)):#M=11170 J(#M=1):*M11180 CB}((#T=50)*(#U=30)):#M=21190 J(#M=2):*M21200 C((#T=50)*(#U=26)):#M=31210 J(#M=3):*M31220 C((#T=50)*(#U=24)):#M=41230 J(#M=C}4):*M41240 C((#T=50)*(#U=29)):#M=51250 J(#M=5):*M51260 C((#T=50)*(#U=27)):#M=61270 J(#M=6):*M61280 C((#T=50)*(#U=51)):#MD}=71290 J(#M=7):*M71300 C((#T=50)*(#U=53)):#M=81310 J(#M=8):*M81320 C((#T=50)*(#U=48)):#M=91330 J(#M=9):*M91340 C((#T=31E})*(#U=50)):#M=101350 J(#M=10):*M101360 C((#T=31)*(#U=31)):#M=111370 J(#M=11):*M111380 C((#T=31)*(#U=30)):#M=121390 J(#M=F}12):*M121400 J(#M=0):*MS1410 *M1 [JAN ]1420 J(#M<>1):*M21430 C:$M= j a n u a r y1440 C:#S=31450 J:*CDW1460 *M2 [FEB G}]1470 J(#M<>2):*M31480 C:$M= f e b r u a r y1490 C(#G<>0):#S=11500 C(#G=0):#S=01510 J:*CDW1520 *M3 [MAR ]1530 J(#M<>3H}):*M41540 C:$M= m a r c h1550 C:#S=31560 J:*CDW1570 *M4 [APR ]1580 J(#M<>4):*M51590 C:$M= a p r i l1600 C:#S=2I}1610 J:*CDW1620 *M5 [MAY ]1630 J(#M<>5):*M61640 C:$M= m a y1650 C:#S=31660 J:*CDW1670 *M6 [JUN ]1680 J(#M<>6):*J}M71690 C:$M= j u n e1700 C:#S=21710 J:*CDW1720 *M7 [JUL ]1730 J(#M<>7):*M81740 C:$M= j u l y1750 C:#S=31760K} J:*CDW1770 *M8 [AUG ]1780 J(#M<>8):*M91790 C:$M= a u g u s t1800 C:#S=31810 J:*CDW1820 *M9 [SEP ]1830 J(#M<>9):*M1L}01840 C:$M=s e p t e m b e r1850 C:#S=21860 J:*CDW1870 *M10 [OCT ]1880 J(#M<>10):*M111890 C:$M= o c t o b e r1900 C:M}#S=31910 J:*CDW1920 *M11 [NOV ]1930 J(#M<>11):*M121940 C:$M= n o v e m b e r1950 C:#S=21960 J:*CDW1970 *M12 [DEC ]19N}80 J(#M<>12):*M11990 C:$M= d e c e m b e r2000 C:#S=32010 J:*CDW2020 *CDW [GO TO YEAR GROUP]2030 J((#G=1)+(#E=1)):*120O}40 J((#G=2)+(#E=2)):*22050 J((#G=3)+(#E=3)):*32060 J((#G=4)+(#E=4)):*42070 J((#G=5)+(#E=5)):*52080 J((#G=6)+(#E=6)):*620P}90 J((#G=7)+(#E=7)):*72100 *1 C(#M=1):#D=12110 J(#M=1):*DW2120 C(#M=2):#D=42130 J(#M=2):*DW2140 C((#M=3)*(#G<>0)):#D=52Q}150 C((#M=3)*(#G=0)):#D=42160 J(#M=3):*DW2170 C((#M=4)*(#G<>0)):#D=12180 C((#M=4)*(#G=0)):#D=72190 J(#M=4):*DW2200 C((#MR}=5)*(#G<>0)):#D=32210 C((#M=5)*(#G=0)):#D=22220 J(#M=5):*DW2230 C((#M=6)*(#G<>0)):#D=62240 C((#M=6)*(#G=0)):#D=52250 J(#S}M=6):*DW2260 C((#M=7)*(#G<>0)):#D=12270 C((#M=7)*(#G=0)):#D=72280 J(#M=7):*DW2290 C((#M=8)*(#G<>0)):#D=42300 C((#M=8)*(#T}G=0)):#D=32310 J(#M=8):*DW2320 C((#M=9)*(#G<>0)):#D=72330 C((#M=9)*(#G=0)):#D=62340 J(#M=9):*DW2350 C((#M=10)*(#G<>0)):#~}0 GR:QUIT8 C:@B1373=1616 C:@B1374=224 WRITE:S, F n32 WRITE:S, I h40 WRITE:S, L n 48 WRITE:V}S, G o E r 56 WRITE:S,64 WRITE:S, B ٛ72 WRITE:S,80 WRITE:S, a. . Y s I Λ88 WRITE:S, 1 8 W}96 T:104 T: Press Λ112 A:$ANS120 T:128 GR:CLEAR136 *MENUE C:#G=-1144 SO:0,0152 T: NUMBER OF YOUR X}CHOICE. S/L160 : Circle Line Paralellogram Polygon Rectangle Rhombus Square Trapezium TriangleY}\168 *AZR J(@B764=255):*AZR176 C:#C=@B764184 C:@B764=255192 J(#C=48):*RT200 J(#C=31):*TYPE208 J(#C=30):*FLIP216 J(#C=2Z}6):*PLGM224 J(#C=24):*POLY232 J(#C=29):*TREC240 J(#C=27):*RHOM248 J(#C=51):*SQUARES256 J(#C=53):*PEZIUM264 J(#C=50):*SL[}272 J:*AZR280 *RT T:288 :296 T:YTHAGOREAN , QUILATERAL ,SOSCELES ,BTUSE304 A:$W312 M:P,E,I,O320 JM:*TR,*EQUILATERA\}L,*ISO,*OBTUSE328 J:*RT336 *TR T: A PYTHAGORIAN TRIANGLE IS A RIGHT ANGLED TRIANGLE344 T:WITH ITS SIDES IN THIS PROPORTION]}S :352 A:$ANS360 T:368 T: 3 :: 4 :: 5376 T: SHORT SIDE::LONG SIDE::HYPOTENEOUS.384 A:$ANS392 T:IF THE ^}MEASUREMENTS OF THE TRIANGLE ARE MORE THAN THE SCREEN CAN HANDLE,YOU WILL BE TOLD SO IN TIME !400 A:$ANS408 T: THE SCREEN C_}AN FIT UP TO : \416 T: UNITS UNITS UNITS\424 T: FOR FOR FOR\432 T: `} SIDE SIDE .\440 A:$ANS448 T:456 *1 T: PYTHAGORIAN TRIANGLES464 T: CHOICE OF SIDE a} HORT , ONG , YPOTENEOUS472 A:$G480 M:S,L,H488 JM:*3,*4,*5496 JN:*1504 *3 T:GIVE LENGTH OF SIDE b} (MULTIPLES OF * 3 * ONLY)512 A:#A520 T(#A<9): LENGTH IS TOO SHORT FOR ! TRY A LARGER NUMBER PLEASE.528 Ac}(#A<9):$ANS536 J(#A<9):*3544 T(#A>19659): LENGTH IS TOO HIGH FOR ! TRY A SMALLER NUMBER PLEASE.552 A(#A>19659):$ANSd}560 J(#A>19659):*3568 C:#U=#A/3576 C:#V=#U*3584 J(#V=#A):*X592 C:#D=#A-#V600 J(#D=1):*ONE608 J(#D=2):*TWO616 *ONE C:#Te}=#A624 C:#T=#T+1632 C:#U=#T/3640 C:#V=#U*3648 C: #F=#A+#A-#T+3656 C:#E=#T-2664 T: #A IS NOT A MULTIPLE OF * 3 * TRY f} #E  OR  #F  \672 A:$ANS680 J:*3688 *TWO C:#T=#A696 C:#T=#T+2704 C:#U=#T/3712 C:#V=#U*3720 C: #F=#A+#A-#T728 C:#Eg}=#T-1736 T: #A IS NOT A MULTIPLE OF * 3 * TRY  #E  OR  #F  \744 A:$ANS752 J:*3760 *X C:#B=#A+#U768 C:#C=#B+#U776 h}T: SHORT SIDE = #A  LONG SIDE = #B  HYPOTENEOUS = #C 784 A:$ANS792 U:*SAMIR800 J:*2808 *4 T:GIVE LENGTH OF SIi}DE (MULTIPLES OF * 4 * ONLY)816 A:#B824 T(#B<12): LENGTH IS TOO SMALL FOR ! TRY A LARGER NUMBER PLEASE.j}832 A(#B<12):$ANS840 J(#B<12):*4848 T(#B>26212): LENGTH IS TOO HIGH FOR ! TRY A SMALLER NUMBER PLEASE.856 A(#B>26212k}):$ANS864 J(#B>26212):*4872 C:#U=#B/4880 C:#V=#U*4888 J(#V=#B):*Y896 C:#D=#B-#V904 J(#D=1):*UNO912 J(#D=2):*DEU920 J(l}#D=3):*THREE928 *THREE C:#T=#B936 C:#T=#T+3944 C:#U=#T/3952 C:#V=#U*3960 C: #F=#B+#B-#T968 C:#E=#T-2976 T: #B IS NOm}T A MULTIPLE OF * 4 * TRY  #E  OR  #F  \984 A:$ANS992 J:*41000 *Y C:#A=#B-#U1008 C:#C=#B+#U1016 T: SHORT SIDE = #An}  LONG SIDE = #B  HYPOTENEOUS = #C 1024 A:$ANS1032 U:*FADI1040 J:*21048 *5 T:GIVE LENGTH OF SIDE o} (MULTIPLES OF * 5 * ONLY)1056 A:#C1064 T(#C<15): LENGTH IS TOO SMALL FOR ! TRY A LARGER NUMBER PLEASE.1072 Ap}(#C<15):$ANS1080 J(#C<15):*51088 T(#C>32765): LENGTH IS TOO HIGH FOR !TRY A SMALLER NUMBER PLEASE.1096 A(#C>32765):$q}ANS1104 J(#C>32765):*51112 C:#U=#C/51120 C:#V=#U*51128 J(#V=#C):*Z1136 C:#D=#C-#V1144 J(#D=1):*EIN1152 J(#D=2):*ZWEI1r}160 J(#D=3):*DRI1168 J(#D=4):*FUR1176 J:*51184 *Z C:#B=#C-#U1192 C:#A=#B-#U1200 T: SHORT SIDE = #A  LONG SIDE = #B  s} HYPOTENEOUS = #C 1208 A:$ANS1216 U:*ADIBEH1224 J:*21232 *2 T(#A>75):#A = LENGTH OF SMALL SIDE IS > 75 UNITS;SO PYTHAGOt}RIAN TRIANGLE CANNOT BE DRAWN FULLY ON SCREEN!1240 A(#A>75):$ANS1248 J(#A>75):*11256 T(#A<3):THERE IS NO TRIANGLE WITH A Su}IDE OF UNIT LENGTH !1264 A(#A<3):$ANS1272 J(#A<3):*11280 C:#X=-751288 C:#Y=-251296 J(#G=1):*TRYP1304 J(#G=-1):*PYTv}1312 *TRYP GR:CLEAR1320 *PYT C: #L= #Y+#A1328 GR:GOTO #X,#Y;TURNTO 0;DRAW#A;GOTO #X,#Y;TURNTO90;DRAW#B1336 C:#H=%X1344 Gw}R:DRAWTO#X,#L+11352 T:SHORT SIDE=(#A), LONG SIDE=(#B), HYPOTENEOUS=(#C), VERTICES AT :: (#X, #Y), (#X, #L), (#H, #Y).\x}1360 T: ή \1368 J(%T8=1):*TAT1376 SO:0,0,0,01384 C:#I=131392 J:*FKA1400 *UNO C:#T=#B1408 C:#T=#T+1y}1416 C:#U=#T/31424 C:#V=#U*31432 C: #F=#B+#B-#T+41440 C:#E=#T-21448 T: #B IS NOT A MULTIPLE OF * 4 * TRY #E OR #F \14z}56 A:$ANS1464 J:*41472 *DEU C:#T=#B1480 C:#T=#T+21488 C:#U=#T/41496 C:#V=#U*41504 C: #F=#B+#B-#T1512 C:#E=#T1520 T: #{}B IS NOT A MULTIPLE OF * 4 * TRY  #E  OR  #F  \1528 A:$ANS1536 J:*41544 *EIN C:#T=#C1552 C:#T=#T+11560 C:#U=#T/5|}1568 C:#V=#U*51576 C: #F=#C+#C-#T+51584 C:#E=#T-21592 T: #C IS NOT A MULTIPLE OF * 5 * TRY  #E  OR  #F  \1600 A:$}}ANS1608 J:*51616 *ZWEI C:#T=#C1624 C:#T=#T+21632 C:#U=#T/51640 C:#V=#U*51648 C: #F=#C+#C-#T1656 C:#E=#T+11664 T: #C~} IS NOT A MULTIPLE OF * 5 * TRY  #E  OR  #F  \1672 A:$ANS1680 J:*51688 *DRI C:#T=#C1696 C:#T=#T+51704 C:#U=#T/517}12 C:#V=#U*51720 C: #F=#C+#C-#T+21728 C:#E=#T-31736 T: #C IS NOT A MULTIPLE OF * 5 * TRY  #E  OR  #F  \1744 A:$A}NS1752 J:*51760 *FUR C:#T=#C1768 C:#T=#T+51776 C:#U=#T/51784 C:#V=#U*51792 C: #F=#C+#C-#T+11800 C:#E=#T-41808 T: #C} IS NOT A MULTIPLE OF * 5 * TRY  #E  OR  #F  \1816 A:$ANS1824 J:*51832 *FLIP T:1840 :1848 :1856 :1864 : IN}ES OR OTS ?1872 A:$W1880 M:L,D1888 JM:*STLINES,*POINTS1896 J:*FLIP1904 *POINTS T:WHERE YOU WANT THE DOT(-79<= X <=}79)?1912 A:#X1920 T(#X>70): ADJUST HORIZONTAL1928 PA(#X>70): 2001936 T(#X<-70): ADJUST HORIZONTAL1944 PA(#X<-70): 200}1952 J((#X>79)+(#X<-79)):*POINTS1960 *TNIP T:WHERE YOU WANT THE DOT(-31<= Y <=47)?1968 A:#Y1976 J((#Y>47)+(#Y<-31)):*TNIP}1984 U:*HAMED1992 J(#G=1):*DIOT2000 J(#G=-1):*TOD2008 *DIOT GR:CLEAR2016 *TOD GR:GOTO #X,#Y2024 T:2032 T:LOOK FOR THE }DOT AT (#X , #Y)!2040 T:2048 J(%T8=1):*TAT2056 SO:0,0,0,02064 C:#I=112072 J:*FKA2080 *STLINES T:WHERE IS ITS END(-79<= }X <=0) ?2088 A:#X2096 J((#X>0)+(#X<-79)):*STLINES2104 *QLBO T:WHERE'S ITS END(-31<= Y <=47)?2112 A:#Y2120 J((#Y>47)+(#Y<}-31)):*QLBO2128 *XDR T:HOW LONG (194>= L >=1) ?2136 A:#L2144 J((#L>194)+(#L<1)):*XDR2152 *RFV T:DIRECTION (0<= D <=360) ?}2160 A:#E2168 J((#E>360)+(#E<0)):*RFV2176 U:*SAMIR2184 J(#G=1):*WTK2192 J(#G=-1):*BQL2200 *WTK GR:CLEAR2208 *BQL GR:TU}RNTO#E;GOTO#X,#Y;DRAW#L2216 C:#A=%X2224 C:#B=%Y2232 T((#E<>90)+(#E<>270)+(#E<>0)+(#E<>180)): Ϡ ̠ɠѠՠ .2240 }T((#E=90)+(#E=270)): ȠϠҠɠڠϠΠԠ .2248 T((#E=0)+(#E=180)): ֠ŠҠԠɠà .2256 T:2264 T:END (#A ,} #B), DIRECTION( #E ), LENGTH=( #L ) , END (#X , #Y).\2272 J(%T8=1):*TAT2280 SO:0,0,0,02288 C:#I=152296 J:*FKA2304 *SQUA}RES T:2312 :2320 :A SQUARE IS A QUADRILATERAL WITH EQUAL SIDES ,AND ALL ITS INTERIOR ANGLES ARE ANGLES.\2328 A:$ANS}2336 T:2344 T:WHERE YOU WANT LEFT BOTTOM VERTEX(-75<= X <=0 )?2352 A:#X2360 J((#X>0)+(#X<-75)):*SQUARES2368 *GOX T:WHERE }YOU WANT LEFT BOTTOM VERTEX(-28<= Y <=44)?2376 A:#Y2384 J((#Y>44)+(#Y<-28)):*GOX2392 C(#Y>0) :#V=25+#Y2400 C(#Y<=0) :#V=4}4-#Y2408 C:#T=74-#X2416 C(#V>#T):#V=#T2424 C(#Y=0):#V=402432 *LONG T:HOW LONG THE SIDE(4<= L <=#V) ?2440 T:2448 A:#L24}56 T(#L>#V): TOO LONG ,MAKE IT SHORTER !2464 A(#L>#V):$ANS2472 J(#L>#V):*LONG2480 J((#L<4)+(#L>#T)):*LONG2488 C(#Y<=0):#E}=02496 C(#Y>0):#E=902504 U:*FADI2512 J(#G=1):*CDQ2520 J(#G=-1):*QRS2528 *CDQ GR:CLEAR2536 *QRS GR:GOTO#X,#Y2544 GR:TUR}NTO #E;DRAW#L;TURN902552 C:#A=%X2560 C:#B=%Y2568 GR:DRAW#L;TURN902576 C:#C=%X2584 C:#D=%Y2592 GR:DRAW#L;TURN902600 C:#}H=%X2608 C:#F=%Y2616 GR:DRAW#L2624 T:2632 T: ,SIDE=(#L), ANGLE=(90), { VERTICES AT ::(#X,#Y),\2640 T: (#A,#B), }(#C,#D), (#H,#F)2648 J(%T8=1):*TAT2656 SO:0,0,0,02664 C:#I=162672 J:*FKA2680 *TREC T:2688 :2696 : A RECTANGLE IS A Q}UADRILATERAL WHOSE ANGLES ARE ALL RIGHT ANGLES.2704 A:$ANS2712 *RECT T:2720 T:WHERE YOU WANT LEFT BOTTOM VERTEX (-74<= X }<=3) ?2728 A:#X2736 J((#X>3)+(#X<-74)):*RECT2744 *ECRT T:WHERE YOU WANT LEFT BOTTOM VERTEX (-28<= Y <=14) ?2752 A:#Y2760} J((#Y>14)+(#Y<-28)):*ECRT2768 C:#A=74-#X2776 C:#B=42-#Y2784 C(#A>=#B):#C=#A2792 C(#A>=#B):#D=#B2800 C(#A<#B):#C=#B2808} C(#A<#B):#D=#A2816 *LEN T:HOW LONG THE LENGTH(4<= L <= #C) ?2824 A:#L2832 J((#L>#C)+(#L<4)):*LEN2840 *WED T:HOW LONG THE} WIDTH (4<= L <=#D) ?2848 A:#U2856 J((#U>#D)+(#U<4)):*WED2864 C(#L>=#U):$L=LENGTH2872 C(#L<#U):$L=WIDTH2880 C(#L>=#U):$P}=WIDTH2888 C(#L<#U):$P=LENGTH2896 U:*ADIBEH2904 C(#A>=#B):#E=902912 C(#A<#B):#E=02920 J(#G=1):*KMT2928 J(#G=-1):*HOZ29}36 *KMT GR:CLEAR2944 *HOZ GR:GOTO#X,#Y;TURNTO#E;DRAW#L;TURN2702952 C:#K=%X2960 C:#F=%Y2968 GR:DRAW#U;TURN2702976 C:#H=%X}2984 C:#N=%Y2992 GR:DRAW#L;TURN2703000 C:#P=%X3008 C:#S=%Y3016 GR:DRAW#U3024 C:$Z=ś3032 C(#L=#U):$Z=ś304}0 T:$Z, $L=(#L), $P=(#U)3048 T(#E=0): VERTICES AT :: (#X,#Y), (#K,#F), (#H,#N), (#P,#S).3056 T(#E=90): VERTICES AT ::} (#X,#Y), (#P,#S), (#H,#N), (#K,#F).3064 J(%T8=1):*TAT3072 SO:0,0,0,03080 C:#I=123088 J:*FKA3096 *RHOM T: A RHOMBUS }IS A PARALELLOGRAM WHOSE SIDES ARE ALL EQUAL .3104 T:3112 A:$ANS3120 GR:TURNTO03128 *MOH T:WHERE YOU WANT VERTEX(-14<= X }<=0)?3136 A:#X3144 J((#X>0)+(#X<-14)):*MOH3152 *HWS T:WHERE YOU WANT VERTEX (-8<= Y <=10)?3160 A:#Y3168 J((#Y>10)+(#Y<-8})):*HWS3176 *LANG T:WHAT IS THE ACUTE ANGLE (90>= A >=1) ?3184 A:#A3192 J((#A>90)+(#A<1)):*LANG3200 C:#B=#A-1803208 C:#D}=180-#A3216 C:#C=74-#X3224 C:#V=44-#Y3232 *DOM C:#R=?/103240 J(#R<4):*DOM3248 C(#C>=#V):#E=90+#R3256 C(#C<#V):#E=#R326}4 C(#C>=#V):#T=#C3272 C(#C<#V):#T=#V3280 C:#T=(#T+1)/23288 C(#A>36):#T=#T+((#T+3)/4)3296 T:3304 *GON T:HOW LONG THE SIDE} (20<= L <=#T) ?3312 A:#L3320 J((#L>#T)+(#L<20)):*GON3328 C(#A=90):$Q= .3336 C(#A<>90):$Q= .3344 C(#A=90):#}E=03352 U:*HAMED3360 J(#G=1):*SUB3368 J(#G=-1):*BUS3376 *SUB GR:CLEAR3384 *BUS GR:GOTO#X,#Y;TURNTO#E;DRAW#L;TURN#B3392 }C:#F=%X3400 C:#H=%Y3408 GR:DRAW#L;TURN(-#A)3416 C:#K=%X3424 C:#N=%Y3432 GR:DRAW#L;TURN#B3440 C:#U=%X3448 C:#S=%Y3456 }GR:DRAW#L3464 T:. ACUTE(A=#A).  SIDE(L=#L).  OBTUSE(OB=#D). { VERTICES AT :: (#X,#Y), (#F, #H), (#K, #N)3472 T:, (#}U, #S). {{ $Q {{ \3480 J(%T8=1):*TAT3488 SO:0,0,0,03496 C:#I=233504 J:*FKA3512 *POLY T:3520 :3528 :A REGULAR POLYG}ON IS A PLANE GEOMETRIC FIGURE \3536 T: THAT HAS OR SIDES ,ALL OF WHICH ARE EQUAL ,\3544 A:$ANS3552 T: ALL }ITS INTERIOR ANGLES ARE EQUAL TOO .3560 A:$ANS3568 *YOLP T:WITH HOW MANY SIDES THE POLYGON(3<=N<=20) ?DO NOT USE( OR O}R OR OR OR OR )?3576 A:#N3584 J((#N<3)+(#N>20)):*POLY3592 C:#A=360/#N3600 C(#N=3 ):#B=823608 C(#N=3):$Z=}EQUILATERAL-TRIANGLE3616 C(#N=4 ):#B=723624 C(#N=4):$Z=SQUARE3632 C(#N=5 ):#B=463640 C(#N=5):$Z=PENTAGON3648 C(#N=6 ):#B}=403656 C(#N=6):$Z=HEXAGON3664 J(#N=7 ):*POLY3672 C(#N=8 ):#B=303680 C(#N=8):$Z=OCTAGON3688 C(#N=9 ):#B=253696 C(#N=9):}$Z=NONAGON3704 C(#N=10):#B=233712 C(#N=10):$Z=DECAGON3720 J(#N=11):*POLY3728 C(#N=12):#B=183736 C(#N=12):$Z=DODECAGON37}44 J(#N=13):*POLY3752 J(#N=14):*POLY3760 C(#N=15):#B=153768 J(#N=16):*POLY3776 J(#N=17):*POLY3784 C(#N=18):#B=123792 J(}#N=19):*POLY3800 C(#N=20):#B=113808 C(#N=15):$Z=#N-GON3816 C(#N=18):$Z=#N-GON3824 C(#N=20):$Z=ICOSAGON3832 C:#Y=-273840} C:#X=(#B+1)/23848 C:#D=180-#A3856 GR:PENERASE;GOTO0,03864 U:*SAMIR3872 J(#G=1):*UPI3880 J(#G=-1):*OLYP3888 *UPI GR:CLE}AR3896 *OLYP GR:GOTO #X,#Y;TURNTO2703904 GR:#N(DRAW#B;TURN#A)3912 T:LENGTH=#B ,SIDES=#N ,ANGLE=#D ,A VERTEX IS ( #X, #Y)\}3920 T: $Z 3928 J(%T8=1):*TAT3936 SO:0,0,0,03944 C:#I=183952 J:*FKA3960 *PLGM T:3968 :3976 :3984 : A PARALELLOGRA}M IS A QUADRILETERAL WITH OPPOSITE SIDES ARE PARALLEL .3992 A:$ANS4000 *GRAM T:WHERE IS ITS VERTEX (-40}<= X <=10) ?4008 A:#X4016 J((#X>10)+(#X<-40)):*GRAM4024 C:#H=74-#X4032 *TVER T:WHERE IS ITS VERTEX (-1}5<= Y <=15) ?4040 A:#Y4048 J((#Y>15)+(#Y<-15)):*TVER4056 C:#V=42-#Y4064 *GNEL T:HOW LONG THE LENGTH (}10<= L <=#H) ?4072 A:#L4080 T:4088 J((#L>#H)+(#L<10)):*GNEL4096 *TWE T:HOW LONG THE WIDTH (6<= W <}=#V) ?4104 A:#U4112 J((#U>#V)+(#U<6)):*TWE4120 C(#L>#U):$P= WIDTH4128 C(#L>#U):$L= LENGTH4136 C(#L>#U):#E=904144 T:415}2 *MJU T: ANGLE (179 >= A >=1) ?4160 A:#A4168 J((#A>179)+(#A<1)):*MJU4176 C:#B=180-#A4184 C(#L<#U):$L= WIDTH4192 C(#L<#U}):$P= LENGTH4200 C(#L<#U):#E=04208 C(#L<#U):#B=180-#A4216 C(#L=#U):#E=1004224 C(#L=#U):#B=180-#A4232 C(#L=#U):$P= WIDTH}4240 C(#L=#U):$L= LENGTH4248 C:$V= ͛4256 C((#L=#U)*(#A=90)):$V= ś4264 C((#L<>#U)*(#A=90)):$V= ś4}272 C((#L=#U)*(#A<>90)):$V= ӛ4280 C(#A>90):$S= OBTUSE4288 C(#A>90):$T= ACUTE4296 C(#A<90):$S= ACUTE4304 C(#A<90):$T}=OBTUSE4312 C(#A=90):$S= A4320 C(#A=90):$T= B4328 U:*FADI4336 J(#G=1):*MVB4344 J(#G=-1):*PGRM4352 *MVB GR:CLEAR4360 *P}GRM GR:GOTO#X,#Y;TURNTO#E;DRAW#L;TURN(-#A)4368 C:#C=%X4376 C:#D=%Y4384 GR:DRAW#U;TURN(-#B)4392 C:#F=%X4400 C:#N=%Y4408 }GR:DRAW#L;TURN(-#A)4416 C:#K=%X4424 C:#R=%Y4432 GR:DRAW#U4440 T:$V,$S=(#A),$T=(#B), VERTICES AT:4448 :(#X,#Y),(#C,#D),(#}F,#N),(#K,#R)4456 :$L=(#L),$P=(#U) \4464 A(%T8=0):$ANS4472 J(%T8=1):*TAT4480 SO:0,0,0,04488 C:#I=194496 J:*FKA4504 *RO}TATE U:*COLORS4512 T:4520 *OTATE T:WHILE THE FIGURE, CLEAR SCREEN4528 T: (ES OR O) ?4536 C:#J=0}4544 A:$G4552 M:Y,N4560 JM:*CLEAR,*KEEP4568 JN:*OTATE4576 *CLEAR C:#G=14584 C(#I=23):#J=234592 C(#I=45):#J=454600 C(#}I=101):#J=1014608 C(#I=13):#J=134616 C(#I=56):#J=564624 C(#I=11):#J=114632 C(#I=17):#J=174640 C(#I=15):#J=154648 C(#I=1}6):#J=164656 C(#I=12):#J=124664 C(#I=19):#J=194672 C(#I=14):#J=144680 C(#I=18):#J=184688 C(#I=88):#J=884696 C(#I=77):#J}=774704 C(#I=66):#J=664712 J:*KEPT4720 *KEEP C:#G=-14728 *KEPT T: CHECK VOLUME. KEEP HOLDING } !4736 T:4744 T: HOW FAR (1<= D <=150) ?\4752 A:#Q4760 J((#Q<1)+(#Q>150)):*KEEP4768 *FARID T:KEEP HOLDI}NG THE !DOWN\4776 T: WHILE THE FIGURE4784 U:*ADIBEH4792 *TAT C:#O=?4800 C(?):#O=#O+?4808 SO:#O4816 C(}?\3-1):#O=#O+?4824 SO:#O4832 J(%J0=10):*TH4840 J(%J0=9):*NI4848 J(%J0=8):*EI4856 J(%J0=6):*SI4864 J(%J0=5):*FI4872 J(%}J0=4):*FO4880 J(%J0=2):*TO4888 J(%J0=1):*ON4896 J(%J0=0):*PL4904 *ON C:#X=#X4912 C:#Y=#Y+#Q4920 J(%T8=0):*FKA4928 J:*}I4936 *TO C:#X=#X4944 C:#Y=#Y-#Q4952 J(%T8=0):*FKA4960 J:*I4968 *FO C:#X=#X-#Q4976 C:#Y=#Y4984 J(%T8=0):*FKA4992 J:}*I5000 *FI C:#X=#X-#Q5008 C:#Y=#Y+#Q5016 J(%T8=0):*FKA5024 J:*I5032 *SI C:#X=#X-#Q5040 C:#Y=#Y-#Q5048 J(%T8=0):*FKA}5056 J:*I5064 *EI C:#X=#X+#Q5072 C:#Y=#Y5080 J(%T8=0):*FKA5088 J:*I5096 *NI C:#X=#X+#Q5104 C:#Y=#Y+#Q5112 J(%T8=0):*}FKA5120 J:*I5128 *TH C:#X=#X+#Q5136 C:#Y=#Y-#Q5144 J(%T8=0):*FKA5152 J:*I5160 *PL C:#X=#X5168 C:#Y=#Y5176 J(%T8=0):}*FKA5184 J:*I5192 *FKA SO:0,0,0,05200 J(#G=-1):*KCOD5208 GR:GOTO0,-32;TURNTO0;DRAWTO0,48;GOTO-83,0;TURNTO90;DRAWTO83,052}16 *KCOD5224 A:$ANS5232 *DOCK T:5240 T:CLEAR SCREEN { {( ES OR O )?5248 A:$S5256 M:Y,N5264 JM:*CREEN,*BXY5272 }JN:*DOCK5280 *CREEN GR:CLEAR5288 *BXY T:5296 T: OTATE , OR ENU ?\5304 T:5312 A:$W5320 M:R,M5328 JM:*ROTATE,}*MENUE5336 *I J(#J=23):*SUB5344 J(#I=23):*BUS5352 J(#J=13):*TRYP5360 J(#I=13):*PYT5368 J(#J=101):*BWQ5376 J(#I=101):*QW}B5384 J(#J=45):*WNL5392 J(#I=45):*LNW5400 J(#J=11):*DIOT5408 J(#I=11):*TOD5416 J(#J=15):*WTK5424 J(#I=15):*BQL5432 J(#}J=16):*CDQ5440 J(#J=56):*RTPA5448 J(#I=56):*PART5456 J(#I=16):*QRS5464 J(#J=12):*KMT5472 J(#I=12):*HOZ5480 J(#J=19):*MV}B5488 J(#I=19):*PGRM5496 J(#J=14):*GZE5504 J(#I=14):*TLE5512 J(#J=18):*UPI5520 J(#I=18):*OLYP5528 J(#J=88):*IXH5536 J(}#I=88):*HXI5544 J(#J=77):*SOO5552 J(#I=77):*OOS5560 J(#J=66):*FFR5568 J(#I=66):*RFF5576 J:*I5584 *EQUILATERAL T:5592 :}5600 :AN EQUILATERAL TRIANGLE HAS ALL ITS SIDES EQUAL, \5608 A:$ANS5616 T:5624 T: EACH INTERIOR ANGLE IS ( DEGREES },5632 A:$ANS5640 *ELT T:5648 T: LEFT VERTEX (-75<= X <=10) ?5656 A:#X5664 J((#X>10)+(#X<-75)):*ELT5672 T:5680 *LETR T:}LEFT VERTEX (-30<= Y <=-17) ?5688 A:#Y5696 J((#Y>-17)+(#Y<-30)):*LETR5704 T:5712 C:#H=31+#Y5720 C:#H=89-#H5728 *GHT T: }SIDE LENGTH (6<= L <=#H) ?5736 A:#C5744 J((#C>#H)+(#C<6)):*GHT5752 T:5760 U:*ADIBEH5768 J(#G=1):*GZE5776 J(#G=-1):*TLE}5784 *GZE GR:CLEAR5792 *TLE GR:TURNTO 905800 GR: GOTO #X,#Y;DRAW#C;TURN2405808 C:#A=%X5816 GR:DRAW#C;TURN2405824 C:#B=%X}5832 C:#E=%Y5840 GR:DRAW#C5848 T: TRIANGLE , SIDE=(#C) VERTICES AT ::5856 T:(#X,#Y), (#B,#E), }(#A,#Y) .5864 J(%T8=1):*TAT5872 SO:0,0,0,05880 C:#I=145888 J:*FKA5896 *COLORS T:5904 T:5912 SO:0,0,0,05920 *HEK T: }DO YOU WANT A GRAPH SHEET ?5928 T:5936 T: ( ES OR O ) ?\5944 T:5952 A:$F5960 M:Y5968 CY:#P=05976 CN:#P=-}15984 JN:*NABIL5992 *RAMZI T: CHECK ֮ VOLUME6000 T: WHAT IS THE DISTANCE BETWEEN BARS (0<= D <=15) ?6008 A:#}M6016 J((#M<0)+(#M>15)):*RAMZI6024 T:6032 T: GRAPH-SHEET BARS6040 U:*SAMIR6048 *NABIL J(#P=-1):*CHECK6056 C:#W=-120}6064 *SAMIH GR:TURNTO0;GOTO#W,-31;DRAWTO#W,496072 C:#W=#W+#M+16080 C:#O=?\5006088 SO:#O6096 J(#W<82):*SAMIH6104 SO:0611}2 C:#W=-306120 *SAMIRA GR:TURNTO90;GOTO-79,#W;DRAW1606128 J(#M=0):*CHECK6136 C:#O=?\5006144 SO:#O6152 C:#W=#W+#M+16160 }J(#W<48):*SAMIRA6168 *CHECK SO:06176 T:DO YOU WANT A RECTANGULAR SYSTEM OF CO-ORDINATES6184 T:6192 T: } ( ES OR O ) ?\6200 A:$F6208 T:6216 M:Y6224 CY:#Z=06232 CN:#Z=-16240 TY: CARTESIAN CO-ORDINATES SYSTEM . } \6248 J(#Z=-1):*KEH6256 U:*SAMIR6264 GR:GOTO0,-32;DRAWTO0,48;GOTO-85,0;DRAWTO85,06272 *KEH E:6280 *TYPE T:6288 *MNBV T}: C I R C L E S6296 T:6304 C:#G=-16312 *DG T:PASS THRU (-78<= X <= 78) ?6320 A:#X6328 J((#X>78)+(#X<-78)):*DG6336 *H}G T:PASS THRU (-31<= Y <= 47) ?6344 A:#Y6352 J((#Y>47)+(#Y<-31)):*HG6360 *FU T:DRAW (1< D <=20)?6368 A:#T6376 J((#T>20)+}(#T<1)):*FU6384 *CCC T: TURN (1<= T <=10) ?6392 A:#N6400 J((#N<0)+(#N>10)):*CCC6408 U:*HAMED6416 *VVV C:#D=360/#N6424 J}(#N>120):*MENUE6432 C:#K=#N*#D6440 C(#K<>360):#N=#N+16448 J(#K<>360):*VVV6456 J((#D\2)=0):*EVEN6464 J((#D\2)=1):*ODD647}2 *EVEN C:#D=#D/2-16480 C:#L=#D+16488 C:#I=456496 J(#G=1):*WNL6504 J(#G=-1):*LNW6512 *WNL GR:CLEAR6520 *LNW GR:GOTO#X,#}Y;TURNTO0;#D(TURN#N;DRAW#T)6528 C:#E=%X6536 C:#F=%Y6544 GR:#L(TURN#N;DRAW#T);DRAWTO#X,#Y6552 J:*CONC6560 *ODD C:#D=(#D+1})/26568 C:#I=566576 J(#G=1):*RTPA6584 J(#G=-1):*PART6592 *RTPA GR:CLEAR6600 *PART GR:GOTO#X,#Y;TURNTO0;#D(TURN#N;DRAW#T)}6608 C:#T=#T/26616 C(#T=0):#T=16624 GR:DRAW#T6632 C:#E=%X6640 C:#F=%Y6648 GR:DRAW#T6656 C:#T=#T*26664 GR:#D(TURN#N;DR}AW#T)6672 J:*CONC6680 *CONC C:#R=(#E-#X)/26688 C:#A=#X+#R6696 C:#B=2*#R6704 C:#C=#X+#B6712 T:DRAW(#T),TURN(#N),THRU(#X,}#Y),RAD(#R),THRU(#C,#F),CEN(#A,#Y),DIAM(#B),CIRCUM=(2)*(#R)*(22)/(7).\6720 T:AREA=(#R)*(#R)*(22)/(7). \6728 J(%T8=1)}:*TAT6736 SO:0,0,0,06744 A:$ANS6752 T:6760 T:6768 T:MALLER CURVE , OTATE , ENU ?6776 A:$E6784 M:S,R,M6792 JM:*SM}A,*ROTATE,*MENUE6800 JN:*SMA6808 *SMA C:#N=#N+16816 J:*VVV6824 T:6832 *ISO T:AN TRIANGLE IS A TRIANGLE WITH } SIDES(THE THIRD SIDE IS CALLED THE ),\6840 T:6848 A:$ANS6856 T:6864 C:#I=776872 *BA T:BASE VERTEX (-70<= X }<=70) ?6880 A:#X6888 J((#X>70)+(#X<-70)):*BA6896 T:6904 *AB T:BASE VERTEX (-25<= Y <=40) ?6912 A:#Y6920 J((#Y>40)+(#Y<-}25)):*AB6928 T:6936 *LOI T:BASE ANGLE (2<= A <=88) ?6944 A:#A6952 J((#A>88)+(#A<2)):*LOI6960 T:6968 *DTB T: SIDE LENGTH} ( 10<= L <=78)?6976 A:#L6984 J((#L>78)+(#L<10)):*DTB6992 T:7000 C:#E=((?\5)+1)7008 C:#F=90-(#A+#E)7016 C(#Y>7):#F=180+}#F7024 C:#B=2*#A7032 U:*SAMIR7040 C:$Q= ISOSCELES7048 J(#G=-1):*OOS7056 J(#G=1):*SOO7064 *SOO GR:CLEAR7072 *OOS GR:GO}TO #X,#Y;TURNTO#F;TURN#E;DRAW#L;TURN#B7080 C:#H=%X7088 C:#K=%Y7096 GR:DRAW#L7104 C:#C=2*#H7112 C:#D=%Y7120 GR:DRAWTO#X,}#Y7128 C(#A=45):$Q= TRIANGLE7136 C(#A<45):$Q= TRIANGLE7144 C(#A>45):$Q= TRIA}NGLE7152 C(#A=60):$Q= TRIANGLE7160 C:#V=180-#A-#A7168 T: { TOP ANGLE=(#V),{ BASE ANGLE=(#A),{ SIDE =(#L), VERT}ICES AT :: (#X, #Y), (#H, #K), (#C, #D).7176 T:{{ $Q {{ \7184 J(%T8=1):*TAT7192 SO:0,0,0,07200 J:*FKA7208 *OBTUSE} T:AN TRIANGLE IS A TRIANGLE HAVING ONE INTERIOR ANGLE GREATER THAN DEGREES .7216 A:$ANS7224 T:7232 C:#I=667240} *SD T:BASE VERTEX (-70<= X <=70) ?7248 A:#X7256 J((#X>70)+(#X<-70)):*SD7264 T:7272 *DS T:BASE VERTEX (-25<= Y <=40) ?72}80 A:#Y7288 J((#Y>40)+(#Y<-25)):*DS7296 T:7304 *RVO T:FIRST SIDE LENGTH ( 10<= L <=75)?7312 A:#L7320 J((#L>75)+(#L<10)):}*RVO7328 *WFU T:OBTUSE ANGLE (91<= A <=179) ?7336 A:#A7344 J((#A>178)+(#A<91)):*WFU7352 T:7360 *OVR T:SECOND SIDE LENGTH} ( 10<= L <=75)?7368 A:#U7376 J((#U>75)+(#U<10)):*OVR7384 T:7392 C:#E=((?\30)+30)7400 C((#Y>17)*(#X>25)*(#L>50)*(#A>134) }):#E=2457408 C((#Y>17)*(#X>25)*(#L>50)*(#A<135)):#E=2357416 C((#Y>17)*(#X<-25)*(#L>50)*(#A>134)):#E=607424 C((#Y>17)*(#X<- }25)*(#L>50)*(#A<135)):#E=457432 C((#Y<0)*(#X>25)*(#L>50)*(#A>134)):#E=1357440 C((#Y<0)*(#X>25)*(#L>50)*(#A<135)):#E=120744 }8 C((#Y<0)*(#X<-25)*(#L>50)*(#A>134)):#E=457456 C((#Y<0)*(#X<-25)*(#L>50)*(#A<135)):#E=607464 C:#B=180-#A7472 U:*FADI7480 } C:$Q= TRIANGLE ,7488 J(#G=-1):*RFF7496 J(#G=1):*FFR7504 *FFR GR:CLEAR7512 *RFF GR:GOTO #X,#Y;TURNTO#E;DRAW#L;TUR }N#B7520 C:#C=%X7528 C:#D=%Y7536 GR:DRAW#U7544 C:#F=%X7552 C:#K=%Y7560 GR:DRAWTO#X,#Y7568 T: 1st.SIDE=(#L), OBTUSE-AN }GLE(#A),{ 2nd.SIDE=(#U), { VERTICES AT:: (#X, #Y), (#C, #D), (#F, #K)7576 T(#L<>#U): {{ $Q {{ \7584 T(#L=#U): } { TRIANGLE {\7592 J(%T8=1):*TAT7600 SO:0,0,0,07608 J:*FKA7616 *PEZIUM T:7624 :7632 : A TRAPEZIUM IS A QUAD }RILATERAL WITH OF ITS OPPOSITE SIDES ARE .\7640 A:$ANS7648 T:7656 T:7664 *RTY T: VERTEX(-75<= }X <=75) ?7672 A:#X7680 J((#X>75)+(#X<-75)):*RTY7688 T:7696 *YTR T: VERTEX(-30<= Y <=45) ?7704 A:#Y7712 J((#Y>45)+(#Y<-3 }0)):*YTR7720 T:7728 *LAZ T:LONG BASE (12<= L <=150) ?7736 T:7744 A:#L7752 J((#L>150)+(#L<12)):*LAZ7760 C:#D=#L-(?\4)-2 }7768 *QAZ T:SIDE (5<= S <=100) ?7776 A:#V7784 J((#V>100)+(#V<5)):*QAZ7792 *ZAL T:SHORT BASE (5<= W <=#D) ?7800 A:#U7808 }J((#U<5)+(#U>#D)):*ZAL7816 *JJ T: L\B ANGLE (0< A <180)7824 A:#A7832 J((#A>179)+(#A<1)):*JJ7840 C:#B=180-#A7848 U:*ADIB }EH7856 C:#I=1017864 J(#G=1):*BWQ7872 J(#G=-1):*QWB7880 *BWQ GR:CLEAR7888 *QWB C:#E=#X+#L7896 GR:GOTO#E,#Y;TURNTO270;DRA }W#L;TURN#B7904 C:#C=%X7912 C:#F=%Y7920 GR:DRAW#V;TURNTO907928 C:#H=%X7936 C:#K=%Y7944 GR:DRAW#U7952 C:#N=%X7960 C:#T= }%Y7968 GR:DRAWTO#E,#Y7976 C(#A<>90):$H= ͛7984 C(#A=90):$H= ě7992 T:{LONG=(#L),{SIDE=(#V),{SHORT=(#U),{L\B }-ANGLE=(#A),VERTICES AT::\8000 T:(#C,#F), (#H,#K), (#N,#T), (#E,#Y).8008 T: $H . \8016 J(%T8=1): }*TAT8024 SO:0,0,0,08032 J:*FKA8040 *SAMIR8048 *FADI8056 *ADIBEH8064 *HAMED8072 T:8080 T:COLORPEN(ELLOW, ED, LUE, }RASE) ?\8088 A:$A8096 M:Y,R,B,E8104 JM:*LLOW,*DE,*ULE,*ARSE8112 JN:*SAMIR8120 *LLOW GR:PENYELLOW8128 J:*TIT8136 *DE GR }:PENRED8144 J:*TIT8152 *ULE GR:PENBLUE8160 J:*TIT8168 *ARSE GR:PENERASE8176 *TIT T:8184 E:8192 *SL T:8200 *SALO T: }8202 :PRESS CTRL S CTRL L8203 :TO ě8208 *ZZZ J(@B764=255):*ZZZ8216 C:#K=@B764 [Check for key pres }sed]8224 C:@B764=2558240 J(#K=190):*SAVE [ctrl S]8248 J(#K=128):*LOAD [ctrl L]8264 J:*ZZZ8272 *SAVE [Save or load pictur }e by]8280 *LOAD [accessing display area]8288 GR(#K=128):CLEAR8296 T: ENTER FILE NAME8304 T: ˠ ś }8312 T: D:filename C:8320 A:$FILENAME8328 C:#A=256*@B89 +@B88 [display area]8336 C:#E=#A+32008344 *NEXTBYTE8352 W }RITE(#K=190):$FILENAME @#A8360 READ (#K=128):$FILENAME @#A8368 C:#A=#A+28376 J(#A<#E):*NEXTBYTE8384 CLOSE:$FILENAME8392 }J:*MENUE8400 E:ENAME @#A8360 READ (#K=128):$FILENAME @#A8368 C:#A=#A+28376 J(#A<#E):*NEXTBYTE8384 CLOSE:$FILENAME8392 0 GR:CLEAR9 GR:QUIT18 C:@B1373=1627 C:@B1374=236 WRITE:S, Ar Il45 WRITE:S,54 WRITE:S, R a E m 63 }WRITE:S, . h YaIn72 WRITE:S,81 WRITE:S, P.O.BOX 21009490 WRITE:S,SAN FRANCISCO, CALI.99 WRITE:S, 94121108} *EF T:117 : a Number.126 :135 :( It is the to read Text Window Scrolling INSTRUCTIONS ) \144} A:#T153 J(#T<1):*EF162 *RD T: Only Letter171 :180 : M L R189 : enu ines otations \1}98 *57 J(@B764=255):*57207 C:#U=@B764216 C:@B764=255225 T:234 :243 J(#U=37):*CH252 J(#U=0):*OI261 J(#U=40):*LN270 J:*}RD279 *OI T:288 :The at ?297 :306 : ( -79 <= H <= 79 ) ?315 A:#E324 J((#E>79)+(#E<-79)):*OI333 *OJ T:The } at ?342 :351 : ( -31 <= V <= 47 ) ?360 A:#O369 J((#O>47)+(#O<-31)):*OJ378 *DI T:қ387 :396 : ( } 0 <= D <= 360 ) ?.405 A:#Z414 J((#Z>360)+(#Z<0)):*DI423 *LH T:432 :How many Units ?441 :450 : ( 0 <= L <= 18!}0 ) ? \459 A:#L468 T:477 J((#L>180)+(#L<0)):*LH486 *LR T: Button Down for a כ495 :504 C:$C=YELLOW513 C:#Q=3"}522 PA:#T531 J(%T8=1):*VO540 T: Button Down for a Line.549 :558 C:$C=BLUE567 C:#Q=2576 PA:#T585 J(%T8=1):*#}VO594 T: Button Down for a Line.603 :612 C:$C=NORMAL621 C:#Q=4630 PA:#T639 J(%T8=1):*VO648 T: Button Do$}wn for a Line.657 :666 C:$C=RED675 C:#Q=1684 PA:#T693 J(%T8=1):*VO702 J:*LR711 *VO GR(#Q=1):PENRED720 GR(#Q=2)%}:PENBLUE729 GR(#Q=3):PENYELLOW738 GR(#Q=4):PENERASE747 GR:GOTO#E,#O;TURNTO#Z;DRAW#L;PENUP756 *C T:765 : Button Down &}to ӛ774 PA:#T783 T:The Line at ( #E , #O ); in ( #Z ), is ( #L ) Units & has the $C '}.\792 PA:#T801 *PO J(%T8=1):*PO810 T:819 *UN T:828 : Button Down to Λ837 :846 PA:#T855 J(%T8=1):*MO8(}64 T: Button Down for ՛873 :882 PA:#T891 J(%T8=1):*CH900 T:909 J:*C918 *MO T:927 T: Button Down to Move )}ՠЛ936 : ܛ945 T: Pen at %X , %Y 954 PA:#T963 J(%T8=1):*UP972 T: Button Down to Move *}981 : Λ990 : Pen at %X , %Y 999 PA:#T1008 J(%T8=1):*DW1017 T: Button Down to MOVE +} RIGHT.1026 :1035 : Pen at %X , %Y 1044 PA:#T1053 J(%T8=1):*RT1062 T: Button Down to Move LEFT.1071 :10,}80 :Pen at %X , %Y 1089 PA:#T1098 J(%T8=1):*LT1107 J:*MO1116 *UP T: ܛ1125 : Pen at %X , %-}Y 1134 : ܛ1143 :How far ? ( >= 0 ) \1152 A:#E1161 J(#E<0):*UP1170 C:#Y=%Y+#E1179 .}T(#Y>47):1188 T(#Y>47): of Range . Please TRY again !1197 PA(#Y>47):#T+901206 C(#Y>47):#Y=#Y-#E1215 GR:GOTO%X,#Y122/}4 T: Pen at %X , %Y .1233 J:*HL1242 *DW T: ܯ1251 : Pen at %X , %Y .1260 : 0} ܯ1269 :How far ? ( >= 0 ) \1278 A:#E1287 J(#E<0):*DW1296 C:#Y=%Y-#E1305 T(#Y<-31):1314 T(#Y<-311}): of Range . Please TRY again !1323 PA(#Y<-31):#T+901332 C(#Y<-31):#Y=#Y+#E1341 GR:GOTO#X,#Y1350 T: Pen at %X , %2}Y .1359 PA:#T1368 J:*HL1377 *RT T: 1386 : Pen at %X , %Y .1395 :1404 :How far to the 3} ? ( >= 0 )\1413 A:#E1422 J(#E<0):*RT1431 C:#X=%X+#E1440 T(#X>79):1449 T(#X>79): of Range . Please TRY aga4}in !1458 PA(#X>79):#T+901467 C(#X>79):#X=#X-#E1476 GR:GOTO #X,#Y1485 T:1494 : Pen at %X , %Y .1503 PA:#T1512 J5}:*HL1521 *LT T: 1530 : Pen at %X , %Y 1539 :1548 :How far to the ? ( >= 0 )\156}57 A:#E1566 J(#E<0):*LT1575 C:#X=%X-#E1584 T(#X<-79):1593 T(#X<-79): of Range . Please TRY again !1602 PA(#X<-79):#7}T+901611 C(#X<-79):#X=#X+#E1620 GR:GOTO#X,#Y1629 T:1638 : Pen at %X , %Y .1647 :1656 PA:#T1665 *HL GR:PENYELLO8}W;GOTO%X,%Y1674 T: Button Down for ՛1683 :1692 : Pen at %X , %Y .1701 PA:#T1710 J(%T8=1):*ST1719 GR:PEN9}ERASE;GOTO%X,%Y1728 T:1737 : Button Down to Pen1746 :1755 PA:#T1764 J(%T8=1):*MO1773 GR:PENRED;GOTO%X,%Y178:}2 T: Button Down for ՛1791 :1800 : Pen at %X , %Y .1809 PA:#T1818 J(%T8=1):*ST1827 GR:PENBLUE;GOTO%X,%Y;}1836 T:1845 : Button Down to Pen1854 :1863 PA:#T1872 J(%T8=1):*MO1881 J(%T8=0):*HL1890 *LN T:1899 T: The <} at ?1908 :1917 : : ( -79 <= H <= 79 ) ?1926 A:#E1935 J((#E<-79)+(#E>79)):*LN1944 *EN T:1953 : The =} at ?1962 :1971 : : -31 <= V <= 47 ?1980 A:#O1989 J((#O<-31)+(#O>47)):*EN1998 *LX T: How >} to ?2007 : a number .( It is the2016 :Time Delay before drawing Line ).\2025 A:#S2034 J(#S<0):?}*LX2043 *VZ GR:PENBLUE2052 T:2061 : Button Down for Line.2070 :2079 C:#Q=22088 PA:#T2097 J(%T8=1):*TR2106 @}T: Button Down for Line.2115 T:2124 C:#Q=12133 PA:#T2142 GR:PENRED2151 J(%T8=1):*TR2160 T: Button Down fA}or Line.2169 :2178 C:#Q=42187 PA:#T2196 GR:PENERASE2205 J(%T8=1):*TR2214 T: Button Down for Line.222B}3 :2232 C:#Q=32241 PA:#T2250 GR:PENYELLOW2259 J(%T8=1):*TR2268 J:*VZ2277 *TR2286 C(#Q=1):$O= ě2295 C(#Q=2):$O= C}2304 C(#Q=3):$O= כ2313 C(#Q=4):$O= ˛2322 *TR T: -79 or 79 ONLY!2331 : / \ D} .2340 :End at or SIDE !\2349 : RETURN. \2358 A:#X2367 M: -79, 792376 JN:*RSE}2385 *51 T: Screen while ?2394 :a Y the screen of thing on it ! \2403 : Y N F}.2412 *29 J(@B764=255):*292421 C:#U=@B7642430 C(#U=35):#Z=02439 C(#U=43):#Z=12448 C:@B764=2552457 J(#U=35):*5352466 J(G}#U=43):*5352475 J:*512484 *535 C:#U=-102493 T: the LINE is 2502 : Button Down for * or to2511H} :** Color of the LINE.2520 : \2529 *Q6 J(@B764=255):*Q62538 T:2547 C:#C=@B7642556 CI}:@B764=2552565 J(#C=33):*R92574 J:*5352583 *R92592 J(#X=-79):*DR2601 J(#X= 79):*AR2610 *RS T: ( -31 ) or ( 47J} ) ONLY !2619 : / \ .2628 :End AT or Side.2637 : RETURN K} \2646 A:#Y2655 M: -31 , 472664 JN:*TR2673 *GS T: Screen while ?2682 : a Y the screen of L} thing on it ! \2691 : Y N2700 *63 J(@B764=255):*632709 C:#U=@B7642718 C(#U=43):#Z=12727 C(#U=35):#Z=02736M} C:@B764=2552745 J((#U=35)+(#U=43)):*852754 J:*GS2763 *85 C:#U=-102772 T: the LINE is 2781 : ButtonN} Down for * or to2790 :** Color of the LINE.2799 : \2808 *G6 J(@B764=255):*G6281O}7 T:2826 C:#C=@B7642835 C:@B764=2552844 J(#C=33):*U92853 J:*852862 *U92871 J(#Y=-31):*WA2880 J(#Y=47):*RA2889 *DR GR(P}#Z=1):CLEAR2898 GR:GOTO#E,#O;DRAWTO#X,#Y2907 C:#M=12916 *NU T: : X = #E , Y = #O2925 :2934 : X = %X , Y = %Y ,Q} $O2943 J(%T8=1):*KO2952 C:#Y=#Y+12961 PA:#S2970 J(#Y<=46):*DR2979 C:#Y=472988 *RA GR(#Z=1):CLEAR2997 GR:GOTO#E,#O;DRAR}WTO#X,#Y3006 T:3015 C:#M=23024 *SQ T:3033 : X = #E , Y = #O3042 :3051 : X = %X , Y = %Y , $O3060 J(%T8=1)S}:*KO3069 C:#X=#X+13078 PA:#S3087 J(#X<=78):*RA3096 C:#X=793105 *AR GR(#Z=1):CLEAR3114 GR:GOTO#E,#O;DRAWTO#X,#Y3123 C:#T}M=33132 *QN T:3141 : X = #E , Y = #O3150 :3159 : X = %X , Y = %Y , $O3168 J(%T8=1):*KO3177 C:#Y=#Y-13186 U}PA:#S3195 J(#Y>=-30):*AR3204 C:#Y=-313213 *WA GR(#Z=1):CLEAR3222 GR:GOTO#E,#O;DRAWTO#X,#Y3231 C:#M=43240 *UQ T:3249 : V} X = #E , Y = #O3258 :3267 : X = %X , Y = %Y , $O3276 J(%T8=1):*KO3285 C:#X=#X-13294 PA:#S3303 J(#X>=-78):*W}WA3312 J:*DR3321 *RU GR:PENERASE3330 T:3339 T:3348 T: or3357 : Horizontal Vertical  336X}6 : 3375 : U D L R \3384 *SH J(@B764=255):*SH3393 C:#E=@B76434Y}02 C:@B764=2553411 J((#E=0)+(#E=40)):*O03420 J((#E=11)+(#E=58)):*O113429 J:*SH3438 *O11 T:3447 C:$G= 3456 C:$Z}R= 3465 C(#E=58):#X=793474 C(#E=11):#X=-793483 C(#E=11):#Y=-313492 C(#E=58):#Y=473501 C(#E=11):#A=903510 C(#E=58):#[}A=2703519 C(#E=58):$E= 3528 C(#E=11):$E=  3537 C:#B=1603546 C(#A=90):#I=13555 C(#A=270):#I=-13564 J:*GA3573 *O0 T:\}3582 C:$G= 3591 C:$R= 3600 C(#E=40):#Y=473609 C(#E=0):#Y=-313618 C(#E=40):#X=793627 C(#E=0):#X=-793636 C(#E]}=0):#A=03645 C(#E=40):#A=1803654 C(#E=40):$E= 3663 C(#E=0):$E= 3672 C:#B=1603681 C(#A=180):#I=-13690 C(#A=0):#I=1^}3699 *GA T:3708 : Button Down time to Drawing the $E .3717 PA:#T3726 T:3735 T: Button_} for $E Background.\3744 T:3753 T:Or Button Down for ՛3762 PA:#T3771 J(%T8=1):*CH3780 *OW GR:PENERASE3789`} T: Button Down for a $G3798 :3807 : $E Background3816 PA:#T3825 C:$O= ˛3834 J(%T8=1):*UG3843 a}T: Button Down for a $G3852 :3861 : $E Background3870 GR:PENYELLOW3879 C:$O= כ3888 PA:#T3897 b}J(%T8=1):*UG3906 T: Button Down for a $G3915 :3924 : $E Background3933 PA:#T3942 GR:PENRED3951 C:$c}O= ě3960 J(%T8=1):*UG3969 T: Button Down for a $G3978 :3987 : $E Background3996 GR:PENBLUE4005 Cd}:$O= ś4014 PA:#T4023 J(%T8=1):*UG4032 J:*GA4041 *HF T:4050 : Button Down for4059 :4068 : ԛ4077 e}C:#D=04086 C:#P=304095 PA:#T4104 J(%T8=1):*T4113 T: Button Down for4122 :4131 : ԛ4140 C:#D=04149 C:f}#P=204158 PA:#T4167 J(%T8=1):*T4176 T: Button Down for4185 :4194 : ԛ4203 C:#D=04212 C:#P=124221 PA:#Tg}4230 J(%T8=1):*T4239 T: Button Down for4248 :4257 : כ4266 C:#D=04275 C:#P=04284 PA:#T4293 J(%T8=1):*T4q}B'DOS SYSB_+CAL200YRPLTBUGEOMETRYII CRASSEM II BRASSEM II BHOUSMATEPLTBnHOUSMATEDOCBABACUS51DOC302 T: Button Down to4311 :4320 : .4329 PA:#T4338 J(%T8=1):*I4347 T:4356 :4365 :TRY AGAIN ?43r}74 PA:#T4383 J:*HF4392 *I T:4401 : a number ( P > 0 ).4410 :4419 :It is the the Pen Pauses.\4428 As}:#D4437 J(#D<1):*I4446 *A T:4455 : a number( 0 < N <= 30)4464 :It is the number of pixels drawn per t}Į \4473 A:#P4482 J((#P<1)+(#P>30)):*A4491 C:#P=#P-14500 PA:#T4509 J:*T4518 *TQ T:4527 :4536 : Stick Buttou}n !4545 :4554 PA:#T4563 *T T:4572 : Button Down for ՛4581 :4590 : Pen at X = %X , Y = %Y4599 PA:#T4608 Jv}(%T8=1):*CH4617 GR:PENBLUE;GOTO%X,%Y4626 T: Stick & in4635 :4644 : ś4653 PA:#T4662 C:#Q=24w}671 C:$O= ś4680 J(%J0<>0):*ST4689 T: Stick & in4698 :4707 C:#Q=34716 T: כ4725 GR:PENYEx}LLOW;GOTO%X,%Y4734 C:$O= כ4743 PA:#T4752 J(%J0<>0):*ST4761 T: Stick & in4770 T:4779 C:#Q=14788 T: y} ě4797 GR:PENRED;GOTO%X,%Y4806 C:$O= ě4815 PA:#T4824 J(%J0<>0):*ST4833 T: Stick & in4842 T:z}4851 C:#Q=44860 T: ˛4869 GR:PENERASE;GOTO%X,%Y4878 C:$O= ˛4887 PA:#T4896 J(%J0<>0):*ST4905 J:*T4914{} *SI4923 *ST4932 GR:PENYELLOW;GOTO%X,%Y;PENBLUE;GOTO%X,%Y;PENERASE;GOTO%X,%Y;PENRED;GOTO%X,%Y4941 GR(#Q=1):PENRED4950 C(#|}Q=1):$O= ě4959 GR(#Q=2):PENBLUE4968 C(#Q=2):$O= ś4977 GR(#Q=3):PENYELLOW4986 C(#Q=3):$O= כ4995 GR(#Q=4):PENERA}}SE5004 C(#Q=4):$O= ˛5013 GR:GOTO%X,%Y5022 PA:#D5031 J((%Y<-30)+(%Y>46)+(%X>78)+(%X<-78)):*VA5040 J(%J0=10):*1000504~}9 J(%J0=9):*9005058 J(%J0=8):*8005067 J(%J0=6):*6005076 J(%J0=5):*5005085 J(%J0=4):*4005094 J(%J0=2):*2005103 J(%J0=1):}*1005112 J(%J0=0):*T5121 *VA5130 C(%Y<-30):#Y=465139 C(%Y>46):#Y=-305148 C(%X<-78):#X=785157 C(%X>78):#X=-785166 T: } is at5175 T:5184 T((#Y=46)*(#X=78)): ( X = #X Y=#Y )5193 J((#Y=46)*(#X=78)):*DY5202 T((#Y=46)*(#X=-78)): } ( X = #X Y=#Y )5211 J((#Y=46)*(#X=-78)):*DY5220 T((#Y=-30)*(#X=-78)): ( X = #X Y=#Y )5229 J((#Y=-30)*(#X=-78))}:*DY5238 T((#Y=-30)*(#X=78)): ( X = #X Y=#Y )5247 J((#Y=-30)*(#X=78)):*DY5256 T(#Y=46): ( X = %X Y=#Y )5265 T}(#Y=-30): ( X = %X ܯ Y=#Y )5274 T(#X=-78): ( X = #X Y=%Y )5283 T(#X=78): ( X = #X Y=%Y )5292 *DY GR:GOTO#X,#}Y5301 PA:#T5310 T:5319 : the & .5328 PA:#T5337 J(%J0<>0):*TQ5346 T:5355 :5364 : Button} Down for ՛5373 PA:#T5382 J(%T8=1):*CH5391 J:*SI5400 *100 C:#Y=%Y+1+#P5409 J(#Y>(47+#P)):*ONE5418 GR:DRAWTO%X,#Y542}7 T: X = %X , Y = %Y5436 :5445 : $O5454 J:*ST5463 *ONE5472 C:#Y=-315481 GR:GOTO%X,#Y5490 J:*SI5499 *200} C:#Y=%Y-1-#P5508 J(#Y<(-31-#P)):*TWO5517 GR:DRAWTO%X,#Y5526 T: X = %X , Y = %Y5535 :5544 : $O5553 J:*ST}5562 *TWO5571 C:#Y=475580 GR:GOTO %X,#Y5589 J:*SI5598 *400 C:#X=%X-1-#P5607 J(#X<(-79-#P)):*FOUR5616 GR:DRAWTO#X,%Y562}5 T: X = %X , Y = %Y5634 :5643 : $O5652 J:*ST5661 *FOUR5670 C:#X=-%X5679 GR:GOTO#X,%Y5688 J:*SI5697 *50}0 C:#X=%X-1-#P5706 C:#Y=%Y+1+#P5715 J(#Y>(47+#P)):*FIVE5724 J(#X<(-79-#P)):*FIVE5733 GR:DRAWTO#X,#Y5742 T: X = %X ,} Y = %Y5751 :5760 : $O5769 J:*ST5778 *FIVE5787 C(#X<-79):#X=-%X5796 C(#Y>47):#Y=-315805 GR:GOTO#X,#Y5814 J:*}SI5823 *600 C:#X=%X-1-#P5832 C:#Y=%Y-1-#P5841 J(#Y<(-31-#P)):*SIX5850 J(#X<(-79-#P)):*SIX5859 GR:DRAWTO#X,#Y5868 T: } X = %X , Y = %Y5877 :5886 : $O5895 J:*ST5904 *SIX5913 C(#X<-79):#X=-%X5922 C(#Y<-31):#Y=475931 GR:GOTO#X,#Y}5940 J:*SI5949 *800 C:#X=%X+1+#P5958 J(#X>(79+#P)):*EIGHT5967 GR:DRAWTO#X,%Y5976 T: X = %X , Y = %Y5985 :5994 : } $O6003 J:*ST6012 *EIGHT6021 C:#X=-%X6030 GR:GOTO#X,%Y6039 J:*SI6048 *900 C:#X=%X+1+#P6057 C:#Y=%Y+1+#P6066 J(}#X>(79+#P)):*NINE6075 J(#Y>(47+#P)):*NINE6084 GR:DRAWTO#X,#Y6093 T: X = %X , Y = %Y6102 :6111 : $O6120 J:}*ST6129 *NINE6138 C(#X>79):#X=-%X6147 C(#Y>47):#Y=-316156 GR:GOTO#X,#Y6165 J:*SI6174 *10006183 C:#X=%X+1+#P6192 C:#Y=}%Y-1-#P6201 J(#X>(79+#P)):*TEN6210 J(#Y<(-31-#P)):*TEN6219 T: X = %X , Y = %Y6228 :6237 : $O6246 GR:DRAWT}O#X,#Y6255 J:*ST6264 *TEN6273 C(#X>79):#X=-%X6282 C(#Y<-31):#Y=476291 GR:GOTO#X,#Y6300 J:*SI6309 T:6318 *CH T:63}27 C(#Q=1):$O= ě6336 GR(#Q=1):PENRED6345 C(#Q=2):$O= ś6354 GR(#Q=2):PENBLUE6363 C(#Q=3):$O= כ6372 GR(#Q=3):PEN}YELLOW6381 C(#Q=4):$O= ˛6390 GR(#Q=4):PENERASE6399 T: # of your Choice:X= %X, Y= %Y6408 T: Draw,Color* Speed*} BackGround* MovePen* Fill* Frame* New*6417 T: DiscoLights* Rotations* Lines*\6426 *SG J(@B764=255):*SG}6435 C:#E=@B7646444 C:@B764=2556453 J(#E=50):*TQ6462 J(#E=31):*HF6471 J(#E=30):*RU6480 J(#E=26):*MO6489 J(#E=24):*FI64}98 J(#E=29):*BO6507 J(#E=27):*NE6516 J(#E=51):*ZO6525 J(#E=53):*LN6534 J(#E=48):*OI6543 J:*SG6552 *NE T:6561 T:6570 }:DO YOU WANT TO or A PICTURE ? or Λ6579 *991 J(@B764=255):*9916588 C:#U=@B7646597 C(#U=43):#U=1116606 C(}#U=35):#U=-1116615 C:@B764=2556624 J(#U=-111):*NEZ6633 J(#U=111):*SL6642 J:*NE6651 *NEZ T:6660 : Screen ? }Y N6669 :6678 *99 J(@B764=255):*996687 C:#U=@B7646696 C(#U=43):#U=-9996705 C(#U=35):#U=9996714 C:@B764=2556723 J(}(#U=-999)+(#U=999)):*886732 J:*NEZ6741 *88 GR(#U=-999):CLEAR;PENUP;GOTO0,06750 C:#U=06759 C:#X=06768 C:#Y=06777 GR:GOTO} #X,#Y6786 J:*RU6795 *BO T:6804 C:#U=06813 *OB T:6822 : Button !6831 :6840 PA:#T6849 GR:PENYELLOW68}58 T: Button Down for a6867 :6876 : FRAME . #U6885 C:$J=* YELLOW *6894 C:#Q=36903 PA:#T6912 J(%T8=1):*}FR6921 T: Button Down for a6930 :6939 : FRAME . #U6948 C:$J=* BLUE *6957 C:#Q=26966 PA:#T6975 GR:PE}NBLUE6984 J(%T8=1):*FR6993 T: Button Down for a7002 :7011 : FRAME . #U7020 C:$J=* RED *7029 C:#Q=1}7038 PA:#T7047 GR:PENRED7056 J(%T8=1):*FR7065 T: Button Down for a7074 :7083 : FRAME . #U7092 C:$J=* B}LACK *7101 C:#Q=47110 PA:#T7119 GR:PENERASE7128 J(%T8=1):*FR7137 T: Button Down for7146 :7155 : .7164 PA}:#T7173 J(%T8=1):*CH7182 J:*OB7191 *FR T: How the FRAME ( 0 < W < 41 ) Last FRAME was ( #U ) Units wide .7200 :} ** PRESS for **7209 A:#E7218 J(#E<0)+(#E>40):*FR7227 J(#E=0):*CH7236 T:7245 T: Button Down to d}rawing the $J .7254 PA:607263 C:#Z=#E7272 C:#O=-797281 C:#L=-317290 C:#C=477299 *RF GR:GOTO#O,#L;TURNTO0;DRAWTO#O,}#C;TURNTO90;DRAWTO-#O,#C;TURNTO180;DRAWTO-#O,#L;TURN90;DRAWTO#O,#L7308 C:#E=#E-17317 C:#U=#Z-#E7326 J(#E=0):*OB7335 C:#O=}#O+17344 C:#L=#L+17353 C:#C=#C-17362 J(%T8=1):*OB7371 J:*RF7380 *UG7389 T:7398 :7407 : Button כ7416 }PA:607425 C:#C=17434 *QG GR:GOTO#X,#Y;TURNTO#A;DRAW#B7443 T: Button Down to drawing the7452 :$O $G $E Background} which is ( #C ) Units $R7461 PA(#C=1):#T7470 J(%T8=1):*RU7479 C((#A=180)+(#A=0)):#X=#X+#I7488 C((#A=90)+(#A=270)):#Y=#Y}+#I7497 C:#C=#C+17506 J((#A=180)*(#X>-80)):*QG7515 J((#A=0)*(#X<80)):*QG7524 J((#A=90)*(#Y<49)):*QG7533 J((#A=270)*(#Y>-}32)):*QG7542 J:*RU7551 *FI T:7560 :7569 :Bottom Left Corner ( -79 <= X <= 79 )7578 T:7587 A:#O7596 J((#O>79)+(#O<-79))}:*FI7605 T:7614 :Bottom Left Corner -31 <= Y <= 47 7623 T:7632 A:#U7641 J((#U>47)+(#U<-31)):*FI7650 T: 315 0 }45  Λ7659 T:270 90( 0 <= D <= 360 )?7668 T: 225 180 135  \7677 A:#S7686 J((}#S>360)+(#S<0)):*FI7695 *LI T:7704 GR:PENYELLOW7713 T: Button Down to in7722 T:7731 : כ7740 C}:#Q=37749 C:$G=כ7758 PA:#T7767 J(%T8=1):*WO7776 T: Button Down to in7785 T:7794 : ś7803 G}R:PENBLUE7812 C:#Q=27821 C:$G=ś7830 PA:#T7839 J(%T8=1):*WO7848 T: Button Down to in7857 T:7866 : } ě7875 GR:PENRED7884 C:#Q=17893 C:$G=ě7902 PA:#T7911 J(%T8=1):*WO7920 T: Button Down to in7929 T:7938} : ˛7947 GR:PENERASE7956 C:#Q=47965 C:$G=˛7974 PA:#T7983 J(%T8=1):*WO7992 J:*LI8001 *WO T:How many } ( 1 <= U <= 160 ) to ?8010 A:#L8019 J((#L<1)+(#L>160)):*WO8028 *IL T: I am FILLING #L Units in Direction #S }with $G8037 *IL GR:GOTO#O,#U;TURNTO#S;#L(FILL1)8046 T:8055 T:8064 : Button Down for .8073 PA:3*#T8082 J(%T8=}1):*CH8091 J:*FI8100 *KO T:8109 :8118 : Button !8127 PA:#T8136 *KY T:8145 T:8154 : Button f}or 8163 :8172 PA:#T8181 J(%T8=1):*CH8190 T: Button Down for8199 :8208 :END X = %X Y = %Y8217 C:#Q=4}8226 C:$O= ˛8235 PA:#T8244 J(%T8=1):*BQ8253 T: Button Down for8262 :8271 :END X = %X Y = %Y8280 C:#Q=}28289 C:$O= ś8298 PA:#T8307 J(%T8=1):*BQ8316 T: Button Down for8325 :8334 :END X = %X Y = %Y8343 C:#Q}=38352 C:$O= כ8361 PA:#T8370 J(%T8=1):*BQ8379 T: Button Down for8388 :8397 :END X = %X Y = %Y8406 C}:#Q=18415 C:$O= ě8424 PA:#T8433 J(%T8=1):*BQ8442 J:*KY8451 *BQ T:8460 :8469 : Button !8478 PA:#T848}7 GR(#Q=1):PENRED8496 GR(#Q=2):PENBLUE8505 GR(#Q=3):PENYELLOW8514 GR(#Q=4):PENERASE8523 J(#M=1):*NU8532 J(#M=2):*SQ8541} J(#M=3):*QN8550 J(#M=4):*UQ8559 *ZO T:8568 T:8577 : Enter a Positive Number ( It is the TIME DELAY for CHANGING COLORS.})8586 A:#G8595 J(#T<0):*ZO8604 T:* Button Down for MENU8613 :** stick button Down to STOP DIS}CO.*** RELEASE both for DISCO8622 PA:4508631 *ZM C:#M=?\168640 C:#N=?\88649 C:#I=?\48658 C(#I=0):$K= ś8667 C(#I=1):}$K= ś8676 C(#I=2):$K= כ8685 C(#I=3):$K= ě8694 C(#I=0):@B712=(#M*16)+(#N*2)8703 C(#I=1):@B710=(#M*16)+(#N*2)871}2 C(#I=2):@B709=(#M*16)+(#N*2)8721 C(#I=3):@B708=(#M*16)+(#N*2)8730 T:8739 :Color #M $K Luminance #N 8748 : B}utton Down for 8757 PA:#G8766 *HQ J((%T8=1)*(%J0<>0)):*HQ8775 J(%T8=1):*CH8784 J:*ZM8793 *SL8802 T:PRESS S } L8811 T:8820 T: TO ** ě8829 *ZZZ J(@B764=255):*ZZZ8838 C:#K=@B764 [Check for key pressed]8}847 C:@B764=2558856 J(#K=190):*SAVE [ctrl S]8865 J(#K=128):*LOAD [ctrl L]8874 J:*SL8883 *SAVE [Save or load picture by]8}892 *LOAD [accessing display area]8893 GR(#K=128):CLEAR8901 T: ENTER FILE NAME8910 T: ˠ ś8919 T:} D:filename C:8928 A:$FILENAME8937 C:#A=256*@B89 +@B88 [display area]8946 C:#E=#A+32008955 *NEXTBYTE8964 WRITE(#K}=190):$FILENAME @#A8973 READ (#K=128):$FILENAME @#A8982 C:#A=#A+28991 J(#A<#E):*NEXTBYTE9000 CLOSE:$FILENAME9009 J:*CH9}018 E:FILENAME @#A8973 READ (#K=128):$FILENAME @#A8982 C:#A=#A+28991 J(#A<#E):*NEXTBYTE9000 CLOSE:$FILENAME9009 J:*CH910 GR:QUIT20 U:*SCR30 J:*J040 *H1M CLOSE:S50 T:60 :ҠΠԠ ŠҠ----> HOUSMAT}E.DOC70 : PRESS RETURN \80 A:$ANS90 J:*MENU100 *CON110 J(#D=1):*ARIE120 J(#D=2):*TAUR130 J(#D=3):*GEMI1}40 J(#D=4):*CANC150 J(#D=5):*LEOO160 J(#D=6):*VIRG170 J(#D=7):*LIBR180 J(#D=8):*SCOR190 J(#D=9):*SAGI200 J(#D=10):*CAPR}210 J(#D=11):*AQUA220 J(#D=12):*PISC230 *ENAM[ENGLISH NAME]240 C(#S=11):$F= WATERBEARER250 C(#S=10):$F= HEGOAT}260 C(#S=8):$F= SCORPION270 C(#S=7):$F= SCALES280 C(#S=6):$F= MAIDEN290 C(#S=5):$F= LION300 C(#S}=4):$F= CRAB310 C(#S=2):$F= BULL320 C(#S=1):$F= RAM330 E:340 *SCR [SPLIT SCREEN350 C:@B1373=16360 }C:@B1374=2370 E:380 *D WRITE:S """"""""""""""""""390 E:400 *F410 WRITE:S : : :420 E:430 *S440 WRITE:S } : : :450 E:460 *T470 WRITE:S : : :480 E:490 *DF U:*D500 U:*F510 E:520 *DS U:*D530 U:*S5}40 E:550 *DT U:*D560 U:*T570 E:580 *QUA [CHARACTERISTICS]590 C:$A=қ600 C:$W=қ610 C:$R=ś620 C:$H=ț630 C:}$D=640 C:$X=650 C:$U=660 C:$P=ODD POSITIVE670 C:$T=EVEN NEGATIVE680 C:$N=sun690 C:$O=moon700 C:$}Z=mars710 C:$J=jupiter720 C:$K=saturn730 C:$Y=mercury740 C:$V=venus750 C:$B=ś760 C:$C=ś770 C:$I=}780 C:$E=790 C:$Q=800 C:$M=RULED BY..810 C:@B1373=16820 C:@B1374=2830 J:*CON840 *ARIE U:*SCR850 C((#W}=-2)+(#D=1)):$S= ARIEN860 C((#W=-2)+(#D=1)):$F= RAM870 WRITE(#W=1):S, $G $L880 WRITE:S,$S890 WRITE:S,$F900 WRIT}E:S,HOUSE.....1.910 WRITE:S,QUALITY...$D920 WRITE:S,ELEMENT...$R930 WRITE:S,$M$Z940 WRITE:S, $P950 WRITE:S, } $B960 WRITE:S, $Q970 J:*SLI980 *TAUR U:*SCR990 C((#W=-2)+(#D=2)):$S= TAURIAN1000 C((#W=-2)+(#D=2)):$F= } BULL1010 C(#W=1):$F= BULL1020 WRITE(#W=1):S, $G $L1030 WRITE:S,$S1040 WRITE:S,$F1050 WRITE:S,HOUSE.....2.}1060 WRITE:S,QUALITY...$X1070 WRITE:S,ELEMENT...$H1080 WRITE:S,$M$V1090 WRITE:S, $T1100 WRITE:S, $C1110 WRIT}E:S, $I1120 J:*SLI1130 *GEMI U:*SCR1140 C((#W=-2)+(#D=3)):$S= GEMINIAN1150 C((#W=-2)+(#D=3)):$F= TWINS116}0 WRITE(#W=1):S, $G $L1170 WRITE:S,$S1180 WRITE:S,DOUBLE $F1190 WRITE:S,HOUSE.....3.1200 WRITE:S,QUALITY...$U1210 WRI}TE:S,ELEMENT...$A1220 WRITE:S,$M$Y1230 WRITE:S, $P1240 WRITE:S, $B1250 WRITE:S, $E1260 J:*SLI1270} *CANC U:*SCR1280 C((#W=-2)+(#D=4)):$S= CANCERIAN1290 C((#W=-2)+(#D=4)):$F= CRAB1300 WRITE(#W=1):S, $G $L1310 }WRITE:S,$S1320 WRITE:S,$F1330 WRITE:S,HOUSE.....4.1340 WRITE:S,QUALITY...$D1350 WRITE:S,ELEMENT...$W1360 WRITE:S,$M$O}1370 WRITE:S, $T1380 WRITE:S, $C1390 WRITE:S, $Q1400 J:*SLI1410 *LEOO U:*SCR1420 C((#W=-2)+(#D=5)):}$S= LEONINE1430 C((#W=-2)+(#D=5)):$F= LION1440 WRITE(#W=1):S, $G $L1450 WRITE:S,$S1460 WRITE:S,$F1470 WRITE:S},HOUSE.....5.1480 WRITE:S,QUALITY...$X1490 WRITE:S,ELEMENT...$R1500 WRITE:S,$M$N1510 WRITE:S, $P1520 WRITE:S, } $B1530 WRITE:S, $I1540 J:*SLI1550 *VIRG U:*SCR1560 C((#W=-2)+(#D=6)):$S= VIRGOEN1570 C((#W=-2)+(#D=6))}:$F= MAIDEN1580 WRITE(#W=1):S, $G $L1590 WRITE:S,$S1600 WRITE:S,$F1610 WRITE:S,HOUSE.....6.1620 WRITE:S,QUALITY..}.$U1630 WRITE:S,ELEMENT...$H1640 WRITE:S,$M$Y1650 WRITE:S, $T1660 WRITE:S, $C1670 WRITE:S, $E1680 }J:*SLI1690 *LIBR U:*SCR1700 C((#W=-2)+(#D=7)):$S= LIBRAN1710 C((#W=-2)+(#D=7)):$F= SCALES1720 WRITE(#W=1):S, $G }$L1730 WRITE:S,$S1740 WRITE:S,$F1750 WRITE:S,HOUSE.....7.1760 WRITE:S,QUALITY...$D1770 WRITE:S,ELEMENT...$A1780 WRITE}:S,$M$V1790 WRITE:S, $P1800 WRITE:S, $B1810 WRITE:S, $Q1820 J:*SLI1830 *SCOR U:*SCR1840 C((#W=-2)}+(#D=8)):$S= SCORPIAN1850 C((#W=-2)+(#D=8)):$F= SCORPION1860 WRITE(#W=1):S, $G $L1870 WRITE:S,$S1880 WRITE:S,$F}1890 WRITE:S,HOUSE.....8.1900 WRITE:S,QUALITY...$X1910 WRITE:S,ELEMENT...$W1920 WRITE:S,$M$Z1930 WRITE:S, $T1940 WR}ITE:S, $C1950 WRITE:S, $I1960 J:*SLI1970 *F3 WRITE:S,1980 J:*B91990 *SAGI U:*SCR2000 C((#W=-2)+(#D=9)}):$S= SAGITTARIAN2010 C((#W=-2)+(#D=9)):$F= ARCHER2020 WRITE(#W=1):S, $G $L2030 WRITE:S,$S2040 WRITE:S,DOUBLE $F2}050 WRITE:S,HOUSE.....9.2060 WRITE:S,QUALITY...$U2070 WRITE:S,ELEMENT...$R2080 WRITE:S,$M$J2090 WRITE:S, $P2100 WR}ITE:S, $B2110 WRITE:S, $E2120 J:*SLI2130 *X8 WRITE:S,2140 J:*E12150 *CAPR U:*SCR2160 C((#W=-2)+(#D=10})):$S= CAPRICORNIAN2170 C((#W=-2)+(#D=10)):$F= HE GOAT2180 WRITE(#W=1):S, $G $L2190 WRITE:S,$S2200 WRITE:S,$F22}10 WRITE:S,HOUSE.....10.2220 WRITE:S,QUALITY...$D2230 WRITE:S,ELEMENT...$H2240 WRITE:S,$M$K2250 WRITE:S, $T2260 WRI}TE:S, $C2270 WRITE:S, $Q2280 J:*SLI2290 *G2 WRITE:S,2300 J:*A52310 *AQUA U:*SCR2320 C((#W=-2)+(#D=11)}):$S= AQUARIAN2330 C((#W=-2)+(#D=11)):$F= WATER BEARER2340 WRITE(#W=1):S, $G $L2350 WRITE:S,$S2360 WRITE:S,$F237}0 WRITE:S,HOUSE.....11.2380 WRITE:S,QUALITY...$X2390 WRITE:S,ELEMENT...$A2400 WRITE:S,$M$K2410 WRITE:S, $P2420 WRI}TE:S, $B2430 WRITE:S, $I2440 J:*SLI2450 *PISC U:*SCR2460 C((#W=-2)+(#D=12)):$S= PISCEAN2470 C((#W=}-2)+(#D=12)):$F= FISHES2480 WRITE(#W=1):S, $G $L2490 WRITE:S,$S2500 WRITE:S,DOUBLE $F2510 WRITE:S,HOUSE.....12.2520} WRITE:S,QUALITY...$U2530 WRITE:S,ELEMENT...$W2540 WRITE:S,$M$J2550 WRITE:S, $T2560 WRITE:S, $C2570 WRITE:S,} $E2580 J:*SLI2590 *D6 WRITE:S,2600 J:*I42610 *DAY T:2620 : You were born in the MONTH of2630 : $M2640 : } ENTER # OF DAY YOU WERE BORN ON2650 C:#D=02660 A:#D2670 M:31,30,29,28,27,26,25,24,23,22,21,20,19,18,17,16,15,14,13,12,11,}10,9,8,7,6,5,4,3,2,12680 JN:*DAY2690 T((#D>#H)*(#Z<>2)):There are #H DAYS IN THE MONTH of $M. RETURN THEN CORRE}CT date of birth. \2700 T((#D>#H)*(#Z=2)):There are 28/29 DAYS IN THE MONTH of $M. RETURN THEN CORRECT date of b}irth. \2710 A(#D>#H):$A2720 J((#D<1)+(#D>#H)):*DAY2730 *SIGNS [CALCULATING SIGN]2740 C:#C=#L-12750 C((#Z=12)*(#D<#L)):#S}=92760 C((#Z=12)*(#D>#C)):#S=102770 C((#Z=11)*(#D<#L)):#S=82780 C((#Z=11)*(#D>#C)):#S=92790 C((#Z=10)*(#D<#L)):#S=72800 }C((#Z=10)*(#D>#C)):#S=82810 C((#Z=9)*(#D<#L)):#S=62820 C((#Z=9)*(#D>#C)):#S=72830 C((#Z=8)*(#D<#L)):#S=52840 C((#Z=8)*(#D}>#C)):#S=62850 C((#Z=7)*(#D<#L)):#S=42860 C((#Z=7)*(#D>#C)):#S=52870 C((#Z=6)*(#D<#L)):#S=32880 C((#Z=6)*(#D>#C)):#S=428}90 C((#Z=5)*(#D<#L)):#S=22900 C((#Z=5)*(#D>#C)):#S=32910 C((#Z=4)*(#D<#L)):#S=12920 C((#Z=4)*(#D>#C)):#S=22930 C((#Z=3)*(}#D<#L)):#S=122940 C((#Z=3)*(#D>#C)):#S=12950 C((#Z=2)*(#D<#L)):#S=112960 C((#Z=2)*(#D>#C)):#S=122970 C((#Z=1)*(#D<#L)):#S}=102980 C((#Z=1)*(#D>#C)):#S=112990 C(#S=12):$S= IcA FISHES3000 C(#S=11):$S= aUrAΛ3010 C(#S=10):$S= aR}cRiN3020 C(#S=9):$S=siTtIa ARCHER3030 C(#S=8):$S= CrIn3040 C(#S=7):$S= LbA3050 C(#S=6):$S= }RgN3060 C(#S=5):$S= LnE3070 C(#S=4):$S= cCeAn3080 C(#S=3):$S= GmNa TWINS3090 C(#S=2):$S= }AuN3100 C(#S=1):$S= RaΛ3110 U:*ENAM3120 C:#K=(20-#F)/23130 C:#Q=(15-#P)/2-13140 C:#G=(20-#G)/23150 C:#I=(20}-#I)/23160 GR:QUIT3170 C:@B1373=163180 C:@B1374=23190 POS:0,03200 WRITE:S,3210 POS:#K,13220 WRITE:S,$G3230 POS:#I,33}240 WRITE:S,$L3250 POS:6,43260 WRITE:S, 3270 POS:#Q,53280 WRITE:S,$M,#D,#Y3290 WRITE:S,3300 WRITE:S, }3310 WRITE:S,3320 WRITE:S,$S3330 CLOSE:S3340 T: PRESS \3350 A:$ANS3360 C(#S=12):#D=123370 C(#S=11):#}D=113380 C(#S=10):#D=103390 C(#S=9):#D=93400 C(#S=8):#D=83410 C(#S=7):#D=73420 C(#S=6):#D=63430 C(#S=5):#D=53440 C(#S=}4):#D=43450 C(#S=3):#D=33460 C(#S=2):#D=23470 C(#S=1):#D=13480 J:*QUA3490 *SLI CLOSE:S3500 J(#W=-2):*SLID3510 *SIL T:E}NTER OF HOUSE.3520 :1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 123530 :ENTER ZERO FOR ӛ3540 :ENTER -1 FOR MATE R }ATE. \3550 A:#D3560 M: 12 , 11 , 10 , 9 , 8 , 7 , 6 , 5 , 4 , 3 , 2 , 1 , 0 , -13570 JN:*SIL3580 J((#D>12)+(#D<-1)):*SIL }3590 C(#D=0):#W=-23600 J(#D=0):*SLID3610 J(#D=-1):*E3620 U:*ENAM3630 J:*CON3640 *SLID T(#D=0):PRESS FOR 1st.  } .3650 T:PRESS * FOR Šś3660 T(#D<>0):PRESS FOR NEXT Š .3670 T(#D<>0):PRESS 0 () FOR HOUSES . }3680 *AY J(@B764=255):*AY3690 C:#A=@B7643700 C:@B764=2553710 C(#A=12):#D=#D+13720 C((#A=12)*(#D=13)):#D=13730 J(#A=7):*E }3740 J(#A=12):*CON3750 J(#A=50):*SIL3760 J:*AY3770 *RST3780 T:$F $W $Z3790 :CHANCES WITH $H THE $J3800 : } >>> $I.3810 :$E <<< . PRESS \3820 A:$ANS3830 T:3840 :Š FOR ŠŠ.3850 :ZERO FOR }.3860 :PRESS RETURN FOR Š.3870 *ZT J(@B764=255):*ZT3880 C:#A=@B7643890 C:@B764=2553900 J(#A=12):*E3910 CLOSE(}#A=50):S3920 J(#A=50):*OEQ3930 J(#A=33):*B3940 J:*ZT3950 *B3960 CLOSE:S3970 C:$F=3980 C:$H=3990 C:#S=#S+14000 C(#S=1}3):#S=14010 J:*SET4020 *C7 WRITE:S, 4030 J:*F34040 *E GR:QUIT4050 VNEW4060 T: NAME4070 :E}NTER4080 : MAXIMUM LETTERS4090 :4100 A: $F4110 T:4120 : YOUR ҧ NAME4130 :ENTER}4140 : MAXIMUM LETTERS4150 :4160 A: $H4170 T:4180 : SEX4190 :4200 : } M , F4210 :4220 : (M)ale (F)emale4230 :4240 *YE C:#K=14250 J(@B764=255):*YE4260 C:#U=@B7644270 C(#}U=37):#K=04280 C(#U=56):#K=-14290 C:@B764=2554300 J(#K>0):*YE4310 C(#K=0):$Z= MALE4320 C(#K=-1):$Z=FEMALE4330 C(#K=0):$}J=FEMALE4340 C(#K=-1):$J=MALE4350 GR:QUIT4360 T: 4370 :4380 : ARI TAU GEM CAN L}EO VIR4390 :4400 : 01 02 03 04 05 064410 :4420 : 4430 :4440 : LIB }SCO SAG CAP AQU PIS4450 :4460 : 07 08 09 10 11 124470 :4480 : 4}490 :4500 : NUMBER OF SIGN \4510 *QW J(@B764=255):*QW4520 C:#X=@B7644530 C:#S=-14540 C:@B764=2554550 *WQ J(@}B764=255):*WQ4560 C:#V=@B7644570 C:@B764=2554580 C((#X=50)*(#V=31)):#S=14590 J(#S=1):*SET4600 C((#X=50)*(#V=30)):#S=246}10 J(#S=2):*SET4620 C((#X=50)*(#V=26)):#S=34630 J(#S=3):*SET4640 C((#X=50)*(#V=24)):#S=44650 J(#S=4):*SET4660 C((#X=50)*}(#V=29)):#S=54670 J(#S=5):*SET4680 C((#X=50)*(#V=27)):#S=64690 J(#S=6):*SET4700 C((#X=50)*(#V=51)):#S=74710 J(#S=7):*SET}4720 C((#X=50)*(#V=53)):#S=84730 J(#S=8):*SET4740 C((#X=50)*(#V=48)):#S=94750 J(#S=9):*SET4760 C((#X=31)*(#V=50)):#S=10}4770 J(#S=10):*SET4780 C((#X=31)*(#V=31)):#S=114790 J(#S=11):*SET4800 C((#X=31)*(#V=30)):#S=124810 J(#S=12):*SET4820 J(#}S=-1):*QW4830 *SET4840 C(#S=1):$W=THE Λ4850 C:$A=Λ4860 C(#S=2):$W=THE Λ4870 C:$T=Λ4880 C(#S=3):$W=T }HE Λ4890 C:$G=Λ4900 C(#S=4):$W=THE Λ4910 C:$N=Λ4920 C(#S=5):$W=THE ś4930 C:$L=!}ś4940 C(#S=6):$W=THE Λ4950 C:$V=Λ4960 C(#S=7):$W=THE Λ4970 C:$B=Λ4980 C(#S=8):$W=THE Λ4990"} C:$S=Λ5000 C(#S=9):$W=THE Λ5010 C:$R=Λ5020 C(#S=10):$W=THE Λ5030 C:$C=#}5040 C(#S=11):$W=THE Λ5050 C:$Q=Λ5060 C(#S=12):$W=THE Λ5070 C:$P=Λ5080 *SETS [FEMALE MALE REQU$}EST]5090 C:@B1373=165100 C:@B1374=25110 J(#K=-1):*FERE5120 *MARE [MALE REQUEST5130 U(#S=1):*AM5140 J(#S=1):*RST5150 U(%}#S=2):*TM5160 J(#S=2):*RST5170 U(#S=3):*GM5180 J(#S=3):*RST5190 U(#S=4):*NM5200 J(#S=4):*RST5210 U(#S=5):*LM5220 J(#S=&}5):*RST5230 U(#S=6):*VM5240 J(#S=6):*RST5250 U(#S=7):*BM5260 J(#S=7):*RST5270 U(#S=8):*SM5280 J(#S=8):*RST5290 U(#S=9)'}:*RM5300 J(#S=9):*RST5310 U(#S=10):*CM5320 J(#S=10):*RST5330 U(#S=11):*QM5340 J(#S=11):*RST5350 U(#S=12):*PM5360 J(#S=(}12):*RST5370 *FERE [FEMALE REQUEST5380 U(#S=1):*AF5390 J(#S=1):*RST5400 U(#S=2):*TF5410 J(#S=2):*RST5420 U(#S=3):*GF54)}30 J(#S=3):*RST5440 U(#S=4):*NF5450 J(#S=4):*RST5460 U(#S=5):*LF5470 J(#S=5):*RST5480 U(#S=6):*VF5490 J(#S=6):*RST5500*} U(#S=7):*BF5510 J(#S=7):*RST5520 U(#S=8):*SF5530 J(#S=8):*RST5540 U(#S=9):*RF5550 J(#S=9):*RST5560 U(#S=10):*CF5570 J+}(#S=10):*RST5580 U(#S=11):*QF5590 J(#S=11):*RST5600 U(#S=12):*PF5610 J(#S=12):*RST5620 *QF [FEMALE REQUEST]5630 U:*DF5,}640 WRITE:S : : :5650 U:*DS5660 WRITE:S 9 : : : 5670 U:*DT5680 WRITE:S 133 : : : 5690 -}U:*D5700 C:$I=$G5710 C:$E=$B5720 E:5730 *I4 WRITE:S, s.f, 941215740 J:*H1M5750 *PF U:*DF5760 WRITE:S : .}: : 5770 U:*DS5780 WRITE:S : : : 5790 U:*DT5800 WRITE:S 1 :143 : : 5810 U:*D5820 C:$I=$B5830/} C:$E=$S5840 E:5850 *AF U:*DF5860 WRITE:S : : :5870 U:*DS5880 WRITE:S : : : 5890 U:*DT5900 0}WRITE:S :141 : : 105910 U:*D5920 C:$I=$C5930 C:$E=$S5940 E:5950 *J0 J:*C75960 *B9 WRITE:S, house mates5970 1}J:*G25980 *TF U:*DF5990 WRITE:S : 5 : : 6000 U:*DS6010 WRITE:S 105 : : : 6020 U:*DT6030 WRITE:S 2} : : : 6040 U:*D6050 C:$I=$P6060 C:$E=$G6070 E:6080 *E1 WRITE:S, ЮϮؠ6090 J:*D66100 *GF U:*DF61103} WRITE:S : : :6120 U:*DS6130 WRITE:S : : :6140 U:*DT6150 WRITE:S : 22 :132 : 6160 U:*4}D6170 C:$I=$S6180 C:$E=$R6190 E:6200 *NF U:*DF6210 WRITE:S 140 : : : 6220 U:*DS6230 WRITE:S : : :5}6240 U:*DT6250 WRITE:S : : : 26260 U:*D6270 C:$I=$C6280 C:$E=$Q6290 E:6300 *LF U:*DF6310 WRITE:S 138 :6} : : 186320 U:*DS6330 WRITE:S : : : 6340 U:*DT6350 WRITE:S : : : 6360 U:*D6370 C:$I=$T7}6380 C:$E=$Q6390 E:6400 *A5 WRITE:S,ABDULHADI H. YASSIN6410 J:*X86420 *VF U:*DF6430 WRITE:S 144 : : : 46440 U:*8}DS6450 WRITE:S : : :6460 U:*DT6470 WRITE:S : : :6480 U:*D6490 C:$I=$T6500 C:$E=$Q6510 E:69}520 *BF U:*DF6530 WRITE:S : 29 : : 6540 U:*DS6550 WRITE:S : : :1266560 U:*DT6570 WRITE:S : :}: :6580 U:*D6590 C:$I=$P6600 C:$E=$V6610 E:6620 *SF U:*DF6630 WRITE:S :139 : : 6640 U:*DS6650 WRITE:S;} : : : 6660 U:*DT6670 WRITE:S : : : 36680 U:*D6690 C:$I=$C6700 C:$E=$P6710 E:6720 *RF U:*DF6<}730 WRITE:S 137 : : : 6740 U:*DS6750 WRITE:S : : : 6760 U:*DT6770 WRITE:S : : 17 : 6780 =}U:*D6790 C:$I=$R6800 C:$E=$Q6810 E:6820 *CF U:*DF6830 WRITE:S : : : 6840 U:*DS6850 WRITE:S 129 : : >} : 6860 U:*DT6870 WRITE:S 6 : : : 6880 U:*D6890 C:$I=$B6900 C:$E=$G6910 E:6920 [END OF FEMALE REQUEST]69?}30 *QM U:*DF [MALE REQUEST]6940 WRITE:S : 26 : : 6950 U:*DS6960 WRITE:S : : :1446970 U:*DT6980 WRIT@}E:S : : : 6990 U:*D7000 C:$I=$P7010 C:$E=$V7020 E:7030 *PM U:*DF7040 WRITE:S : : : 57050 U:*DA}S7060 WRITE:S : : : 7070 U:*DT7080 WRITE:S :139 : : 7090 U:*D7100 C:$I=$T7110 C:$E=$S7120 E:71B}30 *AM U:*DF7140 WRITE:S 131 : 16 : : 7150 U:*DS7160 WRITE:S : : : 7170 U:*DT7180 WRITE:S : :C} : 7190 U:*D7200 C:$I=$P7210 C:$E=$Q7220 E:7230 *TM U:*DF7240 WRITE:S 123 : : : 7250 U:*DS7260 WRITE:S D} : : : 47270 U:*DT7280 WRITE:S : : : 7290 U:*D7300 C:$I=$V7310 C:$E=$Q7320 E:7330 *GM U:*DF73E}40 WRITE:S 9 : : :7350 U:*DS7360 WRITE:S : : :1347370 U:*DT7380 WRITE:S : : :7390 UF}:*D7400 C:$I=$Q7410 C:$E=$V7420 E:7430 *NM U:*DF7440 WRITE:S :116 : : 7450 U:*DS7460 WRITE:S : : G}: 87470 U:*DT7480 WRITE:S : : : 7490 U:*D7500 C:$I=$V7510 C:$E=$P7520 E:7530 *LM U:*DF7540 WRITE:S H} : : : 7550 U:*DS7560 WRITE:S 128 : : :7570 U:*DT7580 WRITE:S : : : 127590 U:*D7600 C:$I=$I}C7610 C:$E=$G7620 E:7630 *VM U:*DF7640 WRITE:S : : : 207650 U:*DS7660 WRITE:S : : :1427670 U:*DTJ}7680 WRITE:S : : : 7690 U:*D7700 C:$I=$T7710 C:$E=$V7720 E:7730 *BM U:*DF7740 WRITE:S : 1 : : K}7750 U:*DS7760 WRITE:S : : :1357770 U:*DT7780 WRITE:S : : : 7790 U:*D7800 C:$I=$P7810 C:$E=$VL}7820 E:7830 *SM U:*DF7840 WRITE:S :143 : : 7850 U:*DS7860 WRITE:S : : :7870 U:*DT7880 WRITE:S M} : : : 197890 U:*D7900 C:$I=$C7910 C:$E=$P7920 E:7930 *RM U:*DF7940 WRITE:S :136 : : 7950 U:*DS796N}0 WRITE:S : : :7970 U:*DT7980 WRITE:S : : 17 : 7990 U:*D8000 C:$I=$R8010 C:$E=$P8020 E:8030 *CO}M U:*DF8040 WRITE:S : : : 8050 U:*DS8060 WRITE:S : 2 : :1138070 U:*DT8080 WRITE:S : : :P} 8090 U:*D8100 C:$I=$N8110 C:$E=$V8120 E:8130 [END OF MALE REQUEST]8140 CLOSE:S8150 *RST A:$ANS8160 T:$F $W $Z8170Q} :CHANCES WITH $H THE $J8180 : >>> $I.8190 :$E <<< . \8200 A:$ANS8210 J:*E8220 *SLI CLOSE:S8230R} A(#W=-2):$ANS8240 C(#W=-2):#D=#D+18250 C((#W=-2)*(#D=13)):#D=18260 J(#W=-2):*CONS8270 J:*STA8280 *MENU [VNEW8290 GR:QS}UIT8300 T:WHEN ASKED TO A NUMBER, THAT YOU PRESS >> KEYS << (0,1,2,3,4,5,6,7,8,9) ONLY.8310 :832T}0 T: WHEN ASKED TO , TO TYPE, then RETURN.8330 :8340 : OTHERWISE YOU MIGHT BE THE WRONG DATU}A.8350 :8360 : PRESS \8370 A:$ANS8380 *0E GR:QUIT8390 VNEW8400 T:8410 :Š ś8420 : V} ENTER8430 : M H \8440 A:$A8450 M:M,H8460 VNEW8470 JM:*E,*OEQ8480 JN:*0E8490 *OEQ T:W} 1  28500 : 8510 : HOUSE  HOUSE8520 :  SLIDES \8530 *QV J(X}@B764=255):*QV8540 C:#W=18550 C:#X=@B7648560 C:@B764=2558570 C(#X=30):#W=-28580 J(#W=-2):*08590 J(#X=31):*08600 J:*QVY}8610 *R T:8620 : USE THIS SCALE 1 3 5 78630 T:FOR # OF LETTERS 2 4 6 88640 E:8650 *08660 GR:QUIT8670 *NZ}AME GR:CLEAR8680 U:*R8690 T:ENTER NAME \8700 A:$G8710 T:ENTER # OF LETTERS IN NAME \8720 A:#F8730 U:[}*R8740 T:ENTER NAME \8750 A:$L8760 T:ENTER # OF LETTERS IN NAME \8770 A:#I8780 T:8790 :ENTER YOU\} WERE BORN IN8800 :8810 A:#Y8820 *MONTH T:8830 :JAN FEB MAR APR MAY JUN JUL AUG SEP8840 : 01 02 03 04 05 06 07 08]} 098850 :OCT NOV DEC  # OF MONTH8860 : 10 11 12  YOU WERE BORN IN \8870 *QU J(@B764=255):*QU8880 C: #^}X=@B7648890 C:@B764=2558900 J(#X=12):*QU8910 C:#Z=-18920 *UQ J(@B764=255):*UQ8930 C:#V=@B7648940 C:@B764=2558950 C((#X_}=50)*(#V=31)):#Z=18960 J(#Z=1):*LIMIT8970 C((#X=50)*(#V=30)):#Z=28980 J(#Z=2):*LIMIT8990 C((#X=50)*(#V=26)):#Z=39000 J(#`}Z=3):*LIMIT9010 C((#X=50)*(#V=24)):#Z=49020 J(#Z=4):*LIMIT9030 C((#X=50)*(#V=29)):#Z=59040 J(#Z=5):*LIMIT9050 C((#X=50)*a}(#V=27)):#Z=69060 J(#Z=6):*LIMIT9070 C((#X=50)*(#V=51)):#Z=79080 J(#Z=7):*LIMIT9090 C((#X=50)*(#V=53)):#Z=89100 J(#Z=8):b}*LIMIT9110 C((#X=50)*(#V=48)):#Z=99120 J(#Z=9):*LIMIT9130 C((#X=31)*(#V=50)):#Z=109140 J(#Z=10):*LIMIT9150 C((#X=31)*(#Vc}=31)):#Z=119160 J(#Z=11):*LIMIT9170 C((#X=31)*(#V=30)):#Z=129180 J(#Z=12):*LIMIT9190 J(#Z=-1):*QU9200 *LIMIT [ H:No.DAYSd}; L:CUSP]9210 C(#Z=12):#H=319220 C(#Z=12):#L=229230 C(#Z=12):#P=89240 C(#Z=12):$M=қ9250 J(#Z=12):*DAY9260 C(#Z=1e}1):#H=309270 C(#Z=11):#L=239280 C(#Z=11):#P=89290 C(#Z=11):$M=қ9300 J(#Z=11):*DAY9310 C(#Z=10):#H=319320 C(#Z=10f}):#L=249330 C(#Z=10):#P=79340 C(#Z=10):$M=қ9350 J(#Z=10):*DAY9360 C(#Z=9):#H=309370 C(#Z=9):#L=249380 C(#Z=9):#P=g}99390 C(#Z=9):$M=қ9400 J(#Z=9):*DAY9410 C(#Z=8):#H=319420 C(#Z=8):#L=249430 C(#Z=8):#P=69440 C(#Z=8):$M=ԛh}9450 J(#Z=8):*DAY9460 C(#Z=7):#H=319470 C(#Z=7):#L=239480 C(#Z=7):#P=49490 C(#Z=7):$M=ٛ9500 J(#Z=7):*DAY9510 C(#Z=6)i}:#H=309520 C(#Z=6):#L=229530 C(#Z=6):#P=49540 C(#Z=6):$M=ś9550 J(#Z=6):*DAY9560 C(#Z=5):#H=319570 C(#Z=5):#L=219580j} C(#Z=5):#P=39590 C(#Z=5):$M=ٛ9600 J(#Z=5):*DAY9610 C(#Z=4):#H=309620 C(#Z=4):#L=219630 C(#Z=4):#P=59640 C(#Z=4):$M=k}̛9650 J(#Z=4):*DAY9660 C(#Z=3):#H=319670 C(#Z=3):#L=219680 C(#Z=3):#P=59690 C(#Z=3):$M=ț9700 J(#Z=3):*DAY9710 Cl}(#Z=2):#H=299720 C(#Z=2):#L=209730 C(#Z=2):#P=89740 C(#Z=2):$M=ٛ9750 J(#Z=2):*DAY9760 C(#Z=1):#H=319770 C(#Z=1):m}#L=219780 C(#Z=1):#P=79790 C(#Z=1):$M=ٛ9800 J:*DAYH=319420 C(#Z=8):#L=249430 C(#Z=8):#P=69440 C(#Z=8):$M=ԛ<10 GR:CLEAR20 GR:QUIT30 C:@B1374=240 C:@B1373=1650 WRITE:S, ɠԛ60 WRITE:S,70 WRITE:S, 80 WRITo}E:S, 90 WRITE:S,100 WRITE:S, A.H.YASSIN110 WRITE:S,120 WRITE:S, P.O.BOX 210094130 WRITE:S,S.F.CALIFORNp}IA.94121140 T:150 : PRESS RETURN \160 A:$ANS170 GR:QUIT180 T: H O U S M A T E190 :200 : THIS PRq}OGRAM IS OF TWO MAIN PARTS :210 :220 : H O U S E230 :240 : &250 :260 : M A Tr} E R A T E270 :280 : THE SOURCES OF INFORMATION FOR THOSE WERE MANY BOOKS ABOUT HOROSCOPE , ASTROLOGY, A GERMAN & AMEs}RICAN290 : MAGAZINES AS WELL AS TABLOIDS.300 :310 : AS FOR THE TABLES OF NUMERALS THAT ARE USED IN THE M A T E R A t}T E PART, IT WAS TAKEN FROM AN320 :ARTICLE PUBLISHED IN AN AMERICAN TABLIOD. IT WAS WRITTEN BY " GEORGE HUNTER " ABOUT Au} STUDY CONDUCTED BY330 : THE ASTROLOGER " SKIP FICKLING.340 :350 : PRESS RETURN \360 A:$ANS370 GR:QUIT3v}80 T:390 :400 : AS FOR THE "CUSP" OF THE SIGNS, I GATHERED DATA FROM OVER A DOZEN BOOKS, MAGAZINES, TABLOIDS, DAILY410w} :NEWS PAPERS, SUNDAY PAPERS, AS WELL AS A RADIO PROGRAM.420 :430 : THE "CUSPS" WERE VARYING FROM THE "19 th." TO THE "x}24th." OF A MONTH.440 :450 : THE COLLECTED DATA WAS TABLED, COMPARED, ANALYSED, & THEN I DID REACH TO THE MOST AGREABLE "CUy}SP" AMONG THE\460 : CONSULTED SOURCES.470 :480 : TO MY SURPRISE IT TURNED OUT THAT THE "CUSPS" I USED, WERE THOSE THAT MATz}CHED THE GERMAN MAGAZINE " BUNTE "490 :500 :510 : PRESS RETURN \520 A:$ANS530 GR:QUIT540 T:550 : AS FO{}R THE " H O U S E " PART560 :570 : I REFER THE USERS TO CONSULT ASTROLOGY DICTIONARIES, BOOKS & MAGAZINES FOR THE DEF|}INITIONS & MEANINGS\580 : OF THE VARIOUS TERMS USED .590 :600 : ABDULHADI HAMED YASSIN610 :620 : P}}.O.BOX 210094630 :640 : SAN FRANCISCO, CALIFORNIA650 :660 : 9 4 1 2 1RITE:S, 80 WRIT`D=22360 C((#M=10)*(#G=0)):#D=12370 J(#M=10):*DW2380 C((#M=11)*(#G<>0)):#D=52390 C((#M=11)*(#G=0)):#D=42400 J(#M=11):*DW}2410 C((#M=12)*(#G<>0)):#D=72420 C((#M=12)*(#G=0)):#D=62430 J(#M=12):*DW2440 *2 C(#M=1):#D=22450 J(#M=1):*DW2460 C(#M=2)}:#D=52470 J(#M=2):*DW2480 C((#M=3)*(#G<>0)):#D=62490 C((#M=3)*(#G=0)):#D=52500 J(#M=3):*DW2510 C((#M=4)*(#G<>0)):#D=225}20 C((#M=4)*(#G=0)):#D=12530 J(#M=4):*DW2540 C((#M=5)*(#G<>0)):#D=42550 C((#M=5)*(#G=0)):#D=32560 J(#M=5):*DW2570 C((#M=}6)*(#G<>0)):#D=72580 C((#M=6)*(#G=0)):#D=62590 J(#M=6):*DW2600 C((#M=7)*(#G<>0)):#D=22610 C((#M=7)*(#G=0)):#D=12620 J(#M}=7):*DW2630 C((#M=8)*(#G<>0)):#D=52640 C((#M=8)*(#G=0)):#D=42650 J(#M=8):*DW2660 C((#M=9)*(#G<>0)):#D=12670 C((#M=9)*(#G}=0)):#D=72680 J(#M=9):*DW2690 C((#M=10)*(#G<>0)):#D=32700 C((#M=10)*(#G=0)):#D=22710 J(#M=10):*DW2720 C((#M=11)*(#G<>0))}:#D=62730 C((#M=11)*(#G=0)):#D=52740 J(#M=11):*DW2750 C((#M=12)*(#G<>0)):#D=12760 C((#M=12)*(#G=0)):#D=72770 J(#M=12):*D}W2780 *3 C(#M=1):#D=32790 J(#M=1):*DW2800 C(#M=2):#D=62810 J(#M=2):*DW2820 C((#M=3)*(#G<>0)):#D=72830 C((#M=3)*(#G=0)):}#D=62840 J(#M=3):*DW2850 C((#M=4)*(#G<>0)):#D=32860 C((#M=4)*(#G=0)):#D=22870 J(#M=4):*DW2880 C((#M=5)*(#G<>0)):#D=5289}0 C((#M=5)*(#G=0)):#D=42900 J(#M=5):*DW2910 C((#M=6)*(#G<>0)):#D=12920 C((#M=6)*(#G=0)):#D=72930 J(#M=6):*DW2940 C((#M=7})*(#G<>0)):#D=32950 C((#M=7)*(#G=0)):#D=22960 J(#M=7):*DW2970 C((#M=8)*(#G<>0)):#D=62980 C((#M=8)*(#G=0)):#D=52990 J(#M=}8):*DW3000 C((#M=9)*(#G<>0)):#D=23010 C((#M=9)*(#G=0)):#D=13020 J(#M=9):*DW3030 C((#M=10)*(#G<>0)):#D=43040 C((#M=10)*(#}G=0)):#D=33050 J(#M=10):*DW3060 C((#M=11)*(#G<>0)):#D=73070 C((#M=11)*(#G=0)):#D=63080 J(#M=11):*DW3090 C((#M=12)*(#G<>0})):#D=23100 C((#M=12)*(#G=0)):#D=13110 J(#M=12):*DW3120 *4 C(#M=1):#D=43130 J(#M=1):*DW3140 C(#M=2):#D=73150 J(#M=2):*D}W3160 C((#M=3)*(#G<>0)):#D=13170 C((#M=3)*(#G=0)):#D=73180 J(#M=3):*DW3190 C((#M=4)*(#G<>0)):#D=43200 C((#M=4)*(#G=0)):#}D=33210 J(#M=4):*DW3220 C((#M=5)*(#G<>0)):#D=63230 C((#M=5)*(#G=0)):#D=53240 J(#M=5):*DW3250 C((#M=6)*(#G<>0)):#D=23260} C((#M=6)*(#G=0)):#D=13270 J(#M=6):*DW3280 C((#M=7)*(#G<>0)):#D=43290 C((#M=7)*(#G=0)):#D=33300 J(#M=7):*DW3310 C((#M=8)}*(#G<>0)):#D=73320 C((#M=8)*(#G=0)):#D=63330 J(#M=8):*DW3340 C((#M=9)*(#G<>0)):#D=33350 C((#M=9)*(#G=0)):#D=23360 J(#M=9}):*DW3370 C((#M=10)*(#G<>0)):#D=53380 C((#M=10)*(#G=0)):#D=43390 J(#M=10):*DW3400 C((#M=11)*(#G<>0)):#D=13410 C((#M=11)*}(#G=0)):#D=73420 J(#M=11):*DW3430 C((#M=12)*(#G<>0)):#D=33440 C((#M=12)*(#G=0)):#D=23450 J(#M=12):*DW3460 *5 C(#M=1):#D=}53470 J(#M=1):*DW3480 C(#M=2):#D=13490 J(#M=2):*DW3500 C((#M=3)*(#G<>0)):#D=23510 C((#M=3)*(#G=0)):#D=13520 J(#M=3):*DW}3530 C((#M=4)*(#G<>0)):#D=53540 C((#M=4)*(#G=0)):#D=43550 J(#M=4):*DW3560 C((#M=5)*(#G<>0)):#D=73570 C((#M=5)*(#G=0)):#D}=63580 J(#M=5):*DW3590 C((#M=6)*(#G<>0)):#D=33600 C((#M=6)*(#G=0)):#D=23610 J(#M=6):*DW3620 C((#M=7)*(#G<>0)):#D=53630 }C((#M=7)*(#G=0)):#D=43640 J(#M=7):*DW3650 C((#M=8)*(#G<>0)):#D=13660 C((#M=8)*(#G=0)):#D=73670 J(#M=8):*DW3680 C((#M=9)*}(#G<>0)):#D=43690 C((#M=9)*(#G=0)):#D=33700 J(#M=9):*DW3710 C((#M=10)*(#G<>0)):#D=63720 C((#M=10)*(#G=0)):#D=53730 J(#M=}10):*DW3740 C((#M=11)*(#G<>0)):#D=23750 C((#M=11)*(#G=0)):#D=13760 J(#M=11):*DW3770 C((#M=12)*(#G<>0)):#D=43780 C((#M=12})*(#G=0)):#D=33790 J(#M=12):*DW3800 *6 C(#M=1):#D=63810 J(#M=1):*DW3820 C(#M=2):#D=23830 J(#M=2):*DW3840 C((#M=3)*(#G<>}0)):#D=33850 C((#M=3)*(#G=0)):#D=23860 J(#M=3):*DW3870 C((#M=4)*(#G<>0)):#D=63880 C((#M=4)*(#G=0)):#D=53890 J(#M=4):*DW}3900 C((#M=5)*(#G<>0)):#D=13910 C((#M=5)*(#G=0)):#D=73920 J(#M=5):*DW3930 C((#M=6)*(#G<>0)):#D=43940 C((#M=6)*(#G=0)):#D=}33950 J(#M=6):*DW3960 C((#M=7)*(#G<>0)):#D=63970 C((#M=7)*(#G=0)):#D=53980 J(#M=7):*DW3990 C((#M=8)*(#G<>0)):#D=24000 C}((#M=8)*(#G=0)):#D=14010 J(#M=8):*DW4020 C((#M=9)*(#G<>0)):#D=54030 C((#M=9)*(#G=0)):#D=44040 J(#M=9):*DW4050 C((#M=10)*}(#G<>0)):#D=74060 C((#M=10)*(#G=0)):#D=64070 J(#M=10):*DW4080 C((#M=11)*(#G<>0)):#D=34090 C((#M=11)*(#G=0)):#D=24100 J(#}M=11):*DW4110 C((#M=12)*(#G<>0)):#D=54120 C((#M=12)*(#G=0)):#D=44130 J(#M=12):*DW4140 *7 C(#M=1):#D=74150 J(#M=1):*DW41}60 C(#M=2):#D=34170 J(#M=2):*DW4180 C((#M=3)*(#G<>0)):#D=44190 C((#M=3)*(#G=0)):#D=34200 J(#M=3):*DW4210 C((#M=4)*(#G<>0})):#D=74220 C((#M=4)*(#G=0)):#D=64230 J(#M=4):*DW4240 C((#M=5)*(#G<>0)):#D=24250 C((#M=5)*(#G=0)):#D=14260 J(#M=5):*DW4}270 C((#M=6)*(#G<>0)):#D=54280 C((#M=6)*(#G=0)):#D=44290 J(#M=6):*DW4300 C((#M=7)*(#G<>0)):#D=74310 C((#M=7)*(#G=0)):#D=6}4320 J(#M=7):*DW4330 C((#M=8)*(#G<>0)):#D=34340 C((#M=8)*(#G=0)):#D=24350 J(#M=8):*DW4360 C((#M=9)*(#G<>0)):#D=64370 C(}(#M=9)*(#G=0)):#D=54380 J(#M=9):*DW4390 C((#M=10)*(#G<>0)):#D=14400 C((#M=10)*(#G=0)):#D=74410 J(#M=10):*DW4420 C((#M=11})*(#G<>0)):#D=44430 C((#M=11)*(#G=0)):#D=34440 J(#M=11):*DW4450 C((#M=12)*(#G<>0)):#D=64460 C((#M=12)*(#G=0)):#D=54470 J}(#M=12):*DW4480 *DW [1ST. WEEK OF MONTH]4490 C(#D=1):$DW=ՠ4500 J(#D=1):*PRP4510 C(#D=2):$DW=}՛4520 J(#D=2):*PRP4530 C(#D=3):$DW=ՠ4540 J(#D=3):*PRP4550 C(#D=4):$DW=ՠ45}60 J(#D=4):*PRP4570 C(#D=5):$DW=ՠ4580 J(#D=5):*PRP4590 C(#D=6):$DW=ՠ4600 J(#D=6):*P}RP4610 C(#D=7):$DW=ՠ4620 J(#D=7):*PRP4630 *PRP [PRINT RESULT PAGE4640 GR:QUIT4650 C:@B1373=164660 C:}@B1374=14670 WRITE:$Z,#Y#Y#Y4680 WRITE:$Z, $M4690 WRITE:$Z,4700 WRITE:$Z,$DW4710 WRITE:$Z, 1 2 3 4 5 6 74}720 WRITE:$Z,4730 WRITE:$Z, 8 9 10 11 12 13 144740 WRITE:$Z4750 WRITE:$Z,15 16 17 18 19 20 214760 WRITE:$Z,4770 WRITE:$}Z,22 23 24 25 26 27 284780 WRITE:$Z,4790 WRITE(#S=3):$Z,29 30 314800 WRITE(#S=2):$Z,29 304810 WRITE(#S=1):$Z,294820 WRIT}E(#S=0):$Z,4830 CLOSE:$Z4840 T(#M=1): :DECEMBER  ӠРàŠ қ4850 T(#M=1): 4860 T(#M=1): } :NEXT MONTH  ANOTHER YEAR4870 T(#M=12): :JANUARY  ӠРàŠ қ4880 T(#M=12): 4890 T(#M}=12): :LAST MONTH  ANOTHER YEAR4900 J((#M=12)+(#M=1)):*NL4910 T: :LAST MONTH  ӠРàŠ қ4920 T: } 4930 T: :NEXT MONTH  ANOTHER YEAR4940 *NL J(@B764=255):*NL4950 C:#A=@B7644960 C:@B764=2554970 C(#A=6)}:#M=#M-14980 C((#A=6)*(#M=0)):#M=124990 J(#A=6):*M15000 C(#A=7):#M=#M+15010 C((#A=7)*(#M=13)):#M=15020 J(#A=7):*M15030 }J(#A=33):*RUN5040 J:*NLM=7)*(#G=0)):#D=22960 J(#M=7):*DW2970 C((#M=8)*(#G<>0)):#D=62980 C((#M=8)*(#G=0)):#D=52990 J(#M= Welcome to ABACUS disk #51This is the very first of our allPILOT disks from our resident PILOTprogrammer, Hadi Yassim}. To runthis disk, you will need the PILOTlanguage. Since PILOT is not atokenized language, you will beable to read the} source files withDOS the C option or the filereaderprogram from the previous disks orwith the ATARIWRITER cartridge oran}y other method that will read indata files. But you will need thePILOT cartridge to run the programs.grammer, Hadi Yassimi