JJJJ  X [ ,ɍ X,lΠŠˠҠĠӠ`h}LEhLaOhLaOhLEhLaOhLEhLaOhLEhLaOhLEhLEhLaOhLaOhLEhLaOhLaOhLaOhLaOhLaOhLEhLaOhLaOhLaOhLEhrLErLErLErLErLaOrLErLaOrLaOrLaOh]LEh_LEhaLEhcLaOhhLEhjLEhlLEhnLEhpLEhrLaOhwLEhyLEh{LErLErLErLErLaOrLErLErLErLErLaOrLErLErLaOrLErLErLErLaOrLE rLErLE r[LaOrbLErdLErfLErhLE rjLErlLErnLErpLErrLaOrwLEryLEr{LEr}LErLErLErLE r%LEr'LaOr,LaOr1LEr3LaOr8LEr:LErO #m QL n M i qm M k o p M o E tm A8r tp N {N &p D AO Ql .B k !ML:d n M m k M Hl M l ELdZ #m *l Vj qm Sj n !ML`d vn Sj o l n M m k M Hl M l E Vj m !MLd tp l j qm j n M o L o I Fb MLb 7n D 5O q F Lb3 Mp I q m I q H Fb H F Lf 7n D 5O @ q @ o I q n I q H qLPLeb vn j l l l k DO ,m i m k DO i j i k DO j l I r F pn q I r H r m L o LLc5 Fc F r F tm k k n ^k l }m !M m n L >m lLa3HIGH SCORE IS Fa F ak [O o LLbDO YOU WANT TO Fa F p LL$b 1 PLAY AGAIN Fb F _p LL@b 2 QUIT F8b F o L q LL]b? FZb F H qLpb1Lub2 q 2I Fnb M i q 2I Fsb M'r MLebLb2 q 2 %M i l _j kN n %M'r ML$c .B q F Pm ;O m QL m ;O n QL e m L tm LLa3YOU SCORED Fa F l [O o DO i o DO ,m i ^k l [k MLa vn LLea5NEW HIGH SCORE! FSa F m l o >O ~o l NL o >O ~o l i ~o l # i {o NL l i k n !M'r MLJ` tm Ar vn N {N Gj k DO !MLB` l k DO ,m i m k DO i i i k DO bj j i kN n %M i j _j kN n %M'r ML$c .BL` tm Ar vn N {N Gj k DO !ML` l k DO ,m i m k DO i i i k DO bj Hl i kN nk k ]o ML^ `o k k Rk m %M i Rk 4q M'r ML^ k Ik Ok k D k nj qm kj o !ML _ #m kj n M nj Sq M nj tq E nj ^q M nj q E vn M &p D AO Ql &p D AO Ql nj Uq `l lD nj `q xl lD nj vq l lD nj q l lD `l M l E xl M l ELdZ k m !M QUITPL1ER8:*6800:ERıL 1:D$"EXEC RR EXEC,D1,S"SL:YP REPEATsZSPSP3:SPSMER4:d3200:ERınX1ER14:xST%(SP)X:ST%(SP1)PC:ST%(SP2)PL: AGAIN"ST%(SP)0SP3ER15:,ST%(SP)ST%(SP)1:;::" TO RESTART: ";:16368,08DX$:X$(13)62020KN:(4)"IN#"SL4782,24910,25676,25832,25887,25945,26013,26101,26231,26338,26497,26532,26597,26635,26703,26819,26869j'0(12):::(4)"PR#0":(4)"IN#0":SL(47081)16:SL1SL7SL6:11:" THERE IS SOMETHING WRONG WITH YOUR DISK"::8:"PRESS ";::"RETURN" CHASE':%I1MN:OX(I),OY(I),HH(I):D% 101,90,0,25,25,0,101,30,180,101,17,0,21,20,0,31,30,0,91,30,0,75,125,60,91,30,0,141,80,0,41,130,90,91,80,90,121,100,0,81,140,0,121,60,0,81,20,0,21,140,0,117,93,0,33,138,0N%I1MN:AD(I):dX% 24576,24606,2 - QT% MENU SELECTIONS7&%MN19:I1MN:M$(I):0% OPEN SCREEN,MAZE,ANGLE MAZE,SEVEN BRIDGES,NO CROSSING,RECTANGLE,SQUARE,TRIANGLE,DIAGONAL,FIGURE EIGHT,ZIG ZAG,CIRCLE,ONE STEP UP,UP STAIRS,ONE STEP DOWN,DOWN STAIRS,UP AND DOWN,ONE JUMP,STEEPLE- FD REPEAT - RP CAT,BACK - BK AGAIN - AG ERASE - ER,RIGHT - RT EDIT - ED FORGET- FG,LEFT - LT REEDIT - RE NAMES - NM,HOME - HM LOAD - LD NEW% BEGIN - BE SAVE - SV HELP - ?,END QUITrom disk,FORGET $...FORGET procedures named $...,NAMES List NAMES of all procedures,NEW Forget all procedures,$ HELP Show list of commands,QUIT Return to choose screen world,," ($ is a one-word name)",% ABBREVIATIONS,,FORWARD *>><""2,&""<< <""2,">$<""< &"""  $ & ****&""""""""<""< & """2,"""""**""""2, >>>>**":*:<"">""""""""""">>>"2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""**6"""""""> >>>>00000>"U**U>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >>00",$` L( L5 LD 8 XL XLR XQHPH RPhPhQ8 XL.0'L+ LfLLLLL ꥪLYԨé8 C+v$8vL|D8vL|D8vL|D8vL|D8vL|D8vL|D8vL|D8vL|D8vL|D8vL|D8 Cv EiLEiLEiLEiLEiLEiLEiLEiLEiLEiLEiLEiLEiLEiLEiLEiLE8 Cr 8 Cr 8 C s 8 C"s 8 C:s$8 Cs 8 C t 8 C#t8 C%u8 C)ui=LEi?LEiALEiCLEiELEiGLEiILaOiNLaOiSLaOiXLEiZLaOi_LaOidLEifLEihLaOimLEioLEiqLEisLEiuLEiwLEiyLEi{LEi}LEiLEiLEiLLaOhLEhLaOhLEhLaOhLaOhLEhLEhLaOhLEhLEhLaOiLaOi LaOiLaOiLaOiLaOiLaOi"LaOi'LEi)LEi+LEi-LaOi2LaOi7LEi9LEi;LE):LF$(8):BL$(7):ES$(27):CX$(24):C1$">"LF$:C2$" "LF$:UK$(11):DK$(10)'<#SP$" ":SP$SP$SP$SP$SP$SP$SP$(SP$,15)'F#WS$(200),DW$(70),DP%(70),DL%(70),ST%(100),ER$(23),CL$(105),CC%(12),H$(44)(P# & ERROR%& 8600:ER$(ER):81004&4! ERROR-W$R&>!8600:ER$(ER)" "W$:8100g&! ERROR LOCATIONy&!BL$;:PL2ı&!I1ND:XPLDP%(I)1:X0XDL%(I)Ă:&!"PROBLEM IN LINE "X" OF "DW$(I):&(# INIT&-#38400S'2#L$"":CR$(13):RT$(21-%":";:LM38:L$"":1000::ES8110:3800%ER8100,8200,8500,8400,8300,8300,8400,8300,8400,8500,8400,8400,8400,8400,8400,8300,8500,8400,8400,8400,8400,8500,8400%"ERROR "ER:8100% QUIT% 8020%l W$-ERROR&v 8600:W$" "ER$(ER):8100DL%(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$;:::$@ BEGIN$J9000$T:16304,0:16301,0:24:1:3:4020% MAIN PROGRAM:DP%(I)YDP%(I)DP%(I)X"#:/# REEDITE#PL27040:ER8:R#L FORGETc#VPL1ER8:w#`3100:W$XX$ı#j3300:ERı#t7300:ER7520:# NEW#PL1ER8:$NW2:J0:I1ND:DP%(I)0JJ1:DW$(J)DW$(I):DP%(J)DP%(I):DL%(J)I):DL%(I1)DL%(I)::DW$(DI)W$:DP%(DI)BP:DL%(DI)NWBP1:NDND1:[" DELETE PROCEDUREv"YDP%(DI):Y0ER10:"XDL%(DI):NWNWX:YNWāIYNW:WS$(I)WS$(IX):"NDND1:IDIND:DW$(I)DW$(I1):DP%(I)DP%(I1):DL%(I)DL%(I1):#I1ND!>3300:ERİ7300:ERı5!HER0:ND1DMER12:\!RP$W$:BPNW1:PLPLEE:PC1:3100!\NWNW1:WS$(NW)WS$(PL):W$"END"Ă:NWNW1:WS$(NW)"END"!fP$" DEFINED":W$P$:3300:ER0:W$DW$(DI)DIDI1D"pINDDI1:DW$(I1)DW$(I):DP%(I1)DP%( 3300:ERı+ JDP%(DI):J0ER10:K IDL%(DI):EEI1WMER9: WS$(EE1)"":EEEE2:XEE:EEXXI1:WS$(EE)WS$(JEEX)::EEEE1:  ENTER PROCEDURE *PC1:3100:W$"BE"W$"BEGIN"ER11(W$XX$):!4XPL:3100:XPLER11:"SIDE"ČXD:ER17:W$(DR):':XD:2X EDITQbEBNW1:EENW:PL1ER8:hl3100:W$XX$7040~v7100:ER7020:2000:EBEE7070WS$(EE1)XX$:PLEBEE:7200:ER7070EBPL1:16304,0:24:PL1:PC1:  LOAD PROCEDURERı!C$"RR EXEC":X23:6850:CC,SL,1,C$,CL$,ER:ERER22:bI0105:CL$(I)""ERX:{CL$(I)C$Ă:ERX: VERIFY DATA DISKDOSC,SL,DR,"SIDE",CL$,ER:ERČXD:ER17:W$(DR):I0105:CL$(I)""ČXD:CL$(I)3ľC$:Y02W$;:::XD:( ERASENP$W$:3100:W$XX$ER16:W$P$:b6900:ERČXD:W$"RR."W$:C$",S"(SL)",D"(DR):DOS:D$"OPEN "W$;C$:D$"DELETE "W$;C$:D$"CLOSE":XD: VERIFY PROGRAM DISKW$"1":C$"SIDE":X22:6850:EEEWMEEEE1:BL$;ER$(13)HCPPC:7050:PCCP:PL0:D$"CLOSE":XD:V CATALOGj 6900:ERČXD:sDOSC,SL,DR,"RR.",CL$,ER:ERČXD:ER18:X0:Y0:I0105:CL$(I)""ĺ:XD: (W$(CL$(I),4)" ":XX(W$):X39ĺ:X(W$):YY1:Y":XD:8 LOAD#BPL1ER8:ILP$W$:3100:W$XX$ER16:W$P$:]V6900:ERČXD:`W$"RR."W$:DOS:D$"OPEN "W$",S"SL",D"DR:D$"READ "W$:EBNW1:EENWjE,EOF:EOFĺD$"CLOSE":XD:tI01:EEEE1:I,WS$(EE):E,EOF:I(EOF)EEWM:~6900:ERČXD:~W$"RR."W$:C$",S"(SL)",D"(DR):DOS:D$"OPEN "W$;C$:D$"DELETE "W$;C$:D$"OPEN "W$;C$:D$"WRITE "W$F,SL,DR,FS,ER:FSFS256512:ERČXD:ER18:I2NW:FSFS(WS$(I)):FS0ĺD$"CLOSE":XD:ER19:WS$(I)::D$"CLOSEEEEB:WS$(EE)"BEGIN "W$:">"WS$(EE)h">";:LM38:L$"":1000::ES5840:EEEE1:EEWMEEWM:ER9:WS$(EE)L$:WS$(EE1)XX$:PLEE:PC1:ER0:3820:ER15840:  ; COMMENTPC1:PLPL1:p SAVEzP$W$:3100:W$XX$ER16:W$P$:ST%(SP)0SPSP3:36PCST%(SP1):PLST%(SP2):= ENDNPL2ER6:pPLNW1PLEB:7200:ER1.5:ST%(SP)0ER7:PCST%(SP):PLST%(SP1):SPSP2: TOPL1ER8:3100:3300:ERĭDP%(DI)0ER10:%ER0:EBNW1:,N%(17)*X117:SH%(X):5* 1,2,3,2,2,2,3,3,3K* 2,3,2,2,2,1,2,3a*X117:HU%(X):* 2,1,5,6,5,2,1,5,6,2,5,1,2,5,6,1,5*X117:RO%(X)0::RO%(10)16:RO%(11)16*X117:X%(X):* 40,52,63,75,86,97,108,119,130,156,153,177,1888375:PI38376:DU38377:MU38378:I123:X:BI,X:D* 255,255,173,48,192,136,208,5,206,233,149,240,9,202,208,245,174,232,149,76,234,149,96***D$"BLOADST.BOOK,A$9300"*1:0*232,0:233,147*SH%(17),HU%(17),RO%(17),X%(17),Y%(17)1O%J11LI/X%(S$,P(J11),P(J1)P(J11));]%:J1:A'h'::3584:3594,28:3595,17:10100'HO$:9:12:"One moment, please..."'21000$'10800.'10900s't'~'D$(4):G$(7):CUR$(127)'SD16336'0*3:*B3LC)7:10:WI$;VI$MN$(LC);:(2CU)7:10:WI$;VI$;::MN$(CU);REG$;::LCCUR:9460j%CHCUR:33,40:HO$p%%P(0)1:LI1&%J1381010%POP(LI1)J1:PO(S$)9550:%(S$,PO,1)" "P(LI)1P(LI1)J1:LILI1:9510I%J1N%P(LI)(S$)RUCTIONS":MN$(2)"BROWSE":MN$(3)"FIND"A$16368,0:22:28:X$$X$(13)X$LK$X$RK$X$UK$X$DK$X$(27)9460$X$(13)9490$X$(27)CU27:9490$X$UK$X$LK$CUCU1:CU0CU3%X$DK$X$RK$CUCU1:CU4CU1S %(2' ON ERRORZ2':::10:14:"SYSTEM ERROR":14:9:"PRESS RETURN TO REBOOT";:16368,0s2$'A$:A$(13)10020z2.'6$)10020j.'6D NEWY1$ BEGIN - BE SAVE - SV HELP - ?,END QUIT - QTo1$I112:CC%(I):1$ 221,230,243,227,249,223,221,223,249,227,243,2301%D$(4):D$"BRUN RR DOSX.OBJ"1%D$"BLOAD RR SHAPES,A$1000":232,0:233,161' 2N TO CHOOSE SCREEN WORLD,," ($ IS A ONE-WORD NAME)",1$ ABBREVIATIONS,,FORWARD - FD REPEAT - RP CAT,BACK - BK AGAIN - AG ERASE - ER,RIGHT - RT EDIT - ED FORGET- FG,LEFT - LT REEDIT - RE NAMES - NM,HOME - HM LOAD - LD AND EXPLANATION,,CAT CATALOG OF FILES ON DISK,ERASE $ ERASE FILE $ FROM DISK,FORGET $...FORGET PROCEDURES NAMED $...,NAMES LIST NAMES OF ALL PROCEDURES,NEW FORGET ALL PROCEDURES,40$ HELP SHOW LIST OF COMMANDS,QUIT RETUREDIT TYPE IN A NEW PROCEDURE,EDIT $... EDIT PROCEDURES NAMED $....|$ REEDIT REEDIT UNACCEPTED PROCEDURES,,SAVE $ SAVE PROCEDURES IN DISK FILE $,LOAD $ LOAD PROCEDURES FROM FILE $,," (# IS AN INTEGER, $ IS A ONE-WORD NAME)", /$ COMM TURN ROBOT RIGHT # DEGREES,LEFT # TURN ROBOT LEFT # DEGREES,HOME SEND ROBOT TO START POSITION,H.r$ BEGIN $ BEGIN PROCEDURE NAMED $,END END PROCEDURE,,REPEAT # REPEAT THE COMMANDS BETWEEN,AGAIN 'REPEAT' AND 'AGAIN' # TIMES,LLf,$ CRASH!!! ROBOT HIT SOMETHING,INTERUPTED,PUT MICROZINE DISK IN DRIVE,TURN MICROZINE DISK OVERy,T$ HELP SCREENS,^$I144:H$(I):l-h$ COMMAND EXPLANATION,,FORWARD # MOVE ROBOT FORWARD # STEPS,BACK # MOVE ROBOT BACK # STEPS,RIGHT #MAND,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 NAME,PUT DATA DISK IN DRIVE,DISK ERROR,DISK FUEPEAT,-14,RIGHT,-19,RP,-14,RT,-19,SAVE,-1,SV,-1R*#XX$(1):DW$(1)XX$:DP%(1)12h*#I323:ER$(I):9+# DON'T KNOW,TOO MANY NESTED PROCEDURES OR REPEATS,IS NOT A VALID NUMBER,SHOULD BE IN A PROCEDURE,REPEAT WITHOUT AGAIN,SHOULD BE AN IMMEDIATE COM6,"?",-22,AG,-15,AGAIN,-15,BACK,-20,BE,-10,BEGIN,-10,BK,-20,CAT,-4,ED,-5,EDIT,-5,END,-11,ER,-3,ERASE,-3,FD,-17,FG,-7,FORGET,-7,FORWARD,-17,HELP,-22,HM,-21,HOME,-21/*# LD,-2,LEFT,-18,LOAD,-2,LT,-18,NAMES,-9,NEW,-8,NM,-9,QT,-13,QUIT,-13,RE,-6,REEDIT,-6,RWM198:DM70:SM100M(Z#NW1:XX$(1):DW$(1)XX$:DP%(1)1:WS$(1)XX$" "XX$b(d#KB16384:KE155(n#DC3.14159265180:CC234:SC1(x#A(X)2((X1)2)1:R(X)(1000X.5)1000(#SL(771):DR(772)(#ND39:I2ND:DW$(I),DP%(I):)# ";",-1ist of the"::"books? (Y/N)";:16368,0:X$G+FX$"Y"X$"N"18100d+F(X$"N"FLAG1)ġ:1047}+FX$"N"SC718110,F20:1:EP$:"You have selected from all categories."::"This is your last chance to display the"::"books for these choices6),N)1:*FN:18070%*F:18099D*FTTTT1:MA%(TT,0)MA%(J,0)\*FY(SD)(SD)(SD)*F19:21:"Books found":22:19:"in this search: ";TT;*F11:J;:J:FLAG0,+F20:1:EP$;:12:TT;" BOOK(S) FOUND.":COTT::1:"Would you like to see a l%(MA%(J,0),CH))YFIT0180990)ZFK1((IT))E)_FVA$((IT),K,1)\)dF(CH1CH6)18030q)hFCU(VA$)18099)iFCU(VA$)18060)jF18040)nFCU(VA$)118060 *xFN17:ITMA%(MA%(J,0),N):IT0āL1((IT)):T2(((IT),L,1)):CI%(T21(N1N(DKO1(D17580*(DCH(CH)CU:TRYTRY10(D`(PF1:21:EP$:5:22:RE$;"BOOK #";:TT0:SE1(QFUX253:UY156:LX387:LY2284:3000(RF19:21:"Books found":22:19:"in this search: ";TT;(SFJ17:L110:CI%(L,J)0::(TFJ1CO)XFITMAU)""CU1?'D(220(LC5)):(82LC10(LC5)):CH$(CH,LC);:}'D(220(CU5)):(82CU10(CU5))::CH$(CH,CU);::LCCU'DCI%(CU,CH)0SC0KO0Ĵ(X$UK$X$LK$)117589,17588'DCI%(CU,CH)0SC0Ģ20:2::"CATEGORY EMPTY, CHOOSE ANOTHER.";:DK$X$(27)17580C&DX$(13)(CI%(CU,CH)0SC0)ĺ(7);:17580&D20:2:" ":X$(13)17620&DX$(27)CH(CH)0:17630&DX$UK$X$LK$CU(CULZ)CU1:CU0CULZ 'DX$DK$X$RK$CU(CULZ)CU1:CH$(CH,Cess "WI$K1$RE$" or "WI$K2$RE$" to choose."::1:"Press "B$"RETURN"U$" to select or ESC to quit.";%D2:10::REG$;CH$(CH,1);:%D16368,0:CU1:LC1:CI%(CU,CH)0SC0X$DK$:17589%DKO1%D24:39:X$&DX$(13)X$LK$X$RK$X$UK$X$(7);:170402$BX$DK$X$RK$X$LK$X$UK$17040<$BCHCUB$CW$\DKO0:HO$:17000t$aD6:2:130:QE$(CH):255$fDJ15$pD2:(82J):CH$(CU,J);:J$zDJ15:(82J):22:CH$(CH,J5);:J$DJ110:CH$(CH,J)""ĂJ$DLZJ1b%D22:1:"Pr@#B(LC2)4:2:CH$(LC,0);:(CU2)4:2::CH$(CU,0);::LCCUU#BCH(CU)017080e#BSC017040#BK0:J110:CI%(J,CU)0KK1 $BJ:K0Ė2:2CU4::CH$(CU,O);::("................",18(CH$(CU,0)));::"CATEGORY EMPTY";::K0X$(13)ĺX$S"BX$(13)X$"S"X$LK$X$UK$X$DK$X$RK$X$(27)ĺ(27);:17040l"BX$(13)SC017140"BX$(13)17116"BX$"S"CH19:17160"BX$(27)CH27:17160"BX$UK$X$LK$CUCU1:CU0CU7#BX$DK$X$RK$CUCU1:CU8CU1B18000::TRY0:1050!B20:1:EP$;:"Press "WI$K1$RE$" or "WI$K2$RE$" to change categories."::1:"Press "B$"RETURN"U$" to select a category."::1:"Press S to start over or ESC to quit.";!B16368,0:CU1:LC1:CH(1)0X$DK$:17090"B24:38:7,28347,8, xB36:3:((CO)" ",1,3):^ |BSC0:J6202:ITEMJ22:J:2:CH$(ITEM,0); }BCH(ITEM)0ĺ(".......................",18(CH$(ITEM,0)));:CH$(ITEM,CH(ITEM)):SCSC1 ~BJ B14100 B2:6::REG$CH$(1,0);::SC0TRY017030!74,5823974,19823,19823,582/7KhB2:2:LR$VI$"FIND"REG$WiBQP(0)mBSC0Ė17:2:"Number of books":17:3:"in the bookstore:":17014rB19:2:"Books found on"tB19:3:"last search:"vB3 wB347,83971,83971,2834(CC$,1)" "(CC$)1CC$(CC$,(CC$)1):121976/B 05:210\04:10:LR$"FIND"REG$g033,38t23:30006N0:N(107)(108)25696:D$"BLOAD BOOKCO,D1,A";N674,5833973,5833973,19834,19834,583)73,5823920r/(CC$)MNĺBE$;:121209u/C$;:CC$CC$C$:12120Rv/CC$""ĺBE$;:12120z/(CC$)1CC$"":C$;" ";C$;:12120/CC$(CC$,(CC$)1):C$;" ";C$;:12120/CC$""ĺBE$;:12120//(CC$,1)" "(CC$)1CC$(CC$,(CC$)1):121960/,199,210,222,233;*X117:Y%(X)79::Y%(10)85:Y%(11)76P*X117:N%(X):* 115,108,102,96,91,86,81,76,72,68,64,60,57,54,50,47,45*I/16368,0N/CC$""X/C$:C$(13)12190b/C$(8)12150l/C$""12120q/(C$)32ĺBE$;:1212):::(4)"PR#0":(4)"IN#0":SL(47081)16:SL1SL7SL6;:11:" THERE IS SOMETHING WRONG WITH YOUR DISK"::8:"PRESS ";::"RETURN";::" TO RESTART: ";:16368,0;DX$:X$(13)62020;N:(4)"IN#"SLLhe main character be?,What should the length of the book be?,What should the mood of the book be?,What time period is the book set in?,What is the setting of the book?:UR What problems in the character's lives interest you?:bRCO200:kR=;0(1lanet,Another World,An Ocean Island9NR 9,Problems, Family,School,Friendship Trouble,Growing Up,Physical and Mental,Racial,Physical Survival,Local Events,Good vs. Evil 9SRJ17:QE$(J):J:TR What kind of book would you like?,Who should tion,Thoughtful,Facts & Information,Fun and Craziness8DR 8,Time Period,Present,Future,Early 1900's,1800's,1700's,1500's or 1600's,Middle Ages,Ancient Times #9IR 10,Setting,United States,Canada,Europe,Asia,Africa,Latin America,Australia,Another P,Science Fiction,Animal Story,Sports,Everyday Life,Historical,Magic/Supernatural,Nonfiction,Adventure,Romance 75R 5,Main Character, A Boy and A Girl,A Boy,A Girl,A Family,An Animal 7:R 3,Length,Long,Short,In between 48?R 4,Mood,Exciting Act:192906*NHO$6R6R6RLR$(17):WI$(23):BO$(25):UN$(26):HO$(12):EP$(15):WH$(3)"3":GU$(3)"1":OUR$(3)"5":VI$(3)"2":RE$(18)WH$:6!RCH$(10,10),CI%(10,7)6&RJ17:N:L0N:CH$(J,L):L:Jn70R 10,Kind of Book,Mysteryv5K1:5:BO$"TITLE:":S$TI$:UN$;:9500:1:BO$"AUTHOR:"UN$:AU$:1::BO$"DESCRIPTION:"UN$:S$DS$:9500:D$"CLOSE"5K24:1:"Press RETURN to continue--ESC to quit.";5K16368,0:X$:X$(13)195005KX$(27)BROWSE0:5K(7);:193406,LJCH$(CH,CH(CH))" Books":9165%4VK3J4WKUX2373:UY5:LX3871:LY162T4XK3000`4ZKJ1TTo4\K5:1:EP$4_KD$"OPEN BOOK,L260"4dKD$"READ BOOK,R"MA%(J,0)4nKTI$,AU$,DS$4sKY(SD)(SD)(SD)(SD)5xK25:2:"BOOK ";J;" OF ";((TT)" ",3)K1((IT))23KCH(CH)(((IT),K,1))119260>3#KTTTT1N3%KMA%(TT,0)Jf3(KY(SD)(SD)(SD)3-K19:21:"Books found":22:19:"in this search: ";TT;3?6 o$H6666666*$$$$$$$$$$$$$5666666666666#$$$$$$$$$$$$$n@@@@6666666666666. $$$$$$$D@$,66666666% $$$$$$$D@$,66666666%$$$$$$$$$$$$$566666666666$0 $$$$$$$$$$$@@@@6666666666666. $$$$$$$D@(26666666% $$$$$$$D@D6666666%$$$$$$$$$$$$$--%??' o-+-%66666  $4:8:LR$"BOOKSTORE MENU"REG$j$09:10:WI$VI$;::"INSTRUCTIONS":::10:"BROWSE"::10:"FIND"REG$$18:8:"Press "WI$K1$RE$" or "WI$K2$RE$" to choose."::8:"Press "B$"RETURN"U$" when ready."::8:"Press ESC to quit."'$REG$;:MN$(1)"INSTh choice you make, the"::5:"computer searches for books that"::5:"match your description."::5:"After each search, you can see"::5:"a list of the books found."$V22:33,38:300$33,40:$$HO$$5:210$33,38:CU1:LC1~$::5:" - Kind of Book";:23:" - Mood"::5:" - Main Character";:24:"- Time Period"::5:" - Length";:23:" - Setting"::13:" - Problems"$33,38$V22:300$5:210$100:4:18:X$"FIND":BO$;:8500:UN$:255$::5:"With eac"::5:"- Sports";:20:"- Adventure"Tv$:5:"- Romance";:20:"- Everyday Life"_y$33,38mz$V22:300y{$5:210|$100:4:18:X$"FIND":BO$;:8500:UN$:255}$::5:"This lets you describe the book"::5:"you want to find by choosing:"h$100:4:17:X$"BROWSE":BO$;:8500:UN$:255r$:5:"This lets you look through all"::5:"books in a group. The groups are:"::5:"- Mysteries";&u$20:"- Historical"::5:"- Animal";:20:"- Science Fiction"::5:"- Magic";:20:"- Nonfiction#UN$ ##=#X$"0409011517070205111206141610031308"D#4O$J01p$X016:Y((X$,1(X2),2))$RO%(Y):SH%(Y)X%(Y),Y%(Y)J50$PI,N%(Y):DUR,10:MUSIC"$:,$X11000:6$33,40:HO$S$T$Y$33,38^$5:210/ in two ways:":V13:9150>#A$" Browse":V15:9150a#A$" Find":V17:9150l#33,38z#V22:300###V:3:BO$;#X1(A$)#V:(1(BROWSE1)4):(A$,X);#Y(SD)(SD)(SD)(SD)##Y1200:# #HO$#5:200-#X$"INSTRUCTIONS"M#15:4:BO$WH$;:8500:RE$;X#33,39#A$"Bookstore is a simple tool that":V6:9150#A$"helps you find books that match":V8:9150#A$"your interests.":V10:9150#A$"You can use Bookstore(SD)(SD)(SD)U#Y1150:%V#CZ#3:Y9296:30,Y250,Y:d_#Y9296:30,Y50250,Y50:oc#J01d#1:X117:RO%(X):HU%(X)n#SH%(X)X%(X),Y%(X)J50p#PI,N%(X):DUR,10:MUSICs#::V22:33,37:FLAG1:300:33,40:FLAG0x#1050 K0 UX,UYLX,UYLX,LYUX,LYUX,UY:K 4!X1(X$):(X$,X,1);s J!SD16336:Y(SD)(SD)(SD)(SD) `!Y1150: v! ! (# 2#1:200 F#4:12:LR$; K#X$"BOOKSTORE" P#P%(10) R#X111:(X$,X,1);T#SD16336:Y(SD)ke out the Microzine and turn it over.":13:8:"Press RETURN when ready: ";:X$:HO$:12:11:"One moment, please..." *CH27ĺD$"OPEN SIDE":D$"READ SIDE":SI:SI2ĺ(7):D$"CLOSE":16368,0:1065 +CH27ĺD$"RUN TABLE OF CONTENTS" .17500 8H27ī1065 CHCH12 CH0İ9100:9300:1028A CH21047W 19000:HO$:1028 J110:CH(J)0:J:TRY0:SE0:SC0:CO200 J1200:MA%(J,0)J:J HO$;:17000 17020 $CH19CO200:1047 &CH271028v )CH27ĺHO$:11:1:"Ta:0,Y279,Y::X07:X,7X,184::X272279:X,7X,184:? +E ,x 1V:6:REG$;UNB$;"Press RETURN to continue: "; D16368,0:X$:X$(13)ĺ:362 W324 jFLAGĹ33,40:HO$ }  21025:14000 HO$;:9000 9200 9400:C278:125 x3:H10:H2279> }H1,V1H2,V1H2,V2H1,V2H1,V1D z V:6:REG$;UNB$;"Press SPACE BAR to continue: "; 16368,0:X$:X$" "ĺ:165 155 FLAGĹ33,40:HO$ 23:1:EP$:23: 9 Y06:0,Y279,Y::Y1851913 3763262000( PICKABOOK< TRY0:SE0:SC0LMA%(200,7)AP((1101)6):LK$(8):RK$(21):UK$(11):DK$(10):K1$"<":K2$">":APK1$"`":K2$"~"210000<1000i1:H11:H2279:125n2:H10:H2278:125 s6:H10:H2               宍卢嬠孭嬠卢笠䍢󮠠嬠嬠䮢덢報썢嬠䍢䍢獢謠䮍䍢䭭荢퍢鬠宍笠荢ͮ䬠뮠퍢򮠠俍ĠҠԠЍΠȮ獢笠ﮍ䬠䍢笠묠謠썢ᠧ䬠쮍__(d(d((xx__xZxZ(x((7(7KK((KK((xxUUxxU7U7x(x`5GhGxpxx΍jj>(w=I(`e((:b༈\.Q.[>>d:``F)``<<(d(dPPxxܝPP((;`5x=<;:9876540/3/`5.FKJIGHk 2 1 f\[\]\\\_\^abaddc`PYfXeXgSTUVWWX11/02`W8:ff>g?d9`6[4T335 < G T cmq"sSr]pbjdfe`UffS64W;\*h,x,+)(*)((%#/'%"]xhvvuxvvuwx{}7,|3zxx'(y'`F\0_,-07 !`5)!eKo $$7dAB2Z`BUyc6`$   IDZAT|<9P?aPa?Pd#7Pd{{P#d#P{{P##P??G?Haa`5d"6PPYGPsPr/EJ4;BMZfmoqqmkhd_<74` `5q<2n2n2ndndddddd"RE$" --RIGHT":16:20:APĺWI$"~"RE$:580 ?B$" Z"U$: D16:23:"--DOWN":490:HO$:12:11:"One moment, please...":3ach 'tag' gets" :"higher with each round of play."::::"So leave your running shoes in the"::"closet. All you need to play Microzine's":"TAG are nimble fingers and sharp eyes!" 490:HO$:1:"You can either use a joystick or these": !A you can, and watch your score add up.":::"But don't get too confident...or you'll"::"get zapped by the moving electric net!" 490:HO$:4:"The more opponents you tag, the faster"::"the speed of the game. The number of"::"points you get for e5272,175:3W 23:3:B$"RETURN"U$" to continue or "B$"ESC"U$" to quit: ";:16368,0u 23:38:X$:X$(13)499 X$(27)600 495  HO$:5:"Welcome to TAG -- the challenging chase"::"game. Tag your five opponents as quickly":"as 620000 MICROZINE SIDE 2 (START TAG)34304:21000:AP((1101)6):D$(4):D$"BLOADPICDRAW,A$8E00,D1":AN36400:L134304:D$"BLOADTAG.SPC,A"L1:H1L1(L1256)256:L0(L1256):36352,H1:36353,L0:AN490:510 23:2:38);:0:7,17     䬠謠卢ϧ썢亠宍䬠卢孭䬠䍢Šħ嬠䬠宍ˮͮ謠ᮢׄ䍢쮍ﺠ좍쬠ɬ卢鍢䬠塍堦客ȍϧ7081)16:SL1SL7SL6 :11:" THERE IS SOMETHING WRONG WITH YOUR DISK"::8:"PRESS ";::"RETURN";::" TO RESTART: ";:16368,0 DX$:X$(13)62020 N:(4)"IN#"SLX 62000 HELLO;:(4)"IN#0":(4)"PR#0"::12:" TURN THE DISK OVER AND PRESS ";::"RETURN";::": ";:16368,0(X$:::(4)"PR#6"2SL(47081)16:SL1SL7SL6<(4)"IN#"SL 0(12):::(4)"PR#0":(4)"IN#0":SL(4 ɠׄ䬠獢䭭䠢썢䬠ȠŠǠӮǮ嬠報ծӮ퍢ׄ宍̮z                    ! ! !!!宍ʮҮҮ 謠䍢Ү̮笠宍䍢ڮ卢쮍덢A 0@ (4)"BLOADRUNTIME,A16384"(13)(4)"BRUNTAG.OBJ"Ů̮獢嬠Ņ䬠򮍢󮠠宍䍢򠦠򮠠嬠䬠֠®֠嬠宍䍢ʄ荢ɬ卢宠쮍τ䍢筭宍卢嬠@```Pbc d0)cb LHcebi @d ˀLhde ˀ  0dcb    0   L`L00`L 0 $$ L ɰ` L0I0`@I l E o AO n M i o AO m M'r ML_ k n M i k m M'r ML_ l [k ML?^ k m k m L o L k r F r F k m ML?^ >m k &p D AO Ql &p D Ql &p D Ql k j k j jk j Rk k Ok j m %M i j p M'r ML^ pk j j pk D mO Ym l vn D i k i i k i l i #M i 5j vn D i l i i l i k i %M i wj Hl 8j El l zj l Hl o %M i Hl To M'r MLH] j El l n %M i l hp M'r MLn] j l n M m j M j M j E o AO k n M m k M Hl M l !M'r ML \ #m *l tm A8r vn N {N j i >O m m q QL ,j i >O m m q QL .B Hl j l j l !MLz\ Gm D AO l +q M Ko l l p D ;O #m QL l q i l q iLz\ l q ;j l q }j lL] #m +O Ym k tm Ar m N N .B tm + l Lk l l Lk l l l %MLZ !l l l l %MLZ !l l `l k %MLZ k ]l `l k ML [ k ]l xl k %ML[ k ul xl k ML3[ k ul l k MLG[ k l l k ML[[ k l k i k j i k n ;O k i QL vn ;O k i QL -l qm *l /p 8O l m M i -l k >O m m q QL ,j k >O m m q QL tm A8r p N {N .B .B tm A8r vn N {N Gj i >O tm QL .B Mf n M m k M Hl M l E tm j #m k n M m M Hl M l E vn k In k :k =k iq j Zl `l D ul `l j ]l xl j ul =k q j l l D lj Hl j kN n %M i l j kN n %M'r MLX k nm !MLOY tm A8r tm k N {N l i DO ,m i m i DO i j kN Rn %M i i i DO j kN Rn %M'r MLX tm M j M j E l k >O ~o j NL m k >O ~o j i ~o j # i {o NL i k >O j QL ji n j n )j n Dj #m ;O n QL tm ;O n QL Mf o L o LLW 3ROUND 1 FW F tm A8r em N {N .B o L o LL(X F X F tm Ar vn N {N n M i qm M k o p M o E n M tm A8r tp N {N &p D AO Ql .B m 9o @n j m Bo n 'r ML]V o q vn D lD p q vn lD m q vn D lD p q vn lD o q vn lD o q vn D lD p 8O 7n D 5O vn M #m ?q n lD #m Jq n lD tm ?q m lD tm Jq vn lD m ?q n lD m Jq m lD m L tm LLxW5SCORE FpW F m L o L q F p l n m n F o L n LLU TO START GAME FU F p D ;O #m QL Gm D ;O \m ZL m 6l kp yk kp k m ro n j m o n Fk o j p j #m q "q lD tm q tm lD vn mk vn D k tm j m 'o .n # ?l m 0o n # l j Bl kN n %M i Rk l kN n %M FT F o L o LLTOYSTICK FT F ll o !M i ll o !M'r MLU 1k %n M i 1k ^n %M'r MLU gn .kLS Pm ;O tm QL m ;O n QL m ;O n QL m ;O p QL q F Pm ;O m QL m ;O n QL ll o !MLU tm l o L n LLU3PRESS ANY KEY FU OR JOYSTICK FS F Gm D AO kN il p D ;O #m QL l m l m MLS m l 1k m .k n MLT m .k m ;O 1k m i Un +k m i 1k Rn M i i NL j 8O m L 1k L l r F m (k q M tm 1J F o L o LLTEYBOARD FT F o L _p LLTORr FLRG FR F l m l m MLR m l .B p D ;O #m QL >m l o L o LLS3K FS FLS 5EYBOARD FS F o L _p LL9S6OR F4S F o L o LLWS3J FSS FLlS 5OYSTICK FbS F p L m LLS.3PRESS K FOR KEYBOARD OR J Fn i lD .B q F LQ00000 FQ q o I q tm M #m M o jLRTTTTTTT TAG GGGGGGG FQ q tm i e Mp L m LL+R3TAG F$R F m A8r o N m N m ;O i m QL m ;O o QL j 8O i L m L l r FLRT FR F i n L m L l DO ,m i ^k o I q 5m 5O o ;O p QL o ;O Dp QL m I r tm rLP1 r 2I FP H lD m rL Q2 r 2I F Q H lD m rL'Q5 r 2I F%Q H lD n rLCQ6 r 2I FAQ H lD m l m k #m Ar n N {N k kq k o kN m c n i lD k q k o kN m c Ox" @ wOOO$rv w q @ o I q n I q H q q FLOBLOADTAG.SH,A$8200 FO F n ;O #m QL io ;O m QL q FL7PBLOADTAGROUTINE F'P F o >O #m QL o >O #m QL q FLyPBLOADSOUND.GEN,A$8500 FcP F p l p k m k Vp k o DO i o             殍ɠ卢򠍢荢쮍䍢䮍卢䭭報퍢䍢宍宍嬠宠⍢⬠䍢䬠퍢卢ʮ썢677?>?'?<<$',-%%-,%$?/--+.55=????).-%=@-b-?.e)5?Ԛ+-->>?''݊S26?.-$$ 56.-$d(--'6;??%6L(-----#$7-%$|I16.-%?'$+-$$---66??OI)ۗ*?.e)5? -52>>>7??<'''4X',-%%-,%$???mI)--ך5-..????5--,?.e)5? H)-6 뮍򩍢።Ԅ堧笠ﬠ鮠쬠ŠӠƠ٠ή卢̮䍢秭嬠䬠讍።쬠D`"`i``< `S``OKK`  `+)` ` ``)TB`5CX` E D`<ĠE`  `E`.D`UV2ЅUŕȱU喰!0UUdUV0*UiUViVUmVnɊȢwU0ХyyUU⥁œ.QP$  e LWHhL:5~    eȱeLaL LRwwxȆwxwHw Jhw`w5U,w`,hbhcbwȱbxcȘHH`wȄ wep`0CBe]Q=b`LicbbbE0`Ġ``MMLeڢD ! SL3LH h%LddЉ`?0 HH chh ޥ Yަ`н  eE   ࠰>Ffee0  &ߢEX$ƫv` ꥪLYDcbbwyȱbxz`ݥܦL+3UV UwȱUx`wUȥxU`Ncbbȱb`cbbȥb`cbbȱb8塅堅PEncbbȱbe HH`0S,,hdehUhVhhHHU hehHehUU HHk`UiȱUiuкe& & &eeHHqUȥqUeFdO݅܆`ycbbȱbƫ8pM䡥UȥUU +뺠ЧUV욥VHUHthhЁ HHf ㈱ۺQi e 纼 +뺊i  e HH`iiiHH`(bcbebbePE1b]  0  j=i<<=kbޙץ,,stHʈcbhH ʈpoophMm X RQtPsh`bhH      卢롍ͮŮ쬠򮠠鿍젨򩍢ͮŮ嬠宍獢󮠠謠뮍宠ɍ卢󮠠䍢嬠嬠󮠠Ӡ卢栱䮍ڠ荢îϧ 0`笠嬠퍢ᠦ卢덢Į䬠쮍宠ɠ卢卢ɬ宍䍢卢 @@@``@`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ɀ      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`        REEDIT REEDIT unaccepted procedures,,SAVE $ SAVE procedures in disk file $,LOAD $ LOAD procedures from file $,," (# is an integer, $ is a one-word name)",z$ COMMAND EXPLANATION,,CAT CATALOG of files on disk,ERASE $ ERASE file $ f Send robot to start position,$ BEGIN $ BEGIN procedure named $,END END procedure,,REPEAT # REPEAT the commands between,AGAIN 'REPEAT' and 'AGAIN' # times,EDIT Type in a new procedure,EDIT $... EDIT procedures named $...$"CLOSE"h$771,SL:772,DR.$ HELP SCREENSC$I144:H$(I): $ COMMAND EXPLANATION,,FORWARD # Move robot FORWARD # steps,BACK # Move robot BACK # steps,RIGHT # Turn robot RIGHT # degrees,LEFT # Turn robot LEFT # degrees,HOME (23):GU$CL$"1"$# BINARY FILES;#D$"BLOAD PICDRAW"r$D$"BLOAD RR SHAPES,A$8000":232,0:233,816:3:1$D$"BLOAD RR MAZES,A$6000"T$ SLOT/DRIVE^$C$"MZ.PARAMETER FILE":D$"OPEN "C$",L10":D$"READ "C$",R2":DR:D$"READ "C$",R3":SL:D$1$"<":K2$">":(1101)6K1$(96):K2$(126)^P#H$(44),M$(20),OX(20),OY(20),HH(20),AD(20)zZ#V(X)X1(X5)(X12)# 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$INSERT PROGRAM DISKEv H$:10:6:"Put the Microzine in drive one."v 14:8:"Press "B$"RETURN"U$" when ready: "; A$:A$CR$8330 8200(# INIT2#(5168)256<#D$(4):CR$(13):ES$(27):LK$(8):RK$(21):UK$(11):DK$(10)/F#K11000::# CHECK PROGRAM DISK. 8300H :D$"VERIFY SIDE,D1"T& 620000 D$"OPEN SIDE":D$"READ SIDE":SS:D$"CLOSE SIDE": SSSDĴRT5520,6020,5410D H$:10:"Take out the Microzine and turn it over."N RT1RT3X 8320l IN#0":38400!D$"RUN RR MAIN",p QUITGz33,40:RT2:SD1:8200h:D$"RUN TABLE OF CONTENTS"w@ CONTINUEJ24:1:" Press "B$"RETURN "U$"to continue, "B$"ESC "U$"to quit";T16368,0:C$:C$ES$6000:C$CR$8020: PAUSE ILK$C$UK$CSCS1MN(CS1):5330?CSCS1MN(CSMN):5330R LOAD PICTURE"33,40:XAD(CS):36352,X(X256)256:36353,(X256):36400::16301,0,768,OX(CS):769,OY(CS):770,HH(CS)| RUN RR MAINRT1:SD2:8200 D$"PR#0":D$"127,0127,1847,1847,0:33,17D I1MN:V(I):5:M$(I);::CS1 V(CS):5::(M$(CS)" ",13)::V(CS):3 16368,0 C$:C$CR$5400:C$ES$6000:C$LK$C$RK$C$UK$C$DK$5340:5:(M$(CS)" ",13)"C$23:"Now you can choose":21:"a screen world for"::21:"your robot.":::23:"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,0:"commands you can use? ("B$"Y"U$"/"B$"N"U$")"::" Press "B$"ESC"U$" to quit." <20:29:C$:C$"N"5300:C$ES$6000:C$"Y"5180 P HELP SCREENS ZH$;:I122:H$(I)::8000 dH$;:I2344:H$(I)::8000  CHOOSE SCREEN H$:3:OX,OY:RSNX,OY:OXNX:< RS16:RSOX,OY:RS1OX,OY:j NY154946:RSOX,OY:RSOX,NY:OYNY: (RS711:RSOX,OY:RS1OX,OY::RSOX,OY:32:RS1:RSOX,OY:RS16:RSOX,OY:RS1OX,OY:S 218:5:"Would you like to see a list of the":364007 I12000::0:Y182191:0,Y279,Y::8000F  PAGE ONEn H$:2:7:LR$GU$"AMAZING ROBOT"RE$ 6:5:"In AMAZING ROBOT you write programs"::"to control a robot on the screen.":8100 OX20:OY160:RS1:0:RSOX,OY:NX261406:RSL 62000! RR SET UP 2.8tF(104)64(103)1(16384)0Ĺ104,64:103,1:16384,0:(4)"RUN RR SET UP"~P9000Z5000d ALTERNATE ENTRYn9000x5300 OPENING GRAPHIC D$"BLOAD ROBOT.SPC,A$5800":36352,0:36353,5168:     RSIX,OY:0 LEFT+:IY1:3200:ERı:DXX:4320E HELPg::1:I122:H$(I)::4550:I2344:H$(I)::455016304,0::24:24::"PRESS RETURN TO CONTINUE";:C$:C$CR$4560: END OF IMMEDIATEER1: X)360):4360:ER0Ă~I01:LRLRIY:LRLR24(LR24)24(LR1):RSIX,OY:RSLR12(LR11)1:32(LR11):RSIX,OY(CC)CC%(RS)ER20:4390(KB)KEĹ16368,0:ER21:4390INRLR:: &HHOH:LRRO:RSIX,OY:RSOS:32(LR11)::@OXNX:OYNY:h BACK/r3200:ERı>|XX:4120J RIGHT_IY1:3200:ERıIXA(OX):OHHH:OSRS:ROLR:HHHHX:HHHH360(HH360):NR(HH15.5):NR24NR0(X)((X)360)36015NRLRİ4360:ERı(X)360āJ1((04150"I1MC:TXOXIX:TYOYIY:RSA(OX),OY:RSA(TX),TY:(CC)CC%(RS)ER20:OXR(OX):OYR(OY):RSA(TX),TY:RSA(OX),OY:,OXTX:OYTY:6RSA(OX),OY:RSA(NX),NY:(CC)CC%(RS)ER20:OXR(OX):OYR(OY):RSA(NX),NY:RSA(OX),OYOY(769):HH(770):LR(HH15.5):LRLR(LR24):RSLR12(LR11)1:32(LR11):RSOX,OY:(CC)CC%(RS)ER20v FORWARD3200:ERıC(HHDC):SSC(HHDC):NXR(OXCX):NYR(OYSX):IXR((X)6C):IYR((X)6S):MC((X6)):MC0:ER21:dCDP%(DI):C0ĴC6000,6200,6600,6400,7000,7400,7500,7600,7700,5800,5600,5000,5100,5200,5400,5900,4100,4300,4400,4200,4000,4500:nSPSP2:SPSMER4:xST%(SP1)PL:ST%(SP)PC:PLC1:PC1: HOMERSA(OX),OYpOX(768):IJ)2) W$DW$(DI)JDI17 W$DW$(DI)IDI1U TIJ::DW$(DI)W$ER3[ p INTERPRET LINEWS$(0)L$:PL0:PC1:ER0:SP0TT01:3900:TTER0::< INTERPRET WORDF3100:W$""ıP3300:ERı Z(KB)KEĹ16368,0 I1(L$)PC:(L$,PCI,1)DL$W$(L$,PC,I):PCPCI:A: R GET NUMBER~ 3100:C$(W$,1):I1:C$"+"C$"-"I2 I(W$)ER5: II(W$):C((W$,I,1)):C48C57ER5: :X(W$): LOOK UP WORD I1:JND:T01:DI((EDISPLAY$ CV(37):34,CV::34,0A DBEL19CV:DBEEDBEEf IELDB:2:WS$(I)::ELDT1:x SKIP SPACES L$WS$(PL)" ":PCPC(L$):(L$,PC,1)" "ı :PLPL1:PC1:3000 SCAN WORD& 3000:DL$"@":(L$,PC,1)"A"DL$" "; INSERTW 2 EEWMĖ1:21:BL$;BL$"*** CAN'T EDIT ANY MORE LINES ***";:ELDT1:1: F ELEEāIEEEL1:WS$(I1)WS$(I): P WS$(EL)"":EEEE1:2800:2400: DISPLAY DBDT19:DBEEDBEE :DBDTāIDTDB:2:WS$(I):  RUIT  ::: ` EDIT- j ELEEĺBL$;:[ t L$WS$(EL):LM38:2:1000:ESWS$(EL)L$i ~ ESİ2800x 1:2100: DELETE ELEEĺBL$;: EEWMĢ21:1:(SP$,39);:ELDT1:1 IELEE:WS$(I)WS$(I1)::WS$(EE)"":EEEE1:2800: (DI",I,1)CI# :C0ĺBL$;:2030D C2300,2400,2500,2600:2030V 4 RIGHT ARROWo >ELWMELEEĺBL$;: HELDT19DTDT10:2700 RELEL1:ELDT1:  LEFT ARROW ELEBĺBL$;: ELDTDTDT10:2700 ELEL1:ELDT1:  QING ROBOT EDITOR ":"USE <- AND -> TO SELECT LINE, Q TO QUIT":"E TO EDIT, D TO DELETE, I TO INSERT. ";: 35,21:ELEB:DTEB:2700:ELDT1 C1$;:C$:C2$;:C$RT$C$DK$İ2100:2030 C$LF$C$UK$İ2200:2030 C0:I14:C$("QE$,2):$ $C$CX$L$(L$,2):ES1:V .C$CR$ĺ(SP$,MPCP1);:L$((L$,CP1),2):f 8BL$;:1020x L RIGHT ARROW VCPLMĺBL$;:1020 `CP(L$)L$L$" " j(L$,CP,1);:CPCP1:MPMP(CPMP):1020  EDITORs :::22:" AMAZ{*  10000$DOS46592:XDDOS3.8000? LINE INPUTbL$" "L$:CP2:ES0:MP(L$)1C$:C$" "CPLMĺC$;:L$(L$,CP1)C$(L$,CP1):CPCP1:MPMP(CPMP):1020C$RT$1100C$LF$CP2CPCP1:LF$;:1020 C$ES$L$(L               卢孭孭̮Ӄ宍Ӄ卢荢宍ᬠƄ䭭客鍢卢ծӮ塠荢䭭箍嬠卢ͮî殠ͮîpjfbachmsy}rrswz~ŒʑΎЉІЂ}yuqonNQUY]_behlosw{}~|a_D\ZXUOML=AEIMOOLIEG?:730+( '>~>=>========/27=}C{GzMyRzV|Z\[ZWSPMHMPSWZ]`cfvromllklmqv{~}xu6:<>BEHLORUTRPONLLD#&)-159>BF$)/39=BD&# !%*.158;;   $&)*) !%)-049_6P5S5W5Z6^5b5f6i5m5pD9V@PCKFLHNIQITIWIZH]DI]I`IcIgIjQKSITFXFZIZMZQZTZWZZZ][_]a^b`bx>u=r;nkAjCiFhIgLgOgRhViYk[m]p^r^u]x\zZ|Y|:|>|B{E}H|J}M~SW754310.-D+*D.3h DDyNyNyy  FF `W#^wpHJ`eJNC`MD<?BEHJM P S U X [ ^ ` bdgjmprux{}D9>BFJNQUX[!_"c%f&i'l(n)qi feca`    墍ϧ썢客宍堄䬠荢忍̮卢宍卢卢ᮍ獢!$6666"$$$$$66$$$$$$$$6666$$$$$$$$$$<66666>$$$$$$$$$$$7662>$DC#$$$$$$@#$76'$DCC#$$$$DCCC#<62>$DCC#$$$$DCCC#662>$DCC#$DCC#$76$66$$DCCCC#66$$76$II!$@CCC32666@CCCCCCC#$<66666666@C#$$@CC#$<666666666@C#$$$@CCC#$766666666DCCC#$$$@CCCC#$7666666666$$@CC#$$@CCCCCC#666666666'$DCCCCCCCCCCCC#<66666626$$@CCCCCCCCCC#$76266$$@C#$@CCCC#66$$@C#$7626$@CCC#II@CC#$666666666@C#$$$@CC#$2666666@CC#$@C366666#$$$$$062$$ $$ $$7626'$$DCCCCCCC#666$$$666 $&II!$$@C#66"$$$$$$66$$$$$$$$$6626"$$$$$$$@#$666$$$$$$$666$$$$$$$$666$$$$$$$$6$$$$$$DCCC26'$DC#$$$66$$56666 $$$$HIII!$$@36666$$$$$7626$$6666"$$$$$$$6666$$$$$$$$$7266$$$$$$$666$$$$$$$066$$$$$$$$76$$$$D#$66'$@3666$$$$7666@CC#$HII$066$$$$0666666@CCCCCC#$$<666666@CCCCCCCCCCCC#266666@C#$@CCCC36666666@C#$$$$$$$$$$$$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 @CCCCCCCCCC#$6666 $$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$$$$$5626$$ 6666U"$$$$$$$d6666CCCCCCCCC#,66666626 $$@CCCCCCCCCC#$56266f$$@C#$@CCCC#66f$$@C#$5626 $@CCC##$$@C#d66"$$$$$$d66$$$$$$$$$ 6626"$$$$$$$@#$666$$$$$$$ 666$$$$$$$$ 666$$$$$$$$6$$$$$$DCCC26%$DC#$$$ 6666 $$DCCCC#66 $$56 $6.$$$$$$$$$$$5662.$DC#$$$$$$@#$56%$DCC#$$$$DCCC#,62.$DCC#$$$$DCCC#662.$DCC#$DCC#$56f$#$d@CCC32666f@CCCCCCC#$,66666666 @C#$$@CC#$,666666666 @C#$$$@CCC#$566666666DCCC#$$$@CCCC#$5666666666$$@CC#$$@CCCCCC#666666666%$DCCC nQ] m#$d6666U"$$$$$66$$$$$$$$$ 66666$$$$$$$$$$$566666.$$$$$$$$$$$5662.$DC#$$$$$$@#,66%$@C#$$$$$@C#,62.$DCC#$$$$$@C#66%$@CCC#,66#$d6666U"$$$$$66$$$$$$$$ 6666$$$$$$$$$$,6666    !ٍ!墍嬠箠򿢍󠳰򮠠ӮŮ嬠宍卢쬠欠宍 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ݠ!! ! !