' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` L 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"LɺɺLƩ  !"#$%&'()*+,-./0123456789:;<=>?@L@距i@췩뷩A񷩷 0L i@LπҠӠˠĠ٠ŠҧӠŠŢ80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 ˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n ``ff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( îȮǮԠĠȠŠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`F  d ֠z#??? ӮʠӠΠu` the last":"remainder then":VSPACE,1:"record the final":VSPACE,0:"quotient as ";:RESET:" MSD ";:BOXIT,3:".":X2%129:Y2%172:RX5:RY23:17500PZ,X(21),Y(17):"9 1#0 8 = ";:RESET:" 1 ";:BOXIT,3:", R = ";:RESET:" 1 ":BOXIT,3/nZX1%4N*CONTROL-SYSTEM-INIT /%ND$"BLOAD CHRPRNT1"G*N823,3:824,16:819d4N16302,0:232,0:233,17y>NFILE$LS$:13500$:13500m$:1350094N16302,0:232,0:233,17>NFILE$LS$:13500:3):D$M$(4):EX$(27)5dKCLR%816:SWD%825:HP%826O,LLS$"INDEX.NUM.SYS.1"i6LD$"BLOAD ALL-BINARY" N*CONTROL-SYSTEM-INIT %ND$"BLOAD CHRPRNT1"*N823,3:824,16:8194N16302,0:232,0:233,17>NFILE$LS$:1350000 3500ARY" NARY":D$"BLOAD ALTS.FONT,A$4000"6>NFILE$LS$:13500LLS$:135000L16302,0:232,0:233,17>NFILE$LS$:1350011000:135006120006103,1:104,64:18J*INITIALIZATION VJZ94097:YE1:NO0:BOYE:A$"":A1$A2$:G$(7):M$(1N*CONTROL-ELEC.MATH.2.MRO*ND$"BLOAD ALL-BINARY":D$"BLOAD ALTS.FONT,A$4000"d>NFILE$LS$:13500S1$A2$:G$(7):M$(13):D$M$(4):EX$(27)dKCLR%809:SWD%803:HP%812,LLS$"INDEX.ELEC.MATH.2" N*CONTROL-ELEC.MATH.2.MR!*ND$"BLOAD ALL-BI and make sure"::"that the drive door is"::"closed.":NXNO:1000:13500W612000m6103,1:104,72:1s8JVJZ9815:YE1:NO0:BOYE:A$"":A1$A2$:G$(7):M$(13):D$M$(4):EX$(27)dKCLR%809:SWD%803:HP%812,LLS$"INDEX.ELEC.MATH.2" @@@ @ H$ "H"A"@ >A>`0> ē@c2iO  %GA G$<@c@pPDaPH @pERG$G$qdG$@$Oy‡@ H$H$ HRQH$< @pC>q E@>y8#q>A #q8@A@@@  J'H#y@ qH$8>#>#@q"'@p80" @ "J%"I%H$q#Hȣ<y>@ "H$q":AHOV]dkry @  &A@@@AQ!‡@@ ALeq_ ")07>ELSZahov} %,3P0HH-#$-  $#-hh`( &H(h`H#) c)h Hh` J ɠɍɘɈɕ ɛɃک./ ?.`L ` ` )!) !` `LLLR LX  m!8!` )` J 0 ?`$H$ h$`% $(&)m,'`,#P $&! `'i'`"% %%#LX  0 >H h`,# 릡`67 `6789 `    L`` -` ! "!  "蘝`     ` ) 8  8m$ imi8 %8mߠ:)p):=pLȘe::HH`UNHOOREHOOCLRWINWRITREWRITEXADDRESEBOXIHSPACVSPACCHARMODLMARGIPAGEPAGENMCOBEE$KQW^ ,69N<q{ {1)FDBCK$(NMTCH):AXX(37):AYY(17):XPSX(21):YPSY(19):17000:,X(21),Y(2):"1":1000b'eo'e PAGE 8'e7000:,X(3),Y(4):" There is a way to check an octal":"conversion."::" The steps are:":1000[(e,X(9),Y(9):"1. Multiply eaX(37):AYY(15):XPSX(21):YPSY(19):17000&zb,X(22),Y(2):"0":,X(20),Y(17):REWRITE:18)" ":WRITE:,X(20),Y(17):"What is the MSD?"\'bLNGTH1:ANS$(1)"1":FDBCK$(1)"Right!":FDBCK$(NMTCH)"Sorry. The MSD/is 1. Type it in.":FDBCK$(NMTCH(15):XPSX(21):YPSY(19):17000u%fb,X(20),Y(17):REWRITE:18)" ":WRITE:,X(20),Y(17):"The remainder is?",&pbLNGTH1:ANS$(1)"0":FDBCK$(1)"Yes, that's it!":FDBCK$(NMTCH)"No, try again.":FDBCK$(NMTCH1)"The remainder is/0. Type it in.":AX172:2000:17000c$Rb,X(20),Y(17):REWRITE:18)" ":WRITE:,X(20),Y(17):"The quotient is?"!%\bLNGTH1:ANSWER$(1)"1":FDBCK$(1)"Right.":FDBCK$(NMTCH)"No, check your/division again.":FDBCK$(NMTCH1)"No, 8 1#0 8 = 1./Type in 1.":AXX(30):AYY:FDBCK$(1)"Correct!":FDBCK$(NMTCH)"No use the/last quotient.":FDBCK$(NMTCH1)"The number is 8./Type it in.":AXX(21):AYY(15):XPSX(21):YPSY(19)$Hb,X(20),Y(17):"Divide what?":,X(21),Y(15):" 1#0 8 = , R=":X1%4:Y1%21:X2%277:Y2%at second":"step until the":"quotient can't":"be divided by 8.""4b"Record the last":"remainder then":VSPACE,1:"record the final":VSPACE,0:"quotient as ";:RESET:" MSD ";:BOXIT,3:".":X2%129:Y2%172:RX5:RY23:17500#>bLNGTH1:ANSWER$(1)"8"! bLNGTH1:ANS$(1)"1":FDBCK$(1)"Yes, that's it!":FDBCK$(NMTCH)"Sorry, try again.":FDBCK$(NMTCH1)"The remainder is 1. Type it in.":AXX(37):AYY(10):XPSX(8):YPSY(16):17000B"*b,X(23),Y(2):"1":CLRWIND,0,104,279,128:,X(2),Y(14):"Repe"Yes. 8 is correct.":FDBCK$(NMTCH)"No, try the division again.":FDBCK$(NMTCH1)"No, 65 1#0 8 = 8. Type in 8.":AXX(30):AYY(10):XPSX(8):YPSY(16):17000!b,X(15),Y(14):REWRITE:24)" ":WRITE:,X(15),Y(14):"Now what is the remainder?",X(15),Y(14):"What number do you divide?":,X(21),Y(10):" 1#0 8 = , R=":X1%4:Y1%21:X2%277:Y2%101:2000:17000b,X(15),Y(14):REWRITE:25)" ":WRITE:,X(15),Y(14):"What is the quotient now?" bLNGTH1:ANSWER$(1)"8":FDBCK$(1)8 and record":"remainder."AaX2%129:Y2%101:RX5:RY14:17500aLNGTH2:ANSWER$(1)"65":FDBCK$(1)"Right!":FDBCK$(NMTCH)"What was the previous quotient?":FDBCK$(NMTCH1)"The number is 65. Type it in.":AXX(20):AYY(10):XPSX(8):YPSY(16)aK$(NMTCH)"No, that is not the/remainder. Try again.":FDBCK$(NMTCH1)"The remainder is 0. Type it in.":AXX(37):AYY(5):XPSX(8):YPSY(11):17000a,X(24),Y(2):"0":CLRWIND,0,64,279,96:,X(2),Y(9):"Divide quotient":"from last step":"by "Check your division.":FDBCK$(NMTCH1)"520 1#0 8 is 65. Type in 65.":AXX(30):AYY(5):XPSX(8):YPSY(11):17000a,X(15),Y(9):REWRITE:22)" ":WRITE:,X(15),Y(9):"What is the remainder?"aLNGTH1:ANS$(1)"0":FDBCK$(1)"Correct.":FDBC:"What number is divided?":,X(21),Y(5):" 1#0 8 = ,R=":X1%4:Y1%21:X2%277:Y2%61:2000:17000a,X(15),Y(9):REWRITE:22)" ":WRITE:,X(15),Y(9):"What is the quotient?"waLNGTH2:ANSWER$(1)"65":FDBCK$(1)"Right!":FDBCK$(NMTCH)L4:6000:X2%129:Y2%61:RX5:RY9:17500aQUESTIN1:LNGTH3:ANSWER$(1)"520":FDBCK$(1)"Right!":FDBCK$(NMTCH)"What number is being converted?":FDBCK$(NMTCH1)"The number is 520. Type it in.":AXX(20):AYY(5):XPSX(8):YPSY(11)la,X(15),Y(9):a7000:,X(5),Y(1):"Type the answer, press return."a,X(12),Y(2):"52010^ = 8^":,X(2),Y(4):"Divide decimal":"number by 8 and":VSPACE,1:"record remainder":VSPACE,0:"as ";:RESET:" LSD ";:BOXIT,3:".")aUXX(21):UYY(2):U:Y1%21:X2%277:Y2%172:H1%3:S1%1:D1%2:2000QxZ,X(28),Y(2):"11":1000:_] PAGE 6]7000:,X(3),Y(6):" Let's look at an example that you"::"can try on your own. You'll have"]:"room to work, too."]1000aa*PAGE70 8 = 15, R = 4 // 15 1#0 8 = 1 , R = 7 //The answer is 1747."xl17000:,X(21),Y(5):ANSWER$(1):1000~?@PAGE26EBTNUM%11052:16000JANSWER$(1)"25454":FDBCK$(1)"Correct!":FDBCK$(NMTCH)"No. Try again."OFDBCK$(NMTCHE$"R")34020Rroblems.":::"If you'd like to review the"::"lesson, type R."䄺::"To go to the practice set,"::"press RETURN.";:FROMOTHERYES:1000:(RESPNSE$M$)(RESPNSE$"R")34020):"We've come to the end of the"::"example problems.":::"If you'd like to review the"::"lesson, type R."䄺::"To go to the practice set,",X(6),Y(16):"press RETURN.";:FROMOTHERYES:1000:(RESPNSE$M$)(RESPNSE$"R")34025"orks:// 5000 1#0 8 = 625, R = 0 // 625 1#0 8 = 78, R = 1 // 78 1#0 8 = 9, R = 6 // 9 1#0 8 = 1 , R = 1 //The answer is 11610."AXPSX(3):AYPSY(7):XPX(5):YPY(11):17000τЄPAGE19pڄ7000:,X(6),Y(4UM%5000:16000ANSWER$(2)"11610":ANSWER$(3)"1611":FDBCK$(1)"Correct!":FDBCK$(2)"Sorry. The digits are reversed,/so you lost a 0. Try again.":FDBCK$(NMTCH)"Sorry. Check your work and/try again."FDBCK$(NMTCH1)"Sorry. Let's see how this wy again."}FDBCK$(NMTCH1)"Sorry. Here it is:// 555 1#0 8 = 69, R = 3 // 69 1#0 8 = 8, R = 5 // 8 1#0 8 = 1 , R = 0 //The answer is 1053."(}AXPSX(3):AYPSY(7):XPX(5):YPY(11):17000瀱耲PROBLEM3PAGE17BTNX(3):AYPSY(7):XPX(5):YPY(11):170001|E}PROBLEM2PAGE16[ }BTNUM%555:16000 }ANSWER$(2)"1053":ANSWER$(3)"3501":FDBCK$(1)"Right!":FDBCK$(2)"Sorry. You've reversed the/digits. Try again.":FDBCK$(NMTCH)"Sorry. Check your work and/tr is the first/produced, LSD is the last./Try again.":FDBCK$(NMTCH)"Sorry. Check your work and/try again."6yFDBCK$(NMTCH1)"Sorry. Here's the calculation:// 101 1#0 8 = 12, R = 5 // 12 1#0 8 = 1 , R = 4 //The answer is 145."+@yAXPS 17):"Press RETURN to practice.";:FROMOTHERYES:1000:(RESPNSE$"M")(RESPNSE$M$)(RESPNSSE$"R")29030z//u"R")29030//u\q:"conversion, or you can go to the"::"practice set.":,X(7),Y(13):"Type R to review."::"Type M for more examples.".fq,X(7),Y(17):"Press RETURN to practice.";:FROMOTHERYES:1000:(RESPNSE$"M")(RESPNSE$M$)(RESPNSSE$"R")29030//ulace:"9)"+ 0":34)"60010^":238,162259,162:,X(2),Y(22):"The conversion is correct.":1000i-Gqw-Hq PAGE 11-Rq7000:,X(3),Y(3):" Now you have some choices."::"You can review the lesson, you can"::"work on three more examples of"~.Press RETURN to practice.";:FROMOTHERYES:1000:(RESPNSE$"M")(RESPNSE$M$)(RESPNSSE$"R")29030l,/uS259,126:1000:,X(2),Y(18)1:"Multiply sum by 8:"15)"X 8":34)"600":238,144259,144:1000c-m,X(2),Y(20)3:"Add digit in next p Now you have some choices."::"You can review the lesson, you can"::"work on three more examples of"+\q:"conversion, or you can go to the"::"practice set.":,X(7),Y(13):"Type R to review."::"Type M for more examples."f,fq,X(7),Y(17):",X(13),Y(15):"1%%%0":"520 the octal digits."O*iRX11:RY18:15000*i,X(4),Y(20):"520 is equal to the decimal number,":"which you originally had. Your":"conversion was correct!"*_m1000:*Hq PAGE 11h+Rq7000:,X(3),Y(3):" xample you just worked out:":,X(12),Y(6):"52010^ = 10108^":1000)i,X(3),Y(8):"512 X 1 = 512 The numbers to"::" 64 X 0 = 0 the left of the"::" 8 X 1 = 8 "(34)"X"(34)" are the"8*i:" 1 X 0 = 0 place-values of":ch place-value"::" by its digit.":1000:,X(9),Y(13):"2. Add the products.":1000(e,X(9),Y(15):"3. Compare the sum to the"::" decimal number.":1000:(xi PAGE 9G)i7000:,X(3),Y(2):"Let's try the check method on the"::"eit in."$rAXPSX(1):17000:-0u*PAGE-138:u16000Du,X(2),Y(7):" 7 5 2 3 8^"::"+ 3 2 1 6 8":"1%%%%%%%%%0":" 8^"NuQUESTIN5:ANSWER$(1)"1":ANSWER$(2)"9"XuFDBCK$(1)"Correct."buFDBCK$(2)"The octal system doesn't/uITE:"2 ":WRITE/qQUESTIN4:ANSWER$(1)"2"jrFDBCK$(1)"Correct. You're done./The answer is 2125."rFDBCK$(NMTCH)"You carried 2./Try again."rFDBCK$(NMTCH1)"No. The answer is 2,/because that's what you/carried from the last/column. Type "No. Add the carried 1 to/the column. The decimal/equivalent is 17. Divide/17 by 8, which gives you a/quotient of 2 and a/remainder of 1. Type in/the 1."qFDBCK$(NMTCH1)"No. The answer is 1./Type it in."qAXPSX(3):17000:,X(2),Y(6):REWR Type/it in.":FDBCK$(NMTCH1)FDBCK$(NMTCH)hqAXPSX(5):17000:,X(4),Y(6):REWRITE:"1 ":WRITEqQUESTIN3:ANSWER$(1)"1":ANSWER$(2)"6":ANSWER$(3)"7":FDBCK$(1)"Correct!":FDBCK$(2)"You're adding octal/numbers. Try again."qFDBCK$(NMTCH)4:REWRITE:" ":WRITECfQUESTIN3:ANSWER$(1)"5":ANSWER$(2)"6"\&fFDBCK$(1)"Correct."0fFDBCK$(2)"3 + 2 = 5. There were/no carries from the/previous column. Try/again.":fFDBCK$(NMTCH)FDBCK$(2)DfFDBCK$(NMTCH1)"No. The answer is 5./TypeDBCK$(1)"Correct."deFDBCK$(2)"Add the 1 you carried/over from the previous/column. Try again."eFDBCK$(NMTCH)"No./2+1=3, 3+1 (carry) = 4./Try again."fFDBCK$(NMTCH1)"No. The answer is 4./Type it in now."fAXPSX(8):17000:,X(9),Y(7)he answer is 5./You add 7 + 6, which/equals 13. Then divide/13 by 8, which is equal/to 1 with a remainder of/5. Type in the 5."eAXPSX(10):AYPSY(13):XPSX(16):YPSAYPS:17000e,X(9),Y(7)4:"1"eQUESTIN2:ANSWER$(1)"4":ANSWER$(2)"3":FNo. This would be part/of the answer for/decimal addition, but/we're adding in the/octal system. Since/7 + 6 is more than 7,/you have to convert it/to octal by dividing 13/by 8. Try again."eFDBCK$(NMTCH)"No. Try again."eFDBCK$(NMTCH1)"No. TY1%5:X2%278:Y2%35:H1%2:S1%1:D1%2:2000e,X(5),Y(8):" 3 2 7 8^"::"+ 2 1 6 8":"1%%%%%%%0":,X(13),Y(13)4:"8"eQUESTIN1:LNGTH1:STPYES:LEAVEITNO:ANSWER$(1)"5":ANSWER$(2)"1":ANSWER$(3)"3":FDBCK$(1)"Correct."eFDBCK$(2)"ORRY.":CHARMODE,0:COL,3ܯ,X(6),Y(9):"Your score was "RIGHT" correct"::"out of 8.":::"To review the lesson, type R."::"To do some extra conversions,"::"type M."(毯,X(6),Y(21):"Press ESC to stop.";:FROMOTHERYES:NXNO:1000:RESPNSE "RIGHT" correct answers"::"out of 8.":::"You have completed this lesson"::"successfully.",X(5),Y(19):"Press ESC to leave.";:FROMOTHERYES:NXNO:1000:RESPNSE$EX$44030ǯȯPAGE32ү7000:,X(7)1,Y(3):CHARMODE,3:COL,1:"S 150 1#0 8 = 18, R = 6 // 18 1#0 8 = 2 , R = 2 //The answer is 2260." 17000:,X(21),Y(5):ANSWER$(1):1000߫૲PAGE31꫰7000:,X(8),Y(3):CHARMODE,3:COL,1:"FINE":CHARMODE,0:COL,3a,X(5),Y(9):"Your score wasanswer is 767."<$17000:,X(21),Y(5):ANSWER$(1):1000BNPAGE30eBTNUM%1200:16000ANSWER$(1)"2260":FDBCK$(1)"Good!":FDBCK$(NMTCH)"Sorry. Try again."VFDBCK$(NMTCH1)"That's not it either.// 1200 1#0 8 = 150, R = 0 // ,Y(5):ANSWER$(1):1000*PAGE29@BTNUM%503:16000ANSWER$(1)"767":FDBCK$(1)"Yes!":FDBCK$(NMTCH)"Sorry. Try again."FDBCK$(NMTCH1)"No. Here's the solution:// 503 1#0 8 = 62, R = 7 // 62 1#0 8 = 7 , R = 6 //The %421:16000]2ANSWER$(1)"645":FDBCK$(1)"Correct!":FDBCK$(NMTCH)"Incorrect. Try again."7FDBCK$(NMTCH1)"Sorry. Here's how to convert 421:// 421 1#0 8 = 52, R = 5 // 52 1#0 8 = 6 , R = 4 //The answer is 645."<17000:,X(21)1)"Sorry. Here it is:// 11052 1#0 8 = 1381, R = 4 // 1381 1#0 8 = 172, R = 5 // 172 1#0 8 = 21, R = 4 // 21 1#0 8 = 2 , R = 5 //The answer is 25454."T17000:,X(21),Y(5):ANSWER$(1):1000'(PAGE28 -BTNUMX2%270:Y2%180:H1%3:S1%1:D1%2:2000:1000:<e*PAGE-6e7000:,X(2),Y(1):"Try this yourself. Press RETURN after":"each answer. 731010^ = 16^":" 1%%%%0":RXPS14:RYPS4:15000Qe,X(3),Y(5):"Divide decima"record the final":"quotient as MSD."HaX2%137:Y2%180:RY24:16000a,X(23),Y(17):"19 1#0 16 = ";:RESET:" 1 ";:BOXIT,3:" "::" R = ";:RESET:" 3 ";:BOXIT,3:" ":,X(28),Y(2):"3":X1800::,X(27),Y(2):"1"/aX1%12:Y1%27:1000:RESPNSE$EXIT$RESPNSE$"R"33030:*PAGE-16Q'7000:,X(5),Y(5):CHARMODE,3:COL,5:"SORRY.":CHARMODE,0:COL,3',X(5),Y(9):"Out of 14 points, your score"::"was "RIGHT".":::"To review octal addition, type R.",(,X(5),Y(19):"Press ESC to leave.";:FROMOTHERYES:NXNO:ID QUITE WELL!":CHARMODE,0:COL,3&},X(5),Y(9):"Out of 14 points you"::"earned "RIGHT".":::"You have completed this lesson"::"successfully."&},X(5),Y(20):"Press ESC to leave.";:FROMOTHERYES:NXNO:1000:RESPNSE$EXIT$32030:'耲UESTIN14:ANSWER$(1)"1":FDBCK$(1)"Correct. You're done./The answer is 15630."%zFDBCK$(NMTCH)"No. Try again.":FDBCK$(NMTCH1)"No. You carried 1./Type it in."%zAXPSX(1):17000:%}*PAGE-15"& }7000:,X(3),Y(5):CHARMODE,3:COL,1:"YOU DR$(4)"3""$yFDBCK$(1)"Correct."Z$yFDBCK$(2)"We're adding octal/numbers. Try again."$yFDBCK$(NMTCH)"No. Try again.":FDBCK$(NMTCH1)"No. Divide 13 by 8./Type in the 6 remainder."$yAXPSX(3):17000:,X(2),Y(6):REWRITE:"1 ":WRITEP%yQng octal/numbers. Try again.":FDBCK$(NMTCH)"No. Try again."#yFDBCK$(NMTCH1)"No. Divide 14 by 8./Type in the 6 remainder."#yAXPSX(5):17000:REWRITE:,X(4),Y(6):"1 ":WRITE $yQUESTIN13:ANSWER$(1)"5":ANSWER$(2)"1":ANSWER$(3)"2":ANSWEry again.":FDBCK$(NMTCH1)"No. Divide 11 by 8./Type in the 3 remainder.""yAXPSX(7):17000:,X(6),Y(6):REWRITE:"1 ":WRITE"yQUESTIN12:ANSWER$(1)"6":ANSWER$(2)"1":ANSWER$(3)"3":ANSWER$(4)"4":FDBCK$(1)"Correct!">#yFDBCK$(2)"We're addider,/which is 0."]!hyAXPSX(9):AYPSY(13)4:XPSX(14):YPSAYPS:17000:,X(8),Y(6):"1"!ryQUESTIN11:ANSWER$(1)"3":ANSWER$(2)"1":ANSWER$(3)"0"!|yFDBCK$(1)"Correct!":FDBCK$(2)"We're adding octal/numbers. Try again."J"yFDBCK$(NMTCH)"No. T0":" 8^"A 6yQUESTIN10:ANSWER$(1)"0":ANSWER$(2)"8"Z @yFDBCK$(1)"Correct." JyFDBCK$(2)"The octal system doesn't/use this symbol. Try/again." TyFDBCK$(NMTCH)"No. Try again."!^yFDBCK$(NMTCH1)"No. Divide 8 by 8./Type in the remainYou're done./The answer is 12741."x vFDBCK$(NMTCH)"No. Try again.":FDBCK$(NMTCH1)"No. You carried 1./Type it in."*vAXPSX(1):17000:y*PAGE-14"y16000 ,y,X(2),Y(7):" 4 4 2 5 8^"::" 6 7 3 1 8^"::"+ 2 2 5 2 8":"1%%%%%%%%%Carry 1."AuFDBCK$(2)"We're adding octal/numbers. Try again."vFDBCK$(NMTCH)"No. Try again.":FDBCK$(NMTCH1)"No. Divide 10 by 8./Type in the remainder." vAXPSX(3):17000:,X(2),Y(6):"1""vQUESTIN9:ANSWER$(1)"1":FDBCK$(1)"Correct. :WRITE9uQUESTIN7:ANSWER$(1)"7":FDBCK$(1)"Correct!"]uFDBCK$(NMTCH)"No. Try again."uFDBCK$(NMTCH1)"No. The answer is 7;/type it in."uAXPSX(5):17000uQUESTIN8:ANSWER$(1)"2":ANSWER$(2)"1":ANSWER$(3)"0" uFDBCK$(1)"Correct. uQUESTIN6:ANSWER$(1)"4":ANSWER$(2)"3"tuFDBCK$(1)"Correct!":FDBCK$(2)"You forgot to carry the/1. Try again."uFDBCK$(NMTCH)"No. Try again.":FDBCK$(NMTCH1)"No. The answer is 4;/type it in."uAXPSX(7):17000:,X(8),Y(6):REWRITE:" "se this symbol. Try/again."@luFDBCK$(NMTCH)"No. Try again."vuFDBCK$(NMTCH1)"No. The decimal sum is/9. Convert 9 to octal/by dividing it by 8. /Type in the remainder."uAXPSX(9):AYPSY(12):XPSX(14):YPSAYPS:17000:,X(8),Y(6):"1"("difficulty, you'll be given":"other choices.":VSPACE,0:1000:P0u*PAGE-11[:u15500Du,X(14),Y(8):"11210^ = 16^"NuQUESTIN1:LNGTH3:ANSWER$(2)"70"0XuFDBCK$(1)"Yes!":FDBCK$(NMTCH1)"Sorry./ 112 1#0 16 = 7 , R = 0 ":AX000\q,X(4),Y(7):VSPACE,5:"This practice set contains nine":"questions. In order to complete":"this set successfully, you need to":"answer six questions correctly."Bfq"If you feel you need help at any ":"time, type H. If you have serious":";:RESET:" 3 ";:BOXIT,3:" ":,X(28),Y(2):"3":X1800::,X(27),Y(2):"1"aX1%12:Y1%27:X2%270:Y2%180:H1%3:S1%1:D1%2:2000:1000:Hq*PAGE-10Rq7000:,X(15),Y(4):"PRACTICE SET":X1%93:Y1%20:X2%187:Y2%36:H1%3:S1%1:D1%2:200o%m,X(3),Y(19):"To see how this process checks the":"conversion of the last example,":"press R now."%m,X(10),Y(23):"Press RETURN to continue.";:FROMOTHERYES:1000:RESPNSE$"R"RE$M$28050:%Hq*PAGE7Bw&Rq7000:,X(3),Y(2):"Inits digit.":RXPS14:RYPS10:15000f$tm,X(8),Y(10):"2. Add the products.":RXPS14:RYPS12:15000%~m,X(8),Y(12):"3. Compare the sum of step 2":" to the decimal number.":" The two numbers should be":" the same.":RXPS14:RYPS17:150ress RETURN to continue.";:FROMOTHERYES:1000:RESPNSE$"R"RE$M$27030:\#`m*PAGE-7.A"$jm7000:,X(3),Y(2):"To check your conversion from decimal":"to hex:":,X(8),Y(6):"1. Multiply each place-value":" in hex representation by":" 10),Y(7):VSPACE,2:"You may find it useful":"to check the accuracy":"of your conversion.":VSPACE,0:RXPS14:RYPS11:15000"i,X(10),Y(12):VSPACE,2:"To review the steps":"followed in checking,":"press R now.":VSPACE,0M#i,X(10),Y(17):"PCK$(NMTCH)"Sorry. Try again.":FDBCK$(NMTCH1)"The answer is C./Type it in."g!eAYPSY(17)4:17000!e,X(26),Y(2):"C":X1800::,X(25),Y(2):"1"!eX1%12:Y1%27:X2%270:Y2%180:H1%3:S1%1:D1%2:2000:1000:!xi*PAGE-7~"i7000:,X(1, R = 12. Type/it in."K eAYPSY(15)4:XPSX(21)2:YPSY(19)2:17000 eQUESTIN6:ANSWER$(1)"C":ANSWER$(2)"12":FDBCK$(1)"Yes! Now we'll put/C in the third/column, with 1 as/the MSD.":FDBCK$(2)"Sorry. Hex uses/A-F for 10-15. Try/again."N!eFDB:"quotient as MSD."5eX2%137:Y2%180:RY24:16500me,X(23),Y(15)4:"28 1#0 16 ="::" R = " eQUESTIN5:ANSWER$(1)"1":FDBCK$(1)"Yes. Now let's do/the remainder.":FDBCK$(NMTCH)"Sorry. Try again.":FDBCK$(NMTCH1)"No. The answer is/mainder/is 8. Type it in."2eAYPSY(13):17000he,X(27),Y(2):"8":X2%270:Y2%108:RY15:16000e,X(3),Y(15):"Repeat second":"step until the":"quotient can't be":"divided by 16.":"Record the last":"remainder, then":"record the final" work/and try again.":FDBCK$(NMTCH1)"Sorry. The answer is/28, R=8. Type it in."ueAYPSY(11):YPSY(15):17000eQUESTIN4:ANSWER$(1)"8":FDBCK$(1)"Right! Now for the/next step.":FDBCK$(NMTCH)"Sorry. Try again.":FDBCK$(NMTCH1)"Sorry. The re quotient":"from last step by":"16 and record":"remainder.":X2%137:Y2%108:RY15:16500e,X(23),Y(11):"456 1#0 16 ="::" R ="eQUESTIN3:ANSWER$(1)"28"SeFDBCK$(1)"Right! Now for the/remainder.":FDBCK$(NMTCH)"Sorry. Check your remainder is 14,/but hex uses letters/A-F for 10-15. Try/again.":FDBCK$(NMTCH)"Sorry. The remainder/is 14. Try again.":FDBCK$(NMTCH1)FDBCK$(NMTCH)eAYPSY(7):17000e,X(28),Y(2):"E":X2%270:Y2%68:RY10:16000[e,X(3),Y(10):"Divideer.":FDBCK$(NMTCH)"7310 1#0 16 = 456,/R=14. Try again.":FDBCK$(NMTCH1)FDBCK$(NMTCH)eAXPSX(33):AYPSY(5):XPSX(16):YPSY(10):17000eQUESTIN2:ANSWER$(1)"E":ANSWER$(2)"14"eFDBCK$(1)"Right! Let's go to/the next step.":FDBCK$(2)"Thel":"number by 16 and":"record remainder":"as LSD.":X2%137:Y2%68:RY10:16500e,X(22),Y(5):"7310 1#0 16 ="::" R ="eQUESTIN1:ANSWER$(1)"456":LNGTH3:STPYES:LEAVEITNO:ALTYESYeFDBCK$(1)"Right! Now let's/type in the/remaindEXIT$RESPNSE$"R"41030:(<,X(5),Y(9):"Your score was "RIGHT" correct answers"::"out of 9.":::"To review the lesson, type"::"R."(F,X(5),Y(19):"To leave the lesson, press ESC.";:FROMOTHERYES:NXNO:1000:RESPNSE$EXIT$RESPNSE$"R"41030:030:E$9.":::"You have mastered decimal to hex"::"conversions."'^,X(5),Y(19):"Press ESC to leave the lesson.";:FROMOTHERYES:NXNO:1000:RESPNSE$EXIT$40030:'(*PAGE-22'27000:,X(5),Y(5):CHARMODE,3:COL,5:"Sorry.":CHARMODE,0:COL,3t8):XPSX(4):YPSY(12):17000]&JUDGEIGNREį,AXPS7,AYPS:REWRITE:"E001":WRITE:1000c&p&@*PAGE21&J7000:,X(5),Y(5):CHARMODE,3:COL,1:"WOW!":CHARMODE,0:COL,3='T,X(5),Y(9):"Your score was "RIGHT" correct answers"::"out of 57001%l,X(12),Y(8):"5734510^ = 16^"Y%QUESTIN9:LNGTH4:ANSWER$(2)"E001"&FDBCK$(1)"Right!":FDBCK$(NMTCH1)"Sorry./ 573451#016 = 3584, R= 1 / 35841#016 = 224, R= 0 / 2241#016 = 14 = E , R= 0 ":AXPSX(21):AYPSY(4D"$FDBCK$(1)"Yes!":FDBCK$(NMTCH1)"Sorry./ 11011#016 = 68, R=13= D / 681#016 = 4 , R= 4 ":AXPSX(22):AYPSY(8):XPSX(4):YPSY(12):17000$JUDGEIGNREį,AXPS7,AYPS:REWRITE:"44D":WRITE:1000$$X*PAGE-20%b1/ 321#016 = 1 , R= 6 ":AXPSX(21):AYPSY(8):XPSX(4):YPSY(12):17000#JUDGEIGNREį,AXPS7,AYPS:REWRITE:"168E":WRITE:1000#Đ#p*PAGE-19#z15700#,X(14),Y(8):"110110^ = 16^"$QUESTIN8:LNGTH3:ANSWER$(2)"4S:REWRITE:"C8E":WRITE:1000$"܌2"*PAGE-18="15700i",X(13),Y(8):"577410^ = 16^""QUESTIN7:LNGTH4:ANSWER$(2)"168E"S#FDBCK$(1)"Yes.":FDBCK$(NMTCH1)"Sorry./ 57741#016 = 360, R=14= E / 3601#016 = 22, R= 8 ^ = 16^"4!ČQUESTIN6:LNGTH3:ANSWER$(2)"C8E"!ȌFDBCK$(1)"Right!":FDBCK$(NMTCH1)"Sorry./ 32141#016 = 200, R=14= E / 2001#016 = 12 = C , R= 8 ":AXPSX(22):AYPSY(8):XPSX(4):YPSY(12):17000"ҌJUDGEIGNREį,AXPS7,AYPSorry./ 4951#016 = 30, R = 15 = F / 301#016 = 1 , R = 14 = E ":AXPSX(22):AYPSY(8):XPSX(4):YPSY(12):17000 ꈭJUDGEIGNREį,AXPS7,AYPS:REWRITE:"1EF":WRITE:1000 *PAGE-17 15700 !,X(14),Y(8):"321410study some examples."j,X(6),Y(18):"Type R to review.";:FROMOTHERYES:1000:RESPNSE$"R"34030:x*PAGE-16ˆ15700̈,X(14),Y(8):" 49510^ = 16^"ۈQUESTIN5:LNGTH3:ANSWER$(2)"1EF" FDBCK$(1)"Correct!":FDBCK$(NMTCH1)"SX(4):YPSY(12):17000WJUDGEIGNREį,AXPS7,AYPS:REWRITE:"801":WRITE:1000]$kЄ*PAGE-16ڄ7000:,X(6),Y(6):"You seem to be having some"::"trouble with decimal to hex"::"conversions.":::"Let's review the rules and"䄺:"00<}耲*PAGE-14!15700L,X(14),Y(8):"204910^ = 16^"s QUESTIN4:LNGTH3:ANSWER$(2)"801"FDBCK$(1)"Yes!":FDBCK$(NMTCH1)"Sorry./ 20491#016 = 128, R = 1 / 1281#016 = 8 , R = 0 ":AXPSX(22):AYPSY(8):XP20910^ = 16^"9 }QUESTIN3:LNGTH3:ANSWER$(2)"D1"(}FDBCK$(1)"Correct!":FDBCK$(NMTCH1)"Sorry./ 2091#016 = 13= D , R = 1 ":AXPSX(21):AYPSY(8):XPSX(4):YPSY(12):170002}JUDGEIGNREį,AXPS7,AYPS:REWRITE:" D1":WRITE:10TCH1)"Sorry./ 30731#016 = 192, R = 1 / 1921#016 = 12 = C , R = 0 ":AXPSX(22):AYPSY(8):XPSX(4):YPSY(12):17000JyJUDGEIGNREį,AXPS7,AYPS:REWRITE:"C01":WRITE:1000Ty}*PAGE-13 }15700},X(14),Y(8):"PSX(21):AYPSY(8):XPSX(4):YPSY(12):17000nbuJUDGEIGNREį,AXPS7,AYPS:REWRITE:" 70":WRITE:1000tluy*PAGE-12"y15700,y,X(14),Y(8):"307310^ = 16^"7yQUESTIN2:LNGTH3:ANSWER$(2)"C01"@yFDBCK$(1)"Right!":FDBCK$(NMxZFILE$I$(CHOICE,1):)Jȱ±ӅŠ̄ĠŮӭ.̝ʠ˝ڝڝڝZNӭ̮1 ǍӠŢ ôø¹Ʋ³ưà ŶİŶƲİ ôǠİG·Ԭب٨ͪEԬب٨ű0˝ڝڝڝZ0ѣӽبӽ٨)ӽبӽ٨³N±NŠɠڝZĥرٱı²ôø¹Ʋ³ưà ŶİŶƲİ ôǠİǍӠŢ ϻҽӺ±Ť>Ҥˤ^B ؠؠ^·ĥرٱȱDZŠέṷ̆Ԣ Ġӭ̮1ӅŠ̄1Šӭ̮.ôø¹Ʋ³ưà ŶİŶƲİ ôǠİG ŶİŶƲİ ôǠİǍӠŢ ϻҽӺ±Ť>Ҥˤ^ ؠؠ^ӽӽ±ͪ BԬب٨ӃǍǍˠڝڝZˠڝڝZ@峳@ŠڝڝZ˨˨610  رٱزٲȱӱı²ôø¹Ʋ³ưà°ùàŹùĠİưĠĠàưčİǍ̷ ʛ˛͛=ɛڕڝڝڝڝǍǍ@峳@˨˨610رٱزٲȱӱ԰ܢŠéΠΠֳ"\_Tҧ̭ @Р̧ĺŹù婍, N \,LLL/Hh( Q՗$`h Y,LL,0`,HHɓ4ɛ0ɐ,Ƀ ɘ )L՗hh`, b:/8`Ԡƌ0c L` 0 H h`hNNɝ``? D ? 0`? H h0ED Lɠj,LH)? h`, 3ɍNɖ HH hh`,0ɍ3 ɛɓ 8I)I h`$8n ,L -,,0ɁϬ,c0 ې II ,Pɛ,0@L,?ɛ&,! ŗ0̗ $L$,0ɕ ڔ`( Q8nN 2ɧ )ɧɝ$Lj ) O,I LE CL$8f< NE$<CC CE?AC8A  L$>I Ԗ8LE? L ? ?L CC ` LH@ɠ$@ ɢE@@EE=h`(,L$(H,0 @))(N CEEɛ@ . L٪ $ .`DH )hhhNCLȎHH$`ʩ L ɠE .CH $h L\ $>N ґ  ԖEH3ɾɪ$@ɢE@@$@0 )ߝh` LcEEC Lؓ N EE ڔ`n ,8`0 őɢɢLԗ8ӗ ԗ )` EHӗȹɿh` h` Eɠ`AɀeE*EEA ʽAIE EA`C  LE `N ɍHh`C$3P톸Eɍ$3p C L ED C` NL$= Бӗ Y ԗ0 : YL E  $L ԖF>JL őɠɰɺ8``ɯɍ`C葌ɮ NC`  CЅ$`CDԗӗ 0N Б +0I ԑ m ӗ [) ԗI]IƍID$3p CL ő(ɬ őɮ ɬ ɢ `ʨ`hh )N E$` L  ɠiɺ>F=E$3pDм5 I $`$3pE L3ɾ`Ŗ ED 3 u3N,pd O<=EM 0 <<=18<=L E )<)<L> D Ԗ ) H hߦ$! Ԗfҗ L L L$  5F67`N^89`HH`(wn,3L ©éĭ@JLLE C^[lO,LȐ ,Pɗ*ɘɍL=Ʌ-ɖ``````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````Ӡˠ̠ŠԠé̠΍$9ɝ ,L `<>=?<>=? , Hȱ8h  ȩ$ȱH  h i֩H MMLI L          űű \_Tҧ̭ @Р̧ĺŹù°ùàŹùĠİưĠĠàưčİǍ̷ ʛ˛͛=ɛڕڝڝڝڝ԰ܢŠéΠΠֳ"Рŧ˨űű˨ Рŧ) ɛɓ 8I,I)ې婍,+ +N+۝ ,LHH:LVԩHGFh( {ڬGۈG۹ۤ$`h ,LHHݶhܶhLضHuH,0`,,HHɓ4ɛ0ɐ,FɃG ɘGۍG SLڙیFhh`Ԡƌ55ۭ;ٙ5ۭ<ٙ=ې 7) v,/0c CL;<٭` 20 H55۹5ۍ;ٹ=ۍ< 2h`hN4N-ɝ`;٩ۍ<`? k 2 ? 20`+ۍ/ۥ? 2H h0ED LԽɠj,LH)? 2ɧ >)ɧ-ɝ$LC <ڈL  2N3۩ <کEE I LE ֦CL$8f< 7N+E$<CC CE?AC8A 7L.$>I  8LӥE? ע L ֩? } 2 ٦EH,ۥ3ɾɪ$@,ɢE@@$@0 )ߝh` 7L֤EEՠɮ }ڙr` Ԑ ԰r`n2۩ ,3gۙ`Wՠ ɢɢGLӭ8 հ X۝`0 ՐEH۰ȹGɿh`0 Րh` ԰Eɠ`AɀeE*EEA ʽAIE ɺ>F=E$ۍ%۩$3pDмɍH%h`C$3P톸Eɍ$3p C %ۢL#ED צC` ԰N3L$= ԭ Ր2 0 aհ հ1L E Ԑ $L F>%J$ۢL ɠɰɺ8``ɯɍ`rՌ#) ٩ ٩ 2H hߦ$! ٩$`rsۘۍ3ێ 0N3 +0x ԍ3 mH AՌۘ [X AՌ۽I]Iƍ1I0ۭs$3p ڙrۈL (ɬ ɮ ɬ ɢ Ԑ`ʨ`hh SN3 2ѢE$` )L  )ՠ ɠiPɗ*ɘɍL=Ʌ-ɖ5 I 2ѩ$`$3p,ۆE  Lԥ3ɾ` ) k 2L,Hh)hRhذdfۈ ,ѩHHLԶ 2L L@  QѠ67%`N-۠89$`&ۍ'ۮ%۽HH'ۮ&`(&ۺwn(ۮ&,3L ©éĭ$@JL Ll&3jَϹB@/ v,3L 5,(``````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````I hh,`ӠˠϠŠ̠ŠéԠé̠΍$$8HIL,նh, ,`, ,`, , ,:/8`$ɝ ,L* `HHZ ,̠$ , Hȱh  ȩБ,'ȱ,H  h iЩH, MMТF¶LL            Š ԠŠ ˠŠ ԠŠ ˠŠ ̠ŠŠŠ͠ŠŠ: ŠԠE ĠŠ ŠԠ ˠɯϠ |Aȑȩȑȩȑ |AfLAȩEY ȩ |A |ALAɍ`BH h0`  6uX fG nALA,E,C,D@LA X?25A 2 <=I?߮=<,,<>=?  A  (4)"BRUN PLE.48":. (4)"BRUN PLE.DM":794,74:795,141:796,47:797,3:798,104:799,141x 2800,0:801,224:802,44:803,129:804,192:805,104:806,205:807,0 <808,224:809,240:810,3:811,44:812,128:813,192:814,96 d::(4)"CATALOG" n768:(815)130 x(4)"BRUN PLE.LC": /(978)190140\ 768,173:769,0:770,224:771,72:772,44:773,131:774,192:775,44776,131:777,192:778,173:779,0:780,224:781,72:782,169:783,165784,141:785,0:786,224:787,14:788,0:789,224:790,173:791,01 (792,224:793,73:  second":"step until the":"quotient can't be":"divided by 16.":"Record the last":"remainder, then":"record the final":"quotient as MSD."aX2%137:Y2%180:RY24:16000Ta,X(23),Y(17):"19 1#0 16 = ";:RESET:" 1 ";:BOXIT,3:" "::" R = oient":"from last step by":"16 and record":"remainder.":X2%137:Y2%108:RY15:16000a,X(23),Y(11):"317 1#0 16 = 19"::" R = 13 = ";:RESET:" D ";:BOXIT,3:" ":,X(29),Y(2):"D":X2%270:Y2%108:RY15:16000a,X(3),Y(15):"Repeat decimal":"number by 16 and":"record remainder":"as LSD.":X2%137:Y2%68:RY10:16000a,X(23),Y(5):"5072 1#0 16 = 317"::" R = ";:RESET:" 0 ";:BOXIT,3:" ":,X(30),Y(2):"0":X2%270:Y2%68:RY10:16000Wa,X(3),Y(10):"Divide quW1N(RIGHT6)140000,410009NRESPNSE$EXIT$11000`NFILE$"DEC.TO.HEX-1":13000:13500ma*PAGE-5a7000:,X(4),Y(2):"Let's convert 507210^ = 16^":" 1%%%%0":RXPS14:RYPS4:15000Xa,X(3),Y(5):"Divide34000:201309\N35000:JUDGEIGNREİ25000:15500:20060ffN36000:JUDGEIGNREİ25000:15500:20070pN37000:JUDGEIGNREİ25000:15500:20080zN38000:JUDGEIGNREİ25000:15500:20090N39000:JUDGEIGNREİ25000:15500:20100NRIGHTR1:WRNGWELCOME.DEC.TO.HEX". N*CONTROL-DEC.TO.HEX-29*N29000G/NR10:W10m4N30000:JUDGEIGNREİ25000:20020>N31000:JUDGEIGNREİ25000:15500:20030HN32000:JUDGEIGNREİ25000:15500:20040RN33000:JUDGEIGNREİ25000:15500:20050 WNR13İMF6:AN$(MA):FD$(MF2):FD(MA2,2):NMMF1:DNMF2:J1MA1:FD(J1,1)IGS`JZX%YEujJEQ(9):L109:EQ(X)0::CQ0tJMO(A)(A2)A2JCL%809:SW%803:HP%812JB1$"0":T1$"9":B2$"A":T2$"F":PR$".":CM$",":SP$" ":NG$"-":HFLAGNONLS$"0:C*RESTORE'SCORE4CR1RIGHTR1:W1WRNGW1:HPF*QUESTION'DATAQZFQ#1YdF2,hnF0,3,,1,1,n8JBJZ9815:YE1:NO0:BOYE:JU0:NR1:LS2:QTNR:LENO:CR1:IN0:IG3:G04:RI0:WR0:A$"":A1$A2$:G$(7):M$(13):D$M$(4):EX$(27)HVJMA4:K$(0)"":FDBCK(J1NMTCH,1)INCRRECT:LEAVEITYES:LWRNGNO:FDBCK$(NMTCH)"Sorry. Try again.":17200|B3000:JUDGEINCRRECTFDBCK$(NMTCH)FDBCK$(NMTCH1):LWRNGYES:3000BJUDGEIGNREĭ(EQ(CQ))EQ(CQ)YES:17300B0C*ZAP'SCORE:CRIGHT0:WRNGЌCLR% h=34,0: >*BOX.PLUSg >X1%12:Y1%27:H1%3:S1%1:D1%2:RX5(19(X2%270)):2000:15000:w t@*BOX.MINUS ~@X1%12:Y1%27:H1%3:S1%1:D1%2:2000: hB*SPECIAL'THINGIEarBCQQUESTIN:QUESTIN1:TRIES0:STPYES:ANSWER$(1)"H":HFLAGYES:FDBC:,X(2),Y(2):"Convert this number to its hexadecimal":"equivalent. Type the answer and press":"RETURN.":X1%3:Y1%3:X2%276:Y2%36:H1%2:S1%1:D1%2:2000 0"mJB1$"0":T1$"9":B2$"A":T2$"F":PR$".":CM$",":SP$" ":NG$"-":HFLAGNONLS$"WELCOME.DEC.TO.HEX" N*CONTROL-DEC.TO.HEX-1*N24000:25000:260004N27000:RE$"R"İ28000:RE$"R"İ29000>N30000 HNRESPNS:CR1:IN0:IG3:G04:RI0:WR0:A$"":A1$A2$:G$(7):M$(13):D$M$(4):EX$(27)VJMA4:MF6:AN$(MA):FD$(MF2):FD(MA2,2):NMMF1:DNMF2:J1MA1:FD(J1,1)IG`JZX%YEjJCHOICE$(3,1)tJMO(A)(A2)A2JCL%809:SW%803:HP%812 JI$(9*QUESTION'DATA ZFQ#1 dF2,. nF1,1,,2,0,7 xFQ#2? F2,N F1,1,,2,0,W FQ#3_ F1,i F1,1,r FQ#4z F1, F1,1, FQ#5 F2, F1,1,,2,0, FQ#6 F2, G1,1,,2,0, 8JRBJZ9815:YE1:NO0:BOYE:JU0:NR1:LS2:QTNR:LENO1%1:D1%2:RX5(19(X2%270)):2000:15000:= t@*BOX.MINUSi ~@X1%12:Y1%27:H1%3:S1%1:D1%2:2000: hB*SPECIAL'THINGIE rBTRIES0:STPYES:FDBCK(J1NMTCH,1)INCRRECT:LWRNGNO |B3000:JUDGECRRECTFDBCK$(NMTCH)FDBCK$(NMTCH1):17020 B PF1$)A$(A2$,(A1$)1,1):A1$A1$A$:A$;:6 d7BEEP:E n7NX9000:T :*P-RETURN :VSPACE,0:HSPACE,0:,X(RX),Y(RY):"Press RETURN.";:FRYE:1000:RE$M$15010:REWRITE:,X(RX),Y(RY):12)" ";:WRITE: >*BOX.PLUS- >X1%12:Y1%27:H1%3:S(RE$,1)" "RE$(RE$,1,L11):H 7(RE$,1,1)" "RE$(RE$,2):14110 (7RE$""RE1.000001E29:RL(RE$):NXYE::WRITE: 27BEEP:BEEP::14010 <7A1$""A1$(A1$,1,(A1$)1):(8); F7 P7A1$""A2$""A$(A2$,1):14071* Z7(A2$)(A90 6(A1$)IL14180^ 6C1(B1$A$)(A$T1$):C2(B2$A$)(A$T2$):C3(A$PR$)(A$NG$) 6(C1C2C3)(HFLAGA$"H")ı 6A1$A1$A$:C9(A2$)(A1$):C9A2$A1$(A2$,(A2$)(A1$)) 7C9A2$A1$ 7A$;: 7RE$A1$:" ":L1(RE$)11: 612000-6103,1:104,72:16302,0:1K6*ALTERNATE'INPUT'ROUTINEX6REWRITE6,IX,IY:IL1)"";:A1$"":A2$"":JD$"":,IX,IY616368,06A$:14040:140306TY(Z9):ILĭNXTY5RE$A$:14120 6TY14100,14130,14140,14160,141          z#??   Ůà Ů  Įԭ!Įԭ""ŮîϮؠ îϮح"îϮح#ԮŠŠŠ  îȮҠخîȮŮ̮̠̮̭)̮̭̮̭ŮĮԠ îȮǮԠϠ̭٠ӮԠ ӮԠĮîȮîȮ$"R"RESPNSE$"M"RESPNSE$EX$45030.9:45030N4 D$(13)(4):3:D$"BRUN HELLO":2IC MATH DISK #2"::p2A$:A$"E"ĺ:D$"BRUN HELLO":<:D$"RUN BOOT.PLE"R"27020: it in." NfAXPSX(6):17000:-xi*PAGE-9i7000:,X(6),Y(6):"It's time to make a choice.":::"Type R to review the whole lesson." i,X(6),Y(12):"Press RETURN to go to the":"practice set.";:FROMOTHERYES:1000:RESPNSE$M$RESPNSE$"` ` `@@@2`@@ @` ` `CFFC@FC@?|||p ` p} |||`00` /0 ? p?`@@`?`@@`? ?DEF ` F!!@`00p` \bBBB`Ȯ  'x 8(i8逅i 8ԥΥд`$ 08 !      Т @ `` @ @ŠĠӠԠōԠΠԮŠӠŠԠƠōˠŠĠԠΠҠӢŠΠӠ΍ŠҠӠ٠άԍӠŠˠΠŠōĠӠΠӍΠàՠĠŠƠźΠŠ۠ӍΠԠ͠čҠŠĠˠĮŠԠӠϠҠҮҠ΍@@   ` X  (! M %8 M ` %! M `HI2$% "h  2`x ɧ͠٬ՠĠŠԍŠΠҠҠōՠΠŠӠŮ  G / XZ]_    L  L``ꩿ 0 XL,L ,L ` HhH#J  h`@hg@     808$m$imi`%J!8!`ɖ%Jm`ɇ |`ɕ `Ɇ `ɠ`m%mm%8%%m! !` 8     8   m%!!!8! 8!! )8  m$imim$ LɍLɊLɉLI`ɈLH8$K - ,H# ,P,R,Wux {&~) `L%LLiL  $ȱ% $%  ` L *UU*ժ    L Ɍ SI SL$ɕ(ESɍм `Ɉɠ ɍ7)L Li؍ĠӍԍ׍٠̍ō č ԍ̠ҠŠө&cr[H HHHH123./-0 C012/ۭ3hhhh h m-iLm.L`L S ,9 c{  J L1 I1``Q`   mL"` ` & & 8e e ȱȱȱee -.)-#.)-%LL Н],I9` S ,轓 S , 'ؠ'?`f  C  C  C  C`8 I1``Q`888 L17/8DL CL8  C CL C CL`````],@ @ @ @ @ @ @ @ @ @ @H Mh`-)%!H)'Lq'h)I `HHHFf & Chhh`F S ,/* + '  + '- !!!!!"""""""#######$$$$$$$%%%%%%%&&&&&&&''''''' @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @      !!((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP                     $%%%&&&&'''@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ ((((((((((((((((((((((((@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @  !!!""""###$$$LCLLLLLLLXLLLLLLLLLLLL,W,P`,Q`,S`,R` ,`@,`,T`,U`L  !!!!"""####$$$%%%%&&&'''' @           :"was correct.":1000:%(0u*PAGE-8(:u7000:,X(7),Y(6):"It's time to practice!":::"To review the lesson first,"::"type R."(Du,X(7),Y(14):"Press RETURN to practice.";:FROMOTHERYES:1000:RESPNSE$M$RESPNSE$"R"30020:'fq,X(16),Y(8):"= 4096"::"= 3072"::"= 128"::"= 14":" 1%%%%0":15000:,X(18),Y(16):"731010":RYPS18:15000(pq,X(3),Y(19):"The sum is 7310. That was the":"decimal number with which you":"started. Therefore your conversion" the last example, you found that":"decimal 7310 equals hex 1C8E."::"To check the conversion:":RXPS14:RYPS7:15000'\q,X(7),Y(8):"4096"::" 256"::" 16"::" 1":RXPS14:RYPS16:15000:,X(12),Y(8):"x 1"::"x C"::"x 8"::"x E":15000H|>p ~>@ `0|>1 $ $@ |>p8?8|> y` `>1|<|vۮLeq1 $ $@ >@ #q0@@ ` 0D( ʦ|>``8|>s8> %,3:AHOV]dkry  P>@@@Tq ‡@@  0@ `0_ ")07>ELSZahov}H$ "H"A"@ >A>`0> ē@c2iO  %GA G$:@c@pPDaPH @pERG$G$qdG$N$Oy‡@ H$H$ HRQH$< @pC>q E@>y8#q>A #q8@p0 qDD$$J'H#y@ qH$8>#>#@q"'@p80" @ "J%"I%H$q#Hȣ<y>@ "H$q":AHOV]dkry @  A@@@AQ!‡@@  "#Leq_ ")07>ELSZahov} %,3      3f @0 @ $3`e ) E a }      % A ] y      ! = Y u     P 0  ?P_ )Ea} %A]y!=Yu9Uq5Qm1Mi-I  =<103,1:104,72:72256,0::(4)"RUN ELEC.MATH.2.MR": 4103,75:104,87'4D$"RUN "FI$",D1"3412000p47000:,63,40:"Please put the diskette"::"marked - "5:(9)24)" ":" BASIC ELECTRONICS ":24)" ":" ELECTRONIC MATH ":" DISK #1 ":25)(9)KH5:"in drive 1 ":31)::16:1:"PRESS CTRL-RESET TO START OVER.":16384,0G2S2UNHOOK216301,0:32,0:33,40::23:2:"** PREPARING LESSON--PLEASE WAIT. **";2REHOOK:,0,8:44135504D$"BLOAD ID.ELEC.MATH.2,D1"4D$"MAXFILES1" come back soon!":16368,0:16384,0..E.(222)255Č64166p.SWD%,8:UNHOOK:::32,5:33,35:5:1."ERROR TYPE = "(222):"LINE NO. = "(218)(219)256A/:::31)(0):" PLEASE REPORT THIS TO YOUR ":" INSTRUCTOR. 5,24:A$"1"ı0#A$"2"İ13000:FI$LS$:13500B#A$"3"11000M#11500T* +7000:,X(10),Y(9):"Going to the menu."::"Please wait one moment." +FI$"INDEX.ELEC.MATH.2":13500,*BYE NOW(,7000:,X(9),Y(10):"BYE NOW --"::" . START THIS LESSON":9)"FROM THE BEGINNING?"::5)"3. GO TO THE MENU?"::5)"4. STOP THIS LESSON?"#:" TYPE 1, 2, 3, OR 4."#20:23:A$:A$"1"A$"4"9130#16300,0:16297,0:16302,0:16304,0:SWD%,EW:REHOOK:32,0:33,40:34,0:3,24:CLR%Al:16302,0:LMARGIN,0:WRITE:VSPACE,0:HSPACE,0:G(#V-#EW(SWD%)2#SWD%,8:UNHOOK:::32,5:33,30:5:1:" YOU ENDED THE LESSON IN THE":"MIDDLE."::" DO YOU WANT TO:"::5)"1. GO BACK TO WHERE":9)"YOU LEFT OFF?"i#:5)"2%,X2%,Y2%TWRITE:/QUQIĮ:QI0QIQI1:L1QIQU:FD(0,0),FD(0,2):L21FD(0,0):FD(L2,0),FD(L2,1),FD(L2,2):::QIQU:pz3(UL0):UX,UY1UX(UL)((775)(804))1,UY1:3:X bHP%,32:SWD%,72:32,0:33,40:34,0:35U$,1):OC$"*"FEFE1:4020&OC$;X1%(777)(778)2563:Y1%(779)Y(1)3:X2%(780)(781)256X(2)3:Y2%(782)(776)3:D1%1:S1%1:H1%(JUCR)41:2000 J((LE)JUCR)LWİ1000:X1%X1%1:X2%X2%2:Y1%Y1%1:Y2%Y2%1:CLRWIND,X1%,Y1JUIGJUG0)RIRIJU:WRWRJU< STP(JUIGJUIN)3030` ,AX,AY:REWRITE:" ":WRITE:frFE0ıRESET:,XP,YPOU$FD$(FE):LO(OU$)1:OU$""JUG0:L11LO:OC$(OU$,L1,1):OC$"/"ĺOC$;:L1LOĺM$;:OC$(O1FD(0,0):RE$AN$(L1)ĂP (L1FD(0,0))ALTāL11FD(0,0):RE(AN$(L1))Ă  L1FD(0,0)JUFD(L1,1):FOYE:FEFD(L1,2(FD(0,2)TR)):QTLSFD(L1,0)DN:FD(L1,2)DN:FD(L1,1)IG b FOFENM(LN0):JUFD(J1,1) l 4000:JUIGTRTR1 (TR11%:X1%X1%S1%:Y1%Y1%S1%:X2%X2%S1%:Y2%Y2%S1%::< ^ REWRITE:TRTRST:QU05000 Z(0):FONO:,AX,AY:"1?0";:SWD%,684SH:ILLN:IXAXX(3ZX%):IYAY:UXIX:UYIY:ULLN:6000 ALT110,14000:,IX,IY:RE$(IL(RE$))(IL0));:L169)256:IY(770)Y(1)1:IL0:109 FRFRNO:WRITE:n $RE$M$įREWRITE:,X(7),Y(24):27);:WRITE:x 81000~ 6 H1%:X1%(X1%(MOD(X1%)MOD(H1%))):X2%(X2%(MOD(X2%)MOD(H1%))):L11D1%S1%:X1%,Y1%X2%,Y1%X2%,Y2%X1%,Y2%X1%,YA1$(A1$,1,(A1$)1):(8);" F A1$""A2$""A$(A2$,1):80 (A2$)(A1$)A$(A2$,(A1$)1,1):A1$A1$A$:A$;: BEEP: NX9000:  REWRITE FRĹSWD%,72:,X(8),Y(24):"Press RETURN to continue.";" IX(768)(7(A2$)(A1$):C9A2$A1$(A2$,(A2$)(A1$))? dC9A2$A1$J nA$;: xRE$A1$:" ":L1(RE$)11:(RE$,1)" "RE$(RE$,1,L11): }(RE$,1,1)" "RE$(RE$,2):125 RE$""RL(RE$):NXYES::WRITE: BEEP:BEEP::20 A1$""e 12000-X(A)7(A1):Y(A)8A1819000> KREWRITExA1$"":A2$"":,IX,IY:IL1);:,IX,IY#16368,0(A$:50:402TY(Z9):ILĭNXTY5RE$A$:130<TY120,140,150,170,200F(A1$)IL190. PA1$A1$A$:C9     HOICE2:CHOICE". "I$(CHOICE,0);:BLNGTHBLNGTH:15000:20:1:99)" ":24100ft^FILE$I$(CHOICE,1)::120*bRESPNSE$" "įREWRITE:,X(6),Y(7CHOICE2)CHOICE3:RESET:CHOICE3". "I$(CHOICE,0);:BOXIT,0:,X(3),Y(21):99)" ":250704bFILE$I$(CHOICE,1):YES:NXNO:1000:RESPNSE$EXIT$RESPNSE$" "RESPNSE$M$24140Mj^RESPNSE$" "Ģ6CCE2)CHOICE3:RESET:(9)CHOICE3". "I$(CHOICE,0)(9);EbBOXIT,3 bREWRITE:,X(6),Y(21):"Press RETURN to take this lesson":"or press the space bar to choose":"another.";:FROMOTHERYES:NXNO:1000:RESPNSE$EXIT$RESPNSE$" "RESPNSE$M$25X(6),Y(21):"Press ESC to stop, or H for":"help with special keys.";:FROMOTHERYES:NXNO:1000:RESPNSE$EXIT$RESPNSE$"H"(RESPNSE$"4"RESPNSE$"6")25070:REWRITEaRESPNSE$EXIT$ıbRESPNSE$"H"ı8 bCHOICE(RESPNSE$)3:,X(6),Y(7CHOII$(2,1)"WELCOME.ADD.OCT"uaI$(3,0)"Decimal to Hexadecimal Conversion ":I$(3,1)"WELCOME.DEC.TO.HEX"a,35,48:"Press the number of the lesson":"you want to study:"aX13:,X(6),Y(7X2)X3:X3". "I$(X,0):aREWRITE:,g the":9)"X key to erase the answer":9)"that you typed in.":1000:Ya*CHOICE'PAGEa7000:CHARMODE,3:,115,16:"MENU":CHARMODE,0aI$(1,0)"Decimal to Octal Conversion":I$(1,1)"WELCOME.DECIMAL.OCTAL"aI$(2,0)"Addition of Octal Numbers":)"to the next display."::" 1<-0 Press this key to go back":9)"over a letter that you":9)"typed by mistake."G]:" ESC If you want to stop at":9)"any time, press this key."::" CTRL-X Hold down the key marked":9)"CTRL while pressin.";:FROMOTHERYES:1000:RESPNSE$" "RESPNSE$M$23020? YM ]*KEYHELP ]7000:,X(4),Y(2):"To help you practice, you will be":"able to use the following keys on":"the computer's 1keyboard0:"x]::" RETURN Press this key to go on":9oration, Chicago, ILL."# hV1000:2 Y*ASK HELP Y7000:,35,41:"Some special keys will help"::"you to go through this lesson."::"If you want to see which they"::"are, press the SPACE bar now."9 Y,X(6),Y(14)::"To continue, press RETURN other"5 ,V"electronic devices nor copied, recast,"a 6V"transformed, adapted nor utilized in" @V"any information or retrieval system" JV"in whole or in part without the written" TV"permission of Encyclopaedia Britannica" ^V"Educational CorpR*TITLE-PAGE-PAUSEC lR16368,0:X1500:X1(16384)128:X1ĂS R16368,0:f U*WARNING PAGE UBONO:7000:BOYES:32,0:33,40 V,X(1),Y(7):"WARNING:" V:"ALL RIGHTS RESERVED. This work may not" "V"be transmitted by television orX.ELEC.MATH.2 *N(6909)85(6910)170(6911)85İ21000:5120:6909,85:6910,170:6911,85:ADDR,1,64256:ADDR,2,17441:16302,0:22000:23000:RESPNSE$" "24000 4N25000:RESPNSE$EXIT$ī11500 HNRESPNSE$"H"İ24000:20020 \N13000:13500 612000-6103,1:104,72:16302,0:1B8J*INITIALIZATIONVJZ9815:YE1:NO0:BOYE:A$"":A1$A2$:G$(7):M$(13):D$M$(4):EX$(27)JMOD(A)(A2)A2:I$(5,1)dKCLR%809:SWD%803:HP%812,LLS$"INDEX.ELEC.MATH.1" N*CONTROL-INDE     o"::"take.":1000:RN and we'll get started.";:FROMOTHERYES:1000:RESPNSE$M$22055I ,Vnd we'll get started.";:FROMOTHERYES:1000:RESPNSE$M$22055 ,VDt your knowledge. Your score will" Z:"determine the next step you need to"::"take.":1000:R00:M$22040:Aou'll need about 20 minutes to"Y "V:"complete this lesson, so press" 'V,X(3),Y(20):"RETURN and we'll get started.";:FROMOTHERYES:1000:RESPNSE$M$22055 ,V"V:"complete this lesson, so press"C 'V,X(3),Y(20):"RETUlesson provides"::"practice converting decimal"::"numbers to their octal equivalents." V,X(3),Y(14):" You will need about 20 minutes"::"to complete this lesson." V,X(6),Y(19):"Press RETURN to begin.";:FROMOTHERYES:1000:RESPNSE$9:Y1%8:X2%254:Y2%76:H1%2:S1%2:D1%3:2000X R,57,106:"CONVERGENT SYSTEMS, INC." &R,106,128:"2 ABCDEF ":" HIJKLM ":"OPQRSTUV":"WXYZabcd":" efghij ":" lmnopq 0" XR1000: U *PAGE 2 U7000Z V,X(3),Y(6):" Welcome! This *N21000:22000:13000:FILE$"DECIMAL.OCTAL-1":13500; R R7000:,X(7)4,Y(3):" BASIC ELECTRONICS"::" ELECTRONIC MATH":" Disk #2"::"Decimal to Octal Conversion". RX1%28:Y1%7:X2%254:Y2%75:D1%3:S1%2:H1%1:2000:X1%2  612000-6103,1:104,72:16302,0:138JBJZ9815:YE1:NO0:BOYE:A$"":A1$A2$:G$(7):M$(13):D$M$(4):EX$(27)VJMOD(A)(A2)A2tJCLR%809:SWD%803:HP%812NLS$"WELCOME.DECIMAL.OCTAL" N*CONTROL-WELCOME.DECIMAL.OCTAL5      01:RX5:RY14:17500Z(Z,X(21),Y(11):"75 1#0 8 = 9, R = ";:RESET:" 3 ";:BOXIT,32ZX2%277:Y2%101:,X(30),Y(2):"3":RX25:RY14:175007000:,X(2),Y(2):"Convert "BTNUM%" 10^ to octal. Type your"::"answer and press RETURN.":3:0,35279,35: hB*SPECIAL'THINGIE rBTRIES0:STPYES:ALTYES:FDBCK(J1NMTCH,1)INCRRECT% |B3000:QUESTIN0:(JUDGECRECT)(RESPNSE$"H")A2$)(A1$)A$(A2$,(A1$)1,1):A1$A1$A$:A$;:> d7BEEP:M n7NX9000:^ : * P-RETURN :VSPACE,0:HSPACE,0:,X(RX),Y(RY):"Press RETURN.";:FROMOTHERYES:1000:RESPNSE$M$15010:REWRITE:,X(RX),Y(RY):13)"":WRITE: > PROBLEM-SETUP(RE$)11:(RE$,1)" "RE$(RE$,1,L11):U 7(RE$,1,1)" "RE$(RE$,2):14110 (7RE$""RE(RE$):RL(RE$):NXYES::WRITE: 27BEEP:BEEP::14010 <7A1$""A1$(A1$,1,(A1$)1):(8); F7 P7A1$""A2$""A$(A2$,1):140712 Z7(90 6(A1$)IL14180^ 6C1(B1$A$)(A$T1$):C2(B2$A$)(A$T2$):C3(A$PR$)(A$NG$)z 6HFLAGA$"H"RE$A$: 6(C1C2C3)ı 6A1$A1$A$:C9(A2$)(A1$):C9A2$A1$(A2$,(A2$)(A1$)) 7C9A2$A1$ 7A$;:- 7RE$A1$:" ":L1p$ 612000-6103,1:104,72:16302,0:1K6*ALTERNATE'INPUT'ROUTINEX6REWRITE6,IX,IY:IL1)"";:A1$"":A2$"":JD$"":,IX,IY616368,06A$:14040:140306TY(Z9):ILĭNXTY5RE$A$:14120 6TY14100,14130,14140,14160,141                RETURN."SXu,X(17)1,Y(19):COL,1:CHARMODE,3:"LET'S GO!":CHARMODE,0:COL,3]bu1000cywyPROBLEM1PAGE14"yBTNUM%101:16000k,yANSWER$(2)"145":ANSWER$(3)"541":FDBCK$(1)"Correct!":FDBCK$(2)"Sorry. You've got the digits/reversed. MSDL,1:CHARMODE,3:"OK!":CHARMODE,0:COL,3Du,X(4),Y(7):"Here are 3 conversions for you"::"to do. If you need help and want"::"to see a complete example, type H."::"Otherwise, just work out your" Nu:"answer, type it in, and then"::"press29:Y2%172:RX5:RY23:17500|PZ,X(21),Y(17):"9 1#0 8 = ";:RESET:" 1 ";:BOXIT,3:", R = ";:RESET:" 1 ":BOXIT,3nZX1%4:Y1%21:X2%277:Y2%172:H1%3:S1%1:D1%2:2000xZ,X(28),Y(2):"11":1000:0uPAGE12):u7000:,X(4),Y(3):COY(2):"3":RX25:RY14:17500yN30000@N31000:HFLAG3İ23000:20032BN32000:HFLAG3İ23000:20034DN33000:NR1:LS2:QTNR:LENO:CR1:IN0:IG3:G04:RI0:WR0:A$"":A1$A2$:G$(7):M$(13):D$M$(4):EX$(27)VJMA4:MF6:AN$(MA):FD$(MF2):FD(MA2,2):NMMF1:DNMF2:J1MA1:FD(J1,1)IG`JZX%YEjJEQ(9):L109:EQ(X)0::CQ0tJMO(A)(A2)A2H,1)INCRRECTW |B3000:(JUDGECRECT)(HFLAG3)FDBCK$(NMTCH)FDBCK$(NMTCH1):17020] Bo \D*SPECIAL'BOX fDX1%4:Y1%21:H1%3:S1%1:D1%2:2000:15000: PF*QUESTION'DATA xFQ2 }F3, F0,3,,1,1,,2,0, 8JgBJZ9815:YE1:NO0:BOYE:JU0:-SETUPS-P14-17 >7000:,X(2),Y(2):"Convert "BTNUM%" 10^ to octal. Type your"::"answer and press RETURN.":3:0,35279,35 >QUESTIN1:LNGTH5:ANSWER$(1)"H":FDBCK$(0)"":HFLGYES: hB*SPECIAL'THINGIE rBTRIES0:STPYES:ALTYES:FDBCK(J1NMTC     " ":L1(RE$)11:(RE$,1)" "RE$(RE$,1,L11):^ 7(RE$,1,1)" "RE$(RE$,2):14110 (7RE$""RE(RE$):RL(RE$):NXYES::WRITE: 27BEEP:BEEP::14010 <7A1$""A1$(A1$,1,(A1$)1):(8); F7 P7A1$""A2$""A$(A2$,1):140790 6(A1$)IL14180^ 6C1(B1$A$)(A$T1$):C2(B2$A$)(A$T2$):C3(A$PR$)(A$NG$) 6HFLAGA$"H"HFLAG3:RE$A$:: 6(C1C2C3)ı 6A1$A1$A$:C9(A2$)(A1$):C9A2$A1$(A2$,(A2$)(A1$)) 7C9A2$A1$ 7A$;:6 7RE$A1$: 612000-6103,1:104,72:16302,0:1K6*ALTERNATE'INPUT'ROUTINEX6REWRITE6,IX,IY:IL1)"";:A1$"":A2$"":JD$"":,IX,IY616368,06A$:14040:140306TY(Z9):ILĭNXTY5RE$A$:14120 6TY14100,14130,14140,14160,141     he answer is 7304."@17000:,X(21),Y(5):ANSWER$(1):1000FWRXPAGE25h]BTNUM%999:16000bANSWER$(1)"1747":FDBCK$(1)"Right!":FDBCK$(NMTCH)"Sorry. Try again."KgFDBCK$(NMTCH1)"Sorry.// 999 1#0 8 = 124, R = 7 // 124 1# pPAGE23"uBTNUM%3780:16000ozANSWER$(1)"7304":FDBCK$(1)"Correct!":FDBCK$(NMTCH)"Sorry. Try again.FDBCK$(NMTCH1)"Sorry. Here it is:// 3780 1#0 8 = 472, R = 4 // 472 1#0 8 = 59, R = 0 // 59 1#0 8 = 7 , R = 3 //TM%465:16000YANSWER$(1)"721":FDBCK$(1)"Correct!":FDBCK$(NMTCH)"Sorry. Try again.FDBCK$(NMTCH1)"Sorry.// 465 1#0 8 = 58, R = 1 // 58 1#0 8 = 7 , R = 2 //The answer is 721."17000:,X(21),Y(5):ANSWER$(1):1000oain."FDBCK$(NMTCH1)"Sorry. Here's the solution:// 614 1#0 8 = 76, R = 6 // 76 1#0 8 = 9, R = 4 // 9 1#0 8 = 1 , R = 1 //The answer is 1146.":QUESTIN117000:,X(21),Y(5):ANSWER$(1):1000PAGE22 BTNU"c̈,X(3),Y(16):"Press RETURN to start practicing.";:FROMOTHERYES:1000:RESPNSE$M$35020iw*PAGE'21BTNUM%614:16000ANSWER$(1)"1146":FDBCK$(1)"OK!":FDBCK$(NMTCH)"Sorry. Try using the check/method to check your work./Try agE$"M"FI$"DECIMAL.OCTAL-2"4uNRESPNSE$EX$11000FzN13000:13500T PAGE 20ˆ7000:,X(3),Y(4):"There are eight questions in this"::"practice set. To complete the"::"lesson successfully, you need to"::"answer six questions correctly." ":NG$"-":HFLAGNO.JUL$"1&&&&&&&&&&&0"NNLS$"WELCOME.DECIMAL.OCTAL"l N*CONTROL-DECIMAL.OCTAL-3HN35000:36000:37000:38000:39000:40000:41000:42000:43000RN(RIGHT6)145000,44000fNRESPNSE$"R"FI$"DECIMAL.OCTAL-1"pNRESPNS$(13):D$M$(4):EX$(27)nVJMA4:MF3:AN$(MA):FD$(MF2):FD(MA2,2):NMMF1:DNMF2:J1MA1:FD(J1,1)IGz`JZX%YEStJMOD(A)(A2)A2JCLR%809:SWD%803:HP%812JI$(9):QU$(34)JB1$"0":T1$"9":B2$"0":T2$"9":PR$".":CM$",":SP$IGHTR1:W1WRNGW1:RIGHTR1:/\D*SPECIAL'BOXafDX1%4:Y1%21:H1%3:S1%1:D1%2:2000:15000:tPF*QUESTIONDATA|ZFQ1dF1,nF1,1,8JBJZ9815:YE1:NO0:BOYE:JU0:NR1:LS2:QTNR:LENO:CR1:IN0:IG3:G04:RI0:WR0:A$"":A1$A2$:G$(7):M(6):YPSY(10):LN5:+ hB*SPECIAL'THINGIEh rBTRIES0:STPYES:ALTYES:FDBCK(J1NMTCH,1)INCRRECT:17200y wB3000:17300 |B(JUDGECRECT)FDBCK$(NMTCH)FDBCK$(NMTCH1):3000:17020 B 0C*ZAP'SCORE :CRIGHT0:WRNG0: C*RESTORE'SCORECR1RDER-P21-30 >7000:,X(3),Y(2):"Convert this decimal number to octal.":"Type your answer and press RETURN.":3:0,27277,27:,X(12),Y(5):BTNUM%"10^":,X(19),Y(5):"= 8^" >,X(21),Y(6):"1%%%%%0" >AXPSX(3):AYPSY(7):XPSX(A2$)(A1$)A$(A2$,(A1$)1,1):A1$A1$A$:A$;:? d7BEEP:N n7NX9000:_ : * P-RETURN :VSPACE,0:HSPACE,0:,X(RX),Y(RY):"Press RETURN.";:FROMOTHERYES:1000:RESPNSE$M$15010:REWRITE:,X(RX),Y(RY):13)"":WRITE: > -PROBLEM-HEA(RE$)11:(RE$,1)" "RE$(RE$,1,L11):V 7(RE$,1,1)" "RE$(RE$,2):14110 (7RE$""RE(RE$):RL(RE$):NXYES::WRITE: 27BEEP:BEEP::14010 <7A1$""A1$(A1$,1,(A1$)1):(8); F7 P7A1$""A2$""A$(A2$,1):140713 Z790 6(A1$)IL14180^ 6C1(B1$A$)(A$T1$):C2(B2$A$)(A$T2$):C3(A$PR$)(A$NG$){ 6HFLAGA$"H"RE$A$:: 6(C1C2C3)ı 6A1$A1$A$:C9(A2$)(A1$):C9A2$A1$(A2$,(A2$)(A1$)) 7C9A2$A1$ 7A$;:. 7RE$A1$:" ":L12 612000-6103,1:104,72:16302,0:1K6*ALTERNATE'INPUT'ROUTINEX6REWRITE6,IX,IY:IL1)"";:A1$"":A2$"":JD$"":,IX,IY616368,06A$:14040:140306TY(Z9):ILĭNXTY5RE$A$:14120 6TY14100,14130,14140,14160,141           CE2)CHOICE3:RESET:CHOICE". "I$(CHOICE,0);:BOXIT,0:,X(5),Y(21):99)" ":23090pxZFILE$I$(CHOICE,1):e1000:,X(3),Y(10)(5),Y(21):99)" ":23090xZFILE$I$(CHOICE,1):)(9)CHOICE". "I$(CHOICE,0)(9);,ZZBOXIT,3dZREWRITE:,X(5),Y(21):"Press RETURN to take this part":"or press the space bar to choose":"another.";:FROMOTHERYES:1000:RESPNSE$" "RESPNSE$M$23140WnZRESPNSE$" "įREWRITE:,X(3),Y(6CHOIOctal addition practice set":I$(2,1)"ADD.OCT-2.1"d (ZX12:,X(3),Y(6X2)X3:X". "I$(X,0): 2ZREWRITE:,X(37),Y(5):FROMOTHERYES:1000:RESPNSE$"1"RESPNSE$"2"23080:REWRITEPZCHOICE(RESPNSE$):,X(3),Y(6CHOICE2)CHOICE3:RESET:he lesson"::"successfully, you need to complete"::"Part 2, which is a practice set."d V1000:v Y*CHOICE'PAGE Y7000:,X(3),Y(5):"Choose the part you want to study:" YI$(1,0)"Review of octal addition":I$(1,1)"ADD.OCT-1.1"2 YI$(2,0)" add numbers in octal"::"representation. It will also provide"::"you with some practice with octal"::"addition." V1000:,X(3),Y(13)X V" The lesson is divided into two"::"parts. You can start with either of"::"them, but to complete t3:S1%2:H1%2:2000= R,57,106:"CONVERGENT SYSTEMS, INC." &R,106,128:"2 ABCDEF ":" HIJKLM ":"OPQRSTUV":"WXYZabcd":" efghij ":" lmnopq 0" XR1000: U*P-2 U7000:,X(3),Y(3)w V" Hello! This lesson will help"::"you learn to000:23000 HN13000:13500" R R7000:,X(7)4,Y(3):" BASIC ELECTRONICS"::" ELECTRONIC MATH":" Disk #2"::"Addition of Octal Numbers" RX1%22:Y1%7:X2%258:Y2%75:D1%3:S1%2:H1%1:2000:X1%23:Y1%8:X2%258:Y2%76:D1%Ќ 612000-6103,1:104,72:16302,0:138JBJZ9815:YE1:NO0:BOYE:A$"":A1$A2$:G$(7):M$(13):D$M$(4):EX$(27)VJMOD(A)(A2)A2tJCLR%809:SWD%803:HP%812NLS$"WELCOME.ADD.OCT" N*CONTROL'WELCOME.ADD.OCT *N21000:22     "until you're done.":X1800::,X(35),Y(22):"228^"^aRXPS14:RYPS24:Y2%180:17500:ke*PAGE-6,e7000:,X(3),Y(2):"Try this one yourself. We'll add the":"columns one at a time, so type only":"one digit and then press RETURN.":X1%11:6:Y2%110:17500a,X(2),Y(15):"Add the carried digit to":"the next column.":,X(34),Y(18):" 148^"::"+ 68^":" 1%%0":RXPS14:RYPS22:150009a,X(20),Y(16):"1------------>0 1":X1800::,X(2),Y(20):"Repeat the first step":sum is more than":"7, divide it by 8. The":RESET:" remainder ";:VSPACE,0:BOXIT,3:VSPACE,1:" will be the":"sum of the units column."a"The quotient will be the":"digit to carry.":,X(28),Y(9):"10 1#0 8 = 1":" R = 2 ":RXPS14:RYPS1X(2),Y(2):"Add the units column.":"If the sum is 7 or less,":"skip the next step and":"go on."a,X(27),Y(2):" Add 1 4 8^"::" + 6 8^":" 1%%0":"6 + 4 = 10":RXPS14:RYPS9:Y2%52:17500a,X(2),Y(8):VSPACE,1:"If the t the"::"steps you would follow to add"::"two numbers in octal"_:"representation: 14 and 6."::"Each step is explained to you."_,X(7),Y(19):"Press RETURN to begin.";:FROMOTHERYES:1000:RESPNSE$M$24530:a*PAGE-5ca7000:, by 8. Put the"::" ";:RESET:" remainder ";:BOXIT,3:" down as the sum of the"::" column and carry the quotient."]1000:,X(4),Y(21):"3. Add the carry and repeat.":1000_*PAGE.4AC_7000:,X(7),Y(6):"You are going to look a1%2:2000],X(4),Y(5):"Addition of octal numbers is very"::"similar to addition of decimal and"::"binary numbers.":1000:,X(4),Y(11):"1. Add the units column.":1000~],X(4),Y(13):"2. If the sum is more than 7,"::" divide it-"NLS$"WELCOME.ADD.OCT"6 N*CONTROL'ADD.OCT-1.1V*N24000:25000:26000:27000n4NRESPNSE$"R"20010>N13000:FILE$"ADD.OCT-2.1":13500]*PAGE-4 ]7000:,X(9),Y(2):"REVIEW OF OCTAL ADDITION":X1%53:Y1%4:X2%228:Y2%20:H1%2:S1%1:DAN$(MA):FD$(MF2):FD(MA2,2):NMMF1:DNMF2:J1MA1:FD(J1,1)IGM`JZX%YE_jJCHOICE$(3,1)wtJMO(A)(A2)A2JCL%809:SW%803:HP%812JI$(9):QU$(34):ARROW$"1------>0"JB1$"0":T1$"9":B2$B1$:T2$T1$:PR$".":CM$",":SP$" ":NG$"ZFQ#1 dF3," nF1,1,,2,0,,2,0,+ xFQ#23 F2,B F1,1,,2,0,K FQ#3S F2,b F1,1,,2,0,h 8J BJZ9815:YE1:NO0:BOYE:JU0:NR1:LS2:QTNR:LENO:CR1:IN0:IG3:G04:RI0:WR0:A$"":A1$A2$:G$(7):M$(13):D$M$(4):EX$(27)BVJMA4:MF6:34,0: hB*SPECIAL'JUDGEH rBTRIES0:STPYES:FDBCK(J1NMTCH,0)INCRRECT |B3000:FOUNDFDBCK$(NMTCH)FDBCK$(NMTCH1):17020 BJUDGECRRECT17020: \D*SPECIAL'THINGIE fDX1%4:Y1%4:X2%276:H1%3:S1%1:D1%2:2000:15000: PF*QUESTION'DATA ,1):A1$A1$A$:A$;:! d7BEEP:0 n7NX9000:? :*P-RETURN :VSPACE,0:HSPACE,0:,X(RX),Y(RY):"Press RETURN.";:FRYE:1000:RE$M$15010:REWRITE:,X(RX),Y(RY):12)" ";:WRITE: >*PARTIAL'ERASE >32,0:33,40:34,4:35,24:CLR% >$(RE$,1,L11):9 7(RE$,1,1)" "RE$(RE$,2):14110k (7RE$""RE(RE$):RL(RE$):NXYE::WRITE: 27BEEP:BEEP::14010 <7A1$""A1$(A1$,1,(A1$)1):(8); F7 P7A1$""A2$""A$(A2$,1):14071 Z7(A2$)(A1$)A$(A2$,(A1$)190 6(A1$)IL14180^ 6C1(B1$A$)(A$T1$):C2(B2$A$)(A$T2$):C3(A$PR$)(A$NG$)q 6(C1C2C3)ı 6A1$A1$A$:C9(A2$)(A1$):C9A2$A1$(A2$,(A2$)(A1$)) 7C9A2$A1$ 7A$;: 7RE$A1$:" ":L1(RE$)11:(RE$,1)" "RE  612000-6103,1:104,72:16302,0:1K6*ALTERNATE'INPUT'ROUTINEX6REWRITE6,IX,IY:IL1)"";:A1$"":A2$"":JD$"":,IX,IY616368,06A$:14040:140306TY(Z9):ILĭNXTY5RE$A$:14120 6TY14100,14130,14140,14160,141          qFDBCK$(3)"No. This is part of the/decimal sum, but we're/adding octal numbers. The/decimal sum is 10. Convert/10 to octal by dividing it/by 8. The quotient will/be 1, and the remainder 2./Type the remainder."+qFDBCK$(NMTCH)"No. The answer is 2. e it in."UqAXPSX(7):AYPSY(13)4:XPSX(12):YPSAYPS:17000:,X(6),Y(6):"1"qQUESTIN2:ANSWER$(1)"2":ANSWER$(2)"9":ANSWER$(3)"1":ANSWER$(4)"0"qFDBCK$(1)"Correct.":FDBCK$(2)"This symbol is not used in/the octal system. Try/again."ES:ANSWER$(1)"5":ANSWER$(2)"1":ANSWER$(3)"3"HpqFDBCK$(1)"Correct."zqFDBCK$(2)"No. This is part of the/decimal sum, but we're/adding octal. Try again."qFDBCK$(NMTCH)"You carried 2. Try again." qFDBCK$(NMTCH1)"No. The answer is 5./Type column at":"a time. Press RETURN each time you":"type a number.":X1%3:Y1%4:X2%279:Y2%35:H1%2:S1%1:D1%2:2000\q,X(2),Y(7):" 4 1 5 8^"::" 7 3 2 8^"::"+ 5 5 6 8":"1%%%%%%%0":" 8^"/fqQUESTIN1:LNGTH1:LEAVEITNO:STPYm:"each column). To complete the"::"lesson successfully, you need to"::"earn 10 points."~m,X(4),Y(19):" Press RETURN to begin.";:FROMOTHERYES:1000:RESPNSE$M$28030:Hq*PAGE-11xRq7000:,X(2),Y(2):"Add these octal numbers, onRESPNSE$EXIT$11000:>N13000:FILE$"ADD.OCT-1.1":13500H`m*PAGE-10jm7000:,X(4),Y(4):" This practice set contains four"::"problems, but since you will be"::"adding the numbers one column at a"::"time, there are 14 points (one for"_tA2)A2%JCL%809:SW%803:HP%812;JI$(9):QU$(34)JB1$"0":T1$"9":B2$B1$:T2$T1$:PR$".":CM$",":SP$" ":NG$"-"NLS$"WELCOME.ADD.OCT" N*CONTROL'ADD.OCT-2.1%NRIGHT0*N28000:29000:30000:310004N(RIGHT10)132000,33000:9815:YE1:NO0:BOYE:JU0:NR1:LS2:QTNR:LENO:CR1:IN0:IG3:G04:RI0:WR0:A$"":A1$A2$:G$(7):M$(13):D$M$(4):EX$(27)VJMA4:MF6:AN$(MA):FD$(MF2):FD(MA2,2):NMMF1:DNMF2:J1MA1:FD(J1,1)IG`JZX%YEjJCHOICE$(3,1) tJMO(A)(Q#8 6G3, @G1,1,,2,0,,2,0,)JGQ#91TG1,;^G1,1,EhGQ#10MrG2,\|G1,1,,2,0,fGQ#11nG3,G1,1,,2,0,,2,0,GQ#12G4,G1,1,,2,0,,2,0,,2,0,GQ#13G4,G1,1,,2,0,,2,0,,2,0,GQ#14G1,G1,1,8JBJZPF*QUESTION'DATA ZFQ#1" dF3,6 nF1,1,,2,0,,2,0,? xFQ#2G F4,` F1,1,,2,0,,3,0,,3,0,i FQ#3q F3, F1,1,,2,0,,2,0, FQ#4 F1, F1,1, FQ#5 F2, F1,1,,2,0, FQ#6 F2, G1,1,,2,0, GQ#7 G1, "G1,1,,G34,0: hB*SPECIAL'THINGIER rBTRIES0:STPYES:ALTYES:FDBCK(J1NMTCH,1)INCRRECT |B3000:QUESTIN0:FOUNDFDBCK$(NMTCH)FDBCK$(NMTCH1):17020 BJUDGECRRECT17020: \D*SPECIAL'THINGIE fDX1%4:Y1%4:X2%276:H1%3:S1%1:D1%2:2000:15000: ,1):A1$A1$A$:A$;:! d7BEEP:0 n7NX9000:? :*P-RETURN :VSPACE,0:HSPACE,0:,X(RX),Y(RY):"Press RETURN.";:FRYE:1000:RE$M$15010:REWRITE:,X(RX),Y(RY):12)" ";:WRITE: >*PARTIAL'ERASE >32,0:33,40:34,5:35,24:CLR% >$(RE$,1,L11):9 7(RE$,1,1)" "RE$(RE$,2):14110k (7RE$""RE(RE$):RL(RE$):NXYE::WRITE: 27BEEP:BEEP::14010 <7A1$""A1$(A1$,1,(A1$)1):(8); F7 P7A1$""A2$""A$(A2$,1):14071 Z7(A2$)(A1$)A$(A2$,(A1$)190 6(A1$)IL14180^ 6C1(B1$A$)(A$T1$):C2(B2$A$)(A$T2$):C3(A$PR$)(A$NG$)q 6(C1C2C3)ı 6A1$A1$A$:C9(A2$)(A1$):C9A2$A1$(A2$,(A2$)(A1$)) 7C9A2$A1$ 7A$;: 7RE$A1$:" ":L1(RE$)11:(RE$,1)" "RE- 612000-6103,1:104,72:16302,0:1K6*ALTERNATE'INPUT'ROUTINEX6REWRITE6,IX,IY:IL1)"";:A1$"":A2$"":JD$"":,IX,IY616368,06A$:14040:140306TY(Z9):ILĭNXTY5RE$A$:14120 6TY14100,14130,14140,14160,141!! ! ! ! ! !!!!!!!!!     RESPNSE$" "RESPNSE$M$23140nZRESPNSE$" "įREWRITE:,X(8),Y(6CHOICE3)CHOICE3:RESET:CHOICE". "I$(CHOICE,0);:BOXIT,0:,X(5),Y(21):99)" ":23090xZFILE$I$(CHOICE,1):LCE". "I$(CHOICE,0);:BOXIT,0:,X(5),Y(21):99)" ":2309023080:REWRITEnPZCHOICE(RESPNSE$):,X(8),Y(6CHOICE3)CHOICE3:RESET:(9)CHOICE". "I$(CHOICE,0)(9);{ZZBOXIT,3!dZREWRITE:,X(5),Y(21):"Press RETURN to take this part":"or press the space bar to choose":"another.";:FROMOTHERYES:1000:w of Decimal to Hexadecimal (Hex) Conversion":I$(1,1)"DEC.TO.HEX-1" YI$(2,0)"Practice Set":I$(2,1)"DEC.TO.HEX-2" (ZX12:,X(8),Y(6X3)X3:X". "I$(X,0):2ZREWRITE:,X(19),Y(6):FROMOTHERYES:1000:RESPNSE$"1"RESPNSE$"2" You may complete either"x V"section first. It will take you":"about 20 minutes to go through the":"whole lesson." VVSPACE,0:1000: Y*CHOICE'PAGE Y7000:,X(6),Y(5):"Press the number of the section":"you want now:"O YI$(1,0)"Reviesson helps you":"review the conversion of numbers":"in decimal representation to their":"hexadecimal (base 16) representation." VVSPACE,0:1000:,X(3),Y(13):VSPACE,2:" The lesson is divided into a":"review section and a practice":"section. %8:X2%266:Y2%76:D1%3:S1%2:H1%2:2000T R,57,106:"CONVERGENT SYSTEMS, INC." &R,106,128:"2 ABCDEF ":" HIJKLM ":"OPQRSTUV":"WXYZabcd":" efghij ":" lmnopq 0" XR1000: U*PAGE-2 U7000:,X(3),Y(4):VSPACE,2:" Hello! This le00:22000:23000" HN13000:13500( R R7000:,X(4)4,Y(3):" BASIC ELECTRONICS"::" ELECTRONIC MATH":" Disk #2"::"Decimal to Hexadecimal Conversion"* RX1%12:Y1%7:X2%266:Y2%75:D1%3:S1%2:H1%1:2000:X1%13:Y1 612000-6103,1:104,72:16302,0:138JBJZ9815:YE1:NO0:BOYE:A$"":A1$A2$:G$(7):M$(13):D$M$(4):EX$(27)VJMOD(A)(A2)A2tJCLR%809:SWD%803:HP%812NLS$"WELCOME.DEC.TO.HEX" N*CONTROL-WELCOME.DEC.TO.HEX *N210"" " " " " ""