L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`z"#Xİ     àȠ  ӠέĠӠȠ̠ Š̠!٠ˠӠ ̠Ϡ ̠Ϯà!Π ààŠ ĠȠРȠà@@YY3fP*U*U*U*U*U*U*U*U*U*U*U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*U@*U*U*U*U*U`F `P*ysdy?N3N3~9~O9fys($'<.'*** WRITTEN BYT8'*** LYNELL JACKSONnB'*** JANUARY 14, 1987tL'V'*** LAST MODIFIED BY`'*** LYNELL JACKSONj'*** JANUARY 27, 1987t'~'<*** "ISL HELLO" ***>DMONDAY-SATURDAY." #""F#"TECHNICAL/SOFTWARE SUPPORT HOURS ARE"w#"8:30 AM --> 4:30 PM PST MONDAY - FRIDAY." #""#"CALL US FOR A FREE CATALOG OF"#"COMPUTER SUPPLIES AND THE LATEST AND"#"MOST UP TO DATE PUBLIC DOMAIN SOFTWARE." Z#"A DIVISION OF U.S.COMPUTER SUPPLY INC."O d#"511-104 ENCINITAS BOULEVARD"j n#"ENCINITAS, CA 92024" x#"(800) 992-1992 (USA) #"(800) 992-1993 (FOR CA) #"(619) 942-9998 (FOREIGN) #"" #"ORDER HOURS ARE"#"6:00 AM --> 4:30 PM PST l24:7110 vGO$: # : TB%(21(PR$)2)I TB%:PR$;O U (#r +#<*** DATA LOCATION ***>x /# 2#"FOR OTHER PUBLIC DOMAIN AND" <#"USER-SUPPORTED PROGRAMS PLEASE CONTACT:" F#"" P#"THE INTERNATIONAL SOFTWARE LIBRARY",16297,1:16300,1:16301,1:16304,12 70108 @ :M I1ND%_ PR$:I:7110f Ip 7010v  RN$""ė:D$;"CATALOG": (:D$;"RUN ";RN$ 2 X [<*** SUBROUTINES ***> _ bPR$"< PRESS ANY KEY TO CONTINUE >" GF%11110 :E PR$" U.S. COMPUTER SUPPLY INC. PRESENTS:"S 10:7110 PR$"THE INTERNATIONAL SOFTWARE LIBRARY" $13:7110 .7010:1210 L V: `PR$"* LOADING PROGRAM *" j11:7110: ~D$;"BLOAD ISL HELLO.GRAPHIC"( CING FOR PRINTING DATA LINE6 * I = LOOP VARIABLE S * GO$ = CONTINUE STRING GF%1:* DISPLAY GRAPHIC FLAG, 1=YES, 0=NO ND%20:* NUMBER OF DATA LINES RN$"":* NAME OF THE PROGRAM TO RUN NEXT  <*** MAIN PROGRAM ***>  <*** "ISL HELLO" ***>">*** PROGRAM WRITTEN BYV(*** LYNELL JACKSONp2*** JANUARY 14, 1987vdg<*** VARIABLES ***>knD$(4):* CONTROL-DxH$(8):* CONTROL-H* PR$ = DATA LINE FOR PRINTING * TB% = TAB SPA     P*Os?~~?O`P*U*U*U*U*U@*U*U*U*U*U``P*?U`<P*U*U*U*U T*U*U*U*U`P*U*U*U*U*U*U*U*U*U*U*U`L}|L1`><P*ysd?N3N?~9rO9fIs`P*U*U*U*U*U@*U*U*U*U*U``s3O{qc<P*?U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*UP*U*U*U*U*U` `P*ysx?N30~9O9fpP 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:25Z1940,"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."  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' *** "# 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"     368,0 &!C16%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,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(Q=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) 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 "% 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          P$" "UU012(U02):U0U:540K:"DO YOU WANT TO PLAY AGAIN";:N$`N$"Y"ĉ::410j::T35,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$#     #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 11:" 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:"           í(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: ANNER 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,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,HE 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 ETURN'": #" 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 &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    ^)CAROL SMITH$ h)2052 BRENDLA RD.> r)CLEARWATER, FL 33515D w)U |)THANK YOU!!n )*******************6********** )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 ";TDIVIDE 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"2090HEV(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     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 CONTINUX1RY"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;OMMON 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     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'5 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 T,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))Ģ2:"(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?"    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: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