' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( q Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`IN> ";:9200(A$,1,3)"END"ĺD$;"READ ";N$;",B";PC:D$:TCTCX8:50PCTC:X8(A$)1TCTCX85D$;"WRITE ";N$6A$7PP1:D$?515 X PRINT ROUTINEY9000]ZQ0'b98006gZ10Z11BI1Z1YZQZQ1:ZQ"IN> ";:9200 |(A$,1,3)"END"PI:305 ~PCX8:X8X8(A$)1 II1:D$;"WRITE EDIT.SCR":A$ D$:377 D$;"READ ";N$;",B";PC:TCPC D$:50 INPUT MODE9000PCTC.D$;"OPEN ";N$L"**TYPE 'END' TO EXIT**"_"OPEN ";N$f 1350y 5D$;"READ ";N$ 6II1 ;1:D$; =D$;"WRITE EDIT.SCR":A$ >IP375 @309 ^9000 cD$;"DELETE ";N$:D$;"RENAME EDIT.SCR,";N$ hD$;"OPEN ";N$:388- wX8X81(A$):9000O xD$:"**TYPE 'END' TO EXIT**"b y:"PLEASE ANSWER WITH YES OR NO":43005@#(1023)123ė:{#:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"XLIKE TO RUN THIS PROGRAM"::"AGAIN - YES OR NO";:868?"A$W"(A$,1)"Y"ė:250n"(A$,1)"N"43015":"PLEASE ANSWER WITH YES OR NO":43005"(1023)123ė:":10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"X,1)"N"43015*#):CV(37)2!A"";ZN$:(ZN$)(((ZN$)))40003O!B(ZN$)0ZN$"0"40006!CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001!FZM:868:CV1(CV23):ZN(ZN$):!JCV1:36,CH:868:! END OF PROGRAM!::57"5:"WOULD YOU X,X3Y10:Y,Y10X:Y,Y10X3:2430v Y,Y2X9:X9,X94Y:Y,Y5X94:X92,X94Y5:Y5,Y8X92:X92,Y10: ::: 24:868:7:16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0 24:1:868: !@CH(36X3Y5:Y5,Y10X3:X,X3Y10:2430` Y,Y10X:X,X3Y5:X,X3Y10:Y5,Y10X3:2430 X,X3Y:Y,Y10X3:2430 X,X3Y:X,X3Y5:X,X3Y10:Y,Y10X:Y,Y10X3:2430 X,X3Y:X,X3Y5:Y,Y5X:Y,Y10X3:2430'  X,X3Y:2560,2570,2580~ Z2 / 9:3500:1425E Y,Y10X2:2430 X,X3Y:Y,Y5X3:X,X3Y5:Y5,Y10X:X,X3Y10:2430 X,X3Y:Y,Y10X3:X,X3Y5:X,X3Y10:2430 Y,Y5X:X,X3Y5:Y,Y10X3:2430' X,X3Y:Y,Y5X:X,X022:Q:944X,Q:X4w 255,255,173,48,192,136,208,5,206,177,3,240,9,202,208,245,174,176,3,76,178,3,96,0` I$(W5)j Z21(I$):W5((I$,Z2,1)):X(Z21)51o K1XX14p K2XX28t W512590,2500,2510,2520,2530,2540,2550,,2):18103B0:2800:9:X9X96:X935W39İ2800PCW5(B$):K2:2400:1810iE(B$)1B$"":1810FW5((B$,(B$)1)):K2:0:2400:9:G(B$)2B$"":0:2800:9:X929:2800:1810HB$(B$,1):W5(B$):2400:X935:W39İ2800I18101:B$"":16368,0 Z10%II1>IT5Z110000:1852N&B(16384)`0B127ī1810v116368,0:BB1285(B48B57)B8B131810:B131856;B$""1810<X941Ġ0:2800:9?@B$B$(B):B81861 AX941B$(B$ WORK ";T$;"!"321:"YOUR CHALLENGE SCORE IS ";ZZWRR12:N230ZW(RR12)30N2~10(ZZZY(R90N2ZW1030))R0:R1R3500:43000"PLEASE GIVE ME AN ANSWER."::944,225:945,210:946:944,50:945,200:946:IUR SCORE, ";T$;":"CG51611:9:G:"**********************":G615:G:9:"*";20)"*":G:12:7:"NUMBER TRIED...";N211:10:"NUMBER CORRECT":12:12:"FIRST TRY......";R:12:14:"SECOND TRY.....";R1(RR12)N2.89Ģ19:"VERY NICE5(B$):K2:2400:9#jT111358?kW5W3:2400:3500:1425RxR8((1)8)1i}Z213:(7);:Z2r12015((T$)2):(N$,R898,9);" ";T$;".":Q1500:Q25514250:2800:9:W5W3:K2:2400:L1::2:"HERE'S YOANSWER IS ";W3;".":1385"M1385]NT12:"TRY AGAIN.":X929:K2:3500:2800:1800::1354rPW3(B$)ī1380UT12R1R11:1400ZRR1:1400d1550:T11ĺ"NO, THAT'S NOT CORRECT.":1385e"WRONG, THE ANSWER IS ";W3;"."iB$""Ġ0:W2)10ĺ"**FILE MUST BE UNLOCKED FOR EDITING**":10000<#(222)255ĺ"**TO LEAVE EDITOR TYPE 'Q'**":50F#"**ERROR # ";(222);" OCCURED AT LINE # ";(218)(219)256;" IN PROGRAM**":768:D$:100006# NO DELIMITER INPUT@#A$""\#Z3$:Z3$;:Z3\-#7687#(222)5ĺ"**BOTTOM AT LINE ";P1;"**":8978#(222)6ĺ"**FILE NOT ON DISK, CHECK NAME USED**":309#(222)4ĺ"**REMOVE WRITE PROTECT ON DISKETTE FOR EDITING**":30I:#(222)9ĺ"**DISK IS FULL, EDITING ABORTED**":10000;#(2211jJ0ĺD$;:4450(A$,I,1)(A1$,J,1)4380JJ1II14330P7((A$,I,1))&IIP1(P7)04270I1JPCTCLC1:X8LCNPP1X4240 bD$;"READ ";N$;",B";PC*lTCPC2qA$>vD$:50S(# ERROR TRAPPINGZhIp|P0(P9)9999:4240D$;"READ ";N$:1PCTCLC1D$; START OF SEARCHS1(A$)IL1IS1ī4425((A$,I,1))04425C1((A$,I,1))IIP0(C1)'IS1ī4270:I9999ī4425KI(I9999)1VJL(C$,I,1)D1$A1$(C$,3,I3):4070~I"FORMAT ERROR"50D$;"READ ";N$:1PCTCLC1L1(A1$) BUILD TABLESI095"P1(I)L1 ,P0(I)P1(I)6I@I1L11JP9((A1$,I,1))ATP1(P9)L1IS^P0(P9)P1(P9)"READ ";N$:1:D$;T D$;"WRITE EDIT.SCR":A$:3155U 9000V D$;"DELETE ";N$:D$;"RENAME EDIT.SCR,";N$X D$;"OPEN ";N$:D$;"READ ";N$;",B";PC] TCPCb D$l PP1 50) FAST STRING LOCATE49000FD1$(C$,2,1)wI348:m5 D$;"READ ";N$:1:D$;|7 PCTCLC1: PP1? 3100A X8L1IB X9(A$)(X81)C X90A3$A2$:3141D A3$A2$(A$,X8,X9)E I13151F A3$(A$,1,I1)A3$O G11A$A3$:31006P D$;"WRITE EDIT.SCR"?Q A3$JR 3157eS D$;(C$,I,1)D1$A1$(C$,3,I3):3040~ I JI1(C$):(C$,J,1)D1$A2$(C$,I1,JI1):3090 J "FORMAT ERROR" 50 L1(A1$) L2(A2$) 3125 I1(A$)L11.& (A$,I,L1)A1$313750 IR3 D$;"WRITE EDIT.SCR":A$OPTIONAL NUMBER"k50 CHANGE STRING TC0:I0 D$;"OPEN EDIT.SCR":D$;"OPEN ";N$:3005 D$;"READ ";N$:1:D$;:II1:PCTC D$;"WRITE EDIT.SCR":A$ IP13003 31571 (C$,1,1)"G"G11C D1$(C$,2,1)w I3(C$):INT";21);"P, P-"x"TOP";23);"T""WHERE";23);"W""BOTTOM";23);"B""DELETE";21);"D, D-""LOCATE";21);"L/ /""CHANGE";21);"C/ / /""GCHANGE";21);"G/ / /"2"HELP";23);"H":32,0c:"/ = ANY DELIMITER - = .SCR"pLD$;"EXEC EDIT.SCR"vV HELP " APPLE EDITOR COMMANDS":" EDIT FUNCTION COMMAND":32,5" ""INSERT";23);"I""QUIT";23);"Q"2"NEXT";21);"N, N-"J"REPLACE";23);"R"d"PRPEN EDIT.SCR"yD$;"WRITE EDIT.SCR""NEW":"LOAD ";A$"0PRINTCHR$(4);";(34);"OPEN ";B$;(34);":PRINTCHR$(4);";(34);"WRITE ";B$;(34)$$"1LIST2,63999:PRINT CHR$(4);";(34);"CLOSE";(34);":END"/."RUN"A8"LOAD SEDIT"XB"DELETE EDITzPP1d885v EOF ROUTINEP1:TC0:D$;"CLOSE ":D$;"OPEN ";N$:900050D$:D$;"CLOSE ":D$;"OPEN ";N$:C$:D$;"READ ";N$;",B";PCTCTCI1:D$:50*:"WHAT IS YOUR PROGRAM NAME?";A$H:"TEXT FILE NAME?";B$:`D$;"O1:X8LC:If 735x  TOP OF FILE%P1:TC0*D$;"CLOSE ":D$;"OPEN ";N$:509 SET TO RECORD ZERO<1000>50R"**LINE ";P;"**":50k FIND LAST LINE mPP1p899*sD$;"READ ";N$1u1GxPCTCLC1:ILC1QyC$A$[Z11bPPZ1nZ1Z11D$;"READ ";N$I1Z1:1:PCTCLC1:X8LC:ID$;C$A$D$;"READ ";N$;",B";PC:TCTCX81D$C$50PPZ12D$;"CLOSE ";N$:D$;"OPEN ";N$:D$;"READ ";N$;TC0]I1P:1:PCTCLC21670~D$;"READ ";N$:1:D$;:A$:PP1IPP1:D$;"READ ";N$;",B";TCLC1:TCTCLC1D$50D$::" **PRESS 'SPACE BAR' TO CONTINUE**" X$:ZQ0:651% POINTER MOVE09000:9800HZ10765WZ10wsownw_opq?xg~xA?oOoy]_{??oogO{}wv~_v~wqq`}Oox>?|}?~?xp~@|_>?7{ox?s}|qo?}w[>_o7oo?oo~o@_~{~?g]{m?_}vw?~~~?~PO>zog>{k/{~?|>{o7ow[n}_wxo?~_|pn6|Xg]_cnw_opg?xw~xA?o/wu>o{{^o_k~s}wg?|{_ TO MENU...":(13);(4)"RUN HELLO"2U::255:7:12:15:"SECOND TRY.....";C8URN7C7Ģ20:"THAT'S GREAT. YOU GOT ALL OF THEM."`!R20500&R:12:"DO YOU WANT TO TRY AGAIN? ";YN$:YN$(YN$,1):YN$"Y"YN$"N"210300RYN$"Y"ė:K61:C70:N7C7:C8C7:1180#R(1023)123ė:10:"RETURNING..";:20960:20915:QZM:868:ZV1(ZV23):ZN(ZN$):SQZV1:36,ZH:868:R:G61711:9:G:"**********************":RG716:G:9:"*";20)"*":G:12:8:"NUMBER TRIED...";N7R11:11:"NUMBER CORRECT":12:13:"FIRST TRY......";C4ZǠŠӢź'D$;"CLOSE ";N$' UZ;"CLOSE ";N$' ٍԺӠӠԠƠŠԠĢǺԺנԠӠ OCCURED AT LINE # ";(218)(219)256;" IN PROGRAM**":768:D$:10000# NO D TE PROTECT ON DISK FOR EDITING**":30:#(222)9ĺ"**DISK IS FULL, EDITING ABORTED**":10000;#(222)10ĺ"**FILE MUST BE UNLOCKED FOR EDITING**":10000$<#(222)255ĺ"**TO LEAVE EDITOR TYPE "(34);"Q";(34);"**",=#50F#"**ERROR # ";(222);" FROM "A FAST STRING SEARCHING ALGORITHM" : BY ROBERT S. BOYER AND J. STROTHER MOORE, CASM, VOL. 10, PP. 762-772-#7687#(222)5ĺ"**BOTTOM** AT LINE ";P:50*8#(222)6ĺ"**FILE NOT ON DISK, CHECK NAME USED**":30l9#(222)4ĺ"**REMOVE WRI$(13)ıp#Z3$(8)9220$L01A$"":9210$A$(A$,L01):L0L01:9210$A$A$Z3$:L0(A$):9210H&I15:(C$,1I,1)" "Z$(C$,2,I1):9815R&I W&Z1(Z$):- '2049,0:2050,0:D$;"EXEC ";N$3 '| : THE LOCATE ALG. WAS TAKENKK,1)" "31080+0y(LTR$,KK,1)"."3106061y31080]@y((LTR$,KK,1))64ST,LINE:31080Jy((LTR$,KK,1))4827ST,LINE:31080TyST,LINEhySTST7:KK:L|Z9$"CONTINUE":40020:@CH(36):CV(37)A"";ZN$:(ZN$)(((ZN$)))0,LXX80,L:LyYY8:2y1:0:NAME331012D"yNAME231014g$yST45((((LTR$))2)7):31016{&yST85LTRMULTI(yKK1(LTR$)-y((LTR$,KK,1))48((LTR$,KK,1))5731050.y((LTR$,KK,1))65((LTR$,KK,1))9031040/y(LTR$,(4);"RUN HELLO"=c:$,e31100pe"SORRY, YOUR LENGTHS TOTAL MORE THAN":"21 CM. SO YOU LOSE.":35000:weDtD11000:D:232,0:233,64::(4)"NOMONC":(4)"BLOAD LETTERS,A$4000"\vZ((1)10)1wXXZMULTIPxYYYxLYYYY5:8J:GGGGK:LLLLV:"HERE ARE THE SCORES SO FAR:":H]]Y$,E:N125400_ b:B$,F:N225400lpb:C$,GG8c:"COMPUTER",LL:350009c:6:"DO YOU WANT TO PLAY AGAIN";:W$:(W$,1)"N"ĩ255:25404:c(W$,1)"Y"25401;c8100pp}xOo?}WZ<__;_;?X_{{@ww~_>?wvyx?o`}?__`_@_~{~?p_0G~~?]{o}_ow[g}_wgog?wox?o@?~?x>{m?_9vs}xA?ooo}];?oogy{swwv.w^ww^_wv6~_/?w~~w~~w?~oxp67\_{]qcfoxG?G|}xo?}gY>_?=_}~?X_s;ww|_>?gv|_x?o~?~}?__y_@_8{~??~wp`}xxs~xXc{o~_ow[k}_wwoO?w{nsox|?xO>n?_}xw|xA?ooo}@|>`}~?8ok=?o{z^>?Wt?~Ox?x|}0@v`>_o7_o?OO|O@_~{~?k{m?_}vw?|x~0W]v[k6wmo.{~?y>x`ow[m~a46,138 138,130,130,123,123,116,116,109,110,103,104,97,98,92,92,87,87,82,82,77,78,73,73,69,69,65,65,61,62,58,58,54,55,51,52,48,49 46,46,43,44,41,41,38,39,36,37,34,35,32,33,30,31,29,29,27,28,26,26,24,25,23,23,21,22,20,21,19,20,18,18,17,17,16,167 3,56,229,0,133,1,200,185,127,3,101,0,133,0,169,0,56,237,254,2,133,3,169,0,133,2,165,1,208,152,234,234,76,112,3,230,2,208,5 230,3,208,5,96,234,76,125,3,208,236,0,0,246,246,232,232,219,219,207,207,195,195,184,184,174,174,164,164,155,155,146,1 76,55,3,164,1,173,48,192,230,2,208,5,230,3,208,5,96,234,76,21,3,136,240,5,76,27,3,208,235,164,0,173,48,192,230,2,208,5,230 3,208,5,96,234,76,47,3,136,240,209,76,53,3,208,235,173,255,2,10,168,185,127,3,133,0,173,253,2,74,240,4,70,0,208,249,185,123X,Y:4:B2110::3X,Y:B2150::3::3X,Y:h8ǃ 85,100,100,139,120,100,145,139,160,100,185,139 ˃ 22,25,23,25,0,50,25,25,26,50,0,50,22,25,23,50,25,25,26,50,31,25,30,50,23,25,26,50,30,25,31,170,28,28,26,28,23,28,21,28,23,150 : -MUSIC~vB1(1)103:B1((1)50)1:B2((1)55):767,B1:T,B2:M:iw0:Y1Y5Y22:X20,Y1X17,Y1::3uwB116y1X,Y:B1150::4:1X,Y:3 {2X,Y:4:2X,Y:3::1X,Y:20500::::}34,20::0:B1Y16:X10X5::33}B1120:34,35,32,33,30,31,29,29,27,28,26,26,24,25,23,23,21,22,20,21,19,20,18,18,17,17,16,16,15,16,14 4,106,172,3,106,96,32,146,94,173,148,105,0(A$,Z,1))PZ13220660PZ1X,YPXX8P:$w34,20::10:"YOU FOUND ME IN "N1" TURNS!"?w6,0,0,246,246,232,232,219,219,207,207,195,195,184,184,174,174,164,164,155,155,146,146,138 138,130,130,123,123,116,116,109,110,103,104,97,98,92,92,87,87,82,82,77,78,73,73,69,69,65,65,61,62,58,58,54,55,51,52,48,49\ 46,46,43,44,41,41,38,39,36,37,3,3,208,235,173,255,2,10,168,185,127,3,133,0,173,253,2,74,240,4,70,0,208,249,185,127 3,56,229,0,133,1,200,185,127,3,101,0,133,0,169,0,56,237,254,2,133,3,169,0,133,2,165,1,208,152,234,234,76,112,3,230,2,208,5Y 230,3,208,5,96,234,76,125,3,208,2325,30,50,23,25,26,50,30,25,31,170,28,28,26,28,23,28,21,28,23,150 O: -MUSICv 76,55,3,164,1,173,48,192,230,2,208,5,230,3,208,5,96,234,76,21,3,136,240,5,76,27,3,208,235,164,0,173,48,192,230,2,208,5,230T 3,208,5,96,234,76,47,3,136,240,209,76,5ZE343049I:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"U)1023,9]*:yEND"/13:"PLEASE ENTER 1, 2, OR 3 ";:868@40000:ZEZNUZE0ZE443030:"PLEASE ENTER A NUMBER 1 - 3":43022ZE1ĬZE343049:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO")1023,9*:22ZE1Ĭ:122(A$,1,1)"N"43032K:"PLEASE ANSWER WITH YES OR NO":43005:10:(1023)123ĺ"GETTING THE MENU PROGRAM...":(13)(4);"RUN HELLO")1023,9*::"1) RUN THIS PROGRAM AGAIN,"::"2) RUN A DIFFERENT PROGRAM, OR" :"3) 066CZM:10:"PLEASE TYPE A NUMBER.";:40010:40001^FZM:868:CV1(CV23):ZN(ZN$):wJCV1:36,CH:868: END OF PROGRAM::55:"WOULD YOU LIKE TO RUN THIS PROGRAM"::"AGAIN - YES OR NO";:868A$(A$,1,1)"Y"ĽAT:16368,0|40003#B(ZN$)0ZN$"0"40006^CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868:T24:6:"PRESS ";::"SPACE BAR";::" TO ";Z9$;^16368,0h(16384)12840040 r:868:!RâZC:1:958:CV2:MZN$"0"40006=DZM:"PLEASE TYPE A NUMBER.";:40010:40001eFZM:868:CV1(CV23):ZN(ZN$):~JCV1:36,CH:868::::(1023)123Ģ12:"GETTING MENU . . .":255:(13);(4);"RUN HELLO"255:PCH(36):CV(37):QâCV1:36,CH Z7$Z7$".00":2510% Z7$Z7$"00"3 X9(0):(#23:G130::868:1:" PRESS ";::"SPACE BAR";::" TO CONTINUE":16368,0-#16384,1282#23:1:868:1:1:@50000A16368,0:"";ZN$:(ZN$)(((ZN$)))40004 C(ZN$)0)12406d B(2)B(2)1"e 24109f B(3)B(3)1:B(2)0?j Yo Z9(Z9$):Z7$"":Z20f~ Z11Z9 Z8$(Z9$,Z1,1):Z8$"."2450 Z2Z1 Z7$Z7$Z8$:Z1 X9(0):Z202490 Z3Z9Z2:Z302500 Z322510 Z7$Z7$"0":2510 PLEASE.";:50001:2120!P2120'Q8RZ1490,1550HfQ11021]pB(Q1)(CQ(Q1))pzB(Q1)12200|B(Q1)02220CCB(Q1)Q(Q1):C(((C.005)100))100Q1V B(1)C.01:B(1)(B(1).005)a B(1)52410b B(1)0c B(2;:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"G)1023,9O*:uૃ WRONG,NO,INCORRECT,THAT'S WRONGZ:::TO A FLOCK OF SCAVENGER"%On:"BIRDS."0Ox07820WO"YOU BLED TO DEATH IN THE WOODS."O:"COME BACK TO ODELL WOODS AGAIN SOMETIME SOON."O24:"PRESS SPACE BAR TO CONTINUE";:Z9$:43000O,40OJ24:"PRESS SPACE BAR TO CONTINUE";:Z9$"PL,15,16,14; 4,106,172,3,106,96,32,146,94,173,148,105,0130,31,29,29,27,28,26,26,24,25,23,23,21,22,20,21,19,20,18,18,17,17,16,16,15,16,14 4,106,172,3,106,96,32,146,94,173,148,105,02 4,106,172,3,106,96,32,146,94,173,148,105,06,232,232,219,219,207,207,195,195,184,184,174,174,164,164,155,155,146,146,138 138,130,130,123,123,116,116,109,110,103,104,97,98,92,92,87,87,82,82,77,78,73,73,69,69,65,65,61,62,58,58,54,55,51,52,48,49P 46,46,43,44,41,41,38,39,36,37,34,35,32,33,279(X14279)(X14)(X14279),Y1::35wB116Xy1X,Y:B1150::4:1X,Y:3 {2X,Y:4:2X,Y:3::1X,Y:20500::::}34,20::0:B1Y1Y6:X10,B1X5,B1::3}B1120:3X,Y:4:B2110::3X,Y:B2150::3::3X,Y:4Z13220660PZ1X,Y"PXX8*P:Z$w34,20::8:"YOU FOUND ME IN "N1" TURNS!"g.wY3Y3x8wY138Y138BwX23X23wB1(1)103:B1((1)50)1:B2((1)55):767,B1:T,B2:M:)w0:Y1(Y5)(Y50)Y22:(X20)(X200),Y1:Z$"-MUSIC"201203NZ0239:Z1:768Z,Z1::9P|P24:7:16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE";(P(16384)12820520)P(16384)1283220530*P16368,0:205202P16368,0::PZ1(A$)PZ1((A$,Z,1)) PS!!"C(#10:6:958:"DO YOU WANT TO TRY AGAIN?";A$:(A$)09000L-#QQ12#:X(0):A1A:(A$,1)"Y"ĺ(13);(4);"RUN HURKLE"<#(A$,1)"N"9000F#(1023)123ĉ::':::22016:1021,0:1022,0:(13);(4);"RUN HELLO" NNNZ$Y6(10B3)14:32000:3410<Q X135B24:Y81B315:32000RR B3P1C$"SOUTH"c\ B3P1C$""zf BPC$C$" WEST"p BPC$C$" EAST"u NN1:N48000z :20(((C$)7)2):"**GO ";C$;"**"::3304@:::5:7:"YOU TOOK TOO MANY TURN3(B3)B30B310ė:3304% 3320X B5B5B(B)B3(B3)B35B35ė:3304n BPB3P13400| A43330 XP2318:Y0(10P1)14:30500:9000 X138P24:Y75P115:30500:9000H B3P1C$"NORTH"I A43409J XB2315::P81:(P$)0P80:L1P8:3306J P913P$P$(P9):ZV:ZH:P$;:3306j L2(P$):P80L2L123306 B3((P$,L2L11)):3315 (P$)2P$"":3306 P$(P$,(P$)1):P81(P$)L1P80:L1P8 3306 A43318 B0B10B(B)BK I AM?"\ Q(0):"(TYPE TWO NUMBERS SEPARATED BY A COMMA)";:ZH26:ZV23:P$"":L10:P8L1 16368,0:ZV:ZH:868:P$;:16384,128:P9(16384)128:P983312 P913P945P944(P948P957)(P944P81)3306 P944P80B(P$):L1(P$) 128,X3132,X32 D B11526524:B1135ēB1,X8 E p F XX15::P((1)3)2:P1((1)3)2:(1).5PP G (1).5P1P1 N X15:B55:(((B)))X,81:B03170 X X5,78X2,78 b XX24: :34,21::N0 23:"WHERE DO YOU THINX20:492,6:488,6:B11525723:B1,6:`  B57481:B6,X:B11525723:B1,X::XX14: & B4857:B(B48)2315,159::49240,159:48245,159 + 49240,159:48245,159:3300 0 :X6:B551:(((B)))135,X:B03140 1 B03142 :POSITION, THE OTHER NUMBER FOR THE":"VERTICAL POSITION OF THE POINT."L z " YOU TRY TO GUESS WHERE I AM HIDING." "YOU GET FIVE TRIES. AFTER EACH TRY," "I'LL TELL YOU IN WHICH DIRECTION TO" "LOOK FOR ME.":20500  A43120*  :1:A(1021)" B$"10 BY 10 GRID"> A4B$"-5 BY +5 GRID"_ P((1)9)1:P1((1)9)1k :34,8z Q913080 :" I AM HIDING ON A "B$"." "A POINT ON THE GRID IS GIVEN BY TWO " "NUMBERS: ONE NUMBER FOR THE HORIZONTAL"F "  PROGRAM: HURK27 LAST UPDATE: 8/25/80=Zd COPYRIGHT MECC 1979vn HURKLE 8/8/79 FPx AUTHOR:(MECC VERSION) KENT KEHRBERG, MIKE STEIN ASSOCIATED PROGRAMS AND FILES: HURKTAB T766:M768:P767:T1765:1022,11          (21):" C O R R E C T HOWEVER, THERE IS A":"MORE EFFICIENT WAY TO MAKE THE CHANGE."e09000:121:"WOULD YOU LIKE TO: 1) TRY AGAIN":15)"2) SEE THE ANSWER? ";:50000H40000:ZZNJZ(Z):Z0Z3İ50002:2129N24:868:24:"1 OR 2MMM1:MM8972075#c$:21:5:"THE CORRECT CHANGE WAS $";:Z9$(A):2415:Z7$;".":X9(0)%22:"DO YOU WANT ANOTHER PROBLEM";:50000'A$:(A$,1)"N"İ50002:43000((A$,1)"Y"İ50002:210)ZC:"YES OR NO, PLEASE":50001:2087Y*C(6)B(6)20351C(6)B(6)2C(6)B(6)42037;2090OC(7)B(7)2040qC(7)B(7)1C(7)B(7)22040{2090I810:C(I)B(I)2090:I:MM770X(MM):MMMM1:X0X(MM):Y(MM1):MMMM2:X,Y:2075Y(MM):X,Y:M(I)(I1%5)Q(I)100(I1%0))C$17658:C$"0"1700B1755j:I1%II1%:0:1194:3:1083:1700tl1360I13:C(I)B(I)2090:IC(4)B(4)2010C(4)B(4)220202090C(5)B(5)2032C(5)B(5)120322090"B"C$"N"1730#C$"N"1700XC$"C"Z7$"CENTS":Z9$"COIN":LL%0:I1%0:1750Z7$"DOLLARS":Z9$"BILL":LL%40:I1%521:958:"WHICH "Z9$;" DO YOU WANT TO CHANGE?"%22:868:"(ENTER THE VALUE IN ";Z7$;:")? ";C$:II1%1I1%5:(Q(0):I:`33,40::21:"DO YOU WANT TO CHANGE ANYTHING? ";C$:(C$,1)"Y"(C$,1)"N"1700v(C$,1)"N"1360180:21:868:"DO YOU WANT TO MAKE A CHANGE IN THE"22:1:868:"COINS OR THE BILLS ('C' OR 'B')? ";C$:C$(C$,1):C$"C"C$X(5I)50,130:I?,I15:B(I5)27X(5I)50,90:I:2084cJ0:S:I1(Z1$):B$(Z1$,I,1)tZB$" "1667[A$"$.*?":X914:B$(A$,X9,1)C36X9:1665\X9fB$"A"1650hC(B$)64:1665rC(B$)21CX(I1)7,YX9000:ZZNZ1İ50002:14904Z2İ50002:1550g24:868:24:"1 OR 2, PLEASE.";:50001:1450xX15:1::0I15:C(I)27X(5I)50,135:II15:C(I5)27X(5I)50,95:I:31080:X32:2X32:2I15:B(I)272).1C(3).25C(4).5C(5)C(6):M2M22C(7)5C(8)10C(9)20C(10)ldCM1P:C(((C.005)100))100:ACv2150(AM2).001194021:958:"YOUR CHANGE IS INCORRECT.":"WOULD YOU LIKE TO: 1) TRY AGAIN":15)"2) SEE THE ANSWER? ";40=I1%I(I5)55 L21:958:"HOW MANY ";Q$(I);"?";c 40000:C(I)ZN:C(I)(C(I))C(I)101192 ZC:"WHAT? TRY AGAIN";:50001:1184 50002:40X(5I1%)50,130LL% X15:1:C(I)27X(5I1%)50,135LL%: :1700EPM2.01C(1).05C(50(I1)506,55:IZ &Z1$"$20 $10 $5 $2 $1":X20:Y106:S1:1610:X9(0) .Z1$"50* 25* 10* 5* 1*":X20:Y146:S1:1610:X9(0) 8I110:1083:1300 ;X20:X9(0):LL%(I5)40:24:2:40X(5(I5)5I)50,130LL% M$" IS THE AMOUNT GIVEN TO PAY"u X21:Y31:S1:1610:X9(0):Z1$"FOR THIS PURCHASE":X74:Y44:S1:1610:X9(0) 5,55255,55255,1505,1505,56255,56255,1515,1515,110255,110255,1115,111 I16:(I1)505,55(I1)505,150(I1)506,1(P):M1D1:10205 P9(P10)1:M1P910:Z1960? 1020b P9(P20)1:M1P920:Z1960l 1020 D(P):DPD:M1M1D Z9$(M1):2415:M$Z7$:X9(0):::Z1$"$"P$" IS THE AMOUNT OF THE PURCHASE"! X21:Y18:S1:1610:X9(0):Z1$"$""$2 BILLS", "$5 BILLS", "$10 BILLS", "$20 BILLS"E FI110:Q$(I):y P(3E3(1))100:Z9$(P):2415:P$Z7$:X9(0) A(6(1))1:Z0:A5A6Z1 A280,420,460,780,460,780 D(P):EPD:E((E100)25)1:E3420 @M1DE4:1020 D" PROGRAM: CHANGE29 LAST UPDATE: 6/19/80?aB(10),Q(10):D$(13)(4):3l22016( .01,.05,.1,.25,.5,1,2,5,10,20:ZM24:ZC23<I110:Q(I):0 A "PENNIES", "NICKELS", "DIMES", "QUARTERS", "HALF-DOLLARS", "$1 BILLS",             : 210,90,210,120,235,120,240,117,240,92,235,90,210,90T K0127:X:MMK,X:^ 9000t D$;"RUN CHANGE2" (#23:868:1:" PRESS ";::"SPACE BAR";::" TO CONTINUE":16368,0 -#16384,128 2#23:1:868:1:1:0,30,225,45,240,30,225,45,225,60,0,60,98,60,93,55,90,35,90,30,93,30,117,35,120,55,120,60,117,60,112,0,55,112,65,112,0 95,90,90,93,90,117,95,120,115,120,120,117,120,93,115,90,95,90,0,155,90,150,93,150,117,155,120,175,120,180,117,180,93,175,90,155,90,0OOSE THE CORRECT NUMBER OF COINS"::"TO GIVE THE CUSTOMER.":k ::"MAKE SURE YOUR CHANGE IS CORRECT!"v MM770 0,30,30,45,60,60,30,0,120,30,90,30,90,60,120,60,0,90,45,115,45,0,150,60,150,30,175,30,180,33,180,42,175,45,150,45,180,60,0u 21N A STORE.":e ~"YOU WILL BE GIVEN A PURCHASE AMOUNT"::"AND THE AMOUNT GIVEN YOU FOR PAYMENT.": D$(13)(4):D$;"NOMON C,I,O":D$;"BLOAD CHANGEL,A$5200":232,0:233,82 9000: 8 "YOU WILL LOOK AT YOUR CASH REGISTER AND":> "CH PROGRAM: CHANGE8 LAST UPDATE: 6/18/80>DS:::255^22016d6:" W E L C O M E T O C H A N G E"::z"THIS IS A PROGRAM TO HELP YOU LEARN TO"::"MAKE CORRECT CHANGE.":: |"YOU ARE A CHECK-OUT PERSON I    666$,e$? u66$$666$, u -=?-?/- 666$$=/u6ve $666 $-66 $$&- 6ve $66?-----/------.-=---6 --??d --5??7--5??7--5??7--=6/?7 I--??q - &)u6'4$46v-=$ u$66$>46666$ u66 -?6- I166&$ -66" ->?7--'du66& -6&$6M??666$ u6&66&/I66?6666$-  6666&$ & 6&66$, u6& -6?$- 666?- 66$2W1R2R21O2W2R3R31Wd2W0b220000i2Ir,3:7~3:II13:G61711:8:G:"*********************":3G716:G:8:"*";19)"*":GH411:8:"NUMBER TRIED...";I:10:11:"NUMNSWER IS "T(.20:9:S;F$;"IS = "T;G$4|.W1W11<.W0GD/13000v/G7((1)13)1::G1G7:AQ$:G:::AQ$ 0GREAT!,FANTASTIC!,GOOD JOB!,YOU'RE DOING GREAT!,RIGHT ON!,GREAT...KEEP IT UP!,GOOD GOING!,KEEP IT GOING!,FANTASTIC JOB!,BEAUTIFUL!,TS))(F$)6C(L8(37)1&(TSBJ8\+40000:AZN:[+TA.0001ATAA.000112200$,:X$RP$(((1)4)1):" "X$".";:W0ĺ"..TRY AGAIN!",:WW1,W211700P-10300-::"SORRY, YOU HAVE USED YOUR 2 TRIES." -:"THE CORRECT AZ3`"Y1Z408300(a"Y2Z48300G"Z09000,09300,09600,09900Q(#G$A$\#J.001g#10100qT$G$B${$J.01%10100%G$C$%J1H&10100&G$D$'J1000t'X(1)'S(X200)1<(::S;F$;"IS = ";G$; A(L7((,C$" M " D$" KM "# P(1)2 XY(P3)1Q Y07200,07500,07800,08100[ F$A$f B1000q 08300{ LF$B$ B100 08300 xF$C$ B1 @08300 F$D$  B.001 l L(1) Z(L4)1 4!ZY08300 !Y408800!= 25000 METERS (M)" <20000& nA$, f 10:868:10:"HOW MANY PROBLEMS WOULD YOU LIKE? ";N hN1N100N(N)ĺ:"BE REASONABLE.":4001 I1N 2:1:14:"PROBLEM #"I <2:14:G1((I))9:"-";:: dA$" MM " B$" CM " ( 20000? :4:"1000 MILLIMETERS (MM) = 1 METER (M) "p " 100 CENTIMETERS (CM) = 1 METER (M) " " 1 KILOMETER (KM) = 1000 METERS (M)" 11:"THAT MEANS...":14:"10 MILLIMETERS (MM) = 1 CENTIMETER (CM) ":" 25 KILOMETERS (KM) THER. THE ":"UNITS I WILL USE INCLUDE THE MILLIMETER ":"(MM), CENTIMETER (CM), METER (M), AND " "KILOMETER (KM). I WILL GIVE YOU A LENGTH":"IN ONE UNIT AND ASK YOU TO CONVERT IT TO ":"ANOTHER UNIT. YOU WILL BE GIVEN 2 TRIES ":"PER PROBLEM."RP$(G):G T(100) XP(1)D :12:11:"* METRIC LENGTH *"w 20:868:20:"DO YOU NEED INSTRUCTIONS? ";Y$ Y$(Y$,1,1) LY$"N"4000 Y$"Y"00800e x:3:"I WILL DRILL YOU IN CONVERTING FROM ONE ":"UNIT OF METRIC LENGTH TO ANO=  PROGRAM: METLEN8 LAST UPDATE: 6/18/80>Z COPYRIGHT MECC 1979y METLEN 6/28/79 FP AUTHOR: BOB JAMISON-MECC REGION 1( ASSOCIATED PROGRAMS AND FILES: NONEZ::255::ZM24 dG113:A$:G:G14:      z #    ! "ԲΠԠŠ Ų ˲ ҠϠ"̠Բՠ Π ŠϠҠ̠Ӡ)ĠӠԠ  NEW EARE MULTIPLES OF""TEN."," )"MULTIPLICATION, AND DIVISION." > TAXMAN,TAXMANh"TAXMAN IS A GAME WHICH REINFORCES" "CONCEPTS RELATED TO SKILLS IN ""THE FACTORING OF NUMBERS."  TENS,TENS"TENS PROVIDES DRILL IN MULTIPLYING""NUMBERS WHICH "x ROUND,ROUNDBy"ROUND PROVIDES DRILL AND PRACTICE ON " pz "ROUNDING NUMBERS TO THE NEAREST TEN," {"HUNDRED, THOUSAND, ETC."  "SPEED DRILL",SPDRILL "SPEED DRILL IS A TIMED DRILL EXERCISE""COVERING ADDITION, SUBTRACTIONACKJACK. THE"<J"USER BECOMES SKILLED IN APPROXIMATING" hK"METRIC LENGTHS THROUGH PLAYING THIS."}\ NUMBER,NUMBER]"NUMBER IS A GAME OF LOGIC IN WHICH THE" ^"USER TRIES TO GUESS THE COMPUTER'S"_"NUMBER. THE COMPUTER GIVES CLUES.S OF LINE"+C"SEGMENTS IN METRIC UNITS."ID "METRIC LENGTH",METLENqE"METRIC LENGTH PROVIDES DRILL AND"F"PRACTICE ON COVERTING FROM ONE UNIT TO"G"ANOTHER UNIT IN THE METRIC SYSTEM."H "METRIC 21",MET21I "METRIC 21 IS METRIC BLCORRECT CHANGE." &0 HURKLE,HURKLET1"IS A GAME WHICH TEACHES THE COORDINATE"~2"SYSTEM. STUDENTS HAVE TO FIND THE"3"HIDDEN HURKLE."@ "METRIC ESTIMATE",METESTA"METRIC ESTIMATE PROVIDES A TIMED DRILL" B"ON ESTIMATING THE LENGTHOF LOGIC. THE COM-"B"PUTER SELECTS A NUMBER WHICH YOU MUST" n"GUESS. THE COMPUTER PROVIDES CLUES.  CHANGE,CHANGE"CHANGE PROVIDES DRILL IN MAKING CHANGE." "GIVEN A PURCHASE PRICE AND AMOUNT PAID," "THE STUDENT MUST MAKE $)))520# (ZN$)0ZN$"0"5407 ZN$"D"ZN0:n ZM:"THAT IS NOT A NUMBER - TRY AGAIN";:550:500 ZM:868:CV1(CV23):ZN(ZN$): &CV1:36,CH:868:  "ELEMENTARY - VOLUME 1",11  BAGELS,BAGELS"BAGELS IS A GAME ė:280/ "PLEASE ANSWER YES OR NO";:1:390B Q0QN1470 22:1:"PLEASE ENTER A NUMBER IN THE RANGE":"OF 1 AND ";N;".":16:280 ::10:"GETTING THE PROGRAM..." D$;"RUN ";N$(Q,2) CH(36):CV(37) "";ZN$:(ZN$)(((ZND ";:868 ^490:QZN+ hQ0QN1380l r:"PLEASE TYPE A NUMBER IN THE RANGE OF"::"1 AND ";N:340 |:N$(Q,3):18:N$(Q,4):20:N$(Q,5)  23:"DO YOU WANT ANOTHER DESCRIPTION";:868 A$ (A$,1,1)"Y"330 (A$,1,1)"N"2(T2)ĺ T 16:1:"TYPE THE NUMBER OF THE PROGRAM YOU WANT.":"(IF YOU WANT PROGRAM"::"DESCRIPTIONS, TYPE 'D'.) ";:868 "490 ,ZN$"D"330 @QZN:450 J34,15:16: T16:"TYPE THE NUMBER OF THE PROGRAM YOU"::"WANT DESCRIBE CESA #6"0 U::" U-W RIVER FALLS"C ZPA14000:PAg d:(10):(15):"COPYRIGHT MECC" n(17):(12):"ALL RIGHTS RESERVED" xPA1300:PA D$"": CONTROL D D$"RUN MENU" N$(T,C) C T;" ";N$(T,1);:20 T INIT PROGRAM FOR CESA 6%+7:::A::o" WESTERN-WISCONSIN ACADEMIC COMPUTING"(" CONSORTIUM"2:" MICROCOMPUTER SUPPORT SERVICE"<::" PROVIDED THROUGH" P::"      23,9*(1023)12343032#4:D::5T5:"WOULD YOU LIKE TO RUN THIS PROGRAM"::"AGAIN - YES OR NO";:868bA$:958w(A$,1)"Y"170(A$,1,1)"N"43050:"PLEASE ANSWER WITH YES OR NO":43005:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO")100ژ::16368,0䘱/@CH(36):CV(37)WA"";ZN$:(ZN$)(((ZN$)))40003tB(ZN$)0ZN$"0"40006C24:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001F24:868:CV2:ZN(ZN$):JCV1:36,CH:868: END OF PROGRAM ,125"21:20:868:"TOO BIG.",1070C423(G1)19,125:21:7:"YOU GUESSED IT IN ";T;" TRIES.":11:"THE NUMBER WAS ";G;"."39100:4300024:6:"PRESS ";::"SPACE BAR";::" TO CONTINUE";Ƙ16368,0И(16384)12839121220LGX1168N00PGGSKKGS:1110;RKKG1GVJ1KK^`313(J1)19,125etJly3~293(G1)19,125GSG21:20:868:"TOO SMALL."10700JGS14313(J19),125J3303(G1)198:XXXX19:BB4853549XX,115:BXX6,115R$XX,92XX,98:XXXX19:B.33,19:21:868:"GUESS # ";T1;" ?";:33,40840000:GZN1:G0GK1086<:4:"YOUR GUESS MUST BE BETWEEN 1 AND ";K:ZZ11500:ZZ:1070>TT1BGX|39100:430008 ***PRINT NUMBER AFTER 20 GUESSES:11:6:"20 GUESSES IS ENOUGH TRIES":((24((X)))2):"THE NUMBER WAS ";X39100:43000 DRAW NUMBER LINE0:1:3:XX3:0,95272,95B4957:BXX,115 XX,92XX,9330 6"IS TOO SMALL" @2652 J"IS TOO BIG"; T265n ^ *** HUMAN HAS GUESSED THE COMPUTER"S NUMBERx h:11 r13:(7);(7)"YOU GUESSED IT!"::((25((X)))2):"THE NUMBER WAS ";X;".":::((21((T)))2):"IT TOOK YOU ";T;" GUESSES." "GUESS # ";T1;" ?";1 ZN23:40000:GZN1u G1GKĢZV2:868:"THE NUMBER IS BETWEEN 1 AND ";K;".":267 958 TT1 "GX360 'CV1:21:G100000ĺ" ";:G10000ĺ" ";:G1000ĺ" ";:G100ĺ" ";:G10ĺ" "; (G;:28 ,GXATER THAN 0.":170G *** COMPUTER "THINKS" OF A NUMBER - CALL IT XY X(K(1))1_ g T0m "OK, I HAVE A NUMBER. START GUESSING." *** HUMAN STARTS GUESSING K15ī1000 T20390 ZV(37)1 ZV:1:868OO SMALL OR TOO BIG." 39100D :"WHAT IS THE LARGEST NUMBER"X :"YOU WANT?";i 40000:KZN1{ K100001182 :"OOPS I FORGOT TO TELL YOU...": "USE A NUMBER LESS THAN 100000."::170 K0200 :"PLEASE CHOOSE A NUMBER GRE NONE ::255:::? " A NUMBER GUESSING GAME"::g :"I WILL THINK OF A WHOLE NUMBER" :"BETWEEN 1 AND A NUMBER YOU GIVE ME." :"TRY TO GUESS MY NUMBER.": "AFTER EACH GUESS I WILL TELL YOU IF": "YOUR GUESS IS T$  PROGRAM: NUMBER8 LAST UPDATE: 6/19/80>P D$(13)(4)fD$;"NOMON I,O,C"y232,0:233,64(D$;"BLOAD SMLLET"d COPYRIGHT MECC 1979n HUMBER 7/79 FPx AUTHOR: ASSOCIATED PROGRAMS AND FILES:     2WX10):W310((1)W31)WX4(W1W2W3:S$" / "s2W5W1:K0:2400:11,13Y5:12,Y3:12,Y7:W5W2:K1:2400F25,27Y4:25,27Y6HX929:K2:2800:T11:1800JZ1100001360K1550::"SORRY, YOU TOOK TOO LONG "T$;"."LT12ĺ"THE :13,Y4:13,Y6:W5W2:K1:2400:1350BW3((1)(D3D11))D1^W2((1)(D4D21))D2 ZZ.95W310((1)(9W2)1)((1)(9W21))!ZZ11320$W2W3:WX(100W210):WY(9W2)%WX9WX9'WX((1)(WXWY1)WY):W3(10W* NEXT LINE FORCES A CARRY IN THE MULTIPLICATION IF IT'S A HARD PROBLEM **kWX(100W110):WY(9W1)zWX9WX9WX((1)(WXWY1)WY):W2(10W1WX10):W210((1)W21)WXW3W1W2:S$" X "&W5W1:K0:2400:11,Y4:11,Y6:12,Y5K0:2400:11,13Y5:W5W2:K1:2400:1350FW1((1)(M3M11))M1bW2((1)(M4M21))M2 ** NEXT LINE PREVENTS CARRYING IN MULTIPLICATION FOR MEDIUM DIFFICULTY **ZZ.95W210((1)(9W1)1)((1)(9W11))ZZ11270J *1350 W3((1)(S3S11))S1<W2((1)(S4S21))S2RW1W2W3:S$" - "ZZ.95(W310)(W210)(W110)1200: ** DON'T WANT TO BORROW FOR MEDIUM DIFFICULTY **ZZ1(W310)(W210)(W110)1200ZZ1W3W2:W2W1W3*W5W1:jT301140,01200,01250,013009tW1((1)(A3A11)A1)U~W2((1)(A4A21)A2)lW3W1W2:S$" + ":ZZ.95(W110)(W210)(W310)1140ZZ1(W110)(W210)(W310)1140W5W1:K0:2400:11,13Y5:Y3,Y712:W5W2:K1:2400:ROBLEMS WOULD YOU LIKE ?";:868140000:N2ZNpN21N250ĺ:"SORRY, TRY TO STAY BETWEEN 1 AND 50.":700y255N$"WAY TO GOFABULOUS GOOD JOB GREAT SUPER ALL RIGHTTHAT'S ITRIGHT ON "VY15`L11N2e:((1)151)::15602:D38uX:8:"DO YOU WANT"::" 1) SLOW (10 SEC.),":" 2) MEDIUM (8 SEC.), OR":" 3) FAST (6 SEC.) SPEED?"]14:868:"(ENTER 1, 2, OR 3) ?";B$:(B$)1B$"1"B$"3"605bT5400(B$)70:ZY.85(B$).05:ZY((ZY)) 17:"HOW MANY P:S2S1:S39:S4S3:6006S15:S2S1:S350:S449:600WS111:S211:S325:S474:600n(A$)465,470,480M10:M2M1:M35:M49:600M12:M36:600M12:M38:600(A$)505,510,520D10:D21:D35:D49:600D22:D46:600D1, 2, OR 3) ?";A$:(A$)1A$"1"A$"3"351M hZZ.85(A$).05:ZZ((ZZ))e rT3380,420,460,500| |(A$)385,390,400 A10:A2A1:A39:A4A3:410 A15:A2A1:A350:A449:410 A111:A211:A325:A474 600 (A$)425,430,440S10:" 3) MULTIPLICATION, OR":" 4) DIVISION PROBLEMS?" 10:868:"(ENTER 1, 2, 3 OR 4) ?";A$:(A$)1A$"1"A$"4"251 T3(A$):R0 ^14:"WOULD YOU LIKE"::" 1) EASY,":" 2) MEDIUM, OR":" 3) HARD PROBLEMS?", _20:868:"(ENTER 1MS"::"AND THE MORE YOU GET CORRECT, THE"X :"HIGHER YOUR CHALLENGE SCORE WILL BE." ::"A PERFECT CHALLENGE SCORE IS 1000."::"SEE HOW CLOSE YOU CAN GET TO 1000." 3500:8 180:3:"DO YOU WANT"::" 1) ADDITION,":" 2) SUBTRACTION," :"IT WILL TEST YOUR ADDING, SUBTRACTING,"::"MULTIPLYING AND DIVIDING. YOUR"s :"ANSWERS WILL BE TIMED." 3500: 5:"YOU WILL RECEIVE TWO SCORES - THE"::"NUMBER CORRECT, AND A CHALLENGE SCORE."* :"THE FASTER YOU ANSWER THE PROBLE868 T$: T$""ĺ"PLEASE TELL ME YOUR NAME."::140h 12:"WOULD YOU LIKE INSTRUCTIONS";:868p A$ (A$,1,1)"Y"ī200 (A$,1,1)"N"ė:250 "YES OR NO PLEASE, ";T$;".": 00150 :7:"THIS IS A DRILL ON MATH PROBLEMS."S PROGRAM: SPDRILL9 LAST UPDATE: 6/25/80?\ COPYRIGHT MECC 1979x SPDRILL 7/79 FP AUTHOR:( ASSOCIATED PROGRAMS AND FILES: NONEx:255::2000::ZM24 6:"WHAT IS YOUR FIRST NAME";:          P)(IPZ1)205 D$;"WRITE EDIT.SCR":A$ 205 D$:9000 D$;"DELETE ";N$:D$;"RENAME EDIT.SCR,";N$:D$;"OPEN ";N$ D$;"READ ";N$;",B";PC TCPC D$:50 , INSERT LINES% .I0:Q15 /PCTC:X8TC\ 0D$;"OPEN EDIT.SCR":D$;",4000,3000,3000,1200,825r }I "**ILLEGAL COMMAND**" 50 DELETE LINES TC0 9800 I0:Z10Z11 D$;"OPEN EDIT.SCR":D$;"CLOSE ";N$:D$;"OPEN ";N$ D$;"READ ";N$:215) II15 1:D$;I IPPCTCLC1b (If +D$;"OPEN ";N$ ,P1:D$;"READ ";N$:A$:D$:D$;"READ ";N$;",B0":D$ -9000 2X6(0)::G10:"ED> ";:9200:100 d PARSER COMMAND eC$A$" " nI115k x(C$,1)("IQXNRPTWBDLCGHZ",I,1)ĴI300,9999,10000,700,500,600,800,850,875,2002x(A$,1)" "A$(A$,2,(A$)1)~P1(95),P0(95)TC0 D$(4) I768777:Y:I,Y:I 104,168,104,166,223,154,72,152,72,96 D$;"NOMON I,O,C"  "APPLE EDITOR 1.2"4 "FILE NAME?";N$I #N$"BASIC"1000S *500- YES OR NO";:868A$5(A$,1,1)"Y"ė:270N(A$,1,1)"N"43050{:"PLEASE ANSWER WITH YES OR NO":43005*(1023)123ė:(13);(4);"RUN HELLO"4:7 A$" ":LC0:TCTC14Z$:Z$(13)4TA$A$Z$:TCTC1:LCLC1:)40003$B(ZN$)0ZN$"0"40006eCZM:868:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868: END OF PROGRAM::55:"WOULD YOU LIKE TO RUN THIS PROGRAM"::"AGAIN Y......";R(0):12:15:"SECOND TRY.....";R(1)dkFR(0)Ģ20:"THAT'S GREAT. YOU GOT ALL OF THEM."p255:23:7::16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE":16384,128:16368,0:43000@CH(36):CV(37)A"";ZN$:(ZN$)(((ZN$))":16384,128:16368,0!%TRY0(*I14255^R:8:6:"HERE IS YOUR SCORE FOR TODAY:"\:G61711:9:G:"**********************":aG716:G:9:"*";20)"*":G:12:8:"NUMBER TRIED...";F-f11:11:"NUMBER CORRECT":12:13:"FIRST TRTRY1700TRYTRY1J"INCORRECT, PLEASE TRY AGAIN."::440Ps"THE CORRECT ANSWER IS: ";AB~00800R(TRY)R(TRY)1 :"CORRECT";(7);(7):800 23:7::16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE:5066 EE$EE$(AA):(AA);:16368,0:QWQW2:480I (13);:A$EE$\ &QW15104600y +C(A$):C0Ģ(37):440 0660 X:"THAT WAS OVER THE TIME LIMIT..." bTRYTRY1 vTRY2700 "LET'S TRY AGAIN": 440 CAB00760 :QW0:16368,01 QWQW1:QWTLQW15104:520H (16384)128480r AA(16384)128:16368,0:AA13520 AA8510 (EE$)0508 (EE$)1509 EE$(EE$,(EE$)1) (0):" ";:(0):16368,0:480 16368,0:480 EE$"" 1 TO 99.";:1:270 TC18 hR(0)0:R(1)R(0)::180C |I1F[ :7:"PROBLEM #";I :X(9(1)1):Y(9(1)1):M(2(1))1:N(2(1))1 AX10M:BY10N 868:TL400:" ";A;" X ";B;" = "; EE$"":A$"" T6T920 EE$""K12000:K:::10:130I "THIS PROGRAM WILL GIVE YOU A DRILL ON":x "MULTIPLICATION OF NUMBERS ENDING WITH": "ZEROS." 20:"HOW MANY PROBLEMS WOULD YOU LIKE? ";:868 40000:FZN "F1F99ĢZM:868:"PLEASE ENTER A NUMBER FROMIPLICATION OF NUMBERS WITH TRAILING ZEROSE :1:X039:0,39X:X 13:2,811:12,1711:30,3511:12,1519:30,3519:12,1729:30,3529 11,295:11,2912:11,2921:11,2926:11,1930:19,2935 13,1722:16,2023:19,2324:22,2625 z' PROGRAM: TENS6 LAST UPDATE: 6/23/80Vd COPYRIGHT MECC 1979rn TENS 7/79 FPx AUTHOR: TIM AARONSON ASSOCIATED PROGRAMS AND FILES: NONE::255:R(1)ZM24) TENS: DRILL IN MULT              :868:)Rù34,ZC1:ZC::34,0:CV2:A1Ĭ@ZE343049{:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO")1023,9*:PCH(36):CV(37):QâCV1:36,CH:868:Rù34,ZC1:ZC::34,0:CV2:4,0:CV2:V34,0:CV2:5:"WOULD YOU LIKE TO PLAY AGAIN ";:868:A$:(A$,1)"Y"(A$,1)"N"43005i(A$,1)"Y"ė:291(1023)12343032::10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO")1023,9*:PCH(36):CV(37):QâCV1:36,CH68,0::@CH(36):CV(37)FA"";ZN$:(ZN$)(((ZN$)))40003cB(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868: END OF PROGRAM:QUBROUTINE *****8:"THAT WAS OVER THE TIME LIMIT..."DC1C11PM1M11_C12750x"LET'S TRY AGAIN":44023:((32)0)61"PRESS ";::"SPACE BAR";::" TO CONTINUE";16368,0(16384)128100116316:G:9:"*";20)"*":G:12:8:"NUMBER TRIED...";NUR11:11:"NUMBER CORRECT":12:13:"FIRST TRY......";C:12:15:"SECOND TRY.....";NUCM2\CNUĢ20:"THAT'S GREAT. YOU GOT ALL OF THEM."z99043000 ***** TIME LIMIT HANDLING S"TOO SMALL. TRY IT ONCE MORE."%.440U:"THE BEST ANSWER IS: ";R(A(I))^990kM2M21q}C1M10 R1*M1500::/::348:"OK, LET'S SEE HOW YOU DID."HG61711:9:G:"**********************":6MG7(3(1)1)600,620,640,6203X::" GOOD":990<b650Vl::"THAT'S IT":990_v650z::" GREAT!!":990 770C1C11M1M11C12750RR(A(I))730:"TOO BIG, "N$;"TRY AGAIN."440:$(EE$,(EE$)1)6(0):" ";:(0):16368,0:480I16368,0:480YEE$"":506EE$EE$(AA):(AA);:16368,0:QWQW2:480(13);:A$EE$&QW15104920+R(A$):R0Ģ(37):4400RR(A(I))670:C10590DCC1N0 C10+A(I);" ROUNDS TO ?";:868<EE$"":A$""IT6T920cEE$"":QW0:16368,0QWQW1:QWTLQW15104:520(16384)128480AA(16384)128:16368,0:AA13520AA8510(EE$)0508(EE$)1509EE99Ģ23:"PLEASE ENTER A NUMBER BETWEEN 1 AND 99.":295= (T -34,6:33,32:32,7_ ." ":h 6C0s @TL500} JM10 TM20 ^R11NU |A14J(("1000",((1)32))) Q(1) Q.1390 A(I)(10JQ)A(I)(A(I)J)J39D TO HUNDREDS,":5:"3) ROUND TO THOUSANDS, OR":5:"4) HAVE A RANDOM MIXTURE?" $12:868:"ENTER 1, 2, 3, OR 4 ?";A$:(A$)1A$"1"A$"4"292 %A1(A$):J(("1000 ",A11))7 '15:"HOW MANY PROBLEMS WOULD YOU LIKE ";:868:A$:NU(A$):NU1NU HUNDREDS TO THE NEAREST HUNDRED,"( S "AND NUMBERS IN THE THOUSANDS TO THE" :"NEAREST THOUSAND. YOU WILL HAVE A TIME"  ""LIMIT OF ABOUT 10 SECONDS FOR ANSWERING.":990O #6:"WOULD YOU LIKE TO":5:"1) ROUND TO TENS,":5:"2) ROUNZ1170 : "THIS IS A DRILL ON ROUNDING WHOLE ":j "NUMBERS. I WILL GIVE YOU A NUMBER AND ": "ASK YOU TO ROUND IT OFF. IN ROUNDING " "THE NUMBERS, ROUND NUMBERS IN THE ": "TENS TO THE NEAREST TEN, NUMBERS IN"" :"THE):I0. P6:7:"R O U N D I N G D R I L L"G Z18:"INSTRUCTIONS";R _50000Z dA${ n(A$,1,1)"N"İ50002::291 }(A$,1,1)"Y"İ50002::150 ZC "YES OR NO PLEASE":50001 100 Y(((1))97)2 Z(10(1)) * PROGRAM: ROUND7 LAST UPDATE: 6/20/80=\ COPYRIGHT MECC 1979| ROUND 6/18/79 FP AUTHOR: ASSOCIATED PROGRAMS AND FILES: NONE#ZC22:ZM23(::255:2R(X)(XJ.5)J<T910 FA(0      ER A NUMBER 1 - 3":43022%ZE1Ĭ5ZE343049p:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"|)1023,9*:ZRAM...":(4);"RUN HELLO")1023,9*:0.:"PLEASE ANSWER WITH YES OR NO":43005 "WOULD YOU LIKE TO:"::"1) RUN THIS PROGRAM AGAIN,"::"2) RUN A DIFFERENT PROGRAM, OR" :"3) END"13:"PLEASE ENTER 1, 2, OR 3 ";:86840000:ZEZNZE0ZE443030:"PLEASE ENTS ";::"SPACE BAR";::" TO CONTINUE";@!N(16384)12820001Y"N24:1:868:1:1: Yi::5(1023)123430205:"WOULD YOU LIKE TO RUN THIS PROGRAM"::"AGAIN - YES OR NO";:868A$(A$,1,1)"Y"Ĭ(A$,1,1)"N"4305'A$:A(A$):A13A8(A48A57)10005>'(A$)810040N'(A$)13ıb'(ZN$)N10005}.'A$;:ZN$ZN$A$:100058'(ZN$)010005B'(ZN$)1ZN$"":10070L'ZN$(ZN$,(ZN$)1)V'(8)" "(8);:10005' N16368,0:24:868:7:"PRES YOU WANT TO PLAY AGAIN? ";YN$:YN$(YN$,1):YN$"Y"YN$"N"1200[YN$"Y"Ľ:K71:10q(1023)123ė:(13);(4)"NOMONC,I,O":12:"RETURNING TO MENU..."(13);(4)"RUN HELLO"''16368,0:ZN$"":I3:5:" ":I3:5+868:G:1:1:G1500:Gc"THE "N" DIGIT NUMBER THAT I WAS":"THINKING ABOUT WAS "Q$".":20000m1200I3:12:868:I3:12:"THAT'S THE NUMBER!"L20000M::10:"IT TOOK YOU "I;:I1ĺ"GUESS":1200N" GUESSES."C:12:"DO1:A(J)B(K)CC1 K,J8J1N:A(J)B(J)DD1?JMDN1000i"12:I3:868:I3:12v,C04006G1C:"PICO ";:GD0500G1D:"FERMI ";:GCD0700"BAGELS"I20203G1200:G:G13:G:1:T NUMBER.":2056 A$ZN$:G1N:A(G)((A$,G,1)):G^ G1N1:K(G1)N:A(G)A(K)FL1 K,G:FL1FL0:12:I3:868:I3:12:"THE DIGITS ARE ALL DIFFERENT.":205 C0:D0 J1N1:K(J1)N:A(J)B(K)CC1 K,JJ2N:K1JINKING OF A "N" DIGIT NUMBER...":G18:"-----";:G:3:1:" GUESS CLUE":I0t G1N:B(G)((Q$,G,1))48:G II1:I3:868 1:I3:I")"3((I)))"?";:10000:(ZN$)N(ZN$)0705 (ZN$)NĖ12:I3:868:I3:12:"TRY A "N" DIGIO DIGITS ARE CORRECT.":20000W :24:"(ENTER ALL ZEROES TO SEE THE ANSWER.)";:1:1 Q(((1)10)10(N1)):((Q))N160 Q$(Q):G1N:S((Q$,G,1)):H1N:GH180 ((Q$,H,1))SGN:HN:FL1 H:G:FL1FL0:160Q 1:"I'M THTER YOU TYPE IN YOUR GUESS, I WILL ":"GIVE YOU CLUES ABOUT YOUR GUESS. THESE ":"CLUES ARE:"i }: " PICO - 1 DIGIT CORRECT BUT IN THE ":11)"WRONG PLACE."::" FERMI - 1 DIGIT CORRECT AND IN THE":11)"RIGHT PLACE."  " BAGELS - NHINK OF A NUMBER. YOU TRY ":"TO GUESS IT. YOU DECIDE HOW MANY DIGITS ":"ARE IN THE NUMBER (2, 3, OR 4)." d13:868:13:"HOW MANY DIGITS IN THE NUMBER? ";N$:(N$)2(N$)4Ģ20:"(ENTER 2, 3, OR 4)":100 nN((N$))::K71155a x:4:"AF[  PROGRAM: BAGELS8 LAST UPDATE: 6/18/80> W ::255::K71100p2:15:"* BAGELS *"13:868:13:"WOULD YOU LIKE INSTRUCTIONS? ";YN$:YN$(YN$,1):YN$"Y"YN$"N"30(YN$"N"K71:100o 234,2:::5:" I WILL T      BAR";::" TO CONTINUE";2(P(16384)12820520D2P16368,0::`Q NUMERIC VALIDATORjQZM22QZH(36):ZV(37)Q"?";ZN$:ZN$""İ20960:20915Q(ZN$)(((ZN$)))20940Q(ZN$)0ZN$"0"20950QZM:"PLEASE TYPE A NUMBER.680hK21690%r"TRY AGAIN.":-|K271470R"CLOSE. VERY GOOD.":dK2C7C71uK2C8C81"NEAREST ";A$(CM);": ";N120500G7:34,0:21000P SPACE-BAR ROUTINEP24:7:16368,0:"PRESS ";::"SPACE0f"958:::150:(7);"YOUR TIME IS UP.":"THE ANSWER WAS "N1;" ";A$(CM);"S.":J911000:J9:255w,20500:1705~6 @((((N1E)),4))L11630J"RIGHT ON"OK2C7C71RK2C8C81T20500:1705^((((N1E)),4))L21L11)%ZV1:11:868:EE$;:1500@:36,0:BB50:E(EE$)L:958`EE$(13)1548E0EE$"0"Ģ22:"PLEASE TYPE A NUMBER.":1548 E(E)Ģ22:"PLEASE ENTER AN INTEGER.":1548 1550 ZV1:36,ZH:868:1471:159T, B = TIME RETURN, E = VARIABLE INPUT. C:EE$"":B0:16368,0h:BB1:BR50B1280050:1570:(16384)1281500:AA(16384)128:AA13154016368,0AA8EE$EE$(AA):1538L1(EE$):L12EE$"":1538EE$(EE$,N1(N1)N9N8RN1(N110.5)10:CMZZ$((N1),2):ZZ$".3"ZZ$".7"1400gCMN1(N1.5)xCMN1N110"#";G7;": ";:X1N"-";X:8ZH(36):ZV(37)"ESTIMATE: ";:868): ENTER ROUTINE, R = TIME LIMI;:868:N$:(N$)1N$"2"N$"1"13103#:R10(CM(N$)1:1:3:"ESTIMATE TO THE NEAREST ";A$(CM):34,1:CML1.1:L21.1:1365FL1N94.5KL1((L110))PL2N92.25RL2((L210))UG71N7Z6nK1xN(30(1))2"----------":255:T1N910:1240HT2N910:N9(T1T2)10:N8T1N919{  >>> N9 AND N8 ARE CALIBRATION FACTORS <<<:7:"DO YOU WANT TO MEASURE TO ":" 1) THE NEAREST CENTIMETER, OR":" 2) THE NEAREST MILLIMETER?"(11:"ENTER 1 OR 2 "9)Ģ23:"YOUR ANSWER SHOULD BE AN INTEGER.":ZV1:1270N940(Q91)N9220(Q91)Ģ17:"ARE YOU SURE YOUR ANSWER":"IS IN ";::"MILLIMETERS";::" ?";Y$:15:958:Y$(Y$,1):Y$"Y"Y$"N"1282Y$"N"ĢZV1:1270!Q90Q91:7:868:150: "--------------------"$ 10T "USE YOUR RULER TO MEASURE THIS LINE IN": :"MILLIMETERS";::". TYPE THIS MEASUREMENT": "FOLLOWED BY A ";::"RETURN";::". ";:868:20900:N9ZN Y$"" N90ĢZV1:12707958:N9(NGET TO PRESS ";::"RETURN";I :" AFTER"::"ENTERING YOUR ESTIMATE." 16:868:16:"HOW MANY PROBLEMS DO YOU WANT";:20900:N7ZN N799N71Ģ23:"DON'T BE SILLY.":1180 K611300  :"YOU NEED TO ADJUST MY MEASUREMENTS." 70 3A$(1):A$(0)"CENTIMETER":A$(1)"MILLIMETER"G 8:936:255:ZM24i V2:12:"METRIC ESTIMATE":6 `"ESTIMATE THE LENGTH OF EACH LINE": j"SEGMENT. TYPE YOUR ANSWER AFTER THE" o t"WORD ";::"ESTIMATE:"; ~:".": "DON'T FOR LENGTH. *i  * VARIABLES: R-RESPONSE TIME, L1-CORRECT ANSWER RANGE, * $ * L2-CLOSE ANSWER RANGE. * . ******************************************************************* FOLLOWING REMARKS ARE FROM THE ORIGINAL TIMESHARE VERSION. *  * D. HOLZNAGEL - 4/22/71 *  * PROGRAM GIVES PRACTICE IN ESTIMATING METRIC LENGTHS BY *  * PRODUCING LINE SEGMENTS OF RANDOM3 PROGRAM: METEST7 LAST UPDATE: 7/9/80=[ COPYRIGHT MECC 1980 PROGRAM NAME: ESTMAT 1/2/80 FP AUTHOR: D. HOLZNAGEL  *******************************************************************=  * THE     NS  # 63@@@B@@ ??$!!!!??B@@)=$$$> ??$!) $;?2@@@0)- ') ??@@@@ !$$<::2--@@@@0)- $;?$--@@@@)- ?7&$ -@@@$ ??@`@@@@@)- ?& -6@@- $$;?2--@@@@ $$)-266? !! @@@@ T$$$$,6666.$$$$,6666.$$$$,6666.$$$$$ER HOUR SPEED ZONE.THIS SIGN MEA.-%$666@@@)=$$$=? 6) $$,?@@@@@@$$$6 @@--#$$$$$$ 666@@@@$$$.2111$$$@@@ $$)-266?@@@@$$$--2>?@@@@@@ $$)-266?%011@$$$--2?5@@@-- ?$)-@@@@@ $$$?--@@@@@@@ $$ 666;?@B@@ $#$ 66@B@@ $$$666@@$!!!!61111@@ $$#@E 08HXhx 0@P`p(8HXhx 0@P$$ 66$??@@$$$--26;?$,-@I ?$$ -@@@@$$$--266;?@@@@@$$$--;7--@@@@$$$--;7@@@@@@@d)5?$$ -@@@$$$6   ox<@}~??|_Oox?g}xGo?}w[_o7wo?go?~o@|?p>{m?_}vw?ppx?X_~zoo>{k/?{~?~>{o7owo}_~ox_8onV;W[]_]nw_ox?|g?~xc?oox p|ao?lxg}sO{_w_wv^F_w~~G~o88`}~?~~gox?O}x~o?}w[._0{o?|p{{@|~?~~1wvwg?o@q?|C>{m?_}~w?@~`?@_O~zog>{K/{~??~>{o7_ow[o{}?_gxs_X_nfWO{]_>nwOo?~?o?x?ocO}{o_wvv_7_wv^_?wv~_w~wvvw>wO0?~}~?_qwlw`\o>~`ox?a@}xx<Awx6_o7`o?8o{;?o{~_}~.wvsw?o@G?xx>{m?_mvw??`@?`@?W~v[k>w-w.{~?> x`\o~`wpg_X_nvW_{]_~nwoo|?o?x?o~_}?@{?|c@ooo}}`|a?l?~gOwwv_W_7v^_vf~_/vn~n_ |~?_?|k{o;_ow[o{=>_ox? }xco?}7[:_o7_W?X_{{?ww~_>wv{w?o@?x?~>{m?_UvuG_@X~nx1{~?G wpO_X_lfW_{_>fwooq?o          NS I# 63@@@B@@ ??$!!!!??B@@)=$$$> ??$!) $;?2@@@0)- ') ??@@@@ !$$<::2--@@@@0)- $;?$--@@@@)- ?7&$ -@@@$ ??@`@@@@@)- ?& -6@@- $$;?2--@@@@ $$)-266? !! @@@@ T ,oh? 8? 6 . 8? l 8?  d ?PEE 8? l 8? GN MEA.-%$666@@@)=$$$=? 6) $$,?@@@@@@$$$6 @@--#$$$$$$ 666@@@@$$$.2111$$$@@@ $$)-266?@@@@$$$--2>?@@@@@@ $$)-266?%011@$$$--2?5@@@-- ?$)-@@@@@ $$$?--@@@@@@@ $$ 666;?@B@@ $#$ 66@B@@ $$$666@@$!!!!61111@@ $$#@PE 08HXhx 0@P`p(8HXhx 0@P$$ 66$??@@$$$--26;?$,-@I ?$$ -@@@@$$$--266;?@@@@@$$$--;7--@@@@$$$--;7@@@@@@@d)5?$$ -@@@$$$6   :G1G1:LTRGEEN(G):LTR$(GEEN(G)):NAME2:31002EZLINELINE8:G"FIVE LENGTHS UNDER 21 WINS ";::" 2 PTS. ";:(7);:(7)::BLUE(6)99:35000>N217800>Y972H?:21:C$;", DO YOU WANHS UNDER 21 WINS ";::" 2 PTS. ":(7);:(7);::YELLOW(6)99:35000Tx7N117800]7Y57@8:21:B$;", DO YOU WANT ANOTHER LENGTH";:Q$:UB:(Q$,1,1)"N"ė:160008(Q$,1,1)"Y"144004:Y1Y11:"HERE IS YOUR NEXT LENGTH.":2:30300(:BLUANOTHER LENGTH";:P$:TA:(P$,1,1)"N"ė:14200J 0(P$,1,1)"Y"12500} ,3X1X11:"HERE IS YOUR NEXT LENGTH.":1:30300 3YELLOW(X1)Z:AAZ:TA:35000:21:A2113900 5X1514100 512500 L626000 ~6N120050 614200E7"FIVE LENGT8 (21:C$;", HERE ARE YOUR FIRST TWO LENGTHS.":5:Y81W \+30300:RED(1)Z:CZ:30300 ,RED(2)Z:CCZ:Z9$"CONTINUE":40020 -21:"HERE IS MY FIRST LENGTH.":6:Y121:30300:35000 D/GEEN(1)Z:DDZ:Y16:X12:Y12:Z120 0:21:Y$;", DO YOU WANT RST TWO LENGTHS.":1:Y0:30300m (#YELLOW(1)Z:AZ:30300:YELLOW(2)Z:AAZ:Z9$"CONTINUE":40020:N111700 #21:85:B$;", HERE ARE YOUR FIRST TWO LENGTHS.":2:Y41:30300 t'BLUE(1)Z:BZ:30300 <(BLUE(2)Z:BBZ:Z9$"CONTINUE":40020:N211700 PLAYER #3'S NAME";:C$O ::LTR$(Y$,12):LINE8:NAME1:3:31002:N18300 LTR$(B$,12):LINE50:NAME3:31002:N28300  LTR$(C$,12):LINE92:NAME3:31002 l LTR$"COMPUTER":LINE131:NAME3:3::31002 :21:150:Y$;", HERE ARE YOUR FI0 N27850 N12500L 13:"WHAT IS YOUR FIRST NAME";:Y$:8100 13:"WHAT IS PLAYER #1'S NAME";:Y$:15:"WHAT IS PLAYER #2'S NAME";:B$:8100 13:"WHAT IS PLAYER #1'S NAME";:Y$:15:"WHAT IS PLAYER #2'S NAME";:B$ 17:"WHAT IS= PROGRAM: MET21A8 LAST UPDATE: 6/18/80>DlVvMULTI(1022)`ZM23 :8:"HOW MANY PLAYERS ARE THERE?":"(TYPE 1, 2, OR 3). ";:868:40000:NZN 232,0:233,64:(13);(4)"BLOAD LETTER,A$4000" 3:0:1 N3790      S OF""TEN."DLTIPLICATION, AND DIVISION." 2 TAXMAN,TAXMAN\"TAXMAN IS A GAME WHICH REINFORCES" "CONCEPTS RELATED TO SKILLS IN ""THE FACTORING OF NUMBERS."  TENS,TENS"TENS PROVIDES DRILL IN MULTIPLYING""NUMBERS WHICH ARE MULTIPLEND,ROUND6y"ROUND PROVIDES DRILL AND PRACTICE ON " dz "ROUNDING NUMBERS TO THE NEAREST TEN," {"HUNDRED, THOUSAND, ETC."  "SPEED DRILL",SPDRILL "SPEED DRILL IS A TIMED DRILL EXERCISE""COVERING ADDITION, SUBTRACTION," "MUE"0J"USER BECOMES SKILLED IN APPROXIMATING" \K"METRIC LENGTHS THROUGH PLAYING THIS."q\ NUMBER,NUMBER]"NUMBER IS A GAME OF LOGIC IN WHICH THE" ^"USER TRIES TO GUESS THE COMPUTER'S"_"NUMBER. THE COMPUTER GIVES CLUES."x ROUC"SEGMENTS IN METRIC UNITS."=D "METRIC LENGTH",METLENeE"METRIC LENGTH PROVIDES DRILL AND"F"PRACTICE ON COVERTING FROM ONE UNIT TO"G"ANOTHER UNIT IN THE METRIC SYSTEM."H "METRIC 21",MET21I "METRIC 21 IS METRIC BLACKJACK. THGE." 0 HURKLE,HURKLEH1"IS A GAME WHICH TEACHES THE COORDINATE"r2"SYSTEM. STUDENTS HAVE TO FIND THE"3"HIDDEN HURKLE."@ "METRIC ESTIMATE",METESTA"METRIC ESTIMATE PROVIDES A TIMED DRILL"B"ON ESTIMATING THE LENGTHS OF LINE"HE COM-"6 "PUTER SELECTS A NUMBER WHICH YOU MUST" b "GUESS. THE COMPUTER PROVIDES CLUES. w  CHANGE,CHANGE "CHANGE PROVIDES DRILL IN MAKING CHANGE." "GIVEN A PURCHASE PRICE AND AMOUNT PAID," "THE STUDENT MUST MAKE CORRECT CHAN(ZN$)0ZN$"0"540+ ZN$"D"ZN0:b ZM:"THAT IS NOT A NUMBER - TRY AGAIN";:550:500 ZM:868:CV1(CV23):ZN(ZN$): &CV1:36,CH:868:  "ELEMENTARY - VOLUME 1",11  BAGELS,BAGELS "BAGELS IS A GAME OF LOGIC. T"PLEASE ANSWER YES OR NO";:1:3906 Q0QN1470 22:1:"PLEASE ENTER A NUMBER IN THE RANGE":"OF 1 AND ";N;".":16:280 ::10:"GETTING THE PROGRAM..." D$;"RUN ";N$(Q,2) CH(36):CV(37) "";ZN$:(ZN$)(((ZN$)))520 ^490:QZN hQ0QN1380` r:"PLEASE TYPE A NUMBER IN THE RANGE OF"::"1 AND ";N:340 |:N$(Q,3):18:N$(Q,4):20:N$(Q,5)  23:"DO YOU WANT ANOTHER DESCRIPTION";:868 A$ (A$,1,1)"Y"330 (A$,1,1)"N"ė:280#  T{ 16:1:"TYPE THE NUMBER OF THE PROGRAM YOU WANT.":"(IF YOU WANT PROGRAM"::"DESCRIPTIONS, TYPE 'D'.) ";:868 "490 ,ZN$"D"330 @QZN:450 J34,15:16: T16:"TYPE THE NUMBER OF THE PROGRAM YOU"::"WANT DESCRIBED ";:868  D$(13)(4)dZM24+xN$(24,5)AD$;"NOMON,C,I,O"O1023,123^::255:hT$,N{1:20(T$)2T$2:11:"AVAILABLE PROGRAMS"4T1NC15N$(T,C)CT;" ";N$(T,1);:20T2(T2)ĺ      G O O D L U C K"9000&122,2{(#24:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:1:1:16368,0)#(16384)1289001*#::16368,0:@CH(36):CV(37)A"";ZN$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"400:"HAS FACTORS LEFT."#:R"WHEN NONE OF THE REMAINING NUMBERS HAVE"X"ANY FACTORS, THE TAXMAN GETS THEM.":"YOUR SCORE IS THE SUM OF THE NUMBERS""YOU TAKE. IF YOU WANT TO GIVE UP, TAKE 0"::" 6 7 8 9 10":C"IF YOU TOOK 8, THE TAXMAN WOULD GET"s::"1, 2 AND 4 AND THE NEW LIST WOULD BE"::" 3 5 6 7 9 10"9000"THE TAXMAN MUST GET SOMETHING EVERY":"TIME SO YOU CAN ONLY PICK A NUMBER THAT"UR NUMBER AND"A"ALL ITS FACTORS ARE THEN DELETED FROM"T:"THE LIST."^9000d"FOR EXAMPLE, SUPPOSE YOU WANT 10":"NUMBERS TO BE IN THE LIST. AN EXAMPLE"::" LIST WOULD BE "::"1 2 3 4 5 : A"WE START WITH A LIST OF WHOLE NUMBERS IN"o"NUMERICAL ORDER (YOU DECIDE HOW MANY)."u{"YOU TAKE A NUMBER FROM THE LIST -- THE""TAXMAN GETS ALL THE FACTORS OF YOUR""NUMBER THAT ARE LEFT. YO27ĺ<I10ĺ" ";"=I;" ";->L(I)14@IABN1844KD::wF"HOW VERY GENEROUS OF YOU TO FORFEIT "G:"ALL TO THE TAXMAN."H::" T A X M A N 1 Y O U OI:" T A X M A N W I N S !"J754Ld:0000:NZN&N(N)F(N1Ģ11:868:"PLEASE BE REASONABLE.":801U*N50816]+:,"SORRY, YOU'LL HAVE TO KEEP IT UNDER 50.".8010L(50),T(10)2Y04Z06:7"THE LIST IS:"89I1N:(36)35828;:N T A X M A N W I N S !""U15:" T A X M A N ";Z;" Y O U ";Y|20:" T I E G A M E"900043000122 !6""HOW MANY NUMBERS DO YOU WANT IN THE"#:" LIST? "; $868:4 NUMBERS"0"ARE LEFT, MY TOTAL IS ";Z8M0>DQZY708^ZY71215:" Y O U ";Y;" T A X M A N ";Z20:" Y O U W I N !"15:" T A X M A N ";Z;" Y O U ";Y20:"  dM1 fI h! M0690. N3670< IN41I J2I2Y L(J)0664a M1g n Ju I} : "I GET "; I1N L(I)0682 I;" "; (36)35ĺ ZZI I :: "BECAUSE NO FACTORS OF ANYAL IS ";Y =:! >"I GET ";, @I1M< BT(I);" ";I DZZT(I)P FIX H:n J"MY TOTAL IS ";Zx K9000~ L X Z"NEW LIST: " [ \M0 ^I1N _L(I)0614 `(36)35610 a:N27ĺ bI10ĺ" "; cI;" ";:. "ARE YOU TRYING TO SHORT-CHANGE THE"K ::" T A X M A N???"T 504\ M0i I1K2y L(I)0544 KI(KI)544 MM1 T(M)I L(I)0 I $M0523 &L(K)0 (20::34,0: :YYK ;: <"YOUR TOT$ 34,0:11:"YOU TAKE? ";:8684 40000:KZN? 34,13J K(K)X K0754f KN518n : 14::K;" IS NOT IN THE LIST -- TRY AGAIN." 504 L(K)0514 K1530 14: "THERE ARE NO FACTORS OF ";K;" FOR ME." A M T H E T A X M A N"G j20:"DO YOU WANT INSTRUCTIONS";:868O lR$f n(R$,1,1)"Y"900} p(R$,1,1)"N"122 q:"PLEASE ANSWER YES OR NO":106 zZM24:800 ~500 570 600 650 M1126 700 754   PROGRAM: TAXMAN8 LAST UPDATE: 6/19/80>\ COPYRIGHT MECC 1979z TAXMAN 6/4/79 FP AUTHOR: ( ASSOCIATED PROGRAMS AND FILES: NONEd::255:f8:" H I"g:: h" I          1X,Y:20500::::D}34,20::0:B1Y16:X10,B1X5,B1::3}B1120:3X,Y:4:B2110::3X,Y:B2150::3::3X,Y:8ǃ 85,100,100,139,120,100,145,139,160,100,185,139A ˃ 22,25,23,25,0,50,25,25,26,50,0,50,22,25,23,50,25,25,26,50,31,TURNS!".wY3Y3XwB1(1)103:B1((1)50)1:B2((1)55):767,B1:T,B2:M:w0:Y1(Y5)(Y50)Y22:(X20)(X200),Y1279(X17279)(X17)(X17279),Y1::3wB116y1X,Y:B1150::4:1X,Y:3 {2X,Y:4:2X,Y:3::SS ";::"SPACE BAR";::" TO CONTINUE";A(P(16384)12820520])P(16384)1283220530r*P16368,0:205202P16368,0::PZ1(A$)PZ1((A$,Z,1))PZ13220660PZ1X,YPXX8P:$w34,20::10:"YOU FOUND ME IN "N1" (A$)09000-#QQ192#:X(0):A1A:(A$,1)"Y"1100P<#(A$,1)"N"9000ZA#::nF#(1023)123Ā'22016:1021,0:1022,0:D$"RUN HELLO" NNNZ$:Z$"-MUSIC"20120NZ0239:Z1:768Z,Z1::P(P24:7:16368,0:"PRENBPC$"NORTH"3SX150:Y(10B)1512:32000GXBPC$"SOUTH"[bNN1:N38000xl:15:"**GO ";C$;"**":1830 1021,A:(13);(4);"RUN HURK2"@:::5:7:"YOU TOOK TOO MANY TURNS!!" (#10:6:"DO YOU WANT TO TRY AGAIN?";A$:147,X153,X:XX15:a:34,20::N0:A$"NORTH":X80:Y30:20630:A$"SOUTH":X80:Y140:20630&23:868:"WHERE DO YOU THINK I AM HIDING?";BK$:(BK$)01830'B(BK$):B1B10B(B)18300BP18705X180:Y(10P)15:30500:9000:30500K9000,PXB2422:Y100:32000?xBPC$"EAST"RBPC$"WEST"fNN1:N38000:13:"**GO ";C$;"**":1340:X12:150,9150,150 49129,12:48135,X:147,12153,12X27:P((1)9)1B57491:B135,X:%49X,120:48X6,120:X,97X,103o2:34,21::N0:A$"WEST":X30:Y60:20630:A$"EAST":X240:Y60:20630<23:868:"WHERE DO YOU THINK I AM?";BK$:BK$""1340=B(BK$):B0B10B(B)B0BK$"0"ė:1340ABP1360FXP2423:Y70 YOU GET 4 TRIES."F"AFTER EACH TRY, I'LL TELL YOU IN WHICH"d"DIRECTION I AM HIDING."o20500P((1)10)1B$"VERTICAL"1800 PROCESS HORIZONTAL LINE :X20:12,100266,100B4857:BX,120:X,97X,103:XX24:1:B((1)200)40:B1((1)90)20:3:1B,B1F D,E:P,D:T,E:M:L g A1190,1200,2990,2990{ B$"HORIZONTAL" A2B$"VERTICAL" ::8:" I AM HIDING ON A "B$ "NUMBER LINE. TRY TO GUESS THE POINT ON""WHICH I AM HIDING.$)011402 ~A(BK$):BK$"":A0A5A(A)1155U 1:10:"ENTER 1-4 ONLY":1140i :B112:B1:z :QQ11175 :21:10:"NOW I'M GOING TO HIDE":120,120:B11000 M768:P767:T766:T1765 T1,32:B20:B1120. B3121:4:1B,BDE.":"YOU TRY TO FIND ME.":20500t L:33,30:32,10:34,8::"1) ON A HORIZONTAL LINE"::"2) ON A VERTICAL LINE"z V `"3) ON A 10 BY 10 GRID" e j"4) ON A -5 BY +5 GRID" t34,0:33,40:32,0:5:868:5:"WHERE SHOULD I HIDE";:BK$:(BKPROGRAM9 P160:P155:X2203010:6X,50:X1601070a 4:1P,P1:3:PP6:P1P16:1P,P1u .4:6X,50:3: 8B1300::4:1P,P1:B16:P,P1:3:1P,P1:4:B1145::1P,P1::3 >1P,P1" ?34,20::"HI, I'M A HURKLE. I'M GOING TO HINOMON I,C,O"C :(1022)111QQ1:T766:M768:P767:T1765:1100x ::::12:17:"HURKLE":B112:B1::20000: D$(13)(4):0:1:3 D$;"NOMON I,C,O" 232,0:233,64 X110:B(1): D$"BLOAD HURKTAB":  START OF MAIN  PROGRAM: HURKLE8 LAST UPDATE: 8/25/80>[d COPYRIGHT MECC 1979wn HURKLE 8/8/79 FPx AUTHOR:(MECC VERSION) KENT KEHRBERG, MIKE STEIN ASSOCIATED PROGRAMS AND FILES: HURKTABD$(13)(4):0:1:3 D$;"          CONTINUE";:Z9$::::"YOU JUST RAN OUT OF ENERGY AND WITHOUT"fN(:"ANY FOOD YOU STARVED TO DEATH.":N2"VISIT ODELL WOODS AGAIN SOON SOMETIME."N<7950NF"YOUR INJURIES ARE TOO GREAT AND":NPR((1)2)1NZR107810Od"YOU FELL PREY U SHOULD HAVE IGNORED IT. YOU ARE A"::"BIG WOLF.";MEE20AM_M"GOOD, LET'S MOVE ON..."eMM"AS YOU RAN TOWARDS THE BIRD, IT"::"ESCAPED INTO THE AIR."MEE20MME007710M I3007750M&-/.---------,%-%-------%$$<<7?7>?'?<'????????>77?>?7? --????/,---'??/,-'/766--???/.--7?/.) ?--#$$$?$$$ 666?$$$.2111$$$? $$)-266??$$$--2>?? $$)-266?%011'$$$--2?5<-- ?$)-< $$$?--< $$ 666;?$ $#$ 66? $$$666%$!!!!61111. $$## 635 ??$!!!!??>$$46%$?6.$$$46>46$,=$<<'/%=/%-'$$$4666&$$$$>->7->7-76.56266? !!-)=$$$>- ??$!) $;?2-0)- ') ??- !$$<::2---0)- $;?$---)- ?7&$ --$ ??-)- ?& -6-- $$;?2--$$ 66$??$$$--26;?$,-I ?$$ -?$$$--266;?$$$--;7--'$$$--;7d)5?$$ -?$$$6.-%$666?)=$$$=?? 6) $$,? $$$6?'=''<$,$%%)7m %7?g??$$%?7566--I 66?7.--$$$--66?6--$$$$%%,,--5>'??.,????,---=?',%$$>?766>??$-%$$4=?<-=?<$????<>>-%4-=??>=>7??'!! ! ! ! ! !!!!!!!!! NTINUE";16368,0.(16384)12818154:!@lZGTHS, YOU CAN ASK FOR ANOTHER"::"LINE OR STOP. EACH PLAYER CAN TAKE NO"::"MORE THAN 5 LENGTHS. THE PLAYER": "CLOSEST TO A TOTAL OF 21 CENTIMETERS"::"WINS.":1805:3 (13);(4);"RUN MET21A" 24:6:"PRESS ";::"SPACE BAR";::" TO CO X"OVER 21.":1805:2:"EACH PLAYER WILL BE GIVEN 2 LENGTHS."::"THE COMPUTER WILL BE THE DEALER AND": "TAKE TWO LENGTHS ALSO. YOU WILL ONLY"::"SEE ITS FIRST LENGTH UNTIL ALL PLAYERS"::"HAVE FINISHED. AFTER YOU ARE GIVEN THE":r "TWO LENOR NO PLEASE.":300t :3:"THIS IS A GAME OF METRIC BLACKJACK. IT"::"IS LIKE THE CARD GAME OF BLACKJACK OR": "21. THE OBJECT IS TO GET LINES THAT": "ADD UP TO 21 CENTIMETERS. YOU WANT TO"::"GET AS CLOSE TO 21 AS POSSIBLE BUT NOT":j23:868:ZN$A (ZN$)(((ZN$)))(ZN$)2.71(ZN$)19214e 24:"PLEASE BE SERIOUS.";:208v N950(ZN$) 1022,N9((N9(N9)).5)1 ":: ,10:"DO YOU NEED INSTRUCTIONS";:868:A$:(A$,1,1)"N"1800 ^(A$,1)"Y"Ģ20:"YES :11:11:"M E T R I C 2 1"5 Z912000:Z9::1V JJ7883:115,JJ165,JJ:JJ :21:"USE YOUR RULER TO MEASURE THIS LINE IN":"CENTIMETERS. TYPE THIS MEASUREMENT":"FOLLOWED BY A ";::"RETURN";::". "; 868 ZH(36) 36,ZH:A COPYRIGHT MECC 1979: MET21 8/8/79 FPU AUTHOR: DAVID DYE ASSOCIATED FILES, TABLES, AND PROGRAMS: PROGRAM MET21A, AND TABLE LETTERS LAST UPDATE: 7/10/80 d INSTRUCTIONS FOR MET21i255: n:"" " " " " "