' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  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(#*!!.<,$94>94="4; +,E!r ; $ Hh Լ ռ ռ ռ`HJ>݌h Hh݌`DF DF /L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD#LHH`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  L IH  /L$L X 췩|뷍  ,LǠŠӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\ IOÌȌ`W ԧ H h@ [_ /QIb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 We)n `@-eff L f`L  tQLѤLנè` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]L iõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@ ,\Z[PRN,XɄOɊRQF(0Bhhhw4h/ ^0(p ߩRP1Q ɿ, P\L˵B̵C8pB߮Z\  յյ\BIR Z-^ Jp\IZLL-p  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD / ߼ / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` Bl şL/Ơĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH x(`# d Lez# u`71'7 X(131@eR7Hh31%3H; $40500L:( 11%4H(17154H{ 5D1%R3@\l $7105630L;0,05;9򹸶w39390(0 t0880808,W,R,PLPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP((((((((((((((((((((((((((((((((?;73/+'#?;73/+'#>:62.*&">:62.*&"=951-)%!=951-)%!<840,($ <840,($ ?;73/+'#?;73/+'#>:62.*&">:62.*&"=951-)%!=951-)%!<840,($ <840,($ ?;73/+'#?;73/+'#>:62.*&">:62.*&"=951-)%!=951-)%!<840,($ <840,($ mmi`ɓ i i Jmi  1  8 ӥm imim i m  i L m im iթ L0 m i`  ii L`  t    0"ש| X0 =Ю`| X0L  ) q`,K    X0|  X`dw(ي;@DINRW\`ejr5~Anprtuwy{}~;은>""">""""" "">>" ""22*&&">>&">>""""">"""***>>&&&""">""2>&&&"" !"#$$%%&&%%$#"!  !"#{wrnjgdb`_^]\\\[[ZYXWVUTROLIEA<60+'$" ""$$$$$$$$$$$$$$    L@y@3f@F` L3F9@y@@A6@L` L F9@paCA6@XpN CCy@88GaC@X0FCCYA0FaC@p88GcFAYApN1c@`paCcFAC` L1c@`y@@3f@F` L3@@y@K@@~@S*U*U<@yW*U*U`@V*U*U`@,@ ``,@``,@``,@``,@0`0,@0`0 @0@0 @0@@0@@0@@0@ @0@ @00@00@0@`@@`@`@`@0@`@@@@  @@@ `@@ ``@@ 0`@@|0@@@0@@ <@@ `@P``+U*Up`+U*U0x``|p`~ p@`x@`x``|0`~0 00 0@00 0`?`` p?@`@8|?@@p|@@@ x@8 x@0` x``xp`x> x`x~xpp|0|pp|`~ppxGF8px0p 0` 0@C_ 8a|,1,}1,U*U*U*} .U*U*U*u #U*U*U*E`px`@@~@S*U*U<@yW*U*U`@V*U*U`@,@ ``,@``,@``,@``,@0`0,@0`0 @0@0 @0@@0@@0@@0@ @0@ @0 0@00@0@`@`@@`@@`@`@@ 0@@@ @@@  `@@ 0@@ 0@@ @@ < @@`@P@`+U*U0``+U*U0p``xp `> p @`x @`x``|0`<0 0>00?000@0`00@`@p``@``~p@p p@p@p```>@`~``| @p`|@x`x0`px`000pA00`8@@@8?` @,?00 @,=`@&U*U*U*= @&U*U*U*u#U*U*U*Ep|?`@@~@S*U*U<@yW*U*U`@V*U*U`@,@`@,@`@,@ `@,@ `@,@ ``,@ `` @@` @@0@@0@@0@@ @@ @ 0@ 0@ 0@ 0@ `@ `@ `@ `@ C`@ @A`@ @a`@ ```@ 00`@ 0`@ <`@` `P@`*U*U0`p*U*U0pp`|p @?@p @@@8 `@80@8` `000000p00``@`@?@`p@@ @``p@`@@p> `p<pp|0xxx`8x@@98p@8``,`<`,@0@,`q1@,?0@@&=@&U*U*U*}#U*U*U*ep!U*U*U*|p@@~@S*U*U<@yW*U*U`@V*U*U`@,@`@,@`@,@`@,@`@,@ ``,@ `` @ @` @ @0@ @0@ @0@ @@ @@ 0@  0@  0@  0@ `@ `@ `@ `@ C`@ @A`@@a`@```@ p0`@ 00`@ 0`@0 `P8`*U*U08`*U*U0``0 @@0 @`@0 p@08@0` `0000 00`0 0`@? `@x`@@0` @ @@ 0`@`p`0@x```@@08@0|`8w`8 `a1,0@1&5&U*U*U*u#U*U*U*Ep!U*U*U*|p@@~@S*U*U<@yW*U*U`@V*U*U`@,@`@,@`@,@`@,@`@,@ `@,@ `` @ @` @ @`@ @0@ @0@ @0@ @0@ 0@ 0@ 0@  0@  `@ N`@ F`@ G`@g`@@c`@@3`@`3`@``@p`@x`@ |`P `*U*U `*U*U@@``@0 0p@0 00@0 `@0@@0@`00`0p`00`00 00>0`0p1``@@@    8x`pp@00px`0```0@`0``0`<`8`~0,@s1,`@1&50#U*U*U*e@!U*U*U*Ep U*U*U*|?p@@~@S*U*U<@yW*U*U`@V*U*U`@,@`@,@`@,@`@,@`@,@ `@,@ `` @ @` @ @`@ @0@ @0@ @0@ @0@ 0@ 0@ 0@  0@  `@ N`@ N`@ G`@g`@@g`@@g`@`'`@``@p`@x`@ |`P ~`*U*U `*U*U@A``@` 0p@` 00@0 `8@0@@0@`00`0p`00`000 000|10`8`0`p0@p0`0@0< ?@>>`3 ~p@! 0xx` `p8` @`0 `0 <`8|~`8s1, C1,5@&U*U*U*5`'U*U*U*e0p#U*U*U*E=|p@@~@S*U*U<@yW*U*U`@V*U*U`@,@`@,@`@,@`@,@`@,@ `@,@ `` @ @` @ @`@ @0@ @0@ @0@ @0@ 0@ 0@ 0@  0@  0@ N`@ N`@ G`@g`@@c`@@c`@`#`@``@p0@p0@ x0P |0*U*U >0*U*U@?@0`@0 0p@0 00@ `8@@@@`8` 0`0p00 `00?`8x`p@@p@`@@`@p @x>`p 8pp 0p8p ``p @` 0X00x088>081w,5c,e@&U*U*U*Ea'U*U*U*E9p#U*U*U*|p@@~@S*U*U<@yW*U*U`@V*U*U`@,@`@,@`@,@`@,@`@,@ `@,@ `` @ @` @ @`@ @0@@0@@0@@0@0@0@0@  0@  `@ `@ `@ C`@c`@@a`@@a`@`!`@``@`0@00@ 00P 0*U*U 0*U*U@0@@00`@000@`0`0@`0@`0` 000 `00 ` `8 `@ @0> @`x @` @   @ @ 8`0p@008``0p0@0 0` 0@8? 8 s,@a,5`&U*U*U*e1'U*U*U*E`#U*U*U*|xp?`@@~@S*U*U<@yW*U*U`@V*U*U`@,@`@,@`@,@ `@,@ `@,@ `@,@ `` @ @` @@`@@0@@0@@@@@0@ 0@ 0@ 0@ `@ `@ @`@ @A`@ ```@0``@``@< `@``@@0@`0@ `0P 00*U*U 0*U*U @0@00@@00`@`0`0@0`0@`0` 00 `00 ` 0` `@@ @0 `x@@`@ @`  @p @p8 0``xpp`p0x8`p`X``@ 0@ 0?8{8@a,=@,5`&U*U*U*e9'U*U*U*E`#U*U*U*|xp?`@@~@S*U*U<@yW*U*U`@V*U*U`@,@ `@,@ `@,@ `@,@`@,@``,@`` @@0 @@0@0@@0@@0@ @0@ @00@00@00@00@0@`@``@0`@@`@``@@`@@ p0@@ @@ <@@ p@@@@@ ``P p`*U*U xp*U*U<@p@80@@80`@`p`0@0`0@`0`@00``00`` 0p` `p@@ x@0 |`8|@p| `x  @x `p8 8`pxxppp0|8pp?`|p`Cv 0@F 08~{8}Aq,}A,ua&U*U*U*e;'U*U*U*E`#U*U*U*|xp?`~~~~~~@~@~@~@~@~~~~~~~~~~~~~~~|~x~x~x~x~x~xxx?|?|?|?~?~?~?~?~@@@`?`?ppxx||||||?~~~~~@~@~@~@~@~@~~~~~~~~~~~~~~~|~|~|~|~|~|~|x|?~?~?~?~?????@?@?`?`?p?p?p?xxx||||||||?~~~~~~@~@~@~@~@~~~~~~~~~~~~~~~~~~~~~~~~~~~~x~~?~????@?@?@?`?`?`?p?ppxx||~~||||||?~~~~~~@~@~@~@~@~~~~~~~~~~~~~~~~~~~~~~~~~~~~x~????@?@?@?`?`?`?pppxxx||||||?|?|?|?~~~~~~@~@~@~@~@~~~~~~~~~~~~~~~~~~~~~~~~~~~~x~?????????@@@@@@@`pxx|~|||||?~~~~~~@~@~@~@~@~~~~~~~~~~~~~~~~~~~~~~~~~~~~x~?~?~????????? ||||||~~~~~~@~@~@~@~@~~~~~~~~~~~~~~~~~~~~~~~~~~x???@?@?@?`?`?p?p?p?ppxxxx|||~||||||~~~~~~@~@~@~@~@~~~~~~~~~~~~~~~~~~~~~~~~~~x???@?@?@?`?`?`?`?```````````|||||?|?~~~~~~@~@~@~@~@~~~~~~~~~~~~~~~~~~~~~~~~~~x???@?@?@?@?`?`?`?pppxxx||||~||||?|?|?~~~~~~@~@~@~@~@~~~~~~~~~~~~~~~~~|~|~|~|~|~|x~???@?@?`?`?`?`?`?pppxxx||||~||||?|?|?@ *P*U *U*T (U*P*U* UU @*U*U*T*U*U U*U*T*U*P*U* U U (U U**U *U*U (UP*U*U*@*U*U(U@*P*U*U@*U* U@*U*U*U( UP*U*U U*U*U(U*U* U*U*T*U(( U**U*P*U@*U*U@*U*U*U*(T*U**@PU*(U*T*U*T*U(U*@** U*U*U(U*U*@*U*U*U*U U*@*@**P*P*UU*T*U*T*(U*U*U@ U*U*P*@ U*U* U*@*U*U*U*T P*(U*U*@*U*U*T*U*U@*U*U*U*T*TP*U*T*U U* U*U*U**U*U*UP(U*U U @@~@S*U*U<@yW*U*U`@V*U*U`@,@`@,@`@,@`@,@`@,@ `@,@ `` @ @` @ @`@ @0@ @0@ @0@ @0@ 0@ 0@ 0@  0@  `@ N`@ F`@ G`@g`@@c`@@3`@T`3`@JT 1JK1:C(J1)3!RC13RERE1:RE15JJ1:J1KG!RJ1:RE15JKX!R:::20040!R:::255:R$(13):A$(4):W$"RESET"!R4:,"WHAT NEXT?":32,5:R$R$"A) RESTART THIS PROGRAM"R$R$"B) RETURN TO CONTENTS TO CHOOSE"R$" ANOTHER PROGRAM"X"RRāJ1U:U$(J):1 R(4);"CLOSE POINTER FILE":Q R:(4);"OPEN POINTER FILE"o R(4);"READ POINTER FILE" RLM:RM:TM:BM:PR:HI:E:KK:JJ:Z$:GG:U:U0āJ1U:U$(J): R(4);"CLOSE POINTER FILE": RA$"":RE0:KJ300:KJJKJJ!RJ::"#2 CLICKER.";14);"#5 FLASHING."::"#3 LINE AT A TIME.";7);"#6 SOUND."XRF$"PRESS ANY KEY TO RESUME PRESENTATION":20780:N$:S:bR:(4);"OPEN POINTER FILE"lR(4);"WRITE POINTER FILE" vRLM:RM:TM:BM:PR:HI:E:KK:J:Z$:GG:U:U0P SENDING THE PRESENTATION TO THE PRINTER."DR:"? PRESS THE '?' KEY TO SEE THIS HELP PAGE.":::" THE FOLLOWING NUMBER KEYS CHANGE THE WAY TEXT APPEARS ON THE SCREEN:"MNR:"#1 NORMAL.";15);"#4 INVERSE." FOR SLOWER PRESENTATION."NRF$"PRESS ANY KEY FOR MORE HELP":20780:N$i&R::"HELP PAGE TWO":0R:"C PRESS THE 'C' KEY TO START SENDING THE PRESENTATION TO THE PRINTER."E:R:"D PRESS THE 'D' KEY TO STOING ANY KEY RESUMES THE PRESENTATION."vQ:"B PRESS THE 'B' KEY TO BACK UP THE PRESENTATION."R:"--> PRESS THE '-->' (RIGHT ARROW) KEY FOR FASTER PRESENTATION."R:"<-- PRESS THE '<--' (LEFT ARROW) KEY RESET PRESS THE 'RESET' KEY AT ANY";12);"TIME TO LEAVE THE PRESENTATION YOU ARE NOW WATCHING.":/Q:"CTRL S HOLD DOWN THE 'CTRL' KEY AND THEN PRESS THE 'S' KEY TO PAUSE IN THE PRESENTATION. AFTER THIS, PRESSV2:V10:34,V1:35,V11GQH10:32,H1:33,1:TTH3H2TTH3H2SQI1TTmQV(34):VV2Ĺ34,V1QV(35):VV3Ĺ35,V1QH(33):V(32):VH2Ĺ32,V1:33,H1QH(33):V(32):H(H3H2)I(H3H1)Ĺ33,H1Q:::lQ255::::"384)127Ė1:868:I101::(^Q:20790^hQVT(((D$,2))):HT(((D$,2))):VT0VT25Ģ(VT)trQHT0HT41Ė(HT)|Q:::JK2:20090QV1((D$,2,2)):V2((D$,6,2)):V3((D$,10,2))QH1((D$,14,2)):H2((D$,18,2)):H3((D$,22,2))QTTV3 A PRINTED COPY ?":20780:N$:N$"Y"ĩ255:BQ:(4);"PR#1":W"Q:(4);"PR#0":n,QHT((40(F$))2)6Q23::868:HT:F$;@QI02000:(16384)159Ė1:868:I2002::JQTQ23::868:10::"PLEASE MAKE A CHOICE";::I0100:(16N$::&PC$"M"F$D$:20780:N$:pPC$"C"F$"WOULD YOU LIKE A PRINTED COPY?":20780:N$:N$"Y"İ20760PC$"T"İ20730PC$"?"İ20970PC$"D"İ20770PPK0(D$):(16384)127K(D$):16368,0Q::-QF$"WOULD YOU LIKE<K$"A"27=K$"B"63(>:58X?:6:,"HOPE YOU HAVE ENJOYED"E$E$,"WINDOW""":9:::255:54915:4:,"WHAT NEXT?":32,5:E$E$"A) RETURN TO CONTENTS TO CHOOSE"E$" A PROGRAM"E$E$"B) EXIT FROM WINDOW":32,0:16:,"WHICH ONE?":K$:K1H$" ";K$"A"ė::A:A:"RETURNING TO CONTENTS"::LL1ĺD$;"RUN CONTENTS WINDOW"G6(G$(Q,0),2)"@@"G(G$(Q,0))2:L$(G$(Q,0),G):47:F$;"RUN ";L$`7(G$(Q,0),1)"@"Ā8G(G$(Q,0))1:L$(G$(Q,0),G):47:F$;"DELETE RESET":D$;"OPEN RESET":D$;"WRITE RESET":"LOAD";L$:"EXEC OUTSIDE RESET":D$;"CLOSE RESET":D$;"EXEC RESETV1.3 JULY 27, 1983 L 43699,0:(4);"CLOSE":54915:(75)2Ĺ75,0l 74,1:(4)"BLOADR":30000d:R$(13):D$R$(4)::," WINDOW"R$,"ON LEARNING":1030:" MAY 1982";:28:"VOL. 1 NO. 1":1030:34,7:N(75)1:N255N255 eN120,300,      8,E14,H20,S00,E39 !HV19,05 IF THE OCEAN IS DOWN HERE... !HV04,01 THEN INSTRUCTIONS AND QUESTIONS CAN !EE6 !HV07,08 BE HERE !HV10,17 OR HERE. !HT100 !HN !EE3 !HV10,12 WE CAN BEGIN WITH: !HT50 !HN !HV01,12 CATCH THE FISH!!! !HV04,19 BY !HV07,14 RICKY CARTER TE THE REST OF THE PROGRAM. THIS OFTEN ELIMINATES, OR REDUCES, THE NEED FOR DETAILED INSTRUCTIONS. AND !HV19,06 IT SHOULD NAME THE PROGRAM AND THE AUTHOR(S). !HP !HV10,04 FROM THE VERY BEGINNING, WE NEED TO THINK OF HOW WE USE THE SCREEN. !HT30 !HHV11,S0EE1 !HV10,04 THERE ARE AT LEAST THREE SEPARATE FUNCTIONS OF THE OPENING SCREEN: !HT50 !HHV11,S08,E14,H20,S00,E39 !EE6 !HV05,03 1) !HV10,03 2) !HV19,03 3) !EE3 !HV05,06 IT MUST BE ATTRACTIVE, TO ENTICE SOMEONE TO USE THE PROGRAM. !HV10,06 IT SHOULD ANTICIPA"PRINT" STATEMENTS). !XXEXECFISH3 !HN PROGRAMS ARE EASIER TO USE IF THE SCREEN IS CONSISTENT. IN 'CATCH' THE OCEAN APPEARS IN DIFFERENT PLACES, AND, FROM THE OPENING SCREEN, THE TEXT IS OFTEN PILED TOGETHER. !XRRUN 01000 !HT300 !EE4 !HN OPENING SCREEN !CS AND SCREEN CONTROL !EE3 !SP1 MOST MICROCOMPUTING PROGRAMS ARE GRAPHICS AND SCREEN CONTROL PROGRAMS. FORMULAS IN THE PROGRAMS ARE NECESSARY, BUT THEY ARE A SMALL PART OF THE ACTUAL PROGRAM (MORE THAN HALF THE LINES IN THE ORIGINAL "CATCH" ARE SIMPLE ES ARE REFLECTED IN THE FOLLOWING LISTING. THE ONLY CHANGE IN THE RUNNING OF THE PROGRAM IS THE EXTERMINATION OF THAT (UGHH) BUG. REMEMBER YOU MAY USE !EE5 !HV17,10 "CONTROL S" !EE3 TO START AND STOP THE LISTING. !XLLIST 01000,10000 !EE4 IV. GRAPHI. SCREEN PROTECTION !HV05,01 1000 HOME !EE3 BECOMES !EE5 !HV05,06 TEXT:NORMAL:SPEED = 255: HOME !EE3 !HHV08,S06,E09,H03,S03,E20 !HV11,01 THIS PROTECTS THE PROGRAM, ENSURING THAT NO PREVIOUS INSTRUCTIONS DISTURB THE SCREEN CONTROL. !HP THESE CHANG= 100: GOSUB 9000 !HV05,01 6000 PAUSE = 500: GOSUB 9000 !EE3 !HP WHILE THIS DID NOT SAVE A WHOLE LOT OF TYPING, IT IS CLEANER, AND NOW WE CAN EXPERIMENT WITH DIFFERENT WAITING TIMES JUST BY CHANGING THE VALUE OF "PAUSE". !XXEXEC FISH2 !HW0 !HN !EE4 IIIARIABLE: "PAUSE". !EE5 !HV07,18 PAUSE !EE3 !HV14,23 NOW, ALL THE WAITING CAN BE COORDINATED. HOWEVER, WHEN WE USE THE WAITING SUBROUTINE WE NEED TO GIVE THE VARIABLE "PAUSE" A VALUE. THUS, !EE5 !HV01,01 1310 PAUSE = 500: GOSUB 9000 !HV03,01 1370 PAUSE EXT I !EE3 !HV15,03 AND ONE WAITING SUBROUTINE: !EE4 !HV07,01 9000 FOR I = 1 TO 500 : NEXT I: !HV08,05 RETURN !EE3 !HV18,01 SUBROUTINE 9000 IS CALLED ONLY ONCE: !EE4 !HT30 !HV05,01 6000 GOSUB 9000 !EE3 !HT150 !HN WE CAN MAKE 9000 MORE GENERAL BY USING A V6 I !HV10,19 N !HV11,22 G !EE1 !HV16,01 IT ALL DEPENDS ON HOW IT'S HANDLED. !HT100 !HN !HW9 !EE6 !HV09,16 * * * * * !EE3 THERE ARE TWO SEPARATE WAITING ROUTINES IN THE PROGRAM: !EE4 !HV01,01 1310 FOR I = 1 TO 500: NEXT I !HV03,01 1370 FOR I = 1 TO 100: N 469 PLEASANT STREET?& WATERTOWN, MA 02172HI:21130::(4)"BLOAD"Z$",A"HI:(4)"BLOADR":21220274,1:U0āJ1U::(4);U$(J):<::5:12:"COPYRIGHT (C) WINDOW INC. 1982":T1450:T:34,0::20020F(B);: GLLO,38400%SR$A$;"OPEN"W$:A$;"DELETE"W$:A$;"OPEN"W$:A$;"WRITE"W$:" POKE 34,23":"HOME":"LOAD";X$:"EXEC OUTSIDE RESET":A$;"CLOSE"W$:A$;"EXEC"W$:% COPYRIGHT (C) WINDOW, INC. 1982& "RUN"Z$$\SX3840021390D$fSD(X256):E(X(D256)):76,D:77,E^$pSHIX:JX:Z$X$:21090u$zSR$A$;"RUN WINDOW" %SEDITORIAL,36295,WOWZO,33086,@@WINDOW-ON-BASIC,38400,FIX THE FISH,28519,CATCH THE FISH,38400,DIGIT MIX,38400,@@NUMBER DROPPER,38400,HE"D"ė:6:,"HOPE YOU HAVE ENJOYED"R$R$,"WINDOW":>#*S:21230V#4SX$,X:X$Z$21300#>SX$,X:::Z$X$:(Z$,2)"@@"Z$(Z$,((Z$)2))#HS6:12::" PLEASE WAIT -- NOW LOADING "::((39(Z$))2):" ";Z$;" "::34,23:$RSX$Z$ģ38400:R$A$;$"C) GUIDED TOUR THROUGH WINDOW"R$R$"D) EXIT FROM WINDOW":32,0:R$R$R$,"WHICH ONE?":K$"SK$"A"İ21130:JHI:U0:21090:R$A$;"RUN WINDOW"" SK$"B"ė::10:10:"RETURNING TO CONTENTS"::R$A$;"RUN CONTENTS WINDOW""SK$"C"İ21130:213001# SK$!HS255 !EE3 BUT THAT'S NOT ALL . . . !HV08,01 THE WOWZO DISK CONTAINS TWO MORE GAMES: !HV11,15 ELEVATORS !HV13,20 & !HV15,15 QUICK-DRAW !HT150 !HN !HV08,01 BOTH OF THESE EXTRA GAMES WILL ADD TO THE PLEASURE YOU GET FROM THIS DISK. FURTHERMORE, EVERY BE. . ----> !EE6 !HV22,20 $ $ $ $ $ $ $ !EE5 !HV22,20 $ $ $ $ $ $ $ !HT50 !HN !HS200 !EE2 !HV08,01 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 !EE6 !HV13,13 -- !HT50 !EE2 !HV15,15 ONLY $24.00 !HT150 !HN S AND MINIMIZES ONE'S OPPONENT'S OPPORTUNITIES TO MOVE AT ALL. !HT200 !HN !EE2 !HV10,01 GOOD MENTAL EXERCISE ......... !HV14,20 AND !HV16,01 WELCOME RELIEF FROM ARCADE GAMES ! !HT150 !HN !HV10,10 NOW FOR THE BOTTOM LINE . . . !EE7 . . . . . IXING THE FISH... COPY IT... !HV09,10 LIST IT... !HV13,20 PLAY WITH IT... !HV17,20 CHANGE IT, AND... !HV21,05 LET US KNOW WHAT YOU'VE DONE. !HP CING EDUCATORS). AND NOW WE ARE DONE: !SP0 !LM08 - - * * < ! > V !LM01 !EE5 !HV17,09 !HV18,10 !EE3 !SP1 !HP WHEN YOU LEAVE FIX THE FISH, CHOOSE !HV08,16 CATCH THE FISH TO SEE WHAT WE'VE DONE. !HT150 !HN BUT DON'T STOP FOPRIATE LINE. WE COULD PRINT " "S ACROSS THE LINE, BUT APPLE HAS A ROUTINE WHICH DOES THIS FOR US: !EE4 !HV18,16 CALL -868 !EE3 ERASES FROM THE CURSOR TO THE RIGHT OF THE SCREEN. !HP FINALLY, WE ADD LIFE TO THE FISH (SUGGESTED BY BILL GRIMM OF COMPUTER-USGS ! ! ! !EE3 !HV06,03 WHEN THE FISH IS AT THE RIGHT SIDE OF THE SCREEN IT WRAPS AROUND. TURNING THE FISH AROUND SOLVES THIS. !HP WE ALSO CREATED PROBLEMS BY FREEZING THE WINDOW. IT NOW DOES NOT ERASE WHEN WE HOME THE SCREEN. WE HAVE TO ERASE THE APPR";F !EE3 NOW YOU, THE AUTHOR, CAN HIDE THE FISH WHERE YOU WANT. YOU CAN TEST THE PROGRAM, FOR EXAMPLE, BY PUTTING THE FISH AT EITHER END OF THE SCREEN. !XXEXECFISH5 !HN AGAIN WE PROVIDE A LISTING. !XLLIST 01000,10000 !XARUN 01000 !HN !EE5 !HV02,15 MORE BU- HAPPY FACE !EE2 !HV17,10 NO, IT IS NOT. !HHV10,S09,E11,H10,S06,E30 !EE5 !HV10,10 !HV11,09 !EE3 !HV08,30 SAD !HT150 !SP1 !HN WE NEED TO DOUBLE CHECK THE PROGRAM. TO DO THIS WE PUT IN ONE MORE LINE: !EE4 1194 INPUT "HIDE FISH AT AND THE NUMBERS, AND OFFER A SIMPLE CHOICE INSTEAD, FOR EXAMPLE: !EE4 DO YOU WANT TO FISH AGAIN (Y OR N)? !EE3 !HP !SP0 WELL THAT'S IT... !LM07 - - * * < ! > V !EE5 !LM01 !HV10,09 !HV11,10 !HT200 !EE6 !HV08,25 <-- WE CAN CONTROL !HS70 THE SPEED, !HS255 !HT400 THE TIMING, !EE4 !HV02,01 AND THE PLACEMENT !EE6 !HV02,36 ! !EE1 !HT500 !HN !EE4 VI. THE END !EE3 THE REPLAY ROUTINE AT THE END OF THE GAME IS A BIT CONFUSING. IT IS BETTER TO AVOID THE MULTIPLE CHOICE,D THE REST OF THE PROGRAM SO THE OCEAN STAYS IN ONE PLACE. !HV17,05 IT IS IMPORTANT TO REMEMBER ... !HT50 !HN !EE2 !HV02,07 TEXT COMES ON THE SCREEN !EE3 !HV04,11 IN !EE5 !HV06,15 MANY !EE3 !HV08,19 DIFFERENT !EE4 !HV10,23 WAYS !EE6 !HV10,28 ! !EE1 HN !HV17,01 --------------------------------------- !HV22,01 --------------------------------------- !XXEXECFISH4 !HN THE OCEAN IS A PART OF THE INSTRUCTIONS, AND THE OPENING SCREENS NOW WORK LIKE THIS: !HT100 !HN !XRRUN 01000 !HT300 !HN WE HAVE CHANGE,S00,E00 !HV15,01 IN "CATCH" THE OCEAN IS DRAWN, AND ERASED, FOUR DIFFERENT TIMES. WHAT WE WILL DO, IS DRAW IT ONCE, AND THEN FREEZE THE BOTTOM OF THE WINDOW (BY POKE 35,13). !HP !HV10,04 THE OCEAN IS NOW ON THE !HV22,08 BOTTOM OF THE SCREEN: !HT100 !!HV15,01 AND THE OTHER DRAWS A DOUBLE LINE: --------------------------------------- --------------------------------------- !HT100 !HHV04,S03,E04,H39,S00,E39 !HV04,01 WE ELIMINATE THE DOUBLE LINE DRAWING SUBROUTINE (LINES 6995 - 7060). !HHV23,S14,E23,H-1 !HT50 OR PERHAPS, NOW !HT50 !HW6 !HN !HV07,05 RICKY CARTER AND JOHN RICHARDS !HT500 !HW0 !HN !EE4 V. MAKING AN OCEAN !EE1 THERE ARE TWO GRAPHIC SUBROUTINES: !HV08,01 ONE DRAWS A SINGLE DOTTED LINE: --------------------------------------- !HT100 B$::IXX3:Y:I:" ":I:" "::XX4:BSCX2,2Y1)#M1āIXX41:Y:I:T$:5500:I:B$::IX2X11:Y:I:" ":I:" "::XX4:BSCX2,2Y1)#BSC96000#L$"M"MXX:MYY:#L$"G"GXX:GYY:>$dM1āIYY3:I:X:T$:5:XG3:" ";:XG1:" "::IYG2YG2:I:XG:1YGI):K"FLAGı}"L8:I14:P((1)254)1:J15::7000::"9999:23:40:34,19:I3801:32,I:33,41I::::21:1:"|Z15:S(16336)::9#pM1āIXX4:Y:I:T$:5500:I:X:YMY!]255.!bL$"G"B$"GEO":XGX:YGYF!lR$"U"R$"D"6500^!vR$"L"R$"R"6000!255:XG(G100):YGG(G100)100::YG:XG3:" ";:XG1:" "::IYG2YG2:I:XG:1(IYG)):::5015>"255:XG(G100):YGG(G100)100::YGB$"THERE ARE A FEW ASPECTS OF WOWZO THAT DESERVE MORE COMMENT.":9000 9999::18:5:B$"PLEASE WAIT A MOMENT FOR COMMENTS.":B$ :255:(4);"RUN WINDOW" !\R$(M$,1):M12(R$"U"R$"L"):T$"***":B$"***":L$(M$,1):L$"M"T$RE$:XML WOWZO":9000:B$"FEATURES & STRATEGY.":9000q9999:9999:5020:I1120:I:1:868:J150::21I:868:B$"AS YOU CAN SEE, WOWZO IS A VERY WELL- CONCEIVED GAME, WITH ELEMENTS OF SURPRISE AND DELIGHT.":9000H 9999:9999:936:8:;J|23:21:"! ";:RE$;:": - - - - - !";:21:"+------------------";}2039,171:P50:L33:7000::22:35:" C ":7000:29:" M ";:37:" H ":L80:7000:9999:I2124:I:1:20)::21:1:SP.B$"AND RULES OF PLAY":9000:B$"COVERING ALl5020:B$"WOWZO COMES FULLY-":9000:B$"EQUIPPED WITH A":9000:B$" SCOREBOARD ":PR1:9010:B$"-------->":9000:9997:13:B$" ":PR0:9000:255{20:21:"+------------------+";:21:"! =M=A=T=C=H=!";:21:"! GEO: _ _ _ _ _ !""GR":4444:M$"GD":4444=Y5020:B$"POOR GEORGE!!!":9000GZ9999b5020:B$"A PLAYER GETS TO MAKE ONE DIRECTIONAL MOVE ":PR1:9000:B$" PLUS ":9010:B$" ONE GATE MOVE ON EACH TURN. FIRST PLAYER WITH ALL FIVE LETTERS WINS!":9000:PR0:9999:11:20:B$"AND GATE "Q$"O"Q$"^":9000:255::10:31:" O ";:9999J5020::B$"PRESS THE LETTER 'O' TO CHANGE GATE 'O'":B$:AE$KAE$"O"ī590L586N:10:32:"O":G3210:5000S9997:11:17:15)XM$"GL":4444:M$"GU":4444:M$ORGE":9000:17:B$"BY CLOSING GATE "Q$"I"Q$:9000:255:9998::6:36:" ":36:"I":36:" "&5020::B$"PRESS THE LETTER 'I' TO CHANGE GATE 'I'":B$:AD$'AD$"I"ī570(550::7:36:"I":G3607:5010HI11:17:20):12:17:20):SPZE POSITION.":PR1:9000:PR0:9999o 255:Z12:50,63192(Z2):17:33:"=T=";G$:33:"==="::9997:50204:B$"YOUR OPPONENT CAN BE BLOCKED FROM":9000:4:B$"SCORING WITH STRATEGIC GATE CONTROL.":9000:9999`!SP:11:17:B$"YOU CAN TRAP GE:"GOT";G$:MX:"IT!";G$::9997{I13:16298,0:16301,0:16304,0:G$;:::MY:MX::9997:MY:MX:RE$:MX:"***"#5020:B$"THE APPLE RECORDS EACH CAPTURED LETTER IN MEMORY, POSTS IT ON THE SCOREBOARD,":9000:B$"& REPLACES IT IN A RANDOM MA 440(M$"MR":4444:G1616:5000]5020:B$"PRESS THE 'N' KEY TO MOVE UP":B$:AB$oAB$"N"ī448x445M$"MU":44445020:B$"PRESS THE KEY WITH THE '<' TO MOVE LEFT":B$:AC$AC$","ī499449!M$"ML":4444:MY:MX: SPACE BAR TO CONTINUE !HN !HV08,01 LOOK FOR MORE REVIEWS OF BEAGLE BROS. PRODUCTS IN FUTURE ISSUES. !HT100 !EE6 !HV20,20 . . . --> !EE1 !HV20,30 BYE NOW !EE6 !HV20,38 ! !HT100 !HN RINTED COPY OF INFORMATION FOR ORDERING WOWZO.) !HC !HN TO ORDER: WOWZO IS ON: GAME PACK # 2 BEAGLE BROS. 4315 SIERRA VISTA SAN DIEGO, CA 92103 (714) 296-6400 !HD !HMPRESS THEAGLE BROS. DISK HAS A FEW SURPRISES. !HT150 !HN !HV08,01 EACH BEAGLE BROS. DISK COMES WITH A LEAFLET OF GAME DIRECTIONS AND A TIP BOOK FOR LEARNING HOW TO DO NEW THINGS WHEN PROGRAMMING YOUR APPLE. !HT150 !HN (TURN ON YOUR PRINTER NOW IF YOU WOULD LIKE A Pxp      ||      pp@@@@@@@@@@pp@@ xp    Ll||lL    ||0000000000|| <|lL           <|lL      px        C`ppx  LLLL  xp@`p8   ||    ||0000pp0000||@`p8 8p`@||0000000000||||0000pp0000||||0000pp0000||px     @ @``|A~CGFG~C~CGFG~C|A``|A~CGFG~G|GFG@CA@` 0@`@0  `` @`px|~?xxxxxxxxxxp`aGp p`  xqϲӽ̼δн±Ԡɍϲӽ̼δн±ϲϲӽ̼δн±Ԡ±Ԡ¨Ţϲӽ̼δн±ΠϲӫϲαPHHH ii ohhh` Le0/ .L0`hߚHH`ϲӽ̼δн±Ԡɍϲӽ̼δн±ϲϲӽ̼δн±Ԡ±Ԡ¨Ţϲӽ̼δн±Ԡʍϲӽ̼δн±Ԡϲӽ̼δн±ƠɠΠӽ̽´нA$;"DELETE RESET":A$;"OPEN RESET":A$;"WRITE RESET":"FP":L$:A$;"CLOSE RESET":A$;"EXEC RESET":⁗::10:8:" PLEASE WAIT -- NOW LOADING "R$R$," "X$" ":::6:,"HOPE YOU HAVE ENJOYED"R$R$,"WINDOW"CATIONAL SOFTWARE."R$R$"THIS LEARNINGEXEC OUTSIDE RESET":A$;"CLOSE"W$:A$;"EXEC"W$:^):6:,"HOPE YOU HAVE ENJOYED"R$,"WINDOW"R$,"WINDOW"NY$R$,"WHICH ONE?":K$:K$"A"Ľ:24o(K$"B"ė::10:10:"RETURNING TO CONTENTS"::A$;"RUN CONTENTS WINDOW"(K$"C"33070(K$"D"ī33170($:330000).38400:A$;"DELETE"W$:A$;"OPEN"W$:A$"WRITE"W$:"POKE 34,23":"HOME":"LOAD DIGIT MIX":"787,3:788,3:789,96:D'耉:::255:R$(13):A$R$(4):W$"RESET"'4:,"WHAT NEXT?":32,5:R$R$"A) RESTART THIS PROGRAM"R$R$"B) RUN CONTENTS TO CHOOSE ANOTHER PROGRAM""(R$"C) GUIDED TOUR THROUGH WINDOW"R$R$"D) EXIT FROM WINDOW":32,0:R(B$,B,1);"";::(B$,B,1);"";:J12:S(U):::E& 'I1250::a&'I1((1)100)10::t&'I1PAUSE::'}771,173:772,48:773,192:774,136:775,208:776,4:777,198:778,1:779,240:780,8:781,202:782,208:783,246:784,166:785,0:786,76:::(B$,B,1);"";::(B$,B,1);:(B$,B,1)" "āJ12:S(U)::9002T%)#J140:a%*#:PRĺg%-#%2#205:B1(B$)::(B$,B,1);"";::(B$,B,1);:(B$,B,1)" "āJ12:S(U)::9012%3#J150:%4#:PRĺ%7#:4&F#200:B(B$)11::500:X:B$::IYY2:I:X:" "::YY3:BSCX1,2(Y2)1)$M1āIYY31:I:X:T$:5500:X:B$::IY1Y11:I:X:" "::YY3:BSCX1,2(Y1)1)$BSC96500$6050$XFLAGı$Z0,P$i1,L$l771$vF%(#200:B1(B$)V3VMV16953:V4124:V3V4,59:V4:V3,34:U80ĂV1B"U90:w,U90:6600:6950::"***** ERROR *****";::6030^U91ıhVWVMU86955U9:VW,32:U93(VW1)32ĹVW,61 rVW1,34:VW13,59:VW14,59:U910āV1110U9:VW1V1,59:VW1Q$"="UQ$" "UQ$(34)U9U91:60506$U9126050|.UQ$;:VWVMU86942U9:VW,(UQ$):VW13,(UQ$):UQ$"+"ĹVW,200VUQ$"-"ĹVW,201`UQ$"*"ĹVW,202jUQ$"/"ĹVW,203tUQ$"^"ĹVW,204~6050U80V1U8:6620V1187UQ$")"U7U71$UQ$"("U7U71DUQ$","U70U9U91:6050|UQ$(62)İ6750:1100:U8U81:U90:U70:U89U81U90ī6040U91İ6600:19):U92:6950:" ";UQ$(8)6170U9U92:U90ĺUQ$;:U92U916050&U SHORTEN IT!!! ***";"o5020.pVE0ı^uUV(37):UH(36):UE1:1100:U90:U81:U70(15):(1):"TYPE VARIABLE, ";::">";::" TO MOVE, ";::"RETURN";::" IF DONE";6950::UQ$U912U9U91UQ$(13)İ6750:6800))):V91:U2$" "(UL$,V1):UN(U1$):UN999ī2500UCUC1:UC13ĺ"*** SORRY, WINDOW-ON-BASIC CAN ONLY ****** HANDLE 13 LINE PROGRAMS. ***";22200:UC13UC13:5020<UD13ĺ"*** YOUR PROGAM IS GETTING TOO LONG ****** TO DISPLAY!!! 1:2200::5020UL$"RUN"UL$"LIST"ĺ"*** THERE IS NO PROGRAM TO "UL$;38);"****** WRITE ONE!!! ***":5015V11ĺ"**** PROGRAM LINES MUST BEGIN WITH ******** A LINE NUMBER. ****";:50202U1$(((UL$,V11"0"V1$" "5100*V1:V91:2000:5020X(UL$,1)" "UL$(UL$,((UL$)1)):5100UL$"DEMO 1"UL$"DEMO 2"UL$"DEMO 3"ĺ:(4);"EXEC "UL$:5015UL$"RUN"ĭUC010000UL$"NEW"26500UL$"HOME"ė:5020UL$"LIST"UC0ĺ:VF0L@` g RgƖ8PgPQhQghe Ӣi  g y  gh^_8^eP^ȱ^ eQ^^_Ll8ePeQ`L*U*U*U* .""""< <"""<">$ "" &"""  "" ****$$$$"""$$0&< ,""""**"""$>>   *U"":*:<"">""$$$$$$$$$$$>$ $>>$ "2"<""">"""8 "  "$>"6*""""""&*2"""""""$$"""*,"" "" ">*"""""""""""""**"""""">"">>> >00000>* i @0 66$>>< (&20 *,  **> > "2*&" " >>  ">> "8""> """"""<  >> LKxHHD+(DA/(Dq'  I)(H  p闠 y) 񗰐 z$ r0θ4KHH0t# p y0p 9G @0ɩL[hHHϸȸI^hHHoTDD ":UT$(208)" = ":UT$(209)" < ":UT$(210)" SGN ":UT$(211)" INT ":UT$(212)" ABS ""&UT$(213)" USR ":UT$(214)" FRE ":UT$(215)" SCRN( ":UT$(216)" PDL ":UT$(187)" CONT ":UT$(188)"[LIST]":UT$(189)"[CLEAR]" \&UT$(190)" GET ":UT$(191)"[NEW]":UT$(192)" TAB( ":UT$(193)" TO ":UT$(194)" FN ":UT$(195)" SPC( ":UT$(196)" THEN ":UT$(197)" AT ":UT$(198)" NOT ":UT$(199)" STEP "!p&UT$(200)" + ":UT$(201)"UT$(173)" IF ":UT$(174)" RESTORE ":UT$(175)" & ":UT$(176)" GOSUB ":UT$(177)" RETURN ":UT$(178)" REM":UT$(179)" STOP "3 H&UT$(180)"[ON]":UT$(181)" WAIT ":UT$(182)" LOAD ":UT$(183)" SAVE ":UT$(184)" DEF ":UT$(185)"[POKE]":UT$(186)" PRINT ":UT$]" &UT$(160)" COLOR= ":UT$(161)" POP ":UT$(162)"[VTAB]":UT$(163)"[HIMEM:]":UT$(164)"[LOMEM:]":UT$(165)"[ONERR]":UT$(166)" RESUME ":UT$(167)" RECALL ":UT$(168)" STORE ":UT$(169)"[SPEED=]"|4&UT$(170)" LET ":UT$(171)" GOTO ":UT$(172)" RUN ":UT$(147)"[HPLOT]":UT$(148)"[DRAW]":UT$(149)"[XDRAW] &UT$(150)" HTAB ":UT$(151)" HOME ":UT$(152)"[ROT=]":UT$(153)"[SCALE=]":UT$(154)"[SHLOAD]":UT$(155)"[ TRACE ]":UT$(156)" NOTRACE ":UT$(157)" NORMAL ":UT$(158)"[ INVERSE ]":UT$(159)"[ FLASH T ":UT$(133)"[DEL]":UT$(134)" DIM ":UT$(135)" READ ":UT$(136)"[GR]":UT$(137)" TEXT ":UT$(138)"[PR#]":UT$(139)"[IN#]"6%UT$(140)"[CALL]":UT$(141)" PLOT ":UT$(142)" HLIN ":UT$(143)" VLIN ":UT$(144)"[HGR2]":UT$(145)"[HGR]":UT$(146)"[HCOLOR=]":(36):(20):(1):"******** WAITING FOR INPUT BELOW *******";:V$UT$:1085%V1114:U$(1,V1)"":U(V1)0:U$(2,V1)"":V1:UC0:2200:%V11127:UT$(V1)(V1):V1{%UT$(128)" END ":UT$(129)" FOR ":UT$(130)" NEXT ":UT$(131)" DATA":UT$(132)" INPUROGRAM HAS PAUSED ATTHE BEGINNING OF THAT LINE. WINDOW IS ""WAITING FOR YOUR COMMAND. IF THE CURSORIS FLASHING AT THE BOTTOM OF THE SCREEN THEN YOUR PROGRAM IS WAITING FOR INPUT."z34,24:32,41:33,1:I@UT$V$:V$"C":VQ1:2200:VV(37):VHT MAY RUN CONTINUOUSLY IF YOU HIT THE LETTER C. YOU MAY ALSO DISPLAY PARTS OF THE INNER MEMORY OF THE";<"COMPUTER BY HITTING THE QUESTION MARK."R$R$"THE FLASHING CURSOR WILL CUE YOU INTO WHAT TO DO NEXT. IF A LINE NUMBER IS FLASHING THEN YOUR PEGIN TO RUN IMMEDIATELY. WINDOW-ON-BASIC TAKES A MINUTE OR SO TO ANALYZE YOUR PROGRAM SO THAT YOU CAN SEE HOW YOUR PROGRAM"ib"WORKS STEP-BY-STEP."R$R$"YOU WILL BE ABLE TO STEP THROUGH YOUR PROGRAM A LINE AT A TIME BY HITTING THE SPACE BAR. OR, I4V1,59:V1e(15):(1):"******** MEMORY DISPLAY SECTION ********";:1100:(UV1):(UH1):&(16((U81)2)):(1):(U82)(U82)Ė(21)WX34,0:R$(13)::"THERE WILL BE A ONE MINUTE INTERMISSION."R$R$"NORMALLY, YOUR PROGRAM WOULD B"!! 0 ` ̠ҠɠϠҠʠϠԠ¨ʩɡԠʍԍƠɠΠ ԠɍčԠԠ¨Ţ΍Π THAN 999. ****";:5020".51,221KVE0:UL$"":VX512:662_(VX)1415030UL$UL$((VX)128):VXVX1:5021UL$""ĺ" ":5020V30:V11(UL$):V1$(UL$,V1,1):V1$" "V30UL$(UL$,V11):5030V31:(V1$)0V1$ϜU$(1,V1);::V22UC(V1):3(0));:U$(V2,V1)41):V2:V1:UD(37):34,20:35,24:(20):(1):"****************************************";:36,VH:37,VV VQ1VQ0:(VV1): : "**** SORRY, YOU MAY NOT USE LINE ******** NUMBERS GREATERVG1VG0:2280$ UC1V11:2270^ V11UC1:(U$(1,V1))UNU$(2,V1)U2$:UCUC1:2280v (U$(1,V1))UNĂV1 V2UCV111:U$(1,V2)U$(1,V21):U$(2,V2)U$(2,V21):V2 U$(2,V1)U2$:U$(1,V1)U1$ V11UC UPV1ğ:V$"C"(V$)1Ğ:UN999ġ:25002 V11UC:(U$(1,V1))UN2100E V1:VG1:2200 4V2V1UC:U$(1,V2)U$(1,V21):U$(2,V2)U$(2,V21):V2:U$(1,V2)"":U$(2,V2)"":VG1:UC0UCUC1 VV(37):VH(36):(1):VF1VF0:2280 34,0:35,14:VQ1Ģ(1):2280 :ı (16384)1281415U V$((16384)128):16368,0:V$" "V$"C"(V$)0ıh V$"X"ī21000 V$"?"V$"/"UE1:V3UP:UP0:VQ1:2200:UPV3:6000:VQ1:2200 "";:1415 UE1İ1100 UT$V$:V$"C":VQ1:2200:V$UT$: UN(UL$)8(19):(21):" ";;;;;;;;;;;;;;;;;;;;;;;;;;:(0)39ĺ40(0));` =36,VH:37,VV:(VV1):: LVV(37):VH(36)::V$"?"İ1150 V1010 ~(16):(1):160);: US0:UE1İ1100 xVQ1:2200:(V$)1V$((V$)1): V$"C"(16384)128;;;;;;;;;;;;;;;;;;;;;;;;;:(0)39ĺ40(0));s (18):(01):" ";;;;;;;;;;;;;;;;;;;;;;;;;;:(0)19ĺ20(0)); $(18):(21):" ";;;;;;;;;;;;;;;;;;;;;;;;;;:(0)39ĺ40(0)); .(19):(01):" ";;;;;;;;;;;;;;;;;;;;;;;;;;:(0)19ĺ20(0));B 627000:14500:14605_(16):(01):" ";;;;;;;;;;;;;;;;;;;;;;;;;;:(0)19ĺ20(0));(16):(21):" ";;;;;;;;;;;;;;;;;;;;;;;;;;:(0)39ĺ40(0));(17):(01):" ";;;;;;;;;;;;;;;;;;;;;;;;;;:(0)19ĺ20(0));. (17):(21):" ";         Ţפ΍ź¶ŠՠŠĢҤע΍ŢפųŢĢؤàŠԢĤŢפĤâפčԺź±¶źŠԠנǠҤԨΨڤڤ̺ųź΍Ĥ΢פĤĽԨدŽԨحĪŷĺŷźĤΠҠŢĤŠҠŢҤҤҤҤҤػҤҤҤػҤؤҤҤĤŠҠŢĤΠע³Ĥ΢פĤڤӢ³³Ĥ΢פĤŢפТΠӠעĤŢפĤâפčˤâϳźϳ³ؽؤҠҢϳؽοĤ΢ҢҤ͢ҤéĠҠȠעҤҤĩԠ͠עԺ±Ƞſˤˤ٤׭έâؤ٤ؽڤؤϳˤҺϱˤĢϳˤ¢΍ĤҤŴĤŢŷԺźĤҢϳԺ̺źĽ̸ҤҤĤҤפԢ´ųԠԿҤҤҤԠӠ͢ҤҤ©ΠӠϠŠ     25,1005:::E$E$"NOW LOADING -"E$:22:3:" WARNING: DO NOT PRESS 'RESET' ":3:" WHEN DISK DRIVE IS IN OPERATION "::5:14:G$(Q,1)::J520:6:G$(Q,J)::D(C(Q)256):E(C(Q)(D256)):76,D:77,E:34,23::C(Q)38400İ47:F$;"RUN WINDOW"C1:D1:E1:F1:H1:E:G1:A1:L$:Q:U:U0āJ1U:J$(J):[2D$;"CLOSE POINTER FILE":{332,1:33,38:34,L:35,22:496,102,96,146,121,96,102,96,85,129,96,102,96,85,146,129,121,129,146,164,25,25,50,50,50,25,25,50,50,50,25,25,50,50,25,25,100,25,B$;:5:'.814,A(W):815,B(W):816:/F$;"OPEN POINTER FILE":D$;"WRITE POINTER FILE":B1:C1:D1:E1:F1:C(Q):E:G1:C(Q):G$(Q,0):Q:U:U0āJ1U:J$(J):0D$;"CLOSE POINTER FILE":<1F$;"OPEN POINTER FILE":D$;"READ POINTER FILE":B1::40):2:40:" ";:(180(75K)):I4011:3:(I):" "::255:2:I1(A$):C$(A$,I,1):KOI2(I2)WW1:46,C$;::(160(95K)):I423:(I):(1):" ";:(40):" ";::23:I120:I:" ";:(40I):" ";::255::51:-:24:1:868:P:CONTENTS DATA":LL1:*:E$13);"PRESS 'RESET'"E$" TO INTERRUPT ANY WINDOW ARTICLE"E$" OR PROGRAM AT ANY TIME"E$E$13);"PRESS '?'":" TO GET HELP ON THE CONTENTS PAGE OR DURING A WINDOW ARTICLE":L14:PA::w+::(120(K120)):1:G$(N,1);34(G$(N,1))):M24:(B5):28);:(B5):G$(N,M):::6:(F$;"OPEN CONTENTS DATA":D$;"READ CONTENTS DATA":T:J0T1:D(J)::I0T:ZD(I1)D(I)1:J0:A10Z:G$(I,J):G$(I,J)"*"G$(I,J)"":J4)JJ1:::J0T:C(J)::D$;"CLOSE ESS ANY KEY TO CONTINUE ":P7:45:::A:G$(Q,1)::J519:4:G$(Q,J)::I$:B$"PRESS '?' FOR HELP PAGE":PA:45:%Y1(T3):G1(Q3):255:R(G1)3:VR2:VTVT&(3Y)VėE'5:20:"PAGE ";G;" OF ";Y:NRV:((F(NR))C):B::" ";::E":PA:16386,0:5198"AHEAD TO NEXT TITLE":T"BACK TO LAST TITLE":y"AHEAD TO NEXT CONTENTS PAGE": "COMMENTS ON ARTICLE":!"'READ' THE ARTICLE":""QUIT":#X600:E$"WHEN YOU ARE ON THE CONTENTS PAGE,":t$B$" PRD";(34);" THEARTICLE WITH THE TITLE YOU SELECTED.";}H$"Q"ĺ::34::35:"PRESS THE 'Q' KEY TO QUIT USING WINDOW."J1X:(16384)127J600JH$" "A$" C O N T E N T S ":L3:43:B$"PRESS '?' FOR HELP PAGIOUS TITLE."] H$"N"ĺ::31::35:"PRESS THE 'N' KEY TO SELECT THE NEXTPAGE OF TITLES." H$"C"ĺ::32::35:"PRESS THE 'C' KEY TO READ SOME COMMENTS ON THE SELECTED TITLE."4H$E$ĺ::33::35:"PRESS THE 'RETURN' KEY TO ";(34);"REA33:::2:"Q";:A::34::34,16:32,2:33,36 ::" YOUR SELECTION ? ";::H$::X1:H$(21)ĺ::29::35:"PRESS THE '-->' (RIGHT ARROW) KEY TOSELECT THE NEXT TITLE" H$(8)ĺ::30::35:"PRESS THE '<--' (LEFT ARROW) KEY TO SELECT THE PREVENTS PAGE":P4:L3:43:45:183 H$(67)İ36:5n H$(81)ĉ::12:5:"HOPE YOU HAVE ENJOYED WINDOW": QVQRİ37 6/ :::2:"-->";::A:29:::2:"<--";::A:30:::2:"N";::A:31:::2:"C";::A:32:::2:"RETURN";:A::S(444)::69 ((F(QR))C):1:" ";:H$:Q0K1U H$(8)QQ1:Q0Q0r H$(21)QQ1:QTQT H$(78)Q(G3):QTQT H$E$53 H$(63)H$(47)A$" HELP PAGE ":B$"PRESS SPACE BAR FOR CONT:P:" ":P:" LOADING ":P:" TABLE OF CONTENTS ":K0İ42 B$"PRESS '?' FOR HELP PAGE":PA:49:K0Q0 K1:40 45::37:16368,0 :((F(QR))C):1:"-->";::J0H:(16384)127ī8 :1:"-->":J0H:ZE$(13):D$(4):F$E$D$:A10:::G$(30,20),C(30),D(30),A(20),B(20):LL0:B4:C6:F5:G1:HA:K(74):I120:A(I)::I120:B(I)::F$;"BLOADR":57W A$" C O N T E N T S ":L3:43::L8:PA::L:P:" PLEASE WAIT "      ) AV131U61)BU)gB)hBVD$;"OPEN RESET":VD$;"DELETE RESET":VD$;"OPEN RESET":V11UC1:UN400010V1:VD$;"WRITE RESET":UN;"IFUS=1ANDUL<>"VR$(1,V1)"THEN"UN10S*BUN2;"UP="V1":GOSUB1300":VD$;"WRITE RESET":UN4;VR$(2,V1):UN6;"GOTO20500":B4000:UP="(UC):U20(?((t@U61ĂUS(y@U$(2,UC)U$(2,UC)UT$(V):V17116520(~@U41:U11VR$(2,UC)VR$(2,UC)"THEN":U10(@VR$(2,UC)VR$(2,UC)VT$(V):V196U10:(U1)47(U1)58V171:16510(@V176U21(@V129U31(@V173U116100:U60:V5816500N'>U50:UCUC1:UU4:UN256(U)(U1):UN999ī16999{'>U$(1,UC)(UN):VR$(1,UC)U$(1,UC):16900'>U41VR$(2,UC)VR$(2,UC)":GOTO20500":U40'>U31VR$(2,UC)VR$(2,UC)":UP="(UC):U30(?U21VR$(2,UC)VR$(2,UC)":GOSU$(10,15),UR$(15),VR$(2,15),UT$(235),UC(15),VT$(235),VA$(225)H&8VD$""N&8n& 99600:16000:UCUC1:21000&916000:UCUC1&921000&>VL0:U204840000:V(U):V34V3V3&>V0V5816500&>V58V3VR$(2,UC)VR$(2,UC)":":16900'>1U$(2,V1)::V1Y%$'VD$;"WRITE RESET":"RUN 10100":VD$;"CLOSE RESET":VD$;"EXEC RESET":%t'14505:7290::9600:9900::16000:17000:%'32,0:33,40:34,0:14505:9600:VX0:19000::VX0ī19905%<(20000%834,0::34,20:%825000<&8U(15),UGOTO25026"7$&VT$(132)"GOSUB8000:INPUT":VT$(131)"":v$'V90ė:"*** PLEASE WAIT A MOMENT...... ***":10200%'7000:VD$;"NOMON C,I,O":VD$;"OPEN RESET":VD$;"DELETE RESET":VD$;"OPEN RESET":VD$;"WRITE RESET":"DEL 0,1005":V11UC:U$(1,V1); ":UT$(232)" LEFT$ ":UT$(233)" RIGHT$ ":UT$(234)" MID$ "A#& $&V11234:VT$(V1)UT$(V1):V1:VT$(58)":GOSUB1500:":VT$(171)"US=1:UL=":VT$(176)"US=1:UL=":VT$(172)"RUN10200":VT$(128)"GOTO21000":VT$(144)"GOSUB 3000":VT$(179)"PRINTCHR$(7);:UF=255:ҍ׭έŭōנƠנǍӠҠǠήŠǠŠ͍נŠӠ׍ҠԠٍӮԠ؍׭έΠ٠٠ӍΠ̠͍ԠӠԠƠŮԍӠԠ΍ƠϠԠӠٍǠŠԠύΠӠ΍ӮҠҍҠРȠŠ٠čҠĠΠӍΠ̠ōǠǠ΍Ƞ٠ǠԠǍҠŠŠŠŠƠŠΠōĠϠŠŠǍŠҠӠԮԠ̠̍ŠӍĠϠōԠͮōŠӠ٠̍ӠҠҍǮΠȠōȧԠΠōӠϠ٠ōĠͮȠŠȍȠŠȍǍĮŠ̠ҠǍĠǠîؠŠȍؠŠȍŠŠ׭έͭŠٍΠӍӠӠŠԠƠٍנӠϠōҠǮΠӍԠŠ̠ҠǍàĠǠҍӠ٠̠΍Ӡ͠Ӡ̍à͠ՠŠč٠ӠנԍӮ͠ΠŠ΍Š٠ŠҍٮӠԠӍՠΠŠӠ٠٠ӍנƠԭǍ̠ŠϭΠōŠ٠ŠӮϠӠΠŠōȠӠǍӠĠԠōŠŠӠƍ͠Ԯ׭έÍ׭έÍ̍̍נȍŠנ٠ŠӍקӠӠŠˠϠŠŠōŠƠ׍ĠŠ̠ҍ̠ŠčǮύύנ     2)10:I15:ASI,((D1$,I,1)):]nPAS(AC1)256(AC2)4:I15:ASI,((D$,I,1))::nxPC$((J2))PC$"H"ī20870PC$"S"ĩ((D$)):PC$"W"Ĺ34,(D$):PC$"V"ī20840PC$"N"ė:PC$"P"F$"ANY KEY TO CONTINUE":20780:)256(122):D$(D$,5):20590)P00100S(PC$"A"ĉ::20550:N$:N$"Y"ī20510iNJJJ38390AHNB(J)RRNB13İ20100b\NB3ī21220fNE70,71,78,74,75,76,77:B13İ20130pN(16384)127İ20160zN:NE3A$""İ81N(J1)33JJ1:20270NNPR0āK1PR::NL CHOOSE 1, 2, OR 3.":6060(X:I1402b"-";;lI:Mv:::I140W"-";`I:fr@I140J"-";:I::(#I1500:I:'::"SEE YOU LATER" N*N:(4);"NOMONI,O,C":21130:34,0:43699,0::(4);"CLOSE ";D$:255&4)""(15):0"*** YOU GOT IT! ***"8:K"PLAY AGAIN?"c"TYPE '1' FOR YES"z"TYPE '2' FOR NO""AND '3' IF YOU WANT TO CHANGE THE SIZE OF YOUR OCEAN.";Z$:Z(Z$)Z3ė:1060Z210000Z1ė:1110"PLEASEISH: ";X$ 2% <"DROP YOUR HOOK"3 FB)""= P8000M ZI1100:IX dI13f nT1)"!"m xIw 8000 DGF D0ī6000 "YOU MISSED!" "YOU ARE AT "G "THE FISH IS "(GF)" AWAY!" 1200 p9000 z(6) T1T (1-"S")"; G$:G(G$)/ G0GSī1240_ "PLEASE CHOOSE A NUMBER FROM 1 TO "S:1200e { T(4(G(S10))) BT3:T1T1 T4B1:TT1 "HERE IS YOUR POSITION :" B)"" 7000 I1500:I ("HIT 'RETURN' TO F10S20S50S100S1000ī1110E L:"PLEASE CHOOSE EITHER:":1070e V:"HERE ARE THE POSITIONS"s `T5(S$) jI110 tT)I(S10); ~TT4 I 7000  "THERE IS A GIANT FISH HIDING IN THE SEA" "WHAT POSITION DO YOU WAN! 13);"CATCH THE FISH!!!"P ::"IN THIS GAME YOU ARE THE CAPTAIN OF"q "A BOAT. YOU MUST TRY TO:"w  12)"CATCH THE FISH!!" $:"HOW BIG AN OCEAN DO YOU WANT?" ." 10,20,50,100, OR 1000? ";S$:S(S$) 8F((1)S)1 BS(B)" "āQQ110::734 HX(16336):X(16336)A I(B);:R J:(B);::c K:(B);::n L(B); M814,(91B):815,20:816: NB0B13 OA$A$(B):B13ı PKK1ĺA$;:A$"":KKKK1: QA$;:A$"": d(C) WINDOW INC. 1982 A WINDOW AS OF 5/11/82{34,23:::255:HI256(76)(77):HI:21130::(4)"BLOAD"Z$",A"HI:(4)"BLOADR":21220274,1:U0āJ1U::(4);U$(J):<::5:12:"COPYRIGHT (C) WINDOW INC. 1982":T1450:T:34,0::20020F(B);: G                2:V1/&R"*************** MONITOR ***************** BELOW IS WHAT YOU WOULD NORMALLY SEE ** WHEN YOU USE YOUR APPLE. ABOVE YOU ** WILL SEE YOUR PROGRAM AS YOU WRITE ** IT. WHEN YOU ARE DONE, TYPE RUN. *";/:R34,20:36,VH:37,VV::5015R0U"**RN34,20:.PUS0UPUP1,.PUS1ī4000z.(PUP4010,4020,4030,4040,4050,4060,4070,4080,4090,4100,4110,4120,4130,4140.2P22000/RVV(37):VH(36):UP0:VQ1:2200:(15):(1):V11UC:V23UC(V1):U$(2,V1)U$(2,V1)U$(V2,V1):V2,V1:V1115:UC(V1)TTERS OR . ***";4-NVX1āV118000:V1?-N21000- N34,14::"HIT TO RUN A LINE AT A TIME FOR A CONTINUOUS RUN":" (THEN HIT ANY KEY TO PAUSE) TO EXAMINE THE MEMORY":" OR TO STOP" ."*** SORRY, WINDOW-ON-BASIC DOES NOT ****** WORK WITH SOME COMMANDS. PLEASE ****** CHANGE ALL THE LINES THAT HAVE ****** COMMANDS ENCLOSED IN BRACKETS "(91)"] ***";:VX3ĺ,MVX219990-M"*** SORRY, YOU MAY NOT USE VARIABLES ****** WITH THE LE(V))35VNVN1:UC(UC)VNT+hLU$(VN,UC)U$(VN,UC)UT$(V):VL(U$(VN,UC)):V178V41a+rLV41ĂU+L(UT$(V),1)(93)ĭVX2VXVX2+LV34V3V3+LV3ĭV85V86ĭ(VX1)1VXVX1+MU:+M34,20:VX1Ĺ34,15+M"":::VX1ĺ:19950,MV1:UN10"ONUS+1GOTO20530,4005":"RUN10200":VD$;"CLOSE RESET":VD$;"EXEC RESET":*8JUC0:VL0:U204840000:V(U):V019500*VJV40:UCUC1:UU4:VN2:VL0:UN256(U)(U1):UN99919400*~JU$(1,UC)(UN):19900*KUCUC1::VMU:+,LVL(UT$!EE5 !HV12,17 WINDOW !EE3 !HV22,16 WITH US. !HP N IN FINDING A TRULY INNOVATIVE MAP FOR THE FUTURE. !HT100 !HN WE INVITE YOU, NOW, TO LOOK THROUGH !SP0 !EE6 !HV08,14 = = ==== = = !LM13 = == = = == = = == = =--WINDOW--= = = = = = = !LM01 !HV16,14 = = ==== = = V19,01 IN THE HOME... !HT150 !HN WILL BECOME A DOMINANT MODE OF LEARNING AND WILL BE A MAJOR SUPPLEMENT TO EDUCATION IN SCHOOLS AND WORK PLACES. !HT200 !HN A BRIEF WINDOW IN TIME NOW EXISTS TO EXPLORE THIS UNCHARTED TERRITORY. WE WELCOME YOUR PARTICIPATIOT A SCHOOL-SPECIFIC TOOL. ADVANCES IN COMMUNICATIONS TECHNOLOGY WILL LINK THE COMPUTER WITH VAST KNOWLEDGE RESOURCES AND INFORMATION NETWORKS. !HP SELF-EDUCATION !HV06,05 SELF-DIRECTED !HV09,10 SELF-PACED !HV12,15 SELF-SCHEDULED !HV15,20 SELF-MONITORED !HTRONIC MAGAZINE WHICH EXPLOITS STATE-OF- THE-ART MICROPROCESSOR / TELECOMMUNICATIONS TECHNOLOGY IN A MAGAZINE FORMAT. !HT250 !HN THE MICROCOMPUTER WILL DRASTICALLY ALTER TRADITIONAL LEARNING PATTERNS. LIKE THE HAND CALCULATOR OR THE TYPEWRITER IT IS NORY BY BOLDLY INTRODUCING A NEWS MAGAZINE ON TELEVISION WHICH EXPLOITED STATE-OF-THE-ART TELEVISION TECHNOLOGY IN A MAGAZINE FORMAT. !HT50 !HHV05,S05,E20,H00,S00,E39 !EE5 !HV06,17 WINDOW !EE2 ...MAKES ELECTRO-PUBLISHING HISTORY BY BOLDLY INTRODUCING AN ELEC01,14 LIFE MAGAZINE !EE1 ...MADE PUBLISHING HISTORY BY INTRODUCING A PICTORIAL MAGAZINE WHICH EXPLOITED STATE-OF-THE-ART PHOTOGRAPHIC TECHNOLOGY IN A MAGAZINE FORMAT. !HT50 !HHV02,S02,E20,H39,S00,E39 !EE4 !HV04,15 60 MINUTES !EE1 ...MADE BROADCASTING HISTOE -- A MOMENT DURING WHICH CONDITIONS WERE OPTIMAL FOR THE SUCCESS OF THE MISSION. !HT200 !HN WE TOO HAVE A !EE6 !HV08,16 WINDOW !EE3 A BRIEF MOMENT IN TIME DURING WHICH A PRECEDENT WILL BE SET FOR THE EDUCATION OF THE NEXT FEW GENERATIONS. !HT200 !HN !HV>.. !HN !EE6 *** !HV-1,36 *** !HV22,01 *** !HV-1,36 *** !EE5 !HV07,16 EDITORIAL !HV14,08 A VIEW THROUGH THE WINDOW !EE3 !HT150 !HN THE 1978 LAUNCHING OF THE PROBES TO SATURN WERE CAREFULLY PLANNED TO TAKE ADVANTAGE OF A !EE6 !HV10,16 WINDOW !EE3 IN SPAC     !HT50 !EE5 !HV06,34 1105 !HP !EE4 II. PAUSE SUBROUTINES !EE1 !HS40 W A I T I N G . . . !HS255 !HV10,10 CAN !HV14,18 BE !HT150 !HV18,10 B O R I N G , !HV22,27 OR !HT50 !HN !EE6 !HV04,01 E !HV05,04 X !HV06,07 C !HV07,10 I !HV08,13 T !HV09,1 RENUMBERING, WE NEED TO CHANGE ANOTHER "GOTO" STATEMENT, OR WE CREATE NEW BUGS. THE LINE WHICH SETS THE SCREEN, !EE4 !HV05,01 1090 IF S = 10 OR S = 20 OR S = 50 OR !HV06,04 S = 100 OR S = 1000 THEN GOTO 1110 !EE3 !HV16,14 GOES TO 1110 ALSO. IT BECOMES: T50 !HV06,30 1105 !EE3 !HV17,01 GOOD ANNOTATION -- LOTS OF REM STATEMENTS -- HELPS TO AVOID THESE MIX-UPS. !HP !EE2 !HV12,08 THIS SQUISHES THAT BUG. !HW0 !HT100 !HN !EE4 ***WARNING*** BUG BREEDING GROUND *** !EE6 !HV08,15 * * * * * !EE3 !HV10,05 WITH THISF THE OCEAN. IF YOU CHOOSE OPTION 1 -- TO PLAY AGAIN WITH THE SAME SIZE OCEAN -- THEN YOU DO NOT GO THROUGH THIS PART OF THE PROGRAM. !HP 1080 IS RENUMBERED TO 1105. !HT30 !EE5 !HV04,01 1105 !HT30 !EE3 !HV14,01 AND NOW 6120'S "GOTO 1110" IS FIXED. !EE5 !HEALLY IT IS NOT 6120'S FAULT. THE PROBLEM IS THE LINE WHICH SETS THE RANDOM FISH LOCATION, 1080. !EE4 !HV04,01 1080 F = INT ( RND (1) * S) + 1 !EE3 !HV17,01 LINE 1080 COMES BEFORE LINE 1110. !HP 1080 IS IN THE MIDDLE OF THE ROUTINE WHICH SETS THE SIZE O!EE6 !HT200 !HN !HV08,16 * * * * * !EE3 AFTER PLAYING THE GAME, IF YOU PLAY AGAIN, WITH THE SAME SIZE OCEAN, THE FISH WILL BE HIDDEN IN THE SAME PLACE. THE CULPRIT IS LINE 6120: !HW8 !HT150 !EE4 !HV06,01 6120 IF Z = 1 THEN HOME: GOTO 1110 !HN !EE3 BUT RYOU CAN NOW PLAY THE GAME AGAIN. THIS TIME, AFTER PLAYING, CHOOSE OPTION "1" FOR "YES". IF YOU PLAY SEVERAL GAMES THIS WAY !EE5 !HV13,08 YOU MAY FIND A BUG. !HT50 !XARUN 01000 !EE4 !HN I. ANNOTATION AND HOUSEKEEPING (CONT.) !EE5 !HV08,11 BUG DISCOVERED! ING AND CHANGING THE PROGRAM. !HP !SP0 !HV04,01 ALSO, BAD HOUSEKEEPING, BREEDS !EE6 !HV07,14 B U G S !EE1 !HV11,05 IN PROGRAMS * % ? !LM5 * * X X =C####* =C####X * * X X !LM1 !SP1 !HT50 !HHV13,S03,E23,H25,S00,E39 !EE3 !HV04,01 LLIST 01000,10000 !EE4 I. ANNOTATION AND HOUSEKEEPING !EE3 THE ABOVE PROGRAM IS TOUGH TO CHANGE. IT NEEDS ANNOTATION. WE BEGIN BY ADDING "REM" STATEMENTS THROUGHOUT. THESE DIVIDE THE PROGRAM INTO FAIRLY NATURAL, SMALLER, PIECES. THIS AIDS IN DEBUGGAS THE PROGRAM AS IT APPEARED. WE NOW PROVIDE A LISTING OF THE PROGRAM. IT IS EASIER TO MODIFY PROGRAMS IF YOU HAVE A PRINTOUT. REMEMBER, YOU MAY USE !EE5 !HV16,10 "CONTROL S" !EE3 TO START AND STOP THE LISTING. !HT200 !HHV12,S00,E23,H12,S00,E39 !XTIMES AND MAKE WRONG ANSWERS. FOR EXAMPLE, WHAT HAPPENS IF THE PROGRAM ASKS, !EE4 !HV13,10 HOW BIG? !EE2 AND YOU ANSWER, !HT50 !EE4 !HV13,21 WHO CARES! !HT30 !EE2 !HV17,01 AND TRY THE ALTERNATIVE RESPONSES TO A QUESTION. !HP !XARUN 01000 !HN !EE3 THAT WES, DISPLAYS GRAPHICS, AND IS INTERACTIVE. HOWEVER, THE PLAYER, NOT THE COMPUTER, CONTROLS THE PROGRAM AND JUDGES THE GUESSES. !HP !HHV12,S00,E23,H-1,S00,E00 !HV03,01 HERE IS THE PROGRAM. AS IT RUNS, LOOK FOR CHANGES, ESPECIALLY BUGS -- RUN IT SEVERAL E FOCUS, HERE, IS HOW: TO TAKE A PROGRAM THAT IS INTERESTING, AND !HT200 !EE5 !HV13,04 M !HV13,19 MORE INTERESTING ! !EE3 !HM ANY KEY TO CONTINUE !HHV12,S00,E23,H20,S00,E39 !HV03,01 THE PROGRAM LETS THE PLAYER USE A NUMBER LINE. THE COMPUTER CALCULATCKY CARTER, APPEARED IN CLASSROOM COMPUTER NEWS (VOL. 1, # 4, MARCH - APRIL, 1981). !HT200 !HN !EE3 IN THIS ARTICLE, WE IMPROVE THIS PROGRAM. WHAT WE END UP WITH IS NOT "PERFECT" -- IT IS NOT AN EXAMPLE OF STRUCTURED PROGRAMMING -- BUT IT IS BETTER. TH>&. !HN !EE4 !HV04,07 ***PROGRAM COMMENTARY*** !HV07,11 A STYLE NOTEBOOK !EE3 !HV11,13 JOHN RICHARDS !EE6 !HV13,13 * * * * * * * !HT100 !HN !HV02,13 ------------- !EE4 !HV04,13 TO FIX A FISH !EE6 !HV06,13 ------------- !SP1 !EE2 "CATCH THE FISH", BY RI                     N TYPE:"R$R$,"'DEMO 1'"R$R$,"'DEM0 2' OR"R$R$,"'DEMO 3'.";iR$R$" AFTER RUNNING ANY PROGRAM (INCLUDINGDEMOS), TYPE 'NEW' TO CLEAR MEMORY."R$R$"HAPPY PROGRAMMING!!!":27100:;i23:8)"PRESS ANY KEY TO CONTINUE ";:RE$::<0uX$"WINDOW'S ADROGRAM IS STRAIGHTFORWARD AND SELF-EXPLANATORY. JUST START TO WRITE A PROGRAM, AND YOU WILL SEE HOW IT WORKS.":27100:4:5;;i"THERE ARE THREE PROGRAMS WHICH"R$"DEMONSTRATE WINDOW-ON-BASIC. TO SEE THEM, WAIT UNTIL WINDOW-ON-BASIC RUNS, THEBASIC GRAPHICALLY SHOWS YOU HOW ANY SHORT BASIC PROGRAM YOU WRITE WORKS. IT IS A UNIQUE TOOL FOR"R$"LEARNING BASIC."R$R$"A PROGRAM CAN BE RUN LINE BY LINE OR CONTINUOUSLY. ";:i"AS IT RUNS, YOU CAN SEE VARIABLES BEING UPDATED."R$R$"USING THE PY BEFORE DIMENSIONING. ";:21000,8gVD$""K8gVD$;"RUN WINDOW-ON-BASIC"z8xi COPYRIGHT SAMUEL WANTMAN8}i16368,0:D$(4):43699,0:R$(13):R$D$;"CLOSE":74,1:::R$D$;"BRUNR":250009iR$R$12)"WINDOW-ON-BASIC"R$R$R$"WINDOW-ON- "38)"***";7eVE5020210007e"*** IN LINE "U$(1,U8);". FIX THE ERROR "38);"****** AND TRY YOUR PROGRAM AGAIN. **";7e21000 8Xf"*** REDIMENSIONED ARRAY ";:UE1ĺ"IN LINE "U$(1,U8)".":"*** NOTE!! IN W-O-B DO NOT DISPLAY *** MEMORLEGAL QUANTITY":VA$(69)"OVERFLOW":VA$(77)"OUT OF MEMORY":VA$(90)"UNDEFINED STATEMENT":VA$(107)"BAD SUBSCRIPT":VA$(133)"DIVISION BY ZERO":VA$(163)"TYPE MISMATCH":VA$(176)"STRING TOO LONG"6aVA$(224)"UNDEFINED FUNCTION": 7e"*** ";VA$(UF);" ERRORaVA$(10)"FILE LOCKED":VA$(11)"DISK COMMAND SYNTAX":VA$(12)"NO BUFFERS AVAILABLE":VA$(13)"FILE TYPE MISMATCH":VA$(14)"PROGRAM TOO LARGE":VA$(15)"NOT DIRECT COMMAND":VA$(16)"SYNTAX":VA$(22)"RETURN WITHOUT GOSUB"6aVA$(42)"OUT OF DATA":VA$(53)"IL"4aU8(VE10400):UF120ī262004aVA$(0)"NEXT WITHOUT FOR":VA$(1)"LANGUAGE NOT AVAILABLE":VA$(2)"RANGE":VA$(3)"RANGE":VA$(4)"WRITE PROTECTED":VA$(5)"END OF DATA":VA$(6)"FILE NOT FOUND":VA$(7)"VOLUME MISMATCH":VA$(8)"I/O":VA$(9)"DISK FULL"51000VE1200UVVV:UHVH:U8VE10100:6700:219,80:218,40:VVUV:UHVH::VE0:3aVE1000VE1200U8VE10100:6700:219,80:218,40:U8VE10100:6950::VE0:3aVE4000VE4800ĺ"SEVERE ERROR !!! LINE "VE:"ERROR CODE: "UF:V112000:V1:30000LINE "U$(1,UC)" IS TOO LONG FOR"38)"****** WINDOW-ON-BASIC TO HANDLE. ***";::21000t2aUF77V(0):VE0:2aUF254ĺ"?REENTER":VE0:2aUF255Ģ(VV1)::VVVV1:(1):"BREAK IN "U$(1,UP):210002a""2aVE5020ī25060P3aV$"?"VE0:6610:102001a"";21aVE(219)256(218)1aUF16ĭVE26510(VE10000VE18000)VE27000Ĺ32,0:33,40:34,0::34,20:::"*** INSERT ORIGINAL DISC!!!! ***";::21000[2aUF176ĭVE10000VE18000Ĺ32,0:33,40:34,0::34,20:::"*** * YOUR PROGRAM DOES NOT HAVE AN ****** END STATEMENT. WHAT NOW????? ***";:`0aUF(222)s0aUF253ī300001aVE0Ĺ34,20:::"*** ";::"ERROR OVERLOAD";::" - BEGIN RUN AGAIN ****** BY HITTING ANY KEY.***";:(21):(10):V$::U8يƠڠΠŠϠ͠à͠à͠ԠŊҠɠϠźԠɺΠΠ͠Ԡӊ͠Šӊ͠נӊŠ Š ͠ˠӊ͠ԠӊŠ ͠Ԡ̠ĽŠ͠Ί͠ԠŊƠӠҠӠҠӠҠӠҠӠΠϠ͠ŠȊƠԠĠө  LS$" ?"p1:16Y:"TYPE THE TOP TWO DIGITS. ";B$:B$(Y21)((B$)):(B$(Y21))2İ1900:22201:16Y:25):"TYPE THE BOTTOM TWO DIGITS. ";B$:B$(Y2)((B$)):(B$(Y2))2İ1900:2222CK$B$(Y21)B$(Y2):1500 " X ";D(2);D(4RA)," X ";D(2);D(3RA)K" ----"," ----":cl"";: 3 BELLSv22:40)::" PLEASE USE A TWO DIGIT NUMBER. ";::::," ";D(3);D(2),"X ";D(1);D(4),"----"Y12Y1420,14303N14K(P)K(P1)KK(P):K(P)K(P1):K(P1)K=P,NXN14:K(N)D(N)Z1e:CK$""p^Z0ıh"";: 3 BELLSr:23::"PLEASE USE ONLY THE FOUR DIGITS OF THE PROBLEM.":::"A ";D(1);D(3RA),"B ";D(1);D(4RA).E14:"CAN YOU REARRANGE THESE DIGITS SO THAT YOUR ANSWER IS ";:14:"CAN YOU REARRANGE THE SAME DIGITS IN ANOTHER WAY TO PRODUCE AN ANSWER THAT IS ";:Z0:CK$((CK$)):(CK$)4Z1:1640N14:K(N)((CK$,N,1)):N13:PNOT GIVE IT A TRY?":"ASK A FRIEND TO SOLVE THEM."d:"PRESS ANY KEY TO CONTINUE. ";:R$:30000oN14D(N)(9(1))1:N1ĂNP1N1:D(N)D(P)1250P,NN13:P3N1 D(P)D(P1)DD(P):D(P)D(P1):D(P1)DP,N:);A2$-:"PRESS ANY KEY TO CONTINUE.":R$q:8:"WOULD YOU LIKE TO TRY DIGIT MIX AGAIN (Y OR N)? ";:R$R$"Y"ĉ::150:8:"CAN YOU MAKE UP SOME PROBLEMS OF YOUR OWN LIKE THE ONES YOU HAVE WORKED ON IN THIS PROGRAM?"3:"WHY R$"A"R$"B"ī1100`::"YOU PREDICTED ";R$;:" WOULD BE LARGER."::"HERE ARE THE ANSWERS SO YOU CAN CHECK YOUR PREDICTION."1700:A1$((10D(1)D(3RA))(10D(2)D(4RA))):A2$((10D(1)D(4RA))(10D(2)D(3RA))):8(A1$));A1$,8(A2$)TINUE.";:R$ 34,2::1240z :"NOW SEE IF YOU CAN ANSWER THE FOLLOWING QUESTION."::"TRY TO ESTIMATE THE ANSWER." $:"WHICH OF THE FOLLOWING TWO PROBLEMS GIVES THE LARGER ANSWER?" .RA(2(1)):1700 L:"TYPE OR ";:R$V1)D(4))(10D(2)D(3))10 lD V2:LS$"LESS THAN "(L):2200h M(10D(2)D(4))(10D(3)D(1))n  V4:LS$"EXACTLY "(M):2200 20:"TAKE A LOOK AT THE DIGIT COMBINATIONS YOU HAVE USED AND THE ANSWERS."::"THEN PRESS ANY KEY TO CONҠɠϠҠʠϠԠ¨ʩɡԠʍԠƠɠΠ ԠɍĠԠԠ¨ŢΠ OYED"R$,"WINDOW" W" =buK$"D"30300U=luK$"B"X$" CONTENTS ":30250::(4);"RUNCONTENTS WINDOW"=vuK$"C"İ30250:75,2::(4);"RUNHELLO"=u:30000=*v::12:6::" PLEASE WAIT -- NOW LOADING "R$:13:" ";X$;" "::34,23::>\v:6:,"HOPE YOU HAVE ENJ"::::255:R$(13):4:32,5:,"WHAT NEXT?"R$R$R$"A) RESTART THIS PROGRAM"R$R$"B) RUN CONTENTS TO CHOOSE ANOTHER"R$" PROGRAM":14:," ";B$(Y21):,"X ";B$(Y2):,"----"X$(V1Y)((B$(Y21))(B$(Y2))):,4(X$(V1Y)))X$(V1Y):::V4ĺ"WERE YOU ABLE TO GET ";M;:" EXACTLY?":2285"IS THE ANSWER TO THE PROBLEM YOU MADE"LS$;" ĠԠ¨ԠΠ¤¤¤ΠŠϠ׭έáҠʠϠΠˤĤʬƠˤΠ ƠˤΠˤ ƠˤΠ ¤ ¤¤ˤԠʍ  ȠǠΠŠŠ  ̠Š ĽϠ̠Π¨¾ Ԡ¨٠Ϯ   Ԡ¨ȠŮ Ԡ¨ȾŠŠŠ  ԠŠӠԠɍĽ Ԡ¨٢ Ԡ¨٠ҠĠΠӢŠ Š Ԡ¨ՠŠŠΠƠԮ   Ԡ  0120:D(X256):E(X(D256)):76,D:77,E_u:(4)"OPENPOINTER FILE":D$"WRITEPOINTER FILE"u1R$39R$5R$3R$1R$X;R$1R$1R$X;R$X$R$1R$0uD$"CLOSEPOINTER FILE":D$"RUNWINDOW"\v:6:,"HOPE YOU HAVE ENJOYED"R$R$,"WINDOW"N255 eN120,300,::18:,"WHICH ONE?":K$,XuK$"A"Ľ:100>buK$"D"30300luK$"B"Z$"CONTENTS"Z$"CONTENTS":30120:D$"RUNCONTENTS WINDOW"vuK$"C"30140u:30010u::12:8::" PLEASE WAIT -- NOW LOADING "R$R$," "Z$" "::34,23::*uZ$X$:3172":1020::B$"617-923-9147":1020:P0u54915::::255:R$(13):D$R$(4)Du4:32,5:,"WHAT NEXT?"R$R$R$"A) RESTART THIS PROGRAM"R$R$"B) RUN CONTENTS TO CHOOSE ANOTHER"R$" PROGRAM"NuR$"C) GUIDED TOUR THROUGH WINDOW"R$R$"D) EXIT FROM WINDOW"EYS TO MOVE THE LINE. "R$R$" USE THE SPACE BAR TO DROP A NUMBER. "R$R$R$ " TO LEAVE THE PROGRAM, "R$" PRESS THE 'RESET' KEY. "::90:4:"FOR MORE INFORMATION WRITE TO:"R$R$5)"LEARNINGWAYS, INC."R$5)"98 RAYMOND STREET" 5)"CAMBRIDGE, MA 02ӽ̼δн±ҠɠϠнϲӽ̼δн±ҠʠϠнϲӽ̼δн±Ԡ¨ʩɡؠŠȍӠϠŠҍ͍éĠҠȠ׍ĩԠ͠׍ȠſԠ¨ԩآԠʍΠ͠ƨҠɠϠƠɠΠƨɩɍƠɠΠƨɩƨɠƨɠԠԠԠƨɩƠƨɩĠƨɩΠ ԠɺĠҠʠϠƨɩԠԠƨɩ ԠϠȠΠ٠ҠΩؤԤؤ٢ϹźϱĽԺźµβήؤōɽϱЭ¨ɩ¨ԭō´ϠȠšĽŽ¹ź´·±±±Ž¹Ľō·ԢϠՠƾϱ±¨ŠϠՠԠϠȠӢź··±Ľɽϴ¨ɩ¨ԭɍź´ΠՠˠՠŠŬӠ·ԢξϠ̠ō´נǠ̠ՠȠο·Ž¹ō´ŠŠҺϱĽ²ųŽ¹źĽԢŠȠԠƺƼ   N.":R$:> 10::" THE FOUR DIGITS OF THE PROBLEM ARE: "b " ";:Z14:D(Z)7);:Z "1:11:" DIGIT MIX ":34,12 ,:3:11:D(3);D(2);" X "D(1);D(4);" = "X$ 6UD(4)10D(3)10 @V0:LS$"GREATER THAN "(U):2200 bL(10D(PE YOUR ESTIMATED ANSWER."::A$s :::"YOUR ESTIMATE IS: ";A$::::"HERE IS THE PROBLEM SOLVED CORRECTLY." 2000:X$((10D(3)D(2))(10D(1)D(4))):,4(X$))X$ 20:"CHECK THE ACCURACY OF YOUR ESTIMATE.":22:"THEN PRESS ANY KEY TO BEGI MULTIPLICATION WHICH MAY HELP STUDENTS BECOME BETTER ESTIMATORS."20)w ::"PRESS ANY KEY TO START":R$::1240 :11:" INTRODUCTION ":: :"HERE IS A MULTIPLICATION PROBLEM:"::::"TRY TO ESTIMATE THE ANSWER." 2000 ::"TYd16368,0:Sn:::8:14:"DIGIT MIX":10:17:"BY":12:14:"HENRY OLDS"x:23:"COPYRIGHT (C) 1982 - WINDOW, INC.":PA13000:I 8:"THIS PROGRAM IS A TUTORIAL WITH A BIT OF A GAME-LIKE QUALITY. IT IS INTENDED TO TEACH AN APPROACH TO ## *** WAIT SUBROUTINE 4(#I1PAUSE:I:D'255:::5]'::"SEE YOU LATER"}0uX$"MULTIPLY":X38400:Z$X$X$34A$">":B$")":BB5:WB.B:A$"FISH"A$;GL1R:W:B$;:9000ZW:"/";:9000oW:A$;:9000:Lu$ *** ANIMATED FISH 255B3082:B2:868:6120B:; *** GRAPHIC '--' @I140J"-";:I:: IT! ***" *** REPLAY 4PAUSE1000:9000?140:q7:"DO YOU WANT TO FISH AGAIN (Y OR N)? ";X$(X$,1)"Y"ī999016:868:18:868:23:868:1060 *** FISHY SUBROUTINE BB1A$"<":B$"(":WB5BDGFD0ī600014:"NO FISH HERE!":140JPAUSE500:9000::4^"YOU ARE AT "Ge7"THE FISH IS "(GF)" AWAY!"1200k *** CORRECT GUESS pPAUSE500:9000z18:PAUSE10:R30611010:10 "*** YOU GOT)"" : PAUSE500:9000) (255/ 2B <I14:(17I)S FT1)"!":I P:4:"WHEN YOU THINK YOU HAVE A BITE, PRESS " Z7:" TO REEL IN. ";X$ _ dI411 n(17I):T1)" " xI   *** CHECK GUESS -"S")"; G$:G(G$)+ G0GSī12404 :7d "PLEASE CHOOSE A NUMBER FROM 1 TO "S:1200~  *** SHOW GUESS :16:868 T(4(G(S10))) BT3:T1T1 T4B1:TT1 7 "HERE IS YOUR POSITION :" 16 B1065 O *** HIDE FISH / QF((1)S)1L S *** SET POSITIONS Y V190:23g `T5(S$)s jI110 tT)I(S10); ~TT4 I 35,13:PAUSE500:9000 :140  *** MAKE GUESS  10:1)"WHERE DO YOU WANT TO FISH (168 PAUSE1500:9000:255" >  *** SET SEA SIZE l $4:" HOW BIG A SEA WILL YOU SEARCH IN?" )7:PAUSE1000:9000 ." 10,20,50,100, OR 1000? ";S$:S(S$) 8 BS10S20S50S100S1000ī1105 L4:"PLEASE CHOOSE EITHER:":THE CAPTAIN OF A BOAT."% 17:80007 16:8)""O 7:10)"TRY TO..."] 22:8000y 10:22)"CATCH THE..." 21:PAUSE5:R5:6300 35,16: PAUSE1500:9000 7:"THERE IS A GIANT FISH HIDING IN THE SEA.":PAUSE500:9000:21:8 Id:::18:" COPYRIGHT (C) 1982 WINDOW INC.":PAUSE1000:8995X::255:t *** INTRODUCTION 13);"CATCH THE FISH!!!"140:4:19)"BY"7:6)"RICKY CARTER AND JOHN RICHARDS"PAUSE1000:9000: 4:5)"YOU ARE      RMULATING !HV18,16 TRANSFORMING !HT150 !HHV00,S00,E23,H-1,S00,E00 !HN !EE3 LEARNING TO PLAY WOWZO -- AND LEARNING TO PLAY IT WELL -- REQUIRES A LOT OF REASONING. ONE MUST DEVISE A GAME STRATEGY THAT BOTH MAXIMIZES ONE'S OPPORTUNITIES TO MAKE MULTIPLE MOVE00,E00 WHAT'S THE FOURTH R ? !HT75 !EE4 !HV06,11 * * !HV07,11 REASONING !HV08,11 * * !HT50 !EE2 !HV12,01 WHICH IS . . . THINKING !HV13,16 PLANNING !HV14,16 HYPOTHESIZING !HV15,16 TESTING !HV16,16 EVALUATING !HV17,16 REFO00 !HN !HV08,01 A FEW COMMENTS ON WOWZO'S EDUCATIONAL VALUE . . . THIS GAME WILL NOT TEACH ANYONE TO READ, WRITE, OR DO MATH. HOWEVER, IT SHOULD GIVE EVERYONE A CHANCE TO PRACTICE WHAT A FRIEND OF MINE CALLS THE FOURTH R . . . !HT200 !HHV23,S00,E23,H-1,S MODIFICATION COULD EASILY BE MADE IN THE PROGRAM. !HT200 !HHV10,S00,E23,H20,S00,E39 !HV08,01 THIRD, THE GAME USES A LOT OF SOUND, WHICH IS ENJOYABLE MOST OF THE TIME. BUT IT WOULD BE NICE TO BE ABLE TO TURN IT OFF WHEN IT BECOMES BORING OR INTRUSIVE. !HT2RY INSISTENT AND MUCH TOO FAST (EVEN AT THE LOWEST LEVEL OF DIFFICULTY). IT LEADS TO A LOT OF EARLY FRUSTRATION (PARTICULARLY FOR YOUNGER PEOPLE). THE AGONY COULD HAVE BEEN AVOIDED BY AN OPTION THAT WOULD PERMIT TURNING THE CLOCK OFF. I SUSPECT THAT THIST IT WAS. !EE2 !HV10,14 ? ? ? !EE3 !HV13,01 IT IS CLEAR THAT PROGRAMMERS EXPECT PEOPLE TO GET USED TO ALMOST ANYTHING. BUT I HAD DIFFICULTY GETTING USED TO THIS ARRANGEMENT. !HT200 !HN !HV04,01 SECOND, WHEN LEARNING HOW TO PLAY THE GAME, THE CLOCK IS VEOST PROGRAMS USE THE 'A' AND 'Z' KEYS FOR UP AND DOWN MOVEMENT. WOWZO USES THE '^' KEY TO MOVE UP AND THE SPACE BAR TO MOVE DOWN. !HT200 !HHV10,S00,E23,H20,S00,E39 !HN BERT KERSEY PROBABLY HAD SOME GOOD REASON FOR THIS ARRANGEMENT, BUT IT IS NOT CLEAR WHAAME. !HT200 !HN !HV08,01 FIRST, THE KEYS USED TO MOVE PLAYERS THROUGH THE MAZE ARE UNUSUAL AND A BIT HARD TO GET USED TO. !HT200 !HN MOST PROGRAMS USE THE RIGHT AND LEFT ARROW KEYS FOR RIGHT AND LEFT MOVEMENT. WOWZO USES THE '>' AND '<' KEYS (UNSHIFTED). M0 !HN !EE4 !HV09,13 : : !HV10,13 WATCH !HV11,13 : : !EE6 !HV22,20 . . . . . . ---> !HT100 !EE1 !HS255 !XXRUN@@WOWZO REVIEW !HN !EE3 !HS255 !HV08,01 WOWZO IS NOT WITHOUT A FEW MINOR FAULTS -- SMALL ANNOYANCES IN AN OTHERWISE WELL-CONCEIVED G3 BROTHER???) !HT100 !HHV23,S00,E20,H-1,S00,E00 !HS220 !HV01,01 BERT KERSEY !HV03,12 BRINGS THE SCREEN TO LIFE ... !EE6 !HV10,08 < < < < < > > > > > !HT50 !HV10,19 * !EE5 !HV10,19 * !HT100 !EE2 !HV20,10 WITHOUT ANY HI-RES GRAPHICS !EE6 !HV20,38 ! !HT20AND THERE IS A WEALTH OF THINGS TO LEARN FROM THE CREATIVITY AND IMAGINATION OF BERT KERSEY -- THE ONE PERSON RESPONSIBLE FOR ALL THIS FUN. !HT200 !HS255 !HHV-1,S00,E00,H20,S00,E39 !HV21,13 (MYSTERY OF THE MONTH -- !HV22,13 WHO'S THE OTHER BEAGLE !HV23,1IMPROVE HIS OR HER PERFORMANCE IN THE GAME. THE GAME PROGRAMMER LEARNS A FASCINATING VARIETY OF PROGRAMMING TECHNIQUES. !HT200 !HS255 !HHV-1,S00,E00,H39,S00,E39 !HS220 !HV08,01 EVERY BEAGLE BROS. PROGRAM IS LISTABLE. THAT MEANS EVERY PROGRAM IS LEARNABLE. EEN MAKING A HABIT OF PRODUCING EDUCATIONAL GAMES THAT BOTH TEACH AND ENTERTAIN IN DELIGHTFULLY PLAYFUL WAYS. !HT200 !HS255 !HHV-1,S00,E00,H00,S00,E39 !HS220 !HV08,01 BEAGLE BROS. PROGRAMS TEACH ON TWO LEVELS: THE GAME PLAYER LEARNS VARIOUS STRATEGIES TO NCEIVED !HV19,15 AND PRESENTED AS ... !HN !EE6 !HV11,14 --------- !EE4 !HV10,14 WOWZO !HV9,14 : : !HV11,14 : : !EE5 !HV10,16 WOWZO !HT250 !HN !HS220 !EE2 !SP1 !HV08,01 WOWZO IS PUBLISHED BY BEAGLE BROS., A SMALL SOFTWARE COMPANY THAT HAS B> !HN !EE6 !HV10,01 . . . . .---> !EE1 !HV10,01 !HS175 !EE4 !HV10,15 RARELY !EE6 !HV10,25 ! !HT150 !HN !EE4 !HV10,11 VERY RARELY !EE6 !HV10,26 ! ! ! !HT150 !HN !EE2 DOES ONE FIND ... !HV10,10 AN EDUCATIONAL GAME ... !HV18,15 AS WELL CO         5:17:9:"<-NOW YOU TRY TO";:9997:9:" ";:9997:Z16:14:21:"<-CAPTURE":23:"THE "Q$"T"Q$".":9997:14:21:" ":23:" ":9998:5020:B$"PRESS THE KEY WITH THE '>' TO MOVE RIGHT":B$:AA$AA$"."ī444(1)"=M=":A$(2)"=A=":A$(3)"=T=":A$(4)"=C=":A$(5)"=H=":E$"===":Z15::Z2Z4Ğ|r390:7000:J120:::9999:4255:9:A$(1):9:E$:8:29:A$(2):29:E$:14:17:A$(3):17:E$:5:33:A$(4):33:E$:11:9:A$(5):9:E$D255:Z1PG3613:5000:5010:G3216:5000:9998:G2813:5010:G1610:5000:G2410:5010,5020:B$"THE OBJECT OF THE GAME IS TO CAPTURE ALL5 LETTERS OF A KEYWORD (SUCH AS "Q$"MATCH"Q$")WHOSE LETTERS ARE LOCATED IN THE MAZE.":9000J255VhL20:P30:A$& Z":PR1:9000:PR0:9998FG3216:5010:G2813:5000:M$"GL":4444M$"MU":4444:M$"MR":4444:G1610:5010:4444:M$"MU":4444:M$"MR":4444:M$"MD":4444:G2813:5000:G2416:5000:M$"MD":44445010:M$"ML":4444:M$"GU":4444:M$"GR":4444ACTION IS KEYBOARD-CONTROLLED:":PR1:9000:PR0::1:" N= UP ";:9:" SP= DOWN ";:21:" <= LEFT ";:31:" >= RIGHT ";:9998:M$"GU":4444:M$"GD":4444:M$"GU":4444:M$"GL":4444:M$"GR":4444:24:1:SP:9998:B$" GATE KEYS-> ABCEFGHIJKLOPRSTUXY ...AND LET'S SAY ":PR1:9000:B$"GEORGE":9010:29:B$"IS PLAYER #2":9000:PR0:17:37:9997:255:"***";G$:37:"GEO";G$5020:B$"PLAYERS MOVE THROUGH THE MAZE LIKE THIS.":9000:M$"MR":4444:M$"MU":4444:M$"ML":4444y21:868:B$"ALL WOWZO 21:5:"WHAT'S YOUR NAME? ";RE$P21:5:" "20:5:"^^^":B$"SAY ":PR1:9000:B$RE$:9010:B$" IS PLAYER #1...":9000RE$(RE$,3):17:5:9999:255:RE$;G$:5:"***";G$:9998:5020{20:37:"^^^":18:B$"":PR1:9010:PR0::200::" (SKILL LEVELS DETERMINE CLOCK SPEED)";:I120:I:2:"=";:5500:J1125120(I10):::20:1:" ":I240:I:" ";::140:23:1:8689999:24::5:B$" PLAYERS INPUT THEIR OWN NAMES.":PR1:9010:PR0:9997#S!":9000%G804:160:G3204:160:l5020:22:B$"PRESS LETTER 'U' TO MOVE THE 'U' GATE.":B$:15:AK$~AK$"U"ī159156G816:160:1705000:9998:5010:9998:E5020::20:2:"^":2:B$"^ AND A CLOCK TO KEEP THE GAME MOVING! 55:I1911:I:1::":";(49I)((49I)10)10;":";:1::":";:S(U)(U):3:":";::G$;: :255:1:11:Q$"WOWZO!"Q$;G$" BY BEAGLE BROS.";G$;:5020:14:B$"WOWZO FEATURES":9000:9998:11:B$"KEYBOARD-CONTROLLED":9000:11:B$"MOVEABLE MAZE GATE P : R : S : T ":7:9:" F ":4:16:"B":7:20:"G";:28:"H";:36:"I":10:16:"K";:24:"L":16:32:"Z" FLAG0:G1604:5000:G2007:5000:G2807:5000:G3607:5000:G1610:5000:G2410:5000:G3216:5000:140:FLAG1:150_ :2:I:4:" ";:I1I19Č868> e40:" ":L2:PI10:7000: nI4404:J1193:J:I:P255(4(IJ)):L5:7000:":":::4:5:" A "; s21:" C : E ":10:5:" J ";:29:" O ":16:5:" U : X : Y :" x13:9:" 50:7000:"(714) 296-6400":7000D U9999:9999:I1117:I:868: Z21::4:B$"WOWZO IS A CHALLENGING STRATEGY GAME":9000:9:B$"PLAYED IN A FLEXIBLE MAZE":9000:10:B$"ON APPLE'S TEXT SCREEN!":9000:255 d:1:1:I119:I:4:37(I1I19))Y17:GX37:GY17' FFLAG1:TIMETIME1 P16300,0::::6:16:SP:": :":16:" WOWZO! ":16:": :":::14:"BY BERT KERSEY"::9999 R255:15:"BEAGLE BROS.":7000:12:"4315 SIERRA VISTA":11:"SAN DIEGO, CA 92103"::14:P200:L_! D$(4)33000====================== WOWZO! (DEMO) BY BERT KERSEY (C) 1981, BEAGLE BROS. 4315 SIERRA VISTA SAN DIEGO, CA 92103 ====================== 320002PAUSE999:SP125:Q$(34):G$(7):U16336:P100:L255 <MX5:M                  ,"WHICH ONE?":K$:K$"A"Ĺ104,8:103,1:2048,0:R$A$"RUNNUMBER DROPPER"K$"B"X$"CONTENTS":33250:L$"RUN CONTENTS WINDOW":33180K$"C"X$"GOODBYE":33250:L$"RUN HELLO":33180K$"D"33300$:33000c34,23::R$A$;"OPEN RESET":9,21,33,21,37,21,21耬33001D选:::255:R$(13):A$(4):75,14:,"WHAT NEXT?":32,5:R$R$"A) RESTART THIS PROGRAM"R$R$"B) RUN CONTENTS TO CHOOSE ANOTHER"R$" PROGRAM"HR$"C) GUIDED TOUR THROUGH WINDOW"R$R$"D) EXIT FROM WINDOW":32,0:R$R$4:KS16368:CL62454)vu16302,0:(17)Ju::2:1,1:CL:(3);(48);u4:B$(100),RS$(25),C$(25),RS(25):MULT2:CP6:PO1u12500:12000:12200y5,9,5,7,3,5,3,1,5,1,7,1,9,1,11,1,13,1,15,1,17,1,19,1,21,1,21,5,21,9,21,13,21,17,21,21,21,25,21,21JII9&$1B$(J)(Y)T$(J(IN1%))8.1:YYN1%::U/u ------INITIATION------0uQJQJ33:104,(QJ256):103,QJ256(QJ256)::(4);"BRUN NUMBERDROPPER.F"Nu(4);"BLOAD SOUND2,A$802"XuN1%1:N2%2:N3%3:N6%6:S1544:S2545:SD2050:KB1638TECP6PO1:200/0FL0Ă440TECP6PO2:200H>0TECP612330jH0TECP6FL0:540:1000:PO0zR0:800:3000 -----CHARACTER GENERATOR-----0X48:Y330IN1%100B$(I)(60)(X)0T$(I)(X)0XXN1%:1I119110 :XA163166:XA,YAXA,YB:XA33,YAXA33,YB:XA159,YA15XA159,YB:XA129,YAXA129,YB:d/200w/0,159278,159/0,158278,158/0,176278,176/0,177278,177 0 ----AUTOMATIC ACTION -----02000KN1%3 0800:540:600*0$(11)" ":IN1%20:C$(I)(46)(47)F/I7I16C$(I)(61)(61)S/:CP6:t/ -----DRAW CONTAINER------/3:X1160:Y47/X4255.25/X,YX1,Y/YY.5:X1X1.25:// ------DRAW VERTICAL LINES-----/YA32:YB159[/421ĞM" ";:PL416Ğ$R?z::HT3:VT2:" ";S12000::12300z.----- SET UP NUMBER LINES ------D/X(0)N/I110X/TMULT((10(6))N1%)N1%b/J1IN1%l/B$(T)RS$(J)12120v//RS$(I)B$(T):RS(I)T:&/RS6I3 C$(J);:* BG7:FTAB126*I122H+I11BGBG1d4 --- RETURN TO POT ---y7S1,2:S2,10:SD9FTABFTABN1%:J1FTAB:H,V::VT,HT>L4BG16CVT:HTN1%HC$(L4);IVT,HTJL416ĝKHT1:VTLVT2050I1103RS$(I)RS$(I1):RS(I)RS(I1)9$P.RS$(1)" "İ2000V8----- DONE ROUTINE--CENTER # LINE-----(3);(48);S1,10:S2,100:SDCP142080CP14ST1CP14ST1ICP12ST21:1JI2I:HT172I"\VT:HT:RS$(1);?fI2ĢVT2:HT2:" ";:Ep`z3:21:" ";:RS$(1);f ---- PRINT # TO NUMBER LINE----C$(CP)RS$(1)(3);(52);:19:25:(58);(59);(3);(48);21:25:RS$(1);544,3:545,100:TECP6FL0:1000:PO0:800:2vX1250::FL1AI1952(3);(52);:25:I:(58);(59);(3);(48);:25:I2:RS$(1);S1,3:S2,(40I):SD  -----BRING UP A NEW NUMBER----4(3);(48);HI12:J150:J RVT7 (3); CHR$ (52);) IF FL = 1 THEN 6007I5192Q0S1,1:S2,(50I):SDy:(3);(52);:25:I2:(58);(59);D(3);(48);:25:I:RS$(1);N:X -----CHECK FOR DROP INTO # LINE----- ]TE(RS(1)MULT)1bMULT1TETE1l);:"544,N2%:545,N2%:2050:>,----- K ROUTINE------P1IC%(KB)128t@IC%21PON1%:IC%0:KS,0:200JIC%8PON2%:IC%0:KS,0:200TIC%32IC%13ĹKS,0:500:600h300 ----- COLUMN DROPPING ROUTINE ------ PRINT CHR$:10:" JUST A MOMENT ":100VZ24:"(PRESS ANY KEY TO CONTINUE) ";:" ";:K$::vdQJ(121)256(122):30000 -----MOVE NUMBER LINE-----PON2%CPCPN1%:CP16CP16PON1%CPCPN1%:CP7CP721:N1%:ICPN6%CPN3%:C$(I140":90:4:"ALL HIGH RESOLUTION TEXT AND ASSOCIATED EFFECTS WERE GENERATED USING HIGHER TEXTII BY DARRELL AND RON ALDRICH. COPYRIGHT(C) 1980. AVAILABLE FROM:" R$R$5)"SYNERGISTIC SOFTWARE"R$5)"5221 120TH AVENUE S.E."R$5)"BELLEVUE, WA 98006":90@@``pAxCGNLLLLNGxCpA```@p@x@x@`@`@`@`@`@`@xCxC``|A~CFFF|C~A@@@GG``GGFG`ApApCFFG~C|A``@A`ApAXALAFAGG@A@A@A@A``GG@@ACGFFG~C|A``pGxG@@@ACGFG~C|A``GGFG@Cp@8@@ @ @ aaq98098qq98098qaaq98098q?a?08yy@@L\xppx\L@@@@@@||@@@@`pp`@`p0||`@@@@@@@@@@ɃAAAAaq000aq9y?y?y?y?00098qa Aa q q?q?    y?y?yy80098qa?A?aq9yy98098qay?y?08Aaaaa W         O ң/  M $' 1$L11 $$ ɍ` )?~?7 , AY M 3 o +I`*)hQL$h 1L$h)L$h*`ɇ :I :`,0`  I`UU**ժU**U4+;߂ +|[?,$ +|B\|#B\9 Σ8 0h`H 0Iȱ 0I _ 0h `+i,^!*i,4*iPII*&if*+`, P\H_p , PPH` Bh $ 0IPH*&& h*H&& h& f$)% Ș)% L$, J , 0IH)hl )M H4+))`,1ɰ(ɸ$)_ B``ɠhɃ`ə`ɚ`ɂ`ɀ`ɐ`ɑ `ɗ@ `Ʌ `ɒ `ɔL `H, P $$!$  , %%#%% y $h( k HH _ 0h,  k  $( ɛɍ `HH 3, P Ș! 3$hh` k,  %%#%*I* 0`H, ,0 h`(*)) &+`H,0 @ &,P,R,Wh,  N H%2 hH)*** **m(L(mhH h '`,ɰ Ʌ+hi#2H $)) &)!(*e))e++8) )L Lp"H $)) &+(*hi#H j j L *(+) 0!*(`$ H))? @(hN    Vɖ ILɓ%Ɂ)ɍ*ɘ&,  ɕ( ` (LN N ` `(5 $, P$$!#$%, i#V%i#%M%L" `"%$Iiii=ߤ$%H " %%, %%#h%LB y ,fH <hLp $,  %%#%  kH %+I`*L )*! 0h`"H $)) &)(*)#`LkL Li ލR,0 ,J̩@K @& &  < 2 y6789L8L< | $(  ΰɐ$, P$$~!$$P$"%n%, %%L"ɍ7Ɋ7ɈɌOɎfɆ>ɉɋɏZ $ H h .#` L}%J u H h d #` L Q ; #` Q #`#2 '( H() 1 eȱm)h`JJ`#JȱJLh `#  <(eΨ =)eϰ%Hh>?iJK̅  1& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS) PI ȄR%*QTU'T8ePT UeRU QJJJ`JJJJS) PI ȄR%*QTU'T8ePT UeRU QJJJ`00', "&,i8i#H&ii&hif&i'`'i, &i,. &iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaIL &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%0J$)` .Q&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j"" " " " " """""""""