' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`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"XYES OR NO";:868"A$1"(A$,1)"Y"ė:250H"(A$,1)"N"43015u":"PLEASE ANSWER WITH YES OR NO":43005"(1023)123ė:":10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"H:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"X#ZN$)))40003)!B(ZN$)0ZN$"0"40006d!CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001!FZM:868:CV1(CV23):ZN(ZN$):!JCV1:36,CH:868:! END OF PROGRAM!::5"5:"WOULD YOU LIKE TO RUN THIS PROGRAM"::"AGAIN - 0P 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(36):CV(37) !A"";ZN$:(ZN$)(((0: Y,Y10X:X,X3Y5:X,X3Y10:Y5,Y10X3:2430Y 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:X,X3Y10:Y,Y10X:Y,Y10X3:243500:1425 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,X3Y5:Y5,Y10X3:X,X3Y10:243 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,2560,2570,2580~ Z2  9:335W39İ2800*CW5(B$):K2:2400:1810CE(B$)1B$"":1810lFW5((B$,(B$)1)):K2:0:2400:9:G(B$)2B$"":0:2800:9:X929:2800:1810HB$(B$,1):W5(B$):2400:X935:W39İ2800I1810X022:Q:944X,Q:X4Q IT5Z110000:1852(&B(16384):0B127ī1810P116368,0:BB128q5(B48B57)B8B131810:B131856;B$""1810<X941Ġ0:2800:9?@B$B$(B):B81861AX941B$(B$,2):1810 B0:2800:9:X9X96:X9E SCORE IS ";4ZWRR12:N230ZW(RR12)30N2X10(ZZZY(R90N2ZW1030))eR0:R1Rv3500:43000"PLEASE GIVE ME AN ANSWER."::944,225:945,210:946:944,50:945,200:946:I1:B$"":16368,0 Z10II1G:"**********************":\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 NICE WORK ";T$;"!" 21:"YOUR CHALLENGkW5W3:2400:3500:1425,xR8((1)8)1C}Z213:(7);:Z2L12015((T$)2):(N$,R898,9);" ";T$;".":Q1500:Q25514250:2800:9:W5W3:K2:2400:L1::2:"HERE'S YOUR SCORE, ";T$;":"G51611:9:T12:"TRY AGAIN.":X929:K2:3500:2800:1800::1354LPW3(B$)ī1380dUT12R1R11:1400tZRR1:1400d1550:T11ĺ"NO, THAT'S NOT CORRECT.":1385e"WRONG, THE ANSWER IS ";W3;"."iB$""Ġ0:W5(B$):K2:2400:9jT1113582)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{}qqpnpqan`{qqq`qq`qqwqq`}Oox>?|}?~?xp~@|_>?7{ox?s}|qo?}w[>_o7oo?oo~o@_~{~?g]{m?_}vw?~~~?~PO>zog>{k/{~?|>{o7ow[n}?owxo?~_|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}owgog?wox?o@?~?x>{m?_9vs}xA?ooo}];?oogy{s~nnun{~n{{nnfwnopnow?~oxp67\_{]qcfoxG?G|}xo?}gY>_?=_}~?X_s;ww|_>?gv|_x?o~?~}?__y_@_8{~??~wp`}xxs~xXc{o~_ow[k}owwoO?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~?@46,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          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$;"          ox<@}~??|_Oox?g}xGo?}w[_o7wo?go?~o@|?p>{m?_}vw?ppx?X_~zoo>{k/?{~?~>{o7owo}?o~ox_8onV;W[]_]nw_ox?|g?~xc?oox p|ao?lxg}sO{_qq~{nqan{`xqqqq`qx`o88`}~?~~gox?O}x~o?}w[._0{o?|p{{@|~?~~1wvwg?o@q?|C>{m?_}~w?@~`?@_O~zog>{K/{~??~>{o7_ow[o{}?ogxs_X_nfWO{]_>nwOo?~?o?x?ocO}{o_nn~{v{nn{{wnnnn~nw~O0?~}~?_qwlw`\o>~oox?a@}xx<Awx6_o7`o?8o{;?o{~_}~.wvsw?o@G?xx>{m?_mvw??`@?`@?W~v[k>w-w.{~?> x`\o~?owpg_X_nvW_{]_~nwoo|?o?x?o~_}?@{?|c@ooo}}`|a?l?~gO~n~{z{fn{{onlon}oo}_ |~?_?|k{o;_ow[o{=~oox? }xco?}7[:_o7_W?X_{{?ww~_>wv{w?o@?x?~>{m?_UvuG_@X~nx1{~?G wpO_X_lfW_{_>fwooq?o               (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$"TEN."D"COVERING ADDITION, SUBTRACTION," J"MULTIPLICATION, AND DIVISION." _ TAXMAN,TAXMAN"TAXMAN IS A GAME WHICH REINFORCES" "CONCEPTS RELATED TO SKILLS IN ""THE FACTORING OF NUMBERS."  TENS,TENS "TENS PROVIDES DRILL IN UMBER. THE COMPUTER GIVES CLUES."5x ROUND,ROUNDcy"ROUND PROVIDES DRILL AND PRACTICE ON " z "ROUNDING NUMBERS TO THE NEAREST TEN," {"HUNDRED, THOUSAND, ETC."  "SPEED DRILL",SPDRILL "SPEED DRILL IS A TIMED DRILL EXERCISE"$T21/I "METRIC 21 IS METRIC BLACKJACK. THE"]J"USER BECOMES SKILLED IN APPROXIMATING" K"METRIC LENGTHS THROUGH PLAYING THIS."\ NUMBER,NUMBER]"NUMBER IS A GAME OF LOGIC IN WHICH THE" ^"USER TRIES TO GUESS THE COMPUTER'S""_"NL"+B"ON ESTIMATING THE LENGTHS OF LINE"LC"SEGMENTS IN METRIC UNITS."jD "METRIC LENGTH",METLENE"METRIC LENGTH PROVIDES DRILL AND"F"PRACTICE ON COVERTING FROM ONE UNIT TO"G"ANOTHER UNIT IN THE METRIC SYSTEM."H "METRIC 21",MED," 2"THE STUDENT MUST MAKE CORRECT CHANGE." G0 HURKLE,HURKLEu1"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 DRILLS,BAGELS5"BAGELS IS A GAME OF LOGIC. THE COM-"c"PUTER SELECTS A NUMBER WHICH YOU MUST" "GUESS. THE COMPUTER PROVIDES CLUES.  CHANGE,CHANGE"CHANGE PROVIDES DRILL IN MAKING CHANGE." "GIVEN A PURCHASE PRICE AND AMOUNT PAI37)) "";ZN$:(ZN$)(((ZN$)))520D (ZN$)0ZN$"0"540X ZN$"D"ZN0: ZM:"THAT IS NOT A NUMBER - TRY AGAIN";:550:500 ZM:868:CV1(CV23):ZN(ZN$): &CV1:36,CH:868:  "ELEMENTARY - VOLUME 1",11  BAGE$,1,1)"Y"330( (A$,1,1)"N"ė:280P "PLEASE ANSWER YES OR NO";:1:390c 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(HE PROGRAM YOU"::"WANT DESCRIBED ";:8689 ^490:QZNL 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(N1)2Ė21 T10ĺ" ";, T" "N$(T,1)3 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 T1:J40030 #16368,0 () dZM247 xN$(24,5)M D$;"NOMON,C,I,O"[ 1023,123j ::255:t T$,N 1:20(T$)2 T$ 2:11:"AVAILABLE PROGRAMS" 5 T1N C15 N$(T,C) C T((N1)2)1Ģ5 T?  PROGRAM: HELLO4 VERSION: 2.0.1 (TMB)P LAST UPDATE: 6/25/80V m (C) MECC, 1979D$(13)(4):::255:(1023)123100:16302,0:::D$"BLOAD LOGO":16304,0:16368,0 J1(16384)128:J127J132JJ     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:     W2W3:S$" / "M2W5W1:K0:2400:11,13Y5:12,Y3:12,Y7:W5W2:K1:2400gF25,27Y4:25,27Y6HX929:K2:2800:T11:1800JZ1100001360K1550::"SORRY, YOU TOOK TOO LONG "T$;"."LT12ĺ"THE ANSWER IS ";W3;".":1385M13857NW3((1)(D3D11))D18W2((1)(D4D21))D2n ZZ.95W310((1)(9W2)1)((1)(9W21))~!ZZ11320$W2W3:WX(100W210):WY(9W2)%WX9WX9'WX((1)(WXWY1)WY):W3(10W2WX10):W310((1)W31)WX(W1'S A HARD PROBLEM **5WX(100W110):WY(9W1)DWX9WX9WX((1)(WXWY1)WY):W2(10W1WX10):W210((1)W21)WXW3W1W2:S$" X "W3991250W5W1:K0:2400:11,Y4:11,Y6:12,Y5:13,Y4:13,Y6:W5W2:K1:2400:13501)(M3M11))M1,W2((1)(M4M21))M2| ** NEXT LINE PREVENTS CARRYING IN MULTIPLICATION FOR MEDIUM DIFFICULTY **ZZ.95W210((1)(9W1)1)((1)(9W11))ZZ11270 ** NEXT LINE FORCES A CARRY IN THE MULTIPLICATION IF IT1))S2W1W2W3:S$" - "|ZZ.95(W310)(W210)(W110)1200: ** DON'T WANT TO BORROW FOR MEDIUM DIFFICULTY **ZZ1(W310)(W210)(W110)1200ZZ1W3W2:W2W1W3W5W1:K0:2400:11,13Y5:W5W2:K1:2400:1350W1((A1)~W2((1)(A4A21)A2)6W3W1W2:S$" + ":cZZ.95(W110)(W210)(W310)1140ZZ1(W110)(W210)(W310)1140W5W1:K0:2400:11,13Y5:Y3,Y712:W5W2:K1:2400:1350W3((1)(S3S11))S1W2((1)(S4S2ȭN21N250ĺ:"SORRY, TRY TO STAY BETWEEN 1 AND 50.":700C255N$"WAY TO GOFABULOUS GOOD JOB GREAT SUPER ALL RIGHTTHAT'S ITRIGHT ON "VY15`L11N2e:((1)151)::1560jT301140,01200,01250,01300tW1((1)(A3A11).),":" 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 PROBLEMS WOULD YOU LIKE ?";:86840000:N2ZN:!S111:S211:S325:S474:6008(A$)465,470,480VM10:M2M1:M35:M49:600iM12:M36:600|M12:M38:600(A$)505,510,520D10:D21:D35:D49:600D22:D46:600D12:D38?X:8:"DO YOU WANT"::" 1) SLOW (10 SEC5(A$).05:ZZ((ZZ))/ rT3380,420,460,500F |(A$)385,390,400e A10:A2A1:A39:A4A3:410 A15:A2A1:A350:A449:410 A111:A211:A325:A474 600 (A$)425,430,440 S10:S2S1:S39:S4S3:600S15:S2S1:S350:S449:600?"I 10:868:"(ENTER 1, 2, 3 OR 4) ?";A$:(A$)1A$"1"A$"4"251Z T3(A$):R0 ^14:"WOULD YOU LIKE"::" 1) EASY,":" 2) MEDIUM, OR":" 3) HARD PROBLEMS?" _20:868:"(ENTER 1, 2, OR 3) ?";A$:(A$)1A$"1"A$"3"351 hZZ.8HER YOUR CHALLENGE SCORE WILL BE."x ::"A PERFECT CHALLENGE SCORE IS 1000."::"SEE HOW CLOSE YOU CAN GET TO 1000." 3500: 180:3:"DO YOU WANT"::" 1) ADDITION,":" 2) SUBTRACTION,":" 3) MULTIPLICATION, OR":" 4) DIVISION PROBLEMSTIPLYING AND DIVIDING. YOUR"= :"ANSWERS WILL BE TIMED."I 3500: 5:"YOU WILL RECEIVE TWO SCORES - THE"::"NUMBER CORRECT, AND A CHALLENGE SCORE." :"THE FASTER YOU ANSWER THE PROBLEMS"::"AND THE MORE YOU GET CORRECT, THE"" :"HIG1402 12:"WOULD YOU LIKE INSTRUCTIONS";:868: A$R (A$,1,1)"Y"ī200l (A$,1,1)"N"ė:250 "YES OR NO PLEASE, ";T$;".": 00150 :7:"THIS IS A DRILL ON MATH PROBLEMS." :"IT WILL TEST YOUR ADDING, SUBTRACTING,"::"MULSPDRILL(LAST UPDATE: 2/5/81.K COPYRIGHT MECC 1979w( ASSOCIATED PROGRAMS AND FILES: NONE}2:x:255::2000::ZM246:"WHAT IS YOUR FIRST NAME";:868T$ T$""ĺ"PLEASE TELL ME YOUR 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   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      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          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:!! ! ! ! ! !WOULD YOU LIKE TO:"::"1) RUN THIS PROGRAM AGAIN,"::"2) RUN A DIFFERENT PROGRAM, OR"g :"3) END"13:"PLEASE ENTER 1, 2, OR 3 ";:86840000:ZEZNZE0ZE443030:"PLEASE ENTER A NUMBER 1 - 3":43022ZE1ĬZE343049(4)"RUN HELLO":<ૃ WRONG,NO,INCORRECT,THAT'S WRONG)123430205:"WOULD YOU LIKE TO RUN THIS PROGRAM"::"AGAIN - YES OR NO";:868A$(A$,1,1)"Y"Ĭ(A$,1,1)"N"43050:"PLEASE ANSWER WITH YES OR NO":43005W "(ZN$)1ZN$"":400900rZN$(ZN$,1,(ZN$)1)I(8)" "(8);:40005:12:"WOULD YOU LIKE TO TRY AGAIN? ";YN$:YN$(YN$,1):YN$"Y"YN$"N"43000R10:R2R1:IR1YN$"Y"4000 (1023)123ė:10:"RETURNING TO THE MENU...":(13);*N24:1:868:1:1:5@16368,0:L8:L7:ZN$""iEA$:A(A$):A46A13A8(A48A57)40005zJA1340015LZN(ZN$):ZN0ZN$"0"40005MOA8(ZN$)6ĺA$;:ZN$ZN$A$:40005^(ZN$)5A840005c(ZN$)140005hBER CORRECT":13:11:"FIRST TRY......";R1:15:11:"SECOND TRY.....";R2X4IR1Ģ20:"THAT'S FANTASTIC...YOU GOT ALL OF THEM."920000:43000 N24:868:24:1:" PRESS ";::"SPACE BAR";::" TO CONTINUE";:16368,0%N(16384)12820005ERRIFIC!,WONDERFUL!,ALRIGHT!- 2W0R1R11>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:"" " " " " """""""""