8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RNEW.DISK}' ,BASIC.SYSTEM(*++BIG.LETTERSH) b'CHECKIT  6/ ;,DISK.SLEEVER( G'G'+HAND.PUZZLE3 H) ` .HISTOGRAM.DATA@H>F*NIB.LAUNCH F&5 NIBBLEG?$'NIBMENU 6J J %ORBITbG&`J &PRODOS }<PRODOS.PRINT!G8PRODOS.PRINT.S<GQ)SC.SYSTEM_Fa +SC.SYSTEM.S,FU, SHAPE.SELECTHGGSMALL.LETTERSH) b(SNAPSHOT) G&G&&SS.BINLG&G&'STARTUP ®3s,.STARTUP.SCREEN®09`®4TRACE.SAVER%G'G''WHEREIS <F%  LG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)<JJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""IzLYL 8!9 詍` "  4"/pŠϠŠà͠ӠàԠŠH06172839h` v97L75v^a ?/( va?LLLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b w,S0 @ lLޭBDEF޾ p ޾ p($ذ v (0 ( L?ԦʚLeةީa s  lL b,FLg,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ B94 l% bʽ  ՚,S` H E$݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O ]c־Jjjj `O>0O l POپھ p H־Ǿh۰8L־Jjjjɾ)Ⱦ8 ѱ OLӜ ĤLLX>(F`־ؾپھ׾` bɄ KDEF vLl v lL bKɍKL?` w  vLl@3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅303L8933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B8` K  춼LK ҟ ҟ ( KK`HJJJJ8`HK)` #hhLJپھ pHJh` D!hgt}~p `~t}p8n~ni}tpi~~tso8pinii>j?k̈́>~|p|Ii||̈́ l - `>i>?Ek?!>Q>>>̀ `` \> ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m};>:8o>oȑ>ppȑ>> :op`G DKpnG @p;G=po:i>?Ek?>Q>> L> \/ e>>?́?ޱ>ȥj>>m>` _m8injkiljo풼S 鸍긍$I2 U)VJ зT)`l8`a HbIJhjǾȾɾ p٭b=aIe f`8` P־ǾҾ,G0C f=W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) 5W) =)W)@! pZ}ȾȾ󰹩 p` ־ǾҾ,G 8`׾ؾ f p vۥs׾tؾE`  ( 8о(־Ǿ,G 8`_`W)H־Jjjjh p̭ fLᶢǾ ת..8 ۭ (8mȾȾmɾɾʾiʾ` Lpl8l:/,s̝sƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPEND6D(!쫂8ֵ#ح#׮2}q :IC@@ -!S    !C- !ABELSDFRV@@ !$(19@EüϠž(+@ABCDEFGHIKLMNPSV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,C[B?I>孓`仫6VtCicQĿUKqtVt Nʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TLLwLLL) `8` ԠŬLL'Pf&Ln;Wn8[~ =Y}>$ 66666>7--%?$$$$$$% -6>>>>>6--5???'%g $'?7?% -6>6>>>?<<,e $'g $'?7?6.--56.$$%'$$$?6.--$$$777666--56?75-%%!$'??$$,--5??7I >66...-,,$5$,-%??,%%%%----56>>>>66>$$d $???66v-%%%$',$7- ->7-6666.$$-%?'$ '% 6%6666>$$$$<666666--%%%$ $<<66665-% 57?$$$$ 666666--%%%$$$<<?7666666%$$,-%??$$,-->?7 -555?>66665-%%$?,-66?$$$$ 666666%$$,-566.$$$$$$766??$$$1-66666?.--<'$$$$,%??I)->6666>>>''' $$$$?666666%$$,5..61%$,,,$7>'$$666666---666666%$$$,vv56%$$$$$<6666'''$666655-%%%$$$<<6666e $$$666666%$$$$$,.,.?57'?.-666655- %' $$$?6666%$'2.$$$$<..->6..-5567?''7-e $?$%-55%?---5?766666'$$$$$??6666655-%%%$$$$<6666$$$$$6666555.$%%%$$$<666$$$$366665v, ,<'---$$$$<6666'$$$$vv.dd-6.<'%%,$%$6655566.$$$%%%$<6>$$---5.--5???'dd d":740S 19:A$"Current drive: Slot "(SLOT)", Drive "(DRIVE):740} 21:A$"Printer slot: "(PS):740:5 :B:A1B:A$(A): 5,PRINT SLEEVE WITH CATALOG,PRINT SLEEVE WITHOUT CATALOG,CHANGE SLOT AND DRIVE,CHANGE PRINTER SLOT,QUIT3 A1B:" ";A;". ";A$(A):::SE1:270_ 16384,128:KEY(16384)128:16368,0 KEY21KEY10İ290:SESE1:310 KEY8KEY11İ290:SESE1:310 KEY49KEY48Bİ290:SEKEY48:310 KEY13ĴSE390,370,440,530,350 200  TURN CURSOR OND 3(SE2):2::"--> ";SE;". ";A$(SE)::[  TURN CURSOR OFF "3(SE2):2:" ";SE;". ";A$(SE): , CHECK SE FOR VALIDITY 6SE1SEB @SEBSE1 J270:200 T *** QUIT *** ^: h *** PRINT SLEEVE, NO CATALOG ***$ rCF0:780:130L | *** PRINT SLEEVE WITH CATALOG *** ::"Place your ProDOS disk in slot ";SLOT;",": "drive ";DRIVE;", and press RETURN...";:K$"":L1:580: K$(27)130 1080:CF1:780:130 *** CHANGE SLOT AND DRIVE ***S:"Change Slot and Drive":"---------------------": 22 DASHES:"The directory of the disk in the drive":"that you select will be printed on the":"disk sleeve. The selected drive must""contain a ProDOS disk."=10:958:"Enter slot (1-7): ";:K$(SLOT):L1:580::K$(27)130_SLOT(K$):SLOT1SLOT747012:958:"Enter drive (1-2): ";:K$(DRIVE):L1:580::K$(27)470DRIVE(K$):DRIVE1DRIVE2490130 *** CHANGE PRINTER SLOT ***::"Change Printer Slot":"-------------------": 19 DASHES4:958:"Enter your printer slot: (1-7) ";:K$(PS):L1:580::K$(27)130&PS(K$):PS1PS75400130: *** INPUT ROUTINE ***DK$""600N:K$;::B$;)X16384,128:K(16384):K155K$(27):16368,0:7b16368,0PlK141ĝ:K$;:B$;:kvK177K255K183600t72016368,0K(16384):K128660K141ĝ:K$;:B$;:16368,0:K183K177K255710K155K$(27):16368,0:600(7);:K$"":600QK$""::(K);:B$;:K$K$(K128):LILI1::600y *** CENTER A$ ON CURRENT LINE ***20((A$)2):A$: *** PRINT THE ENVELOPE *** *** NOTE: APPLE II+ USERS CAN MODIFY THIS PORTION OF CODE... ***? *** IN ORDER TO PRINT THE BACKSLASH CHARACTER USE CHR$(47) *** :10:"Make sure your printer is on-line"::"and press RETURN...";:K$"":L1:580::K$(27)1301040 A16:" ";::A155:"_";::*A123:880:4A15:" ";::"!";:A155:".";::"!"R>A127:B16:" ";:B:"!";:B153:" ";:B:"!":AHA16:" ";::"\";:A153:" ";::"/"RA17:" ";::"\";:A151:"_";::"/"\1060:130f *** PRINT LINE #A OF FRONT ***pA1L$" /":R$"\":990#zA2L$" / ":R$" \":990EA3L$" / ":R$" \":990hA4L$" / ":R$" \":990A5L$"/ ":R$" \":990A19L$"\ ":R$" /":990A20L$" \ ":R$" /":990A21L$" \ ":R$" /":990A22L$" \ ":R$" /":990;A23L$" \":R$"/":990UL$"! ":R$" !"rL$;"!";:CFİ1160:1010A$"":B155:A$A$" ":A$;"!";R$ *** INITIALIZE PRINTER ***(4)"PR#"PS:ST$: *** TURN PRINTER OFF ***$(4)"PR#0":4. *** READ DIRECTORY INTO D$ ***?81140tB(4)"PREFIX,S"SLOT",D";DRIVE:(4)"PREFIX":PR$L(4)"OPEN ";PR$;",TDIR":(4)"READ ";PR$:D$(0):A$:A$:N0VD$(N1):D$(N1)""1130`NN1:N691110j(4)"CLOSE":216,0:Bt216,0::10:"Disk error. Please press RETURN...";A$:130k~ *** BUILD LINE #A WITH CATALOG ***zN231260N451220A1A$" "(D$(0),16):C55(A$):B1C:A$A$" "::A$" "(D$(A1),2,15)" "%A$A$(D$(A21),2,15)" ":A43NāB119:A$A$" "::IA$A$(D$(A43),2,15)" ":A1A$" "(D$(0),16):C55(A$):B1C:A$A$" "::A$"":B15:A$A$" "::A$A$(D$(A1),2,19):B16:A$A$" ":A21NāB125:A$A$" "::A$A$(D$(A21),2,19):B16:A$A$" "::[A1A$" "(D$(0),16):C55(A$):B1C:A$A$" "::A$"":A1N:B155:A$A$" "::B15:A$A$" "::A$A$(D$(A1),2,44):B16:A$A$" "::456789:;<=>?` ***********************=` * HAND.PUZZLE *[` * BY ROBERT DEVINE *y`( * COPYRIGHT (C) 1989 *`2 * MICROSPARC, INC. *`< * CONCORD, MA 01742 *`F ***********************aP(104)96Ĺ103,1:104,96:24576,0:(4);"RUN HAND.PUZZLE"aZ1180$adKan:(21):860:216,0:A$(16):1050axG1$" ABCDEFGHIJKLMNO":G2$"ABCDEFGHIJKLMNOP":X116:A$(X)"":Xa:A$"HI THERE":VT4:HT1:1020:A$"WHAT IS YOUR NAME ?":VT6:HT1:1020b24:16:"(MAX 9 CHARS)";:22:16:N$:(N$)9ė:(7):1405bE0:1160:E1140b::A$"WOULD YOU LIKE":VT2:HT0:1020:A$"THE INSTRUCTIONS":VT4:1020:A$N$" ?":VT6:1020:22:16:A$:(A$,1)"N"270)c:A$"HAND PUZZLE":VT1:HT0:1020:A$"IS PLAYED ON A":VT3:HT21:980:A$"4 X 4 PLAYING BOARD":VT5:HT.2:980cA$"THE LETTERS":VT7:HT0:980:A$"ABCDEFGHIJKLMNOP":VT4:1020:A$"ARE SCATTERED AROUND THE BOARD AND YOUR":VT11:980/dA$"JOB IS TO PUT THEM IN ORDER":VT13:980:A$"THERE ARE TWO PUZZLE VARIATIONS":VT15:980:A$"THAT YOU MAY CHOOSE FROM":VT17:980dA$"PRESS RETURN TO CONTINUE":VT21:HT7:980:A$::A$"PUZZLE ONE":VT0:HT0:1020:G1:900FeA$"TO MOVE YOU SIMPLY":VT5:HT0:980:A$"TOUCH THE KEY FOR":VT7:980:A$"ANY LETTER THAT IS":VT9:980:A$"NEXT TO THE EMPTY":VT11:980:A$"SPACE AND THAT LETTER":VT13:980eA$"WILL MOVE INTO THE":VT15:980:A$"EMPTY SPACE":VT17:980:A$"PRESS RETURN TO CONTINUE":VT22:HT7:980:A$mf:A$"PUZZLE TWO":VT0:HT0:1020:G2:900:A$"TO MOVE YOU MUST":VT3:HT0:980:A$"ROTATE 4 LETTERS IN":VT4:980:A$"A COUNTERCLOCKWISE":VT5:980:A$"DIRECTION":VT6:980fA$"TO DO SO YOU MUST":VT8:980:A$"SELECT THE TOP LEFT":VT9:980:A$"LETTER OF THE 4 THAT":VT10:980:A$"YOU WANT TO ROTATE":VT11:980tgA$"FOR INSTANCE IF YOU":VT13:980:A$"TOUCHED THE LETTER G":VT14:980:A$"THE BOARD WOULD CHANGE TO":VT15:980 hA$"A B C D":VT17:HT5:980:A$"E F H L":VT18:HT5:980:A$"I J G K":VT19:HT5:980:A$"M N O P":VT20:HT5:980:A$"PRESS RETURN TO CONTINUE":VT22:HT7:980:A$:}h:T0:X092:TT1:A$"GOOD LUCK":VTX:HT6:T1090,1100,1110,1120,1120:1020:X:1130&i::10:"WHICH PUZZLE WILL YOU TRY ?"::"1. PUZZLE #1-MOVE ONE LETTER EACH TURN."::"2. PUZZLE #2-ROTATE 4 LETTERS EACH TURN."::"WHICH ? ";:G$:G$(27)ĉ::?i"G(G$):G1G2280Hi,880ri622:10::" SETTING UP THE BOARD ":~i@X116iJA((1)1665):Y116:(A$(Y))(A)330:YiTA$(X)(A):X:TR0:G2370i^X116:A$(X)"P"A$(X)" "ihXjr730:1140Jj|22:30:"MOVE "TR:22:"WHAT IS YOUR MOVE, ";N$;" ";:M$:1140ZjM$"0"700yjTRTR1:22:30:"MOVE "TRjX116:M$A$(X)MX:430jX:760:380jT0:G2(M4(M4)M11)İ760:380jG2780j GAME 13kM470,480,480,490,500,510,510,520,500,510,510,520,530,540,540,550Fk560:600:640^k560:580:600:640qk580:600:640k560:600:620:640k560:580:600:620:640k580:600:620:640k560:620:640k560:580:620:640k&580:620:640,l0A$(M1)" "A$(M1)M$:A$(M)" ":T1:AM12l:blDA$(M1)" "A$(M1)M$:A$(M)" ":T1:AM1hlNlXA$(M4)" "A$(M4)M$:A$(M)" ":T1:AM4lbllA$(M4)" "A$(M4)M$:A$(M)" ":T1:AM4lvlT0İ760:380>> YOU WIN !!!! <<< "::1130m1140:22:"DO YOU WANT ANOTHER PUZZLE "N$" ";:A$nA$"Y"A$"YES"āX116:A$(X)"":X:280Kn::12:"BYE "N$" IT'S BEEN FUN":23:n232,248:233,9:M0:X14:Y14:MM1:A$(M)" "750n(A$(M))51YC(Y),XC(X)nY,X:o22:(7);(7);::" ILLEGAL MOVE "N$" !!! TRY AGAIN "::TRTR1:1130:1140:o GAME 2@o M1$A$(M):M2$A$(M1):M3$A$(M4):M4$A$(M5)foA0:X14:Y14:AA1:AM840o (A$(M))51YC(Y),XC(X):A$(M)M2$:(A$(M))51YC(Y),XC(X)o*(A$(M1))51YC(Y1),XC(X):A$(M1)M4$:(A$(M1))51YC(Y1),XC(X):p4(A$(M4))51YC(Y),XC(X1):A$(M4)M1$:(A$(M4))51YC(Y),XC(X1)p>(A$(M5))51YC(Y1),XC(X1):A$(M5)M3$:(A$(M5))51YC(Y1),XC(X1):X4:Y4pHY,XpRX116:(A$(X)(G2$,X,1))380:X:690q\(4)"BLOAD BIG.LETTERS":(4)"BLOAD SMALL.LETTERS":1:0UqfXC(1)16:XC(2)51:XC(3)86:XC(4)121:YC(1)21:YC(2)61:YC(3)101:YC(4)141:qp:3:X4512540:X,5X,145:X:X4011035:5,X165,X:Xqz5:X0165165:YXX5:Y,0Y,150:Y,X:X0145145:YXX5:0,Y165,Y:Y,X%r3:X21424214:X,2X,50:X:X143812:200,X256,X:Xxr5:X19825658:YXX1:Y,0Y,51:Y,X:X05050:YXX1:200,Y256,Y:Y,Xs3:A$"TO WIN YOU":VT8:HT28:980:A$"MUST PUT THE":VT10:HT27:980:A$"LETTERS IN":VT12:HT28:980:A$"THIS ORDER":VT14:HT28:980sG2950sA$" A B C":VT.7:HT29.4:980:A$"D E F G":VT2.2:HT29.4:980:A$"H I J K":VT3.7:HT29.4:980:A$"L M N O":VT5.2:HT29.4:980:960$tA$"A B C D":VT.7:HT29.4:980:A$"E F G H":VT2.2:HT29.4:980:A$"I J K L":VT3.7:HT29.4:980:A$"M N O P":VT5.2:HT29.4:980itA$"TO GIVE UP":VT17:HT28:980:A$"ENTER A 0":VT19:HT28:980ott232,0:233,8:HTHT7:VTVT8:L1(A$):A((A$,L,1))53tA6A5AA6t(A1)1010:A(HT7)(L7),VT:M(16336)(16336)uL:`u232,248:233,9:HTHT13:VTVT17:L1(A$):A((A$,L,1))51:(A19)1040:A12A10uA(HT13)(L13),VT:M(16336)(16336)uL:u:7Xv$A$"HAND PUZZLE":VT0:HT5:1020:A$"WRITTEN BY":VT2:HT5.5:1020:A$"ROBERT DEVINE":VT4:HT4:1020:A$"COPYRIGHT MCMLXXXIX":VT6:HT1:1020:A$"MICROSPARC INC":VT8:HT4:1020}v.A$"CONCORD MA":VT10:HT5:1020v8T14000::vB1:vL2:vV5:v`7:vjT11500:T:wt22:" ":M$"a"M$"z"M$((M$)32)w~MwT1(N$):(N$,T,1)"A"(N$,T,1)"Z"E1VwT:w"CAN'T FIND SHAPE TABLES ON DISK":23:ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ CM<15FNFNFP nS/ FREQUENCY DISTRIBUTION!  39-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-||Low| .@ 4@ 9@ >@ A@ D@ F@ I@ K@ N@||Data|High| 3@ 8@ =@ A@ C@ F@ H@ K@ M@ P@|3|9-|9-|9-9-9-9-9-9-9-9-9-9-|| C@||A?A?A?A?A??A?A?A?A?A?| | 7@||A?A??A?A?A?A?A?A?A?A?| | >@||A?A?A?A??A?A?A?A?A?A?| | =@||A?A?A??A?A?A?A?A?A?A?| | :@||A?A?A??A?A?A?A?A?A?A?| | =@||A?A?A??A?A?A?A?A?A?A?|| D@||A?A?A?A?A?A??A?A?A?A?|| D@||A?A?A?A?A?A??A?A?A?A?|| @@||A?A?A?A??A?A?A?A?A?A?|| 6@||A?A??A?A?A?A?A?A?A?A?|| @@||A?A?A?A??A?A?A?A?A?A?|| J@||A?A?A?A?A?A?A?A??A?A?|| G@||A?A?A?A?A?A?A??A?A?A?|| A@||A?A?A?A?A??A?A?A?A?A?|| 9@||A?A?A??A?A?A?A?A?A?A?|| <@||A?A?A??A?A?A?A?A?A?A?|| @@||A?A?A?A??A?A?A?A?A?A?|| @@||A?A?A?A??A?A?A?A?A?A?|| 9@||A?A?A??A?A?A?A?A?A?A?|| 5@||A?A??A?A?A?A?A?A?A?A?|| 5@||A?A??A?A?A?A?A?A?A?A?|| A@||A?A?A?A??A?A?A?A?A?A?|| :@||A?A?A??A?A?A?A?A?A?A?|| I@||A?A?A?A?A?A?A?A??A?A?| | H@||A?A?A?A?A?A?A??A?A?A?|!| 9@||A?A?A??A?A?A?A?A?A?A?|"| E@||A?A?A?A?A?A??A?A?A?A?|#| 8@||A?A??A?A?A?A?A?A?A?A?|$| >@||A?A?A?A??A?A?A?A?A?A?|%| A@||A?A?A?A?A??A?A?A?A?A?|&| L@||A?A?A?A?A?A?A?A?A??A?|'| D@||A?A?A?A?A?A??A?A?A?A?|(| 1@||A??A?A?A?A?A?A?A?A?A?|)| ;@||A?A?A??A?A?A?A?A?A?A?|*| A@||A?A?A?A??A?A?A?A?A?A?|+| K@||A?A?A?A?A?A?A?A?A??A?|,| ?@||A?A?A?A??A?A?A?A?A?A?|-| 6@||A?A??A?A?A?A?A?A?A?A?|.| 7@||A?A??A?A?A?A?A?A?A?A?|/| I@||A?A?A?A?A?A?A?A??A?A?|0| F@||A?A?A?A?A?A?A??A?A?A?|1| 5@||A?A??A?A?A?A?A?A?A?A?|2| =@||A?A?A??A?A?A?A?A?A?A?|3| 9@||A?A?A??A?A?A?A?A?A?A?|4| @@||A?A?A?A??A?A?A?A?A?A?|5| :@||A?A?A??A?A?A?A?A?A?A?|6| O@||A?A?A?A?A?A?A?A?A?A??|7| A@||A?A?A?A?A??A?A?A?A?A?|8| F@||A?A?A?A?A?A?A??A?A?A?|9| J@||A?A?A?A?A?A?A?A??A?A?|3:|9-9-9-|9-9-9-9-9-9-9-9-9-9-|d;|Midpoint| 1@@ 6@@ ;@@ @@@ B@@ E@@ G@@ J@@ L@@ O@@|<|Frequency|? @(@$@@@@@@?|3=9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- ,@ J3/Hard.Disk/Apw/Eyes/Hello.Ch.6 */BASIC.LAUNCHERK w Y    k  ? 2 a ")R`H""H"hJ f"`" f JH "hh fHJH" f"iHJH" fJH"JHiH"JHiH"JHiH" fJH"JHiH"""" "JHiH"Lf " """""""""""""HH""JH""`  H HH"VH HH" L % )H+"N8 HH"(`9" 6H4H-" ""H"h*"" `Ds>>@\N1X--About Nibble Launcher...\N256---\D.>> File \N2--Close\N255*WwDV--Quit\N257*Qq.>> Edit \N3D--Undo\N250*ZzD--Cut\N251*XxD--Copy\N252*CcD--Paste\N253*VvD--Clear\N254D.>> Launch \N4--Launch Program\N258*Ll--Set Startup Program\N259*Ss--Remove Startup Program\N260*RrD.H "h P``8 H,"`HH"h`x5Me}AE  d^#d-^2d<^AdK^OKNibble Launcherby Sandy Mossberg(c)1989 MicroSPARC, Inc. Version 1.0"*bb)-~rtnjnHh"h " d`<d(d ( OkayCancelConfirm system shutdown....%You may shutdown or reboot system....," PP,"`," 0N )H+" ,"`," ,"`* C X+"x(X\ v "vNxɳ N8`Select a file to launch:Select a startup file: N0RT%%RTL  HH"V`  L0 00轌 ȩ 0LH HH" f`No bootJH "hh f` " " " Launching U " "...| "ᩅH " "`1"0"`1"0"`JH"h h f" f " f H HJH "hh f  " f*i i m  " f" f" HH"`bR 4D8s<@p 5!M%e)}-AYqb5<h]dvz~ms * C XX\  vj x %a U n  |   \    9adTRCEēX1,Y1X3,Y3:X2,Y2X4,Y4:120Tan1X3,Y3:2X4,Y4jax1X1,Y1:2X2,Y2aX3X1:X4X2:Y3Y1:Y4Y2aD2((X2X1)2(Y2Y1)2):D(D2)aGTM1M2D2:G1GTM2(M1M2):G2GTM1(M1M2)bXG(1)G1(X2X1)D:YG(1)G1(Y2Y1)D/bXV(1)XV(1)XG(1):YV(1)YV(1)YG(1)YbXG(2)G2(X1X2)D:YG(2)G2(Y1Y2)DbXV(2)XV(2)XG(2):YV(2)YV(2)YG(2)bX1X1XV(1):Y1Y1YV(1)FbX2X2XV(2):Y2Y2YV(2)Fb(16384)1271460b100b SET UP SHAPE TABLE c232,0:233,3cADR7687850cBYTE:ADR,BYTE:dc 2,0,6,0,9,0,44,62,0,44,54,63,36,44,45,54,54,0oc"1380c,(4)"BLOAD TRACE.SAVER"c6 SET UP SAMPLE VALUESc@D(3,9)cJAN02:V09cTD(AN,V)c^:dh 5,5.5,0,140,15,500,0,0,140,100%dr 5,3.5,0,140,15,500,0,0,140,100Kd| 100,5,0,140,15,100,-5,0,140,100WdF.82:bd MENUjd:td1650d9:1:1403,8:"ORBIT BY ROY PLUM"d"COPYRIGHT (C) 1989 MICROSPARC, INC."d"--------------------------------------": 38 -'se14)"PRESET ORBITS"eAe"1. CIRCULAR ORBIT (PLANETARY)"ge"2. ELLIPTICAL ORBIT (COMETARY)"e"3. EQUAL MASSES (BINARY STARS)e"--------------------------------------": 38 -"see"4. ENTER YOUR OWN.";f20)"7. ERASE TRACES."f&"5. TOGGLE TRACE.";9f020)"8. LIST PRESET VALS."Qf:"6. VIEW TRACES.";dfD20)"9. EXIT"nfN2250fX16:1403,0:1::"ENTER YOUR CHOICE AND PRESS RETURN."::fb1960:ANKB48:(AN1AN9)610flAN9AN1600gvAN4İ2200:800:I1410gAN5TRCETRCE:590-gAN61580@gAN7Đ::600OgAN81780^gAN91530pgANAN1:1340}g34,19:g21:1403,0:1:"THE ORBIT WILL STOP IF THE BODIES"g"LEAVE THE SCREEN, OR YOU CAN STOP"g"IT BY PRESSING RETURN.";h34,15h:3:0:1-h1X1,Y1:2X2,Y2`h24:1403,0:1:"PRESS RETURN TO START";:1960sh 16302,0:130h INPUT STARTING VALUESh 24:1403,0:1::"PRESS RETURN AFTER EACH ENTRY";:h*34,19:35,23h422:HT3:I((M1))i>KB$(M1)iH1970:I1ı&iRM1KB:D(3,0)M10i\1650Lif22:HT14:I((XV(1)))]ipKB$(XV(1))oiz1970:I1ıiXV(1)KB:D(3,1)XV(1)i1650i22:HT25:KB$(YV(1)):I(KB$)i1970:I1ıiYV(1)KB:D(3,2)YV(1)i1650j22:HT30:KB$(X1):I(KB$) j1970:I1ı5jKB275KB0960IjX1KB:D(3,3)X1Sj1650tj22:HT34:KB$(Y1):I(KB$)j1970:I1ıjKB188KB01010jY1KB:D(3,4)Y1j1650j$23:HT3:KB$(M2):I(KB$)j.1970:I1ık8M2KB:D(3,5)M2 kB1650.kL23:HT14:KB$(XV(2)):I(KB$)@kV1970:I1ıZk`XV(2)KB:D(3,6)XV(2)dkj1650ktHT25:23:KB$(YV(2)):I(KB$)k~1970:I1ıkYV(2)KB:D(3,7)YV(2)k1650kHT30:23:KB$(X2):I(KB$)k1970:I1ılKB275KB01180lX2KB:D(3,8)X2%l1650Fl23:HT34:KB$(Y2):I(KB$)Xl1970:I1ınlKB188KB01230lY2KB:D(3,9)Y2l1650l35,24l 24:1403,0:1:958l24:1:1403,0:"DO YOU WANT TO CHANGE ANYTHING?";::" ";::1960&mKB89KB121Ė1:24:1:1403,0:958:8007m(1403,0:1:Vm2 RESTORE STARTING VALUESm<M1D(AN,0):XV(1)D(AN,1):YV(1)D(AN,2):X1D(AN,3):Y1D(AN,4)mFM2D(AN,5):XV(2)D(AN,6):YV(2)D(AN,7):X2D(AN,8):Y2D(AN,9)mPmZ ERROR HANDLING\ndDE(222):DE6DE7Ĺ34,0::22:"FILE NOT FOUND...ORBIT AND":"TRACE.SAVER MUST BE ON THIS DISK":nnDE8Ĺ34,15::22:"I/O ERROR...CHECK DISK DRIVE.":"AND PRESS RETURN TO CONTINUE":1960:300VoxDE133Ĺ34,14:::22:"ERROR...CHECK MASS VALUES AND MAKE SURE":"THEY HAVE DIFFERENT STARTING POINTS":"PRESS RETURN TO CONTINUE";:1960::420oDE53ĉ::22:"UNEXPECTED ERROR #"DE" AT LINE "(218)256(219):o16301,0:16368,0o1340:15:1403,0:1:958:24oTRCE15407p34,15:16:1403,0:1:958:24:"PRESS RETURN TO CONTINUE";:1960:1520p16301,0:34,15:15:958:22:1:1403,0:TRCEĺ"DO YOU WANT TO SAVE THIS TRACE?";::" ";::1960:1403,0:1:22:958pTRCE1500p(KB89KB121)Č789q(KB110KB78KB89KB121)1460Eq24:1403,0:1:"PRESS RETURN TO CONTINUE, ESC FOR MENU";pq1960:KB27Ģ14:958:16302,0:100q:15:958:1340:1650:590q::q"DO YOU WANT TO SAVE THIS TRACE?";::" ";:1960:qKB89KB121Č789q1450r"VIEW TRACESI0KB$(KB):2130xHKB$KB$(KB)xR1403,HTI:HTI1:(KB);x\II1xf1980xpKB(KB$)::2280xzy1403,HTI:HTI1::T$(I)""2210&yT$(I);::sy16:1:1403,0:" ";:: 40 " "'sy" ";::yI0KB$T$(I):2240yKB$KB$T$(I)y1403,HTI:HTI1:T$(I);:II1:1980zTRCEĢ17:1403,0:1::"TRACE IS ON.";::" ";:22705z17:1403,0:1:"TRACE IS OFF."Bz34,15:az1403,HTI:HTI1:" ";:L !C_" %k"l" (#M8( % ) L*"m"n" (_7, )7(P0 ( @X p 8  u"!_"f"0 ~&f"0 %o"p" (,) &q"r" ( %L*")0I0hx H( + %Щ ߩu"L! )L! 8'  )ɀ)4,- U JNT) u"Ls"t" ( !` ^"M)Fi/ b"3 h"i"j" e" iL X>"L;"ίΠ`v""""""*$ Fk%YeQP!/RB}QBiBB}\ }FEL,#> ȏ6 . ) ɘ"    L:#:#ŠϠĠԠ  m# m# J Qڨ)̰}] нȱ ̀𩠙 i V N c ɘ\   VG+ #X ɛL ' 0% '8 Jm ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8`BYYZLYLYLY뿭` 8!@8` %MNЩUMߩ  L 5   8 0 8  `0 / X& & +&&7&P^&0`ŠӠֱҭԠŠҬî̠ӠĮʎ1|&… (n}&Dž (\%Tz&Lc()8= (J 8'z&'{& 3((ʎ1|&|&|&3223 ')L&18|&"m11 2H22h2舌|&|&12H)M0 h10200I20h2 (`LE%12 `_'"L  <8# ȱ)ɀ  )( ` (Xp< @( )m((.(( M(i  ``) |'(j21 z& {&!` ({&z&(i({&(( CBDFGE (r&$ 3(,}&r& … 3(ŅL&JJJJ`Ϡ'8`r&h)hrȱȱȱȱ0]cȱeem*ȱ*ȱ**ȱ**ȱ* )* * )L(`L?* *Ll) ) L( )Ll)8e` ,$`ee` `* G** c*` v* G* c*`hh8`8`***`}*`e`H)hJJ*0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <.<ʆ>,=?BC8 é&'112`HB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`eLJCAB@=?<>=?<>CAB@?A` 1 L  <>`ڢF]PL8i m L   6< L  BLRAM' hLDLآ <B*IBGF08Lé'+8H <,``h(`@ڍL3hh@ihAiH(ؠȱ@JJJJq@)@vvȱ@Hȱ@Ah@@cve J) LL LJiB LJ) JxNhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJl`B l-`J,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ(     0 HϭߍLпllllhh8` Qu")T'P() ɺiLG )?      `l@Hȱ@IױHXATȱH ɯȩ׍̕5H)/@a)_ .0 :A[8@`,뎕׮Б` L` @>V)I38Pghם`K8`@Nȱ@O@ IiNȽבN)/ȩ/N`@[ WHJjjjhA I'KI؍0JHi 뎈`C8` @ 3N@) S莴 ⭱i`0 e; 뮈ٝ٘ 0 W,0 .H hȑNWȮّNW8`ٍّNί0NN` G8`F@ 0 P LK8`= >I8`FHGH hGhF܌ բFܽܕF芝ܝ 밶=> ?܅I m@IHHyHȘI Lܝ` @f@ n@Ю׍V)mיVʈ@tȱ@fȱ@prsiQ{R|V)5VI0ܢܽ lS'H* 7ghFG (JK L܅IU mHIH` wt tP0ST HVHQFRG 밳QR 밨J%܈G" T)Ii)܍U*܍H'ܮ( 4 䭐 $H %HFFHGHG 됬`R8`)` HHV` /Q'܅IHHVVЍV@`8 ` ͐% ΐQ8`܅I `S܍TU p8D`F` ilH)HFȍQHGR $%܍&܍!ܢ8* J8` L ܝA)I 'ܝ=`I8iUFSGT`I܅IH3H ( )ȱHί`Α8HeHI SB=0P ٙNٙLFQJʈ p猱`8m0`,0H hi PȽίhٍ0GF8yאFG  $0 S01 E8`100 e 0ʩ 谼 谷`12)1`0`Ȏi 0U`)8`ί` W G IؙJJ c: QLHIHI`JKJK`FHIG ( Ȣ؝؈JL)eKM`)` J }J͢ $0 ΑJFJL8`JGBJ \ FإG`BH \FإG`,H hHB؅F  ؅GxDE؍00C ް(`(8` L3J  B"L H  B 9ؙ` @ P8`K8`B8` O؈VJJJJحt) ) )Ю ЪGgF $ ᭔ع+ؠ >H  Wh8` 䮈ٽ ٬ؠ@` ( O )8`)i п`  H h)N$% LL L L >  .pJ덦 )@፩NJOK >iKKΥΥ IJΦ JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@L>쬉8NNO 8 ؍JL`RΥʱLN1MOMEKP/MEKΥLCL-M O,p莤eNNO(`JNKOL >/  .P L8 cؑJ`L@ȱ@ `@Nȱ@O`؝}}I}ؐ` rؽ؝} r 1 r؝}؈` ` H  \h)N@ C; L  >$ )bJ e ) H @hL ) # )حJjI~HI}H؊  PLKΥʱNLMO MЈMEKݸP%MEKΥL0 O, PeNNO O(` C  7 #2J}HI~HI؊ LQ  6` #A H} ع H~ ؙ؊ؠIhHIhH  iع `  عiعi` )؍0CGHFHBFGx ް(8hFhG`@4͔ L @Ai ׭2` . W#ع؍0 e讈)`.@+ i 8` L )߹0 )p )@ ) ȩ ؝O0QR 방 STQRFG 嬉؍i؍j؝k ؝f }V) }V )حP͝ `H@h`h``N8`  ) C⬉Ȣ؝@ݡ@ʈLO KIJHȢݡ)Jn 8 λ ؍ ؍ aH8 ع)ꭸJJJJ Ȣ؝I؈ >h(8H E h(8Hh(`ؑ@`@ȱ@ ` B@8ZV p鮈ٍٍٍvHٍu8ihjVJJJJV)V@` %I -t) 0@V)N8` @LL =@ 4ȹP8` %i` Bם0 4B B)( ȹ`8m8m@8` G8`F Pt)@N8`V)@J 4טyרםVV)׍Vgh 밑 %LȹL@ȅH@IL,0` G פֿ= eH.t)N 0 PghV)@LP8` a᮷ &֩VJKJ L䬈yٙ٭yٙ٩`K OEgFhG 6%&N   & ܮ `J HH hh` 0 @ LLL w`̻Yܝ ݝ0̻ȩFG   0` ܅F݅G ` wͬ 밽܅F݅G ` * w% L`L뮷HH &hFhG܍ݍ 8 `FHGH & hGhF`ݹܙ݊`@Bɼ>K@J5 9X(K XXK تKo`V8`no` I on I9XX`) HJJJh`OeNeO࿰ 9XАO`@ȭ@` ON fNJKO`HхhꭋILhH),kx8 (8` ԍ`@Ae Or88`zw! NIJK,-NOPQRSu' @   !"#$Ԡ͠ˠ(C)1983-87APPLELKL`BL Lެެެެެެެެެެެެެެެ(C)APPLE'83xLLM Mh@8nЍLޭ 0J @,,LZP׽8H  ): e: y8鰕:Jjjj<)yאi8i;i(*=>hPם8`;Zx3QZYXXWV[HEVhEhH)IWHPHHHAHHHLaVEWLӿ ֽ ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>*L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| 0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌18V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8``  / XʩXύX X %   % ɍRH hɛɘɉɈ $ Ld :Ldې)ɮ۰ɺ' Ld  : X ( % ɛ$ɘɉ ɈL :Lɍ)ې)ɮ۰ɺH h 'L  ġLL ̹L)'L ȳL O'F ʻ ̹(((L $ʩ $$ $L `ީ % K@D EFby LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ  0h)ύh0HHHH " ׍hhhhhhh .hh8`JIMJAYKERRY&MIKE0101`01` I032:B:768I,B::(4)"BSAVEPRODOS.PRINT,A768,L33":173,48,190,133,6,173,49,190,133,7,169,0,141,48,190,169,193,141,49,190,96,0,165,6,141,48,190,165,7,141,49,190,96: :" ";:I1(33)2:"_";:::I120:"|"(33)2)"|";::"|";:I1(33)2:"_";::"|";:10:(33)26:"PRINTER DEMO.":768::790 L( ! î . 1 LA 0P OȘ)/ S`<=,,3y<,  AJjJJJJ)׍ o V X n $I P n  P P  0 34  *۠덍٠ΠΠéìî卍Ԡ卍Ӡ덍ѠҠ*?d!F W`F c`FW ?`F Ic` $$ ɍɛ7ɰɺF ʩޭ  <` <)<8`Í L î  e $0 L` B GI H  V L  =<< , `( `8<=<I<I` $ $   e  $$  iLÐH X $ $@ Ph $ L`Ӡ ]` î é ì î Ĭ Ǡ ӍРƠ卍 󍍍٠٠ӠȠ謠ҠԠȠ̠ÍȠčβԠƲɠưӠˠưРӠ͠ƳŠƹŠƹ󠺠Ҡƹà󫶠ɠ썍ĠðŠðұð렱͠ð͍à¶ƠƸ³ɫԠĠŠڠòŠõ٠İàĠŸΣĠŹң 卍Рԫ ŬŠ썠 Р 占àî͢ 퍠ӠЫ  Ԡ٠ؠ卺ٍٍٍŠ፠à᫤à⫤؍Š፠РԲ卍ԲؠР占 Ыؠ٠ҠĠΣҠĠң 卍͠䍠Ҡɍ õ٠β占ٍĠƍββҠɠ ö Ӎˠ˫̍˫ȍԠұ䍠Ԡұ٠ĭԠ멍Ԭٍٍٍ̩̠𱍠Ԡ͠䍍 덍ؠôɠҠύؠ場卺Ŭ؍Ŭ؍؍̠𲍍٠ 嬍Šō²ūؠ ؽؠ٠덻 Ƭ ˍū占Ҡ Ҡ蠷ūōҠ ū ōҠ 荠ҍҍҍȍŠĠٍ ԍԍԍԫҠà卍 ԠؠƠӠ ԍčҠ̍ҠōҠ״ȍ٠ҠٍҠ״ԍ٠ҠٍЫ٠ЫҠٍԠ婍ҠԠ卍Ġ̠ōРࢠ占à덠àؠРؠ󮍠Ѡ荠؍̠ɠ򍍺̍؍؍䫱򫱬؍䫲ҠƠ䍍ȠŠӠ썠̠ 獠̠ ٍ̍̍̍Š荠ҍ̍ūà󍍺 à 뢍 Ĭčà é ì î Ĭ ĬĬĬĬĬĬčà 墍 Ĭčà 墍 Ĭčà 뢍 Ĭčà  Ĭčà   ¬ԢӢѢҢ٠٠Ƞ荠Ƞ荠Š占Ϡ덠Ԡ占àî͍ 卍٠Ҡ٠䍠àٍŠ፠Ҡȍؠȍӭ؍ٍӍȠҠٍàȠ荠Š፠ȠàҠ̠ҍӍ٠Ҡٍؠȍٍà٠РӭؠŠ٠嬠ҠȠ荺ӍȠҠٍàȍȍРŠ፠ȍàҍҍҠŠ፠ҍӍӠ   卍ŠֽȽҠڍȍؠ󍍺Ҡ٠婍РĠήѠ㍠Р ōѠ占Рà፠РӠፍҠ٠䍠ҠԠ؍ؠ砲Ѡ⍠Š፻ ٠占Ҡԍؠ占Ӡ䍠ؠū٠Ҡԍؠ占Ӡ占ؠōӍ خ ōԠ̠ 占̍̍̍̍ Ġƍ̠蠭Ġ宍Ġ ؠƍÍà؍ӠčӍ 덍Ϡؠ堦Ŭ؍Ŭ؍؍̠ؠ٠䍍ؠóɠϠ䍠ؠĠŠ䮍Ҡɍ Рҿ 卪 卪 卪 î͢ 뮍 䍠Š占 ó占 Ơ占占 占Š占占 堦卍Š 婍àî͢ 􍍍ԠҠΠ덻 덠Ҡɠ ፺  ΠԠ٠䍠ɠ뮍ҠύàӠЍˠ 덠Ӎ Í àҠɠ占 øҠҿҠɠ 䍠ҠҿҠ̠􍍠ҠΠ덻 덠Р퍍 Р 卍  占ư占卍 􍍍 ٍ ٠ȍ٠̍٠ٍ̩ѠԠƸɠɫ̠򮍠РŰà덠àҠԍٍŠӍ ״ؠߢҠԍ؍ŠӍ 卪 Ӭ 䍪 Ԡčà 占Ҡɠ󮍠à썠̠Š 占ҫàȍؠ̬ةРàɠŬŠ􍍠àŠōҠŠŠ䍠àūūҠ덠Š덠ūàĠӍ 卍ԠȍҠڍؠ٠Ҡ㍍ҠԍȠ议̍àȠ󠳍؍٠荺󭳬؍Ҡԍ؍ٍŠ𱍍ҠԍؠҠҠ㍍àȍàȍؠūҠ㍠ҠԍؠŠ󍍺Ġ č؍à à؍̠𲍠čРŠ􍍺à΢àâ 򍍍ҿà 򍍠ҠōȍҠڍ٠Ҡٍ ҠōàȍҠٍРԍӍà    β β̠Ҡɠ Í፠Ӎ  7168:D$(4):T16384:A%(255):O$,N$:D$"BLOAD"O$",A"T:232,0:233,64:1:0::16302,0:P0:I1(T):I139,95:K$:AT2I:A%(P)(A)256(A1):PP(K$"Y"):I139,95:F :T,P:A2P2:I0P1:I1:T22I,A256(A256):T32I,A256:BT:J01:V(BA%(I)):TA,V:AA1:BB1:JV0:J,I:D$"BSAVE"N$",A"T",L"A5lz  +7AKW^kx '5p26v- $$?N,,66n??b-.--b-*?I67&?'!!!--6-? 6v- ?f-566)?d-?$2-e $?)66$$*5-?'$$-)2;$$-66?'$$--??$$*---6-6)5?$$666M!$?g $--66--I-66?666M 666--666M!$$V666M!$$)66?$$-?'26)6$$666M|e?)3-?--66666v- $$$66 $$6n6 5$$$.n  $6!d $--.-- ***********************= * SNAPSHOT *[ * BY ROBERT T. YUILLE *y( * COPYRIGHT (C) 1989 *2 * BY MICROSPARC, INC. *< * CONCORD, MA 01742 *F *********************** PD$(4):E$(27):I$(9):R$(13):Q$(17) ZE$Q$:D$"PR#0":2043,2559 d::::34,4:35,23 n18:"SNAPSHOT":13:"BY ROBERT T. YUILLE":13:"COPYRIGHT (C) 1989":13:"BY MICROSPARC, INC." x1120:1100 8:1:"PRESS RETURN TO CONTINUE: ";:A$ A$(27)Ĺ34,0:35,24::: INITIALIZATIONE PD(48896)76:PDģ35840:D$R$D$:220: DOST I768I8` A:I,Af o 768 32,248,190,169,10,32,245,190,96 260 :D$"BLOAD SS.BIN" -RESET ERROR FLAG- 216,0:290 216,0::10X (222)6ĺ"SS.BIN IS NOT ON THIS DISK."::"INSERT CORRECT DISK..."::"AND RUN PROGRAM AGAIN":a 890 ":1120:1100:8:1:"UPRIGHT OR SIDEWAYS PICTURE (U/S)?: "; ,Z$ 6Z$"U"Z$"u"Ĺ9,1:Z$:360 @Z$(27)ĉ:: JZ$"S"Z$"s"300 TZ$:9,0 ^9,0T h:1110:8:1:"WHICH DISK DRIVE DO YOU":"WANT TO USE (1/2)?: ";\ rZ$v |Z$"1"DR1:Z$:420 Z$(27)290 Z$"2"370 DR2:Z$ :8:1:"WHICH SLOT DO YOU WANT":"TO USE (5/6/7)?: "; Z$ Z$"5"SL5:Z$:490 Z$"6"SL6:Z$:4908 Z$"7"SL7:Z$:490J Z$(27)360S 420 :1110:10:1:"ENTER ? TO CATALOG DISK" 1:11:"PRESS RETURN TO PRINT CURRENT SCREEN" 1:8:"PICTURE FILENAME: ";:16368,0:920 Z$""P$(27)420P$"?"580w&P$""Ĺ16297,0:16301,0:16304,0:22:1:"PRESS RETURN TO PRINT ";:Z$:Z$R$Ĺ16302,0:7400Z$(27)Ĺ16303,0:490:600D890 N:D$("CATALOG",74((48896)76))",S"SL",D"DR:1:23:"PRESS RETURN TO CONTINUE: ";:A$::490]X:8:"BE SURE YOUR PRINTER IS READY":10:"PRESS RETURN TO CONTINUE: ";:A$obA$(27)490l:16302,0:670v670:D$"BLOAD"P$",S"SL",D"DR",A$2000" -RESET ERROR FLAG-216,0:740216,0:16303,0::10(222)8ĺ"I/O ERROR":730\(222)11(222)16ĺ"THAT IS NOT A LEGAL FILE NAME.":730(222)6(222)7ĺ"THAT PICTURE IS NOT ON THIS DISK.":730(222)13ĺ"THAT FILE IS NOT A BINARY FILE.":730890!1120:12:1:"PRESS RETURN AND TRY AGAIN: ";:Z$::3288:490/D$"PR#1"BE$"n": 9 CPI^(14): HEADLINE BEGINI$"K";I$"Z": STOP LF AFTER CR & CONTROL CHARACTERS 36864 (24): CANCEL UNPRINTED TEXT*(12): FORM FEED4D$"PR#0"*>16303,0::1:10:"PRINT ANOTHER PICTURE Y/N ?: ";2HC$IRC$"Y"C$"y"290l\C$"N"C$"n"C$(27)840vf::p -- UNUSUAL DISK ERRORS --z::"A SYSTEM ERROR #";(222);" HAS OCCURRED""AT LINE #";(218)(219)256216,0:T1:P$""KB$"KB$(13)ıET1(KB$(8)KB$(127))930cT1KB$(27)P$(27):T1KB$(63)P$(63):T1(KB$)65930T1(KB$)122930T1((KB$)97(KB$)90)930KB$(8)KB$(127)1080!KB$(27)Ė19:" ";:19:920/P$P$KB$A:T18:KB$;KTT1W$T16ı`.9308T18:" ";:TT1:T1P$"":T18:930BP$(P$,T1):T18:930L24:1::"PRESS ESCAPE TO QUIT";::V24:1::"PRESS ESCAPE TO BACK UP";::(`24:1:" ";:إ @  \ >==<>==<>==<<((((((((PPPPPPPP 0 0!1!1"2"2#3#3 0 0!1!1"2"2#3#3 0 0!1!1"2"2#3#3"2"2#3#3RC< ' (UTIL.V.3< |-&ED.V.6 < < &AS.V.6_< ͪ'SYM.V.4%o< "2"2#3#3RC< ' (UTIL.V.3< |-&ED.V.6 < < &AS.V.6_< ͪ'SYM.V.4%o<  ******* 8/08/86 *******;* ProDOS STARTUP *X* BY OWL *u(* COPYRIGHT (C) 1987 *2* BY MICROSPARC, INC. *<* CONCORD, MA 01742 *F***********************P16384Z::D$(4):(21)d9704 n ********** GET HI-RES SCREEN AND SET DISPLAY SWITCHESf x11:3:"MICROSPARC PRESENTS NIBBLE SOFTWARE" 15:13:"PLEASE WAIT..." D$"BRUN STARTUP.SCREEN" G(16297)(16300)(16301)(16304) ********** READ INFO FROM NIBMENU TEXTFILE 11203 P$(20): P$ = PROGRAM NAME a S$(300):S$ = LINES OF TEXT INSTRUCTIONS RC$(20): RC$ = COMMAND USED TO RUN PROGRAM MP$(20): MP$ = PROGRAM NAME TO APPEAR IN MENU D$;"OPEN NIBMENU" D$;"READ NIBMENU" A$: A$ = DISK NAME? NA$"NIBBLE "A$:22:20((NA$)2):NA$:1j NP: NP = NUMBER OF PROGRAMS ON DISK I1NP:P$(I):I MM: MM = NUMBER OF VALID MENU ENTRIES "I1MM:MP$(I):RC$(I):I ,S$ 6I0 @II1:768,S$(I) J(S$(I),1,1)"#"350 T320# ^D$;"CLOSE"` h(1101)6İ1080: ********** UPPER/LOWER CASE ROUTINE r ********** FIRST TEXT SCREEN |::3 "Thank you for ordering the Nibble":A$;"!": "The programs on this disk are:": Z1NP:5:P$(Z):Z 1030:FLAG$"ESC"ī600O  ********** CYCLE THRU NIBMENU TEXT SCREENSW A1` :3 S$(A)"@"İ1030::3:((FLAG$"ESC"))490:600 S$(A)"#"510 S$(A) AA1:460  ********** LAST TEXT SCREEN BEFORE MENU :3!6:"Thanks again for your order !"+12:S6:"ALL PROGRAMS ON THIS DISK ARE"{&6:"COPYRIGHT (C) 1988 BY NIBBLE"06:"MICROSPARC, INC. CONCORD, MA"::17:5:"UNAUTHORIZED COPYING IS ILLEGAL"D1030N ********** SET UP MENU XMEMM2:X$(0)" ":X$(1)"-->":Vb1:1:"Selection: : Instructions"l3:"----------------------------------------";v5:20((A$)2):A$I1ME2:61I:8:I". "MP$(I):61(ME1):8:ME1". Catalog Disk"61ME:8:ME". Quit"B21:"----------------------------------------"23:1:"Type number or use arrows, then ";:PX10:SX4:SL1 ********** SELECT CHOICENSL:OSSL:780:Z0:24:868/1:12:SL:49168,0:16384,128::Z$((16384)128):Z$"1"Z$(ME)SL(Z$):NOS:780:700Z(Z$(21)Z$(10))(Z$(8)Z$(11))10(Z$(13))20(Z$(27)):Z950Z20ī380SLSLZ(Z10):SLSLME(SLME)ME(SL1)NOS:780:Z10700800 ********** PRINT POINTER SUBROUTINE% 61N:SX:X$(SLOS);:H ********** SELECTION ROUTINEa SL(ME1)İ860:600*SLMEİ900:SL1:780:68042:1:" "::2:1:RC$(SL):> ********** EXECUTE A VALID MENU CHOICEH49168,0::1100:D$;RC$(SL)&R ********** CATALOG SELECTED C\:49168,0::D$;"CAT":mf24:7:"Press to continue";p49168,0:49152,128:z ********** QUIT SELECTED22::958:"Do you really want to quit? (Y/N)";:49168,049168,0:49152,1280(49152)249(49152)217Ĺ49168,0::1100:6j ********** SOUND BUZZER FOR WRONG KEYSTROKE EQ110:EY(16336)(16336):EQ: ********** ERROR HANDLING ROUTINE:(1101)6ė:D$"PR#A$300"5(222)6(222)8Ģ19:(7);"Disk Error. Please insert Nibble disk":1010g19:(7);"An error #"(222)" has occurred. "23:"Press to continue ";:958:49168,0:49152,128:600 ********** WAIT FOR KEYSTROKEFLAG$""623:" for next page or for menu";:49168,0:49152,128T(49152)155FLAG$"ESC"Z$. *********** ATTACH UPPER/LOWER CASE ROUTINE8I013:ML:768I,ML:I:D$"PR#A$300":B ********** DETACH UPPER/LOWER CASE HANDLER L(4);"PR#0":0V ********** INSTALL INPUT-ANYTHING ROUTINEK`X768839:A:X,A::xj ********** INPUT-ANYTHING ROUTINE DATAt 32,190,222,32,227,223,36,17,208,5,162,163,76,18,212,133,133,132,134,165~ 184,164,185,133,135,132,136,32,44,213,173,0,2,201,3,208,3,76,99,216Z 169,0,133,13,133,14,169,0,160,2,32,237,227,32,61,231,32,123,218,165 135,164,136,133,184,132,185,32,183,0,96,0 ********** UPPER/LOWER CASE ROUTINE DATA 216,201,225,144,6,201,251,176,2,233,31,76,240,253,0  c` ` v`` ` v` `ݥ``8 ``+p|~p|*U*U*U*U*U*S( @?p~px|xժժժժժ pgBT* @?p~px|ЪժժժՊ @?~|>xaFaFF?p- U @?`p~?pxԊԪ"- U*U*U*uP*U*U*U*U*U }<_/" p@Pgp{?"dydw!<MժժժժժժdpO|`*U*U*U*U*U*p|~p|(U*U*U*U*U*S* @?p~px|ժժժժժ toBT* @?p~px|xժժժՂ `~}?~|C~axGFx- U @?`p~pp[(U*UA*U*uԪժժժժՊ @ [ժժժժժժdpO|`*U*U*U*U*U*p|~p|(U*U*U*U*U*S* @?p~px|ժժժժժ dOBT* @?p~Ap||xժժժՂ `|y #L ~`xCc- Uy(U*U P*U* > @p{?" NԪժժժժժ@ [ժժժժժժdpO|`*U*U*U*U*U*p|~p|(U*U*U*U*U* `AB@* @?p~px|ժժժժժ n_?BU* @?p~p|ժժժp}{  3 00C1c. Uz*U*U*U*U*U L @@ " NԪժժժժժtժժժժժժdpO|`*U*U*U*U*U*pp~p|(U*U*U*U*U* `AB@* @?p~px|ԪժժժժN?8` |1U* @?`p~p|ժժժpys # 3 00F1c- Uz*U*U*U*U*U 49N/ p<@Pg@ OorEc{yMԪժժժժժLժժժժժժf~p*U*U*U*U*U*@?@p~p||(U*U*U*U*U* pcBP* @?p~px|Ԫժժժժ_?<< p|G?1U* @?`p~p|ժժժx{w<|sxο+* Tw@*U*U*U*U*U QA"$"p E@_(@ "  Mժժժժժժtժժժժժժf~p*U*U*U*U*U*@?p~Ap||x U*U*U*U*U* pcBP* @?p~px|ԪժժժՊ?~x 0 FA F11U @?`p~p|ժժxsg FL0:13:1:"Volume To Search: /";:PA$:20:13` PA$""H20:V13:600:PA$X$ FL1ĺD$"VERIFY /";PA$:320 1:13:" ":110: 33 " "'S 23:1:"Do you really want to quit (Y/N)?"(7);:16368,0, 16384,128:CH(16384)128:16368,0B "CH89CH121210[ ,CH78CH110ė:110d 6280 @1:14:"File to find: ";:H15:V14:600:TF$X$:FL1FL0:14:1:868:PA$"":220 JPA$"/"PA$ TSD$(0)PA$:TL(TF$): ^D$"PREFIX /":D$"OPEN"PA$",TDIR":D$"READ"PA$1 hA$:A$:A$:370:B rTG1ė:110X |IB$:IB$""İ520d LV0ıx NA$(IB$,2,15) TS$(IB$,18,3) TF$(NA$,TL)İ720 TS$"DIR"İ450 370 LVLV1:SB$"":LV7LVLV1: I115:A$(NA$,I,1) A$" "SB$SB$A$ o (SD$(LV1)SB$)64ĺD$"CLOSE":22:1:"PATHNAME TOO LONG ERROR":1140:TG1: SD$(LV)SD$(LV1)"/"SB$:D$"OPEN"SD$(LV)",TDIR":D$"READ"SD$(LV) A$:A$:A$: D$"CLOSE"SD$(LV) SD$(LV)"" LVLV1&LV0ı0TG1ı&:D$"READ"SD$(LV)/DIB$5NvXI1:X$"":H:V:" ":H:V:16368,0: 14 " "'SbA$:A$(27)I1FL1::lI1(A$(65))600vI1(A$(90)A$(97))600I1(A$(122))600!(A$(8)A$(127))I2I1:X$"":(8)" "(8);:610h(A$(8)A$(127))I2II1:X$(X$,(X$)1):(8)" "(8);:610A$(27)ĢV:H:868:V:H:600A$(13)I1ĺ" ":: 15 " "'sA$(96)A$(123)A$((A$)32):I16(A$"."(A$(47)A$(58))(A$(64)A$(91)))X$X$A$:II1:A$;:610C610RF0ĺ:F1sLV0ĺ"Found "SD$(LV)"/"NA$LV0ĺ"Found "PA$"/"NA$(222)255ĦEN(222):EL(218)256(219):CV(37):CH(36):3288  (EN6EN7)MG$"Disk Volume is not in any drive":820YEN8MG$"I/O Error --- Check Disk Drive Door":820 EN16MG$"BAD FILENAME ERROR":820*EL200MG$"Error "(EN)" at line "(EL)" - Program halted.":EX1422:1:MG$:EX1ĺD$"CLOSE":210>1140H:54915:110<RT07:SD$(T)""::TG0:LV0:F0:PA$""\1:1:"WHEREIS":2:1:"DIRECTORY SEARCH UTILITY":3:1:"BY VINCE O'CONNOR":4:1:"(C) 1989 MICROSPARC, INC"fTG0p6:"(1) FIND FILE BY SLOT AND DRIVE" z7:"(2) FIND FILE BY VOLUME NAME"8:"(3) QUIT"a11:"ENTER CHOICE #";:15:11:" ":15:11:16368,0:CN$:CN$qCN$""910((CN$)49(CN$)51)Ģ11:" ":910: 33 " "'sN(CN$)11601:19:"ENTER SLOT #"1:20:"ENTER DRIVE #"O14:20:" ":13:19:" ":13:19:16368,0:QQ$p(QQ$)51Ė13:19:" ":990(QQ$)271170(QQ$)49(QQ$)55Ė13:19:" ":990DS(QQ$):13:19:DS14:20:16368,0:QQ$(QQ$)27990$((QQ$)49(QQ$)50)10401.DD(QQ$):14:20:DD9812_BD$"PREFIX,S"DS",D"DD:D$"PREFIX"kLSD$(0)VPA$(SD$(0),(SD$(0))1):PA$(PA$,(PA$)1)`1:19:" ":20:1:" ": 14 " "'s in both printsj150t1:23~~"PRESS RETURN TO CONTINUE":16368,0:16384,128:CH(16384):16368,0:1:23:" ":: 24 " "'s1:22:"BAD SLOT OR DRIVE NUMBERS":1140:1:22:" ":970: 27 " "'s+1:19:" ":20:" ":110: 13 and 14 " "'s;21:958: