' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` @@>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`  d ֠z# u@DURE1v24:12M:"?":T4TT:DF1:1500:DF0:N CLEAR BOTTOM OF SCREENoV24221:V:1:868:V: DIVISION PROGRAMVD6:HD74300:D1$(D1):D2$(D2):K1(D1$)1:K2(D2$)1Z3 VD:HD:D2;" ) ";D1;:VD1:H"?";: NORMAL SCAN<24:MMN(JA,BF)1:2M1:"^";^WF1:T1.5TT:1500:WF0:TTTs1500:OP01720M1M1 CLEAR CARRIESHZ0ı33,HZ1:VD1:1:868:33,40: NOISE1585l VERIFICATION PROCE +4330 S,1):N2NQ(N,2):D:5:"THAT WAS THE LAST PROBLEM OF THE SET.":"DO YOU WISH TO CONTINUE WITH THIS PROGRAM? ";Y$:Y$"N"ġ:14984100:PC0:4300PC1:N1::5:"ENTER PROBLEM --":&" FORMAT: (NUMBER 1) - (NUMBER 2)":::4235(NUMBER 1) - (NUMBER 2)":<:N1NT:"PROBLEM ";N;":":YM2: ENTER ONE PROBLEMK1M:"ENTER NUMBER ";K;" -- ";:"";NQ(N,K):K:::F2ĂN GET NEXT PROBLEM:10F204380PCPC1:PCNT4350NPC:N1NQ(N"Y")6F20:MO2F21&@F24200,JLh INPUT MULTIPLE PROBLEMSr:3:"+ + + + PROBLEM ENTRY + + + + "::"HOW MANY PROBLEMS DO YOU WANT TO ENTER AT THIS TIME? ";NTwNT20ĺ:"(MAXIMUM OF 20)":N1500:N:4210|:" FORMAT: SC:3:"PLEASE SELECT THE DESIRED MODE OF OPERATION--"::" 1. ENTER PROBLEMS ONE AT A TIME"::" 2. ENTER UP TO 20 PROBLEMS"":::"WHICH MODE DO YOU WANT? ";MO$MO1MO24100':::"IS THE PRINTER TURNED ON? ";Y$:PF(Y$:MMX(BF)MMN(BF)(,24:12M:"^";H1SP16336:N16:Z(SP):NN6a START OVER 1:20:"START OVER??YES--HIT SWITCH//NO--WAIT"T5TT:VF1:1500:VF0&20:1:868+24:8680OP0ı:OP1ė:120 INPUT OPTIONġ:14984100:PC0:4300EPC1:N1::5:"ENTER PROBLEM --":w&" FORMAT: (NUMBER 1) X (NUMBER 2)":::4235+4330S) X (NUMBER 2)":::4235+4330S::F2ĂN( GET NEXT PROBLEM616368,0@:10OF204380gPCPC1:PCNT4350NPC:N1NQ(N,1):N2NQ(N,2)::5:"THAT WAS THE LAST PROBLEM OF THE SET.":"DO YOU WISH TO CONTINUE WITH THIS PROGRAM? ";Y$:Y$"N"ANT TO ENTER AT THIS TIME? ";NTXwNT20ĺ:"(MAXIMUM OF 20)":N1500:N:4210|:" FORMAT: (NUMBER 1) X (NUMBER 2)"::N1NT:"PROBLEM ";N;":":M2: ENTER ONE PROBLEMK1M:"ENTER NUMBER ";K;" -- ";:"";NQ(N,K):K ::::"WHICH MODE DO YOU WANT? ";MO8$MO1MO24100o':::"IS THE PRINTER TURNED ON? ";Y$:PF(Y$"Y")6F20:MO2F21@F24200Jh INPUT MULTIPLE PROBLEMS&r:3:"+ + + + PROBLEM ENTRY + + + + "::"HOW MANY PROBLEMS DO YOU W-N1XT:AA(16287)127:AA(BB)11740:BBAA:NEOP0:VBBAA:OP1:k INPUT OPTIONS:3:"PLEASE SELECT THE DESIRED MODE OF OPERATION--"::" 1. ENTER PROBLEMS ONE AT A TIME"::" 2. ENTER UP TO 20 PROBLEMS"$"HTPL:" ";GXTTT4&JPPPL:RRR/OBF19Q1650VTVT(R):HTPL::N(R,PL)l^1700:OP01670hVT(R):HTPL::N(R,PL)mR1PL0RRR:PLPPrPLPL1:PL0RR1:PLPL(R)wPL(R)0RR1:PLPL(R)|1620VT(R):HTPL::dS:PC0:4300d GET NEXT PROBLEM:10@F20PC1:N1:4225:MSMS(N):XPCPC1:PCNT4350lNPC:MSMS(N)::5:"THAT WAS THE LAST PROBLEM OF THE SET.":"DO YOU WISH TO CONTINUE WITH THIS PROGRAM? ";Y$:Y$"N"ġ:6104060:PC0:4300NUMBER2"::((4235 (+4330S) NUMBER2"::>((4235H(+4330S:5:"THAT WAS THE LAST PROBLEM OF THE SET.":{'"DO YOU WISH TO CONTINUE WITH THIS PROGRAM? ";Y$:Y$"N"ġ:1498'4100:PC0:4300'PC1:N1::5:"ENTER PROBLEM --": (&::"FORMAT:"::" ------------":" NUMBER1 ) :%&:N1NT:"PROBLEM ";N;":":C&M2: ENTER ONE PROBLEMx&K1M:"ENTER NUMBER ";K;" -- ";:"";KQ(N,K):K&:::F2ĂN&& GET NEXT PROBLEM&:10&F204380&PCPC1:PCNT4350&NPC:D2KQ(N,1):D1KQ(N,2):/' PROBLEMSy%r:3:"+ + + + PROBLEM ENTRY + + + + "::"HOW MANY PROBLEMS DO YOU WANT TO ENTER AT THIS TIME? ";NT%wNT20ĺ:"(MAXIMUM OF 20)":N1500:N:4210%|::"FORMAT:"::" ------------":" NUMBER1 ) NUMBER2"&L$:" 1. ENTER PROBLEMS ONE AT A TIME"::" 2. ENTER UP TO 20 PROBLEMS"v$":::"WHICH MODE DO YOU WANT? ";MO$$MO1MO24100$':::"IS THE PRINTER TURNED ON? ";Y$:PF(Y$"Y")$6F20:MO2F21$@F24200$J %h INPUT MULTIPLE1665:PQPQ1:PQK143430@# PQPQ1:L(R$):L2R$"":3430W# R$(R$,L1):3430l# RETURN TO MENU# :10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"# INPUT OPTIONS#:3:"PLEASE SELECT THE DESIRED MODE OF OPERATION--": 2000" TAB" HHZPZ18" :N1H1:" ";:N:I"H REMAINDERk"R 1950:"REMAINDER":JA4:1600"\ RD2:PD0:PQK12:1660:"R";"a PQPQ1"f PQPQ1:DF0:BF0:1666:1700:M23450"k M12İ1665:"p 1660:M2;:R$R$(M2):3430#z ) ";D1;/!v RD1DZ:RRD1:R3(R3)03200R!{ PZPZ(RD):3300:ND(RD);:3210! PZPZ(RD1)1:3300:N0((ND(RD1)))1:"-";:N! RD! N13:" ":! (4);"PR#0"! F22000! "DO YOU WANT TO DO ANOTHER PROBLEM? ";Y$:Y$"N"3500"IT SWITCH TO CONTINUE";:WF1:1500:WF0::10:3240d X "HIT SWITCH FOR PRINTOUT ";:WF1:1500:WF0j Y  Z (4);"PR#";SLOT ] :N13:" ":N b PZQZ:3300:PQQZK1:NQ(PQ);:PQ g " R ";R$; l PZ0:3300:N0K1:"-";:N!q HHD:3320:D2;":RDRZ23110,+ ND(RD)0PZ(RD)PZ(RD)1D0 ND(RD)ND(RD)10NZZ: RD2:1666:2140fN DONE|O DZRD:R$"":3400P 1950:N11000:NQ 1950:"THE CORRECT ANSWER IS: ";(D1D2);" R ";D1D2(D1D2)R S PF0F2032403 T PF0ĺ"H:N/ N2ND(RZ):RZ1N1((D1$,PQ1)):3050? N1ND(RZ1)H 102Y BRING DOWNi PQK13150 1950:"HIT SWITCH TO BRING DOWN"; WF1:1500:WF0 PQPQ1:NZ((D1$,PQ1,1)):PD0 RD1:1660:NZ;& 1800:1665:RDRD1:1660:NZ;07 AND(RD):AA(10PD)(A(10PD)):ND(RD)(A.5)A 2210T WRONG CHOICE 1750:PD10:RDRZRZ1:1660:868:RD RZRZ3:RD2:PD0:1666:2140 DONE W. MULT PZ(RD)PQ1((ND(RD))) 1750:1665:RDRD1:1660:N1PD:"-";3 CF0PDPD1:2210( CARRY1CF1Z1665:VD1:HHDK2PD:H:"*";:BF1m1700:M3M3VD1:H:M3;:2210A$(A$(JA,M),1):A$"W"3000A$"D"3020A$"E"2300 ERASE 1665:CF12250 PDPD1:PD0PD SWITCH AGAIN TO START OVER";:T8TT:DF1:1500:DF0COP02140M2020\ MULTIPLYs1950:"MULTIPLY";JA2:1600:RZRZ3:RDRZ:PD0ND(RD)01666:BF0:1700M22250M12M22280ND(RD)ND(RD)(M3)10PD:1660:MP1İ1666:2137M15857R1665:PQPQ1:PQK1PQ0AW2120KYQZPQk\ SELECT DIGIT OF QUOTIENTa1950:"QUOTIENT"fJA1:1600:DF0:BF0:1700kM112180pNQ(PQ)M1:1660:M1;zRZ0PQK1M10ī3060220041950:"HITZHDK23:HZ:N0K12:"-";:N=4 SCAN TO BEGIN QUOTIENTN523:1:868622:1:868:"HIT THE SWITCH WHEN READY";:WF1:1500:23:1:8689PQ010:NQ(PQ)0:PQ>VD2:1:868CT2TT:WF0:DF1:PD0:PQ0:RD2:RZRDH1667:1500:OHtHHH:VVM2yJF1:B~ MOVE DOWN ONE LINE (FORMAT #2)NFT1ırLNLN1:HHE1:HLH:VV0:JF1: +,-,X,%M151230VV0HHL1HH1:1270 =AF0FT21220LNLN1:HHE1:VV0:HLHJF1. @ W A LINE BETWEEN ANY TWO POINTS WHICH HAVE BEEN MARKED AND LABELED" :" ARC 'ARC'.THIS IS THE 'COMPASS' OF THE PROGRAM.TWO POINTS ARE NEEDED TO TELL WHERE THE POINT OF THE COMPASS GOES, AND WHICH ::"CONTROL OPTIONS ARE AS FOLLOWS:"::" CRS 'CURSOR' THE STUDENT HOLDS DOWN SWITCH #1 TO MOVE THE 'CURSOR' IN THE DIRECTION INDICATED " :" MRK 'MARK' AND LABEL A POINT AT THE CURSOR POSITION"::" LNE 'LINE'.DRANNECTS PAIRS OF POINTS WITH LINES, ETC.": "THE STUDENT MOVES HIS 'PENCIL' BY MEANS OF SWITCH #1"::"SWITCH #2 IS USED TO CALL UP A MENU OF CONTROL OPTIONS DESCRIBED BELOW"::"THESE OPTIONS ARE SELECTED BY SCANNING, USING SWITCH #1" 4000W* GEOMETRY * * * "V :"THIS PROGRAM ALLOWS THE STUDENT TO PERFORM RULER-AND-COMPASS CONSTRUCTIONS OF PLANE GEOMETRY BY MEANS OF TWO SWITCHES.": "THE HIGH RESOLUTION SCREEN IS THE'PAPER'ON WHICH THE STUDENT PLOTS AND LABELS POINTS, COY LOCATION $5000.PROGRAM TOO LONG TO FIT UNDER HIRES PAGE1O "BLOAD GINSTR"x C(121)256(122):C42,1:C43,80 3005 3005 :3010 3010 GOTO 3010C(121)256(122):C1,1:C2,804 01 ::" * * ";P$(NP(N)):8"LINE ";P$(AR(1,N));"-";P$(AR(2,N)):s "ARC: CENTER ";P$(AR(1,N));", THROUGH ";P$(AR(2,N)):*"ARC: CENTER ";P$(AR(1,N));", RADIUS ";P$(AR(3,N));"-";P$(AR(4,N)):/"DONE": INSTRUCTIONS: INSTRUCTIONS ADDED AT MEMOR1ĺ(13);(4);"PR#";SLOT/::N1PNPNNP]P$(N);" AT X=";(X(N));" Y=";(Y(N)):N:"PROCEDURE FOLLOWED IN CONSTRUCTION--":N1K:M(N)12060,2070,2080,2090,2095N(13);(4);"PR#0"16304,0:34,20::1650  "MARK DICATE DESIRED ANGLE MEASURED EITHER CLOCKWISE OR COUNTERCLOCKWISE FROM BASE LINE"kPZ1:AF1:T0:1236PZ0:P(2)0:X(0)X:Y(0)Y:P$(0)"":"DRAW LINE AT ";TZ;" DEGREES TO BASE LINE":PW1AF0:T0:1236 PRINTOUT OF PROCEDUREPFP$(N);:NQZHZ:HZ2+WP1TP:17077!P(WP)MS&22:203WP:P$(M):WPl+QF0:DF1:WF0:HZQZr0l PROTRACTORv"NAME CENTER POINT AND ANOTHER POINT TO DETERMINE BASE LINE"AF2:TP2:1215DT3.141592360S:"INKEYBOARD ENTRY TO REPLACE SCAN'&MF03&WF1ı<&OP1K&22:1:A$\&A$"E"5010~&A$(8)A$"E": BACKSP = ER&A$"M"MF1:5010&K0KA:A$KA$(K)5030&K:5010&RR(K):CC(K)&C5MF1C6&'S 16368,0:S THE SCREEN. THE STUDENT TYPES THE FIRST LETTER OF THE DESIRED OPTION. FOR EXAMPLE, 'N' WILL MOVE THE CURSOR INTO THE NUMERATOR"%/3000:% 23:" * * * HIT ANY KEY TO GO ON * * *"% (16384)1283010% 16368,0:& 00:::$*"ABBR TYPE1 / TYPE 2"::"ANS MOVE TO ANSWER POSN / NO EFFECT V MOVE TO NEXT LINE / '' '' = PRINT'='ON SAME LINE / NEXT LINE"$/3000:$ 23:" * * * HIT ANY KEY TO GO ON * * *"$ A$$ 16368,0:POSITION DENOM '' '' DENOMINATOR '' ER ERASE LAST ENTRY S START LINE OF WORK OVER + PRINT'+'AT CURSOR POSN"#%"+) MOVE CURSOR OUT OF NUM & PRINT'+'"#&"PRN PRINT,GET NEXT PROBLEM"$'30-" " 3000"::"THE STUDENT SELECTS DIFFERENT NUMBERS ORCONTROL OPTIONS BY MEANS OF ROW COLUMN SCANNING"::"THE CONTROL OPTIONS WILL DEPEND ON THE PROBLEM FORMAT (TYPE 1 OR 2)":" "ABBR SAME FOR BOTH TYPES":#""NUM MOVE TO NUMERATOR 2 - 2 1 3 + 2 - X 1 - = ? 3 2 8 1 - "" 8 ------- FRACTIONS * * *"} :"THIS PROGRAM ALLOWS THE STUDENT TO DO COMPUTATIONS WITH FRACTIONS BY MEANS OF A SINGLE SWITCH.": "PROBLEMS CAN BE OF TWO DIFFERENT FORMATS":"THESE ARE:"::" TYPE 1 TYPE 2 ":!" 1 LNLN1:HH02:VV2:1660)XSP$(MD);0]KgbLNLN1:HH01:VV2:1660:NH01H(3)3:"-";:NqdLMLNeAF0: ANSWER FLAGgHEH(3)4:l COMMON DENOMvM3:1110:1660:CD$;HH(CD$): INSTRUCTIONS ::" * * *MD2VV1:HH(2)-MD(K1)2VV1:HH(2)P&L(B$(K)):HHL:1660:B$(K);_+HHMHMHo0MD21860:L1(B$(K)):L2(B$(K1)):L(L1L2(L1L2))2:L3LL1<LF2L?VV0:HH(2)L:1660:N1L:"-";:NDMD51890IMD31885N;:R1:C1-WF1:T1.5TT:1500:WF0:TTT71500FOP21700SR0R0`C0C0f ALTERNATE FORMAT FOR DISPLAY OF PROBLEM H(1)H02:H(2)H(1)3:H(3)H(2)3 HM40 MD(0)0:KKK:LN0:K1KKVV0:MDMD(K):HH(1)RE THAN ONE ARRAY USEDf^K01KA(JA):R(KCC(JA)):CKRCC(JA):H1CSH:V1RSV:A$(JA,R,C);:Klhr CURSOR LOCATOR |VV0VVLNLS:V:H:1660:" ";:1660:"*";:1660:"?";: NORMAL SCAN V1SV:H1SH1:">",V1SVR:H1SHC1:">";<1SP16336:N16:Z(SP):NF61505Y@ ARRAY PRINTcA1620oE INITJJA12:KA(JA):CC(JA):K01KA(JA):R(KCC(JA)):CKRCC(JA):A$(JA,R,C):KLRR(JA)ROJAPT SET WINDOW AND CLEAR IF MO6287)127:AA(BB)115407KY(16384):KY127ġ:DBBAA:NSWF11500bOP0:1550qBBAA:OP1V1SVR:H1SHC1:" ";OP01570RF1WF1ıRF1:1505"CCRF:RRRF:(C1CC(JA))(RRR(JA))OP2:$C0C0D$;"PR#";SLOT31:1:868:PN;"-";NP;:1:868=34,2P35,V0LNLS3Y771uD$;"PR#0":35,24:34,0D$;"MON I,C,O"NPNP1:NPPR(PN)NP1:PNPN1::PNPGī212215 SWITCH SUBROUTINESRF0N1T:AA(11660:A$(JA,R,C);:HXH:VXVV:HH1:1665:HH14@ ERASEWJJJJ1:JJ1JJ1(VVVV(JJ):HHH(JJ):LNLN(JJ):HLHL(JJ)-LNLN(JJ1)AF0.HH(2)AF121666::1000x PRINTzD$}1PF01450D$;"NOMON I,C,O"RING%L(MB$)%L243902%MB$(MB$,L1)I%L(MB$):L24390u%N1CM:(MB$,1)CM$(N)MB$(MB$,L1)|%N%&%0 PICK UP AND SET DOWN%:1950:22:7:"INDICATE WORD OR NUMBER";%?VM1:VSV:HSH%DV10:H18:4215:4300 &F195V19V19$H40H40($EF14280D$VV:HH:877:V:H:877R$VVV:HHH{$N1TT12(DI1DI3HF1):N:4230$24:1:" ";:$1665:1660:877:VV:HH:" ";:4255$ MARK$V:H:877$848:126,2:125,0:MB$:% PROCESS STr1950:22:14:"*CURSOR*"4#wVVV:HHH:V:H:877@#yDI1HFT#|24:1:V$(DI);]#QF1#DF1:TTT(13HF):1500:OP04238#DIDI1HF:DI4DI1HF#4220#OP34270#HH(DI2)(DI4):VV(DI3)(DI1):VVMVVM#H1H1 $:32,1$"QV:2:N19:" ** ";:N."1:18"657K"(37)QV4040\"32,0:33,40g" MENUv" JA0:1600"JA0:1700:K0KA(JA)1:A$(JA,R,C)SP$(K)4120"K"K4400,3000,4500,3100,4600,3200,4700,3300,4800""4100"h CURSOR#! :! PNPN1)! 2900:JE034703! 1665?! AD3ġN! AD43480T! `! UX0ı! HUL2:1665:VV1:1660:" ";:! INPUT STORY PROBLEM!:23:"TYPE IN STORY PROBLEM:WHEN CURSOR GOES BELOW LINE,PROGRAM WILL BEGIN""33,38 4 VVL:JE0:2800:N53400A 6 VV1:2750:JE0:2800:N53400J 7 VLVr 9 UU2:UR:830:126,2:125,0:MB$: ; V:UR:MB$; > KM C H WRONG (DIVISION) R VVVL12:HUX:1660:NUXUR:" ";:N,V \ 3350!z WRONG (GO BACK TO MENU):"-";:N:HUL( KM1:2600:UR(36)1F V1:NULUR:N:"-";:N` VV2:HUL:UUV:2650 VLV2:QH:QQUR1:KMQQQ VUU:HKM:1666:1750:N03370 N13340 N6İ2600: 3350* 1660:A$(JA,R,C);/ URKM1:ULUL1:HLUL050 MULTIPLICATION$ PNPN17 AD3:M2:3050F URHL2ı` KM2URHL:2800:KMi JE0 VV1::2750:2800: DIVISION AD4 PNPN1:2500:JA1:1600 JE0:KM1 UX0 2600:" )";:UL(36)2:UXUL V1:N13A$(JA,R,C)"WR"ı 30206 MMM:2500:JA1:1600D KM1:JE0m KM1MM:HUL:2600:KM1UR(36)1{ VV1:KM VV1 HHL2:H1H1 H:V:AD$(AD); VV1:2750 JE0 2800: SUBTRACTION! PNPN1& AD2:M2:3LE(JE):" ";:N>r VVE(JE):HHE(JE):1666:KMKE(JE):JEJE1D| S ADDITION\ AD1h PNPN1w JA1:1600 22:1:"HOW ";:23:1:"MANY ";:1:24:"NOS.? ";:21:3:" "; 1700:M29:A$(JA,R,C)(M)3050 M: 1750:N02840( N2İ2400:2815: N4HUR1:J N5AD4ıY N3İ2900c 2815 HH1:1666:A$(JA,R,C); JEJE1:HE(JE)H1:VE(JE)V:LE(JE)1:KE(JE)KM" 2820T ERASE Y JE0İ1666:^ 1665h VE(JE):HE(JE):N1JE)H:VE(JE)V:LE(JE)(MB$):KE(JE)KM, @ HHS:VVS:2600P DRAW LINEj LL(ULHL(HLUL))2q V NLL(LL1)UR:N:"-";:N  WRITE RESULT OF COMPUTATION VSV:VUU1:HUL1UR1:1665:H:VVS VV1:HUR1 1666G CURSOR/MARK  1666& VM1N VSV:HSH:4215:4300:VS:HS:" ";m A(MB$):A185A1642746| AD32715 T$MB$:C2$CM$(1):C$"":510:MB$T$ VVS:KM1HHS:2725 HUR(MB$):H1H1 HLH V:H:MB$;& JEJE1:HE(UTATION- HLH2 1666G< 1750:N12640,2650,2700,2900,2649,3450QF 2610lP V:H:A$(JA,R,C);"*";R JEJE1:KE(JE)KM:HE(JE)H:VE(JE)V:LE(JE)1U HH1:Y H::Z MOVE CURSOR RIGHT OR LEFTd HF1:4215:HF0:HLH:  GET # USIN  2450! 1660:A$(JA,R,C);7 HHS:VVS:1666:] LOCATE POSITION OF COMPUTATION 1950:"USE CURSOR TO SHOW WHERE PROBLEM WILL APPEAR ON THE PAGE" VMQV VV(PN):HH(PN):4215:V:H:"*"; ULH:UUV ( GET #'S FOR COMP(A):K1N(A):AA$(A,K):K!A5D$;"CLOSE ";V$:"COPY SAVED"::"INSERT ORIGINAL AND HIT RETURN KEY TO CONTINUE":A$:"COPY ANOTHER GROUP? (Y/N) ";Y$:Y$"Y"149013 COPY LIST OF WORKSHEETS2050:1700 WRITE FUNCTI$(A,K)"END"1570!KK1:1550/"N(A)K:A5,H6D$;"CLOSE";V$@:"INSERT NEW DISC ":"HIT RETURN KEY WHEN READY TO COPY"::A$AN01710hD$;"OPEN ";V$;" ,L800mA0NNrD$;"WRITE ";V$;" ,R";AAR$(A):RR(A):SS::1:0;:3:"LIST OF WORKSHEETS "::N1NW:1:N;:3:W$(N):NY::"";N:N01600fV$W$(N)D$;"OPEN ";V$;" ,L800D$;"READ ";V$;",R0"A$,NNA0NND$;"READ ";V$;" ,R";AAR$(A):RR(A):SS(A)K1AA$(A,K):AA:"YOU CAN ALSO COPY THE LIST OF WORKSHEETSTO ANOTHER DISK. THIS LIST IS NECESSARY TO THE OPERATION OF BOTH THE FRACTIONS PROGRAM AND THE PRESENT PROGRAM"24:" - - - HIT ANY KEY TO GO ON - - -";A$16368,0A"ENTER NUMBER:"::"DO YOU WANT TO CHANGE THIS? ";Y$:Y$"Y"1080Y3:"EDIT ANOTHER PAGE? ";Y$:1055y8:"ENTER # PAGES ";R:1050 COPY FUNCTION:"THIS FUNCTION WILL ALLOW TRANSFER OF WORKSHEETS FROM ONE DISK TO ANOTHER, ONEHEADING/GROUP AT A TIME.""ENTRY#?";JJN7507KJN1:A$(K)A$(K1)DK:NN1M900"DO YOU WANT TO READ REVISED LIST? (Y,N)";Y$Y$"Y"700130:"EDIT ANOTHER PAGE? ";Y$Y$"Y"ė:600$133.:"THERE ARE ";R;" PAGES UNDER THIS HEADING":"TYPE IN NEW ENTRY:";A$(J)(JNNJ1750R "INSERT NEW ENTRY?(Y/N)";Y$b*Y$"N"900t4"ENTRY #?";J9KNJ1:A$(K1)A$(K):K:NN1>"TYPE IN NEW ENTRY:";A$(J)HJNNJR800"DELETE ENTRY? (Y/N)";Y$Y$"N"1000100S:.B'4100S6000:7-p24:" * * * HIT ANY KEY TO GO ON * * *";:?-zA$Q-16368,0::h-' ONERR HANDLINGz-'A%2256816-$'A%,104:A%1,168:A%2,104:A%3,162:A%4,250:A%5,154:A%6,72:A%7,152:A%8,72:A%9,96-.'A%-8'N13:(7);:.B'4BREVIATIONS ARE:":," > HORIZONTAL POSITIONING OF CURSOR C/M CURSOR/MARK AND ALSO CARRY E ERASE DN DONE (WITH COMPUTATION,ETC.) SH SHORT DIVISION OPTION WR WRONG,START OVER "-:"THIS IS EMPLOYED IN 'CUSOR' MODE,AS WELLAS IN THE 'C/M' OPTION IN THE SET-UP STAGE OF ANY COMPUTATION (E.G ADDITION)"+6000+:"OTHER OPTIONS ARE SIMILAR TO THOSE OF THE LONG DIVISION,ETC.PROGRAMS,WITH SOME NEW FEATURES",:"THE ABS OF THIS PROGRAMIS THE 'CURSOR/MARK' OPTION,WHICH ALLOWSTHE STUDENT TO COPY ANY WORD OR NUMBER PRESENT ON THE SCREEN":*"THIS IS DONE BY:":" 1 MOVING THE CURSOR,USING SWITCH #1 2 WHEN THE CURSOR TOUCHES THE DESIRED WORD,HITTING SWITCH #2"|+4830)VMQV+)EF1:4215:EF0:1665:>) INSTRUCTIONSl):" * * * STORY PROBLEM * * *"::)"THIS PROGRAM ALLOWS THE STUDENT TO WORK STORY PROBLEMS ON THE SCREEN AND THEN GET A PRINTOUT OF THE RESULT":y*"ONE OF THE MAIN FEATURE(aD$;"PR#0""(bD$;"MON I,C,O"*(c:A(fRNRN1:RNPG220J(kPN0U(p:230a( ERASE(1950:"USE CURSOR TO SHOW WHERE TO START ERASING. THEN MOVING CURSOR WILL ERASE UNTIL SECOND SWITCH IS HIT.";(4215:1666)(SB)1274422'HHH'JA1:1600)'2600:?' 1700:V:H:" ";X'%A$(JA,R,C)SQ$(4)ı'*V:H:A$(JA,R,C);:HH1:H39H39:4670'4V:H:"*";'>4640'\ PRINT']D$:22:1:PF04707'^D$;"NOMON I,C,O"'_D$;"PR#";SLOT'`35,20:7710:21:MB$&I(SB)1274425A&N7:"INDICATE WHERE TO PRINT";[&bVVS:HHS:VMQV:4215k&lV:H:MB$;&qV(37)1:H(36)2:H39H39&v& LABEL&VSV:HSH&JA2:1600&1700:MB$A$(JA,R,C):4422& NUMBER' VSV:HSH:MB$"*":" WRITE PROTECT TAB IS REMOVED DISK IS CORRECTLY POSITIONED"::s-:"HIT 'RETURN' TO TRY AGAIN";A$:-LF12050-130T' TO TRY AGAIN";A$:-LF12050-130D:"UNABLE TO WRITE TO THIS DISK"::"PLEASE CHECK TO SEE THAT:":" WRITE PROTECT TAB IS REMOVED DISK IS CORRECTLY POSITIONED"::,:"HIT 'RETURN' TO TRY AGAIN";A$:,LF12050,130D THIS DISK"::"PLEASE CHECK TO SEE THAT:":0+1+4 DISK ERROR,READ(+9216,0\+>:::"UNABLE TO READ ANYTHING FROM PAGE#";A:+H"CHECK PAGE#0 FOR A LISTING OF AVAILABLE PAGES.":+R::"HIT 'RETURN' TO CONTINUE ";A$+W+\R$"E"17+f480+ DISK ERROR,WRITE +216,0,E ";LW$*216,0*7* WRITE LIST OF WORKSHEETSG*LF1:2200m*LW$"LIST OF FRACTION WORKSHEETS"* D$;"OPEN ";LW$;",L100"*D$;"WRITE ";LW$;",R0"*NW:N1NW* D$;"WRITE ";LW$;" ,R";N**W$(N):N*/"CLOSE ";LW$+0216,0:LFRAM (IN CATALOG,NOT MENU) 'LIST OF FW WRITER'":"--LOAD AND LIST FOR INSTRUCTIONS"::)LW$"LIST OF FRACTION WORKSHEETS":2002)D$;"OPEN ";LW$;",L100")D$;"READ ";LW$;",R0")NW:N1NW)D$;"READ ";LW$;" ,R";N)W$(N):N*"CLOSCTIONS PROGRAM RELY ON A FILE NAMED 'LIST OF FRACTION WORKSHEETS', WHICH GIVES A LISTING OF AVAILABLE HEADINGS (EG,'ADDITION OF...')":X)"TO CREATE THIS FILE ON A NEW DISK, USE EITHER THE 'COPY' FUNCTION TO DUPLICATE THE ORIGINAL FILE, OR THE PROGNG "::"";V$:NWNW1:W$(NW)V$:2050:44J' LIST OF WORKSHEET HEADINGS'::"IF AN AUXILIARY DISK IS TO BE USED WITH THE FRACTION PROGRAM,INSERT IT AT THIS TIME."::"HIT 'RETURN' WHEN READY ";A$:2005'216,0(::"THIS PROGRAM AND THE FRA USED FOR DIVISION"A&24:" - - - HIT ANY KEY TO GO ON - - -";I&A$Y&16368,0:&"HEADING: "::1:0;:3:"NEW HEADING"::N1NW:1:N;:3:W$(N):N&::"ENTER NUMBER OF HEADING DESIRED ";N:N01995&V$W$(N):44)':"ENTER HEADILINE, SUCH AS: "m%::" 1/3 X 5/7 "::" 7 1/2 + 13 2/3 "::" 12 13/45 - 1 1/15"::" 1/3 % 1/6 =":&:"NOTE THAT A SPACE MUST OCCUR BETWEEN THEWHOLE NUMBER AND THE FRACTION IN A MIXEDNUMBER.OTHERWISE SPACES ARE OPTIONAL."::"THE SYMBOL % IS 3 -----------"B$l23p$v:" - - - HIT ANY KEY TO GO ON - - -";$KY(16384)$A$$16368,0$%"REGARDLESS OF FORMAT CHOSEN, PROBLEMS ARE ENTERED AS A STRING OF SYMBOLS ALL ON THE SAME :#X"(2) VERTICAL -- ":::" 1 7 --- 2 + 2 ":$b" 13 --- - HIT ANY KEY TO GO ON - - -"/">KY(16384)7"@A$E"A16368,0K"B"D"FORMAT:"::"THE TWO POSSIBLE FORMATS ARE:":"(1) HORIZONTAL --""E#N" 1 5 --- X --- = 3 7 ":"PAGE # 0 OF EACH HEADING TELLS HOW MANY PAGES THERE ARE UNDER THAT HEADING"::"THIS NUMBER MUST BE KEPT CURRENT (BY":"WRITING OR EDITING PAGE #0) ";!5"IN ORDER":"TO MAKE ALL THE PAGES UNDER THE HEADING ACCESSIBLE TO THE USER"!:22"<:" - -HEADING CAN BE ONE OF THOSE ALREADY IN USE OR A NEW ONE CAN BE ENTERED. ": !"WHEN A NEW HEADING IS USED, IT IS ADDED TO THE 'LIST OF FRACTION WORKSHEETS'": &"IT IS INTENDED THAT SEVERAL PAGES OF PROBLEMS BE GROUPED UNDER EACH HEADING "!0: :" 4. GIVE FORMAT #."::" 5. GIVE # PROBLEMS ON PAGE"::" 6. ENTER PROBLEMS":" 7. ENTER THE WORD 'END' WHEN DONE"16368,0:23:" - - - HIT ANY KEY TO GO ON - - -";A$16368,0::K "HEADING:"::"THE ON="+ + INSTRUCTIONS FOR WRITE FUNCTION + +"Cv:"THE STEPS IN WRITING A WORKSHEET ARE:":: " 1. GIVE HEADING (E.G. ADDITON OF FRACTIONS)"::" 2. GIVE PAGE #"::" 3. WRITE BRIEF INSTRUCTION (E.G. ADD AND SIMPLIFY)"Y@R$(I`$' @ ` q` Pɠ` NE OF TEXT AS STRING VARIABLE(933,40?;16368,0:2256,1e>1:1:891:126,2:125,0:L$(R,N)C33,39:912:22:1:f:uAHEN DONE"4::"NOW HIT 'RETURN' WHEN READY ";A$:K33,39:1:1\:" ";::1zKY(16384):KY1282055 KY11282075872:(37)21İ21002050 V(37)*N1V:2100:N,LR(R)V/R:1304 READ TOP LIT' AFTER THE WORKSHEET HAS BEEN SAVED"[&23:"HOW MANY PROBLEMS ON THIS WORKSHEET? ";PGg:R1PGx ENTER TEXT:"PROBLEM #";R: "ENTER TEXT AS IF USING A TYPEWRITER, USING 'RETURN' AS THE CARRIAGE RETURN. TYPE RETURN, THEN'CNTRL-A' WES THAT SEVERAL STORY PROBLEMS APPEAR ON EACH 'WORKSHEET'"::"FIRST GIVE THE NUMBER OF PROBLEMS ON THEWORKSHEET,THEN TYPE IN EACH PROBLEM"':"WHEN YOU ARE DONE,THE ENTIRE WORKSHEET WILL BE SAVED ON THE DISK."::"TO MAKE CHANGES IN PROBLEMS USE 'EDI00J@:"INSERT NEW DISK ":"HIT 'RETURN' KEY WHEN READY TO COPY "::A$Sr130:"COPY SAVED"::"HIT RETURN KEY TO CONTINUE":A$::17 WRITE FUNCTION::"+ + INSTRUCTIONS FOR WRITE FUNCTION + +":"THIS PROGRAM ASSUMN1:L$(R,K)L$(R,K1)5K:NNNN1:SS1:NRRR1>900p"DO YOU WANT TO READ REVISED LIST? (Y,N)";Y$:LR(R)NN:Y$"Y"700LR(R)NN:130:"DO YOU WANT TO EDIT ANOTHER PROBLEM? ";Y$Y$"Y"ė:610$:17 COPY FUNCTION3ENTRY?(Y/N)";Y$*Y$"N"90014"ENTRY #?";N]9KNNN1:L$(R,K1)L$(R,K):K:NNNN1r:SS1:NRRR1>"TYPE IN NEW ENTRY:":1HNNNNNNR800"DELETE ENTRY? (Y/N)";Y$Y$"N"1000"ENTRY#?";NNNN750KNN KEY WHEN READY TO GO ON - -":5KY(16384):KY128565H616368,0N7WX300`]620kb:400qlz410"CHANGE ENTRY?(Y/N)";Y$Y$"N"800"ENTRY #?";N "TYPE IN NEW ENTRY:":1NNNNNN750 "INSERT NEW :"- - HIT ANY KEY WHEN READY TO GO ON - -";>KY(16384)NKY128540\16368,0&::::"WHEN YOU RESPOND 'N' TO 'DO YOU WANT TO":"READ NEW LIST?', THE REVISED PROBLEM":"WILL BE STORED AND THE OLD ONE DELETED."0::::"- - HIT ANYDD ITEMS NEAREST THE BEGINNING":"OF THE LIST FIRST)":" 'DELETE DELETES OLD ENTRY;THOSE BE-":" ENTRY' LOW IT MOVE UP ONE #""NOTE 2--IF DELETING >1 ENTRY, WORK FROM":"BOTTOM UP (DELETE ITEMS NEAREST END OF":"LIST FIRST)."-:'CHANGE SUBSTITUTES A NEW ENTRY FOR":" ENTRY' AN OLD ONE"G" 'INSERT ADDS A NEW ENTRY AT DESIG-":" ENTRY' NATED SPOT, PUSHING ALL":" THOSE AFTER IT DOWN ONE #"5:"NOTE--IF ADDING >1 ENTRY, WORK FROM TOP":"DOWN (AENTIRE PROBLEM HAS BEEN":"READ." :"FOR EDITING PURPOSES,EACH LINE OF THE PROBLEM IS AN 'ENTRY'"::::"- - HIT ANY KEY WHEN READY TO GO ON - -" KY(16384):KY128522 16368,0  :" + / + / EDITING OPTIONS + / + /":A" INSTRUCTIONS FOR EDIT FUNCTION : :":" I WILL ASK FOR A PROBLEM#. THEN AFTER LOADING THE PROBLEM FROM DISK, I'LL READ THROUGH THE PROBLEM LINE BY LINE, AS IN THE READ FUNCTION"!:"TO EDIT, HIT THE 'E' KEY AT ANY TIME OR":"WAIT UNTIL THE "PROBLEM #";R:NNLR(R)4K1NN:I1400:IXX(16384):16368,0:X32450dX69ıxK;:4:L$(R,K)KR$"E"ı"READ ANOTHER PROBLEM (Y/N)? ";Y$Y$"Y"ė:400:17 EDIT FUNCTION#::": : ",R";0 @PG JR1PG4 TD$;"READ ";V$;",R";RR ^LR(R):N1LR(R):1:N,Rf hD$;"CLOSE ";V$t rR$"C"ı| 20 :"THERE ARE ";PG;" PROBLEMS ON THIS WORKSHEET";: :"WHAT PROBLEM # DO YOU WANT? ";R R$"E"ı  V$:EAD THROUGH THE SENTENCES IN ":"THAT PROBLEM." :"TO PAUSE IN THE READOUT, HIT THE SPACE":"BAR. TO CONTINUE THE READOUT, HIT ANY ":"KEY EXCEPT 'E'." ,23:1 .D$;"NOMON,I,C,O" /23:1:868 1D$;"OPEN ";V$;",L 800  6D$;"READ ";V$;"WRITE ";V$;",R";R6 LR(R):L1LR(R):L$(R,L):L,RJ D$;"CLOSE ";V$P :^ R$"E"ıl R$"C"ıv :17|  READ FUNCTION ::" / / INSTRUCTIONS FOR READ FUNCTION / /":/ :"I WILL ASK FOR A PROBLEM#, THEN I WILL":"SLOWLY R"STORY PROBLEM WORKSHEET "(A)O "READ, WRITE, EDIT, OR COPY? (R/W/E/C)";R$U e R$"R"270v #R$"C"1500 (R$"E"510 *R$"W"1795 +20 , D$ D$;"OPEN ";V$;",L 800 D$;"WRITE ";V$;",R";0 PG R1PG D$;$;"MON I,C,O" : "THIS PROGRAM ALLOWS YOU TO WRITE NEW WORKSHEETS, READ OR EDIT EXISTING WORK- SHEETS, OR COPY FROM ONE DISK TO ANOTHER" :"STORY PROBLEM WORKSHEETS ARE SAVED BY PAGE NUMBER":"WHAT PAGE NUMBER DO YOU WANT? ";A: V$Џ::"IF AN AUXILIARY DISK IS TO BE USED WITH THE STORY P. PROGRAM,INSERT IT AT THIS TIME."::"HIT 'RETURN' WHEN READY ";A$:61:"?";:872:126,2:125,0:L$(R,N)::D$"":D$;"BLOAD LINE READER" LR(50),L$(50,20):D$"" D            Ščč  ٠Ġ٠ҍزسشčč  ԠĠٍčԠĠ٢čč  ĠĠ٠ҍčĠĠٍčč  "TYPE IN NEW INSTRUCTION ";N$G"CHANGE FORMAT? ";Y$:Y$"N"670h"NEW FORMAT # (1 OR 2 ) ";R"CHANGE # OF PROBLEMS ";Y$:Y$"N"700"HOW MANY PROBLEMS? ";S:410"CHANGE ENTRY?(Y/N)";Y$Y$"N"800"ENTRY #?";J BLEMS MUST ENDWITH THE ENTRY 'END'"Z0::::"- - HIT ANY KEY WHEN READY TO GO ON - -"b5A$p616368,0v7X295]A01070bV$:"PAGE #";A;" / FORMAT ";R;" / ";S;" PROBLEMS"lN$v"CHANGE INSTRUCTIONS? (Y/N) ";Y$:Y$"N"650!::"- - HIT ANY KEY WHEN READY TO GO ON - -">KY(16384)FA$T16368,0&::::"WHEN YOU RESPOND 'N' TO 'DO YOU WANT TO":"READ NEW LIST?', THE REVISED LIST WILL":"BE STORED AND THE OLD ONE DELETED."#+::"REMEMBER--EACH LIST OF PROADD ITEMS NEAREST THE BEGINNING":"OF THE LIST FIRST)":" 'DELETE DELETES OLD ENTRY;THOSE BE-":" ENTRY' LOW IT MOVE UP ONE #""NOTE 2--IF DELETING >1 ENTRY, WORK FROM":"BOTTOM UP (DELETE ITEMS NEAREST END OF":"LIST FIRST)."- 'CHANGE SUBSTITUTES A NEW ENTRY FOR":" ENTRY' AN OLD ONE"H" 'INSERT ADDS A NEW ENTRY AT DESIG-":" ENTRY' NATED SPOT, PUSHING ALL":" THOSE AFTER IT DOWN ONE #"6:"NOTE--IF ADDING >1 ENTRY, WORK FROM TOP":"DOWN (THE READ FUNCTION. "v:"TO EDIT, HIT THE 'E' KEY AT ANY TIME OR":"WAIT UNTIL THE ENTIRE ARRAY HAS BEEN":"READ." :::::"- - HIT ANY KEY WHEN READY TO GO ON - -" A$ 16368,0  :" + / + / EDITING OPTIONS + / + /":B" EDIT FUNCTIONE::": : INSTRUCTIONS FOR EDIT FUNCTION : :"M:"I WILL ASK FOR THE HEADING AND PAGE #, THEN I'LL ASK IF YOU WANT TO CHANGE THE FORMAT OR # OF PROBLEMS ON THE PAGE.":"THEN I'LL READ THROUGH THE LIST SLOWLY, AS IN AGE #";A;" / FORMAT ";R;" / ";S;" PROBLEMS"3N$JK1N:I1400:I[R$"W"180016368,0:X(16384):X32450X69ıK;:4)A$(K)KR$"E"ı:"READ ANOTHER PAGE (Y/N)? ";Y$Y$"Y"ė:29513"OPEN ";V$;",L 800"-@D$;"READ ";V$;",R";A5JN$<TRC^SWhN1200:A$(N)lrA$(N)"END"400sND$;"CLOSE ";V$D$;"MON I,C,O"216,0R$"E"ıA0ĺ"THERE ARE ";R;" PAGES UNDER THIS HEADING":478+V$:"PUT, HIT THE SPACE":"BAR. TO CONTINUE THE READOUT, HIT ANY ":"KEY."S 16368,0[ A$k "16368,0: '"ENTER NUMBER OF HEADING":::N1NW:1:N;:3:W$(N):N:::N:V$W$(N): ,:"WHAT PAGE #?";A 1D$;"NOMON I,C,O": 321006D$;13  N1NN1$ A$(N):8  READ FUNCTIONm ::" / / INSTRUCTIONS FOR READ FUNCTION / /": :"I WILL ASK FOR THE HEADING AND PAGE # ":"AND THEN I WILL READ SLOWLY THROUGH THE":"PROBLEMS ON THAT PAGE."E :"TO PAUSE IN THE READOA$(N)"END"130) nA$(N)"REENTER"İ2500 xN; 2200W D$;"OPEN ";V$;",L 800"r D$;"WRITE ";V$;",R";Az N$ R S K1N:A$(K):K D$;"CLOSE ";V$ 216,0 R$"E"ı "ANOTHER PAGE (Y/N)? ";Y$ Y$"Y"44 :"HOW MANY PAGES UNDER THIS HEADING? ";R:S0:A$(1)"END":N1:130G 1 u 2"TYPE IN INSTRUCTIONS FOR THIS PAGE:";N${ 3 <"WHAT FORMAT # ?";R = F"HOW MANY PROBLEMS? ";S G Q R"ENTER PROBLEMS--" SN1200 UN;:4:A$(N) ZSHEETS, OR COPY FROM ONE DISK TO ANOTHER"Y "READ, WRITE, EDIT, OR COPY? (R/W/E/C)";R$_ e v R$"C"1450 R$"R"270 #R$"C"1500 (R$"E"510 *R$"W"1795 +20 , -:"WHAT PAGE # ?";A . /A049@ 0N$"***":$D$""*W$(30),AA$(10,200)\EN$(("E")128)(("N")128)(("D")128)r D$;"NOMON I,C,O" ::A$(200) 2000 D$;"MON I,C,O" :) "THIS PROGRAM ALLOWS YOU TO WRITE NEW WORKSHEETS, READ OR EDIT EXISTING WORK-                 z#   ٠ ΠƠӠ ٠͠Ԡ ŠҠ٠͠Ԡ  ٠Ӡ Ƞ ԠƠנҠ!ԠƠΠӠ"ΠƠĠӠΠԠҠ'ΠƠӠΠƠӠ ΠƠӠ ٠Ӡ Ҡ٠͠(ؠŠ ΠҠΠҠϠՠΠΠ ΠΠ:ԠԠӠӠȠӠҠԮƠ٠٠ӍŠ٠ĠӠŠԬ׍٠Ӡ̠٠ŠŠϠſƠΠӠϠ٠ӍĠȠˠӠ׍Ƞ̠ŠŠϠĠҿ325615164,0:10%D$(4)::D$;"RUN MENU"@ES"/ "IS ALL THAT IS NEEDED TO USE MOST OF"^ "THESE PROGRAMS. STUDENTS MAY NEED SOME" "ASSISTANCE IN STARTING THE PROGRAMS." 23 "PRESS TO CONTINUE"; A$ AD94096132561:(AD)816121530: SPECIAL INPUTS?T, THESE PROGRAMS"; d"DO NOT REQUIRE THE STUDENT TO USE"V n"THE APPLE KEYBOARD."^ x: "THE SOFTWARE IS ALSO USEFUL FOR" "YOUNGER CHILDREN AS WELL AS" "THE DEVELOPMENTALLY DISABLED." : "THE SINGLE BUTTON ON YOUR GAME PADDL FOR LESS."5 "CHECK WITH THE RESEARCH FOUNDATION"P "FOR CURRENT PRICES."X 23| ("PRESS TO CONTINUE "; 2A$ < F"ORIGINALLY DEVELOPED AS A TRAINING AID" P"FOR THE SEVERLY PHYSICALLY HANDICAPPED" Z"NON-SPEAKING STUDEN"U DISTRICT BUILDING"- 5:"1107 NE 45TH"J 5:"SEATTLE, WA 98105"e :5:"(206) 633-2610"m : "CURRENTLY EACH DISKETTE WITH DOCUMENT" "IS $25, AND ALL 7 ARE $120." "CERTAIN COMBINATIONS OF THE 7 DISKETTES" "ARE AVAILABLE# L"PRESS TO CONTINUE ";+ VA$1 `Y j"SEVEN MORE RECENT DISKETTES WITH" t"NEW DOCUMENTATION MAY BE OBTAINED BY" ~"CONTACTING:" : 5:"BRUCE KLEAVELAND" 5:"WASHINGTON RESEARCH FOUNDATION" 5:"SUITE 322" 5:A ACADEMICS WITH- SCANNING -- MATH39`"ACADEMICS WITH SCANNING -- MATH"h:|"DEVELOPED BY""JUDY MACDONALD AND PAUL SCHWEJDA"$:."NON-COMMERCIAL DISTRIBUTION OF THIS"8"OLDER VERSION IS WELCOME"B23     WRITE DOS TA4: PATCH ^A"Y"NF0:90 ! READ DOS> A0:N05:AXN,M(N):N\ :"LOADING DOS IMAGE..."y 6,0:7,0:9,3:A1:9,35 , INIT,WRITE DOS,PATCH 6B0,48: SPEEDUP INIT ;:"FORMATTING..." @B11,S2:B12,D2:B112,4:A3:INIT JA2: xSFĄ"INSERT COPY DISK AND HIT RETURN ";A$E yNF0NF1:300:125j z:"WRITING...":A2:(7)34130} }SFĺ"";"": 110 "";"";"":::"DONE":"THE DISK HAS BEEN COPIED AND VERIFIED" :"DO YOU WANT TO COPY ANOTHER DISK? ";Y$:Y$;A$ b:5b c2-SLOT1;3-DRIVE1;4-SLOT2;5-DRIVE2;6-TRACK COUNT 1;7-TRACK COUNT 2;8-NA.;9-STOP+1 d2,S1:3,D1:4,S2:5,D2:6,3:7,3:8,16:9,35 nSFĄ"INSERT ORIGINAL AND HIT RETURN ";A$ oNF0İ200:115 p:"READING...":A1 sSFĺ"":, INAL IN... SLOT # ";S1:" DRIVE# ";D1::[ 7D21D22S21S2760 <"COPY IN... SLOT # ";S2:" DRIVE# ";D2:: FSF(S1S2)(D1D2) PS116S1:S216S2 Z::SF0Ą"INSERT DISKS AND HIT RETURN "025610 96,0,0,0,0,0- S05:M(S):6 :3a " * * * DOUBLE-BOOT COPY * * *"i #: (:"PLEASE ENTER SLOT AND DRIVE NUMBERS FOR SOURCE AND DESTINATION "::"(IF SINGLE DRIVE, USE THE SAME NUMBERS FOR BOTH)":? 2"ORIG"(4);"MAXFILES 1"6(4);"BLOAD COPY,A$9810"U(4);"BLOAD PATCH,A$9300"a 25616A0925616825616:A1A03:A2A06:A3A09A49256163256:AX925616925641612: $994C=BIT MAP B011162561425611161:B19256161  )"*"A$(K)(A$(K),2)+ dD$;"RUN ";A$(K)D$;"RUN ";A$(K)DETRY,FRACTIONS,*FRACTION WORKSHEET WRITER,STORY PROBLEM\ $*STORY PROBLEM WORKSHEET WRITERl %*UTILITIESx 'A$(20) (N1NS:A$(N):N 2N1NS:5:N;:8:A$(N):N 7 <K FD$"" PD$;"NOMON I,C,O" U Z"LOADING" _(A$(K),1- :/ "ACADEMICS WITH SCANNING: MATH"7:Z" * * * MENU * * * ":"TYPE IN THE NUMBER OF THE PROGRAM YOU":"WANT TO RUN, THEN HIT THE 'RETURN' KEY:":NS10ADDITION,SUBTRACTION,MULTIPLICATION,DIVISION7 #GEOM  N1NT:"PROBLEM NUMBER ";N;":":=M2: INPUT ONE PROBLEM_F1Ą"HOW MANY ADDENDS? ";M:kMS(N)MM7ĺ"(MAXIMUM OF 7) ":I1500:I:4230M2M2:MS(N)2K1M:"ENTER ADDEND #";K;" -- ";:"";NQ(N,K):K:::F2ĂNMO3MO4F21: MULTIPLE ENTRIES 2F242008"Vh INPUT MULTIPLE PROBLEMSr:3:"+ + + + PROBLEM ENTRY + + + + "::"HOW MANY PROBLEMS DO YOU WANT TO ENTER AT THIS TIME? ";NTwNT20ĺ:"(MAXIMUM OF 20)":N1500:N:4210!|:MBERS" x:"ENTER UP TO 20 PROBLEMS:"::" 3. SUMS INVOLVE TWO NUMBERS ONLY"::" 4. ADD TWO OR MORE NUMBERS"23:"WHICH OPTION DO YOU WANT? ";MOMO1MO44060 INPUT OPTIONS F10:F20MO2MO4F11: >2 NUMBER SUMS %:2:"THE PROBLEMS ARE TYPED IN BY A HELPER:":"PLEASE SELECT ONE OF THE FOLLOWING OPTIONS FOR KIND OF PROBLEM AND MODE OF OPERATION:"::"ENTER ONE PROBLEM AT A TIME:"::" 1. SUMS INVOLVE TWO NUMBERS ONLY"::" 2. ADD TWO OR MORE NUY OF LETTERS AND NUMBERS APPEAR AT THE BOTTOM OF THE SCREEN, AS CHOICES WHICH THE STUDENT CAN SELECT BY MEANS OF SCANNING"::"THE ABBREVIATIONS USED ARE:":" C - CARRY"::" E - ERASE"::" D - DONE"23:"HIT ANY KEY TO GO ON ";:A$/N130:Z(16336):N:15103CF(M1M12)1540<190O INSTRUCTIONS:3:" * * * ADDITION WITH CARRY * * * ":"THIS PROGRAM ALLOWS THE STUDENT TO DO ADDITION PROBLEMS, WITH CARRYING, BY MEANS OF A SINGLE SWITCH":"AN ARRA850H" ";RN$(K):KJ\N118PL:" ";:N:N1PL4:"-";:N:{fN120PL:" ";:N:NPL11:N(N);:N::p(4);"PR#0"z19:1:86820:868: INPUT VIA MORSE CODEA$M012:A$(M)A$1550M::10:"DO YOU WANT TO WORK ANOTHER PROBLEM? ";Y$:Y$"Y"660jb:10:"GETTING THE MENU PROGRAM . . ."|l"RUN HELLO"A$PL0:100  PRINTOUT*:10:(4);"PR#";SLOT4" ":" ">K1MS:N118L(K):" ";:N:KMSĺ"+ ";:S:AANQ(PC,K):K:"THE CORRECT ANSWER IS ";(A.5)_23:1:868:"HIT THE SWITCH TO GO ON"v(16287)127515(16287)128516800&23:1:868:"HIT THE SWITCH TO GO ON"+(16287)127555,(16287)1285560F2660>XE):PLP(EE) e230, V(EE):H(EE):" ";C (16287)127420 19:1:"ARE YOU DONE? -- HIT SWITCH FOR 'YES', FOR 'NO', JUST WAIT " N110:N N11000:(16287)127500 N 900:230 23:868:24:868:9003A0:K1MHTPL:V:H:"*";:V(EE)V:H(EE)H:C(EE)CF:P(EE)PL:163N ,CF1MM1:165h 1VT:HTPL:" ";:CF1 6VVT(MS2)CF:HHTPL:V:H:"*";:V(EE)V:H(EE)H:C(EE)CF:P(EE)PL:170 ^V(EE):H(EE):" ";:EEEE1:EE0EE0 cV(EE):H(EE):"*";:CFC(E:MF0ĺ"^"; 165 . BB1:M1189C N1T5:N:168f 24:32M:" ";:CF1M1168s M1300 M12400 M0350 EEEE1 VT(MS2)CF:HTPL:M2;:CF0PLPL1:N(PL)M2 CF0: N1100:N9 VVT(MS2)CF:H5:"-";:N3 23:3:"E C 0 1 2 3 4 5 6 7 8 9 D"< 230E M1N 170^ MF1ī1500 N1T:AA(16287)127:AA(BB)1186 BBAA:N:M1CF1M1165 MMM:M1M:M12M0 SP16336:N16:Z(SP):N 24:2MM3:" ";:2M3 THE PRINTER TURNED ON? ";Y$:Y$"Y"PF1: aSLOTSLOTPFD d4300d fK1MS:N$(K)(NQ(N,K)):Kj is jEE0 nK1MS:L(K)(N$(K)):K xVUVTMS2:K1MS:VUK:HT1L(K):N$(K);:K VT2:HTL(MS)1:"+"; VT1:HTL(MS)2:N1L(MS) SLOT40NS12:A$(20):N0NS:A$(N):NOE,C,0,1,2,3,4,5,6,7,8,9,D^A$(0)(8)H3:H(100),V(100),C(100),P(100),NQ(20,10)VT13:HT19Z4000:M02:N01\:5:MF1100_"RATE OF SCAN (1=SLOW..10=FAST) ";R:T250R) `:"IS     ,N1T:AA(16287)127:AA(BB)115409BBAA:NHWF11500WOP0:1550fBBAA:OP1{24:12M:" ";OP1ı"MM1:MMXM1:,24:12M:"^";1SP16336:N16:Z(SP):N6@ BACKSPAPL(R)PL1 BVT(R):"-";:N DN1HT1PL(R):" ";:N:NPL(R)01:N(R,N);:NJjN12:" ":N:(4);"PR#0"zN13::N:F2100:"DO YOU WANT TO DO ANOTHER PROBLEM? ";Y$:Y$"Y"100:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"13:" ":N*N1HTL11:" ";:N:N1MN1HTL23:" ";:N:"X ";N2zN1HTL24:" ";:N:N1L26:"-";:NK1R2:N1HT1PL(K):" ";:N:NPL(K)01:N(K,N);:N::KRX31490N1HT3PL(R):" ";:N:N1PL(R)4:8:)23:1:868:22:868:PL014108PL(R)PL1ARRXu21:868:"THE CORRECT ANSWER IS ";(N1N2.5)(16287)1271413:"HIT SWITCH TO CONTINUE"(16287)1281415PF0ė:10:1495(4);"PR#";SLOT:5 N  ERASECF1ī10603VT(R):HTPL:" ";J(PLPL1:PL0PL0P2[x DONEnyL20RL23ı|(16287)1271404}VT(R):HTPL:" ";:21:1:"DONE? YES-HIT SWITCH; NO-JUST WAIT"~N1700:(16287)1271408N:21:1:86 ";&`RR1:PL0:RSR:0 ADDCRL21L20ıRPL01210aPL(R)PL1VT(R):HTPL:" ";:RRS:PL(R1)1:VT(R):HTPL(R)2:"+";HTPL:PL0ĺN(R,0)VT(R1):HTPL3:N1PL5:"-";:NST2:RR2:PL0:RXR:00:OP01050MXMQ$M2M3H$CT(ST):HTCPL:M2ĺ" ":1069W)M3:1070`-CF0f.qL NEXT}ML20ıQRL21200VVT(R):HTPL:" ";:HTPL:PL0ĺN(R,0)WPL01115XPL(R)PL1[CT(1):1:" 0:600+M2İ1000:60070M121100,1200,1400,400TXVT(R):HTPL:"*";:500` CARRYhM2qCF124:12M:"^";VT(R):HTPL:" ";CPLPL(ST1)(R1)CT(ST):HTCPL:"*";WF1:1500WF0MQMX:MX12 15:AA(16287)127:AA1440"N521:1:868:@:105S MAIN PROGRAMd24:1:"^";M0:WF1:T1.5TT:1500:WF0:TTT1500:OP0520M3M12550N(R,PL)M3!HTPL:VT(R):M3;"CF0$PLPL1:600&M2İ130N1 23:H1:"E C 0 1 2 3 4 5 6 7 8 9 N A D S "D PL0:RX3:RS1M BF0i R110:VT(R)VT2R:Rv R1:ST1 L20VT(1)VT2 500  START OVER (16287)127405 1:21:"START OVER?? (YES:HIT SWITCH//NO:WAIT)";N120T4100::10X T"INPUT: RATE OF SCAN (1 SLOW, 10 FAST--":"TRY 3 FOR DEMO):":R:TTRARb d4300h i nN1$(N1):N2$(N2):L11(N1$):L21(N2$) xVT1:HTL1:N1; VT:HTL2:N2; VT:HTL22:"X"; VT1:HTL23:N1L25:"-";: N = NEXT (TO BEGIN PUTTING ANSWERS":" ON THE NEXT ROW)"g H:" A = ADD (WHEN READY TO ADD)" J:" D = DONE (WHEN THE PROBLEM HAS BEEN":" COMPLETED)" L::"- - HIT ANY KEY WHEN READY TO GO ON - -" MA$ N16368,0 O P" C = CARRY (TO HAVE THE NEXT NUMBER":" PRINTED IN THE CARRY POSITION)" D:" E = ERASE (A SQUARE CURSOR WILL":" START FLASHING AT THE LAST # AND":" WILL MOVE BACKWARDS AT THE SCAN-":" NING RATE UNTIL STOPPED)"? F:" PER WILL TYPE IN EACH OF THE 2 #S":"OF THE PROBLEM, THEN THE STUDENT PER-"::"FORMS THE PROBLEM INDEPENDENTLY." @::::"- - HIT ANY KEY WHEN READY TO GO ON - - " AA$ B16368,0P C::"ABBREVIATIONS TO NOTICE ON THE SCANNING":"GRID--":: SLOT4# N(10,10),NQ(20,2)9MX16:RA200:H13IVT12:HT20c<CT(1)VT2:CT(2)VT2>::"THIS PROGRAM ALLOWS THE STUDENT TO"::"PERFORM TRADITIONAL MULTIPLICATION,"::"BY MEANS OF SCANNING AND A SINGLE"::"SWITCH."q ?::"THE HEL          U WANT TO DO ANOTHER PROBLEM? ";Y$:Y$"Y"100i:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"N1T:AA(16287)127:AA(BB)11540BBAA:NWF11500OP0:1550BBAA:OP124:12M:" ";OP1DF1ı"MM1 ":N#N1HTL11:" ";:N:N1FN1HTL23:" ";:N:"- ";N2sN1HTL24:" ";:N:N1L26:"-";:NyN1HTPL:" ";:NNPL101:N(8,N);:NN12:" ":N:(4);"PR#0"N13::N:F2100.:"DO YO21:1:868:423:1:868:22:868:PL0PL1:n21:868:"THE CORRECT ANSWER IS ";(N1N2.5)(16287)1271413:"HIT SWITCH TO CONTINUE"(16287)1281415PF0ė:10:1495(4);"PR#";SLOT:5N13:"0-610:N(R,PL):1310M2PXPL:PYPZPX1:PLPY:630:PSPY1:1100:PYg<R8:PLPX:PX1PL0mFyx DONE|(16287)1271404}VT(R):HTPL:" ";:21:1:"DONE? YES-HIT SWITCH; NO-JUST WAIT"~N1700:(16287)1271408N:PL1RRB(PL):630:PL(PS)PL:PLPS:R8:BF1ġ<BF0:H ERASEYPZPL1:630rPLPL1:PL1PLPZ PL11315!:610:" ";::1320#:610:N(R,PL):(DF1:T4TT:1500:TTT:DF0:OP11330*PL11325+610:" ";:131S:L ERASE BORROW FOR PS;MBF1PLPS1PLPS:1160MNPSPL(PS)ıVPLPL(PS)PS11:RBR(PL,PS)1:RB(PL)R:BR(PL,PS)R:PL(PS)PL:BF01150`625:T4TT:DF1:1500:TTT:DF0:OP01150jBN1:620:RR1:~630:RR1:610:N(R,PL):WF0:OP11050=610:N(R,PL):RR1:630:R8:BF0:PLPS:R1500:OP01050_M2M3mM11060 610:N(R,PL):RR1:630:1100:1030$RR1:610:M3:N(R,PL)M3:RB(PL)R1:PL(PS)PL:BR(PL,PS)R1.BN0:PLL110208BF0:R8:PLPv610:" ";:!610:"?";:.R::120; BORROWVPSPL:PSPL(PS)1010eBF0:1100BF1:BN1:630:RRB(PL):610:",";PLPL1:RRB(PL):BN1625,620:RR1::610:N(R,PL):24:5:"^";:M2:DF1:WFBN:TTTX4:1500:DF0:TTT:0:WF1:T1.5TT:1500:WF0:TTT41500:OP0520FM3M12550VN(R,PL)M3n!HTPL:VT(R):M3;$PLPL1:600&M2İ1300:600+M2İ1000:6000M121400,1800X620:500bVT(R):HTPL:l610:"*";:q610:"?";:xVT1:HTL1:N1;' VT:HTL2:N2;> VT:HTL22:"-";d VT1:HTL23:N1L25:"-";:N 23:H1:"E B 0 1 2 3 4 5 6 7 8 9 D S " PL0:R8:N010:K110:BR(N,K)4:K:RB(N)4:PL(N)0:N BF0  MAIN PROGRAM 24:1:"^"; M MA$ N4100 O R:h T"INPUT: RATE OF SCAN 1 SLOW, 10 FAST--":"TRY 3 FOR DEMO":R:TTRARr d4300 fK010:N010:N(N,K)0:N,K i nN1$(N1):N2$(N2):L11(N1$):L21(N2$) sPL0L1:NL11PL:N(5,PL)((N1$,N,1)):PL T FLASHING AT THE LAST # AND":" WILL MOVE BACKWARDS AT THE SCAN-":" NING RATE UNTIL STOPPED)" J:" D = DONE (WHEN THE PROBLEM HAS BEEN":" COMPLETED)" K:" S = START OVER" L::"- - HIT ANY KEY WHEN READY TO GO ON - -"O ON - - " AA$ B16368,0 C::"ABBREVIATIONS TO NOTICE ON THE SCANNING":"GRID--"::" B = BORROW (A COMMA WILL APPEAR":" ABOVE THE #, INDICATING YOU HAVE":" BORROWED 1)"k D:" E = ERASE (A SQUARE CURSOR WILL":" STARTIONAL SUBTRACTION"::"(WITH BORROWING) BY MEANS OF ONE-SWITCH"::"SCANNING." ?::"THE HELPER WILL TYPE IN EACH OF THE 2 #S":"OF THE PROBLEM, THEN THE STUDENT PER-"::"FORMS THE PROBLEM INDEPENDENTLY." @::::"- - HIT ANY KEY WHEN READY TO G( SLOT4NQ(50,2)#X481 N(10,10)GRB(10),BR(10,10)mMX(0)14:MX(1)12:MN(0)1:MN(1)1}RA200:H13VT12:HT202R010:VT(R)VT6R:R7N010:RB(N)1:NO >::"THIS PROGRAM ALLOWS THE STUDENT TO"::"PERFORM TRADI     IT2JJA14:KA(JA):K1KA(JA):A$(JA,K):K,JAbOJA14:BF01:MN(JA,BF),MX(JA,BF):BF,JAhPT23:1:868:23:H1:K1KA(JA):A$(JA,K);" ";:K:r CURSOR LOCATOR |VDRD:HZPQ1PD:1660:" ";:1660:"*";:1660:(16287)127:AA(BB)11540*BBAA:N9WF11500HOP0:1550WBBAA:OP1l24:12M:" ";}OP1DF1ı"MM1:MMX(JA,BF)MMN(JA,BF),24:12M:"^";1SP16336:N16:Z(SP):N6@ ARRAY PRINTA1620E INL101:N(8,K)01430/PDPD1:PD0PD06KD1660:N;UPZ(RD)PQPDe1450:3060~ CLEAR SUBTRACTION LL1:L2L1LL2LHT5L:W40L:33,W:32,L:34,VT4:936:32,0:33,40:34,0: SWITCH SUBROUTINESN1T:AA:OP11330*PL113250+610:" ";:1310H-610:N(R,PL):1310|2PXPL:PYPZPX1:PLPY:630:PSPY1:1100:PY<R8:PLPX:PX1PL0Fx DONEPL0500N0:K0PL1:NNN(8,K)10K:K:RDRD1:ND(RD)NPDPL1KPBN1:620:RR1:2~630:RR1:610:N(R,PL):PL`RRB(PL):630:PL(PS)PL:PLPS:R8:BF1ġkBF0:w ERASEPZPL1:630PLPL1:PL1PLPZ PL11315!:610:" ";::1320#:610:N(R,PL): (DF1:T4TT:1500:TTT:DF0,PS)R1.BN0:PLL1102028BF0:R8:PLPS:LL ERASE BORROW FOR PSjMBF1PLPS1PLPS:1160|NPSPL(PS)ıVPLPL(PS)PS11:RBR(PL,PS)1:RB(PL)R:BR(PL,PS)R:PL(PS)PL:BF01150`625:T4TT:DF1:1500:TTT:DF0:OP01150j5:"^";:M2:DF1:WFBN:TTTX4:1500:DF0:TTT:WF0:OP11050l610:N(R,PL):RR1:630:R8:BF0:PLPS:1500:OP01050M2M3M11060 610:N(R,PL):RR1:630:1100:1030$RR1:610:M3:N(R,PL)M3:RB(PL)R1:PL(PS)PL:BR(PL:500bVT(R):HTPL:*l610:"*";:;q610:"?";:Lv610:" ";:]610:"?";:j BORROWPSPL:PSPL(PS)1010BF0:1100BF1:BN1:630:RRB(PL):610:",";PLPL1:RRB(PL):BN1625,620:RR1::610:N(R,PL):>24:10:K110:BR(N,K)4:K:RB(N)4:PL(N)0:N4BF0N SUBTRACTION PROGRAMX1700jM3M12550zN(R,PL)M3!HTPL:VT(R):M3;$PLPL1:600&M2İ1300:600+M2İ1000:6000M121400,5705600:1450:3000X620N1$(N1):N2$(N2):L11(N1$):L21(N2$)^ sPL0L1:NL11PL:N(5,PL)((N1$,N,1)):PLt xVT1:HTL1:N1; VT:HTL2:N2; VT:HTL22:"-"; VT1:HTL23:N1L25:"-";:N 1950:"SUBTRACTION"; JA3:1600+PL0:R8:N0W' MEANS 'START ":"OVER'"M L::"- - HIT ANY KEY WHEN READY TO GO ON - -"U MA$c N16368,0i Os P4100} Q:10 R: T"INPUT: RATE OF SCAN 1 SLOW, 10 FAST--":"TRY 3 FOR DEMO":R:TTRAR U2000 fK010:N010:N(N,K)0:N,K- n OF THE MULTIPLICATION AND SUBTRACTION PROGRAMS-- "::" C--CARRY":" B-- BORROW":" E--ERASE":" D--DONE (WITH A PARTICULAR STEP)" F:"IN ADDITION, W (WRONG) INDICATES A":"WRONG CHOICE OF TRIAL MULTIPLIER"::"IN THE QUOTIENT STAGE, 'NING" ?::"THE HELPER WILL TYPE IN EACH OF THE 2 #S":"OF THE PROBLEM, THEN THE STUDENT PER-"::"FORMS THE PROBLEM INDEPENDENTLY." @::::"- - HIT ANY KEY WHEN READY TO GO ON - - " AA$ B16368,0: C"ABBREVIATIONS USED HERE ARE THOSE,W" +12,E,0,1,2,3,4,5,6,7,8,9,D1 -1,11,1,10@ .1,14,3,12O /1,14,1,12^ 01,12,1,12z 2R010:VT(R)VT6R:R 7N010:RB(N)1:N >:"THIS PROGRAM ALLOWS THE STUDENT TO "::"PERFORM TRADITIONAL DIVISION"::"BY MEANS OF ONE-SWITCH SCAN" SLOT4X483 N(10,10),ND(40),KQ(20,2)H MN(5,2),MX(5,2)V A$(4,20)` 1605vRB(10),BR(10,10)RA200:H13VT12:HT38( 11,0,1,2,3,4,5,6,7,8,9,W) 14,E,C,0,1,2,3,4,5,6,7,8,9,D,W * 14,E,B,0,1,2,3,4,5,6,7,8,9,D          7?>6>6?27CCCC67776...6--%$''''%%%,,CCCCCCCCCCCCCCCCCCC$'<$$$%,$-,C$%$%%%-,5-...67>67>?/C577755.5-55>>'?7??7???>7?>>6?<$,,$%%%%-5-&%-,=<,<''?<CCCCCCCCC$'$%$%%-,%55-..67677>?7''?>7 -,-,-%--,%%%%%%%%$%,5.67>67>>>67>>7??7??>7?>6>6?C.6.......6677?>7??7???>7?>>6?<$,,$%%%%-5-&%-,=<<<<<<'$,%,$?4%$$%$$%%-CCCCCCCCC$'$%$%%-,%55-..67677>?7''?>7 -,-,-%--,%%%%%%%%$%,5.67>67>>>67>>7??7??>7?>6>6?C >>667>6>>676777?>>>>>>7?>>66?''$<$,%--,$%,%%,,$-,,%'<$$%$%%$,$=$,$%- 5.....65.>>>67665556??<<<$',%,'$C$'$%$%%-,%55-..67677>?7''?>7 -,-,-%--,%%%%%$$$$$$$-----56666666??????$$$,------$$$$6765..5>?'?<$'<$,,%,,,$,<<<<<<'$,$%$$$%$,$%%C .......667?>7??>7777>'<$%$%,,-.%-,CCCCCCCCCCCCCC'$<$,$%,,$!!!!!!.****21 >67>>7??7??>7?>6>6?>6.6555555.CCCCCCCCC61116.CCCCCCC, $?<$''?''<$,, CC6C,CCCCCC''C$$$$$$$>677>?7''?>7 -,-,-%--,C%C$$$$6.C!$$$, >65... .65.....65.>>>676CC$$$ --666??,<''?<C$$$$---6???CC$$$ --6663;? CCC%%%-,$%CCCCCCCCCC$C$$$$---26;?7 $CC65-C2567?''>667C$$$$CCC6666 >66?''$<$,%--,$%,%%,,$-,,%'<$$7?<C$$$$--66??C$$$$---5??7*---  ------,5-...67>67>?/C$$$$---5??75CCCCCC 9??%%-,556.65656CC$$$ --5+6???CCC ??%,,,$,<<<<<<'$,$%$<<$$C$$$$ ---$$6666 666CCCC??>7777>'<$%$%,,@22f2e1d0c/b.a-`,_+^* ] ) C$$,CCC666CCCC???CCC?????66-,$%=>C$$$$---26;?7 16;??/----5556>6??????,,$-%%-555CC$$$ --??<'<$$$$,$%-,--.5-..-%-,-,556     1:1700:YF0:1625% NORMAL SCANJ:23:N1NK:1HZN:A$(N);:N^(SB)1271706s24:1:"^";:M0|DF0WF1:TSTT:1500:WF01500:OP01720DF1M1M1 INPUT POINTS QF123 N1NP:12N:1610GMKK127("A")::7JM1NK:KKK(M)ī1625@TM:VYM1KK1:M(K)MfZKKXKK1w[M2ė:1100]PW0^:M1000,1100,1200,1300,1400,2000,900,1900r SWITCH INTERRUPTtQF01660vHZQZ:::M5M8ġwQF0|YF:1550BBAA:OP1! DF1ı-DF1ıC24:1HZM:" ";OOP1ım"MM1:MNKQFNPQFM1,24:1HZM:"^";1SP16336:N16:Z(SP):N6@ KEYBOARD INPUTSAPZ1ġ:1950COP21650EKK(KY):KP,0FQF04)):Y(0)Y(P(1))R((DI3)(DI1))1AF1:1232K SWITCH SUBROUTINESuN1TS:AA(SA)127:AA(BB)11540DF1AA1OP1:YF11510CC(OP2)((SB)127):DD(KY)127:CCDDOP2CC3DD:1600BBAA:NWF11500OP00:N:1:"MARK OFF WITH ARC AT WHAT CENTER?"EAF3:TP1:1215Ky"INDICATE GENERAL STARTING POINT OF ARC"TS2TT24:1:DIDI1:DI4DI1V$(DI);(SA)12714671500:OP01460"P(2)0:X(0)X(P(1))R((DI2)(DI5  ARCQ"NAME CENTER OF ARC AND A POINT THROUGH WHICH ARC PASSES"Z#TP2i(AF1:1215x TRANSFER MEASURED LENGTH}"MEASURE DISTANCE BETWEEN WHAT TWO POINTS?"TP2AF2:1215N12:AR(N2,K)P(N):NN110M21235TTDTS*AF11257bXX(P(1))(1T)X(P(2))T:YY(P(1))(1T)Y(P(2))Tl1260XX0(T)DX(T)DY:YY0(T)DY(T)DXXXXXPZ:YYYYPZ:1050PZ11275124533:868:TZ(((180T3.14).5)):TZ;:124:15:T$(AF);:1-TS2TT:M3:DI22PWWAF0Ģ24:P$(P(1));" ";P$(P(2));DXX(P(2))X(P(1)):DYY(P(2))Y(P(1)):X0X(P(1)):Y0Y(P(1))24:3:DIDI2PW:DI4DI2AF1ĺU$(DI);:1243UU$(DI);SDI31500:OP01240K)NP ~' LINE THROUGH 2 POINTS-Y"DRAW A LINE THROUGH WHAT TWO POINTS?"gAF0:TP2q1800yT0AF3ıS1(X(P(1))X(P(2))):S2(Y(P(1))Y(P(2))):R(S12S22):R1R1N12:AR(N,K)P(N):N:AF2ıDT(1R)F(XXS)5(YYS)5XSX:YSYU 80:XR,YR:XRXDR(YYS):YRYDR(XSX):3:XR,YRe =XSX:YSY:v L MARK POINT} Q3 VN11:M11:XN,YM:M,N `NPNP1:X(NP)X:Y(NP)Y jLXX618(X268):LYY10(Y10) o1:1 tNPLX,LYyNP(1000A XXX:YYY:XX((DI2)(DI4))RX:YY((DI3)(DI1))RYQ 1050:1030g  PLOT SUBROUTINEt X5X5 X275X275 Y5Y5 "Y155Y155 $0:XX,YY:XX1,YY:3:X,Y:X1,Y &PZ11070 )M21075 * .XXX:YYY: 3 " TS8TT:1500:OP01000B :X110:Y75:XXX:YYY:3:X,YO K0:NP0`  MOVE CUSOR} :12:"**CURSOR**":DF1 TSTT:M1 V$(1)"^":V$(2)">":V$(3)"V":V$(4)"<" 24:1:DIDI1:DI4DI1 V$(DI); 1500:OP01020 M2),X(KX),Y(KX),P(2)  23G "RATE (1-10) (TRY 7)";R:TT207R| ("IS PRINTER TURNED ON? (Y/N) ";Y$:Y$"Y"PF1 CQF0:DF1:WF0  START DF1 K0940 (SA)127915 :"CLEAR SCREEN?? IF YES,HIT SWITCH IF NO,WAITKP16368 DR3:F2( U$(4),UU$(4)_ U$(2)"COUNTERCLOCKWISE":U$(4)"CLOCKWISE " P$(26):N126:P$(N)(("A")N1):N UU$(4)"==>":UU$(2)"<==" T$(0)"**LINE**":T$(1)"**ARC**" 232,0:233,64 KX20:NP(KX),AR(4,KX),M(KX SLOT DEFINED IN LINE#6;"BLOAD ALPHABET":3000i"MAXFILES 1"::625616:D$""::34,20:RX3:RY2:NK8:A$(NK):HZ4CRS,MRK,LNE,ARC,TRF,PRN,NEW,PRON1NK:A$(N):K(N)(A$(N))128:NSLOT4 SA16287:SB16286:KY4:          1VV0HH24H0H0*8HH1:1035FL NUMERATOR,DENOMINATORTQVVM2ıdSM3CD$""tVVV01130~[HH1\AF1HH(2)LF2]VX0:HXH`HHH:1660:"-";:VVM2:HHH:jHHH21140oHLH:HHH:VV0:1660:HHHHL1:"-";:200,1400,1300,900,950,1200,1900,1200,1200,1200,1200= 1666R JF1JF0:1040 VV(JJ)VX:HH(JJ)HX:LN(JJ)LN:HL(JJ)HL:JJJJ11000 PRINT #1660:A$(JA,R,C)!VV1CD$CD$A$(JA,R,C)$HL(HLH(HLH))2.HXH:VXVV 3AF0: ANSWER (FORMAT #2))FT1ı2AF1QHH(1)1:LNLM:VV0:JF1:m BRANCH TO SUBROUTINESw1700A$(JA,R,C)"*"1010M1MS:A$(JA,R,C)SQ$(M)1022M1665MMS10503M1100,1100,1100,1150,1250,1200,1200,1- REPLACE # IN TRUE EQUATION WITH ?Y THIS OPTION NOT PRESENTLY IMPLEMENTEDuM(K(1))1:MRM710~RMMA$B$(M):B$(M)"?": START LINE OVERVV0HHE1LNLN1LN0LN0VV11:HHE1:1660:868:VVVV1vV:CH(36):B$(K);0VV0:V:MD2680>MD0690SMD1ĺ" ";:690L1(B$(K)):L2(B$(K1)):L(L1L2(L1L2))2:L3LL1CH1:N1L:"-";:N:CH1:690" ";SP$(MD);" ";:MD5HE(36)K:MD(KK1)5ĺ" = ";:HE(36)NN:B(N)MD(K1)MD(K1)B(N),4N:NNLıC5NNNL:B(N)0ĂNa:NMN:B$(K)(P$,NN,NMNN)m<NMLı?KK1:NNNM:560X DISPLAY PROBLEMYFT21800]MD(0)0:HH0:H0:KKK:K1KK^VV0bMDMD(K):MD2VV01lMD(K1)2VV0410 NNPN-PNPGNPPR(PN)ī3755:R PROCESS PROBLEM STRING^L(P$)uN1L1:B(N)0:NN1L:M1NS:(P$,N,1)SP$(M)B(N)MM,N&K1L:B$(K)"":MD(K)0:K:K1+NN1:NM10B(NN)0NNNN1:5603NNM(R):R::~PG10Ģ15b"SELECT PAGE AND STARTING PROBLEM USING EITHER KEYBOARD OR SWITCH"JA2:1600:1700:KY127N(A$(JA,R,C)):395NV1SV:2:86822:1:"PG.";N:PNN24:1:"# ??";1700:KY127N(A$(JA,R,C)):R0" [A$^PGcR1PG<hD$;"READ ";W$(N);",R";RmmIN$(R),FT(R),PR(R):P1PR(R):P$(R,P):P,RrD$;"CLOSE ";W$(N)w:"THIS IS A LIST OF THE NUMBER OF PROBLEMS0N EACH PAGE" |R1PG:(1(PG5))R310(R10):320(R10):R;"--";PR$;"CLOSE LIST OF ";V$;" WORKSHEETS":u E"SELECT USING EITHER KEYBOARD OR SWITCH":N1NW:N3:1:N;:3:W$(N);:N JJA2:1600:1700:KY127N(A$(JA,R,C)):337 ON QNNWė:325 TD$: VD$;"OPEN ";W$(N);",L800"YD$;"READ ";W$(N);",IN THE DRIVE AT THIS TIME AND HIT 'RETURN' WHEN READY ";A$O .V$"FRACTION"X 1"*" 6D$;"OPEN LIST OF ";V$;" WORKSHEETS,L100" ;D$;"READ LIST OF ";V$;" WORKSHEETS,R0" @NW:N1NW BD$;"READ LIST OF ";V$;" WORKSHEETS,R";N:W$(N):N% DD300 P$P$(PN,NP): "PAGE ";PN;" #";NP;" ";IN$(PN)H FTFT(PN)V 500:600e JA1:1600 LN0:VV0:HHE1:JJ1:HXH:HLH:AF0 DF0:JF0 1035 , INPUT PROBLEMS= -:::"IF PROBLEMS ARE ON AN AUXILIARY DISK, PLEASE PLACE IT i2000A n:"IS THE PRINTER TURNED ON (Y/N)? ";Y$:Y$"Y"PF1O oPF0115 pD$;"BLOAD SCREEN PRINTER":: SC.PTR.BLOADS INTO $300--$340 s: x"INPUT: RATE OF SCAN 1 SLOW--10 FAST--":"TRY 5 FOR DEMO":R:TTRAR START :1605 ),%)! %MS18:M1MS:SQ$(M):M6 (/,+,-,=,X,%,(,)? )NS9a *SP$(1)" ":N2NS:SP$(N):N + 28,7,ER,NUM,0,4,8,+,+),ANS,DEN,1,5,9,-,-),*,V,2,6,=,X,X),PRN,CD,3,7,S,%,%) , 20,5,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 d START  SLOT4!D$"": CNTRL-D= B(100),B$(100),MD(100)N A$(2,10,20)[ SQ$(20) VV(100),HH(100),LN(100),HL(100)W$(30),P$(10,50)RA150H17:SH5:V121:SV1H03:V05:LS4 $NUM,W,DEN,V,=,+,-,X,PRN,ER,S,ANS,%,CD,+),-),X          @:"NOTE: DEPENDING ON THE MONITOR OR T.V. USED, ANGLES DRAWN MAY BE SLIGHTLY DISTORTED."V23:" - - - HIT ANY KEY TO GO ON - - -"VA$V16368,0: CLEARS THE SCREEN AND STARTS OVER":U " PRO 'PROTRACTOR' LETS THE STUDENT DRAW A LINE AT A SPECIFIED ANGLE TO ANOTHER LINE"U :" PRN 'PRINT' GIVES A PRINTOUT OF THE STEPS USED IN THE CONSTRUCTION"[V :THE COMPASS GOES, AND WHICH POINT THE ARC PASSES THROUGH"NT :4000::T " TRF 'TRANSFER'.THIS OPTION ALLOWS THE STUDENT TO TRANSFER THE DISTANCE BETWEEN TWO POINTS AS IF BY MEANS OF A COMPASS":.U " NEWION"::" LNE 'LINE'.DRAW A LINE BETWEEN ANY TWO POINTS WHICH HAVE BEEN MARKED AND LABELED"?T :" ARC 'ARC'.THIS IS THE 'COMPASS' OF THE PROGRAM.TWO POINTS ARE NEEDED TO TELL WHERE THE POINT OF NG SWITCH #1"R 4000R ::"CONTROL OPTIONS ARE AS FOLLOWS:"::" CRS 'CURSOR' THE STUDENT HOLDS DOWN SWITCH #1 TO MOVE THE 'CURSOR' IN THE DIRECTION INDICATED "qS :" MRK 'MARK' AND LABEL A POINT AT THE CURSOR POSITOTS AND LABELS POINTS, CONNECTS PAIRS OF POINTS WITH LINES, ETC.": R "THE STUDENT MOVES HIS 'PENCIL' BY MEANS OF SWITCH #1"::"SWITCH #2 IS USED TO CALL UP A MENU OF CONTROL OPTIONS DESCRIBED BELOW"::"THESE OPTIONS ARE SELECTED BY SCANNING, USIP*P ::" * * * GEOMETRY * * * "P :"THIS PROGRAM ALLOWS THE STUDENT TO PERFORM RULER-AND-COMPASS CONSTRUCTIONS OF PLANE GEOMETRY BY MEANS OF TWO SWITCHES.":DQ "THE HIGH RESOLUTION SCREEN IS THE'PAPER'ON WHICH THE STUDENT PL     N ( CLEAR BOTTOM OF SCREENIN24211:N:1:868:N:V` CARRYjj 1665:HSH:VSVt HH(AD3)(VSUU3):VUU:1660y 830~ 125,0:126,2:MB$:MB$(128("."))HH1 VV1:1666 1750:N02460 N3İ1665:24701660:"?";:# NORMAL SCANDV1SV:H11:">";:R1:C1RQF0:DF0tWF1:T1.5TT:1500:WF0:TTT~1500OP21700R0R0 GET CHARACTER,CHECK IF SPECIAL 1700:1665NSQ11:SQ$(N)A$(JA,R,C)1770"::T SET WINDOW AND CLEAR IF MORE THAN ONE ARRAY USEDDU1950\YSH(39(CC(JA)1))^K01KA(JA):R(KCC(JA)):CKRCC(JA):H1(C1)SH:V1RSV:A$(JA,R,C);:Khr CURSOR LOCATOR |V:H:1660:" ";:1660:"*";:RRR(JA))OP2:2,V1SVR:H1SH(C1)1:">";R1SP16336:N16:Z(SP):N\61503o@ ARRAY PRINTyA1620E INITJJA03:KA(JA):CC(JA):K01KA(JA):R(KCC(JA)):CKRCC(JA):A$(JA,R,C):KLRR(JA)ROJAPA$(1,1,4)",(BB)11540((SB)127QF1OP3:9DF1AA1ıFBBAA:NUWF11500dOP0:1550sBBAA:OP1DF1ıV1SVR:H1SH(C1)1:" ";OP01570RF1WF1ıRF1:C0C0 1505"CCRF:RRRF:(C1CC(JA))(L1(T$):NC1L1:(T$,NC,1)C2$530/NC:DNC1L$"":540VL$(T$,NC1)mNCL1RT$"":550!RT$(T$,L1NC)&T$L$C$RT$:520 SWITCH SUBROUTINESRF0N1TKY(16384):KF0KY127ġ: AA(16287)127:AAIS WORKSHEET HAS ";PG;" PROBLEMS."::e|"SELECT STARTING PROBLEM USING EITHER KEYBOARD OR SWITCH"JA3:1600:1700:KY127N(A$(JA,R,C)):410NV1SV:2:868RNN:KF0RNPGī375225 REPLACE OR REMOVE CHARACTER%KY127N(A$(JA,R,C)):337#ON+QD$<T:W$V$(N)MU216,0:305hVD$;"OPEN ";W$;",L800"YD$;"READ ";W$;",R0"^PGcR1PGhD$;"READ ";W$;",R";RmLR(R):L1LR(R):1nL,RrD$;"CLOSE ";W$s10000w&y"THV$"STORY PROBLEM WORKSHEET ")/:310c1:10000:"THAT WORKSHEET # IS NOT ON THIS DISK"::w2D$;"CLOSE ";W$6"WHAT WORKSHEET DO YOU WANT TO WORK?"::"GIVE THE NUMBER USING EITHER KEYBOARD ORSWITCH "@KF1:16368,0JJA3:1600:1700:OARD? (D/K) ";Y$:Y$"K"4000& 300, 2 O L1LR(RN):L$(RN,L):LZ QVL1d 4100z , INPUT PROBLEMS -:::"IF PROBLEMS ARE ON AN AUXILIARY DISK, PLEASE PLACE IT IN THE DRIVE AT THIS TIME AND HIT 'RETURN' WHEN READY ";A$.)"+":AD$(2)"-":AD$(3)"X"' d START1 i5000k n:"IS THE PRINTER TURNED ON (Y/N)? ";Y$:Y$"Y"PF1s s: x"INPUT: RATE OF SCAN 1 SLOW--10 FAST--":"TRY 5 FOR DEMO":R:TTRAR 1605 START  "INPUT PROBLEM FROM DISK OR KEYBWER,$,TOTAL,/,SUBTOTAL,=,REMAINDER,PERd / 20,5,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 2V$(1)"^":V$(2)">":V$(3)"V":V$(4)"<" 3CM$(1)",":CM$(2)".":CM$(3)";":CM$(4)"?":CM$(5)":":CM5 4N15:CM$(N)(128(CM$(N))):N 7AD$(1SQ:SQ$(M):MQ ( CURSOR,ADD,LABEL,SUBTRACT,NUMBER,MULTIPLY,PRINT,DIVIDE,ERASEm )NS9:N1NS:SP$(N):Nw * 9,3 + CURSOR,ADD,SUBTRACT,LABEL,MULTIPLY,DIVIDE,NUMBER,ERASE,PRINT ,20,5,E,0,4,8,$,C/M,1,5,9,#,>,2,6,SH,.,DN,3,7,WR,/& - 8,2,ANS A$(3,10,20) SQ$(20)A VV(100),H(100),LN(100),HL(100)W W$(30),P$(10,50)b RA150{ H12:SH5:V121:SV1 H03:V05:LS4 V11:H18:VSV:HSH N16:H(N)312(N13(N3)):V(N)105(N3):N $>,C/M,E,DN,WR,SH %SQ6:M1&SLOT4:2^DL(125):DH(126):1:"?";:888:126,2:125,0:L$(R,L):126,DH:125,DL:vD$"":QV8:10000D$;"NOMON I,C,O"D$;"BLOAD SCREEN READER"HE(50),VE(50),LE(50),KE(50) SA16287:SB16286 B(100),B$(100),MD(100)                (4);"RUN ";A$(N): 1NS3 2N1NS:A$(N):N<<DB COPY,AUX MAKE,HELLOjd:5:"* * * DISK UTILITIES * * *"::n"SELECT ONE: ":x" 1. COPY THIS DISK "::" 2. INITIALIZE AN AUXILIARY DISK"::" 3. RETURN TO MENU"::"??? ";N NNSN1130*",325615164,0: AUTOSTART CHECK BITX :2:" * * * AUXILIARY DISK * * *"`:"THIS DISK CONTAINS NO PROGRAMS"::"TO RUN PROGRAMS, INSERT A PROGRAM DISK AND HIT 'RESET'"1 6B0,48: SPEEDUP INIT ;:"FORMATTING..." @B11,S2:B12,D2:B112,4:A3:INIT JA2: WRITE D,325615164,0: AUTOSTART CHECK BITX :2:" * * * AUXILIARY DISK * * *"`:: * * *"`:`: AUXILIARY DISK * * O INITIALIZE ANOTHER? ";Y$0 Y$"Y"Ĺ7,0:1606 Q , INIT,WRITE DOS,PATCHk 6B0,48: SPEEDUP INIT ;:"FORMATTING..." @(4);"INIT HELLO" JA2: WRITE DOS TA4: PATCH ^6,0:,0:9,3:A1:9,35y , INIT,WRITE DOS,PATCHT RETURN .... ";A$ :10% 300? SAVE HELLO PROGRAM Y HELLO(AUX) IMBEDDED AA6167: BEGINNING OF PROGRAM POINTER AA,1:AA1,15 (4);"SAVE HELLO" AA1,8 :"THE AUXILIARY DISK HAS BEEN INITIALIZED ":"DO YOU WANT TRAMS, BUT IS USED IN CONJUNCTION WITH DISKS WHICH DO."E ::A$ :3:"AT THIS TIME, REMOVE THE PROGRAM DISK AND INSERT A BLANK DISK"::"HIT RETURN WHEN READY ";A$ "DOUBLE CHECK-- THE DISK NOW IN THE SLOT SHOULD BE BLANK": "HIXILIARY DISK WITH ANY PROGRAM THAT WRITES AND RETRIEVES DATA FROM DISK.": x"I.E. THIS DISK CAN BE USED TO STORE:"::" DRAWINGS":" WORD LISTS":" WORKSHEETS":" TEXT FILES":9 :"THE AUXILIARY DISK DOES NOT ITSELF CONTAIN ANY PROG)' 4S1(C31):D1(C32):S2S1:D2D16 F LOAD DOSg K2,S1:3,D1:4,S2:5,D2:6,0:7,0:8,16:9,3 PAX,96:N15:AXN,0:N UA1 d:2:"* * * AUXILIARY DISK CREATE * * * "::M n"THIS PROGRAM WILL INITIALIZE A DISK TO BE USED AS AN AU(4);"MAXFILES 1"6(4);"BLOAD COPY,A$9810"U(4);"BLOAD PATCH,A$9300"i 64096:54096A038928:A1A03:A2A06:A3A09A437632:AX39244B0488172C0995 3C1(C01)256(C02):C2(C04)256(C05):C3256(C1)(C2     >J>LJ>LKVUL)?L`8'x0|L&HhHh VLYK'&YKxKꪽ' `Hh`80^݌Hh Ö Ö݌ Ֆ Ֆ ՖA ĖD Ė? ĖAEDE?HJ>h Ԗ Ֆ Ֆ Ֆ`HJ>݌h Hh݌`X Iɪ꽌ɵ (I٠**<%<(=о<Y < <Y <&，Y Ѝ`= <$<&<ʊ 栙 + 'A@ ?> b e=MA=>??l>2 JJJ? =? @ P >? =? @ `+>AD`꽎P) +V `꽌Iɪ꽌ɵ*<%<=( V *`    :" !% $( 7 7#0`L `PROGROO LARGNOT E 2 :8 0е`8`` TEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLF` LLLҘL   8LiF0` 8 08L ` `   e 0 Ɇ0`   e#H h   " !% $( 7 7#0`L$(I`$(ɠ LP @(ɠ`$(I(` q`#8H $(*)+!h8"0 H $(*0" $ `$' @