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}' )APPLE.PIC   ,BASIC.SYSTEM(*+CHAOS- u .CHECK.REGISTER.* k'CHECKITE 6/ ;COMBINATIONSM u EXTERM.SHAPESN a 9EXTERM.SOUNDO% K -EXTERMINATORSP8B.HEAVYSIDE.FONT_ $c,MARYS.GARDENc  ,MARYS.SHAPESo( `\/MS.BINtu /(MS.BIN.Su  'MS.DEMOz m$'NIBMENU~   ,PRINT.STUDIO  c&PRODOS }<n% *SB.INSTALL a)SCREEN.CLEAR `SSMARTBOOT U+SMARTBOOT.ST! U'STARTUP ®3* .STARTUP.SCREENC 9`4,STUDIO.FONTS -C *STUDIO.OBJ , [8(STUDIO.S#C b&-STUDIO.SAMPLE9 9 ZAPPER.BIN X g +ZAPPER.DEMO   hZAPPER.DRAW  h  `~x@ ` q@`0p @~`p88@0 0@@08pp@ xp~0 ``8`@ 0p`@@@ @p~< @` `@` p>p@ |``0p@0@0`  0`@0@p8 @p@@0 8 >|@x@p ` @ @@`@ `` `p@A@`@@` `@p8 ~p !"#$%&'()*+,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 ::3:L14:"X,Y coord ";X(L),Y(L):X(L),Y(L)::L11E9:T((1)3)1:X(4)X(4)(X(T)X(4))2:Y(4)Y(4)(Y(T)Y(4))2:X(4),Y(4):/0123456789:;<=>?@ABCD  RM1NI NGNIP^SSI) Ban k Reconciliation  Mon/Year ,-!-!-+ Bal. Per Bank Statement !- Add O utstand. Deposits _ O/S Deposits Carried  Forward (Total Value)Value) !- !-{ Deduc t Outstan d. Checks ] O/S Checks Carried F orward ( Total Value) $-!-8  Adjus ted Cash Balance !-.  Balan ce Per CheckbookY $--  Diffe rence  !-o Ck No  Check Pd  Dep Cr DatePaid To  Deposit  Check Bk Ch  Balance  O/S Cks  O/S Dep Balance Carried Forward-----------!-!------> %% Embedded Formulas-----------------!-!------>%%s%%s%%s%%s%%s%%s%%s%%s%%s%%s%%s%%s%%s%%s %%s!%%s"%%s#%%s$%%s%%%s&%%s'%%s(%%s)%%s*%%s+%%s,%%s-%%s.%%s/%%s0%%s1%%s2%%s3%%s4%%s5%%s6%%s7%%s8%%s9%%s:%%s;%%s<%%s=%%s>%%s?%%s@%%sA%%sB%%sC%%sD%%sE%%sF%%sG%%sH%%sI%%sJ%%sK%%sL%%sM%%sN%%sO%%sP%%sQ%%sR%%sS%%sT%%sU%%sV%%sW%%sX%%sY%%sZ%%s[%%s\%%s]%%s^%%s_%%s`%%sa%%sb%%sc%%sd%%FGHIJKL. ********** NIBBLE PRD DISK **********[ * CHECKIT * * COPYRIGHT 1988 BY MICROSPARC, INC.*( * CONCORD, MA 01742 *2 ************************************* <:::"CHECKIT":"COPYRIGHT 1988 BY MICROSPARC, INC."& F90R PI0377:ML:CSCSML:::CS48127100 Z:"ERROR IN DATA STATEMENTS!":"PROBABLY LOCATED ON OR BEFORE LINE ";(123)(124)256: d216,0:768,0:H(3):H(0)1:H(1)16:H(2)256:H(3)4096/ n6:"ARE YOU ENTERING A HEXADECIMAL":"FILE?";:A$:16368,0:A$Z xA$"N"A$(110)İ370:34218,128:210v A$"Y"A$(121)110 768,1:10:958:"WHAT IS THE STARTING ADDRESS OF THE":"FILE (IN HEX)";:H$:290:AH( A736A39424ĺ:"INVALID ADDRESS. PLEASE DOUBLE-CHECK":"AND RE-ENTER":350:140r 13:958:"WHAT IS THE LENGTH OF THE FILE":"(IN HEX)";:H$:290:BH B1B32000ĺ"INVALID LENGTH. PLEASE DOUBLE-CHECK":"AND RE-ENTER":350:160 :::34,1:2:"INSTALLING CHECKIT..."n A6144İ320:5799,(A256):5798,A256(5799):5801,(B256):5800,B256(5801):5802,0:230: ABOVE $1800 SOMEWHERE A6144İ370:34215,(A256):34214,A256(34215):34217,(B256):34216,B256(34217):34218,0:210: BELOW $1800 SOMEWHERE (48896)76Ĺ56,0:57,133:1002:2508 (4);"IN#A$8500":250b (48896)76Ĺ56,0:57,22:1002:250| (4)"IN#A$1600":250 :::34,1:2:"CHECKIT INSTALLED" (768)1ĺ:"ENTER THE MONITOR BY TYPING":" CALL -151"  O"H0:L(H$):L1L4300:I1L:D((H$,I,1)):HHH(LI)(D48(D58D47)55(D64D71)):U,j6 $1600 VERSION@I0377:ML:5632I,ML:I:C5632JI018:ML:CML,(CML)111:T^21:"PRESS RETURN TO CONTINUE ";:CH$:CH$:16368,0: h $8500 VERSION+rI0377:ML:34048I,ML:I1| 216,32,27,253,201,154,240,31,201,141,208,26,134,224,32,178,133,32,251,218,32,128,254,56,165,8 229,9,32,218,253,32,132,254,166,224,169,141,96,32,106,134,44,170,133,16,43,169,1,133,6,169U 8,133,7,160,0,177,6,133,251,200,177,6,133,252,240,63,200,177,6,32,79,134,200,177,6,32 79,134,165,251,133,6,165,252,133,7,208,221,173,167,133,133,7,173,166,133,133,6,160,0,177,6 32,79,134,230,6,208,2,230,7,230,251,208,2,230,252,165,251,205,168,133,165,252,237,169,133,144} 227,162,0,189,171,133,32,237,253,232,224,7,144,245,44,16,192,32,128,254,164,8,166,9,32,64 249,32,251,218,32,132,254,169,152,96,0,0,0,0,0,20,15,20,1,12,58,32,32,106,134,1334 6,169,2,133,7,160,0,177,6,201,176,144,73,201,186,176,69,177,6,44,170,133,16,53,201,210 208,4,166,251,240,61,201,162,208,8,72,169,1,69,251,133,251,104,201,160,208,6,166,251,208,25 240,26,201,191,208,19,132,226,160,0,185,117,134,32,79,134,200,192,5,144,245,164,226,176,3,32e 79,134,200,196,224,144,188,96,166,224,104,104,169,141,96,132,226,136,177,6,201,160,240,249,201,186 240,8,201,176,144,36,201,186,176,32,164,226,200,177,6,201,197,208,23,200,177,6,201,205,208,16, 169,210,32,79,134,169,197,32,79,134,169,205,32,79,134,96,164,226,177,6,24,144,135,162,8,10 38,8,38,9,144,14,72,165,8,73,33,133,8,165,9,73,16,133,9,104,202,208,232,96,169,0 133,8,133,9,133,251,133,252,96,208,210,201,206,212  16,41,44,73,79,92,97,106,123,128,135,180,203,246,249,261,316,321,326  :8:"COMBINATIONS: N THINGS TAKEN R AT A TIME":" ENTER AS N,R ?";N,R:C(N,R):I0N1:C(I,0)1:J0R2:C(I1,J1)C(I,J)C(I,J1)::C(N,R)C(N,R)C(I,R1): :" COMBOS="C(N,R):"ALL ITEMS TO APPEAR "C(N1,R1)" TIMES"::10)"-PRESS Q TO QUIT-";:A$:A$"Q"Ĭ  )MsI)><75>?>.M,$-.>:<;g%,%>?2.$$%--556'<??I ?m);??m)Mm:?߿--m)m);??5555555555%7777:>>>>JJ08 `QRSTUVWXYZ[\]^$B ****************************GB * EXTERMINATORS *jB * BY DAVID HARRIS *B( * COPYRIGHT(C) 1989 *B2 * MICROSPARC, INC. *B< * CONCORD, MA 01742 *BF ****************************BPCZ ** MAIN PROGRAM **+Cd160: INITIALIZE?Cn330: NEW GAMETCx590: PLAY GAMEjC1390: GAME OVERsC110C ** INITIALIZE **C(104)66ī190C103,1:104,66:16896,0C(4);"RUN EXTERMINATORS"C(12);(21)C3:1:0D2180(D(4);"BLOAD EXTERM.SHAPES,A$4000"GD(4);"BLOAD EXTERM.SOUND"YD216,0:1760zDSD0:842,SD: ENABLE SOUNDD232,0:233,64DMAXDAL50DMA%(19,9)D"N$(11),S(11),L(11)D,DX%(MAXDAL):DY%(MAXDAL)D6D@ ** NEW GAME **EJDAL5:LEVEL1:LS0:SCO0:DEAD0]ET::1:21:" EXTERMINATORS (C) 1989 MICROSPARC, INC.";:fE^390Eh24:"'?' for Instructions, 'ESC' to Quit.";:1:ErE| ** NEW BOARD **E23:1:"Score: ";SCO;" Level: ";LEVEL: 9 SPACESFDALMAXDALDALMAXDAL7FA019:B09:MA%(A,B)0:B:AFFDDAL0:S0SFL1DAL{FDX%(L)(20(1)):DY%(L)(10(1))FMA%(DX%(L),DY%(L))0ī440FMA%(DX%(L),DY%(L))2FLFPX(18(1))1:PY(8(1))1GCHK0:A11:B11:CHKCHKMA%(PXA,PYB):B:A$GCHK0ī4805GMA%(PX,PY)1;GOG1:OFĒ3:2310vGL1DAL:2DX%(L)14,DY%(L)16:LG&1PX14,PY16G016368,0G:GD ** PLAY GAME **GNLSİ660: GET PLAYERS MOVE IF NOT LAST STANDGXDEAD1ī620Hb980: MOVE EXTERMINATORS.HlDDALDALİ2090:390>HvDEADī590DHaH ** GET PLAYERS MOVE **hH1HMV0:M$:M(M$):M96M123MM32HM71İ2300HM77MV1HM44M60MV2HM46M62MV3HM74MV4HM75MV5IM76MV6IM85MV7"IM73MV81IM79MV9HI M48M58MVM48XIM27ī1550mI M19İ2060:660I*M83M115E1:1240:EıI4M84M116İ1160:I>M63M47İ1800:660IHM87M119LS1:IRM32ıI\MVī670JfMA%(PX,PY)0Jp1PX14,PY166Jz(MV1MV4MV7)PX0PXPX1ZJ(MV9MV6MV3)PX19PXPX1}J(MV7MV8MV9)PY0PYPY1J(MV1MV2MV3)PY9PYPY1J1PX14,PY16JMA%(PX,PY)0DEAD1:JMA%(PX,PY)1JK ** MOVE EXTERMINATORS **%KL1DAL:DX%(L)1ĂL:1010HKMA%(DX%(L),DY%(L))1DEAD1:{K2DX%(L)14,DY%(L)16:MA%(DX%(L),DY%(L))0:LKL1DALKDX%(L)1ĂL:KPXDX%(L)DX%(L)DX%(L)1KPXDX%(L)DX%(L)DX%(L)1KPYDY%(L)DY%(L)DY%(L)1L$PYDY%(L)DY%(L)DY%(L)1cL.MA%(DX%(L),DY%(L))0ĕ2DX%(L)14,DY%(L)16:MA%(DX%(L),DY%(L))2:L:L8MA%(DX%(L),DY%(L))1ĕ2DX%(L)14,DY%(L)16:DEAD1:MBMA%(DX%(L),DY%(L))3DDALDDAL1:DX%(L)1:SCOSCO10:23:"Score: ";SCO:6,255:8,50:843:L:MLMA%(DX%(L),DY%(L))36MV2DX%(L)14,DY%(L)16mM`DDALDDAL2:SCOSCO20:23:"Score: ";SCO:C1L1MjDX%(C)DX%(L)DY%(C)DY%(L)ĕ3DX%(L)14,DY%(L)16:DX%(C)1MtC:DX%(L)1:6,255:8,150:843:L:M~ ** TELEPORT **MMA%(PX,PY)0N1PX14,PY164NPX(18(1))1:PY(8(1))1MNMA%(PX,PY)0DEAD1^NMA%(PX,PY)1qN1PX14,PY16wNN ** SONIC SCREWDRIVER **NSE0:NS1:C50NA11:B11NXPXA:YPYB:X0Y0X19Y9(A0B0)ĂB:A:O4X14,Y16:L1C:L7O MA%(X,Y)2Ĺ6,255:8,100:843HO4X14,Y16aOMA%(X,Y)2ĂB:A:}O(MA%(X,Y)0:2X14,Y16O2DDALDDAL1:SCOSCO20:23:"Score: ";SCOO<L1DALOFDX%(L)XDY%(L)YDX%(L)1:LDALOPL:B:AOZPd ** GAME OVER **GPn24:"You were hit...Game over... ";:1: 9 SPACESQPx2220jP1570: HALL OF FAMErP:P"You were hit...Game over..."P"You reached level ";LEVEL;" scoring ";SCO;"."P1650 Q:14::"HALL OF FAME":::"WINNER","SCORE","LEVEL"Q3QL110:N$(L),S(L),L(L):LWQ:"Play Again (Y/N) ";::"Y";]QzQA(16368):A128ī1510QP$(A128):16384,0QP$"Y"P$(121)P$(13)ī110QP$"N"P$(110)P$(27)ī1510 R::"Play EXTERMINATORS again, soon!":&R ** HALL OF FAME **9R"EFLAG0:1760XR,(4);"VERIFY EXTERM.FAME"uR6(4);"OPEN EXTERM.FAME"R@(4);"READ EXTERM.FAME"RJL110:N$(L),S(L),L(L):LRT(4);"CLOSE EXTERM.FAME"R^Rh ** GET WINNERS NAME **SrL110:SCOS(L)ĂL:1710JS|C10L1:N$(C1)N$(C):S(C1)S(C):L(C1)L(C):CS:"Please enter your name: ";N$(L):S(L)SCO:L(L)LEVELS(N$(L))15Ģ3:958:4:"(15 letters or less)":2:1670SL10SLS(4);"OPEN EXTERM.FAME"T(4);"WRITE EXTERM.FAME"1TL110:N$(L):S(L):L(L):LOT(4);"CLOSE EXTERM.FAME"UTTEN(222):EN6EN5ĺ(4)"OPEN EXTERM.FAME":(4)"CLOSE EXTERM.FAME":1420TEN8ė::1:"I/O ERROR... CHECK DISK DRIVE":U::1:"ERROR #"EN" AT LINE #"(218)256(219):)U ** INSTRUCTIONS **1U:OU14::"INSTRUCTIONS"::zU" Try to eliminate the EXTERMINATORS"U&" before they get you! EXTERMINATORS"U0" destroy each other when they collide."V:" Debris is lethal to EXTERMINATORS and"-VD" you. When cornered, use the Sonic"YVN" Screwdriver to destroy the adjacent"VX" EXTERMINATORS, or teleport away."Vb" Use the following keys to move:"Vl" U I O 7 8 9": 7 AND 11 SPACES Wv" J K L or 4 5 6"4W" M , . 1 2 3"cW:" S-Sonic Screwdriver (once per level)"W" Destroys all adjacent EXTERMINATORS": 3 SPACESW" T-Teleport-Randomly relocates you"W" W-Last Stand-Stand until end of level"X" G-Toggles grid on/off"8X:" CTRL-S-Toggles sound on/off"aX24:8::"PRESS A KEY TO CONTINUE";X16368,0:16384,128:16368,0:16304,0X::21:" EXTERMINATORS (C) 1989 MICROSPARC, INC.";: Y23:1:"Score: ";SCO;" Level: ";LEVEL: 9 SPACES@Y24:"'?' for Instructions, 'ESC' to Quit.";:1:FY_Y ** SOUND ON/OFF **uY SNSN0:842,0:YSN1:842,255:Y  ** LEVEL COMPLETE **Y*LS0:DALDAL3:LEVELLEVEL1Y46,38:8,157:843Y>6,64:8,116:843ZH6,75:8,93:843ZR6,255:8,77:8431Z\6,75:8,93:843GZf6,255:8,77:843MZpSZzrZ ** ERROR LOADING FILE **Z(222)6ė:"File not found.":"Make sure EXTERM.SHAPES and EXTERM.SOUND":"are on the disk.":Z"Error loading file...":[ ** DIRGE **[6[0:1PX14,PY16:3:2PX14,PY16M[A111:PITCH,DURh[8,PITCH125:6,DUR31[1PX14,PY16:2PX14,PY16[843:A[ 121,4,121,3,121,1,121,4,108,4,113,1,121,2,121,1,121,2,128,1,121,8[[OFOF:3OF\ X1315816:0,X279,X:1\ X1227014:X,0X,157:7\ `abx|~xIII6>AAA"AAA>IIIA >AII:AAAA AA?"A@@@`~~~| >AAA> >AQ!^)IF&OOIyy2?@@@??p ??Acw>"A|x|cqy]OGc(TT|8@DD88|DDD8DD8|TTX~ Xxx}} @@}=(D||x|x|xx8|DD8$$$$|xH\Tt$?D <@@<|<` ||@<@|<Dl8(D\|dt\LD>QIE>@B@@ryyIOOF!AMO{1 'GGE}}9>III2cq96III6&III>__""""&OIIy2c3 ca0zMU"@>cAAc>I**I>> p @p0`0 AAAA>wAAw> @@@@@@@Q 6cAAc6@t4 0`defghijklmn ***********************;* MARYS GARDEN *X* BY TIMOTHY THOMAS *u(* COPYRIGHT (C) 1989 *2* BY MICROSPARC, INC .*<* CONCORD, MA 01742 *F***********************PZ1220 d26408:(17):710:LE110:1070 nT118H xX((1)111):Y((1)51):(XY)2((XY)2)120~ W1150::0:J16:SH(T)X(X),Y(Y):W120:: OXX:OYY:0:SH(T)X(X),Y(Y):16368,0 TLTL.5 22:11:(TL)" ":TL0520: 1 SPACE K(16384):K128150 768,7:769,7:770 KL270- KR290: KU310G KD330V KESC260v KSPĕSH(T)X(X),Y(Y):130 360 16368,0:690 XX1:X1X11 340 "XX1:X11X1 ,340 6YY1:Y1Y5 @340 JYY1:Y5Y1 TS(X,Y)3809 ^NSNS1:23:11:NS" ":NS520: 1 SPACEU hSH(T)X(OX),Y(OY):140i rOBJECT MATCHED |SH(T)S(X,Y)430 3:SH(T)X(OX),Y(OY):R1(T):I15 768,205(I2(I2)):769,15:770 :SH(T)X(X),Y(Y) SCSC100:TSTS100:450:0:S(X,Y)0:T:510a W15:768,255:769,15:770::XOX:YOY:SCSC50:TSTS50:450:360t  UPDATE SCORE SC0S$(SC):S(S$):22:34:6S)S$ TS0S$(TS):S(S$):23:34:6S)S$ SC0Ģ22:35:SC10000)SC1000)SC100)SC10)SC> TS0Ģ23:35:TS10000)TS1000)TS100)TS10)TSD Z  SHOW SCOREBOARD J16:768,T(J):769,D(J):770::530 J16:768,100:769,30:770:W11000::::"LEVEL "LE" SCORE:";:30:SC1000)SC:3:1:NSĺ"NO STEPS REMAINING!":580: 1 AND 1 SPACEC5:1:TLĺ"YOUR TIME WAS UP!":580c&3:1:"IN "STNS1" STEPS"05:1:"REMAINING TIME: "(TL);:TB(TLLE2):23::"BONUS:";::" "TB1000)TB100)TB10)TB:SCSCTB:TSTSTB:NSBWNS25: 1 AND 1 SPACEH:BWĢ3:23::"BONUS:";::" "BW1000)BW100)BW:SCSCBW:TSTSBW: 1 SPACE[DLE1V9:600NV97LE:V:3:"SCORE LEVEL ";V810)V8": ";S$(V8):XV:3:"SCORE LEVEL ";LE10)LE": ": 1 AND 1 SPACE"b6:30:"----":S$(LE)(" "(SC),4):7:30:S$(LE):W1300:: 4 SPACESilV17V1:V1:30:" ":V11:30:S$(LE):W170::: 4 SPACESvH30191:V:H:S$(LE)" ":W170::: 1 SPACEBW0:TB0:SC0:ER0:ST0:I111:J15:F(I,J)0:S(I,J)0:::TI0:I118:SH(I)0:FL(I)0:t16368,0:LE10Ģ22:1:"PRESS TO QUIT":23:1:"ANY OTHER KEY FOR LEVEL "LE1;:A$::A$(27)ĂLE150:20:958:18:"-----"21:" FINAL SCORE:";:18:TS10000)TS:255: 2 SPACES22:3:"PLAY AGAIN? (Y/N) ";:A$:A$:A$"Y"Ĭ*::10:"THANKS FOR PLAYING";:5SETUPsK0:L0:R0:U0:D0:TL0:ESC0:SP0:T0:X0:Y0:OX0:OY0::3:11::" MARY'S GARDEN ":: 1 AND 1 SPACE5:12:"BY TIMOTHY THOMAS"7:10:"COPYRIGHT (C) 1989" 9:10:"BY MICROSPARC, INC."VI16:12:I64:(220)"! !/":I64:" "(220)" /": 1 AND 1 SPACEI64:" !":I64:(223)(223)"!"(223)(223)(223):W1300:: 21:"PRESS RETURN TO CONTINUE";:WW$:5:1:958:15:"LEVEL: 1":: 1 SPACE"INSTRUCTIONS: USE THE CURSOR KEYS TO":"MOVE THE OBJECTS TO THEIR APPROPRIATE":"SPACES. SPEED AND FEW STEPS ARE SCORE":"FACTORS. MISTAKES REDUCE THE SCORE.": X(11),Y(5),S(11,5),R1(18),FL(18),SH(18),F(11,5),R(11,5),T(6),D(6);*J770790:I:J,I:: 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,964I16:T(I),D(I):: 250,50,185,50,145,50,123,85,145,50,123,120>ESC155:SP160:12:1:958:"ENTER THE KEYS YOU WANT TO USE FOR":H14:1:" LEFT MOVEMENT ";:L$:L(L$)128:LSPLESCĺ(7);:840-RL136ĺ"LEFT ARROW":880P\L160ĺ"CONTROL-"(L64):880Zf(L)p15:1:"RIGHT MOVEMENT ";:R$:R(R$)128:RSPRESCĺ(7);:880zR149ĺ"RIGHT ARROW":920R160ĺ"CONTROL-"(R64):920(R)416:1:" DOWN MOVEMENT ";:D$:D(D$)128:DSPDESCĺ(7);:920RD138ĺ"DOWN ARROW":960uD160ĺ"CONTROL-"(D64):960(D)17:1:" UP MOVEMENT ";:U$:U(U$)128:USPUESCĺ(7);:960: 3 SPACESU139ĺ"UP ARROW":1000U160ĺ"CONTROL-"(U64):1000(U)P(RL)(RU)(RD)(LU)(LD)(DU)ĺ(7):83019:" TO RE-START, TO CONFIRM ";:A$::A$(27)830(24576)18(233)961040(4)"BLOAD MARYS.SHAPES":232,0:233,966:1:958:(I111:X(I)I2510::I15:Y(I)I3010:.$q.TL75040LE:NS1403LE:STNS:230,32:3:0,0:3082:0:1:08I3515930:0,I279,I::I2725225:I,0I,155:BLE1ė:3:11::" MARY'S GARDEN ":::15:"LEVEL: "LE:: 1,1, AND 1 SPACE'L"SETTING UP";:I1112:J152:".";FVS((1)181):FL(S)1110`FL(S)1:S(I,J)S:R(I,J)((1)(LE3).5)16:::I111:J15:0:S(I,J)ĘR(I,J):S(I,J)X(I),Y(J)j".";:::J0tT118:"."; ~X((1)111):Y((1)51):F(X,Y)S(X,Y)1150iSH(T)S(X,Y):F(X,Y)1:R1(T)R(X,Y)::22:1:"PRESS TO CONTINUE ";:A$:: 1 SPACE16300,0:16302,0:16297,0:16301,0:16304,0:21::40):21:17:"LEVEL: "LE::22::" ";::" CLOCK:";:27:"SCORE: ";:40::" ";:: 1 SPACE EVERYWHERE23::" ";::" STEPS:";:27:"TOTAL: ";:TSĺTS10000)TS1000)TS100)TS10)TS: 1,1, AND 2 SPACES23:11:NS100)NS10)NS;:40:" ";:24:" SPACEBAR TO FLASH, ESCAPE TO END GAME";::2039,32:::RR(222):RL(218)256(219)SRR6ĺ"THE FILE MARYS.SHAPES":"MUST BE ON THIS DISK":zRR8ĺ"I/O ERROR...CHECK DRIVE":"ERROR #"RR"IN LINE "RL:pqrs&M vf_t$%-,,,,,$''..'6'''-5;?8:2),-?-- %%11;> -0??23+ %?.''$$,2?,7 '1!$%-= %#%;26'$$3666#$$<266$$$<22:;:2),4*   .!!  ()";()-8;,)!;?..$$$$$ . 15;<;'*)15;<;.1 .':--:;7))=::'#3. =$$$<26 ;(-88;&#))-??( -!#;;')- <?(-)!;?;') % 6666%%%%55;>?<''').. $-,,,,.77;;'?<< 555)!,, (%'7>$76=:>888'%5 %7)3$-,,,$'''??>>>6555%-,,,''?>>>5-,,843=31 .) $-$->.?.->?7-5.>7?>$$$-657'$066>;,<,<,<,:$<'<757)5?7-5 ??)5?7-5?$,$-,?$'6?>-.$- ; '6?>%5%$5-.'7>7- %, !'/!/!,,27-55;<><6->71-55>>7??< -,%=8><:.& <?77..5--,?<'/(5/)>6666<$$% .>.>. <9<77>67%),,<43  %-.65.>8<<,41<??<$%-.6?<("$%-.67?,<(* *,55>>''-,2;?"#,/6666. -%%%$'?7776-%%%'7>>,8;<6...-,$?<<>...,#8888'-< <<,415..$'$%>.6-,,<<27 ).>':::"#,(<$$%%<<77.. =82$'?>65-<,822116)*6<<<<<77..5-.<8<'/(* *( ( -.67?>7''%%%-.?> #$  ( %%<<77.. =8:6666. -,%%%<<77?>6-<(%%?:>'?<<$%-..55?&;<<(** ?'(-8? -- (806$<363...!%%''.>''77-5?7)-,.,.$5.,,=23????7----???--;;?*-55?<727)5-<<<. .1-<,5%%;',%%;><2>$?66&=!?>65-,$$$$$,.5?.-415?<<$$%-%$ $7>$?.>.5;.5=;&#$$775><<257%1*1?'7.-5?7)5/15 6>''?<77-4)>? *% %%-,55?4;>> %-,,, -%%>>'%=#'?>.%>?'?>.%5?7155?<<25?*.(,3> (( 671> (**. #$$$<< ,417665 ##)!%;&, '%%.6.'%'!''$**255?<><21? 23 67-% ;?<><>$7>$7>$,$$3.>.6>'!<,$$767''-.$')- ,$$!19'$#337';?2 -%-,),)-:3?7?>6;?" !5.%'< 1.&1)5!;,--"$<<<7.*-677%!)6.* %'%;<' $4)-!?$$)-7) -5>;> 133??)-,"!!1"#;;??';<#319;* 6)- ') 55-%$###L` ަ b1LT2LT3LT4LT ``vwxy""ɠΠ"٠נӠ"Ԩé"ìî"Ĭ" ǠŠ Ǡՠ ͠ՠ ԱϠՠ Աɠՠ ԲϠՠ Բɠՠ űՠ Ųՠ ųՠ ŴՠˠՠðӠՠƶ¹ؠؠǻŠ ҠûĠ ƵƵƷƶ Ʒӻ&Ԡͻ"ˠҠ˻)ؠǻ䠿&ؠԲɻ ؠؠԱɻ"ؠ ؠԱ ؠԲҠұ#ͻ ˱Р報Š˲ﬠ˲ؠűРŻ ˲Р堲Š˳ﬠ˳ؠŲРŻ ˳Р堳Š˴ﬠ˴ؠųРŻ ˴Р場'ŠһﬠؠŴРŻŮҠҠƶ¹ӻ$Šؠǻ ؠԱɻ$ؠؠԲɻؠ ؠԱ ؠԲұ٠٠'ؠ ǠԱϩٻԲϩٻԱԲٻŠǻﬠàԱɻԱàԲɻԲػ䠿ŠǻﬠĠӻ{|} *********************7* MS.DEMO *R* BY ANDREW FIELDS *m(* COPYRIGHT(C) 1989 *2* MICROSPARC, INC. *<* CONCORD, MA 01742 *F********************* P(21): SET 40.COLZ(4);"BRUN MS.BIN" d1:: SET PAGE 13 n:3:6:"A QUICK DEMO OF MULTISCREEN": x:"MULTISCREEN ALLOWS YOU TO HAVE FOUR":"TEXT PAGES EACH WORKING LIKE THE NORMAL":"TEXT SCREEN."T :"YOU CAN USE ALL THESE SCREENS TO STORE":"HELP SCREENS, MENUS, PROGRAM LINES, ": 3 SPACES: PRINT "SHORT NOTES, IN FACT YOU CAN STORE ANYTHING THAT APPEARS":REM 6 SPACES "SHORT NOTES, IN FACT YOU CAN STORE ANYTHING THAT APPEARS ON THE TEXT OR LO-RES GRAPHICS SCREENS"@ :"THE PROGRAM IS EASY TO USE, AS IT SETS THE AMPERSAND (&) VECTOR AND IT CAN BE USED IN A PROGRAM OR IN IMMEDIATE MODE"n ::"PRESS ANY KEY TO CONTINUE";:A$:A$ 1:"PAGE 1" 2::"PAGE 2" "TYPE THE NUMBER ( 1 TO 4 ) OF THE SCREENYOU WANT TO SEE." :"PRESS TO END" 3:::J132:J:0,39J:J,J:+ 21:"PAGE 3"l "LO-RES GRAPHICS SCREENS CAN ALSO BE STORED": 5 SPACESr { 4: J111::J2:"PAGE 4": 2 "23:A$: ,A$(27)į1::"END":360 6A$"1"į1:290 @A$"2"į2:290 JA$"3"į3:16304,0:16298,0:2902 TA$"4"į4:290A ^198:290 h:"LIST THIS PROGRAM TO SEE HOW EASY IT IS TO USE MULTISCREEN"JUNE 1989 DISK (VOL 10/NO 6) 8 PRINT STUDIO THE EXTERMINATORS MARY'S GARDEN APPLEWORKS AUTOMATED CHECK REGISTER MULTISCREEN HI-RES ZAPPER SMARTBOOT 8/16 CHECKIT 5 THE EXTERMINATORS RUN EXTERMINATORS MARY'S GARDEN RUN MARYS.GARDEN MULTISCREEN RUN MS.DEMO HI-RES ZAPPER RUN ZAPPER.DEMO CHECKIT RUN CHECKIT @ This disk is a double-sided disk. All of the programs that will run under ProDOS are on the ProDOS formatted front side of the disk, and all that will run under DOS 3.3 are on the back side of the disk. Some programs will run under both operating systems and are included on both sides of this disk. You're currently using the ProDOS side of the disk. @ Before using the programs on this disk, you should make a work disk for each program. This can be done by first making a complete copy of the disk with one of the following programs: * COPYA (DOS 3.3 System Master) * FILER (ProDOS Utilities Disk) * The Apple IIc or Apple IIGS Utilities Disk * Any Disk Copy Program Then boot the copied disk and delete all of the files that are not related to the program by using the DELETE command. The System Utilities program also has an option to DELETE files. @ You will not be able to delete the titles that we've placed in the catalog to separate files. However, these will not interfere with the operation of the programs. The screen displays that follow show the files needed to create working copies of each program. @ To create a work disk for PRINT STUDIO, remove all but the following files from a copy of this disk: PRINT.STUDIO STUDIO.SAMPLE STUDIO.FONTS STUDIO.OBJ HEAVYSIDE.FONT These programs are included on both the DOS 3.3 and ProDOS sides of this disk. These programs are not included as an option in the program menu because they require special instructions. See the documentation for details. @ To create a work disk for THE EXTERMINATORS, remove all but the following files from a copy of this disk: EXTERMINATORS EXTERM.SHAPES EXTERM.SOUND These programs are included on both the DOS 3.3 and ProDOS sides of this disk. @ To create a work disk for MARY'S GARDEN, remove all but the following files from a copy of this disk: MARYS.GARDEN MARYS.SHAPES These programs are included on both the DOS 3.3 and ProDOS sides of this disk. @ To create a work disk for APPLEWORKS AUTOMATED CHECK REGISTER, remove all but the following file from a copy of this disk: CHECK.REGISTER This program is included only on the ProDOS side of this disk. This program is not included as an option in the program menu because it requires special instructions. See the documentation for details. @ To create a work disk for MULTISCREEN, remove all but the following files from a copy of this disk: MS.DEMO MS.BIN These programs are included on both the DOS 3.3 and ProDOS sides of this disk. @ To create a work disk for HI-RES ZAPPER, remove all but the following files from a copy of this disk: ZAPPER.DEMO ZAPPER.DRAW ZAPPER.BIN APPLE.PIC These programs are included on both the DOS 3.3 and ProDOS sides of this disk. @ To create a work disk for SMARTBOOT 8/16, remove all but the following files from a copy of this disk: SMARTBOOT SB.INSTALL These programs are included only on the ProDOS side of this disk. These programs are not included as an option in the program menu because they require special instructions. See the documentation for details. @ In addition, we've placed a copy of the CHECKIT program on this disk. CHECKIT is a utility published in every issue of Nibble that aids in typing in programs from the magazine. See the Typing Tips in the latest issue of Nibble for details on using CHECKIT. We have also included the One- and Two-Liners on this disk. @ The source code files for the major assembly language programs have been included on this side of the disk. These files are included expressly for experienced programmers. These files cannot be used unless you own the appropriate assembler. WARNING: Do NOT attempt to run the following source code files: STUDIO.S (LISA) MS.BIN.S (MSI) SMARTBOOT.S (MERLIN) @ #  **********************; * PRINT STUDIO *X * BY ALLAN LAMB *u( * COPYRIGHT (C) 1989 *2 * BY MICROSPARC, INC.*< * CONCORD, MA 01742 *F ********************** P(104)96Ĺ103,1:104,96:24576,0:(4)"RUN PRINT.STUDIO"z Z:(17):1:15:"PRINT STUDIO":14:"BY ALLAN LAMB":12:"COPYRIGHT (C) 1989":12:"BY MICROSPARC, INC." d49168,0:TYPE249:HR3245:RD3279:RS3110 n(4);"BLOAD STUDIO.OBJ" x(4);"BLOAD STUDIO.FONTS,A$2D00" 7:1:"PRINTER CARD IN WHICH SLOT (1/2/4/5) ";3 A$(27)ĉ::R A$:A$:A$"1"A$"5"130b A$"3"130v A$(27)ĉ:: 10,176(A$) 10:1:"ARE YOU USING A GRAPPLER CARD (Y/N) "; A$:A$:A$"Y"A$(121)Ĺ11,1:240 A$(27)130 A$"N"A$(110)190 11,0{ 13:1:"PRINT ";(34);"SUCCESSFUL DOWNLOAD";(34);" AFTER EVERY":12:"DOWNLOAD (Y/N) "; A$:A$:A$"Y"A$(121)Ĺ12,1:290 A$(27)190 A$"N"A$(110)240 12,0 "3072 ,810 6(TYPE)131Ĝ:470:HR:RD:RS8 @(TYPE)140Ĝ:490:HR:RD:RS\ J(TYPE)147Ĝ:430:HR:RD:RSt T(TYPE)145Ĝ:360} ^300 h::12:1:"SET PRINTER FOR CUSTOM CHAR. SET (Y/N)"; rA$:A$:A$"Y"A$(121)400 |A$"N"A$(110)360 :. (4)"PR#"(10)176:(27)(39):(4)"PR#0"x 14:13:"<<< DONE >>>"::"(DO NOT POWER - DOWN PRINTER OR COMPUTER" :: ::24:1:"SAVE FILE";:740:ESı 1:14:"NAME OF SET TO SAVE? ";:550 P$(27)ı$P$P$".FONT":(4):(4)"BSAVE"P$",A$2400,L$5C0,S"S",D"D:J::24:1:"CATALOG";:740:ESı(4):(4)("CATALOG",74((48896)76))",S"S",D"D:540:49168,0:::24:1:"LOAD FILE";:740:ESı1:14:"NAME OF SET TO LOAD? ";:550P$(27)ı(P$(63)ĉ::480::24:"LOAD FILE";:14:500kP$P$".FONT":(4):(4)"BLOAD"P$",A$2400,S"S",D"D:49168,0::"PRESS RETURN TO CONTINUE";:QQ$:&T1:P$""0KB$:KB$(13)T1ıDT1(KB$(8)KB$(127))560NT1KB$(27)P$(27): XT1KB$(63)P$(63):7bT1(KB$)65560OlT1(KB$)122560rvT1((KB$)97(KB$)90)560KB$(8)KB$(127)710KB$(27)Ė23:" ";:22:550: 22 SPACESP$P$KB$:T21:KB$;TT1T16ı560=T21:" ";:TT1:T1P$"":T21:560YP$(P$,T1):T21:56024:1:" ";:: 23 SPACES1:10:"WHICH SLOT (5,6,7)? ";:QQ$QQ$(27)ES1:QQ$"5"QQ$"6"QQ$"7"740S(QQ$):ES0: 1:12:"WHICH DRIVE (1,2)? ";:QQ$:QQ$(27)740UQQ$"1"QQ$"2"780f D(QQ$)::z*:(222)68604(222)3870>(222)8880H(222)4890RN(218)256(219)::1:10:"UNEXPECTED ERROR #"(222)"AT LINE"N:0\12:1:(7)"FILE NOT FOUND":540:HR:RD:RS:300lf12:1:(7)"NO DEVICE CONNECTED":540:HR:RD:RS:300p12:1:(7)"I/O ERROR":540:HR:RD:RS:300z12:1:(7)"DISK IS WRITE PROTECTED":540:HR:RD:RS:300L !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`=YYZLYLYLY뿭` 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@)@qvȱ@Hȱ@Ah@@cqe J) LL LJiB LJ) BxNhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJl`B g-`J,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ( ߐ ߐ  0 HϭߍLпllllhh8` Q)T'P#) ɺiL? )?      `l@Hȱ@IױHXATȱH ɯȩ׍̎5H)/@a)_ .0 :A[8@`,뎎׮Б` L ` @>O)I38 I`aם`K8`@Nȱ@O@ IiNȽבN)/ȩ/N`@[ WHJjjjhA D'KI؍0JHi 뎁`C8` @ 3N@) K莭 ⭪i`0 ]; 뮁ٝ٘ 0 W,0 .H hȑNWȮّNW8`ٍّNΨ0NN` G8`F@ 0 H LK8`6 7I8`FHGH hGhF܌ բFܽܕF芝ܝ 밶67 8܅I m9IHHyHȘI Lܝ` @_@ g@Ю׍O)mיOʈ@mȱ@_ȱ@iklbJtKuO)5OI0ܢܽ eL'A* 7`aFG (CD Lz܅IN mAIH` pm mI0LM AOHJFKG 밳JK 밨C%܈@" T)Ii)܍N*܍A'ܮ( 4 䭐 $H %HFFHGHG 됬`R8`)` AHO` 'Q'܅IHHOOЍO@`8 ` ͉% ΉQ8`܅I `L܍MN h8D`F` alH)HFȍJHGK $%܍&܍!ܢ8* J8` L ܝ:)I 'ܝ6`B8iNFLGM`B܅IH3H ( )ȱHΨ`Ί8AeHI SB60I ٙGٙEFJCʈ h猪`8m0`,0H hi PȽΨhٍ0GF8yאFG  $0 K01 E8`1ݺ00 ] 0ʩ 谼 谷`12)1`0`Ȏi 0U`)8`Ψ` W |G 4A)H ܝʈh٭0٭)ܝ٭*ܝ٥F٥G٭'ܝ٭(ܝ`)َ 8ʈ` 0ٝ)i `8`R ꍌvw zNمFمG < Ό0 FGL鮁0 ٭w٭vٽ8`H8`  ,v w 8` vw `ٽJJJJ`H͌hn)NjNjNjN. GH͌ z;٭ *Nۙ۰ڙک `Z8` G# ,`w .w .w .w8۰*Jv۩ ٰvw`JJJJ;i z묁͖ zٍ0  `H8` `ٍyٍiB0H0FG h0`FG `ϩBxED0C ް(`(8`ؑ@`M8`8@ؐʈI묂)v8vv L} LةC8`؍)@ i)v8vyJ ^ ؅F Ls) +%J(a .FإGؐ.` .JHIH IL3FHGI ҭJjHIHB>IؙJJ [: IL}HIHI`JKJK`FHIG ( Ȣ؝}؈JL)eKM`)` J vJ͛ $0 ΊJFJL8`JGBJ T FإG`BH TFإG`,H hHB؅F  ؅GxDE؍00C ް(`(8` zL+J  :"L zH  : 9ؙ` @ P8`K8`B8` H؈OJJJJحm) ) )Ю ЪG `F $ ᭔ع+ؠ 6H  Rh8` 䮁ٽ ٬ؠ@` ( H )8`)i п` H h)N$% LL L L 6 &pJ덟 )@።NJOK 6iKKΞΞ IJΟ JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@L6쬂8NNO 8 ؍JL`RΞʱLN1MOMEKP/MEKΞL;L-M O,p莝eNNO(`JNKOL 6/ &P L8 } [ؑJ`L@ȱ@ `@Nȱ@O`؝}}vIvؐ` jzؽ}؝v j ) j؝zv؈` ` H Th)N@ ;; L  6$ )bJ ] ) H 8hL )  )حJjIwHIvH؊ PLKΞʱNLMO MЈMEKݸP%MEKΞL( O, PeNNO J(` C  7 2JvHIwHI؊ LI  .` A Hv ع Hw ؙ؊ؠIhHIhH  iع `  عiعi` )؍0CGHFHBFGx ް(8hFhG`@4͔ L @Ai ׭2` . R#ع؍0 ]讁)`.@+ i 8` L )߹0 )p )@ ) ȩ ؝H0JK 방 LMJKFG 嬂؍b؍c؝d ؝_ vO) vO )حI͖ z`H@h`h``N8`  ) ;⬂Ȣ؝z@zݚ@ʈLJ KIJHȢݚ h魚)Jn 8 δ ؍ ؍ \H8 ع)ꭱJJJJ Ȣ؝I؈ 6h(8H = h(8Hh(`ؑ@`@ȱ@ ` B@8ZO h鮁ٍٍٍoHٍn8bhcOJJJJO)O@` %I -m) 0@O)N8` @LL =@ /ȹP8` i` =ם0 /B =)( ȹ`8m8m@8` G8`F Pm)@N8`O)@J /טyרםOO)׍O`a 밑 LȹL@ȅH@IL,0` G קּ= ]H.m)N 0 H`aO)@LP8` \᮰ ֩OCDC z L䬁yٙ٭yٙ٩`K GE`FaG 6%&N    ܮ `J HH hh` 0 @ LGL r`̴Yܝ ݝ0̴ȩFG   0` ܅F݅G ` { rͬ 밽܅F݅G ` {* r% L`L뮰HH hFhG܍ݍ 8 `FHGH  hGhF`ݹܙ݊`@Bɼ>K@J5 {9X(K {XXK تKo`V8`no` D on {I9XX`)HJJJh`OeNeO࿰ {9XАO`@ȭ@` ON aNJKO`HхhꭋILhH),fx8 (8` ԍ`@Ae J m00[roIIJK,-NOPQRSu' @   !"#$Ԡ͠(C)1983-87APPLELKL`BLL ެެެެެެެެެެެެެެެ(C)APPLE'83xLLM Mh@8nЍLޭ 0J @,,LRP׽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&MIKE ***********************= * SB.INSTALL *[ * BY STEVE STEPHENSON *y( * COPYRIGHT(C) 1989 *2 * MICROSPARC, INC. *< * CONCORD, MA 01742 *F ***********************D P::SL(1)49663:SL(2)49919:SL(3)50175:SL(4)50431:SL(5)50687:SL(6)50943:SL(7)51199:I768788:J:I,J:V Z(21);:270 d"SMARTBOOT 8/16":"by Steve Stephenson":"(C) 1989 MicroSPARC, Inc.":34,48 n12:"This program requires a IIGS":23:"Press Return to continue ":"Or press Escape to quit ";:16368,0:AN$:AN$;::AN$(27)ĉ::23:g x:BL1:(4)"BLOAD SMARTBOOT, A$2000":BL0 10:1:"(1) Install ":"(2) Quit" 14:1:"Your choice ?";:1008:16368,0:AN$:AN$;:A(AN$):A1A2140 A2ĉ::23: (4);"PREFIX":PR$: :10:1:"Slot: ";:S$:S$;:S$(27)ė:130S S(S$):S1S7170 12:1:"Drive: ";:DR$:DR$;:DR$(27)ė:130 D(DR$):D1D2190 (4);"PREFIX,S";S;",D";D (SL(S))0260: check for Disk ][ (5.25 inch disk)4 784,S16(D1)128:768::::"SUCCESS!":I11000:I? :130 :::"YOU CANNOT INSTALL SMARTBOOT ON A 5.25 INCH DISK"::"PRESS RETURN TO CONTINUE.";:16368,0:AN$::130 BLĺ::"ERROR READING SLOT AND DRIVE"::"PRESS RETURN TO CONTINUE.";:16368,0:AN$::130C :23:"CANNOT FIND FILE 'SMARTBOOT'": " 32,0,191,129,15,3,144,6,32,136,190,32,9,190,96,3,80,0,32,0,0c`{`c`{` -`` 8`(`ɡ`ɡ0`0`((((PPPPC)pJJJJ IHȱHgHGLȄBȄF X ( ` L QKdPdJdNdMM D LPFȱPGFQQJi'JKKNNM^JL0    2 ȱJFȱJGL0LJLKQȄMdN D QQNNJFLGJL X LO )JO )ԠJ`V )JV ) еJЭ`Y )JY ߥPDQElHSYSTEM"P8&PRODOS8  X Ly %)I`(éìӠӠΠŠӠ é ì  ҠΠ ҠҠ 䍠à 䠽 Ӱ ө ĩ򠽠 ͠ 򠽠  栽  栽ìĠ бӺиà Ġ 堽Š Š 򠽠 栽ŰƠ 𠽠ƴ 堽õ 砽 堽Ī Ǡ⠰ ᠻ 䠣ᠣðͫ ͩ ƍƍ͍ᠨͩ ƍ 䩍͠ бӺи ͯи 䮮䠻 佱䍠 뽲堻 簠 占簫 獠ᠤ 젺󽰻  ббӺи и бӺи Ӎ ͯ и ᠣ 򫱍򫱍堻  ө ͯ и 占렻 㠺 獺 덠ᠨ ᠨ 占렻 뽰 󮍍򫱠 򫱠 䍠 獍 뻍 ㍠㠣 㠺栻 򫱠 덺捠𠣤Ơ 뿍렻 덍򫱠 덠堻 堻  䮍 뻍 뮍덠ᠣ 덠бӺи 迍頺捠堺и ͧ 䍺ии и䍺 ӧ 嬍 廍 宮䍠 덠ᠨ 䍠 䍠ᠨбӺи 翍렻 Ӎ렻 ибӺи 䍠 и 덠ᠣ栻 Ű栻 덠捠栻 荠櫱 򫱠 櫱 占렻 򫱠 򫱍 덠ᠨ橬 퍠ᠨ橬ᠨ橬 占堻 򍍠𠤲 󍪽堻 籠 獠籫 獠ᠤŬ 젺 砻 𮍍 ͯ퍠 占䠣Ơ 荠ᠨ 堺蠻 宍 젺 衍堻 占䠣ư 占堻 忍 󍍠 ᠨ 占𠣤Ơ 򠻧 觍荠󍍪 иии䠣ƍᠨи迍蠻 占젺占䠣ư 占獠򍍠ᠨ 占𠣤Ơ 荠󍍪 Ӣ䠣ƍᠨ迍蠻 占젺堻 􍍪 덪 덠򫱍򫱍ͩ 򍍪 㠧ͧ堻 荪ии㠧ии卪㠧ӧ󠽠卪 箮  㠻 űƠ ӿӠ 堻 粠 獠粫 獠ᠤŬ 젺 砻 𮍍 Ӎᠤð 䠣 򠣥 ڽ簠 é ì 㮢籠򠢪 粠򠢪 ܠ ƍ ******* 8/08/86 *******;* ProDOS STARTUP *X* BY OWL *u(* COPYRIGHT (C) 1987 *2* BY MINDCRAFT PUBL. *<* CONCORD, MA 01742 *F***********************P16384Z::D$(4):(21)d9703 n ********** GET HI-RES SCREEN AND SET DISPLAY SWITCHESd x11:3:"MINDCRAFT PRESENTS NIBBLE SOFTWARE" 15:13:"PLEASE WAIT..." D$"BRUN STARTUP.SCREEN" G(16297)(16300)(16301)(16304) ********** READ INFO FROM NIBMENU TEXTFILE 11201 P$(20): P$ = PROGRAM NAME _ 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$:1h 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"ī600M  ********** CYCLE THRU NIBMENU TEXT SCREENSU A1^ :3 S$(A)"@"İ1030::3:((FLAG$"ESC"))490:600 S$(A)"#"510 S$(A) AA1:460  ********** LAST TEXT SCREEN BEFORE MENU :36:"Thanks again for your order !")12:R6:"ALL PROGRAMS ON THIS DISK ARE"{&6:"COPYRIGHT (C) 1989 BY NIBBLE"06:"MINDCRAFT PUBLISHING CORP."56:"52 DOMINO DR, CONCORD MA 01742"::17:5:"UNAUTHORIZED COPYING IS ILLEGAL"D1030$N ********** SET UP MENUJXMEMM2:X$(0)" ":X$(1)"-->":b1:1:"Selection: : Instructions"l3:"----------------------------------------";v5:20((A$)2):A$I1ME2:61I:8:I". "MP$(I):61(ME1):8:ME1". Catalog Disk"861ME:8:ME". Quit"l21:"----------------------------------------"23:1:"Type number or use arrows, then ";:PX10:SX4:SL1 ********** SELECT CHOICENSL:OSSL:780:Z0:24:868Y1: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:Z107008002 ********** PRINT POINTER SUBROUTINEO 61N:SX:X$(SLOS);:r ********** SELECTION ROUTINE SL(ME1)İ860:600*SLMEİ900:SL1:780:68042:1:" "::2:1:RC$(SL): > ********** EXECUTE A VALID MENU CHOICE,H49168,0::1100:D$;RC$(SL)PR ********** CATALOG SELECTED m\:49168,0::D$;"CAT":f24:7:"Press to continue";p49168,0:49152,128:z ********** QUIT SELECTED22::958:"Do you really want to quit? (Y/N)";:49168,0(49168,0:49152,128Z(49152)249(49152)217Ĺ49168,0::1100:` ********** SOUND BUZZER FOR WRONG KEYSTROKE EQ110:EY(16336)(16336):EQ: ********** ERROR HANDLING ROUTINE:(1101)6ė:D$"PR#A$300"_(222)6(222)8Ģ19:(7);"Disk Error. Please insert Nibble disk":101019:(7);"An error #"(222)" has occurred. "23:"Press to continue ";:958:49168,0:49152,128:600  ********** WAIT FOR KEYSTROKEFLAG$""`23:" for next page or for menu";:49168,0:49152,128~(49152)155FLAG$"ESC"$. *********** ATTACH UPPER/LOWER CASE ROUTINE8I013:ML:768I,ML:I:D$"PR#A$300":B ********** DETACH UPPER/LOWER CASE HANDLER *L(4);"PR#0":ZV ********** INSTALL INPUT-ANYTHING ROUTINEu`X768839:A:X,A::j ********** 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,216 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ժժժժժRT* @?p~px|ЪժժժՊ dOE U @?`p~?pxԊԪ `|yg~0 cFc& U*U*U*@@ @%P*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|ժժժժժ `AFT* @?p~px|xժժժՂ n_?E U @?`p~ppp}{c0 cFc&(U*UA*U*uԪժժժժՊ @ [ժժժժժժdpO|`*U*U*U*U*U*p|~p|(U*U*U*U*U*S* @?p~px|ժժժժժ `AFT* @?p~Ap||xժժժՂ N?p1 U4pysc'C&0.cFc&(U*U P*U* > @p{?" NԪժժժժժ@ [ժժժժժժdpO|`*U*U*U*U*U*p|~p|(U*U*U*U*U*R@* @?p~px|ժժժժժ pcFU* @?p~p|ժժժ _?@>|. U5x{w cY#8X03X0FC30%*U*U*U*U*U L @@ " NԪժժժժժtժժժժժժdpO|`*U*U*U*U*U*pp~p|(U*U*U*U*U*R@* @?p~px|Ԫժժժժ pcFU* @?`p~p|ժժժ ?~ GC@F- U5xsg`c00@` 80]kw>33333>333>00>?361>333333 3000033 +++?333733333 ;3370> ? .3333 333?+++3 30>333? ?  A  ???????333??333?33333333333333333#;3333?333? ?33333333??3!#3;?7313333333`>333333333303 ??333333 33333!3??33333 33 333?3 3? 0 >00000>3 ? 666?? , > 13 3#>      *w* ?  ??  0 37?;3   3>      0  03L    Ƀ ɌɓLH  `ه  :L h i 4L  `   } |L,P,W,R,U`,,T,Q` ; O  L~ X ;  O     ީ H h     ! ! ' $%  `HH m hh m ɮL  HHH ɍB)? (*m 4M 4i(hhh`@ ` '`$% L LHH ,Lk. hh`HH  ɮ L ةhhL O ɛLL A L@ L O ɛݍ  d   F       m  L ` @`@ `LO`m  O hhLȌm i>  8逍`$LO" O  `LO O AL O  ɛ :L LL L O   dLL O ɛLL  d w LLHH  0I$% L8$% LLhh` O H hɠ    d  LLLO " O( O`LO L  O ɱ ɲ  ` & & &ii$`HH  ɮeLLhh`,  i`,Z ɛ :L`,`Z  Lhhh`  iLK4 8LK84`   `  O LL  OLn  O  Q  L   -    A | 2# OLq L O   :LLL O  L!@ O  LX@ O  L@LL  O LL   O ɛPɺɰ) F L O  Z  d   m   O 2# OLL L L L L e` " O # O hhLX % O  O   Q ɿ L L O  H hɠ  d  L [о`   O : : :  LL"  L  OLL ! OLLЍҍ   `Ѝҍ `L"#Ԣp0 2Ln 2dH Lz Lz Lz LzH h Lz h Lzh Lz $ % Lz``$+`  Ɉ% Lɍ`ɛ Lhh`  :L $ɬɿL}3جѝ LڿcYd; 8 ((((PPPP@@AABBCC@@AABBCC@@AABBCC 444 @"Y߿ܺ2éì2ɠ̠ӠРԠàĠ̭à̭Ѡ̭Ӡ̭̠덍ŠҠӠڧ󠯠2蠨à2䠨ïǩà2蠨à2䡠2䡠2 ٯΩ2 堨ٯΩ2 䠨ٯΩ2 堨ٯΩ2䠨ïǩà2蠨à2󠼱򠼲2蠨à2󠨰222à2à2+I2'2$2222D 2젪22Ġ2Š2Ԭı2Ԭ̤ðı2ң؍2ң2 ̍ č ڍ2ٯΩ2Ǭ؍2Ӡ٠٠Ϡ2 ̍ ō2 堨ٯΩ2 堨2r#********************************** #** IMAGEWRITER PRINT DESIGNER ** #** BY ALLAN J. LAMB ** #** COPYRIGHT (C) 1987 ** #** BY MICROSPARC, INC ** #** CONCORD, MA. 01742 ** #********************************** #** ASSEMBLER:LISA ** #** PROG:3C00 SYM:8500 JUMP:0C00 ** #** SEE ARTICLE FOR IMAGEWRITER ** #** DIP SWITCH SETTINGS ** #********************************** ;  $C00  $C00 START ; *************** ** ZERO PAGE ** *************** ; T0 $0General zero page T2 T0+2 CH1 T2+2Hi-res CH CV1 CH1+1Hi-res CV SLOT $ASlot # CARD SLOT+1Grappler? ,SUCCESS CARD+1Prt 'Download successful' X $FA Y X+1 X2 $F L0 X2+1Loop zero page L1 L0+1 L2 L1+1 L3 L2+1 L4 L3+1 CH $24Text CH CV $25Text CV TYPE $F9 ; ************* ** EQUATES ** ************* ; CR $8DCarriage return BUF $380Input buffer MVE 1Cursor move BELL $FF3ABeep! COUT $FDEDCharacter out HOME $FC58Home DOSOF 2Turn DOS off DOSON 3Turn DOS on PRTOF 4Turn printer off PRTON 5Turn printer on CTRLD $84Control-D #ADJCSR $FBC1Adjust text cursor !CHRBUF $2400Character buffer FTRBUF $340Feature buffer DOSCOUT $9EBDDOS hook ERRPNTR $A6D5Error pointer MATRXBUF $303Temporary buffer ; *************** ** VARIABLES ** *************** ; DOS POS PTR FONT HINV PINS SAVE CHORZ DWNLD FLASH SPEED CHRPLC ERRSAV LOADED GETSENT MAXLTRS SPACING TESTONE RELDSET UNSAVED GRIDTEST ; ****************** ** BUFFER LCTNS ** ****************** ; START INITBegin program TITLPAGE GETINP ERRSAV )RESTART ERRSAVGet command & execute  FLASH GETKEY $C010 TYPE FLASH #$83 RTN #$8C RTN #$93 RTN NORTN RTN ERRSAV  NORTN #CMDS-1 ^1 CMDT,Y >2  <1 BELL GETINP ^2   CMDJ,Y VECTOR CMDJ+1,Y VECTOR+1 $1234 VECTOR *-2Dummy vector GETINP ; #DELAY SPEEDCursor flash delay L0  ^1 SPEED ^2 <2  <2 L0 L0 <1  ; ,INIT #GRIDTEST-3Initialize everything #0 ^1 DOS,Y  #DOS-4 <1 #2 SPEED #12 X #5 Y #"." X2 #6 SLOT M34,Y KILLFTRS CLRMEM ; #HGR $C050Graphics on/page 2 $C057 $C052 $C055  ; TEXT $C010Text on $C054 $C051  ; &INSTR CLRSCRNPrint instructions #2 PRTMES !REDRAW GETKEYReformat screen #"." X2 TITLPAGE RELOAD ; TITLPAGEHOMEFormat screen CLRSCRN HGR #1 PRTMES DRAWGRID#11Draw grid border L0 HINV ^1 L0 CH1 #4 CV1 #" " POUT L0 CH1 #13 CV1 #" " POUT L0 L0 #29 <1 #5 L0 ^1 #11 CH1 L0 CV1  #" " POUT #28 CH1  CV1 #" " POUT L0 L0 #13 <1 HINV #12 CH1 #3 CV1 #$C1 L0 ^1 L0 POUT L0 L0 #$D1 <1 DRAWDSHS#7Draw storage boxes CH1 #18 CV1 ^1 #$FC POUT CH1 #33 <1 #7 CH1 #20 CV1 ^1 #$FC POUT CH1 #33 <1 #0 CH1 #22 CV1 ^1 #$FC POUT CH1 #39 <1 ; DRAWDOTS#5Draw grid dots L0 ^1 #12 CH1 CH L0 CV1 CV ADJCSR ^2 #"." POUT COUT CH1 #28 <2 L0 L0 #13 <1  ; FLASHCSRXFlash the cursor  CH1 Y  CV1 DELAY #$C0 POUT  CV1  CH1 DELAY X2 #"." >1 #$FE ^1 POUT ; +POUT ADJFONTOutput hi-res character POS      POS #$8D >2 #$3F     FONTBAS  #0  FONT FONTBAS+1 CV1 YTABL,Y HBAS YTABH,Y HBAS+1 CH1 #7 ^1 $1234,X FONTBAS *-2Fontbase calc. HINV $1234,Y HBAS *-2Hbase calc. HBAS+1  #4 HBAS+1  <1 CH1 CH1 #40 >3 ^2 #0 CH1 CV1 ^3      ; #CLRSCRN #$40Clear hi-res screen T0+1 #0 T0  ^1 (T0),Y  <1 T0+1  #$20 <1  ; +DRAWPLCSCH1Draw remaining letter spaces #15 CV1 ^1 #$DF POUT CH1 #39 <1  ; TOGGLE XToggle dot CH1 CH Y CV1 CV ADJCSR X2 #$FE >1 #$FE >2 ^1 #"." ^2 X2 POUT COUT ; 'ADJFONT L3Adjust font (upper/lower)     L3 #$E1 >2 #$FB >2 ^1 #$2C >4 ^2 #SPCEND-1 ^3 SPCTBL,Y <1  <3 #$2E ^4 FONT     L3  ; INVERT XInvert grid  Y  #12 X #5 Y ^1 X CH1 Y CV1 GETSCRN #"." >2 #$FE (T0),Y POUT >3 ^2 #"." (T0),Y POUT ^3 Y Y #13 <1 #5 Y X X #28 <1  Y  X GETSCRN ; !TESTCHR #12Test one character PRTMES ^1 GETKEY #"C" >4 #"G" >3 #$9B <1 ^2 CLRLINE ^3 PACK #$41 BUF MATRXBUF-2 GRIDTEST >5 ^4 CLRLINE #13 PRTMES GETKEY1 #$9B <2 BUF PLCCHR GETLOC STRMATRX ^5 TESTONE #0 SPACING GETPINS STRDOTS OPTIONS GETSCRN SRTSTRNG SENDFTRS SENDESCI SENDCHR ENDSTRNG #1 L0 RELDSET PRTONE ; SENDCHR #0Send one character ^1 MATRXBUF-2,Y COUT  MATRXBUF-3 <1  ; &KILLFTRS#0Nullify special features ^1 FTRTBL,Y FTRBUF,Y  #5 <1  ; &SENDFTRS#0Send features to printer ^1 FTRBUF,Y COUT  #5 <1  ; (SENDFEED#27Set printer for line-feed PRTMES ; +STRMATRX#15Store char. in matrix buffer ^1 (T2),Y MATRXBUF,Y  <1  ; #STRDOTS #15Store dots in matrix ^1 MATRXBUF,Y >2  <1 #6 ^2  SPACING #16 >3 #29 PRTMES RELDSET GETKEY   ENDSEND ^3    MATRXBUF-3   PINS  #$3E MATRXBUF-1 GRIDTEST >4 CHRPLC CHRTBL,Y  #$80 MATRXBUF-2 ^4 ; ,CTRLZAP #36Zap illegal CTRL-chars. PRTMES ; SRTSTRNG#34Turn printer on PRTMES CARD >1 CTRLZAP ^1 ; *SENDESCI#21Get the printer's attention PRTMES ; *ENDSTRNG#24End transmission to printer PRTMES PRTNORM SENDFEED ; CLRGRID #4Clear grid PRTMES GETKEY #"C" >3 #"G" >1 #$9B >2 BELL CLRGRID ^1 DRAWDOTS #"." X2 ^2 CLRLINE ^3 CLRLINE #5 PRTMES GETKEY1 PLCCHR #" " POUT GETLOC #15 #0 ^4 (T2),Y  <4 CLRLINE ; !LOADCHR #15Load one character PRTMES GETKEY1 #$9B >1 CLRLINE ^1 PLCCHR GETLOC UNPACK GETSCRN CLRLINE ; $UNPACK XUnpack dots from matrix  Y  #12 X #0 L1 ^1 #12 Y #8 L1 ^2 (T2),Y L2 ^3 #0 >5 BITTBL,X L2 >4 >4 X CH1 CH Y CV1 CV ADJCSR Y #"." POUT COUT <3 ^4 L2  BITTBL,X L2 X CH1 CH Y CV1 CV ADJCSR Y #$FE POUT COUT <3 ^5 X X #28 >6 L1 <1 ^6 Y  X  ; !STORECHR#3Store one character PRTMES GETKEY1  PLCCHR  #" " >1 HINV ^1 POUT #0 HINV PACK GETSCRN GETLOC #15 ^2 MATRXBUF,Y (T2),Y  <2 #1 LOADED UNSAVED CLRLINE ; %PRTCSTM #22Set printer for custom PRTMES ; RESETCRDCARDReset SSC >1 #34 PRTMES #40 PRTMES ^1 ; $PRTNORM #23Set printer to normal PRTMES ; "GETPINS CLRLINEPins 1-8 or 2-9 #0 PINS #14 PRTMES ^1 GETKEY #"1" >2 #"2" <1 #32 PINS ^2 ; ,GETLOC #0Memory start of char. position T2+1 CHRPLC   T2+1  T2+1  T2+1 #CHRBUF T2 T2+1 /CHRBUF T2+1  ; $PACK XPack dots into matrix  Y  #12 X #0 L1 ^1 #0 L2 #5 Y #$FF ^2 #8 >3 GETSCRN Y #"." <2 BITTBL,X  L2 L2 <2 ^3 L1 L2 MATRXBUF,X X X #28 >4 L1 <1 ^4 Y  X  ; )GETKEY $C010Get and adjust character ^1 FLASH >2 FLASHCSR ^2 $C000 <1 #$E1 >3 #$FB >3 #$E0 ^3 ; )GETKEY1 $C010Allow only special char. ^1 $C000 <1 #CHREND-1 ^2 CHRTBL,Y >3  <2 #$9B >3 BELL GETKEY1 ^3 ; GETKEY2 $C010Get upper/lower ^1 $C000 <1  ; 5PLCCHR #CHREND-1Put char. at proper screen coord ^1 CHRTBL,Y >2  <1 CLRLINE     ^2 CHRPLC #26 >3  #7 CH1 #17 CV1 >5 ^3 #52 >4  #19 CH1 #19 CV1 >5 ^4 #52 CH1 #21 CV1 ^5 ; CLRLINE #0Clear line 16 CH1 HINV GETSENT #15 CV1 ^1 #" " POUT CH1 <1  ; &PRTSENT DWNLDPrint custom sentence >3 #7 PRTMES ^1 GETKEY ^2 CLRLINE ^3 RELDSET >4 #26 PRTMES <1 ^4 OPTIONS #18 PRTMES #30 MAXLTRS #9 CHORZ GETSENT DRAWPLCS GETLN L0 CLRLINE SRTSTRNG SENDFTRS 'PRTONE PRTCSTMPrint one character #0 GRIDTEST TESTONE ^5 BUF,X COUT  L0 <5 .ENDSEND PRTNORMStop processing to printer KILLFTRS RESETCRD #35 PRTMES <2 ; !OPTIONS CLRLINEChoose options #8 PRTMES ^1 GETKEY #"Y" >3 #"N" >2 BELL <1 ^2 CLRLINE ^3 #9 PRTMES GETKEY #"Y" >4 #"N" >5 <3 ^4 #1 #33 FTRBUF,Y ^5 #10 PRTMES GETKEY #"Y" >6 #"N" >7 <5 ^6 #3 #88 FTRBUF,Y ^7 #11 PRTMES GETKEY #"Y" >8 #"N" >9 <7 ^8 #4 #14 FTRBUF,Y ^9 CLRLINE ; %DOWNLOADLOADEDDownload entire set >1 #6 PRTMES GETKEY CLRLINE ^1 #1 DWNLD #0 RELDSET #16 PRTMES ^2 GETKEY #$9B >5 #"9"+1 <2 #"0" <2 #$F SPACING GETPINS CLRLINE #25 PRTMES SRTSTRNG SENDESCI #90 L1 ^3 L1 CHRTBL,Y PLCCHR GETLOC STRMATRX STRDOTS SENDCHR L1 L1 <3 ENDSTRNG SUCCESS >4 #28 PRTMES ^4 RESETCRD #35 PRTMES ^5 CLRLINE ; CSRUP YMove cursor up Y #4 >1 #12 Y ^1 GETSCRN ; CSRDOWN YMove cursor down Y #13 >1 #5 Y ^1 GETSCRN ; CSRLEFT XMove cursor left X #11 >1 #27 X ^1 GETSCRN ; CSRRGT XMove cursor right X #28 >1 #12 X ^1 GETSCRN ; %GETSCRN YIdentify char. at cursor L0 #4 ^1 L0  <1 L0 TEXTHI,Y T0+1 TEXTLO,Y T0 X L0 #11 ^2 L0  <2 T0  L0 T0 #0 (T0),Y X2  ; QUIT OPTIONS #34 PRTMES SENDFTRS #35 PRTMES TEXT   HOME ; %LOADSET UNSAVEDLoad set from disk >2 #37 PRTMES ^1 GETKEY #"N" >2 #"Y" <1 ^2 #20 PRTMES #9 MAXLTRS #30 CHORZ DRAWPLCS GETLN L1 BUF #"?" >3 CLRLINE ^3 CLRLINE #30 PRTMES PRTFILE #0 UNSAVED &RELOAD #0Reload set from memory L0 ^4 L0 CHRTBL,X  PLCCHR  #" " >5 HINV ^5 POUT #0 HINV GETLOC #8 ^6 (T2),Y >7  <6 L0 CHRTBL,X PLCCHR #" " POUT >8 ^7 #1 LOADED ^8 L0 L0 #91 <4  ; !ERROR #0Error encountered DOS DRAWDOTS GETSCRN HGR #17 PRTMES BELL BELL BELL GETKEY CLRLINE RESTART ; 'PRTFILE #0Send filename to DOS hook ^1 BUF,X L1 >2 DOSCOUT  <1 ^2 SAVE >3 #32 PRTMES CLRLINE ^3 SAVE #33 PRTMES CLRLINE ; PR1 #$D0 $200 #$D2 $201 #$A3 $202 SLOT $203 #$8D $204 $BE03  PR0 #$D0 $200 #$D2 $201 #$A3 $202 #$B0 $203 #$8D $204 $BE03  PRTMES $BF00 #76 PRTMS1 #34 PR1 #35 PR0 PRTMS1 #SRTMES /SRTMES T2 T2+1 T0 #0 ^1 T0 >3 ^2 TINC (T2),Y #50 <1 <2 ^3 TINC (T2),Y #50 >6 #MVE >5 #DOSON >4 DOS <3 ^4 #DOSOF >4 DOS <3 ^4 #PRTON >4 PTR <3 ^4 #PRTOF >4 PTR <3 ^4 DOS >4  DOSCOUT <3 ^4 PTR >4  COUT <3 ^4 POUT <3 ^5 TINC (T2),Y CH CH1 TINC (T2),Y CV1 CV ADJCSR <3 ^6 ; TINC T2Increment pointer >1 T2+1 ^1 ; &CLRMEM /CHRBUFClear memory buffer T0+1 #0 T0  ^1 (T0),Y  <1 T0+1  #$2B <1  ; GETLN #30Get line input #0 ^1 BUF,Y  <1 CHORZ CH1 #15 CV1 #0 ^2 GETKEY2 #$88 >3 #$FF >4 ^3 #0 >7  CH1 #$DF POUT CH1 <2 ^4 #$8D >5 #0 >7  ^5 #$9B >6 CLRLINE    ^6 MAXLTRS >8 ^7 BELL <2 ^8 GETSENT >4 #"," <7 #"?" >9 #0 <7 >4 ^9 #CHEND-1 ^1 CHRTBL,Y >3  <1 #0 <7 ^3 BUF #"?" <7 ^4 BUF,X  POUT <2 ; CMDT " ITCLSPDAZ?"  8983918C9388958A8B CMDS *-CMDT ; CMDJ TOGGLE,INVERT  TESTCHR,CLRGRID  LOADCHR,STORECHR  PRTSENT,DOWNLOAD  CSRUP,CSRDOWN  INSTR,INSTR,INSTR  QUIT,LOADSET  INSTR,CSRLEFT  CSRRGT,CSRDOWN  CSRUP ; YTABL 0080008000800080  28A828A828A828A8  50D050D050D050D0 YTABH 4040414142424343  4040414142424343  4040414142424343 ; TEXTHI 0607070404050506 TEXTLO 8C0C8C34B434B434 ; BITTBL 0102040810204080 ; FTRTBL 27,34,27,89,15 ; CHRTBL "ABCDEFGHIJKLMNOPQ"  "RSTUVWXYZabcdefgh"  "ijklmnopqrstuvwxyz" CHEND *-CHRTBL  "0123456789!#$%&'()"  "*+-.,/[]{}^",$DF,"?"  "<>=;",$DC,":",$A2," " CHREND *-CHRTBL ; SPCTBL E0FEFCFBFD SPCEND *-SPCTBL ; SRTMES "*",50 ;M01 MVE,0,0,"Imagewriter Print Studio by Allan Lamb" 5 MVE,0,1,"Copyright (C) 1989 by MicroSPARC, INC",50 7M02 MVE,2,0,"Imagewriter Editor instruction set"  MVE,0,4,"I / invert grid",CR  "L / load character",CR  "S / store character",CR  "P / print test sentence",CR " "T / test grid or character",CR # "C / clear grid or character",CR 0 "D / download character set to printer",CR,CR  "CTRL-C / Catalog",CR  "CTRL-Q / quit program",CR + "CTRL-S / save character set to disk",CR 0 "CTRL-L / load character set from disk",CR,CR  "SPACE BAR / toggle bit",CR - "ARROWS + 'A' & 'Z' keys / cursor control" * MVE,7,22,"Press any key to continue",50 or <2-9> (1/2)",50 ;M15 MVE,3,15,"Load which (A to ' ')-ESC to abort",50 8M16 MVE,5,15,"Spaces between characters (0/9)",50 @M17 MVE,1,15,"Error-probable bad filename-Press a key",50 "M18 MVE,0,15,"Sentence:",50 7M19 MVE,0,15,"Save which set (ESC to abort):",50 7M20 MVE,0,15,"Load which set (ESC to abort):",50 %M21 PRTON,27,43,27,73,PRTOF,50 M22 PRTON,27,39,PRTOF,50 M23 PRTON,27,36,PRTOF,50 "M24 PRTON,CTRLD,CR,PRTOF,50 %M25 MVE,15,15,"Downloading",50 M37 MVE,2,15,"Unsaved work in memory-Save it? (Y/N)",50 2M38 DOSON,CR,CTRLD,"CATALOG,DX",CR,DOSOF,50 DM39 PRTON,CR,CR,MVE,7,22,"PRESS ANY KEY TO CONTINUE",PRTOF,50 -M40 PRTON,$9,"L",CR,$9,"E",CR,PRTOF,50 ,M41 MVE,11,15,"Are you sure (Y/N)",50 +M42 MVE,11,15,"Which drive (1/2)",50 ;  $ ****************************G * STUDIO SAMPLE *j * BY ALLAN LAMB *( * COPYRIGHT(C) 1989 *2 * MICROSPARC, INC *< * CONCORD, MA 01742 *F ****************************1 PD$(4):NC$(27)"$":CC$(27)"'": ** Set variablesT ZD$"PR#1": ** Turn printer on{ dNC$;: ** Print normal characters n"I "; xCC$;: ** Print custom characters "A";: ** Print a heart NC$;: ** Switch back to normal print " my computer!"8 D$"PR#0":: ** Turn printer off and endL@_ .-10-0-0@ -.-0.1L&`  ***********************= * ZAPPER.DEMO *[ * BY JOHN A. WARD *y( * COPYRIGHT(C) 1989 *2 * MICROSPARC, INC. *< * CONCORD, MA 01742 *F ***********************P::3ZD$(4): CTRL-D d *** PART ONE - INITIALIZE ***3 nD$;"BLOAD ZAPPER.BIN"T xD$;"BLOAD APPLE.PIC,A$4000"] 768e 21 "PRESS RETURN TO CONTINUE.";:AN$ *** PART TWO - DRAW *** 145,90140,80 165,70 185,50 210,65 195,70 185,65 165,80 145,901 185,55187,57? :21:30M "OH!OH!"a "210,159190,80g , 6"PRESS RETURN TO REMOVE THE WORM!";:AN$ @ J *** PART THREE - ERASE *** T768 ^:21 h"TRY AGAIN? (Y/N)?";:AN$ rAN$"Y"170 |:: ***********************= * ZAPPER.DRAW *[ * BY JOHN A. WARD *y( * COPYRIGHT(C) 1989 *2 * MICROSPARC, INC. *< * CONCORD, MA 01742 *F ***********************P * DRAW APPLE *Z::3 dPI3.1416:A50:B50 nX0140:Y0306 xTHETA02PI0.10.1I RBA(THETA)c XX01.5(R(THETA))y YY0(R(THETA)) THETA0ēX,Y X,Y THETA X0,Y0X0,10