+ X(  `ŠРҍ   ˠҠϠōԠŠčԠΡ= 0 LAST.BIT RESET STOP ESTIMATE? IF :FLAG = 1 STOP REPEAT 2 [FD :SCALE LT 90 FD :WR LT 90] FD :SCALE MAKE "COUNTER :COUNTER + ( :WR / :SCALE ) MAKE "HOLD "'' PR.COUNT TOP.REMAINS :COUNTACROSS - 1 END TO DO.ROW :COUNTACROSS IF :COUNTACROSS = 0 RED 2 BK 2 LT 90 REPEAT :W [FD :SCALE RT 90 FD 3 BK 3 LT 90] END TO MARK.L2 FD :LR RT 90 FD 3 BK 3 LT 90 REPEAT :L [FD :SCALE RT 90 FD 3 BK 3 LT 90] END TO POSITION PU SETXY :HORIZ :VERT SETH 90 PD END TO TOP.REMAINS :COUNTACROSS IF :COUNTACROSS ON A SIDE.] ) CONT 30 CLEARTEXT IF FIRST :EX = "Y EXACT.SCALE STOP NOT.EXACT.SCALE END TO MARK.W1 REPEAT :W [FD :SCALE RT 90 FD 2 BK 2 LT 90] FD :WR END TO MARK.L1 REPEAT :L [FD :SCALE RT 90 FD 3 BK 3 LT 90] FD :LR END TO MARK.W2 FD :WR RT 90 F:D NORM PR [] END TO SECOND CURSOR 0 20 PRINT1 [YOUR TILE SUPPLIER CANNOT SUPPLY THE ' ' TILES YOU ORDERED. YOU MUST USE A ' ' DIFFERENT SIZED TILE. ' '] CONT 30 CLEARTEXT CURSOR 0 20 ( PR [THE TILES YOU JUST USED WERE] :SCALE [TURTLE '' STEPS :WIDTH :SCALE MAKE "HOLD "'' MAKE "N ( :LENGTH / :SCALE ) * ( :WIDTH / :SCALE ) OP FIND :N END TO AREA.IS :A CURSOR 0 21 ( PRINT1 [AREA= ''] :A ['' TILES] ) END TO CONT :D CURSOR :D 23 INV PRINT1 [RETURN] MAKE "ANS RC IF NOT :ANS = CHAR 13 CONT "COUNTUP :W MAKE "COUNTACROSS :L END TO ROW :COUNTUP ST IF ALLOF :COUNTUP = 0 :WR = 0 RESET HT STOP IF :COUNTUP = 0 POSITION TOP.REMAINS :COUNTACROSS HT STOP POSITION DO.ROW :COUNTACROSS IF :FLAG = 1 STOP ROW :COUNTUP - 1 END TO COMPUTE :LENGTH ҢΠōͲҢԠٍ̲ҢŠ΍ʲҢ̍ŲҢǍӍDZӠϠ؍ƱӠčűԠȠŠױÍ͍ɍùحؾǍϳҢӠγҢԮͳҢȠ̳ҢӍ˳ҢǠʳҢӍɳҢȳҢӍdzҢӍƳҢӍųҢōijҢӍóҢԠӍѲҢ΍вҢԍϲҢΠβɶƶǶȶɶĶƶǶȶȶǶƶĶöӍеϵ͵̵ȵǵƵĵõԍдϴʹ̴ȴǴƴĴô΍ѳҢŠгҢ԰ͷ̷˷Ԩʷ÷ʷɷƷǷȷɷķƷǷȷȷǷƷŷԨķ÷ķ÷Ӎж϶Ͷ̶˶Ԩʶöʶͱ̱ȱDZƱıñ΍йϹ͹̹ȹǹƹĹùˍиϸ͸̸ȸǸƸĸø΍зϷηԨķ̷ͷ÷̷ͷͱ̱ȱDZƱıñčбϱͱ̱ȱDZƱıñ±Ӎύбϱͱ̱ȱDZƱıñˍбϱͱ̱ȱDZƱıñӍѱƨϱбϱϱббϱͱ̱ȱDZƱıñҍѱƨϱбϱϱббϱͱ̱ȱDZƱıñōбϱͱ̱ȱDZƱıñٍбϱͱ̱ȱDZƱıñڍбϱƲIJòڍвϲͲ̲ȲDzƲIJò΍бϱͱ̱ȱDZƱıñ΍бϱαԨı̱ͱṉ̃ͺͲ̲˲ԨʲòʲɲƲDzȲɲIJƲDzȲȲDzƲŲԨIJòIJò²ɍӍвϲͲ̲ȲDz"MUSIC THEORY (MORE)":103:E$"RESET":C$(13):100U]::255:E$"RESET":C$(13)^:4:32,5:,"WHAT NEXT?"C$C$C$"A) RESTART THIS PROGRAM"C$C$"B) RUN CONTENTS TO CHOOSE ANOTHER"C$" PROGRAM"C$C$"C) GUIDED TOUR THROUGH WINDOW"C$C$"D) EXIT FROM WINDLD:MM23:aZR,166:R1,0:R2,160:R3,0:R4,202:R5,208:R6,5:R7,173:R8,48:R9,192[R10,166:R11,0:R12,136:R13,208:R14,245:R15,198:R16,1:R17,208:R18,239:R19,96:: 3,5,6,8,10,12,13,15,17,18,204\I$"MUSIC THEORY 2":G$D:MM12/T10M,56D:MM12:MM(K)1220:UH$"E3F3G3A3B3C4D4E4F4G4A4B4C5D5E5F5G5A5B5C6D6E6F6G6A6":Z25492:(D$,1,2)(H$,Z,2)87VZWZ(Z1)212:L84Z4:L8089XA180L8:M4,A1M13,A1:A1 Y1M,LD:3M,LD:24(L56)M,,64D:MM12!I9M,52D:MM126J9M,36D:MM12KK9M,56D:MM12lL9M,44D:MM12:MMK1220rMNMM(K)12:(K)84,83,82,81,80,79O10M,52D:MM12P10M,64D:MM12Q10M,48D:MM12R10M,60D:MM12S10M,44              333?3333333333333333333;33?>?##?#6666???09BSJdl[|s???WWWWWWWWWWWxxWW:M_N;:` V:; V W:; V W $V8 :; VLV:; V :; V`  V:; V:; V`   6`6U6` &0=Nd~3sss|C|ssss~? ?33-33 3 3 ? 38 33 33 3c33c33c3c3c3c83k33333w?c~33cG||33~xxχχ~sss'xx'sss~~<<3338#|33 ~0~322s3rscsCGsxssxsrs3r322~c~ffcfffwnfnf~fkvfcvfcffcfffc~f< J`6U 3 33 ?3 3?c~33cZ7c76?;;63c33c3?c< ?3-33 3 3 ? 38 33 333 ?3? ?33333333333?3833333333?33?~s s c C  x x3 s s s ~ŠҠǠΠŠKĠǠ͠ŠKΠϠŠǠΠYŠŠǠΠYԠǠҠΠϠW &@]vRRRRRR@RRRR R)?(LR' șLR` 33333333333?30 ) Q 0 ) բ `f~ff~@PPPPPPPZZZZZBBB@BB ŠĠΠנԠǠǠϠǠǠ͠ L` ZO` L L L L` /Q J@ SQTQ P R 0E.Q  JLDP6QdP>QePLDP@RQ @ PLAP JLAP@@ PLAP@FQPLQPLAPSQTQi SQTQ PTQSQ`SQTQ8 SQTQ PTQSQ`'UmTQPQiPmTQ QQi QUQ $(,048<((((((((((((((((PPPPPPPP`?ppwpspppppppspwp`?H Mh0 L L L L` L L L P O L L L L L`h& M MLO L Lɘ MLP TLE STEPS ON A SIDE. ENTER '' YOUR CHOICE. ''] MAKE "SCALE RQ TEST CHECKNUM :SCALE IFT MAKE "SCALE FIRST :SCALE IF ANYOF :SCALE = 18 :SCALE = 30 STOP ELSE PR [] NOT.EXACT.SCALE IFF PR [] NOT.EXACT.SCALE END TO LAST.BIT IF :LR > 0 ESTIMATE? ELSE STOP ' YOUR CHOICE. ''] MAKE "SCALE RQ TEST CHECKNUM :SCALE IFT MAKE "SCALE FIRST :SCALE IF ANYOF :SCALE = 10 :SCALE = 40 STOP ELSE PR [] EXACT.SCALE IFF PR [] EXACT.SCALE END TO NOT.EXACT.SCALE PRINT1 [YOU MAY NOW CHOOSE TILES THAT ARE EITHER18 OR 30 TURMAIN STOP ESTIMATE? IF :FLAG = 1 STOP SQ MAKE "COUNTER :COUNTER + 1 MAKE "HOLD "'' PR.COUNT DO.ROW :COUNTACROSS - 1 END TO EXACT.SCALE PRINT1 [YOU MAY NOW CHOOSE TILES THAT ARE EITHER] PRINT1 [10 OR 40 ''] PRINT1 [TURTLE STEPS ON A SIDE. ENTER '3 = II%(2)3(20IY):II%(3)0:H1216:II%(2)021 H:I1518:I:XX(1):XX0.5ĺ"+":II%(2)II%(2)1:II%(3)II%(3)1  :II%(3)018  II%(2)3(20IY):II%(3)0:H1216:II%(2)026"H:I2023:I:XX(1):XX0.5ĺ"011M H:I1518:I:XX(1):XX0.5ĺ"+":II%(2)II%(2)1:II%(3)II%(3)1S e :II%(3)08k II%(2)3(20IY):II%(3)0:H812:II%(2)016 H:I2023:I:XX(1):XX0.5ĺ"+":II%(2)II%(2)1:II%(3)II%(3)1  :II%(3)01PSE BY '-'; THE CENTER OF THE VOLCANO IS MARKED WITH A 'V' IN THIS MAP.":12:19:"V":II%(1)(412(1)) 20:"THE FASTEST SWELLING AVERAGES ABOUT":" ** ";II%(1);" ** MILLIMETRES PER DAY.":49 II%(2)3(20IY):II%(3)0:H812:II%(2) THESE CHANGES MAY"::"INDICATE MOVEMENT OF MAGMA WITHIN THE" :"VOLCANO.":II%(1)(8.9(1)):23:16368,0:GT$;:C1$:(1):51::"THE RESULTS OF THE TILTMETER SURVEY OF":" ";B$;" ARE SHOWN BELOW.":28s 3:1:"SWELLING IS SHOWN BY '+', COLLATILTMETER SURVEY FOR"::"ONE OF THE VOLCANOES OF WRANGELIA."::"VOLCANOLOGISTS USE TILTMETER SURVEYS"> :"TO DETECT SWELLING OR COLLAPSE OF"::"VOLCANOES (LIKE THAT OBSERVED AT MT."::"ST. HELENS JUST BEFORE ITS BIG ERUPTION"::"OF 18TH MAY 1980).#43699,0::"CLOSE":::87F(XS)0.980.0018XS0.01((1)):A(XS)6((1))13(XS80)(XS80)(62(0.882.85(ABXS))56(0.952.15(AAXS)))B(XS)0.720.0015XS0.02((1)):C(XS)0.95(1.5E5)XSJg :3:"LET'S LOOK AT A     SE":1122(4);"CLOSE"::H(222):112BH253112"ERROR #";H::89:"PRESS ANY KEY TO TRY AGAIN-->";:C$::64:5:"ENTER YOUR MESSAGE, 200 CHARACTERS LIMIT":11:"***************************************":6:"";B$:(B$)200ė010oE(16336)(16336)(16336)(16336)(16336):G1D5:G:D:24:"BY BRIAN CROUCH":C1800:C16368,0::6425(4);"OPEN ";A$:(4);"READ ";A$:B$:(4);"WRITE ";A$:B$""İ90:22B$ (4);"CLO1:6:A121:B20:11:A142:B40:5:A163:B60:2:A184:B80:9:(16384)12816C11000:C::A1:B1:2:A21:B20:4:A42:B40:3:A63:B60:5:A84:B80:10:A100:B1:2:A121:B20:6:A142:B40:11:A163:B60:5:A184:B80:9:C1400:C:D40011B$VA$:4B$VB$:"5B$VC$:/6B$VD$:<7B$VE$:I8B$VF$:V9B$VG$:c:B$VH$:p;B$VI$:}<B$VJ$:=B$VK$:>B$VL$:?B$VM$:@B$VO$:AB$VP$:BB$VQ$:CB$VR$:DB$VS$:EB$VT$:FB$VU$:SIS"::"OF THE GASES EMITTED BY ONE OF THE"::"VOLCANOES. THIS IS ANOTHER IMPORTANT"2:"TOOL FOR PREDICTING VOLCANIC ACTIVITY.":23:16368,0:GT$;:C1$:(1)::763II%(1)52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75:E"W$:"OPEN"W$:"WRITE"W$:"FP":"RUN"X$:"CLOSE"W$:"EXEC"W$:q:6:,"HOPE YOU HAVE ENJOYED"R$,"WINDOW" COPYRIGHT (C) 1983 WINDOW, INC. 1:I$"FLOP":<h:6:,"HOPE YOU HAVE ENJOYED"C$,"WINDOW":g COPYRIGHT (C) 1983 WINDOW, INC. G "C$:20(G$)2:" "G$" "::34,23:e:"OPEN"E$:"DELETE"E$:"OPEN"E$:"WRITE"E$:"FP":ADĺ"POKE"AD",0:POKE104,"((AD1)256)":POKE103,"AD1256((AD1)256)f"RUN"I$:"CLOSE":"EXEC"E$: gI1(I$):767I,((I$,I,1))::767I,13OW"]_AD0::18:,"WHICH ONE?":J$:J$"A"G$"MUSIC THEORY":I$"MUSIC THEORY 1":103:100m`J$"D"104aJ$"B"G$"CONTENTS":I$"@@HELLO":103:100bJ$"C"94cG$"COMPUCRYPT":I$G$:AD16384)d::12:6::" PLEASE WAIT -- NOW LOADINOW LOADING "R$:20(Z$)2:" "Z$" "::34,23:Yz:"OPEN"W$:"DELETE"W$:"OPEN"W$:"WRITE"W$:"FP":"RUN"X$:"CLOSE"W$:"EXEC"W$:Y{:6:,"HOPE YOU HAVE ENJOYED"R$,"WINDOW":216,0:"FP"::Z|:"COMPUCRYPT IS A PUZZLE GAME. THE TOUR THROUGH WINDOW"R$R$"D) EXIT FROM WINDOW"TXt:18:,"WHICH ONE?":K$:K$"A"ĬdXuK$"D"123XvK$"B"Z$"CONTENTS":X$"@@HELLO":120XwK$"C"115XxK1(X$):K767,((X$,K,1))::K767,13:X$"FLOP"2Yy::12:6::" PLEASE WAIT -- N P U C R Y P T":11:19)"BY":13:14)"BRIAN CROUCH":DWq:124:WrX$"SNOOPER TROOPS":Z$X$:::255:R$(13):W$"RESET"-Xs:4:32,5:,"WHAT NEXT?"R$R$R$"A) RESTART THIS PROGRAM"R$R$"B) RUN CONTENTS TO CHOOSE ANOTHER"R$" PROGRAM"R$R$"C) GUIDED 03#ViC$(21)C$(N$,(O$)1,1)JVjC$(8)(O$)2O$"":W1:1:103_VkC$(8)W2103VlC$(8)ĺC$;:O$(O$,(O$)1):WW1:103VmO$O$C$:C$;:W:Vn20:114Vo16368,0:24:1:"PRESS ANY KEY TO CONTINUE ";:P$::7Wp9:10)"C O M$C300)U`C:(D$,R,1)K$ġ:(7):39/UavUbS((F$)40)1:O$"":T1S:U40:TSU(D$)(40(T1)):U1100Uc102UdT:O$D$N$D$::::58:83UeUfV(T3)1:V:1:W1UUgC$:C$(13)ĺ:T10:VhC$(8)C$(21)(C$)321LETTERS."::" (PRESS ANY KEY TO CONTINUE) ";:C$::BT[H5ı[T\(4);"DELETE ";A$:T]22:1:958:"---------------------------------------":23:1:"FREQ HINT ";:PĞT^"FEEDBACK";::" GUESS VIEW STOP":U_C1(F$):RC:(F$,C,1)JN"84(SV:10:"BYE!":A01799::110SWA126:B(A)0:A:1280((F$)5),42:A1(F$):G$(F$,A,1):K(G$)64:K1K2689SXB(K)B(K)1SY1280(A5),32:A6TZ:A113:(A64);" = ";B(A),(A77);" = ";B(A13):A:20:"FREQUENCIES OF CODED RN39:56:N$D$831RONN1:O1O0:37:569RP78kRQ"CREATE A NEW MESSAGE? ";E$:(E$,1)"Y"66wRR28:66RS20:1:958:"YOU TOOK A TOTAL OF ";N1;" MOVES."RT22:"DO YOU WANT TO DO ANOTHER MESSAGE? ";E$:(E$,1)"Y"67SU(E$,1)"";::"RETURN";::".":tQF::F(0):A(200),M$(200),B(26),C(26):M0:"MESSAGE: ";A$:A$""ĺ:(4);"CATALOG":70}QG73QH:(4);"LOAD ";A$QIQ(222):114QJQ15114QKQ681QLQ1367RM36:D$B$:::18:"WORKING"::30:87::37AGE DO YOU WANT TO USE?"::"TO USE AN EXISTING MESSAGE, TYPE ITS NAME AND PRESS ";::"RETURN";::". SAMPLE MESSAGES":"ARE SM1 - SM5."QD:"(PRESS ";::"RETURN";::" ALONE TO VIEW CATALOG)"::"TO CREATE A NEW MESSAGE, TYPE ITS NAME AND PRESS 13:(N$)120ĺ(N$,121,40)=O>16:(N$)160ĺ(N$,161,40)CO?vO@::::112:22:"PRESS ANY KEY...":16368,0OA(16384)128I(16):65OB16368,0:::P0:5:"DO YOU WANT TO SEE THE INSTRUCTIONS? ";E$:(E$,1)"Y"İ113PC::"WHAT MESSh֭3'RjͲjʎRjʎ]j]j]jɍuL_ɍ}RjL_Rjɍjg^H8j ^fhZjL_ɍRj fL_ͲjɊRjRj%j QhLdͲj Zj@ -^j _ _\j[jZj QhYj\j[jZj8`l6L__jȌbj_jͲj]j a)Yh h( :2817:20:23:KI5:A126:A(A)0:C(A)0:A:102326,42:A126gJ((I)26):C(J)131u JA131!A(A)J65:C(J)1:1023A,32:A:1150((D$)5),42:F$"":C1(D$):G$(D$,C,1):(G$)65(G$)90H$G$:35"K(G$)64:H$(A(K)(1):II%(1)35,36,37:8:13:18:408#13:18:23:43K$8:18:23:46y%8:13:23:J2(3(1)):H1216:J039&H:I1519:I:XX(1):XX0.5ĺ"-":JJ1':6(J2(3(1)):H1216:J042)H:I1923:I:XX(1):XX0.5ĺ"-":JJ+":II%(2)II%(2)1:II%(3)II%(3)1(;:II%(3)023AII%(1)(6(1)):IY0.35(1):II%(1)29,30,31,32,33:8:13:613:18:613:23:613:18:6 13:23:6!18:23:6:V8IIII0.6:13$"II%(1)(4(1)):IY0.6E22:D17:79:C22:O11:M11O1E(35):(O12O10)O11}.D22:91:E20:V11:9:16300,0:16304,0:59:K$"H":16368,0/A$"":4:A$"W"Y1D1:(Y113)(E25E29Y111)İ58:DY1:590A$"X"Y1D1:Y118İ58:DY1:591A$"A"X1E2:(X1:"WAITING FOR TOW TRUCK"::N11050D(500):OO.1:A2A21:A2250A20:16300,0:16304,0:V11599::*:B(C)11:E135:D92:R11:48:12+C22:M11E(13):B1(((E(11M14))73)E):B2(((E(13M14))812)D):B130B228ġ:45,::-0,0:16304,0:9:A$"":13*&B(C)Z1:13'X0:(E124E156D83D109)Q1R1Ė1:24:B$(G$,1(Q11)5,5)" sT. ":(((B$,1))32);(B$,2):X1(l)A20:10:::1:12:"OFF TO THE BAY ST.GARAGE FOR REPAIRS.":10:14:"BAD BRAKES....":22:8:156,191:124,0124,191:I1130:i$0,109124,109124,191:156,191156,109279,109:0,83279,83:K192:%X1E:Y1D:Z1B(C)S1:S10:9:Z11Z125İ10:::3:12:"YOU ARE NOT TO DRIVE THIS FAR":14:9:"FROM THE OFFICE.":N13000::E136:D100:16304,83279,83:156,191156,109279,109:I1130:K192:N13:34:N7:J$(N)::!0,83124,83124,0:156,0156,83279,83:0,109279,109:L1102:"0,83124,83124,0:0,109124,109124,191:156,0156,191:J1150: #156,0156,83279,83:279,109156,109ŠŠŠһנɠҠԠՠŻРŠŠĠϠȻŠĠΠŠٮW, INC. A MESSAGE CAN BE 200 CHARACTERS LONG (ABOUT FIVE LINES). a"DON'T USE COMMAS (,) OR COLONS (:). TRYDASHES (-) OR SEMICOLONS (;) INSTEAD.":"REMEMBER, DON'T PRESS RETURN UNTIL THE END OF YOUR MESSAGE.":111: b COPYRIGHT (C) 1983 WINDOTER WILL THEN ENCODE IT AND PRINT IT ON THE SCREEN."|`"IF YOU WANT TO SEE A CATALOG OF MESSAGE TITLES, PRESS RETURN."Ba:"CREATING YOUR OWN MESSAGES:"::"WHEN YOU ARE ASKED TO SELECT A MESSAGE, TYPE A NEW NAME FOR THE MESSAGE YOU WANTTO CREATE.W FOR THE SOLUTION TO THE CRYPTOGRAM."::"STOP - TYPE STOP WHEN YOU ARE FINISHED."::1117`:"CHOOSING A MESSAGE:"::"THERE ARE 5 SAMPLE SECRET MESSAGES, NUMBERED SM1 - SM5. TYPE SM AND ANY NUMBER BETWEEN 1 AND 5 TO CHOOSE ONE. THE COMPUAVE BROKEN THE CODE. THEN TYPE IN THE ENTIRE MESSAGE. YOU MUST TYPE ALL CHARACTERS IN THE MESSAGE -- SPACES TOO."^"(BE CAREFUL NOT TO PRESS RETURN AT THE END OF A LINE, OR ELSE THE COMPUTER WILLTHINK YOU ARE FINISHED.)"]_:"VIEW - TYPE VIEL DECODE FIVE LETTERS FOR YOU."]:"VERIFY - TYPE VERIFY TO TURN ON THE AUTO CHECKING SYSTEM (ACS). IT WILL TELL YOU IF A GUESS IS NOT CORRECT. TYPE VERIFY AGAIN TO TURN OFF THE ACS.":111x^:"GUESS - TYPE GUESS WHEN YOU THINK YOU Hd\111:21:I140:"-";::22:"FREQ HINT VERIFY GUESS VIEW STOP":23:I140:"-";::35,20!]2:"FREQ - FREQUENCY. TYPE FREQ TO SEE A LIST OF HOW MANY TIMES A CODED LETTER IS USED."::"HINT - EACH TIME YOU TYPE HINT THE COMPUTER WILE SCREEN."[~:"WHEN YOU MAKE A GUESS, TYPE THE CODED LETTER YOU WANT TO CHANGE AFTER THE WORD ";::"CHANGE?";::" AND PRESS RETURN."[:"THEN TYPE THE LETTER YOU WANT IT TO BE CHANGED TO AFTER THE WORD ";::"TO?";::" AND PRESS RETURN."COMPUTER ENCODES A SECRET MESSAGE AND YOUR CHALLENGE IS TO BREAK THE CODE WITHTHE FEWEST NUMBER OF GUESSES. YOU CAN ALSO CREATE SECRET MESSAGES OF YOUR OWN." [}:"HOW TO PLAY:"::"ONCE THE COMPUTER ENCODES A MESSAGE, IT WILL APPEAR AT THE TOP OF THper troops AT HOME. "#YB$(2,2)"aBOUT dolphins NOT MUCH -- ABOUT lILY A LOT. ":B$(2,3)"iF YOU LIKE THIS demo THEN YOU SHOULD BUY snooper troops. ":$Z? ":B$(1,2)"yOU ARE NOT MAKING ANY SENSE AT ALL. "?#XB$(1,3)"tHIS IS JUST A WASTE OF TIME. ":B$(2,1)"i WAS PLAYING snoo":16:"JOGGER AND MAY NOT ANSWER DOOR FOR":18:" A WHILE.":W!UJ224ī82!VF$"Y":"THERE WILL BE A SPECIAL MESSAGE FOR":16:1:"YOU AT THE OFFICE UNTIL THE END":8::"OF ";O$(G);".":"WB$(1,1)"aRE YOU SURE YOU HAVE THE RIGHT ADDRESS"1 = WHERE?":18:"2 = WHAT?":20:"3 = ANYTHING ELSE?":B R83 SE$(D(9)):"NEW SNOOP LICENSES HAVE BEEN ASSIGNED.":16:" YOUR LICENSE NUMBER IS NOW #";E$;".":G!TXD(8):C(X)1:(((P$(X),1))32);(P$(X),2);" HAS COMPLAINED TO US ABOUT THE1:XD(4):5:5::"WRIST RADIO MESSAGE.. ";O$(G)::14:1:X83,82,85,84:N15200::: Q3:6:C21:"SNOOP NOTEBOOK - ";O$(G):6:6:"STOPPING AT ";E(M136);" ";(G$,1(Q11)5,5);" STREET":E22:D17:12:1:"TO ASK QUESTIONS OF SUSPECTS:":16:1:HERE IS A MESSAGE IN A TELEPHONE BOOTH.":W14000::12rN24:14:(((O$(G),1))32);(O$(G),2);": WEEK ";I:O10:::XD(3):X181XPF(1)110:F(2)250:K1,0:K2,250:X1D(8)8:K,F(D(2)):20:12:"*";:K344:12:20:" ";:N150:::JJSON AT 7 BAY STREET":W14000::12LA(0):N$"":::16302,0:9:12:8:"sNOOP hq"::"sORRY, THE OFFICE IS CLOSED FOR LUNCH.":W15000::20:B$"sNOOP LICENSE NUMBER = "E$:M20:70:W13000::F$"":B(C)18:E145:D150:R11:488M20:1:"t:"WHEN TALKING ON PHONE, USE KEY WORDS":3:14:"FROM SUSPECT FRONT DOOR STATEMENTS.":16:1:"(DON'T USE THE SUSPECT'S EXACT WORDS.)":W15000::23:"SORRY, SOMEONE IS USING THE PHONE NOW"(KW15000:::10:"IF YOU ARE AGENT 1, THEN SEE THE PER(0):9:H0:M:2:N175:(B$,N,1);:V130::N30H0(B$,N,1)" "H1:M1:3fG:N14000:H2:M:N137:" ";::3:M1:N136:" ";::IW16000:::10:8:"NO FILM CLUES THIS TIME.":JA(0):N$"":10:::12:2:O$(G);:1:1211:X138:Y111:10:::3:6:"SNOOP NOTEBOOK - ";:1:8:"TAKING CAMERA INSIDE FOR A SNOOPSHOT.":14:"(CAMERA HOLDS JUST ONE SHOT.":16:"IF YOU HEAR FOOTSTEPS- SOMEONE IS HOME.)":E40EX1E:Y1D:E40E28:D12:62450:73:G$C$(B(C)):10:46TFH;:H20:16368,0:@A$"":4:H2H21:H2150M18:72:62AA$""A$E$Ė1:18:" iT DOESN'T LOOK RIGHT TO ME... ":N13200::M18:72:62BA$E$ĺA$:M18:72:18:3:"(nOW TYPE 1,2, OR 3.)":61C64DA(0):M$"":I21:Z10:E38:DТD2:(94V1):i<K$"H"C(O1)0K$"HD":0:X120:90,94120X,94.1X120X,60.1X90,60::3:63o=>2:X2011:90,94120X,94.1X120X,60.1X90,60::3:110,76114,76:C(O1)1:K$"H":?18:3:"wHAT IS YOUR SNOOP LICENSE NUMBER?"P1:C(O1)0:12k7D(1400)1D15F2E:G2D:D17:E1402:59:N199::58::EF2:DG2:A$"":16368,08D(3500)1K$"HD"İ62947:E:D:" ":E:D1:" ":E:D2:" ":;V130V1:E:D:P(16336)(16336):(91):E:D1:(92):E:0D13)X126İ58:EX1:59O2A$"D"X1E2:(X140D13)X128İ58:EX1:593K$"HD"(A$"1"A$"2"A$"3")İ10:B$L$((A$)):M18:70:B$B$(O1,(A$)):L(A$)9O1:3:70:624A$" "D12685A$" "D14E16İ606A$" "E20D16EH1:DΠӠǠΠǠΠǠΠΠӠǠΠ٠Ҡٮ):51N4Pİ95";:C$::64J:5:"ENTER YOUR MESSAGE, 200 CHARACTERS LIMIT":11:"***************************************":6:"";B$:(B$)200ė010oHE(16336)(16336)(16336)(16336)(16336):G1D5:G:D:24:"BY BRIAN CROUCH":C1800:CH16368,0::64H25H(4);"OPEN ";A$:H(4);"READ ";A$:B$:H(4);"WRITE ";A$:B$""İ92:22HB$H I(4);"CLO1:6:A121:B20:11:A142:B40:5:A163:B60:2:A184:B80:9:(16384)12816HC11000:C::A1:B1:2:A21:B20:4:A42:B40:3:A63:B60:5:A84:B80:10:A100:B1:2:A121:B20:6:A142:B40:11:A163:B60:5:A184:B80:9:C1400:C:D40011,B:F :3:A1:B1:10:A21:B20:5:A42:B40:4:A63:B60:2:A84:B80:3:A100:B1:11:A121:B20:5:A142:B40:6:A163:B60:2:A184:B80:9:(16384)12816PG C11000:C::A1:B1:2:A21:B20:3:A42:B40:4:A63:B60:10:A84:B80:5:A100:B15,B35A5,B35:A5,B35A5,B:A5,BA,B:F A,BA,B25:A,B25A15,B25:A15,B25A15,B35:A15,B35A5,B35:A5,B35A5,B40:A5,B40A20,B40:A20,B40A20,B:A20,BA15,B:A15,BA15,B20:A15,B20A5,B20:A5,B20A5,B:A5,BA0A10,B5:A10,B5A5,B5:D A,BA20,B:A20,BA20,B5:A20,B5A13,B5:A13,B5A13,B40:A13,B40A7,B40:A7,B40A7,B5:A7,B5A,B5:A,B5A,B:.E A,BA,B40:A,B40A20,B40:A20,B40A20,B:A20,BA15,B:A15,BA15,B35:A,BA,B40:A,B40A5,B40:A5,B40A5,B20:A5,B20A15,B40:A15,B40A20,B40:A20,B40A10,B20:A10,B20A15,B20CA15,B20A20,B10:A20,B10A15,B:A15,BA,B:A5,B5A5,B15:A5,B15A10,B15:A10,B15A15,B10DA15,B135A15,B35:A15,B35A15,B5:A15,B5A5,B5:BA,BA,B40:A,B40A5,B40:A5,B40A5,B25:A5,B25A20,B25:A20,B25A20,B:A20,BA,B:A5,B5A15,B5:A15,B5A15,B20:A15,B20A5,B20:A5,B20A5,B5:A,B40A5,B40:CAB10:A5,B10A10,B15:A10,B15A15,B10:A15,B10A15,B40:A15,B40A20,B40:A20,B40A20,B:A20,BA15,B:A,BA5,B:A5,BA10,B5:A10,B5A15,B:4BA,BA,B40:A,B40A20,B40:A20,B40A20,B:A20,BA,B:A5,B5A5,B35:A5,B "$@43699,0::"CLOSE":::114B@(4);"NOMON I,O,C"::12@A,BA20,B:A5,B5A20,B5:A20,BA20,B5:A,BA,B40:A,B40A20,B40:A5,B5A5,B35:A5,B35A20,B35:A20,B35A20,B40:AA,BA,B40:A,B40A5,B40:A5,B40A5,            ````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````'%'%%/<%%/<,,<,<%%'%/,'%'=?7?>777??'--7?>7?>'--.>57575757>4??,<, -,,%%%%%%')< %'%'%'''''???7775;.>->IIIIIIR->7-@-<'---5??7--5??'$57-57->57-5??*-5;?7-->7).>-5??.-5;?-.%')< %'%%' ???-- )%????,--%;????*W*U*U*u*U*U*U*U*U*U*U*U*U*U*U*$$$$$$$$$$$$$$$$.6666666666666666$$$$$$<66666666?,-%-%-%='$$$$$$<6666666666.$$$$$$$L?.?>?7?7?6.,ee,<,?>'$$$<6666.66 $$$,5?.-I %'%%')< -,--.->5757575?.>>>7????8<<<,'%'%'%')< %'-,< %%%'),,,$%%'%'%'%'%;.>..>.>..>66575757575.>5>..>.>.>@ 2Dct<\Wh%g%---.>.>>>??<<III$$$$$$$$$$$$5666666666666 6.$$56.$$56.$$@@@@@@@@@@HI9<<<<<<@@@@@@@III ''''''''6666666666666.$$$$$$$$$$$$$$ ,,,,,,,,R,,,,,,,,666.$$$$            ?Y40728:1,YD279,YD:Y:3:6@A10025566aA0,E(N):1,255:Y1(A100255):R:YBZA100(A100255)255:0,E(N):1,Z:R:C13M,64D:MM25:DK077EK078FMMK12:K76,75,74,73,72,71G9M,48D:MM12 H9M,(11A(W))436D:MM15:58':85:W1;D0:d<24:"PRESS 'SPACE BAR' TO CONTINUE.";:A$::=R300:M3:90:E(24):Y024:E(Y):Y:200,189,179,170,160,151,142,134,127,119,112,106,100,94,89,85,80,75,71,67,64,60,56,53,50 :>1:0:1:D0đ$15:47"3W111:B(T)D(W)153)4Wh5WW(K0):9(K0)M,(11W)436D(K0)4:MM15:F3:47w63:T5597XW:WT15:D$(B$,A(W)21,2):(A(W)X)7A(W)XF0588X.2:F2Ĕ9(K0)M,(11A(W))436D4(K0):MM15:58911M958:"PRESS 'RETURN' TO SEE WHAT WAS PLAYED.";:G$::D55:M0:62:67:68:W1T1:D$(B$,A(W)21,2):85:W:2-W111:B(T)D(W)F0:47.W:48/D$(B$,W21,2):85:540W111:B(T)C(W)F2:501W:51211M,(11W)436D:MME$" "ė:43"'E$"2"İ33::38Z(E$"1"B(T)B(T)(U)V:33::B(T)B(T)(U)V:38b)38*:"CORRECT"::BB1:44:38+E::::5:"YOU ANSWERED ";B;" OUT OF ";J;" CORRECTLY"::"FOR A SCORE OF ";(B100J.5);" PERCENT.":60:92r,23:21:"WHICH NOTE WAS WRONG - 2, 3, 4, OR 5";:F$:F$""36G#33:34W$(F$)T42y%"NO, THAT IS NOT RIGHT.":44 &:21:"PRESS '1' TO HEAR THE FIRST LINE,":"PRESS '2' TO HEAR THE SECOND, OR PRESS":"'SPACE BAR' TO CONTINUE. ";:16368,0:E$:S15:B(S)D(A(S)):S`T((1)42):U(1).5:V((1)21):B(T)5U0B(T)17U031 B(T)B(T)(U)V:21:"PRESS RETURN TO HEAR THE MELODY";:E$:33:34!S15:A2:NB(S):64:S:A1:;":24:"PRESS RETURN TO HEAR MELODY AGAIN";:1:0,16K22,21,20,19,18,170D(2)6:D(9)18<D(5)11OD(1)4:D(8)16cD(4)9:D(11)21oD(7)14D(3)7:D(10)19:30(K)29,28,27,26,25,24D(7)12D(4)7:D(11)19D(1)2:D(8)14D(5)9D(2)4:D(9)16D(6)11111:D(Q)C(Q):Q_ K((1)(HG1)G):68:A(1)((1)111):D$(B$,A(1)21,2):85:S25 A(S)((1)111):(A(S)A(S1))I112 A(S)A(S1)12P(A(S)A(S1))O(5S)12PP(A(S)A(S1)):D$(B$,A(S)21,2):85:S:(K)223,3RETURN KEY."::"THE COMPUTER WILL PLAY THE PHRASE WITH"::"ONE INCORRECT NOTE. THE INCORRECT NOTE"::"WILL NOT BE THE FIRST NOTE. YOU WILL": "BE ASKED TO IDENTIFY WHICH OF THE NOTES"::"(2-5) WAS INCORRECT":60::E1J:M1:O5I:P0:62:67:QINTERVAL, AND THREE PROBLEMS.":23:"PRESS 'SPACE BAR' TO CONTINUE.";:C$:G0:H0:I5:J3 :::"IN THE EXERCISES THAT FOLLOW, YOU WILL"::"SEE A FIVE-NOTE PHRASE WRITTEN OUT."::"STUDY THE PHRASE. WHEN YOU ARE": "FAMILIAR WITH IT, PRESS THE OF FLATS IN THE KEY SIGNATURE,"::" GREATEST NUMBER OF SHARPS IN THE KEY SIGNATURE,"::" LARGEST INTERVAL IN A PHRASE,"::" NUMBER OF PROBLEMS."Y ::"FOR THIS EXAMPLE, YOU WILL HAVE NO FLATS, NO SHARPS, A FIVE NOTE PLAYED."::"WHEN IT IS PLAYED, ONE OF THE NOTES"::"WILL BE WRONG. YOU MUST DETERMINE": "WHICH OF THE NOTES (2-5) WAS INCORRECT.":60:4:3:"IN THE REAL PROGRAM, YOU WOULD NOW BE ABLE TO MAKE THE FOLLOWING CHOICES:" :" GREATEST NUMBER"AUTHOR: LINDA BORRY":23:10:"COPYRIGHT MECC, 1979": :8192:61:A(5),B(5),C(11):A1:C24:B$"D5E5F5G5A5B5C6D6E6F6G6":D0:D(11):E111:C(E):E:::2:15:"WRONG NOTE":5[ "IN THIS DRILL YOU WILL SEE A PHRASE OF "::"MUSIC AND THEN HEAR IT i#43699,0::"CLOSE":::93a2:A$(4):A$;"BLOADNOTE TABLE,A$4000":232,0:233,64:37 :3:" M U S I C T H E O R Y"::" MUSIC FUNDAMENTALS FROM MECC":12:10:"MINNESOTA EDUCATIONAL":14:10:"COMPUTING CONSORTIUM":21:10:           DK$;" DISK AND PRESS RETURN";:" ";DK$-9363CS@INA3@LHK MS@MDSS@SDFTD 91:156,0156,191:S1130:S2150:0,83279,83:0,109279,109:S392:S4102:f&124,0124,830,83:0,1:16368,0:K141340:KK176:KLKH330:NKDO16368,0:K141340]PKK176:KLKH330eQNKT20:N;" ":^:22:"DEFAULT = ";:((41)256(40)14),96:hMSSSırMDSDıw:(DK$,1)"D"ĺ#|"INSERT ";216,0:"FP"7- COPYRIGHT (C) 1983 WINDOW, INC. O"FLOP"s,kW$"RESET":R$(13):::12:6::" PLEASE WAIT -- NOW LOADING "R$:20(Z$)2:" "Z$" "::34,23:,l:"OPEN"W$:"DELETE"W$:"OPEN"W$:"WRITE"W$:"FP":"RUN"X$:"CLOSE"W$:"EXEC"W$: -m:6:,"HOPE YOU HAVE ENJOYED"R$,"WINDOW":$R$"C) GUIDED TOUR THROUGH WINDOW"R$R$"D) EXIT FROM WINDOW"y+e:18:,"WHICH ONE?":K$:K$"A"X$"SNOOPER TROOPS":105+fK$"D"109+gK$"B"Z$"CONTENTS":X$"@@HELLO":106+hK$"C"100+iZ$X$,jK1(X$):K767,((X$,K))::K767,13:X$2:H(3)232:H(4)527:H(5)222:H(6)767:H(7)1997:H(8)627:H(9)9e*bX12:R$(X)::9 dOCK,3 oCEAN:*cX$"TURTLE TILES":::255:R$(13);+d:4:32,5:,"WHAT NEXT?"R$R$R$"A) RESTART THIS PROGRAM"R$R$"B) RUN CONTENTS TO CHOOSE ANOTHER"R$" PROGRAM"RH$(2)(2)" "(2):H$(3)(2)(5)(2):J$(1)(6)(7):J$(2)(9)(10):J$(3)(11)(15):X13:L$(X):?*a"wHERE WERE YOU AT THE TIME OF THE CRIME?","wHAT DO YOU KNOW ABOUT DOLPHINS?","dO YOU HAVE ANYTHING ELSE TO SAY?":Q$"1234567":H(1)417:H(2)799:P$(X):: "cOLLIER","fLAGG","gREENLY","lOZIER","mCBEAN","oSHKOV","rENTWICK","vONSHEMP","YOU":M21024:N28064:O2984:P264:Q28192:R28:S27k)`G(U)(M2UN2(UR2)O2(UP2)Q2(XS2)):E(X)((G$,X,C2)):D(X)((1)X)1:H$(1)(1)(255)D$:15:" ":N13400::14:5:" cOPYRIGHT c. 1982 ":16:7:"BY sPINNAKER sOFTWARE cORP.";:N12900::3:232,0:233,24:00:1:9:X18:O$(X):(_"MONDAY","TUESDAY","WEDNESDAY","THURSDAY","FRIDAY","SATURDAY","SUNDAY","SUNDAY":X15:D$;"READ SECTOR,R";X:C$(X):X:D$;"CLOSE"&]9:12:14:"tOM sNYDER AND":4:16:"cOMPUTER lEARNING cONNECTION, iNC.":15:18:"pRESENT":N14000::4:14:" sNOOPER tROOPS AND THE CASE OF: "'^16:3:" tHE dISAPPEARING dOLPHIN ":18:1256:253,N1:252,L2::D$"BLOAD CRUNCHED PIC"D2",A"A(D2):K380:-&\N112:A(N):: 11382,11956,11988,11790,11824,12464,12206,12564,13106,12756,12740,10812:R(54):T(55):54,0:55,20:" ";:972,16:10:K2048:D212:91:D$;"OPEN SECTOR,L45":X1210:::6:"THIS IS YOUR FIRST DAY ON THE CASE.":W13000::4:10:O0:8:" YOU ARE AGENT 1.":I$"AGENT 1":W14000::W14000::G1:I1:J20:K20:10:"JOINING THE CASE ON ";O$(G);": WEEK ";I;".":N16000::C%[A(0):N1(A(D2)256):L2A(D2)N  #8 8 *0y ^jgHh$\ .@Πɮ``   #      #                 h  0#  0# 0  0#0#     #                #   #   -U+m.U+]~ *U~~*  {-U+m.U+]~ *j}* ~2/*+U~/E*(*(*U UzU~~/E*(*((ssww~ *@zU~~AT*  -U+m.U+]~ *PzU~~@*  U~z~@*  ~-U+m.U+]~ *U~}}* ~2~+U~/E*Q*E(*)*u~~/E*(*((o{os~ *@zU~~CT*  -U+m.U+]~ *@zUW~~@*  -U+m.U+]~ *:J---$$?????66-#$8??766.-------%$$"""""""""""""">>>"2""""">""" ""  ">"6**""""&**:2"""""""""""*2|"" "" ">""""""""""""**6""""""""> >00L2~%$$$ <"\"""<< <"""<"><$<""< &"""  0 "" " ?****&""""""""<""< `&< >(""""<"""""**6"""""< >>>]]]]]]]6(D$$$$$~$~$$x8P<F&db  R"\   T8|8T| ~@ "2*&" >" >"  ">> "8"">" """"""<   >> " 09718<>>>>@`px|~cccc137???cccccc~||DDDDD>>"""""D|||<LL">>><933l <||||718<>>>>]IUU]]]]YUUEM]718<>>>>a]]a}}}c]]]UMa]]aum]c]}c_]cAwwwwww]]]]]]c]]]kkww]]]UUI]]]kwk]]]]]cwwwA_ow{}AC=}}}=C]]]A]]]j   0#     0   0#    0#    0#     0   $ 0#    $  0   $ 0#    $   $   $ 0#8 o0000RohgH0hj R m .@ǠҮ`  CONTAIN ABOUT ";SG%::" TONS PER DAY OF SULFUR DIOXIDE, ABOUT"R:" ";CG%;" TONS PER DAY OF CARBON"::" DIOXIDE, AND ABOUT ";HG%;" TONS"::" PER DAY OF HYDROGEN & CARBON MONOXIDE.":86cSSG%100((129(1))):CG%1000((1511(1))):HG%10 ENJOYED"R$,"WINDOW"? COPYRIGHT (C) 1983 WINDOW, INC. E"W$:"OPEN"W$:"WRITE"W$:"FP":"RUN"X$:"CLOSE"W$:"EXEC"W$:q:6:,"HOPE YOU HAVE ENJOYED"R$,"WINDOW" COPYRIGHT (C) 1983 WINDOW, INC. 1{p#l |6@o@#LUew}6?[}mvon^op#L'Uew}6_oD# (Dww}vo*C@c `@c0x ?pwo~Ccp0L8NsNC1 B@D# (~ Uew}6_[}]m_m^oNL7U:Un~*Uew}6_o*W*/*L |78Pn~ *}?p{ X#L voD#LUew6?C} vo`^o\#LUew}6_oL78Pn~ *}ww}vo*T*|@|x`|xp`?x~|78@n~0 @ Uew}6_oD#L(~ Uew}6_[}]m_m^oF 7U:Un~*Uew}6_o*Wj\|78@n~2~| H#L ?`voL#|Uew@6?}wo^oL# Uew}6_C}l_a^oF 7U:Un~*Uew}6_ojWj/x|`78Pn~ *pw}6@o*A*@$~ L#  |voH#Ue7p6?}wo^oD# Uew}6^oL#l(~ ~~/E*Q*E(*)*?*U~~/E*(*(*UUzU~~/E*(*((W        #8  0igH0hR .@ȠȠή`                                        TPG@E  ȊTUYEFUD €DTT@PPAU 筿UUQUGUTD 뿷Ӻ("UTDPTUEP ،䈲AJU@UUuE`EP@ ۺ`6U@UUEP ѧQUULQT@ ঢT`HU@ ꫺TUAQ@4 냪꫾TUYU5TP €BQ` @_ꨥEA@ 탁dPEA@ P@UD@E  TAEPa@QpE PU E`TA  挠PT@U ښڜQHUPT@QA@ dDTXEP@ ꡥꀠŴU@UEQP `XD@TP  肊T]PU@TV@ ȵ﮿P3WPP Ȝ½PTUAUUA@ ؀ҥ`UpPUP@ ~ꉩw⍡ETUTUD@PE 諸¨@TUjQTE@ ʯTA@©D@PAUE@ ԠAp  ނ@TPA ؚ=EPAT@P ㊣۪}U€ PD@E|QA ꮪґǂAPPEDDRu `TT@UP@QT ﯪUTRPU PQPEeEPE  򁈊UTWEUAA ߾€@VUETUETA …QAPE FU@UAUU` QÊʭԀ @@ 0CȡHm @ hhа`Im @ʈOPEN"W$:"WRITE"W$:"FP":"RUN"X$:"CLOSE"W$:"EXEC"W$:ia:6:,"HOPE YOU HAVE ENJOYED"R$,"WINDOW" COPYRIGHT (C) 1983 WINDOW, INC. T$"D"973[K$"B"Z$"CONTENTS":X$"@@HELLO":94C\K$"C"88M]Z$X$^K1(X$):K767,((X$,K,1))::K767,13:X$"FLOP"_::12:6::" PLEASE WAIT -- NOW LOADING "R$:19(Z$)2:" "Z$" "::34,23:;`:"OPEN"W$:"DELETE"W$:",5:,"WHAT NEXT?"R$R$R$"A) RESTART THIS PROGRAM"R$R$"B) RUN CONTENTS TO CHOOSE ANOTHER"R$" PROGRAM"R$R$"C) GUIDED TOUR THROUGH WINDOW"R$R$"D) EXIT FROM WINDOW"Y:18:,"WHICH ONE?":K$:K$"A"X$"VOLCANOES 1":Z$"VOLCANOES (INTRODUCTION)":94ZKCONTAIN ABOUT ";SG%::" TONS PER DAY OF SULFUR DIOXIDE, AND"::" ABOUT ";CG%;" TONS PER DAY OF"::" CARBON DIOXIDE.":86V23:16368,0:GT$;:C1$:(1):O$;"BLOAD CHAIN,A520":520"VOLC 4"WX$"SAD SOX":::255:R$(13):W$"RESET"X:4:32((35(1))):13:"GASES RELEASED CONTAIN ABOUT ";SG%::" TONS PER DAY OF SULFUR DIOXIDE, ABOUT"T:" ";CG%;" TONS PER DAY OF CARBON"::" DIOXIDE, AND ABOUT ";HG%;" TONS"::" PER DAY OF HYDROGEN & CARBON MONOXIDE.":86~U13:"GASES RELEASED z     #     #                     #     #######   0#8 < 0000L:62.*&">:62.*&"=951-)%!=951-)%!<81%!=951-)%!<840,($ <840,($ ?;73/+'#?;73/+'#>:62.*&">:62.*&"=951-)%!=951-)%!<840,($ <840,($ -159="&*.26:>"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048<ɾ}vohb\WRMHD@<851.+)&$! nnnnnnnnnnnnnn88888888888&&&&&&      #% )+ /''<<<<<<<>?>???'?<'''?<<<''''''<<<$'<'?'??'''$'?'?'''<$$'<<'?'?'??>67....'??6765>>65>>56...5--.5----5-----.--.-5-.-.-.5-5-.-----,,$<$<$'<<<<'?>7??)-%%,$''',/$,%---.5555%,--..,,-.-&&,-555-,5-655565.6.665.65..655-....655.6566>>7?>???'?'?<'?<''?<<'''''''?<$''<$$<$'???<$'$''''''''?<<>>6.>?76577.55-..5-5-5-.-..-.-.5-.-.5-.5-.5-5-5--,--%%%$<$<$'''''''''?<'?<'?<'?<<'?7776655=?>6...??66..=?6..6/655-.5-5--5---.-5-5-..555555-..5-..%+-...65--5556...55-.5-.555555-.5-..5-.5.6.66>>>>7????>'?'?<'RI -.---=----?--???--??---5'?.---%%%%%$.&X@@U LjʨT抨¢ Q@P@`T]U ꀌUV@QUqPQP 꿣 `R@T\`TQAu uUPUaUUY ү0PQPTU T@U!VEPTUTE0D 눂pP@UQTEU Ȁ޸PP&@UUTVTQ ƎUBUQ@UAP@ `@!UjUTA ֨TD抠V@ @ x@|pPT @ xDA@PU UT耙@w xͣQPtG ҾȀUp@ ﯺ xʋT@EQX`UPE Ջ⋪ҠΠٮ`P   0#   0#   0#   00#8 h0000KhhgH0hPR f .@ i( 3`0FE0ULhPFE ULcPح ##:; P #:; P`8 #:; PLPAA:EF;:`00 H3 # `(8(0`8(q(0`&8&0`ii&q&0`&8&4i&H LnO8&0((8(iiLOi>||> NLeN8`-# 3 R QQ *O K@ Q G =T YT N`xEF~`1!FEDLN` # `# K>|x``x|>|p@@p|`L L`Nmjn`L:LL1L??0N)-15ʹM)-15ʹM)-15`8 YKL KLKL&KL+K YKLG` YK 8 L:KLHK``=* # @00 XK`LmK XKLKLK P  FEf~~` L` FED`FE2x:';9xNx8`e;9N`:g;9N`:g;8`M9(<`<8xJx9'<;8<d: 9pK:(=: ;@K@:'=:;2 '<:L8:';9`N9@@ <'<:Lp9>(?:K0:f;@;K0:Ѐd;p;K<9ߟd;<9* Մ Չݿׯ܀Ո`:* *  ՂՉքՂP@*( " #( ( ՃՁՋ?Ձ;"Ձ*" * ":  ՇՁՇեȃ Չ "ՉаՂ*(*  2 ( ՊՀՋѭ?Մ+ **  " ՅՍ|И* * *" * Շ僿׀Վ Յǡ(  2* ՂՓՁ(Յ8:+ ՀՀ ՇԞ Ձ*( (* * ՊՀ Հ@(* "( ( ՂՁ ܥũ," ՁՇՓՕb j* *, ՃՀՇĔՋ* * *# 8 Ն뇬Հ * ,N Շ@g ՀՇ՗  :(* "* ՀՀՒ**0"*.*@J"( ՇՉȟ֊Ձ"*b2 ," # Շ ՉՔՃ( * *"*  ) ՈՀՋگ*Ո( * Z*  * ՅՍ               ``   $ $  0#    $ $  0#     $  0#$  $   $    0##8 &0 &hgH0h`R $ .@ΠΠĮ z# ٠٠ԠΠŠ̻٠٠ĠԠ̻̠ŠǧӠӠĠ̠ŠǧӠΠΧԠԠ٠٠Ҡήf       0  #   0#0       0  #   0#     #   0#    0000          #   0#8 R00005 RhgH0hf R P .@ӠԠŠŮ` ϲŠԠ" Πˠ Ϯà ĮàԮР ҠϠϠ  Ҡ Ġò Ġñ à à à à  ͱͲͳʹ ͵ Ҡ'РƠ ǠǠ ǠǠ ΠɮǠ ǠŠŠŠ"Ԡ$Ԡ !ǠǠ"ǠǠǠǠǠǠǠǠǠǠ ǠǠ ǠǠǠǠǠǠǠǠǠǠǠǠ ǠǠĠؠ" ӮϠР ԠɭǠɭǠ Ҡ ! ! ! !                           TUUVUUUVVVVVVVTVVVVVUUUU&"& &&&&&& &%%&tm \L (D0@$$$$<'--' !!TLmT|c^w?^w?60^w?^w?|c|?~~>|>|yyNsNsfgfg~~~|?|?~NsNqNprsNs~Nsy>|~~~|?~|?xp`@@`px|?~`p0>0>0>0>060"000>p`~?xgsgsgsgpgggsx~?cc66cc~~~~~~_1P_Pnd B{TTw7~36~?6~?6~7ps7~s7~36n7`w~c?`?ppwpspppppppspwp`?`?pp~p|pxpppxp|p~p`?x||<L<||xx|lL<Ll|x|~~ ffF &fff~ ~||?~~fgNsy>|>|yNsfg~~~|?|||c^7?Vv>w=Vv;^w7|cɫ hT` hT hT hT hT`|?~~NNNNxNsNsNsx~~|?ii`8`ii``TW;VTVT.W:bWHW:Fm;EiBU-T :LT`~sfLsLsLCNsgOsgOsfL~~c?H |Wh0 hT` |W |W |W S |W hT |W hT hT |W |W |W |W` hT hT hT T hT hT hT S hT |W |W hT hT hT4 |W` hT hT hT hT hT hT` R |W hT` |W`ɪ Q@J:; P w@J:; P w@ $Q@8 W:; PLgRW:; P W:; P`  URJ:; PJ:; P` D>N=1D aD K8 8>8`8`ɘ8`?`:; P :; P`8 :; PLQɹ8 SLF0 H 3L}Q@D P`4 L50 Q K Q K5 K`FE ``FE#b` .-- NOW LOADING "R$:20(Z$)2:" "Z$" "::34,23: :"OPEN"W$:"DELETE"W$:"OPEN"W$:"WRITE"W$:"FP":"RUN"X$:"CLOSE"W$:"EXEC"W$: :6:,"HOPE YOU HAVE ENJOYED"R$,"WINDOW":216,0:"FP" COPYRIGHT (C) 1983 WINDOW, INC. UR THROUGH WINDOW"R$R$"D) EXIT FROM WINDOW"R :18:,"WHICH ONE?":K$:K$"A"2a K$"D"15 K$"B"Z$"CONTENTS":X$"@@HELLO":12 K$"C"6 Z$X$ K1(X$):K767,((X$,K,1))::K767,13:X$"FLOP"6 ::12:6::" PLEASE WAIT 5000::5I 24A,1624A,191:255A,16255A,191:238A,16238A,191:} :X$"BUBBLE BATH":::255:R$(13):W$"RESET"+ :4:32,5:,"WHAT NEXT?"R$R$R$"A) RESTART THIS PROGRAM"R$R$"B) RUN CONTENTS TO CHOOSE ANOTHER"R$" PROGRAM"R$R$"C) GUIDED TO"43699,0::"CLOSE":::5{"MAXFILES 1":5503:::"LOADING SONGWRITER DEMO":"BLOADSWDEMO2":"BLOADSWDEMO"230,32:62450:7:A12:25,189A258,189A:25,15A258,15A:4::4:25,91255,91:25,140255,140:T0599: 16384:T1    ŠŠӠŠŠӠĠϠˠƠ٠ӻƠӠĠĠǠػƠӠĠӮĠ٠ŠӠǠԠĠҠӠŠӮҢЯͲҢԠٍ̲Ңō˲ҢōʲҢ¯ɲҢŠ΍ȲҍDzҢčƲҢӍŲҢǍӍȲͨȴȲòͨôòӍβҍ˲ҍŲҍвϲҢȍ̲Ңԯή˲ҢӠʲҢǍɲҢӍȲҢŮҮDzҢӠƲҢčŲҢIJҢԍòҢ΍ԲҢōӲҢōҲҢӍѲҍвҢЯϲҢčβӲҲѲϲβƤͲƲͲ̲Ƥ˲Ʋ˲ɲDzƲҸIJòōԲҢ΍ӲҢӠҲҢčѲҢӍвҢήϲҢȍβҢήͱƤdzƳdzƳұijóҍӳҳѳϳͳ˳ɳdzƳҶijó΍ӲҲѲϲͲ˲ɲDzƲҸIJòčԳƤƳѳӳҳѳϳͳ̳Ƥ˳Ƴ˳ɳȳƤdzƳdzƳұųԨóóijijóҍӳҳѳϳͳ˳ɳȳԨóóijijóٍӳҳѳϳͳ˳ɳdzƳҴijó΍ӳҳѳϳͳ˳ɳdzƳҹijóҷijóӳҳѳϳͳ˳ɳȳƤdzƳdzƳұijóԍԳƤƳѳӳҳѳϳͳ˳ɳdzƳҲųƳɳdzƳұijóٍӳҳѳϳγƤͳƳͳ˳ɳdzƳұijóٍӳҳѳϳͳ˳ɳdzƳǴƴұĴôҍӴҴѴдƤϴƴϴʹ˴ʴƤɴƴɴǴƴұĴôڍӳҳѳϳͳ˳ʳƤɳҢ΍˴Ң֮ʴҢōȴҢǍŴҢǍ˴ҢؠӍӍ˴ͨ˲˴ƴͨƲƴôͨòôӍӴҴѴдƤϴƴϴʹ˴ɴ΍˴ǫʴʴʴԨɴôĴɴǴƴĴôō˴ҢԍʴҢӍɴҢӍȴҢōǴҢӍƴҢԠӍŴҢĴҢԍôǵƵŵԨõõĵĵõµɍ˴ҢʴԨɴôĴɴǴƴŴԨôôĴĴôǵƵĵõµٍӠɍɵǵƵĵõԍɵǵƵĵõčɵǵƵĵõύɵĵõčɵǵƵĵõנˍɵǵƵĵõɵǵƵĵõōɵȵԨǵƵɶǶƶĶöύ˶ǫʴʶʶԨɶöĶɶǶƶĶöӍɵǵƵĵõōɵǵ          MAKE "W INTEGER ( :WIDTH / :SCALE ) MAKE "WR ( REMAINDER :WIDTH :SCALE ) MARK.W1 RT 90 MARK.L1 RT 90 MARK.W2 RT 90 MARK.L2 RT 90 END TO RECTANGLE :WIDTH :LENGTH REPEAT 2 [FD :WIDTH RT 90 FD :LENGTH RT 90] END TO SET CLEARTEXT IF ALLOF :EX = "Y :SNTACROSS HT STOP POSITION DO.ROW :COUNTACROSS IF :FLAG = 1 STOP ROW :COUNTUP - 1 END TO SET.VARIABLES MAKE "COUNTER 0 MAKE "COUNTUP :W MAKE "COUNTACROSS :L END TO MARKS MAKE "L INTEGER ( :LENGTH / :SCALE ) MAKE "LR ( REMAINDER :LENGTH :SCALE ) AREA= ''] :A ['' TILES] ) END TO COMPUTE :LENGTH :WIDTH :SCALE MAKE "HOLD "'' MAKE "N ( :LENGTH / :SCALE ) * ( :WIDTH / :SCALE ) OP FIND :N END TO ROW :COUNTUP ST IF ALLOF :COUNTUP = 0 :WR = 0 RESET HT STOP IF :COUNTUP = 0 POSITION TOP.REMAINS :COUST USE A ' ' DIFFERENT SIZED TILE. ' '] CONT 30 CURSOR 0 20 ( PR [THE TILES YOU JUST USED WERE] :SCALE [TURTLE '' STEPS ON A SIDE.] ) CONT 30 CLEARTEXT IF FIRST :EX = "Y EXACT.SCALE STOP NOT.EXACT.SCALE END TO AREA.IS :A CURSOR 0 21 ( PRINT1 [3 BK 3 LT 90] END TO MARK.L1 REPEAT :L [FD :SCALE RT 90 FD 3 BK 3 LT 90] FD :LR END TO MARK.W1 REPEAT :W [FD :SCALE RT 90 FD 2 BK 2 LT 90] FD :WR END TO SECOND CURSOR 0 20 PRINT1 [YOUR TILE SUPPLIER CANNOT SUPPLY THE ' ' TILES YOU ORDERED. YOU MU0 PR [TURTLE TILES] CURSOR 12 11 PR [--------------] CURSOR 12 15 PR [BY ANGIE FERRIS] CURSOR 5 21 PR [COPYRIGHT (C) WINDOW, INC 1983] END TO EMPTY? :NUM IF :NUM = [] THEN OP "FALSE ELSE OP "TRUE END ODRAW TITLE CONT 32 DRAW CLEARTEXT AREA1 .GCOLL .DEPOSIT 34 0 CONT 32 AREA2 .DEPOSIT 34 0 CONT 10 CLEARTEXT .DEPOSIT 33 40 .DEPOSIT 32 0 CLEARTEXT AGAIN? IF :AG = "Y AREA ELSE CLEARTEXT END TO TITLE CURSOR 12 9 PR [--------------] CURSOR 13 1ЍЍEX "Y MAKE "L (6) MAKE "SIZE "M MAKE "N (24.) MAKE "SCALE (20) MAKE "A1 "24. MAKE "COUNTUP (4) MAKE "LENGTH (120) MAKE "WIDTH (80) MAKE "VERT (-50) MAKE "HORIZ (10) TOP IFF ESTIMATE END URSOR 12 15 PR [BY ANGIE FERRIS] CURSOR 5 21 PR [COPYRIGHT (C) WINDOW, INC 1983] END MAKE "REPLY [24] MAKE "ANS " MAKE "HOLD "24. MAKE "FLAG (1) MAKE "COUNTACROSS (6) MAKE "COUNTER (6) MAKE "WR (0) MAKE "W (4) MAKE "LR (0) MAKE " TO CHECKNUM :NUM1 TEST :NUM1 = [] IFT OP "FALSE TEST NOT NUMBER? FIRST :NUM1 IFT OP "FALSE IFF OP "TRUE END TO RESET .DEPOSIT 34 0 PR [] CLEARTEXT END TO ESTIMATE RESET CURSOR 0 20 PRINT1 [EST.= ''] MAKE "REPLY RQ TEST CHECKNUM :REPLY IFT STER :COUNTER + ( :LR / :SCALE ) MAKE "HOLD "'' PR.COUNT MAKE "VERT :VERT + :SCALE END TO SQ REPEAT 4 [FD :SCALE LT 90] FD :SCALE END TO REM :NUM :TIMES IF ANYOF :TIMES = 0 :NUM = "'' STOP MAKE "HOLD WORD :HOLD FIRST :NUM REM BF :NUM :TIMES - 1 END ] PRINT1 [(T) TO TILE. ' '] MAKE "REPLY RC CLEARINPUT IF :REPLY = "'E' ESTIMATE MAKE "FLAG 1 STOP IF :REPLY = "'T' STOP ESTIMATE? END TO REMAIN IF :LR > 0 ESTIMATE? IF :FLAG = 1 STOP IF :LR > 0 REPEAT 2 [FD :LR LT 90 FD :SCALE LT 90] MAKE "COUN :NUM END TO NORM .DEPOSIT 232 255 END TO INV .DEPOSIT 232 0 END TO PR.COUNT CURSOR 0 20 .DEPOSIT 34 0 INV PRINT1 ['' COUNTER ''] NORM ( PRINT [' '] FIND :COUNTER ) .DEPOSIT 34 21 END TO ESTIMATE? MAKE "FLAG 0 CURSOR 0 21 PR [(E) TO ESTIMATE. IF :FLAG = 1 STOP MAKE "COUNTER ( :COUNTER + ( :WR / :SCALE ) * ( :LR / :SCALE ) ) MAKE "HOLD "'' PR.COUNT END TO FIND :NUM IF :NUM = "'' OP :HOLD STOP MAKE "HOLD WORD :HOLD FIRST :NUM IF FIRST :NUM = CHAR 46 REM BF :NUM 2 OP :HOLD STOP OP FIND BF30 ???3003?3333??000???03???33???1 ?3333??33?>0? 333?3333333333333333333;33?>?##?#6666??? '09BKTe\v~m@@@AAAAAAAAAAAAAAAAAA@L@ !"#$%#g8Pg R ZS F N QLF                0  0 &0=Nd?33333?>?ɠĠŠ̠ƠŠǠ̠ĠΠŠΠӠһĠΠΠɠŠԠΠΠĠȠӠɠӠΠҠŠč@PRELUDE3 COPYRIGHT (C) 1983 WINDOW, INC. TNDOW, INC. $ND RUN,@@HIT AND RUN:MUSIC THEORY,MUSIC THEORY 1:MUSIC THEORY (MORE),MUSIC THEORY 2SNOOPER TROOPS,SNOOPER TROOPS:TURTLE TILES,TURTLE TILES:VOLCANOES,VOLCANOES 1:VOLCANOES (END),VOLCANOES 2:SAD SOX,SAD SOX:BUBBLE BATH,BUBBLE BATHPRELUDE,@Q$):AD4I,((QQ$,I)):q AD5,185:AD12,185:AD19,171:ADI4,0:AH((AD1)256):104,AH:103,AD1AH256 (4)"RUN"X$: :6:,"HOPE YOU HAVE ENJOYED"R$,"WINDOW":216,0:"FP":UCONTENTS,@@HELLO:MINI-SONGWRITER,MINI-SONGWRITER:HIT A:X$(X$,8):21J K1(X$):K767,((X$,K,1))::K767,13:X$"WINDOW" ::12:5::" PLEASE WAIT -- NOW LOADING "::18(Z$)2:" "Z$" "::34,23: AD26 AD,0:AD1,RL:AD2,RH:AD3,12:AD4,0 QQ$" 104,8: 103,1: 12":I1(Q3,35:7:32,5:,"WHAT NEXT?":9:"A) GO ON TO THE FRONT SIDE OF THE WINDOW DISK"R$R$"B) EXIT FROM WINDOW"R$ :18:,"WHICH ONE? ";:16368,0:K$::21:K$"A"Ĭ K$"B"27 12 (X$,2)"@@"X$(X$,3):21 (X$,2)"//"AD((X$,3)) n 755,165:756,121:757,141:758,254:759,2:760,165:761,122:762,141:763,255:764,2:765,96:755: 2048,0:104,8:103,1::::255:R$(13) (222)6Ģ2:5::29)::5:" USE THE ";::"FRONT";::" OF THE DISK ":5:29)::o 3":10:" ";:23:" ":10:" DISK OVER TO THE ":10:" FRONT SIDE ": 23:"THEN PRESS ANY KEY ";:16368,0:I$:I$(3)Ĺ222,255:12 X$RN$:Z$PN$:18 F768:F$"" C(F):C13ı F$F$(C):FF1:7 PN$,RN$:RN$F$95#43699,0::"CLOSE":::12\11:RL8(766)256(767):RH(RL256):RLRL256RH6:AD0:9::" ABOUT TO LOAD - ":4:18(PN$)2:" "PN$" ":9:10:" PLEASE FLIP YOUR ":10:" ";:23:" "R 10:" ";::" WINDOW ";::"        !   !                                                                                                                                                                                                                                                                               P ##                               ԠӠ٠ȠŠԠԠŠΠŠٻԠӠ̠ӠŠϠŠӠԠٍ ЍЍ1E,D:3:=124,0124,191:156,0156,191:I1130:J1150:l0,83279,83:0,109279,109:K192:L1102:124,0124,830,83:0,109124,109124,191:156,0156,83279,83:279,109156,109156,191:N13:24:17N:H$(N);::27:(2);:L 124,1911215VEI1EJ1DK1DL1ġ:X0644:X:1E,D:1E,D:X:1E,D:N1500::41tV11W1W11:W10W10OO2:S16336:P(S)(S)(S):3:1E,D:3:4:A$"S"D(68)1V11V11āN1202W1::W1W11:W15Ĕ1E,D::V10:15 4:1Ē4:1E,D:R11:48:E135:DD1805:24:D:D10:S15:T11:U11:37A$"A"Q12:39:X1Ē4:1E,D:R12:0:D92:EE56:24:E:E269:S11:T134:U11:37A$"D"Q12:39:X1Ē4:1E,D:R12:32:D98:EE2696:24:E:E14:S11:T11:U122:377000::16300,0:16304,04 A$" "H1E:P1D:43] A$" "B(C)18E145D134D16676 A$" "E(11)4D92E226E242ī74 A$"W"Q11:39:X1Ē4:1E,D:R11:16:E145:DD145:24:D:D180:S15:T134:U122:37EA$"X"Q11:39:XC$(B(C)):A1:I1A0:J1D1:K1A0:L1D1:62450:YE,D:((G$,F1,Z))29,30,31,32,33,34,35,36 NY((G$,E1,Z)):M1((G$,F1C1N,Z)):O1((G$,E1C1N,Z)):VYA1:M1:O1V:H$(V);:O1Z:M1Y:(G$,G1N,Y);:: X0:4:D(65)2J1İ10:::80:N10,255,110,110,255,255,110,110,110,110,255,110,255,255 :W12000::92:87:X(0):90:9:76 A(0):16368,0:A$""::16302,0:9:12:4:"hOPPING IN THE sNOOPmOBILE....":78:W14000::62450:Y1:Z2:A13:C14:D1300:A00:E113:F111:G136Y G$@ OO1.5:O1999O0:GG1:Q19:C(Q)0::J0:F$"Y"F$""S G7G1:II1n (O200)O200A(0)t  54,60:55,20: 54,R:55,T:^ N124:U:K2,250:K,U:K1,0:K344:V150::: 110,255,110,255,255,110,110,110,255,255,11D UP PETE TABASCO" 12:2:"AND THEN STOLE LILY OUT OF HER POOL.":16:" * * *":D$"BLOADSNOOP STUFF":K2048:K431,64:11 L999(L7)(.5(((L),1))):4:M:"cLUE # ";L;:N14500::4:" ";: (16384)127ľA$:99%#43699,0::"CLOSE":::99 C$(26),A(12)::::13:1::"SNOOPER TROOPS"::D$(4):B2:B(C)8:D100:E136:F1:G1:E$"9":I1:J1:1:5:"WHERE IS LILY THE PERFORMING DOLPHIN?":7:5:"THE POLICE DON'T KNOW, BUT...":10:"ON MAY 11 SOMEONE TIE            P":? I1(X$):767I,((X$,I,1))::767I,13:X$"FLOP":j COPYRIGHT (C) 1983 WINDOW, INC. "HIT AND RUN":15i ::12:6::" PLEASE WAIT -- NOW LOADING "R$:20(Z$)2:" "Z$" "::34,23: :"OPEN"W$:"DELETE"W$:"OPEN"W$:"WRITE"W$:"FP":"RUN"X$:"CLOSE"W$:"EXEC"W$: :6:,"HOPE YOU HAVE ENJOYED"R$,"WINDOW":216,0:"FOTHER"R$" PROGRAM"R$R$"C) GUIDED TOUR THROUGH WINDOW"R$R$"D) EXIT FROM WINDOW" :18:,"WHICH ONE?":K$:K$"A"X$"MINI-SONGWRITER":Z$X$:15:12 K$"D"14 K$"B"Z$"CONTENTS":X$"@@HELLO":15:12 K$"C"6 X$"@@HIT AND RUN":Z$::4:A%16384:B%A%3:C%A%24:A$(40)A "RUNMINI-SONG 2":5 24A,9024A,141:255A,90255A,141:238A,90238A,141: ::255:R$(13):W$"RESET"P :4:32,5:,"WHAT NEXT?"R$R$R$"A) RESTART THIS PROGRAM"R$R$"B) RUN CONTENTS TO CHOOSE ANl643699,0::"CLOSE":"MAXFILES1":5119:::5:::"LOADING MINI-SONGWRITER"::"BY SAMUEL WANTMAN":"AND ART BARDIGE"::"COPYRIGHT 1983 - LEARNINGWAYS, INC."' "BLOADSONGWRITER":A(0):7:A12:25,89A258,89A:25,139A258,139A:4    ::16368,0::"DO YOU WISH TO MAKE ANOTHER COPY?";I$:(I$)0300U '(I$,1)"Y"160k ,(I$,1)"N"290s 1: 6:350:N;::1:I$;" SLOT: ";:L1:H7:330:A,N16: @350:N;::4:" DRIVE: ";:L1:H2:330:+JK(16384):K128330DK$"DUPLICATE":360: GET DUP DISKC 8:24::"WRITING";::" "\ 710: WRITE A HUNKr 8:24:" " (713)2190 (222)255ij 18::"****** UNABLE TO WRITE ******":290 18::"****** UNABLE TO READ ******"@ "190: ERROR!+ 5:24:" ":(713)1290F FT255: NOT FIRST RDn DK$"DUPLICATE":360: GET DUP DISKx 275 8:24::"FORMATTING": "INIT XXX,S";SS;",D";SD;",V";(714):FT1 8:24:" " 216,0:222,0 256 "2 704:717,SS16:718,MS16:719,SD:720,MDG 17:34,16:936T :222,0 "-- PRESS 'RETURN' KEY TO BEGIN COPY --";:" ";I$ DK$" ORIGINAL":360: GET ORIG DISK 5:24::"READING": 707: READ A HUNK (713)228`  G  L   G L. `0 0) J 1&` 0 `'& &ye&& ''``͘J )*U ```5:24:" ":8:24:" 0 D ` ` 01&`0)J LKLK L6@  0) l0`(` LX l` 1&`1&   ` 1&`1& J `- &&` J JJ  J ` )  I `&)  &      "EXEC"W$:F(I1(X$):767I,((X$,I,1))::767I,13:X$"FLOP":):6:,"HOPE YOU HAVE ENJOYED"R$,"WINDOW":216,0:"FP": COPYRIGHT (C) 1983 WINDOW, INC. CENTS":X$"@@HELLO":40:38*$K$"C"32V%X$"@@HIT AND RUN":Z$"HIT AND RUN":40&::12:6::" PLEASE WAIT -- NOW LOADING "R$:20(Z$)2:" "Z$" "::34,23: ':"OPEN"W$:"DELETE"W$:"OPEN"W$:"WRITE"W$:"FP":"RUN"X$:"CLOSE"W$:"RESET" :4:32,5:,"WHAT NEXT?"R$R$R$"A) RESTART THIS PROGRAM"R$R$"B) RUN CONTENTS TO CHOOSE ANOTHER"R$" PROGRAM"R$R$"C) GUIDED TOUR THROUGH WINDOW"R$R$"D) EXIT FROM WINDOW" !:18:,"WHICH ONE?":K$:K$"A"Ĭ "K$"D"41#K$"B"Z$"CONT5:1:"PRESS THE Y KEY TO QUIT";40(0)):D$:D$"Y"D$"Y"ĉ:::31M e A%36:X(A%39): 24::"USE: ARROWS OR ";:2039,32: 1:24::39);:2039,160:5:1: A04:1008A,(810A)::::255:R$(13):W$,17,20,20,17,19:163 A(A1)(AB1)1(AB1):; A0C :c A(A1)(A1)(B1)(A1): A%(A)(A$(A))5:A%(A)A%(A)(A%(A)11)11(A%(A)10): D%(A):E%(A):(A$(A),A%(A));: (222)16ČA%33:C1: (222)16Ĭ 31G :33Ģ7H D%(B)(37)1:E%(B)1((B16)(B32))13:E%(B):(A$(B))615g AB:21:(A$(B),A%(A)):B A1:B1ĺ"NO "F$"S ON DISK.":A0::"-- PRESS ANY KEY --":D$: :22:5:1:"NAME: "(A$(A),(A$(A))5);40(0));:16368,1:28::22:X118:D$:A%40,251(D$"Y"D$"y"):G B$"=.SONG":11:18A%,A$(1),B$:k B$"=.SONG":F$"SONG":9:A1ı 10:C0ČA%15  11:C%,A$(1),B$:12: C0::"BLOAD"A$(A);:: E148:A$(E)""::B(0): 29:A1:7:B148::B17Bб=43699,0::"CLOSE":::A04:810A,(1008A)::31^:"MAXFILES1"::6655:23A%16384:B%A%3:C%A%24:A$(48),A%(48),D%(48),E%(48):29::A%:30:(A%6)5,6,8,4,26:3! :5:1:"PRESS THE Y KEY TO ERASE YOUR SONG";40(0))     )%!<840,($ <840,($ ?;73/+'#?;73/+'#>:62.*&">:62.*&"=951-)%!=951-)%!<840,($ <840,($ =951-)%!=951-)%!((((((((((((((((PPPPPPPP-159="&*.26:>"&*.26:>#'+/37;?#'+/37;? $(,048<_Nm;Mi(M-'M 0:LL``?pp~p|pxpppxp|p~p`?x||<L<||xx|lL<Ll|xoEI9(_I*TČTUTTSSMOMMRSSSTUUUU"   _O/?ooooO/?_OO??F*****!!888F8*8*8'MLL=951-)%!=951-#LLEKL1K`L==UL LL&nL!nLlLmL LLmLlLmLoL`nLoLY)oL`80`8`0` Lhh)? eiHH8($ L` 0 LL` VALC'MM;uM MMMM:MM: , ߠnLȱRLȱSLL1KnLLRLLSL L LLLKL0)2@-2@6@4@5@˽ ƎL8mL^LLi_LȌoL LPLoL iƟƞoLL)1@1@3@Li`LI>||>L1Ihh eiHH`$ [`=( U@(LJ` !"#$%`췎뷩1@ ߥ~CLA 2I C`8.30*(L$Imm.3`` C DV  ONf~~` I` ON{H` +LA E#7 D70 DD2 C yI J yI ~CLA mCLINmjṉؓؓ`0  0ɾ}vohb\WRMHD@<851.+)&$!     #% )+ /LA 3 pL D0 E I JLF`GH`LG E.F@G E` J eJ٠ G eJ1@ eJŠ G eJ` J NC(@\L G eJˠ̠Ơ` Lξ ` G eJ : ` G8 eJ LF)? ` J B` eJؓ  ``0%HGGG G G G` G ,G1@00 wG eJӮLE VA8f G A eJ̤ A eJؓ G eJ` eJ LF JLF8` J 8Eɛɍ.Ɉ0ɠ0ɬȌ)? LF` +* E J`!  }E EL E`,08 ` 0E VE JL@E'@`ɛɕɈɈɈɕɠɍ`ii`8`ii`hG o`hhߚHH845 G  eJӠ٠٠ 0E GON0U`ON UL>D`0 I 3LpDHH`ON ``ON#b` KH>J= cI8 8>8`8`./C+* D E#܍ 3 D7 DD C yI 2I J ~C`1!ON{HL_C` # `# yI ` Pɀ0 5E {OLA- BLC ULC TLC D Ii 7@`0BBBABLBIBLBB ULA TLA ""{H LA  {H LA JLA BLA mCLH B`8鰍  I01)% LA " LA  LALA mCLB J8`-# 3 D DD yI I }E E ~C` J8` mCL(8H&Pgh+g-6 #g A(@ ZO`+* D ELVA./`TWPR NC0 qD` cI yI 2I C O 5ESJɍ ɱ0ɺL[BAQJARJLPJ JLA CLA)(טMDSDBBPHBB@L@L1IL1ILVALDLFL1ILJL1IL1ILEL@EL1ILeJ01 U@ 8 L7@LE@`=* # )@00 1I`Li@ 1IL}@L|@ !"#$%h+-(@ @ A ~C {OLA Ed0         S:24:P1,R:N:12C DA$" ":NJ1S:24:HP1:QR:46:N:12} 1:21:868:" ALL ITEMS HAVE BEEN SORTED.":39  P(NA):R1(N(PA))(42D):PPE2:  D30 A$" ":0:HT:QU:49:D148,46:Y:HH2:48:32:49:Z:H24:TP:UR:NJ:24:VP:XR:34:49:DA$">":HT1:QU:47:15W 15:T1,U:YZ18i DĭD$E$18 23:28:868::"FLIPPING"::26:8:23:868:I0II1 12  DĠ0:T1,U DA$" ":HT1:QU:46 SS1:IS:DĠ0:NJ1G1F78 :::21:Dĺ"BUILDING COLUMNS TO SORT":A Dė{ N0F:A(((1)6)1):DA$B$(((1)6)1):C$(N)A$ 24:HP:QR:D148,46:N:Dİ43 G1Ģ24:1:958:7:"--> FASTER SLOWER <--"; S0:I0 JI1:JF23? NI: #43699,0::"CLOSE":::71F:64:A8:B56:56:DA9:B63A(1)1:A(2)2:A(3)9:A(4)12:A(5)13:A(6)14:B$(1)"1":B$(2)"2":B$(3)"3":B$(4)"4":B$(5)"5":B$(6)"6":E20:F15:DF17G1G2İ52L50:M1:G2L0 O0:C$(70): ! ! ! ! !!!!!` hg,Hh%S  fȮ`                      #8 %} nŠȠȰˠˠΠԠԠ̠ԠˠԠ٠ذŠŠΠΠȰ̠ȰˠȰ٠Ԡɰ٠٠ΠΠΠȠӰˠˠ٠٠٠٠Ȱΰΰˠΰ   R f .@٠Ů`>(        0#0      0#   #     #     #    0#      0#0  0#8 h0000KhhgH0h> ~-U+m.U+]~ *U~}u(* ~2~~/E*Q*E(*)*}+*~/E*(*(*uU(UzUx~ *UPzU~~GT*  =U+m.U+]~ *zUjW~~@*  -U+m.U+]~ *U~~@*   *U~}u(* ~~0:wn];~/E*Q*E(*-**~/E*Q*(*)*}UzU~~/E*(*((yO~O*  =U+m>U+]~ *zUW~~@*  }o~_~ *U~~@*  ~-U+m.U+]~@~~| :wn];~/E*Q*E(*2j_*~/E*Q*E(*)**@ ~/E*(*((?|?|?~~~ *UPzU~~ *zU~~`@*  -U+m.U+]~ * U~~@*   ~-U+m.U+]~ *U~}w(*  `:wn];~/E*Q*E(**j_*~/E*Q*E(*) *j_*~/E*(*((@~ *UTzU~~/*  =U+o~U+_-U+m.U+]~ * U~~?@*  -U+m.U+]~ *U~w*  }o~_~~?~  z_*~/E*Q*E(*)*zW*WUj~/E*(*((~ *U TzU~~/*  }Uko|Wk~ *zU~~@@*  -U+m.U+]~ *U~u>*  -U+m.U+]~*~  :wn];~Oj_zW~u/}y** *~*_Uz~/E*(*(~ *U UzU~~/* (*)yW{g}O~ *zU~~?@P*  -U+m.U+]~ *UTzU~~_@*  -U+m.U+]~ *U~~*  -U+m.U+]~**T*  :wn];~*~~/E*Q*E(*)`|U *U UzU~~/* (*){wqg~ *$zU~~@P*  -U+m.U+]~ *UPzU~~@*          r       $       $$$      $$     $$#8 b$$$0EbhgH0hr $` .@Ǡ`~*Uew}6_o*_z`7U8Tn~*o~w}6_o*(*@ x`78@n~9 | x6?|p^oD# Uew}6?|po^o\#<(~ Uew}6_}o_^o@ 7U:Unp_o* *@  0x78@n~!  x` ~ H$ vox# Ue Ujew}6_}o_^o@ 7U:Un~*Uew}6|`^oj_jl7U8Tn~*o~w}6`{p#<`~6_o@#  Uew}6?}wo^op#\(~_o*T*@ ~78Pn~0 p@`ppx ~ @@@px|@@```x@? Uew}6|`^o@ 7U:Un~Uew}6_}o_^o{zd<7U8Tn~*~w}6{wx{d#| @6_o@# Uew}6?C} vo`^o`#<(~  @78Pn~*!Q*p< `axaGp?8 xcp`OyCGa CxA!`~ ~ `p0`1Lg`p`p880p `0 ~ Uew}6_o@# wo~ Uew}6_}o_^o{`|7U8Tn~*Uew}6p_o*D~fyqc@7><b  ~{ l#lp6_o@# Uew}6?[}mvon^of#|'W*L p78Pn~*}ww}` *@pApN90@|@C| @y?p`Gx?@@`~ 8v<fxdn<`a|f`U~ Uew}6_o@# `~ Uew}6_C}l_a^o|L7U8Tn~*Uew}6_o*W*          #######8&0 &`hgH0hR $ .@Ů`8K$"D"31;K$"B"Z$"CONTENTS":X$"@@HELLO":28KK$"C"22UZ$X$K1(X$):K767,((X$,K,1))::K767,13:X$"FLOP"::12:6::" PLEASE WAIT -- NOW LOADING "R$:19(Z$)2:" "Z$" "::34,23:C:"OPEN"W$:"DELET:4:32,5:,"WHAT NEXT?"R$R$R$"A) RESTART THIS PROGRAM"R$R$"B) RUN CONTENTS TO CHOOSE ANOTHER"R$" PROGRAM"R$R$"C) GUIDED TOUR THROUGH WINDOW"R$R$"D) EXIT FROM WINDOW":18:,"WHICH ONE?":K$:K$"A"X$"VOLCANOES 1":Z$"VOLCANOES (INTRODUCTION)":2"BLOAD CHAIN,A520":520"VOLC 2"XX16336:II129:IZ(XX)::II113:IJ13:IZ(XX):::II15:IJ16:IZ(XX):::II19:IJ16:IZ(XX):::II13:IJ16:::II115:IJ16:IZ(XX):::X$"SAD SOX":::255:R$(13):W$"RESET""::"ANDESITIC VOLCANO).":::"YOU LEARN TO RECOGNIZE THESE AND":"MANY OTHER FEATURES OF VOLCANISM BY"::"PLAYING VOLCANOES."::"FOR NOW, LET US CONTINUE AND SEE WHAT"::"SOME OF THE INVESTIGATIONS DO.":23:16368,0:GT$;:C1$:(1):O$;O$;"BLOAD UNPACK,A$6000":O$;"BLOAD VOLCANO.PIC,A$4000"::16302,0:24576:PA02400::16301,0:23:16368,0:GT$;:C1$:(1):230,64:62450:230,32:62450D::3:"YOU HAVE JUST SEEN AGAIN THE PICTURE"::"OF THE ERUPTION OF SKYLINE PEAK (ANFIC VOLCANO":16:"CODE GA COST $10,000"::" AGES OF ROCKS FROM A VOLCANO":16:"CODE AR COST $30,000"24:16368,0:GT$;:C1$:(1)::38:4:" AN ERUPTION HAS OCCURRED!! STAND BY!":10:" THERE GOES SKYLINE PEAK AGAIN!":20:20:(1):0" :" SEISMIC SURVEY OF A VOLCANO":16:"CODE SS COST VARIES"::" ELECTRICAL CONDUCTIVITY NEAR A VOLCANO";:16:"CODE EC COST $70,000" :" TILTMETER SURVEY OF A VOLCANO":16:"CODE TS COST $20,000":n " GAS ANALYSES OF A SPECI$"DYKE BUTTE":VX$"CONEJO MTN.":VY$"TWISTED TRUNK MTN.":VZ$"WHISPER BUTTE":230,32:62450:::230,64:62450: " HISTORY OF ERUPTIONS SINCE 1990":16:"CODE HV COST $100"::" INFRARED SATELLITE SCAN OF AN AREA":16:"CODE IR COST $60,00ONE BUTTE":VK$"MOSS MTN." VL$"DOGWOOD MTN.":VM$"RATCHET MTN.":VO$"RUMBLE BUTTE":VP$"BEAR CLAW BUTTE":VQ$"SALT LICK MTN.":VR$"BROKEN THUMB BUTTE":VS$"EL MATADOR":VT$"BUBBLING SPRINGS MTN.":VU$"BROKEN FISH MTN."q VV$"FORKED TONGUE BUTTE":VWZ$"A TYPICAL SEISMIC SIGNAL IS:":GT$"PRESS A KEY TO CONTINUE." VA$"MT. ASUNCION":VB$"BOCA CERRADA PEAK":VC$"CUMULUS PEAK":VD$"SKYLINE PEAK":VE$"MT. ASHFALL":VF$"MT. FUEGO":VG$"RIFT MTN.":VH$"FLAT TOP MTN.":VI$"DEADFALL BUTTE":VJ$"ROLLING STR THE VOLCANO, AS SHOWN BELOW:" SX$"ON THE AVERAGE, THERE WERE ABOUT ":SY$" SEISMIC EVENTS RECORDED PER MONTH THAT":SW$" HAD MAGNITUDES GREATER THAN THREE."@ SU$"YOU ORDERED A SEISMIC SURVEY DONE.":SV$" HERE ARE THE RESULTS OF THAT SURVEY,":S!! **" PE(2,24),PD(2,24),R(24),AR(24),TB(9),F(9),CP(3),CS(3),MN(3),W%(9),W$(5),PN$(3),RS%(4),EQ(24),EC(3),MA(3),MV(3),AD(3):RS%(0)1! GC$"PRESS 'E' TO END SEISMIC SURVEY; ANY KEY FOR ANOTHER RECORD.":EE$" EVIDENCE FOR MAGMA CHAMBERS UNDE #43699,0::"CLOSE":::21O$(4):F(XS)0.980.0018XS0.01((1)):A(XS)6((1))13(XS80)(XS80)(62(0.882.85(ABXS))56(0.952.15(AAXS))) B(XS)0.720.0015XS0.02((1)):C(XS)0.95(1.5E5)XSJ:PW$"** PLEASE WAIT     n          #            #            #                            #8 o 0RohgH0hnR m .@Ԡ٠`1(X$):K767,((X$,K,1))::K767,13:X$"FLOP"H::12:6::" PLEASE WAIT -- NOW LOADING "R$:19(Z$)2:" "Z$" "::34,23:I:"OPEN"W$:"DELETE"W$:"OPEN"W$:"WRITE"W$:"FP":"RUN"X$:"CLOSE"W$:"EXEC"W$:J:6:,"HOPE YOU HAVER"R$" PROGRAM"R$R$"C) GUIDED TOUR THROUGH WINDOW"R$R$"D) EXIT FROM WINDOW"B:18:,"WHICH ONE?":K$:K$"A"X$"VOLCANOES 1":Z$"VOLCANOES (INTRODUCTION)":71CK$"D"74DK$"B"Z$"CONTENTS":X$"@@HELLO":71EK$"C"65FZ$X$1GK:II0:K0:IY0:IZ0:23:16368,0:GT$;:C1$:(1):F=K4ĺGC$:63U>:23:GT$p?16368,0:C1$:(1):@X$"SAD SOX":::255:R$(13):W$"RESET"LA:4:32,5:,"WHAT NEXT?"R$R$R$"A) RESTART THIS PROGRAM"R$R$"B) RUN CONTENTS TO CHOOSE ANOTHEYS, WE'LL CATCH THAT"::"CRITTER!"::"IN SPITE OF THE UNEXPECTED VISIT FROM "::"BIGFOOT, THE SEISMIC SURVEY WAS DONE."::"HERE ARE THE RESULTS:":23:16368,0:GT$;:C1$:(1):;PA1500::B16336:PA150:C(B)::4<SX$;H::SY$::SW$VU$:3B$VV$: 4B$VW$:-5B$VX$::6B$VY$:G7B$VZ$:8O$;"BLOADBIGFEET.SHP,A$6000":232,0:233,96:1:1:30::150,50:59:280,110:59:3160,110:59:4230,170:59:PA160::599PA180::59:(1)::::5:"ONE OF THESE DA,54,55:B$VA$: B$VB$:)!B$VC$:6"B$VD$:C#B$VE$:P$B$VF$:]%B$VG$:j&B$VH$:w'B$VI$:(B$VJ$:)B$VK$:*B$VL$:+B$VM$:,B$VO$:-B$VP$:.B$VQ$:/B$VR$:0B$VS$:1B$VT$:2B$295(XS(230XX))YS(2(1))(XS(F(XS))):29YYSAA(XS(F(XS)0.001(1)))XS,(80YS)::23:16368,0:61::::10:PW$:O$;"BLOAD CHAIN,A520":520"VOLC 3"V32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53(XS(F(XS))):24F YSAA(1.3(XS(14080(1))))(XS(F(XS)))m XS,(80YS)::23:16368,0:61: XX80(1):PS12(1):AB335(((1))2):J0.4(1):::23:SZ$:3:0,80:XS1250:AAAB2(1)(XS(30PS))YS(2(1))(XS(F(XS))):1.5((1))(XS(F(XS))):20J YS(XS(F(XS)))(A(XS)):YS78YS78q XS,(80YS)::23:16368,0:61: PS12(1):AB113(((1))2):::23:SZ$:3:0,80:XS1250:AAAB15((1))(630(1))(XS(4030(1))) (XS(30PS))YS(6(1))5 H0.712# IIII1:II277 21:C1$"E"30? 17S IYIY1:IY17g 25:C1$"E"30o 17 IZIZ1:IZ27 18:C1$"E"30 KK1:K7,7,7,7:30 AB6060(1):AAAB5:::23:SZ$:3:0,80:XS1250:(XS(1010(1)))YS68,0:GT$;:C1$:(1) :5:" ** EMERGENCY MESSAGE **"::"ONE OF YOUR SEISMOMETERS HAS STOPPED"::13:"TRANSMITTING.":23:16368,0:GT$;:C1$:(1)::56 ::31:4:SU$::SV$::" FOR ";B$;":":::H6(9.5(1)):60 H(1):H0.31 SEE THE RESULTS OF A"::"SEISMIC SURVEY OF ONE OF THE VOLCANOES"::"OF WRANGELIA.":II%(1)(24(1)):VII%(1) ::"THERE ARE DIFFERENT KINDS OF SEISMIC"::"WAVES, WHICH CONVEY MUCH INFORMATION"::"ABOUT THE INTERNAL STATE OF VOLCANOES.":23:163A #43699,0::"CLOSE":::64F(XS)0.980.0018XS0.01((1)):A(XS)6((1))13(XS80)(XS80)(62(0.882.85(ABXS))56(0.952.15(AAXS)))B(XS)0.720.0015XS0.02((1)):C(XS)0.95(1.5E5)XSJp :3:"YOU ARE GOING TO        $   $    $#    $  $   $  $#8 } $$$0`}@hgH0h$R { .@ή`,80,81,83<NSG%10((15(1))):CG%100((23(1))):85oOSG%10((79(1))):CG%100((58(1))):85PSG%10((145(1))):CG%100((822(1))):85AQSG%100((33(1))):CG%100((2530(1))):HG%10((35(1))):13:"GASES RELEASED GB$VV$:HB$VW$:&IB$VX$:3JB$VY$:@KB$VZ$:LII%(1)(25(1)):51::4:"THE GASES RELEASED FROM THE MAIN VENT"::"AREA OF ";B$;" HAVE"::"BEEN ANALYZED. RESULTS ARE INDICATED"::"BELOW." MII%(2)1(5(1)):III%(2):I78,79B$VA$:4B$VB$:"5B$VC$:/6B$VD$:<7B$VE$:I8B$VF$:V9B$VG$:c:B$VH$:p;B$VI$:}<B$VJ$:=B$VK$:>B$VL$:?B$VM$:@B$VO$:AB$VP$:BB$VQ$:CB$VR$:DB$VS$:EB$VT$:FB$VU$:SIS"::"OF THE GASES EMITTED BY ONE OF THE"::"VOLCANOES. THIS IS ANOTHER IMPORTANT"2:"TOOL FOR PREDICTING VOLCANIC ACTIVITY.":23:16368,0:GT$;:C1$:(1)::763II%(1)52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75:1 *:6,+J2(3(1)):H812:J045Z,H:I1519:I:XX(1):XX0.5ĺ"-":JJ1c-:6.J2(3(1)):H812:J048/H:I1923:I:XX(1):XX0.5ĺ"-":JJ10:6V123:16368,0:GT$;:C1$::"NOW, LET US CONTINUE WITH AN ANALY(1):II%(1)35,36,37:8:13:18:408#13:18:23:43K$8:18:23:46y%8:13:23:J2(3(1)):H1216:J039&H:I1519:I:XX(1):XX0.5ĺ"-":JJ1':6(J2(3(1)):H1216:J042)H:I1923:I:XX(1):XX0.5ĺ"-":JJ+":II%(2)II%(2)1:II%(3)II%(3)1(;:II%(3)023AII%(1)(6(1)):IY0.35(1):II%(1)29,30,31,32,33:8:13:613:18:613:23:613:18:6 13:23:6!18:23:6:V8IIII0.6:13$"II%(1)(4(1)):IY0.63 = II%(2)3(20IY):II%(3)0:H1216:II%(2)021 H:I1518:I:XX(1):XX0.5ĺ"+":II%(2)II%(2)1:II%(3)II%(3)1  :II%(3)018  II%(2)3(20IY):II%(3)0:H1216:II%(2)026"H:I2023:I:XX(1):XX0.5ĺ"011M H:I1518:I:XX(1):XX0.5ĺ"+":II%(2)II%(2)1:II%(3)II%(3)1S e :II%(3)08k II%(2)3(20IY):II%(3)0:H812:II%(2)016 H:I2023:I:XX(1):XX0.5ĺ"+":II%(2)II%(2)1:II%(3)II%(3)1  :II%(3)01PSE BY '-'; THE CENTER OF THE VOLCANO IS MARKED WITH A 'V' IN THIS MAP.":12:19:"V":II%(1)(412(1)) 20:"THE FASTEST SWELLING AVERAGES ABOUT":" ** ";II%(1);" ** MILLIMETRES PER DAY.":49 II%(2)3(20IY):II%(3)0:H812:II%(2) THESE CHANGES MAY"::"INDICATE MOVEMENT OF MAGMA WITHIN THE" :"VOLCANO.":II%(1)(8.9(1)):23:16368,0:GT$;:C1$:(1):51::"THE RESULTS OF THE TILTMETER SURVEY OF":" ";B$;" ARE SHOWN BELOW.":28s 3:1:"SWELLING IS SHOWN BY '+', COLLATILTMETER SURVEY FOR"::"ONE OF THE VOLCANOES OF WRANGELIA."::"VOLCANOLOGISTS USE TILTMETER SURVEYS"> :"TO DETECT SWELLING OR COLLAPSE OF"::"VOLCANOES (LIKE THAT OBSERVED AT MT."::"ST. HELENS JUST BEFORE ITS BIG ERUPTION"::"OF 18TH MAY 1980).#43699,0::"CLOSE":::87F(XS)0.980.0018XS0.01((1)):A(XS)6((1))13(XS80)(XS80)(62(0.882.85(ABXS))56(0.952.15(AAXS)))B(XS)0.720.0015XS0.02((1)):C(XS)0.95(1.5E5)XSJg :3:"LET'S LOOK AT A      ԗ  #  #     # #8Hb8  +,hh0hԗS .@ˮ`T:48:0:HV:QX:48:32G 49:0:HT2:QU:48:Y:HV:QX:48:32: 49:A$" ":HT:QU:46:A$D$:HH1:46:32:49:A$E$:HT:46:A$" ":HV:QX:46:32:49:A$" ":HT1:QU:46 A$D$:HV:QX:46:32:F$C$(I):C$(I)C$(J):C$(J)F$:  !WETE"W$:"OPEN"W$:"WRITE"W$:"FP":"RUN"X$:"CLOSE"W$:"EXEC"W$:s:6:,"HOPE YOU HAVE ENJOYED"R$,"WINDOW" COPYRIGHT (C) 1983 WINDOW, INC. /22K$"D"25=K$"B"Z$"CONTENTS":X$"@@HELLO":23MK$"C"16WZ$X$K1(X$):K767,((X$,K,1))::K767,13:X$"FLOP"::12:6::" PLEASE WAIT -- NOW LOADING "R$:19(Z$)2:" "Z$" "::34,23:E:"OPEN"W$:"DEL:4:32,5:,"WHAT NEXT?"R$R$R$"A) RESTART THIS PROGRAM"R$R$"B) RUN CONTENTS TO CHOOSE ANOTHER"R$" PROGRAM"R$R$"C) GUIDED TOUR THROUGH WINDOW"R$R$"D) EXIT FROM WINDOW":18:,"WHICH ONE?":K$:K$"A"X$"VOLCANOES 1":Z$"VOLCANOES (INTRODUCTION)":::24576:PA01750: 16301,0:21:" THE VOLCANOES WILL SLEEP NOW,":7:"UNTIL YOU VISIT US AGAIN!":PA04300::::X$"VOLCANOES 2":Z$"VOLCANOES (END)":2223:16368,0:GT$;:C1$:(1)::X$"SAD SOX":::255:R$(13):W$"RESET"OULD GO"::"AWAY.":14:12 "YOU WERE UNHORSED IN YOUR SECOND JOUST,"::"BUT DID VERY WELL FOR A BEGINNER."::"YOUR DOCTOR SAYS YOU CAN DO WITHOUT THE"::"CRUTCHES IN ABOUT THREE WEEKS.":14 O$;"BLOAD UNPACK,A$6000":O$;"BLOADEND.PIC,A$4000":OURNA-"::"MENT IN ARBOL CREEK. YOU MAY COMPETE IN"::"THE JOUSTS, BUT TAKE CARE -- THE A.M.S."::"HITS HARD.":14:II(1):II0.511 "YOU DECIDED TO TRY COMBAT ON FOOT WITH"::"SWORD AND SHIELD, AND WISH THAT THE"::"RINGING NOISE IN YOUR EARS W BAD! YOU LOST AT THE CASINO, AND"::"NONE OF YOUR FRIENDS WILL LEND YOU ANY"::"MONEY. FLEX YOUR TOE MUSCLES, TAKE TWO"::"ASPIRINS, AND PLUNGE INTO YOUR WORK.":14:12 "THE AFRINGHAM MEDIEVAL SOCIETY INVITES"::"YOU TO JOIN THEM AT THEIR GRAND TEVILLE"::"AWARDED YOU A WEEKEND AT CAMASPORT'S"::"FAMOUS CASINO. ALL EXPENSES (EXCEPT"::"GAMBLING LOSSES) PAID. HAVE A BALL!":14:II(1):II0.58 "YOU WON BIG AT THE CASINO! GO FOR A"::"VACATION TO THE COSTA BRAVA IN SPAIN":14:12 "TOO TREE!"::"WHAT A VIEW!":14:12 "YOUR SLIDES ARE SUPERB! BUT PERHAPS"::"YOU HAVE SHOWN THEM TOO OFTEN --"::"YOUR FRIENDS WINCE WHEN YOU SHOW UP AT"::"PARTIES WITH YOUR PROJECTOR UNDER YOUR"::"ARM.":14:12 "THE YOUNG WHIGS CLUB OF GEORG"THE MANAGEMENT OF WOLFRIDGE WILDLIFE"::"PARK WANTS YOU TO TOUR THE PARK AS"::"THEIR GUEST. BRING YOUR CAMERA!":14:II(1):II0.55! "ON YOUR SECOND DAY AT THE PARK, A FLAT"::"TIRE AND A CURIOUS LION COMBINED TO"::"PUT YOU 'ON TOP' -- OF A :43699,0::"CLOSE":::W$"RESET":"CLOSE":::15:"WHEN YOU DO A GOOD JOB PREDICTING"::"VOLCANIC ERUPTIONS, YOU GET MESSAGES"::"IN YOUR ELECTRONIC MAILBOX."::"HERE'S WHAT THEY LOOK LIKE:":14XX(1):II%(3(1)0.15):II%6,9        R Z .@٠Π׮`>(              #!!!!  #8 \0?\hgH0h>  AG = 1 STOP IF :LR > 0 REPEAT 2 [FD :LR LT 90 FD :SCALE LT 90] MAKE "COUNTER :COUNTER + ( :LR / :SCALE ) MAKE "HOLD "'' PR.COUNT MAKE "VERT :VERT + :SCALE END TO PR.COUNT CURSOR 0 20 .DEPOSIT 34 0 INV PRINT1 ['' COUNTER ''] NORM ( PRINT [' '] FIND :F PRINT1 [ENTER A NUMBER.] OP CALL END TO READNUM MAKE "CA CALL MAKE "CA FIRST :CA TEST NUMBER? :CA IFT OP :CA IFF PRINT1 [ENTER A NUMBER.] IFF OP READNUM END TO SQ REPEAT 4 [FD :SCALE LT 90] FD :SCALE END TO REMAIN IF :LR > 0 ESTIMATE? IF :FLЍЍ!34,23:dP:"OPEN"L$:"DELETE"L$:"OPEN"L$:"WRITE"L$:"FP":"RUN"N$:"CLOSE"L$:"EXEC"L$:Q:6:,"HOPE YOU HAVE ENJOYED"K$,"WINDOW"A"ĬJH$"D"81>KH$"B"M$"CONTENTS":N$"@@HELLO":78jLH$"C"N$"@@PRELUDE":M$"PRELUDE":78xM72:M$N$NK1(N$):K767,((N$,K))::K767,13:N$"FLOP"O::12:6::" PLEASE WAIT -- NOW LOADING "K$:20(M$)2:" "M$" "::"2"G2F/G::255:K$(13):L$"RESET"H:4:32,5:,"WHAT NEXT?"K$K$K$"A) RESTART THIS PROGRAM"K$K$"B) RUN CONTENTS TO CHOOSE ANOTHER"K$" PROGRAM"K$K$"C) GUIDED TOUR THROUGH WINDOW"K$K$"D) EXIT FROM WINDOW"I:18:,"WHICH ONE?":H$:H$"YOU MAY CHOOSE:"::3)"1 - FLIP FLOP"::3)"2 - SHORT SORT"::3)"3 - YOUR SORT":vA3)"4 - RETURN TO WINDOW":B15:1:958:16368,0:"WHICH? (1, 2, 3, 4) 1"(8);:J$:J$:(J$"1"J$"4")J$(13)66CJ$"4"71DG1:J$"3"G3EJ$LORED BLOCKS (C) C"(8);:I$:I$:I$"C"I$"N"I$(13)ĺ(7):57U:I$"N"D1[;p<(16384)127ı=16368,0:(16384)21LL10:L0L0:(7);>(16384)8LL10:L100L100:(7);?U@::3:10)"BUBBLE SORT OPTIONS"::"HAN 2"p6:"BUT ";::"NOT LARGER";::" THAN "B".":::"YOUR NUMBER PLEASE: ";G$:F(G$):F3FBĺ(7):537FF1:E(40((FA)1)):8::10:D0:"YOU CAN SORT NUMBERS OR COLORED BLOCKS.":E912:1:958:16368,0:"PICK NUMBERS (N) OR CO.H:Q:A$;:#/H:Q::A$;::G0H,Q:H1,Q:H,Q1:H1,Q1::T1G1İ51Z2324:1:958:16368,0:7:"PRESS ANY KEY TO CONTINUE ";:H$:45::5:"ENTER NUMBER OF ITEMS TO SORT:":::"THE NUMBER MUST BE ";::"LARGER";::" T23:1:958:10:"DO IT AGAIN? (Y,N) Y"(8);:G$:G$"Y"G$(13)6X)G$"N"ĉ::1*21:1:868:4::"PLEASE ANSWER YES (Y) OR NO (N)"::40+,21:1:868:"WEIGHTS":I16:CA(I):HI52:45:I:-C:H,38:H1,38:H2:21:I;:1L:A1W1:60:: "0 #DYT,U):ZV,X)I $DD$C$(I):E$C$(J) %1:23:868:"LOOKING AT "I" AND "J::W15:0:HT:QU:48:Z:HV:QX:48:A11M: &Y:HT:QU:48:0:HV:QX:48:A11M::W:Y:HT:QU:48:Z:HV:QX:48: 'E(Ů```N#$                                #80&N  $$z  hNgTHhN0$S .@!! MAKE "L INTEGER ( :LENGTH / :SCALE ) MAKE "LR ( REMAINDER :LENGTH :SCALE ) MAKE "W INTEGER ( :WIDTH / :SCALE ) MAKE "WR ( REMAINDER :WIDTH :SCALE ) MARK.W1 RT 90 MARK.L1 RT 90 MARK.W2 RT 90 MARK.L2 RT 90 END TO SET.VARIABLES MAKE "COUNTER 0 MAKE60 MAKE "LENGTH 120 STOP IF :SIZE = "S MAKE "WIDTH 48 MAKE "LENGTH 60 STOP IF :SIZE = "M MAKE "WIDTH 48 MAKE "LENGTH 84 STOP MAKE "WIDTH 120 MAKE "LENGTH 108 END TO RECTANGLE :WIDTH :LENGTH ST REPEAT 2 [FD :WIDTH RT 90 FD :LENGTH RT 90] END TO MARKS ALE 20 STOP IF :EX = "N MAKE "SCALE 24 STOP EXACT.FIT? END TO SET CLEARTEXT IF ALLOF :EX = "Y :SIZE = "S MAKE "WIDTH 40 MAKE "LENGTH 80 STOP IF ALLOF :EX = "Y :SIZE = "M MAKE "WIDTH 80 MAKE "LENGTH 120 STOP IF ALLOF :EX = "Y :SIZE = "L MAKE "WIDTH 1E RC IF ( ANYOF :SIZE = "S :SIZE = "M :SIZE = "L ) CLEARTEXT STOP FLOOR.SIZE END TO EXACT.FIT? CURSOR 0 20 PRINT1 [WOULD YOU LIKE THE TILES TO FIT THE ' ' FLOOR EXACTLY? ' ' (Y)] CURSOR 24 22 PRINT1 [(N) ''] MAKE "EX RC IF :EX = "Y MAKE "SCG RC IF ANYOF :AG = "Y :AG = "N STOP AGAIN? END TO ST.PT PU SETXY ( :HORIZ ) ( :VERT ) PD SETH 0 END TO FLOOR.SIZE CURSOR 0 20 PRINT1 [CHOOSE A FLOOR SIZE: ' ' (S)MALL] CURSOR 25 21 PRINT1 [(M)EDIUM] CURSOR 25 22 PRINT1 [(L)ARGE ' '] MAKE "SIZOSIT 33 19 .DEPOSIT 32 20 PR [] ST.PT RECTANGLE :WIDTH :LENGTH MARKS SET.VARIABLES ROW :COUNTUP MAKE "A2 COMPUTE :LENGTH :WIDTH :SCALE AREA.IS :A2 END TO AGAIN? CURSOR 0 20 PR [WOULD YOU LIKE TO PLAY AGAIN? (Y)] CURSOR 30 21 PRINT1 [(N)] MAKE "AZE EXACT.FIT? CLEARTEXT SET RECTANGLE :WIDTH :LENGTH MARKS SET.VARIABLES ROW :COUNTUP MAKE "A1 COMPUTE :LENGTH :WIDTH :SCALE CURSOR 0 23 AREA.IS :A1 END TO AREA2 MAKE "HORIZ 10 MAKE "VERT ( - 50 ) SECOND CLEARTEXT CURSOR 0 20 AREA.IS :A1 .DEPLEARTEXT AREA1 .GCOLL .DEPOSIT 34 0 CONT 32 CLEARTEXT AREA2 .DEPOSIT 34 0 CONT 10 CLEARTEXT .DEPOSIT 33 40 .DEPOSIT 32 0 CLEARTEXT AGAIN? IF :AG = "Y AREA ELSE CLEARTEXT END TO AREA1 MAKE "HORIZ ( - 132 ) MAKE "VERT ( - 50 ) HT ST.PT FLOOR.SI TO TITLE CURSOR 12 9 PR [--------------] CURSOR 13 10 PR [TURTLE TILES] CURSOR 12 11 PR [--------------] CURSOR 12 15 PR [BY ANGIE FERRIS] CURSOR 5 21 PR [COPYRIGHT (C) WINDOW, INC 1983] END TO AREA ER NAMES .GCOLL NODRAW TITLE CONT 32 DRAW C"""""""""      膢 ȱ " <67 L  8ij v vo>