JJJJ ?IH /R  WPTR\>`rHȩ w` wi'I= I'`+l>  X..Y..ȹ).ȹ) LN .3v9 76 ȹ3! !@   1a c`0 e i `R,W,U,P`(@@@AAYBBBC.C7CCC(DD@EEYFFFFFFGGG(HH@IIYJJJJJKKK(LL@MMNNYNNNNOOO(PP@QQRRYRRRRSSS(TT@UUVVYVVVVWWW(XX`*L``L ``+ XQ~,T,R,Q [ ӠԮ    3'I$J0c= I'` HH) +0 ) +0 hh`  FJ ` ,+ xJxH:HLXAL6A8fJ  6  6 FJ`L 5cedf. .8f`0 y z".@acC0fC``c36@6Ffc`c3fccgCCap7fC@`3FAF06Fp">""">><"p7vc7@a7f@<fwp766F1fF1p76F06F07""""""""06666@16f@6v606Fagc@1@1606Fp7p  >2 ""2200666F16f@fg3`366F6`@1@160"*"*0fs3v`ss@<066f0`scCacs`@qcp"""& ""&p@0``vwGp0@`@p0fC0pf@0p"""""""""""`0`~@gc`0``p0@`0XX@YYZZYZZZZ[[[(\\@]^^^^^___>""">">>"0``~0`ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ@ NL   L` -e L գsr ࣭ml ࣭srL -µLЦ գ ze)rs zrsLq ] Qlr  գ8gh ࣥhgL գ8LʨM ࣥˤLµH hLħõµ µõL&E`( 80 0 DDLDLDL^ t^`,tP ȟpMt-^^`DH hWLԧ d@` Lꢩ  c ȢL LqLգcl mllm ꢥELȦAD@ C N cLuɠ% d: L cvc]ܢ @J0G eeʎd d E DUEX ЃDWcДJEgDfLH eeh) tt L [ _HH`]ɍ]ɬ` ɠ``DE ɤ<(LΡ DE`80!  eDeE eDDeEE8`D· JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`ê紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-  Ϡ-@跻~!Wo*9~~~~ɬƬ~UVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS @ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9 V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABR^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȌĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i ֭Ƀ,l9`ޠ`5?` /+l   d]@ŵLҦ]]L L}BBL] u`浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`  ? vLDcpq` [` ~  Lh@(LH9LHH/Hh/ H-З( ܸ(& ¸$8 H` *HVDP (ED Z $0x8x D- ܸDD#HIHHHHhHH݌hHhHh݌H6 h Լ ռ ռ ռ`HJ>݌h Hh݌`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ穎鷎귭෍ᷩ췩緈JJJJx Lȿ L`8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``ing Robot,," (# is a number; $ is a one-word name) ",,FORWARD-FD PEN NAMES -NM COLORS."% BACK -BK COLOR -CL FORGET-FG 0-Blk,RIGHT -RT FILL -FL NEW 1-Grn,LEFT -LT REPEAT-RP SAVE -SV 2-Pur,HOME -HM AGAIN -AG LOAD -LD res named $,NEW Forget all procedures,SAVE $ Save all procedures in file $,LOAD $ Load procedures from file $,ERASE $ Erase disk file $_!$ CAT Catalog of files on disk,,? Show this list of commands,QUIT Leave Amaz' # times,BEGIN $ Begin procedure named $,END End procedure,,EDIT Type in a new procedure$EDIT $ Edit procedures named $,REEDIT Reedit unaccepted procedures $NAMES List names of all procedures,FORGET $ Forget proceducolor #,FILL # Fill the screen with color #,PENUP Lift pen up to stop drawing,PENDOWN Put pen down to start drawing,HIDE Hide the roboti$ SHOW Show the robot,,REPEAT # Repeat the commands between,AGAIN 'REPEAT' and 'AGAINI):$FORWARD # Move robot forward # steps,BACK # Move robot back # steps,RIGHT # Turn robot right # degrees,LEFT # Turn robot left # degrees,HOME Send Robot to start position,$PEN # Choose pen shape #,COLOR # Choose pen ILES#D$"BLOAD PICDRAW"R$D$"BLOAD TR SHAPES,A$8000":232,0:233,816:3:1cT$ SLOT/DRIVE^$C$"MZ.PARAMETER FILE":D$"OPEN "C$",L10":D$"READ "C$",R2":DR:D$"READ "C$",R3":SL:D$"CLOSE"h$771,SL:772,DR$ HELP SCREENS$I144:H$((20),UD(20),Z#V(X)X7(X1)(X6)(X8)Fd#RS(X)X12(X11)2Zn#A(X)2(X2)e# APEX#D$"BLOAD APEX,A$E00":3584:3594,28:3595,17#H$(12):CL$(3):RE$(18)CL$"3":LR$(17):B$(25):U$(26):WI$(23):GU$CL$"1"# BINARY FRETURN"U$" when ready: ";/ A$:A$CR$83309 8200D(# INITR2#716256<#D$(4):CR$(13):ES$(27):LK$(8):RK$(21):UK$(11):DK$(10)F#K1$"<":K2$">":(1101)6K1$(96):K2$(126) P#H$(44),M$(20),OX(20),OY(20),HH(20),PC(20),PSOPEN SIDE":D$"READ SIDE":SS:D$"CLOSE SIDE"K: SSSDĴRT5520,6020,5410D H$:10:"Take out the Microzine and turn it over."N RT1RT3X 8320l INSERT PROGRAM DISKv H$:10:6:"Put the Microzine in drive one." 14:8:"Press "B$":A$::@ CONTINUEgJ24:1:" Press "B$"RETURN "U$"to continue, "B$"ESC "U$"to quit";:16368,0TC$:C$ES$6000:C$CR$8020: PAUSEI11000:: CHECK PROGRAM DISK 8300 1::D$"VERIFY SIDE,D1"& 10000-0 D$"52,0:36353,716:36400>`2:3:"START":19:32:"FINISH":P FIND STATESgH$;LR$;CL$;"6":6I17:A$:2:3I2(I4):A$:X019628:X,0X,159:X1,0X1,159:I18:Y:0,Y196,Y:0,Y1196,Y1:RE$:I110:31:2I:A$*>><""2,&""<< <""2,">$<""< &"""  $ & ****&""""""""<""< & """2,"""""**""""2, >>>>**":*:<"">""""""""""">>>"2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""**6"""""""> >>>>00000>"U**U>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >>00"1:4:"THERE IS A PROBLEM WITH YOUR DISK"::9:"PRESS ANY KEY TO RESTART":16384,128:A49152(256SL):AuOO62031孠򮠠䠠栠𬧠䮠宧ɠ䮠⠠䮠ɠ䮍ɠ䬠󠠠ɠ笠笍箠𮠠ɠ䠟䠠ᠠ砠𠠠䮠ﬠɠ䠟宠ɠɠ᠍堠򠠠٠ˠŠ崍ŠŠΠ312(256SL):AO62031 CLOSE":(4)"PR#0":(4)"IN#0":(4)::ZO:11:4:"THERE IS A PROBLEM WITH YOUR DISK":}OD9:"PRESS ANY KEY TO RESTART"ON16384,128:A49152(256SL):AOO620310312,letters to,spell the,names of,fifteen,states.," You may",move any,direction.T%'`%' ERROR%'0:0::::10:14:"SYSTEM ERROR":14:9:"PRESS RETURN TO REBOOT";%$'A$:A$(13)10020%.'60,0,3,1,1,41,50,0,3,1,1,195,100,90,0,4,1,15,13,0,7,1,0,17,12,0,3,3,1[$% FIND STATES DATA$% T T E S I L A,S W G R U F C,I Y E N O H A,P B O G I S A,P I R M A S E,O A S K I N O,W L A S N A T$% 0,24,48,69,90,113,136,158 N%%" Connect",adjacentNCENTRICS,CRISS CROSS,SEVEN BRIDGES,DIAMOND PAIR,FOUR LINES,MANY SQUARES,BORDERS,FIND STATES,MAZE#:%I1MN:OX(I),OY(I),HH(I),PC(I),PS(I),UD(I):#D% 101,90,0,3,1,1,141,70,0,5,5,1,21,80,0,6,5,1,141,105,0,2,5,0,101,12,0,3,4,1,61,80,0,1,5,1D$N% 51,1 3-Wht,SHOW -SH BEGIN -BE ERASE -ER 4-Blk"%HIDE -HD END CAT 5-Orng,PENDOWN-PD EDIT -ED ? 6-Blue,PENUP -PU REEDIT-RE QUIT -QT 7-Wht"% MENU SELECTIONS"&%MN11:I1MN:M$(I):a#0%OPEN SCREEN,THREE SQUARES,COX$:X$(27)2000$MX$(13)1210DMX$(8)Ģ17:29:" ":1150TM(7):1170iMA$"Y"P2$COM$$N"":H$:12:11:"One moment, please...":F$"FENCEDATA":(4)"OPEN"F$:(4)"DELETE"F$:(4)"OPEN"F$",L40":(4)"WRITE"F$",R1":P1$","P2$:(4)"CLO2$,(P2$)1)LV16:1:"What size of board do you want to use?":17:1:" (enter number) ":19:15:B$"1"U$" = 9 Blocks":21:15:B$"2"U$" = 16 Blocks"L~17:29:S$:S$(27)2000LS$"1"S$"2"ĺ(7):1150M17:29:S$:17:30:17):R$(18)(3)"3":E$(5):W$(23):B$(25):U$(26):CL$(3):WH$CL$"3":GU$CL$"1":VI$CL$"2":OU$CL$"5":BU$CL$"6":3584:3594,28:3595,17:K8(P1$)12NA$(12)(13)P1$(P1$,(P1$)1)KB(P2$)01110 LL(P2$)11P2$(11)(13)P2$(PﭭﭭﭭɠɨŠĠɠɠɠѠѩʠɳ䬠䬠䮠塧DN8W:a;k"9 3G au`#6IGUUSdoৢୖØڥ٩ݫശఱఱ૦஫౱`[ -//   &&!)'),08;<,3,)(+~`Ǐ:~@@@ ժ~>=ժժժ;ժ~>=ժժժc ժժp> ժDǏ ~N9ժŏ  ժ;~Ǐ ~~9ժŏ  ժ;~ժŏ~ժ>~9ժŏǏ:~Ǐ||| #0":(4)"IN#0":(4)::Ka:11:4:"THERE IS A PROBLEM WITH YOUR DISK":naD9:"PRESS ANY KEY TO RESTART"aN16384,128:A49152(256SL):AaO6203116384,128:A49152(256SL):AaO62031 to play again? ("B$"Y"U$"/"B$"N"U$"): ";:I$:I$(27)4380``I$"Y"Ģ1:H$:(4)"RUNFENCES"q`I$"N"4380`(7):4340`1:H$:(4)"RUNTABLE OF CONTENTS"`4381`0SL(47081)16:16368,0:SL1SL7SL6a5(12):(4)"CLOSE":(4)"PR21:12:"THE COMPUTER WINS"Y_W2W1CO$"X"Ģ21:12((P2$)2):"THE WINNER IS "P2$_23:1:U$"Press "B$"RETURN"U$" to continue, "B$"ESC"U$" to quit: ";:X$:X$(27)4380_X$(13)4340_(7);:4320<`22:1:EP$:23:1:U$"Do you want" ":23:1:" ";:SD116:WHO(SD)1W1W11^WHO(SD)2W2W21^:W1W2Ģ21:12:" IT'S A TIE"^W1W2Ģ21:12((P1$)2):"THE WINNER IS "P1$_CO$"X"W2W11)DO(Z1)10]@PLA16TH$LE$DO(Z1)DO(Z1)16]J]^H$(12):EL$(14):EP$(15):L$(17):R$(18)(3)"3":E$(5):W$(23):B$(25):U$(26):CL$(3):WH$CL$"3":GU$CL$"1":VI$CL$"2":OU$CL$"5":BU$CL$"6":3584:3594,28:3595,17:{^22:1:\4090::/\PLA1TH$RI$DO(Z1)DO(Z1)1R\PLA1TH$DW$DO(Z1)DO(Z1)1w\PLA11TH$LE$DO(Z1)DO(Z1)1\PLA11TH$DW$DO(Z1)DO(Z1)1\"PLA15TH$UP$DO(Z1)DO(Z1)1\,PLA15TH$RI$DO(Z1)DO(Z1)1 ]6PLA16TH$UP$DO(ZU*U* .""""< <"""<">$ "" &"""  "" ****$$$$"""$$0&< ,""""**"""$>>   *U*U*":*:< ||  ||  ||     ````````@`0  0`@@`px|~??~|xp`@|||||<<<<<>>>> >00000>* @0 66$>>< (&20 *,  **> > "2*&" " >>  ">> "8""> """"""<  >> "LKxHHD+(DA/(Dq'  I)(H  p闠 y) 񗰐 z$ r0θ4KHH0t# p y0p 9G @0ɩL[hHHϸȸI^hHHoTDD"R$:APK1$W$"`"R$:K2$W$"~"R$K'A5642:TF28:GF18:P(0)TF:P(1)TF:P(2)GF:K'L'CV$(9),L$(17):BM10:::D$:'Jl D$"OPEN"F$",L42,D"D:D$:>J :D$"CLOSE":D$:gJ'21000:10100:10200:10900:10810:Jt'AP(1101)6:I16:HU%(I):: 1,2,3,5,6,4:I15:X1(I):X2(I):: 5,273,6,274,6,273,5,272,7,273:D$(4):BA$(8):ESC$(27):G$(7)K'GC%(26)I,PANPESC1:I.eIXD1:H$:12:8:"Getting the sample story...":F$"SAMPLE":8300:4010:ID$"READ"F$",R0":NP:CC:CK:BK:TK:R19:D$"READ"F$",R"R:CV$(R):JR110((PA1)17):R2R116:RR1R2:D$"READ"F$",R"R:L$(R17((R117))9)(13)4390'HX$BA$ĺX$;" ";X$;:4320EHX$"0"X$"9"ĺG$;:4350nH X$;:PG$PG$X$:XX$:XX$(13)4390HXX$BA$ĺXX$;" ";XX$;:PG$(PG$,1):4340HG$;:4350H&X(PG$):X1XNPİ500::G$;"THERE IS NO PAGE ";PG$;::550:4300I+PAX1:ıG3110:4220|G500:A,TF:RE$" for any page, "B$"ESC"U$" to quit"::"or type page number to see next: ";:16368,0G23:34:" ";:34:X$:X$(13)4396GX$ESC$ESC1::GX$"0"X$"9"ĺG$;:4320GX$;:PG$X$ H23:35:X$:X$PPA#FN Z117:2Z:2:L$(Z)::BFPA1:8100:4100:ESC4040LF4200^FESC0:8400:tFESC0:4105:4190F 2303:33,39:2:2:E$;CL$;HU%(TK):CK6ĞFZ19:(2Z):2:CV$(Z);::33,40:21::R$:F^900:FhPA0:3110G|4300:ESC(BK),7(V16)::EB CK6Ğ$EG \EL 9:4:E$;CL$;HU%(TK)"THIS IS A SAMPLE.":3::R$:E& PABMĺG$;:V17:H3837(C$(13)):F0 33,40:H$:1:1,0279,0279,1551,1551,0:3:33,39:V1:PAPA1:2:34(PA10):A,TF:"PAGE ";(PA):8125:(NPPA)ND H1(BK),4H2(BK),4H2(BK),155H1(BK),155H1(BK),4:D :CL$;HU%(BK):1:1:40);:V219:V:1:" ";:40:" ";::20:1:40);R$::E$ HU%(BK):32:I119:1(I14)6,7::0:V08:2X2(BK),8(V16)::0:I018:17(I14),152::32:V19:2X1or "B$"ESC"U$" to quit: ";EC*16368,0:X$:ESC0:X$ESC$ESC1::\C+X$"S"SKIP1::pC/X$(13)2090vC2CH$:CK62310C :;CL$;HU%(CK):V2(CC4)19(CC4):V:2(CC4):382(CC4));::R$:C HU%(BK):CC2320,2330,2340:23706o edit them any-"::"time. Print your stories, too, if you"::"have a printer.":::"A blank data disk can hold 16 stories."::"Each story can be up to 1O pages long."C 21:3:"Press "RE$" to see a sample story,"::2:B$"S"U$" to skip the story, AX$(13)9204A23:1:39);:22:1::H$:HA2000:SKESCıTA7000:AH$:"Use "B$"STORY TELLER"U$" to write your own"::"stories and give them colorful covers."::"Draw pictures in your stories. Save your"B"stories and go back t @62000$@ MAKEABOOK SAMPLEH@(4)"MAXFILES 1":39590:50000^@21:1:EP$:21:y@&XX11500::XX(0):@V23:A,TF:910:920@V:3:B$"RETURN"U$" to continue or ";B$"ESC"U$" to quit: ";:A16368,0:X$:ESC0:X$ESC$ESC1::           0:NAY1 N2N1:H$:D$"RUNTABLE OF CONTENTS";N901NRH$(12):EL$(14):EP$(15):L$(17):R$(18)(3)"3":W$(23):B$(25):U$(26):CL$(3):BU$CL$"6":3584:3594,28:3595,17:N0SL(47081)16:16368,0:SL1SL7SL6(O5(12):(4)""N"ĺX$;:830M,X$ES$900M/X$"`"X$"{"Ģ24:1::G$;"PLEASE PUT CAPS LOCK DOWN!";::X12000::X(0):24:1:38);:LV:LH:810M4G$;:800M>XX$:XX$(13)845MCXX$(8)ĺG$;:830MHXX$;" ";XX$;:810NM:YES1:NAY0:X$"N"YES425LH$:270LH$:10:"Do you want to read an introduction to"::(34);"Story Teller";(34);" and see a sample story?"::YN$;:800:H$:YESĺD$"RUN MAKEABOOK SAMPLE,D1"LNAY285L 521L 16368,0:LV(37)1:LH(36)1 M*X$:X$"Y"X$8);:17:14(GC$):440EKX$" "Ğ:(64(X$));:GC$GC$X$::440^KX$;:GC$GC$X$:440tKGC$""ĺG$;:440K(GC$)1ĺX$;:GC$"":440KX$;" ";X$;:GC$(GC$,(GC$)1):440KGC$""ĺH$:400L23:1:"Is this correct? "YN$;:800:NAYverted picture on the"::"Epson printer.RJ17:1:EP$:17:14:GC$"":16368,0hJX$:X$(13)490xJX$ES$200JX$(8)480J(GC$)13ĺG$;:440KX$"`"X$"{"Ģ24:1::G$;"PLEASE PUT CAPS LOCK DOWN!";::X12000::X(0):24:1:3GC$(9)"G":498.ICH2GC$(9)"H":498~I"Enter the code your card needs to print"::"a picture, and press "RE$".")J::"Control codes will show as highlighted."::"Be sure to enter the entire code, such"::"as ";::"I";::"GI for an in"Press "RE$" when ready: ";:16368,0zH23:33:X$:X$ES$900:X$(13)408:X$LK$X$UK$404:X$RK$X$DK$406:403HCUCU1:CU0CU3H407HCUCU1:CU4CU1HLC28:10:C$(LC)::CU28:10:C$(CU)::LCCU:403IH$:CHCU:CH13)398:335G1:H$:G1:"You can use the standard code for your"::"card, or enter another code. Which code":"do you want?":V13:V28:10:V1Ğ%HC$(V):::10:27:"{}":1182,88:LC1:CU1:21:9:"Use "K1$" or "K2$" to choose."::8:0:L134304:23::(4)"BLOADSTORYTELLER.SPC,D1,A"L1:H1L1(L1256)256:L0(L1256):36352,H1:36353,L0:AN:23:1:EP$:24:5:RE$" to continue, "B$"ESC"U$" to quit: ";::" ";::16368,0 GO16384,128:X$((16384)128):16368,0:X$ES$900:X$(1",L10":D$"READ"F$",R2":DR:D$"READ"F$",R3":SL:D$"CLOSE":D$E3564,PR:3565,PS:3566,GP:3567,SL:3568,DR:GPĹ3569,(GC$):I1(GC$):3569I,((GC$,I,1)):E500E38400:(4)"RUNMAKEABOOK,D1"E+299F,(4)"BLOADPICDRAW,A$8E00":AN3640"7"222DX$;)DXX$:XX$(13)230;DXX$(8)220DD224DPS(X$):H$:10:"Do you have a graphics interface card"::"such as the Grappler{} or the PKASO/U ? ":YN$;:1265,88:800:H$:GPYES:GP400?EF$"MZ.PARAMETER FILE":D$"OPEN"F$:10:"disk for this program.":X14000::H$:D$"RUNTABLE OF CONTENTS,D1"CH$:12:1:"Do you have a printer? "YN$;:800:H$:PR1:NAYĺ:PR0:270C12:1:"What is your printer slot? (1-7): ";(8);:16368,0:PS$""DX$:X$ES$900:X$"1"X$ORY TELLER"R$:8:" For "B$"Story Teller"U$" you need a data disk"::" that was initialized by the Computer"::14:"Stuff program."KCs:::4:"Do you have a data disk? ";:YN$;:16368,0:800:NAYĺH$:11:" Choose Computer Stuff to make a data":50,218,228,12,28,4,0AD$(4):ES$(27):21000:RE$B$"RETURN"U$:G$(7):AP(1101)6:LK$(8):RK$(21):UK$(11):DK$(10):K1$W$"<"R$:K2$W$">"R$:APK1$W$"`"R$:K2$W$"~"R$BYN$"("B$"Y"U$"/"B$"N"U$"): ":300:H$:2:9:L$BU$"ST @62000#@ MAKEABOOK INTROA34304:I13:C$(I):: Standard Grappler,Standard PKASO/U,Other Code:I140:X:767I,X::232,0:233,3:1:0:1,0,4,0,216,54,54,68,57,4,40,196,43,45,150,146,18,63,231,28,36,36,12,76,73,14,150,146,26,12,12,36,36,1           XT20A160:A2170:P18:2680A XT21A190:A280:P19:2680e( XT22A190:A2110:P110:26802 XT23A190:A2140:P111:2680< XT24A190:A2170:P112:2680>F A28,A1A226,A1A226,A11A28,A11A28,A12A226,A12A226,A13A28,A115:2630+ XT13A130:A280:P11:2680N XT14A130:A2110:P12:2680q XT15A130:A2140:P13:2680 XT16A130:A2170:P14:2680 XT17A160:A280:P15:2680 XT18A160:A2110:P16:2680 XT19A160:A2140:P17:26802110:P16:26302 XT6A160:A2140:P17:2630T XT7A190:A280:P19::2630x XT8A190:A2110:P110::2630 XT9A190:A2140:P111:2630 XT10A1120:A280:P113:2630 XT11A1120:A2110:P114:2630  XT12A1120:A2140:P1)22501. DO(8)2(XT8XT11XT22XT23)2250\8 DO(9)2(XT9XT12XT23XT24)2250B DR$(XT)"X":XT1A130:A280:P11:2630` XT2A130:A2110:P12:2630j XT3A130:A2140:P13:2630t XT4A160:A280:P15:2630~ XT5A160:A14)22503DO(2)2(XT2XT5XT14XT15)2250]DO(3)2(XT3XT6XT15XT16)2250 DO(4)2(XT4XT7XT17XT18)2250 DO(5)2(XT5XT8XT18XT19)2250 DO(6)2(XT6XT9XT19XT20)2250$ DO(7)2(XT7XT10XT21XT224)""İ2120:FI$(A4)"X"%B2:B1:+H8RPE1Ē7E\PE2Ē6yfWHO(A2)PE:ZB1B118:B2,ZB218,Z::CH$"":CH$"X":XR19:DO(XR)32730XT((1)24)1:DR$(XT)"X"2250XDXD1:XD12370 DO(1)2(XT1XT4XT13XTA23A312%A24A25A26A313?A27A28A29A314OPLZ2000fDR$(A2)"X"2000DR$(A23)"X"2000DR$(A2A3)"X"2000DR$(A2A31)"X"20002020:A40:B1389830:B28814830:A4A41:A2A4FI$(ADO(Z1)DO(Z1)15PLA15TH$UP$DO(Z1)DO(Z1)1ZPLA15TH$LE$DO(Z1)DO(Z1)1`fvDR$(DR)"X"CH$"X":A219:A24A1A2A27A23A1A21A210A26A1A22&1900:A1A14:1900:A2:7: lZA1A11:A21A2217Z13A1Z11(^Z110Z16A1Z126h1670::YPLA1TH$RI$DO(Z1)DO(Z1)1|PLA1TH$DW$DO(Z1)DO(Z1)1PLA11TH$LE$DO(Z1)DO(Z1)1PLA11TH$DW$DO(Z1)DO(Z1)1PLA14TH$UP$DO(Z1)DO(Z1)1PLA14TH$RI$PLDDRPL1)d:D911:PLDDRPL2F:D1315:PLDDRPL3N:gD24:PLDDRPL1:D68:PLDDRPL2:D1012:PLDDRPL3:D1416:PLDDRPL4":6DR$(DR)"X"ĺ(7);:310@Z119:Z14A1Z1TZYX4,YX4,Y4:"";:+TH$UP$İ1250>TH$DW$İ1290QTH$RI$İ1330dTH$LE$İ1460DR$(DR)"X"ĺ(7);:3101590:1760:310D516:PLDDRPL8: D112:PLDDRPL12:2D13:PLDDRPL F:D57:2,Y2X2,Y6X6,Y6X6,Y2X2,Y2:4:X,YX,Y4X1,Y4X1,YX2,YX2,Y4X3,Y4X3,YX4,YX4,Y4:7:V4:X1,Y1X1,Y5X5,Y5X5,Y1X1,Y1:X2,Y2X2,Y6X6,Y6X6,Y2X2,Y2:7:X,YX,Y4X1,Y4X1,YX2,YX2,Y4X3,Y4X3,xZvV~d WRMB>;3.*//bY_[2T+\3MTWZ]`_]XO:40-'%'-39`W -.tsw-w`FvvfeKpKpoirOvJ'"$%&&`W4C0aHa.0I1H5W:Y-HbH.`FEBC Q NWSNRLS-'NZ~O|LU'}-EP'@2w2v5}*}+h2FF22222ZFZFx2x2ZP15:35:"DRAW":15:33:TH$:15:35:" ":TH$ESC$ĺ"":(4)"RUNTABLE OF CONTENTS" HTH$UP$900 RTH$DW$940 \TH$LE$980 fTH$RI$1010 pTH$" "510z8TENTS" IT$UP$590( IT$DW$6509 &IT$LE$710J 0IT$RI$770[ :IT$" "830d D510y NYTĺ(7);:510 X1110:YY30:1050:PLPL4:510 YBĺ(7);:510 1110:YY30:1050:PLPL4:510 XLĺ(7);:510 1110:XX30:PL430# CH$"X"PEPE1:PE3PE1a 22:1:" ":22:1:PE1ĺP1$;"'S TURN" CH$"":PE2CO$"X"ĺ"COMPUTER'S TURN":2210 PE2ĺP2$;"'S TURN 15:35:"MOVE":15:33:IT$:15:35:" ":IT$ESC$ĺ"":(4)"RUNTABLE OF CON$"~"R$" DOWN" ,1050n 6XR10:ER10:DO0:W10:W20:XD50:ER19:DODODO(ER)::OE19:WHO(OE)1W1W11 hWHO(OE)2W2W21 r:22:33(P1$):P1$" - "W1:CO$"X"Ģ23:338:"COMPUTER - "W2 CO$"X"Ģ23:33(P2$):P2$" - "W2 DO363X4,YX4,Y4:Y:X:XL:YT:4:3:B$L$GU$"F":6:3:"E":8:3:"N":10:3:"C":12:3:"E":14:3:"S"R$ 5:32:U$W$">"R$" RIGHT":6:32:W$"<"R$" LEFT":7:32:UP$"A"ĺW$"A"R$" UP":8:32:W$"Z"R$" DOWN" 7:32:UP$"A"ĺW$"`"R$" UP":8:32:WM 62000 38400:3300:3370:PL1:PE1:T30:B120:L80:R170:DR$(60),FI$(25),DO(25):LE$(8):RI$(21):UP$(11):DW$(10):ESC$(27):(1101)6UP$"A":DW$"Z"i nH$:7:XLR30:YTB30:X,YX,Y4X1,Y4X1,YX2,YX2,Y4X3,Y4X3,Y                 T}`~}xTbTɋˇՅځWZW`FArGD `;P`5^I͋΍͌`<ȏț`6`<`5MLKL`F `5̊U`PAr@`5N}ʁʈˌʊˍˏʐ˓˕˖ʙuwy{}v܂݅܈݋܎ܑݑږɜƞڔpş%~·͢&)ydPD[<]*b$dkr`F#NVQT^{߄_S~`|uWZ`@`)c)~ uAA f:U@Cl`5T_0`8ZVPc[$l*k+Z$ZxOxxpjTOxN[nn[ZyyxUӕ܋WNNWZŇ[[M[Z畠ZZML`<9#% J-`<€~|zyxvtrrpqŠȞ̜ΚљԘזؖܕޓ~Ɂʃ˖     $"&*)P''z,{,>?|5r=l=W2NOCXCJjss[mPIPBXWZW^^[W[%C0B3B6C5"B(C,ZVTQ N$N!M$K'K+I*J/I-L0O0R,Q.U*V(X%Y$Z'Y*[+^*`'c%c#e"d fhkhnlqtwwxursp!ty|~!}${'yy*v+t.s/q3r0o6n9N#  h`=<;8 4#3&1)/+-,0+3)6(9);)=*9,7-3/1/.2,4*6'6,8*7/6155664983:0<-=*?'@$C$C&C*C.     CH$LK$2242'CH$DK$CH$RK$2248;CH$(13)2254E2224\CUCU1:CU0CU4f2251}CUCU1:CU5CU14(2LC):13:" ";:4(2CU):13:CU$;:LCCU:2224CHCU:CCCH:4:1:EP$:CC4İ2120:2100:2303:2380:1:104,43188,43:8:16::GU$12)R$::1:0:I16:190(I14),74:12:16:"NO BORDER":6:13:CU$;:15:5:"Use "K1$" or "K2$" to make a choice."::8:"Press "RE$" when ready: ";:16368,0:LC1:CU117:33:CH$:CH$ES$ES1: CH$UK$ESıHH10:3:"WHICH COLOR FOR THE BACKGROUND?":V12:FL1:2900:ESınICKCH:BKCKĢ10:1:G$EP$;:2120TCK6TKCK:U16:3:"WHICH COLOR FOR THE LETTERS?":V18:FL0:2900:TKCH:GH$:1:9:E$GU$"MAKE A COVER"R$:4:3:"WHICH BORDER?"H$:Z$"edit":ZZ$"Edit":4105:2400:8205:D$:3000:H2200:ESı2300:22:1:"Do you want to change the border or the colors? "YN$;:800:500:YEBK0:CK0:TK0:20002400:44:3:"WHICH COLOR FOR THE BORDER?":V6:FL0:2900:BKCH:$:10:10:B$G$"The data disk is full!"U$::1:"You must erase a story or use a new data":"disk before you can add another story.":X14000::X(0):_10220:Z$"type":ZZ$"Type":2000:ESıj8500:3000:PA1:2500:NB0ıESES0:823:1:39);:22:1::FLĺH$(>ES0:11000:ESıeCH1100,1200,4000,5000,6000:EKıo1000LNBMBĺH$:12:4::G$"TOO MANY STORIES ON THE DATA DISK!"::550:Q2048VFER0:FS9999:DO:F,ZL,D,FS,FER:XD:10810^FS30ĺH$:XX$(13)845(CXX$BA$ĺG$;:830?HXX$;" ";XX$;:810aM:YE1:NA0:X$"N"YE0:NA1gV23:A,TF:910:920V:3:B$"RETURN"U$" to continue or ";B$"ESC"U$" to quit: ";:16368,0:X$:ES0:X$ES$ES1::X$(13)920"1ACV$(V)((CV$(V),H1)" "(CV$(V),(CV$(V))H1),19):791e 16368,0:LV(37)1:LH(36)1*X$:X$"Y"X$"N"ĺX$;:830/X$"`"X$"{"Ģ24:1::G$"PLEASE TYPE CAPITAL 'Y' OR 'N'!";::550:24:1:38);:LV:LH:8104G$;:800>XX19789:790-CV$(V)(CV$(V),18)" ":791NCV$(V)(CV$(V),18)" ":791CV$(V)(CV$(V),H1)(CV$(V),(CV$(V))H)" "33,39:(2V):2:CV$(V);:704(CV$(V),1)" "ĺG$;:704H1795:H19704:796CV$(V)" "(CV$(V),18):79HAPES,A$1000":232,0:233,16"6'16' ON ERROR6':::10:14:"SYSTEM ERROR":14:9:"PRESS RETURN TO REBOOT";:16368,06$'A$:A$(13)100206.'6 ERASE -ER 4-BLK5$ HIDE -HD END CAT 5-ORNG,PENDOWN-PD EDIT -ED ? 6-BLUE,PENUP -PU REEDIT-RE QUIT -QT 7-WHT5$I114:SS(I):5$6,1,2,3,4,5,6,4,5,3,3,16,16,165%D$(4):D$"BRUN RR DOSX.OBJ"6%D$"BLOAD TR SR; $ IS A ONE-WORD NAME)",,FORWARD-FD PEN NAMES -NM COLORS5$ BACK -BK COLOR -CL FORGET-FG 0-BLK,RIGHT -RT FILL -FL NEW 1-GRN,LEFT -LT REPEAT-RP SAVE -SV 2-PUR,HOME -HM AGAIN -AG LOAD -LD 3-WHT,SHOW -SH BEGIN -BE ET ALL PROCEDURES,SAVE $ SAVE ALL PROCEDURES IN FILE $,LOAD $ LOAD PROCEDURES FROM FILE $,ERASE $ ERASE DISK FILE $C4$CAT CATALOG OF FILES ON DISK,,? SHOW THIS LIST OF COMMANDS,QUIT LEAVE AMAZING ROBOT,," (# IS AN INTEGEV GUVXWcd" VV~"dVV}VnFF8}(nnRnn n'n"(n8nhh`P<"   88n(}(_PVPVFF_(_F대(ds88((27222(##### #2 22A(AdAsAAdAddPPA_t_tnn}t}nn}}____}}2PP2## #"2##V NAMED $,END END PROCEDURE,,EDIT TYPE IN A NEW PROCEDURE2$ EDIT $... EDIT PROCEDURES NAMED $...,REEDIT REEDIT UNACCEPTED PROCEDURES~3$ NAMES LIST NAMES OF ALL PROCEDURES,FORGET $...FORGET PROCEDURES NAMED $...,NEW FORGTH COLOR #,PENUP LIFT PEN UP TO STOP DRAWING,PENDOWN PUT PEN DOWN TO START DRAWING,HIDE HIDE THE ROBOTE2|$ SHOW SHOW THE ROBOT,,REPEAT # REPEAT THE COMMANDS BETWEEN,AGAIN 'REPEAT' AND 'AGAIN' # TIMES,BEGIN $ BEGIN PROCEDURERD # STEPS,BACK # MOVE ROBOT BACK # STEPS,RIGHT # TURN ROBOT RIGHT # DEGREES,LEFT # TURN ROBOT LEFT # DEGREES,HOME SEND ROBOT TO START POSITION,t1r$PEN # CHOOSE PEN SHAPE #,COLOR # CHOOSE PEN COLOR #,FILL # FILL THE SCREEN WI,PUT DATA DISK IN DRIVE,DISK ERROR,DISK FULL/$ CAN'T FIND FILE,INTERRUPTED,PUT MICROZINE DISK IN DRIVE,TURN MICROZINE DISK OVER,COLOR SHOULD BE 0 TO 7,PEN SHAPE SHOULD BE 1 TO 14/T$ HELP SCREENS/^$I144:H$(I):0h$ FORWARD # MOVE ROBOT FORWAT WITHOUT AGAIN,SHOULD BE AN IMMEDIATE COMMAND,CAN'T EDIT ANY MORE LINES,CAN'T CHANGE THE PRIMITIVE,/$ PROCEDURE SHOULD START 'BEGIN NAME',TOO MANY PROCEDURES DEFINED,OUT OF MEMORY,REPEAT NEEDS A POSITIVE NUMBER,AGAIN WITHOUT REPEAT,NEEDS A FILE NAMEQUIT,-13,RE,-6,REEDIT,-6,REPEAT,-14,RIGHT,-19,RP,-14,RT,-19,SAVE,-1,SH,-24,SHOW,-24,SV,-1|-#XX$(1):DW$(1)XX$:DP%(1)12-#I325:ER$(I):c.# DON'T KNOW,TOO MANY NESTED PROCEDURES OR REPEATS,IS NOT A VALID NUMBER,SHOULD BE IN A PROCEDURE,REPEA-20,CAT,-4,CL,-28,COLOR,-28,ED,-5,EDIT,-5,END,-11,ER,-3,ERASE,-3,FD,-17,FG,-7,FILL,-23,FL,-23,FORGET,-7,FORWARD,-17,HD,-25,HIDE,-25,HM,-21,HOME,-21Y-#LD,-2,LEFT,-18,LOAD,-2,LT,-18,NAMES,-9,NEW,-8,NM,-9,PD,-27,PEN,-29,PENDOWN,-27,PENUP,-26,PU,-26,QT,-13,00X.5)1000:WX(X)X(X280)280:WY(Y)Y(Y160)160+}#RS(X)(X12(X11)1)SF1:HH(X)X(X360)360:RR(X)X(X24)24+#SL(771):DR(772)+#ND50:I2ND:DW$(I),DP%(I):,# ";",-16,AG,-15,AGAIN,-15,BACK,-20,BE,-10,BEGIN,-10,BK,$,15)S*F#WS$(152),DW$(80),DP%(80),DL%(80),ST%(100),ER$(25),CL$(105),SS(14),H$(44)k*P#WM150:DM80:SM100*Z#NW1:XX$(1):DW$(1)XX$:DP%(1)1:WS$(1)XX$" "XX$*d#KB16384:KE155*n#DC3.14159265180:SC1;+x#A(X)WX(2((X1)2)1):R(X)(10O CONTINUE";:&)"C$:C$CR$8860:1)(# INIT<)-#38400)2#L$"":CR$(13):RT$(21):LF$(8):BL$(7):ES$(27):CX$(24):C1$">"LF$:C2$" "LF$:UK$(11):DK$(10)*<#SP$" ":SP$SP$SP$SP$SP$SP$SP$(SPRROR LOCATION(!BL$;:PL2ıL(!I1ND:XPLDP%(I)1:X0XDL%(I)Ă:s(!"PROBLEM IN LINE "X" OF "DW$(I):(`" HELP (j"::1:I122:1:I:H$(I)::8850(t":I2344:1:I22:H$(I)::8850(~"16304,0::24:)"24::"PRESS RETURN T500,8400,8400,8400,8400,8400,8300,8500,8400,8400,8500,8400,8500,8400,8300,8400d'"ERROR "ER:8100o' QUITy' 8020'l W$-ERROR'v 8600:W$" "ER$(ER):8100' ERROR' 8600:ER$(ER):8100'4! ERROR-W$'>!8600:ER$(ER)" "W$:8100 (! E::&@ BEGIN&J9000;&T:16304,0:16301,0:24:1P&^4600:SF1:4020&hX(773):4730:X(774):4830:(775)İ4650& MAIN PROGRAM&":";:LM38:L$"":1000::HF8800:ES8110:3800N'ER8100,8200,8500,8400,8300,8300,8400,8300,8400,8%PL1ER8:^%NW2:J0:I1ND:DP%(I)0JJ1:DW$(J)DW$(I):DP%(J)DP%(I):DL%(J)DL%(I)%:NDJ:I2WM:WS$(I)""::I(0):% NAMES%X0:Y0:I1ND:DP%(I)0Ă::%(W$DW$(I)" ":XX(W$):X39ĺ:X(W$):YY1:Y3ľC$:Y0&2W$;:h<<==ܟ۟(())PPQQxxyyyQQxnPn(o(oPP))OP`<`<`<`7#p))(p(`!$ 5z#V1:PAPA1:2:34(PA10):A,TF:"PAGE "(PA):HEİ8125L#D (NPPA)NPPAp#N Z117:2Z:2:L$(Z)::HE0:#v 33,40:A,TF:500:B$"Now, "Z$" your story!"U$:APĺ"Use arrows, "B$"CTRL J"U$", "B$"CTRL K"U$" to move":"cursor. ";:3193/$x "Use "W$"C6)2:" ";:V2:(CU6)2:W$"`"R$:LCCU:2930=" CHCU:R" PA0:MC2NP0p" 3100:MO1:V1:H1:100:" 3110:3190"& PABMĺG$;:V17:H3837(C$(13)):"+ PAMC3HELPİ82259#0 33,40:H$R$:1:1,0279,0279,1551,1551,0:3:33,39:ess "RE$" when ready: ";:16368,0:LC1:CU1:V2:4:W$"`"R$c!r 24:33:CH$:CH$ES$CH4:ES1:}!| CH$UK$CH$LK$2950! CH$DK$CH$RK$2955! CH$(13)2990! 2930! CUCU1:CU0CU5FL! 2960! CUCU1:CU6FLCU11" V2:(L:11:(BO$(LC)BL$,20)::3(S0CU):11:(BO$(CU)BL$,20)::LCCU:2635W n CHCU:: T V:3:I15FL::CL$HU%(I)" ";::" ";:::R$:FLĒ3:222,88250,88250,95222,95222,88=!^ 22:5:"Use "W$"<"R$" or "W$">"R$" to make a choice."::8:"Prress "RE$" when ready:";qK 16368,0:23:34:CX$:CX$(13)CX$LK$CX$RK$CX$UK$CX$DK$CX$ES$2635P CX$(13)2670U CX$ES$ES1:H$:Z CX$UK$CX$LK$CUCU1:CU0CUNB_ CX$DK$CX$RK$CUCU1:CUNB1CU1I d 3(S0LC)2::G$"THERE ARE NO STORIES ON THE DATA DISK!"::550:J- NB1CH1:2 1:7:E$VI$"CHOOSE A STORY"R$:S02(NB8):X(0):I1NB:3(S0I):11:I1ĞA (BO$(I)BL$,20)::::LC1:CU1:21:9:"Press "W$K1$R$" or "W$K2$R$" to choose.":23:9:"PHU%(TK);17);:~t :500:R$;:22:B$ZZ$" your title!"U$:KL$:"Press "HK$" when you are done.";:V1:H1:700:KL%0:SH%1: H$:NB0ı 2530:ESı 2570 2600:NB0ı ESı F$"MB."BO$(CH):8300: 8100:9( H$:NB0Ģ12:40);R$::$ HU%(BK):32:I119:1(I14)6,7::0:V08:2X2(BK),8(V16)::0:I018:17(I14),152::32:V19:2X1(BK),7(V16)::B CK6ĞG L 9:4:E$CL$HU%(TK)"THIS IS A SAMPLE.":3::R$:` CK6Ğj MC1Ģ9:4:E$CL$H$:CK62310[ :CL$HU%(CK):V2(CC4)19(CC4):V:2(CC4):382(CC4));::R$: HU%(BK):CC2320,2330,2340:2370 H1(BK),4H2(BK),4H2(BK),155H1(BK),155H1(BK),4:  :CL$HU%(BK):1:1:40);:V219:V:1:" ";:40:" ";::20:1: Š ӠҠΠ0ˠH  Š Ӡ̠Š͠Š# ӮˠڮҠŠ ˠϠ ˠŠ ӮƠ ٠ŮʠԠҮʠԮӠҮà  ҠӠ!Ҡخʠ"ҠàӮàŮàԮà ΠӮà נ ˠԯŮʠԮʠ ˠӮˠҠԠРϠŠŠŠƠӠӠ ĠàؠŠؠ P2$(X28)(8)XX1:14:X:"_":860HJP2$(X28):XX1:X2812940QJ860oJ14:X:X$:X$(27)2000JX$(13)980JX$(8)Ģ14:X1:"_":XX1:860J(7):940JX112:P2$P2$P2$(X)::1080KH$(12):EL$(14):EP$(15):L$(4D$(13)ĺ(7):800:I>P1$NA$:A$"Y"COM$"X":1080uIH14:1:"Enter name of your opponent:___________":X29I\14:X:P2$(X28):P2$(X28)(27)2000IfP2$(X28)(8)X29ĺ(7):860IpP2$(1)(13)ĺ(7):830IzP2$(X28)(13)980&JA$"N"BB$"O"740!H(7):680*HBB$UH11:27:C$:C$(8)Ģ11:26:" ":680hHC$(27)2000HA$"Y"BB$"E"C$"S"790HA$"N"BB$"O"C$(13)830H (7):750HC$H 11:28:D$:D$(27)2000H*D$(8)Ģ11:27:" ":750Iant to play against the":11:9:"computer? ("B$"Y"U$"/"B$"N"U$"): "cG11:26:A$:A$(27)2000GA$"Y"A$"N"ĺ(7):650GU$;A$G11:27:BB$:BB$(27)2000GBB$(13)830GBB$(8)Ģ11:25:" ":650GA$"Y"BB$"E"740H592,03,03,159:279,0279,159278,0278,159277,159277,0276,0276,159:0,159279,159279,1580,1580,157279,157FN23:2:B$"RETURN"U$" to continue or "B$"ESC"U$" to quit: ";:IT$:IT$(27)2000FbIT$(13)ĺ(7):590FlDGv9:3:"Do you wNA$(X19):XX1:X32410:E5:32:IT$:IT$(27)2000_EIT$(8)XX1:5:31:"_":410zEIT$(13)ĺ(7):470EX112:NA$NA$NA$(X)::NA$(1)(13)NA$"":(7);:390E630tF7:0,0279,0279,10,10,2279,2:0,00,1591,01,1592,1 make a fence."U$:5406DrH$:2:15:L$GU$"FENCES"R$hD5:1:"What is your name? ____________":X20D5:X:NA$(X19):NA$(X19)(27)2000DNA$(X19)(13)500DNA$(X19)(8)X20ĺ(7):410DNA$(X19)(8)XX1:5:X:"_";:410Ehe arrow keys to move left and":9:4:"right, the "B$"A"U$" key to move up and the":11:4:B$"Z"U$" key to move down. Once you have":13:4:" placed the marker where you want,"DT15:3:"press the SPACE BAR and one of the":17:4:" keys to"at the end of the game wins.":540UBH$:3:15:L$VI$"FENCES"R$:(1101)6300B7:8:"Use the arrow keys to move ":9:7:"marker. Press the SPACE BAR":11:9:"and then an arrow key to ";:13:15:"make a fence.":540:370C,7:4:"Use t70AiTH$(27)ī20003AnTH$(13)ĺ(7);:100DAxIT$"N"370$BH$:3:15:L$OU$"FENCES"R$:7:7:"Fence in a square and make it ":9:7:"yours. Challenge a friend or";:11:15:"the computer.":15:6:"The player with the most squares":17:8:] @62000@ FENCESY@ P2$(12):NA$(12):38400:1010:H$:3:15:L$BU$"FENCES"R$@F10:3:"Do you want instructions? ("B$"Y"U$"/"B$"N"U$"): ";:IT$:IT$(27)2000@PIT$"Y"IT$"N"100@Z70Ad10:36:IT$;:TH$:TH$(8)Ģ10:36:" ":    SK":( D9:"PRESS ANY KEY TO RESTART"L N16384,128:A49152(256SL):AW O62031d O62031W16300,0:0:V160167:64,V218,V::3:103,1:104,64:16384,0:(4)"RUNMICROZINE SIDE 2":l dX175:X: 0SL(47081)16:16368,0:SL1SL7SL6 5(12):(4)"CLOSE":(4)"PR#0":(4)"IN#0":(4):: :11:4:"THERE IS A PROBLEM WITH YOUR DIX 62000N :::D$(4):16301,0:D$"BLOAD RUNPACK,A38250":16368,0:D$"BRUN MYPAK":16304,0:16302,0:16299,0:16297,0:(16384)127Ĺ16300,0:40#100:16299,0:(16384)12740$100:16300,0:(16384)12740%35[ (  H2H-jHOH:VOV:A,TF:3:6-t3600:EKEK0:3790-3:H27,(V22)81H276,(V22)81:500:"Are you sure you want to "B$G$"ERASE"U$" this":"text? "YN$;:800:NAY3790-V1V23730-IH1H2:HA,I:CA,32:896L$(V1)::3790.V2V11āK590:HH1:H0H38:VV1=,LVV1(VV1HH1)EK1:3690G,M3645,N3:H7,(V2)81272,(V2)81:VV1:H1ē7,(V2)81H71,(V2)81,Q3645,VVV1EK1:3690,Z2V:2:L$(V):VV1:0:H7,((V2)8)1272,((V2)8)1:3645-`V2V:L$(V):G$;:3:7,(V2)81H7,(V2)81:3645F+BX$ES$EK1:3690^+CX$"E"X$"e"3680|+DX$RK$(V17H38)3657+EX$DK$V173662+FX$UK$V13670+GX$LK$(V1H1)3659+HG$;:3645+I580:HH1:H39H1:VV1+J3645,)3635*!X$DK$V1736221*"X$UK$V13632@*#G$;:3611P*&VV1:3611j*)HH1:H39H1:VV1t**3611*0VV1:3611*3HH1:H0H38:VV1*43611*81:OVV:OHH:V1V:H1H:CX$"end":CE$"E":3602/+=V2:H1:X$:X$(13)ĢV2:2:$U$" when":"ready. Press "B$"ESC"U$" to quit ERASE."M)16368,0:33,39:g)OHH:OVV:EK0:33,39)V2:H1:X$:X$ES$EK1:3690)X$"S"X$"s"3640)X$(13)ĢV2:2:L$(V):G$;:3611)X$RK$(V17H38)3625* X$LK$(V1H1":CE$"S":3602:3610(33,40:500:"Use arrows";:APĺ" to move to "CX$" of text to":"erase. Press "B$CE$U$" when ready. Press "B$"ESC"U$" to":"quit ERASE.":36096)", "B$"CTRL K"U$", "B$"CTRL J"U$" to move to":CX$" of text to erase. Press "B$CEI120:(I64);" ";:'\ A,GF:23:2:I2126:(I64);" ";::24:2:A,TF:I2126:(I64);" ";::24:14:APĺ" "HK$" to quit DRAW.";:3490'p " "B$"ESC"U$" to quit DRAW.";' 33,39:MO2:A,GF:' A,TF:MO1:10340:3190:(CX$"start13)3370'& X$BA$CUCU1:CU0CU6H& X$(21)CUCU1:CU7CU1& 21:H3(LC):C$(LC);:21:H3(CU)::C$(CU);::LCCU:3330&* CHCU:500:CH3500,3400,3700,3800,3900,51000:'H 33,40:500:A,GF:10360:2:I120:(I64);" ";::22:2:A,TF:125:Z117:Z2:2:L$(Z)::*% 3190:V% 33,40:500:A,TF:I16:H3(I):IMOĞ% C$(I);:::23:2:"Use "W$"<"R$" or "W$">"R$" to choose; press "RE$": ";:16368,0:LCSQ(MO):CUSQ(MO)% 23:40:X$:X$BA$X$(21)X$(13)3330& X$(<"R$", "W$">"R$", "K2$", "K1$" to move cursor."k$y "Press "HK$" for other commands.":33,39:MO1:10340:{$ 3210:3290$ PAMC3İ8225% 33,40:H$:1:1,0279,0279,1551,1551,0:3:V17:33,39:PAPA1:2::2:34(PA10):A,TF:"PAGE "(PA):8U @U*@P*U*U*@**@*U*U*U*U@ U*@T*U*U*@* @*U*U*E@*U@(U*@T*U*U @* A*U*U*E@*U@(U*@*U @*C*U*U*AP*U@*U*U*E*U*G*U*U*@P*@*U*U*E*U*G*U*U*@T*@i@ ii,iPi ci0 e i `R,W,T,P`? @!!#?$$@%%''?((@))++>,,@--//>00@1133>44@5577>88@99;;=<<@=??T*@C*U*U*A*U*G*U*U @U*@A*U*U*A*U*@*U*U*U_*U*  1:4:"THERE IS A PROBLEM WITH YOUR DISK":N D9:"PRESS ANY KEY TO RESTART"r N16384,128:A49152(256SL):A} O62031 G 62000- MICROZINE SIDE 2 (HELLO2)838400S2(4)"BLOADAPEX,A$E00"o<3587:3594,28:3595,17F(4)"RUNTABLE OF CONTENTS,D1"0SL(47081)16:16368,0:SL1SL7SL65(12):(4)"CLOSE":(4)"PR#0":(4)"IN#0":(4)::+ :1 1pN12:11:(7);B$"Cannot read side ";SIDE(CH)"!";U$:23:8:"Press "B$"RETURN"U$" to continue: ";:16368,0NCX$:CX$(13)61334NHO$:N0SL(47081)16:16368,0:SL1SL7SL6jO5(12):(4)"CLOSE":(4)"PR#0":(4)"IN#0":(4):::1B$(25):U$(26):CL$(3):WH$CL$"3":GU$CL$"1":VI$CL$"2":OU$CL$"5":BU$CL$"6":PI$CL$"K":3584:3594,28:3595,17:MHMRDER%0:QZ%0:61200:MM參61300M$DER%0ĺD$"VERIFY"VN$",D"DR%M.216,0:MtN~QZ%QZ%1:QZ%QX%DER%first electronic newspaper"::" simulation."::::" Sound off with "B$"Sound Effects"U$", a"::" collection of buzzes, creaks, sirens"L:" and more.":490::LR|MRHO$(12):EL$(14):EP$(15):LR$(17):RE$(18)(3)"3":EX$(5):WI$(23):ehistoric times with dinosaurs of"::" many sizes."K::" The second Microzine Store gives you a"::" data base of hundreds of things you can":" get for free, or close to it.":490:5:EP$:6L:" Learn about the Summer Olympics with"::" our ss "B$"RETURN"U$" to continue: ";:16368,0BJX$:X$(13)495HJNJ4KHO$:1:2:LR$PI$"WHAT'S NEXT"RE$:4:2:"In the next issue of Microzine...":::" You go searching for fossils in the"::" next Twistaplot, but find yourself in"::" pr$", you'll use LOGO-"::" like commands to teach your robot to"::" move, draw, solve puzzles, and more.":::I" Claim the most territory to win "::B$" FENCES"U$", a computer adaptation of a"::" faithful, old game.":490:HO$:+J23:8:"Preto find their five":::" software treasures."H17:2:"Use "B$"STORY TELLER"U$", a word/picture"::2:"processor, to write and illustrate your":" own stories.":490qI5:EP$:5:2:"Also in this issue of Microzine...":8:" In "B$"AMAZING ROBOT"UG<HO$:DR%1:QX%2:VN$"MICROZINE SIDE "(SIDE(CH)):61000::FG.HHO$:2:2:EX$PI$"WELCOME!"RE$:5:2:"In this issue of Microzine...":::" You'll run into pirates in the"::" Twistaplot, "B$"PIRATES OF THE SOFT SEAS"U$"."::" Solve puzzles moment, please....":UF3070,0:P$(CH)"TWISTAPLOT"ĺ(4)"BLOADLITTLE APEX,A$1600"jF(4)"RUN"P$(CH)pF,F6:HO$:11:4:"That program is on the other side."::" Turn the disk over and press "B$"RETURN"U$": ";:16368,0F:X$:X$(13)314@00:+ESIDE(CH)SIDECH1İ300:DER%ĬECH8ĺHO$:11:8:"Take out the "B$"Microzine"U$" and"::11:"turn off the computer."ECH8238ECH1İ400:200EPIC(CH)İ243:(4)"RUNLOAD PIC,D1":E243:245F:1:(12):12:10:"One 17.DCX$"C"Ģ1:HO$:(4)"RUNCREDITS,D1":VDCX$UK$CX$LK$CUCU1:CU0CU7~DCX$DK$CX$RK$CUCU1:CU8CU1D3(2LC):4:(ME$(LC)BL$,24);:3(2CU):4::(ME$(CU)BL$,24);::LCCU:217DCHCU:3070,CH:CH2Ĺ795,0ECH7İ54:B$"C"U$" to see credits, or "B$"ESC"U$" to quit: ";C16368,0:24:38:CX$:CX$(13)CX$LK$CX$RK$CX$UK$CX$DK$CX$"C"CX$(27)217CCX$(13)234CCX$(27)CH8:237DCX$"C"Ģ24:38:CX$;:X$:X$(13)Ģ24:38:" ";:2U$"TABLE OF CONTENTS"RE$:CU1:LC1:5:I17:4:CUIĞB(ME$(I)BL$,24);::32:"Side "SIDE(I):::1:1,24275,24275,1421,1421,24:20:4:"Press "WI$K1$RE$" or "WI$K2$RE$" to choose a program."6C22:9:"Press "B$"RETURN"U$" when ready.":24:ide,Pirates of the Soft Seas,Story Teller,Amazing Robot II,Fences,Computer Stuff,What's Next?:I17:SIDE(I):: 1,1,2,2,2,2,2:I17:P$(I):A} X,TWISTAPLOT,MAKEABOOK INTRO,TR SET UP,FENCES,UTILITIES,X:I17:PIC(I):: 0,0,0,0,1,1,07B1:4:LR$Ov @62000@38400:D$(4):BL$" ":CU1:21000:F$"SIDE":D$"OPEN"F$:D$"READ"F$:SIDE:D$"CLOSE"F$:D$:I17:ME$(I)::AP((1101)6):LK$(8):RK$(21):UK$(11):DK$(10):K1$"<":K2$">":APK1$"`":K2$"~"As What's Ins     "3D:CH$"":PE2CO$"X"ĺ"COMPUTER'S TURN":2230LDNPE2ĺP2$;"'S TURN"DX15:35:"MOVE":15:33:IT$:15:35:" ":IT$ESC$4340DlIT$UP$680DvIT$DW$740DIT$LE$800DIT$RI$860DIT$" "920D600DYTĺ(7);:600WHO(KD)2W2W21WC:22:33(P1$):P1$" - ";W1:CO$"X"Ģ23:338:"COMPUTER - "W2CCO$"X"Ģ23:33(P2$):P2$" - ";W2CW10:W20:XD100:KD116:DODODO(KD)::DO1644230CDO0:22:1:CH$"X"PEPE1:PE3PE1D0PE1ĺP1$;"'S TURNHT":6:33:W$"<"R$" LEFT":UP$"A"Ģ7:33:W$"A"R$" UP"[B^UP$"A"Ģ7:33:W$"`"R$" UP"BhDW$"Z"Ģ8:33:W$"Z"R$" DOWN"BrDW$"Z"Ģ8:33:W$"~"R$" DOWN"B|XL:YT:1140B22:1:XR10:" ":KD116:WHO(KD)1W1W11CO$:(4)"CLOSEFENCEDATA".ACO$"X"P2$CO$AH$:7:XLR30:YTB30:X,YX,Y4X1,Y4X1,YX2,YX2,Y4X3,Y4X3,YX4,YX4,Y4:Y:X::5:1:L$OU$"F"8B7:1:"E":9:1:"N":11:1:"C":13:1:"E":15:1:"S";R$:5:33:U$W$">"R$" RIG! @62000 @ MEDIUM FENCE@38400:4190:PL1:PE1:DR$(40),FI$(16),DO(16):WHO(16):LE$(8):RI$(21):UP$(11):DW$(10):ES$(27):(1101)6UP$"A":DW$"Z"AdT20:B140:L70:R190:"":(4)"OPENFENCEDATA,L40":(4)"READFENCEDATA,R1":P1$,C             6;5(12):(4)"CLOSE":(4)"PR#0":(4)"IN#0":(4)::m:11:4:"THERE IS A PROBLEM WITH YOUR DISK":D9:"PRESS ANY KEY TO RESTART"N16384,128:A49152(256SL):AO62031 se....",:(4)"RUNTABLE OF CONTENTS,D1"uRHO$(12):RE$(18)(3)"3":WI$(23):BO$(25):UN$(26):EP$(15)RCL$(3):GU$CL$"1":VI$CL$"2":OU$CL$"5":BU$CL$"6"bR3584:3594,28:3595,17kR0SL(47081)16:16368,0:SL1SL7SLЖ5:"Apex Text, \| 1983, Tim Cimbura."/4508900>O RETURN ]910:93024:9:"Press "BO$"RETURN"UN$" to continue: ";:16368,0CX$:CX$(27)990CX$(13)920HO$HO$:12:10:"One moment, plea:  0,0,0,0,0,8,8,42 I18:X:8159I,X:H  0,0,0,8,0,8,0,0N W 990~ X2:5:WI$BU$"ACKNOWLEDGEMENTS"RE$ b6:11:"Graphics created with"::3:"Penguin Software's Graphics Magician"&{12:5:"Character graphics created with"::14:"Deborah Kovacs":13:"Creative Director"^ :15:"Stephen Gass":14:"Project Manager" :14:"Jeffrey Siegel":14:"Project Editor" :8:"Amy McKinley and Andy Ragan":13:"Associate Editors" 900 600:990 I18:X:7903I,Xic Design Consultant" I17} J7:"Lauretta Jones, Lorene Lavora"::15:"and Sandi Young"::11:"Computer Illustrators" 900 2:9:WI$OU$"PUBLISHED BY"REG$:: 14:"SCHOLASTIC INC."::5:"73O Broadway, New York, NY 1OOO3" - :ve Updegraff":16:"Programmers":+ 900N ,2:10:WI$VI$"GRAPHICS BY"RE$U 65 @16:"Sandi Young"::13:"Art Director and"::9:"Computer Graphic Designer" B2:104,80184,80:104,120184,120:3 D12 E15:"Will Kefauver"::9:"Graph"Northfield, Minnesota":O :16:"Dan Klassen":12:"Producer and Editor": 14:"David G. Olmon":14:"Lead Programmer": "Tom Hansen, Karen Klassen and Don Wagner";:12:"Software Designers":" 9:"Al Borchers, Gary Johnson":12:"and Da 62000 CREDITS&38400121000KdI18:X:7903I,X:ke 112,8,100,20,20,100,8,112nI18:X:8159I,X:o 15,16,39,32,32,39,16,152:11:WI$GU$"CREATED BY"REG$ ::"INFORMATION TECHNOLOGY DESIGN ASSOCIATES":10:     />ժŏ~`~/~Ǐ~~~~>/~ ժժ||| ժ~|W ժժp> ժD ժժp> ժ;p|Ǐ ~~9ժŏ (|ժ~/~ժŏ~ժ>~~/>ժŏ>ժ>>/>ժŏ~p~/>Ǐ>>>>>/~ ժժNNN ժ~~W ժ>>W ժժp> ժ; ժժp~Ǐ >>9ժŏ DNժ>>Q@Dժ>/>ժŏ>ժ>>/>ժŏ>x>/>Ǐ>>>>>/> ժժǏ>>>Ǐ>>/> ժժ ժ>>W ժժp> ժ; ժժp>  >> ժ>/>ժŏ>ժ>>/>ժŏ>ժ|>/>ժŏ>ժ~>/~~~~Ǐ~~/> ժ>>W ժժp> ժ; ժժp>ժx~ ժ; ժժp>WN~~ ժ>/~ժŏ @~ժ>~/>ժŏ ~ժ>~/>ժŏ>ժ>>/~|||Ǐ~|/> ժ>>WN ժ` '| ժժ?| ժ @,( ժժp> ժ -|~~Ǐ ժ>/~     3)210 23:1:(15) +K 0SL(47081)16:16368,0:SL1SL7SL6 5(12):(4)"CLOSE":(4)"PR#0":(4)"IN#0":(4):: :12:"ERROR "(222)" IN LINE "X"." D23:"WRITE DOWN THE ERROR AND PRESS A KEY." N16384,128:A49152(256SL):5P6İ200:24:1:38);:23::1:1107 ZZ1200110T d(16384)128ZZ1:90_ n38400x x(4)"RUN"P$(P)",D1" y121 23:8:"Press "BO$"RETURN"UN$" to continue: ";:16368,0 23:34:X$:X$(13)210 23:1:(15) +(1 0 LOAD PIC#38250116302,0IBO$(25):UN$(26)](X17:P$(X):~) X,X,X,X,FENCES,UTILITIES,X2P(3070)7(4)"BLOADRUNPACK,A38250"<(4)"BLOAD"P$(P)".PAK,D1"F:16302,0:38250P16368,0Q3587' UP  8p`p8  8p`@@@@@||@`p8|||| || 8p`@ @@@@@`pX @@@@@@@U**UU**UU**UU**UU**UU**UU**U||  LL `x< 806 ><x?`7||  LL   pxxp||||@@@@@@@@@        xp  ?008800p``00000F1F1F1N3 || @@@@@@@@@@@ xp   xx  8p`>~f9F1F1000000  < | l L   `x< 808 <x`x|8f3v76666v?f|?x?px  LL    ||  LL  ||@px xp@||     LLpx || xppx || `x<  <x`pxxx xppx xpxx````````````` `x>>x`xxxx>x``x>px @````px     xp@`pp@@@@@@@px px ||x| @@ |x@` p 8 || || || |xpx LL  xp|| @`p000`p0880p`@@ @@@@\|pp|\@@@@@xx@@@```` xx``` @`p8 @@@@@@@@@@888` ` |?|?000~~@@pxXxp@ xx@@> 6>\`p8 pxXXxx| L |x ```` LQ*`))FfFfF` `MM`+i,m *i,D*iPII*if*+`(*))+`  I`` xx``` @`p8 - - = @h Ll&,J M`& M`HLBH {h!,jH*&&h*H&&h&fL,0, )  $L 1  1 $$)% Ș)%L$)%)EH+,+I`*h  )L 1 nH,+I`*,L))*! @h`H)&&*&*&*&*&*m '(Lf(m ', $$!$ {,P%%#%% R$h( nH,p&H Ȍ\ 5 @\  = @hLlH H 5 @h = @hLlH - -H 5 @h`$%L$l$%```$,$$!$$P$"%%,P%%L"$,$$!,,$%,Pi# RLR%i#%%L"%$$%H " %%,P%%#h%LB $,P %%#%Uzk ,5é͠ {``"H $)))(*)+hi#1H $)))!(*)i)+i+8) )L` Lp,0E,0`202`? @``,0 `` n,P %%#%*I* @`[H2hH @h[`,"ɰɸ8Lc Ѱ8鹍`,$ɰɷɴ8) ` ;,$$@L,# ? HH  9hh `ɠL9) HH`9MQ>L]L`UU**ժU*U*Հ*UUU**LLL@Ln <,P,R,T,W`   ލ  6789L[ ɍ [`$ H))? @(h  `HH , Ș! $hh`        F 62000-"MAXFILES1":39590:50000;d16368,0XeV2:H1:C$:C$""101fBR((C$))300,115,130,120,150,350,215,200,370,382,391,360sV1H1PA1350tHH1:H0H38:VV1:V0V17:3200:100u101 xH1L$(V)((L$(V),          Ƭ؍*>><""2,&""<< <""2,">$<""< &"""  $ & ****&""""""""<""< & """2,"""""**""""2, >>>>**":*:<"">""""""""""">>>"2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""**6"""""""> >>>>00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >>00"LQ*`))FfFfF` `MM`+i,m *i,D*iPII*if*+`(*))+`  I`` - - = @h Ll&,J M`& M`HLBH {h!,jH*&&h*H&&h&fL,0, )  $L 1  1 $$)% Ș)%L$)%)EH+,+I`*h  )L 1 nH,+I`*,L))*! @h`H)&&*&*&*&*&*m '(Lf(m ', $$!$ {,P%%#%% R$h( nH,p&H Ȍ\ 5 @\  = @hLlH H 5 @h = @hLlH - -H 5 @h`$%L$l$%```$,$$!$$P$"%%,P%%L"$,$$!,,$%,Pi# RLR%i#%%L"%$$%H " %%,P%%#h%LB $,P %%#%Uzk ,5é͠ {``"H $)))(*)+hi#1H $)))!(*)i)+i+8) )L` Lp,0E,0`202`? @``,0 `` n,P %%#%*I* @`[H2hH @h[`,"ɰɸ8Lc Ѱ8鹍`,$ɰɷɴ8) ` ;,$$@L,# ? HH  9hh `ɠL9) HH`9MQ> L]L`UU**ժU*U*Հ*UUU**LLL@Ln <,P,R,T,W`   ލ  6789L[ ɍ [`$ H))? @(h  `HH , Ș! $hh`     O:D$"WRITE"F$",R0":NP:CC:CK:BK:TK:D$:XD:MC2F$"MB."NA$:21:DO:D$"RENAMETEMP.MB,"F$:XD18400:MC2NBNB1:BO$(NB)(F$,(F$)3):LRNB11H$:2530:NB0ı1ESES0:2H$:12:11:"Getting your story...":PA1:8100:4100:":ES1:0N8225d0P500:"What do you want to call this story?":LN20:V23:H1:400:CC$""39200UNA$CC$:F00:I1NB:NA$BO$(I)F010[:F0İ500::G$"THAT NAME HAS ALREADY BEEN USED"::550:3920e1x500::12:"Saving your story...":ES1:DCC$:PF0:HOH:VOV7/PG(PG$):PG1PG10ĺG$;:3800I/(PGPA)3855`/(PGPA)V1:3855i/ V17z/MC3İ8225/PAPG1:3120:3190:V2:H:/<MC2İ8225:39600F"Do you want to save this story? "YN$:800:500:NAYĺ:D$"DELETETEMP.MBIV11V21:L$(I)S2$:2.H11L$(V1)S2$:3740Y.L$(V1)(L$(V1),H11)(S2$,38H1)u.H238L$(V2)S2$:3790.L$(V2)(S2$,H2)(L$(V2),38H2).3150:3190:.21:"Turn to what page?":16368,0/OHH:OVV:LN2:V21:H20:PF1:400:PG$ٍ @@@``@`pppp``xx||||xx``|~~~???~~~|`???@  ( $@h`+'bH"(@ "h `o ސdmiei mponȌojikn j*.k.j.iLE8jl.k8nklk8nj.i8nihJqLr oLHmi) of -llL-kkhɀ M lLɀ M ko hihL` *LHmh*l wLekL/e 8ei8fgjk80L;ig iȩLLjiLё` qȹragbfch h mp mimiHiih8h mimhihih mimiiih8 o8jp*0jLȌfj0LjjjjL.Ȉ*L6g*lJ*m,lPnik wnLki(Lkmdei pjfjHnhjl wLfkeikmLk8Lkmdei p**ʐLgJJmddeeeh) mee`fg 8 Ȱiij` ސdmiei pjjjLfj``pMl)pk) ol 9f p`` qȹragbfch hh Fhi h F`gfhJqLr        U*U**U*Uժժժ3fL̙L3f̙"DĈD"Ĉ"DĈ"Dɤ$I$wn];ݻ];wnݻn];wݻ;wn]ݩeh)8 .e .edh)Jbca L-ɠcba :L- qL- iiLZii`@@           p)ȱȱL:   `hL-))  A`_ ALZ@ h ALZ`ȱ` A ALZ aȱbȱc48bbaabmbama8cmcɀ     ,279,0,278:I15:X1(I):X2(I):=' 5,273,6,274,6,273,5,272,7,273:D$(4):BA$(8):KB16384:ES$(27):QU$(34):CU$W$">"R$:G$(7):BL$" ":SP$(BL$,19):S2$SP$SP$:NM4:I1NM:ME$(I):z>' Make A New Story,Edit A Story,ReaDE%EK2<$><'21000:10100:10200:10300:10900:10810:":APK1$"`":K2$"~"DO46592:XD46595Y (NM2:I1NM:M$    –ͩʲ۠ԅɅĠؠҠàϠ̷۠ԅ҅Ӱ…Ðؠ֠Ϡ͊ࠠƠӪ楡Lȑ` $Lv$ ȑ`  '` ȩ  ȭ  H`ɠ```i`8 `砃𪹺Ġɺρɵ҉гఠŠ栃𠹺Ġ ȱe   Y B o  i i0 z z )  i!iξ  Ls L L `ٝ `` L k R䨱)qqȥr `  楡  L` FCLL  B e 8   $Lv$ ȑL 'L L { Lԍ ^  ީ@ ߩ$0LvݠLiie   X11)8(X10)10(X5)11(X9)Bn(APĸBR(X)(X27)2(X8)3(X21)4(X13)5(X31X126X34)6(X34(X32X27X1X8X21X13X10X11X11X5X9))7(X11)8(X10)9(X1)10(X5)11(X9)Bv(Cx(BR(X)(X27)2(X8)3(X32X91X93):B1(X)1(X8)2(X13)3(X21)4(X31X34)5(X27)6(X11)7(X10)8(X1)9(X5)10(X9):10340: Bd(BR(X)(X27)2(X8)3(X21)4(X13)5(X31X126X34)6(X34(X32X27X8X21X13X10X11X5X9))7(,123,125:RE$B$"RETURN"U$:K1$W$"<"R$:K2$W$">"R$:APK1$W$"`"R$:K2$W$"~"R$@'A5642:TF28:GF18:P(0)TF:P(1)TF:P(2)GF:@'@'CV$(9),L$(17):BM10:NN$(20),BO$(16):MB16@'I117:L$(I)S2$::I19:CV$(I)SP$::}A<(AD(X)2810((21):DK$(10):LK$(8):UK$(11):KL$"Use arrows to move cursor.":HK$B$"ESC"U$:APKL$"Use arrows, "B$"CTRL J"U$" and "B$"CTRL K"U$" to move."W@'GC%(26):I126:GC%(I):: 1,2,5,6,7,9,10,11,12,14,15,16,17,18,19,20,22,23,25,26,28,29,30,31d A Story,Erase A Story:DZ$"------------------------------------------":I16:C$(I):: TYPE,DRAW,ERASE,PAGE,QUIT,HELP>'I16:H3(I):: 3,9,15,22,28,34:C(14):I114:C(I):: 91,92,93,94,95,123,125,64,61,124,35,36,37,43?'AP((1101)6):RK$N#0":(4)::@:11:4:"THERE IS A PROBLEM WITH YOUR DISK":cD9:"PRESS ANY KEY TO RESTART"N16384,128:A49152(256SL):AO62031D":3584:3594,28:3595,17:"H<RDER%0:QZ%0:61200:BN參61300p$DER%0ĺD$"VERIFY"VN$",D"DR%}.216,0:t~QZ%QZ%1:QZ%QX%DER%10SL(47081)16:16368,0:SL1SL7SL65(12):(4)"CLOSE":(4)"PR#0":(4)"I."::910:MICRO1:RRHO$(12):EL$(14):EP$(15):LA$(17):RE$(18)(3)"3":EX$(5):WI$(23):TA$(20):BO$(25):UN$(26):CL$(3):WH$CL$"3":GU$CL$"1":VI$CL$"2":OU$CL$"5":BU$CL$"6"&RLG$CL$"A":LV$CL$"B":LO$CL$"C":LB$CL$"HO$:ERĢ12:3:"The data disk has been initialized.":3090 11:2:"Something is wrong. The data disk has"::5:"not been initialized. Try again." 900:D1MICROİ4000 D2ıHO$:11:1:"Put the ";PN$;" back in the drive0:CX$"Y"ES1:4000"HO$:( _ VN$"TABLE OF CONTENTS":DR%D:QX%0:61000:62000 DER%ĺHO$:12:3:(7);"You have the Microzine in the drive!":900:= HO$:12:4:"Please wait. Initializing disk.":ID%1:ER0:DO:37632,SL,D,ER:XD::ND1Ė1:"Put disk to be initialized in the drive.":2020l2:"Put disk to be initialized in Drive 2."MI0:13:910:HO$:10:"This program will "(7)BO$"ERASE"UN$" the disk now in"::"drive "BO$D;UN$". Do you want to go ahead? (Y/N)"::300:ESTIALIZE A DATA DISK":8:"For your data disk, you can use either a":"new, blank disk, or an old disk that you":"no longer need. If there is a write-"::"protect tab on the data disk, take it"::"off now.";D$"BLOAD INIT.OBJ,D1,A$9300":900:HO$:11ŠʠȠů̠Ӱ砊Ұȴʄ̪Ҡ株̩結ʃ蠠̠砠Šˠ9 :::255:"MICROZINE DATA DISK":"CATALOG": c?! gȩ c g $Lv$ ȑ`  '`  `Ϡﺥɪҕ͠𠫹𠥠ŴఠĠҠՠʠȠ𠠹𠖠Ӱ   楡L  楡L ȭ tȩ  L6ȩȩ g)ȩ g L6ȩ c͔ gà  ELDT17 C1$;:C$:C2$;:C$RT$C$DK$İ2100:2030V C$LF$C$UK$İ2200:2030| C0:I15:C$("QEDI?",I,1)CI :C0ĺBL$;:2030 C2300,2400,2500,2600,2900:2030T *:::22:" AMAZING ROBOT EDITOR ":"USE <- AND C$ES$L$(L$,2):5 $C$CX$L$(L$,2):ES1:g .C$CR$ĺ(SP$,MPCP1);:L$((L$,CP1),2):w 8BL$;:1020} L VCPLMĺBL$;:1020 `CP(L$)L$L$" " j(L$,CP,1);:CPCP1:MPMP(CPMP):1020  2090 ELEB:DTEB:2700:. 10000#DO46592:XD46595-(80003[L$" "L$:CP2:ES0:MP(L$)1:HF0wC$:C$"?"C$CX$:HF1C$" "CPLMĺC$;:L$(L$,CP1)C$(L$,CP1):CPCP1:MPMP(CPMP):1020C$RT$1100C$LF$CP2CPCP1:LF$;:1020! ! !!!!!!!!!" " " " " """""""""         SL(47081)16:16368,0IN5(12):"CLOSE":"PR#0":"IN#0":""::qN:11:4:"THERE IS A DISK PROBLEM":ND9:"PRESS ANY KEY TO RESTART"NN16384,128:A49152(256SL):ANO62031N1::D$"PR#"PS::::GC$:(12):(12):;:16368,0,M14:33:X$:X$(13)611206MH$: TO SELECT LINE, Q TO QUIT":"E TO EDIT, D TO DELETE, I TO INSERT. ";::35,21:Z 4s >ELWMELEEĺBL$;: HELDT19DTDT10:2700 RELEL1:ELDT1:  ELEBĺBL$;: ELDTDTDT10:2700 ELEL1:ELDT1:   :: xpAg~~ ǀՇ<|`C` 񁰀D?U+UßAzߪD*U*_Jρl.U* ت`?` @pya?``C1p`A``?`p|~GaC ժժ`c@y@ .33` O0x@GAOs` ppA<|`C` 3ÁDU+uP>Dp*U**@́lW.U*o`@pC?0`p|~+U*Dp*U*}#UρlW.U*تʁt`@p+U*1ߪpy`0``C1x`@``0`p GaC `c@ysꌆ`@@Cs~~ կppժժсꌆ`@@`p~~ ժժρ|?`` O0x@GA?Os` `pA<|`C` CU*}P.y@pA LJ|`C` 3<*C2Q>e~sDp*U*wÁm_.U*ʁ`@@+U*5իp`0``A1x`@`0`0`0 CaA ժժ`c@yU*.`|~qx@GOs`|xxpA~~~ ՆT>x?``D_*UÁQ\*U*W+U* ǟՁ0px`@`~@a@ ``p9f`0`@z``p f`0`@̟UjpAa``g1`C8``pOagժժ` ӢFժժρՆ`~<@@aOs`g 0@AC~~ ׿ `@` x0~~~ ׿ժÁ xCC` 33z` O0x@GAsOs` xpAg~~ ՆQχ|`CO`3D}*UQ\*U*^W+U* с0p` |@` (W/U* ߁p` @``p gq0`@g'UjpAa``C1`C@?``p|OaCժժ@Ax70,70140,00210,70140,14070,70:0,7070,00210,140279,70210,0070,1400,70:R CONCENTRICS\H$:6Lf19:1:"Can yo260,8060,159:60,80260,80:/ CRISS CROSSH$:1:" Can you trace this without lifting thepen or drawing over any linestwice? Where do you begin?"2:30,15530,55140,5250,55250,15530,155250,5530,55250,155:e blue water? Yes or no? "#7 BRIDGES AGAINBH$:116:26:"Is it possible":23:"to trace this":20:"without lifting your":17:"pen or drawing over a":14:"line twice? Yes or no?"60,0100,4020,12060,159100,12020,4060,00":D$"RUN TABLE OF CONTENTS"4X OPEN SCREEN>bH$:R SEVEN BRIDGESD$"BLOAD SEVEN BRIDGES.SPC,A$7000":36352,0:36353,716:3640018:1:" Is it possible to cross every black bridge once and only once without crossing th000,7200,7250,7150,7050,7100,7300,7350,7400,7600,7500,768,OX(CS):769,OY(CS):770,HH(CS):773,PC(CS):774,PS(CS):775,UD(CS)| RUN RR MAINRT1:SD2:8200D$"PR#0":D$"IN#0":38400D$"RUN TR MAIN"p QUITz33,40:RT2:SD2:82016368,0.V(CS):5::M$(CS)::V(CS):3C$:C$CR$5400:C$ES$6000:C$LK$C$RK$C$UK$C$DK$5340:5:M$(CS)C$LK$C$UK$CSCS1MN(CS1):5335CSCS1MN(CSMN):5335 LOAD PICTURE5::M$(CS)::33,405"CS723:"Use "WI$K1$RE$" and "WI$K2$RE$" to"::21:"make your selection.";: 21:"Press "B$"RETURN"U$" when"::21:"you are ready."::23:"Press "B$"ESC"U$" to quit." 1:7,44127,44127,1807,1807,44:33,17I1MN:V(I):5:M$(I);::CS1:"Y"5180 P HELP SCREENS? ZH$;:I122:I:H$(I)::8000f dH$;:I2344:I22:H$(I)::8000z  CHOOSE SCREEN H$:3:4:LR$GU$"SCREEN WORLD MENU"RE$ 7:23:"Now you can choose";::21:"a screen world for"::21:"your robot."J :(OX),OY:OX,OYNX,NY:RSRS(LR):32(LR11):RSA(NX),NY:OXNX:OYNY: 222:1:" Press "B$"ESC"U$" to quit.":18:1:" Would you like to see a list of the"::"commands you can use? ("B$"Y"U$"/"B$"N"U$") "; <C$:C$"N"5300:C$ES$6000:C$RSRS(0):0:RSOX,OY:NX261906:RSOX,OY:RSNX,OY:OXNX:l LR06:RSOX,OY:RSRS(LR):RSOX,OY: NY1541126:RSOX,OY:RSOX,NY:OYNY: (3:T06.4.3:LR6(T123.14159.5):LRLR24(LR23):NX60(T)130:NY11260(T)G -RSA364007 I12000::0:Y182191:0,Y279,Y::8000F  PAGE ONEq H$:3:3:LR$GU$"AMAZING ROBOT II"RE$ 6:1:" Write programs to make your robot"::"draw beautiful graphics and solve"::"puzzles--all at your command!"? OX20:OY160: TR SET UP 5.1!<10000tF(104)64(103)1(16384)0Ĺ104,64:103,1:16384,0:(4)"RUN TR SET UP"~P9000Z5000d46599,255:214,255n9000x5300 OPENING GRAPHIC D$"BLOAD ROBOT.SPC,A$7000":36352,0:36353,716:         $5666%$$$5666%$$$5666%$$$5666DC#DC#52f DC#DC#DC#52"DC#DC#DC#52f DC#DC#DC#52"DC#DC#DC#52f DC#DC#DC#52&Ӛ$$@CC#$566.$$@CC#$566f@C#$DCCC#$566.$$@CC#$566$$@CC#$566.$$@CC#$566f@C#$DCCC#$566.$$@CC#$566&Ӛ$$$,666.$$$,666.$$$,666.$$$,666f@CCCCC#$$566666666666.$$$$$$$$$$$$566666666666.$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$,66666666666666666666666.$$$$$$$$$$$$$$$$$$$$$$$$-----------------------5???????????????????????7------------------------Ӛ$@#DC#DC#52f DC#DC#DC#52"DC#$$$$$$566666666666.$$$$$$$$$$$$566666666666.$$$$$$$$$$$$566666666666.$$$$$$$$$$$$566666666666.$$$$$$$$$$$$566666666666.$$$$$$$$$$$$566666666666.$$$$$$$$$$$$566666666666.$$$$$$$$$$$$566666666666.$$$$$$$$$$$$566666666666.$$$$$$$$$$$$566666666666.$$$$$$$$$$$$566666666666.$$$$$$$$$$$$566666666666.$$$$$$$$$$$$566666666666.$$$$$$$$$$$$566666666666.$$$$$$$$$$$$66666666666%$$$$$$$$$$6666666666%$$$$$$$$$666666666 $$$$$$$$666666 $$$$Ӛ#$$$$,66666%$$$$,66666%$$$$,66666%$$$$,66666%$$$$,66666%$$$$$ӚӚӚ$$$$$$$$$$,66666%$$$$,66666 $$$$666 $$$$$ 06666$$$$$$ 6666666%$$$$$$d66666666%$$$$$$$,66666666%$$$$$$$,66666666%$$$$$$$,66666666 $$$$$$$5666666f$$$$$$66666 $$$#$$$d066666"$$$$$$$d666666666$$$$$$$$$$5666666666$$$$$$$$$$$56666666666$$$$$$$$$$$$66$$@C#$7626$@CCC#II!$6666"$$$$$66$$$$$$$$6666$$$$$$$$$$<66666>$$$$$$$$$$$7662>$DC#$$$$$$@#$76'$DCC#$$$$DCCC#<62>$DCC#$$$$DCCC#662>$DCC#$DCC#$76$#5d6.$&#d66$$$566.$$$66 $#$d666$$$$ 66666%$$$$$$DCCC26'$DC#$$$6666$$DCCCC#66$$76$II!$@CCC32666@CCCCCCC#$<66666666@C#$$@CC#$<666666666@C#$$$@CCC#$766666666DCCC#$$$@CCCC#$7666666666$$@CC#$$@CCCCCC#666666666'$DCCCCCCCCCCCC#<66666626$$@CCCCCCCCCC#$76266$$@C#$@CCCC#6666@C#$@CCCC36666666@C#$$$@CC#$666666666@C#$$$@CC#$2666666@CC#$@C366666#$$$$$062$$ $$ $$7626'$$DCCCCCCC#666$$$666 $&II!$$@C#66"$$$$$$66$$$$$$$$$6626"$$$$$$$@#$666$$$$$$$666$$$$$$$$666$$$$$$$$6@CCCCCCCCCC#$6666 $$56.$$$$$56666 $$$$HIII!$$@36666$$$$$7626$$6666"$$$$$$$6666$$$$$$$$$7266$$$$$$$666$$$$$$$066$$$$$$$$76$$$$D#$66'$@3666$$$$7666@CC#$HII$066$$$$0666666@CCCCCC#$$<666666@CCCCCCCCCCCC#2626$$ 6666U"$$$$$$$d6666$$$$$$$$$5266$$$$$$$666$$$$$$$ 066$$$$$$$$56$$$$D#$66%$d@3666 $$$$5666 @CC#$$$$$56666$$$$$26.$$ 6666 @CCCCCCCC#$,66666666f@C#$$@CCC#$6666666 @C#$$d@C3666666f@C#$$d@C3666666f@CC#$$@CCC#$566666666 6666 $$DCCCC#66 $$56 $$ 066$$$$ 0666666f@CCCCCC#$$,666666 @CCCCCCCCCCCC#266666f@C#$d@CCCC36666666f@C#$$$@CC#$ 666666666f@C#$$$@CC#$2666666f@CC#$d@C366666f!$$$$$ 062$$ $$ $$5626%$$DCCCCCCC#666 $$$d666 $&#$$ @36666$$$$$56CC#$$@CCCCCC#666666666%$DCCCCCCCCCCCC#,66666626 $$@CCCCCCCCCC#$56266f$$@C#$@CCCC#66f$$@C#$5626 $@CCC##$$@C#d66"$$$$$$d66$$$$$$$$$ 6626"$$$$$$$@#$666$$$$$$$ 666$$$$$$$$ 666$$$$$$$$6$$$$$$DCCC26%$DC#$$$ $$ 6666$$$$$$$$$$,66666.$$$$$$$$$$$5662.$DC#$$$$$$@#$56%$DCC#$$$$DCCC#,62.$DCC#$$$$DCCC#662.$DCC#$DCC#$56f$#$d@CCC32666f@CCCCCCC#$,66666666 @C#$$@CC#$,666666666 @C#$$$@CCC#$566666666DCCC#$$$@CCCC#$5666666666$$@68o{(4 0 Y @#$d6666U"$$$$$66$$$$$$$$$ 66666$$$$$$$$$$$566666.$$$$$$$$$$$5662.$DC#$$$$$$@#,66%$@C#$$$$$@C#,62.$DCC#$$$$$@C#66%$@CCC#,66#$d6666U"$$$$$66$$$$$$          0:IY1:3200:ERı,DXX:43202YSFSF1:RSRS(LR):RSA(OX),OY_j HIDESFĕRSA(OX),OY:SF0:RSRS(LR)DF0:PF0:SS6:* PEN DOWN/(DF)PFı4PS13PF1>PS13DF1+HSSSS(PS12İ4360:ERıSFLRNR:K(X)360āJ1((X)360):4360:ER0ĂQI01:LRRR(LRIY):RSIX,OY:RSRS(LR):32(LR11):RSIX,OY(KB)KEĹ16368,0:ER21:4390INRLR::&HHOH:LRRO:RSIX,OY:RSOS:32(LR11):RSIX,OY:(OYNY)10ēOX,OYNX,NY):DFĔPSNX,NYI@OXNX:OYNY:RSA(OX),OY:Oh_r3200:ERın|XX:4120tIY1:3200:ERıIXA(OX):OHHH:OSRS:ROLR:HHHH(HHX):NRRR((HH15.5))SFLRNR: (X)((X)360)36015NRLRX)SSS):MC((XSS)):MC04150W"I1MC:TXWX(OXIX):TYWY(OYIY):RSA(OX),OY$PFĭ(OXTX)10(OYTY)10ēOX,OYTX,TY&DFĔPSTX,TY(RSA(TX),TY:OXTX:OYTY:(KB)KEĹ16368,0:ER21:,6RSA(OX),OY8PFĭ(OXNX)10(LR):32(LR11)"DFĔPSOX,OY6RSA(OX),OY:<L3200:ERıkX7X0ER24:W$"FILL":X:100,100:62454:CL:40203200:ERı!C(HHDC):SSC(HHDC):NXWX(R(OXCX)):NYWY(R(OYSX)):IXR((X)SSC):IYR((0,5800,5600,5000,5100,5200,5400,5900,4100,4300,4400,4200,4000,8800,4050,4500,4550,4600,4650,4700,4800:nSPSP2:SPSMER4:xST%(SP1)PL:ST%(SP)PC:PLC1:PC1:RSA(OX),OYOX(768):OY(769):HH(770):LRRR((HH15.5)):RSRSI)IDI1' TIJ::DW$(DI)W$ER3- 3UWS$(0)L$:PL0:PC1:ER0:SP0tTT01:3900:TTER0::z<F3100:W$""ıP3300:ERıZ(KB)KEĹ16368,0:ER21:gdCDP%(DI):C0ĴC6000,6200,6600,6400,7000,7400,7500,7600,770,PCI,1)DL$W$(L$,PC,I):PCPCI:+: 1 ] 3100:C$(W$,1):I1:C$"+"C$"-"I2q I(W$)ER5: II(W$):C((W$,I,1)):C48C57ER5: :X(W$):  I1:JND:T01:DI((IJ)2) W$DW$(DI)JDI1  W$DW$(D DBEL19CV:DBEEDBEE? IELDB:2:WS$(I)::ELDT1:ET f^ 8800:2090:2700:ELDT1:l  L$WS$(PL)" ":PCPC(L$):(L$,PC,1)" "ı :PLPL1:PC1:3000 & 3000:DL$"@":(L$,PC,1)"A"DL$" "%0 I1(L$)PC:(L$Ė1:21:BL$;BL$"*** CAN'T EDIT ANY MORE LINES ***";:ELDT1:1:l F ELEEāIEEEL1:WS$(I1)WS$(I): P WS$(EL)"":EEEE1:2800:2400: DBDT19:DBEEDBEE :DBDTāIDTDB:2:WS$(I): CV(37):34,CV::34,0: `  j ELEEĺBL$;:J t L$WS$(EL):LM38:2:1000:ESWS$(EL)L$b ~ ESİ2800:HFİ2900q 1:2100:w ELEEĺBL$;: EEWMĢ21:1:(SP$,39);:ELDT1:1 IELEE:WS$(I)WS$(I1)::WS$(EE)"":EEEE1:2800: ( B 2 EEWM i  ,    h)J `栠̠ҰԐǶªȠB } M ```i`8 `  楡  楡Lȑ` ȩ o ȭp  H` $Lv$ ȑ` '` $0Lvݢ u Rȥqȥr IqL `QL Liie ȱe o p o p Y ^ r o p  i i0   )  i!iΔ   L ` `s `s ``  L R䨱)qqȥr `ɠL4  m mȑ` H hFCwEL IL L " o p ^ @q r 8 q r q r ` ` " { Lԍs ^ t  ީ@ ߩ$0Lvݠ!! ! ! X):K$NDND1:IDIND:DW$(I)DW$(I1):DP%(I)DP%(I1):DL%(I)DL%(I1):q$I1ND:DP%(I)YDP%(I)DP%(I)Xy$:$ REEDIT$PL27040:ER8:$L FORGET$VPL1ER8:$`3100:W$XX$ı$j3300:ERı$t7300:ER7520:$ NEWNED":W$P$:3300:ER0:W$DW$(DI)DIDI1#pINDDI1:DW$(I1)DW$(I):DP%(I1)DP%(I):DL%(I1)DL%(I)::DW$(DI)W$:DP%(DI)BP:DL%(DI)NWBP1:NDND1:# DELETE PROCEDURE#YDP%(DI):Y0ER10:$XDL%(DI):NWNWX:YNWāIYNW:WS$(I)WS$(IRE9"*PC1:3100:W$"BE"W$"BEGIN"ER11(W$XX$):W"4XPL:3100:XPLER11:r">3300:ERİ7300:ERı"HER0:ND1DMER12:"RP$W$:BPNW1:PLPLEE:PC1:3100"\NWNW1:WS$(NW)WS$(PL):W$"END"Ă:NWNW1:WS$(NW)"END")#fP$" DEFILEBEE:7200:ER7070$!EBPL1:B!16304,0:24:PL1:PC1:W! LOAD PROCEDUREg!3300:ERı!JDP%(DI):J0ER10:!IDL%(DI):EEI1WMER9:!WS$(EE1)"":EEEE2:XEE:EEXXI1:WS$(EE)WS$(JEEX)::EEEE1:"  ENTER PROCEDU DOS8 C,SL,DR,"SIDE",CL$,ER:ERER17:W$(DR):R I0105:CL$(I)""ıv CL$(I)"SIDE"ER17:W$(DR):~ : X EDIT bEBNW1:EENW:PL1ER8: l3100:W$XX$7040 v7100:ER7020: 2000:EBEE7070!WS$(EE1)XX$:P$:D$"DELETE "W$;C$:D$"CLOSE":: VERIFY PROGRAM DISKDXDOSjW$"1":C$"SIDE":X22:6850:ERıC$"TR EXEC":X23:6850:C,SL,1,C$,CL$,ER:ERER22:I0105:CL$(I)""ERX:CL$(I)C$Ă:ERX: VERIFY DATA DISK,ER:ERER18:3X0:Y0:I0105:CL$(I)""ĺ:w(W$(CL$(I),4)" ":XX(W$):X39ĺ:X(W$):YY1:Y3ľC$:Y02W$;::: ERASEP$W$:3100:W$XX$ER16:W$P$:6900:ERı W$"RR."W$:C$",S"(SL)",D"(DR):D$"OPEN "W$;C$"OPEN "W$",S"SL",D"DR:D$"READ "W$:EBNW1:EENWNjE,EOF:EOFĺD$"CLOSE":tI01:EEEE1:I,WS$(EE):E,EOF:I(EOF)EEWM:~EEWMEEEE1:BL$;ER$(13)CPPC:7050:PCCP:PL0:D$"CLOSE": CATALOG 6900:ERıC,SL,DR,"RR.",CL$I2NW:FSFS(WS$(I)):FS0ĺD$"CLOSE":ER19:JWS$(I)::D$"CLOSE":U8 LOADfBPL1ER8:LP$W$:3100:W$XX$ER16:W$P$:V6900:ERıZW$"RR."W$:C,SL,DR,W$,CL$,ER:ERER18:^J0105:CL$(J)W$Ă:W$(W$,4):ER20:1`DPC1:PLPL1:p SAVEAzP$W$:3100:W$XX$ER16:W$P$:Q6900:ERıpF,SL,DR,FS,ER:ERER18:FS(FS16)256:FS0ER19:W$"RR."W$:C$",S"(SL)",D"(DR):D$"OPEN "W$;C$:D$"DELETE "W$;C$:D$"OPEN "W$;C$:D$"WRITE "W$/:*3100:3300:ERĭDP%(DI)0ER10:aER0:EBNW1:EEEB:WS$(EE)"BEGIN "W$:">"WS$(EE)">";:LM38:L$"":1000::HF8800:ES5840:EEEE1:EEWMEEWM:ER9:WS$(EE)L$:WS$(EE1)XX$:PLEE:PC1:ER0:3820:ER15840:  ; COMMENT AGAIN$"ST%(SP)0SP3ER15:O,ST%(SP)ST%(SP)1:ST%(SP)0SPSP3:o6PCST%(SP1):PLST%(SP2):y ENDPL2ER6:PLNW1PLEB:7200:ER1.5:ST%(SP)0ER7:PCST%(SP):PLST%(SP1):SPSP2: TOPL1ER850 END OF IMMEDIATE*ER1:5 QUITFPL1ER8:V6800:ERı 1:46599,0:214,0:D$"EXEC TR EXEC,D1,S"SL:P REPEATZSPSP3:SPSMER4:d3200:ERınX1ER14:xST%(SP)X:ST%(SP1)PC:ST%(SP2)PL:):DFĕRSA(OX),OY:PSOX,OY:RSA(OX),OY1RA\ PEN COLORQf3200:ERıopX7X0ER24:W$"PEN":zCLX:CL:DFĕRSA(OX),OY:PSOX,OY:RSA(OX),OY PEN SIZE3200:ERıX1X14ER25:PS12X:(PF)DFİ4600:46ĠҠԠЍΠ"