' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6L:5 & "L}"BB5L&]66 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`7`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"_*]6` L/5553L3  !"#$%&'()*+,-./0123456789:;<=>?80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L6 i:5`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmxҠ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n555m5555m555`"L? 585H ~.(3` d ֠z#ͮЍĠ΍ǠǠҠŠԮŠӠɠŠΠҍĠҠΠΠɠٍͮɠĠԠҠϠҍԠɠŠĠΠԍɠŠĮԠӠΠϠΠȍӍԠԠӠĠύ٠ȍŠӠƠ͠ύƠӠɠˠԠԮƠɠĠ͍ɍŠϠРŠōĠԠϮǠҠӠŠōϠŠΠǠҮɠĠԠɠŠčҠΠɠ͠ȠٍӮɠΧԠĠǠ΍ӮɠҠӠɠҠҍΠӠɠĮɠΠҠ٠Ǡ΍٠ǮԠӠ٠ҠŠϠ̠ԍŠӠԠɠ׮ԠӠԠҠΠɠԠϠŠӮɠΠȠҠ͠ΠӠΠΠӮƠɠŠϠŠǍɠˠҠŠҠҍӮΠȠӠŠҠҠŠϠϠΠ̠ӮɠŠϠŠӠҍΠҠŠ΍ϠԠΠԮΠӠŠ٠ҍŠϠ׮ɠҠŠƠԠɠ΍ƠɠΠԠŮɠϠ̠ΠӠŠԍƠŠΠӠϠōĮɠĠ٠ǠΠ̍ҠӍҠĠҠĠŠҍ͠ҠΠǠ͍ҠĠҮɠϠ٠ԠˠΠЮɠĠȠ͠ԍӠΠΠҠ΍ŠɠҮΠРԍɠčҠŠԠҠԠƠŠӍˠϠŠΠƠɠčԠ٠ϠƮɠΠԠΠɠ٠ŮΠɠŠŠΠǠĠǍɠٍĮɠĠҠٍ̠ΠŠԮǠŠΠ͠ήɠҠϠˠȠЍΠŠӠˠϠŠŮȠҠԠƠӠӍҠҠŠϠĠ΍ǠŠӠĮǠǠĠ̍ӠӠŠҠԍҮɠΠϠˠ٠ƮɠĠҠĠٍΠΠϠԠĮɠĠҠנĠ΍נǠӠΠōԠנԠӮƠŠӠŠōӠϠčɠΠٍԠŠԠҠԍǠΠΠӍӮɠĠȠ͠ԍӠΠΠҠΠōԠɠҮɠϠҠΠɠΠōŠҠĠƠǍϠ٠ԮɠĠΠӍҠΠΠӮɠŠԠŠΠɠˍŮɠҠԠɠŠčҠΠԠɠōĮΠɠҠӍɠ΍٠ŠҠҠΠɍΠŠԮΠɠϠȠӠΠٍčɠ٠ŠӠύƮɠ٠ǠӠҠ٠ӍӠŠϠҠԠɍŠĮɠΠŠԠԠƠōӠɠנҠΠɠ΍̠ԠͮΠɠ٠ԠϠčԠɠŠčɠĠԍ٠ϠƮɠԠ  ҠŠĮЍŠԮŠӠɠŠΠҍĠҠΠΠɠ٠ͮɠĠԠҠϠҍԠɠŠĠΠԍɠŠĮԠӠΠϠŠӍȠҠōԠԠӠčϠԠȠĠȍƠӠɠˠԠԮƠɠĠ͍ɍŠϠРŠōĠԠϮǠҠӠŠōϠŠΠǠҮɠĠԠɠŠčҠΠɠ͠Ġ΍ǠǠҠΧԠĠǠ΍ӮɠҠӠɠҠҍΠӠɠĮɠΠҠ٠Ǡ΍٠ǮԧӠ٠ҠŠϠ̠ԍӠɠ׮ԠӠԠҠΠɠٍŠӠƠ͠ύΠȠҠ͠ΠӠΠ͠΍ӮƠɠŠϠŠǍɠˠҠŠҠҍӮΠȠӠŠҠҠŠϠϠΠ̠ӮɠŠϠŠӠȠٍӮɠ΍ҠԮΠӠŠٍҠŠϠ׮ɠҠŠƠԠɠ΍ƠɠΠԠΠɠ͠ŮɠϠ̠ΠӠŠԍƠŠΠӠϠōĮɠĠ٠ǠΠ̍ԮɠҠĠŠҍ͠ҠΠǠ͍ҠĠҮɠϠ٠ԠˠΠЮɠĠȠ͠ԍӠΠΠҠ΍ŠɠҮΠРԍɠčҠŠԠҠҍΠҠŠĠĠΠƠɍĠԠ٠ϠƮɠΠԠΠɠ٠ŮΠɠŠŠΠǠĠǍɠٍĮɠĠҠٍ̠ΠŠԮǠŠΠӍҠĠήɠҠϠˠȠЍΠŠӠˠϠŠŮȠҠԠƠӠӍҠҠŠϠĠ΍ǠŠӠĮǠǠΠӠōҠԠҮɠҠҠƠɠҠˠ٠ƮɠĠҠĠٍΠΠϠԠĮɠĠҠנĠ΍נǠӠΠōԠנԠӮƠŠӠŠōӠϠčɠΠٍԠŠԠҠԍǠ͠ǠӍӮɠĠȠ͠ԍӠΠΠҠΠōԠɠҮɠϠҠΠɠΠōŠҠĠƠǍϠ٠ԮɠĠΠӍҠΠΠӮɠŠϠˠŠΠɠˍŮɠҠԠɠŠčҠΠԠɠōĮΠɠҠӍɠ΍٠ŠҠҠΠɍΠŠԮΠɠϠȠӠΠٍčɠ٠ŠӠύƮɠ٠ǠӠҠ٠ӍӠŠϠҠԠɍŠĮɠΠŠԠƠŠӠɍנԠҠΠɍΠ̠ԠͮΠɠ٠ԠϠčԠɠŠčɠĠԍ٠ϠƮɠԠ         5'"SORRY, THERE IS NO DATA FOR CLASS # ";NN:::L'X0:"CLASS # ";NNY'\II1KCy'L1$(NN,II);", ";E1$(NN,II)'$II'p:(4);"PR#0"'ԭ:(4);"BLOAD CHAIN,A520,D1":520"LOADER,D1"2"EDITOR,D1"&@:(4);"PR#1"0&J:(9);"80N"w&T28)"EDUCATIONAL ACTIVITIES.":EE179:"-";:::I0:NFL143000&^X0:NN19:CKCJ(NN):CK0İ42000:40255&hX0:"CLASS # ";NN:I1CK&rL1$(NN,I);", ";E1$(NN,I)&I::&?NN'D44400^T^U^R^N WHEN YOU ARE READY.":10000:361006%ћ10010%ܛ:3:1:1:"^DO YOU WISH TO MOVE ANY MORE FILES?":"(^Y OR ^N): ";:16368,0:A$:A$"Y"A$"N"39900%C$"^"A$:C$%⛡%曭A$"Y"ī2 &A$"N"İ10000::(4);"BLOAD CHAIN,A520,D1":520R22ĺ:(4);"OPEN FILE";NN;",L60,D2"{$̛:(4);"WRITE FILE";NN;",R";RE:LN$:NA$:X19:SA(X):::(4);"CLOSE FILE";NN+%͛R21İ36000:"^PLEASE REMOVE THE ^D^A^T^A DISK":"FROM THE DRIVE AND REPLACE":"IT WITH THE ^P^R^O^G^R^A^M DISK.":"^PRESS ^R^E:(4);"OPEN FILE";NN;",L60,D1"::(4);"WRITE FILE";NN;",R0":NS::(4);"CLOSE FILE";NN#țR22ĺ:(4);"OPEN FILE";NN;",L60,D2"::(4);"WRITE FILE";NN;",R0":NS::(4);"CLOSE FILE";NN#ɛNS039885#ʛR21ĺ:(4);"OPEN FILE";NN;",L60,D1"%$˛9900"R21İ20000:10000."10000:30000>"NS139865i"R21ĺ:(4);"OPEN FILE";NN;",L60,D1""R22ĺ:(4);"OPEN FILE";NN;",L60,D2"":(4);"READ FILE";NN;",R";NS:LN$:NA$:X19:SA(X):::(4);"CLOSE FILE";NN"NSNS1Z#R2100:36100`!10010::3:1:1:"^"F2$;" ";"^"N2$;" HAS NOW BEEN":"MOVED TO CLASS # ";SU;"."!5:"^DO YOU WANT TO DELETE THIS STUDENT":"FROM CLASS # ";NN;"? ^PRESS (^Y OR ^N): ";!16368,0:A$:A$"Y"A$"N"39846"C$"^"A$:C$:A$"N"3;SU;",L60,D2"/ :(4);"WRITE FILE";SU;",R0"= CTSK:CTY :(4);"CLOSE FILE";SU !R21İ36000:"^PLEASE REMOVE THE ^D^A^T^A DISK":"FROM THE DRIVE AND REPLACE":"IT WITH THE ^P^R^O^G^R^A^M DISK.":"^PRESS ^R^E^T^U^R^N WHEN YOU ARE READY.":100K1.dR21ĺ:(4);"OPEN FILE";SU;",L60,D1"YnR22ĺ:(4);"OPEN FILE";SU;",L60,D2"}x:(4);"WRITE FILE";SU;",R";SKN2$:F2$:X19:SA(X)::(4);"CLOSE FILE";SUR21ĺ:(4);"OPEN FILE";SU;",L60,D1" R22ĺ:(4);"OPEN FILE"E THE ^D^A^T^A DISK":"FROM THE DRIVE AND REPLACE":"IT WITH THE ^P^R^O^G^R^A^M DISK.":"^PRESS ^R^E^T^U^R^N WHEN YOU ARE READY.":10000:36100ZNQ0İ10010::3:1:1:"^SORRY, THAT NAME IS NOT IN THE":"FILE FOR CLASS # ";NN;".":6000:39900_SKS(4);"OPEN FILE";NN;",L60,D1"I2R22ĺ:(4);"OPEN FILE";NN;",L60,D2"V7RE1NSy<:(4);"READ FILE";NN;",R";REFL$:N$:L$N2$N$F2$āX19:SA(X)::NQ1:39760KRE:NQ0P:(4);"CLOSE FILE";NNUNQ0ĭR21İ36000:"^PLEASE REMOVA":L3$"Z":MAX10:X20:Y7:21000:N2$N$9⚭R21İ20000R10000:30000:25000}R21ĺ:(4);"OPEN FILE";NN;",L60,D1"R22ĺ:(4);"OPEN FILE";NN;",L60,D2" :(4);"READ FILE";NN;",R0"CT:NSCT:(4);"CLOSE FILE";NN(R21ĺ: OF THE STUDENT":"WHOSE RECORDS YOU WISH TO MOVE FROM":"CLASS # ";NN;" TO CLASS # ";SU;",":"THEN PRESS ^R^E^T^U^R^N: ";L2$"A":L3$"Z":MAX10:X20:Y4:21000:F2$N$Ě1:6:"^TYPE THE STUDENT'S LAST NAME,":"THEN PRESS ^R^E^T^U^R^N: ";(ΚL2$"Y IN THE CLASS FILES,":"PRESS ^O.":WFL1aL16368,0:A$:A$"1"A$"9"ĭA$"0"A$"O"39500VWFL1ĭA$"0"A$"O"Đ:3:1:1:WFL0:10WWFL0ĭA$"0"A$"O"NFL1`A$"0"A$"10"NN(A$)aWFL0ız:3:1:1:"^TYPE THE FIRST NAMED1":520"EDITOR,D1"Qp10010::3:1:1:"^CLASS # ";SU;" NOW IN MEMORY.":6000)Ԕ:3:1:1:"^NOW TYPE THE NUMBER OF THE CLASS":"WHERE THE STUDENT IS PRESENTLY":"LOCATED. ^CLASSES ARE NUMBERED 1":"TO 9. ^IF YOU WISH TO REVIEW THE":"NAMES PRESENTL0:36100ӐSK12538000ؐSK125İ36000:"^THIS CLASS FILE IS FULL. ^DO":"YOU WISH TO TRY ANOTHER":"^CLASS? (^Y OR ^N): ";:10000␹16368,0:A$:A$"Y"A$"N"37090C$"^"A$:C$琭A$"Y"2萭A$"N"İ10000::(4);"BLOAD CHAIN,A520,;SU;",L60,D2".:(4);"READ FILE";SU;",R0"<ĐCT:SKCTXΐ:(4);"CLOSE FILE";SUҐR21İ36000:"^PLEASE REMOVE THE ^D^A^T^A DISK":"FROM THE DRIVE AND REPLACE":"IT WITH THE ^P^R^O^G^R^A^M DISK.":"^PRESS ^R^E^T^U^R^N WHEN YOU ARE READY.":1000OU WISH TO ^M^O^V^E THE STUDENT: ";J16368,0:A$:A$"1"A$"9"37005WSU(A$)1:7:"^READING CLASS FILE # ";SU;" INTO MEMORY.":6000R21İ2000010000:30000R21ĺ:(4);"OPEN FILE";SU;",L60,D1" R22ĺ:(4);"OPEN FILE" ERROR.":"^PLEASE CHECK THE DRIVE DOOR":"OR SEE IF YOU HAVE THE":"CORRECT DISK INSERTED.":6000:10000:010010::3:1:1:16368,0:A$:A$(13)36100h#"^CLASSES ARE NUMBERED 1 TO 9.":"^TYPE THE NUMBER OF THE CLASS TO":"WHICH YRPdU1ī25590$(dNFL126000,,eNN2e[0uR21ĺ:(4);"VERIFY CODEFILE,D1"::uR22ĺ:(4);"VERIFY CODEFILE,D2":Du216,0:16368,0Gu10010HuCOCO1:CO3CO0:10000::(4);"RUN LOGO,D1"lIu:3:1:1:"^YOU HAVE GENERATED AN0āNN19:CKCJ(NN):CK0CK125900<cNFL10CK226000FcKCCK_cU0:CKCK1:RP1CKdL1$(NN,RP)L1$(NN,RP1)25620 dSW$L1$(NN,RP):L1$(NN,RP)L1$(NN,RP1):L1$(NN,RP1)SW$:SW$E1$(NN,RP):E1$(NN,RP)E1$(NN,RP1):E1$(NN,RP1)SW$:U1d:CK0255007 bR21ĺ:(4);"OPEN FILE";NN;",L60,D1"bbR22ĺ:(4);"OPEN FILE";NN;",L60,D2"o bRE1CK*b:(4);"READ FILE";NN;",R";RE4bL$:L1$(NN,RE)L$:E$:E1$(NN,RE)E$>bREHb:(4);"CLOSE FILE";NNRbNFL125570cNN%cNFLL0āNN196aR21ĺ:(4);"OPEN FILE";NN;",L60,D1"aaR22ĺ:(4);"OPEN FILE";NN;",L60,D2"a:(4);"READ FILE";NN;",R0"aCT:CKCTa:(4);"CLOSE FILE";NNaNFL1CK0ī26000aNFL125100aCJ(NN)CK:NNbNN19 bCKCJ(NN)$N$A$:2101050RX1X11:Y:X1:A$:N$N$A$:21010HDR(N$)021010|IR(N$)1Ē0:Y:X1:"^";N$:X1X:7:N$"":21010NR(N$)1Ē0:Y:X1:N$:X1X:7:N$"":21010XRA$(N$,1):N$(N$,(N$)1):0:Y:X1:A$:Y:X1:" ":X1X11:7:21010 aNFRE READY."*N361004/N1:8:"^S^O^R^T^I^N^G...":4NIRX1X:N$""dR16368,0:Y:X11:A$~RN$""A$(13)21010RA$(13)ıRA$(8)21060#RA$L2$A$L3$21010&R(N$)MAX21010+RN$""(A$"@"A$"Z")X1X:Y:X1:"^";A$:N(32)6010>'54,189:55,158:43603,240:43604,253:j'54,237:55,148:43603,237:43604,148:  N:3:1:1:"^PLEASE REMOVE THE ^P^R^O^G^R^A^M DISK":"FROM THE DRIVE AND REPLACE":"IT WITH THE ^D^A^T^A DISK.":"^PRESS ^R^E^T^U^R^N WHEN YOU A"A$"N"4010 C$"^"A$:C$A A$"Y"NFL0:PF0:WFL0:10O A$"N"2V 2 :3:1:1:"^SORRY, THERE IS NO DATA ENTERED":"IN THE FILE FOR CLASS ";NN;".":6000: p4:12:"^PRESS THE ^S^P^A^C^E ^B^A^R TO CONTINUE." z16368,0:A$:A$ :3:1:1:"^CLASS # ";NN:X04 II1KC:XX1\ "^"L1$(NN,II);", ";"^"E1$(NN,II) X10X0:6000::3:1:1:"^CLASS # ";NN II:6000 :3:1:2:"^DO YOU WISH TO SEE ANY MORE":"CLASS FILES? (^Y OR ^N): "; 16368,0:A$:A$"Y1205+ ZX0::3:1:1:NN19:CKCJ(NN): _:3:1:1O dCK0İ5000:130g i"^CLASS # ";NN:X0s nI1CK x"^"L1$(NN,I);", ";"^"E1$(NN,I):XX1:X9X0:6000::3:1:1:"^CLASS # ";NN }I ~6000 NN:4000 KC0İ5000:4000!00:25000 FR21İ36000:"^PLEASE REMOVE THE ^D^A^T^A DISK":"FROM THE DRIVE AND REPLACE":"IT WITH THE ^P^R^O^G^R^A^M DISK.":"^PRESS ^R^E^T^U^R^N WHEN YOU ARE READY.":10000:36100 JPF1ĺ"^P^R^I^N^T^I^N^G...":10000:40000 K10010 PI0:NFL$"P"20 C$"^"A$:C$, A$"P"PF1 :3:1:1:"^CLASSES ARE NUMBERED FROM 1 TO 9.":"^TYPE THE NUMBER OF THE FILE YOU":"WISH TO SEE, OR TYPE ^O TO SEE":"THE ENTIRE FILE." (39500 9"^S^O^R^T^I^N^G..." :R21İ20000 <10000:300 30020<38210,14:975,0:783,64:232,170:233,149R:3:10010:1:1xFLAG0:NFL0:CK0:KC0:PF0:WFL037000 "^DO YOU WISH TO SEE THE CLASS FILES":"ON THE SCREEN OR ON THE PRINTER?":"(^S OR ^P): "; 16368,0:A$:A$"S"A                     0000::(4);"RUN LOGO,D1"u:3:1:1:"^YOU HAVE GENERATED AN ERROR.":"^PLEASE CHECK THE DRIVE DOOR":"OR SEE IF YOU HAVE THE ":"CORRECT DISK INSERTED.":6000:10000:010010::3:1:1:16368,0:A$:A$(13)36100h2O,D1".cR22ĺ:(4);"OPEN FILE";N;",L60,D2"Oc:(4);"WRITE FILE";N;",R0"W$cCTr.c:(4);"CLOSE FILE";Nx8c0uR21ĺ:(4);"VERIFY CODEFILE,D1":uR22ĺ:(4);"VERIFY CODEFILE,D2":u216,0:16368,0:10010uCOCO1:CO3CO0:1 ARE READY.":10000:36100 bJbR21ĺ:(4);"OPEN FILE";N;",L60,D1"tbR22ĺ:(4);"OPEN FILE";N;",L60,D2"b:(4);"WRITE FILE";N;",R";CKbLN$:FF$:X19:SA(X):b:(4);"CLOSE FILE";NbCTCKcR21ĺ:(4);"OPEN FILE";N;",L60b:(4);"READ FILE";N;",R";IIGbL$:NA$:NA$A1$L$A2$YT1:25240ObIIjb:(4);"CLOSE FILE";NbR21İ36000:"^PLEASE REMOVE THE ^D^A^T^A DISK":"FROM THE DRIVE AND REPLACE":"IT WITH THE ^P^R^O^G^R^A^M DISK.":"^PRESS ^R^E^T^U^R^N WHEN YOU",L60,D1"3aR22ĺ:(4);"OPEN FILE";N;",L60,D2"Sa:(4);"READ FILE";N;",R0"aaCT:CKCT|a:(4);"CLOSE FILE";NaR22ıaR21İ25250:pbR21ĺ:(4);"OPEN FILE";N;",L60,D1"zbR22ĺ:(4);"OPEN FILE";N;",L60,D2"bII1CK7:21010Y10010::3:1:1:"^PLEASE REMOVE THE ^P^R^O^G^R^A^M DISK":"FROM THE DRIVE AND REPLACE":"IT WITH THE ^D^A^T^A DISK.":"^PRESS ^R^E^T^U^R^N WHEN YOU ARE READY."Y16368,0:A$:A$(13)23010Ya aR21ĺ:(4);"OPEN FILE";N;X:Y:X1:"^";A$:N$N$A$:21010G0RX1X11:Y:X1:A$:N$N$A$:21010ZDR(N$)021010IR(N$)1Ē0:Y:X1:"^";N$:X1X:7:N$"":21010NR(N$)1Ē0:Y:X1:N$:X1X:7:N$"":21010 XRA$(N$,1):N$(N$,(N$)1):0:Y:X1:A$:Y:X1:"":X1X11::55,158:43603,240:43604,253:L'54,237:55,148:43603,237:43604,148:[RX1X:N$""vR16368,0:Y:X11:A$RN$""A$(13)21010RA$(13)ıRA$(8)21060#RA$L2$A$L3$21010&R(N$)MAX21010 +RN$""(A$"@"A$"Z")X1о;p4:11:"^PRESS THE ^S^P^A^C^E ^B^A^R TO CONTINUE."]z16368,0:A$:A$(32)6010cv(#R9R0:CC12#3:3R:XY(C)<#JWJW1:RR1:TT(JW)(A$)F#%0:2R:XY(C):TT(JW)&%RR1:JWJW10%R0R9:CC1:% '54,189)TT(31)TT(39))2):SA(5)((TT(1)TT(18)TT(26)TT(34)TT(42))2):SA(6)((TT(4)TT(12)TT(20)TT(28)TT(45))2)SA(7)((TT(8)TT(16)TT(24)TT(32)TT(40))2):SA(8)((TT(6)TT(14)TT(22)TT(30)TT(38))2):SA(9)((TT(2)TT(10)TT(27)TT(35)TT(43))2)0"EDITOR,D1"A$"Y"5Sx10000::(4);"BLOAD CHAIN,A520,D1":520"EDITOR,D1"SA(1)((TT(5)TT(21)TT(29)TT(37)TT(13))2):SA(2)((TT(9)TT(17)TT(25)TT(33)TT(41))2):SA(3)((TT(3)TT(11)TT(19)TT(36)TT(44))2)oSA(4)((TT(7)TT(15)TT(2310010:KK125CK::3:1:1:"^CALCULATIONS COMPLETED. ^YOU MAY":"ADD ";KK;" MORE RECORDS TO THIS":"CLASS. ^DO YOU WISH TO ADD":"MORE? (^Y OR ^N): ";16368,0:A$:A$"Y"A$"N"1250C$"^"A$:C$ A$"N"ĺ:(4);"BLOAD CHAIN,A520,D1":52W451100G1050AL2:13:"^IS THIS CORRECT? (^Y OR ^N): ";MMCKCK1uV16368,0:A$:A$"Y"A$"N"1110WC$"^"A$:C$`A$"N"CKCK1:91jLN$A2$:FF$A1$:4000tR21İ23000~10000:30000:25300R21İ10010:252503:1:1:"^NAME: ";"^"A1$;" ";"^"A2$4YY3:XX2uJJ145:XX:YY:HHHH1:"#";JJ;" ":HH9HH0:XXXX7:YY2YYYY1:JJ16368,0:A$:(A$"1"A$"4")A$"R"1050A$"R"JW01050$A$"R"İ9500:1080.90008TT(JW) =J$:C$F A$"N"İ10000::(4);"BLOAD CHAIN,A520,D1":520"EDITOR,D1" :3:1:1:"^TYPE THE NUMBER OF THE STUDENT'S":"RESPONSE AS EACH QUESTION APPEARS":"ON THE SCREEN. ^TYPE THE LETTER":"'^R' TO REVERSE AND CORRECT ERRORS." JW0&6000::000:25200 10010& YT1İ360005 YT01000 YT1ĺ"^THAT NAME IS ALREADY ON THE FILE.":"DO YOU WANT THIS TO REPLACE THE":"PREVIOUS RECORD FOR ";"^";A1$:"^";A2$;"?(^Y OR ^N): "; 16368,0:A$:A$"Y"A$"N"160 YT0:JW0:C$"^"A":"NAME, THEN PRESS RETURN: ";Q dL2$"A":L3$"Z":MAX10:X25:Y2:21000:A1$N$ i1:5:"^PLEASE TYPE STUDENT'S LAST":"NAME, THEN PRESS RETURN:"; nL2$"A":L3$"Z":MAX10:X25:Y6:21000:A2$N$ xKK125YT0:1000 R21İ23000 10000:30^Y OR ^N): ";3 U16368,0:A$:A$"Y"A$"N"85E VC$"^"A$:C$ ZA$"N"İ10000::(4);"BLOAD CHAIN,A520,D1":520"EDITOR,D1" [XY(1)5:XY(2)13:XY(3)20:XY(4)27:XY(5)34:C1:R0:JW0:H10:XX0:YY0 _:3:1:1:"^PLEASE TYPE STUDENT'S FIRST:1:"^OPENING FILE FOR CLASS # ";N:"^GETTING STUDENT RECORDS..."S 2R21İ23000l <10000:30000:25000z AKK125CK K10010::3:1:1 P"^READY TO ADD RECORDS TO CLASS # ";N;".":"^YOU MAY ADD ";KK;" RECORDS. ^IS THIS":"ENOUGH ROOM FOR YOU?( 30110<38210,14:975,0:783,64:232,170:233,149L:7:10010 1:1:"^CLASSES ARE NUMBERED 1 TO 9.":"^TYPE THE NUMBER OF THE CLASS TO":"WHICH YOU WISH TO ADD DATA: ";16368,0:A$:A$"1"A$"9"20A$N(A$)B (:3:1             30)"LEARNING STYLES INVENTORY":25)"COPYRIGHT 1983 - ACTIVITY RECORDS, INC."? X279:"-";:E q'54,189:55,158:43603,240:43604,253:'54,237:55,148:43603,237:43604,148:0u:(4);"RUN TEACHER1"E";:X::"NAME:";60)"CLASS:":K'54,189:55,158:43603,240:43604,253:w'54,237:55,148:43603,237:43604,148:0u:(4);"RUN LOGO,D1":(4);"BLOAD CHAIN,A520,D1":520"TEACHER1,D1" 5)"NAME: " II1:5)"CLASS: ":70)"PAGE ";I+TION REQUIRES A PRINTER.":"^PRESS ^M TO RETURN TO THE MENU,":"OR PRESS ^C TO CONTINUE."16368,0:A$:A$"M"A$"C"2010A$"M"İ10000::(4);"BLOAD CHAIN,A520,D1":520"TEACHER1":3:1:1: 28)"EDUCATIONAL ACTIVITIES":X179:"-$:c"44. I FIND IT EASIER TO REMEMBER WHAT I HAVE":"HEARD THAN WHAT I HAVE READ.";:22)NM$:"45. IT IS FUN TO LEARN WITH CLASSMATES, BUT IT":"IS HARD TO STUDY WITH THEM.";:23)NM$::(4);"PR#0":(4);"RUN LOGO,D1"Y"^THIS OPSE TO ME THAN":"HEARING A NUMBER.";:33)NM$:"42. I UNDERSTAND WHAT I HAVE LEARNED BETTER WHEN":"I AM INVOLVED IN MAKING SOMETHING FOR THE":"SUBJECT.";42)NM$:"43. THE THINGS I WRITE ON PAPER SOUND BETTER THAN":"WHEN I SAY THEM.";:34)NM)NM$:sb"39. IT MAKES IT EASIER WHEN I SAY THE NUMBERS OF":"A PROBLEM TO MYSELF AS I WORK IT OUT.";:13)NM$:l"40. IF I UNDERSTAND A PROBLEM, I LIKE TO HELP":"SOMEONE ELSE UNDERSTAND IT TOO.";:19)NM$:/v"41. SEEING A NUMBER MAKES MORE SENNG WRITTEN ASSIGNMENTS.";:7)NM$:qD"36. I REMEMBER THINGS I HEAR BETTER THAN THINGS":"I READ.";:43)NM$:N"37. I LEARN BETTER BY READING THAN BY LISTENING.";:2)NM$:X"38. IT IS EASY FOR ME TO TELL ABOUT THE THINGS":"THAT I KNOW.";:38 I HAVE TO DECIDE SOMETHING, I ASK OTHER":"PEOPLE FOR THEIR OPINIONS.";:24)NM$:&"33. WRITTEN MATH PROBLEMS ARE EASIER FOR ME TO":"DO THAN ORAL ONES.";32)NM$:0"34. I LIKE TO MAKE THINGS WITH MY HANDS.";:10)NM$:#:"35. I DON'T MIND DOIWELL IN CLASSES WHERE MOST OF THE":"INFORMATION HAS TO BE READ.";:23)NM$:"30. I WOULD ENJOY GIVING AN ORAL REPORT TO":"THE CLASS.";:40)NM$:"31. I LEARN MATH BETTER FROM SPOKEN EXPLANATIONS":"THAN WRITTEN ONES.";:32)NM$:S"32. IFO":"FOLLOW.";:43)NM$:h"28. I REMEMBER MORE OF WHAT I LEARN IF I LEARN IT":"ALONE.";:44)NM$:xX17::X3000::5)"QUESTION";:40)"MOST LIKE ME - LEAST LIKE ME":5)"--------";:40)"----------------------------"::M"29. I DO AND A MATH PROBLEM THAT IS WRITTEN":"DOWN BETTER THAN ONE I HEAR.";:22)NM$:"26. IN A GROUP PROJECT, I WOULD RATHER MAKE A":"CHART OR POSTER THAN GATHER THE INFORMATION TO":"PUT ON IT.";:40)NM$:"27. WRITTEN ASSIGNMENTS ARE EASY FOR ME THER TELL A STORY THAN WRITE IT.";:4)NM$:"23. SAYING THE MULTIPLICATION TABLES OVER AND":"OVER HELPED ME REMEMBER THEM BETTER THAN WRITING":"THEM OVER AND OVER.";:31)NM$:"24. I DO MY BEST WORK IN A GROUP.";:17)NM$:O"25. I UNDERST IF SOMEONE READS A BOOK TO ME":"THAN IF I READ IT SILENTLY TO MYSELF.";:13)NM$:"20. I LEARN BEST WHEN I STUDY ALONE.";:14)NM$:"21. WHEN I HAVE A CHOICE BETWEEN READING AND":"LISTENING, I USUALLY READ.";:24)NM$:+"22. I WOULD RATO BE DONE.";:34)NM$:|"17. A GRAPH OR CHART OF NUMBERS IS EASIER FOR ME":"TO UNDERSTAND THAN HEARING THE NUMBERS SAID.";:6)NM$:"18. WRITING A SPELLING WORD SEVERAL TIMES HELPS":"ME REMEMBER IT BETTER.";:28)NM$:T"19. I LEARN BETTER THING":"WORKS THAN WRITE ABOUT HOW IT WORKS.";:14)NM$:h"15. IF SOMEONE TELLS ME THREE NUMBERS TO ADD, I":"CAN USUALLY GET THE RIGHT ANSWER WITHOUT":"WRITING THEM DOWN.";:32)NM$:r"16. I PREFER TO WORK WITH A GROUP WHEN THERE IS":"WORK T LIKE ME - LEAST LIKE ME":5)"--------";:40)"----------------------------"::J"12. I LIKE TO WORK BY MYSELF.";:21)NM$:T"13. I WOULD RATHER READ A STORY THAN LISTEN":"TO IT READ.";:39)NM$:;^"14. I WOULD RATHER SHOW AND EXPLAIN HOW AAT I HEAR.";:17)NM$:v""10. I DO BETTER WHEN I CAN WRITE THE ANSWER":"INSTEAD OF HAVING TO SAY IT.";:22)NM$:,"11. I UNDERSTAND SPOKEN DIRECTIONS BETTER THAN":"WRITTEN ONES.";:37)NM$:6X17::XQ@3000::5)"QUESTION";:40)"MOSTN WRITE IT.";:23)NM$:r"7. WHEN I DO MATH PROBLEMS IN MY HEAD, I SAY THE":"NUMBERS TO MYSELF.";:32)NM$:"8. I ENJOY JOINING IN ON CLASS DISCUSSIONS.";:7)NM$:"9. I UNDERSTAND A MATH PROBLEM THAT IS WRITTEN":"DOWN BETTER THAN ONE TH I READ IT SOFTLY TO MYSELF";:18)NM$:a"4. I GET MORE DONE WHEN I WORK ALONE.";:13)NM$:"5. I REMEMBER WHAT I HAVE READ BETTER THAN WHAT":"I HAVE HEARD.";:37)NM$:"6. WHEN I ANSWER QUESTIONS, I CAN SAY THE ANSWER":"BETTER THAN I CA1. MAKING THINGS FOR MY STUDIES HELPS ME TO":"REMEMBER WHAT I HAVE LEARNED.";:21)NM$: "2. I CAN WRITE ABOUT MOST OF THE THINGS I KNOW":"BETTER THAN I CAN TELL ABOUT THEM.";:16)NM$:("3. WHEN I REALLY WANT TO UNDERSTAND WHAT I HAVE":"READ, NEED, SO PLEASE RESPOND TO EVERY STATEMENT. NOW, "p "IF THERE ARE NO OTHER QUESTIONS, GO ON TO THE SURVEY." :30)"***********" 5)"QUESTION";:40)"MOST LIKE ME - LEAST LIKE ME" 5)"--------";:40)"----------------------------"Y "U PREFER TO WORK IN THE AFTERNOON." "A RESPONSE OF ";(34);"1";(34);" MEANS THAT YOU VERY MUCH PREFER TO WORK IN THE MORNINGS." "THERE IS NO RIGHT OR WRONG RESPONSE, ONLY THE WAY YOU FEEL ABOUT THE STATEMENT."3 "YOU MAY HAVE ALL THE TIME YOU STATEMENT CAREFULLY AND CIRCLE THE NUMBER WHICH BEST":"AGREES WITH HOW YOU FEEL ABOUT THE STATEMENT." n::"SAMPLE: I WOULD RATHER DO WORK IN THE AFTERNOON ";NM$:"THAN IN THE MORNING."# x:::"A NUMBER ";(34);"4";(34);" RESPONSE MEANS THAT YO"9 #"PRINTER IS ATTACHED AND IN THE ^O^N":"POSITION."o (4:12:"(^PRESS ^S^P^A^C^E ^B^A^R TO CONTINUE.)" 2S$:S$(32)45 <:7:5:5:"^P^R^I^N^T^I^N^G..." A10000 F(4);"PR#1" P(9);"80N" Z3000g d:"INSTRUCTIONS: READ THE 30000<38210,14:975,0:783,64:232,170:233,149OLF0:LN0:TF0v NM$"4........3........2........1"0,0:230,64:62545:7:100102000 7:2:2:"^THIS PART OF THE PROGRAM REQUIRES":"A PRINTER. ^PLEASE CHECK THAT YOUR           @:(4);"RUN LOGO"2'21T(38))2):SA(9)((T(2)T(12)T(27)T(35)T(43))2)pTH0İ10000::(4);"BLOAD CHAIN,A520":520"RECORDMAKER"10000::(4);"BLOAD CHAIN,A520"520"READTREC"'54,189:55,158:43603,240:43604,253:'54,237:55,148:43603,237:43604,148:)T(41))2):SA(3)((T(3)T(11)T(19)T(36)T(44))2)SA(4)((T(7)T(15)T(23)T(31)T(39))2):SA(5)((T(1)T(18)T(26)T(34)T(42))2):SA(6)((T(4)T(12)T(20)T(28)T(45))2)2SA(7)((T(8)T(16)T(24)T(32)T(40))2):SA(8)((T(6)T(14)T(22)T(30)X0:X130149:0,X190,X:X:X150181:0,X279,X:X:> bb R1Y:6:0,10R260,10R:R: RY80:6:0,R260,R:R: :3:1:1:"^PLEASE WAIT ONE MINUTE, ";F1$;"."4SA(1)((T(5)T(13)T(21)T(29)T(37))2):SA(2)((T(9)T(17)T(25)T(33";) 16368,0:B$:B$"Y"B$"N"145; C$"^"B$:C$Z B$"Y"İ500:16368,0:77} B$"N"Ĺ16368,0:600:7:130 T(I)(A$):0:X010:87,X115,X:X X1575:0,X279,X:X:X120149:165,X190,X:X:X150181:0,X279,X:X:WW1:8 ....LEAST LIKE ME":8:" 4 3 2 1"` ~6:274,87274,115:0,115275,115:3 10:1:"^ENTER YOUR RESPONSE: "; 16368,0:A$:A$"1"A$"4"135 A$ 11:1:"^YOUR RESPONSE WAS ";A$;".":12:"^IS THIS CORRECT?(^Y OR ^N): LOSE QFILE";H. LI0:K0:PT0:W1:10010::7D MII1:I46ī4999c P7:1:1:"^QUESTION # ";I| QY3:3000:7:HI2:2 _PTJ(I) dT1PT:HI:AQ$(W,T):HIHI1:T n6:Y77:3001:3 x6:0,87275,87:0,870,1157 }3:7:" ^MOST LIKE ME...H <QUES$:QUES$"STOP"ī75v =QUES$"#"QUES$", ":AQ$(W,I)AQ$(W,I)QUES$:QUES$:AQ$(W,I)AQ$(W,I)QUES$:QUES$ >QUES$"STOP"ī75 AII1:AQ$(W,I)QUES$ DQUES$"*"PTPT1 HQUES$"*"KK1:J(K)PT:PT0:WW1:I0 J60 K:(4);"C 40000<38210,14:975,0:783,64:232,170:233,149LF1$"^"FF$:10010:7:2:1:"^PLEASE WAIT ONE MINUTE, ";F1$;".":10000TH0H1I0:PT0:J0:W0:K0W1TH1H2(:(4);"OPEN QFILE";H 2:(4);"READ QFILE";  10010::3:1:1:2C10010::3:1:1:268,0:10010?DuCOCO1:CO3CO0:10000::(4);"RUN LOGO,D1"y:3:1:1:"^YOU HAVE GENERATED AN ERROR.":"^PLEASE CHECK THE DRIVE DOOR":"OR SEE IF YOU HAVE THE":"CORRECT DISK INSERTED.":6000:10000:016368,0:A$:A$(13)35100PLEASE REMOVE THE ^D^A^T^A DISK":"FROM THE DRIVE AND REPLACE":"IT WITH THE ^P^R^O^G^R^A^M DISK.":"^PRESS ^R^E^T^U^R^N WHEN YOU ARE READY.":10000:35100:0uR22ĺ:(4);"VERIFY CODEFILE,D2":5uR21ĺ:(4);"VERIFY CODEFILE,D1": :u216,0:163,D2"!a:(4);"READ TFILE1,R0")aCTDa:(4);"CLOSE TFILE1"NaCKCTaCK125İ36000:"THE TEACHER FILE IS FULL.":"^PLEASE DELETE SOME PEOPLE FROM":"THE FILE."aCK125ĺ:](4);"BLOAD CHAIN,A520,D1":520"TEACHER1,D1"aR21İ36000:"^21010Y36000:"^PLEASE REMOVE THE ^P^R^O^G^R^A^M DISK":"FROM THE DRIVE AND REPLACE":"IT WITH THE ^D^A^T^A DISK.":"^PRESS ^R^E^T^U^R^N WHEN YOU ARE READY.":10000Y35100:aR21ĺ:(4);"OPEN TFILE1,L60,D1"aR22ĺ:(4);"OPEN TFILE1,L60$)MAX2101030RX1X11:Y:X1:A$:N$N$A$:21010FDR(N$)021010IR(N$)1(A$"@"A$"Z")Ē0:Y:X1:"^";N$:X1X:7:N$"":21010NR(N$)1Ē0:Y:X1:N$:X1X:7:N$"":21010XRA$(N$,1):N$(N$,(N$)1):0:Y:X1:A$:Y:X1:" ":X1X11:7:368,0:A$:A$(32)6010K'54,189:55,158:43603,240:43604,253:w'54,237:55,148:43603,237:43604,148:RX1X:N$""R16368,0:Y:X11:A$RN$""A$(13)21010RA$(13)ı!RA$(8)21030#RA$L1$A$L2$21010 &R(NUESTION":"AS IT APPEARS ON THE SCREEN.":6000P:(4);"BLOAD CHAIN,A520,D1"g520"QUESTIONS,D1":"(^PRESS ^S^P^A^C^E ^B^A^R FOR AN EXAMPLE.)"16368,0:A$:A$(32)5010p13:5:"^PRESS ^S^P^A^C^E ^B^A^R TO CONTINUE."z16F 2 MEANS YOU":"USUALLY WORK BEST IN THE MORNING.":XX260ANS$"1"Ģ10:"^A RESPONSE OF 1 MEANS YOU REALLY":"PREFER TO WORK IN THE MORNING.":XX2406:0,160XX,160.3:6000::1:"^THERE ARE 45 QUESTIONS. ^PLEASE":"ANSWER AND VERIFY EACH Q:X8:Y9:21000:ANS$N$ s2 xANS$"4"Ģ10:"^A RESPONSE OF 4 MEANS YOU REALLY":"PREFER TO WORK IN THE AFTERNOON.":XX250 ANS$"3"Ģ10:"^A RESPONSE OF 3 MEANS YOU":"USUALLY WORK BEST IN THE AFTERNOON.":XX270:ANS$"2"Ģ10:"^A RESPONSE O MORNING."* _6:0,70275,70:0,700,1001 `3 d6:" ^MOST LIKE ME.......LEAST LIKE ME":" 4 3 2 1" e6:274,70274,100:0,100275,100:3 f8:"^ENTER YOUR RESPONSE, THEN PRESS":"^R^E^T^U^R^N: "; nL1$"1":L2$"4":MAX1OTALLY DISAGREE,":"PRESS 1. ^IF YOU'RE SOMEWHERE IN":"BETWEEN, PICK 2 OR 3. ^THERE IS":"NO ONE RIGHT ANSWER, SO TAKE YOUR":"TIME." P5000::7:1:10:"^S^A^M^P^L^E ^S^T^A^T^E^M^E^N^T" Z3:"^I WOULD RATHER DO WORK IN THE":"AFTERNOON THAN IN THEHASIZE IN YOUR TEACHING."# -6000O 7:7:1:10:"^I^N^S^T^R^U^C^T^I^O^N^S" <"^READ EACH STATEMENT CAREFULLY AND":"TYPE THE NUMBER THAT MOST CLOSELY":"AGREES WITH HOW YOU FEEL ABOUT" F"THE STATEMENT. ^IF YOU FULLY AGREE,":"PRESS 4. ^IF YOU TO ARE AUDITORY":"LEARNERS WILL TEND TO LECTURE AND":"TO GIVE ORAL INSTRUCTIONS. ^A":"TEACHER WHO IS A VISUAL LEARNER" ("WILL TEND TO GIVE READING ":"ASSIGNMENTS AND WRITTEN":"INSTRUCTIONS. ^THIS TEST WILL":"INDICATE THE METHODS YOU TEND":"TO EMP 30010<38210,14:975,0:783,64:232,170:233,149MR21İ23000_30000:25000o :7:100101:2:"^IT HAS BEEN SHOWN THAT TEACHERS":"TEND TO TEACH IN THE SAME MANNER":"THAT THEY THEMSELVES LEARN. ^FOR"x "EXAMPLE, TEACHERS WH     THE PROGRAM WHEN YOU":"NEED TO CHANGE DISKS.":6000:vV@:(4);"RUN LOADER,D1"2O2I@:(4);"RUN LOADER,D1"20OU HAVE 1 OR 2 DRIVES?":"^PRESS 1 OR 2: ";Uu16368,0:R1$:R1$"1"R1$"2"30100^uR1$luR2(R1$)vu1:4uR22ĺ"^MAKE SURE THAT THE DATA DISK IS":"ALWAYS IN THE 2ND DRIVE.":60004\vR21ĺ"^YOU WILL RECEIVE INSTRUCTIONS":"THROUGHOUT N$A$:21010 DR(N$)0210109ERGG1A$(59)21070mIR(N$)1Ē0:Y:X1:"^";N$:X1X:7:N$"":21010NR(N$)1Ē0:Y:X1:N$:X1X:7:N$"":21010XRA$(N$,1):N$(N$,(N$)1):0:Y:X1:A$:Y:X1:" ":X1X11:7:21010+0u:7:1:1:"^DO Y3,237:43604,148:! RX1X:N$""< R16368,0:Y:X11:A$V RN$""A$(13)21010f RA$(13)ıy RA$(8)21060 #RA$L1$A$L2$21010 &R(N$)MAX21010 +RN$""(A$"@"A$"Z")X1X:Y:X1:"^";A$:N$N$A$:21010 0RX1X11:Y:X1:A$:N$SS(1-9), THEN PRESS":"^R^E^T^U^R^N: ";X L1$"1":L2$"9":MAX1:X9:Y5:21000:NUM$N$^  p5:12:"^PRESS ^S^P^A^C^E ^B^A^R TO CONTINUE." z16368,0:B$:B$(32)6010  '54,189:55,158:43603,240:43604,253: '54,237:55,148:4360TH1- 210000::(4);"BLOAD CHAIN,A520,D1"C 3520"TEACHER1,D1"S 7TH0:10000r <:(4);"BLOAD CHAIN,A520" F520"MENU2" :3:1:1:"^CLASS NUMBERS ARE 1 TO 9.":"^PLEASE TYPE IN ANOTHER NUMBER.":' "^PLEASE TYPE THE NUMBER OF YOUR":"CLA":X20:Y5:MAX10:21000:LN$N$1 $7:1:NUM$"" ("^PLEASE TYPE THE NUMBER OF YOUR":"CLASS(1-9), THEN PRESS":"^R^E^T^U^R^N: "; )GG1 -L1$"1":L2$"Z":MAX7:X9:Y9:21000:NUM$N$ .NUM$"9"NUM$"TEACHER"İ2000 /NUM$"TEACHER"55 010 LETTERS PER NAME." 1:1j 7:"^PLEASE TYPE YOUR FIRST NAME HERE,":"THEN PRESS ^R^E^T^U^R^N: "; X20:Y2:L1$"A":L2$"Z":MAX10:21000:FF$N$ 4:1 "^PLEASE TYPE YOUR LAST NAME HERE,":"THEN PRESS ^R^E^T^U^R^N: "; #L1$"A":L2$"Z] 40000<38210,14:975,0:783,64:232,170:233,149V:(4);"NOMON C,I,O"a24576s10010:30000|GG0QQ17: FF$+LN$ L1$(9,75),E1$(9,75),TT(50),AN$(100),AQ$(60,7),MA$(30),J(75),T(75) :3:CO0 12:1:"^TYPE ONLY      z#   ű ŵ ű Ӡ  Ҡ ұ Ӡ! Ų Š Ų ұ7 à! ұ!Ҡ" ղձ ȮԠ  ϠӠҠ Ҳ:Ҡ( ұҠԮΠ ЮΠҮҠΠҮΠϠ Ҡ . l݅ة?* HΔ̔Δ̔h `0 hU` \ۈȱ " \:67 L  e֢ Uh ,Lp̄ Le0 l݅e& HΔ̔Δ̔h `H --?$$$$?--?p- $$$?--$$$$M -=??$$$$$$$$.d 6666$$$$%$46666? $$d-666?$$$$--6??? $$d-666'$$$$--6?w?p-- ?? d-$$$$?/---? $$$M 666?$$$M 666 ,$$$$6666d d vv6$$lI666-=??$ $$--??$$M 6666? (--8??  d ?6- ?$$ -u'6-$?6v=? $ ->?V $$?--?$d=? $ -666?$$$$66e66$$  $$ 266?$$$$6n $$$$$$ 66M$$?$$4e66? $ -6/- $?76666=? $ -66-$$4 vv`$5$ dcd$$$$$s $??--?$$$$7-=?? $??p-- $ ? - $$$$.--?-- $??$$----?? $$d-;?-6$d $???-?? $ d-6?/-6I$$$?6--%g8,5 $g 7 Z2=BJLSam| !/<IR_lw (5AOZdku}%/?P]j{d$$$M16#<%$/$6-%4.76?-=6<- ?d%.!5#d $7%$     픸H N ɍ&Ɍ$*+*++8 $%nn& $ & & & im&% e%i hH)80i ?/ 0 &$$! $%%#"%N h`NO SEE ANY MORE":"CLASS FILES? (^Y OR ^N): ";U 16368,0:A$:A$"Y"A$"N"4010g C$"^"A$:C$ A$"N"İ10000::(4);"BLOAD CHAIN,A520,D1":520"TEACHER1,D1" 2 :3:1:1:"^SORRY, THERE IS NO DATA ENTERED":"IN THE FILE FOR CLASS ";N1:"^CLASS # ";NN }I" ~60000 NN:4000F CT0İ5000:4000i :3:1:1:"^CLASS # ";NN:X0| II1CT:XX1 "^"L1$(NN,II);", ";"^"E1$(NN,II) X9X0:6000::3:1:1:"^CLASS # ";NN II:6000- :3:1:2:"^DO YOU WISH T::3:1:1:"^P^R^I^N^T^I^N^G...":10000:40000; K10010N PI0:NFL1205s ZX0::3:1:1:NN19:CKCJ(NN) _:3:1:1 dCK0İ5000:130 i"^CLASS # ";NN:X0 nI1CK x"^"L1$(NN,I);", ";"^"E1$(NN,I):XX1:X9X0:6000::3:1:"A$"10"NN(A$)1 9A$::"^S^O^R^T^I^N^G..."B :R21İ20000[ <10000:30000:25000 FR21İ36000:"^PLEASE REMOVE THE ^DATA DISK":"FROM THE DRIVE AND REPLACE":"IT WITH THE ^PROGRAM DISK.":"^PRESS ^R^E^T^U^R^N:":10000:361000 JPF1İ10010:C$ A$"P"PF1 :3:1:1:"^CLASSES ARE NUMBERED FROM 1 TO 9.":"^TYPE THE NUMBER OF THE FILE YOU":"WISH TO SEE, OR TYPE ^O TO SEE":"THE ENTIRE FILE. "; (16368,0:A$:A$"1"A$"9"ĭA$"0"A$"O"40 2A$"0"A$"O"NFL10 7A$"0 30020<38210,14:975,0:783,64:232,170:233,149R:3:10010:1:1lFLAG0:NFL0:X0:PF0 "^DO YOU WISH TO SEE THE CLASS FILES":"ON THE SCREEN OR ON THE PRINTER?":"(^S OR ^P): ";16368,0:A$:A$"S"A$"P"20 C$"^"A$     40:43604,253:; '54,237:55,148:43603,237:43604,148:A 0uO,148:Q 0uN43604,253: '54,237:55,148:43603,237:43604,148: 0uYR ^Y":8:16:"BY"6 10:10:"^RICHARD ^M. ^COOPER"I 12:15:"AND"j 14:10:"^JERRY ^F. ^BROWN" 18:11:"^PROGRAMMED BY":9:21:"^RICHARD ^BARONIUNAS" X11000: 10000 X:(4);"RUN MENU1" 170 '54,189:55,158:43603,2B 30000;38210,7:975,0:783,64:232,170:233,149H :10010 1:Y010:0,Y279,Y:279Y,0279Y,191:0,191Y279,191Y:Y,0Y,191: 230,64:7:3:4"^L ^E ^A ^R ^N ^I ^N ^G ^S ^T ^Y ^L ^E ^S" 6:9:"^I ^N ^V ^E ^N ^T ^O ^  1012,03::230,32:62450:230,64:62450I(4);"MAXFILES1"l:(4);"BLOAD SHP.BIN,A38314"(4);"BLOAD PRT.BIN"(232,170:233,149-(4);"BLOAD STRPAR.BIN,A38078"238078P::(4)"RUN LOGO"AB,A$7281" X8 t'H:YY15: 0uICHARD ^M. ^COOPER":16:15:"AND":19:10:"^JERRY ^F. ^BROWN"r v20100:X11000: :(4);"RUN MENU1" 20100 'PP(P$) 'PP0ı L'H1PP:R((P$,H,1))31 V'FL1FL0:RR31:10090 `'R63FL1:10100/ P$"^EDUCATIONAL ^ACTIVITIES, ^INC.":10000] 5:Y185:X75:P$"^COPYRIGHT 1983":10000u X:(4);"RUN INTRO"~ 170 'PP(P$) 'PP0ı L'H1PP:R((P$,H,1))31 V'FL1FL0:RR31:10090 `'R63FL1:10100 j'RX,Y:RX1,Y:X 300001:0$Z6TdT064:98,1033T,156:179,10243T,156:pnT10156:98,T179,T:wx4T4863:RR.3:116R,T160R,T:T99113:UU.3:101U,T173,T:T99156:II.15:163I,T176I,T:5:Y170:X33NSERTED.":6000:10000:0$8O202000u10010::3:1:1:"^PLEASE REMOVE THE ^D^A^T^A DISK":"FROM THE DRIVE AND REPLACE":"IT WITH THE ^P^R^O^G^R^A^M DISK.":"^PRESS ^R^E^T^U^R^N WHEN YOU ARE READY.":1000016368,0:A$:A$(13)3510010000DEFILE,D1":5 NR22ĺ:(4);"VERIFY CODEFILE,D2":Q N216,0:16368,0:10010 OCOCO1:CO3CO0:10000::(4);"RUN LOGO,D1".O:3:1:1:"^YOU HAVE GENERATED AN ERROR.":"^PLEASE CHECK THE DRIVE DOOR":"OR SEE IF YOU HAVE THE":"CORRECT DISK I9:SA(X):% :(4);"CLOSE FILE";N+ c p5:13:"^PRESS THE ^S^P^A^C^E ^B^A^R TO CONTINUE." z16368,0:A$:A$(32)6010  '54,189:55,158:43603,240:43604,253: '54,237:55,148:43603,237:43604,148: NR21ĺ:(4);"VERIFY COR22ĺ:(4);"OPEN FILE";N;",L60,D2"F n:(4);"WRITE FILE";N;",R0"T xCTCK:CTo :(4);"CLOSE FILE";Nu R21ĺ:(4);"OPEN FILE";N;",L60,D1" R22ĺ:(4);"OPEN FILE";N;",L60,D2" :(4);"WRITE FILE";N;",R";CK LN$:FF$:X1D CHAIN,A520,D1":520"GRAPHER,D1"t KCK125İ10010::3:1:1:"^SORRY, THE DISK IS FULL.":"^PRESS ^R^E^T^U^R^N:" P16368,0:A$:A$(13)80 Q10000 U:(4);"BLOAD CHAIN,A520,D1":520"LOADER,D1" ZR21ĺ:(4);"OPEN FILE";N;",L60,D1"% d10000 20000 C0C (R21ĺ:(4);"OPEN FILE";N;",L60,D1"m -R22ĺ:(4);"OPEN FILE";N;",L60,D2" 2:(4);"READ FILE";N;",R0" 7CT <:(4);"CLOSE FILE";N FCKCT:CK125CKCK1:CTCK:200:90:R21İ30000! GCK125ĺ:(4);"BLOA 20200N(NUM$)0R22İ20000:45@ :7:100102:2:"^PLEASE REMOVE THE ^P^R^O^G^R^A^M DISK":"FROM THE DRIVE AND REPLACE":"IT WITH THE ^D^A^T^A DISK.":"^PRESS ^R^E^T^U^R^N WHEN YOU ARE READY."16368,0:A$:A$(13)21 :: ?NND44400L"SORRY, THERE IS NO DATA FOR CLASS # ";NN:::cX0:"CLASS # ";NNp\II1CTL1$(NN,II);", ";E1$(NN,II)$IIp:(4);"PR#0"z10010:4000ԭ:(4);"BLOAD CHAIN,A520,D1":520,"LOADER,D1"22"20,D116368,0:A$:A$(13)36100"5@:(4);"PR#1"GJ:(9);"80N"T28)"EDUCATIONAL ACTIVITIES.":EE179:"-";:::I0:NFL143000^X0:NN19:CKCJ(NN):CK0İ42000:40255hX0:"CLASS # ";NN:I1CKrL1$(NN,I);", ";E1$(NN,I)IDu216,0:16368,0:10010MIuCOCO1:CO3CO0:10000::(4);"RUN LOGO,D1"Є:3:1:1:"^YOU HAVE GENERATED AN ERROR.":"^PLEASE CHECK THE DRIVE DOOR":"OR SEE IF YOU HAVE THE":"CORRECT DISK INSERTED.":6000:10000:010010::3:1:1:dSW$L1$(NN,RP):L1$(NN,RP)L1$(NN,RP1):L1$(NN,RP1)SW$:SW$E1$(NN,RP):E1$(NN,RP)E1$(NN,RP1):E1$(NN,RP1)SW$:U1|dRPdU1ī25590(dNFL126000,eNNe0uR21ĺ:(4);"VERIFY CODEFILE,D1"::uR22ĺ:(4);"VERIFY CODEFILE,D2":;NN;",R";RE34bL$:L1$(NN,RE)L$:E$:E1$(NN,RE)E$;>bREWHb:(4);"CLOSE FILE";NNhRbNFL125570pcNNcNFL0āNN19:CKCJ(NN):CK0CK125900cNFL10CK226000cKCCKcU0:CKCK1:RP1CKdL1$(NN,RP)L1$(NN,RP1)25620t CT:CKCT%a:(4);"CLOSE FILE";NN<aNFL1CK0ī26000MaNFL125100_aCJ(NN)CK:NNkbNN19bCKCJ(NN):CK025500 bR21ĺ:(4);"OPEN FILE";NN;",L60,D1"bR22ĺ:(4);"OPEN FILE";NN;",L60,D2" bRE1CK *b:(4);"READ FILE"DRIVE AND REPLACE":"IT WITH THE ^DATA DISK.":"^PRESS ^R^E^T^U^R^N:":36100k/N1:8:"^S^O^R^T^I^N^G..."q4NaNFL0āNN19aR21ĺ:(4);"OPEN FILE";NN;",L60,D1"aR22ĺ:(4);"OPEN FILE";NN;",L60,D2"a:(4);"READ FILE";NN;",R0" aN;".":6000:Ep4:12:"^PRESS THE ^S^P^A^C^E ^B^A^R TO CONTINUE."gz16368,0:A$:A$(32)6010m'54,189:55,158:43603,240:43604,253:'54,237:55,148:43603,237:43604,148:L N36000:"^PLEASE REMOVE THE ^PROGRAM DISK":"FROM THE THAT YOU LEARN LANGUAGE SKILLS BY SIGHT, MAINLY BY":"READING.":"VISUAL NUMERIC MEANS THAT YOU DO BETTER WITH NUMBERS WHEN YOU CAN SEE THEM":"WRITTEN."::"AUDITORY LANGUAGE MEANS THAT YOU LEARN BEST BY LISTENING.":>"AUDITORY NUMERIC MEANS YO9:"WRITTEN EXPRESSIVENESS =< "X(X)" >< "Y(X)" >< "Z(X)" >":" GROUP STYLE =";:8600::IS0İ8800:8500:27)"10 20 30 40"IS0ī8900A8400:"VISUAL LANGUAGE MEANS >< "Y(X)" >< "Z(X)" >":" GROUP STYLE =";:8600::IS0İ8800:X8:"ORAL EXPRESSIVENESS =< "X(X)" >< "Y(X)" >< "Z(X)" >":" GROUP STYLE =";:8600::IS0İ8800:X>":" GROUP STYLE =";:8600::IS0İ8800:X6:"SOCIAL INDIVIDUAL =< "X(X)" >< "Y(X)" >< "Z(X)" >":" GROUP STYLE =";:8600::IS0İ8800:cX7:"SOCIAL GROUP =< "X(X)" S0İ8800:X4:"AUDITORY NUMERIC =< "X(X)" >< "Y(X)" >< "Z(X)" >":" GROUP STYLE =";:8600::IS0İ8800:7X5:"TACTILE CONCRETE =< "X(X)" >< "Y(X)" >< "Z(X)" =< "X(X)" >< "Y(X)" >< "Z(X)" >":" GROUP STYLE =";:8600::IS0İ8800: X3:"AUDITORY LANGUAGE =< "X(X)" >< "Y(X)" >< "Z(X)" >":" GROUP STYLE =";:8600::IARNING STYLES LEAST LIKE MOST LIKE"tX1:8500:"VISUAL LANGUAGE =< "X(X)" >< "Y(X)" >< "Z(X)" >":" GROUP STYLE =";:8600::IS0İ8800:u~X2:"VISUAL NUMERIC $,1)"."6\IS2((N3$)(N4$)17)N3$(N3$,1)"."]IS1ĺ25)"INDIVIDUAL VS. CLASS # ";N8::"STUDENT: "N1$" ";N2$::7530_IS2ĺ25)"TEACHER VS. CLASS # ";N8::"TEACHER: "N3$" ";N4$::7530`25)"CLASS # "N8" COMPOSITE GRAPH":Cj"LE ^N): ";0 16368,0:A$:A$"Y"A$"N"6035B C$"^"A$:C$ A$"N"İ10000::(4);"BLOAD CHAIN,A520,D1":520"EDITOR1,D1"  L10010:1:1::3:" ^P ^R ^I ^N ^T ^I ^N ^G....":10000 N:(4);"PR#1"[IS1((N1$)(N2$)17)N1$(N13:1:1:"^SORRY, THERE IS NO DATA ENTERED":"IN THE FILE FOR CLASS "NN".":6000:IS1IS2ım NT0:4000 p4:12:"^PRESS THE ^S^P^A^C^E ^B^A^R TO CONTINUE." z16368,0:A$:A$(32)6010  4:7:"^DO YOU WISH TO CONTINUE?":5:"(^Y OR CHAIN,A520,D1":520"EDITOR1,D1"g 3000:"^DO YOU WISH TO SEE ANY MORE":"CLASS FILES? (^Y OR ^N): " 16368,0:A$:A$"Y"A$"N"4010 A$"Y"(IS1IS2)Y42:2 A$"Y"ī10 10000::(4);"BLOAD CHAIN,A520,D1":520"EDITOR1,D1"^ :OMPOSITE? (^Y OR ^N): ";@ 16368,0:A$:A$"Y"A$"N"3060R C$"^"A$:C$ A$"Y"āX19:X(X)0:Y(X)0:Z(X)0::PY99:CNTCNT1:CNT4CNT1:(4);"BLOAD CHAIN,A520,D1":520"GRAPHER2" A$"Y"PY99PY0:2  A$"N"İ10000::(4);"BLOAD:1:1:* 16368,0:A$:A$(13)30200 3010:IS1ĺ"^DO YOU WISH TO SEE ANOTHER":"GRAPH COMPARING AN INDIVIDUAL WITH":"A CLASS COMPOSITE? (^Y OR ^N): "; IS2ĺ"^DO YOU WISH TO SEE ANOTHER":"GRAPH COMPARING A TEACHER WITH A":"CLASS C(8 30020<38210,13:975,0:783,64:232,170:233,149uPF0:NQ0:Y40:Q0:J19:X(J)0:Y(J)0:Z(J)0::G0IS0İ3000:45000 NT0:3000:"^THIS GRAPH CAN ONLY BE":"DONE ON A PRINTER.":6030:38100:7500 10010::3:1:1: :3                    ::(4);"RUN LOGO,D1"777000%'54,189:55,158:43603,240:43604,253:\%'54,237:55,148:43603,237:43604,148:% N:3:1:1:"^PLEASE REMOVE THE ^P^R^O^G^R^A^M DISK":"FROM THE DRIVE AND REPLACE":"IT WITH THE ^D^A^T^A DISK.":"^PRESS ^R^E^T^U^R^N WHEN YOU ARE READY."&*Q%ST(X)SA(X):SQ%8YY1:U(Y)XW$"X:X1Y:CU(X):MA$(C):X:X19:ST(X)SA(X):$"Y0ĺ"THERE ARE NO DIFFERENCES BETWEEN THE PERSON AND THE CLASS."::$"IS1İ8500:(12):20)"PRESCRIPTIVE INFORMATION FOR "N1$" ";N2$:7800%"IS2İ8500:PRESSIVENESS"1#"MA$(9)"WRITTEN EXPRESSIVENESS"7#"p#"IS1ĺ20)"AREAS OF CLASS AND STUDENT DIFFERENCES."#"IS2ĺ20)"AREAS OF CLASS AND TEACHER DIFFERENCES."#"Y0#"X19:SA(X)ST(X)SQ%SA(X)ST(X):SQ%8YY1:U(Y)X"$"SA(X)ST(X)S1G:"*";::;"`"" INDIVIDUAL STYLE =";:8700:: #"MA$(1)"VISUAL LANGUAGE":MA$(2)"VISUAL NUMERIC":MA$(3)"AUDITORY LANGUAGE":MA$(4)"AUDITORY NUMERIC":MA$(5)"TACTILE CONCRETE":MA$(6)"SOCIAL INDIVIDUAL":MA$(7)"SOCIAL GROUP":MA$(8)"ORAL EX:"=";:::"!!GST(X):G10G11!!G40G45G!!G10G20GG10W!!G20GG2l!!G20G30GG2!!G29G39ETST(X)!!W1G:"/";::!!GSA(X):G10G1! "G40G45!"G10G20GG10!"G20GG2!"G20G30GG2""WTEBOOKS FOR CREDIT. EMPHASIZE WRITTEN":"TESTS. ORAL WORK SHOULD COME IN LOW PRESSURE,":"NON-LEARNING SITUATIONS.":LFLF4: 8"8 AND 9. STUDENT(S) CAN DO WRITTEN WORK ON ABOUT THE SAME LEVEL AS ORAL WORK.":LFLF2: V180:"#";::: !4!V180LOW STUDENT(S) TO PRESENT REPORTS TO CLASS OR ON TAPE FOR CREDIT.":"DEMAND A MINIMUM (BUT HIGH QUALITY) OF WRITTEN WORK.":"EVALUATE MORE ON ORAL WORK THAN ON WRITTEN TEST.":LFLF3:} 7"9. ALLOW STUDENT(S) TO WRITE REPORTS, AND KEEP":"JOURNALS AND NOITUATIONS. GIVE STUDENT(S)":"TIME ALONE TO WORK ON PROBLEMS AND ASSIGNMENTS.":LFLF2:,"7. STUDENT(S) WILL NEED TO INTERACT WITH OTHERS TO REVIEW FOR TESTS.":LFLF1:1"6 AND 7. STUDENT(S) CAN LEARN ALONE OR WITH A GROUP.":LFLF2:6"8. AL"5. STUDENT(S) WILL NEED SOME HANDS-ON EXPERIENCE TO SUPPLEMENT":"LEARNING. HAVE STUDENT(S) DRAW PICTURES OR ACT OUT A STORY.":"USE PHYSICAL OBJECTS SUCH AS BLOCKS TO TEACH MATH CONCEPT.":LFLF3:X""6. SAVE SOCIALIZING EXPERIENCES FOR NON-LEARNING SN THE BOARD.":LFLF2:"4. READ PROBLEMS ALOUD AS THEY ARE WORKED. STUDENT(S) WILL ALSO BENEFIT FROM":"DISCUSSIONS OF PROBLEMS AND CONCEPTS.":LFLF2:"2 AND 4. STUDENT(S) CAN LEARN ORAL OR WRITTEN PRESENTATIONS ABOUT EQUALLY.":LFLF1:"1 AND 3. STUDENT(S) WILL BE ABOUT EQUAL IN VISUAL AND LISTENING SKILLS. PRESENT":"INFORMATION IN BOTH WRITTEN AND ORAL FORM.":LFLF2:"2. USE WORKSHEETS AND WORKBOOKS FOR STUDENT(S). WORK PROBLEMS ON THE BOARD OR":"HAVE STUDENT(S) WORK THEM OMPORTANT INFORMATION ON THE BOARD,":"HAND OUT WRITTEN INSTRUCTIONS, OR HAVE STUDENT(S) TAKE NOTES IN CLASS.":LFLF3:"3. USE TAPES, LECTURES, ROTE ORAL PRACTICE, OR CLASS DISCUSSION":"TO HELP STUDENT(S) HEAR INFORMATION TO BE LEARNED.":LFLF2:ST(6)ST(7)İ7980:/ST(8)ST(9)İ7990:HST(8)ST(9)İ7992:aST(8)ST(9)İ7991:tT164LF:::(4);"PR#0"3000:IS030404000w"1. USE BOOKS, PAMPHLETS, AND OTHER WRITTEN MATERIAL TO ENHANCE":"LEARNING. WRITE IVE INFORMATION FOR CLASS # ";N88xST(1)ST(3)İ7900:QzST(1)ST(3)İ7920:j}ST(1)ST(3)İ7910:ST(2)ST(4)İ7930:ST(2)ST(4)İ7950:ST(2)ST(4)İ7940:ST(5)25İ7960:ST(6)ST(7)İ7970:ST(6)ST(7)İ7985: MEANS YOU LEARN BEST BY INTERACTING WITH A GROUP.":"ORAL EXPRESSIVENESS MEANS HOW WELL YOU EXPRESS YOURSELF WHEN YOU TALK.":"WRITTEN EXPRESSIVENESS MEANS HOW WELL YOU EXPRESS YOURSELF IN WRITING."::8400T117::20)"PRESCRIPTIU ARE BETTER WITH NUMBERS WHEN YOU CAN HEAR THEM":"SPOKEN.":"TACTILE CONCRETE MEANS YOU ARE A BUILDER AND LEARN BEST WHEN YOU CAN TOUCH":"WHAT YOU ARE STUDYING.":"SOCIAL INDIVIDUAL MEANS YOU PREFER TO WORK ON YOUR OWN.":5"SOCIAL GROUP"^TYPE THE NAME OF THE INDIVIDUAL":"WHOSE DATA YOU WISH TO COMPARE":"WITH THE COMPOSITE OF CLASS # "N8",":"THEN PRESS ^R^E^T^U^R^N."5"^FIRST ^NAME: ";5X13:Y5:L2$"A":L3$"Z":MAX10:50000:N1$N$5µ:"^LAST ^NAME: ";6̵X12:Y6:L2$"A":L34II1KC:XX1_4("^"L1$(NN,II);", ""^";E1$(NN,II):X9X0:6000:3010:"^CLASS # ";NNm42II:60004ܴ3010:"^DO YOU WISH TO SEE ANY MORE":"CLASS FILES? (^Y OR ^N):"4洹16368,0:A$:A$"Y"A$"N"463104A$"Y"45020453010:3ij3000:I0:Q146100=3γX0:3010:NN19:CKCJ(NN):3010T3سCK0İ5000:46090l3⳺"^CLASS # ";NN:X0x3쳁I1CK3"^"L1$(NN,I)", ""^";E1$(NN,I):XX1:X9X0:6000:3010:"^CLASS # ";NN3I:60003 NN:4630043010:"^CLASS # ";NN:X0U14531020Q146000!2:NN2R21İ3000:"^PLEASE REMOVE THE ^D^A^T^A DISK":"FROM THE DRIVE AND REPLACE":"IT WITH THE ^P^R^O^G^R^A^M DISK.":"^PRESS ^R^E^T^U^R^N WHEN YOU ARE READY.":10000:30202PF1ĺ"^P^R^I^N^T^I^N^G...":10000:470000āNN19:CTCJ(NN):CT24537041갭Q10CK246000>1KCCTW1U0:CTCT1:RP1CT{1L1$(NN,RP)L1$(NN,RP1)453401SW$L1$(NN,RP):L1$(NN,RP)L1$(NN,RP1):L1$(NN,RP1)SW$:SW$E1$(NN,RP):E1$(NN,RP)E1$(NN,RP1):E1$(NN,RP1)SW$:U11RP 2&CTCJ(NN):CT045270>0R21ĺ:(4);"OPEN FILE"NN",L60,D1"g0R22ĺ:(4);"OPEN FILE"NN",L60,D2"t0RE1CT0:(4);"READ FILE"NN",R";RE0L$:L1$(NN,RE)L$:E$:E1$(NN,RE)E$0RE0°:(4);"CLOSE FILE";NN0̰Q1452900ְNN1భQ00/610000:30000%/@Q0āNN19N/JR21ĺ:(4);"OPEN FILE"NN",L60,D1"w/TR22ĺ:(4);"OPEN FILE"NN",L60,D2"/^:(4);"READ FILE"NN",R0"/cCT/h:(4);"CLOSE FILE";NN/rQ1CT046000/sQ145190/|CJ(NN)CT:NN/}NN190ERED FROM 1 TO 9":"^TYPE THE NUMBER OF THE FILE YOU":"WISH TO SEE, OR TYPE ^O TO SEE":"THE ENTIRE FILE.".16368,0:A$:A$"1"A$"9"ĭA$"0"A$"O"45060.A$"O"A$"0"Q10.A$"0"A$"10"NN(A$).""^S^O^R^T^I^N^G..."/,R21İ200$"0"A$"O"İ45020:Q0:45010B-ٯA$"0"A$"10"NN(A$):46500-ܯ3010:"^DO YOU WISH TO SEE THE CLASS FILES":"ON THE SCREEN OR ON THE PRINTER?":"(^S OR ^P): ";-毹16368,0:A$:A$"S"A$"P"45030-A$"P"PF1k.3010:"^CLASSES ARE NUMBAIN BOTH GRAPHS.":6030:38100.,ͯIS255000,ү3000:"^TYPE THE NUMBER OF THE CLASS":"THE INDIVIDUAL IS IN. ^PRESS ^O ":"IF YOU WISH TO REVIEW THE NAMES":"PRESENTLY IN THE CLASS FILES.",ׯ16368,0:A$:A$"1"A$"9"ĭA$"0"A$"O"45015-دADRIVE AND REPLACE":"IT WITH THE ^P^R^O^G^R^A^M DISK.":"^PRESS ^R^E^T^U^R^N WHEN YOU ARE READY.":36100n+&,ȯ"^THIS INDIVIDUAL MATCHED AGAINST A":"CLASS COMPOSITE CAN ONLY BE":"PRINTED ON THE PRINTER. ^THE ":"SCREEN IS NOT LARGE ENOUGH":"TO CONT"CLOSE FILE";N8*NT1İ10010::3:1:1:"^SORRY, THERE IS NO DATA ENTERED":"IN THE FILE FOR CLASS "N8".":6000::(4)"BLOAD CHAIN,A520,D1":520"EDITOR1,D1"*X19:ST(X)(ST(X)CK):h+!R21İ3000:"^PLEASE REMOVE THE ^D^A^T^A DISK":"FROM THE ILE"N8",R0")̜CT:CKCT/)ҜCK0NT1:40210<)֜RR1CK]):(4);"READ FILE"N8",R";RRi)圄N$:L${)꜁X19:SA(X))SA(X)21X(X)X(X)1)SA(X)20SA(X)31Y(X)Y(X)1)SA(X)30Z(X)Z(X)1)ST(X)ST(X)SA(X))X:RR*:(4); A COMPOSITE":"GRAPH. ^CLASSES ARE NUMBERED FROM 1":"TO 9. ";f(L16368,0:A$:A$"1"A$"9"39500w(aN8(A$):A$(@R21İ20000(10000:30000(R21ĺ:(4);"OPEN FILE"N8",L60,D1"(R22ĺ:(4);"OPEN FILE"N8",L60,D2" )œ:(4);"READ F,152:776,72:777,96:768F'NuCOCO1:CO3CO0::(4);"RUN LOGO,D1"Q'Xu30020t'16368,0:A$:A$(13)35000z'ˆ'10010::3:1:1:'16368,0:A$:A$(13)36100'?(Ԕ:3:1:1:"^TYPE THE NUMBER OF THE CLASS":"FOR WHICH YOU WANTN16368,0:A$:A$(13)20010>&/N1:8:"^S^O^R^T^I^N^G..."D&4Nm&0uR21ĺ:(4);"VERIFY CODEFILE,D1":&:uR22ĺ:(4);"VERIFY CODEFILE,D2":&DuERR(222):216,0:16368,0:0'Iu768,104:769,168:770,104:771,166:772,223:773,154:774,72:775N^G...":10000:40000 K100103 PI0:NFL1205X ZX0::3:1:1:NN19:CKCJ(NN)g _:3:1:1| dCK0İ5000:130 i"^CLASS # ";NN:X0 nI1CK x"^"L1$(NN,I);", ";"^"E1$(NN,I):XX1:X9X0:6000::3:1:1:"^CLASS # ";NN }I " :R21İ20000+ <10000:30000:25000 FR21İ10010::3:1:1:"^PLEASE REMOVE THE ^D^A^T^A DISK":"FROM THE DRIVE AND REPLACE":"IT WITH THE ^P^R^O^G^R^A^M DISK.":"^PRESS ^R^E^T^U^R^N WHEN YOU ARE READY.":10000:36100 JPF1ĺ"^P^R^I^N^T^I^): ";+ 16368,0:A$:A$"S"A$"P"20= C$"^"A$:C$N A$"P"PF1 :3:1:1:"^CLASSES ARE NUMBERED FROM 1 TO 9.":"^TYPE THE NUMBER OF THE FILE YOU":"WISH TO SEE, OR TYPE ^O TO SEE":"THE ENTIRE FILE." (39500 9"^S^O^R^T^I^N^G...o& 30020<38210,14:975,0:783,64:232,170:233,149R:3:10010:1:1xFLAG0:NFL0:CK0:KC0:PF0:WFL0SH038000SH145000 PURGER "^DO YOU WISH TO SEE THE CLASS FILES":"ON THE SCREEN OR ON THE PRINTER?":"(^S OR ^P           0:30400 YOU ARE READY.":16368,0:A$:A$(13)56005D?ڭNR1NR0:7500?ڭNR0İ3000:"^SORRY, THERE IS NO DATA FOR":"^"N3$" ""^"N4$". ^PLEASE":"CHECK YOUR SPELLING AND TRY AGAIN."?ڰ6000:30400EAD TFILE1,R";REG>ZׄL$:N$:L$N4$N$N3$āX19:SA(X)::NR1:56000T>dׂRE:NR0o>ں:(4);"CLOSE TFILE1"/?ڭR21İ3000:"^PLEASE REMOVE THE ^D^A^T^A DISK":"FROM THE DRIVE AND REPLACE":"IT WITH THE ^P^R^O^G^R^A^M DISK.":"^PRESS ^R^E^T^U^R^N WHENT^U^R^N: ";==X25:Y7:L2$"A":L3$"Z":MAX10:50000:N4$N$N=׭R21İ20000`= װ10000:30000=׭R21ĺ:(4);"OPEN TFILE1,L60,D1"=׭R22ĺ:(4);"OPEN TFILE1,L60,D2"=(׺:(4);"READ TFILE1,R0"=2ׄCT=<׭CT0ī56000=FׁRE1CT>P׺:(4);"R^TYPE THE FIRST NAME OF THE":"TEACHER WHOSE GRAPH YOU WISH TO ":"COMPARE WITH THE COMPOSITE OF":"CLASS # "N8", THEN PRESS":"^R^E^T^U^R^N: ";? ";yK7$:K7$"Y"K7$"N"38040K7$"N"39900R21T31:20000:T3010000:3000010010::10:5:"** ^PURGING **":10000R22ĺ:(4);"DELETEOU LIKE TO DELETE:"::"1) A ^S^I^N^G^L^E ^S^T^U^D^E^N^T'S FILE":"2) AN ^E^N^T^I^R^E ^C^L^A^S^S FILE"::"^TYPE THE NUMBER OF YOUR CHOICE."zK8$:K8$"1"K8$"2"38010K8$"1"ī38100:3:1:1:"^TYPE THE NUMBER OF THE CLASS":"FILE YOU WI4);"RUN MENU1,D1"Nu:3:1:1:"^YOU HAVE GENERATED AN ERROR.":"^PLEASE CHECK THE DRIVE DOOR":"OR SEE IF YOU HAVE THE":"CORRECT DISK INSERTED.":6000:10000:010010::3:1:1:16368,0:A$:A$(13)36100hp:3:1:1:"^WOULD YE1$(NN,RP):E1$(NN,RP)E1$(NN,RP1):E1$(NN,RP1)SW$:U1?dRPOdU1ī25590`(dNFL126000h,eNNne0uR21ĺ:(4);"VERIFY CODEFILE,D1"::uR22ĺ:(4);"VERIFY CODEFILE,D2":Du216,0:16368,0:10010IuCOCO1:CO3CO0:10000::(Hb:(4);"CLOSE FILE";NN+RbNFL1255703cNNacNFL0āNN19:CKCJ(NN):CK0CK125900xcNFL10CK226000cKCCKcU0:CKCK1:RP1CKdL1$(NN,RP)L1$(NN,RP1)256207 dSW$L1$(NN,RP):L1$(NN,RP)L1$(NN,RP1):L1$(NN,RP1)SW$:SW$aNFL125100"aCJ(NN)CK:NN.bNN19HbCKCJ(NN):CK025500s bR21ĺ:(4);"OPEN FILE";NN;",L60,D1"bR22ĺ:(4);"OPEN FILE";NN;",L60,D2" bRE1CK*b:(4);"READ FILE";NN;",R";RE4bL$:L1$(NN,RE)L$:E$:E1$(NN,RE)E$>bRE(N$)1):0:Y:X1:A$:Y:X1:" ":X1X11:7:21010GaNFL0āNN19raR21ĺ:(4);"OPEN FILE";NN;",L60,D1"aR22ĺ:(4);"OPEN FILE";NN;",L60,D2"a:(4);"READ FILE";NN;",R0"aCT:CKCTa:(4);"CLOSE FILE";NNaNFL1CK0ī26000)MAX21010J+RN$""(A$"@"A$"Z")X1X:Y:X1:"^";A$:N$N$A$:21010q0RX1X11:Y:X1:A$:N$N$A$:21010DR(N$)021010IR(N$)1Ē0:Y:X1:"^";N$:X1X:7:N$"":21010NR(N$)1Ē0:Y:X1:N$:X1X:7:N$"":210104XRA$(N$,1):N$(N$,^PRESS ^R^E^T^U^R^N WHEN YOU ARE READY."K*N16368,0:A$:A$(13)20010p/NT30Ė1:8:"^S^O^R^T^I^N^G..."v4NRX1X:N$""R16368,0:Y:X11:A$RN$""A$(13)21010RA$(13)ıRA$(8)21060#RA$L2$A$L3$21010 &R(N$NTINUE."*z16368,0:A$:A$(32)60100\'54,189:55,158:43603,240:43604,253:'54,237:55,148:43603,237:43604,148:( N:3:1:1:"^PLEASE REMOVE THE ^P^R^O^G^R^A^M DISK":"FROM THE DRIVE AND REPLACE":"IT WITH THE ^D^A^T^A DISK.":"ES? (^Y OR ^N): ";: 16368,0:A$:A$"Y"A$"N"4010L C$"^"A$:C$m A$"Y"NFL0:WFL0:PF0:10t 2 :3:1:1:"^SORRY, THERE IS NO DATA ENTERED":"IN THE FILE FOR CLASS ";NN;".":6000:p4:12:"^PRESS THE ^S^P^A^C^E ^B^A^R TO CO~6000 NN:4000+ KC0İ5000:4000N :3:1:1:"^CLASS # ";NN:X0a II1KC:XX1 "^"L1$(NN,II);", ";"^"E1$(NN,II) X9X0:6000::3:1:1:"^CLASS # ";NN II:6000 :3:1:2:"^DO YOU WISH TO SEE ANY MORE":"CLASS FIL"Z":MAX10:X10:Y8:21000:N2$N$(+س+PÐ:3:1:1:"^WOULD YOU LIKE TO DELETE:"::"1) A ^S^I^N^G^L^E ^T^E^A^C^H^E^R'S FILE":"2) THE ^E^N^T^I^R^E ^T^E^A^C^H^E^R FILE"::"^TYPE THE NUMBER OF YOUR CHOICE.";+ZþK8$:K8$"1"K8$"2"50010,díK8$*:3:1:1:"^TYPE THE FIRST NAME OF THE ":"INDIVIDUAL YOU WISH TO DELETE,":"THEN PRESS ^R^E^T^U^R^N: ";*L2$"A":L3$"Z":MAX10:X20:Y3:21000:F2$N$*ij1:6:"^TYPE THE INDIVIDUAL'S LAST":"NAME, THEN PRESS ":"^R^E^T^U^R^N: ";"+γL2$"A":L3$XR21İ36000:"^PLEASE REMOVE THE ^D^A^T^A DISK":"FROM THE DRIVE AND REPLACE":"IT WITH THE ^P^R^O^G^R^A^M DISK.":"^PRESS ^R^E^T^U^R^N WHEN YOU ARE READY.":10000:36100)10010::1:1:3:"^"F2$;" ";"^"N2$:"HAS BEEN DELETED.")Ʊ6000:39900mJR22ĺ:(4);"OPEN TFILE1,L60,D2"5(OTKCT45180T(T:(4);"READ TFILE1,R";CTr(^LN$:NA$:X19:SA(X):(h:(4);"WRITE TFILE1,R";TK(rLN$:NA$:X19:SA(X):(|CTCT1(:(4);"WRITE TFILE1,R0"(CT(:(4);"CLOSE TFILE1")ROM THE DRIVE AND REPLACE":"IT WITH THE ^P^R^O^G^R^A^M DISK.":"^PRESS ^R^E^T^U^R^N WHEN YOU ARE READY.":10000:36100'6HA0İ10010::3:1:1:"^SORRY, THAT NAME IS NOT IN THE":"TEACHERS' FILE.":6000:39900'@R21ĺ:(4);"OPEN TFILE1,L60,D1"$(EN TFILE1,L60,D2".&:(4);"READ TFILE1,R0"H&"CK:CTCK:CT045099U&'TK1CTt&(:(4);"READ TFILE1,R";TK&)L9$:N9$:L9$N2$N9$F2$HA1:45099&*TK&+:(4);"CLOSE TFILE1"w',HA0R21İ36000:"^PLEASE REMOVE THE ^D^A^T^A DISK":"F";"^"N2$;"?(^Y OR ^N): ";C%ܯ16368,0:A$:A$"Y"A$"N"45020U%ݯC$"^"A$:C$g%߯A$"Y"45040%᯺"^"F2$;" ";"^"N2$:"IS NOT DELETED.":6000:39900%R21İ20000%10000:30000%R21ĺ:(4);"OPEN TFILE1,L60,D1"&R22ĺ:(4);"OP::$X0:"CLASS # ";NN)$\II1KCI$L1$(NN,II);", ";E1$(NN,II)Q$$IId$p:(4);"PR#0"$ԭ1: PRINT CHR$ (4);"BLOAD CHAIN,A520,D1": CALL 520"LOADER,D1" $ȯ50000:46000%ү:3:1:1:"^ARE YOU CERTAIN YOU WISH TO":"DELETE ";"^"F2$;" G#T28)"EDUCATIONAL ACTIVITIES.":EE179:"-";:::I0:NFL143000u#^X0:NN19:CKCJ(NN):CK0İ42000:40255#hX0:"CLASS # ";NN:I1CK#rL1$(NN,I);", ";E1$(NN,I)#I::#?NN#D44400$"SORRY, THERE IS NO DATA FOR CLASS # ";NN:"^DO YOU WISH TO DELETE ANY MORE":"FILES? (^Y OR ^N): ";b"曹16368,0:A$:A$"Y"A$"N"39910t"C$"^"A$:C$"HA0: TEACHER DELETE FLAG"A$"N"İ10000::(4);"BLOAD CHAIN,A520,D1":520"EDITOR,D1""2"@:(4);"PR#1"#J:(9);"80N"RE:LN$:NA$:X19:SA(X):::(4);"CLOSE FILE";NN!͛R21İ36000:"^PLEASE REMOVE THE ^D^A^T^A DISK":"FROM THE DRIVE AND REPLACE":"IT WITH THE ^P^R^O^G^R^A^M DISK.":"^PRESS ^R^E^T^U^R^N WHEN YOU ARE READY.":10000:36100!ћ100109"ܛ:3:1:1:(4);"CLOSE FILE";NNx țR22ĺ:(4);"OPEN FILE";NN;",L60,D2"::(4);"WRITE FILE";NN;",R0":NS::(4);"CLOSE FILE";NN ɛNS039885 ʛR21ĺ:(4);"OPEN FILE";NN;",L60,D1" ˛R22ĺ:(4);"OPEN FILE";NN;",L60,D2"4!̛:(4);"WRITE FILE";NN;",R";ILE";NN;",L60,D1"<R22ĺ:(4);"OPEN FILE";NN;",L60,D2"MRENS39865:(4);"READ FILE";NN;",R";NS:LN$:NA$:X19:SA(X):::(4);"CLOSE FILE";NNNSNS1 R21ĺ:(4);"OPEN FILE";NN;",L60,D1"::(4);"WRITE FILE";NN;",R0":NS::^N): ";0n16368,0:A$:A$"Y"A$"N"39790BrC$"^"A$:C$Qt:3:1:1uA$"Y"ĺ"^"F2$;" ";"^"N2$;" IS":"DELETED FROM CLASS #";NN;".":10000:39861vA$"N"ĺ"^"F2$;" ";"^"N2$:"IS NOT DELETED.":6000:39885R21ĺ:(4);"OPEN FM DISK.":"^PRESS ^R^E^T^U^R^N WHEN YOU ARE READY.":36100ZNQ0İ10010::3:1:1:"^SORRY, THAT NAME IS NOT IN THE":"FILE FOR CLASS # ";NN;".":6000:39900d36000:"^ARE YOU CERTAIN YOU WISH":"TO ^D^E^L^E^T^E ";"^"F2$;" ";"^"N2$;"?":"(^Y OR RE1NS+<:(4);"READ FILE";NN;",R";REbFL$:N$:L$N2$N$F2$āX19:SA(X)::NQ1:39760oKRE:NQ0P:(4);"CLOSE FILE";NN:UNQ0ĭR21İ36000:"^PLEASE REMOVE THE ^D^A^T^A DISK":"FROM THE DRIVE AND REPLACE":"IT WITH THE ^P^R^O^G^R^A^0,D1":520"LOADER,D1"1:1:"^V^I^S^U^A^L ^L^A^N^G^U^A^G^E MEANS THAT YOU":"LEARN LANGUAGE SKILLS BY SIGHT,":"MAINLY BY READING.":"^V^I^S^U^A^L ^N^U^M^E^R^I^C MEANS THAT YOU":"DO BETTER WITH NUMBERS WHEN":"YOU SEE THEM WRITTEN."H"^A^U^3:12:"^DO YOU WANT MORE INFORMATION":"ABOUT LEARNING STYLES? (^Y OR ^N): ";u 16368,0:A$:A$"Y"A$"N"170 C$"^"A$:C$ A$"N"TH1İ10000::(4);"BLOAD CHAIN,A520,D1":520"TEACHER1,D1"A$"N"TH0İ10000::(4);"BLOAD CHAIN,A52143:R3153:JJSA(6):1050` x11:12:"7.^SOCIAL":12:13:"GROUP":R1167:R3177:JJSA(7):1050 11:22:"8.^ORAL":12:22:"EXPRESSIVENESS":R1190:R3200:JJSA(8):1050 13:"9.^WRITTEN EXPRESSIVENESS":R1215:R3225:JJSA(9):1050 1000N UDITORY":12:23:"LANGUAGE":R172:R382:JJSA(3):1050y P13:"4.^AUDITORY":14:"NUMERIC":R195:R3105:JJSA(4):1050 Z13:12:"5.^TACTILE":14:12:"CONCRETE":R1120:R3130:JJSA(5):1050 d1000 i7 n11:"6.^SOCIAL":12:"INDIVIDUAL":R10:"LIKE":8:30:"ME"f (3:230,12230,120:1:0,120279,120:7:10:4:"1 2 3 4 5 6 7 8 9" 211:"1.^VISUAL":12:"LANGUAGE":R120:R330:JJSA(1):1050 <11:12:"2.^VISUAL":12:12:"NUMERIC":R147:R357:JJSA(2):10507 F11:23:"3.^AA$"P"ī300004 (F1$)(NL$)17F1$(F1$,2)"." :3:1:1:"^LEARNING ^STYLES- ";F1$;" ";NL$:1:0,10279,10:2:1:"40":4:"30":6:"20":8:"10" "3:18,1218,120 #3:2:30:"^MOST":3:30:"LIKE":4:30:"ME" $6:30:"^LEAST":7:3 45000 LF0:LN0:TF0O38210,13:975,0:783,64:232,170:233,149kF1$"^"FF$:NL$"^"LN$v10010X19:JW(X)SA(X)::0TH0İ11000 TH1Đ:7:2:11500 16368,0:A$:A$"S"A$"P"10C$"^"A$:C$           ES"" nD$"6"ĺ(4);"RUN LOADER"N '54,189:55,158:43603,240:43604,253:z '54,237:55,148:43603,237:43604,148: 0u:(4);"RUN LOADER,D1"2E,D1"2E) e10000, iD$"1"ĺ(4);"RUN PRINTER"d jD$"2"ĺ:(4);"BLOAD CHAIN,A520":520"TEACH.TEST" kD$"3"ĺ:(4);"BLOAD CHAIN,A520":520"EDITOR" lD$"4"ĺ:(4);"BLOAD CHAIN,A520":520"EDITOR1,D1" mD$"5"ĺ:(4);"BLOAD CHAIN,A520":520"FILL OR ^GROUP":6:7:"^GRAPHS"` 27:3:"5.) ^DISPLAY ^CLASS ^FILES":8:3:"6.) ^END ^PROGRAM" <10:1:"^TYPE THE NUMBER OF YOUR SELECTION." P16368,0 _D$:D$"1"D$"6"95 `D$"4"Ģ(D$)2:1:(45);(62):101 d(D$)1:1:(45);(62 30000<38210,14:975,0:783,64:232,170:233,149ECO0U :7:100101:15:"^M^E^N^U":2:3:"1.) ^PRINT ^QUESTIONNAIRE"3:3:"2.) ^TAKE ^TEACHER ^TEST":4:3:"3.) ^ENTER OR ^EDIT ^TEST ^DATA" (5:3:"4.) ^PRINT ^INDIVIDUA   ^R^E^T^U^R^N WHEN YOU ARE READY.":36100a.ǰ10000::(4);"BLOAD CHAIN,A520,D1":520"EDITOR,D1"h. ˫02PǭR21ĺ:(4);"DELETE TFILE1,D1"?-jǺ:(4);"OPEN TFILE1,L60"\-tǺ:(4);"WRITE TFILE1,R0-~Ǻ0:(4);"CLOSE TFILE1":10010(.ǭR21İ36000:"^PLEASE REMOVE THE ^D^A^T^A DISK":"FROM THE DRIVE AND REPLACE":"IT WITH THE ^P^R^O^G^R^A^M DISK.":"^PRESS "1"ı,,uúK8$::"^ARE YOU SURE <^Y/^N>? ";N,xþK7$:K7$"Y"K7$"N"50040a,íK7$"N"39900,8Dz ENTIRE TEACHER FILE PURGE,BǭR21T31:20000:T30,Lǰ10000:30000:10010::10:5:"** ^PURGING **":10000,VǭR22ĺ:(4);"DELETE TFILE1,D2"!-`ET20ET30ETET2)ˆW1ET:"/";::"1. USE BOOKS, PAMPHLETS, AND OTHER WRITTEN MATERIAL TO ENHANCE LEARNING. WRITE":"IMPORTANT INFORMATION ON THE BOARD, HAND OUT WRITTEN INSTRUCTIONS, OR HAVE":"STUDENT(S) TAKE NOTES IN CLASS.":i"3. USE SA(9)İ40196:C}TH1ĺ:(4);"BLOAD CHAIN,A520":520"TEACHER1"u}TH0ĺ:(4);"BLOAD CHAIN,A520":520"LOADER"老V180:"#";:::ЄV180:"=";:::ETJW(X):ET10ET1ET30ET34ET40ET48ET10ET20ETET10SA(3)İ40110:(uSA(2)SA(4)İ40130:BuSA(2)SA(4)İ40150:\uSA(2)SA(4)İ40140:suSA(5)25İ40160:uSA(6)SA(7)İ40170:uSA(6)SA(7)İ40190:uSA(6)SA(7)İ40180:uSA(8)SA(9)İ40195:uSA(8)SA(9)İ40197:uSA(8)S HOW WELL YOU EXPRESS YOURSELF WHEN YOU TALK."::"WRITTEN EXPRESSIVENESS MEANS HOW WELL YOU EXPRESS YOURSELF IN WRITING.":33000u(12):20)"PRESCRIPTIVE INFORMATION FOR ";FF$;" ";LN$:uSA(1)SA(3)İ40100:uSA(1)SA(3)İ40120:uSA(1)CRETE MEANS YOU ARE A BUILDER AND LEARN BEST WHEN YOU CAN TOUCH":"WHAT YOU ARE STUDYING.":u"SOCIAL INDIVIDUAL MEANS YOU PREFER TO WORK ON YOUR OWN."::"SOCIAL GROUP MEANS YOU LEARN BEST BY INTERACTING WITH A GROUP."u:"ORAL EXPRESSIVENESS MEANVISUAL NUMERIC MEANS THAT YOU DO BETTER WITH NUMBERS WHEN YOU SEE THEM":"WRITTEN."::"AUDITORY LANGUAGE MEANS THAT YOU LEARN BEST BY LISTENING.":\u"AUDITORY NUMERIC MEANS YOU ARE BETTER WITH NUMBERS WHEN YOU CAN HEAR THEM":"SPOKEN."::"TACTILE CONRESSIVENESS *";:X8:35000::"WRITTEN EXPRESSIVENESS *";:X9:35000:u34000::27)"10 20 30 40"u33000:"VISUAL LANGUAGE MEANS THAT YOU LEARN LANGUAGE SKILLS BY SIGHT, MAINLY BY":"READING.":u":X2:35000::"AUDITORY LANGUAGE *";:X3:35000:vu"AUDITORY NUMERIC *";:X4:35000::"TACTILE CONCRETE *";:X5:35000:u"SOCIAL INDIVIDUAL *";:X6:35000::"SOCIAL GROUP *";:X7:35000Mu:"ORAL EXP..":10000:X0:(4);"PR#1"PNu20)"LEARNING STYLES CHART FOR ";FF$;" "LN$;"."Xu"LEARNING STYLES LEAST LIKE ME MOST LIKE ME "bu34000:"VISUAL LANGUAGE *";:X1:35000:9lu"VISUAL NUMERIC *";;"."]\+"^DO YOU WISH TO SEE YOUR GRAPH ON":"THE SCREEN OR ON A PRINTER?":"(^S OR ^P): ";cf+,7:"^DO YOU WISH TO SEE YOUR ^L^E^A^R^N^I^N^G":"^S^T^Y^L^E^S GRAPH ON THE SCREEN OR ON":"A PRINTER? (^S OR ^P): ";-0u:6:"^P^R^I^N^T^I^N^G.7p13:5:"^PRESS ^S^P^A^C^E^B^A^R TO CONTINUE."Yz16368,0:A$:A$(32)6010_'54,189:55,158:43603,240:43604,253:'54,237:55,148:43603,237:43604,148:*:7:2:1:"^READY TO PRINT LEARNING":"STYLES GRAPH FOR ";F1$:NL$A$"N"TH1İ10000::(4);"BLOAD CHAIN,A520,D1":520"TEACHER1,D1"rX15000::0:Y140191:0,Y279,Y:Y:1:JJJJ2.5:X1JJ:R1,(120X)R3,(120X):X:7::"(^PRESS ^S^P^A^C^E^B^A^R FOR AN EXAMPLE)"16368,0:A$:A$(32)5010 YOU WISH TO REVIEW YOUR":"GRAPH? (Y OR N): ";n.TH1ĺ"^DO YOU WISH TO REVIEW YOUR":"CHART? (Y OR N): ";616368,0:A$:A$"Y"A$"N"3107C$"^"A$:C$@A$"Y"ī8JA$"N"TH0İ10000::(4);"BLOAD CHAIN,A520,D1":520"LOADER,D1"DTCTING WITH A GROUP.":"^O^R^A^L ^E^X^P^R^E^S^S^I^V^E^N^E^S^S MEANS":"YOU EXPRESS YOURSELF BEST":"WHEN YOU TALK.""^W^R^I^T^T^E^N ^E^X^P^R^E^S^S^I^V^E^N^E^S^S MEANS":"YOU EXPRESS YOURSELF BEST IN":"WRITING."6000,:7:1:1/-TH0ĺ"^DORE":"A BUILDER AND LEARN BEST WHEN":"YOU CAN TOUCH WHAT YOU":"ARE STUDYING.""^S^O^C^I^A^L ^I^N^D^I^V^I^D^U^A^L MEANS":"YOU PREFER TO WORK ON YOUR":"OWN."60000::7:1:1r"^S^O^C^I^A^L ^G^R^O^U^P MEANS YOU LEARN":"BEST BY INTERAD^I^T^O^R^Y ^L^A^N^G^U^A^G^E MEANS THAT":"YOU LEARN BEST BY LISTENING."R6000d0::7:1:1O"^A^U^D^I^T^O^R^Y ^N^U^M^E^R^I^C MEANS YOU ARE":"BETTER WITH NUMBERS WHEN YOU":"CAN HEAR THEM SPOKEN.":"^T^A^C^T^I^L^E ^C^O^N^C^R^E^T^E MEANS YOU A^N^G":"^S^T^Y^L^E^S GRAPH ON THE SCREEN OR ON":"A PRINTER? (^S OR ^P): ";TLO1g16368,0:AA$AA$"S"AA$"P"6109DP5:A$AA$:A$"P"7500DP9910010(F2$)(N2$)17F2$(F2$,1)".":3:1:1:"^LEARNING ^STYLES:R1,D1"b:3:1:1:"^SORRY, THERE IS NO DATA ENTERED":"IN THE FILE FOR CLASS ";NN;".":6000:p4:12:"^PRESS THE ^S^P^A^C^E ^B^A^R TO CONTINUE."z16368,0:A$:A$(32)6010K10010::3:2:2:"^DO YOU WISH TO SEE YOUR ^L^E^A^R^N^I0ĺ"^DO YOU WISH TO SEE ANY MORE":"CLASS FILES? (^Y OR ^N): "; LO1ĺ"^DO YOU WISH TO SEE ANY MORE":"GRAPHS? (^Y OR ^N): "; 16368,0:A$:A$"Y"A$"N"4010 C$"^"A$:C$ A$"Y"ī210000::(4);"BLOAD CHAIN,A520,D1":520"EDITO }I ~6000 NN:40003 KC0İ5000:4000V :3:1:1:"^CLASS # ";NN:X0i II1KC:XX1 "^"L1$(NN,II);", ";"^"E1$(NN,II) X9X0:6000::3:1:1:"^CLASS # ";NN II:6000 (4);"PR#1":T180:T::@ :3:1:2:LO^I^N^G...":10000:40000( K10010:LO0; PI0:NFL1205` ZX0::3:1:1:NN19:CKCJ(NN)o _:3:1:1 dCK0İ5000:130 i"^CLASS # ";NN:X0 nI1CK x"^"L1$(NN,I);", ";"^"E1$(NN,I):XX1:X9X0:6000::3:1:1:"^CLASS # ";NN..." :R21İ20000. <10000:30000:25000 FR21İ10010::3:1:1:"^PLEASE REMOVE THE ^D^A^T^A DISK":"FROM THE DRIVE AND REPLACE":"IT WITH THE ^P^R^O^G^R^A^M DISK.":"^PRESS ^R^E^T^U^R^N WHEN YOU ARE READY.":10000:36100 JPF1ĺ"^P^R^I^N^T ^P): ";. 16368,0:A$:A$"S"A$"P"20@ C$"^"A$:C$Q A$"P"PF1 :3:1:1:"^CLASSES ARE NUMBERED FROM 1 TO 9.":"^TYPE THE NUMBER OF THE FILE YOU":"WISH TO SEE, OR TYPE ^O TO SEE":"THE ENTIRE FILE." (39500 9"^S^O^R^T^I^N^G/5,LF0:TF0:LN0:GRAPHER1- REVISED 4/87[38210,13:975,0:783,64:232,170:233,149q:3:10010:1:1|38100(218)(219)256:"ERROR # ";(222): "^DO YOU WISH TO SEE THE CLASS FILES":"ON THE SCREEN OR ON THE PRINTER?":"(^S OR                   2% KEEP JOURNALS":"AND NOTEBOOKS FOR CREDIT. EMPHASIZE WRITTEN TEST.":"ORAL WORK SHOULD COME IN LOW PRESSURE, NON-LEARNING":"SITUATIONS.":$"8 AND 9. STUDENT(S) CAN DO WRITTEN WORK ON ABOUT THE SAME LEVEL AS ORAL WORK.":$ȯ:(4);"RUN LOADER,D1"OR WITH A GROUP.":#"8. ALLOW STUDENT(S) TO PRESENT REPORTS TO CLASS OR ON":"TAPE FOR CREDIT. DEMAND A MINIMUM (BUT HIGH QUALITY) OF":"WRITTEN WORK. EVALUATE MORE ON ORAL WORK THAN ON WRITTEN TESTS.":$"9. ALLOW STUDENT(S) TO WRITE REPORTS, AND"6. SAVE SOCIALIZING EXPERIENCES FOR NON-LEARNING SITUATIONS. GIVE":"STUDENT(S) TIME ALONE TO WORK ON":"PROBLEMS AND ASSIGNMENTS.":""7. STUDENT(S) WILL NEED TO INTERACT WITH OTHERS TO REVIEW FOR TESTS.":#"6 AND 7. STUDENT(S) CAN LEARN ALONE LEARN ORAL OR WRITTEN PRESENTATIONS ABOUT EQUALLY.":!"5. STUDENT(S) WILL NEED SOME HANDS-ON EXPERIENCE TO SUPPLEMENT LEARNING.":"HAVE STUDENT(S) DRAW PICTURES OR ACT OUT A STORY.":"USE PHYSICAL OBJECTS SUCH AS BLOCKS TO TEACH MATH CONCEPTS.":"KBOOKS FOR STUDENT(S). WORK PROBLEMS ON THE BOARD":"OR HAVE STUDENT(S) WORK THEM ON THE BOARD.": ̜"4. READ PROBLEMS ALOUD AS THEY ARE WORKED. STUDENT(S)":"WILL ALSO BENEFIT FROM DISCUSSIONS OF PROBLEMS AND CONCEPTS.":5!֜"2 AND 4. STUDENT(S) CAN TAPES, LECTURES, ROTE ORAL PRACTICE,":"OR CLASS DISCUSSION TO HELP STUDENT(S) TAKE":"NOTES IN CLASS.":"1 AND 3. STUDENT(S) WILL BE ABOUT EQUAL IN VISUAL AND LISTENING SKILLS. PRESENT":"INFORMATION TO BE LEARNED.":b œ"2. USE WORKSHEETS AND WOR INFORMATION FOR ";F2$;" ";N2$$ =xSA(1)SA(3)İ7900:VySA(1)SA(3)İ7920:o}SA(1)SA(3)İ7910:SA(2)SA(4)İ7930:SA(2)SA(4)İ7950:SA(2)SA(4)İ7940:SA(5)25İ7960:SA(6)SA(7)İ7970: SA(6)SA(7)İ7985BEST BY INTERACTING WITH A GROUP.":t"ORAL EXPRESSIVENESS MEANS HOW WELL YOU EXPRESS YOURSELF WHEN YOU TALK.":"WRITTEN EXPRESSIVENESS MEANS HOW WELL YOU EXPRESS YOURSELF IN WRITING.":8400T128::T19000:T20)"PRESCRIPTIVE NUMBERS WHEN YOU CAN HEAR THEM":"SPOKEN.":"TACTILE CONCRETE MEANS YOU ARE A BUILDER AND LEARN BEST WHEN YOU CAN TOUCH":"WHAT YOU ARE STUDYING.":"SOCIAL INDIVIDUAL MEANS YOU PREFER TO WORK ON YOUR OWN.":$"SOCIAL GROUP MEANS YOU LEARN NGUAGE SKILLS BY SIGHT, MAINLY BY":"READING.":"VISUAL NUMERIC MEANS THAT YOU DO BETTER WITH NUMBERS WHEN YOU CAN SEE THEM":"WRITTEN."::"AUDITORY LANGUAGE MEANS THAT YOU LEARN BEST BY LISTENING.":-"AUDITORY NUMERIC MEANS YOU ARE BETTER WITH8600::"SOCIAL GROUP *";:X7:8600:"ORAL EXPRESSIVENESS *";:X8:8600::"WRITTEN EXPRESSIVENESS *";:X9:8600:8500::27)"10 20 30 40"08400:"VISUAL LANGUAGE MEANS THAT YOU LEARN LAAL LANGUAGE *";:X1:8600:~~"VISUAL NUMERIC *";:X2:8600::"AUDITORY LANGUAGE *";:X3:8600:"AUDITORY NUMERIC *";:X4:8600::"TACTILE CONCRETE *";:X5:8600:2"SOCIAL INDIVIDUAL *";:X6:1:JJJJ2.5:X1JJ:R1,(120X)R3,(120X):X:7:rL:1:1:3:"^P^R^I^N^T^I^N^G...":10000:X0::(4);"PR#1"`20)"LEARNING STYLES FOR ";F2$;" ";N2$;"."j"LEARNING STYLES LEAST LIKE ME MOST LIKE ME"$t8500:"VISUL YOU EXPRESS YOURSELF ":"IN WRITING."<6000::7:1:1w"^DO YOU WISH TO REVIEW YOUR":"CHART? (^Y OR ^N): ";16368,0:A$:A$"Y"A$"N"6350C$"^"A$:C$A$"N"40006100X15000::0:Y140191:0,Y279,Y:Y:20::3:1:1:"^S^O^C^I^A^L ^G^R^O^U^P MEANS YOU LEARN":"BEST BY INTERACTING":"WITH A GROUP.":"^O^R^A^L ^E^X^P^R^E^S^S^I^V^E^N^E^S^S MEANS":"YOU EXPRESS YOURSELF BEST":"WHEN YOU TALK."'"^W^R^I^T^T^E^N ^E^X^P^R^E^S^S^I^V^E^N^E^S^S MEANS":"HOW WELWHEN YOU":"CAN HEAR THEM SPOKEN.":"^T^A^C^T^I^L^E ^C^O^N^C^R^E^T^E MEANS YOU ARE":"A BUILDER AND LEARN BEST":"WHEN YOU CAN TOUCH WHAT":"YOU ARE STUDYING.""^S^O^C^I^A^L ^I^N^D^I^V^I^D^U^A^L MEANS":"YOU PREFER TO WORK ON YOUR":"OWN.":6000C MEANS THAT YOU":"DO BETTER WITH NUMBERS WHEN":"YOU SEE THEM WRITTEN."^A^U^D^I^T^O^R^Y ^L^A^N^G^U^A^G^E MEANS THAT":"YOU LEARN BEST BY LISTENING.":60000::3:1:1"^A^U^D^I^T^O^R^Y ^N^U^M^E^R^I^C MEANS YOU ARE":"BETTER WITH NUMBERS S? (^Y OR ^N): ";9y16368,0:A$:A$"Y"A$"N"6265KzC$"^"A$:C$i~A$"N"Đ:3:1:1:39925H:3:1:1:"^V^I^S^U^A^L ^L^A^N^U^G^U^A^G^E MEANS THAT YOU":"LEARN LANGUAGE SKILLS BY SIGHT,":"MAINLY BY READING.":"^V^I^S^U^A^L ^N^U^M^E^R^I^7):7400V`11:22:"8.^ORAL":12:22:"EXPRESSIVENESS":R1190:R3200:JJSA(8):7400j13:"9.^WRITTEN EXPRESSIVENESS":R1215:R3225:JJSA(9):7400o7300pIQ0IQNS1ıqt3:12:"^DO YOU WANT MORE INFORMATION":"ABOUT LEARNING STYLE"NUMERIC":R195:R3105:JJSA(4):7400p813:12:"5.^TACTILE":14:12:"CONCRETE":R1120:R3130:JJSA(5):7400zB7300L7:11:"6.^SOCIAL":12:"INDIVIDUAL":R1143:R3153:JJSA(6):7400V11:12:"7.^SOCIAL":12:13:"GROUP":R1167:R3177:JJSA(4 5 6 7 8 9"Q11:"1.^VISUAL":12:"LANGUAGE":R120:R330:JJSA(1):740011:12:"2.^VISUAL":12:12:"NUMERIC":R147::R357:JJSA(2):7400$11:23:"3.^AUDITORY":12:23:"LANGUAGE":R172:R382:JJSA(3):7400%.13:"4.^AUDITORY":14:";"^"F2$;" ";"^";N2$:1a0,10279,10:2:1:"40":4:"30":6:"20":8:"10":3:18,1218,1203:2:30:"^MOST":3:30:"LIKE":4:30:"ME":6:30:"^LEAST":7:30:"LIKE":8:30:"ME"3:230,12230,120:1:0,120279,120:7:10:4:"1 2 3 :+/:uR22ĺ:(4);"VERIFY CODEFILE,D2":G/Du216,0:16368,0:10010{/IuCOCO1:CO3CO0:10000::(4);"RUN LOGO,D1"0Nu10010::3:1:1:"^YOU HAVE GENERATED AN ERROR.":"^PLEASE CHECK THE DRIVE DOOR":"OR SEE IF YOU HAVE THE ":"CORRECT DISK INSP1CK*.dL1$(NN,RP)L1$(NN,RP1)25620. dSW$L1$(NN,RP):L1$(NN,RP)L1$(NN,RP1):L1$(NN,RP1)SW$:SW$E1$(NN,RP):E1$(NN,RP)E1$(NN,RP1):E1$(NN,RP1)SW$:U1.dRP.dU1ī25590.(dNFL126000.,eNN.e/0uR21ĺ:(4);"VERIFY CODEFILE,D1"",L60,D2"- bRE1CK9-*b:(4);"READ FILE";NN;",R";REa-4bL$:L1$(NN,RE)L$:E$:E1$(NN,RE)E$i->bRE-Hb:(4);"CLOSE FILE";NN-RbNFL125570-cNN-cNFL0āNN19:CKCJ(NN):CK0CK125900-cNFL10CK226000-cKCCK.cU0:CKCK1:R,L60,D2"),a:(4);"READ FILE";NN;",R0"7,aCT:CKCTS,a:(4);"CLOSE FILE";NNj,aNFL1CK0ī26000{,aNFL125100,aCJ(NN)CK:NN,bNN19,bCKCJ(NN):CK025500, bR21ĺ:(4);"OPEN FILE";NN;",L60,D1" -bR22ĺ:(4);"OPEN FILE";NN;Y:X1:"^";N$:X1X:7:N$"":21010S+NR(N$)1Ē0:Y:X1:N$:X1X:7:N$"":21010+XRA$(N$,1):N$(N$,(N$)1):0:Y:X1:A$:Y:X1:" ":X1X11:7:21010+aNFL0āNN19+aR21ĺ:(4);"OPEN FILE";NN;",L60,D1",aR22ĺ:(4);"OPEN FILE";NN;"Y:X11:A$%*RN$""A$(13)210105*RA$(13)ıH*RA$(8)21060a*#RA$L2$A$L3$21010v*&R(N$)MAX21010*+RN$""(A$"@"A$"Z")X1X:Y:X1:"^";A$:N$N$A$:21010*0RX1X11:Y:X1:A$:N$N$A$:21010*DR(N$)021010#+IR(N$)1Ē0:3:1:1:"^PLEASE REMOVE THE ^P^R^O^G^R^A^M DISK":"FROM THE DRIVE AND REPLACE":"IT WITH THE ^D^A^T^A DISK.":"^PRESS ^R^E^T^U^R^N WHEN YOU ARE READY.")*N16368,0:A$:A$(13)20010)/N1:8:"^S^O^R^T^I^N^G...")4N)RX1X:N$"" *R16368,0:(4!V180:"=";:::0(!ETSA(X):ET10ET1A(!ET40ET48[(!ET10ET20ETET10n(!ET20ETET2(!ET20ET30ETET2(!W1ET:"/";::(':54,189:55,158:43603,240:43604,253:(':54,237:55,148:43603,237:43604,148:) N:NALS AND NOTEBOOKS":"FOR CREDIT. EMPHASIZE WRITTEN TESTS. ORAL WORK SHOULD COME IN LOW PRESSURE,":"NON-LEARNING SITUATIONS.":TFTF4:'8"8 AND 9. STUDENT(S) CAN DO WRITTEN WORK ON ABOUT THE SAME LEVEL AS ORAL WORK.":TFTF1:' V180:"#";::::&6"8. ALLOW STUDENT(S) TO PRESENT REPORTS TO CLASS OR ON TAPE FOR CREDIT.":"DEMAND A MINIMUM (BUT HIGH QUALITY) OF WRITTEN WORK.":"EVALUATE MORE ON ORAL WORK THAN ON WRITTEN TEST.":TFTF4:'7"9. ALLOW STUDENT(S) TO WRITE REPORTS, AND KEEP JOURNON-LEARNING SITUATIONS. GIVE STUDENT(S)":"TIME ALONE TO WORK ON PROBLEMS AND ASSIGNMENTS.":TFTF2:%,"7. STUDENT(S) WILL NEED TO INTERACT WITH OTHERS TO REVIEW FOR TESTS.":TFTF1:&1"6 AND 7. STUDENT(S) CAN LEARN ALONE OR WITH A GROUP.":TFTF2TF2:$"5. STUDENT(S) WILL NEED SOME HANDS-ON EXPERIENCE TO SUPPLEMENT LEARNING.":"HAVE STUDENT(S) DRAW PICTURES OR ACT OUT A STORY. USE PHYSICAL OBJECTS":"SUCH AS BLOCKS TO TEACH MATH CONCEPTS.":TFTF4:f%""6. SAVE SOCIALIZING EXPERIENCES FOR ) WORK THEM ON THE BOARD.":TFTF3:#"4. READ PROBLEMS ALOUD AS THEY ARE WORKED. STUDENT(S) WILL ALSO BENEFIT FROM":"DISCUSSIONS OF PROBLEMS AND CONCEPTS.":TFTF3:$"2 AND 4. STUDENT(S) CAN LEARN ORAL OR WRITTEN PRESENTATIONS ABOUT EQUALLY.":TF":TFTF3:""1 AND 3. STUDENT(S) WILL BE ABOUT EQUAL IN VISUAL AND LISTENING SKILLS. PRESENT":"INFORMATION IN BOTH WRITTEN AND ORAL FORM.":TFTF3:$#"2. USE WORKSHEETS AND WORKBOOKS FOR STUDENT(S). WORK PROBLEMS ON THE BOARD OR":"HAVE STUDENT(SG. WRITE":"IMPORTANT INFORMATION ON THE BOARD, HAND OUT WRITTEN INSTRUCTIONS,":"OR HAVE STUDENT(S) TAKE NOTES IN CLASS.":TFTF4: ""3. USE TAPES, LECTURES, ROTE ORAL PRACTICE, OR CLASS DISCUSSION TO HELP":"STUDENT(S) HEAR INFORMATION TO BE LEARNED.: SA(6)SA(7)İ7980:4 SA(8)SA(9)İ7990:M SA(8)SA(9)İ7992:o T163TF:::(4);"PR#0": IQ0TF1: :(4);"BLOAD CHAIN,A520,D1":520"EDITOR1,D1"!"1. USE BOOKS, PAMPHLETS, AND OTHER WRITTEN MATERIAL TO ENHANCE LEARNIN 20200"R22İ20000:452 :7:100102:2:"^PLEASE REMOVE THE ^P^R^O^G^R^A^M DISK":"FROM THE DRIVE AND REPLACE":"IT WITH THE ^D^A^T^A DISK.":"^PRESS ^R^E^T^U^R^N WHEN YOU ARE READY.":100003510020000 (R21ĺ:(4);"OP !!! ! ! ! 2ĺ:(4);"OPEN FILE";NN;",L60,D2"(=2LR^N: ";93IQ0WC1WC0:46000O3⚭R21İ20000a310000:300003R21ĺ:(4);"OPEN FILE";NN;",L60,D1"3R22ĺ:(4);"OPEN FILE";NN;",L60,D2"3 :(4);"READ FILE";NN;",R0"3CT:NSCT4:(4);"CLOSE FILE";"LOCATED. ^CLASSES ARE NUMBERED 1":"TO 9. ^IF YOU WISH TO REVIEW":"ALL THE CLASSES, PRESS ^O.":WFL12L16368,0:A$:A$"1"A$"9"ĭA$"0"A$"O"395002Q300302VWFL1ĭA$"0"A$"O"Đ:3:1:1:WFL0:102WWFL0ĭA$"0"A$"O"NFL13`A1ޔA$"C"IQ2:TF1::3:1:1:"^TYPE THE NUMBER OF THE CLASS YOU":"WISH TO HAVE GRAPHS PRINTED FOR.":"^CLASSES ARE NUMBERED FROM 1 TO 9.":3950017A$"S"IQ018:3:1:1:"^TYPE THE NUMBER OF THE CLASS":"WHERE THE STUDENT IS PRESENTLY"f2BERTED.":6000:10000:0/010010::3:1:1:R016368,0:A$:A$(13)36100X0h0Ԕ:3:1:1:"^IS THIS GRAPH GOING TO BE":"FOR A ^STUDENT OR AN ^ENTIRE":"CLASS? (^S OR ^C)"0֔WFL10ה216,01ٔ16368,0:A$:A$"S"A$"C"A$"T"38105D$"5"D$"3"D$"4"Ģ(D$)2:1:(45);(62):100O Z(D$)1:1:(45);(62)Z d10000 eD$"1"ĺ:(4);"BLOAD CHAIN,A520,D1":520"TRANSFER1,D1" fD$"2"ĺ(4);"BLOAD CHAIN,A520,D1":520"MOVEFILES,D1" gD$"3"SH0::(4);"BLOAD CHAIN,A520,D1":7:"CLASS FILE"; (5:3:"3.) ^DELETE STUDENT RECORDS"d 26:3:"4.) ^DELETE TEACHER RECORDS" <7:3:"5.) ^END PROGRAM AND RETURN TO":7:"MAIN MENU" F10:1:"^TYPE THE NUMBER OF YOUR SELECTION." K16368,0 PD$:D$"1"D$"5"802 T 30000<38210,14:975,0:783,64:232,170:233,149ECO0U:7:10010_1:1 "^S^E^L^E^C^T ^F^R^O^M ^T^H^E ^F^O^L^L^O^W^I^N^G ^O^P^T^I^O^N^S:"2:3:"1.) ^ENTER WRITTEN STUDENT DATA" 3:3:"2.) ^MOVE STUDENT RECORDS TO NEW!!!""54,189:55,158:43603,240:43604,253:R '54,237:55,148:43603,237:43604,148:n 0u:(4);"RUN LOADER,D1"O:520"GRAPHER1,D1"L fD$"2"ĺ(4);"BLOAD CHAIN,A520,D1":520"GRAPHER2,D1" gD$"3"ĺ:(4);"BLOAD CHAIN,A520,D1":520"GRAPHER2,D1" hD$"4"ĺ:(4);"BLOAD CHAIN,A520,D1":520"GRAPHER2,D1" iD$"5"ĺ:(4);"BLOAD CHAIN,A520":520"TEACHER1"& 'D$"1"D$"5"80" QD$"3"IS13 RD$"4"IS2] TD$"4"Ģ(D$)3:1:(45);(62):100 UD$"5"Ģ(D$)4:1:(45);(62):100 VD$"1"Ģ(D$)1:1:(45);(62):100 Z(D$)2:1:(45);(62) d10000 eD$"1"ĺ:(4);"BLOAD CHAIN,A520"ASS COMPOSITE GRAPH"T (5:3:"3.) ^INDIVIDUAL MATCHED AGAINST":6:7:"COMPOSITE" 27:3:"4.) ^TEACHER MATCHED AGAINST":8:7:"COMPOSITE" <9:3:"5.) ^RETURN TO MAIN MENU" F11:1:"^TYPE THE NUMBER OF YOUR SELECTION." K16368,0 PD$:p 30000<38210,14:975,0:783,64:232,170:233,149JIS0:CO0Z:7:10010d1:1 "^S^E^L^E^C^T ^F^R^O^M ^T^H^E ^F^O^L^L^O^W^I^N^G ^O^P^T^I^O^N^S:"2:3:"1.) ^PRINT INDIVIDUAL OR":3:7:"GROUP GRAPH" 4:3:"2.) ^PRINT CL!!!!!T^A DISK":"FROM THE DRIVE AND REPLACE":"IT WITH THE ^P^R^O^G^R^A^M DISK.":"^PRESS ^R^E^T^U^R^N WHEN YOU ARE READY.":1000016368,0:A$:A$(13)35100:10010; OCOCO1:CO3CO0:10000::(4);"RUN LOGO,D1" 8O:3:1:1:"^YOU HAVE GENERATED AN ERROR.":"^PLEASE CHECK THE DRIVE DOOR":"OR SEE IF YOU HAVE THE":"CORRECT DISK INSERTED.":6000:10000:0}0u10010::3:1:1:"^PLEASE REMOVE THE ^D^A^^C^E ^B^A^R TO CONTINUE."; z16368,0:A$:A$(32)6010A m '54,189:55,158:43603,240:43604,253: '54,237:55,148:43603,237:43604,148: NR21ĺ:(4);"VERIFY CODEFILE,D1": NR22ĺ:(4);"VERIFY CODEFILE,D2": N216,0:16368,0FILE1,R0" xCTCK:CT2 :(4);"CLOSE TFILE1"8 _ R21ĺ:(4);"OPEN TFILE1,L60,D1" R22ĺ:(4);"OPEN TFILE1,L60,D2" :(4);"WRITE TFILE1,R";CK LN$:FF$:X19:SA(X): :(4);"CLOSE TFILE1"  p4:12:"^PRESS ^S^P^A010::3:1:1:"^SORRY, THE DISK IS FULL, PRESS":"^R^E^T^U^R^N:":10000i P16368,0:A$:A$(13)80 U:(4);"BLOAD CHAIN,A520,D1":520"TEACHER1,D1" ZR21ĺ:(4);"OPEN TFILE1,L60,D1" dR22ĺ:(4);"OPEN TFILE1,L60,D2" n:(4);"WRITE TEN TFILE1,L60,D1"8 -R22ĺ:(4);"OPEN TFILE1,L60,D2"U 2:(4);"READ TFILE1,R0"] 7CTx <:(4);"CLOSE TFILE1" FCKCT:CK125CKCK1:CTCK:200:90:R21İ30000 GCK125İ10000::(4);"BLOAD CHAIN,A520,D1":520"GRAPHER,D1"I KCK125İ10ECK THE DRIVE DOOR":"OR SEE IF YOU HAVE THE":"CORRECT DISK INSERTED.":6000:10000:0by30010z@10010::3:1:1:J16368,0:A$:A$(13)40010T2<(13)40010T2,:769,168:770,104:771,166:772,223:773,154:774,72:7N YOU ARE READY.":10000:40010:J0uR21ĺ:(4);"VERIFY CODEFILE,D1":s1uR22ĺ:(4);"VERIFY CODEFILE,D2"::u216,0:16368,0:10010DuCOCO1:CO3CO0:10000::(4);"RUN LOGO,D1"Wy:3:1:1:"^YOU HAVE GENERATED AN ERROR.":"^PLEASE CHE YOUR TEACHER.":"^PRESS ^R^E^T^U^R^N:":10000:40010oaCK125ĺ:(4);"BLOAD CHAIN,A520,D1":520"MENU1,D1"!aR21İ40000:"^PLEASE REMOVE THE ^D^A^T^A DISK":"FROM THE DRIVE AND REPLACE":"IT WITH THE ^P^R^O^G^R^A^M DISK.":"^PRESS ^R^E^T^U^R^N WHEUM$).aR21ĺ:(4);"OPEN FILE";N;",L60,D1"XaR22ĺ:(4);"OPEN FILE";N;",L60,D2"xa:(4);"READ FILE";N;",R0"aCTR$a:(4);"CLOSE FILE";NaCK(CTR$):CK125TR06aCK125İ40000:"^THIS CLASS FILE IS ALREADY":"FILLED. ^PLEASE SE$(N$,1):N$(N$,(N$)1):0:Y:X1:A$:Y:X1:" ":X1X11:7:21010Y40000:"^PLEASE REMOVE THE ^P^R^O^G^R^A^M":"DISK FROM THE DRIVE AND REPLACE":"IT WITH THE ^D^A^T^A DISK.":"^PRESS ^R^E^T^U^R^N WHEN YOU ARE READY."Y10000:40010:aN(NA$(13)ı!RA$(8)210606#RA$L1$A$L2$21010K&R(N$)MAX21010r0RX1X11:Y:X1:A$:N$N$A$:21010DR(N$)021010IR(N$)1(A$"@"A$"Z")Ē0:Y:X1:"^";N$:X1X1:7:N$"":21010NR(N$)1Ē0:Y:X1:N$:X1X:7:N$"":21010FXRA6p13:5:"^PRESS ^S^P^A^C^E ^B^A^R TO CONTINUE."Xz16368,0:A$:A$(32)6010^'54,189:55,158:43603,240:43604,253:'54,237:55,148:43603,237:43604,148:RX1X:N$""R16368,0:Y:X11:A$RN$""A$(13)21010 R::1:"^THERE ARE 45 QUESTIONS. ^PLEASE":"ANSWER AND VERIFY EACH ONE AS IT":"APPEARS ON THE SCREEN.":6000 :(4);"BLOAD CHAIN,A520,D1" 520"QUESTIONS,D1" :"(^PRESS ^S^P^A^C^E ^B^A^R FOR AN EXAMPLE.)" 16368,0:A$:A$(32)5010ORK BEST IN THE AFTERNOON.":XX270~ ANS$"2"Ģ10:"^A RESPONSE OF 2 MEANS YOU":"USUALLY WORK BEST IN THE MORNING.":XX260 ANS$"1"Ģ10:"^A RESPONSE OF 1 MEANS YOU REALLY":"PREFER TO WORK IN THE MORNING.":XX240 6:0,160XX,160m 3:6000R RESPONSE, THEN PRESS":"^R^E^T^U^R^N: ";[ nX8:Y9:L1$"1":L2$"4":MAX1:21000:ANS$N$b s3 xANS$"4"Ģ10:"^A RESPONSE OF 4 MEANS YOU REALLY":"PREFER TO WORK IN THE AFTERNOON.":XX250" ANS$"3"Ģ10:"^A RESPONSE OF 3 MEANS YOU":"USUALLY W^T"N Z3:"^I WOULD RATHER DO WORK IN THE":"AFTERNOON THAN IN THE MORNING."n _6:0,70275,70:0,700,100u `3 d6:" ^MOST LIKE ME.......LEAST LIKE ME":" 4 3 2 1" e6:274,70274,100:0,100275,100:3* f8:"^ENTER YOUOUT" F"THE STATEMENT. ^IF YOU FULLY AGREE,":"PRESS 4. ^IF YOU TOTALLY DISAGREE,":"PRESS 1. ^IF YOU'RE SOMEWHERE IN":"BETWEEN, PICK 2 OR 3. ^THERE IS":"NO ONE RIGHT ANSWER, SO TAKE YOUR":"TIME." P5000::7:1:10:"^S^A^M^P^L^E ^S^T^A^T^E^M^E^N 30010<38210,14:975,0:783,64:232,170:233,149MR21İ23000_30000:250007:7:10010:1:10:"^I^N^S^T^R^U^C^T^I^O^N^S" <" ^READ EACH STATEMENT CAREFULLY AND":"TYPE THE NUMBER THAT MOST CLOSELY":"AGREES WITH HOW YOU FEEL AB" " " " """""""""UN LOADER,D1"":520"PURGER,D1"P hD$"4"SH1::(4);"BLOAD CHAIN,A520,D1":520"PURGER,D1" iD$"5"ĺ:(4);"BLOAD CHAIN,A520,D1":520"TEACHER1,D1" '54,189:55,158:43603,240:43604,253: '54,237:55,148:43603,237:43604,148: 0u:(4);"RUN LOADER,D1"