' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#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 < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`ID$(9):CL$(12):RT$(6)$ }2900 CL$:1Q 1,1279,1279,1901,1901,1r 2,2278,2278,1892,1892,2 3,3277,3277,1883,1883,3: 130:6 18,10256,10256,10818,10818,10 3 X18100 27,X247,X X( CS$1CBX HELLO MONEY, BY CHARLES LUND^ COPYRIGHT (C) 1984 CONTROL DATA CORPORATIONx ALL RIGHTS RESERVED 34034:32768_d(4)"BRUN MASTER-SM"i(16);2 xBC$(2):CC$(3):UP$(17):CS$(19):CB$(16):UC$(23):LC$(26):    /񀞀ȁɅ(L J؍PrQ U ?(hLw ?(hZLhhߚHH`pd ؍PrQ UL󕺽HHi`COMPUTER ON THE LEFT."R[r16:" 3. ^TURN YOUR TELEVISION OR MONITOR":" OFF."]`r29280P``O SCORES ARE IN THE FILE.":PF1:21200:100Z2:8:"^MODIFY A STUDENT RECORD"::11000ZINS%ĺ:"^THAT STUDENT IS NOT IN THE FILE.":21200:10022:"^PRESS ^R^E^T^U^R^N TO LEAVE CONTENTS SAME."L10:"^ENTER NEW FIRST NAME.":FI$"11 .#4A6&$6M?666$ u6&6&I66?666$-  66666$, u6& -6?$666$,e$? u66$$66$, u -=?-?/ 666$$=/6ve $666 $66 $$& 6ve $66?----I9w-i-?*- 6&$4 %66?$$ 666$$$-u?7)u6 $$L666$$$-u?)u?v-?--?66666v- $$466 $$666 4$$$vd 4v6&$ 4--.-=666--#$$-=r--666??L!$$---J u$66$>4666$ u6 -?6- I166&$ -6" ->?7--'du66& - ?d)u6?d-6/? I--??q - )66:?$$ 66$?-- 666H)hɠFȄBLL$B<%=eB$$ " Eȱ81ׅh<&݅ۅ߅,`߅߅ h%<$=ЅFȄB@ i1i>CBCC`  EHLP)HJJh)JJL)%"# !L-`Ԣ ێȱLKТLF ێH?@DE >L- Li0 ࢏L81Hȱ81Hȥ 8$Ʌ<ȥ 8$(=ȱ8"(>ȱ8#>L~?ȱ81@ȱ Dȱ` 才` 才` Ii`` Lo0`LMLS0`LgLm JF8ȹe8ИL`Lø{{ttlnghab\\WWRRMNIIEEAA=>::673401..+,))&'$` 0 `{80 ``hhhhz{L2  c `#! "`#67 X ? T @UWWRP{``` 0䍃$% W `  ` Ii }1~20 y|1}2~00` L䇥ޅhhL-$(`L XL׉+**++8 $%` $%%#"%L"$$!L` 0`*U HmhHmh c` z獀筇`z{{z`䭀yxz`6 zzɡ`hhL2hh7n8o L2z F8   ` e vȱ e w|}~ vw ΁ }~`67 ( cTQLX hhL2 FhhL/   `LL#L3L n A s %`쇉n䇌NK3ɇ9ʼn %| m||i|$~}~m}}~L"i}~L"xy0 i      YYC21DY1:XC,YCX,Y::22310b`mYYCDY1:XC,YCXC21,Y::XXC21DX:XC,YCX,Y::223100uA(0):A1(A1$):(A1$,1)" "A1$(A1$,2,1):1uA1(A1$):(A1$,A,1)"/"300052u:BG(A1$):BI0:BH0:A1BG:$ 5uA1(A1$):AS%((A1$,A,1ARGER"A1AN)(L$"SMALLER"A1AN)ANA1:NRN%(0):DRD%(0):I%I%(0)Ib\aXXCDX:XC,YCX,YC21::YYC21DY:XC,YCX,Y::22310eYYCDY:XC,YCXC21,Y::XXC21DX1:XC,YCX,Y::22310xiDX1S0DX1!iXXCDX11:XC,YCX,YC21::(N%(S)))S20:N%(S):CD$0:V1:M%((D%(S)))S20:D%(S):M%50:SI1M%40`[F%1M%M%64r[SI0M%M%3[XXM%S1407((D%(S))):YYM%S140:XX,Y91YY,Y91:C0\A1N%(0)D%(0)I%(0):ANN%(1)D%(1)I%(1):NRN%(1):DRD%(1):I%I%(1):(L$"L`I΍UUU UULU`dUeUeUX eUfUgUcU"fUcUԢ TLSȑhhL2S` TL % ̠ҮŠŮҠɤȮΤĮ̠Ů̠ĮɥԠĮ UUUUUUUUUUUUUUUU UU P ThU '0 ULT T' `% "$`TTijTTkl8`iiLTȱȱȱLSdF?0hԢ T cUۢUL]UfUgUfUȑ TBC SI TUL]UFȩȩ멍 ` eUi eUX eUfUgULR zTLRB>H)h ɠFȄBLRLSB𱦧C B FFLR=$<% " C0`݅ۅ߅,`߅_ h%<$=Ѕ  dUeUfUgUF ȄB@ iSi>  CBCC` S UH)HJJh)JJLR)hLSD D0 ELSQLQ`Ԣ TȱL.QUL]UcUF TH?@DE >LR UL]Ui0 ȢUL]U81Hȱ81Hȥ 8$Ʌ<ȥ 8$(=ȱ8"(>ȱ8#>LaQ?ȱ81@ȱ Dȱ Eȱ81ׅh<&8,0:0,183278,183:)O END";! R16368,0:16384,1205 R(16384)155O R(16384)14121220U Sb @ BORDER JCL$:HC((1)2):2HC((1)2)4 THC,0HC,182:2HC,02HC,182:278HC,0278HC,183:276HC,0276HC,183 ^0,1278,1:0,182278,182 h0,027INTER FOR PRINTING THE"2 "STUDENT SCORES."::x " ^F^R^A^C^T^I^O^N^S ^M^A^N^A^G^E^M^E^N^T ^S^Y^S^T^E^M ALLOWS" "YOU TO MANAGE THE STUDENT SCORES.":: 21200:30 R RETURN ROUTINE R18:2:"^PRESS ^R^E^T^U^R^N TO CONTINUE, ^E^S^C T"^ONE MOMENT PLEASE...":D$"RUNPRINTER SUPPORT"s 40000:12:10:"^ONE MOMENT PLEASE...":D$"RUNMANSYS (FRACT)" ,40000:12:10:"^GETTING THE MENU...":D$"RUNMENU" 40000 " ^P^R^I^N^T^E^R ^S^U^P^P^O^R^T ALLOWS YOU TO" "SET UP THE PR^PRINTER SUPPORT":> -" 2. ^FRACTIONS MANAGEMENT SYSTEM":Z 2" 3. ^DESCRIPTIONS": <" 4. ^RETURN TO MAIN MENU":: F"^ENTER YOUR OPTION AND PRESS ^R^E^T^U^R^N."; PFI$"11 $$4141"::O(IN$"") ZO100,200,400,3000 d40000:12:10:PROGRAM: ADMIN0PROGRAMMER: TIM BUEGEHCOPYRIGHT (C) 1987hLAST UPDATED: TJB 06/01/87 34034:26528::D$(13)(4)D$"BRUNPRINT":D$"BRUNINPUT":CL$(12):IN$"":32,140000:3:10:"^TEACHER ^OPTIONS ^MENU":: (" 1.      DY21(PI2MX):DX(DXXC):DY(YCDY):MX.25ī25000gVXXCXC21:X,YCX,YC21::MX.5ī26000VXXCXC21:X,YCX,YC21::MX.75ī27000WXXC21XC:X,YCX,YC21::28000&W3: WXCXC(I%(S))141S:YCYC(I%(S)):2XC,YC:FN%(S)D%(1278,1:0,182278,1826 h0,0278,0:0,183278,183:16384)155ġ:100+R(16384)141212201StU22:2:"^ENTER ^Y^E^S OR ^N^O AND PRESS ^R^E^T^U^R^N. ":z@E32,1JCL$:HC((1)2):2HC((1)2)4THC,0HC,182:2HC,02HC,182:278HC,0278HC,183:276HC,0276HC,183 ^0,1:D$"OPEN"FL$".SCORES":D$"DELETE"FL$".SCORES"e.D$"OPEN"FL$".SCORES":D$"WRITE"FL$".SCORES":NS%{.I1NS%:R$(I):/D$"CLOSE"D$"BRUNPRINT":RR22:2:"^PRESS ^R^E^T^U^R^N TO CONTINUE, ^E^S^C TO END";R16368,0:16384,128R(00:11004+251,1:(R$(ZI),16,11);:20:NT%((R$(ZI),28))64:NT%;:27:NC%((R$(ZI),27))64:NC%;:35:NC%0ZZ%0:11080>+ZZ%(100(NT%NC%))H+ZZ%"%":3:(R$(ZI),1,15):::..40000:11:7:"^UPDATING STUDENT SCORES...":8000/.^ENTER THE STUDENT'S FIRST NAME.":251,1:FI$"11 .$4AZ1"::251,0:ZF$IN$"" +:"^ENTER THE STUDENT'S LAST NAME.":251,1:FI$"11 2$4AZ1"::251,0:ZL$IN$""+SN$(ZL$BL$,15)(ZF$BL$,11)+ZI1NS%:SN$(R$(ZI),26)Ă +ZINS%ı*+40035,("R"):37636,128:L1%1:L2%26:X%NS%:37632:7'E'NS%0ıu'40000:11:8:"^LOADING STUDENT SCORES..."'1:D$"OPEN"FL$".SCORES":D$"READ"FL$".SCORES":NS%$'NS%010040.'33,38:I1NS%:R$(I)::33,408'8000:12040*M+"000:AQ$"N"100dMS(O1)1MS(O1):D$"OPENMS":D$"WRITEMS":MS(1)","MS(2)","MS(3):D$"CLOSE":100XFI$"11 &$4AZ1":V%:H%:251,1::251,0:AQ$(IN$,1):AQ$"Y"AQ$"N"7000b40000:10:10:"^ONE MOMENT PLEASE...":@NS%2ı1J376TO DELETE ANOTHER":"RECORD? ";:V%11:H%10:7000CAQ$"Y"5020S(12000:100p40000:8:"^MANAGEMENT FOR ";:251,1:FL$;:251,0:" IS"::"CURRENTLY "MS$(MS(O1))". ^DO YOU WANT"::"TO TURN IT "MS$(1MS(O1))"? ";z22000:V%12:H%18MS(O1):7HAT STUDENT IS NOT IN THE FILE.":21200:10072200040000:1100:1200:18:"^DO YOU WANT TO DELETE THIS":"RECORD? ";:V%19:H%10:7000AQ$"N"51207100IZINS%1:R$(I)R$(I1)::NS%NS%140000:220001 10:"^DO YOU WANT "^DO YOU WANT TO MODIFY ANOTHER":"RECORD? ";:V%11:H%10:7000QJAQ$"Y"4020a^12000:100gr10000}40000NS%Ģ10:7:"^NO SCORES ARE IN THE FILE.":PF1:21200:1002:8:"^DELETE A STUDENT RECORD"::11000,ZINS%ĺ:"^T `^_ij^_kl8`iiLȱȱȱ`^_klmn)^_eeLn8`ee` ff`8 ̔ S8` ̔ A731ee ̔80ee ̔`&&eeee`LjA L ERROR IN SORT CALL.6 VARIABLEH SORT ARRAY\ ELEMENT COUNT̢ ̢  آ  ` jj&&8   51,ZZ So @(12):1:1,1279,1279,1891,1891,1:3,3277,3277,1873,1873,3:2,2278,2:2,188278,188: I"^IS THIS INFORMATION CORRECT? ";:V%18:H%31:7000rAQ$"N"Ģ18:" ":4060"JF$""JF$(R$(ZI),16,11),JL$""JL$(R$(ZI),1,15)1R$(ZI)(JL$BL$,15)(JF$BL$,11)(R$(ZI),2)640000?@22000:10:"^ENTER NEW FIRST NAME.":FI$"11 .#4AZ1":251,1::251,0:JF$IN$"":JF$""Ģ11:3:251,1:(R$(ZI),16,11):251,013:"^ENTER NEW LAST NAME.":FI$"11 2#4AZ1":251,1::251,0:JL$IN$"":JL$""Ģ14:3:251,1:(R$(ZI),1,15):251,022000418:1000040000QNS%Ģ10:7:"^NO SCORES ARE IN THE FILE.":PF1:21200:1002:8:"^MODIFY A STUDENT RECORD"::11000ZINS%ĺ:"^THAT STUDENT IS NOT IN THE FILE.":21200:10022:"^PRESS ^R^E^T^U^R^N TO LEAVE CONTENTS SAME."r10:ANT TO DO THIS?";:V%10:H%35:70004 AQ$"N"100> 7100p D$"OPEN"FL$".SCORES":D$"DELETE"FL$".SCORES" D$"OPEN"FL$".SCORES":D$"WRITE"FL$".SCORES" 0:D$"CLOSE" 40000:10:8:"^THE FILE IS NOW CLEARED.":21200:NS%0:100s Volume 1 - "FL$" score file"::29)"Number Number Percent":"Student Name Tried Correct Correct": NS%0İ40000:10:5:"^THE SCORE FILE IS ALREADY CLEAR.":21200:100 NS%0İ40000:1030# 40000:10:"^ARE YOU SURE YOU W2080ZZ%(100(NT%NC%))Q ZZ%"%":I50(I50)İ2100:(12):INS%İ2200l%:I50(I50)İ2100*POFF:17410:D$"BRUNINPUT"D$"BRUNPRUTIL.OBJ":1004:"----------------------------------------------------"::y2100:HL1:"FractionIME AND":11:"ADJUST THE PAPER.":21200l40000:10:10:"^WORKING AND PRINTING":D$"IN#0"D$"PR#0":PACTv2200 I1NS%:(R$(I),16,11)" "(R$(I),1,15);:36,31:NT%((R$(I),28))64:NT%;:36,39:NC%((R$(I),27))64:NC%;:36,47:NC%0ZZ%0:251,0:" ^FRACTIONS ^SCORE ^FILE":{V18:"^NUMBER ^NUMBER ^PERCENT":"^STUDENT NAME ^TRIED ^CORRECT ^CORRECT"::1000040000:NS%Ģ10:7:"^NO SCORES ARE IN THE FILE.":PF1:21200:100(2:2:"^TURN ON YOUR PRINTER AT THIS TT%((R$(I),28))64:NT%;:27:NC%((R$(I),27))64:NC%;:35:NC%0ZZ%0:1070j$ZZ%(100(NT%NC%)).ZZ%"%":3:(R$(I),1,15)8I7(I7)PF1:21200:INS%İ40000:1100BI:II1:I7(I7)PF1:21200G100$L2:HL:251,1:FL$;:$4181"::O2(IN$"")/ O28FL$"MENU":500X O21000,2000,3000,4000,5000,6000,30n 7100:D$"RUN"FL$t  10000 40000 NS%Ģ10:7:"^NO SCORES ARE IN THE FILE.":PF1:21200:100 1100QI1NS%:251,1:(R$(I),16,11);:20:N STUDENT RECORD":9 w" 5. ^DELETE A STUDENT RECORD":| x" 6. ^TURN MANAGEMENT "MS$(1MS(O1))" (NOW "MS$(MS(O1))")": z" 7. ^SELECT ANOTHER FILE": }" 8. ^RETURN TO MAIN MENU": "^ENTER YOUR OPTION AND PRESS ^R^E^T^U^R^N.";:FI$"11 $ ^O13FL$"EQUIVALENT":HL4W d40000:2:HL:251,1:FL$" ^FRACTIONS SCORES FILE":t f"^WOULD YOU LIKE TO:": i" 1. ^VIEW STUDENT SCORES": n" 2. ^PRINT A COPY OF STUDENT SCORES": s" 3. ^CLEAR NAMES AND SCORES": u" 4. ^MODIFY ATEACHER OPTIONS MENU":: A" 5. ^RETURN TO MAIN MENU": F"^ENTER YOUR OPTION AND PRESS ^R^E^T^U^R^N.";:FI$"11 $$4151"::O1(IN$"") PO15FL$"MENU":500 UO14FL$"ADMIN":500 ZO11FL$"MEANING":HL6 \O12FL$"COMPARING":HL5"^FRACTIONS ^MANAGEMENT ^SYSTEM":- NS%1C #5:"^OPTIONS:":w (" 1. ^WORK WITH ^M^E^A^N^I^N^G SCORES FILE": -" 2. ^WORK WITH ^C^O^M^P^A^R^I^N^G SCORES FILE": 2" 3. ^WORK WITH ^E^Q^U^I^V^A^L^E^N^T SCORES FILE": <" 4. ^RETURN TO 8 (FRACT)# 34034:26528:5D$(13)(4)JCL$(12):IN$""dBL$" "D$"BRUNPRUTIL.OBJ"D$"BLOADSORT48"R$(100)D$"OPENMS"D$"READMS":MS(1),MS(2),MS(3):D$"CLOSE"MS$(0)"OFF":MS$(1)"ON"" 40000:2:6:       ҤӠƤƠӥΠ   ԠŠŠŠӠ٠Ү ϠӠ 182278,182+ h0,0278,0:0,183278,183:"^ENTER ^Y^E^S OR ^N^O AND PRESS ^R^E^T^U^R^N. ":<@FE32,1nJCL$:HC((1)2):2HC((1)2)4THC,0HC,182:2HC,02HC,182:278HC,0278HC,183:276HC,0276HC,183^0,1278,1:0,182278,182h0,0278,0:0,183278,183::0,L$".SCORES":D$"WRITE"FL$".SCORES":NS%=.I1NS%:R$(I):[/D$"CLOSE"D$"BRUNPRINT":aRR22:2:"^PRESS ^R^E^T^U^R^N TO CONTINUE, ^E^S^C TO END";R16368,0:16384,128R(16384)155ġ:100R(16384)14121220S6U22:2:64:NT%;:27:NC%((R$(ZI),27))64:NC%;:35:NC%0ZZ%0:11080Z>+ZZ%(100(NT%NC%))H+ZZ%"%":3:(R$(ZI),1,15):::..40000:11:7:"^UPDATING STUDENT SCORES...":8000.1:D$"OPEN"FL$".SCORES":D$"DELETE"FL$".SCORES"'.D$"OPEN"F51,0:ZF$IN$""d +:"^ENTER THE STUDENT'S LAST NAME.":251,1:FI$"11 2$4AZ1"::251,0:ZL$IN$""+SN$(ZL$BL$,15)(ZF$BL$,11)+ZI1NS%:SN$(R$(ZI),26)Ă +ZINS%ı*+40000:1100A4+251,1:(R$(ZI),16,11);:20:NT%((R$(ZI),28))S%0ı7'40000:11:8:"^LOADING STUDENT SCORES..."o'1:D$"OPEN"FL$".SCORES":D$"READ"FL$".SCORES":NS%$'NS%010040.'33,38:I1NS%:R$(I)::33,408'8000:12040*+"^ENTER THE STUDENT'S FIRST NAME.":251,1:FI$"11 .$4AZ1"::2MS(1)","MS(2)","MS(3):D$"CLOSE":100xXFI$"11 &$4AZ1":V%:H%:251,1::251,0:AQ$(IN$,1):AQ$"Y"AQ$"N"7000~b40000:10:10:"^ONE MOMENT PLEASE...":@NS%2ıJ37635,("R"):37636,128:L1%1:L2%26:X%NS%:37632:''N5020(12000:100p40000:8:"^MANAGEMENT FOR ";:251,1:FL$;:251,0:" IS"::"CURRENTLY "MS$(MS(O1))". ^DO YOU WANT"::"TO TURN IT "MS$(1MS(O1))"? ";z22000:V%12:H%18MS(O1):7000:AQ$"N"100&MS(O1)1MS(O1):D$"OPENMS":D$"WRITEMS":0000:1100:1200:18:"^DO YOU WANT TO DELETE THIS":"RECORD? ";:V%19:H%10:7000dAQ$"N"5120n7100IZINS%1:R$(I)R$(I1)::NS%NS%140000:22000 10:"^DO YOU WANT TO DELETE ANOTHER":"RECORD? ";:V%11:H%10:7000AQ$"Y"0JAQ$"Y"4020#^12000:100)410000?40000NS%Ģ10:7:"^NO SCORES ARE IN THE FILE.":PF1:21200:1002:8:"^DELETE A STUDENT RECORD"::11000ZINS%ĺ:"^THAT STUDENT IS NOT IN THE FILE.":21200:10022000R4"N"Ģ18:" ":4060T"JF$""JF$(R$(ZI),16,11)s,JL$""JL$(R$(ZI),1,15)1R$(ZI)(JL$BL$,15)(JF$BL$,11)(R$(ZI),2)640000@22000:10:"^DO YOU WANT TO MODIFY ANOTHER":"RECORD? ";:V%11:H%10:700IN$"":JF$""Ģ11:3:251,1:(R$(ZI),16,11):251,013:"^ENTER NEW LAST NAME.":FI$"11 2#4AZ1":251,1::251,0:JL$IN$"":JL$""Ģ14:3:251,1:(R$(ZI),1,15):251,02200018:"^IS THIS INFORMATION CORRECT? ";:V%18:H%31:70004AQ$а .":PF1:21200:100B2:8:"^MODIFY A STUDENT RECORD"::11000ZINS%ĺ:"^THAT STUDENT IS NOT IN THE FILE.":21200:10022:"^PRESS ^R^E^T^U^R^N TO LEAVE CONTENTS SAME."410:"^ENTER NEW FIRST NAME.":FI$"11 .#4AZ1":251,1::251,0:JF$2 D$"OPEN"FL$".SCORES":D$"DELETE"FL$".SCORES"c D$"OPEN"FL$".SCORES":D$"WRITE"FL$".SCORES"u 0:D$"CLOSE" 40000:10:8:"^THE FILE IS NOW CLEARED.":21200:NS%0:1001000040000NS%Ģ10:7:"^NO SCORES ARE IN THE FILEs Volume 1 - "FL$" score file"::29)"Number Number Percent":"Student Name Tried Correct Correct": CLEAR NS%0İ40000:1030 40000:10:"^ARE YOU SURE YOU WANT TO DO THIS?";:V%10:H%35:7000 AQ$"N"100 71002080ZZ%(100(NT%NC%))Q ZZ%"%":I50(I50)İ2100:(12):INS%İ2200l%:I50(I50)İ2100*POFF:17410:D$"BRUNINPUT"D$"BRUNPRUTIL.OBJ":1004:"----------------------------------------------------"::y2100:HL1:"FractionIME AND":11:"ADJUST THE PAPER.":21200l40000:10:10:"^WORKING AND PRINTING":D$"IN#0"D$"PR#0":PACTv2200 I1NS%:(R$(I),16,11)" "(R$(I),1,15);:36,31:NT%((R$(I),28))64:NT%;:36,39:NC%((R$(I),27))64:NC%;:36,47:NC%0ZZ%0:251,0:" ^FRACTIONS ^SCORE ^FILE":{V18:"^NUMBER ^NUMBER ^PERCENT":"^STUDENT NAME ^TRIED ^CORRECT ^CORRECT"::1000040000:NS%Ģ10:7:"^NO SCORES ARE IN THE FILE.":PF1:21200:100(2:2:"^TURN ON YOUR PRINTER AT THIS TT%((R$(I),28))64:NT%;:27:NC%((R$(I),27))64:NC%;:35:NC%0ZZ%0:1070j$ZZ%(100(NT%NC%)).ZZ%"%":3:(R$(I),1,15)8I7(I7)PF1:21200:INS%İ40000:1100BI:II1:I7(I7)PF1:21200G100$L2:HL:251,1:FL$;:$4181"::O2(IN$"")/ O28FL$"MENU":500X O21000,2000,3000,4000,5000,6000,30n 7100:D$"RUN"FL$t  10000 40000 NS%Ģ10:7:"^NO SCORES ARE IN THE FILE.":PF1:21200:100 1100QI1NS%:251,1:(R$(I),16,11);:20:N STUDENT RECORD":9 w" 5. ^DELETE A STUDENT RECORD":| x" 6. ^TURN MANAGEMENT "MS$(1MS(O1))" (NOW "MS$(MS(O1))")": z" 7. ^SELECT ANOTHER FILE": }" 8. ^RETURN TO MAIN MENU": "^ENTER YOUR OPTION AND PRESS ^R^E^T^U^R^N.";:FI$"11 $ ^O13FL$"EQUIVALENT":HL4W d40000:2:HL:251,1:FL$" ^FRACTIONS SCORES FILE":t f"^WOULD YOU LIKE TO:": i" 1. ^VIEW STUDENT SCORES": n" 2. ^PRINT A COPY OF STUDENT SCORES": s" 3. ^CLEAR NAMES AND SCORES": u" 4. ^MODIFY ATEACHER OPTIONS MENU":: A" 5. ^RETURN TO MAIN MENU": F"^ENTER YOUR OPTION AND PRESS ^R^E^T^U^R^N.";:FI$"11 $$4151"::O1(IN$"") PO15FL$"MENU":500 UO14FL$"ADMIN":500 ZO11FL$"MEANING":HL6 \O12FL$"COMPARING":HL5"^FRACTIONS ^MANAGEMENT ^SYSTEM":- NS%1C #5:"^OPTIONS:":w (" 1. ^WORK WITH ^M^E^A^N^I^N^G SCORES FILE": -" 2. ^WORK WITH ^C^O^M^P^A^R^I^N^G SCORES FILE": 2" 3. ^WORK WITH ^E^Q^U^I^V^A^L^E^N^T SCORES FILE": <" 4. ^RETURN TO  (FRACT)# 34034:26528:5D$(13)(4)JCL$(12):IN$""dBL$" "D$"BRUNPRUTIL.OBJ"D$"BLOADSORT48"R$(100)D$"OPENMS"D$"READMS":MS(1),MS(2),MS(3):D$"CLOSE"MS$(0)"OFF":MS$(1)"ON"" 40000:2:6:               6,2276,1883,1883,2:0,00,190279,190279,0:CR$6(1)4;H#3:RF0:#278,183:ˍύˍύˍύˍύˍύˍύˍύˍύύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍύˍʺ"^APPLE ^COMPUTER PRODUCTS.":13:2:"^COPYRIGHT 1981, ^APPLE ^COMPUTER, ^INC.":15:2:"^APPLE ^D^O^S 3.3 ^COPYRIGHT 1980, 1981."17:10:"^APPLE ^COMPUTER, ^INC."21200CL$CC$3CB$2:130:12:2:"^GETTING THE MENU...":(13)(4)"RUN MENU"SERVED"cLC$;4h19:11:"^LESSON DISK 1 OF 2"Dr21200:CL$l|130:4:16:CC$;3;"^C^R^E^D^I^T^S"6:96,24160,24160,3696,3696,247:3:"^PARTS OF ";UC$;"GEOMETRY AND MEASUREMENT"LC$;9:10:"WERE DEVELOPED USING":11:8:80 ^CHARLES ^LUND"3 @12:12:CC$;3;"^COPYRIGHT"I D3:145,98154,98g EX99105:144,X155,X:X| F145,106154,106 GUC$; J12:22:CC$;0;CB$;2;"C";CC$;3;UP$;0;" 1984" T14:8:"^CONTROL ^DATA ^CORPORATION"^16:11:"^ALL ^RIGHTS ^RE5012,10P 64:8:CC$;0;UC$;"GEOMETRY AND MEASUREMENT":5:16:LC$;"^PRACTICE" ;CC$;3;:7:19:"BY":8:14:"^CHARLES ^LUND" >10:5:"^COPYRIGHT" ?3:X8187:95,X106,X:X:96,80105,80:96,88105,88:10:15:CC$;0;CB$;2;"^C";CC$3;UP$;0;" 19"CONTROL DATA PUBLISHING"$ LC$;; (1)0;(6)0;CC$;3} 14:3:CC$;3;CB$;2;"^P^L^A^T^O IS A REGISTERED TRADEMARK OF" UC$ 16:7:"^CONTROL ^DATA ^CORPORATION.";LC$:21200 "130:3:X1644:20,X240,X:X ,6:12,10248,10248,5012,,X XI CS$1CB$2CC$0:4:5:"^P^L^A^T^O ^EDUCATIONAL ^COURSEWARE" 0:64,2372,23:X2430:63,X73,X::64,3172,X 4:10:UP$;3;CB$;1;CC$;3;RT$;3;:"^R":CC$;3;(6)0 3:0:1:2125,65:32:2135,80 12:8:CC$;3;RT$;0;CB$;2;UC$;:-#Z$NF$:1000:NF$Z$:Z$NL$:1000:NL$Z$tZZ$"":I1(Z$):ZC$(Z$,I,1):ZC$"_"ZC$"~"ZC$((ZC$)32)ZZ$ZZ$ZC$::Z$ZZ$: "ύˍύˍύIDN'T FINISH"::"THE LESSON BUT HERE IS YOUR SCORE FOR"::"THE PORTION YOU DID DO.":995T.":995(,0:16384,128:A9(16384)128:A913A927Ĺ36,0:30180J vA913ė:Wv:40150@25000:12:2:"^ONE MOMENT PLEASE...":(4)"RUN MENU END"֜CL$:(13);:(4);"OPEN NAME":(4);"READ NAME":N$:(4);"CLOSE"Zۜ25000:2:"^WELL ^"N$", YOU DuG230100!u"^VERY GOOD."1uG330120@u"^SUPER!"PuG430140_u"^GREAT!"ouG530160u"^EXCELLENT!"uG630180u"^THAT'S RIGHT!"u;u21:2:" ^PRESS ^R^E^T^U^R^N TO CONTINUE, ^E^S^C TO END.";:2039,174:16368278,0278,1901,1901,0:2,1277,1277,1892,1892,1:3,2276,2276,1883,1883,2:0,00,190279,190279,0:(6)6;a3:RFLAG0:0u:uJ7130030DuC1C11NuJ7230050XuC2C21buG(6(1)1):45:18:2:G130080vu"^CORRECT.":R220(XRIGHTXLEFT):10000:XINCR(XLEFT10):R10:R220(YHIGHYLOW):10000:YINCR(YLOW10):13000m;saaCL$;:(1)21:RFLAG125050a0,00,190:1,01,190:278,0278,190:277,0277,190:0,0277,0:0,191277,191:(6)4;:25080sa1,0ߢĠäΠäҤàäڤڤäԠڤڤΠōō  ԠҠӠҠϠĠӠήΠӠōڤƤ Ƥڤڤ̤ ̤ڤڤҠɠϠΠڤäĤڤɬƠԭҤӠƤ     ԠèԠ Ԡè  ԠϠՠԠϠŠӢԠĿڠڠ    P$;5;:21:14:"^PRESS";?RCB$2CC$;0;UP$;5;:" ^R^E^T^U^R^N"YS(16384)14121250_ S^INC."21200[CL$CC$3CB$2:130:12:2:"^GETTING THE MENU...":(13)(4)"RUN MENU"u((40(C$))2):C$:R PRESS RETURN SUBROUTINER16368,0R3RX171185:85,X177,X:XR0RX173183:87,X128,X:RID$;CB$2;CC$;3;U96,3696,240 7:8:"^PARTS OF ";UC$;TC$;LC$ 09:10:"WERE DEVELOPED USING":11:8:"^APPLE ^COMPUTER PRODUCTS.":13:2:"^COPYRIGHT 1981, ^APPLE ^COMPUTER, ^INC.":15:2:"^APPLE ^D^O^S 3.3 ^COPYRIGHT 1980, 1981."17:10:"^APPLE ^COMPUTER, 154,106 GUC$;C J12:22:CC$;0;CB$;2;"C";CC$;3;UP$;0;" 1988"L OLC$| T14:5:"^WHITE ^BEAR ^PUBLISHING ^COMPANY" ^16:11:"^ALL ^RIGHTS ^RESERVED" cLC$; r21200:CL$ |130:4:16:CC$;3;"^C^R^E^D^I^T^S" 6:96,24160,24160,36CTION ACTION VOLUME 1"9 8TC$"FRACTION ACTION":4:1000[ 9C$"Practice Using Fractions"m :5:1000:LC$ ;CC$;3;:7:19:"BY":9:14:"^CHARLES ^LUND" @12:12:CC$;3;"^COPYRIGHT" D3:145,98154,98 EX99105:144,X155,X:X F145,106; a3:$2CC$0:4:9:"^EDUCATIONAL ^COURSEWARE"C 768: MOVE WHITE BEARM CC$0V UC$ 6:6:"WHITE BEAR PUBLISHING COMPANY";CC$3LC$:21200 "130:3:X1644:27,X247,X:X ,6:18,10256,10256,5018,5018,10 64:11:CC$0;UC$:4 7C$"FRAID$(9):CL$(12):RT$(6)$ }2900 CL$:1Q 1,1279,1279,1901,1901,1r 2,2278,2278,1892,1892,2 3,3277,3277,1883,1883,3: 130:6 18,10256,10256,10818,10818,10 3 X18100 27,X247,X X( CS$1CBa HELLO MONEY, BY CHARLES LUND^ COPYRIGHT (C) 1984 CONTROL DATA CORPORATIONx ALL RIGHTS RESERVED 34034:32768_d(4)"BRUN MASTER-SM"i(16);2 xBC$(2):CC$(3):UP$(17):CS$(19):CB$(16):UC$(23):LC$(26):    U`UUU UULU`dUeUeUX eUfUgUcU"fUcUԢ TLSȑhhL2S` TL̠ҮŠŮҠɤȮΤĮ̠Ů̠ĮɥԠĮ UUUUUUUUUUUUUUUU UU P ThU '0 ULT T' `% "$`TTijTTkl8`iiLTȱȱȱLSdF?0hԢ T cUۢUL]UfUgUfUȑ TBC SI TUL]UFȩȩ멍 ` eUi eUX eUfUgULR zTLRB>H)h ɠFȄBLRLSB𱦧C B FFLR=$<% " C0`݅ۅ߅,`߅_ h%<$=Ѕ  dUeUfUgUF ȄB@ iSi>  CBCC` S UH)HJJh)JJLR)hLSD D0 ELSQLQ`Ԣ TȱL.QUL]UcUF TH?@DE >LR UL]Ui0 ȢUL]U81Hȱ81Hȥ 8$Ʌ<ȥ 8$(=ȱ8"(>ȱ8#>LaQ?ȱ81@ȱ Dȱ Eȱ81ׅh<&    **hQ**E+i+$$! $%%# bEEEhh`D76  "(!#@`"E% E*&+'% E!&*'i' E0EE#0̥#%% E*!0 E0`+i+`%J)+%j )* * (je$*` >EWR TPHEE2 ?hHh`0 i Hɝ67  9,T,Q Xhh`ɍ[Ɉ  D L-EɊ%%# bE "L-Eɇ L-EɌ**+*++8 $%QQHH Eh%HJJJ'hH*&'*&'*&')&&EH 0>7333000>;3>3?>60303733  0800633<3??337333333333>0p7>0  <3333333 33??33 333 ? ?<<0<3 3??> 33?3333333333333???3;3333?333 00003333?3???333337?;333333333333?>333303? 33333333333 333???333 3333 ?0 ? 0 ? 33333?<<<?? >< 7 ;8?>  000 ? ? ?  ? 0 3;?73  30??003??003<33?0 333333>0 0  0??  ?LD3 0? ? 3 ? 3 333a    ? m? ? >> ? ? ? l66l 6l6  aamam ??? 3?0 333?33?3 0 ???? ???   BAPPLE<  @ ?$hi<$6h7h6>=<`ɍɌ ͳ ` I`H)hHɍ rh`PACPOFFEE!` G$H)h0,0R67 m 0N 󹥇9I7߭ r` L<=>6H7H67,0 < L'$H8$$ ? mͳ   ފ `B ֈ?F<?F<>ݦ >ݪ?Ȑ۩`?)8鍸ζ`H88HHԈՈ ߅$0HԈՈ LbLv?<>?>,>$f<<`L+ɇqr+Lɯd 8ɀ   Lޥ8e湥 HH L`qrLDER-J(12):HC((1)2):2HC((1)2)4yTHC,0HC,182:2HC,02HC,182:278HC,0278HC,183:276HC,0276HC,183Y0,1278,1:0,182278,182^0,0278,0:0,183278,183: ,0,182278,182^0,0278,0:0,183278,183: 251,0Z$(IN$,1):6RANGED NUMERIC INPUTi ZB = MIN, ZT = MAX, ZC = C/R LEGAL (BOOLEAN)ZH(36)1:ZV(37)1IN$"":FI$"21"(ZV35)(ZH35)(((ZT))35)"#2 1":Z$IN$"":ZN(Z$)ZNZBZNZT37030@ BOR020)Xu1:868:1::ZV:ZH:16368,0:3y ENDt@y40000:2:12:"^ONE MOMENT PLEASE...":(13)(4)"RUN ADMIN"YES-NO INPUT251,1ZH(36)1:ZV(37)1:IN$"":FI$"21"(ZV35)(ZH35)"&$4AZ1":(IN$,1)"Y"(IN$,1)"N"36020#251,1:(A);:251,0:+#K:Q$:CTCTL1#@0u RETURN _5uZH(36)1:ZV(37)1:ZF0:u22:1:868:7:"^PRESS ";::"^R^E^T^U^R^N";::" TO CONTINUE";Du16368,0:16384,128:ZP(16384):ZP155ZFZF1:ZF231000NuZP160ZP14130(S$,J,1)")"91006P#X$(S$,K5,JK5):X((X$))IZ#X0X127X0ed#L$"":K1L$(S$,K1)n#R$"":LJR$(S$,LJ)x#S$L$(X)R$#LKLJ:9110#J#K#13:868:L(S$):K1L#A((S$,K,1)):PPCTK,A:A32AA64:^(A8L0)ĺC$Q$;:8020*hA88080>rA34L198020Q|A32AA64:m(A);::S$S$C$:8020C$" "C$;:L1S$"":8020S$(S$,L1):8020(#SCAN FOR CHR$2#L(S$):L79120<#K1L6:(S$,K,5)"CHR$("9110F#JK6L:$""İ9000:CTCT1:PPCT,13PL2:CTCT1:PPCT,0:PPCT1,255:PPCT2,25522:2:"^ARE THE ABOVE COMMANDS CORRECT? ";:36000L1(Z$"Y"):L1@STRING INPUTJS$"":16368,0:251,1TL(S$):C$:A(C$):A13Ĺ16368,0:251,0:,255:PP4,255:!L111:CT140000:2:"^PLEASE TYPE IN THE SPECIAL COMMANDS":2:"FOR YOUR PRINTER. ^TYPE AN EXTRA":2:"'RETURN' WHEN YOU HAVE FINISHED."L215:72L2:6:958:"^PRINT "Q$;:8000S$""Ģ72L2:1:958::L25SHE PRINTER INTERFACE CARD MAY BE IN":2:"ANY SLOT 1-7. ^MOST COMMONLY 1 OR 2."l12:2:"^WHICH SLOT IS YOUR CARD IN? ";:ZB1:ZT7:37000:PP,128ZNv17:2:"^DOES YOUR PRINTER REQUIRE ANY SPECIAL":2:"COMMANDS? ";:36000Z$"N"ĹPP2,0:PP3LLY 10 CPS)"_12:2:"^WHICH PRINTING SPEED DO YOU WANT"::2:"TO USE? ";:ZB1:ZT2:37000tPP2,128(ZN1)18:2:"^WHICH SLOT IS THE COMMUNICATIONS"::2:"CARD IN? ";:ZB1:ZT7:37000PP,ZN:XNOT A COMM CARDOb40000:7:2:"^T ARE YOU MAKING THESE":2:"SETTINGS FOR? ";:251,1::251,0:P$IN$"":LP(P$):LP0ıtiLP20P$(P$,20):LP20nL1LP:PP106L,((P$,L,1))::pSET COMM CARD z40000:6:2:"1. ^HIGH SPEED (^USUALLY 30 CPS)"::2:"^2. ^LOW SPEED (^USUANG FOR PAGE LENGTH IS":2:"66 LINES PER PAGE.":9:2:"^WHAT PAGE LENGTH IS YOUR PRINTER SET":2:"TO PRODUCE? ";ZB10:ZT120:ZC0:37000:PP1,ZN:PID FIELDZL120:PP106L,0:_IN$"":FI$"11 7$1 1"Wd40000:14:2:"^WHAT PRINTERPRINTER":3:"INTERFACE YOU WILL BE USING":3:"AND PRESS ^R^E^T^U^R^N. ";:ZB1:ZT2:37000mZN6000,7000PP1,66:(12):APLİ51005200:D$;"BSAVEPRINTER COMMANDS.BIN,A"PP",L128" ADJ PAPER40000:2r4:"^THE NORMAL SETTIOMMUNICATIONS BOARD":6:"(^AN OBSOLETE CARD THAT IS NOT":6:"COMPATIBLE WITH THE ^APPLE //E)":3:"2. ^ANY OTHER TYPE OF PRINTER":3:" INTERFACE CARD (E.G., ^PARALLEL":3:" OR ^SERIAL, ^CENTRONICS TYPE, ETC.)"[::3:"^ENTER THE TYPE OF ESTING THE PRINTER...":D$"IN#0":D$"PR#0":PACT:"PRINTER TEST":I13:J3295:(J);:::J96127:(J);:::::FEEDPOFF17410:40000:10:3:"^PRINTER TEST COMPLETE.":30000 SET NEW OPT40000a6:3:"1. ^APPLE CE PRINTER SETTINGS TO"::2:"THEIR ORIGINAL STATE (^SLOT ^SEARCH)."[ I0127:PPI,0: D$"BSAVE PRINTER COMMANDS.BIN,A"PP",L128" 30000:TEST THE PRINTER40000:12:3:"^PLEASE PREPARE YOUR PRINTER...":30000B40000:12:3:"^TP(PPCT):CTCT1/ P0P13P32PP64:P L2(P13):PP21L2:(P);:Z L2:d L1:v PRINTER TYPE :3:" ^TYPE OF PRINTER:"::"^";:7:L120:((PP106L));::: RETURN TO DEFAULTS D 40000:11:2:"^NOW RETURNING TH:3:" ^SLOT: ";(PP)128::APLĖ3:" ^PAGE LENGTH: ";(PP1):Z (PP2)0İ2400q$ (PP107)0İ2500~. 30000:` PRINT SPECIAL COMMANDSj 3:" ^COMMANDS:"::CT2t L115:(PPCT)0L15:2470~ 7:"^PRINT "(34)CA$;:L211:IGH":SD30f 10:3:"^THE SPEED IS SET TO '";SD$;"'":3:"(^USUALLY ";SD;" CHARACTERS PER SECOND)." :APLĺ:3:" ^PAGE LENGTH: ";(PP1) :(PP107)0İ2500 30000: USER SET  40000:3:"^THE CURRENT PRINTER SETTINGS ARE:"E BLE CARD"5 C:3:"EACH TIME THE DISKETTE IS USED."B H30000:Q COMM CARD\ 40000 6:3:"^THIS DISKETTE IS CURRENTLY SET UP TO":3:"EXPECT AN APPLE COMMUNICATIONS BOARD":3:"IN SLOT #";(PP);".": SD$"^LOW":SD10:(PP2)127SD$"^H0 BL00:L0* CHECK CURRENT SETTINGSI JP1((PP)0)((PP)127)b JP2100,2200,2300:p 4DEFAULTS{ 940000 >8:3:"^THIS DISKETTE IS CURRENTLY SET TO THE"::3:"DEFAULT SETTING, WHICH IS TO SEARCH"::3:"SLOTS 1 AND 2 FOR A RECOGNIZATHEIR":6:"ORIGINAL STATE (^SLOT ^SEARCH)":S 3:"4. ^TEST PRINTER SETTINGS": $3:"5. ^RETURN TO ADMINISTRATION MENU" .::2:"^ENTER YOUR OPTION NUMBER":2:"AND PRESS ^R^E^T^U^R^N. ";:ZB1:ZT5:37000 8(12):ZN2000,5000,3000,4000,3104LENGTH xD$(4):6 PP(948)(949)256:Q$(34)@ MENU L011:40000:13:"^PRINTER ^OPTIONS"::2:"^YOU MAY:": 3:"1. ^CHECK CURRENT PRINTER SETTINGS": 3:"2. ^CHANGE PRINTER SETTINGS":- 3:"3. ^RETURN PRINTER SETTINGS TO PROGRAM: PRINTER SUPPORT;PROGRAMMER: P.BOUCHARDSCOPYRIGHT (C) 1985sLAST UPDATED: TJB 05/27/87 34034:26528<IN$""F(4)"BRUN PRUTIL.OBJ":(4)"BLOAD PRINTER COMMANDS.BIN"d INIT nAPL0: SET =1 TO ADJUST PAPER           AQ$"N"100 7100J D$"OPEN"FL$".SCORES":D$"DELETE"FL$".SCORES"{ D$"OPEN"FL$".SCORES":D$"WRITE"FL$".SCORES" 0:D$"CLOSE" 40000:10:8:"^THE FILE IS NOW CLEARED.":21200:NS%0:1001000040000+NS%Ģ10:7:"^N2100:HL1:"Fractions Volume 1 - "FL$" score file"::29)"Number Number Percent":"Student Name Tried Correct Correct": CLEAR NS%0İ40000:1030 40000:10:"^ARE YOU SURE YOU WANT TO DO THIS?";:V%10:H%35:7000%;:36,47:NC%0ZZ%0:20805ZZ%(100(NT%NC%))i ZZ%"%":I50(I50)İ2100:(12):INS%İ2200%:I50(I50)İ2100*POFF:17410:D$"BRUNINPUT"D$"BRUNPRUTIL.OBJ":1004:"----------------------------------------------------"::N YOUR PRINTER AT THIS TIME AND":11:"ADJUST THE PAPER.":2120040000:10:10:"^WORKING AND PRINTING":D$"IN#0"D$"PR#0":PACT2200 I1NS%:(R$(I),16,11)" "(R$(I),1,15);:36,31:NT%((R$(I),28))64:NT%;:36,39:NC%((R$(I),27))64:NC<L2:HL:251,1:FL$;:251,0:" ^FRACTIONS ^SCORE ^FILE":V18:"^NUMBER ^NUMBER ^PERCENT":"^STUDENT NAME ^TRIED ^CORRECT ^CORRECT"::1000040000:NS%Ģ10:7:"^NO SCORES ARE IN THE FILE.":PF1:21200:100@2:2:"^TURN O1:(R$(I),16,11);:20:NT%((R$(I),28))64:NT%;:27:NC%((R$(I),27))64:NC%;:35:NC%0ZZ%0:1070$ZZ%(100(NT%NC%)).ZZ%"%":3:(R$(I),1,15)8I7(I7)PF1:21200:INS%İ40000:1100BI:II1:I7(I7)PF1:21200G100^E^T^U^R^N.";:FI$"11 $$4181"::O2(IN$"")G O28FL$"MENU":500p O21000,2000,3000,4000,5000,6000,30 7100:D$"RUN"FL$  10000 40000 NS%Ģ10:7:"^NO SCORES ARE IN THE FILE.":PF1:21200:100 1100iI1NS%:251,":* u" 4. ^MODIFY A STUDENT RECORD":Q w" 5. ^DELETE A STUDENT RECORD": x" 6. ^TURN MANAGEMENT "MS$(1MS(O1))" (NOW "MS$(MS(O1))")": z" 7. ^SELECT ANOTHER FILE": }" 8. ^RETURN TO MAIN MENU":- "^ENTER YOUR OPTION AND PRESS ^R2FL$"COMPARING":HL56 ^O13FL$"EQUIVALENT":HL4o d40000:2:HL:251,1:FL$" ^FRACTIONS SCORES FILE": f"^WOULD YOU LIKE TO:": i" 1. ^VIEW STUDENT SCORES": n" 2. ^PRINT A COPY OF STUDENT SCORES": s" 3. ^CLEAR NAMES AND SCORES/ <" 4. ^RETURN TO TEACHER OPTIONS MENU":R A" 5. ^RETURN TO MAIN MENU": F"^ENTER YOUR OPTION AND PRESS ^R^E^T^U^R^N.";:FI$"11 $$4151"::O1(IN$"") PO15FL$"MENU":500 UO14FL$"ADMIN":500 ZO11FL$"MEANING":HL6 \O1"ON": 40000:2:6:"^FRACTIONS ^MANAGEMENT ^SYSTEM":E NS%1[ #5:"^OPTIONS:": (" 1. ^WORK WITH ^M^E^A^N^I^N^G SCORES FILE": -" 2. ^WORK WITH ^C^O^M^P^A^R^I^N^G SCORES FILE": 2" 3. ^WORK WITH ^E^Q^U^I^V^A^L^E^N^T SCORES FILE":MANSYS (FRACT)'TJB 06/09/87; 34034:26528:MD$(13)(4)bCL$(12):IN$""|BL$" "D$"BRUNPRUTIL.OBJ"D$"BLOADSORT48"R$(100)D$"OPENMS"D$"READMS":MS(1),MS(2),MS(3):D$"CLOSE" MS$(0)"OFF":MS$(1)           NMENU-END" @BORDER@ J(12):HC((1)2):2HC((1)2)4x T0,00,190:1,01,190:278,0278,190:277,0277,190 ^0,0277,0:0,191277,191:0,1277,1:0,190277,190 h}z#??>     ̭ͮʠ Ӡ ԱӠ ӠԩŮƠ!  ԠҠӮΠҠԠ̮ʠɭ٠٠Դ  ǭĠ"ǭĮӠǮӠ ՠ խĠ  ŠӠ !ԮӠέĠ Ϡ Ԡ Բҭ͠Ǡ Π Ǡ ǭĠ"ǭĮ ǮӠ̠Ԡ:FL%ĭNS%NNNS%NS%1:R$(NS%)SR$:FL%0j iFL%İ40000:10:4:"^THE STUDENT SCORE FILE IS FULL.":130 n1:D$"OPEN "FL$".SCORES":D$"DELETE "FL$".SCORES":D$"OPEN "FL$".SCORES":D$"WRITE "FL$".SCORES":NS%:I1NS%:1:R$(I)::D$"CLOSE" D$"RU(1),MS(2),MS(3):D$"CLOSE"+ (MS(F)0130| 2D$"OPEN "FL$".SCORES":D$"READ "FL$".SCORES":NS%:NS%0āI1NS%:R$(I): <D$"CLOSE" FSR$(NL$BL$,15)(NF$BL$,11)(ZC64)(ZN64) ZFL%1:I1NS%:(SR$,26)(R$(I),26)R$(I)SR$:FL%0* d$"":Q1(768):FL$FL$((768Q)):S NF$"":Q1(785):NF$NF$((785Q)): NL$"":Q1(797):NL$NL$((797Q)): ZC(813):ZN(814) FL$"MEANING"F1 FL$"COMPARING"F2 FL$"EQUIVALENT"F3 D$"OPENMS"D$"READMS":MSPROGRAM: FRACTION-END7PROGRAMMER: TIM BUEGEQCOPYRIGHT (C) 1987 qLAST UPDATED: TJB 06/09/87 34034:26528:D$(13)(4) BL$" " NN100 R$(NN)40000:11:11:"^ONE MOMENT PLEASE...":32,1:2:& FL"_u(AS$)3230050"auA,"buA1BGBIBH:U"CL$;:HC(2(1)1):HC:RF135050"̈0,00,190:1,01,190:279,0279,190:278,0278,190:0,0278,0:0,191278,191:CR$4(1)2;:35080:#ꈓ1,0278,0278,1901,1901,0:2,1277,1277,1892,1892,1:3,227AS%((A1$,A,1)):AS%32(AS%47AS%57)ġ:10400!Du:BG0:BI0:BH0:BG((A1$,1,2)):BI((A1$,3,10)):G1(A1$):(A1$,G,1)"/"BH((A1$,G1,(A1$)))!Xu:BH0EF2:20400::10410!]uA1(A1$):AS$(A1$,A,1):AS$"/"BG0:BI(A1$):30050,YCX,YC21::YYC21DY1:XC,YCX,Y::22310q `mYYCDY1:XC,YCXC21,Y::XXC21DX:XC,YCX,Y::22310 0uA(0):A1(A1$):(A1$,1)" "A1$(A1$,2,1): 1uA1(A1$):(A1$,A,1)"/"30005 2u:BG(A1$):BI0:BH0:A1BG:3!5uA1(A1$):%I%(1):(L$"LARGER"A1AN)(L$"SMALLER"A1AN)ANA1:NRN%(0):DRD%(0):I%I%(0)Xb\aXXCDX:XC,YCX,YC21::YYC21DY:XC,YCX,Y::22310eYYCDY:XC,YCXC21,Y::XXC21DX1:XC,YCX,Y::22310xiDX1S0DX10 iXXCDX11:XC|[V2:M%((N%(S)))S20:N%(S):CD$0:V1:M%((D%(S)))S20:D%(S):M%50:SI1M%40o[F%1M%M%64[SI0M%M%3[XXM%S1407((D%(S))):YYM%S140:XX,Y91YY,Y91:R0\A1N%(0)D%(0)I%(0):ANN%(1)D%(1)I%(1):NRN%(1):DRD%(1):I957:33,40:32,0:35,21::ah[CS$2CB$2:V2:4.375S8.751:F%1Ė4.375S8.751:SI1ĺCR$8zk[F%1N%(S)N1%(S)ır[S1ĺ" ";t[F%1ĺ"= ";CR$0;u[SI0ĺ(5);9;w[I%(S):CS$1CB$1CD$3:(5)0:M%8:SI1M%7z[F%1M%17:SI1M%16\EF2:23010+ZC$"1"C$"9"EF1:23090< ZEF0:D(C$)YZ22800:EF1EF0:23090x#ZC$"0"C$"9"EF1:23090(ZDD10(C$):230602ZZ33,38:32,1:35,20::17:1024,0:957:33,40:32,0:35,21::[33,38:32,1:35,20::19:1024,0:%(S)N%(S)22450VWF(DI1)D%(S):XXXC21(PI2F):YYYC21(PI2F):XX,YYXC,YCjWDID%(S)22432pWHXPC0I%(S)1:XCXC(PC)141S:YCYC(PC):2XC,YC::YCC(A1$)EF1:22830$YC$(A1$,CC,1).YY22800:EF123090 YC$"0"1::MX.5ī26000BVXXCXC21:X,YCX,YC21::MX.75ī27000iWXXC21XC:X,YCX,YC21::28000r&W3:WXCXC(I%(S))141S:YCYC(I%(S)):2XC,YC:FN%(S)D%(S):22200WD%(S)1N%(S)022460WXX(0):DI0WDIDI1:XX(0):DI1DID122060VGCGC1:GC122030*"V22070`,VCH1:N%(S)N%(S)GC:D%(S)D%(S)GC:N%(S)022020q6VSS1:S2ı|;V22020V0:F122310VMX1F:DX21(PI2MX):DY21(PI2MX):DX(DXXC):DY(YCDY):MX.25ī25000VXXCXC21:X,YCX,YC2))):D%(1):ID$:60,8690,86:200,86230,86:mSPI3.14159267:T1$(20)" ":232,54:233,61:0:1::IN$"":uUS0VN%(S)(D%(S)(1)1):GCN%(S):GC2PT122070 VXX(0)VT1N%(S)GC:T2D%(S)GC:((T1(T1)).001)22040V(T2(T2)).00NAD Q$RD%(0)1D%(1)11025_RCB$4CS$4:3:2:I%(0):3:35221:I%(1):RF7:ID$:yRD%(0)1D%(1)11025-RCB$BN;CS$BN;CD$1:5:RF((N%(0))):N%(0):6:RF((D%(0))):D%(0):RF(RF352BN2):5:RF((N%(1))):N%(1):6:RF((D%(1OMENT PLEASE...":D$;"RUN SEMI-SUMMARY"AP(16384)14120620mP33,39::21:2:1024,1:957:33,40::TQ22800:C$"S"A11:20950^QEF120950hQC$"0"C$"9"NANA10(C$):20820rQC$"/"EF1:20950|Q23010:EF020950QA1EPERATED BY A":" SLASH, OR A MIXED NUMBER.":20460UO" 0 IS NOT A LEGAL DIVISOR."O20600:TLV:NL5:EF0:LE1:NC34:23200:xP21:2:"^PRESS ^R^E^T^U^R^N TO CONTINUE, ^E^S^C TO END.";'P16368,0:16384,128:(16384)155İ35000:12:" ^ONE MNF%1J143:23200:20203)N35000NN140,0140,Y9:S01:F%120220YN22600NXCXC(I%(S))141S:YCYC(I%(S)):F%1İ22420:20230O22400O23400:S:HH1:ONL1:LE1:J143:NC34:23300:V2:EF2204503O" ^ENTER TWO NUMBERS S(NODONRDR)NRN%(1):DRD%(1)&X/e NI%(0)((1)IR1):I%(1)((1)IR1):(1).8I%(1)I%(0)HND%(0)(14(1)2):D%(1)((28D%(0))(1)2)pNCH0:22000:CH120080zNN1%(0)N%(0):N1%(1)N%(1):23600:IO%I%:NONR:DODR:NF%1ĺ(12)(A$,I))::D$"RUNSUMMARY".N%(0)N%(0)D%(1):N%(1)N%(1)D%(0):D%(0)D%(0)D%(1):D%(1)D%(0):A1D%(0):(D%(0)A)D%(0)A(N%(0)A)N%(0)A(N%(1)A)N%(1)(A)NMA /A:N%(0)N%(0)NM:N%(1)N%(1)NM:D%(0)D%(0)NM:D%(1)D%(0):NRN%(0):DRD%(0):RECT.":20600:1022,(1022)1#)80*HP%0:H0HP%1z:*J13013HP%:23300:" ^CORRECT.":T1Ĺ1020,(1020)1:10835N*1021,(1021)1S*20600:*CL$:35000:10:10:(26)"^ONE MOMENT PLEASE...":A$"COMPARING":768,(A$):I1(A$):768I,(I%(1)D%(0)D%(1)H3)H2ıY)H1T1(I%(0)I%(1)D%(0)D%(1))J13013H:23200d)10730})NONRDODR10720)" ^THE CORRECT ANSWER IS ";I%;" ";NR;"/";DR;".":1022,(1022)1:20600:10730)" "I%" "NR"/"DR" OR "IO%" "NO"/"DO" IS CORm)TLV2:NL1:LE1:NC30:J13013HP%:23200:TL:1:" ^NO, ";Io)A1$;pr)" IS INCORRECT.";:T2ĺ"":10660w)T1H1I%(0)I%(1)ĺ:10660x)T1H2ĺ:10660y)T1H1D%(0)D%(1)ĺ:10660|)" ^TRY AGAIN.":20600:H0İ20200)(I%(0)(JJ1:10400$(C%1EF1:10470t((A1$,1)"H"H2(H1D%(0)D%(1))(H1I%(0)I%(1))İ30000:TT1:10470(H1I%(0)I%(1)İ12000(F%0:I%(0)I%(1)H1F%1(20200:10410(EF0İ20400:10410(h)HF1:HP%0:H0HP%1:HF0?:HF0(A1$,1)"H"JJ1:10400U (C%0:U1(A1$):B%((A1$,U,1)):B%32Ă:10437p (U1B%47EF1:10470 (B%47C%C%1::EF1:10470 (B%58B%47Ă:10437 (B%72Ă:10437 (H010436 (I%(0)I%(1)D%(0)D%(1)H1T2Ă:104370JJ0J143:23200 (JJ0g (ID$CD$0CB$2CR$4:V17:V:1:" ^WHICH FRACTION IS":" "L$;"? ":XX(0) (HF0:(H2I%(0)I%(1)D%(0)D%(1)T2)H1ĢV2:12:"^TYPE ^H FOR ^HELP.":HF1 (FI$"11 *$4 Z1":V1:2:L$;"? ";:(23);::A1$IN$"":(26)8(1023)0Ĭ C11000K '960:CL$ID$CB$2:3:Y9130:IR5:NR5:21400: '20000:N%(0)0N%(1)0D%(0)1D%(1)1I%(0)N%(0)D%(0)I%(1)N%(1)D%(1)1025 '140,0140,120:PT3RF7:10250 (21000 (21200: (18:U1120:U:(20);::H:(2(1))1L$"LARGER"4 T0:H0:XX(0):10200:  10400:RT((A1AN).001):RT0İ10600:H1T1I%(0)I%(1)D%(0)D%(1)HF1F%1:12000:20200:1040 F%0:T2(RT)((H1I%(0)I%(1)D%(0)D%(1))H0HF1)1040 )HF0:RTİ10800 S$(19):CD$(17)O (13)(4)"BLOADPIZZAS,A15670":PT4:L$"2"L$"SMALLER"n (4)"BRUNCLEAREOL-SM.OBJ"~ L$"3"K1 C05:XC(C),YC(C):: 24,34,69,34,114,34,24,94,69,94,114,94:10000:CT1:1023,(1023)1:HF0:35000 K1L$"SMALLER"IPROGRAM: COMPARING-MID.2=PROGRAMMER: CHARLES LUND[COPYRIGHT (C) 1984, 1987{LAST UPDATED: TJB 06/09/87230,64:34034:25292:BN2:D$(4):L$((1019)):L$"1"L$"LARGER" 232,54:233,61:CL$(12):ID$(9):CB$(16):CR$(6):C           ELEVISION OR MONITIOR":" OFF.".`r29280WITCH IS LOCATED BEHIND THE":6:"COMPUTER ON THE LEFT."[r16:" 3. ^TURN YOUR TELEVISION OR MONITIOR":" OFF."`r292800:6:"^TO TURN THE COMPUTER OFF:"wQr9:" 1. ^REMOVE THE DISKETTE FROM THE":6:"DRIVE AND PUT IT IN A SAFE PLACE."Vr12:" 2. ^TURN THE COMPUTER OFF. ^THE":6:"SWITCH IS LOCATED BEHIND THE":6:"COMPUTER ON THE LEFT."#[r16:" 3. ^TURN YOUR T:8:"^INSERT THE NEW DISKETTE."i9r23:7:"^PRESS ";::" ^R^E^T^U^R^N ";::" TO CONTINUE.":16384,0:r(16384)14129242;r(29):=rA(999)(1000)256:B(A)(A1)256:CS(B1)16:CS1CS7CS6Br:(13)(4)"PR#"CSGr"Lr2500190279,0 a(6)6;(1)4;$ a3:. r END9 r25000u r14:4:"^ENTER ^Y^E^S OR ^N^O AND PRESS ^R^E^T^U^R^N." r11:10:"^WOULD YOU LIKE TO USE":10:"ANOTHER DISKETTE? ";:FI$"11 &$3EY1":(23);::(26) r(IN$,1)"Y"29260 8r25000:10X F$ FOR RERUN6 (F$,9)"COMPARING"F$"COMPARING"Z (F$,7)"MEANING"F$"MEANING"` u a BORDER  aCL$; a(1)21 a1,0278,0278,1901,1901,0 a2,1277,1277,1892,1892,1 a3,2276,2276,1883,1883,2:0,00,190279,(23);:FI$"11 .$4AZ1"::N$IN$"":(26) n11:2:"^WHAT IS YOUR LAST NAME?":2:(23);:FI$"11 2$4AZ1"::L$IN$"":(26) xD$"OPENNAME":D$"WRITENAME":N$:L$:O$:P$:F$:D$"CLOSE" 25000:10:10:"^ONE MOMENT PLEASE...":D$"RUN"F$  FI:1:"^ENTER YOUR OPTION NUMBER":"AND PRESS ^R^E^T^U^R^N. ";^ KFI$"11 $$4141"::O(IN$)m PO429200 UO2İ2000:120 ZO3İ25000:10:10:"^GETTING THE MENU...":D$"RUNMENU" _950,1 d25000* i8:2:"^WHAT IS YOUR FIRST NAME?":2:" 250008 6:" ^WHAT WOULD YOU LIKE TO DO NEXT?" (:" 1. ^RUN THE SAME PROGRAM AGAIN":" USING THE SAME OPTIONS." 2:" 2. ^RUN THE SAME PROGRAM USING":" DIFFERENT OPTIONS." 7:" 3. ^RETURN TO MAIN MENU." <:" 4. ^END."> F:0PROGRAM: MENU-END6PROGRAMMER: CHARLES LUNDTCOPYRIGHT (C) 1984, 1987tLAST UPDATED: TJB 05/28/8734304:960:(12);(16)2IN$""950,0 CL$(12) D$(4) D$"OPENNAME":D$"READNAME":N$:L$:O$:P$:F$:D$"CLOSE  ΍΍ҍǭčččӍč  154,106 GUC$;C J12:22:CC$;0;CB$;2;"C";CC$;3;UP$;0;" 1988"s T14:5:"^WHITE ^BEAR ^PUBLISHING ^COMPANY" ^16:11:"^ALL ^RIGHTS ^RESERVED" cLC$; r21200:CL$ |130:4:16:CC$;3;"^C^R^E^D^I^T^S" 6:96,24160,24160,3696,3696CTION ACTION VOLUME 1"9 8TC$"FRACTION ACTION":4:1000[ 9C$"Practice Using Fractions"m :5:1000:LC$ ;CC$;3;:7:19:"BY":9:14:"^CHARLES ^LUND" @12:12:CC$;3;"^COPYRIGHT" D3:145,98154,98 EX99105:144,X155,X:X F145,106$2CC$0:4:9:"^EDUCATIONAL ^COURSEWARE"C 768: MOVE WHITE BEARM CC$0V UC$ 6:6:"WHITE BEAR PUBLISHING COMPANY";CC$3LC$:21200 "130:3:X1644:27,X247,X:X ,6:18,10256,10256,5018,5018,10 64:11:CC$0;UC$:4 7C$"FRAZ1":251,1::251,0:JF$IN$"":JF$""Ģ11:3:251,1:(R$(ZI),16,11):251,013:"^ENTER NEW LAST NAME.":FI$"11 2#4AZ1":251,1::251,0:JL$IN$"":JL$""Ģ14:3:251,1:(R$(ZI),1,15):251,02200018:"^IS THIS INFORMATION CORRECT? ";:V%@ P$$$?????????>>>>>>66666666655555---------%$$$4666$ u6 -?6- I166&$ -6" ->?7--'du66& - ?d)u6?d-6/? I--??q - )66:?$$ 66$?-- 666H)hɠFȄBLL$B<%=eB$$ " Eȱ81ׅh<&݅ۅ߅,`߅߅ h%<$=ЅFȄB@ i1i>CBCC`  EHLP)HJJh)JJL)%"# !L-`Ԣ ێȱLKТLF ێH?@DE >L- Li0 ࢏L81Hȱ81Hȥ 8$Ʌ<ȥ 8$(=ȱ8"(>ȱ8#>L~?ȱ81@ȱ Dȱ` 才` 才` Ii`` Lo0`LMLS0`LgLm JF8ȹe8ИL`Lø{{ttlnghab\\WWRRMNIIEEAA=>::673401..+,))&'$` 0 `{80 ``hhhhz{L2  c `#! "`#67 X ? T @UWWRP{``` 0䍃$% W `  ` Ii }1~20 y|1}2~00` L䇥ޅhhL-$(`L XL׉+**++8 $%` $%%#"%L"$$!L` 0`*U HmhHmh c` z獀筇`z{{z`䭀yxz`6 zzɡ`hhL2hh7n8o L2z F8   ` e vȱ e w|}~ vw ΁ }~`67 ( cTQLX hhL2 FhhL/   `LL#L3L n A s %`쇉n䇌NK3ɇ9ʼn %| m||i|$~}~m}}~L"i}~L"xy0 i      I,((A$,I)):k$KD$(4):D$"OPENNAME":D$"WRITENAME":A2$:A3$:"":"":950,1:"EQUIVALENT":D$"CLOSE":$PúD$"RUNSUMMARY"1:"EQUIVALENT":D$"CLOSE":$PúD$"RUNSUMMARY"_SWER. ";#j23:19!#l:G$IN$5#vCL0:OP1CL1?#9000W#ANGİ15400:35250b#15500m#21200w#1230#Fú(12):25000:10:10:"^ONE MOMENT PLEASE..."#Gù1020,C1:1021,C2:1022,NW:902,2$IA$"EQUIVALENT":768,(A$):I1(A$):7680X0-"J~Y1Y24DY1:X1,YX,Y1::32250N"T~Y1YDY1:X1,YX124,Y1:r"^~XX124DX:X1,YX,Y1::32250" ASK QUESTIONS"9:1"XFI$"11 -$4/91""b4:19:HT23:VT19"eOP1FI$"11 %$4/91":16:"? = ";:35180#g"^ENTER YOUR AN310!!}XX124X1:X,YX,Y24:,!}323405!}3:N!~ ERASE SECTIONS U! ~0q!~XX1DX:X1,YX,Y24:!~Y1Y24DY:X1,YX,Y1::32250!"~Y1YDY:X1,YX124,Y1:!,~XX124DX1:X1,YX,Y1::32250!6~XX1DX1:X1,YX,Y24:"@~X  s}PI3.14159267 x}0* }NN032250= }NNDN132250R }FC1NNDN:MXFC }DX24(PI2MX):DY24(PI2MX):DX(DXX1):DY(YDY) }FC.2532260 }XX1X124:X,YX,Y24: }FC.532290 }XX1X124:X,YX,Y24:!}FC.7532Yyy3y2} DRAW FRACTIONED PIZZA9 }3C}Y100O}1X1,YU!}p#} DRAW AUXILLARY LINES(}DN0321002}PI3.14159267<}SD2PIDNF}TH02PISDP}X1,YX1(TH)24,Y(TH)24Z}d} n} ERASE FRACTIONED PIZZAyST(D1N1)(100D1)50%6yYST150B@y41,Y109,Y:161,Y229,YHJyOOy0`TySTST100D1p^yN1131110hyYST150.1100D1100D1ry41,Y109,Y|yyNIN2:N20NIANySTST100D1100DIyYST150.1100DI100DIy161,Y229,Nu160,50230,50230,150160,150160,50jSu39,5039,150:111,50111,150:159,50159,150:231,50231,150XuY50150100D1bu40,Y110,YluvuDID2:D20DIANuY50150100DIu160,Y230,Yuuy FILL IN THE BOXES"y2,NN1qH1DN:I1NNq32000*q321105q32035KqH2DN:I2NN:U2MXVqX1195tqN20DND2:NN(D2D1)N1qD20NNN2:DN(N2N1)D1q32000q32110q32035q350000u DRAW BOXES :u3Du40,50110,50110,15040,15040,50(1:bqN20D2029030#cqNU4:dqD2D1(NU(1)2)UeqD221NUD2D1:29028ifqHL29040,29070pq 1'ST HELP (BOXES)uq30000zq31000qDNDI:NN(DID1)N1:NI1DN(NIN1)D1:NNNIq35000q 1'ST HELP (PIZZAS)qX175:DND1:N1,0$a2,1277,1277,1892,1892,1^a3,2276,2276,1883,1883,2:0,00,190279,190279,0pa(6)6;(1)4;ya3:Hq HELP SECTIONMqHP1RqHL(2(1)1)\q 1'ST HELP _qD4D2aq33,39:32,1:35,20::1024,0:9:957:32,0:33,40:35,2R1ER20:2:"^PRESS ^R^E^T^U^R^N TO CONTINUE, ^E^S^C TO END.";_R16368,0:16384,128R(16384)155ĺ(12):12:49990:(4);"RUN SEMI-SUMMARY"R(16384)14121220S:a BORDER a(1)21a1,0278,0278,1901,1901:CL0 >>CK216140)>A1107>VT:HTAB>(20)H>Q?CN1W ?vhB ERASE PART OF THE SCREENrB33,38:32,1:35,20::14:1024,0:957|B32,0:33,40:35,21::R SPACE BAR RUOTINE R33,38:20:2:1024,1:957:33,40H:19:(20);::35:15590!=G> CHECK G$ FOR ILLEGAL CHARACTERSZ>CN0:CK0:CL1}>(G$,1)"H"HP1CN2:16140>A110>CH$(G$,A,1)>CH$""16070>CH(CH$)>CH47CH5716050>16060>CH3216090>CH47CKCKQNNQİ49990:50000H1200y GIVE THE MISSING PART (1/2=?/4 OR 1/2=2/?)D1(7(1)2)N1((D11)(1)1)ML(4(1)2)D1ML212030U(2(1)1)U2050,2045"D2D1ML:N20:ENTER A NUMBER AND PRESS ^R^E^T^U^R^N."3 17:18C :NQ(IN$)p NQ0NQ20Ģ17:19:(20)" "(20):1165 815,OP:816,NQ:950,0 OP3NP1 (16);2 QNQN1 NP1OP(2(1)1) OP2000,3000%AN0:N10:N20:D10:DN0:ML0 PRESS ^R^E^T^U^R^N. ";' L:OP(IN$)t QOP4Č960:(12):25000:2:10:"^GETTING THE MENU...":(4);"RUN MENU" V17000 ` GET NUMBER OF QUES. (NQ) jFI$"11 %$2 1" t5:16 ~"^HOW MANY PROBLEMS WOULD YOU"' 5:"LIKE? (1-20)":5:"^OR (1/2 = 2/?)"R :" 2. ^NAME THE EQUIVALENT FRACTION (1/2 = ?/?)" :" 3. ^RANDOM SELECTION OF OPTIONS 1 & 2" :" 4. ^RETURN TO LESSON MENU" $16:5 .FI$"11 $$4141" 8"^ENTER THE OPTION NUMBER YOU" B:5:"WANT AND5:2:"^WHAT IS YOUR LAST NAME?":2:FI$"11 2$4AZ1":(23);::(26):A3$IN$""p  EQUIVILANT FRACTIONS { IN$"" (12):(16);2 25000:(6)0; 7:"^EQUIVALENT LESSON OPTIONS:" 5:" 1. ^GIVE THE MISSING PART (1/2 = ?/4) L-SM.OBJ" IN$"":(19);1( (12) (950)1OP(815):NQ(816):(4)"OPENNAME":(4)"READNAME":A2$:A3$:(4)"CLOSE":1185 (16)2 25000 2:2:"^HELLO! ^WHAT IS YOUR FIRST NAME?":2:FI$"11 .$4AZ1":(23);::(26):A2$IN$""S PROGRAM: EQUIVALENT8PROGRAMMER: CHARLES LUNDVCOPYRIGHT (C) 1984, 1987vLAST UPDATED: TJB 06/11/87d34034:25287n(13)(4)"BLOADPIZZAS,A24576"s1:0:232,0:233,96:230,64x(13)(4)"BRUNMASTER-SM" y(4)"BRUNCLEAREO          %,,TQQRQ:6-<|II 77.%'>65%%'7.%=7/.%<27.,<6767>>>>>77?7?>?>?7????67777?>7?7??>???'?'?<<<<'<<$'$$<,$$$%@> >,,$$,,,,$-,,%-,%--%--.--55-.....65.6.666767>>>>>>>?>>?7?????67?>>>7??>???+ZZ%(100(NT%NC%))H+ZZ%"%":3:(R$(ZI),1,15):::..40000:11:7:"^UPDATING STUDENT SCORES...":8000.1:D$"OPEN"FL$".SCORES":D$"DELETE"FL$".SCORES",.D$"O::251,0:ZF$IN$""i +:"^ENTER THE STUDENT'S LAST NAME.":251,1:FI$"11 2$4AZ1"::251,0:ZL$IN$""+SN$(ZL$BL$,15)(ZF$BL$,11)+ZI1NS%:SN$(R$(ZI),26)Ă +ZINS%ı*+40000:1100F4+251,1:(R$(ZI),16,11);:20:NT%((R$(ZI),'NS%0ı<'40000:11:8:"^LOADING STUDENT SCORES..."t'1:D$"OPEN"FL$".SCORES":D$"READ"FL$".SCORES":NS%$'NS%010040.'33,38:I1NS%:R$(I)::33,408'8000:12040*+"^ENTER THE STUDENT'S FIRST NAME.":251,1:FI$"11 .$4AZ1"EMS":MS(1)","MS(2)","MS(3):D$"CLOSE":100}XFI$"11 &$4AZ1":V%:H%:251,1::251,0:AQ$(IN$,1):AQ$"Y"AQ$"N"7000b40000:10:10:"^ONE MOMENT PLEASE...":@NS%2ıJ37635,("R"):37636,128:L1%1:L2%26:X%NS%:37632:' $"Y"5020(12000:100p40000:8:"^MANAGEMENT FOR ";:251,1:FL$;:251,0:" IS"::"CURRENTLY "MS$(MS(O1))". ^DO YOU WANT"::"TO TURN IT "MS$(1MS(O1))"? ";z22000:V%12:H%18MS(O1):7000:AQ$"N"100+MS(O1)1MS(O1):D$"OPENMS":D$"WRIT0:10022000W18:"^DO YOU WANT TO DELETE THIS":"RECORD? ";:V%19:H%10:7000iAQ$"N"5120s7100IZINS%1:R$(I)R$(I1)::NS%NS%140000:22000 10:"^DO YOU WANT TO DELETE ANOTHER":"RECORD? ";:V%11:H%10:7000 AQORD? ";:V%11:H%10:7000+JAQ$"Y"4020;^12000:100AL10000W40000NS%Ģ10:7:"^NO SCORES ARE IN THE FILE.":PF1:21200:1002:8:"^DELETE A STUDENT RECORD"::11000ZINS%ĺ:"^THAT STUDENT IS NOT IN THE FILE.":212018:H%31:7000LAQ$"N"Ģ18:" ":4060l"JF$""JF$(R$(ZI),16,11),JL$""JL$(R$(ZI),1,15)1R$(ZI)(JL$BL$,15)(JF$BL$,11)(R$(ZI),2)640000@22000:10:"^DO YOU WANT TO MODIFY ANOTHER":"REC -> CLOCKWISE"G21:4:"^PRESS ^R^E^T^U^R^N WHEN YOU ARE DONE."U16368,0(16384)136(16384)149(16384)1414020(16384)136ANPI6:VV5:4030(16384)149ANPI6:VV5:40304200 X10:Y1.87:T9T9:11052)5  V07 3:TY142161:196,TY275,TY::(3)0f<17:30:"^SET CLOCK":18:31:"TO "HS":";FMS10ĺ"0"MS;:4001PMS;:MS0ĺ"0";:".":(3)32419:"^MOVE THE HANDS TO THEIR CORRECT PLACES."20:"<- COUNTER CLOCKWISE80 X10:Y1.6:T8PI:12000= X(0),Y(0)X(X2),Y(Y2)Y X10:Y1.87:T90:11050x X(0),Y(0)X(X2),Y(Y2) TIME HS=HOURS MS=MINS HS((1)12)1 F0MS0 F30MS((1)2)30 F15MS((1)4)15 F5MS((1)1E THE":} "LEFT ARROW <- TO MOVE THE HANDS"::"COUNTER-CLOCKWISE AND THE RIGHT"::"ARROW -> TO MOVE THEM CLOCKWISE." 2000 ZZ1E BWZZ HA6:MA0:T90:T8PI 25000:(6)4;(1)2;:18 "^PROBLEM "ZZ" OF "E 3 1140,ICH DO YOU WANT? ";:FI$"11 $$4131"::W1(IN$)? W137100M W11195f 25000:(6)4;(1)2; :"^IN THIS LESSON YOU WILL BE TOLD "::"THE DIGITAL TIME AND YOU MUST MOVE"::"THE CLOCK HANDS TO THE CORRECT "::"POSITION. ^TO DO THIS YOU US000:(6)4;(1)2;:7:"^YOU HAVE THREE OPTIONS:" :"1. ^SEE A CLOCK FACE AND GIVE THE":" DIGITAL TIME"::"2. ^GIVEN THE DIGITAL TIME MOVE THE":" CLOCK HANDS TO THE CORRECT":" POSITION"::"3. ^A RANDOM SELECTION OF 1 AND 2"0 :"^WH68,0:16384,128:A9(16384)1282:A9131840<D6000N *** RETURN21:2:"^PRESS ^R^E^T^U^R^N TO CONTINUE, ^E^S^C TO END.";:2039,17416368,0:16384,128:A9(16384)128:A913A927Ĺ36,0:2010A913ė::70000 253:S1;" CORRECT ON THE FIRST TRY ":12:3:S2;" CORRECT ON THE SECOND TRY "x14:3:S3;" CORRECT ON THE THIRD TRY "16:3:BW(S1S2S3);" INCORRECT ":19:1:"^SO LONG FOR NOW."&21:8:"^PRESS ^R^E^T^U^R^N TO CONTINUE.";:2039,174!0163OLLOWING SCORE:"V31BW3T(3,V3)201730?S1S11VT(3,V3)101750bS2S21yT(3,V3)201770S3S31V3HC(6(1)1):HC4HC317803:1,70279,70279,1501,1501,70:3,72277,72277,1483,1483,72L10:W12YZZ!cT(3,Y)(1(V))2V'h1m2000CnCHECK58120QoW12ĂZZ`pW121675grYm|S10:S2S1:S3S2CL$"^WELL, ^"N$","::"THAT'S ALL FOR THIS LESSON. ^OUT OF "E:"PROBLEM";:E1ĺ"S";" YOU HAD THE F$A6$01560M1013502Q2(10(8)1)>"D1Q2F,A$~6"CORRECT","VERY GOOD","SUPER","DOING FINE","GREAT"@ "EXCELLENT","WELL DONE","BEAUTIFUL","FANTASTIC","AMAZING"JDO20:W12ĺ(17)5;R24T"^"A$;", ^"N$"!" ^R^E^T^U^R^N"&S(16384)14121250, S:14:"^PRESS";6RCB$2CC$;0;UP$;5;:" ^R^E^T^U^R^N"PS(16384)14121250V S4:"^PRESS";RCB$2CC$;0;UP$;5;:" ^R^E^T^U^R^N"S(16384)14121250 SIRID$;CB$2;CC$;3;UP$;5;:21:14:"^PRESS"; RCB$2CC$;0;UP$;5;:" ^21200RCL$CC$3CB$2:130:12:2:"^GETTING THE MENU...":(13)(4)"RUN MENU"l((40(C$))2):C$:R PRESS RETURN SUBROUTINER16368,0R3RX171185:85,X177,X:XR0RX173183:87,X128,X:RID$;CB$2;CC$;3;UP$;5;:21,24' 7:8:"^PARTS OF ";UC$;TC$;LC$ 09:10:"WERE DEVELOPED USING":11:8:"^APPLE ^COMPUTER PRODUCTS.":13:2:"^COPYRIGHT 1981, ^APPLE ^COMPUTER, ^INC.":15:2:"^APPLE ^D^O^S 3.3 ^COPYRIGHT 1980, 1981." 17:10:"^APPLE ^COMPUTER, ^INC."0)LE03:RI010:T(LE,RI)0:RI:LE5Y11ENT(1,Y1)((8)12)1pT(2,Y1)((8)60(F.001))F"H2T(1,Y1),M2T(2,Y1)6(H211)(M245)(M250)(M255)000270@Y1JU$" 1 2 3 4 5 6 7 8 91011120005101520253035404550552;3"^IN THIS LESSON YOU WILL HAVE TO READ A":a"CLOCK AND THEN TYPE IN YOUR ANSWER. ":"^BE SURE TO TYPE THE HOUR, A COLON, AND":"THEN THE NUMBER OF MINUTES PAST THE":"HOUR. ^FOR EXAMPLE, 12:15.":"^GOOD LUCK!"2002.5F))1)(4F)15 CL$:129 25000:(6)4;(1)2;@ 9q "^HOW MANY CLOCKS WOULD YOU LIKE TO LOOK": "AT (1-10)? "; IN$"":FI$"11 %$4091"::E(IN$) (10E)(E1)0ĺCL$:155 E(E) 3000 CL$;25000:(6)4;(1)UR INTERVALS":3 i"4. ^FIVE MINUTE INTERVALS":c n"5. ^A RANDOM SELECTION OF OPTIONS 1-4": s"6. ^RETURN TO MAIN MENU.": x" ^WHICH WOULD YOU LIKE? ";: IN$"":FI$"11 $$4161"::F(IN$) F6ė:6080 F((F3.5)1)52((.5(L Xi`$%! Е# I('$ Е`᭏% ЕO ̻ ЕG8ح Е1 $%%#$%`Pɀ,ePȰ Q&-Q&&η` a3:)0u CLEAR FROM VTAB 19 DOWN!!l:u32,1:33,38:35,20::18:1024,0:957:32,0:33,40:35,21::bu CLEAR SIDES OF SCREENlu33,10:35,7::1:1024,0:957vu32,29:33,39:(6)3:1:957:32,0:33,40:35,21:(6)6:6:I,21:(6)6:1021,R2:1022,WR:(13)(4);"RUN SEMI-SUMMARY"IR(16384)14121220OSda BORDER ra(1)21a1,0278,0278,1901,1901,0a2,1277,1277,1892,1892,1a3,2276,2276,1883,1883,2:0,00,190279,190279,0a(6)6;(1)4;ANING":768,(A$):I1(A$):768I,((A$,I)):K(13)(4)"RUNSUMMARY"[R SPACE BARR20:2:"^PRESS ^R^E^T^U^R^N TO CONTINUE, ^E^S^C TO END.";R16368,0:16384,128/R(16384)155ĺ(12)::10:"^GETTING YOUR SEMI-SUMMARY...":1020,R1:0000:452,:" ^HERE IS SOME HELP.":46018:2:"^YOUR ANSWER IS STILL INCORRECT. ^THE CORRECT ANSWER IS ";MUN"/";DEN;".":WRWR1:21200KKK1020,R1:1021,R2:1022,WR(12):25000:10:10:(26)"^ONE MOMENT PLEASE..."0A$"ME1R1R11:R2R21k21200&p1000MUNDENUMNEDĢ18:2:UM"/"NED" IS EQUIVALENT TO THE CORRECT":2:"FRACTION. ^TRY AGAIN.":21200:30000:452TRY195019:2:UM"/"NED" IS INCORRECT.";:TRYTRY1 HELP1ĺ" ^TRY AGAIN.":21200:3WCLOOP1LE:(A$,LOOP,1)"/"UM((A$,1,LOOP1)):NED((A$,LOOP1,LELOOP)):850bH:820RNED0Ģ19:2:"0 IS NOT A LEGAL DIVISOR.":21200:30000:452\UMMUNDENNED900fUMMUNNEDDENĢ19:2:UM"/"NED" IS CORRECT!!":R1R11:TRYЖ31:(6)5T1$T1$T1$(6)6;:31:DEN2DHELP1:452M  CHECK ANSWER HERE...Z*LE(A$)h/LE2830418:" ^ENTER TWO NUMBERS SEPARATED BY":" A SLASH.":21200:30000:452>LO1LE:CH$(A$,LO,1):(CH$"0"CH$"9")CH$"/"İ30000:452@LO;:1:30:"^HOW MANY":2:30:FOOD$:3:30:"FIT IN":4:30:"THE PAN?";(6)6&FI$"11 &$4091":30::SA(IN$):SADENĢ19:16:"^CORRECT!":570019:2:"^INCORRECT, THE CORRECT ANSWER IS ";DEN;".":21200:30000<0:210,48270,48:3"?5:GONE?"!ELFLAG2ĺ"ARE LEFT?"kFI$"11 &$4091"::SA(IN$):30000:SAMUNĢ19:16:"^CORRECT!":53019:2:"^INCORRECT. ^THE CORRECT ANSWER IS ";MUN"."21200:300000:7,3930,39:34:2:(6)5T1$T1$T1$(6)6;:2:MUNM(6)4):A$IN$"":T2T21:300000 (A$,1)"H"800 HELP1Ģ19:1:"^SORRY, THAT'S ALL THE HELP ^I CAN GIVE.":21200:30000:452 X1GH:3:76XSH,476XSH,132: X1GV:3:76,4XSV204,4XSV:1:1:"^HOW MANY":FOOD$:ELFLAG1ĺ"ARE 1)SV77(C1)SH,3RSV75CSH,3RSV75CSH,5(R1)SV77(C1)SH,5(R1)SV:3:a 30000 FI$"11 *$4/H1":18:2:"^WHAT FRACTION OF THE ";FOOD$:" "EL$;:"? ";:DH(EL$)3 HELP0Ģ20:12:"^TYPE ^H FOR ^HELP." 19:DH:(23);::(268GV:SH128GH. DENGVGH:NUM(DEN(1)1)P MUNNUM:ELFLAG1MUNDENNUMa R1:X1NUMi CXv X1420 ((X1)GH)((X1)GH)RR1 CGHCCGH:420 Y76(C1)SH76CSH Y,4(R1)SVY,4RSVV :0:77(C1)SH,5(R 1HELP0:TRY0 63:(12)( ;25000P =19:9:"^CREATING YOUR PROBLEM..."k @AREAGVGH:HELP0:T20 J76,476,132204,132204,476,4 TGID(NN(1)LK) ^X((GID))11 cX1340 hGIDX(GIDX)GVX:GHGIDX:380 rX |SV12(815):LK(816)p D$(4):D$"OPENNAME":D$"READNAME":N$:L$:CB:D$"CLOSE":CB2ĺD$"RUNMEANING-MID.CHRIS" 960:(12);(9);(16)2 (4)"BRUN CLEAREOL-SM.OBJ,A$8500" IN$"":TI%0 V(16):T1$(20)" " R10:R20:WR0 ,KKK1NPPROGRAM: MEANING-MID9PROGRAMMER: CHARLES LUNDQCOPYRIGHT (C) 1984rLAST UPDATED: TJB 06/09/87 i34034:24576nNP(817):ELFLAG(818)xFOOD$"":X1(819):FOOD$FOOD$((819X)):X1(830):EL$EL$((830X)): NN      26F$"MEANING-MID":CB3F$"MEANING-MID.CHRIS":6F$J6D$;"CLOSE"P6ea BORDER sa(1)21a1,0278,0278,1901,1901,0a2,1277,1277,1892,1892,1a3,2276,2276,1883,1883,2:0,00,190279,190279,0a(6)6;(1)4FOOD$):819X,((FOOD$,X)):N2830,(EL$):X1(EL$):830X,((EL$,X)):t2CB3ĺD$;"RUN MEANING-MID.CHRIS"2D$;"RUN MEANING-MID"36 *** WRITE NAME6D$(4)6D$;"OPEN NAME"6D$;"WRITE NAME"6N$:L$6CB6"FILLER"25000:2:10:"^GETTING THE MENU...":(13)(4)"RUN MENU"k/EL$"HAS BEEN EATEN":ELFLAG2EL$"IS LEFT"q02 **** CHAIN OUT2(12):25000:10:" ^ONE MOMENT PLEASE..."214000: WRITE NAME2817,NP:818,ELFLAG2819,(FOOD$):X1(HAT FRACTION OF THE"4 /8:FOOD$" HAS BEEN EATEN?": /] /5:"2. ^WHAT FRACTION OF THE"w /8:FOOD$;" IS LEFT?"} / /5:"3. ^RETURN TO LESSON MENU.": /1:"^ENTER 1, 2, OR 3 AND PRESS ^R^E^T^U^R^N. ";::ELFLAG(IN$):/ELFLAG3ĺ(12):X/SCRACH1FOOD$"BROWNIES"= b/SCRACH2FOOD$"LEMON BARS"\ g/SCRACH3FOOD$"NUT BARS"} l/FOOD$""FOOD$"SPICE BARS" v/ / *** EATEN OR LEFT? /(12) /25000 /4:FI$"11 $$4131" /" ^MEANING LESSON OPTIONS:" / /5:"1. ^W:" 2. 11 TO 20"::" 3. 21 TO 256"::" ^WHAT IS YOUR PLEASURE? ";:FI$"11 $$4131":v $+CB(IN$):CB1LN2:NN9 %+CB2LN11:NN10 &+CB3LN21:NN236 (+815,NN:816,LN *+13000: CHAIN OUT D/ *** SELECT A FOOD N/SCRACH((1)31) ESS ^R^E^T^U^R^N" !+18:"^TYPE '0' TO RETURN TO LESSON MENU.":FI$"214G$$4091"::NP(IN$):NP0ĺ(12):25000:2:10:"^GETTING THE MENU...":(13)(4)"RUN MENU" "+(12):25000:" ^HERE ARE YOUR CHOICES FOR":" DENOMINATORS:":X #+" 1. 2 TO 10":"^HELLO! ^WHAT'S YOUR FIRST NAME?":2:FI$"11 .$4AZ1":(23);::N$IN$"":(26) +5:2:"^WHAT IS YOUR LAST NAME?":2:FI$"11 2$4AZ1":(23);::L$IN$"":(26) +12100:12200:::"^HOW MANY PROBLEMS DO YOU WANT?(1-9)"::"^ENTER A NUMBER AND PR PROGRAM: MEANING5PROGRAMMER: CHARLES LUNDSCOPYRIGHT (C) 1984, 1987sLAST UPDATED: TJB 06/08/87 34034:24576(230)32Ĺ230,64:62450(4)"BRUNMASTER-SM":IN$""((4)"BRUNCLEAREOL-SM.OBJ"*(16)2:25000R +2:2:      BGBH:' BORDER &'ň(1)21G'ꈓ1,0278,0278,1901,1901,0h'2,1277,1277,1892,1892,1'3,2276,2276,1883,1883,2:0,00,190279,190279,0'(6)6;(1)0;'3:22310&&`mYYCDY1:XC,YCXC24,Y:J&jmXXC24DX:XC,YCX,Y::22310Q&0u _&3uBG0:BH0&5u((A1$))A1$A1(A1$):BGA1:BH6969:&:uBG(A1$)&DuGB1(A1$)&Nu(A1$,GB,1)"/"BH((A1$,GB1,(A1$)))&XuGB&]uBH0A11000000:'buA1(PI(2TH)):Y40(PI(2TH)):XCX,YCYXC,YC:TH:T%aXXCDX:XC,YCX,YC24:x%aYYC24DY:XC,YCX,Y::22310%eYYCDY:XC,YCXC24,Y:%eXXC24DX1:XC,YCX,Y::22310%xiXXCDX1:XC,YCX,YC24:&iYYC24DY1:XC,YCX,Y::=$:\A1N%(0)D%(0)I%(0)(PT3):ANSN%(1)D%(1)I%(1)(PT3)S$D\NRN%(1):DRD%(1)$X\(LS$"LARGER"A1ANS)(LS$"SMALLER"A1ANS)ANSA1:NRN%(0):DRD%(0)$]\NONR:DODR$b\$]$]N(S1)((1)(D%(S1)1)):$^6%^MX1FR:TH.5MXST:X40MN%9:V12:MN%SIDE20:(1)3;"=":MN%13e#[(17);"3":V12:MN%((N%(SIDE)))SIDE20:N%(SIDE)#[(17);"0":V11:MN%((D%(SIDE)))SIDE20#[MN%40:FG1MN%74#[D%(SIDE):MN%SIDE1407(((D%(SIDE)))1),Y92MN%10SID140,Y92:$0\3,40:35,21:"Z"[\"[33,38:32,1:35,20::20:1024,0:957:32,0:33,40:35,21::b"h["k[(1)0;(5)0;(6)0;(17)0"m[PT323420"r[(19);"2";(16);"2":V121:4.375SIDE8.75:I%(SIDE)"|[MN%8"[FG1D1%(SIDE)D%(SIDE)ı*#[FG190!YCH$"0"EFLAG2:23010B!ZCH$"1"CH$"9"EFLAG1:23090X! ZEFLAG0:DA(CH$)e!Z22800:!ZEFLAG1EFLAG0:23090!#ZCH$"0"CH$"9"EFLAG1:23090!(ZDADA10(CH$):23060!2Z!Z "Z33,38:32,1:35,20::17:1024,0:957:32,0:3 W HXPIZZA RXPC01 \XPCI%(SIDE)22260 fXXC40(PC1)OVERLAPSIDE141:YC40(PCNR)67:PCNR(PCNR)FRACTN0:22200: zX2XC,YC:PCPC1:22620 Y YCC(A1$)EFLAG1:22830 $YCH$(A1$,CC,1) .Y Y22800:!YEFLAG1230&W3: W DRAW SEC, DIVIDERSOW1XC,YC:FRACTNN%(SIDE)D%(SIDE):22200:pWD%(SIDE)1N%(SIDE)022460WDIVIS1D%(SIDE):DIVIS1DIVISD%(SIDE)N%(SIDE)22450WFR(DIVIS1)D%(SIDE):XC36(PI(2FR)),YC36(PI(2FR))XC,YC WDIVISFRACTN122310VMX1FRXVDX24(PI2MX):DY24(PI2MX):DX(DXXC):DY(YCDY)lVMX.25ī25000VXXCXC24:X,YCX,YC24:VMX.5ī26000VXXCXC24:X,YCX,YC24:VMX.75ī27000WXXC24XC:X,YCX,YC24:W28000"VDV1D%(SIDE)T,V(D%(SIDE)DV)D%(SIDE)DV(N%(SIDE)DV)N%(SIDE)DVGCDDV\6VDV@VD%(SIDE)D%(SIDE)GCD:N%(SIDE)N%(SIDE)GCDEVPT1D%(0)D%(1)D%(SIDE)D%(SIDE)GCD:N%(SIDE)N%(SIDE)GCD:22010JVSIDETVV ERACEV0V(20)" ":S24000:2S232,0:233,96:0:1:8SESIN$"":TU N%(SIDE)pUN%(0)((D%(0)1)(1))VN%(1)((D%(1)1)(1))V(N%(0)0N%(1)0)(100(1)1)2222000VN%(0)D%(0)1N%(1)D%(1)122010VPT122100VSIDE0119);BN;(17);"7":5:RFRAC((N%(0))):N%(0):6:RFRAC((D%(0))):D%(0):RFRAC(RFRAC352BN2):5:RFRAC((N%(1))):N%(1):6:RFRAC((D%(1))):D%(1):(9):60,8080,80:200,80220,80 SSSI%(1),N%(1),D%(1):BN2: SPI3.14159267:T1$20950^QEFLAG120950FhQCH$"0"CH$"9"NANA10(CH$):20820crQCH$"/"EFLAG1:20950p|Q23010:QEFLAG020950QA1NADAQRR(16);2BN;(19);2BN:3:2:I%(0):3:352BN1:I%(1):RFRAC7:(9):RR(16);BN;(:" ^ONE MOMENT PLEASE...":1020,R1:1021,R2:1022,WR:(13)(4)"RUNSEMI-SUMMARY"kP(16384)14120620PSFLAG1SFLAG0:P1024,1:33,38::21:(17)2" ";:957:33,40:(17)0:@QJQNA0:DA0:EFLAG0:CC1TQ22800:YQCH$"S"A11:"BETWEEN THEM, LIKE '3/4'.":20460EO" YOU CAN'T DIVIDE BY ZERO."RO20600:zOTLV1:NL5:LEFSIDE1:NC34:23200:PxPP21:2:"^PRESS ^R^E^T^U^R^N TO CONTINUE, ^E^S^C TO END.";QP16368,0:16384,128:(16384)155ĺ(12):35000:1241:YCY935$O22400:%.O23400:48OSIDE:FG0SBOHELPHELP1:OPT2HELP1dGOTRY3TRY3jLOpOOHPHELP:HELP1HP1OTLV12:NL1:LEFSIDE1:JD130HP13:NC34:23200:OV12:EFLAG220450#O"^TYPE TWO NUMBERS WITH A SLASH"::zNCHANGE120070#N23600:AND1%(0)D%(0):D1%(1)D%(1)GNMNkNFG1ĺ(12):RF1:35000qNN140,0140,Y9:SIDE01NFG1XC70SIDE141:YC80:22420:20270NPT3XC70SIDE141:YC80:20260O22600: OXC100SIDE1((1)2)1)%4NOPT5PT((1)3)1U>NPT3I%(0)((1)IR1):I%(1)((1)IR1)lHND%(0)(15(1)1)RND%(1)((30D%(0))(1)1)\NPT1D%(1)D%(0)aN(D%(0)1D%(1)1)(100(1)1)1020040fNPT2D%(0)D%(1)20040pNCHANGE0:22000D%(0)/CH1D%(0)6/(D%(0)CH)D%(0)CH12070k/(N%(0)CH)N%(0)CH(N%(1)CH)N%(1)CHCNCHq&/0/N%(0)N%(0)CN:/N%(1)N%(1)CND/D%(0)D%(0)CN:D%(1)D%(0)I/NRNRCN:DRDRCNN/ N%NHL0:HELP0 *NPTOPT:OPT4PT(8,(A$):X1(A$):768X,((A$,X)):B+(13)(4)"RUN SUMMARY"`. FIND COMMON DINOMINATORv.N%(0)D%(1)N%(0).N%(1)D%(0)N%(1).NRN%(0):(N%(0)N%(1)LS$"LARGER")(N%(0)N%(1)LS$"SMALLER")NRN%(1).D%(0)D%(0)D%(1):D%(1)D%(0):DR) 0*2*TRYTRY123*HPHELP:HELP1HP1J5*JD13013HP:23300o:*20:" ^CORRECT.":TRY1R1R11N*TRY2R2R21S*SFLAG1:20600X**(12):35000:10:10:"^ONE MOMENT PLEASE..."&+1020,R1:1021,R2:1022,WR:A$"COMPARING":7620600:)HELP0İ20200:()10740;)HELP010690I)20600: V)20200:o)NONRDODR10720)" ^THE CORRECT ANSWER IS ";NR;"/";DR;".":WRWR1)DN1)10730)" "NR"/"DR" OR "NO"/"DO" IS CORRECT.":WRWR1)SFLAG1:206000: (h)"i)BH6969BH00j)TRYTRY1Ik)HPHELP:HELP1HP1~m)TLV12:NL1:LEFSIDE1:NC30:JD13013HP:23200r)TL:2:"^NO, "BG;|)BH0ĺ"/"BH;)" IS INCORRECT.";:(PT1HELP1)HELP2TRY2ĺ"":10660)" ^TRY AGAIN.")00:23200:10400((HELP1PT210480_((A1$,1)"H"PT2HELP1TRY2FG1:12000:10455((A1AN).001PT2HELP1TRY1FG1:10600:12000:10455((A1$,1)"H"HELPFG10470(TRY210480(20200(10410(EFLAG0İ20400:1041(A1$):AS%((A1$,A,1)):AS%72(AS%47AS%57)AS%32āB110:10B:V11:(20):B:10423(((A1$,1)"0"(A1$,1)"9")((A1$,1)"0"(A1$,1)"9")āB110:10B:V11:(20)::10423(:30000:BH0İ23300:20:" 0 IS NOT A LEGAL DIVISOR.":206$;"? "u (HFLAG0:((PT2D%(0)D%(1))(OP2HELP2)(OP2HELP0))TRY2ĢV13:12:"^TYPE ^H FOR ^HELP.":HFLAG1 (FI$"11 ($4/Z1":V11:2:LS$;"? ";:(23);::A1$IN$"":(26):(A1$,1)"H"HFLAG010413 ((A1$,1)"H"İ30000:10428^(A1 ' '20000:3 'N%(0)D%(0)N%(1)D%(1)1030[ '140,0140,120:PT3RFRAC7:10250h (21000:u (21200:{ ( ( (HELP0JD143:23200 (B110:10B:18:(20): ((6)6; ((9)(16)2:V117:V1:2:"^WHICH FRACTION IS":" "LS0 .RITİ10800:( BPROBLEMNP10203 L110009 m DENOM%(5):I05:DENOM%(I):: 2,3,4,6,8,12:s ' '960:(12)(9)(16)2:3:Y9130:R10:R20:WR0:3000: B'IR5:NR5:OVERLAP(135NR):21400: L'(4)"BRUNCLEAREOL-SM.OBJ" V'BLEM0 10000:h PROBLEMPROBLEM1:(12):KQ921DJ(2(1)1):LS$"SMALLER":DJ1LS$"LARGER" TRY0:HELP0:10200 HELP0RFLAG1:35000 10400 RIT((A1ANS).001):RIT0İ10600: $((TRY2HELP2)(DN0))(RIT)1040 )DN":D$"READ NAME":N$:L$:LS$:NP:D$"CLOSENAME":1019,(LS$):LS$"1"LS$"LARGER"n LS$"2"LS$"SMALLER" LS$"3"KQ921 810,NP:OPT(811) 1023,NP 1020,0:1021,0:1022,0 OPT4ĺD$;"RUN COMPARING-MID.2" OPT3OPT4 PRO3 PROGRAM: COMPARING-MID;PROGRAMMER: CHARLES LUNDYCOPYRIGHT (C) 1984, 1987zLAST UPDATED: TJB 06/11/87  34034:25292(230)32Ĺ230,64:62450(4)"BLOAD PIZZAS,A24576"232,0:233,96D$(13)(4)S dD$"OPEN NAME            a2,1277,1277,1892,1892,1Za3,2276,2276,1883,1883,2:0,00,190279,190279,0la(6)6;(1)4;ua3:6)6;(1)4;a3: D$;"CLOSE".810,NP:811,OPT:812,(LS$)JD$;"RUN COMPARING-MID"`' **** ERASE TEXTr'T1$(20)" "$'LNTLTLNL1:LN:LEFSIDE.'X1NC:T1$;:8'LN:a BORDER a(12)a(1)21a1,0278,0278,1901,1901,0PT(IN$)YOPT5ĺ(12):25000:2:10:" ^GETTING THE MENU...":(13)(4);"RUN MENU"eD$(4)(12):25000:2:10:" ^ONE MOMENT PLEASE..."D$;"OPEN NAME"D$;"WRITE NAME"N$:L$LS$NPF$"COMPARING-MID"F$ ENOMINATORS " L " 3. ^A RANDOM SELECTION OF":5:"OPTIONS 1 AND 2 "R y " 4. ^COMPARING MIXED FRACTIONS "  " 5. ^RETURN TO LESSON MENU" :2:"^ENTER YOUR OPTION NUMBER AND PRESS":2:"^R^E^T^U^R^N. ";:FI$"11 $$4151": O40 G1120? LTL13:NL1:LEFSIDE1:NC30:10000: ERASE TEXTP V13:1:1080[ `(12)f j25000 o" ^THESE ARE YOUR OPTIONS:" t:" 1. ^COMPARING FRACTIONS WITH LIKE":5:"DENOMINATORS " y ~" 2. ^COMPARING FRACTIONS WITH UNLIKE":5:"DDOM SELECTION OF 1 AND 2"> 05:"4. ^RETURN TO LESSON MENU."D 3 8" ^PLEASE TYPE 1, 2, 3, OR 4":" AND PRESS ^R^E^T^U^R^N. ";:FI$"11 $$4141" B:LS$IN$"" DLS$"4"ĺ(12):25000:2:10:"^GETTING THE MENU...":(13)(4);"RUN MENU" E10 ^ENTER A NUMBER AND PRESS ^R^E^T^U^R^N."~ 17:" ^HOW MANY PROBLEMS DO YOU":" WANT? (1-9) ";:FI$"11 $$4191"::NP(IN$) 1095 $8:" ^WHICH WOULD YOU LIKE TO IDENTIFY?" .5:"1. ^LARGER FRACTION ":5:"2. ^SMALLER FRACTION":5:"3. ^RAN6$ n(13)(4)"BLOADPIZZAS,A10000". s1:09 25000 2:2:"^HELLO! ^WHAT'S YOUR FIRST NAME?":2:(23);:FI$"11 .$4AZ1"::N$IN$"":(26) 5:2:"^WHAT IS YOUR LAST NAME?":2:(23);:FI$"11 2$4AZ1"::L$IN$"":(26) 1060) 20:"wPROGRAM: COMPARING7PROGRAMMER: CHARLES LUNDUCOPYRIGHT (C) 1984, 1987v LAST UPDATED: TJB 06/08/8725292:34034(230)32Ĺ230,64:62450((4)"BRUNMASTER-SM":(4)"BRUNCLEAREOL-SM.OBJ"d(16)2:IN$"" i232,38:233,1    ,1892,1B a3,2276,2276,1883,1883,2:0,00,190279,190279,0T a(6)6;(1)4;] a3:  S. SZWZW1:ZC(16384):ZC14121270I S(ZWZM)121255,21253 S16368,0:7::" ";:1:21::ZV1:ZH1 S251,ZZ S a BORDER a(1)21 a1,0278,0278,1901,1901,0 a2,1277,1277,1892END". R DELAYED FLASHING SPACE BAR ROUTINEN RZW0:ZMZS:ZF0:ZS0ZM15r RZH(36):ZV(37):ZZ1200:ZZ R20:7:16368,0:"^PRESS ^R^E^T^U^R^N TO CONTINUE.";:ZMZM35.156 RZC(16384):ZC14121270 SZWZW1:ZWZM21240 SZM25 S3010,55:11,56269,56269,12911,12911,56U Z9:4:N1" CORRECT ON THE FIRST TRY " _11:4:N2" CORRECT ON THE SECOND TRY " d13:4:NW" INCORRECT " n18:"^SO LONG FOR NOW! " x21200:(12):25000:10:" ^ONE MOMENT PLEASE...":D$"RUN MENU-,1891,1891,1:3,3277,3277,1873,1873,3:2,2278,2:2,188278,188 (2:"^WELL, ^"A$", YOU DIDN'T FINISH":"THE LESSON, BUT HERE IS YOUR SCORE":"FOR THE PORTION YOU DID DO:" <HC(6(1)1):HC3HC4HC560 A3+ F10,55270,55270,13010,1_&N1(1020):N2(1021):NW(1022)9 SEMI-SUMMARYb (C) 1984 CONTROL DATA CORPORATI ON| ALL RIGHTS RESERVED960:(16)2;D$(13)(4):D$"OPEN NAME":D$"READ NAME":A$:D$"CLOSE NAME"#33,38:32,1E $(12):1:1,1279,1279 ZS0ZM15. RZH(36):ZV(37):ZZ1200:ZZh R20:7:16363,0:"^PRESS ^R^E^T^U^R^N TO CONTINUE."; RZC(16384):ZC14121270 SZWZW1:ZWZM21240 SZM25 S SZWZW1:ZC(16384):ZC14121270 S(ZWZM)121255,21253 S S2ND TRY"" d13:4:NW" INCORRECT"@ n17:" ^SO LONG FOR NOW!"K x21200y 785,(A$):I1(A$):785I,((A$,I)): 797,(B$):I1(B$):797I,((B$,I)): 814,N1N2NW:813,N1N2 (13)(4)"RUNFRACTION-END" R RZW0:ZMZS:ZF0:THAT'S ALL FOR THIS LESSON."< 2" ^HERE ARE YOUR RESULTS:"b <HC(6(1)1):HC3HC4HC560i A3 F10,55270,55270,13010,13010,55:11,56269,56269,12911,12911,56 Z9:4:N1" CORRECT ON THE FIRST TRY" _11:4:N2" CORRECT ON THE SECOqPROGRAM: SUMMARY5PROGRAMMER: CHARLES LUNDMCOPYRIGHT (C) 1984mLAST UPDATED: TJB 05/27/87 N1(1020):N2(1021):NW(1022)960:(16)2D$"":D$"OPENNAME":D$"READNAME":A$:B$:D$"CLOSE" (40000:2:" ^WELL ^"A$",":" S1CS7CS6%Br:(13)(4)"PR#"CS+GrVLr130:6:" ^TO TURN THE COMPUTER OFF:"Qr9:" 1. ^REMOVE THE DISKETTE FROM THE":5:"DRIVE AND PUT IT IN A SAFE PLACE."Vr12:" 2. ^TURN THE COMPUTER OFF. ^THE":5:"SWITCH IS LOCATED BEHIND THE":5:"251,1::251,0(r(IN$,1)"Y"29260U8r130:10:8:"^INSERT THE NEW DISKETTE."9r23:7:"^PRESS ";::" ^R^E^T^U^R^N ";::" TO CONTINUE.":16384,0:r(16384)14129242;r(29): =rA(999)(1000)256:B(A)(A1)256:CS(B1)16:C$;5;:21:14:"^PRESS";>RCB$2CC$;0;UP$;5;:" ^R^E^T^U^R^N"XS(16384)14121250^ Shr ENDqr130r14:4:"^ENTER ^Y^E^S OR ^N^O AND PRESS ^R^E^T^U^R^N."r11:10:"^WOULD YOU LIKE TO USE":10:"ANOTHER DISKETTE? ";:FI$"11 &$3EY1":\3:"4. ^TYPE / (SLASH)"=f3:"5. ^TYPE THE DENOMINATOR"^p3:"6. ^PRESS ^R^E^T^U^R^N"iz21200t:450R PRESS RETURN SUBROUTINER16368,0R3RX171185:85,X177,X:XR0RX173183:87,X128,X:RID$;CB$2;CC$;3;UPENOMINATOR 2/3"4 3:"4. ^PRESS ^R^E^T^U^R^N"I*21200:CC$3CB$2U/(17)9}413:3:"^TO ENTER A MIXED NUMBER:">:3:"1. ^TYPE A WHOLE NUMBER EXAMPLE:"H3:"2. ^PRESS THE ^SPACE ^BAR"R3:"3. ^TYPE THE NUMERATOR 3 1/2"^SOME OF THE ANSWERS ON THIS DISK"L3:"WILL BE FRACTIONS AND SOME WILL"h3:"BE MIXED NUMBERS."t(17)76:3:"^TO ENTER A FRACTION:"3:"1. ^TYPE THE NUMERATOR EXAMPLE:" 3:"2. ^TYPE / (SLASH)"3:"3. ^TYPE THE D,"MIXED NUMBERS."d "^THIS ACTIVITY PROVIDES","PRACTICE WITH NAMING","EQUIVALENT FRACTIONS.","" "^THIS OPTION ALLOWS TEACHERS TO SET","THE PRINTER AND EXAMINE STUDENT","SCORES FOR OPTIONS 2 THRU 4.",""130:CC$3CB$2(17)4"2:3:"2):Q$:"(20(R$)2):R$:-212005XT?2000 "^THIS ACTIVITY PROVIDES","PRACTICE IN WRITING THE","CORRECT FRACTION FOR PART","OF THE REGION SHOWN."L "^THIS ACTIVITY PROVIDES","PRACTICE WITH COMPARING","FRACTIONS AND COMPARING"H16:5:"^WHITE ^BEAR ^PUBLISHING ^COMPANY"TR18:11:"^ALL ^RIGHTS ^RESERVED"op:(4);"RUN"PS$(LN1)XT14:CC$3CB$2130O$:P$:Q$:R$6:HT(XT):LS$(XT)::(20(O$)2):O$:(20(P$)2):P$: (20(Q$)CTIONS";UP$;04 ,7:12:CC$3;"^LOADING ^OPTION "LNP /9:HT(LN1):LS$(LN1)o 414:9:CC$;3;"^COPYRIGHT" 83:124,116133,116 9X116124:123,X134,X:X :124,125133,125:124,115133,115 >14:19:CC$;0;CB$;2;"^C";CC$;3;" 1984, 1988"."":FI$"11 $$4161"::LN(IN$)/ LN1ī900? LN629200V LN4Ĺ230,64:960z 130:3:X1644:20,X240,X:X %6:12,10248,10248,5012,5012,10 *4:8:UP$;4;CC$;0;CB$2;UC$;"FRACTION ACTION VOLUME 1"(26):5:8:"^PRACTICE ^USING ^FRAUME 1"& 4:13:"LESSON OPTIONS"LC$N 6:78,24184,24184,3678,3678,24j CC$;3;CB$;2;:6:X16 3:X". "LS$(X1)  X XX((78)): RND PATCH 18:6:"^TYPE THE NUMBER OF YOUR":6:"CHOICE AND PRESS ^R^E^T^U^R^N: "; IN$(17):CS$(19):CB$(16):UC$(23):LC$(26):ID$(9):CL$(12):RT$(6)V yKL$CL$_ }450k CL$:1 1,1259,1259,1901,1901,1 2,2258,2258,1892,1892,2 3,3257,3257,1883,1883,3: 130:2:8:CC$3CB$2UC$"FRACTION ACTION VOLAND INFORMATION"= ALS$(4)"^TEACHER ^OPTIONS":LS$(5)"^END" FPS$(1)"MEANING":PS$(2)"COMPARING":PS$(3)"EQUIVALENT":PS$(4)"ADMIN" P(230)64Ĺ230,32:62450 Z230,32 d(4)"BRUNMASTER-SM":(4)"BRUNCLEAREOL-SM.OBJ"J xBC$(2):CC$(3):UP$_PROGRAM: MENU2PROGRAMMER: CHARLES LUNDPCOPYRIGHT (C) 1984, 1987pLAST UPDATED: TJB 06/05/872HT(0)16:HT(1)15:HT(2)15:HT(3)16:HT(4)12:HT(5)15 <LS$(1)"^MEANING":LS$(2)"^COMPARING":LS$(3)"^EQUIVALENT":LS$(0)"^DESCRIPTIONS              ;0;UP$;5;:" ^R^E^T^U^R^N"4S(16384)14121250: SB)14121250Q S[ SL21200PCL$CC$3CB$2:130:10:2:"^GETTING THE MENU...":(13)(4)"RUN MENU"nR PRESS RETURN SUBROUTINE|R16368,0R3RX171185:85,X177,X:XR0RX173183:87,X128,X:RID$;CB$2;CC$;3;UP$;5;:21:14:"^PRESS";RCB$2CC$RETURN SUBROUTINER16368,0&R3DRX171185:85,X177,X:XKR0hRX173183:87,X128,X:RID$;CB$2;CC$;3;UP$;5;:21:14:"^PRESS";RCB$2CC$;0;UP$;5;:" ^R^E^T^U^R^N"S(16384)14121250 S0"^APPLE ^COMPUTER, ^INC."MPUTER PRODUCTS.":13:2:"^COPYRIGHT 1981, ^APPLE ^COMPUTER, ^INC.":15:2:"^APPLE ^D^O^S 3.3 ^COPYRIGHT 1980, 1981." 17:10:"^APPLE ^COMPUTER, ^INC." 21200 CL$CC$3CB$2:130:10:2:"^GETTING THE MENU...":(13)(4)"RUN MENU"R PRESS COMPANY". ^17:11:"^ALL ^RIGHTS ^RESERVED"8 cLC$;H r21200:CL$p |130:4:16:CC$;3;"^C^R^E^D^I^T^S" 6:96,24160,24160,3696,3696,24 7:8:"^PARTS OF ";UC$;"FRACTION ACTION"LC$w 9:10:"WERE DEVELOPED USING":11:8:"^APPLE ^CO  CL$:1, 1,1259,1259,1901,1901,1M 2,2258,2258,1892,1892,2p 3,3257,3257,1883,1883,3:| 130:6 12,10248,10248,5012,5012,10 3 X1842 20,X240,X X CS$1CB$2CC$0:4:8:"^EDUCATIONAL ^COURSEWARE"!DER #a(1)21M#a0,00,190:1,01,190:278,0278,190:277,0277,190k#a0,0277,0:0,191277,191}#a(6)5;(1)4;#a3:(6)5;(1)4;#a3:;(1)4;#a3:2:NC6:12300:ERASE LETTERS 7"0DENWDTRIES112590`"019:2:"^INCORRECT. ^COUNT AGAIN."w"110700: SPACE BAR"1TLDV4:LEFSIDE31:NL1:NC3:12300:ERASE LETTERS " 10:214,48214,59:3"1TL:LEFSIDE1:TRIES1:12510".1#a BOR(!019:2:"^INCORRECT. ^COUNT AGAIN."?!010700: SPACE BARv!0TLDV3:NL1:LEFSIDE2:NC3:12300: ERASE LETTERS!0TL:LEFSIDE1:TRIES1:12410!0!0 ** ASK DENOMINATOR!0(6)4;:30:FI$"11 &$2 1"::DEN(IN$)"0TLDV5:LEFSIDE30:NL&/ 0 ** ERASE LETTERS& 0(6)5;F 0LNTLTLNL1:LN:LEFSIDE[ 0X1NC:T1$;:Xm *0LN:(6)6;: p0 ** ASK NUMERATOR z0(6)5;:FI$"11 &$2 1"::NUM(IN$) 0TLDV4:NL2:LEFSIDE1:NC7:12300: ERASE LETTERS 0NUMWUTRIES1124904:31:WD~,*. ** HORIZONTAL DASHESE.IGID1:X1HCLR:JGIDb.V(J)IJ0JJ1:12020z.V(J)IJGIDJJ1.X2HCLRJSC:Y1C4ISC/X2X1DS1ēX2,Y1X2DS,Y1:X2X2DSDS:12040/X2X10ēX2,Y1X1,Y1/II1:I0J012020 0:"^THE"<X,30:"CORRECT":30:"ANSWER":30:"IS ";WD;"."S[,10700: SPACE BAR],TLDV5:LEFSIDE30:NL6:NC10:(6)2;:12310:ERACE LETTERS ^,0:214,48214,59:213,48213,59:3_,TLDV4:LEFSIDE31:NL1:NC3:12300:ERASE LETTERS `,DVȲ,0:7,4830,48:3(,DV3:2:WU.,E$, *** TOTAL NUMBERq.,TRIES0:DV:30:"^HOW MANY":30:FOOD$8,DV2:30:"FIT IN":30:"THE PAN?"B,12500:ASK DENOMINATOR L,DENWDĢDV5:30:"^CORRECT.":11390 V,DV5:30:"^INCORRECT.":3"ARE LEFT?"'+12400: ASK NUMERATORP+NUMWUĢDV4:1:"^CORRECT.":11290+DV4:1:"^INCORRECT.":"^THE":"CORRECT":"ANSWER":"IS ";WU;"."+10700: SPACE BAR+TLDV4:NL5:LEFSIDE1:NC10:12300:,TLDV3:NL1:LEFSIDE2:NC3:12300::Y2VCLR)p+Y1C4V(I)SC:X1HCLRISC\z+Y1Y2DS1ēX1,Y1X1,Y1DS:Y1Y1DSDS:11130v+Y1Y20ēX1,Y1X1,Y2+II1:IGIDV(I)GID11120++ *** NUMBER EATEN+TRIES0:DV:1:"^HOW MANY":FOOD$:ELFLAG1ĺ"ARE GONE?" +ELFLAG2):N*(13)(4)"RUNSUMMARY"4* **** INITIALIZEP+NP(817):ELFLAG(818) +FOOD$"":X1(819):FOOD$FOOD$((819X)):+EL$"":X1(830):EL$EL$((830X)):+NN12:LK5 +960:(12);(9);(16)24+\+ *** DASHED LINES f+I110:10:"^ONE MOMENT PLEASE...":1020,R1:1021,R2:1022,R3:(13)(4)"RUNSEMI-SUMMARY"p)(16384)14110720)SFLAG1SFLAG0:)20:105200* **** SUMMARY:*1020,R1:1021,R2:1022,R3D*A$"MEANING":768,(A$):I1(A$):768I,((A$,I)AW HORIZONTAL DASHES=|)DVV114:11200: ASK HOW MANY EATEN])11300: ASK HOW MANY TOTALc)) INVERSE SPACE BAR ROUTINE)20:2:"^PRESS ^R^E^T^U^R^N TO CONTINUE, ^E^S^C TO END.";)16368,0:16384,128V)(16384)155ĺ(12):25000:I1#(DRECTDRECT:IGID10320)(S) **** CLEAR THE BOTTOM OF THE SCREEN[)16)33,38:35,20:1024,0:957:33,40:35,21:h) **** GIVE HELPk)HFLAG1m)DS5:TLCT:10500: CLEAR TEXTr)11100: DRAW VERTICAL DASHESw)12000: DRLINE SEGMENTS2F(V(0)((1)GID.6):I1:DRECT1YP(DI((1)GID.6)::DRECT110370tZ((V(I1)DIGID)10360d(V(I)GID:II1:IGID10340n(10381x(V(I)V(I1)DI:10380(V(I)V(I1):DIDI1:II1:(DI0)(IGID)10370(10381(I LINES.'I1GIDK'HCLRILGGID,VCLRSCV(I)HCLRILGGID,VCLRR'I_'I0:L10l'J1GID'(V(I)J)(IGID)II1:10235(HCLRSCI,C4JSCHCLR,C4JSC (J( <(*** DETERMINES AND STORES THTHE ENDPOINTS OF THE RANDOM C4SCV(I):X2HCLRSCI08'X1,Y1X2,Y1X2,Y2W='C1X1:C2Y1:C3X2:2800: SHADINGgB'X1X2:Y1Y2nL'IQ'C1X1:C2Y1:C3HCLRSCGID:2800: SHADE RIGHTMOST SECTIONV'10200: DIVIDE BROWNIES`''*** DRAWS 16 HORIZONTAL AND VERTICAL GRIDE6 XHALTC3:YHALTC4C3SA@ YHALTC2YHALTC2:XHALTSC4C2WJ S,C4XHALT,YHALT^T Sd^ '*** PICK A RANDOM DISTANCE TO MOVE'10300'C4VCLR:X1HCLR:Y1C4SCV(0):SPACE6$'I1GID:AREAAREAV(I1))'V(I)V(I1)10060.'Y2A$,DST1)) DN((A$,DST1))/DN0WR2[CX$(A$,DST1,1):CX$"0"CX$"9"WR1ajWR0p} DDC1C2 RC2C4SPACE YHALTC2:XHALTRDD XHALTC3YHALTC2XHALTC3:XHALTC3 C1,RXHALT,YHALT" R, SC1C3SPAC:R3R31:1840E+" "UP"/"DN" IS INCORRECT.":" ^TRY AGAIN.":10700O/1890c0B1ĺ".":1890y:" OR "RU"/"RD"."bl*** TRANSLATES A STRING FRACTION INTO A NUMBER.vI1(A$)(A$,I,1)"/"DSTI:1950IWR1: UP((ĺ" "Q4$:FG1:1825\(UPRU)(DNRD)ĺ" ^CORRECT. "UP"/"DN" REDUCES TO "RU"/"RD".":FG1k!T22T22z"FG01830#T21R1R11$T22R2R21%1890&T22ĺ" ^YOUR ANSWER IS STILL INCORRECT. ^THE":" CORRECT ANSWER IS "RUB"/"RDB;DAREAAREA01770(WUAREA:BWUh(((WUB)(WUB)).00001)(((WDB)(WDB)).00001)1750|BB1:B11720RU(WUB):RD(WDB)A3$" OR SIMPLIFYING " ***TEST THE ANSWER AGAINST CERTAIN TOLERANCES(UPRU)(DNRD)TP,1):PT$"H"PT$"/"(PT$"0"PT$"9")TJ1:9V:|@ *** CLEARS THE VALUES OF THE ENDPOINTS OF THE PATH SEGMENTSJJ016TV(J)0^Jh***GET THE NUMERATOR AND DENOMINATOR OF THE CORRECT ANSWERWDGIDGID:ELFLAG1AREAWLEFSIDE1: ERASE LETTERS# 960D SFLAG1:10700: SPACE BAR \ 1600: CLEAR ARRAYe KKK| 10800: SUMMARY L13:10500 N(A$,1)"H"ı O(A$,1)"0"(A$,1)"9"TJ1: Q(A$,1)"0"(A$,1)"9"TJ1:1UTP1(A$):PT$(A$, 1900h WR1S1$" ^ENTER TWO NUMBERS SEPARATED BY":S2$" A SLASH.":S1$:S2$:10700:T2T21:960 WR2ĺ" 0 IS NOT A LEGAL DIVISOR.":10700:T2T21:960 1800 FG1FG0:1011 T221011 TLV11:LEFSIDEDH:NL1:NC7:12300:TL:";:DH(EL$)3C HELP0HFLAG0ĢV13:12:"^TYPE ^H FOR ^HELP." V11:DH1:(23);::(26):A$IN$"":T2T21:1100:TJ1TJ0:WR1:V12:980 (A$,1)"H"HFLAG0İ10600:10500:960 (A$)1T22İ10500:960 10500 V12:1 ID \X0:Y0 fHCLR,VCLR1 pHCLR,VCLRC zHCLR,VCLRU HCLR,VCLRg HCLR,VCLRr 10000x  1700: REDUCE CV1ı V116 TL150:10500 FI$"11 *$4/H1":WR0:V1:2:"^WHAT FRACTION OF THE ";FOOD$:" "EL$;"? V(16):T1$(20)" ", >HC140:VC68:CT133F RLG128:LRLG2:IN$""T WKKK1NP X3:(12):25000:19:9:"^CREATING YOUR PROBLEM..." YAREA0:HELP0:T20:HFLAG0 ZSCRACH1(10(X)):GID(1):SCRACH:GID((1)NNLK):GID16858 [SCLGG PROGRAM:MEANING-MID.CHRIS>PROGRAMMER: CHARLES LUNDVCOPYRIGHT (C) 1984vLAST UPDATED: TJB 06/08/87 34034:24576:11000d(4)"BRUN CLEAREOL-SM.OBJ,A$8500"Q4$"^YOUR ANSWER IS EXACTLY CORRECT!!!" R10:R20:WR0:R30 6""" " " " " """""""""!!! ! ! ! ! !!!!!!