' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` pp>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LL L 89L89stLܳtLܳ iХjѥkl+0ȱiҥi iХiL m nLֲqЅԥqЅՠ01ȱ, 8ieЅҥi iҨiԅХՅLBҐ*ů R҅Ӆ oȥp`iХjѥm8Ѕʥnхɘ8Ҋӥo8ʅԥpɅ ir zԅХՅѥԥխx8ҭy ഭr8寅ʭs尅ɢr8ʕirɕixoyp I hhLH ii iikmijlnghsotph` zLfխHHii楯8 hh` QHȱHiȑi hh`8` QHȱH iȱi LG췥뷩 *L췭#Lϭ췅`҅ʥӅɥЍэԍՍ`҅ʥӅɥҍGӍHʍJɍKGGHJJK` ADC # AC HAS #OF SECTORS? STA LSLEN SET INTO PASSING LOCATION LDA #25 STA IBRFFF@F 4.= 4 F$ 48 ߊ k#H$H | h$h#? ڮ` 芩 %=i?< , %#4/eȱenڥmԩ` ⋩eઐ`  ڮ͍ȱʥiiDȱEDEmEmDe Ґ A 'eʅe˅У / ׮ADȱE?@ '&?Lx ` :BDK 1:EMULOVҍҭ?? 1'? ڮ'89$'''U' qU'`L`a iHHWȱXȱYhh`bcrsйбklȱ19 H %67` L`L L% L% 芩췩𷩶 %`&g RXYi iiiȢt ߊ` %`! 鷮"#귌,܈`,`@,`48 5 54`45JJJJ5)i 4` H ƮhL cL ЅѠ 舱8ё舱БeхeЅ `& RS ߊ`&6 RXYW ii ۈ`8ee4e45e5L  k45 | ee  L8B9C` #$DȱE`@HAL' ڮm.∱m/ {`IiIi RITKBZV  1q툥qq툥qq툥q45eeeei x&ȑVͭ^_'65,4 eeȑeȱei*е H)"hJJJJ!&'O54q85q9#ȱU $%@H`^_ i*\]` ehh :̆ Ɇ L< `DSKOACZF%IFNDOSZF$IDSOAENDBIPEICRONEBIXIOIKEYSCրȀˀLрӀ׀SSƀT VL%iȱ`i` `H h L+ȩȑȑȑ`CDFZGAGSLALSMDRRRSWOWWDRG2G5GFGNL2L5LFLNCSFSOOOMOWLRPIEOn[L-)"ae./ ҍ x ©D ` + :   4L \ `8A*H煍腍h L[ԍZZDĀĀR΀€̀FԀ̀o A 9  *IJ<轅CD B`LCDLKCSD s ` ɪLɪ潌ɪݠɪLm`0 B  D.! - `x  ܸ`LLSL l㰩̍ Ƃ ͍ Ƃᰥklm㰠ȱɀeȱexؠ)@ 2I22i $ ``8 ݥij`ȱɀe઩e`L-LLLSLaL蝿` YGklnͿȱɀeȱeYץ蝿`A 轿Ϳ ȱɀ`8` L- e઩ePe઩e` e઩e P $% $$e((L(($$(` ؁` ؁`   (e઩e((e઩e` YDijlͿȱɀe઩eoڥ蝿2 ɠ8 L:klmȱɀeȱebؠ)@ 2I2 ^ 2I22!)i $ `)`8 ۥij`L-ȱɀe઩eޅ`ڥeWILL 30:14T:17:" ":17:" PAL ":17:" "::983,(47081)16u 1013,76:1014,112:1015,132226,4:227,11:46044 164: 0ꍣ ⍥`LSꍣ ⍥`LS`LS ⍥`LS1,-*+01  `e ֝d L^S ťп ֝% 018ȑ䈥% ` ֝Ю` 0Ș c ` `  `Heሱeeሱe8st L8\]ȱ#⊈ȱ%⊈i! . 6 (ȑ&45ȑ䪠ȱiiee`45DȱE ' r`  `\] )"JJJJ!` / L\] Lᛅ8st 6 L787B46C5A@ '76  eሱe# ȑ% ȑ! 8ʊ    `67ȑ)∑ȑ B iiȊiȭ#ȩȑȑȑȩ%IiሱIi B@A 宱m/⪥ee ` / L\]%i䈱ie7e6⪠!8ee#eሱe%eሱe8st L87&46ȑ5887B86C9A@H '\] }    6D7E TL SRUiTSmTSRiR UUCU`32⊅L꘭28345m.  @HBCADȱE '&8&ȱ'L  W \] #H$ /   HhLXY8st 6L7 m+ ,-`  \] #$ & $LqL8st80898q䪥qʆ8䪥 {\] }  ` ۈ1(0(ҩLȑҩ e瘟eʆe瘟eL {L L 䠩͠m*舱m+>҅ȱ҅H9Ҡ hҠ@m*ꈱ uo  j'(P% j'((% j'(`'P(% j'((% j'(u %L(፞䍠卡`┥㔥唥攭┭唭% j 8h7h6` ÓINSERT ` Ó $ $ Ó ! $ Ó " $ L' Ó REMOVE WRITE-PROTECT TABLL Ó Ó PRESS RETURN WHEN READY. ɍ`hhI L˓HH`XYI `BC hhL45 ԍȱȱii()ii ۈp``miLQ6H7H  Ó !@% j$ Óǡ THIS ERASES DISK ɍ:;#L 1#$ Ʈ 89#45876 s8ԥt Ԑ4mB5mCmm0 Lё {@A ' \]B&C"̍ Ґ̍Dȱ̍EA '̭ ̠ ҐA̍ 'FȭGF`i̥i͠ q̥͈q ,z`,` fP` i̥i͠`q̥͈q 宠B8BCC`89  䠠L*qҪ+qʎ*+++ʥ`eҪeӨ` ڮТ fP 􊍔M\̭]͠)̪芑̍ ̶5 %`ʆ#* LF҅ȱ҅ȱ҅8Ґ$"q҅ L   ee8 dȹdҪȱLȱ҅eઈeᨥ` L v(*mS,)+mR-01ii   ; ? L m22m33 28.舭3/L L cL 8,-*i+i {Lm%m% *+ ̬L`wes` ̬g [La ̬T H 9b ̬A 50&c ̬. ̬'  ̬ 묰 묰 ``` 묰L-% ``8`m`, -8`Gh戱Fhhhhhhh@H`𷩶 %EiDiI JK %KIIJIiKiIi੶iE8Iiei %HH {hhBCL01 ̬)I ̬IqYr`LLLLLL&`HHHHHH 芭B8JCKHȱHAiJ췭@8H췭AL-@'BCLEiDiIA %iiIED %I` Ǩ㱠Ȍ屌Ȍ汩ԩ 郞㱽`*BL ب i L# ب  L# ب  L# ֨ ʋW ⨭ IԍW ˩Lũ ک E L#GҪȱҨWLH҅r҅qWҬYXLFWҭXL Ǩԩ 鶴 ⨭ ب  鶴  ⨭ ب  鶴'  m ⨭ m ب  ֨`ᱭ뱍籮 ʋW ⨭ IԍW ˩L ک E ` ȑ`҈`ԆՠҊ`qґ҈eՑ./ee$ {L) 887B96C?A@ 'B4C5 .e./e/48455$ L*ભ+ᨊmQiʆi#i {`iiHmQȑhi`88Q` S`8Qʘ iʭʭ#ȑ ʍD6ȱʍE7ʍBˍC@ʩA 'OLভ89:i;imQi88Q89 { ٧:ʭ;˭$ʭ#ȑʥ8ʥ 8ʭ9 L:i;imQ:i; Qi#EiD ڮO@iથ./ 7./23 72345 745 7 b.̭/ A23>Յͥԅ̥ԥՠ8.E/D.B/Cԍ0Ս1 3A 'ee28̍E読3͍DE ڮЪ*8Ѝ*+Ѝ++-*,8Ѝ*+Ѝ+`45ȱee8t s {V̭^_'2 ) 8ȑ8ȱi*й() (mQ)iʆi ᪭)L(L L \]210 ߫*+()Q ۈL 3 2L tLx& RS E S ߊ`  4Ѝ*5э+*)+QSR  Ʈ読458./e2e3` L(*mS,)+mR-01 ߫LL c2¥3л Lii:i;imQiʆ`hm` 32 Ʈ>`01 ߫*+()Q ۈp L H\]ȥh`  >\]&4(ȱ5)⪠ȱ(8())(8(,))-(8TURN";::" WHEN YOU ARE DONE";:X1:Y1:31209X 3130b XBSĭ(K$)1ĺ" ";(8);(8)" "(8);:K$"":700:A3400,3500,3700:X1:Y1:3110g XBS(K$)0ĺ(7);:3110l XCR(K$)1İ700:X1:Y1:" ":3290v XES3220 (K$)1ĺBU$;RESS ";::"ESC";::" KEY TO QUIT") W K$"":1:16:"WHAT DO YOU WANT TO DO? ";j& 700:X1:Y1u+ CU7000 T0:KR,0::" ";(8);:: X(KB):XV13170D TT1:TCUCU1400:3230/N T450(K$)0İ700:(7);"REMEMBER, PUSH ";::"RET3502150pKR,0  ( :U 1:3:" P A L M A I N M E N U" 1:5:"........................................" I13:I3400,3500,3700:I 1:18:"........................................"# 1:23:"YOU CAN ALWAYS PON": :- 16:"PRESENTS"5:h 14::17:" ":17:" PAL ":17:" ":s*1:234" COPYRIGHT 1981 BY USE INC">1:24:" ALL RIGHTS RESERVED (V2.4)";:1:1HKR,0RT0 f(KB)160TT1:E TYPE WHAT YOU SEE --> "(120);:200 K$"X"K$"8"ĺ"YOU SHOULD TYPE EITHER THE LETTER 'X'":"OR THE NUMBER '8'.":I15000::1042 984,K$"8":M%(K$"8") 983,(47081)16 60000  1:5:5:"UNIVERSAL SYSTEMS FOR EDUCATI0005 ((982)1(982)2)(984)2M%(984):1045g TC450:V21:TR450:BU$" "(8)(8)" "(8) :5:"HOW MANY DRIVES ARE THERE? ";:200:(K$)1(K$)2Ģ10:"THERE CAN ONLY BE 1 OR 2":I15000::1034 982,(K$)% :10:V21:"PLEAS);"PLEASE GIVE ME YOUR ANSWER.";::X1:Y1:2207 Z X(36):Y(37):1:24:868:} X(36):Y(37):1:17:868: (798)0İ2000:798,1: PAINT HEADER SCREEN 3000: DISPLAY MENU 3100: GET MENU CHOICE K$(ES)A3 A35BS330/ ,(K$)1ĺBU$;:K$(K$,(K$)1):210M 6(K$)1ĺBU$;:K$"":210] @(7);:220t JXESĺ(7);:220 TY(K$):Y0āX1Y:BU$;:X ^K$(ES):" ":390 hOT0ĺ(7);(7);:220 rTQTQTC:TQOTK$(255):3901 |700::(7);(7270 TT1:TTC(K$)0360 TTR(K$)0İ700:(7);"REMEMBER, PUSH ";::"RETURN";::" WHEN YOU ARE DONE";:X1:Y1:220 230 XBSĭXCRĭXESĭ(K$)V2XXV1:K$K$(X):(X);:TQ0:210 XCRİ700:X1:Y1:" ":390 "XD STUDENT MENU 10/1#5000CV1128:CR141:ES155:BS136[KB16384:KR16368tI768777:X:I,X:104,168,104,166,223,154,72,152,72,96 1000TQ0:K$"":220700:X1:Y1:T0:KR,0::" ";(8);: X(KB):XV1ɪݠɪL m`0n B  D.! -n `x  ܸ©D `  Aa@ -0 g L}  7g?  2 R g Ia?;Bo 33V2224:226,1:227,14:228,0:229,127:46181:226,4:227,9:798,0:46044\!2:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::o o o `  ɪL ɪTo` \Z`ÎZ ⋠q $ Lͯ` 鷎F؅G 鷩x  Π"ɠc LI)i D- ܸff`II` ee` ee`282)33`i*i+mQ,i- ߫ `klij`Ljڠ ⋠V $^_Ơ 񧥃ҥӢZ ͯ[`զ儍愍  "`a0m13 2`)`ɸ`13 02`28I3I ̬)801801 hhL߫89 45``hhL\N]ON` 宭45`4B5C`)ȱ`Kĺ(8)" "(8);:K1C$(C$,K1):9651"960@"I24995^"KāJ1K:(8)" "(8);:g"960s"I13ı"K40ĺ"";::845""*";:C$C$I$:965"226,4:227,10:47082,1:46240,1:46050:K#p:16368,0:C1Ģ6:1:"TO USE AN EXISTINUAL";:!(CD$)8(CD$)ı!:15:"IN THE FORM M-D-YY OR MM-DD-YY":10:"PLEASE ENTER TODAY'S DATE:";CD$:300:CD$""ĺ"":940!J990:I18:I3(I3)955!J,((CD$,I,1)):JJ1!:!C$""!I$:I(I$(0)):K(C$):I8980("ʆZP%(NF):P%1:F1NF:ZP%(F)P%:T%(F)5ĴT%(F)900,905,910,910:920R 915:920` P%P%1:n P%P%2:| P%P%5: P%P%L%(F): F:ZF$(2)(B$,24):F%2:Z%(17,2)RL:OW:E%ij FZ:F%1:FZ:RS:!:12:"FILE PROBLEM ... SEE MAN:989,255::10:"BAD PASSWORD":1k998,PE1pPE(998)1:D%(0)0:D%(1)0:D%(2)255:L%3:P%1:LA:D0:P%4:LF:RS:E%0930uD$(B$,8):L%8:P%71:GS:LU$D$:P%86:GS:A$D$:(LU$)650000D zD$(B$,35):P%101:L%35:GS:LK$D$:P%4:GF:TRD:1)0:D%(0)0:L%3:P%1:LA:D$C$"":L%(D$):P%4:LS:RR:E%0PE3:875WFZ:D%(2)254:P%1:L%3:LA:D$C$"":L%(D$):P%4:LS:RR:E%0PE2:875\FZ:D%(2)253:P%1:L%3:LA:D$C$"":L%(D$):P%4:LS:RR:E%0PE1:875aM53830#fC$"F",3),C(CF):C%(0,0)CF:CF830V4L%CF43:GA:I1CF:J03:C%(I,J)D%(I4J1)::}9I1CF:P%CF4I51:GF:C(I)D:>M5M51CPE0Ĺ998,4H(998)0(998)5880M:10:"ENTER PASSWORD ";:960:FZ:C$""C$(255)IRD%(2)252:D%((B$,10):P%9:L%10:GS:SP$(0)D$:P%19:GS:SP$(1)D$:M50uI01:J1011:(SP$(I),J,1)(0)ĂJ:SP$(I)"":800SP$(I)(SP$(I),J) I%FZ:D%(0)0:D%(1)11:P%1:L%2:LA:RR:E%įRS*GA:D%(0)D%(1)11830/L%3:GA:CFD%(2):C%(CFI:RS:E%09308GA:I1NF:I%(I)D%(I):I:NF0835dL%30:P%4:D$B$"":I1NF:RS:E%930GS:F$(I)(D$,2,((D$,1))):I:FZ:D%(0)0:D%(1)10:P%1:L%2:LA:RS:E%930 GA:D%(0)D%(1)109309P%3:L%6:GA:I05:P%(I)D%(I)::D$GA:I1NF:H%(I)D%(I):I:RS:E%930PGA:I1NF:V%(I)D%(I):I:RS:E%930GA:I1NF:T%(I)D%(I):I:I1NK:928I,T%(I)(T%(I)4)3(T%(I)4)::929NK,0:RS:E%0930GA:I1NF:L%(I)D%(I):I:RS:E%0930GA:I1NF:K%(I)D%(I):(B$,24):P%101:L%24:GS:S$(D$,15):ZF$(0)D$:M%(NF),H%(NF),V%(NF),T%(NF),L%(NF),K%(NF),I%(NF),F$(NF),Z$(NS),R(NR),N%(NN),B%(NB):P%(5),SP$(1):RS:E%930ZF$(1)(ZF$(1),16)(ZF$(0),8)L%NF1:P%3:GA:I1NF:M%(I)D%(I):I:RS:E%930%13):KSD%(14):P%31:GN:RLD%920,KB1:921,KN1:922,KR1:923,KS1:924,NBKB:925,NNKN:926,NRKR:927,NSKS:928,L:936,NM:L%NM1:P%17:GA:I1NM:E%(I)D%(I):I:F%(0)NM:S%(0)E%(1)P%30:L%1:GA:Z%(5,0)D%(0):981,Z%(5,0):980,Z%(5,1):D$137MD:I:((982)C1:6000=F%1:OO:E%700FZ:D%(0)0:D%(1)0:D%(2)0:D%(3)1:L%4:P%1:LA:RS:E%0930P%3:L%15:GA:NKD%(1):NFD%(2):LD%(4):NBD%(5):NND%(6):NRD%(7):NSD%(8):NMD%(9):PED%(10):KBD%(11):KND%(12):KRD%(:"DRIVE 1"=~20:"PRESS ANY KEY TO CONTINUE";:A$:60000)ˤA$:60000)ˤ60000)ˤ)ˤV1CR ESBSKBKRIXT0K.YpCU/L%24:LSWO I1(SN$):D$(SN$,I):P%1:L% TAKE OUT MY":"DISKETTES."#:>X226,27:227,15:46044Y@226,15:227,15:46044_ٳ`KR,0:226,6:227,12:228,0:229,6:60020e47082,1:46240,1:j:46181:A7000,8000 t:5:"PLEASE PUT THE ";::" PAL ";::" MASTER DISK IN":,T:1H 1:8:"TYPE 'Q' TO ANSWER QUESTIONS."7 d 1:10:"TYPE 'R' TO SEE YOUR REPORT."jt1:12:"TYPE 'S' TO STOP."::5:"GOODBYE";:(SN$)0ĺSN$;"."::"IT WAS GOOD WORKING WITH YOU."::"PLEASE TURN ME OFF AND K$(ES):3290# (K$)032504 (7);:3120u 700::(7);"I NEED A 'Q', 'R', OR 'S' ";:X1:Y1::3120 A13:("QRS",A,1)(X128)K$(X128):K$;::700:A3400,3500,3700:X1:Y1:3110 A:3230 T255TT255:3290 799440!QQ1:JS%(Q)J:J0:224.P5222D(I$,1)"*"214\I$"*"I$"?":220~S%(Q)2:I$(I$,(I$)1):224X0XX1:X(I$)Ĵ((I$,X,1)"?")1216,220222S%(Q)3S%(Q)S%(Q)6 F%(Q)I:P5S(Q)(I$)(1991)1:M3E%(E):'E1:V1:M3E%(E):KB%(0)0:R(0)0:N%(0)0:Z$(0)""eV%(0)12:L%(0)1:192zT%(0)5:Z$(0)""V%(0)23V0:M3V:I%(V)V:M%(V)V:H%(V)1:Z%(19,0)ıF%0:OO:E%ijCHM3C$"^^"ıI$""P4İ"..";:M6-C$C$(A):(A);:(C$)1148;A27102cSW:M6S:M6(36)1:M10:A13248(C$)İ326:ZZ0:248(C$,1)" "(C$)26M11:823:1:958::"PRESS ESC TO STOP";:132:Nĺ"";:176VE%(E0:ADW1ıMVM3:Z0,118:A268{M80:I$"":S0:N(P4):H0:CH0:M11:J0:356:314:(P10W)(CDP7)248WW382:A40A41A60A61A62A94A815612A8ĖM6:"..";:M6:C$"":148 (36)M61C$""C$"":):M2L%(I):GI%(I):P3ZWCFıAyO1CF:M%(C%(O,3))IA2Iz:X|P128,130e~OR(G):sOB%(G):ON%(G):Y(INK):K%(I)2(K%(I)0):F%1:P%1:(D$)30D$(B$,30)16368,0:Z1:MVM3:118:A2138270 :ZLILI(LII):248"jA8N98GlP4NN(N1):238:M10:CH1:8kn36,(36)1:(95);:36,(36)1pD%(N1)46M80rP6D%(N1)45NN1:36,(36)1:"_-";:36,(36)2tNN(N0):HN:8vA0:IM%(M):(F$(I))127PE1A1"xPT%(IWN4CH1:N0:Z$(G)"":270:248Y \P6(N0N83(P8)4(P7)(P7CDN4)W)248j ^P6Z0:98} `36,(36):248 b"";:8 dA27106 fP6WĭCHNN83(P8)4(P7)98hCH1(P4W)270,356,356:M11:MM1:76:MM(MV)O2:(A46):P4ĺ(A);:4# J238:8, LO20? NMO2VO20:f PO6M%(MO2):PE1(F$(O6))12787~ QT%(O6)3WCF84 RO1CF:M%(C%(O,3))O687 S TO6T%(O6):WO61087 UCDO6787 V WO2O21:78 XA13100# ZP7CD .W54> 0P5ĭA31A91ĭ(A39A43V)(A59A64)72U 2P3A46M81:72] 488j 6P560w 8A3288 :72 <P666 >A78A8972 @88 BP3M8A4672 DWĭP6(A42A63)72 FA48A5788 HD%(N)A:NN1:M8M85M3OO1:O50:366:131:O41419,988 M10:A1390N EDĭP5A43386[ A2734d CH1 Hĺ(L$(TX%(P)),M2);:M6 "A27C$"^^"106 $CDĭP7N488 &NM288 (N(P4)P554 *P1A4588 ,P5(A45(A47A58))72M1WA20LILII:36,(36)1:"T";:1489 WST120m A13A27āT(36)M6:" ";::(C$)2C$""v 162 M134 P7ĭA13(Z$(G)B$)32(Z$(G),5,1)" "Ĺ36,(36)3:CH1:M10:N02:D%(N)((Z$(G),N1))::D%(3)45:4& A9ĭPѸ?906:UPDATE 4/19+843:A(852):6P68y(N2(P9)N5(P8)2(P7))M10D%(N)45:NN1:36,(36)12:A2620 A8106 A14(WA15)(ED(A19A4A22))(M3EDWA1)Z1:246 A3ġ:610WT1A6200) ŠԠ222):ER20ER255ĦI%bLI(218)(219)256:23:1:"ER="ER,"LI="LI:U%På50100%Zù47082,1:226,255:227,255:46240,17:46044%ù46240,0:226,0:227,1:228,0:229,4:46181:50000:"PRESS 'RETURN' WHEN READY ...";.$6000\$I$:A(I$(0)):A13A27ĺ"";:6070f$6110$47082,1:47081,96:C1A27İ935::226,6:227,12:228,177:229,5:46181:226,29:227,2:46044$:$:12:"PLEASE WAIT ...":%X827:ER(G FILE ...":18:1:"...OR PRESS ";::"'ESC'";::" TO CREATE A NEW FILE."l#z10:"INSERT ";:C6030,6020#"PROGRAM";:6040#"UTILITY";#" DISKETTE";:C5ĺ" VOLUME 1";#$S((9804C)10):D(9804C)10S::12:"IN SLOT "S", DRIVE "D:BF%(I):726:792:676:481"#+#6608#E%485D#O8444S#LIO7988#:10:"CAN'T FIND RECORD":430:796:(E%R)1486,444#O80:502#Z986#:PX1:AD1:W0:"DISPLAY REC. => "S$;:510:132:AD0$23:1:E5$;:436:A6444A6NC0QNKāI1NK:S%(I)6F%(I)IĂ:656:481N"A6NCNC1:690:472\"A15452r"A13ĺ"";:458"ENMQ20456":EE1:448":508:E1:NC1(F%(1)1S%(1)1S%(1)3)480"Q480#I1Q:K%(F%(I))ĭS%(I)1S%(I)30:CHA::182:ADA0!"FIND";:Rĺ" & PRINT";i!" => "S$;:510:348:W2:Z0:180:LI0:132:A6460!A15NCNC1:690:446!A14468!172:E4$;:5:"CTRL/O => OR";:ENMQ20ĺ", RETURN => NEXT PAGE";!436:A3444!LIė:Z13"";:432 2 40:16368,0:2:A3Wġ:6108 H NI$"": L%N:LA:GS:I$(D$,N):P4D%(1)45N1I$(I$,(I$)1)  194:A120:S%(A)0:S$(A)""::Q0:O70:O10:OO0:U0:Y0:B0:J0:KF0:NC0:L$"":C$"":O80!W1:A(0):A0:366:O4418/172:"RESULT DOESN'T FIT!B430:420:142K420mM2L%(I):270:MM1:131:26823:1:(E$,49,79);:426:K1ġ:610K0::PE1ıK1:10:A$" NOT AVAILABLE.":E3$; 16368,0:2:A13ĺ""DIVIDE BY 0 ERROR!":416,OOOR(0):402?OOOR(0):402ROR(0)OO:402`OOOR(0)P4O((O.005)100)100P3(O)1(((O)))L%(I)O(((O),L%(I)))CCıP3O(O.5)((O))L%(I)(O)1414GI%(I):O5188:F$(0)"+, -, *, OR /"O132:AD%(0):A42A43A45A47ĺ"";:388O1A:T%(0)3:L%(0)10:190:F$(0)"ENTER CONSTANT":R(0)0:172:176:MT:180:IM%(M):PT%(I):O1O141:O12O1O11O1396,398,400CCR(0)O0:R(0)İ172:(((O)))(2(O(O)))(O5):O7L%(I)370dq(O79(O(O))(O0)(O)1E91)(O)1R(G)O:srO5R(G)0|t384vO0O256B%(G)O:xO5B%(G)0z384|(O)32767N%(G)O:~O5N%(G)0O41:OOO:172:TM:L%(0)1:Q20268c:456/dW(QQ%(NC)1CH)ıCfCHCH0:270:rhQQ%(NC)āM9QQ%(NC)11:F%(M9)IĂ:jS%(M9)0:270:QQ(QQ%(NC)):T%(I)4Z$(G)(B$,M2)l356nO40:((O))L%(I)(O)1384oP374,380+pO7((O)):P4O7(E$,17):346`172::E2$;:TM:T11:M3M:VM:W3:H%(I)H%(I)2:140:QQ1:S%(Q)8:224:184:L%(V)L%(I):T%(V)T%(I):F$(V)"MAX.":V%(V)23 b24:13:"AX";:176:MT:180:H%(M%(M))H%(M%(M))2:QQ1:S%(Q)9:W2:224:C$"":F%(Q)F%(Q1):Z1:348:T10::FZ1:C$(C$" ",2):J111:C$("() < = > >=<=<>^^",2J1,2)Ă:172:(E$,21):346HJ1T%(I)5İ172:(E$,22,27):346JJ11350VZ0:Z430:270:MM1\172:LN960:RLN:E1$;:X16:A$::A$;::A$:A$" ";:: ^Q18İ172:4P7(Z$(G),5,1)" "ĺ(Z$(G),3)"-___-____";:@6Z$(G);:Y8(L$(TX%(P)),M2);::V%(I):M6H%(I)(F$(I))1:M6M6(P4)(P6)5S:M6:P5320<Z$(G)(B$,M2)H1>@124:OH1:P4I$(O)BP4D%(0)48:N1D%(1)48D[$B$,M2);:) (Z$(G)(0))32ĺCD$;:;"Z$(G)""312Y$Z$(G)(B$,(Z$(G)))312g&Z$(G);:z,(O).01305-M23ĺ"^ ";:.D(O):O0ĺ"-";/((DO),2(D0),M2(D0));:1((O)B$,M2);:2(Z$(G)" ")32Z$(G)""3122/N)";K%(I)ĺ(34);:2785INKMĺ"!";:278?" ";NP4ĺ"$";eWW3ĺ"..";:312P4ĴP4290,290,306,306,306,288124:O312P305,305,300I$(O):O(O)I$I$".00"(" "I$,(I$)1,1)"."I$I$"0" (I2);:P6A22CH90'CH2667440:W200LK%(I)1K%(I)2]IINKY1tP4Z$(G)I$:266O(I$):O51:366:O4ĺ"";:270:MM(A27):268P4R(G)R(G)100 CH0:Zı M:V%(I):H%(I)::F$(I);::P6ĺ"(Y(P4)):228%S$(Q)I$:W%(Q)(I$)AINKQIS%(Q)6KF1PC$"^^"ıfQ20ENM::456|C$"":A6A20ı266440:V%(I):M6:N1ĺ(L$(1),M2)"";:NM2ĺ(L$(0),M2N(N2));N2ĺ(D$,1(N1),N3);"."(D$,N1,7);(7);:7210La:DG99Ğ:"GOOD WORK, YOU FOUND THE MAIN IDEA."::7290rf"YOU PICKED A DETAIL OR FACT IN"k"THE STORY. THE MAIN IDEA IS"lZ03:F%(Z)99ĂZ:pIN1::I01:P%Z61I30131:L%30:D$B$:GS:GA:D$B$İ700uI::IND%(0):C%(I,1)D%(1):IO LB192:UB219: TC AND OT ARE SET IN RTN 6100s*DG0::"WHAT IS YOUR ANSWER?";4500:K$(K$,1)>S(2)1ĭK$"R"DG0:7290HDG07290RX(K$):X69X64ĭF%(X65)0DGF%(X65):A%(Q1)X64:7265\("GOAL "G", OBJECTIVE "OB:RFZ:D%(0)G:D%(1)OB:P%1:L%2:LA:RR:E%0ijL%30:D$(B$,30):I04:P%7I30:GS:D$B$įGA:700:INXFZ:P%1:L%1:D%(0)1:LA:RR:E%0ijbP%6:GA:NGD%(0)lL%2:I0NG1:P%2I7:GA:C%(I,0)700:L I?F03:L%1:P%19161F:GA:F%(F)D%(0)UD$(B$,30):L%30I01:P%131F61I30:GS:D$B$6850I0ĺ(F65);". ";:6840" ";GA:700:I:6860I0F%(F)1F:S(2)1ĺ:"R. REPRINT STORY".,::FZ:D%(0)SG:D%(1)SO:P%4:D%SQ:LNS6I59:D%(2)I:P%1:L%3:LA:RRg@E%0I56790JE%0I5ĺ"STORY MISSING FOR "SG"-"SO"-"SQ:L3:6790TL%40:D$(B4$,40):L015^P%6L40:GS:D$B4$6785hGA:L0ĭI5İ1000:|%0D%(1)0:LA:RR:E%0ĺ"GENERAL DIAGNOSTIC MISSING "G"- 0 -"DG:6590L%30:D$(B$,30):I09:P%6I30:GS:D$B$įGA:700:I900:E%0ij: GET QUESTION RECORDD$(B$,30):L%30:I03:P%I3011:GS:D$B$įGA:700I"TUDENT RECORD= L%1:P%BJ335:GA:D%(0)99D%(0)DG:LAgP%29:D%(0)BJ1:LA:DG99P%30:LAxWO:E%0ij~ZdFZ:D%(0)G:D%(1)OB:D%(2)10:D%(3)DG:P%1:L%4:LA:RRnE%0ĭDG90ĺ"DIAGNOSTIC MISSING FOR "G"-"OB"-"DG:6590JxEINT THE STORY"$S(2)0İ1000:9.S(1)0Ĺ34,L1:X86600: PRINT THE QUESTION^=BDG0:S(4)0İ8000:6290: STRING FOIL ANSWERL6800: PRINT FOILV7200: GET FOIL ANSWER DIAGNOSTIC`K$"R"6170 800:E%0ij: GET S900:E%0ij: GET QUESTIONJP%375:L%2:GA:TCD%(0)52:OTD%(1)52nP%6:L%3:GA:SID%(0):P%9:GNI07:S(I)SI2(SI2):SI(SI2):I(SGD%(1)SOD%(2)SQD%S(2)0)6200SGD%(1):SOD%(2):SQD%S(0)06200 6700: PRTION? ";:1100:A$"Y"5155% 52003#Q1:5120}2:"I THINK YOU HAVE LEARNED HOW TO FIND":"THE MAIN IDEA OF A STORY"71000: CODE TO QUE WHETHER TO RETURN TO QUESTION <226,30:227,15:47082,1:46044PCS::3:"...BYE!!"::G; 9000: PRINT MESSAGE THAT STUDENT WILL TRY QUESTIONSb SC0: NUMBER OF CORRECT QUESTIONSy Q11Q2:QQA%(Q1) 6100: GIVE QUESTION & GET DIAGNOSTIC DG965160 DG99SCSC1:SC35170:"ARE YOU READY TO TRY THE NEXT":"QUES(0) B- LTC450:OT0:LB192:UB219:500w VA$(K$,1):A$"Y"A$"N"ĺ(7):"PLEASE ANSWER YES OR NO >";:1100}   G5OB20İ16000:5200 15300 14000: CORRECTED ANSWER 11000: ALTERNATIVE SOURCES 12000: LEARNIN(D%(K)96));:730, IQ1:IN0Ğ:IN1:7307 IN0:G K:L%40ĺM v FZ:D$(SN$B$,5):P%1:L%5:LS:RR| z FZ:P%1:L%3:D%(0)G:D%(1)OB:D%(2)2:LA D%Q:P%4:LN:RR  :"PRESS ANY KEY TO CONTINUE ...";:KR,0:A$:A$:X(7);:520$ bXCRK$""ĺ" ":6909 l(7);(7);:520d vTQTQTC:OT0TQOTK$"":DG97:690 OT0Ė1:"PLEASE GIVE ME YOUR ANSWER >";(7);(7);:510 (7);(7);:520  IQ0:K0L%1:D%(K)64ĺ(D%(K)PM(D%(K)96)IN32(PM0));:+ X(KB):XV1TT1:TTCTC0530Q (TTCTC0K$"")(K$)V2690l &XESDG96:K$"":690z 0TTC630 :XLBXUBK$K$(XV1):(X);:520 DXBS610 N(K$)1ĺBU$;:K$(K$,(K$)1):520 S(K$)1ĺBU$;:K$"":520 X/$  MOCKUP PROGRAM 6/4/81+20000=216,0:54915Y(45337,255:45338,130:2B4$(" ",40):B$(B4$,30)Z5000: GOTO MAIN DRIVERTQ0TC0K$"" T0:KR,0::" ";(8O ARE AFRAID OF SNAKES";'9 "HELPFUL AND HARMFUL SNAKES."l'&9 "HOW PUPS CAN CAUSE TROUBLE FOR A FAMILY."'09 "HOW PUPS GOT OUT OF A BOX."':9 "THE MESS SOME PUPS MADE."'D9 "WANTING TO SEE THE ROCKY MOUNTAINS."(N9 "SITTING AROUND WITH THE FAMI&8 "THE WRITING ON STAMPS"9&8 "CUTTING A LONG BOARD"R&8 "DRILLING A HOLE."o&8 "BUILDING A BIRDHOUSE"&8 "CONE-SHAPED EARS."&8 "PEOPLE FROM SOHIGH."&8 "BODIES SHAPED LIKE SQUARES."&9 "HAVING SNAKES IN YOUR GARDEN."'9 "PEOPLE WHS IN THE STORY ARE ABOUT THE"/%7"MAIN IDEA."9%71000?%7`%8 DATA FOR CORRECTED ANSWER.%8 "PAINTING AT SCHOOL","A RABBIT AT SCHOOL","LOOKING AT ART WORK"%8 "HOW STAMPS TELL A LOT ABOUT A COUNTRY."%8 " PS"WER."$_71000:=$d7"LOOK AT THE STORY AGAIN. CAN YOU SEE"X$i7"THAT IT TELLS ABOUT"a$n7CF$$x7"IT TALKS ABOUT MORE THAN":W1$$71000:$7"MANY STORIES HAVE THE MAIN IDEA IN ONE"$7"SENTENCE. YOU SHOULD BE SURE THAT ALL"%7"OF THE FACTY TO SEE WHY IT IS WRONG":1000'#7:7#7H%0:13000E#734,L2:s#(7"THE STORY TELLS ABOUT MORE THINGS THAN"|#27W1$#<71000:#F7"REMEMBER, THE MAIN IDEA IS WHAT THE "#P7"STORY IS MOSTLY ABOUT. THIS STORY IS"$Z7"ABOUT MORE THAN YOUR ANS99ĂCF:"6CFA%(Q1)ĂQ1:,"6Q114065R"6:D11Q1:A$,B1$,C$:D1:X(0)"6A$(1),A$(2),A$(3):CF$A$(CF):W1$A$(A%(Q1))"6SN$;", IN THE TEST YOU JUST ""6"FINISHED YOU PICKED":W1$"7"AS THE RIGHT ANSWER. LET'S LOOK AT THE"# 7"STOR:L%L%1:13110!,3J0!63D%(L%)D1%(I):L%L%17!;3IM!@3700: PRINT LINE]!J3L1513050c!|3i!3!3I01:P%P%30I:L%30:D$B$:GS:D$B$įGA:700!3I!3!6:!6Q11NQ:QQA%(Q1):900"6CF14:P%19161(CF1):L%1:GA:D%(0)2H%0ĭHD%(L1)013130F 3H%0āXX13:H%(XX10Q,0)0ĂXX:13130R 3L1:1} 3GA:I039:D1%(I)D%(I):I:QDH%10Q 3L%0:I039:H%(QD,0)013110 3J1H%(QD,0)!"3H%(QD,J32)L1ĭH%(QD,J31)I1H%(QD,J31)H%(QD,J3)I1D%(L%)64QUESTION;2P%7:L%2:GA:SGD%(0):SOD%(1):P%9:GN:SQD%2FZ:D%(0)SG:D%(1)SO:D%(2)5:P%1:L%3:LA:P%4:D%SQ:LN:RR:E%0ij2I13:QDH%10Q:J173:HD%(H%(QD,J))1:J:I2L12D$B4$:LL1:P%6L40:L%40:GS2D$B4$13180 THE WORDS IN THE WHITE BOX"AR0"IN THE STORY. THIS IS A FACT"z\0"ABOUT THE MAIN IDEA. IT IS ";::"NOT";::" THE"f0"ANSWER TO THE QUESTION."p0100002 ROUTINE PRINTS STORY HIGHLIGHTING FOIL H%221:1:X(0)2900: GET AT THE STORY. THE MAIN IDEA IS"I0"IN THE WHITE BOX. READ THE STORY"s 0"CAN YOU TELL THAT THE WORDS IN THE"0"WHITE BOX TELL WHAT THE STORY IS" 0"MOSTLY ABOUT?"*0100040>0H%W1:13000: PRINT STORYC034,L2:H0"NOW, LOOK ATA?")/:"A. ";:P%13161(CF1):13200M/"B. ";:P%13161(W11):13200o/I11000:I: WAIT 5 SECONDS/H%CF:13000/34,L2//900: GET QUESTION/" THE MAIN IDEA OF THE STORY IS"/P%13161(CF1):13200/ /"LOOK 2S/ X/900: GET QUESTIONBb/"THIS STORY IS MOSTLY ABOUT"ml/P%13161(CF1):13200: PRINT FOIL v/" ONE OF THE FACTS THAT THE"/"STORY TELLS ABOUT IS"/P%131(W11)61:13200: PRINT FOIL /1000:/"WHAT IS THE MAIN IDE0&.X(1):Q1((0)Q21):QQ%(Q1)F.Q11Q2:Q%(Q1)4ĂQ1:Q14S.QQ%(Q1){.IQ1Q21:Q%(I)Q%(I1):I:Q2Q210/900:CF13:L%1:P%19161(CF1):GA:D%(0)99ĂCF:5/W113:W1CFĂW1::/:D/H%0:13000: PRINT STORYN/34,L1000 #*:0+"ALTERNATIVE RESOURCES"O +"FOR GOAL 5, OBJECTIVE 20q+:"1) USE INC. DISKETTE #35 +"2) OTHER RESOURCES THE "*+" INSTRUCTOR RECOMMENDS."H+::1000R+.::"LET'S WORK THROUGH AN EXAMPLE TOGETHER".1000z'@ STRING - MULTIPLE - FOIL-J3;(#:f2#"NOW, TRY SOME QUESTIONS. THEY WILL"<#"HELP YOU SEE IF YOU HAVE LEARNED HOW"F#"TO FIND A MAIN IDEA."P#Z#"AFTER EACH QUESTION, YOU WILL FIND"d#"OUT HOW WELL YOU DID."n#E%ij/F%0:CS:F%1:CS:y2:3:"INSERT DISKS - CMI MASTER IN DRIVE 2"::"DIAGNOSTIC OR QUESTION DISK IN DRIVE 1"2::"PRESS ANY KEY TO CONTINUE ...";:A$:A$:0uF%1:Z%(20,F%),ZF$(F%),D%(100):uP%0:L%0:B%0:E%0:D%0:Z%(4,1)61nDuZ%0: )8:Z%(17,0)645:Z%(18,0)5`NuZF$(0)"CMI MASTER"(" ",14)rSuZF$(1)ZF$(0)XuD$(" ",30)buI120:Z%(I,1)Z%(I,0):luZ%(4,1)62uٹ226,10:227,15:47082,1:4605F1 D$(D$B4$,40)$F%1:LS+I<(WW:E%0ijF25020_<7:1:"DONE STORY "eF0uF%1:Z%(20,F%),ZF$(F%),D%(100):uP%0:L%0:B%0:E%0:D%0DuZ%(1,0)13:Z%(3,0)1:Z%(4,0)61:Z%(5,0)101:Z%(6,0)101:Z%(7,0)110:Z%(8,0)3:Z%(16,0"IN="D%(2)" ":20:7:"GOAL "D%(0)" ":30:7:"OBJ. "D%(1)" "MF%1:FZrD%(0)D%(2)5:F%1:P%1:L%1:LAF%0:Z7%1P%1:L%2:Z9%2:MDP%4:L%2:Z9%4:MDF0:I116F%0:P%I4034:L%40:D$B4$:GSF0ĭD$B4$D$"$$":0:Z7%1:P%I61130:Z9%I75172:L%1:MD0rIO|F%1:P%1:L%1:D%(0)4:LA`WW:E%0ijj40206:1:"DONE QUESTION "1:7:"START STORY"F%0:FZF%0:RS:E%05180P%1:L%5:GA:D%(2)5D%(2)95020@13:7:F0:I14.F%0:P%I3019:L%30:D$B$:GSJD$B$ĭF0D$"$$":F1^"D$(D$B4$,40)|,F%1:P%I4027:L%40:LS6I@I14:J01JF%0:P%I6170J30:L%30:D$B$:GSTF%1:P%I7598J37:L%37:D$(D$B4$,37):LS^J)hF%Ж1:6:"START QUESTION"$F%0:FZ=F%0:RS:E%04280^P%1:L%5:GA:D%(2)2402020:6:"GOAL "D%(0)" ":30:6:"OBJ. "D%(1)" "F%1:FZF%0:Z7%1P%1:L%2:Z9%2:MDP%4:L%7:Z9%4:MDP%375:L%2:Z9%11:MD ":F10 D$(D$B4$,40)7: F%1:P%I4034:L%40:LS>D IGN F%1aX P%1:L%1:D%(0)3:LAb P%206:L%40:D$("$$"B4$,40):LSl D$B4$:I210v P%40I166:L%40:LS I WW:E%0ij 3020 5:1:"DONE DIAGNOSTIC " 0:RS:E%032804 P%1:L%5:GA:D%(2)103020j 20:5:"GOAL "D%(0)" ":30:5:"OBJ. "D%(1)" "w F%1:FZ F%0:Z7%1 P%1:L%2:Z9%2:MD P%4:L%2:Z9%4:MD F0:I15 F%0:P%I3024:L%30:D$B$:GS& D$B$ĭF0D$"$$1:L%34:LS fI pF%15 zP%1:L%1:D%(0)2:LA\ P%169:L%40:D$("$$"B4$,40):LSu D$B4$:L%40:I210 P%129I40:LS I WW:E%0ij 2020 4:1:"DONE OBJECTIVE "  1:5:"START DIAGNOSTIC" F%0:FZ F%L "D%(0)" ":30:4:"OBJ. "D%(1)" "2 F%1:FZA F%0:Z7%1Y P%1:L%2:Z9%2:MDq P%6:L%1:Z9%6:MD *P%157:L%1:Z9%7:MD 4F0:I14 >F%0:P%I3023:L%30:D$B$:GS HD$B$ĭF0D$"$$":F1 RD$(D$B4$,34) \F%1:P%I34E"2 F%0:FZ:D%(0)1:P%1:L%1:LA:RR:E%0ijM L%645:Z7%1:Z9%1:MDd F%1:WW:EE%0ij} ,3:1:"DONE TABLE " 6 1:4:"START OBJECTIVE" F%0:FZ F%0:RS:E%02280 P%1:L%5:GA:D%(2)0D%(1)02020% 20:4:"GOA%0:OO:E%0ij jZ%(4,0)615 tF%1:OW:E%0ijG ~1500: TABLE] 2000: OBJECTIVEt 3000: DIAGNOSTIC 4000: QUESTION 5000: STORY F%0:CS:F%1:CS 20:1:"THE FILE HAS BEEN RESTRUCTURED";(7)  3:1:"START TABL DISK ON DRIVE 2" <1000& F300000 Z1100b :"HIT 'RETURN' TO CONTINUE ";:16368,0:A$ 8A$(13)ĭA$(3)ľA$:1080 =A$(3)ij B L::"CMI FILE RESTRUCTURE" V:"TABLE ":"OBJECTIVE":"DIAGNOSTIC":"QUESTION":"STORY" `F& RESTRUCTURE PROGRAM 7/3/81120000C216,0:54915_(45337,255:45338,130:e-.B4$(" ",40):B$(B4$,30) 2::"CMI FILE RESTRUCTURE"::"PUT THE OLD DISK ON DRIVE 1 AND THE ":"NEWWO 1F%1:E0įFZ:D%(0)1:P%2:L%1:LA^RS:P%1:L%3:GA:D%(0)D%(1)1E%2:ED%(2):P%4:D$(B$,15):L%15:GS:F%1:FZ:D%(0)0:D%(1)1:D%(2)E:P%1:L%3:LA:RS:E%0ıGA:D%(0)D%(1)1D%(2)EE%2:DR:sP$L%3RS:E%1520GA:D%(0)D%(1)1152AED%(2):149EE1:FZ:D%(0)1:D%(1)E:P%2:L%2:LA:P%4:D$(D$B$,15):L%15:LS:P%19:D%(0)PX1:L%1:LA:L%3:I2PX:D%(0)PF%(I)1:D%(1)PH%(D%(0)1):D%(2)PV%(D%(0)1):P%3I14:LA::WW:E%0:T0:K0::::::12:"SHORT FORM MENU":7:"CHOOSE FROM:":X13:M$::" (";X;") ";M$::"ENTER YOUR CHOICE (1 TO 3):";:34,17:"";M$:X(M$):X1X3Ģ16:"";:958:14634,0:X86,119,134F%1:D%(0)0:D%(1)1:FZ:P%1:L%2:LA:E0:, /D=> DISPLAY FORM";:K2:NMNF34:NM(NM)(NM(NM)):3:1:35,14:958:35,23:KĺkEE1:ENME1LX0:Q34(E1)134E:LXLX1:QNF144Q" "(F$(M%(Q))B$,15):LX17Ĺ32,20:3::35,24:32,0:`W0:V1:AD0:PX0:ED0:M50:M91)0:D%(2)255:L%3:P%1:FZ:LA:RR:E%įRS:DR:E%ijDTR:P%4:LF:D$LU$B$:L%15:P%71:LS:D$CD$B$:P%86:LS:D$LK$B$:P%101:L%L:LS:WW:E%įWO:E%ijCS:F%2:CS:167NM2ENMıW35,22:::24:1:868:"CTRL: /N=> NEXT PAGE23+36:I$""PB%(0)E(E%)ĺ"";:127=PB%(0)0145fE%PB%(0)E1Y0:3:1:958:121P$(0)"ARE YOU SURE?":PT%(0)6:PL%(0)1:PS$(0)"":23:1:86836:I$""ĺ"";:131I$"Y"119EPB%(0):157:119,F%1:D%(0)0:D%(E" "D$:Y36121P|32,0:YEė:10:"NO SHORT FORMS IN FILE.":84::145}24:1:"ENTER # TO DELETE";:E%ĺ" OR "E1" FOR NEXT PAGE";~P$(0)"ENTER YOUR CHOICE (0=NONE)":PT%(0)1:PL%(0)2:PB%(0)0:PI%(0)0:PF%(0)0:V0:M3V:PH%(0)1:PV%(0)1(P$(F1))PL%(F1)5(PT%(F1)6)3(PT%(F1)4):" ";::23:1:868:94:111XstP$(0)"NAME FOR THIS FORM":PT%(0)5:PL%(0)15u36:I$""ĺ"";:117vPXR:D$I$:148:145wxE0::Y0y154:E%124zYY1:Y19Ĺ32,20:3{:PV%(F):PH%(F)(P$(F))5(PT%(F)6):X1::23:1:958::" => ENTER 0 IF NO CHANGES NECESSARY <=";:V0:M3V:P$(0)"ENTER FIELD # TO EDIT":PL%(0)2:PN%(0)0p36:PXPN%(0)1:I$""PXRĺ"";:112qPX1115RrFPF%(PX)1:PV%(F1):PH%(F1):XY FIELD LIST";:1:1:M$"0123456789":(M$,9);::M$;::M$;::M$;::X222:X:1:X::PX1ılW1:RQV:QRM3:M3PX:AD1:TM(ED):V2:36:AD0:VRQ:M3QR:MT:W0:T0:IPF%(M):GPI%(I):PPT%(I):M2PL%(I):mn106:RPX:ED1oX2R:FPF%(X)İ39:"FIELDS OVERLAP - TRY AGAIN":84:39:97g:PXPX(ED):PH%(F1)PB%(0):PV%(F1)PN%(0):PL%(F1)L%(F):PT%(F1)T%(F):PI%(F1)I%(F):PF%(PX)F1:P$(F1)F$(F):EDPXRh106:EDıi87j`k35,22:::K1:24:1:868:"CTRL/D => DISPLAPN%(0)22PN%(0)2ĺ"";:972bPB%(0)PB%(0)1pcPB%(0)(F$(F))L%(F)(T%(F)4)5(T%(F)6)37ĺ"";:97dK1İ106eYPN%(0):XPB%(0)(PB%(0)1)PB%(0)(F$(F))L%(F)3(T%(F)4)5(T%(F)6):X3103.f(128Y984((Y1)8)895X)1601ĺ"";:88\/]FM%(PN%(0)):23:1:868t^P$(0)"LOCATION: VERTICAL":PN%(0)0:PL%(0)2:EDPN%(0)PV%(F1)_P$(1)"HORIZONTAL":PH%(1)24:PV%(1)23:PF%(1)1:PI%(1)0:PT%(1)1:PL%(1)2:PB%(0)1:EDPB%(0)PH%(F1)`23:1:868aM31:36:139:PX1WV0:M30:P$(0)"FIELD # (0 IF DONE)":PH%(0)1:PV%(0)23:PF%(0)0:PI%(0)0:PT%(0)2:PN%(0)0:PL%(0)3:T0:23:1:868XAD0:36:PN%(0)0PX1I$""109YPN%(0)0PN%(0)(NF)I$""ĺ"";:88ZPX193 [X2PX:M%(PN%(0))PF%(X)(P6)5:M6:P78,80,82,82XLPS$(G)(B$,M2)I$(PS$(G),M29(P7(PS$(G),1)" "))^MwNPB%(G)I$(PB%(G))}OPPN%(G)I$(PN%(G))QRPR(G)I$(PR(G))ST"PRESS 'RETURN' TO CONTINUE...";:2:M51384UV:E0:(1,0)13:Z%(3,0)1:Z%(4,0)62:Z%(5,0)101:Z%(6,0)101:Z%(7,0)110:Z%(8,0)3:Z%(16,0)8:Z%(17,0)645:Z%(18,0)5NuB$" "XuZF$(0)"CMI MASTER"(B$,14)buX%(640)yٹ226,10:227,15:47082,1:46050:̀3:E%(I)D%(I4):I:DCD%(18):R%(12)D%(19):NDE%(13):NLE%(0):E%(14)D%(20):NPE%(9):NTE%(12):NDĆD1(ND),D2(ND),DC%(ND),DO%(ND)DD%(NP),DF%(NP),DH%(NP),DL%(NP),DT%(NP),RT%(NP):E%(13)460P%31:L%E%(13):GA:I1L%:DO%(I)D%(I1):I:P%61:GA:A:D%(0)2D%(1)XE%2:GP%6:L%SL%(X):D$(B$,L%):GS:S$(X)D$NXTI6:JR%(3):600:L%9:P%4:GA:NGD%(0):I08:G%(I)D%(I):I:I3:595:FZ:D%(0)0:D%(1)7:D%(2)R%(4):P%1:L%3:LA:RS:E%E%2:I0:585:L%21:GA:I01NC%(XN):P%6:L%40:GA:I0Q1:F%(I1)D%(I):S%(I1)D%(I20)::P%46:L%20:GA:I0Q1:SL%(I1)D%(I)::NCQ:I5:JR%(2):610:P%4:L%1:GA:D%(0)1E%2:P%5:L%5Q:G5:I1Q:S(I)D(I1):I:X1Q:SL%(X)425I5:JR%(2):610:P%4:L%2:GX3D%(2)R%(X)385)|DR:RS:E%3757CS:OO:|I4:JR%(1):600:P%4:L%7:GA:I06:R%(I5)D%(I)::I1:595:I5:JR%(2):600:L%2:P%4:GA:D%(0)E%2:XND%(1):I2:595:XNQ0:430P%65:L%XN1:GA:I1XN:NC%(I)D%(I)::QLA:RS:E%E%2:R$(X)"":ehD%(3)D%(0):D%(4)D%(1):GA:D%(3)D%(0)D%(4)D%(1)R$(X)"":E%2:mR%(X)D%(2):R%(X)D%(2):D$(B$,15):P%101:L%15:GS:R$(X)D$:rL%3:P%1:D%(0)0:D%(1)X3:D%(2)R%(X):FZ:LA:RR:E%įRSwGA:D%(0)D%(1)FıO:TT1:D%(T)F:TI3:JR%(0):600:P%4:L%4:GA:I14:R%(I)D%(I1)::P%10:L%1:GA:RN$"":D%(0)P%11:L%D%(0):D$(B$,L%):GS:RN$D$YI0:595:^F%1:FZ:R$(X)""R%(X)0cD%(0)0:D%(1)X3:R%(X)R%(X)1:D%(2)R%(X):P%1:L%3::TF%(TT),TL%(TT),TT%(TT):O0:2054Z%(17,3)P%1:G"O1330^'I1T:TF%(I)Fı{,:T%(F)310,315,320,3201LLL%(F):3256LL1:325;LL2:325@LL5ETT1:TF%(T)F:TT%(T)P%:TL%(T)LL:PT%(F)T:P%P%LL:JI1T:D%(I) NH220( I1NH:FG%(I):290:IH P1NP:FDF%(P):F200235[ F100FF100d 290t P:ND275 E1ND:DC%(E)1255 FD1(E):F100255 290 E:E1ND:DC%(E)2270 FD2(E):F100270 290 E"O1TTT997,I 665% I14:K6:J1:1145B 1130:I4:K10:J0:1145| 1:"PRESS 'RETURN' TO CONTINUE ...";:20:P13185 X1NG:G%(X)XĂX:NG0: O1:X1104:D%(X)0:X T0:P%1:X1NG:FG%(X):290:X:QP%P%:P%P%2:Z%(18,3)P%1T";:20:P335P P19R%(0)I:340:937,R%(2):997,R%(0):I20:K11:J0:1155^ P13160s P4ĺ"";:125 150::"TYPE 'YES' TO DELETE";:23:1::"ARE YOU SURE?";::" ";P$:P$"YES"35 X0:R%(0)I:370:35 23 1:958: "P$;:R$(R$,(R$)1):75( _P13105> dR$R$P$:P$;:75z iI(R$):(I1R$"0")IR%(0)(E%0)(R$)3ĺ"";:60 nI125 sE%Ģ3:155:Y0:40 x35 }150:"RETURN => PRINT REPORT, CTRL/D => DELETECTRL:/C=>CHOOSE AGAIN /S=>CHANGE SELEC3640 732,0X <23:1:"ESC => RETURN TO MENU":"0 => DISPLAY NEXT PAGE OF LIST"; AR$"":1:22:868::"ENTER # TO PRINT/DELETE ";:R%(0)2ĺ"(1-"R%(0)(E%0)"):"; F K20:P27R$""180 PP895 UIL(R$):IL2R$"":65 ZP$"$1185:O.R 4/2725. E%ġ:10604KP$:P(P$(0)):g1130:630:920:HM165(997)255I(997):R%(0)I:160#::8:"=> SELECT REPORT FORMAT <=":X0:Y0:(350:E%55-YY1:Y19Ĺ32,20:3 2R%(X)" "R$(X):YF%1:FZ:D%(0)1:P%3:L%1:LA:P%3:L%NF1:RS:GA:I1NF:M%(I)D%(I)::x IPF%(M):PPT%(I):M2PL%(I):GPI%(I):HX-pCVII\RAPDKQB(rUƀŀD0ĀЀe€̀ÀڷڹNKNFġ:145'"ER=";ER,"LI=";LI:84:1456:46240,1S47081,96:47082,1:172e(989)1172226,6:227,12:228,177:229,5:46181226,4:227,10:46044:16368,0:10:"INSERT PROGRAM DISKETTE IN"::"SLOT 6, DRIVE 1"::84::170M (NF1),PB%(NB1),PF%(NF1),PH%(NF1),PI%(NF1),PL%(NF1),PN%(NN1),PR(NR1),PS$(NS1),PT%(NF1),PV%(NF1):180:145CREATE A SHORT FORM,DELETE A SHORT FORM,RETURN TO MAIN MENU827:ER(222):LI(218)(219)256:ER20ĦER22145ER255)S(C)3$pIT%(F%(C)):P%ZP%(F%(C)):KF%(C):885:O$uI5ĴI895,900,905,905X$z910$L%1:D%(0)B%(FI%(K)):LA:L%1:915$D%N%(FI%(K)):LN:L%2:915$DR(FI%(K)):LF:L%5:915$D$(Z$(FI%(K))B$,SL%(K)):L%SL%(K):LS$P%P%L%: %FJS%(C):J2J5J6J9İ855%#C:U#HF%1:FZ:CNC%(NC1)1Q:ZP%(F%(C))L850y#MS%(C)2(S%(C)5S%(C)9)İ855#RC:#WIFI%(F%(C)):T%(F%(C))5ĴT%(F%(C))865,870,875,875#\Z$(I)S$(C):880#aB%(I)S(C):880#fN%(I)S(C):880$kR(IGS:LA$D$a"%CNC%(NC1)1Q:S%(C)4T%(F%(C))4S$(C)(S$(C)B$,L%(F%(C))):SL%(C)L%(F%(C))"*:840:P%1:L%L:D$(B$,L):GS:D$LA$LA$D$"/825:P%1:L%L:D$(B$,L):GS:D$HK$HK$D$"4"9F%1:FS:CNC%(NC1)1Q:ZP%(F%(C))L835#>%(6)CD$" ":L%R%(12)20CD$""L! I10:R%(7)L%R%(12)20I0{!L%I(CD$)R%(12)3L%R%(12)I(CD$)3!L%0L%0!JR%(12)L%I(CD$):RN$CD$(B$,J2)(RN$" ",L%1)(B$,J2): " NC1HK$(0):FS:P%1:L%35:D$(B$,35):999:SSR%(8):NHG%(7):NGF%1:CSV NGİ195:Z%(17,2)Z%(17,3)(Z%(17,3)0)RL:760f Z%(17,2)RL P3SP%(3)8:F%2:ZF$(2)(B$,24):OW:E%(10)775 I1E%(10):L%(RH$(I)):E%(R%(12)L%)2:E%0RH$(I)(B$,E%)RH$(I) I*!L%(RN$):R":710CD$(CD$B$,10)O:7:12:"... SETTING UP REPORT ...";:440:10gHMR%(0)X0:370uHM11351065:XN0āNC1XN:QNC%(NC):800:NC:NCXNXNLA$(255)(255):HK$(0)" BV$"***************":BZ$"0000000000":R99999991))"-"((992))((993))"-"((994))((995))::10:"TO PRINT THE DATE "CD$", PRESS RETURN";::"TO PRINT A DIFFERENT DATE, PRESS 'ESC'.";20:P13715P27ĺ"";:700:12:14:I19:(95);::1:"REPORT DATE? ";CD$:(CD$)9ĺ",3)8OKB16384:KR16368:E%(14),DC$(20),DH$(9),G%(8),H(5),R%(12),RH$(9):F%1:R%(0)(997):340:E%2ġ::10:"FORMAT DELETED - CHOOSE AGAIN"::185:3510390:10395:10435:10R%(6)HM720CD$((990))((991:Z%(4,0)(983):Z%(0,1)256:Z%(1,1)14:Z%(3,1)1:Z%(4,1)(984):Z%(5,1)(980)Z%(0,2)256:Z%(4,2)61:Z%(1,2)16:Z%(3,2)0:Z%(2,2)1:Z%(16,2)8:Z%(18,2)1:Z%(0,3)256:Z%(1,3)14:Z%(3,3)1:Z%(4,3)(985):Z%(5,3)10:Z%(6,3)10:Z%(7,3)20:Z%(8,3)3:Z%(16640{24000/I110:B$B$" ":D(24),S%(20),F%(20),SL%(20),S(20),S$(20),R$(4):F%3:Z%(20,F%),ZF$(F%),D%(104):D%0:D0:L%0:B%0:P%0:D$"":E%0:C%0:ZF$(1)"UTILITY"(B$,17):ZF$(3)"SORT"(B$,20)OZ%(0,0)256:Z%(1,0)14:Z%(3,0)E%2::N;SD$(B$,15):P%101:L%15:GS:R$(I)D$:iXFZ:D%(0)0:D%(1)I:D%(2)J:P%1:L%3:LAz]RR:E%615bRS:E%E%2::g620:lP%1:L%3:GA:D%(0)D%(1)ID%(2)Jġ::E%2:qvHM(935):HM0HX18000HM100:HX::LA:RS:E%ı1+585:L%6:GA:D%(4)JE%1:W0P%7:L%D%(5):L%RH$(J)"":570x5D$B$B$:GS:RH$(J)(D$,L%):J:?FZ:L%4:LA:RR:E%įRS:E%ġ:DID%(3):585:L%E%(9)4:GA: IL%4:P%1:GA:D%(0)D%(1)7D%(2)R%(4)D%(3)IFZ:P%1:L%4:LA:RS:E%ı}I7:585:L%5E%(13):P%5:G5:I1E%(13):D1(I)D(I1):I:D%(3)8:FZ:P%1:L%4:LA:RS:E%ıI8:585:L%5E%(13):P%5:G5:I1E%(13):D2(I)D(I1):I!E%(10)590&I11:D%(3)11:J1E%(10):D%(4)J:FZ:L%5:P%1 DC525PD%(3)6:J1((DC1)8)1:FZ:D%(4)J:P%1:L%5:LA:RS:E%ıwI6:585:L%5:GA:D%(4)JE%1:D%(4)8:DC8J.5D%(4)DC8J8L%15:I1D%(4):P%15I9:D$(B$,15):GS:DC$(J8I8)D$:I:J E%(13)545D%(3)7:I1NP:DH%(I)D%(I3)::D%(3)10:575:I1NP:RT%(I)D%(I3):OE%(11)500I5:D%(3)5:J1E%(11):D%(4)J:FZ:P%1:L%5:LA:RS:E%ı585:L%6:GA:D%(4)JE%2:L%D%(5):L%DH$(J)"":495P%7:D$B$B$:GS:DH$(J)(D$,L%)JI1L%:DC%(I)D%(I1):I]I4:595:P%1:L%4:D%(0)0:D%(1)7:D%(2)R%(4):D%(3)1:NP470>575:I1NP:DF%(I)D%(I3)::D%(3)2:575:I1NP:DL%(I)D%(I3)::D%(3)3:575:I1NP:DD%(I)D%(I3)::D%(3)4:575:I1NP:DT%(I)D%(I3)::D%(3)9:575:RB1İ1055YNDİ720*^SB0:P20:LX1b`XLLSB(SSNL)SM(1FT)(FT0):XR%(9)İ935:975cP1P21:P2E%(LX):P1P2480hPP1P2:DT%(P)SMĺ(B$,DT%(P));m(KB)127İ510rFDF%(P):DDDD%(P):DLDL%(P):F100385w20:T%(F)5450 "H:330? 'H1NH:P%TT%(H):Z9%P%:L%TL%(H):CD:C%305K ,H:330Y 1306:310 2LQF%:J1NH:FG%(J)(NG0)J(NG):F%Z7%:20:1060:A$(J)D$::D$B$: 6RC1330 ;RB1:NTİ795 @HG%(8)SB3:330 E935:975 JLLİ975 O650 E%25010, RCRC1:RBRB1:250> RS:E%1650K E%245i ZWRCįFZ:RS:E%245s 5010 RCRC1:RBRB1 NH330 NG295 H1NH:FG%(H):P%ZP%(F):Z9%P%:IT%(F):L%I(I3)5(I3I4)L%(F)(I4) CD:C%305 KEY TO:":" - START PRINTING":" - STOP PRINTING" 12:"PRESS 'ESC' TO START THE REPORT OVER":" OR RETURN TO MAIN MENU":P$:24:"ESC => QUIT OTHER KEY => ";::"STOP";::23:35,23:P0%İ5110:SP$(0); P0%ė NG235 1120:E%2X1KX1X1K:P$((DI1)SG(SG0))2 sDD130e xPF$((X1)):XDD(PF$):X0PF$(BZ$,X)PF$w }P$P$"."PF$ DDSG:XDL(P$):X0P$(B$,X)P$: Xı DL1P$"*": P$"*"(P$,DL1):7 RC0:RB0:PP0:LL0::6:"PRESS ANYDLXDD(DD0)(D0)4((DLXDD1(D0))3)Xı fI1(DLXDD(D0)1(DD0))3:JDD(DD0)4I1:P$(P$,2,DLJ1)","(P$,J): g hSG(D):D(D):DR9DL15P$BV$:130 iDI(D):P$(DISG):DISG1P$"-0"% nK10DD:X1(DDI)K.5:#P0%SP%(0):SM1:R.R 4/20*50304 4000= 685F690bNGL%L%(F):P%ZP%(F)NGTPT%(F):L%TL%(T):P%TT%(T)T%(F)40,45,50,50#D$(B$,L%):GS:(GA:DD%(0):-GN:DD%:2GF:d104:(P$,1)"*"PCı2 e:226,6:227,12:228,177:229,5:46181E-a226,I:227,K:J0Č46044P-k45568-p:16368,0:10:"INSERT PROGRAM DISKETTE IN"::"SLOT 6, DRIVE 1"::950:61023-0827:ER(222):ER20ER255Ħ-D24:1:"ER="ER,"LI="(218)(219)256::OGRAM DISKETTE IN"::"SLOT 6, DRIVE 1"::185:1165W,827:ER(222):ER20ER255Ħ,24:1:"ER="ER,"LI="(218)(219)256:,226,12:227,12:47082,1:46240,1:46050:PaXYƀ̀ЀҀ D40NP6(NG0)13NFJ)100:E%E%(E%1):935,E%:Q+y935,0:997,255:46240,1[+~1050y+47081,96:47082,1:1180+(989)11180+:226,6:227,12:228,177:229,5:46181+226,I:227,K:JČ46044+455684,:16368,0:10:"INSERT PRD1(I)20011058*GD1(I)100D1(I)MF%(D1(I)100):1105M*LD1(I)MF%(D1(I))`*QDC%(I)21125t*VD2(I)2001125*[D2(I)100D2(I)MF%(D2(I)100):1125*`D2(I)MF%(D2(I))*e:*j45337,255:45338,130:4+oJ0:I1NF:JJ(F$(I)):I:E%(14N$:12:5::"WARNING!!!";::" FILE PROBLEMS!"::"SEE MANUAL.":16:185:180))I1NP:DF%(I)101DF%(I)MF%(DF%(I)):1075).DF%(I)201DF%(I)MF%(DF%(I)100)100)3I:NGāI1NG:G%(I)MF%(G%(I)):)8NDı)=I1ND:DC%(I)11105*B0:GS:SP$(0)D$:P%19:GS:SP$(1)D$`(I01:J1011:(SP$(I),J,1)(0)ĂJ:SP$(I)"":1010w(SP$(I)(SP$(I),J)~(I(P%1:F1NF:ZP%(F)P%:IT%(F):P%P%(I3)I(I3I4)5L%(F)(I4):(A1NF:T%(A)4Z$(FI%(A))(B$,L%(A))(:R)10-'GA:I1NF:FI%(I)D%(I):I:NF1015U'L%30:P%4:I1NF:D$B$"":RS:10'GS:F$(I)(D$,2,((D$,1))):I:FZ:D%(0)0:D%(1)10:P%1:L%2:LA:RS:10'GA:D%(0)D%(1)101060#(P%3:L%6:GA:I05:SP%(I)D%(I)::D$(B$,10):P%9:L%1MF%(NF),T%(NF),L%(NF),FI%(NF),F$(NF),Z$(NS),R(NR),N%(NN),B%(NB),ZP%(NF),SP%(5),SP$(1):RS:10&L%NF1:P%3:GA:I1NF:MF%(I)D%(I)::RS:10&RS:10&RS:10&GA:I1NF:T%(I)D%(I):I:RS:10&GA:I1NF:L%(I)D%(I):I:RS:10'RS:%1:OO:E%ij+%FZ:P%3:D%1:LN:RS:10%P%3:L%15:GA::NFD%(2):LD%(4):NBD%(5):NND%(6):NRD%(7):NSD%(8):P%31:GN:RLD%:P%30:L%1:GA:Z%(5,0)D%(0):D$(B$,24):P%101:L%24:GS:S$D$:ZF$(0)D$%ZF$(1)(ZF$(1),16)(ZF$(0),8)]&PT%(NF),D%(0):D%(0)".";:5:D$(B4$,12):P%9:L%12:GS:900:D$;fRD$(B4$,12):P%21:L%12:GS:900:" "D$m\If23:"ENTER 0 IF THE NAME IS NOT IN THE LIST"p22:1:868:"WHICH NUMBER IS THE STUDENT'S NAME?";:V22:200:K$ES$SN%0:2999Az(K$NS12100WNS101ĺ"SORRY, THERE ARE ALREADY 100 STUDENTS":"ON THIS DISK.":20000u 2700:K$ES$SN%0:1100/K$"N"2000329994:1:5:"WHICH ONE OF THESE IS THE STUDENT'S NAME?">SN%0:100:I1NS:RS9H1:P%8:L%1:GA:D%(I);:V212:200:K$ES$SN%0:20000,SN$K$@NS0:SN%0:100[P%1:L%7:RS:E%2076GS:D$(SN$" ",7)NSNS1:P%8:L%1:GA:SN%D%(0):2072NS0ĺ:"I CAN'T FIND ANYONE WITH THAT NAME.":"PLEASE TRY AGAIN.":I15000::2000 912SL,128:#:0:12506,0:SL:+=SLH>" "LF$:"DATE: "DA$;LF$N?jA24,176,44,88,44,203,99B3000: PRINT THE REPORTL0:20000 CS:60000226,4:227,9:46044:!:5:"WHAT IS THE STUDENT'S ";::"FIRST"::"NAME? "IT MUST BE BETWEEN 1 AND 7":I15000::10754:5:"MAKE SURE THE PRINTER IS TURNED ON"::"AND THAT THE PAPER IS AT THE TOP OF"::"THE FORM."599916CT1079,1080,1081,1082:10857(9)"80N":(9)"K":81784SL,80:2040SL,192: 91,1086.CT0*/CTCT1:C1:C1991074g0:C2:SL17:(49152SL256)C1(49153SL256)C21076u1SL:10712:10:"DO YOU HAVE A PRINTER? ";:400:K$"N"SL0:CT0:1086-312:V21:"WHAT SLOT IS THE PRINTER IN? ";:200:(K$)1(K$)8ĺ"69^*15:"YOU MAY TYPE THE DATE IN ANY FORM YOU":"WISH, SUCH AS:":" AUGUST 14, 1982"+" 8/14/82":" MONDAY":" MIDTERM"::"PLEASE TYPE NO MORE THAN 20 CHARACTERS.",5:"DATE? ";:V220:200:DA$K$-SL100Ĵ(CT0)11076D$(D$,I9)>10000: INITIALIZE PROG VARIABLES a10100: LOAD DISKETTE MESSAGE30000: INITIALIZE FMS VARIABLES 9900: LOAD GOAL-OBJECTIVE TABLE200002000: GET STUDENT CODE1060:1090$:)DA$""10N?X700:"PUSH ";::" SPACE BAR ";::" "ME$;:1:1:bX1(KB):X1V1ĹKR,0:X1160X1155Ė1:24:868:X1:Y1:680l610K$"":X1155K$ES$X(36):Y(37):1:24:868:I9(D$)21:(D$,I9,1)" "ĂI9:I92 K$"N"ĺBU$;BU$;:K$"":410BK$"Y"ĺBU$;BU$;BU$;:K$"":410QXES560~Y(K$)(2(K$"Y")):Y0āX1Y:BU$:X&K$(ES):5900(K$)0İ700:(7);"I NEED A ";::" YES ";::" OR A ";::" NO ";::".";:X1:Y1:420:(7);:4200 TT1:T1200560| TTR(K$)0İ700:(7);"REMEMBER, PUSH ";::"RETURN";::" WHEN YOU ARE DONE";:X1:Y1:420 430 X217K$"Y":"YES";:410 X206K$"N":"NO";:410 XCR(K$)0İ700:X1:Y1:" ":590 XBS530X1Y:BU$;:X% ^K$(ES):" ":390@ hOT0ĺ(7);(7);:220d rTQTQTC:TQOTK$(255):390 |700::(7);(7);"PLEASE GIVE ME YOUR ANSWER.";::X1:Y1:220  K$"" 700:X1:Y1 T0:KR,0::" ";(8);: X(KB):XV147XBSĭXCRĭXESĭXLBXUB(K$)V2XXV1:K$K$(X):(X);:TQ0:210p XCRİ700:X1:Y1:" ":390 "XBS330 ,(K$)1ĺBU$;:K$(K$,(K$)1):210 6(K$)1ĺBU$;:K$"":210 @(7);:220 JXESĺ(7);:220 TY(K$):Y0ā1: T0:KR,0::" ";(8);:7 X(KB):XV1265S TT1:TTC(K$)0360 TTR(K$)0İ700:(7);"REMEMBER, PUSH ";::"RETURN";::" WHEN YOU ARE DONE";:X1:Y1:220 230 V31ĭ(K$)0X160İ700:X1:Y1:K$(254):" ":390M A225A250L$L$(A):95. ^L$L$(A32)6 _:v dP%1:L%7:D$(SN$" ",7):LS:P%8:L%1:D%(0)SN%:LA| (KB)155ı KR,0:LF$((10)(10)(10),(LF$)1) 54915:0:RT1050,5200,7050 TQ0:K$"":220 700:X1:Y+%STUDENT REPORT PRINTER 4/11/83bF%0:B%0:P%0:L%0:E%0:D%0:D0:C%0:Z7%0:Z9%0:D$""{25000:SL255:LF$""216,0:54915(45337,255:45338,130Z1000[(984)0L$L$(160)D$:\L$L$(160):Q1(D$):A((D$,Q,1)) ]GROUPING":"REPORT? ";:400:K$"Y"70053'*20000y':"I DON'T KNOW WHAT YOU MEAN BY OBJECTIVE":"NUMBER "K$".":600':"OBJECTIVES ON THIS DISK ARE: ":I0NG1'19(I20)1:I20(I20)3'C%(I,0)"-"C%(I,1);':600:7005(PR8000 &S::&PR0:S0NS:M%(S,BJ)0M%(S,BJ)99İ7900C&S:}&M$"STUDENTS THAT HAVE MASTERED THIS OBJECTIVE:":PR0&S0NS:M%(S,BJ)99İ8000&S:&K179:"-";::" "LF$:7140:7120:7090(' 0::5:"WOULD YOU LIKE TO SEE ANOTHER K9D$(D$,S):91:L$(L$,2):D$B4$"":7087Z%D$(D$,S):91:D$B4$"":(L$)797087~%S7911:(L$,S,1)(160)Ă%(L$,S);LF$:L$(L$,S1)%K:7190%PR0:M$"STUDENTS THAT HAVE NOT TRIED THIS OBJECTIVE:"&S0NS:M%(S,BJ)0İ80JI9$1060:"GROUPING REPORT FOR OBJECTIVE "G"-"OB;LF$$FZ:P%1:L%8:GA:D%(0)G:D%(1)OB:D%(5)10:D%(7)255:LA:RR:E%ij$L$"":K912940:D$(B4$,33):P%K:L%33:GS:(D$,2)(164)(164)ĺL$;LF$:7190$S3311:(D$,S,1)(160)Ă.%C%(0,0)" AND "C%(NG1,0):I15000::60009#PG(K$):C#X5000#]:5:"A GROUPING REPORT FOR WHICH":"OBJECTIVE? ";:V24:200#bG(K$):I1(K$):(K$,I,1)"-"Ă:7300#lOB((K$" ",I1))#vI0NG1:C%(I,0)GC%(I,1)OBĂ:7300$BPRINT THIS REPORT FOR":"ANOTHER GOAL AREA? ";:400E"6K$"N"20000U"@6000:5200"p:5:"CLASS REPORT FOR WHICH GOAL? ";:V21:200"r16::"PLEASE BE PATIENT ";::"........."*#z(K$)C%(0,0)(K$)C%(NG1,0)ĺ"PLEASE TYPE A NUMBER BETWEEN ")(M0)(M99)5330,5340,53501!" ";:5370E!" T ";:5370S!" M ";b!G:" "LF$k!191!S:" "LF$:"M = MASTERED T = TRIED (BLANK) = NOT TRIED";LF$!"" "LF$:(12):HGEGSGHG1:HGEG:52353",0::5:"DO YOU WISH TO ("0"(C%(G,1)),2)" ";::" "LF$Q S0NS:S5(S5)āI179:"-";::" ";LF$w I1211:(N$(S,1),I,1)" "ĂI J1211:(N$(S,0),J,1)" "ĂJ IJ16I16J ((N$(S,1),I)" "N$(S,0)B4$,18); GSGHG:MM%(SN%(S),G)!(M0J,K)N$::SSN%(I):SN%(I)SN%(J):SN%(J)S3 J:I=P1060\ZSG0NG1:C%(SG,0)PGĂ}dEGSG1NG1:C%(EG,0)PGĂnEGEG1:HGEG:EGSG11HGSG11s(B4$,30)"GOAL "PG" - "G$(PG);LF$ x("STUDENT'S NAME"B4$,18);:GSGHG:C%(G,0)"-"I)(N$(NS,I),J)IJG0NG1:P%G339:L%1:GA:M%(NS,G)D%(0):G\NSNS1:5010l6000:5000NSNS1:I1NS:SN%(I)I:I0NS1:JI1NS)N$(I,0)N$(J,0)(N$(I,0)N$(J,0)N$(I,1)N$(J,1))āK01:N$N$(I,K):N$(I,K)N$(J,K):N$(160)Ă0" "(L$,N);LF$:L$(L$" ",N1):D57K=aFZ:D$(64):P%1:L%1:LS:NS0oRS:E%ıP%9:D$(B4$,12):L%12:GS:N$(NS,1)D$:P%21:GS:N$(NS,0)D$I01:J(N$(NS,I))11:(N$(NS,I),J,1)" "ĂJJ0J1N$(NS,OD$(B4$,33):P%K:L%33:GS:(D$,2)(164)(164)ĺ(B4$,2D)L$;LF$:4100lK9ĺC%(J,0)"-"C%(J,1);:N18:(D$,N,9)YW$D$(D$,N9)91:N(L$)11:(L$,N,1)(160)ĂL$(L$,N):(L$)714090N7111:(L$,N,1)( C0:J0NG1:C%(J,2)0I3:4000+ J1 FZ:P%1:L%8:GA:D%(0)C%(J,0):D%(1)C%(J,1):D%(5)10:D%(7)255:LA:RR:E%ij191C14030" "LF$:K179:"-";::" "LF$" "LF$:A$(I);LF$:LL2:C1L$"":D0:K912940 TO LEARN TO"/& A$(3)"YOU HAVE NOT TRIED TO"B 100:RR:E%ij[ "REPORT FOR "N$;LF$ I0NG1:P%I339:L%1:GA:C%(I,2)D%(0):I P1 C0:J0NG1:C%(J,2)99I1:4000 J C0:J0NG1:C%(J,2)0C%(J,2)99I2:4000 J$GS:900:D$;E P%21:L%12:D$(B4$,12):GS:900:" ";D$;"? ";:400K Q d 100:RR:E%ij P%9:L%12:D$(B$,12):GS:900:N$D$ P%21:L%12:D$(B$,12):GS:900:N$N$" "D$ A$(1)"YOU KNOW HOW TO" ! A$(2)"YOU TRIED BUT STILL NEED)0āJ1(K$):X((K$,J,1)):X48X57ĂJ:I(K$):INS2180r700:"PLEASE TYPE IN A NUMBER ";(7);:2160I0Č54915:20000:SN%D%(I)D$(B4$,12):P%9:L%12:GS:900:SN$D$:2999 100 RR:E%ij  P%9:L%12:D$(B4$,12):7#(L$)4CT%0ĭ((L$,4,1))168C1CT%:9235U7#D9$(L$,3):(L$)3L$"":9220j7$L$(L$,(L$)3)7$C11C1%:C1$(C1)D9$ĂC1:93907 $C03CT%C193807$(L$)092757$(L$)693907$D9$(L$,4):L$(L$,(L$)4)8$C21C2%:C2$(M%1CM%0::(7)"? WARNING CHANGED CONTENTS IN MEMORY":"? SAY GOODBYE AGAIN TO EXIT"::9190p6#CS:E%0ij6#226,4:227,10:47082,1:460446#6#D1%G:D2%OB:D3%DS:D4%P:D5%Q:D6%DI:D7%TE:D9(0)6#(L$)0BC%0:93996#(L$)393900!EX1:226,23:227,15:47082,1:45568: CHAIN TO RUN:5!G5! VERIFYX5"CS:E%0iji5"OW:E%0ijo5#5(#CT%5ĺ"? NO TEXT IN MEMORY";(7)::90905-#WB%,2452#I021:I1:1:I%I:S1::I5F#WB%,22:5005P#S45d#:WB%,215#_6#CE";:A$:60010)ˤKRBSESV1CR EaaB\aPMTRaDDY SaM*XpYX1 KU`NGRIV2TQT@RTPGNSJG@KN`S\D`CT3u33`KR,0:226,6:227,12:228,0:229,6:60015K3e47082,1:46240,1:Z3j:46181:c3o7683t:5:"PLEASE PUT THE ";::" PAL ";::" MASTER DISK IN"::"DRIVE 1"3~20:"PRESS ANY KEY TO CONTINUE";:A$:60010)ˤ ANY KEY TO CONTINUSE TYPE S, C, G, OR Q PLEASE.":I15000::20000M2>NRT1040,5050,7000,1290q20uF%0:Z%(20,F%),ZF$(F%),D%(150)2DuZ%(4,0)(982)10(983)2NuZF$(0)"PAL DISCOVERY - SIDE 1 """2XuD$(B$,30)2buZ%(5,0)201:OO:E%ij2luZ%(4,0)(982)10(983)E ME SEVERAL MINUTES TO FIND AND SORT"1"N"RECORDS FOR THE CLASS AND GROUPING":"REPORTS.":::"PLEASE BE PATIENT..............."1#N::"WHAT WOULD YOU LIKE TO DO? ";1*NV26:200:K$"DELETE"110001/NRT14:("SCGQ",RT,1)K$20030124N:"PLEA4:LA:SC0R0.RS:E%įCS:OO:SC" STUDENTS HAVE BEEN DELETED":I12000::20000i0.DR:SCSC1:120200 N::3:"S - STUDENT REPORT"::"C - CLASS REPORT"::"G - GROUPING REPORT"::"Q - QUIT"&1!N::"WITH A LARGE NUMBER OF STUDENTS, IT MAY":"TAK0000G/ +P%1:L%7:D$(SN$B$,7):LS:L%1:P%8:D%(0)SN%:LA:RR:E%ijx/*+DR:"DELETION COMPLETED":I12000::11000~/4+/."ARE YOU SURE YOU WANT TO DELETE ALL":"STUDENT NAMES AND RECORDS? ";:V21:400:K$"Y"20000 0.FZ:P%1:L%1:D%(0)6q.*:5:"DELETE:"::" A - ALL STUDENTS"::" O - ONE STUDENT"::" Q - QUIT"::"WHAT DO YOU WISH TO DO?";.+V21:200:K$"Q"K$"A"K$"O"ĺ::"PLEASE TYPE A, O, OR Q":I15000::11000. +K$"A"12000.+K$"Q"20000/+2000:SN%02":::14:"IN ";::" DRIVE ";(982):W-'ME$"WHEN YOU ARE DONE.":600:K$ES$10180]-'h-'::5-'"PLEASE PUT THE ";::" PROGRAM ";::" DISKETTE"::" IN ";::" DRIVE ";DD" ":-((ME$"WHEN YOU ARE DONE.":600:K$ES$10280.2(2h,V'G$(1)"PHONICS":G$(2)"VOCABULARY/STRUCTURAL ANALYSIS":G$(3)"COMPREHENSION":G$(4)"STUDY SKILLS",`'YW$(217)(239)(245)(160)(247)(233)(236)(236)(160),j',t'::5'-~'12:"PLEASE PUT THE "::6::"PAL DISCOVERY DISK - SIDE 1,+'C%(60,2),A$(3),N$(100,1),SN%(100),G$(4)e+'B4$(" ",40)v+$'B$(B4$,30)+)'UB256:LB159+.'KB16384:KR16368:BS136:ES155:V1128:CR141:ES$(ES)+8'BU$" "(8)(8)" "(8)+B'PM0+G'TR450,L'DD:"IF YOUR PRINTER IS NOT AUTOMATICALLY":"RETURNING TO THE NEXT LINE, PRESS 'ESC'":"TO ADJUST THE SPACING.":* '"YOU CAN ALSO PRESS 'ESC' ONCE OR TWICE":"MORE TO ADD SPACES BETWEEN THE LINES."* 'ME$"WHEN YOU ARE DONE.":600:K$ES$1290*'10782)1:P%6:L%3:LA:RR:E%0ij5)&NG0:D$(B4$,25)=)&R0a)&RR1:D%(0)R:P%8:L%1:LA:RRq)&E%09990)&I023:P%I419:L%41:GA)&D%(0)2559990)&D%(0)50C%(NG,0)D%(1):C%(NG,1)D%(2):NGNG1)&I:9930)'M%(100,NG):o*'1205X(" "LF$:"STUDENTS THAT HAVE TRIED BUT STILL NEED TO WORK ON THIS OBJECTIVE:";LF$b(8005|(@PR0ĺ" "LF$:M$;LF$(EI1211:(N$(S,1),I,1)" "Ă:I12(J" "(N$(S,1)" ",I1)N$(S,0);LF$:PR1(O191(T)&FZ:D%(0)1:D%(1)0:D%(.1:24:868cG/CT%0ĺ("CONTROL PROGRAM QUE PROGDIA PROGPRO TEXTDIA TEXTQUE TEXT",CT%87,8);G/12:G0ĺG"-"OB;:12060G/"ALL";G/20:P0ĺP;:12070G!/CT%4CT%6ĺ"ALL";:12070G"/"---";G&/27:Q0ĺQ;:12080H+/CT%4CT%6ĺ"ALL"1( 0"F2( 2,3,40,4,40,1,2,404F3( 255,255,255pF<(D9$:X$"":D91(D9$):X$X$(((D9$,D9,1))128):D9vFE(|F*F.D8(CV%):D9(CH%)F.D7(WB%)F.WB%,24F.1:23:F."MEM-CONT OBJECTIVE PROG QUES DIAG TEXT":F.CT%012110G29,7,0,0,1,1%E' "PRC",24,1,0,0,0,1?E' "PRI",32,10,0,1,1,1]E' "PRU",23,1,0,0,0,1 vE' "QUE",11,3,0,1,0,0E' "SKI",4,7,0,1,1,1E' "SLI",28,11,0,0,1,1E' "SOU",13,7,0,1,1,1E' "TEX",5,7 ,0,1,1,1 E' "TOP",1,1,0,1,1,1E0( 9F "INV",6,5,0,1,1,1,D' "LDA",26,9,0,0,1,0ED' "LEV",25,8,1,0,0,0^D' "MAS",20,1,0,1,0,0wD' "NAM",22,1,0,1,1,1D' "NOP",254,1,0,1,1,1D' "NOR",8,5,0,1,1,1D' "PAU",9,7,0,1,1,1D' "PDI",30,1,0,0,1,0D' "PGE",31,1,0,1,0,0 E' "PLI",C' "ANS",19,1,0,0,1,03C' "ATT",14 ,7 ,0,1,1,1LC' "BRA",27,7,1,0,0,0dC' "CLE",2,1,0,1,1,1C' "COM",253,6,1,1,1,1C' "CUR",3,2,0,1,1,1C' "END",255,1,1,1,1,1C' "FAI",21,1,0,1,0,0C' "FLA",7,5,0,1,1,1C' "GET",10,4,0,1,1,1D'I,0))0ij B|'LT%(CC%(I,0))I:IB}' 11 ,"SAVE","REPLACE","DELETE","NEW","LOAD","LIST","RUN","VERIFY","TEXT","GOODBYE","CLEANDISK", 7,"CON","PRO","QUE","DIA","PTE","DTE","QTE",6,"OBJ(","DIS(","PRO(","QUE(","DIA(","TEX(" B~' 1,2,3,6,4,7,4B' 3006,104:807,964At'C0%:I1C0%:10300:C0$(I)X$:IZAv'C1%:I1C1%:10300:C1$(I)X$:IAx'C2%:I1C2%:10300:C2$(I)X$:IAy'I17:CT%(I):IAz'CC%:I1CC%:10300:CC$(I)X$:J05:CC%(I,J):J:I:ET%:I1ET%:ET%(I):I B{'I1CC%:LT%(CC%(250@.'ZA192:ZZ219:Z332;@8'BU$" "(8)(8)"-"(8)T@B'IV%50:CH%36:CV%37_@C'WB%35q@G'BL%40:BH%41@L'EP%958:EL%868@Q'BS%1008:FS%1036:US%998:DS%922:CR%926AV'CALCLOC800:800,72:801,165:802,37:803,32:804,193:805,251:8?&L2$L9$:BC%0:9990"?&BC%1(?'.?'t?'B4$(" ",40)?'LI%(200,1),LI$(200)?'CC%(100,5),CC$(100),C0$(11)?'B$(B4$,30)@$'KB16384:KR16368:V00:BS136:ES155:V1128:CR141:NB20:V92559690>%D6%D9:BC%0!>%'>%N>%L2$(L$,1,C31):9900:BC%19740p>%D9(L2$):D9255BC%1:9740>&D7%D9:BC%0> &>&(L2$)0(L2$)59980>&L9$"":D91(L2$):D8((L2$,D9,1))>&D8175T1869980?&L9$L9$(D8128):D9%)=N%L2$(L$,1,C31):9900:BC%19590M=X%D9(L2$):D932767BC%1:9590^=b%D4%D9:BC%0d=v%=%L2$(L$,1,C31):9900:BC%19640=%D9(L2$):D9255BC%1:9640=%D5%D9=%BC%0=%=%L2$(L$,1,C31):9900:BC%19690 >%D9(L2$):DBC%19490-<$D9(L2$):D9255BC%1:94908<$D1%D9e<$L2$(L$,C41,C3C41):9900:BC%19490<$D9(L2$):D9255BC%1:9490<$D2%D9<$BC%0<%<%L2$(L$,1,C31):9900:BC%19540<&%D9(L2$):D9255BC%1:9540<0%D3%D9:BC%0=DD7%09380?;$GD1%:OBD2%:PD4%:QD5%:DS0:TED7%:DI0:9370];$CT%C1:12000:BC%0:9399;$"? ILLEGAL SPECIFICATION"(7)::BC%1:9399;$"? SYNTAX";(7):BC%1:;$;$C41C32:((L$,C4,1))173ĂC4:BC%1:9490 <$L2$(L$,1,C41):9900:5%:DID6%:TE0:DS0:9370;:h$D1%0D2%0D4%0D7%09380m:m$GD1%:OBD2%:PD4%:Q0:DI0:TED7%:DS0:9370:r$(D1%0D2%0)(D4%0D2%0)(D5%0D4%0)D6%0D7%09380:w$GD1%:OBD2%:PD4%:QD5%:DID6%:TED7%:DS0:9370 ;|$D1%0D2%0D4%0D5%0I0:9370%9J$D1%0D2%0D4%09380U9O$GD1%:OBD2%:PD4%:Q0:DS0:TE0:DI0:9370w9T$D1%0D2%0D4%0D5%093809Y$GD1%:OBD2%:PD4%:QD5%:DS0:TE0:DI0:93709^$(D1%0D2%0)(D4%0D2%0)(D5%0D4%0)(D6%0)9380:c$GD1%:OBD2%:PD4%:QDC2)D9$ĂC2:9390@8"$C32(L$):((L$,C3,1))169ĂC3:9390r8,$C29400,9500,9550,9600,9650,9700:BC%1939086$(L$)C3L$(L$,(L$)C3):92358;$C19280,9290,9300,9310,9320,9330,93408@$D1%0D2%09380 9E$GD1%:OBD2%:P0:Q0:DSD3%:TE0:DJ1:J26809166#9SL0ĺ:C9" ";(13);:SP%(4)ĺ(10);`9SP%(3)āVV1SP%(3)7:f9 :7,FILE MAINTENANCE MENU,REBLOCK FILES,FILE STATISTICS,ADD/DELETE SECONDARY KEYS,UPDATE CODE FIELDS,CHANGE PASSWORD,CHANGE PRINTER PARAMETERS,RETURN :IT%(F):L%I(I3)(I3I4)5L%(F)(I4):P%P%L%::164|8:F$(0)"PASSWORD":T%(0)5:L%(0)25:FH%(0)1:FV%(0)10:Z$""878:I$""ĺ"":6828PU$I$:F%1:FZ:D%(0)252:P%3:L%1:LA:P%4:D$PU$:(D$)01668L%(D$):LS:RR:E%0512 9JFZ:D%(0)0:D%(1)11:P%1:L%2:LA:RR:E%įRSJ7GA:D%(0)D%(1)116667L%3:GA:CFD%(2):C%(CF,3),C(CF):C%(0,0)CF:CF06667L%CF43:GA:I1CF:J03:C%(I,J)D%(I4J1)::7I1CF:P%CF4I51:GF:C(I)D:;8P%1:F1NF:ZP%(F)P%%6:GA:I05:SP%(I)D%(I)::D$(B$,10):P%9:L%10:GS:SP$(0)D$:P%19:GS:SP$(1)D$:D%(0)0:D%(1)0:D%(2)255:L%3:P%1:FZ:LA:RR:E%įRS6P%4:GF:TRD6I01:J1011:(SP$(I),J,1)(0)ĂJ:SP$(I)"":6546SP$(I)(SP$(I),J)6I-7GA:I1NF:L%(I)D%(I)::RS:82H5~GA:I1NF:FK%(I)D%(I)::RS:825GA:I1NF:FI%(I)D%(I)::L%30:P%4:I1NF:D$B$"":RS:825GS:F$(I)(D$,2,((D$,1)))::FZ:D%(0)0:D%(1)10:P%1:L%2:LA:RS:825GA:D%(0)D%(1)10846P%3:LD$:ZF$(0)S$:X100:ZF$(1)(ZF$(1),16)(ZF$(0),8)4rMF%(X),FH%(1),FV%(1),T%(X),L%(X),FK%(X),FI%(X),F$(X),SP%(5),SP$(1),ZP%(X):RS:824tL%NF1:P%3:GA:I1NF:MF%(I)D%(I)::RS:824vRS:824xRS:824zGA:I1NF:T%(I)D%(I)::RS:82!5|SP$(I)):D$SP$(I):LS'3f:WW:E%įWO-3hM3jF%1:Z%(5,1)(980):OO:82n3lFZ:P%3:D%1:LN:RS:E%843nP%3:L%15:GA:NKD%(1):NFD%(2):LD%(4):NMD%(9):PED%(10)24pP%31:GN:RLD%:L%1:P%30:GA:Z%(5,0)D%(0):D$(B$,24):P%101:L%24:GS:S$,0)1:Z%(4,0)(983):Z%(0,1)256:Z%(1,1)14:Z%(3,1)1:Z%(4,1)(984)2bZ%(0,2)256:Z%(1,2)14:Z%(3,2)1:Z%(4,2)61:Z%(8,2)3:6183dF%1:FZ:D%(0)0:D%(1)10:P%1:L%2:LA:RS:DR:FZ:I05:D%(I2)SP%(I)::L%8:LA:I01:P%910I:(SP$(I))0L%(%L%LSK:D$"":MU$(12):L$"___________________________________":F%2:Z%(20,F%),ZF$(F%),D%(100)1^C145338:C245337:B$" "D2`E%P%L%Z9%:D$"":D3:D%0:B%0:ZF$(1)"UTILITY"(B$,17):Z%(0,0)256:Z%(1,0)14:Z%(3,23:EE1:ENME1A0NLX0:Q32(E1)132E:LXLX1:QNF598j0PQ;:SKFK%(MF%(Q))Ğ:(34);::596t0R" ";0T(F$(MF%(Q))B$,15):LX16Ĺ32,20:40V::35,24:32,0:0XZ%(19,1)F%1:CS0Z714a1\C320500:C3:M$"":M5MNIF%D%E%P8):"YOU MAY NOW:":MZ1MU::" (";MZ;") ";MU$(MZ)::/F"ENTER YOUR CHOICE (1 TO ";MU;"):";:34,13MU(MU9):"";MZ$:MZ(MZ$):MZ1MZMUĢ13MU(MU8):958:582/H34,0:/JNM2ENMı0LNMNF32:NM(NM)(NM(NM)):4:1:35,21:958:35253:L%1:LA:P%4:D$PR$:L%(D$):LS:WW:82o.>FZ:P%3:D%(0)254:L%1:LA:P%4:D$PW$:L%(D$):LS:WW:82u.@.BFZ:RS:DR:D%(0)PE:P%13:L%1:LA:WW:9/DRLN:MU:MZ0MU:MU$(MZ):MZ::MZ1(40(MU$(0)))2:" ";::MU$(0):(22MU2)2(MU:LA:RS:82:-*D$(B$,15):P%4:L%15:GS:PP$D$:DR:82T-,PE0PR$"":PW$"":`-.RS:82w-0GS:PR$D$:DR:82-2RS:82-4GS:PW$D$:DR:82-6-8FZ:P%3:D%(0)252:L%1:LA:P%4:D$PP$:L%(D$):LS:WW:82-:PE0ı..<FZ:P%3:D%(0)6 ,"",23:39:2:524I,F$(0)MU$(X):FV%(0)122X:X1Z$PR$Y,X2Z$PW$i,X3Z$PP$y,78:AD544,Z$""ĺ"";:538,Z$(B$,(Z$))ĺ"";:538, X1PR$Z$,"X2PW$Z$,$X3PP$Z$,& -(FZ:P%3:D%(0)252:L%1:Z%(3,0)1:Z%(4,0)62:Z%(5,0)201:Z%(6,0)201:Z%(7,0)210:Z%(8,0)0:Z%(16,0)8:Z%(17,0)1000:Z%(18,0)8INuZF$(0)"PAL LEARNING"(B$,12)IXuD$(B$,30)IuIٹ226,15:227,15:47082,1:46050:S5S1S2S3S4ɀ̀B( ;:12080H,/"---";.H0/32:C11ĺDS;:12100DH:/DI0ĺDI;:12100dH?/CT%4CT%6ĺ"ALL";:12100pH@/"---";HD/37:TE0ĺTE;:12110HI/"---";HN/D91:D81HS/WB%,D7H/H0uF%0:Z%(20,F%),ZF$(F%)H:uP%0:L%0:B%0:E%0:D%0gIDuZ%(1,0)13 LEARNING"(B$,12)#XuD$(B$,30))upٹ226,20:227,15:47082,1:46050:"FROM 20,15 TO "(226)","(227):S5S1S2S3S4ɀ̀B(8mBmKBKRV0BSESV1CR NB V2HZA@ZZ[:D91(D9$):X$X$(((D9$,D9,1))128):D93E(9*]0uF%0:Z%(20,F%),ZF$(F%),D%(100)z:uP%0:L%0:B%0:E%0:D%0DuZ%(1,0)13:Z%(3,0)1:Z%(4,0)62:Z%(5,0)201:Z%(6,0)201:Z%(7,0)210:Z%(8,0)0:Z%(16,0)8:Z%(17,0)1000:Z%(18,0)8NuZF$(0)"PAL226)","(227):S1S2S3S4ɀ̀B(8mBmKBKRV0BSESV1CR NB V2HEmUBLBZA@ZZ[Z3Bm2$%#()BL%0:B%0:E%0:D%0DuZ%(1,0)16:Z%(3,0)1:Z%(4,0)62:Z%(5,0)201:Z%(6,0)201:Z%(7,0)210:Z%(8,0)0:Z%(16,0)8:Z%(17,0)1000:Z%(18,0)8NuZF$(0)"PAL DISCOVERY - SIDE 1 """XuD$(B$,30)uٹ226,20:227,15:47082,1:46050:"FROM 20,15 TO "(( "TXQ",45,12,0,0,1,11)( "TXU",40,12,0,1,1,1:0( 16B1( 0r2( 2,3,40,4,40,1,40,40 ,40,40,3,40,40 ,40,403( 255,255,255;(<(D9$:X$"":D91(D9$):X$X$(((D9$,D9,1))128):D9E(*0uF%0:Z%(20,F%),ZF$(F%),D%(150):uP%0:( "SDT",44,13,0,0,0,1. ( "SKI",4,7,0,1,1,1G( "SOU",13,7,0,1,1,1b( "SQT",39,13,0,0,1,1}( "STR",12,4,0,1,1,1( "TEX",5,12,0,1,1,1( "TOP",1,1,0,1,1,1( "TXD",18,12,0,0,0,1 ( "TXL",28,12,0,1,1,1#( "TXO",29,12,0,1,1,1&30) uPٹ226,20:227,15:47082,1:46050:"FROM 20,15 TO "(226)","(227):6)","(227):TO "(226)","(227): TO "(226)","(227):TO "(226)","(227):TO "(226)","(227):TO "(226)","(227): "(226)","(227):28):D9 E(*70uF%0:Z%(20,F%),ZF$(F%),D%(150)T:uP%0:L%0:B%0:E%0:D%0DuZ%(1,0)16:Z%(3,0)1:Z%(4,0)62:Z%(5,0)201:Z%(6,0)201:Z%(7,0)210:Z%(8,0)0:Z%(16,0)8:Z%(17,0)1000:Z%(18,0)8NuZF$(0)"PAL DISCOVERY - SIDE 1 """XuD$(B$,Z%(1,0)16:Z%(3,0)1:Z%(4,0)62:Z%(5,0)201:Z%(6,0)201:Z%(7,0)210:Z%(8,0)0:Z%(16,0)8:Z%(17,0)1000:Z%(18,0)8NuZF$(0)"PAL DISCOVERY - SIDE 1 """XuD$(B$,30)uٹ226,20:227,15:47082,1:46050:"FROM 20,15 TO "(226)","(227):' 28,12,29,12,45,12,40,12 40( 16<1( 0l2( 2,3,40,4,40,1,40,40 ,40,40,3,40,40 ,40,40r;(<(D9$:X$"":D91(D9$):X$X$(((D9$,D9,1))128):D9E(*0uF%0:Z%(20,F%),ZF$(F%),D%(150):uP%0:L%0:B%0:E%0:D%0qDu;BU$;BU$;:K$"":410& XES560S Y(K$)(2(K$"Y")):Y0āX1Y:BU$:Xe &K$(ES):590 0(K$)0İ700:(7);"I NEED A ";::" YES ";::" OR A ";::" NO ";::".";:X1:Y1:420 :(7);:420 NX700:(7);"PUSH ";::" SPACE B0x DuZ%(1,0)16:Z%(3,0)1:Z%(4,0)62:Z%(5,0)201:Z%(6,0)201:Z%(7,0)210:Z%(8,0)0:Z%(16,0)8:Z%(17,0)1000:Z%(18,0)8 NuZF$(0)"PAL DISCOVERY - SIDE 1 """ XuD$(B$,30) u226,20:227,15:47082,1:46050:"FROM 20,15 TO "(226)","(227):S%922:CR%926 S'DD2m V'CALCLOC800:800,72:801,165:802,37:803,32:804,193:805,251:806,104:807,96s ;( <(D9$:X$"":D91(D9$):X$X$(((D9$,D9,1))128):D9 E( * 0uF%0:Z%(20,F%),ZF$(F%),D%(15(784)) :uP%0:L%0:B%0:E%0:D%384:KR16368:V00:BS136:ES155:V1128:CR141:NB20:V250H %'ES$(ES)Z )'UB256:LB157r .'ZA192:ZZ219:Z332 8'BU$" "(8)(8)"-"(8) B'IV%50:CH%36:CV%37 C'WB%35 G'BL%40:BH%41 L'EP%958:EL%868 Q'BS%1008:FS%1036:US%998:D12:"PLEASE WAIT A MINUTE"^ AN$(30),AN%(30),AA%(20,3),S%(39,0),HQ%(50,3),C%(50,2),LI$(50) 226,27:227,15:47082,1:45568: CHAIN TO GET NAME AND OBJ 'B4$(" ",40) 'B$(B4$,30): $'KB16 :*JUNE 29 AFTER FINAL CHANGESgF%0:B%0:P%0:L%0:E%0:D%0:D0:C%0:Z7%0:Z9%0:D$""r28000S533521:S1S53:S2S13:S3S23:S4S33I%0:M%0216,0:5491545337,255:45338,126(10000-30000 :10:I2:N2:JII::445/SA4ĺ"";:370AXX1X4:305O]FL1:800b:E0:P$(0)"IS THIS A LABEL FORMAT?":24:1:"(FOR PRINTING MAILING LABELS, ETC.)";:275:I$"Y"E1Hg:"(DATE) REPORT TITLE (PAGE #)";:L2$:"YOUR REPORT 01ĭT%(MF%(F100(F100)))4570=&(F224F245)F250570a+DH%(II)ĺLT$(DH%(II)1)" ";0DD%(II)ĺDD%(II)" DIGITS AFTER DEC. ";5DH%(II)DD%(II)İ2:F200585?RF100(F100):T%(R)5L%(R)5585DF100ĺ"PRINT CODES";:2DF%(II):"FIELD #"II": ";:F201RF100(F100):(F$(MF%(R))B$,27);:545qF244ĺ(LT$(F245)B$,27);:545F224ĺ(DC$(F224)B$,27);:545("COMPUTED FIELD #"(F200)B$,27); !" TAB="DT%(II)" LENGTH="DL%(II);:2:" ";:F21(I)));>" "("+-*/^",DO%(I),1)" ";:DC%(I)2ĺD2(I);:500^D2(I)200ĺ"C-"D2(I);:500sF$(MF%(D2(I)));2::2:2J1:I1E%(0):2:". . . . DATA LINE #"I" . . . .";:2:(E%(I)E%(I1))I1ĺ"(BLANK LINE)";:2:585KIIJE%(I):Fа2:2:IE%(14)1E%(10):RH$(I);:2::2sE%(11)ĺ"COLUMN TITLE LINES:";:2:2:I1E%(11):DH$(I);:2::2:2E%(13)505"COMPUTED FIELDS:":2:I1E%(13):"C-"200I": ";:DC%(I)1ĺD1(I);:485D1(I)200ĺ"C-"D1(I);:485F$(MF%(DR13430.:1185:SP$(0):PR1:2:X4450<715:SL0X2:SP$(1):0:PR0:365"DATA FORMAT => "R$(4);:2:L2$;:2:2:"REPORT WIDTH = "CL:2:2:E%(14)ĺ"COMMENT LINES:";:2:2:I1E%(14):RH$(I);:2::2)E%(10)E%(14)ĺ"FOOTNOTES:";:E%(13):I%(1)0:I%(2)0:I$(D1(U)):DC%(U)1I%(1)D1(U)UDC%(U)2I%(2)D2(U)oDC%(U)2I$(D2(U))815::UE%(13)EE80023:1:958:PT%(0)1:P%(0)0:V0:Z0:SLA%(0) 24:1:"TURN ON PRINTER & PRESS RETURN";:16368,0:1:320"hO20:Y0Ĵ(X1)1800,6107mR%(X)Y::6:K$r18:1:958:"ENTER YOUR CHOICE (1 TO 4):";I$:A(I$):A1A4ĺ"";:370wA2EE1:(X1)1395,610|A3R%(X)0:305A1595X1İ920:420100:925:E%(13)420:U1GE OF LIST";YV0:Z0:PH%(0)1:PV%(0)22:PT%(0)1:PL%(0)2:P%(0)0:PI%(0)0:PF%(0)0:P$(0)"ENTER YOUR CHOICE":R%(X)2P$(0)P$(0)" (1 TO "(R%(X)(E%0))")"^90:YP%(0):I$""YR%(X)(E%)(E%0)ĺ"";:350cE%YR%(X)1Ģ3:1:958:A0:,X1:54915Z1EE0:P%(0)0:A0:FL0:O21:SL0::7:"=> CHOOSE ";:X1ĺ"PAGE";:315g6"DATA";{;" FORMAT <=":@870:E%335EAA1:A19Ĺ32,20:3JR%(X)" "R$(X):A36320O32,0 T23:1:H$;:E%ĺR%(X)1" => DISPLAY NEXT PA(B$,M2)I$(T$(G),M2)6P%(G)I$(P%(G))<SI%(G)I$(I%(G))Yn D(G)I$(D(G))tT$(0)""V0:Z0:PT%(0)6:PL%(0)1:PH%(0)1:PV%(0)23:PI%(0)0:PF%(0)023:1:868:90:I$""ĺ"";:285"V1:'1125T$(G)(B$,(T$(G)))220( T$(G);:? P%(G)0ĺP%(G):H 220_ I%(G)0ĺI%(G):h 220} D(G)0ĺD(G): 220 T$(G);: M2ĺ(L$(TX%(P)),M2);: PV%(I):OPH%(I)(P$(I))1(P6)5:O:P245,255,265,265T$(G)(I$))32767150% I%(G)(I$):155R (I$)9((I$)((I$)))((I$)0)150f D(G)(I$):155{ "";:MM(MV) CH0:: PV%(I):PH%(I)::P$(I);::P6ĺ"(Y/N)"; " ";:P185,195,205,205,170,170,215,215,215 (T$(G))0220 T%(I):M2PL%(I):GPI%(I):S ZMVZ:80:160::MVZ:80:M80:I$"":M11:230:3 d24:1:958:"........ ONE MOMENT PLEASE ............";: iCH155 nP120,130,140,140 sT$(G)I$:155 x(I$)255(I$)0150 }P%(G)(I$):155 (6J <36,(36):I$""P6CHP4(36)O1ĭ(I$)M2ĺ(B$,M2(I$));S @105s BR27M11:MM1(MV):105 DR8N0ĺ"";:3 FR8Ĺ36,(36)1:(95);:36,(36)1 H(I$,1)"."M80 LN1I$(I$,N1):3 NI$"":3 PIPF%(M):PP(R39R42)(R59R64)50< P5(R45(R47R58))50S P3R46M81:50[ 52h P530u R3252} 50 P635 R78R8950 !52 #P3M8R3650 %R48R5752 2I$I$M$:M$;:M8M8(R46):NN1:3 4R136%:CV%,D9:CALCLOC:D3%(BH%)256(BL%)@&E10:D9D6%E1D7%Y(E239:D9D4%E2D5%e)D8E11}*D8D81:T(D3%D8)0T0T63TT128:T64T127TT64DT224T156ND3%D8,TXD8E21834ZD9]D9%1:D8%1b128T191TT64,T192T223TT128GT225T250TT160WT224T92eD3%D8,TuD8E21734}D9D9%1:D8%1 NORD9%(CH%):D8%(CV%):D7%D%(102)1:D6%D%(103)1:D5%D%(104)1:D4%D%(105)1(D9D6%D4LATD9%(CH%):D8%(CV%):D7%D%(102)1:D6%D%(103)1:D5%D%(104)1:D4%D%(105)1D9D6%D4%:CV%,D9:CALCLOC:D3%(BH%)256(BL%)E10:D9D6%E1D7%E239:D9D4%E2D5%D8E11D8D81:T(D3%D8)T0T63TT64TE10:D9D6%E1D7%,`E239:D9D4%E2D5%8aD8E11PbD8D81:T(D3%D8)ihT64T127TT64rT128T191TT128|T192T223TT192T225T250TT224D3%D8,TD8E21634D9D9%1:D8%1 F x SKI5D9D%(102):D90āI1D9:EL%:CR%:I;E TEXbCT%3900,3800,5500,2800h6r@ INVJD9%(CH%):D8%(CV%):D7%D%(102)1:D6%D%(103)1:D5%D%(104)1:D4%D%(105)1TD9D6%D4%:CV%,D9:CALCLOC:D3%(BH%)256(BL%)^00,4700,4800,4900,5000:1090nI52ĴI405100,5200,5300,5400,5500,5600,5700,5800,5900,6000,6100,6200:10908I232ĴI9000,9100,9200:1090=BCL TOP V34,(CV%) CLE:  CURD%(102):D%(103)nDI11ĴI1100,1200,1300,1400,1500,1600,1700,1800,1900,2000:1090I21ĴI102100,2200,2300,2400,2500,2600,2700,2800,2900,3000:1090I31ĴI203100,3200,3300,3400,3500,3600,3700,3800,3900,4000:1090I41ĴI304100,4200,4300,4400,4500,46RD9%(CH%):D8%(CV%):D7%D%(102):D6%D%(103)1:D5%D%(104)1:D4%D%(105)1*D9%(CH%):D8%(CV%):D7%D%(102)1:D6%D%(103)1:D5%D%(104)1:D4%D%(105)1X(36):Y(37):1:24:868:(KB)155İ9700:K$"Y"15020ID%(101):I0ij0ĺ" ";:BS%:BS%:BS%:BS%:KL%0:405|900:(7);"I NEED A ";::" YES ";::" OR ";::" NO ";::".";:X1:Y1:420KL%1:K%(KL%)KE%:410KR,0:TC0KE%(KB):KE%V1590TJ0510TCTC1:TCTJ510KE%1NN";::" WHEN YOU ARE DONE";:X1:Y1:420<KE%ES440VKL%0ČBS%:BS%:BS%(95)" ";:X14:BS%:X:K$ES$:490KE%217ĺ"YES";:480KE%206ĺ"NO ";:480KE%CRKL%0İ900:X1:Y1:" ":K$(K%(1)V1):490'KE%BSKL%PLEASE GIVE ME YOUR ANSWER.";::X1:Y1:2104 r` |K$"":KL%0āX1KL%:K$K$(K%(X)):Xf l  KL%0:TJ200:AL1 " ";:X14:BS%:X 900:X1:Y1 100:KE%0430 KL%0475+900:(7);"REMEMBER, PUSH ";::"RETUR267 (95);, BS%:BS%:KL%KL%1:210< (7);:210 ,KL%0İ900:(7);"REMEMBER, PUSH ";::"RETURN";::" WHEN YOU ARE DONE";:X1:Y1:210 6TM0ĺ(7);(7);:210 @TATATW:TATMİ900:X1:Y1:K$(255):390. J900::(7);(7);"L%1:K%(KL%)KE%V1:(K%(KL%));:210\ KE%CRİ900:X1:Y1:(B4$,ALKL%1);:BS%:380m KE%ES260 KL%0ĺ(95);:BS%:257 X1KL%:BS%:X:X1AL:(95);:X:" "; K$ES$:390 KE%BSKL%0270 BS%:(95);:KL%ALĺ" ";: TJ0110$ TCTC1:TCTJ110/ KE%1J TC255TCTC255:190X 799,TC:m KL%0:TA0:K$"" X1AL:(95);:X:" ";:X1AL1:BS%:X TJTR:KL%0TJTW 100:KE%1300% KE%BSKE%CRKE%ESKE%LBKE%UBKL%ALKL%K(4)ĺ"Q("D%(4)") ";. -D%(6)ĺ"D("D%(6)") ";I 2D%(7)ĺ"T("D%(7)") ";j 7:"TYPE 'CONT' TO GO ON.":u <15165 dKR,0:TC0:CU%0 nCU%0120 u:" ";: wBS% xKE%(KB):KE%V1190 CU%CU%1:CU%10ĺ(95);:BS% CU%40CU%0e;STUDENT EXECUTOR 3/28/83*216,05 54915n::10:1:"PLEASE WAIT WHILE I FIND THE QUESTIONS"y15000P%1:L%8:GA:"MISSING "("CONLESQUETXLTXQDIATXDARSTXUTXO",D%(5)32,3)" O("D%(0)"-"D%(1)") ";#D%(3)ĺ"L("D%(3)") "; (D%D81D9:EL%:CR%:D8'&' PUP,'&6'0 PDW<'F' LVUL'V' BTB\'Rf'\ HQTu'fS714790'pHQ%HQ%1:HQ%(HQ%,0)QN%(QN)'zD913:HQ%(HQ%,D9)D%(D9101):D9'' PQT'IT0:11500''$ SQTN(.FZ:D%(0)G:D%&PPSD%(103):SKD%(104)#&Z11400)&3& PDI>&10800D&N& PGDY&10800_&^i&h PRI&rD9D%(102):D90ĖD9:D%(103)&|D86:D9641:D%(D9100)255ĂD9&D9D91:9800&D9D%(104):D90āD81D9500:D8'D9D%(105):D90%FZ:D%(0)G:D%(1)OB:D%(4)0:D%(5)4:D%(6)0:D%(7)D%(102):P%1:L%8:LA:D%P:P%3:LNb%IT0|%PSD%(103):SKD%(104)%11200%2%< TXO%FFZ:D%(0)G:D%(1)OB:D%(2)0:D%(3)0:D%(4)0:D%(5)10:D%(6)0:D%(7)D%(102):P%1:L%8:LA%KIT0D92ğ($ (CH%)39ĺ(SN$,40(CH$));.$ 4$ >$ PRUU$ D9D%(102):D91Ğa$ D92ğm$ UA$;:s$> }$H PRC$R D9D%(102):D91Ğ$\ D92ğ$f CA$;:$ $ LVD$$$ LDA$$j$k$t BRA$$ TXLY I1AN%:AN%(I)0ĂI:2975T# D81:D90(AN$(I))1:((AN$(I),D91,1))0ĂD9# 900:D9$E$:E$AN$(I):9800:E$D9$:X1:Y1# (7);:KL%0āI1KL%:BS%:I# KL%0ČBS%# 2920# AA%(QN,3)DI# # NAM# D9D%(102):D91Ğ$ MD%(102)28:TWD%(103)28:2001"m K$ES$2940H"r 9700:K$"N"2900S"w 15020n"| K$(255)DI97:2985" UA$"":KL%0āI1KL%:UA$UA$(K%(I)128):I" I1AN%:AN%(I)0AN$(I)UA$DIAN%(I):AA%(QN,2)I:2985" I:D%(104)1DI98:2985#6)DI:D%(7)D%(102):P%1:L%8:LA:D%P:P%3:LN8! IT0R! PSD%(103):SKD%(104)]! 11100c!J m!T ANS!Y UA$"":I1AN%:AN%(I)99ĂI:!^ CA$AN$(I):AA%(QN,1)I:AA%(QN,2)0:AL0:I1AN%:(AN$(I))ALAN%(I)0AL(AN$(I))!c I:AL0ij"h T0 L5%12789: D9D8%1L%1:D%(D9)162Ă:2789N D941D8%2780X 2789^ y AN%AN%1:AN%302789 AN%(AN%)L5%:AN$(AN%)(D$,D8%2,D9D8%1):D8%D91:CF%1:2710 TXD/! FZ:D%(0)G:D%(1)OB:D%(4)0:D%(5)7:D%(7 D%(D9)1602753I D%(D9)176D%(D9)185DC%DC%1:DC%42753S 2789[ D9e 2789| D9D8%DC%02789 L5%0:D8D8%1 D8D81:D%(D8)160DC%DC%1:L5%L5%(D%(D8)176)10DC%:L5%1012789 D8D912761 D8%D91:2710 P%P%D8%:D8%02 L%LN%P%:L%100L%100S GA:D$(B4$B4$B4$,L%):GS D9D8%L%1:D%(D9)160Ă:D8%D9:2710 CF%02733 D%(D9)1722789 CF%0:D8%D91 D%(D8%)1622770 DC%0:D9D8%L%1 D%(D9)172CF%0:275 LATn D%(0)G:D%(1)OB:D%(4)Q:D%(5)5:D%(6)0:D%(7)D%(102):P%1:L%8:LA:D%P:P%3:LN:RR:E%02789 L%2:P%940:I021:P%P%40:GA:D%(0)164D%(1)164Ă LN%I409:L5%1:CF%0:P%9:D8%0:2713 P%D8%LN%2790 D8%55272D%(1)OB:D%(4)0:D%(5)4:D%(6)SS%:D%(7)PG:P%1:L%8:LA:D%P:P%3:LN:RR:E%02278v9900:2000::PG25522752290PG12290 SOU (7);V ` ATT  LMR LM%D%(102) ( CLW2  $SS%(QN)SS%SS%(QN):PG0:2275GI1AN%:AN%(I)101ĂI:2280cD9(AN$(I)):D902280r:D70:J0JJ1:D8((AN$(I),J,1)):D8176D81852280D7D7(D8176)10(D9J):JD92245PG0:SS%D7:SS%(QN)D7WPGPG1:FZ:D%(0)G:RNA%0:SS%0:QN0(WQNQN1:107003\10900CfDI962190^kDI99N3N31:N4N41omDI99N30pNA%QN:N3N2N4N12180uN1N4N0QNN2N3N0QNST2:2190zQNNQ%2135ST2:2190ST1 STRPS0:IT0:SK0D%(D9101)255ĂD9+900:9800:X1:Y1PAL1:KL%0:500:KE%128GC2088f KE%0TA0:2087%TM0TATATW:TATM2088'(7);:2020(900:X1:Y1*4 LQU>NQ%D%(102):N0D%(103):N1D%(104):N2D%(105):N30:N40H10600l PAUvI1D%(102)500:I%/ GET_TMD%(103)28:TWD%(104)28:GCD%(102):TA0(GC13GC32)D%(105)2552050900:"PRESS ";::GC13ĺ"RETURN";:2045"SPACE BAR";:" TO GO ON...";:X1:Y1:2070D85:D9440:3:QK%(7)1:QL0:CT%3:Z70*DP%(0)G:DP%(1)OB:DP%(5)6:DP%(6)DI:DP%(7)1:DP%(3)P:11900n7:*RR:E%0108207?*DP%(0)0:DP%(1)0:11900:RR:E%ij7D*CT%4:LD0:S70:SS%07I*LDLD1:LD25LD1:DP%(7)DP%(7)1!8N*11900:RR:D$B4$" ":P%LD4132:L%CT%2:10006)1041056h)HQ%0:I1NQ%:QN%(I)I:IH6m)X(0):X(1)]6o)I1HK:X(1):k6r)NQ%N0ı6w)J((1)NQ%1):JNQ%āIJ1NQ%:QN%(I1)QN%(I):I6)NQ%NQ%1:106107)QQN%(QN):AA%(QN,0)Q:QK%(0)G:QK%(1)OB:QK%(3)P:QK%(4)Q:QK%(5)LP%(I)::P%1:L%8:LA:RR:E%ij`5(D$B4$" ":P%LP4132:L%41:GS:L%1:GA:D%(0)255103305(E$D$:B%202:L%41:GA:B%05(D9D%(101):ST1D920104105((KB)155İ9700:K$"Y"G0:150205(ST2D921104105((D920D921)ST1ij 6)MA%0 42(B4<(I120:P%(CL%1)418I2:GN:D%0PN%(I)D%:IM4F(I1ij_4P(PN%(I)0:PN0|4Z(PNPN1:PN%(PN)0100904d(PPN%(PN)4(LP%(0)G:LP%(1)OB:LP%(5)2:LP%(3)P:LP%(7)1:LP0:CT%24(LPLP1:LP25LP1:LP%(7)LP%(7)1!5(I07:D%(I)0'3V'DR%1D%(0)33D%(0)351001073`'ST0:10300N3j'ST2DR%110150_3t'ST1DR%1j3~'100103'CL%CL%1:200003'D%(0)255D%(0)0101503'CL%CL%1:200003'(D%(0)34D%(0)253)CL%1101703'CL%1102503'DR%1:100104 (:MA%0*2'CL%CL%DR%:CL%0MA%1:1029052$'20000^2)'D%(0)48D%(102)D%(1):5800:100102*'D%(0)56D%(102)D%(1):6200:100102.'D%(0)2531001028'D%(0)255102502B'D%(0)27DR%1CL%CL%D%(1)1:100103L'DR%1D%(0)34D%(0)251001TT64"1&T128T191TT128=1&T192T223TT192X1&T225T250TT224i1&D%(D9)T:D91&LM%0ĭLM%(CH%)1ĖLM%1&I%0:33527:33524:CR%1&I2199051&PS0āI1PS500:I1&SK0āI1SK:EL%:CR%:I1'2'CL%0:DR%11:HY1:0H&D9D8ıE0M&ID8D9:(E$,I,1)(150)ĺ(E$,I,1);::f0R&:(((E$,I,1))64);:::o0&I10&II1:P%I409:L%40:GA0&D%(0)164D%(1)16499700&IT099500&J3901:D%(J)160ĂJ:99501&D90J:TD%(D9):T64T127D64(D9$)D7:AN%AN%1:AN%(AN%)D9%:AN$(AN%)(D9$,D6,D7):D6j/)D8D92:D841ĭD%(D8100)2556120p/./8LSD%(102):/%HX(CH%):HY(CV%)/%900:1:23:(7);"DO YOU WANT TO QUIT? ";:400:K$ES$K$"N"/%1:24:868:23:868 0%HXD8)=.AN%(AN%)D%(D899):AN%(AN%)255AN%(AN%)AN%(AN%1)U. AN%(AN%)1026185j.(AN$(AN%))4ij.D735:D6D%(D7100):D6176D6185ij.D7.D9$AN$(AN%):D9%(((D9$,1))176)10((D9$,2,1))176:D7((D9$,3,1))176.$AN%AN%1A/&3)(D%(102)).-GC32:TM0:D%(105)255:2020?-OO:E%5815\-Z%(4,0)(982)10(983)b-h-r-  IQT-IT1:11500-f-p OBJ-- LDM-D83-D9D841:D%(D9100)255ĂD9-D9D86190.AN%AN%1:AN$(AN%)(E$,D8,D911:AA%(QN,3)D%(102)ĂQN:56906,QQN%(QN):S70<,:F,D ECEO,NS70U,f,D%(102)0ıx,Z%(19,0)įCS,Z%(5,0)200D%(102),:8,"PLEASE PUT THE "(ZF$(0),13)" SIDE "D%(102)::"DISKETTE IN DRIVE "(982) -ZF$(0)(ZF$(0),2P%3:LN+'IT0++,PSD%(104):SKD%(105)6+611100<+rF+| TXQ+FZ:D%(0)G:D%(1)OB:D%(4)Q:D%(5)5:D%(6)0:D%(7)D%(102):P%1:L%8:LA:D%P:P%3:LN+IT0+PSD%(103):SKD%(104)+11000++ CQU+S71:NA%05690#,QNNA%" OF "NQ%" QUESTIONS"*%* PNR:*D80:NA%05340^*D91NA%:AA%(D9,3)99D8D81f*D9*"YOU GOT "D8" OUT OF "NA%" QUESTIONS RIGHT"** SDT+"FZ:D%(0)G:D%(1)OB:D%(4)0:D%(5)7:D%(6)D%(102):D%(7)D%(103):P%1:L%8:LA:D%P:)NQ%D%(102):N0D%(103):N1D%(104)/)10600D) NA%0:SS%0:QN0W) QNQN1:10700b) 10900r) DI965190)NA%QN:QNNQ%5131)11600)F)P PQN)ZS71ĺ"THIS WAS QUESTION ";QN;" OF "NA%;" QUESTIONS":5290*d"THIS IS QUESTION "QN(1)OB:D%(4)D%(102):D%(5)5:D%(6)0:D%(7)D%(103):P%1:L%8:LA:D%P:P%3:LNW(3IT0q(8PSD%(104):SKD%(105)|(B11000(~( TXU(FZ:D%(0)9:D%(1)0:D%(2)D%(102):P%6:L%3:LA(IT0(PSD%(103):SKD%(104)(11300(( DQU$:D9D%(0):D925420150;GNJLT%(D9):J0ER%20130:20190{GNNL%(CT%)NL%(CT%)1:LI$(CT%,NL%(CT%))(D$,ET%(CC%(J,1))1)GNIGND9%25520110GND9%1ER%20170GNGٹ33,33:2:(9)"K"(9)"80N"::(12):0:%Hٹ226,22:227,15:47082,1:460F*ND%(0)1:D%(1)DS:D%(2)((CL%1)241):P%6:L%3:LAWF4NRR:E%0ER%20020:20090tF>NP%(CL%1)419:L%2:GAzFzNFND9%0:NL%(CT%)0:D$(B4$B4$,41)FND9%D9%1:D%(0)D9%:P%8:L%1:LA:RR:E%020170GNI023:P%I419:L%41:GS:L%1:GA8:LA:RR8EfDBJ0NG1:C%(BJ,0)GC%(BJ,1)OBĂBJ:hEpDL%1:P%BJ339:GA:D%(0)99D%(0)DI:LAEzDP%37:D%(0)BJ1:LA:DI99P%38:LAEDWO:E%0ijEDEPFD$E$:P%1:L%(D$):LS:B%202:GA:B%0:E NFZ:D%(0)G:D%(1)OB:P%1:L%2:LA7D9:16270DR?D9?D\?900:"TYPE 1,2,3,4 ONLY";(7);:X1:Y1JDf?16185`D?D91EX%0:NE%0fD?xDhBZ%(19,0)įCSDmBLS(LS0)LS:ZF$(0)"PAL LEARNING - SIDE "(LS)" ":Z%(5,0)100LS:5815DrB E\DFZ:D906:D%(D9)255:D9:D%(7)SN%:P%1:L% PAL ";::" MASTER DISK IN"::"DRIVE 1"ZC~20:"PRESS ANY KEY TO CONTINUE";:A$:60010)ˤ;ƀ€Ѐ ̀)ŀĀDÀڷڹD)QlS5S1S2S3S4ɀ̀B(8mBmKBKRP%1:L%2:LA:D%(0)1:D%(1)DS:D%(2)((CL%1)241):P%6:L%3:LA:RR:E%ijkB>NP%(CL%1)419:L%2:GA:B`KR,0:226,6:227,12:228,0:229,6:60015Be47082,1:46240,1:Bg(982)160020Bj:46181:Bo768)Ct:5:"PLEASE PUT THE ";::"BFA\DD$(SN$B4$,7):P%1:L%7:LS:P%8:L%1:D%(0)SN%:LA:RR:E%ijuAfDBJ0NG1:C%(BJ,0)GC%(BJ,1)OBĂBJ:ApDL%1:P%BJ339:GA:D%(0)99D%(0)DI:LAAzDP%37:D%(0)BJ1:LA:DI99P%38:LAADWO:E%0ijADLB NFZ:D%(0)G:D%(1)OB:OTHER":SU$" OBJECTIVE? ";:400:K$ES$K$"N"4@>h@t@::5:"DO YOU WANT TO DO A PAL LESSON?";:400v@~@K$"N"ı@@K$"Y"16500@@@hBZ%(19,0)įCS@mBLS(LS0)LS:ZF$(0)"PAL LEARNING - SIDE "(LS)" ":Z%(5,0)100LS:D%(102)LS:5815Ar5?.;G0:16000:K$"Y"15190)?:;15195B?=;16000:K$"N"15195J?G;G0\?L;Z%(19,0)įCS?M;ZF$(0)"PAL DISCOVERY SIDE 1"" ":Z%(5,0)201?V;60000:226,27:227,15:46044?[;60000:226,4:227,9:46044.@>::SN$","::"WOULD YOU LIKE TO TRY AN0 >:10000>:175003>:CS:I010:SS%(I)0:D>:DI9915090O>:16000f>:K$"Y"G0:15180q>:15195>:16500:K$"N"15020>;17000>;::8:10:"PLEASE WAIT WHILE I GET"::8:"THE LEARNING EXERCISES.":DSDI:10000?;CS:MA%115161:QK%(7)QK%(7)1I=-I07:D%(I)QK%(I)::P%1:L%8:LA:RR:E%011720^=-QK%(4)0QL1ijr=-QK%(4)0:11710=-D$B4$" ":P%QL4132:L%41:GS:L%1:GA:D%(0)255ı=-E$D$:B%202:L%41:GA:B%0:=|.J07:D%(J)DP%(J)::P%1:L%8:LA:>:DS116901E%(13)ı7@D%(3)7:FZ:P%1:L%4:LA:I1E%(13):D(I1)D1(I)::L%5E%(13):P%5:L5:WW:E%įWO48BD%(3)8:FZ:P%1:L%4:LA:I1E%6:5606,LA:WW:E%įWO 6.160E%(11)56662D%(0)0:D%(1)7:D%(2)R%(4):D%(3)5:I1E%(11):FZ:D%(4)I:D$DH$(I):D%(5)(D$):L%6:P%1:LA:P%7:L%D%(5):LS:WW:E%įWO6466DC574!78D%(3)6:I1((DC1)8)1:FZ:D%(4)I:P%1:L%5:LA:(9)4:D%(3)1:I1E%(9):D%(I3)DF%(I)::556:D%(3)2:I1E%(9):D%(I3)DL%(I)::556:D%(3)3:I1E%(9):D%(I3)DD%(I)::5566*D%(3)4:I1E%(9):D%(I3)DT%(I):I:556:D%(3)9:I1E%(9):D%(I3)DH%(I)::556:D%(3)10:I1E%(9):D%(I3)RT%(I)::557,15:47082,1:46044: RUNPRS4ɀ̀B(8mBmKBKRV0BSESV1CR NB V2 EmUBLBZA@ZZ[Z3Bm2$%#()B27):/Jٹ226,20:227,15:47082,1:46044: RUǸB(,oBoKBKRV0BSESV1CR NB V2 E oUBLBZA@ZZ[Z3Bo2$%#()B%(D9):J0ER%20130:20190[INNL%(CT%)NL%(CT%)1:LI$(CT%,NL%(CT%))(D$,ET%(CC%(J,1))1)bINIuIND9%25520110IND9%1ER%20170INIٹ33,33:2:(9)"K"(9)"80N"::(12):0:Jٹ226,22:227,15:47082,1:46050:"FROM 22,15 TO "(226)","(250:"FROM 22,15 TO "(226)","(227):OHٹ226,20:227,15:47082,1:46044: RUN RUNUHٹ226,22:227,15:47082,1:46050:"FROM 22,15 TO "(226)","(227):Hٹ226,20:227,15:47082,1:46044: RUNUNGA:D9D%(0):D925420150INJLTE IN THE FILE.":I12500:I:2050(L PV "I NEED SOME HELP WITH YOUR NAME."` :"HERE ARE THE NAMES THAT START WITH '"(SN$,I)"'":I3ĺj FZ:P%1:L%I:D$(SN$" ",I):LS:J1NS:RSt J".";:4~ P%9:L%12:D$(B4$,12):GS:900:D$;,12)(K$B4$,12):P%9:L%24:LS(WO.\I1(SN$):D$(SN$,I):P%1:L%I:FZ:LSm RS:E%2342 L%I:GS:(SN$,I)D$2342 NSNS1:NS112350$ 2310& NS02380) NS02360. I"8 :::SN$","::"I CAN'T FIND YOUR NAM%FZ:P%1:L%1:D$"A""":LS:NS0ARS:E%0NSNS1:2262NS100ĺ"SORRY, BUT THERE ARE ALREADY 100":"STUDENTS USING THIS DISK.":SN%0:54915:I15000::1040FZ:SN%1:100LA:WW:E%D%(0)D%(0)1:SN%SN%1:2268 D$(SN$B4$S$SN%0:2999O:"DID YOU SPELL YOUR FIRST NAME RIGHT?";:400:K$"N"2050gK$ES$SN%0:2999:1:5:SN$", I AM GLAD TO KNOW YOU.":"WE ARE GOING TO LEARN A LOT TOGETHER.":::"WHAT IS YOUR LAST NAME? ";:V212:200:K$ES$2040Oz(K$)0āJ1(K$):X((K$,J,1)):X48X57ĂJ:I(K$):ID%(NS)2180700:"PLEASE TYPE IN A NUMBER ";(7);:2150I02200:SN%D%(I)2999:1:5:SN$",":::"HAVE I WORKED WITH YOU BEFORE? ";:400:K$"Y"2300K$E900:D$;5RD$(B4$,12):P%21:L%12:GS:900:" "D$<\If1:19:"----------------------------------------":20:1:"PUSH A ";::" 0 ";::" IF YOUR NAME IS NOT THERE."p22:1:868:"WHICH NUMBER IS YOUR NAME? ";:V22:200:K$ES$SN%0:2999A:SN%D%(0):2072 NS02200/NS12100M 2700:K$ES$SN%0:2999^/K$"N"2210h329994:1:5:"WHICH ONE OF THESE IS YOUR NAME?">SN%0:100:I1NS:RSH1:P%8:L%1:GA:D%(I)D%(0):D%(0)".";:5:D$(B4$,12):P%9:L%12:GS:CS$=60000:226,22:227,15:45568DB60000:226,4:227,9:46044L::5:"WHAT IS YOUR FIRST NAME? ";:V212:200:K$ES$SN%0:2290SN$K$NS0:SN%0:100P%1:L%7:RS:E%2076GS:D$(SN$" ",7)NSNS1:P%8:L%1:G$)21:(D$,I9,1)" "ĂI9:I920D$(D$,I9)6<WLO0LO2İ10100:LO1cOO:CDrZ%(4,0)DS|9900 SN%0İ8100:K$"Y"SN%0SN%0İ2000SN%01090$G0İ3000.SN%010903G0OB010608(785)10įSPACE BAR ";::" "ME$;QbA$:X1(A$):X132X127Ė1:24:868:X1:Y1:680Zl610sK$"":X1155K$ES$z:X(36):Y(37):1:24:868: M%PM:33521:*IQIQ1:IN0Ğ:IN1:8304IN0:>K:XL%IQ40ĺz I9(D$"Y"ĺBU$;BU$;BU$;:K$"":410- XES560Z Y(K$)(2(K$"Y")):Y0āX1Y:BU$:Xl &K$(ES):590 0(K$)0İ700:(7);"I NEED A ";::" YES ";::" OR A ";::" NO ";::".";:X1:Y1:420 :(7);:420 NX700:(7);"PUSH ";::" K$)0İ700:(7);"REMEMBER, PUSH ";::"RETURN";::" WHEN YOU ARE DONE";:X1:Y1:420a 430 X217K$"Y":"YES";:410 X206K$"N":"NO";:410 XCR(K$)0İ700:X1:Y1:" ":590 XBS530 K$"N"ĺBU$;BU$;:K$"":410 KT0ĺ(7);(7);:2208 rTQTQTC:TQOTK$(255):390~ |700::(7);(7);"PLEASE GIVE ME YOUR ANSWER.";::X1:Y1:220  K$"" 700:X1:Y1 T0:KR,0::" ";(8);: X(KB):XV1470 TT1:HKHK1:T1200560X TTR(XV1:K$K$(X):(X);:TQ0:210D XCRİ700:X1:Y1:" ":390S "XBS330| ,(K$)1ĺBU$;:K$(K$,(K$)1):210 6(K$)1ĺBU$;:K$"":210 @(7);:220 JXESĺ(7);:220 TY(K$):Y0āX1Y:BU$;:X ^K$(ES):" ":390 hO265' TT1:HKHK1:TTC(K$)0360 TTR(K$)0İ700:(7);"REMEMBER, PUSH ";::"RETURN";::" WHEN YOU ARE DONE";:X1:Y1:220 230 V31ĭ(K$)0X160İ700:X1:Y1:K$(254):" ":390! XBSĭXCRĭXESĭXLBXUB(K$)V2X,  STUDENT NAME GOAL 3/28/831DI0İ20000<20340LTR450:TC0W54915a(1000dP%1:L%7:D$(SN$" ",7):LS:P%8:L%1:D%(0)SN%:LATQ0:K$"":220700:X1:Y1:T0:KR,0::" ";(8);: X(KB):XV1'::100:RR:E%0ijI'BJ0NG1:C%(BJ,0)GC%(BJ,1)OBĂBJ:j'P%BJ339:L%1:GA:DGD%(0)'1:3:DG994870'SN$","::"YOU HAVE ALREADY MASTERED THIS OBJECTIVE"::3900[(:::"YOU SHOULD DO A DIFFERENT OBJECTIVE ":"UNLESS Y&B&FZ:D%(0)2:D%(1)G:D%(2)OB:P%1:L%3:LA:RR:E%0ijk&P%6:GA:MD%(0):NQD%(1):NQ0NQ5|&Q2NQNQQ2&"I1Q2:QA%(I)Q%(I):I&,Q1Q2&6Q1NQ4190&@J((1)Q11):JQ1āIJ1Q1:QA%(I1)QA%(I):I&JQ1Q11:4150'^:I%0:33527:33524:%dI"%(%\%Q20:FZ:D%(0)4:D%(1)G:D%(2)OB:P%1:L%3:LA%RS:GA:E%0D%(0)4D%(1)GD%(2)OB4090%P%4:GN:G5OB20D%2P%1:4010: **** TAKE OUT FOR PRODUCTION ***" &Q2Q21:Q%(Q2)D%:P%1:4010$"IS THIS THE OBJECTIVE YOU WANT? ";:4002$2$<FZ:D%(0)G:D%(1)OB:D%(2)0:D%(3)0:D%(4)0:D%(5)10:D%(6)0:D%(7)255:P%1:L%8:LA:RR:E%0ij$FI021:P%9I40:L%40:I0Ė2((G10)):G;"-";OB;$RGA:D%(0)164D%(1)1643990%Z8:GA0#t#~1:5#"YOU SHOULD READ IN THE BOOK ABOUT THE "::"OBJECTIVES WE CAN WORK TOGETHER."::::"I'LL SEE YOU LATER..."(7):I13000:I:SN%0#3999#:#1:3:"I THINK YOU SHOULD START WITH THIS ":"OBJECTIVE:"::#3900::, THE LIST OF "::"OBJECTIVES WE CAN WORK ON TOGETHER."::::"WOULD YOU LIKE TO READ THE LIST"::"WITH ME? ";:400:K$"N"3700"$K$ES$SN%0:3999".9700:PA23700"8G10O10GG1:OBO1:4800:K$"N"K$ES$3000"=G10O103999#B330K$"N"K$ES$3000! 3999#! k! 1:5:"WOULD YOU LIKE ME TO TELL YOU WHERE "::"TO START? ";:400! K$ES$SN%0:3999! K$"N"3600! GC%(0,0):OBC%(0,1):3800:K$"N"K$ES$ī3000! 3999!:PA23700"1:5:"YOU NEED TO READ3500% K$ES$SN%0:G0:OB0:3999} 1:11:958:"WHAT OBJECTIVE WOULD YOU LIKE TO START"::"WITH TODAY? ";:V25:200  K$ES$SN%0:3999 9600:G10O10İ700::"RETYPE THE OBJECTIVE NUMBER"(7);::I11000:I:3320! GG1:OBO1:4800: GG1:OBO1:4800:K$"N"K$ES$30000 3999J I:PAPA1:PA23060Y PA1:3600c 3999 ::3:"----------------------------------------":34,3 1:5:"HAVE YOU READ THE LIST OF OBJECTIVES"::"WE CAN WORK ON TOGETHER? ";:400:K$"N"2ING1ĺ"PUSH ";::"SPACE BAR";::" TO SEE MORE OBJECTIVES." 1:23:"WHICH OBJECTIVE DO YOU WANT? ";:868:V31:V25:200:V30 K$(254)3295 K$ES$SN%0:3999 9600:G10O10İ700::"PLEASE RETYPE THE OBJECTIVE.";(7);::3230&%(I,0)"-"C%(I,1);Ll 18:A$LI$(I):J125:(A$,J,1)(250)ĺ(A$,J,1);:JRq {v (I13)12((I13)12)ING13295 1:18:"----------------------------------------":1:21:"YOU CAN ALWAYS PUSH THE ";::"ESC";::" KEY TO QUIT.":19@ PANT IT.":+ I0NG1:I12(I12)3120E PA2I0Ė1:3:958 1:5:958:"----------------------------------------":1:60 DGC%(I,2)N DG99Ğ:"MASTERED";::3175X DG0ĺ"NOT TRIED";:3175b "TRIED";g 12((C%(I,0)10)):C 100:RR:E%ijE I0NG1:P%3I39:L%1:GA:C%(I,2)D%(0):IW PA1:G0:OB0x P%37:L%1:GA:D%(0)03300 : "THIS IS WHAT YOU HAVE DONE SO FAR..."  PA2Ė1:3::"I AM AT THE TOP OF THE LIST.":"THIS IS THE LAST TIME I CAN PRI:"I SEEM TO BE HAVING TROUBLE.":::"ASK SOMEONE FOR HELP."::I15000:I:SN%0:2999b 100p RR:E%ij :"ARE YOU "; P%9:L%12:D$(B4$,12):GS:900:D$; P%21:L%12:D$(B4$,12):GS:900:" ";D$;"? ";:400   M%(984)J1(K$):X((K$,J,1)):X48X57ĂJ:J(K$):JNS2500m 700:"PLEASE TYPE IN A NUMBER."(7);:2470{ J02200 SN$(SN$,1) SN%0:100:P%1:L%7 K1J:RS: D$(B4$,7):GS SN$D$:P%8:L%1:GA:SN%D%(0) 2999Y( ::' P%21:D$(B4$,12):GS:900:" "D$. J 1:19:"----------------------------------------":20:1:"PUSH A ";::" 0 ";::" IF YOUR NAME IS NOT THERE." 22:1:868:"WHICH NUMBER IS YOUR NAME? ";:V22:200:K$ES$SN%0:2999= (K$)0ĭA78A8957 361* 5P3M8A4657< 7A48A5761k 9D%(N)A:NN1:M8M8(A46):P4ĺ(A);:9v ;87:9 =A13Ĺ36,(36):95 >A27MM1(M1)(SUXM):M11:95 AA8Nĺ"";:9 CP4NN(N1):87:M10:CH1:9% E36,(36)1(ME$"WHEN YOU ARE DONE.":600:K$ES$10280262(j6ي2:(9);"K";(9);"80N":33,33::(12):(12):0:6ٹ226,27:227,15:47082,1:46050:"PROGRAM FROM 27,15 TO "(226);","(227):6ٹ226,20:227,15:47082,1:46044S5S1S2S3ڹDlS5S1S2S3S4ɀ̀B(8mBmKBKRV0BSESV1CR NB V2HEmUBLBZA@ZZ[Z3Bm2$%#()B 4o768W4t:5:"PLEASE PUT THE ";::" PAL ";::" MASTER DISK IN"::"DRIVE 1"4~20:"PRESS ANY KEY TO CONTINUE";:A$:60010)ˤ;ˤ;RIVE 1"4~20:"PRESS ANY KEY TO CONTINUE";:A$:60010)ˤ;ƀ€Ѐ̀))100)#3jOP%0:L%0:B%0:E%0:D%0R3tODS(983)10(982):Z%(5,0)201:Z%(4,0)DS{3~OZF$(0)"PAL DISCOVERY - SIDE 1 """3OD$(B$,30)3O3ٳ3`KR,0:226,6:227,12:228,0:229,6:600153e47082,1:46240,1:3g(982)1600204j:46181:008:FS%1036:US%998:DS%922:CR%92612$ODD22.OCALCLOC800:800,72:801,165:802,37:803,32:804,193:805,251:806,104:807,9628O2BOD9$:X$"":D91(D9$):X$X$(((D9$,D9,1))128):D92LO2VO3`OF%0:Z%(20,F%),ZF$(F%),D%(41((784)10NB$(B4$,30)R1NKB16384:KR16368:V00:BS136:ES155:V1128:CR141:NB20:V250`1NES$(ES)r1NUB256:LB1571NZA192:ZZ219:Z3321NBU$" "(8)(8)"-"(8)1NIV%50:CH%36:CV%371NWB%351OBL%40:BH%411OEP%958:EL%868(2OBS%12S13:S3S23:S4S33$0RNI%0:M%0>0fN45337,255:45338,126I0pN20140T0zN20320Z0N`0N0NAN$(30),AN%(30),AA%(20,3),S%(39,0),HQ%(50,3),C%(50,2),LI$(50)0N:MAIN RETURN0NB4$(" ",40) 1OGRAM ";::" DISKETTE"::" IN ";::" DRIVE ";DD" ":r/((ME$"WHEN YOU ARE DONE.":600:K$ES$10280x/2(/ N:/*NJUNE 29 AFTER FINAL CHANGES/4NF%0:B%0:P%0:L%0:E%0:D%0:D0:C%0:Z7%0:Z9%0:D$""/>N280000HNS533521:S1S53:S1):C%(NG,1)D%(2):P%P%8:L%25:GS:LI$(NG)D$:NGNG1C.&I:9930I.'T.t'::5.~'"PLEASE PUT ";::"PAL DISCOVERY DISK- SIDE 1":::"IN DRIVE "(982).'ME$"WHEN YOU ARE DONE.":600:K$ES$10180.'.'::5B/'"PLEASE PUT THE ";::" PRS TWICE."::I11000:I:SN%0$-G&_-&FZ:D%(0)1:D%(1)0:D%(2)1:P%6:L%3:LA:RR:E%0iju-&NG0:D$(B4$,25)}-&R0-&RR1:D%(0)R:P%8:L%1:LA:RR-&E%09990-&I023:P%I419:L%41:GA-&D%(0)25599906.&D%(0)50C%(NG,0)D%(";:868:V31:V25:200:V300,&K$(254)9790L,&K$ES$G10:O10:9799,%&9600:G10O10İ700::"PLEASE RETYPE THE OBJECTIVE.";(7);::9740,4&GG1:OBO1,9&3999,>&I1:PAPA1:PA29705-C&1:19:958::"YOU HAVE LOOKED AT THE OBJECTIVE+%1:6:9583+%GC%(I1,0):OBC%(I1,1):3900:N+%(37)13I1NG19790+&1:21:"YOU CAN PRESS ";::" ESC ";::" TO LEAVE.":19+&PA2ING1ĺ"PUSH ";::"SPACE BAR";::" TO SEE MORE OBJECTIVES.", &1:23:"WHICH OBJECTIVE DO YOU WANT? O19690*%J*%G10:O10#*%)*%\*%::"THESE ARE THE OBJECTIVES WE CAN WORK ON"*%PA2Ė1:3::"I AM AT THE TOP OF THE LIST.":"THIS IS THE LAST TIME I CAN PRINT IT.":*%S0:I10NG1:I10(37)139722+%SI1:PA2I10Ė1:3:958)7)1:7:"AM I STILL WORKING WITH "SN$"? ";:400=)Z)%(K$,2,1)"-"K$"0"K${)%(K$,3,1)"-"(K$)39670)%J1(K$):J39640)%X((K$,J,1)):X48X579670)%J:G1((K$,1,2)):O1((K$,4,3))*%J0NG1:C%(J,0)G1C%(J,1)OU WANT TO PRACTICE THIS ONE":"AGAIN.":::"ARE YOU SURE YOU WANT TO DO IT? ";:400:4890("YOU HAVE PICKED THIS OBJECTIVE:":::3900(:"IS THIS THE OBJECTIVE YOU WANT? ";:400((@:(J1:5:"SHALL WE TRY ANOTHER OBJECTIVE? ";:4000ij7D$(B4$,12):P%6:L%12:GS:900:SN$D$:2999:1:5:SN$",":::"HAVE I WORKED WITH YOU BEFORE? ";:400:K$"Y"2300K$ES$SC$"":2999:"DID YOU SPELL YOUR FIRST NAME RIGHT?";:400:K$"N"2040K$ES$SC$"":2999#:"":2999Sz(K$)0āJ1(K$):X((K$,J,1)):X48X57ĂJ:I(K$):INS2180700:"PLEASE TYPE IN A NUMBER ";(7);:2150I02200:SC$SC$(I):2700:K$ES$SC$"":2999K$"N"SC$(SN$,4):2070D$SC$:L%5:P%1:LS:RR:E%2:GS:900:D$;<RD$(B4$,12):P%18:L%12:GS:900:" "D$C\If1:19:"----------------------------------------":20:1:"PUSH A ";::" 0 ";::" IF YOUR NAME IS NOT THERE."p22:1:868:"WHICH NUMBER IS YOUR NAME? ";:V22:200:K$ES$SC$NSNS1:I NS02200(*NS12100T-SC$SC$(1):2700:K$ES$SC$"":2999e/K$"N"2210o329994:1:5:"WHICH ONE OF THESE IS YOUR NAME?">:I1NS:D$SC$(I):P%1:L%5:FZ:LS:RR:E%0ijH1:I".";:5:D$(B4$,12):P%6:L%1-----------":34,3Y1:5:"IS THIS WHAT YOU WANTED TO DO? ";:400:K$"N"K$ES$2290_1:5:"WHAT IS YOUR FIRST NAME? ";:V212:200:K$ES$SC$"":2290SN$K$ SC$(K$B4$,4) NS0:I110:D$SC$(I):P%1:L%5:FZ:LS:RR:E%090:8100:K$"Y"1060,K$ES$129061030l CS:DD1İ10200: PUT PROGRAM DISKETTE BACK IN 1226,4:227,9:47082,1:46044:"I AM GOING TO ASK YOU SOME QUESTIONS":"ABOUT ";::SU$;::".""-----------------------------908100: STILL WITH SN$?6K$"N"K$ES$1030@1060^7000: CORRECTED EXAMPLEgME08200: MENU OF EXIT OPTIONSK$ES$1290ME1230,9000,1270:8100:K$"Y"1090K$ES$1290SC$"":2000:SC$""1290100: LOAD QUESTION TABLE FOR GOAL=L4100: SELECT QUESTIONSFQDG0\V5000: GIVE TEST`6000: CALCULATE SESSION DIAGNOSTIC & UPDATEe6200: PRINT DIAGNOSTICjDG901190oDG991200t8000: ANOTHER OBJECTIVE~K$"N"K$ES$12VARIABLES .10100: LOAD DISKETTE MESSAGEW30000: INITIALIZE FMS VARIABLES }9900: LOAD GOAL-OBJECTIVE TABLESC$""2000: GET STUDENT CODE(SC$)01290$G0:OB0.3000: GET GOAL-OBJECTIVE8G0OB01050 B400610K$"":X1155K$ES$#:FX(36):Y(37):1:24:868:Y M%PM:33521:w*IQIQ1:IN0Ğ:IN1:8304IN0:>K:XL%IQ40ĺzI9(D$)21:(D$,I9,1)" "ĂI9:I92D$(D$,I9) 10000: INITIALIZE PROG $)0İ700:(7);"I NEED A ";::" YES ";::" OR A ";::" NO ";::".";:X1:Y1:420g :(7);:420m N X700:(7);"PUSH ";::" SPACE BAR ";::" "ME$;:1:1: ]KR,0 bX1(KB):X1V1ĹKR,0:X1160X1155Ė1:24:868:X1:Y1:680l"YES";:410) X206K$"N":"NO";:410T XCR(K$)0İ700:X1:Y1:" ":590c XBS530 K$"N"ĺBU$;BU$;:K$"":410 K$"Y"ĺBU$;BU$;BU$;:K$"":410 XES560 Y(K$)(2(K$"Y")):Y0āX1Y:BU$:X &K$(ES):590W 0(K::X1:Y1:220 ! K$""4 700:X1:Y1Q T0:KR,0::" ";(8);:h X(KB):XV1470~ TT1:T1200560 TTR(K$)0İ700:(7);"REMEMBER, PUSH ";::"RETURN";::" WHEN YOU ARE DONE";:X1:Y1:420 430 X217K$"Y":$,(K$)1):210- 6(K$)1ĺBU$;:K$"":210= @(7);:220T JXESĺ(7);:220u TY(K$):Y0āX1Y:BU$;:X ^K$(ES):" ":390 hOT0ĺ(7);(7);:220 rTQTQTC:TQOTK$(255):390 |700::(7);(7);"PLEASE GIVE ME YOUR ANSWER.";N YOU ARE DONE";:X1:Y1:220( 230d V31ĭ(K$)0X160İ700:X1:Y1:K$(254):" ":390 XBSĭXCRĭXESĭXLBXUB(K$)V2XXV1:K$K$(X):(X);:TQ0:210 XCRİ700:X1:Y1:" ":390 "XBS330 ,(K$)1ĺBU$;:K$(K6E 24000216,0:549158(45337,255:45338,126Bd1000VTQ0:K$"":220j700:X1:Y1:T0:KR,0::" ";(8);:X(KB):XV1265TT1:TTC(K$)0360 TTR(K$)0İ700:(7);"REMEMBER, PUSH ";::"RETURN";::" WHE"YOU SHOULD READ IN THE BOOK ABOUT THE "::"OBJECTIVES WE CAN WORK TOGETHER."::::"I'LL SEE YOU LATER..."(7):I13000:I:SC$""'3999':'1:3:"I THINK YOU SHOULD START WITH THIS ":"OBJECTIVE:"::'3900::("IS THIS THE OBJECTIVES WE CAN WORK ON TOGETHER."::::"WOULD YOU LIKE TO READ THE LIST"::"WITH ME? ";:400:K$"N"3700&$K$ES$SC$"":3999&.9700:PA23700&8G10O10GG1:OBO1:4800:K$"N"K$ES$3000&=G10O103999&B3300&t&~1:5'% 3999% R% 1:5:"WOULD LIKE ME TO TELL YOU WHERE "::"TO START? ";:400k% K$ES$SC$"":3999|% K$"N"3600% GC%(0,0):OBC%(0,1):3800:K$"N"K$ES$ī3000% 3999%:PA23700j&1:5:"YOU NEED TO READ THE LIST OF "::"OBJECK$ES$SC$"":G0:OB0:3999t$ 1:11:958:"WHAT OBJECTIVE WOULD YOU LIKE TO START"::"WITH TODAY? ";:V25:200$ K$ES$SC$"":3999$ 9600:G10O10İ700::"RETYPE THE OBJECTIVE NUMBER"(7);::3320$ GG1:OBO1:4800:K$"N"K$ES$3000:I:SC$"":3999# 3999# ::"I AM GOING TO ASK YOU SOME QUESTIONS":"ABOUT ";::SU$;::".":"----------------------------------------":34,3# 1:5:"HAVE YOU READ THE LIST OF OBJECTIVES"::"WE CAN WORK ON TOGETHER? ";:400:K$"N"3500$ 3295" K$ES$SC$"":3999h" 9600:G10O10İ700::"PLEASE RETYPE THE OBJECTIVE.";(7);::3230" GG1:OBO1:4800:K$"N"K$ES$3000" 3999" I:PAPA1:PA23060# 1:19:958::"YOU HAVE LOOKED AT THE OBJECTIVES TWICE."::I11000-------------------------------":1:19:"YOU CAN ALWAYS PUSH THE ";::"ESC";::" KEY TO QUIT."! PA2ING1ĺ"PUSH ";::"SPACE BAR";::" TO SEE MORE OBJECTIVES."! 1:23:"WHICH OBJECTIVE DO YOU WANT? ";:868:V31:V25:200:V30" K$(254)I,1):P%1:L%3:LA:RR:E%0ij2 D P%8:L%23:GAT N DG99Ğ:"MASTERED";::3175r X DG0ĺ"NOT TRIED";:3175 b "TRIED"; g 12((C%(I,0)10)):C%(I,0)"-"C%(I,1); l 18:L%23:800 v (I13)12((I13)12)ING13295a! 1:18:"---------:"I AM AT THE TOP OF THE LIST.":"THIS IS THE LAST TIME I CAN PRINT IT.":m I0NG1:I12(I12)3120 PA2I0Ė1:3:958 1:5:958:"----------------------------------------":1:60 DGC%(I,2) : FZ:D%(0)2:D%(1)C%(I,0):D%(2)C%(S:900:" ";D$;"? ";:400 % + U D$SC$:P%1:L%5:FZ:LS:RR:E%0ij I0NG1:P%3I36:L%1:GA:C%(I,2)D%(0):I PA1:G0:OB0 P%34:L%1:GA:D%(0)03300 : "THIS IS WHAT YOU HAVE DONE SO FAR..."K PA2Ė1:3:K$"N"2300 2999y( :::"I SEEM TO BE HAVING TROUBLE.":::"ASK SOMEONE FOR HELP."::I15000:I:SC$"":2999 D$SC$:P%1:L%5:FZ:LS:RR:E%0ij :"ARE YOU "; P%6:L%12:D$(B4$,12):GS:900:D$; P%18:L%12:D$(B4$,12):GNS25008 700:"PLEASE TYPE IN A NUMBER."(7);:2470F J02200q D$((SN$,I)B4$,4):P%1:L%4:FZ:LS I1J:RS:E%0ij I:P%1:L%5:D$(B4$,5):GS:SC$D$:P%6:L%12:D$(B4$,12):GS:900:SN$SC$ :2700:K$ES$SC$"":2999  19:"----------------------------------------":20:1:"PUSH A ";::" 0 ";::" IF YOUR NAME IS NOT THERE." 22:1:868:"WHICH NUMBER IS YOUR NAME? ";:V22:200:K$ES$SC$"":2999 (K$)0āJ1(K$):X((K$,J,1)):X48X57ĂJ:J(K$):J%4:FZ:LSL 9V "I NEED SOME HELP WITH YOUR NAME."y` :"HERE ARE THE NAMES THAT START WITH '"(SN$,I)"'":I3ĺj J1NS:RS:E%0ijt J".";:4~ P%6:L%12:D$(B4$,12):GS:900:D$; P%18:D$(B4$,12):GS:900:" "D$ Jm 1:(K$B4$,12):P%6:L%24:LS+WW:E%0ij1AI13:NS0Z D$((SN$,I)B4$,4)p FZ:P%1:L%4:LS RS:E%02350$ D$(B4$,I):P%1:L%I:GS:D$(SN$,I)NSNS1:2330. NS10ĂI:26008 NS02600 B D$((SN$,I)B4$,4):P%1:L1:5:SN$", I AM GLAD TO KNOW YOU."V:"WE ARE GOING TO LEARN A LOT TOGETHER.":::"WHAT IS YOUR LAST NAME? ";:V212:200:K$ES$2040I110:D$(SC$,4)(I):P%1:L%5:FZ:LS:RR:E%0ĂI:2600SC$(SC$,4)(I)D$(SN$B4$,12)LA:RR7VE%0ijU7`D$B4$:L%40:I04:P%6I40:GS:(D$,2)"$$"įGA:800:Ip7jME$"TO GO ON...":600v7~7X:7]1:57b"LET ME SHOW YOU WHAT YOU DID WRONG."7l:"I AM GOING TO USE ONE OF THE QUESTIONS":"YOU MISSED AS AN EXAMPLE":D%(0)99D%(0)DG:LAB6P%34:D%(0)BJ1:LA:DG99P%35:LAS6WO:E%0ijY6.68::"YOU GOT "Q1W1" OUT OF "Q11" QUESTIONS RIGHT":6=FZ:D%(0)3:D%(1)G:D%(2)OB:D%(3)DG:P%1:L%4:LA:RR6BE%0D%(2)0:LA:RR7LE%0D%(1)0:I5zQ1WMDG99:6090H5DG0:DF0:I098:T%(I)DFDFT%(I):DGIc5I:Q11WDFW26050{5DF1WDG98:60905DF1W2DG985D$SC$:P%1:FZ:L%5:LS:RR:E%0ij5BJ0NG1:C%(BJ,0)GC%(BJ,1)OBĂBJ:6L%1:P%BJ336:GAF%(X65)0DGF%(X65):A%(Q1)X64:5690?4(7);(7);:5600x41:22:958:(7);"YOU PUSHED ";::" ESC ";::"."4&"DO YOU WANT TO QUIT (YES OR NO)? ";:400:K$"N"560040K$ES$566045K$ES$4:4pDG060905uW0:I098:WWT%(I):3GA:800:I 3I0F%(F)1S3:F:S(2)1ĺ:"R. I WANT THE STORY REPEATED"Y33DG0:1:22:958:"WHAT IS YOUR ANSWER? ";:V21:2003S(2)1ĭK$"R"DG0:56903K$ES$56603K$(255)DG97:5690)4(K$)0X(K$):X69X64ĭQ:P%4:LN:RR:E%0ijY26D$B4$:L%40:I03:P%I4013:GS:(D$,2)"$$"įGA:800:I_2r2|F03:L%1:P%247F75:GA:F%(F)D%(0)2D$(B4$,37):L%372I01:P%17375FI37:GS:D$(B4$,37)55502I0ĺ(F65)". ";:55402" ";3901L%40:D$B4$:L015A1P%6L40:GS:(D$,2)"$$"5380X1GA:L0I1053551ME$"FOR REST OF STORY":600:K$ES$53521L0I10ė1D$B4$ĺ:537018001L1I112,FZ:P%1:L%3:D%(0)4:D%(1)G:D%(2)OB:LA:D%---------------------------":5220(0ZG0d5400: PRINT THE QUESTIONM0nj0x5500: PRINT FOILS 05600: GET FOIL ANSWER 0K$"R"5180000I1014:FZ:D%(1)SG:D%(2)SO:D%(0)I:P%1:L%3:LA:P%4:D%SQ:LN:RR1E%05S(2)0ĉ::5190q/C"THIS IS QUESTION "Q1" OUT OF "NQ" QUESTIONS.":"----------------------------------------"/F5300: PRINT THE STORY/K"0PS(2)0ME$"TO SEE THE QUESTION":600::"THIS IS QUESTION "Q1" OUT OF "NQ" QUESTIONS":"-------------1:GA:SID%(0):P%9:GNC.I07:S(I)SI2(SI2):SI(SI2):In.((SGD%(1)SOD%(2)SQD%S(2)0)5180.2SGD%(1):SOD%(2):SQD%.<S(0)0ė:"THIS IS QUESTION "Q1" OUT OF "NQ" QUESTIONS.":"----------------------------------------":5220/A5090-DG0T%(DG)T%(DG)1,-Q1:DG02-:-:w-FZ:P%1:L%3:D%(0)4:D%(1)G:D%(2)OB:LA:D%Q:P%4:LN-RR:E%0ij- P%6:L%7:GA:TCD%(0)52:OTD%(1)52-TC0:OT0: TAKE THIS LINE OUT FOR PRODUCTION VERSTION*******.P%6:L%O DO IT? ";:400:4890G,"YOU HAVE PICKED THIS OBJECTIVE:":::3900w,:"IS THIS THE OBJECTIVE YOU WANT? ";:400},,I0100:T%(I)0:I:I010:A%(I)0:I,Q11NQ:QQA%(Q1),5100: GIVE QUESTION AND GET DIAGNOSTIC-K$ES$DG96:BJ:&+P%BJ336:L%1:GA:DGD%(0)=+1:3:DG994870+SN$","::"YOU HAVE ALREADY MASTERED THIS OBJECTIVE"::3900,:::"YOU SHOULD DO A DIFFERENT OBJECTIVE":"UNLESS YOU WANT TO PRACTICE THIS ONE":"AGAIN.":::"ARE YOU SURE YOU WANT T(0):NQD%(1):NQ0NQ5(*Q2NQNQQ2D*"I1Q2:QA%(I)Q%(I):IN*,Q1Q2^*6Q1NQ4190*@J((1)Q11):JQ1āIJ1Q1:QA%(I1)QA%(I):I*JQ1Q11:4150*^*::D$SC$:P%1:L%5:LS:RR:E%0ij+BJ0NG1:C%(BJ,0)GC%(BJ,1)OBL%3:LA<)RS:GA:E%0D%(0)4D%(1)GD%(2)OB4090)P%4:GN:G5OB20D%2P%1:4010: **** TAKE OUT FOR PRODUCTION ***" )Q2Q21:Q%(Q2)D%:P%1:4010))FZ:D%(0)2:D%(1)G:D%(2)OB:P%1:L%3:LA:RR:E%0ij*P%6:GA:MD%TIVE YOU WANT? ";:400(2X(<FZ:D%(0)2:D%(1)G:D%(2)OB:P%1:L%3:LA:RR:E%0ij(FD$(B4$,33):L%33:I03:P%33I34:GS(PI0Ė2((G10)):G;"-"OB;(Z(D$,2)"$$"Ė8:GA:800:I(()Q20:FZ:D%(0)4:D%(1)G:D%(2)OB:P%1: WANT? ";:868:V31:V25:200:V307G&K$(254)9790SG&K$ES$G10:O10:9799G%&9600:G10O10İ700::"PLEASE RETYPE THE OBJECTIVE.";(7);::9740G4&GG1:OBO1G9&3999G>&I1:PAPA1:PA29705&HC&1:19:958::"YOU HAVE LOOKED AT THE OB:3:958F%1:6:958900:L%(D$)^>I0ĺ(64F)". ";j>" ";>GA:IN1::4:800:IN0::I>6>?>@:>J1:5:"SHALL WE TRY ANOTHER OBJECTIVE? ";:400> ?1:7:"AM I STILL WORKING WITH "S0ij=`FA%(Q1):7900@=j::"YOUR ANSWER IS WRONG BECAUSE, "F=t=~D%(0)3:D%(1)G:D%(2)OB:D%(3)DG:FZ:P%1:L%4:LA:RR:E%0ij=I09:P%I40206:L%40:D$B4$:GS:(D$,2)"$$"įGA:800:I=ME$"TO GO ON... ":600=5>I01:D$%3:LA:RR:E%0ij<:a<I09:P%I40169:L%40:D$B4$:GS:(D$,2)"$$"įGA:800::I<ME$"TO GO ON... ":600:K$ES$7590I07:S(I)SI2(SI2):SI(SI2):Iy9HSGD%(1):SOD%(2):SQD%9RS(0)0ĺ"THIS WAS QUESTION "Q1" OF "NQ" QUESTIONS.":"----------------------------------------":72709US(2)0ĉ::7260X:Y'8vME$"TO GO ON...":600:K$ES$7030/8:F8Q11NQ:QQA%(Q1)8D%(0)4:D%(1)G:D%(2)OB:P%1:L%3:LA:D%Q:P%4:LN:RR:E%0ij8JA%(Q1)7575247:P%J:L%1:GA:D%(0)DG72008Q1:9 CF03:P%CF75247:L%1:GA:D%(0)99CFCF1: