' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  ( 9 +"  "*  (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).).*#!.*'!.8)(#/-)(#/-,,eb)++$ h( ,!!"@h !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HH ᥠ L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD# H8`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  L IH  /JJJJ"LL뷩 ᷩ췩 ɛ LDLSAVBPILOCUNLOCIBPIBPIBPPRBPIBLISCALBPIBUZZOFӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\  OÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L׭Lܫ &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@ ,\Z[PRR3\ɄSɊ"RQJ(0Fw6. ^-%p 㩠RP.Q I* P\L˵B̵C8pB߮Z\ @ յյ\BIR Z-^ Jp\IZLLӜv  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B / / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8`  XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` ᥠ hh`ĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH x(`F d£àĠz# u`z#        () 1981     ALL`RIGHTS`RESERVED ӮƠϠ ҠîҠîˠԠǠţ ՠЮŠ#2A3A310NTNT1:A3N1(NC1)ININ1:I$(IN)(A3):A$(IN)N1$(NC1):22:13:868:" WRONG":0:A2X,Y:A1110,Y:3:K12000::5090NCNC1:(NC10)NC10İ2500NC3099005010#16384,128:16368,0:(# GET2#Z$""<#0:0:A1X,Y:3:5040((A$)279900FA(A$):ZA52:Z52Z62ZZ53Z625045jZX,Y:A2Z22:13:SP$:1016384,128:KY(16384)128:16368,0:KY8Ē0:A2X,Y:Z$(Z$,1):3:5045KY135050 A3(A152)10(A252):A26:3Z$N1$(NC1)]X90(5(Z$))9:Y90:T1(Z$):Z((Z$,T,1))64:ZX,Y:XXX(Z):Y50:X110:73X,Y:X130:73X,YX110:2:A$:A(A$):ZA52:Z52Z62(A$)279900Z53Z625040ZX,Y:A1ZX130:A$:(A$)8X11A$(S52):A$"10"A$"0"O16384,128:Y(16384)128:16368,0:Y279900kY$(Y):Y48Y574045NTNT1:Y$A$ININ1:I$(IN)Y$:A$(IN)Z$:4045Y$A$NCNC1:(NC10)NC10İ2500NC3099004010TEENSNC0:0,50.c 109,49171,49171,111109,111109,494| FNUMBER WORDS::1:79,50191,50191,9579,9579,50:77,47193,47193,9877,9877,47:3UL62:1800:Y70:Z$P$(S52):X90(5(Z$))9K1(Z$):Z((Z$,K,1))64:ZX,Y:XXX(Z):11:Y2Y21:Y3Y31:Y4Y41:9:X1,Y1:X2,Y2:X3,Y3:X4,Y4L Y020:Y:IZ 16297,0`' v DRAW A LETTER  3:S135,75 T DRAW BOX (COLOR=CL)Y CL((8)8):CL1CL4CL3CL72905] CL^ 110,50170,50170,110110,11011((8)15)1B C1:11,1310:9,1112:C2:15,1717:16,1816:C3r  26,285:4,627:C4:33,3513:12,1434:I X112:Y110:X216:Y217:X327:Y35:X434:Y413:I012:0:X1,Y1:X2,Y2:X3,Y3:X4,Y4:I122599: X1X12:X2X21:X3X31:X4X42:Y1YY220:I16::Y" I1120:I? I2050:C10:I502545_ (I2)I2C1((8)15)1s C20:I502550 ((I1)2)(I1)2C2((8)15)1 C30:I502555 (I2)I2C3((8)15)1 C40:I502560 ((I1)2)(I1)2C4,3939:0,3939:0,390I :Y38151:0:20,Y1:1:20,Y:I15::YV I15: Y15:C901:C:((C1)2)(C1)2Ġ0 X08:I16: 20X,YX:20X,YX:20X,YX:20X,YX:202X,Y:202X,Y:X:C Y3711:9:Y,Y220:0:Y,T11 Y$A$ININ1:I$(IN)Y$:A$(IN)A$:1030Z Y$A$NCNC1:(NC10)NC10İ2500j NC309900t $1010  GET NUMBER SN(NC1)52: l GET LETTER vSQ(NC1)64:A$(Q(NC1))  FIREWORKS : 13:0,390:0:K130:N(K):, K130:N1$(K),N1(K):t K126:A(K)K64:A(K26)K64:X(K)::K5361:A(K)K4::A(62)48~ 9500  MAIN PORTION ::NC0 1900 :2900:2800 16384,128:Y(16384)128:16368,0:Y$(Y):Y279900 NTNLETTER REC.1 01.06.81=232,0:233,64:32767:19200q1:0:3:D$(4):Q$(34):SP$"PRESS 'RETURN'."I$(200),A$(200),A(62),X(26),Q(30),N(30),N1(30),N1$(30)D$"BLOADLETTERTABLE#2,A$4000" :K110:P$(K)::K130:Q$:Q(K)(Q$):        ****"L >T1622:T:8:"*";:31:"*";:::8:"************************";t A:21:10:"ALL RIGHTS RESERVED";: Z1:1::(4)"NOMONIOC" (4)"BLOADLETTERTABLE#2" T1800: (4)"RUNLETTER REC.1"* ::7:8:">> LOADING <<"N:8:">> LETTER REC <<"r:8:">> PROGRAM <<"z17#10:"COPYRIGHT (C) 1981 "$10:"BY HARTLEY SOFTWARE "&10:" (616) 942-8987 ": <15:8:"******************** :0:X1,Y1:X2,Y2:X3,Y3:X4,Y4:I122599  X1X12:X2X21:X3X31:X4X42:Y1Y11:Y2Y21:Y3Y31:Y4Y41:9:X1,Y1:X2,Y2:X3,Y3:X4,Y4  Y020:Y:I  16297,0 ' DRAW A LETTER 3:S135,75  T DRAW BOX (COLOR=CL)%Y C55" (I2)I2C3((8)15)16 C40:I502560^ ((I1)2)(I1)2C4((8)15)1 C1:11,1310:9,1112:C2:15,1717:16,1816:C3  26,285:4,627:C4:33,3513:12,1434:I* X112:Y110:X216:Y217:X327:Y35:X434:Y413:I012X:20X,YX:20X,YX:202X,Y:202X,Y:X:Ce Y3711:9:Y,Y220:0:Y,Y220:I16::Yu I1120:I I2050:C10:I502545 (I2)I2C1((8)15)1 C20:I502550 ((I1)2)(I1)2C2((8)15)1 C30:I50251:(NC10)NC10İ2500" $1010( 8 FIREWORKS@ :j 13:0,390:0,3939:0,3939:0,390 :Y38151:0:20,Y1:1:20,Y:I15::Y I15: Y15:C901:C:((C1)2)(C1)2Ġ0 X08:I16:0 20X,YX:20X,Y  MAIN PORTION = S((8)(ULLL1))LL:A$(A(S))L SS11010U S1Sg :2900:2800x IN1999900 16384,128:Y(16384)128:16368,0:Y$(Y):Y279900 NTNT1 Y$A$ININ1:I$(IN)Y$:A$(IN)A$:1030 Y$A$NCNC LETTER REC.K 12.31.80=232,0:233,64:32767:19200[1:0:3:D$(4):Q$(34)vI$(200),A$(200),A(61)D$"BLOADLETTERTABLE#2,A$4000"SP$"PRESS THE 'RETURN' KEY." K126:A(K)K64:A(K26)K64::K5361:A(K)K4:9500     0FIFTEEN,15,FORTY,40,THIRTY,30,SEVENTEEN,174uSIXTEEN,16,TEN,10,EIGHTY,80,THIRTEEN,13,SIXTY,60,ELEVEN,11,NINETEEN,19,FIFTY,50,FOURTEEN,14,NINETY,90,SEVENTY,70,TWELVE,125u 20,20,20,20,19,14,20,17,10,20,20,10,20,19,20,20,20,12,20,14,20,19,24,20,20,19,T,Y,B,L,J,A,F,C,B,H,I,P,L,X,U,R,Z,Eh2u2,4,10,6,5,3,4,1,7,8,9,5,2,9,4,3,1,10,7,9,8,3,6,1,5,2,6,8,4,7*3u SIXTEEN,16,TEN,10,EIGHTY,80,THIRTEEN,13,SIXTY,60,ELEVEN,11,NINETEEN,19,FIFTY,50,FOURTEEN,14,NINETY,90,SEVENTY,70,TWELVE,12,EIGHTEEN,18,TWENTY,20,SP.FILE,R0":NEQ&D$"WRITERESP.FILE,R"NE:(N$,20):MD:NC:NT:IN:(IN)9960b&IN40IN40~&K1IN:I$(K):A$(K):&D$"CLOSE"'23:SP$:8990 ':95000uONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE,ZERO%1uD,K,M,P,S,Q,O,V,W,G,N,DA$(K)Q$3&P(37)20Ģ23:SP$:8990:6:1:958:&KL&D$"PR#0":P0&D$"OPENRESP.FILE,L360":D$"READRESP.FILE,R0":NE:NE99ė:12:"STUDENT FILE IS FULL."::"CALL YOUR TEACHER."::16368,0:"PRESS RETURN ";Y$:9960&NENE1:D$"WRITEREĺ"LOWERCASE ONLY"2&MD3ĺ"LARGE NUMBER WORDS"L&MD2ĺ"NUMBER WORDS"s&NC" CORRECT OUT OF "NT" TRIED.":&(IN)ĺ"CONGRATULATIONS!":"YOU GOT THEM ALL RIGHT, "N$".":9930&Q$(34)&"ERRORS WERE:":K1IN:" "Q$I$(K)Q$" FOR "Q$868:"WHICH? ";:9000:Y(Z$):Y1Y39515H5%MDY:Y9532,9533,9533R:%9540c<%LL1:UL26:u=%LL53:UL61:D%NT0:IN0v%Y1000,4000,5000& END AND BACK TO START&P0&&:"LETTER RECOGNITION"::"NAME:"N$:"MODE:";&MD12:6:"NAME? ":22:6:SP$:16:6:">>> ";:9000:N$Z$:(N$)19506W#%NT0:IN0:NC0|$%(N$,4)"MENU"ĺD$:D$"RUNMENU"&%6:1:958:9:6:"1 - LOWERCASE ONLY"::6:"2 - NUMBER WORDS (0-9)"::6:"3 - LARGER NUMBER WORDS"-+%22:6:SP$:19:10:Y$:(Y$)139090$>#(Y$)279020-A#KK0@F#(Y$)89040QH#(Z$)9020tI#(Z$)1Z$"":Y$" "Y$;:9020J#Z$(Z$,(Z$)1):Y$" "Y$;:9020P#Z$Z$Y$:Y$;:9020#% MENU!%::5:8:"LETTER RECOGNITION":11:"- 1ST GRADE"D"%1     ,0:"PRESS RETURN ";Y$:5:1:958(&\&IN40Ģ22:">> ONLY FIRST 40 ERRORS SHOWN. <<"l&PRĺ:::z'D$"PR#0" 'YLARGE NUMBER WORDS"_ &3:NC" CORRECT OUT OF "NT" TRIES.":(IN)Ģ6:7:"PERFECT SCORE":9990 &5:J1XN:" "Q$I$(J)Q$" FOR "Q$A$(J)Q$ &(16384)155ĺ:"=== ESCAPE ==="::::D$"PR#0"::1060 &PR9930"&(37)21J(IN)Ģ23:16368WRITERESP.FILE":0:D$"CLOSE"::12:"FILE IS NOW EMPTY.":::"PRESS RETURN ";Y$:NE0\ &p & DISPLAY 1 STU} &Q$(34) &PRĺD$"PR#"PR &D$::"STUDENT: "N$" ";:2:1:"MODE: ";:MD1ĺ"LOWERCASE ONLY" &MD2ĺ"NUMBER WORDS" &MD3ĺ",NC,NT,IN:(IN)9730, %XNIN:XN40XN40G %T1XN:I$(T),A$(T):M &] H&EMPTY FILE R&D$:"DO YOU WANT TO":"CLEAR THE FILE? (Y/N) ";Y$:Y$"Y"Y$"N"9810 S&Y$"Y"9890V \&D$"OPENRESP.FILE":D$"DELETERESP.FILE":D$"OPENRESP.FILE":D$"D$:P (16384)27(16384)155ĺ:"=== ESCAPE ==="::::D$"PR#0":1060y :PRĺD$"PR#"PR::::::D$"PR#0" $D$"CLOSE" .::10:9800 B:12:"BYE-BYE FOR NOW...":D$"RUNMENU" % GET 1 STU %D$ %D$"READRESP.FILE,R"R:N$,MDUSING A PRINTER? (Y/N) ";:"";Y$:Y$"Y"Y$"N"1015p Y$"Y"ĺ:"WHICH SLOT? ";Y$:PR(Y$):PR0PR71016 K1NE:RK:9700 (16384)155ĺ:"=== ESCAPE ==="::::D$"PR#0":1060 9900 PR1050 22:D$:"PRESS RETURN ";:Y$: STUDENT PLANNING 12.31.803I$(50),A$(40)? D$(4)N MAIN PGM::D$"OPENRESP.FILE,L360":D$"READRESP.FILE,R0":NE:D$::12:NE" STUDENTS IN FILE."::"ROOM FOR "100NE" MORE.":::9800NEĺD$"CLOSE":10906 :12:"ARE YOU CORRECT OUT OF "NT" TRIED.":e&(IN)ĺ"CONGRATULATIONS!":"YOU GOT THEM ALL RIGHT, "N$".":9990&"ERRORS WERE:":K1IN:" "Q$I$(K)Q$" FOR "Q$A$(K)Q$&PR(37)20Ģ23:SP$:8990:6:1:958&K'D$"PR#0":23:SP$:8990 '9500$"N"9904E&Y$"Y"ĺ:"WHICH SLOT? ";Y$:PR(Y$):PR0PR79905&:D$:D$"PR#"PR::"LETTER RECOGNITION"::"NAME: "N$:"MODE: ";:MD1ĺ"UPPERCASE ONLY"&MD2ĺ"LOWERCASE ONLY"&MD3ĺ"DIGITS ONLY"&MD4ĺ"MIXED CHARACTERS"&NC" Y9531,9532,9533,9534:%95401;%LL27:UL52:B<%LL1:UL26:T=%LL53:UL61:e>%LL1:UL61:sD%NT0:IN0}v%1000& END AND BACK TO START&P0 &PR0:::12:"DO YOU WANT THIS"::"TO PRINT ON A PRINTER? (Y/N) ";:32:"";Y$:Y$"Y"YLY"::6:"4 - MIXED CHARACTERS";'%:6:"5 - GO TO MENU"K*%23:6:SP$+%17:10:"WHICH? ";:9000:Y(Z$):Y1Y59515,%Y5ĺD$:D$"RUNMENU"/%23:6:SP$0%7:1:958:9:6:"TYPE NAME "::6:">>> ";:9000:N$Z$:(Z$)195205%MDY:Z$"":Y$" "Y$;:9020;K#Z$(Z$,(Z$)1):Y$" "Y$;:9020SP#Z$Z$Y$:Y$;:9020^% MENU!%::4:8:"LETTER RECOGNITION":10:"-KINDERGARTEN"#%NT0:IN0:NC0 &%7:6:"1 - UPPERCASE ONLY"::6:"2 - LOWERCASE ONLY"::6:"3 - DIGITS (1-9) ONL((8)8):CL1CL4CL3CL72905-] CLW^ 110,50170,50170,110110,110110,50c 109,49171,49171,111109,111109,49| #16384,128:16368,0:(# GET2#Z$""<#Y$=#(Y$)13ıF#(Y$)89040H#(Z$)9020I#(Z$)1          ";Y$:RY 19:6:"ENTER SELECTION AND":6:"PRESS RETURN."::6:">>> ";Y$:Y(Y$):Y1Y430p (Y110,120,130,140 nR$"LETTER REC.1" xR$"LETTER REC.K" R$"STUDENT PLANNING" :(4)"CATALOG"::"PRESS RETURN ";Y$:RTALOG"::"PRESS RETURN   MENU R$(4)"RUN"x::4:6:"CHOICES ARE:":::6:"1 - LETTER RECOGNIITION":10:"- FIRST GRADE"::6"2 - LETTER RECOGNITION":10:"- KINDERGARTEN"::6:"3 - STUDENT PLANNING":10:"(FIRST GRADE ONLY)":6:"4 - SEE CATALOG" ---??72*----5?????-----:?????1!%%%%%%%%$%%%--...677777>66$$466666666*>*66#!<' *------  !<$'<$<$,$,$%,$ !,$%,$,$<$<$'<$-66-%%%$$<<>>??<<$$$$$$,,,--..66),$%,$%,$%,$%>66  ,,,,,,,,$$$$''??7776655--%%%6666...--,,$$$$$$<<>66-----??766$$$$$-----,,,,,,,,,,<35555555555 6:??-- %,$%,$%,$%,$%5'<$'<$'<$'<$''  $$$$'<$'<$'.65.65.%,$%,$%  ????'%,$%,$%,$%,$5>66.---=6666$$$$$$$$<67>67>63...--...66666>>>>??<<<$$$$, .....0666666$$$$$$$$,---555566777????----.65.6 6...---,,$$<<>>>??<<<$$466666666 <<<<<<<<<%%%%%%%%%$$66666666.----- 166666&$$$$$$$$5.65.65.65.6$%,$%,$%,$%,666666666166666&$$$$$$$$55.65.65.65.6%$$$$$$$$ !,,,,--...66666>>>>??<<<$$$$$!$$----...66777????666&$$$$$$!,,,,-- $----=???',$,$,$$----5556>>65556777????'$$$$$46----,,,,--...62>>>>??<<<$$$$$$$----...66666>>>>???'$$$$$$$$-----???$$666666.-----$$-----???$$6666666!,,,,--...6:??--56>>>>??<<<$$$$$$$$66666666&$$$$-----%$$$466666666 !$67>67>67>67>6 ----->>>>>>>>>>.-----  %$%4.6.6.6.6.66666666  4266666666777?''''!$$66666666&$$$,,,,,,,,47777755.65.65!$$666666666 66666&$$$,,,,...6666$$$$%%%55556666 66666&$$$,,,,-55556666 )--...66>>>>??<<<$$,,,, 666666666&$$$$$555--%%%%$$'''??7777 )--...$46666666655%%#$$$<>>>??<<<$$,%$$'''??7777 --5555777??''''$$%%% *--...:>>>??<<<$$,,,, !$466666666$<>>>??<<<$$,,,,--... )--...6>>>>??<<<$,-----?????',,,, --?$$%%..6#$$$$$ )--...$46666666>>>>??<<<$ !$$<>>>??<<<$$,,,,$$66666666&$$$,,,,-55556666  6@ L=d!HUz0D[o 3Qo &J]Hk'Lp3Nu  , A P X f u --555%$66666&$777??''''$$%%%$$66666666&$555--%%%΍ȍ؍ōٍ΍΍ύӮ΍ō΍΍ٍٍٍ΍΍ٍӍэ֍֍ˍ׍֍׍ˍ׍ύ׍ǍǍōōōǍōōōō͍ԍčōčʍˍ̍΍؍؍΍΍͍΍͍Ս͍Ǎٍ͍͍ԍ͍ҍ͍ō͍ԍ͍̍Ѝ̍ЍˍЍɍЍʍЍӍčӍōčč͍֍ččٍ͍͍΍ˍ͍ˍ͍ō΍ōōȍ эčԍˍ