' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-(  @ Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`*,Y2X2,Y1"X,Y1- X,Y5> X2,X2Y3D X,Y7X30Y,Y7X2:,lX3,X2Y=vX3,X2Y3LY,Y3X3[Y,Y7X2arX2,X2Y3Y1,Y5X4X2,X1Y3>X2,Y1X1,Y2X,Y3X1,Y4X2,Y5X2,Y5X1,Y4X1X3,X2Y7Y,Y3X3-Y4,Y7X2:X3,Y6@O@X3,X2Y`JX3,X2Y4qTX3,X2Y7^Y,Y7X3hX2,Y1rY4,Y7X2|X3,X2YY,Y7X2X3,X2YX3,X2Y3X3,X2Y7&YX1,X2Y4X2,X1Y50X3,X2Y6AX3,X2Y7GTX3,Y1cX3,X2Yt(Y1,Y7X22X,X2Y3<X3,X2Y7FX3,Y6PxY,Y4X3Y,Y7X1X3,X2Y4X3,X2YX3,X2Y3 8İ1800N9İ1900'N10İ20007N11İ2100GN12İ2200WN13İ2300]lX3,X2Y}X3,X2Y7Y,Y7X3Y,Y7X2LX1,YVY,Y6X`X1,X1Y7jX3,Y1X3,X2YY1,Y3X235 rX,X19L |L% R2ī124. 125T "DO YOU WANT TO DO MORE? (Y/N)";f A$:A$"Y"5w A$"N"450 :: N0İ1000 N1İ1100 N2İ1200 N3İ1300 N4İ1400 N5İ1500 N6İ1600 N7İ1700N$NMNM1 'NM1NWNW1:2812 ,NM0NRNR1P 1Z(C10):NC(Z10):900^ 6Z0ī335q @NZ:XX8:900{ JXX8 OTPNRNW R: T"PROBLEMS RIGHT ";NR;" PROBLEMS WRONG ";NW YTTTPī440 ^0 cR1X20 dR2X0 hL0X14 R2X34' NM(Z10):9005 Z0ī260H NZ:XX8:900R XX8Y Lc XX8r X,X1220 NO9:900 XX8:Y22 NM0 K 0 L2232 X14,X3L L E !KCī300 "NM1ī305 #N12:900 (1)G) BB0BBB& DL4ī1508 A2B2ī130O O1O2CAB:DAf O3O4CAB:DAx O4B0ī135 DL3C10ī130 O2O4AC:CD E((1)15)1 E L12 L1MA:Y0 L2MB:Y10 Z(M10) R1:"(0 GIVES RANDOM SELECTION)":BB5 8BB1BB9ī55` <::"SELECT DIFFICULTY LEVEL: 1 TO 4"h ADL F::"NUMBER OF PROBLEMS ?" KTT PNR0:NW0 c dDL1G4 nDL2G6 xDL3DL4G10 |R0 }RR1 A((1)G) B(E :% :"MATH DRILL PROGRAM"?"BY DAVID S. HARNED"T" MAY 1982"::"SELECT ARITHMETIC OPERATOR "1=ADDITION"#"2=SUBTRACTION"("3=MULTIPLICATION"-"4=DIVISION"2:O" 7O3O4ĺ"FOR WHAT NUMBER?"  3 110 "GOOD" % 60+ E , APPLE*GRAM.03.12.82LATS USE THE RANDOM NUMBER >I 2 < FUNCTION TO GENERATE THE TWO NUMBERS >\ <A(9(1)1)m FB(A(1))x PCAB Z < T COUNTS THE NUMBER OF TRIES > dT1 nA;"-";B;"="; xD CD200 L$(T); TT1 T2120 C TG2:::"JIM BARNETT'S NBASIC .03.12.82 "SUBTRACTION DRILL!": A PROGRAM TO PROVIDE FOR SEVEN YEAR-OLDS' MATH IMPROVEMENT/APPRECIATION! L$(1)"TRY AGAIN"L$(2)"THE CORRECT ANSWER IS:"L$(3)L$(2) (< THE NEXT TWO STATEMEN  WNG010)20(TEMP$(WRDNO))>G$;TEMP$(WRDNO)IDSSHWT 10010Za8u(" OK, ";NAME$2" WHAT WAS THE WORD I SHOWED YOU? "<10100FP5Z"?";de7:" ";:6noAN$""p" ";xZ1704022D$;"OPEN ";F$*D$;"READ ";F$2NR>N1NRKWRD$(N)QeD$;"CLOSE ";F$o630x750 ********************** *** WORD SELECTION ***N1NRTEMP$(N)WRD$(N)NNRWRDNO((1)N)1 ";F$ D$;"DELETE ";F$- D$;"OPEN ";F$A D$;"WRITE ";F$I NRU N1NRb WRD$(N)h | D$;"CLOSE ";F$& 750 ********************** *** GET LIST ***10200:12:"NAME OF YOUR SPELLING LIST ? ";F$F$""868 WN2 5* "WORD NUMBER ";3$ WN;F. " ";WRD$(WN);N8 23TB uL " CHANGE ANOTHER ? Y/N) ";V 2130 ********************** :12:"NAME OF YOUR SPELLING LIST ?";F$ F$""3005 *** SAVE LIST *** D$;"OPEN37) p868z34,21,AN$(27)ī630BAN$"Y"ĉ:3005J23PV~" CHANGE WHICH WORD NUMBER ? ";WNWNNRWN02260" NO SUCH WORD NUMBER!"2210" WORD NUMBER ";WN;" ? ";WRD$(WN)WN2`NR0NRN+ **********************E *** CHECK LIST ***Kp" FOLLOWING IS THE WORD LIST:"vN1NR 5"WORD NUMBER "; N;*" ";WRD$(N)4>H" WANT TO CHANGE ANY ? (Y/N) ";RAN$\f(0 **********************; *** INPUT ROUTINE ***F10100L" PRESS 'RETURN' AFTER EACH WORD AND AGAIN AFTER THE LAST WORD."N1100$5."WORD NUMBER ";8N;B" ? ";WRD$(N)LWRD$(N)""NRN1:N100V4" OK, ";NAME$;". WE'LL START NOW.".>4HLR" FIRST WORD:"`\WRD$(1)""900ifDS3tp10010}z91040105010D$;"OPEN ";F$D$;"READ ";F$NRN1NRWRD$(N)D$;"CLOSE ";F$80Y SAVED SPELLING LIST? (Y/N) OR PRESS 'ESC' TO QUIT."?XAN$EbYl(AN$)27680_vg10o16"GOOD-BYE"AN$"N"ī400010100100010 " WHAT IS YOUR NAME? ";NAME$NAME$""760 *5( 'N' IF YOU WANT NEITHER ? ";, AN$@ AN$"I"İ11010T AN$"P"İ11210Z x  *********************** 400  *** MENU ***  8 10 & 0" MY SPELLING TEST " : D226N" DO YOU WANT TO USE A PREVIOUSLn  ******* THIS SUBROUTINE WILL GIVE YOU THE CHANCE TO GET INSTRUCTIONS OR CHANGE PARAMETERS. ******* t  8:10: " MY SPELLING TEST ": 10# "INPUT AN 'I' FOR INSTRUCTIONS 'P' TO CHANGE PERAMETERS USLY SAVED SPELLING LIST (N)EW SPELLING LIST (Q) TO QUIT "; A216,0 EAN$ J:AN$"Q"630 OAN$"S"930 TAN$"P"ī4000 ^AN$"N"ī315 h1000W5 SHW13 F$""% NAME$""4 WRD$(100)D TEMP$(100) *** SKIP TO NEW WORD LIST QUERY IF PROGRAM HAS JUST BEEN SAVED WITH NEW VALUES *** CH111670 500 ;:10 @" INPUT (S)AME SPELLING LIST (P)REVIO ****************** d& n2 xD$(4)M G$(7): *** BELL ***c D$;"NOMON O,I,C" *********************** *** DEFAULT VALUES OF RESPONSE TIME, NUMBER OF WRONG GUESSES ALLOWED AND DISPLAY TIME FOR EACH WORD *** SEC15 N^$ MODIFIED BY YA YATES8 ****************** S *** ***p *** MY *** ( *** *** - *** SPELLING ***< *** *** F *** TEST *** P *** ***  Z              & + &+24& +&*+12 &4+8&>+"MY SPELLING TEST">&H+D&M+c&R+" IS A GAME WHICH HELPS"&\+" CHILDREN TO LEARN VOCABULARY WORDS."&f+G'p+" AFTER AN ADULT HAS STORED A LIST OF WORDS, THEY ARE SHOWN ONE BY ONE TO THE CHILD WHO IS *****************.%' *** ERROR HANDLING ***4%'?%'216,0G%'10O%(10U% (p%("NO WORD LIST STORED"v%(~%((20%2(" WANT TO ENTER A SPELLING LIST? ";%<(AN$%d(AN$"N"630%n(1010%* *********************%+ *** INPUTS *** $ !XX1$!X,Y"$ !Y4,Y2X,$*!XX32$4!N$' *********************c$' *** TIMER ***s$$'T1740DSz$.'T$8'$t' *********************$~' *** EXCESS INPUT ERROR TRAP ***$'X(16384):16368,0$'X128ı$'10120%' *****#N X1,X3Y2##X X1,X3Y40#b Y,Y4X;#l X3,YH#v X2,Y1U# X3,Y3[# l# *** T ***{# Y,Y3X2# X,X4Y4# XX1# # *** A ***# X1,X2Y2# X1,X2Y4# Y,Y4X# Y,Y4X3# $! *** ! ***"" *** U ***$"Y,Y4X3"Y,Y4X3B"X1,X2YH"Y" *** P ***j"X1,X3Y4{"X1,X3Y2"Y,Y4X"X3,Y3"" *** E ***" X1,X3Y" X1,X2Y2"& X1,X3Y4"0 Y,Y4X": #D *** R **AN$!AN$"N"7890)!AN$"Y"78105!RIGHT0@!1233I!400R!315X!b!DS10m!10000x!1233!630!@ **********************!J *** LETTERS ***!T *** S ***!^VY4Y2!hX,X3V!r!|X,Y3"X3,Y1 8140 XX5 8200& XX50 82609 X11D YY10N 8020X XX5b 8340l XX5v 8390 (XX5 28260 <XX5 F8450 PXX5 Z8450 dXX5 nDS5 x10000   " WANT TO PLAY AGAIN? ";! *** FINALE ***lv23$@"WHAT DO YOU CALL A ";FT"GREAT";Zr" APPLE SPELLER ^"xL **********************V *** SUPERSTAR ***`j((1)14)1tX4~Y98020XX58090XX55C1((1)14)1*C2((1)14)1:C2C16560HL0382PC1\0,39LdC2p0,39LwL10010X1233:*** RESET TEXT MODE ***8" OK, ";NAME$;"! NEXT WORD:""X **********************b EX$"TASTY APPLE CIDER !!!"*6180IEX$"O K! APPLE CORE !!! "P$2V.j8EX$;", ";NAME$rB10L"THAT'S ";V`RIGHT;jt" RIGHT!!"~d **********************n *** GRAPHICS ***xDS.25X1 *** SCORE KEEPING ***,RIGHTRIGHT1?RIGHTNR7000EM23_X((1)5)1X6090,6110,6130,6150,6170EX$"GREAT APPLES !!! "6180EX$"SUPER APPLE STEMS !!!"6180EX$"FANTASTIC GREEN APPLES !!! "6180THAT'S NOT QUITE RIGHT !!"7" TRY AGAIN.":5850tG$;"LITTLE CRAB APPLES !! WAS THAT A GUESS, ";NAME$;"?"" TRY AGAIN.":5850118685200"?"; 5250 p **********************z *** REWARD ***"SQUSHIED APPLES !! ";NAME$:" PLEASE TRY AGAIN ?":5850o"ROTTEN APPLES ! ";NAME$;" THAT'S NOT IT !"" TRY AGAIN.":5850"SOUR APPLE CORES !!! ";NAME$:" YOU MISSED IT !"" TRY AGAIN.":5850"WORMY APPLES !!! ";NAME$;" 11" THE WORD WAS ";#5TEMP$(WRDNO);^" LET'S TRY ANOTHER, ";NAME$gDS5r10010|506010&0868:10DNXPHRASE((1)5)1b13l958vPHRASE5760,5770,5790,5810,5830=5610X$8"X$;+,"";ANS$<6ANS$X$ANS$Y@ANS$TEMP$(WRDNO)5510cJ6010}TTEMP$(WRDNO)TEMP$(N)^NN1hN1ır5060| ********************** *** TRY AGAIN ***WNGWNG1WNGNW5700SEC#X(16384):X128ĂZ:5280=16368,0:X1415440TANS$ANS$(X128)f11:7:ANS$;t:" ";:{Z10"OOPS! SORRY, TIME IS UP. "" THE WORD WAS ";TEMP$(WRDNO)10010ETURN'": #" 1REDUCING LOOP- 2J2XD <C1J(C1J)100[ FC2J(C2J)100o PC1C1J:C2C2Jw Z60~ dJ nB$(C1)"/"(C2) x ANSWER WRONG Y((1)5)1:Y210,220,230,240,250 "SORRY! INCORRECT":2600 "OOPSo  1000RANDOM NUMBERSCN1((1)10)1:N2((1)10)1gD1((1)10)1:D2((1)10)1 :"TYPE IN THE ANSWER AS A SINGLE FRACTION IN LOWEST TERMS."::"USE '/' AS THE LINE BETWEEN THE NUMERATOR AND DENOMINATOR. THEN PRESS 'R          UMERATOR AND DENOMINATOR ARE RELATIVELY PRIME 6 LINE 190 DETERMINES WHETHER THE NUMERATOR AND DENOMINATOR ARE EQUAL AND IF SO JUMPS TO AN ALTERNATE PRINT STATEMENT @ LINES 200-230 PRINT THE ANSWER AND END THE PROGRAMW CHANGE MIXED FRACTIONS TO IMPROPER FRACTIONSW  LINES 90-100 MULTIPLY THE FRACTIONS  LINE 110 DETERMINES IF THE PRODUCT IS IMPROPER AND IF NOT JUMPS THE DE-MIXING ROUTINE " LINES 120-140 = DE-MIXING ROUTINE- , LINES 150-180 MAKES SURE THE N5:DB; 36,26:DC * 36,4:QA;9 36,15:QBn WA;:36,3:"--- X ";WB;:36,14:"--- = ";WC} 36,4:DA; 36,15:DB LINES 0-60 INPUT NUMBERS LINES 21,51 SAVE ORIGINAL NUMERATORS FOR LATER DISPLAY-  LINES 70-80CX(UCX)DCX(DCX)UCUCX:DCDCX/ XQ DCUC(DCUC)DCDCUC:UC1[ (12)s UCDCWCWC1:220 36,4:QA; 36,15:QB; 36,26:UC WA;:36,3:"--- X ";WB;:36,14:"--- = ";WC;:36,25:"-----" 36,4:DA; 36,1NOMINATOR: ";DA* ("SECOND INTEGER: ";WBG 2"SECOND NUMERATOR: ";UBQ 3QBUBp <"SECOND DENOMINATOR: ";DB FUAWADAUA PUBWBDBUB ZUCUAUB dDCDADB nUCDC150 xWC0 UCUCDC:WCWC1 UCDC130 X2((UC))( U" FRACTION MULTIPLIER. ANSWER=[FIRST INTEGER+(FIRST NUMERATOR/FIRST DENOMINATOR)]*[SECOND INTEGER+(SECOND NUMERATOR/SECOND DENOMINATOR)]  BY IAN PILCHER "FIRST INTEGER: ";WA"FIRST NUMERATOR: ";UAQAUA "FIRST DEWANT TO STORE A NEW WORD LIST? (Y/N) ";0,-AN$6,-I,-AN$"N"1000S,-51,0],-40005 F$ =";(34);F$;(34);+B-"196 NAME$ =";(34);NAME$;(34)Z+F-"UNLOCK MY SPELLING TEST"w+P-"SAVE MY SPELLING TEST"+Z-"LOCK MY SPELLING TEST"+d-"CH = 1"+n-"GOTO 10"+x-D$;"CLOSE SCRATCH"+-D$;"EXEC SCRATCH"+-+-315+-10',-" *, *********************X*, *** CHANGE NW, REPLY AND DISPLAY TIMES THEN SAVE ***o*-D$;"OPEN SCRATCH"* -D$;"DELETE SCRATCH"*-D$;"OPEN SCRATCH"*-D$;"WRITE SCRATCH"*(-"170 SEC = ";SEC*2-"180 NW = ";NW*<-"190 SHW = ";SHW+A-"19NEW VALUES? (D/N) ";)+AN$1)+AN$"N"116707)+?)+10z)+" NUMBER OF TRIES ALLOWED FOR EACH WORD? ";NW)+)+)+" HOW MANY SECONDS FOR A CORRECT RESPONSE? ";SEC),),*," HOW MANY SECONDS FOR DISPLAY? ";SHWCH WORD WILL BE DISPLAYED BEFORE ERASURE."4(+(+" DEFAULT VALUES ARE ";NW;" CHANCES, ";SEC;" SECONDS FOR A CORRECT ANSWER AND ";SHW;" SECONDS FOR WORD DISPLAY."(+)+" DO YOU WANT TO USE THE DEFAULT VALUES OR ENTER ASKED TO SPELL EACH AFTER IT HAS BEEN ERASED FROM THE SCREEN."M'z+.(+" YOU WILL BE ASKED HOW MANY CHANCES THE CHILD WILL BE GIVEN TO SPELL EACH WORD, HOW MANY SECONDS WILL BE ALLOWED FOR THE CORRECT RESPONSE AND HOW MANY SECONDS EADIVIDE EXPLANATION9R::"HOW TO DIVIDE FRACTIONS"::z\"DIVIDING FRACTIONS IS ALMOST LIKE MULTIPLYING THEM."a:"EXAMPLE: 3/4 / 7/8 ="!f:"SIMPLY TURN THE SECOND FRACTION UPSIDE DOWN!":"(PUT THE DENOMINATOR ON TOP AND THE NUMER/ "N2"/"D2" = ";:" ";A$:'C1N1D24C2N2D1NC1C2XC1:50:2070WXC2_ 50A$B$RR1:300:500:2230 200*"WOULD YOU LIKE TO SEE A SAMPLE PROBLEM? (YES OR NO)";Q$4(Q$,1)"N"İ500:2230>(Q$,1)"Y"2090HHE DENOMINATORS OF THETWO FRACTIONS TOGETHER"?q"4 * 8 = 32"bv:"THEN REDUCE THE FRACTION.":"21/32 CAN'T BE REDUCED, SO IT'S THE ANSWER.":500:I:1150DIVISION LOOP:400I1K20: RANDOM NUMBERN1"/"D1" "MULTIPLYING FRACTIONS IS EASY!"?]:"EXAMPLE: 3/4 * 7/8 ="b:"SIMPLY MULTIPLY THE NUMERATORS OF EACH FRACTION TOGETHER TO GET THE NUMERATOR OF THE ANSWER. . ."g"3 * 7 = 21":-l". . .TO GET THE DENOMINATOR OF THE ANSWER, MULTIPLY TC1N1N2C2D1D21C1C2XC1:1810:XC2B50cA$B$RR1:300:500:1960l&2000"WOULD YOU LIKE TO SEE A SAMPLE PROBLEM? (YES OR NO) ";Q$:(Q$,1)"N"İ500:1960D(Q$,1)"Y"1840NMULTIPLY EXPLANATION X:E TWO DENOMINATORS TOGETHER TO GET THE NEW DENOMINATOR.":"4 * 8 = 32":|"5. REDUCE THE FRACTION.":"20/32 = 5/8 (THE ANSWER!!)"500:I:1160MULTIPLY LOOP:400I1K20:N1"/"D1" * "N2"/"D2" = ";:" ";A$:RST NUMERATOR BY THE SECOND DENOMINATOR.":"3 * 8 = 24"::"2. MULTIPLY THE SECOND NUMERATOR BY THEFIRST DENOMINATOR."c"1 * 4 = 4":h"3. SUBTRACT THE SECOND ONE FROM THE FIRST TO GET THE NEW NUMERATOR.":"24 - 4 = 20":Nr"4. MULTIPLY THTOGETHER TO GET THE NEW DENOMINATOR.":"4 * 8 = 32":Z"5. REDUCE THE FRACTION."~"52/32 = 13/8 (THE ANSWER!!)"@500J:I:1160TSUBTRACT EXPLANATIONw^"TO SUBTRACT FRACTIONS:"::"EXAMPLE: 3/4 - 1/8 ="::"1. MULTIPLY THE FI THE SECOND DEMOMINATOR."+"3 * 8 = 24"o:"2. MULTIPLY THE SECOND NUMERATOR BY THEFIRST DENOMINATOR.""7 * 4 = 28":"3. ADD THE TWO NUMBERS TOGETHER TO GET THE NEW NUMERATOR.""24 + 28 = 52":&"4. MULTIPLY THE DENOMINATORS "WOULD YOU LIKE TO SEE A SAMPLE PROBLEM? (YES OR NO) ";Q$W(Q$,1)"N"İ500:1610n(Q$,1)"Y"1430~:N11490N21630ADDING EXPLANATION"TO ADD FRACTIONS:"::"EXAMPLE: 3/4 + 7/8 ="::"1. MULTIPLY THE FIRST NUMERATOR BY208N2ĺN1"/"D1" - "N2"/"D2" = ";:" ";A$::1308aN1"/"D1" + "N2"/"D2" = ";:" ";A$:N1N1D2:C2D1D2:N2D1N2N2C1N1N2:1330(C1N1N22C1C2X(C1):1350<X(C2)F50A$B$RR1:300:500:1610200;DIVIDE FRACTIONS" "5. QUIT":"TYPE IN THE NUMBER OF THE OPERATION THATYOU WANT TO DO (1-5) THEN PRESS 'RETURN' ";X$:N(X$)N1N5ė:1160N52240N31730N41980ADDING AND SUBTRACTING LOOP:400 I1K82" BI12500:I L+ V"FRACTIONS"o `:"HI! WHAT IS YOUR NAME? TYPE IT IN THEN PRESS 'RETURN' ";N$u j t"HI, ";N$ ~ "WOULD YOU LIKE TO:" "1. ADD FRACTIONS" "2. SUBTRACT FRACTIONS" "3. MULTIPLY FRACTIONS""4. $::0 ::"GENERAL MATH PROGRAM: FRACTIONS"I ::"WRITTEN BY:": A$(1)"CAROL SMITH":A$(2)"JOE URADNIK":A$(3)"TONY PACHE" I13 A(I)((1)3)1 XA(I):B(X)11040 $B(X)1:A$(X):I .:"COMPUTER MATH 2" 8:"4 JUNE 19JN$;",":"YOU MUST HAVE BEEN STUDYING THIS STUFF.":360K T"YAY!!":360^ ^"GOOD JOB!"d h| NUMBER OF PROBLEMS N$;",":"HOW MANY PROBLEMS DO YOU WISH TO DO? ";K$:K(K$):K1400 TKTKK  :"PRESS ANY KEY TO CONTINUE. ";:Z!! YOU MUST HAVE TYPED THE ANSWER IN WRONG":260E "ERROR!":260W "NOPE!":260i "WRONG, ";N$ :"THE CORRECT ANSWER WAS ";B$: + ANSWER RIGHT ,Y((1)5)1:Y310,320,330,340,350 6"CORRECT!!!":360 @"VERY GOOD!":3609 ."O=R3::"WARNING";::": DO NOT INPUT A NUMERATOR"m\3:"THAT IS LARGER THAN YOUR DENOMINATOR,"a3:"OR A DENOMINATOR GREATER THAN 20!"f21:10:"PRESS ANY KEY TO START"k ** RETURN TO MAIN PROGRAM IF USER IS DONE READING INSTRUCT. IF"6*3:"YOUR FRACTION IS EQUAL TO THE BALLOON"c43:"THE DART WILL 'POP' IT. IF YOU DO">3:"NOT GUESS THE CORRECT FRACTION IN"H3:"FIVE TRIES, YOU LOSE."M3:"THE LEVEL YOU CHOOSE AFFECTS HOW"N3:"CLOSE YOU NEED TO GET TO WINE OBJECT OF BALLOON DARTS IS TO"N 3:"POP THE BALLOON THAT IS ON THE NUM-"{ 3:"BER GRID. TO DO THIS, YOU INPUT A" 3:"FRACTION (NUMERATOR AND DENOMINATOR)." 3:"A DART WILL APPEAR AND 'FLY' ACROSS" 3:"THE SCREEN TO THE NUMBER GRIDRR" j15:18:"JULIE KERR"9 t14:20:"MATT KRATTER"? ~X 15:23:"MAY, 1982"i G15000:Go  ::"DO YOU WANT INSTRUCTIONS (Y OR N)? ";B$ B$"N"ı  ** WRITE INSTRUCTIONS ** :10:"*** BALLOON DARTS ***" 3:3:"TH0 5:3:"** B A L L O O N D A R T S **"6 K $ **BY WHOM?**Q .X 34 87:"BY THE ADVANCED COMPUTER CLASS AT" B9:9:"MEDINA ELEMENTARY SCHOOL" L15:12:"SCOTT HOLT" V10:14:"BRETT KELLERAN-JOSLIN" `15:16:"DAVID KED BYE!" '  ROUTINE TO PREPARE; * FOR SOUNDSM 4FLOC776798d >FBYTE:FLOC,FBYTEn HFLOC R 255,255,173,48,192,136,208,5,206,9,3,240,9,202,208,245,174,8,3,76,10,3,96 \   * TITLE PAGE *  *TITLE*   ENERATE THE FRACTION 4000A PUT BALLOON AT CORRECT SPOTK 5000` KEEP GUESSINGj 6000 DO WIN OR LOSE ROUTINE WL$"W"İ7000:220 8000 SEE IF WANT TO PLAY AGAIN 9000 A$"Y"ī120 10:15 "OK. GOO BALLOON DARTS2 BY COMPUTERS V GROUPC MAY, 1982I#c( PREPARE FOR SOUNDSl2800F SHOW TITLE SCREENP1000Z GIVE INSTRUCTIONSd2000n LOAD SHAPE TABLEs2900x MAKE INITIAL LINE3000 G     ^)CAROL SMITH$ h)2052 BRENDLA RD.> r)CLEARWATER, FL 33515D w)U |)THANK YOU!!n )***************************** )THIS PROGRAM WAS& )9)WRITTEN AS A ?)T)COMPUTER MATH 2Z)m")ASSIGNMENT ATs'),)DUNEDIN HIGH SCHOOL1)6)DUNEDIN, FLORIDA;)@)PLEASE SEND ANYJ)COMMENTS, QUESTIONS, T)OR IMPROVEMENTS TO:Y) = INPUT ANSWER'(B$ = CORRECT ANSWERU(J = REDUCING LOOP FOR COMMON DENOMINATOR(Q$ = ANSWER TO SEEING HOW PROBLEM DONE(Y = RANDOM NUMBER FOR CORRECT/INCORRECT REMARK(TK = TOTAL PROBLEMS WORKED(PER = PERCENT CORRECT )**********RATION NUMBERS1(K$ AND K = NUMBER OF PROBLEMSK(N1 = FIRST NUMERATORg(D1 = FIRST DENOMINATOR(N2 = SECOND NUMERATOR(D2 = SECOND DENOMINATOR(C1 = CORRECT NUMERATOR(C2 = CORRECT DENOMINATOR(X = SMALLER OF C1 AND C2(A$ GAIN LATER." I12500:IE :"THANK YOU VERY MUCH."::"BYE!"K$ QA(nF(VARIABLE CLARIFICATION:P(A$(I) = NAMES OF PROGRAMMERS FOR RANDOM BILLINGZ(I = VARIOUS LOOPSd(B(X) = RANDOM BILLINGn(N$ = NAME OF USERx(N AND X$ = OPEK;" RIGHT, WHICH IS ";/PER((RTK100).5)IPER;" PERCENT.":ZI11500:I|PER94ĺ"EXCELLENT!":2320PER85ĺ"VERY GOOD!":2320PER75ĺ"KEEP UP THE GOOD WORK.":2320  "YOU'D BETTER STUDY THIS A LITTLE MORE AND TRY AATOR ON THE BOTTOM)":"3/4 * 8/7"Dp:"THEN MULTIPLY AND REDUCE."h:"3 * 8 = 24 (NEW NUMERATOR)""4 * 7 = 28 (NEW DENOMIATOR)":"24/28 = 6/7 (THE ANSWER!)"500:I:1150QUIT:TK02330"YOU GOT ";R;" OUT OF ";T D$;"UNLOCK SPELLING LIST"> OPN370: CORRECT WORDS !:"** SPELLING LIST IS ABOUT TO BE DELETED."::10)"PRESS ESC TO AVOID.":A$:(A$)271 "::"ENTER YOUR WORD AFTER THE ?":I(37):24:"PRESS RETURN AFTER ? TO END INPUT. ";:I1::ND CORRECT WORDS") 5)"4. PRINT LIST"C 5)"5. INSTRUCTIONS"m 5)"6. STOP"::"INPUT OPTION? ";OPN D$(4):D$;"OPEN SPELLING LIST,L20" OPN1140 OPN4140: PRINT SPELLING LIST OPN5ė:600: INSTRUCTIONS OPN6ĺ(7): "W$(100),R(100),I(100):NUM0=:13)"SPELLING TEST"h:10)"BY RICHARD A. MICHAEL 1980  **THE GREEN APPLES** **CEDAR FALLS IOWA** :"OPTIONS:"5)"1. TAKE SPELLING TEST"5)"2. ENTER NEW WORDS" 5)"3. LIST A       d -I T WAS FUN!"4#" DO YOU WANT TO PLAY AGAIN? ";P$V#P$"YES"P$"Y"A$"Y":9170w#P$"NO"P$"N"A$"N":9170#"YOU MAY SAY EITHER YES,Y,NO, OR N.":9110#F00:L4::: .(# ASK THE USER IFO2# IF THEY WANT TO PLAY AGAINd<# **************vF# MAKE SOUNDSU#P(1)200:P(2)150:P(3)100:P(4)150:P(5)200Z#P15_#777,50d#776,P(P)n#778x#P# PRINTING#: #" THA777,10L3776,L3#778+L2S 50,59,65,70,80,95,130,190,220,255YaL1u PRINT MESSAGE}21"SORRY YOU DIDN'T MAKE IT THIS TIME.""THE FRACTION WAS "N"/"D" .""MAYBE YOU'LL DO BETTER NEXT TIME."L4130"CONGRATULATIONS";::", YOU WON!!!!!!!!"Zl3:"YOU GUESSED THE RIGHT FRACTION IN "A" "v3:"TRIES. THE ACTUAL FRACTION WAS "N"/"D"."{ ** DELAY **Z11600:Z@T LOSE ROUTINE^ MAKE SOUNDShL115rL2110|(C.03)VC(C.03)WL$"W":KVLEVEL3VC(C.01)VC(C.01)WL$"W":VLEVEL1VLEVEL3VC(C.03)VC(C.03)WL$"W":A5WL$"L":6010X ** TELL USER Z THEY HAVE WON **]:^ - 10 BEEPS_"")b3::OSS THE SCREEN **#VX20010104VX,VY71D4VX,VYK3SVX} ** ADD 1 TO # OF ATTEMPTED TRIES **AA1::: ** CHECK IF THE USER HIT THE BALLOON **VLEVEL1VC(C.05)VC(C.05)WL$"W":VLEVEL2VCTION".{"(NUMERATOR, DENOMINATOR) : ";VN,VD_ ** CHECK IF THE USER'S FRACTION IS INVALIDpVNVDī6010VN1VN206010VD1VD206010 ** CALCULATE THE DART'S POSITION **VCVNVDVY150(VC140) ** MOVE THE DART ACRDE150(C140)1 THIS DRAWS THE BALLOON=310,EC\p USER GUESS ROUTINEdrA0{u ** THE USER PUTSv HIS FRACTION **w22x"ARE YOU A BEGINNER(1), AN AVERAGE(2),"y"OR AN EXPERT(3) ? ";VLEVELz"TYPE IN YOUR FRAC ME THIS DRAWS THE LINE& 66 9,109,150= 3G 1:0T& 116,10b0 216,150h1 n GENERATE A RANDOM FRACTIOND((1)192)N((1)(D1)1) THIS CALCULATES WHERE TO DRAW THE BALLOONCNIONS ***p(16384)0(16384)1321600zLT THIS LOADS THE SHAPEY^ TABLEec D$(4)h D$;"BLOAD BALLOON SHAPES"r 232,252| 233,29  THIS COLORS THE BACKGROUND : 1 ME0159 0,ME279,MEƱ% 16:11:" 00000 "I 17:11:" 0 0 "m 18:11:" 0 0 " 19:11:" 0 0 " 20:11:" 0 0 " 21:11:" 0 0 " 22:11:" 00000 " T12000,2010,2020,2030,2040,2050,2060,2070,2080,2090,2100,2110,2120,2130,2140,2150] #X1l (T01400v )TT1 -1030 xT0:SC(U)SC(U)T:2210 }(7) 1999 AAR1400 TT1 SC(U)SC(U)T:1:(7):(7) (7):(7) y d6000!T15:C0:AR0:X0/16368,0>T01999NX401300^R(16384)nR1271110xBXX1L1030V16368,0ZR1411500[R176R1851090`RR176e11:27C:Rj(7)oARAR10R:CC1t1090U                 ̍΍Íōٍٍ΍ԍٍٍ S KEPT.";" THE MISSED":"WORDS CAN BE REVIEWED AFTER THE TEST.":"WORDS ARE PRESENTED IN RANDOM ORDER TO AVOID ROTE MEMORY RESPONSES.":"PRESS A KEY FOR MENU: ";:A$:1 CREEN TO PROMPT THE USER FOR TYPING OUT ON THE KEYBOARD." l:"PROVISION IS ALSO MADE FOR A PRINTER LISTING."::"THE SPELLING TEST PROVIDES FOR THREE LOOKS AT THE WORD BEFORE IT IS BYPASSED TO THE NEXT WORD. A RECORD OF NUMBER OF CORRECT WORDS I(A$,1)"Y"190B:"DON'T BLAME ME IF YOU DON'T GET YOUR"_"SPELLING TEST RIGHT!!"ekxI1NUMI(I)ĺW$(I)I:X"THIS PROGRAM PROVIDES FOR ENTERING A LIST OF SPELLING WORDS WHICH WILL THEN BE FLASHED ON THE S00|CV(37)CV:1:B$.T10CC1F"YOUR SCORE IS:";CMNU:x"YOU GOT ";C;" WORDS CORRECT"~:"DO YOU WANT TO SEE THE WORDS YOU MISSED (Y/N)? ";A$(A$,1)"Y"İ500:"DO YOU WANT TO DO IT AGAIN (Y/N)? ";A$ ";""DO YOU WANT TO SEE THE WORD AGAIN? ";J,A$:1:B$].TT1:T3400o1A$(13)240y6:A$;(W$(I),1)" "320<W$(I)(W$(I),((W$(I))1)):315@(A$,((W$(I))))W$(I)380ET1I(I)1JT11:T3240T4 ":C00I1NUM:R(I)0:I(I)0:I\"SPELLING TEST: TO BEGIN PRESS RETURN"qA$:(A$)13Ā~N1NUMI%(NUM.5)(1)1R(I%)0222II%:R(I)1T0:T1010:W$(I)J120Q(3)J10:1:" M1:D$;"READ SPELLING LIST,R";NUM/W$(NUM)DW$(NUM)""145wD$;"CLOSE SPELLING LIST":NUMNUM1:OPN1180(4);"PR#1"(20)I1NUM5)I;". ";W$(I)I(4);"PR#0"B$"  gD$;"CLOSE SPELLING LIST"= hD$;"LOCK SPELLING LIST":1_ i(A$)0Ģ(37)2:958:100m nNUM(A$) s:"ENTER WORD: ";W$(NUM) xD$;"WRITE SPELLING LIST,R";NUM }W$(NUM) NUMNUM1:80 D$;"OPEN SPELLING LIST,L20":NUM0"NUMNU0" PNUMNUM1:NLNL1; RD$;"READ SPELLING LIST,R";NUMH UW$(NUM)b WW$(NUM)""NL20:95 ZD$:5)NUM;". ";W$(NUM) _NL20NL0:D$::"IF YOU WANT TO MAKE A CORRECTION, ENTER # OF WORD,OTHERWISE PRESS RETURN: ";A$:105 dW$(NUM)""8035,22% #D$;"DELETE SPELLING LIST"F (D$;"OPEN SPELLING LIST,L20"o -NUMNUM1:D$:5)NUM;". ";:W$(NUM) 2D$;"WRITE SPELLING LIST,R";NUM 7W$(NUM) <W$(NUM)""45 F LIST SPELLING WORDS HNL0:NUM0:: KD$;"OPEN SPELLING LIST,L211:" 111111 55555 "!mEp16:11:" GGG OOO "iq17:11:" G G O O "r18:11:" G O O "s19:11:" G O O "t20:11:" G GGG O O "u21:11:" G G O O "v21:" 111111 4 "cCf16:11:" 11 5555555 "gg17:11:" 111 5 "h18:11:" 11 5 "i19:11:" 11 555555 "j20:11:" 11 5 "k21:11:" 11 5 5 "l22:" 111111 33333 "YA\16:11:" 11 4 "e]17:11:" 111 4 4 "^18:11:" 11 4 4 "_19:11:" 11 4444444 "`20:11:" 11 4 "a21:11:" 11 4 "b22:1 111111 2222222 "O?R16:11:" 11 33333 "cS17:11:" 111 3 3 "T18:11:" 11 3 "U19:11:" 11 33 "V20:11:" 11 3 "W21:11:" 11 3 3 "X22:11:111111 111111 "E=H16:11:" 11 22222 "aI17:11:" 111 2 2 "J18:11:" 11 2 "K19:11:" 11 222 "L20:11:" 11 2 "M21:11:" 11 2 "N22:11:"1111 00000 ";;>16:11:" 11 11 "_?17:11:" 111 111 "@18:11:" 11 11 "A19:11:" 11 11 "B20:11:" 11 11 "C21:11:" 11 11 "D22:11:" 9 "19416:11:" 11 00000 "]517:11:" 111 0 0 "618:11:" 11 0 0 "719:11:" 11 0 0 "820:11:" 11 0 0 "921:11:" 11 0 0 ":22:11:" 118888 "'7*16:11:" 999999 "[+17:11:" 9 9 ",18:11:" 9 9 "-19:11:" 999999 ".20:11:" 9 "/21:11:" 9 "022:11:" "5 16:11:" 88888 "Y!17:11:" 8 8 "}"18:11:" 8 8 "#19:11:" 88888 "$20:11:" 8 8 "%21:11:" 8 8 " &22:11:" 8 "316:11:" 7777777 "W17:11:" 7 "{18:11:" 7 "19:11:" 7 "20:11:" 7 "21:11:" 7 " 22:11:" 7 "  1 16:11:" 66666 "U 17:11:" 6 6 "y18:11:" 6 "19:11:" 666666 "20:11:" 6 6 "21:11:" 6 6 " 22:11:" 66666 " /16:11:" 5555555 "S17:11:" 5 "w18:11:" 5 "19:11:" 555555 "20:11:" 5 "21:11:" 5 5 "22:11:" 55555 " -16:11:" 4 "Q17:11:" 4 4 "u18:11:" 4 4 "19:11:" 4444444 "20:11:" 4 "21:11:" 4 "22:11:" 4 " + 16:11:" 33333 "O 17:11:" 3 3 "s 18:11:" 3 " 19:11:" 33 " 20:11:" 3 " 21:11:" 3 3 "22:11:" 33333  ) 16:11:" 22222 "M 17:11:" 2 2 "q 18:11:" 2 " 19:11:" 222 " 20:11:" 2 " 21:11:" 2 " 22:11:" 2222222 ' 16:11:" 11 "K 17:11:" 111 "o 18:11:" 11 " 19:11:" 11 " 20:11:" 11 " 21:11:" 11 " 22:11:" 111111 "=MULTIPLICATION"J 13:N$(U);", WHICH OPERATION":"DO YOU WANT? ";R$(U)t R$(U)"A"R$(U)"S"R$(U)"M"410 15:"HOW MUCH TIME,IN SECONDS, DO YOU WANT TO" 17:"ALLOW FOR EACH PROBLEM?";T(U)19:"SMALLEST VALUE OF FIRST NUMBER";SX(U)"# rS120000:(49152)127390:* |Su 16368,0:DO0:DX0:DL1600::2:"PLAYER 1, WHAT IS YOUR NAME?";N$(1) 4:"PLAYER 2,WHAT IS YOUR NAME?";N$(2) U12:: HANDICAPPING 7:6:"A=ADDITION" 9:6:"S=SUBTRACTION" 11:6:"M 6"SQUARE YOU PICKED WILL DISPLAY AN X OR "^ @"AN O.EACH GAME IS WORTH $1600.BUT,WHEN " J"SOMEONE TRIES TO ANSWER A PROBLEM,THIS " T"VALUE IS REDUCED BY $100.WHEN SOMEONE " ^"GETS THREE IN A ROW,THEY WIN ALL OF THE " h"MONEY LEFT. TAC DOUGH"> 4:"ARITHMETIC TAC DOUGH IS A GAME FOR TWO "n "PLAYERS.YOU WILL CHOOSE ONE OF THE NINE " "SQUARES IN THE TIC TAC TOE BOARD.THE " ""COMPUTER WILL ASK YOU AN ARITHMETIC " ,"PROBLEM.IF YOU ANSWER IT CORRECTLY,THE ".;:11:21:"C"V 17:31:"D":18:32:"O";:19:33:"U";:20:34:"G";:21:35:"H"j 18:3:"BRYAN" 18:16:"BUTLER" 9:3:"PROGRAM";:11:7:"B";:12:7:"Y" 3:3:"ARITHME-" S15000:S 16368,0: :2:11:"ARITHMETICk  :>W(2,2),N$(2),R$(2),T(2),LX(2),SX(2),LY(2),SY(2)JO121Q(O^213:"/"e<OrF26:"/"yPOZO140dOn7:"/"xO14:"/"O233:6:"T";:4:7:"I";:5:8:"C" 9:19:"T";:10:20:"A"                #J ** BY **6#T ** TOM JACOBSEN **Q#^ **THE GREEN APPLES**l#h **CEDAR FALLS IOWA**r# Nx#%NHOW MANY PROBLEMS IN THIS COMPETITION?"/"vNPH"{NP1NP(NP)7045R"7020X"d"X1NS"1:"NAME OF STUDENT # ";X"11X:S$(X)"S$(X)S$(X)" ""S$(X)(S$(X),24)""3000#@ **TOM'S MATH DRILL**="!!p*!uS$(5),S(5),SC(5),ST(5)5!zX15Z!S$(X)" "u!S(X)2:SC(X)0:ST(X)0{!!U1:P1!X!\12:"HOW MANY STUDENTS WILL COMPETE?(1TO5)"!]NS!bNS1NS5NS(NS)7020!g7000!l'"q12:"5230,5240,5250 ZP310" _5260, dP3506 i5260A nP3100K s5260V xP3200` }5260l P31000 P1((1)(P31)) P2((1)(P11)) AP1P2 11:" "!11:11:P1;16);"-";19);P2;24);"5060P3505060$P3100.50609P3200C5060OP31000eP1((1)(P31)){P2((1)(P31))AP1P211:" "11:11:P1;16);"+";19);P2;24);"=" PS(U)5210,5220,5S(U)5D 3155#I S(U)S(U)16N S(U)1S(U)1BS SC(U)0IX UP] Pxb 23:1:"DO YOU WANT TO TRY AGAIN?"g S$(0):(S$(0),1)"N"20000l m X15n SC(X)0:ST(X)0o q 3000S(U)5010,5020,5030,5040,5050P310X  X(1) X.5İ5200. X.5İ50008 2160B 1000T ST(U)ST(U)Td U2:27:Px U2:35:ST(U) X11000 X U! P3(P3)3165& U1NS+ SC(U)3031300 SC(U)1531455 3155: S(U)S(U)1 ? S(U) N O O "419:11:" N N N O O "X20:11:" N N N O O "|21:11:" N NN O O "22:11:" N N OOO "  P1NP U1NS 2200  U2:1:S$(U)  X11000 2:11:" GGG OOO "#wX1:1:" STUDENT PROBLEM SCORE "f3:S$(1)t4:S$(2)5:S$(3)6:S$(4)7:S$(5)16:11:" N N OOO "17:11:" NN N O O "18:11:" N N 35,37,8,38,35,38,36,38,37,38,38,38 88,39,39,39,-1,0j:22:"HA-HA ,I WON THIS TIME!":S11000:SpN$(1)", YOU HAVE $"DXN$(2)", YOU HAVE $"DO"PRESS SPACE BAR TO CONTINUE":"PRESS ANY OTHER KEY FOR NEW SETUP";:16368,0:P$#,29,22,29,35,29, 8,30,11,30,22,30,35,30,7,31,8,31,10,31,11,31,22,31,35,31# 7,32,10,32,14,32,15,32,16,32,17,32,18,32,19,32,20,32,21,32,35,32,7,33, 9,33,10,33, 11,33,12,33,13,33,35,33,7,34,9,34,10,34,35,34,7,35,8,35,9,35,35,35,7,36,8,36,35,36,7,37,8,37,,21,22,22,23,22,37,22,22,23,27,23,32,23,38,23,22,24,38,24,13,25,14,25,15,25,21,25,29,25,30,25,31,25,38,25I12,26,13,26,15,26,21,26,30,26,38,26,11,27,14,27,15,27,21,27,22,27,28,27,29,27,31,27,32,27,35,27,36,27,37,27,38,27,10,28,13,28,22,28,35,28,9,29,12DL0ĺ"VALUE OF GAME IS $0.00. NO WINNER.":S11000:S:1730`^Q02:Q202:W(Q,Q2)0940khQ2:Q~r:((1)15)1|A,B:A1čA,B:1670i24,19,25,19,34,19,24,20,26,20,33,20,34,20,35,20,23,21,27,21,28,21,29,21,30,21,31,21,32,21,36Q30:Q40:Q02:Q3Q3W(Q,Q):Q4Q4W(2Q,Q):Q:Q33VQ43V1560P1580:22:N$(U);", YOU WON!":S11000:S:U2DODODL:1730"DXDXDL:1730,C$A$6A$B$@B$C$JUU12(U2):TOGGLE BETWEEN 1 AND 2>TDLDL100:R2Z1580Z2620+Z36608Z4700EZ5740RZ6780_Z7820lZ8860yZ9900V2(U1)1:W(Q,Q2)V:PLUS OR MINUS ONEQ02:Q30:Q40:Q202:Q3Q3W(Q,Q2):Q4Q4W(Q2,Q):Q2:Q33VQ43V1560QFU1čX1,Y1:X15,Y1:X11,Y11:X14,Y11:X12,Y12:X13,Y12:X12,Y13:X13,Y13:X11,Y14:X14,Y14:X1,Y15:X15,Y15:1510xU2ďY12,Y13X1:Y12,Y13X15:X12,X13Y1:X12,X13Y15:X11,Y11:X14,Y11:X11,Y14:X14,Y14:1510A3:14102:22:"YOU'RE RIGHT":A311000:A3:E Z1X14:Y14YZ2X118:Y14mZ3X131:Y14(Z4X14:Y1182Z5X118:Y118<Z6X131:Y118FZ7X14:Y131PZ8X118:Y131ZZ9X131:Y131d((1)15)1n"";:A1/:22:"SORRY,OUT OF TIME":A41CR$(U)"+"1220WR$(U)"-"1230kR$(U)"*"1240|A3XY:1250A3XY:1250A3XYA3A41280A401275:22:"SORRY, WRONG ANSWER"X" "R$(U)" "Y" = ";A3:A312500:= ";<`A40::" ";::A11T:A2144:(16384)1281160jA3(16384)176:16368,0:A31A310A410A4A3:(8);A3;::" ";::1160tA340A4(A310):(8);" ";(8);(8);::" ";::1160~A335ĺ(8);" ";:1190A2 2630Z3670Z4710,Z57509Z6790FZ7830S$Z8870`.Z99108X((1)(LX(U)SX(U)1))SX(U)=Y((1)(LY(U)SY(U)1))SY(U)BR$(U)"-"XYSY:YX:XSL:22:TT(U)VN$(U)", WHAT DOES "X" "R$(U)" "Y" 32,3532:32,3535:32,3538:(9)/R11080=R21580G:22}N$(U);", WHICH SQUARE DO YOU WANT";:16368,0:ZQ2Z1:Q(Q23):Q2Q23QW(Q,Q2)0ė:22:"THIS SQUARE IS OCCUPIED!":S11000:S:940R1:0Z1590Z:32,3519:32,3522:32,3525:(6)1 R11080?*R21580G411c>32,387:4,732: (7) qHR11080RR21580\12f32,3818:32,3821:18,2132:18,2135:18,2138:(8)pR11080zR2158013!32,3532:32,3835::32,355:32,3511:33,358:(3)/R11080=R21580D6g19,224:21,256:4,722:(4)uR11080R21580819,2218:22,2521:18,2119:18,2122:18,2125:(5)R11080R21580 9#19,2532:22,2535,Q2)0:Q2:Q"&R0:UU0:DL1600,0:15T:0,3913:0,3927:0,3913:0,3927[D1lN5,116:(1)zXR11080bR21580l2v5,821:8,1118:18,215:18,218:18,2111: (2) R11080R215804!5,1135," LARGEST VALUE OF FIRST NUMBER";LX(U)[:"SMALLEST VALUE OF SECOND NUMBER";SY(U)" LARGEST VALUE OF SECOND NUMBER";LY(U)R$(U)"A"R$(U)"+"R$(U)"S"R$(U)"-"R$(U)"M"R$(U)"*"U:U01(2(2)) Q02:Q202:W(QT,YHALT" Y!, XC1C3SPACE<6 XHALTC3:YHALTC4C3Xa@ YHALTC2YHALTC2:XHALTXC4C2wJ X,C4XHALT,YHALT~T X^  21:J13:" ":J 21 "OK, "N$" I'LL HELP YOU." "THINK ABOUT THE CL&**DOES ANY LEFT OVER BOXES**7RBNNCLBPLCRB0ıOSPACE6\HL1RBf2800|C1C1DX:C3C3DXHL  DDC1C2 YC2C4SPACE YHALTC2:XHALTYDD XHALTC3YHALTC2XHALTC3:XHALTC3 C1,YXHALDX:XP,AYXP,BY4K9'>BPLVNICC1AX:C3C1DX:C4BY:C2C4DYfHNCL(NBPL):NCL02210W**DOES COMPLETE LINES**XSPACE6\CL1NCLfHL1BPLp2800zC1C1DX:C3C3DXHLC2C2DY:C4C4DYC1AX:C3C1DX4:K13:(7):K:J(F2$"F")(F2$A0$(REV(5)))İ4000@Tb **DRAWS BOX AND PARTITION**i3AX,AYBX,AYBX,BYAX,BYAX,AYDY(BYAY)HN:DX(BXAX)VNYPAY:XPAXK1HN YPYPDY:AX,YPBX,YPK K1VN*XPXPK1400:KAD0D5AX176:AY0:BY155:BX276:HNH0:VNV0pD5D0AX0:BX100:AY0:BY155:HNH5:VNV5}CDHNVN2000:21:700"WHAT IS YOUR ANSWER NOW";(7);"F2$,F2$(F2$,1)6F2$"F"İ4000@F2$A0$(REV(5))Ģ2EV(5))Ģ24:K15:(7):K:"THAT'S CORRECT "N$KoF1$A0$(REV(5))ī1150t(F1$"F")(F1$A0$(REV(5)))ĺ"SORRY, "N$", THAT'S NOT CORRECT.":K11000:Ky(F1$"F")(F1$A0$(5))İ1500~"PRESS RETURN";S$:21:"OK, I'LL HELP.."HN:V0VN'AX176:AY0:BX276:BY1555$DD5:NN5?.9200I82000S=2110cBH5HN:V5VN~D24:"PRESS RETURN";S$G:21:700L1:24:"NOW WHAT IS YOUR ANSWER";(7);:F1$Q:21:700VF1$(F1$,1)`F1$"F"İ15000jF1$A0$(R;A$(L(2));$30);"C.) ";A$(L(3))*@"D.) ";A$(L(4));[15);"E.) ";A$(L(5));u30);"F.) ";A$(L(6)){ AX0:AY0:BX100:BY155DD0:NN09200200021:7:N0;"/";D0;33:N5;"/";D5 2110 H0D)" ND0N5N0D5:DD0D5:9000: !A$(5)(N)"/"(D)K &A$(6)"HELP"_ 0J15:L(J)0:j :J15y DTEMPR(5) NK1J XTEMPL(K)580 bK lL(J)TEMP:REV(TEMP)J vJ L(6)6:REV(6)6  "A.) ";A$(L(1)); 15);"B.) "1:J:S0300 O::62450% TPC+ E NN0N5:DD0D5:9000] A$(1)(N)"/"(D){ NN0D01:DD0D51:9000 A$(2)(N)"/"(D) ND0N0N5:DD0D5:9000 A$(3)(N)"/"(D) ND0D51:DD0N5D5N0:9000 A$(4)(N)"/"(  20:958:21 "700E ,5:5:"WHICH IS THE SUM";:868:F$Z 1(F$)0İ10000l 2(F$)0280 6F$A0$(REV(5))ĺ"CORRECT "N$"!":J11000:J 8F$A0$(REV(5))335 @F$"F"İ1000 EF$"F"335 J3000 LS0:J16:F$A0$(J)S:9000 N0N:D0D8 D2R(MAX):D5BASED1:N5R(D5)L NN5:DD5:9000Z N5N:D5Dy (D51)(D01)(D0D5)180 10:10 10);N0;20);N5 9);"--- + ---" 10);D0;20);D5 500 ** 500 GENERATES 4 WRONG ANSWERS***SE TYPE YOUR NAME:";N$' n(N$)0100D x:10:10);"THANKS ";N$T }I12000:} :" HOW MANY PROBLEMS DO YOU WANT"; NP BASE2 MAX3:MIN1 R(X)((1)(XMIN1)MIN) PC1NP D1R(MAX):D0BASED1:N0R(D0) NN0:DD0  :22A$(6),L(6),A0$(6),PRIMES(12),REV(6)W<A0$(1)"A":A0$(2)"B":A0$(3)"C"|FA0$(4)"D":A0$(5)"E":A0$(6)"F"PPRIME(1)2:PRIME(2)3:PRIME(3)5:PRIME(4)7:PRIME(8)11:PRIME(9)13:PRIME(10)17:PRIME(11)19:PRIME(12)23 d:10:10:"PLEA          P$" "UU012(U02):U0U:540K:"DO YOU WANT TO PLAY AGAIN";:N$`N$"Y"ĉ::410j::NU":";RD:LEVEL2:?!(ANSFR)T1B1ĺ:Q5$;WU;"/";WD:LEVEL2:Q&LEVEL31885l+LEVEL3LEVEL6:18900(ANSFR)T2ANSFR0ĺQ6$:LEVEL3::(ANSFR)T2ANSFR0ĺQ7$:LEVEL3:SM1:DANSFR0ĺQ9$:10200:"NOW TRY AGAIN.":LEVEL4-NAFDRD(GIDGID1I)NFU(FU.00001)FD(FD.00001)BI:RUFU:RDFD:1730UIpA3$" OR SIMPLIFYING "v ***TEST THE ANSWER AGAINST CERTAIN TOLERANCES(ANSFR).0001ĺQ4$:LEVEL1:(ANSFR)T1B1ĺ:Q5$;WU;"/";WD;A3$;RU;"/S OF THE ENDPOINTS OF THE PATH SEGMENTS6 JJ2GID5H TV(J)0:U(J)0O ^JU h ***GET THE NUMERATOR AND DENOMINATOR OF THE CORRECT ANSWER RU(FRGIDGID.00001) RDGIDGID B1:WURU:WDRD IBGIDGID1FURU(GIDGID1I):ON BY ZERO NOT ALLOWED!":960' 1800@ LEVEL2LEVEL6950` LEVEL6B1ĺQ0$;WU;"/";WD LEVEL6B1ĺQ0$;WU;"/";WD;A3$;RU;"/";RD "PRESS ANY KEY FOR MORE...";:F$ 1600:LEVEL0 :21 KKK ::' @ *** CLEARS THE VALUE OF THE A REA IS SHADED?", 206 (7)a "WHAT PART OF THE AREA IS SHADED?";A$k 1900 WR1S1$"YOUR ANSWER MUST BE IN THE FORM X/Y WHERE X IS ":S2$"THE NUMERATOR AND Y IS THE DENOMINATOR.":S1$;S2$:960 WR2ĺ"DIVISIGID5),V(GID5) >HC140:VC80& H9 RLG128:LRLG2G WKKK1NPP X:3[ YAREA0g \X0:Y0x fHCLR,VCLR pHCLR,VCLR zHCLR,VCLR HCLR,VCLR HCLR,VCLR 10000 FRAREA(LGLG) 1700$ Q1$"WHAT FRACTIONS "< Q6$"YOUR ANSWER IS TOO LARGE BUT CLOSE. TRY AGAIN."u Q7$"YOUR ANSWER IS TOO SMALL BUT CLOSE. TRY AGAIN." Q8$"YOUR ANSWER IS TOO SMALL." Q9$"YOUR ANSWER IS TOO LARGE." Q0$"YOUR ANSWER IS STILL WRONG. THE CORRECT AREA IS " 6U(6 1639011000-T1.51(GIDGID)9T23T1bQ2$"YOUR ANSWER IS STILL TOO LARGE"Q3$"YOUR ANSWER IS STILL TOO SMALL"Q4$"YOUR ANSWER IS EXACTLY CORRECT!!!" Q5$"VERY CLOSE. YOUR ANSWER IS ACCEPTED."(13)(10)"THE ANSWER I     P#K Z##HND6$DBASEBASEBASEHNBASEBASE^ $DBASEBASEBASEBASEHNBASEBASEj$VNDHNp$~'20:958'"PLEASE RESPOND WITH A,B,C,D,E OR F."$':"PRESS RETURN TO TRY AGAIN...".'J$8'N V1V11:V2V21-V10V1VN:H1H11GV2VN1V21:H2H21N(IT2p|C1(V1)DXAX:C3C1DXC2AYHDY:C4C2DY(#DN(DN)DDN:N1:2#K1PP<#PKPRIME(K)F#(DPK(DPK))(NPK(NPK))DDPK:NNPK:9020H2((CDNU)VN),V2((CDNU)VNH2)VNNV2V21:V2VN1V21:H2H21`V21H2H21qV10V1VNI1CMOVEAXA1:BXB1HH1:VV1:55000:SPACE128003:2000AXA2:BXB2HH2:VV2:5500SPACE6:2800"IN REDUCED FORM: ";A$(5),K11000:K2"gN0N5A1176:B1276:A20:B2100:WMOVEN5:NUN0N0N5A10:B1100:A2176:B2276:WMOVEN0:NUN5CMOVECDNUWMOVECMOVECMOVEWMOVEH1((CDWMOVE)VN)V1((CDWMOVE)VNH1)VN(NTNK)(N0D0)(N5D5)İ5000d(NTNK)((N0D0)(N5D5))ĺ"THERE ARE ";NK;" SHADED BOXES."{"PRESS RETURN";S$"SINCE THERE ARE ";NK;" SHADED BOXES""AND THE COMMON DENOMINATOR IS ";CD;" SO THE""ANSWER IS ";NK;"/";CD;" ";NKN0N5NT$:NT(NT$)PNT$"F"(NT$,1)"H"ĺ"OK, I'LL HELP..":4062NT0ĺ"PLEASE, A POSITIVE INTEGER!":4030NTNKĺ"THAT'S RIGHT "N$;:K13:(7);:K:NTNKĺ"SORRY, "N$" THAT'S NOT RIGHT.":"I'LL HELP.":K12000:K"PROBLEM A LITTLE AND"= "PRESS RETURN WHEN YOU'RE READY.."E Q$O 1000U _:21"NOW, "N$" ALL YOU HAVE TO DO""IS COUNT THE SHADED BOXES.""HOW MANY ARE SHADED";CDD0N5N5CDD5:D5CDCDD5N0N0CDD0:D0CD COMPUTE THE HUMAN'S AND TAXMAN'S TOTALS1, 3860O@ *** PRINT THE NEW LISTYT 4280h *** CHECK IF ANY NUMBERS STILL HAVE FACTORS| 4600 M12820 *** FIND THE WINNER 5140 *** GRAPHICS. 7600 *** AGAIN? MAN." ( / < "DO YOU WANT THE REGULATIONS?"S P "TYPE Y FOR YES, N FOR NO : ";\ d RT$e x RT$w RT$"Y"6540 RT$"N"2640 : ***INITIALIZATION L(50),T(10) 5660 *** THE HUMAN TAKES A NUMBER  3160' *** ` 17,2335 t 17,2339) 18,19367 21,2238h : DATA FOR HORIZONTAL TAB POSITIONS - HT().v 19,2137 IN12500 8390 : 2770 X09 HT(X) X 38,2,6,10,14,18,22,26,30,34  " HI, I'M THE TAX,17:5,17 H1,18:5,18) \2,19:4,193 p3,20C 2,21:4,21S 1,22:5,22c 1,23:5,23u : LETTER 'M' 35,391 2,735 2,739 2,537  : LETTER 'A'  35,399 $ 9,1535 8 9,1539 L 35,3912 _ : LETTER 'N'EYES. 6 17,1817( 17,1821/ 01= D18,2025O X17,24:21,24a l16,23:22,23h 0v 20,2119~ 12 : LETTER 'T' 1,51 1,73 : LETTER 'A' 1,59 9,151 9,155 1,512 3: LETTER 'X' 41 PK d10,2814 x11& K096 14,24K15= KH K14\ 14K,24KK24c Kj 5u K03 ,18(3K),20(3K)K29 @K TK3339 h8,30K |K 15 29,3217 29,3221 32,3718 32,3720 : : TAXMAN IN GRAPHICS.-CL((1)4)3F2CL:CL0Ġ1N$U9\8CL2U4jLCL3U6r`L9tCL1L7CL2L1CL3L3LU1320JU1LKLU13J,25JKJJ1K(KU113<13,25K       10, +"HOW MANY PROBLEMS DO YOU WANT?";NP4*+:380d(SIDE0V(I)V(I1)DIXn((SIDE0)(U(I1)DILG)DILGU(I1):U(I)LG:10380kx(U(I)U(I1)DIz(SIDESIDE(SIDE010320(NUMI(U(I)LGV(I)LGı(I(*:+10 +"HOW MANY SUBDIVISIONS ON EACH SIDE?";GID+:HCLRILGGID,VCLR'I('J1GIDW(HCLR,VCLRJLGGIDHCLR,VCLRJLGGID^ (Jd(<(*** DETERMINES AND STORES THE ENDPOINTS OF THE RANDOM LINE SEGMENTSF(I2GID5P(DI((1)GID)LGGIDZ((SIDE0)(V(I1)DILG)V(I)LG:10LRLG:C2VCLRV(K1)4'U(K1)LGV(K1)010120>'2800v'V(K1)LGU(K1)LGAREAAREAV(K1)(LGU(K1)):'HCLRU(K1),VCLRV(K1)'K''*** DRAWS 16 HORIZONTAL AND VERTICAL GRID LINES.'I1GID'HCLRILGGID,VCLRANCE TO MOVE'SIDE2"$'103004.'U(1)0:V(1)0C8'K1NUM1^L'C1HCLRU(K):C4VCLR|V'HCLRU(K),VCLRV(K1)`'HCLRU(K1),VCLRV(K1)j'SPACE6t'AREAAREAV(K1)(U(K1)U(K)):C3HCLRU(K1):C2VCLRV(K1)~'V(K1)LGC3HC RC2C4SPACE( YHALTC2:XHALTRDDQ XHALTC3YHALTC2XHALTC3:XHALTC3g C1,RXHALT,YHALTn" R, SC1C3SPACE6 XHALTC3:YHALTC4C3S@ YHALTC2YHALTC2:XHALTSC4C2J S,C4XHALT,YHALTT S^ '*** PICK A RANDOM DIST0:"NOW TRY AGAIN.":LEVEL5!bVl*** TRANSLATES A STRING FRACTION INTO A NUMBER.evI1(A$)(A$,I,1)"/"DSTI:1950IWR1:UP((A$,DST1))DN((A$,DST1))DN0WR2:ANSUPDNWR0 DDC1C2NSFR0ĺQ8$:10200:"NOW TRY AGAIN.":LEVEL47X1890p]ANSFR0SM0ĺQ8$:10200:"NOW TRY AGAIN.":LEVEL5^ANSFR0SM1ĺQ9$:10200:"NOW TRY AGAIN.":LEVEL5_ANSFR0SM1ĺQ3$:10200:"NOW TRY AGAIN.":LEVEL5`ANSFR0SM0ĺQ2$:1020z#0  Π ҠȠ ӠӠȠàŠӠΠ ӠŠԠ Ƞ Π РӠ ӠǠĠŠ  Ƞ  ĮӠ  ΠӠ ǠԠǠԠ ͧӠȠ̠ ààȠǠӠǠ̠ϠȠ̠ Ƞ̠ ٠ǠԠ& ήҠήŠӠ940,"AT THIS TIME, REGULATIONS ALLOW A"L"A MAXIMUM OF 50 NUMBERS."V5660_4Y0hHZ0n\wpIV0I1NNMI:7280L(I)1I11:1" ";15$" RT$RT$"N"7260-RT$"Y"548072780> X *** INITIALIZATION_ e0"HOW MANY NUMBERS DO YOU WANT IN THE"D"LIST? ENTER NUMBER FOLLOWED BY ";::"RETURN"XlNN(N)N07260N505 WINNER  !(13:51<"YOU: ";Y;9P25Ld"TAXMAN: ";Z;Rx`ZY5320r"YOU WIN!!!"x"THE TAXMAN WINS!!!"  *** AGAIN? ,@T"AGAIN?"h"TYPE Y FOR YES, N FOR NO : ";|RT$"THERE ARE NO REMAINING"0w"FACTORS FOR ME.":y5000`~"BECAUSE WHEN YOU TAKE A NUMBER""FROM THE LIST, THERE ARE NO""REMAINING FACTORS FOR ME."13:25"TAXMAN: ";Z;M0XX14000:XX  *** FIND THE"; I1NL(I)04940,$I;" ";78ZZICBCOCO1LCCNISLI^NI1NoPL(I)04950Q: SET NUMBERS IN FLASHING.RNMI:IV2:7280TXX1500:XXVI`20:1tCO14990u"BECAUSE WHEN YOU TAKE ";CN;","vERS STILL HAVE FACTORS> CHECK IF THE LIST IS EMPTYLM05060Z IN41g J2I2x4L(J)04760HIJ(IJ)4760\M1pJI THE TAX MAN GETS THE REST OF THE NUMBERS CO0"I GET: THE NEW LIST (REMOVE THOSE NOT IN LIST)..AXX12000:XXUIV3:NMK:7280`I1MrNMT(I):7280yI SET M=1 IF THERE ARE STILL #'S LEFT.0M0DI1NXL(I)04480lM1I *** CHECK IF ANY NUMB13:5<"YOU: ";Y;!P19:11d"I GET: ";<xI1MMT(I);" ";[ZZT(I)bI: SET FACTORS IN FLASHING.I1MNMT(I):IV2:7280XX1500:XXI,13:25@"TAXMAN: ";Z;Th(| *** PRINT 60  M0 I1K2(L(I)03700>$KI(KI)3700H8MM1SLT(M)I^`L(I)0etI CHECK WHETHER THERE WERE ANY FACTORSM03440L(K)0 *** COMPUTE THE HUMAN'S AND TAXMAN'S TOTALSYYK(L(K)03320.3 : SET THE NUMBER IN INVERSE.B4 NMK:IV1:7280]H FIND ALL THE FACTORS k\ K13560vp 19:1 "ARE YOU TRYING TO SHORT-CHANGE " "THE TAXMAN??" XX12000:XX : RE-SET THE NUMBER. NMK:IV0:7280  315420  (0 *** THE HUMAN MOVES .D 9X 17:1Cl 868T "YOU TAKE";[ Ke 958q K(K) K05420 KN3360 19:1 K;" IS NOT IN THE LIST - TRY AGAIN." 3160 "THERE ARE NO FACTORS OF ";K;" FOR ME."  * T*********************dI96,96,0,1,96,1,0/ 17,15,94,96,0,32,0,0,1,0O 0,96,1,0,0,1,239,216,0,24y 173,116,96,109,44,32,141,116,96,144 3,238,117,96,96,0,0,0,0 ,********************* 6* FROM "COMPUTE!" * @* B.L.KONARSKI * J* JAN. 83, PG 56 11,32- 201,255,240,3,32,99,96,238,118,96U 173,118,96,201,7,208,28,169,0,141 118,96,169,44,141,104,96,169,11,141 8,96,173,2,32,201,0,240,25,141 81,96,76,0,96,173,104,96,105,35 141,104,96,173,8,96,105,35,141,8 96,76,7, ""INITIALIZED 1-25-89". D$(4)@D$;"CATALOG"SK2457624694Z(Ac2K,Aj<KuF24576PX(24692):Y(24693)ZZX256Yd:"SECTORS USED: ";Zn"SECTORS REMAINING: ";496Zx 169,96,160,76,32,217,3,173,   50,50,70,70,0,0,0,0,0,0= F 30,30,30,70,70,70,70,30,0,0,0,0e P 30,30,50,50,70,70,30,70,70,30,0,0 Z 30,30,30,50,30,70,70,30,70,50,70,70 d2,0,8,0,32,0,182,0,45,46 n61,63,63,55,47,45,45,45,53,63 x63,63,63,53,45,45,45,63,62,63 0,0,45 ZAP BY BILL HECKC MODIFIED FOR APPLE BY BEN JACKSON FOR MICROCOMPUTERS IN EDUCATION PROJECT/ ROBBINSDALE AREA SCHOOLS #H$(8)%&G1( 50,50,0,0,0,0,0,0,0,0,0,02 30,30,70,70,0,0,0,0,0,0,0,0 < 30,30,     368,0 &!16%1 "ITS A TIE!" %5 24:5H%D "** PRESS ANY KEY TO CONTINUE **";V%X 16368,0e%l XX12000}% (16384)1278360% XX% 16368,0% :% % : WAIT OR KEYPRESS.% 16368,0% XX12000% (16384)1278440% XX& 16X51PX1$hX1$|XX1+$XX98140E$37P3,(37P3)2X5O$7880U$`$21:6p$"YOU: ";Y;x$ 26$ "TAXMAN: ";Z;$& YZ8235$' YZ8240$( 22:15$) "TAXMAN WINS!"$* 8245$+ 22:17$, "YOU WIN!"$- 8245%0 22:160#(X530:X9100:7800(#-Y081609#<X9Y(Z100)H#PX59:7840R#d8160Z#x:b#13n#P0:X1|#37,39X5#PP1#X11P#XX1#XX98140#40X13,(40X13)2X51PX1#,XX1#@XX98140 $T40X13,(40X13)2IV2ğ"VT(NM10)217"NM10(NM10)VTVT2?"VTY"HTHT(NM(NM10)10)l"NM10HTHT1t"$HT"8IV37540"L" ";"`7560"tNM;""""ZY7720"X59:X9100:7800"X9Z(Y100)"X530:7840#814!4"I WIN!!"#!6XX1500:XX.!911:1Q!;"IF YOU WANT TO QUIT, TAKE 0"[!>8390d!?255n!@::u!C9!E"NOW YOU TRY TO BEAT ME."!F!G15!H"GOOD LUCK!!!"!RIN1:1040!\!p:INVERSE #!IV0IV37360!IV1Ğ"0:XX  2:14 "4";( 182 "5";8 K XX11500:XXV 2:14c " "m 8390s  "THE SUM OF THE NUMBERS TAKEN" "DETERMINES THE SCORES." XX1500:XX %2:5 '"YOU: 6"; *25 /"TAXMAN: 15"!1CAN ONLY PICK A"4"NUMBER THAT HAS FACTORS LEFT"X"IN THE LIST (ONLY ONE OF THE"z"FACTORS NEEDS TO BE IN THE""LIST FOR ME).":"WHEN NONE OF THE REMAINING""NUMBERS HAS ANY FACTORS, I""GET ALL OF THEM." XX150"XX12000:XX%16:1L"THEN YOUR NUMBER AND ALL OF ITS"v&"FACTORS ARE DELETED FROM THE LIST."0XX1500:XXX2:22]" ";b1g" "l8390v"I MUST COLLECT SOMETHING EVERY""TIME, SO YOU J"IF YOU TOOK 6, ";)TXX11000:XX/^:h2:22Cr"6"I|\XX11000:XXh12:16{"I WOULD GET""1, 2, AND 3."XX1500:XX2:2"1";XX1500:XX6"2";XX1500:XX10"3 SUPPOSE YOU WANT 6"6"NUMBERS TO BE IN THE LIST."HXX1500:XXR2:1p" 1 2 3 4 5 6"z8390""YOU TAKE A NUMBER FROM THE LIST","AND I (THE TAXMAN) GET ALL THE"6"REMAINING FACTORS OF THAT NUMBER."@:"TAXMAN: 1"!XX13000:XX'1(30407<>P Vd *** INSTRUCTIONS]x e:o34,6u}75"THE APPLE PRINTS A LIST OF WHOLE""NUMBERS IN NUMERICAL ORDER (YOU""DECIDE HOW MANY).":"FOR EXAMPLE, ";%80L13:5?`"YOU: 0";Gt25Y"TAXMAN: 0";d34,16jxN16460~"HOW VERY GENEROUS OF YOU TO""FORFEIT ALL TO THE TAXMAN."NM1:IV2:7280 XX1500:XX13:25Z1T0  A$(10):  MACHINE LANGUAGE SUBROUTINEZ  TO AVOID ERROR FAILURES  SEE PAGE 136 APPLESOFT II MANUAL 768,104 769,168 770,104 771,166 772,223 773,154 774,72 775,152 776,72 777,0( FUNCTION GRAPHING PROGRAM #1S BY JOHN WHEELER MATH CONSULTANT AEA1z ELKADER, IOWA FEB. 17,1981"THE FUNCTION TO BE GRAPHED IS IN LINE 10":"CHANGE LINE 10 TO YOUR FUNCTION" A(X)1(X21)dK1:M0nF0 }  í(XX$)90(XX$)32500205úXX$;:AN$AN$XX$@ë50020Tí(AN$)050020dúH$;" ";H$;xí(AN$)150010AN$(AN$,(AN$)1)ë50020í(AN$)050020ú:AN(AN$):`C1LL:C: HNNER IS THE FIRST ONE TO 100 POINTS."L:::"HIT ANY KEY TO CONTINUE.";UAN$[aPò INPUT SUB. IN 'AN' & 'AN$'Uò LL=LENGTH OF WINDOW.Wú"? ";ZAN$""_XX(0)dþXX$:XX$H$50100ní(XX$)1350150xí(AN$)LL50020ASS."+"IF YOU PASS YOU GET THE POINTS"L"YOU GAINED IN THAT ROUND."s"IF YOU CONTINUE TO PLAY YOU MAY""GET MORE POINTS OR YOU MAY ""GET ZAPPED.""ONE ZAP--LOSE POINTS FOR THE ROUND.""DOUBLE ZAP-LOSE EVERYTHING."%"WI"THE COMPUTER WILL ROLL TWO DICE"It"THE DICE CONTAIN 2,3,4,5,6, AND"nv"ZAP. WHEN TWO NUMBERS COME UP"x"MULTIPLY THEM CORRECTLY AND GET"z"POINTS EQUAL TO THE PRODUCT."|"AFTER EACH CORRECT ANSWER YOU WILL"~"BE GIVEN A CHANCE TO P04>H  ':Y127N150(Y1)ID((5)61)RY4`X10100tN10,XN100,X{X4D14090X1D1(ND(X,D,1)),D(X,D,2)X41002(N20),60Y1D2DYp"r2000 T0LP4409::P$(P)", YOU WIN!!!"a"FINAL SCORE IS "P(1)" TO "P(2)".""CONGRADULATIONS TO "P$(P)H17HY015980,80279,Y279,8000,Y X027910 140,0X,159*140,159X,VE BEEN DOUBLE ZAPPED.";"YOU LOSE ALL YOUR POINTS AND"M"YOUR TURN."XP(P)0a595"VERY GOOD !! YOU HAVE EARNED ";MTTM"POINTS. TOTAL FOR THIS ROUND IS ";TG0LL2000:60000445P(P)P(P)TP(P)100AT IS THE PRODUCT";(0LL3:50000:AAN3:MDD2@DAM750bN"WRONG, YOU LOSE YOUR TURN."uSLL1000:60000X1000"YOU HAVE BEEN ZAPPED.""POINTS FOR THIS ROUND ARE LOST,""AND YOU LOSE YOUR TURN."S0595"YOU HA10);P$(1);20);P$(2)/:11);P(1);21);P(2)<G1480d16:"POINTS FOR THIS ROUND ARE ";T20:P$(P)", DO YOU WANT TO PASS";LL3:50000AN$"YES"900AN$"NO"4504000D1D21700D1D21650&P$(P);", WHPLE.") (20):"DO YOU WANT THE RULES";O LL3:50000:AN$"YES"İ6000:400b AN$"NO"380m X12 :15:"WHAT IS YOUR NAME, PLAYER "X" "; LL10 50000:P$(X)AN$:P(X)0  P12  :10:10);"THE SCORE IS:":5,45' 45,0,0,46,45,45,45,63,63,63 @ "D(6,6,2),P$(2),P(2)K ,X16V 6Y16m @D(Y,X,1),D(Y,X,2)u J: TX1638416570 ^Y:X,Y: h232,0:233,64 r3:0:1 |:10:" ZAP IS A MULTIPLICATION GAME" :" PLAYED BY TWO PEO54,62,36,360 36,36,52,54,54,63,63,63,63,63U 63,63,44,45,45,45,45,45,45,45w 77,73,73,73,9,54,54,54,37,36 36,36,39,37,47,60,44,60,61,44 45,45,45,45,62,63,63,63,47,45 45,45,45,46,54,54,44,36,55,54 62,62,63,63,63,63,44,45,4,45,45,45,45,45,37,638 63,63,63,63,63,37,37,37,37,37[ 37,37,37,37,37,37,61,63,63,63 63,63,63,46,45,45,45,45,45,109 73,73,73,73,73,18,54,54,54,54 62,36,36,36,36,37,37,37,37,45 45,45,53,63,63,63,47,45,45,45 53,53,53,53,54,54,Y OF THE 'OTHER' POINT"$3Z:b3d"WHAT IS YOUR LATITUDE, NORTHERLY IS +, SOUTHERLY IS -"t3n"DEGREES":D3x"MINUTES":M3"SECONDS":S36703L1R3"WHAT IS YOUR LONGITUDE, WESTERLY IS+, EASTERLY IS -"3"DEGREES":D 4"ATE THE DISTANCE BETWEEN THE TWO"2F"POINTS."::"LATITUDE AND LONGITUDE MUST BE SHOWN AS NEGATIVE VALUES WHEN THEY ARE SOUTH OR":"EAST.":3P"AFTER THE FIRST POINT (YOUR LOCATION) HAS BEEN ENTERED, SUBSEQUENT ENTRIES WILL ONLY REQUIRE THE ENTR" ********************************"S1-20:6:"(PRESS ANY KEY TO CONTINUE)"q1.:20:5:" ":20:33:A$y1/:12"THIS IS A PROGRAM TO DETERMINE THE":"BEARING FROM ANY POINT ON THE EARTH'S"!2<"SURFACE TO ANY OTHER POINT. IT WILL":"INDICK0r0 " ********************************":" *";37)"*":" *";" BEARING AND DISTANCE *"0" *"37)"*":" * BY HENRY MATTHISON *"0" *"37)"*":" * 6TH DEC. 1979"37)"*":" *"37)"*")1(   $ TMNK VF1 WT0+ YM27915105 h1400;  R)1503* "PRESS SPACE BAR TO CONTINUE."2 A$> T(Y2)E NN 768V M0d "AGAIN";n TF0v A$ K1:M0 768 (A$,1)"N"2000 1200 @X,"UNDEFINED" E768 GF11620 I"PRESS SPACE BAR TO CONTINUE." JAK5  3' X10X127913108 X1,0X1,159N Y10Y11591315_ 0,Y1279,Y1g #M0n (3} xNM279K }1600 X(NX1)S YY1SA(X) Y2A(X) X,Y2 F0 Y0Y1591500 M2791510 N,Y T(Y2777,96 "MINIMUM X VALUE";& XL> "MAXIMUM X VALUE";F XM] X1279XL(XMXL)o S279(XMXL) "AVERAGE Y VALUE TO BE PLOTTED"; Q Y179SQ 1245 K1 M0 "FAST OR SLOW (F/S)" A$ (A$,1)"S"1300 nF0 }T0  A$(10)@  MACHINE LANGUAGE PROGRAM_  TO AVOID ERROR FAILURES  SEE PAGE 136 APPLESOFT II MANUAL 768,104 769,168 770,104 771,166 772,223 773,154 774,72 775,152 776,72 =& FUNCTION GRAPHING PROGRAM #2Q BY JOHN WHEELER MATH CONSULTANT AEA1u ELKADER, IOWA FEB. 17,1981"THE FUNCTION TO BE GRAPHED IS IN LINE 10":" CHANGE LINE 10 TO YOUR FUNCTION" A(X)(3X27X6)(X2X2)dK1:M0   VF1 WT0 YM2791510( h1400.  PACE BAR TO CONTINUE." A$) T(Y2)0 N9 768A M0W "CHANGE ORIGIN";a TF0i A$u K1:M0~ 768 (A$,1)"N"1240 1200 @X,"UNDEFINED" E768 GF11620 I"PRESS SPACE BAR TO CONTINUE." JA$ TMNKX10X12791310# X1,0X1,1599 Y10Y11591315J 0,Y1279,Y1R #M0Y (3h xNM279Ks }1600 X(NX1)S YY1SA(X) Y2A(X) X,Y2 F0 Y0Y1591500 M2791510 N,Y T(Y2)1503 "PRESS SP96P "HOW FAR FROM THE LEFT SIDE OF THE SCREEN SHOULD THE ORIGIN BE (0-279)";X X1 "HOW FAR DOWN FROM THE TOP (0-159)"; Y1 "SCALE"; K1 M0 S "FAST OR SLOW (F/S)" A$ (A$,1)"S"1300 K5  3 X1RY"NOTE: GETTING THE PROBLEM RIGHT THE SECOND TIME EARNS HALF CREDIT."Y\5pf5);"1) ADDITION"p5);"2) SUBTRACTION"z5);"3) MULTIPLICATION"5);"4) DIVISION"5);"5) CURRENT SCORE"5)"6) RESTART PROGRAM" "DIV.";10);PD;20);XD;30);(XDPD)100;"%"8::K PTPAPSPMPD^*XTXAXSXMXD4PT0ĺ"TOTAL";:10::"NONE"::840>"TOTAL";10);PT;20);XT;30);(XTPT)100;"%"?0HR:::255S18TU"MENU"VW20"%" ::5PS0ĺ"SUB.";:10::"NONE"::730f"SUB.";10);PS;20);XS;30);(XSPS)100;"%"p::PM0ĺ"MULT.";:10::"NONE"::760"MULT.";10);PM;20);XM;30);(XMPM)100;"%"::PD0ĺ"DIV.";:10::"NONE"::790.UT TO PRINTER ALSO (Y/N)? ";Q$2(Q$,1)"Y"Ċ18t"SUBJ.";10);"POSSIBLE";20);"SCORE";30);"PERCENTAGE""----------------------------------------"PA0ĺ"ADD.";:10::"NONE"::700"ADD.";10);PA;20);XA;30);(XAPA)100; &AT1T2P1:600= 0"THAT'S NOT RIGHT. NOW TRY AGAIN."U :T1;" + ";T2;" = ";\ DAn NAT1T2P.5z XPAPA1 bXAXAP lP0ĺ"THAT WASN'T TOO GOOD, YOU NEED SOME MOREPRACTICE.":640 v"RESPONSE #";1P;" WAS CORRECT." "OUTP A AT1T2P.5$ PSPS10 XSXSPs P0ĺ"BOTH OF THEM WERE WRONG, YOU NEED MORE PRACTICE.":490 "YOUR ANSWER WAS CORRECT ON TRY #";1P;"!"   **ADDITION** T1((1)11) T2((1)11) T1;" + ";T2;" = "; ANSES WERE WRONG!":330= @"YOU WERE RIGHT ON TRY #";1P;"!"C J[ T **SUBTRTACTION**o ^T1((1)10)1 hT2((1)(T11)) rT1T2350 |T1;" - ";T2;" = "; A AT1T2P1:450 "COME ON NOW, WHAT IS "; T1;" - ";T2;" = "; T2((1)10)1% A((1)11)1 T1T2A9 A0Q T1;" / ";T2;" = ";X An AT1T2P1:290 "NOPE, THAT'S NOT RIGHT. TRY AGAIN." T1;" / ";T2;" = "; A AT1T2P.5 "PDPD1 ,XDXDP 6P0ĺ"BOTH OF THOSE RESPOA xP.5 }AT1T2P0) PMPM15 XMXMP] PM IS POSSIBLE FOR MULTIPLICATION XM IS POINTS FOR MULTIPLICATION P0ĺ"BOTH ANSWERS YOU ENTERED WERE WRONG!":190 "YOUR ANSWER WAS RIGHT ON TRY #";1P;"!" **DIVISION**M 850 MATH+ BY IAN PILCHER8 2/2/82A(850Z2 **MULTIPLICATION**l<T1((1)11)~FT2((1)11)PT1;" * ";T2;" = ";QAZAT1T2P1:130d:"WOOPS! NOT TOO GOOD, BETTER TRY AGAIN."nT1;" * ";T2;" = "; o 5);" KILOMETRES"8822038DDM60S3600D8RD57.29578J8AG(X)(X(XX1))1.5708C7DHG((L1)(L3)(L1)(L3)(L))I7N7X"DISTANCE BETWEEN YOUR LOCATION AND OTHER IS ";(H60180P.5);" NAUTICAL MILES"7b7l"OR ";(H601.1508180P.5);" STATUTE MILES"7v8"OR ";(H601.852180P.L.0000000016A(L)E(L3))6F(A)B6BE(L)(L1F)(F)N6CA(B)^6(L)1500g6520w6(C)15406CCP:5406(C)15106CC2P6CC180P6&60"THE TRUE BEARING ANGLE OF THE OTHER LOCATION IS ";(C.5)7:ION, WESTERLY IS +, EASTERLY IS -"75""DEGREES":DI5,"MINUTES":M[56"SECONDS":Sd5@670m5JL4R5TE(X)1(X)5^A(X)(X)1.57085hP3.1415926545rLL2L45|LP4105LP42054305LL2P:4305LL2P 6L0MINUTES":M4"SECONDS":S&4670/4L2R}4"WHAT IS LATITUDE OF OTHER LOCATION, NORTHERLY IS +, SOUTHERLY IS -"4"DEGREES":D4"MINUTES":M4"SECONDS":S46704L3R:L30L3.000000001%5"WHAT IS LONGITUDE OF OTHER LOCAT2 N(C10):Q:XP:Y18' N2200 900N NC(C10)10:XP6:900f 3000:C(RE)310| 0:1045:1043:P I11000:I:10 6X1X:Y1Y:1042 ;YY1:XX1 @2000:Z1500:Z:0:M010:Y,Y7X6M:M:Q ^120 N1N4NZ1:(16384)1271304 |ZZ1:1(Z100)121,122R O(16384)144:0:1028] O165q 3000:CRE:174 21:27:" ";C:C0174 "NO MINUS SIGNS PLEASE" "...TRY AGAIN":2000:120 C100180:"TOO MUCH";:172 "TOO MUCH";:17S) "S345E #BBB:AAB:XP:Y0:N(A10):QN:900:Q:70M -Y0x FXP6:NA(A10)10:900:Y8:NB:900 dXP:S11020,1022,1024,1026,1028 nP,P1116 s:"YES, WHAT IS YOUR ANSWER?" xXP6:Y18:I0 yIQI:I:1028:Z0 zZ< A$(54)bA$"4202611820335037330:4045645036736107427907268429420420": FIRST HAPPY FACE l4000} :P02412A(9(10)):B(9(10))S(SL(4)):Q(13(14))1:QQ(Q9):QLQ30Q:LQQ:S1BA34 DA:AB:BD !S(     RE PRACTICE!" 6& :"DO YOU WANT TO TRY AGAIN?"A+ "";L$_0 (L$,1)"Y"ė::6::70 ::"OKAY, SEE YOU LATER, ";N$;"." :6M(1)7N(1)6O(1)6G((1)9)2H((1)9)2dJL ";NQ;" QUESTIONS, ";N$;"."" P "YOU GOT ";QR;" RIGHT AND ";QW;" WRONG."V u QRNQĺ"PERFECT SCORE!!!" QRNQ1.0QRNQ.90ĺ"EXCELLENT WORK! ALMOST ALL RIGHT!"  QRNQ.75ĺ"GOOD TRY, ";N$;", BUT I THINK YOU":"COULD USE A LITTLE MO2010. A$(M);" THINKS YOU'RE WRONG!":2010C "NOT IT!":2010o "WRONG. YOU MUST NOT BE A COMPUTER!!!" T1T0:P13500:: QWQW1 T1 :"LET'S TRY AGAIN.":P13500:::6::300 P13500:  :12 "THAT'S AL":1010( "RIGHT! GOOD WORK, ";N$;"."C T1T0:P13500::^ T1T0:P13500::j QRQR1z P13500:  :15:R(((1)5)1):R2001,2002,2003,2004,2005 "SORRY, ";N$;". THAT'S NOT IT.":2010 "NO. TRY AGAIN, ";N$;".":GHİ2000 ZNQİ3000# 210Y :15:R(((1)5)1):R1001,1002,1003,1004,1005 "I'M PROUD OF YOU, ";N$;"!":1010 "YOU'VE BEEN STUDYING! WOW!":1010 "I THINK YOU'RE SMART ENOUGH TO MARRY ME!":1010 A$(M);" SAYS YOU'RE RIGHT!!!OW MANY QUESTIONS TODAY, ";N$;"?", "";NQ6 ZZ1? :8I 4000r ,"IF ";A$(M);" HAD ";G;" ";B$(N);","x 6 @"AND ";C$(O);" GAVE ";H;" MORE ";B$(N) J T"HOW MANY WOULD ";A$(M);" HAVE IN ALL?" ^ h"";A rAGHİ1000 |AESTOR","JOSHUA","MANESSA","COOKIE","EDELWEISS","ELIOT","PEACE" "KITTENS","TENNIS BALLS","COOKIES","PENNIES","MICE","SEEDS" "PAULA","BOBBY","TAMMY","HEATHER","TONY","RICHIE" "HI! I'M ADDLE APPLE. WHAT'S YOUR NAME?" "";N$:::! "H# WORD PROBLEMS: ADDING TO 200::255811e(">>>>> ADDLE APPLE WORD PROBLEMS <<<<<"2:" ADDING TO TWENTY"<P12500:F:12dJ06nA$(J)sxJ05B$(J)J05C$(J)> "N    E"K(16384))K12710407$16368,0@.850F8LB:5)"7) QUIT"::^"PLEASE PRESS THE NUMBER CORRESPONDING TOYOUR CHOICE. ";fO$rO(O$)O0850O7850T10:T20:A0:P0O500,340,50,200,650,1090,1080231"PRESS ANY KEY TO CONTINUETERS")J8:"(6)SQ.FEET-SQ.KILOMETERS"HO8:"(7)SQ.FEET-SQ.METERS"nT8:"(8)SQ.INCHES-SQ.CENTIMETERS"Y8:"(9)SQ.INCHES-SQ.MILLIMETERS"^10:"AREA-(METRIC TO U.S.)"_10:"--------------------"c8:"(10)SQ.MILLIMETERS-SQ.INCHES"#hC(N): READS DATA TABLE"B,10:"AREA-(U.S.TO METRIC)"b-10:"--------------------"18:"(1)SQ.MILES-SQ.KILOMETERS"68:"(2)SQ.MILES-HECTARES";8:"(3)SQ.MILES-SQ.METERS"@8:"(4)ACRES-SQ.KILOMETERS"E8:"(5)SQ.YARDS-SQ.MSS RETURN FOR INDEX";:A$:> C(18):FOR CONVERSION FACTORS[ :DATA TABLE FOR FACTORS 2.59,259,2.6E+6,.0041,.836,9.0E-8 .093,6.45,645.2,.0016,.155,10.76,1.08E+7 1.196,247.1,3.86E-7,.0039,.386 :INDEX LOOP FOR DATA READ N118 ENTER"4 "ON REQUEST.YOU WILL THEN BE ASKED FOR"c "THE VALUE TO BE CONVERTED.TO STOP ENTER" "777,AND FOR ACCESS TO THE INDEX ENTER" "888 AT ANY INPUT LEVEL.THE VALUE REQUEST" "IS REPEATED UNLESS DIRECTED OTHERWISE." 24:10:"PREH,WEIGHT"5 "VOLUME,TEMPERATURE AND A COMPILATION"] "OF MEASUREMENTS FOR KITCHEN USE." :::8:"HOW THE PROGRAM OPERATES" 8:"------------------------" 2:"ON THE NEXT PAGE IS A LIST OF MEASURE-" "MENTS.NOTE THE INDEX NUMBER AND,SANFRANCISCO,CA.1979! A:15009 d14:"INTRODUCTION"Q i14:"------------" n2:"THIS IS ONE OF A SERIES OF PROGRAMS FOR" s"THE CONVERSION OF MEASUREMENTS TO AND" x"FROM THE METRIC SYSTEM.OTHERS IN THE" }"SERIES INVOLVE UNITS OF LENGTOF THE PROGRAMMING TECHNIQUES USED HAS BEEN ADAPTED AND MODIFIED -:FROM A PROGRAM IN "SOME COMMON BASIC PROGRAMS",BY POOLE & BORCHERS,2ED.1978 2:PERMISSION FOR USE BY PUBLISHER 7:ADADM OSBORNE ASSOC.INC.BERKLEY,CA <:PREPARED BY MAX J.NAREFF:***********************=:***TABLE OF CONTENTS***\ :***INTRODUCTION.100-190*:***DATA ENTRY & LOOP.190-230*:***INDEX OF UNITS.300-400*:***COMPUTATION SETUP.415-530*:***ANSWERS*#:***********************@ (:ONE      :5000 ; N TRANSLATED TO APPLESOFT 1979 BILL O'RYANAETURN.".:::5:"1 ADDITION ........ +"Q:5:"2 & SUBTRACTION ... -"t:5:"3 & MULTIPLICATION *":5:"4 & DIVISION ...... /"::SIGN$:SL((SI$)):SL0SL5ī5100::"THAT WASN'T AN INTEGER FROM 1 TO 4.":I11100:I :16289,0:936;9:10:"**** COLOR MATH ****"l11:3:"COPYRIGHT 1978 APPLE COMPUTER INC."13:15:"PROGRAM BY"15:15:"M.MARKKULA"I11300:I:"PLEASE CHOOSE FROM THE MENU, ENTER AN INTEGER FROM 1 TO 4, AND TAP RLE(14(15))1sXP:Y27:Z1523:Z1((A$,Z,1))48X:Z1,Z1((A$,Z1,1))48((A$,Z2,1))48Y:Z:Z150:M(16336)(16336)(16336):Z:: RASPBERRY REASBSB:S1REAB((S3)BB(S2)): CALCULATE CORRECT ANSWER±GY,Y1X:X1,X4Y:Y1,Y3X4:X2,X4Y3:X2,Y4:X2,Y6:A$"4202611820335037330:4045645036736107427907268429420420":1044: SAD FACEA$"4202611820335037330:4015315615915026426826127727268429":(7);(7);(7);: HAPPY FACE AND CHORTY,Y2X4:, X1,X4Y:Y1,Y6X4:k Y,Y6X:X1,X3Y:X1,X3Y3:X1,X3Y6:Y,Y6X4:| Y4,Y7X: X1,X3Y3:Y1,Y5X2:: PLUS X1,X3Y3: Z04:XZ,Y1Z:X4Z,Y1Z:Z:X,X4Y3:X2,Y1:X2,Y5:7N8920 1016:0[ N11000,1002,1004,1006,1008,1010,1012,1014,1016,1018,1020,1022d Q:w X1,X3Y3: Y,Y6X4: Y1,Y2X:X4,Y4: Y2,Y4X:X1,Y4: Y,Y3X:X1,X3Y3:Y,Y6X4: Y1,Y2X4:X,Y4: TO MILLIMETERS"/"(11)KILOMETERS TO MILES"N"(12)KILOMETERS TO YARDS"l"(13)KILOMETERS TO FEET""(14)METERS TO MILES""(15)METERS TO YARDS""(16)METERS TO FEET" "(17)METERS TO INCHES""(18)CENTIMETERS TO FEET" "(1TO KILOMETERS"( "(2)MILES TO METERS"F 0"(3)YARDS TO KILOMETERS"` D"(4)YARDS TO METERS"} X"(5)FEET TO KILOMETERS" l"(6)FEET TO METERS" "(7)FEET TO CENTIMETERS" "(8)INCHES TO METERS" "(9)INCHES TO CENTIMETERS""(10)INCHES48,30.48,.0254,2.54,25.4,.6214D 1093.6,3280.8,.0006,1.094,3.281b 39.37,.0328,.3937,.0394 .6214,1093.6,3280.8,6.2E-4,1.094 3.281,39.37,.033,.394,.0394 I120:INDEX OF LOOP C(I):READS DATA THRU LOOP   "(1)MILES "& V"A REQUEST FOR THE VALUE TO BE"P W"CONVERTED WILL THEN APPEAR.PROCEED"} Z20:"PRESS ANY KEY FOR THE LIST";:A$: C(20):SETS DIM.FOR NUMBER OF CONVERSIONS :CONVERSION FACTORS TO BE USED 1.609,1609.35,.0091,.9144,.00031 .30MENTS", ("TO AND FROM THE METRIC SYSTEM."S 210:5:"HOW THE PROGRAM OPERATES"v 75:"------------------------" <:"THE NEXT COMMAND WILL PRESENT THE" F"LIST OF AVAILABLE MEASUREMENTS." P"NOTE THE NUMBER AND ENTER WHEN" U"CALLED FOR. & LOOP SETUP LINES 0-90,200-270I :LIST OF MEASUREMENTS LINES 510-800k :PROGRAM DRIVE LINES 820-850w :2000 10:"METRICS....LENGTH" 10:"-----------------" "THIS IS ONE OF A SERIES OF PROGRAMS" "FOR THE CONVERSION OF MEASURE W:ONE OF THE PROGRAM TECHNIQUES USED HAS BEEN ADAPTED AND MODIFIED FROM THE:BOOK'SOME COMMON BASIC PROGRAMS'.:BY POOLE & BORCHERS.:PERMISSION FOR USE BY PUBLISHER:ADAM OSBORNE & ASSOC.INC.,BERKLEY,CA. :INTROD.& DATA     "METRICS FOR AREA".20:"PRESS ESC TO END"Y:"<>"p"(16384)271600,756:(16384)3215006:16386,0:@:A6:I;" SQ.METES=";R;" SQ.MILES"(P480Ox:6:I;" HECTARES=";R;" SQ.MILES"X480:6:I;" SQ.KILOMETERS=";R;" SQ.MILES"4805:"METRICS AREA":"BY MAX NAREFF""DATE: 7-79"::"THIS PROGRAM DOES CONVERSIONS TO"6:I;" SQ.CENTIMETERS=";R;" SQ.INCHES"0V480X~:6:I;" SQ.METERS=";R;" SQ.FEET 2a480:6:I;" SQ.KILOMETERS=";R;" SQ.FEET"480:6:I;" SQ.METERS=";R;" SQ.YARDS"480:6:I;" SQ.KILOMETERS=";R;" ACRES"480F:;" SQ.FEET=";R;" SQ.KILOMETERS"(\480L:6:I;" SQ.FEET=";R;" METERS"U480:6:I;" SQ.INCHES=";R;" SQ.CENTIMETERS"480:6:I;" SQ.INCHES=";R;" SQ.MILLIMETERS"480:6:I;" SQ.MILLIMETES=";R;" SQ.INCHES"$480'L::6:I;" SQ.MILES=";R;" SQ.KILOMETERS"/b480V:6:I;" SQ.MILES=";R;" HECTARES"_480:6:I;" SQ.MILES=";R;" SQ.METERS"480:6:I;" ACRES=";R;" SQ.KILOMETERS"480 :6:I;" SQ.YARDS=";R;" SQ.METEERS"*480R:6:ID"; II777Ā&I888300E:EQUATION FOR COMPUTATIONpRIC(N):C(N) OBTAINED FROM DATA LOOP :DIRECT PROGRAM TO PROPER UNIT FOR PRINTOUTN600,650,700,750,800,850,900,950,1000,1050,1100,1150,1200,1250,1300,1350,1400,1450&XMETERS-SQ.MILES"D24:5:"NOTE INDEX NUMBER.PRESS RETURN";:A$:g6:"TO END PROGRAM ENTER 777":4:"FOR INDEX ACCESS ENTER 888":3:"ENTER UNIT IDENTIFICATION NUMBER";NN777ĀN888300:10:"VALUE TO BE CONVERTE8:"(11)SQ.CENTIMETERS-SQ.INCHES"Cm8:"(12)SQ.METERS-SQ.FEET"gr8:"(13)SQ.KILOMETERS-SQ.FEET"w8:"(14)SQ.METERS-SQ.YARDS"|8:"(15)SQ.KILOMETERS-ACRES"8:"(16)SQ.METERS-SQ.MILES"8:"(17)HECTARES-SQ.MILES"8:"(18)SQ.KILOARRAYN138(C(N):READS ARRAY.O:INDEX(LIST)OF MEASUREMENTSn5:"VOLUME-U.S.TO METRIC"5:"--------------------""(1)CUBIC YARDS TO CUBIC METERS""(2)CUBIC FEET TO CUBIC METERS""(3)CUBIC INCHES TO CUBIC METERS".0038,473.18,550.61,946.36,1101.23j3785.43,29.574,.4732,.5506,.9463,1.1012,3.785,29.57,473.167,946.331.308,35.31,61023,28.38,264.17,.0021,.0018,.0011,.0009,.0003,.03382.114,1.182,1.057,.908,.227,.0338,.0021,.0011:INDEX LOOP FOR DATA AND ENTER":" "ON REQUEST.":R "SUBSEQUENTLY THE USER ENTERS THE VALUE":l "TO BE CONVERTED.": 10);"PRESS RETURN FOR INDEX";:A$: C(38):DIMS CONVERSION FACTORS :DATA TABLE FOR CONVERSON FACTORS".7645,.0283,.00002,.0353,12000** 10:"HOW THE PROGRAM OPERATES"O 10:"-------------------------"| 5:"AN INDEX OF MEASUREMENTS IS LISTED" :"ON TWO PAGES.THE FIRST IS U.S.-METRIC.": "THE SECOND IS METRIC-U.S..SELECT THE": "DESIRED MEASUREMENT BY NUMBER.,BERKLEY,CA.A n:PREPARED BY MAX J.NAREFF,SANFRANCISCO,CA.1979] x:**TABLE OF CONTENTS**z }:*INTRODUCTION..50-200* :*DATA AND LOOP SETUP* :*LIST OF MEASUREMENTS...500-700* :*PROGRAM DRIVE..710-900* :*ANSWER PRINTOUT SETUP..1000-PILATION,KITCHEN METRICS."X U:ONE OF THE PROGRAMMING TECHNIQUES USED HAS BEEN ADAPTED Z:AND MODIFIED FROM THE BOOK"SOME COMMON BASIC PROGRAMS. _:AUTHORED BY POOLE & BORCHERS,1978 d:PERMISSION FOR USE BY PUBLISHER i:ADAM OSBORNE ASSOC.INC21 :16368,0+ 212:"INTRODUCTION"D 712:"-------------"r <5:"THIS IS ONE OF A SERIES OF PROGRAMS" A"FOR THE CONVERSION TO AND FROM THE" F"METRIC SYSTEM.OTHER PROGRAMS DEAL WITH" K"LENGTH,AREA,WEIGHT,TEMPERATURE AND A" P"COM:5:"METRIC VOLUME"5:"BY MAX J. NAREFF"G"DATE: 7-79"w::"THIS PROGRAM DOES METRIC CONVERSIONS" "FOR VOLUME" 20:"PRESS ESC TO END" :"<>" (16384)2720000 756:(16384)3     :"PRESS ESC TO END"? :"<>"V(16384)272100t 756:(16384)322000*:16368,0:4:A" INCHES"v8326:I;"MILLIMETERS ";R;" INCHES"?832p:PREPARED BY MAX J.NAREFF,SAN FRANCISCO,CA.5:"METRICS LENGTH":"BY MAX J. NAREFF""DATE: 7-79"::"THIS PROGRAMS DOES METRIC CONVERSIONS""FOR LENGTH"20KILOMETERS ";R;"FEET"J832<r:I;"METERS ";R;" MILES"E|832c:I;"METERS ";R;" YARDS"l832:I;"METERS ";R;" FEET"832:I;"METERS ";R;" INCHES"832::I;"CENTIMETERS ";R;" FEET"D832 l:I;"CENTIMETERS ";R;T ";R;" CENTIMETERS"832<F:I;"INCHES ";R;" METERS"EP832ix:I;"INCHES ";R;" CENTIMETERS"r832:I;"INCHES ";R;" MILLIMETERS"832:I;"KILOMETERS ";R;" MILES"832:I;"KILOMETERS ";R;" YARDS"832@:I;"TERS")832:RETURNS FOR ANOTHER INPUTG:I;"MILES ";R;" METERS"P$832rL:I;"YARDS ";R;" KILOMETERS"{V832~:I;"YARDS ";R;" METERS"832:I;"FEET ";R;" KILOMETERS"832:I;"FEET ";R;" METERS"832:I;"FEE;9N>N777Ā$?N888510*@HC"VALUE TO BE CONVERTED";OHI\JI777ĀkKI888510xMRIC(N)RN1000,1050,1100,1150,1200,1250,1300,1350,1400,1450,1500,1550,1600,1650,1700,1750,1800,1850,1900,1950:I;"MILES ";R;" KILOME9)CENTIMETERS TO INCHES"9*"(20)MILLIMETERS TO INCHES"o/22:"NOTE NUMBER,BUT FIRST PRESS RETURN.";:A$:4"TO END ENTER 777 AT ANY INPUT LEVEL"6:"TO RETURN TO LIST ENTER 888 AT ANY INPUT"7:"ENTER LIST NUMBER OF UNIT TO BE CONVERTED"" LITERS=";R;" PINTS(LIQ)"#b820J:4:I;" LITERS=";R;" PINTS(DRY)"S820{@:4:I;" LITERS=";R;" QUARTS(LIQ)"J820r:4:I;" LITERS=";R;" QUARTS(DRY)"|820(#:4:I;" LITERS=";R;" GALLONS(LIQ)"2#820 Z#:4:I;" MILLILITER8209:2:I;" CUBIC CENTIMETERS=";R;" QUARTS(LIQ)"B820u:2:I;" CUBIC CENTIMETERS=";R;" QUARTS(DRY)"~820p:4:I;" CUBIC CENTIMETERS=";R;" GALLONS"z820:2:I;" CUBIC CENTIMETERS=";R;" FLUID OUNCES"820X:4:I;IC METERS=";R;" CUBIC INCHES"& 820P :4:I;" CUBIC METERS=";R;" BUSHELS"Y 820 :4:I;" CUBIC METERS=";R" GALLONS(LIQ)" 820:2:I;" CUBIC CENTIMETERS=";R;" PINTS(LIQ)"820:2:I;" CUBIC CENTIMETERS=";R;" PINTS(DRY)" MILLILITERS"820B::4:I;" PINTS(LIQ)=";R;" MILLILITERS"KD820xl:4:I;" QUARTS(LIQ)=";R;" MILLILITERS"v820:4:I;" CUBIC METERS=";R;" CUBIC YARDS"820:4:I;" CUBIC METERS=";R;" CUBIC FEET"820:4:I;" CUBINTS(LIQ)=";R;" LITERS" 820G@:4:I;" PINTS(DRY)=";R;" LITERS"PJ820xr:4:I;" QUARTS(LIQ)=";R;" LITERS"|820:4:I;" QUARTS(DRY)=";R;" LITERS"820:4:I;" GALLONS=";R;" LITERS"820 :4:I;" FLUID OUNCES=";R;"820:F:2:I;" QUARTS(LIQ)=";R;" CUBIC CENTIMETERS"CP820vx:2:I;" QUARTS(DRY)=";R;" CUBIC CENTIMETERS"820:4:I;" GALLONS=";R;" CUBIC CENTIMETERS"820:I;" FLUID OUNCES=";R;"CUBIC CENTIMETERS"820:4:I;" PV820+j:*DATA AND LOOP SETUP..200-300*U~:4:I;" BUSHELS=";R;" CUBIC METERS"^820:4:I;" GALLONS=";R;" CUBIC METERS"820:2:I;" PINTS(LIQ)=";R;" CUBIC CENTIMETERS"820:2:I;" PINTS(DRY)=";R;" CUBIC CENTIMETERS"050,3000,3050,4000,4050,5000,5050,6000,6050,7000,7050,8000,8050,9000,9050,10000,10050,11000,11050:4:I;" CUBIC YARDS=";R;" CUBIC METERS"820:4:I;" CUBIC FEET=";R;" CUBIC METERS"$820L:4:I;" CUBIC INCHES=";R;" CUBIC METERS"E TO BE CONVERTED";MI'RI777Ā6WI888500c\:EQUATION FOR CONVERSION OF INPUT VALUEaRIC(N):C(N)OBTAINED FROM ARRAY LOOPafN1000,1050,1100,1150,1200,1250,1300,1350,1400,1450,1500,1550,1600,1650,1700,1750,1800,1850,1900,1950,2000,2DEX NUMBER".10:24:"PRESS RETURN";:A$:4 F%:PROGRAM ENDl*10:"TO END PROGRAM ENTER 777":/10:"FOR INDEX ENTER 888":4:4);"ENTER THE INDEX NUMBER OF THE DESIRED CONVERSION";9N>N777ĀCN888500H:10:"VALUTERS TO PINTS(DRY)"4"(33)LITERS TO QUARTS(LIQ)"U"(34)LITERS TO QUARTS(DRY)"w"(35)LITERS TO GALLONS(LIQ)""(36)MILLILITERS TO FLUID OUNCES""(37)MILLILITERS TO PINTS(LIQ)""(38)MILLILITERS TO QUARTS(LIQ)" 5:"SELECT THE INCUBIC CENTIMETERS TO PINTS(DRY)"L"(27)CUBIC CENTIMETERS TO QUARTS(LIQ)"x"(28)CUBIC CENTIMETERS TO QUARTS(LIQ)""(29)CUBIC CENTIMETERS TO GALLONS(LIQ)""(30)CUBIC CENTIMETERS TO FLUID OUNCES""(31)LITERS TO PINTS(LIQ)""(32)LI---------"1l"(20)CUBIC METERS TO CUBIC YARDS"Wq"(21)CUBIC METERS TO CUBIC FEET"v"(22)CUBIC METERS TO CUBIC INCHES"{"(23)CUBIC METERS TO BUSHELS""(24)CUBIC METERS TO GALLONS(LIQ)""(25)CUBIC CENTIMETERS TO PINTS(LIQ)" "(26)LLILITERS".S"(18)PINTS(LIQ)TO MILLILITERS"SX"(19)QUARTS(LIQ)TO MILLILITERS"]3:"IF THE CONVERSION WANTED IS ON THIS PAGE,NOTE ITS NUMBER,BUT WAIT UNTIL IT IS ASKED FOR.PRESS RETURN";:A$:g5:"VOLUME-METRIC TO U.S." h5:"-------------IQ)TO CUBIC CENTIMETES"D0"(11)FLUID OUNCES TO CUBIC CENTIMETERS"c5"(12)PINTS(LIQ)TO LITERS":"(13)PINTS(DRY)TO LITERS"?"(14)QUARTS(LIQ)TO LITERS"D"(15)QUARTS(DRY)TO LITERS"I"(16)GALLONS(LIQ)TO LITERS" N"(17)FLUID OUNCES TO MI! "(4)BUSHELS TO CUBUC METERS"G"(5)GALLONS(LIQ)TO CUBIC METERS"p"(6)PINTS(LIQ)TO CUBIC CENTIMETERS""(7)PINTS(DRY)TO CUBIC CENTIMETERS"!"(8)QUARTS(LIQ)TO CUBIC CENTIMETES"&"(9)QUARTS(DRY)TO CUBIC CENTIMETERS"+"(10)GALLONS(L:5:I;"SQ.FEET=";R;" SQ.CENTIMETERS".740Z:5:I;"SQ.YARDS=";R;" SQ.CENTIMETERS"c740vR(I32)(59):5:I;"FAHRENHEIT=";R;" CELSIUS"740:R((95)I)32D:5:I;"CELSIUS=";R;" FAHRENHEIT"N740l5:"METRICS KITCH740*:10:I;"POUNDS=";R;" KILOGRAMS"3740Y:10:I;"KILOGRAMS=";R;" POUNDS"b740:10:I;"INCHES=";R;" CENTIMETERS"740@:10:I;"CENTIMETERS=";R;" INCHES"J740r:5:I;"SQ.INCHES=";R;" SQ.CENTIMETERS"|740%MILLILITERS"740<:10:I;"PINTS=";R;" MILLILITERS"E740q:5:I;"QUARTS=";R;"CUBIC CENTIMETERS"z740:10:I;"GALLONS=";R;" LITERS"740F:10:I;"LITERS=";R;" GALLONS"P740x:10:I;"OUNCES(DRY)=";R;" GRAMS"50,1200,1250,1300,1350,1400,1450,1500,1550,1600,1650,1700,1750,1800,1850s:10:I;"TEASPOONS=";R;" MILLILITERS"|740:10:I;"TABLESPOONS=";R;" MILLILITERS"$740L:10:I;"OUNCES(LIQ)=";R;" MILLILITERS"V740 ~::I;"CUPS=";R;" NN777ĀN888500A:5:"VALUE TO BE CONVERTED";HIUI777ĀdI888500:EQUATION FOR CONVERSION OF INPUT VALUE TO ANSWER RIC(N):DIRECT CALCULATION TO TO PROPER NAME FOR ANSWER PRINTOUTH N1000,1050,1100,10OR NEXT PAGE">g24:10:"PRESS RETURN FOR NEXT PAGE";:A$:T: TO END PROGRAMt"TO END PROGRAM ENTER 777": TO RETURN TO INDEX OF MEASUREMENTS:"FOR ACCESS TO INDEX ENTER 888":3:"ENTER INDEX NUMBER OF DESIRED CONVERSION";NTIMETERS TO INCHES";I"(14)SQ.INCHES TO SQ.CENTIMETERS"`N"(15)SQ.FEET TO SQ.CENTIMETERS"S"(16)SQ.YARDS TO SQ.CENTIMETERS"X"(17)FAHRENHEIT TO CELSIUS"]"(18)CELSIUS TO FAHRENHEIT": b"NOTE INDEX NUMBER OF DESIRED CALCULATION.WAIT F5)PINTS TO MILLILITERS"=!"(6)QUARTS TO CUBIC CENTIMETERS"Y&"(7)GALLONS TO LITERS"u+"(8)LITERS TO GALLONS"0"(9)OUNCES(DRY) TO GRAMS"5"(10)POUNDS TO KILOGRAMS":"(11)KILOGRAMS TO POUNDS"?"(12)INCHES TO CENTIMETERS"D"(13)CE ) :LIST OR INDEX OF MEASUREMENTS/ N 10:"KITCHEN-AID METRICS"m 10:"-------------------" "(1)TEASPOONS TO MILLILITERS" "(2)TABLESPOONS TO MILLILITERS" "(3)OUNCES(LIQ) TO MILLILITERS" "(4)CUPS TO MILLILITERS""(OR NEXT PAGE";:A$:: C(18):DIM.FOR CONVESION FACTORSb :DATA TABLE FOR CONVERSION FACTORS 5,15,29.57,236,473.17,946.36,3.785 .227,28.35,.4536,2.205,2.54,.3937 6.452,929.03,8361.3 :INDEX LOOP FOR DATA READ N116 C(N) LIST OF MEASUREMENTS IS PRESENTED"O P"ON THE NEXT PAGE.NOTE THE INDEX NUMB"y U"ER.ENTER THAT NUMBER WHEN QUERIED." Z"THEN ENTER THE VALUE TO BE CONVERTED." _5:"777 ENDS THE PROGRAM" `5:"888 RETURNS THE LIST" d24:8:"PRESS RETURN FOMMON MEASUREMENTS USED IN THE"N :"KITCHEN ARE PRESENTED.FRACTIONAL VALUES"~ ;"MAY BE ENTERED.FOR A MORE EXTENSIVE LIST" <"CONSULT THE OTHER PROGRAMS IN THE LIBRARY" F8:"HOW THE PROGRAM OPERATES" H8:"------------------------"# K3:"AED BY MAX J.NAREFF,SAN FRANCISCO,CA1979*4 $:1900L (16:"INTRODUCTION"e -15:"-------------" 25:"THIS IS ONE OF A SERIES OF PROGRAMS" 7"FOR THE CONVERSION OF MEASUREMENTS TO" 8"AND FROM THE METRIC SYSTEM.HERE SOME OF" 9"THE MORE C'**************************H ***TABLE OF CONTENTS*******i*INTRODUCTION..LINES 0-200**DATA AND LOOP SETUPS..200-260**INDEX OF MEASUREMENTS..500-615**PROGRAM DRIVE..700-800**ANSWER PRINTOUTS..1000-END*( #PREPAR     S=";R;" FLUID OUNCES" d#820J ':4:I;" MILLILITERS=";R;" PINTS(LIQ)"S '820 B':4:I;" MILLILITERS=";R;" QUARTS(LIQ)" L'820 N:AUNDS"!0"(18)MILLIGAMS-GRAINS"TN24:"SELECT INDEX NUMBER.PRESS RETURN";:A$:xX6);"TO END PROGRAM ENTER 777"b:6:"FOR INDEX ENTER 888"l:5:"ENTER THE SELECTED INDEX NUMBER";vN{N777ĀN888450 :10:"VALUE TO BE"3:"WEIGHT..METRIC TO U.S.":"(10)GRAMS-OUNCES"R "(11)GRAMS-POUNDS"n"(12)KILOGRAMS-OUNCES""(13)KILOGRAMS-POUNDS""(14)METRIC TONS-TONS(SHORT)"!"(15)METRIC TONS-POUNDS"&"(16)MILLIGRAMS-OUNCES"+"(17)MILLIGRAMS-POOUNCES-GRAMS"("(2)OUNCES-KILOGRAMS"D"(3)OUNCES-MILLIGRAMS"`"(4)GRAINS-MILLIGRAMS"w"(5)POUNDS-GRAMS""(6)POUNDS-KILOGRAMS""(7)POUNDS-METRIC TONS""(8)POUNDS-MILLIGRAMS""(9)TONS(SHORT)-METRIC TONS"PAUSE11000:E FOR FACTORS628.35,.0284,2835,64.80,453.59,.4536^4.5E-4,453,.9072,.0353,.0022,35.272.205,1.102,2204.6,3.5E-5,2.2E-6,.0154:INDEX LOOP FOR DATA READN118C(N):READ DATA TABLE3:"WEIGHT..U.S.TO METRIC" "(1)c:6);"ENTER CELSIUS VALUE";&hI<j:TO END OR INDEXImI777ĀXrI888190wR((95)I)32:EQUATION FOR CONVERSION|:I;"DEGREES CELSIUS=";R;"DEGREES FAHRENHEIT"355C(18):FOR THE 18 CONVERSION FACTORS :DATA TABL FAHRENHEIT VALUE";@I0A:TO END OR INDEX=BI777ĀLDI888190xER(I32)(59):EQUATION FOR CONVERSIONJ:I;"DEGREES FAHRENHEIT=";R;"DEGREES CELSIUS"T315Y^10:"TO END PROGRAM ENTER 777"`10:"FOR INDEX ENTER 888"5:"SELECT DESIRED MEASUREMENT BY LETTER"H:COMMAND DRIVE FOR INDEXk::10:"ENTER INDEX LETTER";qyA$A$"A"300A$"B"345"A$"C"400,15);"TO END PROGRAM ENTER 777"65);"FOR INDEX ENTER 888";:"ENTERPUT"4 "THE PROGRAM CAN BE STOPPED OR THE INDEX"E "RECALLED."e 10);"PRESS RETURN";:A$:k  6:17:"INDEX" 17:"-----" :10)"(A)FAHRENHEIT TO CELSIUS" :10)"(B)CELSIUS TO FAHRENHEIT" :10)"(C)WEIGHT" :* FIRST PAGE IS A GENERAL INDEX.SELECT"S "THE UNIT NEEDED.ENTER THE APPROPRIATE" "LETTER.(C)PRESENTS THE MORE DETAILED" "INDEX OF WEIGHT UNITS.WAIT FOR THE" "REQUEST FOR INDEX NUMBER AND THEN FOR" "THE VALUE TO BE CONVERTED.AT ANY INx"SYSTEM.THIS ONE DEALS WITH TEMPERATURE"W }"AND WEIGHT CONVERSIONS.OTHERS IN THE" "SERIES INVOLVE LENGTH,AREA,VOLUME AND" "A COMPILATION FOR KITCHEN USE. ::8:"HOW THE PROGRAM OPERATES" 8:"------------------------"& 1:"THELISHER0 P:ADAM OSBORNE ASSOC.INC.,BERKLEY,CA.e U:PREPARED BY MAX J.NAREFF,SAN FRANCISCO,CA.1979q Z:1700 d14:"INTRODUCTION" i14:"-------------" n6:"THIS PROGRAM IS ONE OF A SERIES FOR" s"THE CONVERSION,TO AND FROM THE METRIC"+ " -:*UNIT CONVERSIONS..800-END*< 2:*ACKNOWLEDGEMENT..*e 7:SOME OF THE PROGRAMMING TECHNIQUES <:USED HAVE BEEN ADAPTED & MODIFIED A:FROM A PROGRAM IN "SOME COMMON F:BASIC PROGRAMS"BY POOLE & BORCHERS,1978 K:PERMISSION FOR USE BY PUB:**TABLE OF CONTENTS**; :*INTRODUCTION..100-190*[:*INDEX OF UNITS..190-220*:*INDEX COMMAND DRIVE..245-300*:*TEMP.U.S.-METRIC..300-345*:*TEMP.METRIC-U.S..345-390*#:*WEIGHT UNITS..400-590* (:*PROGRAM DRIVE..600-700*        00:16368,0::AEN"v:"BY MAX J. NAREFF"/"DATE: 7-79"Z::"THIS PROGRAM DOES COMMON METRIC""CONVERSIONS FOR ITEMS IN THE KITCHEN"20:"PRESS ESC TO END":"<>"(16384)272000756:(16384)3219ԍЍ؍΍ٍӍčԍӍÍȍčӍȍ΍ƍ΍ԍԍЍōčӍưҍȍō΍ӍӍ΍č΍΍΍ύȍ̍ōàננƤŤˠ٠ǠԍŠ٠Ǡԍˠ٠ǠԍȠϠEIGHT""20:"PRESS ESC TO END"M:"<>"d(16384)271800756:(16384)321700:16368,0::A0(@:6:I;" MILLIGRAMS=";R;" POUNDS"1J620Xr:6:I;" MILLIGRAMS=";R;" GRAINS"a|6205:"METRICS TEMPERATURE & WEIGHT":"BY MAX J. NAREFF""DATE: 7-79"::"THIS PROGRAM DOES METRIC CONVERSIONS""FOR TEMPERATURE AND WDS" 6202F:6:I;" KILOGRAMS=";R;" OUNCES";P620ax:6:I;" KILOGRAMS=";R;" POUNDS"j620:6:I;" METRIC TONS=";R;" TONS(SHORT)"620:6:I;" METRIC TONS=";R;" POUNDS"620:6:I;" MILLIGRAMS=";R;" OUNCES"62OUNDS=";R;" KILOGRAMS"$620GL:6:I;" POUNDS=";R;" METRIC TONS"PV620w~:6:I;" POUNDS=";R;" MILLIGRAMS"620:6:I;" TONS(SHORT)=";R;" METRIC TONS"620:6:I;" GRAMS=";R;" OUNCES"620:6:I;" GRAMS=";R;" POUN0,1600,1650- :6:I;" OUNCES=";R;" GRAMS"6*620\R:6:I;" OUNCES=";R;" KILOGRAMS"e\620:6:I;" OUNCES=";R;" MILLIGRAMS"620:6:I;" GRAINS=";R;" MILLIGRAMS"620:6:I;" POUNDS=";R;" GRAMS"620:6:I;" P CONVERTED";I I777Ā/I888450M:EQUATION FOR CONVERSIONvRIC(N):ENTERS FACTOR AND COMPUTES:DIRECTS PROGRAM FOR UNIT COMPUTATION AND PRINTOUT N800,850,900,950,1000,1050,1100,1150,1200,1250,1300,1350,1400,1450,1500,155