@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu  } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 138ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u  m   T}GTIA PIXEL AVERAGINGBY LYN BUCHANAN (c) 1985, ANTIC PUBLISHING( AdPIXEL AVERAGING ROUTINEnSU}ET AREA TO BE ENHANCEDoY-COORDINATE RANGEp-@@qX-COORDINATE RANGEr-@@wsSTOV}P ATTRACT MODEt@wx::LOCATE EACH PIXEL AND ASSIGN ITS VALUE TO A VARIABLEy1&@&@zW}1&@{1&@%@|1&@} 1~1%@1%@&@1%X}@1%@%@AVERAGE ALL PIXEL VALUES&&6-P:+%%%%%%%%,'@ ,LIGHTEN THE BY}ACKGROUND"6-@REPLOT PIXEL IN NEW COLOR,%@RETURN FOR THE NEXT PIXEL  Z} LOCK SCREEN IN GR.9 MODEA@w72@e@@A AaDRAW STICK FI[}GURE BIRD +@ AADDRAW TAILY-@@/,@%@uU/@%'@@\}q&'@Y DRAW BODY` -@@6@$B,@%'?`@t&`/@`&'@@t]}&C!,@%'?`@f%?/@`&'@@f%C DRAW WINGS-@@-,@^}@cK/@%@&'@q/$@%@ @f&'@/$@%@$@f&'@7!/@F_}%@ &'@3/@u@E7 DRAW HEADq @!-@@"G,@H%'@@`&'@`}m/@h&'@@`&'@q DRAW BEAK @!-@@3,@s@gI/@H%a}@g&M a-@@},@I%'@@g/@u@U DRAW EYE= !-@Tb}@V-,@`9/@b=  A+,C +A@(1A@(CA @->c}( (#(̠;( by Lyn Buchanan>(.OO(GThis demo program draws a stick-figurebird using normal PLOTd} and DRAWTO/QQ(Icommands. Then the program 'computer enhances' the image by sampling the0g&(color value of each pixele}, andd(9averaging it with the values of the surrounding pixels.g(1`](UThe BASIC routine is slow (takes about12 minutef}s), but the results are worththe wait.`(6SAR@'-@@"A(READY? PRESS ԠSB2y@g}@ F:B2y,@A JB2y@ A D1:BIRD.BAS(READY? PRESS ԠSB2y@R; COLORS (LISTING 3)MODULE:BYTE ARRAY dfault(5),CP ,C7=[52 24 130 194 0] ,C8=[52 26 0 194 208] ,CM=[52 24 194 130 80] i} PROC IncC():BYTE ii=cnow:cnow==+1:Position(10,23)IF i=3 THEN i=4:cnow=0 FIKolor(cnow):i=clor(i):PrintB(cnow)Position( j}18,23):PrintB(i RSH 4)Put(' ):Position(27,23)PrintB(i & 14):Put(' ):RETURNPROC IncHue():BYTE i,jIF cnow=0 THEN i=4 ELSE k}i=cnow-1 FIj=clor(i) RSH 4j==+1:IF j>15 THEN j=0 FIPosition(18,23):PrintB(j):Put(' )clor(i)=(j LSH 4)+(clor(i) & 14)C7(i l})=clor(i):RETURNPROC IncLum():BYTE i,jIF cnow=0 THEN i=4 ELSE i=cnow-1 FIj=clor(i) & 14j==+2:IF j>15 THEN j=0 FIPositio m}n(27,23):PrintB(j):Put(' )clor(i)=(clor(i) & 240)+jC7(i)=clor(i):RETURNPROC DfaultC():BYTE iFOR i=0 TO 4 DO C7(i)=dfault n}(i) clor(i)=C7(i)OD RETURNPROC SetDfault():BYTE iFOR i=0 TO 4 DO dfault(i)=C7(i) OD:RETURNPROC CPon():BYTE iFOR i=0 o}TO 4 DO clor(i)=CP(i) OD:RETURNPROC CMon():BYTE iFOR i=0 TO 4 DO clor(i)=CM(i) OD:RETURNPROC FixCol():IncC()DO WHILE ke p}y=255 DO OD IF key=18 THEN key=255:IncC() ELSEIF key=57 THEN key=255:IncHue() ELSEIF key=0 THEN key=255:IncLum() ELSE q}IF key=58 THEN key=255:DfaultC() ELSE EXIT FIOD RETURN THEN key=255:IncHue() ELSEIF key=0 THEN key=255:IncLum() ELSE ;; DISKIO (LISTING 7) MODULE:BYTE errBYTE ARRAY fln(16),abort=" Ġ"PROC MyErr(BYTE e)Position(1,16):Print("s}")PrintB(e):err=1:mes^=lin21Position(12,21):PrintB(e)WHILE key=255 DO OD key=21:RETURNPROC CIO=$E456(BYTE a,x)PROC IOt}2(BYTE cmd CARD buf,len)BYTE IOcmd=866 ;7-LOAD 11-SAVECARD IObuf=868,IOlen=872IOcmd=cmd:IObuf=buf:IOlen=lenCIO(0,32):RETUu}RNPROC Dir():BYTE i,j,lft=82BYTE ARRAY a(18),f(9)lft=22:Position(22,3)FOR i=1 TO 11 DO Pb(16):PutE() ODPosition(22,3):jv}=0Close(2):Open(2,"D:*.V3D",6,0)FOR i=1 TO 22 DO InputSD(2,a) IF a(0)=16 THEN EXIT FI SCopyS(f,a,3,10):Print(f) IF j=w}0 THEN j=1:Put(' ) ELSE j=0:PutE() FIOD Position(22,14):Print(a)Close(2):lft=1:RETURNPROC Inp(BYTE ARRAY f):BYTE iBYTEx} ARRAY a(10)SCopy(f,"D: ")Position(23,16):Pb(15)Position(23,16):InputS(a)i=a(0)+3:IF i>11 THEN i=11 FISAssigy}n(f,a,3,10):SAssign(f,".V3D",i,14)Position(23,16):Print(f):RETURNPROC SaveP():BYTE k:CARD n,tPosition(1,16):Print("Ӡz}Š ") Inp(fln)Position(1,16):Print("[S]-Š")WHILE key=255 DO OD k=key:key=255IF k<>62 THEN Position(1,16):Put('S){} Print(abort):RETURNFI t=Error:Error=MyErr:err=0n=8*P(0)+18:Close(2):Open(2,fln,8,0)IF err>0 THEN Close(2):Error=t:RETURN|} FIIO2(11,P,n):IO2(11,C7,5):Close(2)Position(1,16):Print(" Ġ ")Error=t:Dir() RETURNPROC LoadP():BYTE k:CARD n,tP}}osition(1,16):Print("̠ϠĠ ")Inp(fln)Position(1,16):Print("[L]-Ġ")WHILE key=255 DO OD k=key:key=255IF k<>0 THEN ~}Position(1,16):Put('L) Print(abort):RETURNFI t=Error:Error=MyErr:err=0Close(2):Open(2,fln,4,0)IF err>0 THEN Close(2):Err}or=t:RETURN FIIO2(7,P,2):n=8*P(0)+16IO2(7,P+2,n):IO2(7,C7,5):Close(2)Position(1,16):Print(" Ġ ")Error=t:SetDfault}():CPon()Position(30,19):Pb(6):RETURN2(7,P+2,n):IO2(7,C7,5):Close(2)Position(1,16):Print(" Ġ ")Error=t:SetDfault(; DRAW3D (LISTING 4)MODULE:BYTE vflag=[0],gflag=[7]INT sx,sy,mag=[3],cx=[80],cy=[90] ,rx=[0],ry=[0],rz=[0],ri=[30]CARD }sa1,dl1,dl2,lin16,lin17,lin18 ,lin19,lin20,lin21,lin22,lin23,lin15INT ARRAY P(809),eye,foc,R(9),E(9),M(9) ,Q=[21:10 5 5:}100:0 0 0:0: 50 0 0:18:0 0 0:2:0 50 0:2: 0 0 0:18:0 0 40:2:10 0 0:17: 10 50 0:1:20 50 0:17:20 0 0:1: 30 0 0:17:30 50 }0:1:40 50 0:17: 40 0 0:1:0 10 0:19:50 10 0:3: 50 20 0:19:0 20 0:3:0 30 0:19: 50 30 0:3:50 40 0:19:0 40 0:3]PROC FixP(}INT ARRAY Q):INT i,jZero(P,1618):j=4*Q(0)+8FOR i=0 TO j DO P(i)=Q(i) ODeye=P+2:foc=P+10:RETURNPROC Rot(INT ARRAY v):INT }x,y,z,s,cy=v(1)v(1)=y*cos(rx)/128:v(2)=y*sin(rx)/128x=v(0):z=v(2):s=sin(ry):c=cos(ry)v(0)=(x*c-z*s)/128:v(2)=(x*s+z*c)/12}8x=v(0):y=v(1):s=sin(rz):c=cos(rz)v(0)=x*c-y*s:v(1)=x*s+y*c:v(0)==/128v(1)==/128:Normize(v):RETURN PROC FixR():INT ARRAY} v(3),w(3),u(3)v(0)=128:v(1)=0:v(2)=0:Rot(v)w(0)=0:w(1)=128:w(2)=0:Rot(w)Vprod(v,w,u):Normize(u)R(0)=v(0):R(1)=v(1):R(2)=}v(2)R(3)=w(0):R(4)=w(1):R(5)=w(2)R(6)=u(0):R(7)=u(1):R(8)=u(2):RETURN PROC FixE():INT sE(6)=eye(0):E(7)=eye(1):E(8)=ey}e(2)Normize(E+12)IF E(8)=0 THEN E(3)=0:E(4)=0:E(5)=128ELSEIF E(6)=0 AND E(7)=0 THEN E(3)=0:E(4)=128:E(5)=0ELSE E(3)=-E(}6):E(4)=-E(7) E(5)=E(6)*E(6):E(5)==+E(7)*E(7) E(5)==/E(8):Normize(E+6) IF E(8)<0 THEN E(3)=-E(3):E(4)=-E(4) E(5)=-E}(5) FIFI Vprod(E+6,E+12,E):Normize(E):RETURNPROC FixM()M(0)=Vdot(R,E):M(3)=Vdot(R,E+6)M(1)=Vdot(R+6,E):M(4)=Vdot(R+6,E}+6)M(2)=Vdot(R+12,E):M(5)=Vdot(R+12,E+6)Normize(M):Normize(M+6)Vprod(M,M+6,M+12):Normize(M+12):RETURNPROC Maksxsy(INT AR}RAY v):BYTE iINT px,py,pz,t,d:INT ARRAY w(3)FOR i=0 TO 2 DO w(i)=v(i)-foc(i) ODIF vflag=1 THEN px=Vdot(w,M)/128 py=Vdot(}w,M+6)/128 sx=cx+mag*px/2:sy=cy-mag*py/2ELSE d=eye(3):t=mag*d/8 px=Vdot(w,M)/128:py=Vdot(w,M+6)/128 pz=Vdot(w,M+12)/12}8 d==-pz:IF d<4 THEN d=4 FI:d==/4 sx=t*px/d:sy=t*py/d:sx==+cx:sy=cy-syFI RETURNPROC CLR():Zero(sa1,7680):RETURNPROC }Draw(INT ARRAY P):BYTE iINT ARRAY ptpt=P+10FOR i=1 TO P(0) DO pt==+8 Maksxsy(pt) Kolor(pt(3) & 15) IF pt(3)<16 THEN Li}neTo(sx,sy) ELSE Dot(sx,sy):xnow=sx:ynow=sy FIOD RETURN) DO pt==+8 Maksxsy(pt) Kolor(pt(3) & 15) IF pt(3)<16 THEN Li<; GR78M (LISTING 1)MODULE:INT xnow=[80],ynow=[90]BYTE cnow=[1],key=764,ram=106,cur=752BYTE ARRAY mask7=[64 16 4 1],clor=}708 ,mask8=[128 64 32 16 8 4 2 1],mask,rowCARD dlist=560,sa=88CARD ARRAY adr(192):CARD POINTER mesPROC Kolor(BYTE c) RE}TURNPROC Dot(INT x,y) RETURNPROC Dit(INT x,y) RETURNPROC LineTo(INT x,y)INT dx,dy,xf,yf,a,b,t,iDot(xnow,ynow)IF x=xnow} AND y=ynow THEN RETURN FIIF x>xnow THEN dx=x-xnow:xf=1ELSE dx=xnow-x:xf=-1 FIIF y>ynow THEN dy=y-ynow:yf=1ELSE dy=ynow-y}:yf=-1 FIx=xnow:y=ynowIF dx>dy THEN a=dy+dy:t=a-dx:b=t-dx FOR i=1 TO dx DO x==+xf IF t<0 THEN t==+a ELSE t==+b:y=}=+yf FI Dot(x,y) ODELSE a=dx+dx:t=a-dy:b=t-dy FOR i=1 TO dy DO y==+yf IF t<0 THEN t==+a ELSE t==+b:x==+xf } FI Dot(x,y) OD FI xnow=x:ynow=y:RETURNPROC Gr78ON():BYTE i:BYTE ARRAY dlGraphics(8+16):adr(0)=sa:dl=dlistFOR i= 1 TO} 191 DO adr(i)=adr(i-1)+40 ODdl==-4:dl(0)=112:dl(1)=80:dl(2)=16FOR i=3 TO 198 DO dl(i)=dl(i+4) ODdl(199)=16:dl(200)=66:mes}=dl+201dl(204)==-4:dlist=dl:RETURNPROC Kolor7(BYTE c):BYTE ic==& 3:cnow=cFOR i=0 TO 3 DO mask(3-i)=c:c==LSH 2 ODRETURN}PROC Dot7(INT x,y):BYTE xb,xrBYTE ARRAY pre=[63 207 243 252]IF x<0 OR x>159 THEN RETURN FIIF y<0 OR y>191 THEN RETURN FI}xb=x RSH 2:xr=x AND 3:row=adr(y)row(xb)==& pre(xr) % mask(xr):RETURNPROC Dit7(INT x,y):BYTE xb,xrIF x<0 OR x>159 THEN RET}URN FIIF y<0 OR y>191 THEN RETURN FIxb=x RSH 2:xr=x AND 3:row=adr(y)row(xb)==! mask(xr):RETURNPROC Gr7(BYTE ARRAY d):BYT}E imask=mask7:Kolor=Kolor7:Dot=Dot7Dit=Dit7:d(3)=78:d(99)=78FOR i=6 TO 98 DO d(i)=14 ODFOR i=102 TO 198 DO d(i)=14 OD:RET}URNPROC Kolor8(BYTE c):BYTE icnow=c & 3:IF c>1 THEN c=1 FIFOR i=0 TO 7 DO mask(7-i)=c:c==LSH 1 ODRETURNPROC Dot8(INT x},y):BYTE xb,xrBYTE ARRAY pre=[127 191 223 239 247 251 253 254]IF x<0 OR x>319 THEN RETURN FIIF y<0 OR y>191 THEN RETURN }FIxb=x RSH 3:xr=x AND 7:row=adr(y)row(xb)==& pre(xr) % mask(xr):RETURNPROC Dit8(INT x,y):BYTE xb,xrIF x<0 OR x>319 THEN }RETURN FIIF y<0 OR y>191 THEN RETURN FIxb=x RSH 3:xr=x AND 7:row=adr(y)row(xb)==! mask(xr):RETURNPROC Gr8(BYTE ARRAY d):}BYTE imask=mask8:Kolor=Kolor8:Dot=Dot8Dit=Dit8:d(3)=79:d(99)=79FOR i=6 TO 98 DO d(i)=15 ODFOR i=102 TO 198 DO d(i)=15 OD:}RETURNask=mask8:Kolor=Kolor8:Dot=Dot8Dit=Dit8:d(3)=79:d(99)=79FOR i=6 TO 98 DO d(i)=15 ODFOR i=102 TO 198 DO d(i)=15 OD:10 ; G.U.P.20 ; BY DAREK MIHOCKA30 ; (c) 1985, ANTIC PUBLISHING40 START = $400050 *= START60 JSR INIT}70 .WORD RANDOM80 .WORD SQUARE90 .WORD DRAWTO0100 .WORD LINE0110 .WORD CIRCLE0120 .WORD CO}LOR0130 .WORD GRAPHICS0140 .WORD C1280150 .WORD CIRF0160 .WORD TEXTPLOT0170 .WORD ONEPLOT0180 .}WORD COLORN0190 .WORD SETCOLOR0200 ;FUTURE EXPANSION0210 .WORD END0220 .WORD END0230 TITLE .SBYTE " GRAPHICS} UTILITY PACKAGE. DAREK MIHOCKA"0240 ;ZERO PAGE VARIABLES0250 XLOC = 2030260 YLOC = 2040270 COL = 2050280 OFFSET = 2}060290 ONEORMANY = 2070300 XLOCOFFSET = 2080310 HBYTES = 2090320 ;THE FOLLOWING ARE TEMPORARY0330 ;VARIABLES STORED IN F}R00340 REG1 = 2120350 REG2 = 2140360 REG3 = 2160370 SLOPE = 2180380 MASK = 2200390 XMAX = 2210400 YMAX = 222041}0 XTEMP = 2230420 YTEMP = 2240430 IDEAL = 2250440 RAD = 2270450 ORAD = 2280460 RADS = 2290470 XC = 2300480 YC }= 2310490 YTEMP2 = 2320500 STRHI = 2330510 STRLO = 2340520 STRLEN = 2350530 LCOUNT = 2360540 ;THE SUPERFAST PLOT0550} PLOT LDA XLOC0560 AND #$07 ;0-70570 ORA OFFSET ;8n0580 TAX ;=MASK OFFSET0590 LDA YLOC0600 } AND #30610 TAY 0620 LDA MASKTABLE,X0630 AND ONEORMANY ;0 MAKES MANY0640 STA MASK0650 EOR #255066}0 AND COLOR,Y0670 STA COL0680 ;ENTER HERE FOR MORE SPEED0690 MINIPLOT LDX YLOC0700 CPX #1920710 BCS PLOT}FIN0720 LDA XLOC0730 YDIV0740 LDY #20750 BEQ MEM870760 LSR A0770 DEY 0780 BEQ MEM870790 L}SR A0800 DEY 0810 BEQ MEM870820 LSR A0830 MEM87 TAY 0840 MEM880850 LDA SCR.TABLE,X0860 STA REG208}70 LDA SCR.TABLE+$C0,X0880 MEM890890 STA REG2+10900 LDA (REG2),Y0910 AND MASK0920 ORA COL0930 S}TA (REG2),Y ;THE PLOT0940 PLOTFIN RTS 0950 XINT .WORD 00960 COLOR .WORD $FFFF,$FFFF0970 MUL .WORD 00980 ;MASK FOR PLOT0}990 MASKTABLE .BYTE 0,0,0,0,0,0,0,0,15,240,15,240,15,240,15,240,$3F,$CF,$F3,$FC,$3F,$CF,$F3,$FC1000 .BYTE $7F,$BF,$DF,$E}F,$F7,$FB,$FD,$FE1010 HLINMACH1020 LDA XMAX ;NO ENTRY FROM BASIC1030 CMP XLOC ;MAKE SURE1040 BEQ FINI.2} ;XLOC}:)7@<@,4:,@F267@<@,.D:,67@,.26.P APZ'( ('(Working...plea!?}se stand byd## "6-;,#6-@n 6."x.-@B:,@.ARAUL6-&@#!@}-@@L((Countdown...T-P:'@,) =!67<,.>:A:7<%@,,,/6-%@3 = A$6!A}-P:'AV,$6-&$AV @@- 6-C:,6-P:'AV,-6-&$AV[6-AH#!B}%@@1%@?%@M%@[%@ *6-?:C:hhhLV,<@,*@ +!C}( Ġ 1909cc2552550000641040710760680710550710390651120651400650300671420640590680720690240680420700280!D}71cc040071096071233072233072000000000039050033048040041035051000053052041044041052057000000034057cc000036033050037043!E}000045041040047035043033000000000165203041007005206170165204041003168189148cc06403720713322007325505714206413320516620422!F}4192176034165203160002240009074136240005074136240cc0010741681891050711332141890410721332151772140372200052051452140960000!G}00255255255255000000000$cc000000000000000000000015240015240015240015240063207243252063207243252127191223239247251253254.!H}cc1652211972032400411760061662031342211332031652210450380651332231652030450380651972232400691978cc20324002310120913322403!I}2073064230203165203197221240050197223240046197224208237169000133207032Bcc0730641652030241012091332030760150652302142080022!J}30215165205145214165203024101209133203197223Lcc208235169255133207032073064165203197221240005230203076023065096000104104104!K}141110065104104133Vcc204104104133221104104133222173110065197221144007166221142110065133221165204197222144006166222`cc13!L}4204133222173110065133203032194064230204165204197222208240173110065133203032194064096000000jcc0000001041412080652382080652!M}38208065173212065072169000072173210065072169000072173208065072104tcc074240219201001208003076073064141208065206208065104104!N}133203104104133204133226076182065173210~cc06513320317321206513320413322610414121106610413322114121006510410413322214121206!O}5032214065206cc208065208219096000000000000000000165222197204208003076180064165221197203208003076253066176018cc1662031!P}34221133203165204164222133222132204132226165221056229203141203066072165204133226169000cc141248070141211066104016006141248!Q}070078203066238203066165222056229204176009072169001141211066cc10407325502410500114120706616900003221406607214120706617320!R}5066133219169000141207066104024105cc0000322140661732050661332181691281332251692301411830661411680661732480702400050241022!S}19102218cc165219141213066201001208005165218141213066173211066240020165218073255133218165219073255133219cc169198141183!T}066141168066173213066240042032073064024165225101218133225165226101219133226165204cc19722624002023020416520419722624001219!U}7222240008032073064230204076170066032073064165203197221cc2400052302030761490660960000000000000000000000000000000001600080!V}56237203066008046205066014207cc066042040144006237203066076240066109203066136208233176004109203066024046205066096165204197!W}222cc144006164222133222132204032073064165204197222240011230204032073064165204197222208245096104104cc10413323010410413!X}3231104133225133226104133227240236141203066169128141207066169000032214066072cc1690001412070661732050661332191040322140661!Y}73205066133218169255133236165225024101218133225165 cc226101219133226170036226048181230236165231056229236133204189170069141!Z}146064169000141207066162cc008078146064144003024101227106110207066202208241234234133229173024068240037165230024101229133![}cc221165230056229229133203032194064165231024101236133204165230056229229133203032194064076086067(cc1652362080311652311332!\}041652300241012291332030320730641652300562292291332030320730641652291332cc228076086067165231024101236133204032245067165231!]}056229236133204032245067076215067165230056229<cc22813320316523005622922913322103218006416523002410122813322116523002410122!^}9133203032180064096Fcc001000000000000000016024016024016024008008008000000024016255000001255255255255255255001001001Pcc2!_}55255001000104104104141036069041015170189027068133206169234141141067141142067189043068240029Zcc201255240020201002240008169!`}074141141067076115068169074141142067076094068169010076096068189038dcc06914107006918905406914103806518925007014110806414102!a}6068189010071133209138201012016022173036ncc0690321080691730360690410152010090480651690041411910022080581730360690410481410!b}26071173036069xcc041003170072189026069013026071032108069104170189032069141031069174036069160202177214041191205cc030069!c}208009177214041240013031069145214136208235162008189096071157192002202016247165088024101cc20813322514110507116508913322614!d}1041072160001024165225109070069133225153105071165226105000133cc2261530410722001921922082310960000000080080000000040050120!e}14000000040020020010010020020040040cc040040040040040020040255255255252248252248252248254254254255255248252000000104104141!f}033002104cc141032002104104170169255141046002173011212024101020010141010212157018208173046002208238096072cc16209616901!g}2157066003032086228162096169003157066003169168157068003169069157069003104157075003cc0412400730281570740030320862281730480!q}3B%DOS SYSB*)DUP SYSBSBIRD BASB hCOLORS ACTBrDISKIO ACTBDRAW3D ACTBGR78M ACTBGUP ASMB:;GUP BASB)~GUP DMOBGUP EXEBHOUSE V3DBCINKLLOOMBASB LAURA B MENU3D ACTB MISC1 ACTB} MUSIC BAS02133214173049002133215160007177214141030069096083058153cc153153153153153153153153153153152152152152152152152151151151151!r}151150150150150150149149149148cc14814814714714714614614614514514414414414314314214214114114014013913813813713713613513513!s}4134cc133132131131130129128128127126125124123123122121120119118117116115114113111110109108107105104cc1031021000990970!t}96094093091090088086084082081079076074072070067065062060057053050046043038033cc027019000104104104133203104104133204104133!u}233104133234104104133235198235160000165234133214165cc23313321517721413222407204109607407407407407416818524407013322310404!v}1159005223133218169000133cc219024038218038219038218038219038218038219165218133214165219024105224133215160007132232152024!w}cc101204170165203074074024125105071133212189041072105000133213165203041003170024164232177214133cc216169000133217102216!x}102217202016249160000173242070049212069216145212200173242070049212069217"cc14521216423213601618323020323020323020323020316!y}5203201152144016056233152133203165204024105008,cc1332042011841440001642241962352400042000760650700962550000640000320960000!z}000000000000020030026cc003002003001001001000000003002001001001004008004008004008002002002001001008004000000104104104@cc!{}133203104104133204076073064104162004160000104104153142064200202208247096104162003173010210157Jcc14206420201624709616508813!|}3212165089133213160039185033064145212136016248169255133207169036141T<<1980020960000000000000362061502550002240022250020000!}}64 D1:GUP.BAS<<1980020960000000000000362061502550002240022250020000 E0wSTARVBBOLINCIRCLC12CIRTEXGRAPHICCOLODRAWTPLOTUSECOTYPRANDOHOROFFSESETCOLOKBc%}BfyBgBqBw6Bt2BybBw6 Btg @Q Be& @1 BgRB@9A%}A Bw6@BB1ABr ##GRAPHICS UTILITY PACKAGE DEMO%}BY DAREK MIHOCKA (c) 1985, ANTIC PUBLISHING(6-Bc*F:,"@v@P,TA@fT(:} %} G.U.P. Machine Language routines are not in memory!.f(c(X This demo cannot RUN without theseroutines. See article%} for additional information.f2))6-F:%@,%AV$F:%@,<))6-F:%@,%AV$F:%@,F))-F:%%}@,%AV$F:%@,P))6-F:%@ ,%AV$F:%@,Z))6-F:%@,%AV$F:%@,d))-F:%@%},%AV$F:%@,n))-F:%@,%AV$F:%@,x))6-F:%@,%AV$F:%@,))6-F:%@%},%AV$F:%@ ,))6-F:%@!,%AV$F:%@",))-F:%@#,%AV$F:%@$,))-F:%@%%},%AV$F:%@&,))-F:%@',%AV$F:%@(,6-ABEGIN MAIN PROGRAM A %}@&6-?:<@,&ARAU..(&}The same routine in GR.15 with G.U.P.U,($using multiple parameters f%}or speed.U6-?:<@<@<@<@,I-@y@-6-'@;6-AY&I6-AY&%} 6-?:<<<<<<<<<<, ARAU--(%}Twice the pixels in half the time...",,($How about some mu%}lti-color displays?,S,6-?:<Ad<@)<A4<Ae,6 A`S-@y6@66-?:<<<<AY%}&,@,,6-?:<AY&<AY&<AY&<,J T A^&6-?:<@,&ARAUh**("}And now, %}the Super Fast CIRCLE...rFF(>30 CIRCLES DRAWN IN 4.8 SECONDS (6 CIRCLES PER SECOND!)|-@@0 6-%}?:,((6-?:<@`%<@`%<@`,  A6-?:<@,.ARAU.(More fast circl%}es... -@@6@>6-F:@ ,#6-?:<<<<,>6-?:<@y<@y<,O,6-?:<<%}<<,O6-?:<@y<@y<&@,  A&6-?:<@,&ARAU,,($} And %}now, some more LINE drawing...-@p A`@@6-?:<<<%@y<<%@y<%@y<<%@y%}<<,&:,6-?:<<<<,:6-%@0@@6-?:<<<%@y<<%@y<%@y<<%@y<<%},: D ANP6-?:<@,&ARAUP(%}Of course, circles can be left emptyX A`b%}l-@P@v,,6-?:<Ap<Ap<Ap<Ap,&&6-?:<%@E<@y<@`,,,6%}-?:<<<<,&&6-?:<%@F<@y<@`, 0 A6-?:<@,0ARA%}U (} THE BOX...6-@p%6-@$66-?:<<<<,($6-?:<<<AY&<AY&%},(  A +@ARAU--(%}How about mixed text and graphics???)-@%%%}AU) -@@P]]6-?:CC6-?:<@(<@2<952.+&!hhhhhhhhh֥ױքH)`JJJ)}JJFh)߅ک&&&&&&ۥڅ֥iנe̪JJ}iGԽ)Hiե)օةffF1EؑȭF1EّԤ)}˥ɘ8阅˥iɸLAF`@ `hhhhhLI@hhh@`h ҝ@`XԥYՠ)}'!@Ԉϩ$`$Ζ@@ `hhhhhLI@hhh@`h ҝ@`XԥYՠ("3 <<(2(<<(<2<(<-}(<(<22(<(   22  -}( ( <  <<<  <   77  7-} 7  777 74  77  7,8 !/!ANSCLCL1SBSB1CRECTCLLDADDRESCRMODIJNWEAVAMOFROTADADHADLLO1}(+(STU@@ @I @ A AT @@@@1}@@@AA@A6@AB1AdB@ 1}!V"#$%&'B(@t)Ai* COLOR INKLE LOOMGERALD M. HAGO1}PIAN (c) 1985, ANTIC PUBLISHING(RR;@,;@@,;@@,;@,;@,;@,;Av,2;61}7@,.#67Av,.267@,.;6-C:,<6-F A  A P A 0Z%%6-F:@,%F:1}@,$AVd'6-6-@'6-@nNN6-?:C:.hhhhhhh`,<<<1}Av,x''A@:7Av<Av,,G-AA9@:7%Ait<%Ait,,= G AP'A1}@'A@4-@@y#'@Q2AU&+$@,@@],AP1}i/A`m 2 AAY@4 AF-"(>:A%1},4AR@FA@40-(%A B C D E F G H I J K L M N O0$LOOM SET UP.@.@1}@K:6- A A A0n-@8(Number of threads per h1}arness?I( (LIMIT 39) MP(n @)!@9A0 B AK-@*(SURE? (Y/N) 1} 7)@K@A0O6-@6-%@+,1/7,A@O/$@HARNES1}S SET UP@@.@@K:@AR@"'6-@6-'6-@,-@1}6| A-@;(Harness #1: Thread # Q( Color Selection?^)@| @d)!@yA1}@ AJ6-&@dT67<,.>:,^'-%@,#/' he-@*(Color OK (Y1}/N) ?7)@C@Q6-&@e@Ar |)6-@6-@)6-%@-@1}| A-@;(Harness #2: Thread # Q( Color Selection?^)@| @d)!@yA1} A6-&@d67<,.>:,'-%@,#/' e-@*(Color OK (1}Y/N) ?7)@C@Q6-&@e@A C-1(} Press START to weave.C1}B2y@ F:B2y,@AB2y@WEAVING ROUTINE/-/(} 1} WEAVING-@@y!O2AU&+$@,@@[,APg/A`k 21}'6-@6-'6-@#-@@#6-@&-@06.1}7<,:6-@:,&@dDT-%@@2H:@,$AU@@DJ,P/T N)%21}) X+6-@6-%@+6-%@b-@l6.7<,v6-@:,&@dT1}-%@@2@H:@,$AU@@DJ,P/T E%2@) 76-1}%@E6-%@ JJ6-?:C:.hhhhhhh`,<<<Av,&&67Av<Av1},.>:F:A,,4-AvAv067<,.>:F:&Ait,,4 VALUE CHANGE OF WEAVINGQ0((}Do you wish to cha1}nge the value? (Y/N) =)@Q@A A0f;(3}Type a letter between A (darkest) and O (lightest1})H)@f @e)!@yA06-&@dY6-F:A,A4(}Value OK? (Y/N)A)@1}M@YA@A0 B R(}Weave again? (Y/N)()@4"@> A0R1}"@AD(}Return to menu? (Y/N)+)@7"@:'D A ?(} Leave program? (Y/N)+)@1}?@A*C(} Sure? (Y/N)*)@6"@@+C4TITLE ROUTINE>1+@%1}@@1-H}-@8(@*********L-@@0y2H:@1},$A@@} Rm$(@**********8-@@0e2@H:@,$A@1}@i m \-@A =2_2@2@1}@@@-@(@ THE fr-@A =2A!@1}@O-@r(@ COLOR LOOM p-zp-@A =2@@1}@@O-@p(@ BY GMH -@A 7-@321}7 $SET UP TEXT WINDOWvBB+@1@@CA#A1}sF:A`,%AV$F:Aa,%AfACv#b6-A6!BB@d5-@9"A%E V6-P1}:'AV,bAnA&AV$+BBAn72,173,111,2,41,63,141,10,212,141,27,208,169,0,141,26,201}8,104,64$ MENUE+@%@'-@@E(@ ** MENU **-@A 1 1}+AR@1AA.-@+( MENU.($$( 1 CREATE NEW WEAVIN1}G( 2 SAVE WEAVING""( 3 LOAD OLD WEAVING$( 4 LEAVE PROGRAM.(( Selection 1}?8.@.@@K:B.)@. @I)!@RAL6-&@HV''@1}A0AA` AjSAVE PATTERNtI( (I(; Save to: 1..CASSETTE 2..DISKE1}TTE~.)@. @I)!@PA@&@HApAR(!(Place tape in recorder;(Press R1}ECORD and PLAYR(Then type ΠAdAU F:Ad,@AAdAU-#@1}@A(C:- Ad( (0("Insert diskette and press Π=)@d@@ D:W1}EAVING$( ( ($( ǠΠ$6-P:'AV,$6-&$AV6-F:@,?6-Ad#%@1}@1%@?%@+%@@+%@ @0*6-?:C:hhhLV,<@2,*@$1}LOAD OLD PATTERN K( (K(=Load from: 1..CASSETTE 2..DISKETTE.)@. @I1})!@PAAR@(&@HA0Ap2#( (#(Insert and queue tape<##(press ٠1}, type ΠFAdAUH F:Ad,@ARJAdAUP-#@@A(C:1}- A Z0( (0("Insert diskette and press ΠdAdAUn F:Ad,@AxAd1}AU**@@ D:WEAVING%( ( (%( ǠΠ A 0$6-P:'AV,$6-&1}$AV?6-Ad#%@@1%@?%@+%@@+%@ @0*6-?:1}C:hhhLV,<@2,*@##A@:7Av<Av,,K-AA5@:7%Ait<%Ait,,9 1}KAY6-@' @ERASE WEAVING AND RESET!!(} ERASING OLD PATTERN5-@@1}@$67<,.@167<,.@5  6. 6. 6. '6-@6-'6-@#-@@1}#6-@"-@,6.7<,66-@:,&@d@T-%@@2H:@,$AU@@1}DJ,P/T J)%2) T+6-@6-%@+6-%@^-@h1}6.7<,r6-@:,&@d|T-%@@2@H:@,$AU@@DJ,P/T E%2@1}) 76-%@E6-%@ $D2:INKLLOOM.BASABCDEFGHIJKLMNOABCDEFGHIJK1}LNO) 76-%@E6-%@ $D2:INKLLOOM.BASABCDEFGHIJKLMNOABCDEFGHIJK01223yQ@@yfD@DUQUHHl`[HHrLHL`[`ћlQyff5}ۛ[ff[f[̛lQQ̛lfQD̛22yf̛LyfHlHl5/<56}yQ@@yfD@DUQUHHl`[HHrLHL`[`ћlQyffۛ[6}lfUHl[>:}")PrintE("eye dist. mag")PrintE("PreRotated ri=")PrintE("Center Focus":})PrintE("ݠ堠ݠ")PrintE(" Ҡ [any key] - MENU")PrintE("pt# color")Print(:}" àolor Ƞue ̠um Ġefault")lin15=sa+600lin16=sa+640:lin17=sa+680:lin18=sa+720lin19=sa+760:lin20=sa+800:lin21:}=sa+840lin22=sa+880:lin23=sa+920:RETURNlin15=sa+600lin16=sa+640:lin17=sa+680:lin18=sa+720lin19=sa+760:lin20=sa+800:lin218*; MISC1 (LISTING 2)MODULE:BYTE st:INT ARRAY jx=[1 1 1 1 1 2 2 2 1 0 0 0 1 1 1 1] ,jy=[1 1 1 1 1 2 0 1 1 2 0 1 1 2 0 1]>}BYTE ARRAY b=" "PROC Setjxjy(BYTE i)FOR i=0 TO 15 DO jx(i)==-1:jy(i)==-1 ODRETURNPROC Pb(BYTE i):b(0>})=i:Print(b):RETURNPROC Wait(CARD w,j)FOR j=0 TO w DO w==+1:w==-1 OD RETURN; TRIGMODULE:BYTE ARRAY Si(91)PROC SetTrig>}(BYTE t INT y)FOR t=0 TO 90 DO y=(t*t)/45 y=(y*t)/5:y=100*t-y:y==/45:Si(t)=yOD RETURNINT FUNC sin(INT t,y):t==MOD 360I>}F t<91 THEN y=Si(t)ELSEIF t<181 THEN y=Si(180-t)ELSEIF t<271 THEN y=-Si(t-180)ELSE y=-Si(360-t) FI RETURN(y)INT FUNC cos>}(INT t,y):t==MOD 360IF t<91 THEN y=Si(90-t)ELSEIF t<181 THEN y=-Si(t-90)ELSEIF t<271 THEN y=-Si(270-t)ELSE y=Si(t-270) FI>} RETURN(y); VECTOR INT FUNC ABS(INT x)IF x<0 THEN x=-x FI RETURN(x)INT FUNC SQR(INT x):INT yIF x=0 THEN RETURN(0) FI:x>}=ABS(x):y=0DO y==+1:IF y*y+y>x THEN RETURN(y) FI ODINT FUNC Vdot(INT ARRAY v,w):INT xx=v(0)*w(0):x==+v(1)*w(1)x==+v(2)*w>}(2):RETURN(x)PROC Vprod(INT ARRAY v,w,u)u(0)=v(1)*w(2):u(0)==-v(2)*w(1)u(1)=v(2)*w(0):u(1)==-v(0)*w(2)u(2)=v(0)*w(1):u(2>})==-v(1)*w(0)RETURNPROC Normize(INT ARRAY v):INT i,j,si=ABS(v(0))j=ABS(v(1)):IF i}i=j FIIF i>100 THEN j=1+i/100 FOR i=0 TO 2 DO v(i)==/j ODFIFOR j=0 TO 1 DO s=Vdot(v,v):s=SQR(s) FOR i=0 TO 2 DO v(i)=v>}(i)*128/s ODOD RETURN+i/100 FOR i=0 TO 2 DO v(i)==/j ODFIFOR j=0 TO 1 DO s=Vdot(v,v):s=SQR(s) FOR i=0 TO 2 DO v(i)=v<==STEMPPITCSONGCCCSUSCYPOYPONTTTEMCHRBASPMBASCHADESCNTFLAMOVEFLAXPOSHARPFLANTTYPRFLAB!}STEM1STEM2STEMFLAGDOEIGHTFLAFIRSTTIMNSCALESVEXPOSUBFCHCXSIXTSEVENTGOODCHASECONDPASOSOSFILENAMECSNAMEB"}ESTAR B#}B$} !"#$%&'()*+,-B%}./0123456789 THE MUSICIANBY B&}ANGELO GIAMBRA (c) 1985, ANTIC PUBLISHING(+6-@!@e+ A `2F:@ , @P<6-F:B'}Ad,$F'-@&@'6-@:7<,,PK"AU-@:7%@<%@,,K@:7%@<%@,,B(}ZI"AU-@:7%@<%@,,;6-%@? I Ad7"AT'3B)}7 nA!A(6-@)6-&A(5"A%A6-A(x/ @ /"Ap1!@B*}6-@'6-@1 AX6-@:7<,,'!A1* AG56-&A(;-J(@X6-%@B+}J!A* A'6-&A--<(@bJ6-%@^ -(@$-&@3(@B,}A-&@P(@^6-%@E6-@:7<,,$ @P+)"76-; E A3AB-}U!AdAU-"@(36-B7` N6-'3?B.}K6-N$iB2w6.)6-@C0@O6-@i0@@B/}e0@@@70@@T@A+@SAY@FeB2w@'@A'BB0}7tA;AV'AV)-@;(@playvB7aAp'B7cAh9B7eAB1}hKB7gAh]B7hoB7u@sv$iB2T@`'B2UA9B2`EB2}BByY-AAe@hi y-B2VB2Y#@' 9B2H@`KB2I@]BB3}2PA$oB2QAVy @p@@"--@@)67<,.- ,;-@B4}@)67<,.- ;-@6f@67<,. -6-%@?B7bQB7dB5}cB7hf$@I-@@":(@  F6-I$J-&@ AB6}`T$-%@$(@ ^&-&@ (@ &-h"@(@r"@B7}(@|"@(@b  $ 6-@6-%@ $ A0.-%@ (B8}@ .-&@\(@ (-%@%@7(@ M-%@&@\(@ QB9}-&@%@,(@ B-&@&@Q(@ $-%@$(@  -(@B:} W@*"'-&@8(@ F-&@W(@ F#"@)"@)"B;}@9-%@&@F(@<"@)"@/-%@&@<(@*"@-%@B<}*(@,"@-%@,(@ $-%@$(@sL)"@-&@B=}.(@ <-&@L(@  A &POLL JOYSTICK0(6-R:,("@)A:=B>}"@!@)6-&@3 A= APD="@ @)6-%@3 A= APN:6B?}-F:Ad,AU0AdAU: A X T:,"A b APlO"@B!-@@"B@};(@ exit y or nE A$O APvL"@F6.>:A9,*6-@66.wholeB6-L A BA}i"@#67<,.>:AT,16-%@C-@@"_(@chord off i AP"@ABB}#"@E Ap# AP#"@c A# Ap#" A# A K"@WBC}6.>:A9,*6-@56.halfA6-K Ap"@@A @N"@G6.>:AH,*6-@BD}86.quarterD6-N Aph"@S6-@*6.>:A$,76.eighthC6-@O6-^6.>:AHBE},h A k"@'6-@*6.>:A$,:6. sixteenthF6-R6-@a6.>:AH,k A lBF}"@&6-@*6.>:A$,;6. thirty secG6-S6-@b6.>:AH,l A %"@46-BG}@% A #"@ Ap# AP%"@b6-@% A  "@T6-@/-@BH}@Q2@@@e-@@i 2 9-@@"BI}/(@ song cleared9 A  A *1-@A '6-1 A! 4%"@!6-@BJ}% A >%"@6-@% A H/"@ A%6-/ A! R#"@ AP# BK}A \%"@56-@% A fQ-%@&@,(@ B-%@&@Q(@ BL}p%(-%@%(@ z A AP#@ A# APf-&@ (@BM} .-&@=(@ AW-%@&@f(@ N-%@&@,(@ 1(?-%BN}@N(@  A AP"@6. #"@6.#6-@ "@6.BO}/6-@"@% A/ AP!@A3 @%-@@/ A3 BP} AP2-@6@$ A( 2 AP6-+"@,$@%+"@,$@%+"@,$@BQ}%+"@,$@%+"@,$@%%+"@ ,$@(%+"@,$@4%+"@,$@@6-%+"@,BR}$@C%+"@,$@I%+"@,$@U%+"@,$@a%+"@,$@d%+"@,$@p%+"@,$@vBS}"@6-&@"@6-%@$"@6-.3)2@@@BT}3 A8//2A:7<%@,,@@Bj-@@P =2I6BU}-AMj67%@<%@,..L6-A $+"@,%@`$+"@,%@0$+"@,%@$+"@BV},%@$+"@,%@$+"@,V6-$@P`C6-A:7<%@,,+6-%A(7"AVC6-BW}ASj67,.>:,67<,.>:,tK67,.>:,%6-16-?6.quarterK6-@~;67<,.>BX}:,"@;67<,.>:@:7<,,%A(,-"@-67<,.>:@:7<,,%A,MAKE NEW NOTE:6-%@BY}#-@24>:AH,:6.4>:A9,6.o= 6.6.6.`'"36-@= ABZ} / A B#6./6-Q6-6-#6-%@/!@;6-@G6-@Q B[}A!0"@6-@G6.>:A0,!6.>:A0,06.>:A$,84G6.>:AH, 4o6.>:AB\}9,/6-6-% A/ APd-@@"3(@ enter chord E-@@#d(B]}@then press returnw-@@92@@@M-@@Q s2B^}w  [6. /@@K:AAM6-@[6-&@&6-F:AB_}d,&"AUA6)@"AdAU6"AUAp("@A267<,.>:,<'B`}>:,4667<,.'6-@F'>:,4767<,.'6-@P6.7<,Z& 4+6.>:@,&6-@Ba}d& 4-6.>:@,&6-@n& 4#6.>:@,&6-@xS 4*@*-&@@ =(@Bb} I6-S A0774a)4b)4c)4d)4e)4f)4gAP+4m)4j,*A`+Bc})),*A` A6-@N-@ (@(6-66-%@D6-%@N ABd}C@ A@d,6-C6.7@<@,ww6-A$+4c,%A$+4d,%A$+4e,%@Be}$+4f,%@$+4g,%@$+4a,%@y$+4b,1"@6-@'6-@!1 AZ6-@6Bf}-@!'6-@@7@<@,4#N6-&@Z6-@67@<@,4b*6-%@66-@Bg}6-6-@'6-6-@07<,4+6-@$(7<,4d6-@ (6-Bh}@(7<,4-6-@(6-@"E7<,4m-7%@<%@,4 96-@ E6-@!,F7:AU,E67%@<%@,.>:ABk}:7<%@,,,Tg567%@<%@,.>:A:7&<&%@,,,g67%@<%@,.>:A:7&<&%@,,,^Bl}6-6-)6-%@;-@@"Z(@ l-@@#(@ Bm} h--@@""(@*4*-$r72@:7&@<&@,,@@k2@@:7Bn}&@<&@,,@@2@@:7&@<&@,,@@|-@@  =2Bo}_2@2@$w-@@92Bp}@@@M-@@Q s2w [-@@ /(@ cBq}hange tempoA-@@"[(@ n-@@"b(@>:AC,>:A6,>:A9,>:ABr}G,>:A),>:AB,n6-?%6-R:,n"@!-@@"n(@>:A0,>:A%,Bs}>:AC,>:AD,>:A),>:AB,6-6?% A"@A T:,"A`Bt} A 6-%-@@A2@@@U-@@Y {2Bu} d-@@ 0(@ B-@@"a(@  d$_6-&Bv}@%-@@G2@@@[-@@_ R%2) Bw};-@@"R(@ cancelledU-&@!(@ /-&@?(@ E-U(@ Bx} $-&@$(@ $-%@$(@ &! 6- @!6-@0 @ABy}P:d'@:7&@<&@,,"AU56-&@G-@@"d(@chord cancelledDJ-@ABz} --@@"J(@ N APX917<,44)7<,46)7<,48)7<,4396.\bB{} A lP +@B2w1AY@4P(@ ENTER SONG NAMEvc"@@KB|}+6.D:76-@B(@M(@c(@ '@A'B7tA*)@"B}}AU'@*$"A&3-+F:@,&@,+F:@,,C(@ g-+F:@,&@,+F:@,,B~}u6-&@ A0>:,2A)>:,3ZA0@67,.>:,((@>:%A(,66-%@@ A0aBB}:,"@2@@C:F-@A(S*@W a A @@B}t(@%(@&@;-@&@D6.7,Q(@U k-@&@t6.7,e(@B} *-@&@36.7,@(@D O@[6-e A! 6- A @aB:,"B}@2@@C:F-@A(S)@W a A P* @@* A PB}@ A! L6-@6.! A,@6 AB6-L A!  INITIALIZE SCREEB}N]];@,;@,;@,;A,;A,;A,;@,;@, L&;A,;@,;B}@,46.quarterL;@,;@,*mm6.c0280290310330350370400420450470500530570600640680720760810850910961021B}081141211281361441531621731824;%67A,.193204217230243255/ A";6-@>36-B7`6-B7b'6-B7dB}36-B7fHM 6.6.6.'6-@56.quarterA6-@M6-@R|B2w+@90B}PAVP:'AV,b-@|(@ the musician\'@A'B7tAB}f-@@""(@4AY@FFB2w@XB2T@`jB2UA|B2`B}A#@pG-%@# 7-AACA G zo-B2VB2Y#@B}' 9B2H@`KB2I@]B2PA$oB2QAV6-$ AO +@B}6-BxVO6-P:++F:A,&@,$AV,'A$,$A$CC6-P:+++F:A,&@,$AV,'A$&@,B},$A$'@A'B7tAq-@@#-@=(@ A L(@B}W(@q(@ rev.1.0:;@v,$-@@v("667<,.>:,: 55104,104,133,193,104,133,1B}92,104,133,197,104,133??196,169,226,133,195,169,0,133,194,160,0,162,0,177,194,14588192,200,192,0,208,247,232,224,5,24B}0,10,230,193,230;;195,160,0,169,0,240,232,162,0,160,0,169,0,145,196,200BB192,0,208,249,232,224,5,240,8,160,0,230,197,B}169,0,240,236,96Z6-?:C:,<<,'6-BsD%Av?-%Av%AHF:,V6-%@Z  J6-BsD%AB}/-%A%A8F:,F6-%@J  ^6-BsD%@$/-%A(%A58F:,F6-%@B}J ^6-BsD%A J-%@%A$F:,26-%@6 J6-BsD%A$ 6-%AV%AcB}$F:,26-%@6 . O-%@%@"%) A-%@d%@qE"KO 8 )-%@HB}%@U"%) B  6-6-'AVL ;+-%A%@I%A%@7A@; V k3-%A%@IB}%A@&@A@?AUW-%@%@cg k ` k3-%A@%@I%Ah&@AB}@?AUW-%@%@cg k j k3-%Ah%@I%A&@A@?B}AUW-%@%@cg k t k3-%A%@I%A$&@A@?AUW-%@B}%@cg k ~ C@P:'AV,76-&+P:'AV,$AV,C@ 3BBy!AYB}@F3B2w@ B7`$ 48,24,28,48,24,28,48,24 48,62,4,8,8,16,16,32 0,36,44,52,36,4B}4,52,4 &6-F:Ad,&"AUA$ QAdAU!@C3-@@"N(@ Q$B} -@@   6-?:B, D:MUSIC.BAS!@C3-@@"N(@ Q$@A