' +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` "SHALL WE DO ANOTHER? ";F$. F$"YES"4: D$(4)L D$;"CATALOG" X,32,43,128,54,96,64,32,64,96,72,32,72,255,43,96,43,32,43,96~Hg4 48,32,43,96,40,32,36,128,48,96,48,32,48,96,54,32,48,96,43,32Hl4 40,128,36,96,43,32,48,96,54,32,54,96,48,32,43,128,54,96,64,32Hq4 64,96,72,32,72,2552FG&4 57,180,1,90,86,90,64,255,57,90,51,255,48,90,43,90,38,90,57,255rG+4 38,90,43,248,51,22,48,68,57,22,64,255GX4 72,96,72,32,72,96,86,32,72,96,64,32,54,128,64,96,64,32,64,96G]4 72,32,64,96,57,32,54,96,48,32,43,96,43,32,48,96,72,32,72,96;Hb4 485,64,45,64,90,68,45,64,45,57,180,1,90,57,90,54,135,54,45{F4 57,45,54,45,48,45,43,45,57,180,1,90,54,45,57,45,64,135,64,45F4 64,45,54,45,57,45,64,45,64,45,68,45,68,90,1,158,43,22,43,248G!4 43,22,51,68,64,22,57,255,1,68,43,22,43,248,43,22,51,68,64,2,90,51,90,48,68,51,22,51,45,57,45,57,135,1,45oE4 57,68,51,22,48,90,48,90,48,90,43,68,48,22,51,180,1,90,43,68E4 43,22,43,90,51,68,64,22,43,90,51,68,64,22,86,180,1,68,86,22E 4 86,45,68,45,57,180,48,90,57,45,68,45,64,90,64,90,72,180,76,908F4 64,4,128,57,255,72,64eD3 72,64,54,192,48,64,43,64,40,64,36,255,54,64,48,64,43,192,40,64,48,128,54,255D3 86,22,86,68,86,22,64,90,64,90,57,90,57,90,43,135,51,45,64,68D3 64,22,51,68,64,22,76,90,48,180,57,68,68,22,64,225,1,45,64,68-E3 57,22,51,90,514,43,128,40,128,36,128,36,255,40,64,43,64,48,128,43,128C3 40,128,40,255,40,64,40,64,43,192,48,64,54,128,57,255, 64,64,57,64 C3 54,128,86,128,76,128,72,255,72,128,54,128,54,128,54,64,57,64,64,128D3 64,128,64,128,48,128,40,64,43,64,48,64,54,64,545,64, 64,57,64 [B3 54,128,54,128,72,128,86,128,108,128,72,96,86,32,108,128,86,128,72,128B3 54,255,43,96,48,32,54,128,86,128,76,128,72,255,72,64,72,64,43,192B3 48,64,54,128,57,255,64,64,57,64,54,128,54,128,72,128,86,128,108,1287C3 43,64,43,68,48,128,48,192,51,64,57,128,51,128|A;3 48,64,51,64,57,64,64,64,51,192,48,64,43,128,38,64,43,32,48,32,51,128,57,128,64,255A3 72,96,86,32,108,128,86,128,72,128,54,255,43,96,48,32,54,128,86,128B3 76,128,72,255,72,64,72,64,43,192,48,64,54,128,57,25KIP:PT,TM:;@2I1PLAY:PT,TM:PITCH,PT:TIME,TM:768:A@2@,3 64,128,64,128,57,128,68,192,64,64,57,128,51,128,51,128,48,128,51,192@13 57,64,64,128,57,128,64,128,68,128,64,255, 1,128,43,128,43,128,43,128 #A63 43,192,48,64,51,128,48,128,48,127P7(P%(P,0)100)(P%(P,0)10):P%(P,0);:P:?+E10ıH?+1:100:?.POK$"173,048,192,136,208,004,198,001,240,008,202,208,246,166,000,076,000,003,096"?.PK018:768PK,((POK$,PK41,3)):PK?.PITCH0:TIME1:?2:SKIP013020 @2I1SP,E)HPHPP%(P,E):WNRP>p+P*>z+TYE1L>+P1NP:P%(P,E)HPTYETYE1^>+P:TYE11200>+SKIP17:PLAY26:C(WNR)2SKIP117:PLAY28>+C(WNR)3SKIP145:PLAY18>+C(WNR)4SKIP261:PLAY27>+13000>+22:A$:"TOTAL";6);C$;.?+P1NP:NP:P%(P,E)0P%(P,E)07= +P%(P,0)P%(P,0)P%(P,E):PK=+" * EVENT * ";l= +P1NP:7P5)NAME$(P);:Pv=*+:A$=4+I1E:E$(I);:12)C$;=>+P1NP:8P7(P%(P,I)10):P%(P,I);:P=H+:12)B$:I=R+NP111200=\+HP0:WNR0>f+P1NP:P%(ZZ <:*HP0CREEN OR ON"3/:" THE

RINTER?";1F0I416368,0Q7Q$f9Q$"S"F3:848w>Q$"P"805}@C(4);"PR#1"P ==============================R CALCULATE BORMUTH SCORE ANDS APPROXIMATE GRADE LEVELT ======T :/X1NW: FIND # OF DIFFERENT WORDSLW$(R(X))" "FWX:800SXx ==============================  OUTPUT TO SCREEN OR PRINTER" ==============================%:5:"DO YOU WISH THE TABLES TO BE"*:"PRINTED ON THESTSSY: ACCUMULATE SYLLABLESKWS(I)SY: STORE # OF SYLLABLES IN ARRAYRIw ============================== SORT WORDS ==============================K1NW:P1(WL(K))P1(WL(K))1:P2(WS(K))P2(WS(K))1:K7000: SORN"710735(VF$"A"NC$"O"735AVF$"E"NC$"O"735ZVF$"I"NC$"U"735sVF$"U"NC$"O"735I2I21740SYSY1:I2I21I2:SY0SY1SYMSMSSY: SEARCH FOR MAXIMUM NUMBER OF VOWELS IN 1 WORDT7);(14);PP$+,36,T:"APPLESOFT EDITION"7,(138)B,F(0)W,F0F641024Ft,36,65:"BYTES: "36220F,36,65:"TIME: "T$,36,65:"DATE: "D$,36,T:S$,STRUCTIONS-+ ============================E+PP$"READING LEVEL"a+"DATE ";D$:"TIME ";T${+PP$"** "PP$" **"+T(PP$)+S$"":X12T:S$S$"*":+T80(S$)+1:(27);(20):(9);"132N"+36,T:S$+(138) ,36,T:(2 SUBR - PRESS RETURN:**# =============================a*2#16368,0: CLEAR KEYBOARD BUFFER.*7#23:8:"(PRESS ";::"RETURN";::" TO CONTINUE)"*<#Q(16384):Q1419020*A#8:868*F#* ============================ + PRINTER IN):)W(W2))W0ı*)TNWW5)I1T=)JIG)"*";Q)VJWu)W$(R(J))W$(R(V))W$(R(V))" ")W$(R(J))W$(R(V))7115)XR(J):R(J)R(V):R(V)X)JJW:J17070)I)7050)&# =============================*(# (5WCWC1:PP1-(7P17F3İ9000::P04(<X;(CIW(FF3P0İ9000::6480a(K6300g(P(V =============================(X SHELL SORT - SUBR(Z =============================(b:4:"SORTING";(qWNW)vX1NW:R(X)X:XLABLE SEARCH9'WL(R(X))IPF$"L"6435: LENGTH SEARCHC' 6460R'#H06450}'(" ":"WORDS WITH ";(I);WF$;" ";'*PF$"S"ĺ((P2(I)NW100.5));"%"'+PF$"L"ĺ((P1(I)NW100.5));"%"'-H1:PP2(2" ";(WC)". ";W$(R(X))N :::X1M5 "AMOUNT BORROWED = ";B:^"INTEREST RATE (IN DECIMAL) = ";I:"NUMBER OF YEARS OF LOAN = ";Y(NI122MY12<A1NFX1MPRAXZC1RCdXnD1CBx"MONTHLY PAYMENT = "D: FINAL PRINTOUTG ==============================YGT$"Q"787iROW1:COL0tN15~COL0:M134ROW:12COL4((11(WD$(ROWCOL)))2)WD$(ROWCOL)COLCOL1M:ROWROW3 N::1:1:" ";V1:15:"END OF GAME.";`TMR09000: PRESS RETURN TO CONTINUE:TT1T1B1(TI):B2(T1):BSWR:WT1:WS1: FIRST TIME AROUND. ============================== 1)ROWCOLJ11669/ANS(1)ANS(2)6678669A565G:hB1(J1)4ROW:B2(J1)12COL4r5000zJ1:3000: CHECK RIGHT ANSWER4000: PRAISE:J1LIMIT:A(J)0718A(J)1718J724555RASE PRAISE WINDOW J=(EF1ER1)J11WR1İ6000: ERASE TEXT WINDOW^?(GT$)2ī667dB:DL$(GT$,1): LETTER PART OF RESPONSEIL$"A"L$"E"667NROW3((L$)65)1S:]:COL((GT$,2,1))1COL0COL2ī605 ANS(J"SELECT ONE LETTER AND ONE NUMBER: ";+&:7+WRWR1C0J112I3:e51:36:" ";:1:366LL2:8400: GET ANSWER7(EF1ER1)J11WR1İ6000: ERASE TEXT WINDOW8XQ209TMR0:742: FINAL PRINTOUT;21:16:" ": ER$(WC):R$(WC)"NO MORE WORDS"WCWC1:525:WCWC1@:F2000: RND SELECTION OF ITEM PAIRS TO APPEAR ON SCREEN.1100: DRAW INITIAL GAME BOARD.Q209TMR0:751SB$"1": SET INPUT LIMITTMR1: TIMER ON%!1:2::"ONE MOMENT, PLEASE."HWT0:WS0:TI0:T10:WR0:R0:B0:V0:Y0:E0RYY1J150:COUNTER(J)1:: DATA LOCATION EMPTY = 1J115:WD$(J)"":X(J)0:: CLEAR FOR 15 ITEMSJ17:A(J)0:: SET PAIRS MATCHED TO 'NONE':WC1. 1:QF0: CLEAR 'QUIT' FLAGq:5:5);"DO YOU WANT THE CORRECTLY CHOSEN"::5);"ITEM PAIRS TO REMAIN ON THE":5);"SCREEN (Y/N)? ";8400:GT$"N"ER1:508GT$"Y"ER0:5089:19:" ";:9:19:50515:11+3*5,3+4*7,4+5*9,5+6*11,6+7*13,7+8*15,8+9*17,9+10*19,10+11*21T "NO MORE WORDS" ===================================================== GAME LOOP =====================================================:LLLY*MONTH","CLOUD*RAIN","PAPER*PENCIL","SCHOOL*STUDENT"  LINCOLN*PRESIDENT,ALBANY*NEW YORK,EIGHT*OCHO,LONDON*ENGLAND,HOLIDAY*CHRISTMAS,TOKYO*JAPAN  DANUBE*RIVER,ATLANTIC*OCEAN,CAIRO*EGYPT,NILE*AFRICA,AMAZON*SO.AMERICA,DUBLIN*IRELAND= 1+2*3,2IMER OFF/  ==============================L  DATA PAIRSr  ==============================  FRIUT*KUMQUAT,CONTINENT*AFRICA,PARIS*FRANCE6  "APPLE*FRUIT","BEANS*VEGETABLE","DOS*TWO","SEPT*SEVEN","GREEN*COLOR","RUN*VERB","JU" WR$(3)"TRY AGAIN."+ WR$(4)WR$(1)= "WR$(5)WR$(2)R 'E$" " ,SB$"A":FB$"Z":LL15: INPUT NUMBER OF CHARACTERS ALLOWED WITH GET 1:4:2);"HI, WHAT IS YOUR NAME? ";:8400: GET GT$ 6(GT$)0305 ;N$GT$ @TMR0: T$(7),OK$(5),WR$(5),X(15)0 ANS(2),B1(2),B2(2)6 :W BS0:LIMIT7:T0:R0:B0:V0o OK$(1)"VERY GOOD!" OK$(2)"A WINNER!" OK$(3)"RIGHT ON!" OK$(4)"GOOD JOB!" OK$(5)"WELL DONE!" : WR$(1)"NOT QUITE." WR$(2)"NICE TRY. E N T R A T I O N"8 8);"-------------------------"] 19:14);"COPYRIGHT (C) 1981": 14);"BY COURSEWARE MAGAZINE" 17);"4919 N. MILLBROOK #222" 17);"FRESNO, CA 93726" P54:8200: PAUSE COUNTER(50),R$(50) WD$(15),Wk%d "CONCENTRATION"f:'h:Li TRANSLATED INTO APPLESOFTyj BY RUSSELL DONNELLY & BOB SITZEx ==============================z T I T L E P A G E| ==============================:9 8);"C O N C               ================,& SUBR - PAUSEQ& =============================f& K61700P5::& =============================& SUBR -'GET'& =============================& 16368,0: CLEAR KEY BOARD BUFFER& GT$""11:"PRESS ";::"RETURN";::" TO END ";O%n =============================h%p SUBR- ERASE%r =============================%zP112%{ER1ī6015%|X(ANS(P1))1ī6025%B1(P1):B2(P1)%E$%P1%& =============$(WN):$4045$WR$(WN)$$:;$21:3:R;:12:WRA$f$ =============================$ SUBR- PRINT-OUT$ =============================$4ROW:12COL4((11(WD$(ROWCOL)))2)$WD$(ROWCOL)$$:*%24:$(ANS(2))"*"WD$(ANS(1))W$(J)X(ANS(1))1:X(ANS(2))1:A(J)1:3040K# JQ# :Z# EF1`# # =============================# PRAISE# =============================#21:16#WN((1)51)#:#EF14040$:OKECK(" =============================1" EF0@" J1LIMITv" (WD$(ANS(1))"*"WD$(ANS(2))W$(J)A(J)0)RR1" (WD$(ANS(2))"*"WD$(ANS(1))W$(J)A(J)0)RR1" WD$(ANS(1))"*"WD$(ANS(2))W$(J)X(ANS(1))1:X(ANS(2))1:A(J)1:3040D# WD151)!WD$(WN)""2040#!J1G!(W$(NT),J,1)"*"JJ1:2055c! WD$(WN)(W$(NT),1,J1)w!WN((1)151)!WD$(WN)""2065!WD$(WN)(W$(NT),J1,(W$(NT)))! NT!%:!9! =============================" CH=============================:  SELECT WORD PAIRS_  =============================s WN((1)151) WD$(WN)"**FREE**" : NT1LIMIT WN((1)WC1) COUNTER(WN)12025 COUNTER(WN)0 W$(NT)R$(WN)!WN((1)ʈ5:2);"A"8:2);"B".11:2);"C"?14:2);"D"P17:2);"E"20:1:"!-------------!----------!-------------!";"! 0 OUT OF 0 !";26);"!TIME: 0.0 !";"!-------------!----------!-------------!";9000  ==========================,QD$;"CATALOG"5V:2T[9);"1";21);"2";33);"3"Z]:e`J16te3(J1)3j4);"------------------------------------"oJq:tJ116y2J~3:"!";:15:"!";:27:"!";:39:"!"J: )(978)256ZZ:LOC OF DOS HOOKSU8Z(107)(108)2568: LOC OF START OF ARRAYS s=(209),(Z):(210),(Z1)B GET CATALOG INTO STRINGGQ,0:Q1,3:Q2,18:Q3,3J =============================L DRAW INITGAMEBOARDN ===INGLY.+ QQ(977)185:QQ0A$(0)C$" "CQQ0A$(0)C$" "aD$(4):D$;"NOMON I,O,C"l10051495:STORE ROUTINE TO MASK CTRLS,INV,FLASH AND COMPLETE CATALOG$D$;"NOMON I,O,C")ZZ3037.QQ(977)185:QQ0ZZ3220!3Q(977ALLENGE!"4y20:6::"END OF PROGRAM"::16368,0:s:A$(85):B(60):N1: DEFINE ARRAY TO HOLD CATALOGC$" "B$" "I8511:A$(I)B$C$:I0:R0"TEST WHICH DOS. MODIFY ARRAY ACCORD5);"OWN SCORE, ";N$;" (Y/N)?";(GD0>ITB(37):TA(36)NKTB1:TA1XM8400jOGT$"Y"ī500QGT$"N"::TB1:TA1:" ":843p:7s" THANKS FOR PLAYING, ";N$;"."::: v" I HOPE YOU ENJOYED THE"::" CH ";(TI);".";(T1)'9XQ209QF18354:S1829f;WT1B1Ģ16:12::"A NEW BEST TIME!!!!":=(TI)B1B1(TI):B2(T1):WT1?((TI)B1(T1)B2)B2(T1):WT1ABSWRBSWR:WS1C20:5);"DO YOU WISH TO TRY TO BEAT YOUR" E22:%15);"GAME: ";(TI);".$'825-):5O+5);"LEAST NO.";22);"TRIES"o-5);"OF TRIES";22);"THIS"/5);"SO FAR: ";BS;22);"GAME: ";WR1935);"BEST";22);"TIME"55);"TIME";22);"THIS"75);"SO FAR: ";B1;".";B2;22);"GAME:  9000/ =============================I SUBR- RECAPo =============================XQ209QF0SS1S1809:515);"TRIES"15);"THIS"15);"GAME: ";WR9!15);"TIME"#15);"THIS"641024F&-36,65:"BYTES: "36220F>-36,65:"TIME: "T$V-36,65:"DATE: "D$d-36,T:S$j-TATE ";D$:"TIME ";T$.,PP$"** "PP$" **";,T(PP$)Z,S$"":X12T:S$S$"*":i,T80(S$),1:(27);(20):(9);"132N",36,T:S$,(138),36,T:(27)(14);PP$,36,T:"APPLESOFT EDITION",(138),F(0) -F0F" TO QUIT.";+:#Q(16384),+<#Q1419027=+>#Q2099018F+A#QF1r+C#23:11:" "x+F#+ ============================+ PRINTER INSTRUCTIONS+ ============================+PP$"CONCENTRATION","D RESTORE CURSOR LOCATION. *!E*&# =============================d*(# SUBR - PRESS RETURN**# =============================*2#16368,0: CLEAR KEYBOARD BUFFER.*6#23:11:"PRESS ";::"RETURN";::" TO CONTINUE," +7#24:16::"Q";::=================-)! SUBR - TIMERR)! =============================c)!TMR0ī8640p)!TITI.1|)!T1T11)!TB(37):TA(36): SAVE CURSOR LOCATION.)!T110T10)!21:37(((TI))):(TI))!21:38:(T1)*!TA1:TB1:1GT$"": DELETE FROM STORED WORD.G(R!(GT$)1GT$(GT$,(GT$)1)Q(W!8560W(Y!:l(\!(GT$)LL8560}(]!XQ1418560(^!Q$(XQ128)(_!Q$SB$Q$FB$8560(b!GT$GT$Q$: CONCATENATE NEW LETTER TO WORD.(k!Q$;(p!8420)! ============' T5TI4' XQ(16384):XQ127QQ(16368):8500Q' T5TIğ:" ";::(8);x' TMR1İ8600: UPDATE THE TIMER.'%!8560'*!:'4!XQ209ı'>!XQ141(GT$)0ĺ" ";:'C!XQ1368540'E!T5TI'H!(GT$)0ĺ(8);" ";(8);(8);%(M!(GT$)85:34,24:170:735(155:34,24:1705SC(CP)0LV7:115:V23:115jV3:H16:100:"LETTERS:"|H7:GN5H1V5:100:I1NL:(RL$,I,1);" ";:IV11:H17(NS$(CP))2:100:NS$(CP);" WORDS"V12:H16:100:"SCORE: "$NP1:OS(2)11:OS(3)17:OS(4)24:OS(5)32RBN(0)0:BN(1)5:I26:BN(I)BN(I1)2:I`AD7:GN1lBP1750:V1:H1:100:"GAME NUMBER: ";GNV1:H26:100:"TIME LEFT: "145200:SB0CP0NP1CL180:V1:H37:100:CL:NP1İ110 bI@gI0NP1:(NM$(I),1)"S"NS$(I)NM$(I)"'":625WlNS$(I)NM$(I)"'S"^qIvPC$"********":PD$"########"{GW$"AAAAAAAABBCCDDDDEEEEEEEEEEEEFFGGGHHIIIIIIIIIJKLLLLMMNNNNNNOOOOOOOOPPQRRRRRRSSSSTTTTTTUUUUVVWWXYYZ"$OS(0)2:OS(1)6SIX PLAYERS.":105:VV2:H1:5753NWD$(NP1,34)SNW(NP1,6),NM$(NP1),NW$(NP1),TN$(NP1),FS(NP1),SC(NP1),TS(NP1),BN(6),OS(6),WA(25),WW(25):NL13X:V3:H10:I1NP]100:"WHAT'S PLAYER #";(I);"'S NAME":H18:VV1:100:NM$(I1):VV2:HNP1VV2:H10:100:"THAT'S NOT VERY MANY!":VV1:H7:100:"TRY AND ROUND UP SOME MORE!":VV2:H1:105:575!INP6VV2:H7:100:"I THINK I'D GET LOST TRYING":VV1:H6:100:"TO REMEMBER ALL THOSE WORDS...":VV1:H4:100:"LET'S KEEP IT DOWN TO COLINO"1053V21:H14:100:"INSTRUCTIONS"Z!V23:H12:100:"PRESS OR "h&16368,0+(16384)217565016368,0:15005(16384)206555:16368,0::H1:V3?100:"HOW MANY PEOPLE ARE PLAYING WORD WARS?";NPoDAD:H20:100:W$"":3909:V5:H16:100:"WORD WARS"fV9:H10:100:"ORIGINAL TRS-80 PROGRAM"V10:H19:100:"BY"V11:H13:100:"ROWLAND ARCHER"V14:H14:100:"APPLE VERSION" V15:H19:100:"BY"V16:H13:100:"BRUCE MUSA$ 390(W$)0795&3904H20390a(W$)1W$"":100:" ":HH1:100:390W$(W$,(W$)1):100:" ":HH1:100:390NP1M$"** ABANDONING THIS GAME **":H7:140:34,0::1365390H2020(W$):100:" ":H:TITIJ150:135:J:10003100::" "::A(16384)MA128TITIAD:390gA141Ĺ16368,0:455A136Ĺ16368,0:465A155Ĺ16368,0:480A152Ĺ16368,0:490A193A218AA128:A$(A):100:A$:16368,0:HH1:TITIAD:W$W$)T:TN$(J)T$ J "IL 'V5:H12:100:"NAME":H24:100:"SCORE":V7Z ,I0NP1 1H12:100:TN$(I):TS$(I)(TS(I)):H29(TS$(I)):100:TS(I):TN$(I)"":TS(I)0:VV1 6I ; V7:H20:16368,0 TITI1:TI180İ120CL0İ105:245 I(NL(1)1):I2I2/ I12I12 L$(RL$,I,1):L(L$)65:WA(L)WA(L)1:WA(20)WA(20)1:RL$(RL$,I1)"U"(RL$,NLI) I0NP2 JI1NP1 TS(I)TS(J)285 TTS(I):T$TN$(I) TS(I)TS(J):TN$(I)TN$(J) TS(J368,0:H V7:H8:100:"OK, ";NM$(CP);" PRESS ";::"";:::y QP0:L$"":RL$"":I025:WA(I)0:WW(I)0:I I1NL:M((GW$)(1)1):M(GW$)MM1 L$(GW$,M,1):L(L$)65:RL$RL$L$:WA(L)WA(L)1 L$"Q"QP1 I QP010& V21::H140:100:" ":H::b V7:H4:100:"IT'S ";NS$(CP);" TURN...CLEAR THE AREA!" V23:H8:100:"PRESS ";::"";::" WHEN READY": H7:V23:100:"PRESS TO CONTINUE" 16368,0 (16384)141175 16100:" ":100:CLg }CL60V9:H10:I150:135:I:100:"--60 SECOND WARNING --":105:115:TI30| V7:H20(W$): BZ(S)(S): V9:100:M$:105:105:115:V7:115: H1:110:H5:110:H10:110:H16:110:H23:110:H31:110:H40:1S(0 :V12:H10:100:"PRESS ANY KEY TO START">16368,0j(16384)128(16384)255I(1):20x16368,0ZS16336:500dH:V:iX1500:X:nV1520:100::" ":V:::sH140:100:" ":H: xCLCL1:TI0:V1:H37:               "YOUR WORDS MUST CONTAIN AT LEAST THREE"T&"LETTERS. THEY ARE GROUPED ON THE"&"SCREEN ACCORDING TO LENGTH. YOU CAN"&""MAKE UP TO FIVE WORDS OF EACH LENGTH"&'"FROM THREE TO EIGHT LETTERS."&1165&@:14)"INSTRUCTIONS":'E"NO PF ABOUT" %"THREE MINUTES.":K%"WORD WARS MAY BE PLAYED BY A SINGLE"w%"PLAYER, COMPETING AGAINST THE CLOCK,"%"AND TRYING TO GET THE HIGHEST POSSIBLE"% "SCORE, OR BY UP TO SIX PEOPLE PLAYING"%"AGAINST THE CLOCK AND EACH OTHER.":+&:J034:WD$(I,J)"":J:K06:NW(I,K)0:K:I7$x700S$:14)"INSTRUCTIONS":$"THE OBJECT OF WORD WARS IS TO MAKE AS"$"MANY WORDS AS YOU CAN FROM A GROUP OF"$"LETTERS DISPLAYED ON THE SCREEN, WHILE"%"WORKING AGAINST A TIME LIMIT OQUIT":16368,0(#Z(16384)1411380D#_16368,0:34,0::1390]#d(16384)2091370#i16368,0:34,0::V12:H1:100:"THANKS FOR PLAYING - HOPE YOU HAD FUN!":105:105:#k:(4);"RUN MENU"#nI0NP1:FS(I)0:I:NL13:GN1.$sI0NP155:165:1355@"<:V3:H6:100:"FINAL SCORING FOR TOURNAMENT"k"AI0NP1:TS(I)FS(I):TN$(I)NM$(I):I"F255:165:1370"KGNGN1:GN5NL20"P165:1395#UV15:H1:100:"PRESS FOR ANOTHER TOURNAMENT":V16:H12:100:"PRESS TO :TN$(I)NM$(I):I!255`!#GN5V15:H5:100:"PRESS FOR FINAL SCORES":170:1340!(GN5V15:H2:100:"PRESS FOR CUMULATIVE SCORES":170!-:V3:H12:100:"CUMULATIVE SCORES"!2I0NP1:TS(I)FS(I):TN$(I)NM$(I):I "72";SC(0);" POINTS" 105Y H4:V12:100:"YOUR TOTAL SCORE IS NOW ";FS(CP);" POINTS"b 105q GN51355 H10:V13:100:"...AND THAT'S FINAL!" 105:1365 :V3:H12:100:"SCORING FOR ROUND"!I0NP1:FS(I)FS(I)SC(I):TS(I)SC(I)"SORRY ";NM$(I);"..."[H8:V14:100:"...THAT'LL COST YOU ";PN;" POINTS":SC(I)SC(I)PN|105:105:105:34,0::1110INP11300FS(CP)FS(CP)SC(CP):H6:V9:100:"WELL DONE ";NM$(0);"..." H6:V10:100:"YOU FINISHED WITH 117016368,0:IH3:V10:100:"TYPE IN THE CHALLENGED WORD ";W$UJ029kWD$(I,J)W$1215rJH5:V12:100:"THAT'S NOT ONE OF ";NS$(I);" WORDS":1235LW(W$):WD$(I,J)(PC$,LW)PNLW102(BN(LW3)5)H5:V12:100: THESE WORDS MAY NOW BE CHALLENGED":34,8\~H7:V12:100:"PRESS TO CHALLENGE A WORD"uH19:V13:100:"OR"H6:V14:100:"PRESS TO CONTINUE PLAY"16368,0(16384)141118016368,0:34,0:1240(16384)195LI0NP1QFVV2:H17((NS$(I))2):100:NS$(I);" WORDS"\[K0:V4:J10:J24q`JJ1J2:HOS(K)eWD$(I,J)""WD$(I,J)(PD$,K3)j100:WD$(I,J):VV1:JoJ291145tKK1:V4:J1J15:J2J25:1120)yH1:V10:100:"ANY OF"** ALL BONUS SCORES NOW DOUBLED **":H3:140:M$"** YOU GET 60 SECONDS OF EXTRA TIME **":H1:140:CLCL60:BW1{78034,2:CPNP1Ĺ34,0:1100CPCP1:155:CPCP1:145SC(CP)SBSBSC(CP)CPSC(CP)SBSBSC(CP) CP,8):LW8pSCLW10GuHOS(LW3):V20NW:100:W$:V9:115:V7:115^zBNBN(LW3)(NW1)vSC(CP)BPBNBNBNSCSCBN:SC(CP)SC(CP)SC:V12:H23:100:" ":100:SC(CP)rSC(CP)BPBW0M$"** YOU'RE IN DOUBLE BONUS TIME **":H4:140:M$AT LENGTH **":H2:140:780.HNWNW(CP,LW3)<MNW0865ZRJ5(LW3)5(LW3)NW1uWWD$(CP,J)W$ĂJ:865\M$"** SORRY, YOU HAVE THAT WORD **":H5:140:780aNWNW(CP,LW3):NW(CP,LW3)NW1fWD$(CP,5(LW3)NW)W$k(W$)8W$(W$40:780R*WW(L)0M$"** YOUR WORD CONTAINS TOO MANY "L$"'S **":H3:140:780d/WW(L)WW(L)1k4I9TI30:LW(W$):LW8LW8>LW3M$"** WORDS MUST HAVE AT LEAST 3 LETTERS **":H1:140:780CNW(CP,LW3)5M$"** YOU HAVE 5 WORDS OF THV23:H10:100:"SCORE TO BEAT: ";SB-BW0H I025:WW(I)WA(I):IgV7:H9:100:"YOUR WORD:"vW$"":385V9:H15:100:"CHECKING..." I1(W$):L$(W$,I,1):L(L$)65%WA(L)0M$"** THERE ARE NO "L$"'S IN THIS ROLL **":H3:1S TO BEGIN PLAY":16368,0<0(16384)1411935Q016368,0::570 l:14)"INSTRUCTIONS":F/q"YOU MAY FIND IT FUN AT PARTIES TO LET"u/v"TWO OR THREE PLAYERS WORK TOGETHER AS A"/{"TEAM. AT ANY RATE..."/V7:H16:100::"HAVE FUN"::/V9:H6:100:"AND IMPROVE YOUR VOCABULARY!"#0H7:V23:100:"PRES THE HIGHEST POSSIBLE DOUBLE BONUS.":S.D"WHEN ENTERING A WORD, BACK-ARROW WILL".I"ERASE THE LAST LETTER WHILE ".N"WILL ERASE THE ENTIRE WORD. IF YOU ARE".S"PLAYING ALONE, YOU CAN GET A NEW ROLL".X"BY PRESSING ".]165/"YOU ALSO RECEIVE ANOTHER 60 SECONDS OF"@-&"PLAYING TIME.":o-+"IF ANY OF YOUR WORDS ARE CHALLENGED AND"-0"FOUND INVALID, YOU ARE PENALIZED AT THE"-5"HIGHEST POSSIBLE SCORE FOR A WORD OF"-:"THAT SIZE. THAT IS, THE BASE SCORE"&.?"PLUSWHICH YOU HAVE,"-,"THE HIGHER THE BONUS."6,165R,:14)"INSTRUCTIONS":|, "FINALLY, IF YOU GET MORE THAN 1750","POINTS IN A GAME, YOU GO INTO DOUBLE","BONUS MODE. THE BONUS FOR EACH","ADDITIONAL WORD YOU MAKE IS DOUBLED.")-!OR"2+"A WORD IS 10 POINTS TIMES THE NUMBER OF"^+"LETTERS IN THE WORD. IN ADDITION, A"+"BONUS RANGING FROM 0 TO 800 POINTS IS"+"ADDED TO THE SCORE OF EACH WORD. THE"+"MORE LETTERS IN A WORD, AND THE MORE","WORDS OF THAT LENGTH ER"2*"PLAYERS. YOU WILL NEED A DICTIONARY OR"\*"SOME OTHER MEANS OF ARBITRATION.":*"ALL PLAYERS ARE THEN RANKED ACCORDING"*"TO THEIR SCORE FOR THIS GAME AND THEIR"*"TOTAL SCORE SO FAR.":+"A WORD ON SCORING. THE BASIC SCORE F TURN YET SHOULD NOT">)"WATCH THE SCREEN WHILE OTHERS ARE"Y)"MAKING THEIR WORDS."b)165~):14)"INSTRUCTIONS":)"AFTER EACH PLAYER HAS HAD A TURN,")"EVERYONE'S WORDS ARE DISPLAYED IN TURN"*"FOR POSSIBLE CHALLENGES FROM THE OTHRS. IN THE LAST GAME OF THE"K(h"TOURNAMENT YOU WILL HAVE 20 LETTERS TO"_(m"WORK WITH.":(r"IF THERE IS MORE THAN ONE PLAYER, EACH"(w"GETS A THREE MINUTE TURN WITH THE SAME"(|"SET OF LETTERS. NATURALLY, THOSE WHO")"HAVEN'T HAD THEIRROPER NOUNS ARE ALLOWED, BUT"L'J"CONTRACTIONS, PLURALS, AND ALL PREFIXES"l'O"AND SUFFIXES ARE FINE.":'T"A GROUP OF FIVE GAMES IS CALLED A"'Y"TOURNAMENT. IN THE FIRST FOUR GAMES,"'^"YOU MUST MAKE YOUR WORDS FROM A ROLL OF"(c"13 LETTE805-"THE STREET CREWS BOUGHT ALL YOUR"L"LEMONADE AT LUNCHTIME!!"V1185k THUNDERSTORM!y X31:R30 SC5:15000:: "WEATHER REPORT: A SEVERE THUNDERSTORM"$ "HIT LEMONSVILLE EARLIER TODAY, JUST AS". "THE LEMONADE STA LIGHT RAIN,"5C"AND THE WEATHER IS COOLER TODAY."DHR11J100MRX11V\805dX21805"THE STREET DEPARTMENT IS WORKING TODAY.""THERE WILL BE NO TRAFFIC ON YOUR STREET."(1).52233R222250R1.1X21USINESS YOU'RE BANKRUPT!"%dB(I)12f18000:HiN1B(1)131111OnIXsR11atR20jx400 RANDOM EVENTSSC102110SC72410(1).2522108054X11805>J30((1)5)10 @"THERE IS A ";J;"% CHANCE OF01ES(I)S3L(I)C1# P1ME4A(I)A(I)P1EH(I)12300K(])B(I)11330."STAND ";I;:" BANKRUPT":18000/139025000FA(I)C1001390P"STAND ";IU:" ...YOU DON'T HAVE ENOUGH MONEY LEFT"Z" TO STAY IN B32350I1N%A(I)0A(I)04R221260GP(I)P91220dN1(P9P(I))P9.8S2S2n1230N1((P92)S2P(I)2)WS(I)C9V1((W)C2)N2R1(N1(N1V))N2(N2G(I))N2L(I)1270N2L(I)MN2P(I).:SC10(1).252300Fj"$$ LEMONSVILLE DAILY FINANCIAL REPORT $$"Loft768,152:769,80:770v768,128:769,160:770x768,152:769,40:770z768,144:769,80:770|768,128:769,200:770 CALCULATE PROFITSR222290R3ONADE ";P(I),P(I)0P(I)100102261024b"COME ON, BE REASONABLE!!! TRY AGAIN."l1010P(I)(P(I))1022C51105023:"WOULD YOU LIKE TO CHANGE ANYTHING?";A$$(A$,1)"Y"ė:C51:810LMIVC50::`950S(I)(S(I))963;S(I)S3A(I)L(I)C11010A\STIA(I)L(I)C1:4000"THINK AGAIN, YOU HAVE ONLY ";STI$"IN CASH LEFT AFTER MAKING YOUR LEMONADE."950:"WHAT PRICE (IN CENTS) DO YOU WISH TO""CHARGE FOR LEM);" GLASSES OF">"LEMONADE YOU NEED $";L(I)C1;" IN CASH."G890M"HOW MANY ADVERTISING SIGNS (";S3100;" CENTS""EACH) DO YOU WANT TO MAKE ";S(I)S(I)0S(I)50963965"COME ON, BE REASONABLE!!! TRY AGAIN." "WISH TO MAKE "; L(I)9 L(I)0L(I)1000903B 906m "COME ON, LET'S BE REASONABLE NOW!!!"~ "TRY AGAIN" 890 L(I)(L(I))903 L(I)C1A(I)950 "THINK AGAIN!!! YOU HAVE ONLY ";STI$"IN CASH AND TO MAKE ";L(II)A(I).000000001$ 4G(I)1:H(I)0` RSTIA(I):4000:"LEMONADE STAND ";I;26);"ASSETS ";STI$f Wv \B(I)0890 f"YOU ARE BANKRUPT, NO DECISIONS" k"FOR YOU TO MAKE." lN1A(1)C31111 p1050 z"HOW MANY GLASSES OF LEMONADE DO YOU"R11 X CURRENT EVENTS( bD3650X l"(YOUR MOTHER QUIT GIVING YOU FREE SUGAR)"f D7700 "(THE PRICE OF LEMONADE MIX JUST WENT UP)"  AFTER 2 DAYS THINGS CAN HAPPEN D22000  INPUT VALUES %:34,(37) *I1N /A( WEATHER REPORT SC(1)0 SC.6SC2:460F SC.8SC10:460O SC7] D3SC2h 15000p :  START OF NEW DAY DD1 "ON DAY ";D;", THE COST OF LEMONADE IS "; C2:D2C4 &D6C5 0"$.0";C: :C1C.01 D FEBRUARY, 19791 Z BY CHARLIE KELLNER` A(30),L(30),H(30),B(30),S(30),P(30),G(30)j P910u S3.15 S230 A22.00 C9.5 C21 , START OF GAME 612000:I1N:B(I)0:A(I)A2: @A$"Y"İ13000:400 J14000  - 14080*10000:11000:16000:135H <<< LEMONADE STAND >>>O n FROM AN ORIGINAL PROGRAM BY BOB JAMISON, OF THE( MINNESOTA EDUCATIONAL2 COMPUTING CONSORTIUM< * * *F MODIFIED FOR THE APPLE P               TO MAKE LEMONADE IS TWO CENTS "Q&3"A GLASS (THIS MAY CHANGE IN THE FUTURE).":\&318000b&3&3"YOUR EXPENSES ARE THE SUM OF THE COST OF"&3"THE LEMONADE AND THE COST OF THE SIGNS. ":&3"YOUR PROFITS ARE THE DIFFERENCE BETWEEN "&'3"THE IING)"]%T3"2. HOW MANY ADVERTISING SIGNS TO MAKE (THE SIGNS COST FIFTEEN CENTS EACH) "%^3"3. WHAT PRICE TO CHARGE FOR EACH GLASS ":%h3"YOU WILL BEGIN WITH $2.00 CASH (ASSETS)."%r3"BECAUSE YOUR MOTHER GAVE YOU SOME SUGAR,"&|3"YOUR COST => ";N$+$/N(N$):N1N30ĺ(7);:122201$/E$2 NEW BUSINESSK$,3{$63"TO MANAGE YOUR LEMONADE STAND, YOU WILL "$@3"NEED TO MAKE THESE DECISIONS EVERY DAY: ":%J3"1. HOW MANY GLASSES OF LEMONADE TO MAKE (ONLY ONE BATCH IS MADE EACH MORN YOU"7#/"MAKE THE MOST MONEY, YOU'RE THE WINNER!!":g#/"ARE YOU STARTING A NEW GAME? (YES OR NO)"#/21:958:"TYPE YOUR ANSWER AND HIT RETURN ==> ";A$#/A$(A$,1):A$"Y"A$"N"ĺ(7);:12200$/23:958:"HOW MANY PEOPLE WILL BE PLAYING =YOU ARE IN CHARGE OF"E"b/"RUNNING YOUR OWN LEMONADE STAND. YOU CAN"u"l/"COMPETE WITH AS MANY OTHER PEOPLE AS YOU""v/"WISH, BUT HOW MUCH PROFIT YOU MAKE IS UP""/"TO YOU (THE OTHER STANDS' SALES WILL NOT"#/"AFFECT YOUR BUSINESS IN ANY WAY). IF55,152,40,171,80,192,40,228,255,1,40,0,160,192,255,192,40,171,80,152,40,128,255,0,0`!- MUSICp!-I,J:J0ı!-768,I:769,J:770!-11710!. TITLE PAGE!D/::(7);!N/"HI! WELCOME TO LEMONSVILLE, CALIFORNIA!":"X/"IN THIS SMALL TOWN, L;LL;,;L;LL;,;;;LL;,,,,,*J - 96,16,85,4,128,4,96,4,76,4,128,4,96,16,0,0 - 114,120,144,60,114,255,1,120,128,120,144,60,128,120,114,60,144,120,171,255,228,255,0,0 - 152,180,152,120,152,60,144,120,152,60,171,120,192,60,152,255,0,0S!(- 0,160,128,212%,32,0:33,40:34,20:35,23:22<,I14000::I(0)B,N, DATA, 96,180,128,60,114,60,128,120,144,60,152,60,128,255,128,60,114,60,85,120,96,60,102,60,114,120,102,60,96,255,0,0 - ,,,,,,L;LL;,L;LL;,;;LL;;,L;LL;,L;;;;,,,;L;;;;,;L;LL;,;5,1958,I3971:15:18,37I:12:I39ď18,36I1OB,15:I30ď18,36I10L,12:I29ď18,37I11:32,I11:11:I12::A$:A$;V,J14II:::I11000:`,13:14,3612:I36201:8,16Ij,J150::768,I312:769,12:770::12:14,19;L;LL;LLLLLLLL";A+"LLLLLLLLLLLL;LL;LL;;;;L;LL;L;LL;LLLLLLLL";r+"LLLLLLLLLLLL;LL;LL;LL;L;LL;L;LL;LLLLLLLL";,"LLLLLLLL;;;;;LL;LL;;;;L;LL;L;;;;LLLLLLLL";,23:" COPYRIGHT 1979 APPLE COMPUTER INC."$,11700:I12000:.,33,1:34,9:3L;L;LL;L;LL;L;LLL";D+";;;;L;;;;L;LLL;L;;;;L;LL;L;;;;L;;;;L;;;;";L+11}+"LLLLLLLL;;;;;LL;LLLLLLLLLLLLLLL;LLLLLLLL";+"LLLLLLLL;LLLLLL;LLLLLLLLLLLLLLL;LLLLLLLL";+"LLLLLLLL;LLLLL;;;L;;;;L;;;;L;;;;LLLLLLLL";+"LLLLLLLL;;;;;LL;LLLLL;L;LLLLLLLLLLLLLLLLLLLLLLLL;LLLLL";Op+";LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL;LLLLL";z+";LLLL;;;;L;;;;;L;;;;L;;;;L;;;;L;;;;L;;;;";+";LLLL;LL;L;L;L;L;LL;L;LL;LLLL;L;LL;L;LL;";+";LLLL;;;;L;L;L;L;LL;L;LL;L;;;;L;LL;L;;;;";+";LLLL;LLLL;L;L;L;LL;L;L71,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202~'782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0'* INTRODUCTION\+:::12:I039:0,39I::2f+";LLLLLLLLLLL::" ";L(I);7);"GLASSES MADE":hSTIE:4000:" ";S(I);7);"SIGNS MADE";25);"EXPENSES ";STI$::STIP1:4000:16);"PROFIT ";STI$:STIA(I):4000:16);"ASSETS ";STI$18000 :' INITIALIZE'0:0Wt'770,173:7(STI)&STI(STI)STI$STI$".0"MSTI(STI10.5)10STI$STI$"0"S`6:34,5" DAY ";D;30);"STAND ";I::" ";N2;7);"GLASSES SOLD":STIP(I)100:4000:STI$;7);"PER GLASS";STIM:4000:27);"INCOME ";STI$"NDS WERE BEING SET UP."E8 "UNFORTUNATELY, EVERYTHING WAS RUINED!!"YB J1N:G(J)0:cL 1185q` X41805zj X41~ "A HEAT WAVE IS PREDICTED FOR TODAY!" R12 805  STI => DOLLARS.CENTSSTI(STI100.5)100STI$"$"ESS SPACE TO CONTINUE, ESC TO END...";J5ZFIN$:IN$" "(IN$)2718010_5dF(IN$)2731111e5nF5yI12000:::10:"WOULD YOU LIKE TO PLAY AGAIN ";5yIN$:IN$"Y"1505y(994)(1001)192Č9765y:::35,54:13946,96:13947,0:4?+4hBSC5ıa4iB10:7,929:30,319:9,1432:33,3414:14,25354mB5,88:9,8:8,1310:11,13:13,17124rBRPT154|B138244B7:138274B138244B9:138274BRPT4B138244B5:138274B&5PF24:" PR173:13923,162:}3>13924,48:13925,133:13926,36:13927,173:13928,163:13929,54:13930,133:13931,37:13932,165:13933,48:3>13934,41:13935,15:13936,141:13937,164:13938,54:13939,165:13940,48:13941,41:13942,240:13943,141:4>13944,165:139499,161:13900,54:13901,145:13902,40:13903,200:2>13904,192:13905,40:13906,144:13907,213:13908,160:13909,0:13910,104:13911,105:13912,0:13913,197:3>13914,34:13915,144:13916,196:13917,32:13918,193:13919,251:13920,133:13921,40:13922,:13876,41:13877,240:13878,24:13879,109:13880,160:13881,54:13882,145:13883,40:1>13884,177:13885,40:13886,41:13887,240:13888,205:13889,165:13890,54:13891,208:13892,10:13893,177:12>13894,40:13895,41:13896,15:13897,24:13898,109:138:13853,133:z0>13854,36:13855,133:13856,37:13857,72:13858,32:13859,193:13860,251:13861,133:13862,40:13863,164:0>13864,36:13865,177:13866,40:13867,41:13868,15:13869,205:13870,164:13871,54:13872,208:13873,10:U1>13874,177:13875,409,41:13830,15:13831,141:13832,160:13833,54:/>13834,165:13835,48:13836,41:13837,240:13838,141:13839,161:13840,54:13841,165:13842,36:13843,141: 0>13844,162:13845,54:13846,165:13847,37:13848,141:13849,163:13850,54:13851,169:13852,0;I,J:J015320#.;SC10154008.;I,J:J015340L.(13824,76:13825,108:13826,54:13827,165:13828,48:1382SC7Ė15:" HOT AND DRY ";7-P;SC10Ė17:" CLOUDY ";a-R;SC5Ė14:" THUNDERSTORMS! ";:17000g-`;~-j;A$:A$"*"15210-t;SC215300-~;I,J:J015500-;K1J:768,I:769,10:770-;LKJ:::15230-;I,J:J015300-;SC715400.Ġ0J,6;6,102:4,143:7,124:22,304:20,365:23,336:::17000:15170W,8;SC7Ġ9,:;3,51:2,62:I36:1,7I::2,67:3,58,B;22:8:" LEMONSVILLE WEATHER REPORT ":,G;22:8:" LEMONSVILLE WEATHER REPORT ":,L;SC2Ė18:" SUNNY ";-N;+8:(7):"...READY TO BEGIN? ";A$;+8(A$,1)"N"13000A+8X+: WEATHER DISPLAY`+::{+;SC:I025:0,39I:I+;12:I2639:0,39I:I+;8:I2432:15,25I:I+.;13:I17232:22,23I:I+/;SC2SC715160+0;SC10Ġ15,5;SC5*@8I1N::@*J8"PLAYER NO. ";I;", HOW MUCH MONEY (ASSETS)":W*T8"DID YOU HAVE? ";l*^8"";A$:A(A$):*h8A2ĺ"O.K. - WE'LL START YOU OUT WITH $2.00":A2:14490*r8A40ĺ"JUST TO BE FAIR, LET'S MAKE THAT $10.00":A10*8A(I)(A100.5)100:$BER IT WAS? ";/)F7"";A$:A(A$)::A014200p)P7A$(A$,1):A$"Y"ĺ"GOOD! WHAT DAY WAS IT? ";:II1:14150)Z7A$"N"I014300)d7(7);"YES OR NO? ";:II1:14150)x7A1A99A(A)14300)7DA)7"OKAY - WE'LL START WITH DAY NO. ";D1: MONEY THAN YOU HAVE! ":%(318000-(3:F(6 CONTINUE OLD GAME[(7936:(7);:I0(7"HI AGAIN! WELCOME BACK TO LEMONSVILLE! ":((7"LET'S CONTINUE YOUR LAST GAME FROM WHERE"(27"YOU LEFT IT LAST TIME. DO YOU REMEMBER ")<7"WHAT DAY NUMNCOME FROM SALES AND YOUR EXPENSES.":V'3"THE NUMBER OF GLASSES YOU SELL EACH DAY "'3"DEPENDS ON THE PRICE YOU CHARGE, AND ON "'3"THE NUMBER OF ADVERTISING SIGNS YOU USE.":'3"KEEP TRACK OF YOUR ASSETS, BECAUSE YOU "(3"CAN'T SPEND MORE I1)I:IX5:9SE(0)((1)10):INCR((1)5)3ZI15:SE(I)SE(I1)INCR:IdX5:SE(0)((1)15)5:INCR((1)3)2 I15:SE(I)SE(I1)IINCR:IX((1)6):(SE(0)((1)9)12I15:SE(I)SE(I1)2:I <X((, ";:1110LSE(I);", ";"VIa`". . .":12:"MISSING NUMBER = ? ";AN$:PX10:A2SE(X):30rj100:PROB,Pt11000:2000SE(0)((1)10):INCR((1)5)3I15:SE(I)SE(I1)INCR:IX5:SE(0)((1)10) I15:SE(I)SE(N YOU ARE READY FOR THE NEXT SERIES, PRESS THE SPACE BAR (THERE WILL BE THREE SERIES FOR EACH CONTESTANT)."90:NXT2000PROB13$(((1)3)1S(P)3)1160,1200,1240,1280,1320,1360,1400,1440,1480.:8:58I05 BIXĺ" ? 0"IN THIS EVENT, I WILL LIST A SERIES OF NUMBERS WHICH ARE RELATED TO ONE ANOTHERIN SOME WAY. ONE OF THE NUMBERS WILL BEMISSING, AND YOU MUST TRY TO DETERMINE WHAT THAT NUMBER IS."s:"TYPE IN YOUR ANSWER AND THEN PRESS THE 'RETURN' KEY. WHE$(P)):NAME$(P)"!":L6600BNNAME$(P)NAME$(P)(PL$(P),6):630TXSS((6L)2)ybJ1SS:NAME$(P)NAME$(P)" ":JlNAME$(P)NAME$(P)PL$(P)vP:10:"L E T T H E G A M E S B E G I N !"I12500:IE1:NXT0P1NP:1N":" 2. UNITED STATES":" 3. FRANCE":" 4. SCOTLAND"z"(TYPE IN 1, 2, 3, OR 4): ";X$:C(I)(X$):C(I)1C(I)4530:PL$(I);", WHAT SKILL LEVEL DO YOU":"CHOOSE (0, 1, OR 2)? ";X$&S(I)(X$):S(I)0S(I)25400I:P1NPDL(PLSTANTS WILL BE COMPETING":"(1, 2, 3, OR 4)? ";X$MNP(X$):NP1NP4480^I1NP::3:"CONTESTANT #";I;", PLEASE TYPE IN YOUR":"NAME, AND PRESS 'RETURN': ";PL$(I)8:PL$(I);", WHICH COUNTRY ARE YOU":"REPRESENTING:":" 1. GREAT BRITAIE ASKED FOR AN ANSWER, TYPE IN THE NUMBER AND PRESS 'RETURN'. TO CONTINUE WITH THE NEXT PROBLEM, PRESS THE SPACE BAR.":"IF YOU SHOULD WANT TO SKIP AN EVENT, PRESS 'ESC' WHEN THE INSTRUCTIONS ARE GIVEN."1001:10:"HOW MANY CONTEIS PLAYED IF THERE WAS A TIE.)":x"AT THE VERY END, I'LL PLAY THE COMPLETE NATIONAL SONG OF THE WINNING PLAYER(S).":"EACH PLAYER MAY CHOOSE ONE OF THREE SKILL LEVELS: 0 (BEGINNER), 1 (INTER- MEDIATE), OR 2 (ADVANCED)."|:"WHEN YOU AREPARATE EVENTS:":, I110:3)EE$(I):Io :"IN EACH EVENT THERE IS A POSSIBLE SCORE OF THIRTY POINTS."x 100!::"BETWEEN EVENTS I'LL SHOW THE SCOREBOARD,AND PLAY PART OF THE NATIONAL SONG OF THE PLAYER WHO WON THE LAST EVENT. (NO SONG 0P h:6:7)"M A T H D E C A T H L O N":10:8)"WELCOME TO THE OLYMPICS!!" r15:" WOULD YOU LIKE INSTRUCTIONS? ";X$:(X$,1)"N"480 |::"THIS IS A GAME OF MATHEMATICAL SKILLS AND REASONING FOR ONE TO FOUR PLAYERS."::"THERE ARE TEN SNATOR" JEE$(6)" 6. MAGIC SQUARES":EE$(7)" 7. CLOCK MATH":EE$(8)" 8. MENTAL MATH":EE$(9)" 9. PENNY BATTLE":EE$(10)"10. BINARY NUMBERS" TA$"-----------+------+------+------+------":B$"+ + + +":C$"! ! ! !" ^1200.D.":E$(6)"MAGIC SQR":E$(7)"CLOCK MATH":E$(8)"MENTAL MATH":E$(9)"PENNIES":E$(10)"BINARY #'S" @EE$(1)" 1. FIND THE MISSING NUMBER":EE$(2)" 2. GUESS A NUMBER":EE$(3)" 3. SPEED MATH":EE$(4)" 4. STARRY STARRY NIGHT":EE$(5)" 5. LOWEST COMMON DENOMI THE SPACE BAR TO CONTINUE <<<";:9 n(16384)127110R x(16384)155NXT1b 16368,0: ,E$(10),SE(6),PL$(4),S(4),P%(4,10),NAME$(4),NUM(4),SQ(9),C(4),EE$(10)a 6E$(1)"MISSING #":E$(2)"GUESS A #":E$(3)"SPEED MATH":E$(4)"STARS":E$(5)"L.C@ 300* :3:"EVENT #";EE$(E):7:8A1(AN$)I(:A1A2602"THAT'S RIGHT, ";PL$(P);"!":P%(P,E)P%(P,E)PX:<"SORRY, ";PL$(P);", THE CORRECT":"ANSWER IS ";A2:Z:PL$(P);", IT'S YOUR TURN."" d16360,0:24:1::">>> PRESS          !!! ! ! ! ! !!!!!!!!!""" " " " " """""""""     ERMINE THIS'MAGIC NUMBER' YOU CAN FIGURE OUT THE MISSING QUANTITIES."Y&90:NXT7000&PROB13:A((1)7(S(P)1))1:B((1)4(S(P)1))1&C((1)3(SILL(P)21))1:CB6070#'SQ(1)AB:SQ(2)ABC:SQ(3)AC:SQ(4)ABC:SQ(5)A:SQ(6)AOUT A MAGIC SQUARE WITH ONE OR MORE NUMBERS MISSING.YOU ARE TO SUPPLY THE MISSING NUMBERS."%:"A MAGIC SQUARE IS A SQUARE ARRANGEMENT OF NUMBERS IN WHICH EVERY COLUMN, EVERY ROW, AND EACH LONG DIAGONAL ADDS UP TO"G&"THE SAME TOTAL. ONCE YOU DET 1":15)"--- ---":16)A;:23)B:LCDD]$I(D2)21:(IA)IA(IB)IBLCDId$(I$216:" LOWEST COMMON DENOMINATOR = ? ";AN$::A2LCD:PX10:30$<100:PROB,P:11000$pE6:NXT0$zP1NP:10\%"IN THIS EVENT I WILL PRINT ))3:AB5070#S(P)05130?#C((1)4)2:CACB5090#DABC::10:13)"1 1 1":12)"--- --- ---":13)A;:20)B;:27)C:LCDD#I(D2)21:(IA)IA(IB)IB(IC)ICLCDI#I:5170-$ DAB::10:16)"1 5:NXT0"P1NP:10""IN THIS EVENT I WILL SHOW YOU A SET OF FRACTIONS, AND YOU ARE TO FIND THE LOW- EST COMMON DENOMINATOR. THERE WILL BE THREE SETS IN ALL.""90"NXT6000"PROB13"A((1)(4S(P)3))3#B((1)(4S(P)3X$;:!!NUMNUM7:I12000:IL!:8:"HOW MANY STARS? ";AN$:AN(AN$)u!P%10(20(NUMAN)NUM):P%0P%0!":"THE ACTUAL NUMBER WAS ";NUM;";"!,:"YOUR SCORE IS ";P%;" OUT OF 10."!6P%(P,E)P%(P,E)P%!@100!JPROB:P:11000"EYOU ARE TO GUESS HOW MANY STARS THERE ARE. THE CLOSER YOUR GUESS, THE MORE POINTS YOU'LL GET."r 90:NXT5000 PROB13::NUM0:X$"" R(1).09(S(P)1).03.02S(P) I1137:(1)RX$X$" "::4090 X$X$".":NUMNUM1:!I17: A((1)10(S(P)21))5:B((1)(A3(S(P)1)))3:CAB:F$"-":} A((1)10(S(P)1)):B((1)6.9)3:CAB:F$"X":E4:NXT0P1NP:10"IN THIS EVENT I WILL BRIEFLY SHOW YOU A BLACK NIGHT SKY WITH A NUMBER OF STARS"` "IN IT. DI)(D$):DI43170"D PSNPSN1)N TCX ::"TIME'S UP. . ."ib K1DI:A1A1NUM(K)10(DIK):Kl A2C:PX10(10T(600S(P)100)):40v 100 PROB,P:11000:4000 A((1)10(S(P)21))1:B((1)10(S(P)21))1:CAB:F$"+":D):F$;" ";B:17)"------":21)"?"::::10)"ANSWER:";Y DI0:A10:PSN20:T1300:T T1600S(P)100:PSN:(16384)1273150 D$:16368,0:(D$)83120 PSNPSN1:DIDI1:DI0DI0& 31500 (D$)133170: DIDI1:(D$);:NUM( CORRECT ANSWER, THE HIGHER YOUR SCORE WILL BE." :"IF YOU TYPE IN THE WRONG ANSWER, OR RUN OUT OF TIME, YOUR SCORE FOR THAT PROBLEMWILL BE ZERO." 90:NXT4000 PROB13:PROB3210,3220,32308 :5:19(A10)(A100):A::17(B10)(B10020z"TOO HIGH"::2120]"SORRY, ";PL$(P);", NO MORE GUESSES.":"THE NUMBER WAS ";NUMu100:PROB,P:11000 E3:NXT0 P1NP:101 "IN THIS EVENT I WILL GIVE YOU A SERIES OF THREE MATH PROBLEMS. THE MORE QUICK-LY YOU CAN TYPE IN THET3000 P%(P,E)31A*PROB13::3:PL$(P);" -- #";PROB::W4NUM((1)LIM)1_>I0uHP%(P,E)P%(P,E)1RII1:I112180\"GUESS # ";I;:": ";AN$:AN(AN$)fANNUMĺ"YOU GUESSED IT, ";PL$(P)"!":2190pANNUMĺ"TOO LOW"::21 YOUR GUESS AND PRESS 'RETURN', AND I WILL TELL YOU IF YOUR GUESS IS LOW, HIGH, OR RIGHT ON!"{LIM10:S(P)1LIM30S(P)2LIM100 :PL$(P);", IT'S YOUR TURN.":"EACH OF YOUR THREE NUMBERS WILL BE BETWEEN 1 AND ";LIM;"."100:NX*SE(0)((1)30)9:INCR((1)3)3MI15:SE(I)SE(I1)IINCR:IaX((1)5)1:oE2:NXT0P1NP:10"IN THIS EVENT I WILL CHOOSE A NUMBER AT RANDOM, AND YOU MUST TRY TO GUESS IT IN AS FEW TRIES AS POSSIBLE."a:"TYPE IN1)5)1:PSE(0)((1)9)1>ZI15:SE(I)SE(I1)2:IRdX((1)5)1:yxSE(0)((1)9)1:INCR((1)5)3I15:INCRINCR1:SE(I)SE(I1)INCR:IX((1)5)1:SE(0)((1)4)1I15:SE(I)SE(I1)I:IX((1)6):06#100:PROB,P:11000(6'E10:NXT086'P1NP:106$'"BINARY NUMBERS ARE WRITTEN USING ONLY THE DIGITS 0 AND 1, INSTEAD OF THE TEN DIGITS THAT ARE USED IN DECIMAL NUMBERS."87.'"INSTEAD OF HAVING PLACE VALUES OF 1'S, 10'S, 100'S, ETC., BINARYNUM1ĺ:"YOU WIN, ";PL$(P);"!":P%(P,E)P%(P,E)10:9190b5#RNUM(NUM(MAX1))(MAX1):N2R1t5#N21N2MAX5#((1)(S(P)1).4NUMMAX2)N20N2((1)MAX1)5#NUMNUMN2:"I TAKE ";N2;", LEAVING ";NUM:NUM1ĺ:"I WIN!":91906#:912NUM((1)1020):MAX((1)43)I4#NUM(NUM(MAX1))(MAX1)190804#:3:"WE'LL BEGIN WITH A STACK OF ";NUM;" PENNIES."::"YOU MAY PICK UP FROM 1 TO ";MAX;" OF THEM.":4#"YOU TAKE HOW MANY? ";N1$:N1(N1$):N11N1MAX9120:5#NUMNUMN1:MUST PICK UP AT LEAST ONE PENNY ON EACH TURN, BUT NO MORE THAN THE MAXIMUM WHICH I'LL SPECIFY."3P#:"I'LL GIVE YOU THE ADVANTAGE BY LETTING YOU PICK UP FIRST."3Z#903d#NXT100003n#PROB13:NUM23:MAX33x#S(P)1NUM((1)1020)"4#S(P)2 IS: ";:AN$?2 A2(((N1N2N3)N4N5)N6N7N8)N9:PX10:30W2 100:PROB,P:11000e2(#E9:NXT0u22#P1NP:102<#"IN THIS EVENT YOU AND I WILL TAKE TURNS REMOVING PENNIES FROM A STACK, AND THE ONE WHO PICKS UP THE LAST PENNY LOSES."`3F#:"YOU 10:14)"MULTIPLY BY ";N6Q1M1M1.59:M:N7((1)5)5::10:17)"ADD ";N7q1M1M1.50:M:S(P)181901N8((1)10)3::10:15)"SUBTRACT ";N81M1M1.4:M:N92::10:14)"MULTIPLY BY ";N91M1M1.3:M 2:10:11)"THE ANSWER2)2::10:14)"MULTIPLY BY ";N2_0M1M1.9:M:N3((1)42)2::10:15)"SUBTRACT ";N30M1M1.83:M:N42::10:15)"DIVIDE BY ";N40M1M1.75:M:N5((1)10)5::10:17)"ADD ";N50M1M1.67:M:S(P)081901N6((1)2)2::THE ANSWER."x/h:"BEWARE!! I'LL START OUT SLOWLY, BUT THEN I'LL START SPEEDING UP, SO BE SURE TO PAY ATTENTION!"/r90/|NXT9000/PROB13:N61:N70:N80:N91:N1((1)7)3::10:9)"START WITH THE NUMBER ";N1"0M1M1:M:N2((1)3H2;",";:M210ĺ"0";. M24.100:PROB,P:11000B.@E8:NXT0N.JM12000^.TP1NP:10 /^"IN THIS EVENT I WILL START BY GIVING YOUA NUMBER, AND THEN GIVE YOU A SERIES OF MATHEMATICAL OPERATIONS TO DO, ONE AFTERTHE OTHER. THEN, I'LL ASK YOU FOR ;",";:M110ĺ"0";-M1:::" WHAT TIME WILL IT BE IN ";M;" MINUTES?":::"(TYPE HOUR, COMMA, MINUTES, 'RETURN'.)":16368,0-20:18:H$,M$:HH(H$):MM(M$)-HHH2MMM2PX10:50:7190.:"SORRY, ";PL$(P);", THE CORRECT":"ANSWER IS ";1)(8S(P)2)1):M1((1)MOD):M((1)MODMODM1)(S(P)1)g,H((M1M)MOD):H2H1H:M2M1MMODH,M2MODM2M2MOD:H2H21:7110,H212H2H212-:5:" IF THERE ARE ";MOD;" MINUTES IN AN HOUR,":::11)"AND THE TIME NOW IS"::18)H1BE A CERTAIN NUMBER OF MINUTES FROM NOW."+"TYPE IN YOUR ANSWER WITH THE HOUR AND MINUTES SEPARATED BY A COMMA--SUCH AS 2,15 OR 12,08."+90+NXT8000+PROB13:MOD50:S(P)1MOD10((1)54)+S(P)2MOD5((1)204)=,H1((UTES IN AN HOUR! (THERE ARE STILL 24 HOURS IN THE DAY, DIVIDED INTO 12-HOUR PERIODS.)")+v:"IN EACH OF YOUR PROBLEMS, I WILL TELL YOU HOW MANY MINUTES THERE ARE IN AN HOUR, AND WHAT THE PRESENT TIME IS. THEN, I'LL ASK YOU WHAT TIME IT WILL PX10:50:6280H)j:"SORRY, ";PL$(P);":":" X = ";SQ(X);:Y06280h)t" Y = ";SQ(Y);:Z06280~)~" Z = ";SQ(Z);)100:PROB,P:11000)XE7:NXT0)bP1NP:10W*l"IN THIS EVENT YOU ARE TO IMAGINE THAT THERE ARE NO LONGER SIXTY MIN9):IXIYIZĺSQ(I);:62007(67II:IXĺ"X"E($IYĺ"Y"S(.IZĺ"Z"Z(8I(BX$"0":Y$"0":Z$"0"::18:"VALUE OF X = ? ";X$:Y06240(L"VALUE OF Y = ? ";Y$:Z06240(V"VALUE OF Z = ? ";Z$)`SQ(X)(X$)SQ(Y)(Y$)SQ(Z)(Z$)BC:SQ(7)AC:SQ(8)ABC:SQ(9)AB3'X0:Y0:Z0R'X((1)9)1:S(P)06140n'Y((1)9)1:YX6110'S(P)16140'Z((1)9)1:ZYZX6130':II0'I19:25((I1)3):IIII1:II4II1!(67II(SQ(I)0)(SQ(I)9)(SQ(I)