' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ӡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`D1:21000:RFRF0:"":962y&::13:1:958:I$"THE LEARNING SYSTEM":21(I$)2::I$::(4)"RUN MASTER,D1"&(A$)ė:950&A%(A$):A%1A%DN%960&S3$DN$(A%):CO$(S3$,1):SF0:22:1:958::"TEST OR INSTRUCTION (T/I)";:'8::"NUMBER OF DRILL YOU WANT: "::24:1:" ";::"0";::" & ";::"RETURN";::" GOES BACK TO MAIN MENU";:22::28:"";A$:A$"0"970%DD2963%22:1:958:"INSERT PROGRAM DISK & PRESS ANY KEY...";:A$::A$(27)ĉ:940"&CH$"PROGRAMS":(70)ĺ"ILL - IN";6$f(DN$(X),1)(77)ĺ"ULTIPLE";K$p:(37)18İ900T$zX:Z$$22:1::"PRESS SPACE BAR TO CONTINUE...";::A$:A$(32)ė:$910$$I$"DRILLS ON FILE"::21(I$)2::I$::34,2::$830:%22:1:86A$S3$".H":D$"OPEN"A$:D$"READ"A$:X1N%:63000:H$(X)IN$::D$"CLOSE"\#9ML$(14)829#;:13:I$"LOADING ANCILLARY MATERIAL...":20000:61000#=#>#C:X1DN%:X10ĺ" ";#RX;") ";DN$(X);:(DN$(X),1)(67)ĺ"OLUMN";$\(DN$(X),1)N$:X:D$;"CLOSE":E%E%0:60)"BH1:/" "*OD%1:D$(4):D$"OPEN"S3$",D"DD:D$"READ"S3$:N%:63000:ML$IN$:X1N%:63000"6I%((1)N%1):(QA$(I%))822"7QA$(I%)IN$:CD%(I%)X:63000:A1$(I%)IN$:63000:A2$(I%)IN$::D$"CLOSE":TTLN%I#807804!D$"CLOSE"::13:10:"NO DRILLS ON FILE"!DD1Ģ19:"INSERT PROGRAM DISK INTO DRIVE 1 AND PRESS RETURN";:A$::D1:CH$"PROGRAMS":21000:RFRF0:"":776! (4)"RUN MASTER,D1"" X1DN%:D$;"READ DRILLS,R";X:63000:DN$(X)IYES,OF COURSE,NATURALLY,YOU MUST HAVE THE ANSWER SHEET,THAT'S IT, JUST RIGHT,CERTAINLY,WHAT ELSE?,NO OTHER ANSWER WOULD DO!,CORRECT:YOU SURE YOUR BOOK IS CLOSED?: END  11000!D$(4):D$;"OPENDRILLS,L40,D"DD:D$;"READDRILLS,R0":DN%:DN%OPE.,ONCE MORE PLEASE?, NEVER HEARD OF IT. END:EXACTLY.,BRILLIANT.,A GENIUS. OBVIOUSLY A GENIUS.,AH. SUCH BRILLIANCE IN ONE SO YOUNG.,PERFECT,YOU GOT IT,RIGHT,THAT'S THE ANSWER I WANT, THIS PERSON SHOULD BE TEACHING THE CLASS,AN INSPIRED ANSWER RE CAREFULLY.,MAYBE YOU KNOW SOMETHING I DON'T!,I KNOW YOU CAN DO BETTER THAN THAT!,GUESSING MADLY ARE WE?* ONE OF US IS WRONG-AND IT ISN'T ME!,TAKE ANOTHER STAB AT IT...,A MOST CREATIVE ANSWER. HOWEVER...,MAYBE MY TRANSISTORS ARE SLIPPING., UH-UH.,NTHINK ABOUT IT AND TYPE ANOTHER ANSWER,YOU MUST HAVE READ THE QUESTION WRONG,READ THE QUESTION AGAIN...,NOT QUITE. TRY AGAIN,DOESN'T MATCH MY ANSWER SHEET,WE ON THE SAME QUESTION?,ANSWER AGAIN...,ONE OF US IS MIXED UP,SLOW DOWN...jREAD THE QUESTION MO0:650630\COUNT%COUNT%1:RGHT$(COUNT%):RGHT$(COUNT%)"END"RCCO%1:COUNT%0:e650YOU CAN'T MEAN THAT. TRY AGAIN...,THAT'S NOT IT. TYPE IT AGAIN PLEASE...,MAYBE YOUR MIND IS ELSEWHERE.,THINKING ABOUT LUNCH PERHAPS? TRY AGAIN RETURN TO MENU...";:A$:A$(32)Ė1:599VXCH$"PROGRAMS":D1:21000:RFRF0:599oY:EXAM0:54915:186ubl958:21::Z%(1)RC1:I$RGHT$(Z%):21(I$)2:""I$::vCOUNT%COUNT%1:WRNG$(COUNT%):WRNG$(COUNT%)"END"WCCO%1:COUNT%V::X1N%:Y13:AA$(X,Y)"":Y:NO$(X)"":QA$(X)"":A1$(X)"":A2$(X)"":CD%0:HQ$(X)"":HA$(X)""::HO%0:I$"":A$"":TTL0:X17:CO%(X)0::N%0:N0:X0:B0:Z(0):601*W22:1:958:" PLACE PROGRAMS DISK IS IN DR #1 AND PRESS SPACE BAR TO 5:10:958:"JUST A MINUTE...":EXAM598F:::"TEACHER: PUT RECORDS DISK INTO DRIVE 1, PRESS KEY";::A$:(37)2:1:958:CH$"RECORDS":D1:21000:RFRF0:"":582HWCO%(7):SC((N%W)100N%.5):7000:L"...HANG IN THERE..."0::X1HO%:MU%1:::A$HQ$(X):20::A$HA$(X):20::U;COCO1:(NO$(CO))571<1:"YOUR ANSWER WAS..."::NO$(CO):?23::"PRESS RETURN KEY TO GO ON..";A$:9:958::MU%0:XD22:1:958::"PRESS ANY KEY TO GO ON...";:QQ$::*E1COUNT%(7);:35:(COUNT%(7)TTL100.01);"%":EXAMHO%Ģ22:1:868:"WANT TO SEE THE ONES YOU MISSED? (Y/N)";~EXAM580HO%580!A$:A$"Y"A$"N"545&EXAMA$"N"5800(EXAMHO%A$"Y")5808:CO0:8:958::I$"MISSED":2000!!"6B1299]624::"PRESS SPACE BAR TO SEE WHAT YOU MISSED";:A$:A$(32)Ė1:12546G$"":::I$S3$:21(I$)2::I$::3:Z1W:X1(HA$(Z)):(HA$(Z),X,1)"!"X(HA$(Z))::12786G$G$(HA$(Z),X,1):7B$(HA$(Z),(HA$(Z))((G$";AB;" TRIES";I522:1:958::"PRESS ANY KEY TO GO ON...";:QQ$::^51:BEXAM12976W5ĉ::12:"YOU WERE ABLE TO MATCH LESS THAN HALF THE ANSWERS ON YOUR FIRST TRY. IF YOU ARE HAVING TROUBLE WITH THIS STUFF, ASK YOUR TEACHER FOR HELP!0000::TE$:TE$""::23::"PRESS ANY KEY TO GO ON...";:A$:17:1:958:ZZ%0|4:24:1:A;" CORRECT MATCH";:A1ĺ"ES";4" ON ";AB;" ATTEMPT";:(AB)1ĺ"S";41:MA%L:11544G1011305:22:1:958:"FINAL SCORE: ";A" RIGHT OUT OF ":M$(L)"":A1$(N)"":P$(L)"":EXAM(A9$(L1))1228318:1:958:"PRESS ";::"P";::" FOR A PARAGRAPH ON THIS ANSWER -PRESS ANY OTHER KEY TO CONTINUE...";:A$:A$"P"Ģ18:1:958:1228N4TE$"":ZZ%1:17:1:958::A$A9$(L1):6 I'LL HAVE TO GIVE YOU THE ANSWER.":Z11300:Z722GG1:Z1M:VT%(CO%(Z)):22:A1$(CO%(Z)):Z:M0:Z011:M$(L)A1$(Z)NZC3:VT%(L):3::P$(L):VT%(N):22:A1$(N):"":Y1800:Y:VT%(L):3::" ":VT%(N):22:" ATCH FOR #";::L1:::WW1:HA$(W)P$(L)"!"A1$(R):Z011:M$(L)A1$(Z)HQ$(W)A1$(Z)_11M2Ğ:"THAT'S 2 DOWN! THIS IS YOUR LAST SHOT! WHAT'S THE BEST MATCH FOR #";L1;:"? ":1M3ī1228112"NO, THAT'S NOT IT EITHER.:::18:"THAT'S GREAT! SEE IF YOU CAN CONTINUE TO GET IT RIGHT ON THE FIRST TRY!":868:Z11200:Z:12280Y1800:Y:VT%(L):3::P$(L):BB1:MM1:CO%(M)R:18:868::868::18:M11202Y1"SORRY. BUT YOU STILL HAVE TWO CHANCES FOR A M190/GG1:AA1:VT%(L):3::P$(L):VT%(R):22:A1$(R):"":Y1800:Y:VT%(L):3::" ":VT%(R):22:" ":M$(L)"":A1$(R)"":P$(L)"":MāZ1M:VT%(CO%(Z)):22:A1$(CO%(Z)):Z:M0n018:1:868::868:18:1A$(27)GG1:VT%(L):3:P$(L):VT%(R):22:A1$(R):1135.VT%(L):3:" ":VT%(R):22:"";:868:M$(L)A1$(R)1180.HQ$(L1)A1$(R):WW1.HA$(W)P$(L)"!"M$(L)"!"A1$(R).P$(L)"":A1$(R)"":1135/M$(L)A1$(R)1:A$(65)A$(76)1158:-A%(A$)65:(A1$(A%))1158j-RA%:VT%(R)::22:""A1$(R)::EXAM1181-18:1:958:"PRESS ";::"ESC";::" TO TRY AGAIN.":"PRESS ";::"RETURN";::" IF THIS MATCH IS OK.";-A$:A$(13)A$(27)1169:.EXAMA$(27)1299/,vA$(48)A$(57)1138H,zA%(A$):A%0A%10j,~A%A%1:LA%:(P$(A%))1138,:1:23:" ":VT%(L)::3:""P$(L)::22:" ";:22::"NOW, A LETTER:";:-16368,0:A$SC";::" TO END EARLY"5+oEXAMGG1:G10ĺ:1296\+p22:1:868::"FIRST, A NUMBER:"+qMĝ:18:1:"MATCH A NUMBER ON THE LEFT WITH A LETTERON THE RIGHT AND THEY'LL BOTH DISAPPEAR.":+r16368,0:22:17:A$:B0EXAMA$(27)1242,sB0":4::A$;:A$"MATCHING PHRASE":25::A$::A0:B0:::VT%(0)4:X011:VT%(X1)X5:X9R1X1:1118p*ZR10*^:X10ĺR1;::" ";P$(X);*b20::(65X);::" ";A1$(X):X:W0:G0*j*l18:868::868+nEXAMĢ23:" ENTER ";::"E09:63000:P$(X)IN$:63000:M$(X)IN$K)6I%((1)(J1)):(A1$(I%))1078z):A1$(I%)M$(X):X:X1011:63000:M$(X)IN$)BI%((1)(J1)):(A1$(I%))1090)FA1$(I%)M$(X):X:63000:ML$IN$:D$;"CLOSE":ML$""İ61000)Rg*V:A$"PRIMARY PHRASE(1)N%1):(QA$(I%))1061(&QA$(I%)IN$:CD%(I%)X:Y15:63000:AN$(I%,Y)IN$:Y:63000:A$(I%)IN$:X:D$;"CLOSE":ML$""İ61000(*(.%)2X011:P$(X)"":M$(X)"":A1$(X)"":VT%(X)0:X:D$(4):D$;"OPEN ";S3$",D"DD:D$;"READ ";S3$:A0:J11:XоA$:A$(27)960+'A$"T"A$"I"1010>'A$"T"EXAM1N'EXAMĉ::'::13:I$"GETTING "S3$:21(I$)2::I$::X1800:X:''OD%1:'$D$(4):D$;"OPEN ";S3$",D"DD:D$;"READ ";S3$:N%:63000:ML$IN$::X1N%:63000(%I%( ANSWER:";::868:17:Y1(A$(N)):(95);:::1730NFC%(A$(N))11810iFA$(A$(N),C%,1)1800sF1750FA$;:1740F:21:1:958:I$"GOOD"::20000::Y11000:Y:868:"PRESS SPACE BAR TO GO ON...";FA$:A$(32)1820G&EXAM0NSWER:"::21:1:868::"TYPE THE WHOLE CORRECT ANSWER NOW PLEASE";:" IF YOU CAN'T FIND THE ANSWER TYPE ";(34);"?";(34);" "EVT%(6)1:17:C%0EC%C%1EA$:C%1A$"?"17706F1:868::A$A$(N):20::Y12000:Y:VT%(6)1::"CORRECT1000:X:N1TQ:(A1$(N))İ1710:A1$(N)""3DN:D:I$S3$" RETAKE":20000:I$"SET #"(N)::20000::"QUESTION:"::VT%(0)(37)1:A$QA$(N):20::X15:MU%1::"CHOICE #";X:EVT%(X)(37)1:1:A$AN$(N,X):20:X::VT%(6)(37)2::"CORRECT A$A9$(CD%(N%1)):60000:TE$:EXAM0pCeA$"C"(A9$(CD%(N%1)))SFĹ16368,0:X1X:N1%N%::60275:XX1:N%N1%zCh1621CrN%TQ1ıCsEXAM0:1390C|:CRETAKEEXAMİ1840:CRETAKE0:1690:1840:EXAM0:*D:13:16:"RETAKES...":X1THE WHOLE COMPOSITION"BY24:1:"PRESS ";::"ESC";::" TO END DRILL AND SEE SCORES";:1:23:1:868:"PRESS SPACE BAR TO GO ON...";:A$::A$(27)TQN%1:1840:1940B`A$(32)1650#CcA$"I"(A9$(CD%(N%1)))Ģ((QA$(N%1))40)6:958:1:A:1:958:I$"GOOD"::20000::1RA@ IF N% = TQ AND NOT EXAM THEN GOSUB 1620jAAN%N%1:N%TQ1670yAJEXAM1390ATBU21:1:958:(A9$(CD%(N%1)))ĺ"PRESS ";::"I";::" FOR INFORMATION ON THIS QUESTION";:SFĺ"PRESS ";::"C";::" FOR $(N%)::Y12000:Y:VT%(6)1:17:Y1(A$(N%)):(95);:::A1$(N%)"1":21:1:868::"TYPE THE WHOLE CORRECT ANSWER NOW PLEASE";:VT%(6)1:17:C%0@C%C%1@A$:C%(A$(N%))11590@A$(A$(N%),C%,1)1580@"1550@,A$;:1540!A6:21EXAM16002?19:1:958:610:Y11000:Y:1600??C%1530t?EXAMNO$(N%)AN$(N%,A%):BB1:A1$(N%)"1":1600?C%1:21:1:868::14:"NO. TRY AGAIN.":Y11000:Y::1410@C%0:VT%(6)1:1:958:"SORRY. I WANTED ";:RETAKE1:BB1:17::A):20:21:1:958:"PRESS THE ";::"ESC";::" KEY TO CHANGE YOUR MIND ORPRESS THE ";::"SPACE BAR";::" TO GO ON...";>16368,0:A$:A$(32)A$(27)1450>A$(27)Ģ17:1:958:1400>A$:(AN$(N%,A%)A$(N%))1500 ?C%EXAMAA1:):20::X:6=xVT%(6)(37)2::"CORRECT ANSWER:":=21:1:"PLEASE TYPE IN THE NUMBER OF YOUR CHOICE":VT%(6)1:17:868=16368,0:A$:A%(A$):A%5A%11420=N%1EXAMA$(27)Ľ:54915:0=EXAM1470z>VT%(6)1:17:A$AN$(N%,A%Y TO GO ON...";:A$P*Q*((218)(219)256)770(22222)5((218)(219)256)601021500OiD$(4):D$"OPEN"ST$",D1":D$"WRITE"ST$:"00":D$"CLOSE":F01:D$"OPEN"ST$:D$"READ"ST$:OV::OXO]11050Pb:FI$S3$".S":D$(4):D$"OPEN"FI$",L5,D1":D$"READ"FI$",R0":Z:D$"WRITE"FI$",R0":N%:X1"ST$:S3$NSCOUR:NW:-NW06160ONX1N%:NCD%(X):CD%(X)NX}N(NO$(X))NO$(X)(N)" "NO$(X):NO$(X)NXN EOF:ND$"CLOSE":D$"OPEN"ST$",D1":D$"WRITE"ST$:N$(N9):N910N$"0"N$N8N$::D$"CLOSE":6998Nd'Of(CH$"TESTS":DDD:21000:RFRF0:"":20516MT(A$)(TE$)HT02160RA$(13)A$(A$,T)\20IS MATERIAL..."MA%MA%1\MA$NU$:MA$(MA%)MA$:NU%Z:13000: MA$ WRITER qM2$MA$".INDEX"FFMD$"MAINDEX"FFMD$"FALLDEX"11000: MAINDEX WRITERMI%120000: MA$ DISPLAY:Z1$""::PARAGRAPZA$"N"TE$IN$:BACK1:1190)_N7ıFbK5%K5%0:IN$IN$(10)idEDITA$(Z1)IN$:BACK0:1998nV2:H2:ZZ1:BACK0:A$(Z)IN$qZ25ĉ::13:"THIS FILE IS FULL.":1410s1150x:ADD1998:21:1:958:21:10:"STORING TH0H1NL((LSP)40),(H2LSPNL401T2J(L(L40)40):J39H21V2V21k<J39H21V2V21F21:1:868::"OK? (Y/N)";::A$:1:868:EDITĢ21:1:868:"PRESS ";::"RETURN";::" AFTER EACH ELEMENT";:1PA$"Y"A$"N"1350958:V2:FFĖH2((Z))1:1256I61000:H2(Z1$)(H2(Z1$))0rH11::A$(Z)A$(Z)(10):V22:1150IN$"END"EDIT1410IN$"END"EDIT1998L(IN$)L150ĢV1:H11:(A$,150);::"<"::IN$(A$,150) V2(37)SP4 WHEN YOU'VE DONE THAT, PRESS THE SPACE BAR...";:A$:A$(32)62251va,CH$"RECORDS":D1:21000:RFRF0:62251a-D$(4):D$"OPENSTUDLIST,D1":D$"READSTUDLIST":a421500a>a768:IN$(IN$,1):E SPACE BAR...";:A$:A$(32)62251+U1`vA1$(NU)ST$[`D$"OPEN STUDLIST":D$"WRITE STUDLIST":NU$(NU):NU10NU$"0"NU$`NU$:X1NU:A1$(X)::D$"CLOSE"`` `*(222)5((218)(219)256)6204062260Ia+:13:"PLEASE MAKE SURE THAT THE RECORDS DISK IS IN DRIVE 1.N "MAFILE$",D"DD:D$"READ "MAFILE$:A9%:X1A9%:768:IN$IN$"":A9$(X)IN$::D$"CLOSE"::SFĹ16368,0:60280v_|_0_D62240_XD$(4):D$"OPEN STUDLIST,D1":D$"READ STUDLIST":NU:X1NU:A1$(X)::D$"CLOSE"_bD$"DELETE STUDLIST"`lNUNxHARDI$MA$:21(I$)2::I$:H^HARDI$MA$:(TC2(I$))2:I$^3:TE$"":X1A9%:COUNT0:A$A9$(X):60000:B$"0"XA9%^:TE$:HARDB$"0"Ģ22::"PRESS ANY KEY TO GO ON...";::A$^B$""^^Hp_MMAFILE$ML$:D$(4):D$"OPETE$#](A$,1)(10)ĺTE$:TE$""+]:7] J%(0)F]CO0:HAı](23::"PRESS ";::"0";::" TO STOP THE STORY":"PRESS ";::"RETURN";::" TO SEE MORE OF IT...";::B$:B$"0"ġ:TE$"":A$"":22:]P3:1:ZZ%Ģ17:1:]Z958::]s#^\`!\j(A$,1)" "A$" "A$/\tA$TE$A$7\~Y0^\TE$(A$,TCY):(TE$)(A$)60160w\(TE$,1)" "ī60090\YY1:60040\(TE$,TC1):COCO1:COLI(37)18İ60170\T(A$)(TE$):T060160\A$(13)A$(A$,T)\60030]6b12:1:958:"LET ME BE SURE I HAVE THAT RIGHT. THAT'S";::L$;::", RIGHT? (Y/N)";:A$:A$"Y"A$"N"25142[9bA$"N"25110[>b5:1:958:12:"OK, "R$". GOOD LUCK IN":"YOUR TEST TODAY!":Z11000:Z:R$(R$,L):L$(L$,LI):ST$L$" "R$:Z0: ";::"RETURN";::" KEY):":L(R$):L15L15GZ bL15LILI(15L)Zb12:1:958:X1LI1:(95);:::"&S3$DN$(A%)H& FFıU& DM6170&::11:"APPENDING":I$MA$::60000::"TO":I$S3$::60000:&R$(S3$,1)&$D$(4):D$"OPEN"S3$",D"DD:D$"READ"S3$&(R$"C"6192D',X09:63000:P$(X)I:6090%X") "DN$(X)g%(37)18XDN%Ģ22:1::"PRESS ANY KEY TO CONTINUE...";::A$:5:1:958n%X%23::"COMP ASSOCIATED WITH DRILL #";:%24:2::0;::" + ";::"RETURN";::" GOES TO MAIN MENU";:(37):30:868:"";A$:A$"0"ıWHICH IT WILL BE ATTACHED HAS ALREADY BEEN WRIT.PRESS A KEY";::B$::54915:100$X1DN%:D$"READDRILLS,R"X:63000:DN$(X)IN$::D$"CLOSE"$:I$"DRILLS ON FILE"::60000::5$X1DN%:X10ĺ" ";%FF(DN$(X),1)"M"ĺX") "DN$(X)"ULTIPLE"EASY FOR YOU TO SAY!)*#zM2$MA$".INDEX"0#\#16:1:868::I$"HANG IN...":60000:#D$(4):D$"OPENDRILLS,L40,D"D:D$"READDRILLS,R0":DN%R$DN%ĺ(4)"CLOSE"::12::"SORRY - NO DRILLS ON FILE. THIS ROUTINE WON'T WORK UNLESS THE DRILL TO 0@":I$"INSERT TO "MA$:EDIT1:I%(A$):ZI%1:1100:NU$IN$`":EDIT0:BACK0:N70:15000j"3030u"N70:{":" DISPLAY COMP"FFİ20000"FFİ24000"":" PRINT COMP"25000"n"o:"p TIE TEXT TO TEST #q(HIN'!":QQ11500:QQ:30304!24000: MA$ DISPLAY!22:1:958::"0";::" + ";::"RETURN";::" TO CANCEL INSERTION MODE"!21:1:868::"INSERT NEW LINES INTO WHAT POSITION:";::"";A$!A$"0"EDIT0:N70:3030"A$"1"(A$)NU%37322000 NU%0DE$MA$:12000+ 24000W 23:1:958:"PRESS ANY KEY...";:A$:a 3030g :y  DISPLAY MA$  FFİ20000 FFİ24000 $3030 .: tINSERT LINES yN71!~NU%25ė:12:"SORRY - FILE'S FULL. CAN'T ADD NOT WHICH SECTION (BY NUMBER)";:6 "";A$:(A$)3501G A$"0"3030b A$"1"(A$)NU%3501t DE$A$((A$)) 3:958:8::DE$: DE%(A$) 22:1:958:"TYPE ";::"YES";::" TO DELETE LIGHTED LINES:"; "";A$:A$"YES"3030 NEH A$"1"3497iR ZNU%:Z25ė:12:"SORRY - FILE'S FULL. CAN'T ADD NOTHIN'!":QQ11500:QQ:3030W ADD1:I$MA$::1100:ADD0:IN$"0"3030\ ADD0::NU%Z:13000:3030 A$"2"3590:  DELETE LINES 24000:22:1:958::"DELETEA$"0"EDIT0:BACK0:3030>N A$"1"(A$)NU%(A$)03145ZX IN$A$((A$)):Z(A$)1f] TE$IN$lb v 1100:EDIT0:IN$"0"BACK0:3030x 22:1:958:"EDIT MORE? ";:QUIZ$:QUIZ$"N"3195y 3120{ :13000:3030 :F SWEET ADDALIH NUMBER: ";:# A$:(A$)3090? A$(48)A$(53)3090P& A$"0"3998V' :f( EDIT LINESw) A$"5"3700+ A$"3"34000 EDIT1:BACK1:I$MA$: 24000:MA$ DISPLAYD A$""I 23:1:958::"WHICH SECTION (BY NUMBER):";::"";A$: MODIFY COMP :/ 21(MA$)2::MA$:: I$MA$ A1$(1)"ADD":A1$(2)"DELETE":A1$(3)"EDIT":A1$(4)"DISPLAY":A1$(5)"INSERT":A1$(0)"RETURN TO MENU" X15::X24:10:X;::" "A1$(X): ::10::0;::" "A1$(0) 22:5::"WHIC30 fTE$*p(A$,1)(10)ĺTE$:TE$""0u6x:GzSCREENPAUSESCOUNT0_HARDım23:958"PRESS ";::"ESC";::" TO END OR ";::"RETURN";::" TO CONTINUE ";B$B$"0"B$(27)ġ::3:1958 : R MENU"}9YTI$(1)"CREATE":TI$(2)"MODIFY":TI$(3)"DISPLAY":TI$(4)"PRINT":TI$(5)"COUPLE":TI$(6)"SEPARATE":TI$(7)"DELETE"9YTI$(8)"ADMINISTER A TEST/DRILL":TI$(9)"DEVELOP/EDIT A TEST/DRILL"9Z1:1:I$"COMPOSITION DEVELOPMENT MENU"::60000:T: 8FU)8U22:958::""EC"IN"EL::D8U MA$ SECTION DELETIONU8,VXDE%NU%1g86VA$(X)A$(X1)m8@V{8JVNU%NU%18TV130008Y8Y:8YMENU8Y8Y4:5:"YOU MAY:":14:20:"OR"9YX19:VP%(X)X5::VP%(0)18:TI$(0)"RETURN TO MASTEDISK IS FULL! PLEASE INSERT A FRESHTESTS DISK INTO DRIVE #1 AND PRESS ANY KEY...";:u7)U216,0:16368,0:A$:2182072U22:1:958:"PUT TESTS DISK INTO DRIVE "DD", PRESS KEY";:16368,0:A$84S216,01:958:"PRESS ANY KEY TO SEE MORE...";:A$:5:1:958E2gJMA%7ĺL2jJXR2NX2N:p2 N FORMATTED DISPLAYv2%N2*NHARDI$MA$::60000::200152,NI$MA$:(TC2(I$))2:I$:::2/N524NTE$""2>NX1NU%:COUNT0:A$A$(X):2000:3HNTE$A$(X1)1:X1:A$(X)NU$(1:13000.1~>41>:K18JLIST OF MATERIALSu1BJI$"ALL MATERIALS ON HAND"::60000:1[JMA%Ģ10:3:"NO TEXTUAL MATERIAL ON FILE YET":Z11000:Z:199981`J5:X1MA%:X10ĺ" ";82eJX") "MA$(X):(37)18XMA%Ģ23:A$(X) 0303D$"CLOSE" 06&06:706 MA$ READERC06D$(4)Z06D$"OPEN"MA$",D"DDk06D$"READ"MA$t06NU%06X1NU%0663000:A$(X)IN$0607D$"CLOSE"0:0::0:MA$ SECTION INSERT0:B%I%1:NU%NU%10:XNU%B%11:A$(X)98 //DE%Y//XDE%MA%11/&/MA$(X)MA$(X1)7/0/E/:/MA%MA%1`/D/11000:MAINDEX WRITERs/N/D$"DELETE"DE$y/2/2:/2MA$ WRITER/2D$(4)/2D$"OPEN"MA$",D"DD/2D$"WRITE"MA$/2N$(NU%):(N$)2N$"0"N$/2N$/2X1NU%03AINDEX WRITER.+D$(4)2. +D$"OPENMAINDEX,D"DDH.+D$"WRITEMAINDEX"i.+M$(MA%):(M$)2M$"0"M$q. +M$~.*+X1MA%.4+MA$(X).>+.H+D$"CLOSE"....:..MAINDEX DELETER..X1MA%..DE$MA$(X)YX:XMA%::12050..X//1290:-x#DE$MA$(DE%):12000!-''-':;-'MAINDEX READERG-'D$(4)`-$'D$"OPENMAINDEX,D"DDu-.'D$"READMAINDEX"-3'ONERR GOTO 50000-8'MA%-='MA%010080-B'X1MA%-L'63000:MA$(X)IN$-V'-`'D$"CLOSE"-j'MA%MR%1-*-*: .*M(A$)A$"0"A$(MA%)9035.,U#A$"0"9998I,_#DE%(A$):DE$MA$(DE%),d#22:1:958:"TYPE ";::"YES";::" TO DELETE ";::DE$:,i#"";A$:A$"YES"ė:13:I$"DELETION CANCELLED"::60000::Z11000:Z:9998-n#:13:I$"DELETING "DE$::600010:"SEPARATION CANCELLED":Z1999:Z:7998>+16:1:958L+ML$(14)V+6230a+>DM0:g+?:+(# DELETE COMP FROM DISK+F#22:1:958::"DELETE WHAT MATERIAL (BY NUMBER)":+K#23:1:" (0 + RETURN CANCELS)"+N#22:34,P#"";A$: FROM TEST*bD$(4):DM1%*v60006*A$"0"7998*ML$(14)ė:12:"NO COMP APPENDED TO THIS TEST/DRILL":Z11000:Z:7998-+:10:"SEPARATING ";::ML$::"FROM ";::S3$::16:1:"CONFIRM BY TYPING ";::"YES";::"";A$:A$"YES"ė:13:#' # N!#*N21(I$)2:I$:'#R-# Rx#RH%,VE$,D:H%0Ĺ222,(H%):219,21010256:218,21010256(219):21500#RVE$CH$ı#&R:12:1:"THAT'S THE ";::VE$;::" DISK. I NEED ";::CH$::RF1:$SEC(222):EL(218)(219)256:(EC5EC0!"'TITLE BORDERS FOR PRINTOUT5"'C(TC(S3$))2;"$'H".'L(S3$)R"8'36,Ci"B'X1L4:"*";::s"L'36,C"V'"*";:X1L2:" ";::"*""`'36,C"j'"* "S3$" *""t'36,C"~'"*";:X1L2:" ";::"*""'36,C"'X1L4:"*";::"'40;"N"!##D$;"PR#0"!&#*!(#FORMATTERC!2#A$""ĺZE$:ZE$"":Q!<#A$ZE$A$Y!F#Z0l!P#ZE$(A$,TCZ)!Z#(ZE$)(A$)ı!d#(ZE$,1)(32)(ZE$)(A$)9090!n#ZZ1!x#9040!#(ZE$,TC1)!#T(A$)(ZE$)!#Tı!#A$(A$,T)"#903MATCH THESE...";:25:"WITH THESE!":> XAJ:1:X9ĺ" "; X1") "P$(X);:25:(65X)") "TE$(X):X:25:(65X)") "TE$(X):25:(66X)") "TE$(X1) XAJ:X1" MATCHES "(95)(95)(95)(95): :"NAME: ";:X130:(95);: #!!#(9);PHRASE";:25:"MATCHING PHRASE"%h0rYAJBw1:Y9ĺ" ";k|Y1") "P$(Y);:22:(65Y)") "M$(Y)rY22:(65Y)") "M$(Y):22:(66Y)") "M$(Y1)8990XAJ2I%((1)(J3)):(TE$(I%))8100TE$(I%)M$(X):X% 5:"R: ";:Q1(TC14):(95);:::8Q1TC1:"-";::>Dn:TFĺ"NAME: ";:Z130:(95);::(9);40;"N":HS0D$;"PR#0"(9);40;"N":HS0:@ COLUMN PRINTEA0:J9J(4);"PR#1"T:TFLAG8090^5:"PRIMARY A$"":9000PH$(X)""H$(X)(93)Ė5:"HINT:":A$H$(X):9000:A$"":9000aTFLAG71205:"PREFERRED ANSWER: ";:A$A1$(X):9000A$"":9000A2$(X)""Ė5:"ALTERNATE ANSWER: ";:A$A2$(X):9000A$"":9000:7130 "YOUR ANSWETE$(I%)QA$(X):CODE%(I%)X:qX1C%:"#"X" OF "C%;:36,TC8:"CODE "CODE%(X):A$TE$(X):9000:A$"":9000:HSH$(CO%(X))""H$(CO%(X))(93)ĺ:"HINT:":A$H$(CO%(X)):9000:A$"":9000u7070vX1N%"#"X" OF "N%:A$QA$(X):9000 ? ";:Q15:(95);::/Q1TC1:"-";::5$_)TFĺ::"NAME: ";:X130:(95);:e.v3(9);40;"N"8D$;"PR#0"BX FILL PRINT b(4);"PR#1"gN%C%lmSC%7030nX1JoI%((1)J1):(TE$(I%))7023pX):9000A$"":9000#Y15*5IY;". ";:A$AN$(X,Y):9000YA$"":9000`YqTFLAG6150Z15:AN$(X,Z)A$(X)A$"#"(Z)Z"CORRECT ANSWER: ";:A$;" ";:A$A$(X):9000A$"":9000:6160"WHICH # IS CORRECT%))6018ETE$(I%)QA$(X):CODE%(I%)X:Y15:AX$(I%,Y)AN$(X,Y)::X1C%:"# "X" OF "C%;:36,TC8:"CODE "CODE%(X):A$TE$(X):9000:A$"":9000Y15:Y". ";:A$AX$(X,Y):9000:A$"":9000:6150X1C%"#"X" OF "C%:A$QA$(2(4)"PR#0"(<(CODE$)77İ6000?F(CODE$)70İ7000VP(CODE$)67İ8000ZTC0:Z0:T0:TE$"":A$"":N%J:J0:X1N%:TE$(X)""::SC%0:TF0dp MULT PRINTz(4);"PR#1"|~SC%6038X1JI%((1)J1):(TE$(ITC(A$)64[:12::"PLEASE TURN ON PRINTER AND PRESS RETURN";::A$:A$(27)5210oA$(13)5095TC1TC40TC2TC72TC3TC80:12:"PRINTING ";::S3$:(4)"PR#1"#(9);TC;"N"((TC(S3$))2:S3$:958 <]<]<]:% L D$"PR#1"U 240g n::54915:0s pDELETEy u zI$"WARNING"::63010: 10 "ONCE A STUDENT'S FILE HAS BEEN REMOVED FROM THE DISK IT CANNOT BE RECOVERED.":q!"PRESS23:958X"PRESS ";::"ESC";::" TO END OR ";::"RETURN";::" TO CONTINUE ";`B$tB$(27)ġ::~3:1958 STUDENT PRINTOUTSHARD1:D$(4)' :22:8:"PRESS ";::"ESC";::" TO CANCEL PRINTOUT":12:"PLEAS(A$)2160" (TE$,1)" "2090,YY16 2040G*(TE$,TC1)[4(37)16İ2170n>T(A$)(TE$)|HT02160RA$(13)A$(A$,T)\2030fTE$p(A$,1)(10)ĺTE$:TE$""ux:z SCREENPAUSECOUNT0HARDı ............................":%,S/HARDHARD0:::::D$"PR#0":54915:324R$"C"Ģ23:1:"ANY KEY MOVES ON...";:A$:54915:32 PARAGRAPHERTC39(A$,1)" "A$" "A$A$TE$A$Y0TE$(A$,TCY) (TE$)SWER"::A$(N):::"STUDENT'S ANSWER":|W$(X):HARDĢ23:1:958:"PRESS ANY KEY TO GO ON...";:A$::5:1:958:810HARDĺ: (37)18XWHARDĺD$:16368,0:23:1:"PRESS ANY KEY FOR MORE...";:A$::5:1:958*HARDĺ"............N #"N::A$QA$(N):2000:TE$:TE$"":::"PREFERRED ANSWER"::A1$(N):::"STUDENT'S ANSWER":W$(X):HARDĢ23:1:958:"PRESS ANY KEY TO GO ON...";:A$::5:1:958810(5::"QUESTION #"N::A$QA$(N):2000:TE$:TE$"":::"PREFERRED AN$"9"G$G$W$::7000N(G$):G(G$)RW$(X)(W$(X),(W$(X))(G1))cR$"C"730:"PRIMARY PHRASE: ";::P$(N):"BEST MATCH: ";::M$(N):"STUDENT'S ANSWER: ";::W$(X)::800R$"F"750_5::"QUESTIOURN ON PRINTER AND PRESS ";::"RETURN";::A$?A$(27)32RA$(13)663::12:"SENDING MATERIAL TO PRINTER...":D$"PR#1":I$ST$:63010::I$DR$(NU)" RESULTS":63010:::X1WG$""Y12W$(W$(X),Y,1)W$"0"WX1N%:63000:QA$(X)IN$:63000:A1$(X)IN$:63000:A2$(X)IN$::660X1N%:63000:QA$(X)IN$:Y15:63000:AN$(X,Y)IN$:Y:63000:A$(X)IN$:XD$"CLOSE"HARD670.::22:8:"PRESS ";::"ESC";::" TO CANCEL PRINTOUT":12:"PLEASE T:DDD:21000:RFRF0:"":601PlD$(4):D$"OPEN"S3$",D"DD:D$"READ"S3$aqR$"C"640qt5:1:958vX110:63000:P$(X)IN$:63000:M$(X)IN$::63000:M$(11)IN$:63000:M$(12)IN$:ML$:660N%:ML$R$"F"6555:1:958FNSERTED IN THE DRIVE & PRESS SPACE BAR";:B$::B$(32)21510U%TEC8Č54915::0g% T(222)255Ħ%T22:958::""EC"IN"EL::%768:IN$(IN$,1):IN$(IN$,1):T4)EL2101021510$S:12:1:"THE DISK IN THE DRIVE ISN'T PART OF"::"THE LEARNING SYSTEM";::" SERIES. PLEASE":"INSERT THE ";::CH$;::" DISK AND PRESS A KEY";:A$:$S54915::0?%TEC8ė:12:1:"CHECK THAT THE "CH$" DISK IS PROPERLY":"ILTERNATE GIVEN":453!A2$(N%)/E3%(37)p::"HINT: "::V4%(37):(H$(N%))2ĺ"NO HINT GIVEN":458|H$(N%)18::X139:"*";::(6):""::"PRESS APPROPRIATE FUNCTION'S NUMBER:"c:"1. CHANGE QUESTIONQN%QN%1:+N%N%1:N%TTLİ700:G11:{:I$(91)" VERIFY #"(N%)" "(93):21(I$)2:I$;:32:TTLN%;" LEFT":"QUESTION: "::V1%(37):QA$(N%)::"ANSWER 1: "::V2%(37):A1$(N%):::"ANSWER 2: "::V3%(37):A2$(N%)""ĺ"NO A":z""22:1:958:"INSERT THE PROGRAMS DISK INTO DRIVE 1 & PRESS ANY KEY...";:16368,0:A$:A$(27)Ľ:54915:10",CH$"PROGRAMS":D1:21000:RFRF0:"":63010#612:1:958:I$"THE LEARNING CENTER":21(I$)2::I$::(4)"RUN MASTE21:1:958:"INSERT TESTS DISK AND PRESS A KEY...";:B$:CH$"TESTS":1:958:21000:RFRF0:40007!JD$"OPEN"A$",D"DD:D$"READ"A$:X1QN%:61000:A$IN$:(A$)1H%H%1!T!^D$"CLOSE"!h!`21(I$)2:I$:!j:!H768:IN$(IN$,1): TEC8ė:12:1:"PLEASE MAKE SURE THAT DISK IS INSERTED PROPERLY AND THAT THE DISK DRIVE DOOR IS CLOSED. THEN PRESS ANY KEY...";:B$:54915:::10 T(222)255Ľ:54915:10 T22:958::""EC"IN"EL:: @A$S3$".H" EH%0f!GDD1Ģ(4)"DELETE"FI$:22:1:"PRESS RETURN TO GO BACK TO MENU...";:A$:54915::IN$"X":B%1:5TEC5EL2020ĉ::12:"THE DISK CURRENTLY INSTALLED DOESN'T HAVE ";::S3$;::" ON IT.":"PLEASE INSERT THE PROPER DISK AND PRESS ANY KEY";:B$:54915::10T OF"::"THE LEARNING CENTER";::" SERIES. PLEASE":"INSERT THE ";::CH$;::" DISK AND PRESS A KEY";:A$::54915::1TT(4);"CLOSE":""YTEC5EL6040ė:12:"THAT TEST HAS NOT BEEN TAKEN BY ANYONE. NO STATISTICS ARE AVAILABLE YET.":(H%):219,21010256:218,21010256(219):21500?RVE$CH$ı&R:12:1:"THAT'S THE ";::VE$;::" DISK. I NEED ";::CH$::RF1:0R:SEC(222):EL(218)(219)256:(EC5EC4)EL2101021505zS:12:1:"THE DISK IN THE DRIVE ISN'T PAR";Bp(4);"CLOSE"'uW0R07300_z"RATIO OF R/W ANSWERS: "((RW)100.5)100" TO "1e~R0:W0:B0:X0:N%0HARDı24:1:958:"PRESS ANY KEY FOR MENU...";:16368,0:A$::R21500 R22:0RH%,VE$,D:H%0Ĺ222,(37)16HARDĢ22:1:958:"PRESS ANY KEY TO SEE MORE...";:A$:7:1:958T>H9:Y18:(95);::25:Y19:(95);::R:"TOTALS:";::9:R;:15:(R(RW)100.5);"%";:25:W;:32:(W(RW)100.5);"%"\:f"TOTAL TIMES TESTED: X1N%"Q# ";:X10ĺ" ";)X;:97BA%(X);GB(B)50ĞO13qL1((B(B))):L2((A(B)))L11ĺ" ";L12ĺ" ";B(B)"%";::25A%(X);30 A(B)50ĞL21ĺ" "; L22ĺ" ";*A(B)"%":N4X) = # OF TIMES Q. X ANSWERED WRONG, W = AGGREGATE OF WRONG ANSWERS, R = AGGREGATE OF RIGHT ANSWERS.bA(B)((A%(X)B)100.5)lB(B)(((BA%(X))B)100.5)v::I$FI$:21(I$)2:I$:::10:"RIGHT";:26:"WRONG":: # OFTIMES TESTED, A$(X) = # OF TIMES Q. X ANSWERED WRONG, W = AGGREGATE OF WRONG ANSWERS, R = AGGREGATE OF RIGHT ANSWERS.:AV%(R(RW)100.5)TT%B(4);"CLOSE"$.:mX N% = # OF Q'S, B = # OFTIMES TESTED, A$(0:6005z1:(4);"OPEN ";FILE$;",L5,D1"Q(4);"READ ";FILE$;",R51"`TT%:BTT%(4);"READ"FILE$",R0":N%X1N%(4);"READ ";FILE$;",R";XA%(X)WWA%(X):RR(BA%(X))D$"CLOSE" N% = # OF Q'S, B =:12:"PLEASE BE SURE THE PROPER DISK IS IN THEDRIVE. THEN PRESS ANY KEY...";:B$:54915::0q&T(222)255Ħ&T22:958::""EC"IN"EL::&768:IN$(IN$,1):&"21(I$)2:I$:N$,1):&"21(I$)2:I$:::0 %TEC5EL6300021515%T:(4)"DELETE"S3$:11:"THE QUIZ ";::S3$;::" IS":"NOT ON THIS DISK. EITHER YOU HAVE THE"% T"WRONG TEST DISK OR THE TEST HAS BEEN DELETED. SORRY."::::"PRESS ANY KEY TO GO ON...";:A$:A$"":32_& TEC8TE"A$((4)"DELETE"S3$:(D$(4):D$;"MON C,I,O":D$;"OPEN DRILLS, L40,D"DD:D$;"READ DRILLS,R0":DN%:X1DN%:D$;"READ DRILLS,R";X:63000:N$(X)IN$:N$(X)S3$FLAGX(:D$;"CLOSE":((OD%OD%0:: (ZZ1M)D$(4):D$;"OPEN DR0:TTL0:'':(4)"DELETE";S3$:1190:N$(X)"":NFLAGDN%:N$(N)N$(N1)::D$;"MONC,I,O":D$;"OPEN DRILLS, L40,D"DD:D$;"WRITEDRILLS,R0":DN%1:(NFLAGDN%:D$;"WRITE DRILLS,R";N:N$(N)::D$;"CLOSE":BH0:(S3$,1)"F"A$S3$".H":(4)"DELE$:S3$;:::"OKAY? (Y/N)";4&`A$:A$(13)A$"Y"N&jA$"Y"A$"N"1120_&tA$"Y"1160&~BACK1:21:1::X140:"#";:::22:1:958:" PRESS ";::"RETURN";::" TO LEAVE ENTRY UNCHANGED ":5:890 '::A$"":BACK0:CODE$(S3$,1):N%0:QN%;:1110%=IN$"0"ġ:33,%B(IN$)1060_%LS4$IN$:(S4$)67(S4$)70(S4$)771050&V:SU$(SU$,20):S1$(S1$,4):S2$(S2$,3):S4$(S4$,1):958:21:"THIS SET OF QUESTIONS WILL APPEAR ON THEDISK AS ";::S3$SU$(32)S1$(32)S2$(32)S4:33 $S2$IN$:BACKĢ18:1070$18:868:I$"KIND OF DRILL (F=FILL-IN, C=COLUMN MATCH OR M=MULTIPLE CHOICE): ":18:I$;(95);::"PFĞ:"TO PRINT: ":[>DEĞ:"TO DELETE: ":>24:1:" ";::"0";::" & ";::"RETURN";::" GOES TO MAIN MENU ";:(37):35:868:"";A$:A$"0"ġ:PF0:DE0:30>(A$)ė:2190?A%(A$):A%1A%=gI$"STORING TO DISK...":868:I$:D$(4):D$;"OPEN ";S3$",D"DD:D$;"WRITE ";S3$:Y09:P$(Y):M$(Y):Y:M$(10):M$(11):ML$:D$;"CLOSE":1210=p=z=I$"DRILLS ON FILE"::::20000::34,2::=1350&>23::"NUMBER OF DRILL YOU WANT ):21:M$(R):2030&<4M$(R)IN$:2030?<>A%(A$):A%0A%10$b(4)"PR#0"(>%b.>*b;>eHARD0:A>e:W>`21(I$)2:I$:o>768:IN$(IN$,1):=aA$(13)A$"C".=aA$"A"A$"C"25015>=aTC(A$)64=a:12::"PLEASE TURN ON PRINTER AND PRESS RETURN";:A$:A$(27)25998=aA$(13)25080=bTC1TC40=bTC2TC72=bTC3TC80= b:(4)"PR#1":=b(9);TC;"N"=b>#bb,CH$"RECORDS":D1:21000:RFRF0:62251`b-D$(4):D$"OPENSTUDLIST,D1":D$"READSTUDLIST":kb421500qb>b768:IN$(IN$,1):3):X14:A$XNv A$;:(T$,X,1)A$ė:13:I$"DELETION CANCELLED":20000:Y1800:Y:&O X:::I$"DELETING":20000:I$S3$:20000:34,3:35,21:23:" WITNESS THE EXECUTION WHILE YOU WAIT...";::4:OD%0:1170:(4);"NOMON C,I,O":C13:16304,0:Y1200,169,0,145,105,200,169,2,145,105,76,57,213:5Mb Nl :T$"":12:I$S3$::20000:::" WILL BE DELETED FROM THE DISK IF YOU TYPE ";::"YES";::" AND PRESS THE RETURN KEY."::" ANYTHING ELSE WILL RETURN YOU TO THE MAIN MENU: ";:T$"YES"(1"A"A$"B"A$"0"3030L 5L (CODE$)77İ2470UL (CODE$)70QN%QN%1:410lL (CODE$)67İ2360rL& xL0 L: BHıLD ::12:" -GETTING NAMES OF ALL DRILLS ON FILE- ":LN /MX J768790:I:J,I:J:162,0,32,117,253,160,2,138,145,105,"S";K 3020+K N%;" SET";:N%1ĺ"S";K " OF Q'S & A'S":22:22::"ESC";::" RETURNS TO MENU":12:"ADD (A) NEW SETS OR EDIT (E) OLD ONES? ";K A$:A$"A"ĺ:2850:K A$"E"ĺ:3070:K A$(27)ė:12:12:"JUST A MOMENT...":L A$E$)70İ1310J :J :J HERE1:(CODE$)67İ2370:J ::TTL25Ģ12::S3$;::" FILE IS FULL.":"GOING DIRECTLY TO EDITOR...":Z11000:Z:A$"E":3040J :5:I$S3$:20000:::4:"CURRENTLY HAS ";:(CODE$)703010K TTL;" SET";:TTL1TQ:1810::13:10:"JUST A MOMENT...":?I N%N%1:N%TQġ:II 2500OI" dI, (CODE$)70İ80{I6 (CODE$)77İ1450I@ (CODE$)67İ1870IJ :IT I^ (CODE$,1)(32)CODE$(CODE$,1)Ih (CODE$)77İ2280Ir (CODE$)67İ2320 J| (COD,B))));>Hz :"Bu H2::TI$::FLAGX10IN$P$(X):2440LB~ IN$M$(X)}B VT%(X):PRIME::(C);:C58ĖPRIME:(48);B PRIME1X9Ė1::"FAKE PHRASE...";:2451B :" ";IN$B FLAG2410B :3:X10Ė4::P$;B :24:M$: C B11:20A8 AB AL FLAG0::X011:VT%(X1)X7:X:VT%(0)6:X0:P$"PRIMARY PHRASE":M$"MATCHING PHRASE":I$(S3$,20):20000:X011:FLAG2410AV FLAG1:H124:H24:TI$P$:PRIME1:CX49:C58C48A` 2420Aj H14:H224:TI$M$:PRIME19:CX65:FLAG0Bt 00:AN$(X,Y)IN$:Y:63000:A$(X)IN$:X:D$;"CLOSE"::@ D@ OD%1T@$ OLD$S3$ı@. D$(4):A0:J9:D$;"OPEN ";S3$",D"DD:D$;"READ ";S3$:YAJ:63000:P$(Y)IN$:63000:M$(Y)IN$:Y@/ 63000:M$(10)IN$:63000:M$(11)IN$:63000:ML$IN$:D$;"CLOSE":R,D1"z#     ҠPϮʰ ˠ Ӡ ԠϠӠԠ\ Ԡ8 Ҡ!Ӡ "ӠҠ  T(222)255Ħ4T22:958::""EC"IN"EL::VMED TO BE 1#>#b20000:(9);40;"N"3>$b(4)"PR#0"@>%b1785,40F>*bS>eHARD0:Y>e:o>`21(I$)2:I$:>768:IN$(IN$,1):>>R,D1" `21(I$)2:I$:- H(222)255Ħ3  x600002 zI$"2310 SKOKIE VALLEY RD.":60000\ {I$"HIGHLAND PARK, IL. 60035":60000{ |I$"(312) 433-7550":60000 Z11500:Z 24:1:868::" 1 OR 2 DRIVES? ";::A$:A$"1"A$"2"135 DD(A$):944,DD A$; (4)"RUN MASTEOT KAMINS" (60000/ )I$" ":13::60000:7 *16O 2I$"COPYRIGHT 1981"Z <60000 AI$"BY SCOT KAMINS, PH.D.":60000 FI$"-ALL RIGHTS RESERVED-" PGOSUB 60000 ZI$"DISTRIBUTED EXCLUSIVELY BY" c19 dGOSUB 60000 nI$"MICRO LAB"5 N (BOOT PROGRAM)$61000F(4);"BRUN AMPERHELLO.OBJ0"L S 3 I$"MICRO LAB LEARNING CENTER"::60000:5:I$"PRESENTS":60000:8:I$" "::60000:10I$"THE LEARNING SYSTEM"60000PRINT I$"BY DR. SC & PRESS ANY KEY...";:B$:54915::07 T(222)255ĦZT22:958::""EC"IN"EL:::HTESTS DISK INTO DRIVE #1 AND PRESS ANY KEY...";::216,0:16368,0:A$:23020VY22:1:958:"PUT TESTS DISK INTO DRIVE "DD", PRESS KEY";:16368,0:A$VY22:1:958:CH$"TESTS":D1:21000:RFRF0:"":23010VYV768:IN$(IN$,1):EL742EL747RS1:S3$A$:1170:23000:711:OU6VEL1230RS1:23000:1210:yU@VEL1810EL1851İ1170:23000:1811:UJVEL2151İ1170:23000:2151:UTVEL3254EL3261İ1170:23000:3255:OVY::12::"THIS DISK IS FULL! PLEASE INSERT A FRES12:1:"CHECK THAT THE "CH$" DISK IS PROPERLY INSERTED IN THE DRIVE & PRESS SPACE BAR";:B$::B$(32)21510TTEC8Č54915::0T T(222)255ĦTT22:958::""EC"IN"EL::TUEL711EL742ĺD$"OPEN"S3$:D$"DELETE"S3$:23000:711:.UU(219)256:216,0:(EC5EC4)EL2101021505SS:12:1:"THE DISK IN THE DRIVE ISN'T PART OF"::"THE LEARNING SYSTEM";::" SERIES. PLEASE":"INSERT THE ";::CH$;::" DISK AND PRESS A KEY";:A$:SS54915::0STEC9İ22000:51qTTEC8ė:%0:OLD$"":S3$"":R N0R*N21(I$)2:I$:7RR =R RRRH%,VE$,D:H%0Ĺ222,(H%):219,21010256:218,21010256(219):21500RRVE$CH$ıR&R:12:1:"THAT'S THE ";::VE$;::" DISK. I NEED ";::CH$::RF1:1SS"":EC(222):EL(218)AD";S3$:QN%:ML$:D$;"CLOSE":QN$(QN%1):(QN%1)10QN$"0"QN$uQ D$"OPEN"S3$",D"DD:D$"WRITE"S3$:QN$:ML$:D$Q XN%QN%1::QA$(X)QA$(X1):A1$(X)A1$(X1):A2$(X)A2$(X1):XR D$"WRITE"S3$:X1QN%1:QA$(X):A1$(X):A2$(X):X:D$;"CLOSE":ODLEAVES SET UNCHANGED.":T$"YES"(13):18:I$"SET DELETION":21(I$)2::I$::23:1:X14:A$P A$;:(T$,X,1)A$ė:13:I$"DELETION CANCELLED":20000:Y1800:Y:BQ X:I$"DELETING THIS SET":23::20000::D$(4):D$;"OPEN ";S3$",D"DD:D$;"RE100:Y:16303,0:Y1100:Y:C:DE0:sO Y1800:Y:12:I$S3$:20000:13:I$"DELETED":20000:Y11000:Y:::yO aP 18:958::X140:" ";::::20:"TYPE ";::"YES";::" AND PRESS ";::"RETURN";::" TO DELETE THISSET. ";:"ANYTHING ELSE IST":NU$(NU):NU10NU$"0"NU$GaNU$:X1NU:A1$(X)::D$"CLOSE"MaSa a*(222)5((218)(219)256)6204062260b+:13:"PLEASE MAKE SURE THAT THE RECORDS DISK IS IN DRIVE 1. WHEN YOU'VE DONE THAT, PRESS THE SPACE BAR...";:A$:IN$"":A9$(X)IN$::D$"CLOSE"::SFĹ16368,0:60280<`B`0N`D62240`XD$(4):D$"OPEN STUDLIST,D1":D$"READ STUDLIST":NU:X1NU:A1$(X)::D$"CLOSE"`bD$"DELETE STUDLIST"`lNUNU1`vA1$(NU)ST$!aD$"OPEN STUDLIST":D$"WRITE STUDL2(I$))2:I$L_3:TE$"":X1A9%:COUNT0:A$A9$(X):60000:B$"0"XA9%_:TE$:HARDB$"0"Ģ22::"PRESS ANY KEY TO GO ON...";::A$_B$""__H6`MMAFILE$ML$:D$(4):D$"OPEN "MAFILE$",D"DD:D$"READ "MAFILE$:A9%:X1A9%:768:IN$CO0:HAı^(23::"PRESS ";::"0";::" TO STOP THE STORY":"PRESS ";::"RETURN";::" TO SEE MORE OF IT...";::B$:B$"0"ġ:TE$"":A$"":22:^P3:1:ZZ%Ģ17:1:^Z958::^s^xHARDI$MA$:21(I$)2::I$:_HARDI$MA$:(TCȈTE$(A$,TCY):(TE$)(A$)60160=](TE$,1)" "ī60090N]YY1:60040~](TE$,TC1):COCO1:COLI(37)18İ60170]T(A$)(TE$):T060160]A$(13)A$(A$,T)]60030]TE$](A$,1)(10)ĺTE$:TE$""]:] J%(0) ^;::L$;::", RIGHT? (Y/N)";:A$:A$"Y"A$"N"25142J\9bA$"N"25110\>b5:1:958:12:"OK, "R$". GOOD LUCK IN":"YOUR TEST TODAY!":Z11000:Z:R$(R$,L):L$(L$,LI):ST$L$" "R$:Z0:\`\j(A$,1)" "A$" "A$\tA$TE$A$\~Y0$]LILI(15L)[[b12:1:958:X1LI1:(95);:::"b768:IN$(IN$,1):IN$(IN$,1):1): DRIVE ISN'T PART OF"::"THE LEARNING SYSTEM";::" SERIES. PLEASE":"INSERT THE ";::CH$;::" DISK AND PRESS A KEY";:A$:S54915::0TEC8ė:12:1:"PLEASE SEE THAT THE "CH$" DISK IS":"PROPERLY INSERTED & PRESS ANY KEY...";:B$:54915::0H%,VE$,D:H%0Ĺ222,(H%):219,21010256:218,21010(219)256:21500URVE$CH$ı&R:12:1:"THAT'S THE ";::VE$;::" DISK. I NEED ";::CH$::RF1:SEC(222):EL(218)(219)256:(EC5EC4)EL2101021510~S:12:1:"THE DISK IN THEATED. IF YOU :CONFIRM THE ORDER TO DELETE ALL THE:DRILLS LISTED IN INVERSE VIDEO WILL BE @ DELETED FROM THE DISK - NEVER TO BE SEEN AGAIN. IF YOU DON'T CONFIRM THEN THE,DELETE ORDER WILL BE CANCELLED.,,SIMPLE.,ENDR21500 R R22:FREST :MODULES. YOU WILL THEN BE ASKED FOR ,THE LOWEST NUMBERED DRILL THAT BEGINS :THE SERIES YOU WANT TO DELETE; THEN:THE HIGHEST NUMBERED DRILL IN THE :SERIES. THE PROGRAM WILL DISPLAY\6THE NAMES OF ALL THE DRILLS IN THE:RANGE YOU HAVE STIPUL IS SET UP AS A CONVENIENT  WAY OF DELETING LARGER NUMBERS OF : DRILLS QUICKLY AND EASILY.: : USING THIS PROGRAM IS SIMPLE. A LIST *"OF ALL THE DRILLS YOU HAVE CREATED IS:DISPLAYED. THEY ARE NUMBERED AS THEY :ARE IN BOTH THE EDITOR AND TTO CONTINUE...";:A$:A$(32)250:: THIS PROGRAM'S PURPOSE IS TO ALLOW YOU: TO DELETE LARGE NUMBERS OF DRILLS. WHILE THE EDITOR MODULE HAS A DRILL,DELETION FUNCTION ITS USE IS LIMITED,TO ERASING ONLY ONE DRILL AT A TIME.,THIS PROGRAM(27)Č54915::0$A$(13)203ZCH$"PROGRAMS":D1:21000:RFRF0:"":203::13::I$"THE LEARNING SYSTEM":21(I$)2:I$::(4)"RUN MASTER,D1"200A$:(37)18İ250190#23:1:958:"PRESS THE SPACE BAR ORE TITLES";:A$:A$(13)160':-DA$:A$"END"23023:1:958::"PRESS SPACE BAR TO START, ESC TO END";:A$::A$(32)ıA$(27)210:DD120518:1::"PUT PROGRAM DISK INTO DRIVE 1 AND PRESS RETURN";::A$:A$TE DRILLS":D$;"OPEN DRILLS, L40":D$;"WRITE DRILLS, R0":NU%:NU%0140WSE0SE1X1SECND:D$;"WRITE DRILLS, R";X:DN$(X)::XFIRSTNU%:D$;"WRITE DRILLS, R";X:DN$(XDEAD):D$;"CLOSE":::54915:022:1:"PRESS RETURN FOR MPE ";::"YES";::". ANYTHING ELSE CANCELS THE DELETION. ";:"";A$:A$"YES"ĉ:::54915:0 x:"DELETING UNWANTED FILES...":XFIRSTLAST:D$;"DELETE";DN$(X)",D"DD:(DN$(X),1)"F"A$DN$(X)".H":D$"DELETE"A$H}X::"UPDATING INDEX...":D$;"DELERED ONE.":23:20:958:"";A$:LAST(A$):LAST(FIRST)LASTDN%90 dDEADLASTFIRST1:NU%DN%DEAD:SECNDFIRST1:::A$"DRILLS TO BE DELETED":21(A$)2:A$:34,2:::XFIRSTLAST:DN$(X):X^ n:::"THE ABOVE FILES WILL ALL BE DELETED IF YOU TY(37)19İ160Q <X:958:22:1::"0";::" & ";::"RETURN";::" TO CANCEL" F19:1:868:"WHAT'S THE LOWEST NUMBERED DRILL TO GO?":20:868:"";A$:FIRST(A$):A$"0"205 PFIRST1FIRSTDN%70C Z22:1:958:"NOW I NEED THE HIGHEST NUMBEX11500:X:202 -DN$(DN%):X1DN%:D$;"READ DRILLS,R";X:768:IN$(IN$,1):DN$(X)IN$:X:(4);"CLOSE":Y1300:Y:22:1:958:"WANT DIRECTIONS? (Y/N)";::A$:A$"N"İ180 2:A$"DRILLS ON FILE":21(A$)2:A$:34,2::X1DN%:X;") ";DN$(X):1:"INSERT TESTS DISK INTO DRIVE "DD" AND PRESSRETURN";:A$:A$(27)202_ &A$(13)37 'CH$"TESTS":DDD:21000:RFRF0:"":37 (:D$;"OPEN DRILLS, L40,D"DD:D$;"READ DRILLS,R0":DN%:DN%0ĺD$"CLOSE"::13:10:"NO DRILLS ON FILE":; 21500:HEMLOCK  1981   (M)  :IN$"X":J768790:I:J,I:J: 162,0,32,117,253,160,2 ,138,145,105,200,169,0,145,105,200,169,2,145,105,76,57,213:D$(4):A$"THE LEARNING SYSTEM":7DD(944)$DD2ī39M %22:TTL100.01);"%":::EXAM540"CORRECT ON SECOND TRY: ";:25:COUNT%(3)COUNT%(4);:35:((CO%(3)COUNT%(4))TTL100.01);"%":::"CORRECT ON THIRD TRY: ";:25:COUNT%(5)COUNT%(6);:35:((CO%(5)COUNT%(6))TTL100.01);"%"o::"WRONG:";:25:868:XHOLD%510G"PRESS THE SPACE BAR FOR THE NEXT ONE...";:A$:aIN$(27)XHO%:520:"PRESS THE SPACE BAR FOR SCORE...";:A$::I$"SCORES":20000::::"CORRECT ON FIRST TRY: ";:25:COUNT%(1)COUNT%(2);:35:((CO%(1)COUNT%(2))"TYPE THE WORD ";::"ANSWER";::" FOR SOME HELP...":VT::::VT(37)1n63000:Z$IN$:Z$HALD$(X)490VT:1:Z$"ANSWER"480:868:A$HA$(X):MU%1::20:Z11500:Z:::MU%0VT:1:868:45020:I$"YOU GOT IT"::20000:::D%(X)))Ģ((QA$(X))40)7:958:1:A$A9$(CD%(X)):60000:TE$:360~A$"C"SFĹ16368,0:X1X:N1%N%::60275:XX1:N%N1%XN%430:N0X:COUNT%(7)0EXAM520K::I$"RETAKE":20000:34,2:X1HOLD%:A$HQLD$(X):20::VT(37):22::$(32)A$"I"A$"C"380I}A$"I"A$"C"ĭEXAM(A9$(CD%(X)))380bEXAMA$(27)400N7NO$(X)"":HO%HO%1CO%(N)CO%(N)1:21:1::958:"PLEASE TYPE IN YOUR ANSWER...":VT:1:868:210EXAMA$(27)520CA$"I"(A9$(C ";::"I";::" FOR INFORMATION ON THIS QUESTION";:SFĺ"PRESS ";::"C";::" FOR THE WHOLE COMPOSITION"si22r"PRESS THE ";::"SPACE BAR";::" TO GO ON...";:EXAMĺ"PRESS ";::"ESC";::"TO END DRILL AND GET SCORES...";|A$:A$(27)A1340!6A$(A1$(X),C%,1)330*@3008JA$;:290T:22:1:868::I$"GOOD":20000::HOLD%HOLD%1:HQLD$(HOLD%)QA$(X):HALD$(HOLD%)A1$(X):C%0^COUNT%(N)COUNT%(N)1:868:EXAM370khZ1700:Z:20:1:958:EXAM(A9$(CD%(X)))ĺ"PRESS HINT":VTWEXAMN7:HO%HO%1:HQ$(HO%)QA$(X):HA$(HO%)A1$(X):NO$(X)AA$(X,B):350sB:NN1::RETAKE350VT:958:Q140:"*";:Q::" THE ANSWER IS: ";::A1$(X)::Z1700:Z:"NOW YOU TYPE IT: ";::18"C%C%1,A$:C%(A1$(X))HANGE YOUR MIND OR";?NN1:AA$(X,B)A1$(X)EXAMİ610:350jNN1:AA$(X,B)A2$(X)EXAMİ610:350AA$(X,B)A2$(X)AA$(X,B)A1$(X)N1:350 (S3$,1)"F"ZXEXAM(H$(CD%(X)))1Ģ23:1:"PRESS ";::"H";::" & ";::"RETURN";::" FOR AD%(X)):ZX1:20:958::"HINT:"::MU%1:20:MU%0:VT:1:" ";:1:210 (AA$(X,B),1)" "AA$(X,B)(AA$(X,B),(AA$(X,B))1):215 (AA$(X,B),1)" "AA$(X,B)(AA$(X,B),(AA$(X,B))1):218958:EXAMĢ21:"PRESS THE ";::"ESC";::" KEY TO Ck :TTL0:X1N%:TTLTTL1:ZX0:A$QA$(X):20:::N0:B1CHANCE%:B1Z%(1)WC1:::WRNGE$(Z%)::z VT(37)1 63000:AA$(X,B)IN$:(AA$(X,B))0ĢVT:1:210 IN$"0"TT1EXAMČ54915::0G IN$"H"ZXEXAM(H$(CD%(X)))1A$H$(C,RGHT$(51):630:760 930. EXAMİ250008 1970K ML$(14)185U 2060 :DD1Ģ18:1:958:"MAKE SURE TESTS DISK IS INSERTED INTO DRIVE "DD" & PRESS ANY KEY...";:A$:CH$"TESTS":DDD:21000:RFRF0:"":186 ::54915:0T%120 nA$(A$,T%):70: x:TE$"":A$"":T%0:Y0: CD%(26),NO$(26),AN$(26,5),A$(26),A9$(26):QAWLT:A$M$:CHANCE%3:A(L)(M$):AA$(26,3),COUNT%(26),HQLD$(26),HALD$(26),H$(26),QA$(26),A1$(26),A2$(26),DN$(80),VT%(16),P$(12),M$(12),WRNG$(51)  T%0:Y0:MU%70V 22:"PLEASE TYPE IN YOUR ANSWER...":I$"RETAKE"Ģ3:1:50q (1:21(S3$)2:S3$: 2"QUESTION ";X;" OF ";N%: < FY0 PTE$(A$,40Y):(TE$,1)(32)(TE$)(A$)100 ZYY1:80 d(TE$,39):T%(A$)(TE$):Y 21500IN$"X":J768796:I:J,I:J: 162,0,32,117,253,160,2,138,145,105,200,169,0,145,105,200,169,2,145,105,76,57,213,169,0,32,237,253,96DD(944):EOF7912030:TC38:RETAKE1:130 TEST  1981   (M)                                TEC8ė:12:"MAKE SURE THAT THE DISK IS PROPERLY INSERTED AND PRESS ANY KEY...";:B$:54915::0x T(222)255ĦT22:958::""EC"IN"EL::`21(I$)2:I$:ACH$::RF1:OSEC(222):EL(218)(219)256:(EC5EC4)EL2101021510S:12:1:"THE DISK IN THE DRIVE ISN'T PART OF"::"THE LEARNING SYSTEM";::" SERIES. PLEASE":"INSERT THE ";::CH$;::" DISK AND PRESS A KEY";:A$:S:54915:0fLEASE":"INSERT THE ";::CH$;::" DISK AND PRESS A KEY";:A$:OSEF:21010TEC8ĉ::12:"PLEASE CHECK THAT THE DISK IS INSERTED PROPERLY. THEN PRESS ANY KEY TO GO ON.";:A$:10 T(222)255ĦT22:958::""EC"IN"EL::::" DISK. I NEED ";::CH$::RF1:22:1:"PRESS SPACE BAR TO GO ON...";:A$:A$(32)21030c+Ri0RSEC(222):EL(218)(219)256:EC5EL2101021510@S:12:1:"THE DISK IN THE DRIVE ISN'T PART OF"::"THE LEARNING SYSTEM";::" SERIES. PEDITOR" D$"RUN TEST". D$"RUN HEMLOCK"C D$"RUN RECORDS"V pD$"RUN STATS"i XD$"RUN INITS"u R21500 R20: RH%,VE$,D:H%0Ĺ222,(H%):219,21010256:218,21010256(219):21500 RVE$CH$ı]&R:12:1:"THAT'S THE ";::VE$;:0:RFRF0:70 D$(4)u 22:1:958::A7A0DD2ĺ"YOU'LL NEED THE TESTS DISK IN DRIVE 2"::Q1999:Q A1ĺ"GETTING THE PROPER PROGRAM...": AZ1:9::A$(A):::A3000,2000,1000,5000,6000,4000,7000 D$"RUN MAT" D$"RUN $:A$"0"A$"7"110 sA(A$):A0ė:12:10::"THE LEARNING SYSTEM"::23:"INSERT DISK TO BOOT & PRESS ANY KEY";:16368,0:A$:X x22:1:958:A(A$) ZA1:9::A$(A): A$"0"Ģ8A:9:A$(A):21:958:100 CH$"PROGRAMS":D1:2100I$D II$ = "BY DR. SCOT KAMINS": HTAB 21 - LEN (I$) / 2: PRINT I$t JI$"- ALL RIGHTS RESERVED-":21(I$)2:I$ K::I$"MASTER MENU":21(I$)2::I$: L PZ:X17:6:X") "A$(X): Z:6:0") "A$(0) d22:25:"YOUR CHOICE: "; nAT(S)"" 2A$(4)"STUDENTS' SCORES"< <A$(5)"TESTS' STATUS"S AA$(7)"INITIALIZE" E:I$"MICRO LAB LEARNING CENTER"::21(I$)2:I$: F::I$"THE LEARNING SYSTEM":21(I$)2:I$ G HI$"(C) COPYRIGHT 1981 BY DR. SCOT KAMINS":21(I$)2: MASTER:V1.1&215004DD(944)=Z12MA$(0)"END"sCR768777:MH:CR,MH:CR:EF768104,168,104,166,223,154,72,152,72,96 A$(3)"CREATE COMPOSITIONS"A$(2)"CREATE TESTS"A$(1)"TESTING" (A$(6)"DELETE TES     `21(I$)2:I$:AT THE DISK IS PROPERLY INSERTED AND PRESS ANY KEY...";:B$:54915::0x T(222)255ĦT22:958::""EC"IN"EL::`21(I$)2:I$:A";::" SERIES. PLEASE":"INSERT THE ";::CH$;::" DISK AND PRESS A KEY";:A$:aS:54915:0TEC8ė:12:"MAKE SURE THAT THE DISK IS PROPERLY INSERTED AND PRESS ANY KEY...";:B$:54915::0 T(222)255ĦT22:958::""EC"IN"EL::8,21010256(219):21500(RVE$CH$ır&R:12:1:"THAT'S THE ";::VE$;::" DISK. I NEED ";::CH$::RF1:SEC(222):EL(218)(219)256:(EC5EC4)EL2101021510QS:12:1:"THE DISK IN THE DRIVE ISN'T PART OF"::"THE LEARNING SYSTEMLOSE" TESTS DISK?D$(4):D$"OPENDRILLS,L40,D"DDWD$"WRITEDRILLS,R0"^0mD$"CLOSE"*D$(4):D$"OPENMAINDEX"4D$"WRITEMAINDEX">0HD$"CLOSE"  :R21500RH%,VE$,D:H%0Ĺ222,(H%):219,21010256:21 (4)"INIT ";FILE$(A);",D"DD0 A1000,2000Q :12:18:"DONE!" 22:1:"REMOVE & LABEL DISK AND PRESS SPACE BAR";:A$:A$(32)175 100 RECORDS D$(4) D$"OPENSTUDLIST,D"DD D$"WRITE STUDLIST" 0D$"C:12:"THIS DISK HAS ALREADY BEEN INITIALIZED.":" AS ";::ID$::"PLEASE CHECK IT!!!":"SHALL I WRITE OVER IT? (Y/N)";:A$:A$"Y"Ľ:0 :::12:"THIS PROCESS WILL TAKE ABOUT 50 SECONDS.GET YOURSELF A CUP OF COFFEE - I'LL BEEPWHEN I'M DONE." 85; A$"1"Ģ10:13::"INITIALIZE RECORDS DISK":l A$"2"Ģ12:13::"INITIALIZE TESTS DISK":x A(A$) 23:1:958::"INSERT BLANK DISK INTO DRIVE #"DD" AND":"PRESS THE RETURN KEY";::A$:A$"0"100 :H%,ID$,DD H%0ĉ:20:"OR"::16:10:"0) RETURN TO MASTER MENU"Q 23:25:"YOUR CHOICE: ";:A$r A$"0"A$"1"A$"2"130 A$"0"143 16:13::"RETURN TO MASTER MENU"::DD2Ģ22:1:958:"YOU'LL PROBABLY NEED THE TEST DISK IN DRIVE 2...":Z1999:Z80- UCH$"PROGRAMS":D1:21000:RFRF0:80p Z:12::I$"THE LEARNING SYSTEM":60000::(4)"RUN MASTER,D1"x d: nI$"DATA DISK INITIALIZATION"::60000:/ x7:5:"YOU MAY:":10:10:"1) SET UP RECORDS DISK":12:10:"2) SET UP TESTS DISK"::  INITS21500,DD(944)^FILE$(2):FILE$(1)"RECORDS":FILE$(2)"TESTS"g 100uPDD1100Q23:1::"BE SURE PROGRAM DISK IS INSERTED & PRESS SPACE BAR ";::A$:22::A$(27)0 RA$(32) ӠԠŨ͉ɸԓҠ砠Р蠠ѠӠ٠Ъ𠠠ŖҠ砠lL ,L `$$`    ` @ūϠ֠頠ҹҠԠ頠Ӡ庠а頠πȂūϠﵥɠﺠ͍ɠȠȩ  %LHIIidIHiHJJJJ)Ii IHiH)mIIHiHɠuȌG8Șu 㤝4GG4)4DELƑH SXIBCHȹH]`Xnsotp`LHL ߍBC L ߍDE L ]LFJJJJKJ \ &'SFLDFLVFLLޮF g 抮F M0P؝JFLzK JLn   ING ELSE TO LEAVE DATA INTACT ";:"";Z$:Z$"YES"1080S1998j(IN$)BACK1230tK5%0BACK0:IN$TE$:TE$"":V1FFĖH1((Z1)):122861000:H1(Z1$)IN$TE$IN$IN$""1190IN$"P"1260%1:1230!63000:IN$"0"12208EDITIN$"":1998k::I$"WARNING":21(I$)2::I$::12"LEAVING THIS MODE IN THIS MANNER WILL CAUSE ANY COMP JUST ENTERED TO BE WIPED OUT. CONFIRM BY TYPING ";::"YES";::" - "I"TYPE ANYTHBACKĞ:Z1;::12104:FFİ61000:Z1$;:1195>Z1;J:IN$;(BACK)(EDIT)āX1150(IN$):(95);:::"<":V1:H1(Z1$)FF((Z1))FF:1210Z1;:ZFZF0:1212FFABĢV1:H1:868:"";:IN$"P":ZFPARAGRAPH":35,21Qt24:1::" 0 + RETURN AFTER NUMBER CANCELS MODE ";::3:1q~(V17)19V25:3:1:958H1(36)((Z)):FFİ61000:H1(36)(Z1$)V1(37)1V1:H1L$;::"<":V1:H1:BACKĞ:FFİ61000:Z1$;::1210IN$,1)(10)K5%1!VH20H230[V20V25re21:1:868:"PRESS ";::"RETURN";::" AFTER EACH ELEMENT"o22:1:958:EDITĺ"ENTER ";::"END";::" + ";::"RETURN";::" WHEN DONE":"ENTER ";::"P";::" + ";::"RETURN";::" FOR NEW :X120:(95);:::"<";::15:"";NU$E(NU$)(NU$)201010W NU$"0"1998u(NU$)65(NU$)901010$24:1:958:24:10::"OK? (Y/N):";::A$:A$"Y"A$"N"1060.A$"N"10108BI$NU$L60000::QBACK(EDIT)( 14000OLD$MA$ XL&PX1000,3000,4000,5000,6000,7000,9000Y100w::::::::::::::::::::::::CREATE COMPZ0FFNU$MA$:61000:108022:1:958:24:8:"(0 CANCELS THIS MODE)";:22:1):"NAME FOR COMP:";:::" KEY FOR MENU...";:A$::100x 22:958:24:"(";::0;::" + ";::"RETURN";::" CANCELS THIS MODE)";:23:1 X7250 :"WHICH COMP (BY NUMBER):";::"";A$ A$"0"100 (A$)1(A$)MA%140 MA$MA$((A$))MA$OLD$195L yCH$"TESTS":21000:RFRF0:"":22:1:"PRESS ANY KEY...";:A$:100Y z:10000_ }j 19000r XL X1250" MA%Ģ10:"NO COMP ON FILE - YOU MUST CREATE A NEW FILE OF TEXT OR END THE PROGRAM.":::"PLEASE PRESS THE ";::"RETURN"; oX0ĺ(4)"RUN MASTER,D1"; pX8ĺ(4)"RUN TEST,D1"T q(4)"RUN EDITOR,D1"a rX6250 wMR%Ģ22:8:958::"GETTING COMP FILE NAMES...": xDD1ė:12:"BE SURE TESTS DISK IS INSERTED & PRESS SPACE BAR";:A$:A$(32)120":85 d:23000% fLX:22:958= gX8X9X0114 jDD1Ģ22:1:958:"INSERT PROGRAMS DISK AND PRESS ANY KEY";:A$:A$(27)100 k:22:1:958:CH$"PROGRAMS":D1:21000:RFRF0:"":106 n:12:I$"THE LEARNING SYSTEM"::60000:$(95)::Z0:A$(25),MA$(25),MI$(25),QA$(25),A1$(25),A2$(25),M$(12),P$(12)b (DN$(25),AN$(26,5)h Pu RDD287 U22:1:958:"INSERT TESTS DISK INTO DRIVE "DD" AND PRESSRETURN"; VA$:A$(27)ī106 WCH$"TESTS":DDD:21000:RFRF0:"q6 MAT21500:V1.1IN$"X":J768790:I:J,I:J: 162,0,32,117,253,160,2,138,145,105,200,169,0,145,105,200,169,2,145,105,76,57,213DD(944):HOW MANY DRIVES?:MAT MAT FEB 19 1981 .K L$"":LIMIT18:TC39:X1150:L$L                       80^݌Hh 쓝݌ A 퓥D 퓥? 퓥AEDE?HJ>h `HJ>݌h Hh݌`1:958 :&X1DN%6X10ĺ" ";HX;") "DR$(X)b(37)18XDN%İ4000hwD$"CLOSE"}:pFI$S3$".S"uDD1Ģ21:1:958:"INSERT RECORDS DISK AND PRESS A KEY..";:A$:CH$"RECORDS":1:958:21000:RFRFLOSE"(S3$,1)"F"İ40000$ **:6 X1N%F X10ĺ" ";X X;") "DN$(X)r (37)18XDN%İ4000x ~  :D$:22:1:958:"PRESS ";::"RETURN";::" FOR MORE OR ";::"ESC";::" TO CHOOSE:";:A$A$(27)ġ:3::sDD1Ģ21:1:958:"INSERT TESTS DISK AND PRESS A KEY...";:A$:CH$"TESTS":1:958:21000:RFRF0:2005D$"OPEN"S3$",D"DDPĺD$"OPEN"S3$:D$"READ"S3$:QN%:2060D$"POSITION"S3$",R"PD$"READ"S3$QN%10 ML$D$"C:0;::" + ";::"RETURN";::" FOR MASTER MENU)";:22:37J16368,0"";A$:A$"0"((A$)1(A$)DN%)Ģ(37):37:1030A$"0"120CHOICE(A$)$S3$DR$(CHOICE).CD$(S3$,1):CD$"C"P228CD$"C"P0BL:21:10":30023:1:958::"RETURN";::" FOR MORE REPORTS, ";::"ESC";::" FOR MASTER MENU, ";::"SPACE BAR";::" FOR THIS TEST'S STATS";:A$A$(13)300A$(27)120&A$(32)İ7000:3000520:: <24:5:"(ENTER ";:: #:CD$"FILL IN"460G:H%FA$(5)"(NONE RECORDED)"bN$(5);": ";::FA$(5)hn|TT%520:N$(6);": ";::FA$(6):::N$(8);": ";::FA$(8):(TM$)ĺ:N$(9);": ";::FA$(9):HARDĺ:::7000::(4);"PR#E":N$(6)"NUMBER OF TIMES TAKEN"|FA$(1)(S3$,(S3$)2):FA$(2)CD$:FA$(3)(QN%):FA$(4)ML$:FA$(5)(H%):FA$(8)(AV%):FA$(9)TM$:FA$(6)(TT%)(ML$)1FA$(4)"(NONE ATTACHED)"5:1:X14:N$(X);": ";::FA$(X);:(FA$(X))ĺ"N/A";::O CANCEL THIS MODE":12:38:Z$:Z$(27)ī300Ap:(4);"PR#1"[r:HARDĺ(10):(10)xw60000:HARDĺ(10)(10) z3:N$(1)"NAME":N$(2)"TYPE":N$(3)"NUMBER OF QUESTIONS":N$(4)"COMPOSITION":N$(5)"HINTS":N$(8)"AVERAGE SCORE":N$(9)"AVERAGE TIM):";:Z$:Z$"Y"Z$"N"3350PZ$"Y"HARD1STCD$"C"CD$"COLUMN MATCHING"n^CD$"F"CD$"FILL IN"hCD$"M"CD$"MULTIPLE CHOICE"lHARD370.mZ$""::12:1::"TURN ON PRINTER & PRESS RETURN KEY"::23:1:"PRESS ";::"ESC";::" T 22:1:958:"THANK YOU..."T "CH$"RECORDS":D1:21000:RFRF0:"":250} ,HARD0:I$"TEST/DRILL STATUS REPORT" 6::60000: @3:1 J5000:22:1:958:24:"YOUR CHOICE: ";:1000:2000:6000O22:1:958:"WANT IT PRINTED? (Y/N3:I$"THE LEARNING CENTER":21(I$)2::I$::(4)"RUN MASTER,D1"x X1DN%:D$"READDRILLS,R"X:DR$(X)::D$"CLOSE" B%290 22:1:958::"PUT THE RECORDS DISK INTO DRIVE 1 & PUSHTHE SPACE BAR";::A$ A$(27)220 A$(32)250= :D$(4):D$"OPENDRILLS,L40,D"DD:D$"READDRILLS,R0":DN%M DN%0240_ D$;"CLOSE": 18:"NO DRILLS ON FILE. PLEASE INSERT PRO- GRAMS DISK INTO DRIVE 1 & PRESS RETURN ";:A$: CH$"PROGRAMS":D1:21000:RFRF0:"":210C :10:RFRF0:22:1:958:"INSTALL PROGRAMS DISK INTO DRIVE 1 AND PUSH ANY KEY...";:A$:130 ::13:I$"THE LEARNING SYSTEM":21(I$)2::I$::(4)"RUN MASTER,D1" CH$"TESTS":DDD:21000:RFRF0:"":100 A$(13)110 M)   ZDD2180n d22:1:958:"INSERT TESTS DISK AND PRESS RETURN...";:16368,0:A$:A$(13)150 nA$(27)100 x:22:1:958:"INSTALL PROGRAMS DISK INTO DRIVE #1 AND PRESS ANY KEY...";::16368,0:A$d CH$"PROGRAMS":D1:2100 IN$"X":V1.1J768790:I:J,I:J: 162,0,32,117,253,160,2,138,145,105,200,169,0,145,105,200,169,2,145,105,76,57,213 STATUS FILED$(4)(DD(944)2P0<21500FDN$(50),A%(52),DR$(50) PSTATS  1981   (            580NA$"N"ST%0:220eS22:1:958:"PRINT OUT THE RESULTS? (Y/N)";:A$:A$"Y"A$"N"595xTA$"Y"HARD1U2:958XDD1610Y22:1:958::"INSERT TESTS DISK INTO DRIVE "DD" & PRESS ANY KEY...";::A$::5:1:958]A$(2J(37)19XWĺD$:22:1:"PRESS ANY KEY FOR MORE...";:A$::5:958UW$(X)[&j0D$"CLOSE":22:1:958:"WOULD YOU LIKE TO SEE THE QUESTIONS AND CORRECT ANSWERS ASSOCIATED WITH EACH IN-CORRECT ANSWER? (Y/N)";DA$:A$"Y"A$"N"ER163000:W$IN$"W(W$)>D$"POSITION"ST$",R"W2OD$"READ"ST$VX^W$jW(W$)W0ĺD$"CLOSE":12:"NONE WRONG IN THIS TEST - SCORE: 100%":22:1:"PRESS ANY KEY TO GO ON...";:A$:A$"":9999X1W63000:W$(X)IN$A$"1"(A$)NU400*(A$)0ī400;NUMBER(A$)AI$DR$(NU)::63010:::"(ONLY STUDENT'S WRONG ANSWERS DISPLAYED)":5S3$I$:R$(S3$,1)D$"OPEN"ST$",D1"D$"POSITION"ST$",R3"D$"READ"ST$NU1500X1NUMB1:32:" AV: ";(ST%NU.5);"%";KHARDHARD0:::::D$"PR#0":32c2:33:"--------";23:1:958:1:" (";::0;::" + ";::"RETURN";::" CANCELS THIS MODE)":22:1:"DISPLAY ANSWERS TO TEST NUMBER: ";A$:A$"0"HARD0:A$"1":48000:DR$(X)IN$:SCOUR$,W$)@X10ĺ" ";J(37)19XNUHARDĺD$:22:1:"PRESS ANY KEY FOR MORE NAMES...";:A$::5:958TX") "DR$(X);:35:SC$"%"YST%ST%(SC$)^W(W$)hD$"POSITION"ST$",R"WrD$"READ"ST$|XD$"CLOSE"$ST%0 !I$ST$::63010:/HARDĺ:63LD$"OPEN"ST$",D1"]D$"READ"ST$iNUMBER"NU0ĺD$"CLOSE":3:958:12:"THIS STUDENT HAS NO TESTS ON FILE.":D$"PR#0":20:"PRESS ANY KEY TO GO ON...";:A$::400,X1NUMBER663:"RETURN";::" CANCELS"<D22:1:"STUDENT #: ";:"";A$KFA$"0"32gHA1(A$):A11A1NU68zJST$ST$((A$))PA220,5000,6000EC5EL640ė:11:"THE QUIZ ";::S3$;::" IS":"NOT ON THIS DISK. EITHER YOU HAVE THHED$(4)Z:2614X1NU:63000:ST$(X)IN$::D$"CLOSE"M6::I$A$(A)::63010:T85d:X1NUMBER<(37)19ĺD$:22:1:958:"PRESS ANY KEY TO SEE MORE...";:A$::5:1:958>X10ĺ" ";@X") "ST$(X)BX:958C23:8::0;::" + ";:CKIT":(4)"READ CHECKIT":CH$:(4)"CLOSE":CH$"RECORDS"ĺ"INSERT RECORDS DISK AND PRESS A KEY...";:B$:(37):45 0:D$(4):D$"OPEN STUDLIST,D1":D$"READ STUDLIST"2NU:NU0ĺD$"CLOSE"::5::"NOBODY HAS TAKEN ANY TESTS YET!!!"::Z1300: ";:A$:A$"0"A$(27)A$"4"5 'A$"1"A$"4"37^ )A(A$):52A:7::A;:10:A$(A):j *A426 ,21:1:958::"GETING PROPER MATERIAL FROM THE DISK ";:" JUST A MOMENT... ";::Z1500:Zx -:DD1ĺ(4)"OPEN CHE1 AND PRESS SPACE BAR";:25* :ST%0 !A$(1)"VIEW RESULTS":A$(2)"PRINT TEST SCORES":A$(3)"DELETE STUDENT":A$(4)"RETURN TO MAIN MENU" #I$"STUDENT RECORDS MODULE":63010:5:3:"YOU MAY:"::X14:7:X") "A$(X):: %22:25:"YOUR CHOICE: CH$"PROGRAMS":D1:21000:RFRF0:"":26 :12:1:958:I$"THE LEARNING SYSTEM"::63010:::(4)"RUN MASTER,D1" 16:10:"GETTING THE STUDENT ROSTER...":CH$"RECORDS":D1:21000:RFRF0:"":22:"INSERT RECORDS DISK INTO DRIVE 12),P$(12),QA$(50),ST$(50),W$(50)' 5 16368,0 22:1:958::"INSERT RECORDS DISK INTO DRIVE 1 & PRESSANY KEY ";: A$:::A$(27)30 22:1:958:"PUT PROGRAM DISK INTO DRIVE 1 AND PRESS ANY KEY";:A$ A$(27)Ľ:54915:03' RECORDS 921500:V1.1IN$"X": 162,0,32,117,253,160,2,138,145,105,200,169,0,145,105,200,169,2,145,105,76,57,213:X768790:Y:X,Y::X0:Y0DD(944):RECORDS! A$(50),A1$(50),A2$(50),AN$(50,5),DR$(50),M$(               "A2$(QN%)(93):::400IO(IN$)TITLE$"HINT"H$(QN%)(93)::400OT^^VERTLASTh:TITLE$;" OK? (Y/N)";::A$:TAB:868:A$(13)A$"Y"rA$"Y"A$"N"360|A$"N"TEMP$IN$:BACK1:210BACK0::N%0:QN%QN:IN$TEMP$:TEMP$"":VERTOFFSET:TAB:IN$:340j6IN$"END"QN%1TITLE$"QUESTION"Ĺ34,0:410:BACK1:@(IN$)(TITLE$"QUESTION"TITLE$"PREFERRED ANSWER")ĖTAB:(37):X125:(95);:::TAB:(37)1:270J(IN$)TITLE$"ALTERNATE ANSWERS"TTLTTL1:QN%QN%1:::120*G11:S(TI$)65Ģ24:958:1:VERTOFFSET(IN$)(BA)((TI$,1)"Q"(TI$,1)"P")ĢVEOF:270"A$IN$:(A$)BĢVERTOFFSET:TAB:(A$,B);:XA(A$)B:" ";:::A$(A$,B):IN$A$/,(IN$)BACKBACK0:1:VERT1963000:(TI$,1)"Q"(IN$,1)(48)280:I$"WARNING":21(I$)2::"WARNING"::12:"IF YOU CONFIRM BY TYPING ";:"YES";::" ALL DATA JUST ENTERED WILL BE LOST."::"TYPE ANYTHING ELSE TO CONTINUE ";:"";A$A$"YEN JUST PRESS RETURN";::250L" ";VERTOFFSET:TAB:BACKĺIN$;:XAB(IN$):(95);:::"X10ĺ" ";@X") "ST$(X)BX:958C23:8::0;::" + ";::"RETURN";::" CANCELS"D22:1:"CH$"RECORDS"H%0ĺ"INSERT RECORDS DISK AND PRESS A KEY...";:B$:(37):45 0:D$(4):D$"OPEN STUDLIST,D1":D$"READ STUDLIST" 2NU:NU0ĺD$"CLOSE"::5::"NOBODY HAS TAKEN ANY TESTS YET!!!"::Z1300:Z:26 4X1NU:63000:ST$(X)IN$::E: ";:A$:A$"0"A$(27)A$"4"7 'A$"1"A$"4"37` )A(A$):52A:7::A;:10:A$(A):l *A426 ,21:1:958::"GETING PROPER MATERIAL FROM THE DISK ";:" JUST A MOMENT... ";::Z1500:ZP -:DD1įH%,CH$,DD:E 1 AND PRESS SPACE BAR";:25, :ST%0 !A$(1)"VIEW RESULTS":A$(2)"PRINT TEST SCORES":A$(3)"DELETE STUDENT":A$(4)"RETURN TO MAIN MENU" #I$"STUDENT RECORDS MODULE":63010:5:3:"YOU MAY:"::X14:7:X") "A$(X)::! %22:25:"YOUR CHOIC5 CH$"PROGRAMS":D1:21000:RFRF0:"":26 :12:1:958:I$"THE LEARNING SYSTEM"::63010:::(4)"RUN MASTER,D1" 16:10:"GETTING THE STUDENT ROSTER...":CH$"RECORDS":D1:21000:RFRF0:"":22:"INSERT RECORDS DISK INTO DRIV$(12),P$(12),QA$(50),ST$(50),W$(50)) 7 16368,0 22:1:958::"INSERT RECORDS DISK INTO DRIVE 1 & PRESSANY KEY ";: A$:::A$(27)30 22:1:958:"PUT PROGRAM DISK INTO DRIVE 1 AND PRESS ANY KEY";:A$ A$(27)Ľ:54915:0) RECORDS  1981   (M) ;21500:V1.1IN$"X": 162,0,32,117,253,160,2,138,145,105,200,169,0,145,105,200,169,2,145,105,76,57,213:X768790:Y:X,Y::X0:Y0DD(944):RECORDS# A$(50),A1$(50),A2$(50),AN$(50,5),DR$(50),M!! ! ! ! ! !!!!!!!!!          LOSE"(S3$,1)"F"İ40000$ **:6 X1N%F X10ĺ" ";X X;") "DN$(X)r (37)18XDN%İ4000x ~  :D$:22:1:958:"PRESS ";::"RETURN";::" FOR MORE OR ";::"ESC";::" TO CHOOSE:";:A$A$(27)ġ:3::sDD1Ģ21:1:958:"INSERT TESTS DISK AND PRESS A KEY...";:A$:CH$"TESTS":1:958:21000:RFRF0:2005D$"OPEN"S3$",D"DDPĺD$"OPEN"S3$:D$"READ"S3$:QN%:2060D$"POSITION"S3$",R"PD$"READ"S3$QN%10 ML$D$"C:0;::" + ";::"RETURN";::" FOR MASTER MENU)";:22:37J16368,0"";A$:A$"0"((A$)1(A$)DN%)Ģ(37):37:1030A$"0"120CHOICE(A$)$S3$DR$(CHOICE).CD$(S3$,1):CD$"C"P228CD$"C"P0BL:21:10":30023:1:958::"RETURN";::" FOR MORE REPORTS, ";::"ESC";::" FOR MASTER MENU, ";::"SPACE BAR";::" FOR THIS TEST'S STATS";:A$A$(13)300A$(27)120&A$(32)İ7000:3000520:: <24:5:"(ENTER ";:: #:CD$"FILL IN"460G:H%FA$(5)"(NONE RECORDED)"bN$(5);": ";::FA$(5)hn|TT%520:N$(6);": ";::FA$(6):::N$(8);": ";::FA$(8):(TM$)ĺ:N$(9);": ";::FA$(9):HARDĺ:::7000::(4);"PR#E":N$(6)"NUMBER OF TIMES TAKEN"|FA$(1)(S3$,(S3$)2):FA$(2)CD$:FA$(3)(QN%):FA$(4)ML$:FA$(5)(H%):FA$(8)(AV%):FA$(9)TM$:FA$(6)(TT%)(ML$)1FA$(4)"(NONE ATTACHED)"5:1:X14:N$(X);": ";::FA$(X);:(FA$(X))ĺ"N/A";::O CANCEL THIS MODE":12:38:Z$:Z$(27)ī300Ap:(4);"PR#1"[r:HARDĺ(10):(10)xw60000:HARDĺ(10)(10) z3:N$(1)"NAME":N$(2)"TYPE":N$(3)"NUMBER OF QUESTIONS":N$(4)"COMPOSITION":N$(5)"HINTS":N$(8)"AVERAGE SCORE":N$(9)"AVERAGE TIM):";:Z$:Z$"Y"Z$"N"3350PZ$"Y"HARD1STCD$"C"CD$"COLUMN MATCHING"n^CD$"F"CD$"FILL IN"hCD$"M"CD$"MULTIPLE CHOICE"lHARD370.mZ$""::12:1::"TURN ON PRINTER & PRESS RETURN KEY"::23:1:"PRESS ";::"ESC";::" T 22:1:958:"THANK YOU..."T "CH$"RECORDS":D1:21000:RFRF0:"":250} ,HARD0:I$"TEST/DRILL STATUS REPORT" 6::60000: @3:1 J5000:22:1:958:24:"YOUR CHOICE: ";:1000:2000:6000O22:1:958:"WANT IT PRINTED? (Y/N3:I$"THE LEARNING CENTER":21(I$)2::I$::(4)"RUN MASTER,D1"x X1DN%:D$"READDRILLS,R"X:DR$(X)::D$"CLOSE" B%290 22:1:958::"PUT THE RECORDS DISK INTO DRIVE 1 & PUSHTHE SPACE BAR";::A$ A$(27)220 A$(32)250= :D$(4):D$"OPENDRILLS,L40,D"DD:D$"READDRILLS,R0":DN%M DN%0240_ D$;"CLOSE": 18:"NO DRILLS ON FILE. PLEASE INSERT PRO- GRAMS DISK INTO DRIVE 1 & PRESS RETURN ";:A$: CH$"PROGRAMS":D1:21000:RFRF0:"":210C :10:RFRF0:22:1:958:"INSTALL PROGRAMS DISK INTO DRIVE 1 AND PUSH ANY KEY...";:A$:130 ::13:I$"THE LEARNING SYSTEM":21(I$)2::I$::(4)"RUN MASTER,D1" CH$"TESTS":DDD:21000:RFRF0:"":100 A$(13)110 M)   ZDD2180n d22:1:958:"INSERT TESTS DISK AND PRESS RETURN...";:16368,0:A$:A$(13)150 nA$(27)100 x:22:1:958:"INSTALL PROGRAMS DISK INTO DRIVE #1 AND PRESS ANY KEY...";::16368,0:A$d CH$"PROGRAMS":D1:2100IN$"X":V1.1J768790:I:J,I:J: 162,0,32,117,253,160,2,138,145,105,200,169,0,145,105,200,169,2,145,105,76,57,213 STATUS FILED$(4)(DD(944)2P0<21500FDN$(50),A%(52),DR$(50) PSTATS  1981   ("" " " " " """""""""