@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@P1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} |||DDOS DOSDOS SYS }}}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   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;DELV䌚 !B y`@ʆ 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 V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED COPYING---DN:4}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 1.?}D1:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 128ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uTABAYWXYEXI@A AA @VR V}A 0 *** *** *** Ġ٠Ġ *** =&9@,9@,9@,=6-H:,$@W}v+@%@/0@@@9@2K,@@^(@FUGUEr-@A v X}w+@%@/0@@ I0@@@c0@@ @w0@ @Y}S-@3,$@%@O/@9$@%@S 9-@&68,-Z}568,-@9  A0,-@"$68,-.@:,8,8,D@[68,-P:8,'@,t[}68,-$@%@,8,8, 6(28,@@M2@8@,@@r2@\}8@,@@2@8@,@@ AJR-@32]}7 K-@AO R%))81,0,0,0,81,0,0,0,81,0,0,0,81,0,0,0))53,0,0,0,53,0,0,0,53,0,0,0,53,0,0,0))68,0,^}0,0,68,0,0,0,68,0,0,0,68,0,0,0))68,0,0,0,68,0,0,0,72,0,0,0,72,0,0,0))81,0,0,0,81,0,0,0,68,0,0,0,68,0,0,0))72,0,0,_}0,72,0,0,0,81,0,0,0,81,0,0,0$))85,0,0,0,85,0,0,0,72,0,0,0,72,0,0,0.--108,0,0,0,108,0,0,0,108,0,0,0,108,0,0,08++81,0,`}0,0,81,0,0,0,108,0,0,0,108,0,0,0B++72,0,0,0,72,0,0,0,108,0,0,0,108,0,0,0L))68,0,0,0,68,0,0,0,72,0,0,0,81,0,0,0V++72,a}0,0,0,72,0,0,0,108,0,0,0,108,0,0,0`**81,0,0,0,81,0,0,0,108,0,0,0,81,0,0,0j**72,0,0,0,72,0,0,0,108,0,0,0,72,0,0,0t))6b}8,0,0,0,68,0,0,0,72,0,0,0,81,0,0,0~**72,0,0,0,108,0,0,0,53,0,0,0,60,0,0,0))68,0,0,0,72,0,0,0,81,0,0,0,68,0,0,0))72c},0,0,0,81,0,0,0,85,0,0,0,72,0,0,0**81,0,0,0,108,0,0,0,81,0,0,0,72,0,0,0))68,0,0,0,60,0,0,0,53,0,0,0,47,0,0,01145,d}108,0,0,47,108,0,0,53,108,0,0,45,108,0,0--47,72,0,0,53,72,0,0,57,72,0,0,47,72,0,0--53,91,0,0,53,91,0,0,72,91,0,0,72,9e}1,0,0--53,91,0,0,53,91,0,0,47,96,0,0,47,96,0,0//45,108,0,0,40,108,0,0,45,91,0,0,40,91,0,0//45,96,0,0,40,96,0,0,45f},108,0,0,40,108,0,0//35,114,0,0,40,114,0,0,35,96,0,0,33,96,0,01135,144,0,0,40,144,0,0,45,144,0,0,47,144,0,01145,1g}08,0,0,35,108,0,0,40,144,0,0,35,144,0,0 //57,96,0,0,35,96,0,0,40,144,0,0,35,144,0,0..53,91,0,0,35,91,0,0,40,96,0,0,35,h}108,0,0//57,96,0,0,35,96,0,0,40,144,0,0,35,144,0,0(1145,108,0,0,53,108,0,0,57,144,0,0,53,108,0,02..40,96,0,0,53,96,i}0,0,57,144,0,0,53,96,0,0<..35,91,0,0,53,91,0,0,57,96,0,0,53,108,0,0F..40,96,0,0,53,144,0,0,57,72,0,0,53,81,0,0P..72,j}91,0,0,72,96,0,0,45,108,0,0,45,91,0,0Z//81,96,0,0,81,108,0,0,47,114,0,0,47,96,0,0d0091,108,0,0,91,144,0,0,72,108,0,0,72k},96,0,0n--53,91,0,0,53,81,0,0,45,72,0,0,45,64,0,0x--50,60,0,0,50,68,0,0,35,60,0,0,35,53,0,0--00,60,0,0,00,68,0,0,00l},72,0,0,50,60,0,0--53,68,0,0,53,72,0,0,40,53,0,0,40,60,0,0--00,68,0,0,00,72,0,0,00,81,0,0,53,68,0,0--60,72,0,0,68m},72,0,0,60,81,0,0,53,81,0,0//60,85,0,0,35,85,0,0,40,108,0,0,35,108,0,05568,81,162,0,40,81,162,0,42,81,162,0,40,81,162n},01172,0,108,0,45,0,108,0,47,0,108,0,45,0,108,05540,0,136,0,40,0,136,0,40,108,136,0,40,108,136,05540,81,136,0,40,o}81,136,0,40,72,144,0,40,72,144,0110,68,162,0,0,60,162,0,0,68,136,0,0,60,136,0110,68,144,0,0,60,144,0,0,68,162,0,0,60,p}162,0110,53,173,0,0,60,173,0,0,53,144,0,0,50,144,0110,53,217,0,0,60,217,0,0,68,217,0,0,72,217,05568,108,162,0,53,q}108,162,0,60,0,217,0,53,0,217,05585,121,144,0,53,121,144,0,60,0,217,0,53,0,217,05581,108,136,0,53,108,136,0,60,0,144,r}0,53,0,162,0"5585,121,144,0,53,121,144,0,60,0,217,0,53,0,217,0,5568,00,162,0,68,81,162,0,68,85,217,0,68,81,162,06446s}0,0,144,0,60,81,144,0,60,85,217,0,60,81,162,0@4453,0,136,0,53,81,136,0,53,85,144,0,53,81,162,0J4460,0,144,0,60,81,217,0t},60,85,108,0,60,81,121,0T770,108,136,0,0,108,144,0,68,108,162,0,68,108,136,0^770,121,144,0,0,121,162,0,72,121,173,0,72,u}121,144,0h990,136,162,0,0,136,217,0,108,136,162,0,108,136,144,0r0081,0,136,0,72,0,121,0,68,0,108,0,81,0,96,0|6672,0,v}91,217,72,0,96,217,53,0,108,217,53,0,91,2177757,0,96,144,57,0,108,144,47,0,114,144,47,0,96,1449935,0,108,182,33,0,108w},182,35,0,144,182,40,0,144,1827745,0,108,182,47,0,108,182,53,0,96,193,57,0,96,1933353,0,91,217,53,0,81,217,0,0,91,182x},0,0,81,1823333,0,91,193,33,0,81,193,0,0,91,217,0,0,81,2173347,0,72,230,47,0,81,230,0,0,72,193,0,0,68,193330,0,72y},230,0,0,81,230,35,0,91,230,35,0,96,2305535,0,91,217,35,0,72,217,35,0,81,217,35,0,72,2176635,0,114,193,35,0,72,193,35z},0,81,193,35,0,72,1936635,0,108,182,35,0,72,182,35,0,81,193,35,0,72,2176635,0,114,193,35,0,72,193,35,0,81,193,35,0,72{},1938835,0,91,217,35,0,108,217,35,0,114,217,35,0,108,2178835,0,81,193,35,0,108,193,35,0,114,193,35,0,108,1938835,|}0,72,182,35,0,108,182,35,0,114,193,35,0,108,2178835,0,81,193,35,0,108,193,35,0,114,193,35,0,108,1936640,0,91,217,35,0}},91,217,33,0,96,217,35,0,108,217&9940,0,114,230,45,0,108,230,47,0,114,230,53,0,108,23009953,0,108,217,53,0,108,217,53,0~},108,217,53,0,108,217:9953,0,108,217,53,0,108,217,53,0,108,217,53,0,108,217D9953,0,108,217,53,0,108,217,53,0,108,217,53},0,108,217N9953,0,108,217,53,0,108,217,53,0,108,217,53,0,108,217D:FUGUEAA @VR SUV8 F BASELOWBASEOCHORBDUTHNOBASPTLINEJAMJDUNTEMPCOLSLUMSCLRPTRCOLPTRAA@ }@@@x@ @ @A A @@AA }@AAU-#@@K:-+@6-@6-@6-@9@ },.(@.(@ ENTER TEMPO  F:Ad,"AU@ K)@% @&@H2) }@=@K6-&@H 9@<@,9@,9@,9@<@,9@ },9@,-@@(-@@2"68<,-< F P$-@@" }$68,-Z _(-@@"$68,-( `-@@a-@@b"68<,- } d(-@@"$68,-( f(-@@"$68,-( g*-@@&68,-@* }h A0i AjF:B2y,"@%kF:Ad,AUn6-%@s At A  }x APROCESS HIGH STUFFH:, ?%$ H:, ?PAP6-%@!@ }6-@ A@ A`6-&@ @6-@ AP&&2@8<,@ }$@$PROCESS BASE STUFF"@A6-%@A56-@6- }""28,@@$$2@8<,@@&$%%2%%2@ }6-%@@A6-6-6-%@@ }A6-@6-%@ "@6-@ 6-8, $22162,144,136,144,121,108,102,108,108, }96,91,96243,182,162%%1,1,1,1,2,2,2,2,1,1,1,1,3,2,1,160,50,47,42,40,33,2960,50,45,42,40,33,2981,68 },64,57,53,45,40$0,2,4,8,12,15,0.0,2,2,2,2,2,12""SET COLOR POINTERS TO COLORS-@@0&@ }88,,88,, ))0@88@,,88@,,$ +@%@ @ -@ A }@ ,@  /@p   @ -@@A  ,@0 /@`  &  }0 -@`A: ,@@D /@PN  X $SHIFT COLORS OUT -@@6@ }68,-8&@, 68@,-$-@@68,-8%@, 68@,- }$D:JAZZLOWBASEOCHORBDUTHNOBASPTLINEJAMJDUNTEMPCOLSLUMSCLRPTRCOLPTRAA@   UNcEFC@@$@@u@@@P RAINBOW BY VINCE SCOT}T5/15/82 VER. 1.0N +AR@D(ENTER WIDTH (2 OR 3 IS NORMAL) N A( +@26-@}6-@$<##-@+$@,&@F P:',P6-@6-@Z,%%$d-}@y@n/%%$x6-&@6-&?P  AdAU33F:Ad,"AU*T:},"@A`%D:MENU F:Ad,AUA!T:,"6-!$ R:,"@}AvR:,"@&6-%@26-@T2@@@v2}vR:,"@&6-&@26-@T2@@@v2}!@ 6-@ @6-@  (**"@*R:,@A`6- }A" @0,Y#@@K:0)@;@MAdAUY6-A:>:,,6$ D:}RAINBOW.GTIcEFC@@$@@u@@@P RAINBOW BY VINCE SCOT EFSTRUCKTONECOKEGROUC0ROWSCLMSCOULSKNNXXYXPZ@@} @ @@A!A} w +@@)-@@E(@STAND BY WHILEW-@}@w(@WE TUNE THE PIANO!33,-1,88,23,123,243,88,23,122,217,88,33,118,193,88,43,1}16,182,88,53,121,162,88,63,135,144,88,73,137,128,88,83,1 32,121,88,93,1 34,108,88,103,1 3}8,96,88,113,1 39,-1,88,0,0 63,-1,88,0,062,230,78,27,258,204,78,37,256,-1,78,0,061,173,78,57},257,153,78,67,21,136,78,77,25,-1,78,0,00,114,78,98,22,102,78,108,26,-1,78,0,07,-1,}78,0,060,-1,78,0,044,-1,78,0,047,91,38,44,146,81,38,54,142,72,38,64,140,64,38,74,14}5,60,38,84,1 43,53,38,94,1!11,47,38,104,1"13,45,38,114,1#8,40,38,124,1$10,35,38,134,1%14,31,38,}144,1&15,29,38,154,1'12,-1,38,0,0(28,-1,38,0,0)31,-1,28,0,0*30,85,28,48,2+26,76,28,58,2,24},68,28,68,2-29,-1,28,0,0.27,57,28,88,2/51,50,28,98,2053,-1,28,0,0148,42,28,119,2250,37,28,129,2}354,33,28,139,2455,-1,28,0,0552,-1,28,0,0<119A,;@,;@,;@,A*-@A}&68,-* FW6-+@+AR@E0@W-@@Gn(@}WILL YOU+-@L(@(1) TYPE A NEW SONG^-@ @n(@ORHO-@7(@}(2) LOAD FROM DISK?;O"@@xJK6-@(/(ŠƠǠ͠˺3<6.D:K67@,.N}A" 7( PRESS Š WHEN FINISHED!A AP- @@-@Z+-@}@'68,-+ _@d119@c,9@c,9@c,9@c,n-@@So"}q' 68,-68,-68,-'68,-s x+@%@0@@@0@@@}'0@'@6-@'-@@-&@,@`/@} 6-%@ '0@'@6-@1-@@-&@},@`/@" ,6-%@1"@6-%@2"@6-%@J }T @6-@H^-@@h-&@r,@|/@@ 6-%@}  @6-@R-@@-&@,@/@0 6-%@}"@6-%@"@6-%@ 4##@@K:9A@> F:Ad},"AUA0H76-%@6-8,-6-F:B7u,7 ACI!6-F:Ad,!6-F:B7u,J6-%@}68,-K"@*"A@0L**"*F:Ad,"@3A@M @ AN"A@0}R8,"6@A \""28,@@a8, AfF:B7u,A p4F:Ad}," 6-%@4 @ABu(F:Ad,"6-( A z8F:Ad,, A A@}8, A AdAU 8, A%%2 A0}-@,8,%8,/8,%8,%@ $$ WRITE (}AR@--@@}X(%ԠϠՠȠϠ̠ҠǠ \e6.D:67@,.7@ 108,16H108,14,0,2R 81,16\ 8}1,16f++81,3,0,1,102,3,0,1,102,3,0,1,91,3,0,1p 81,16z++81,3,0,1,102,3,0,1,102,3,0,1,91,3,0,1))81,3,0,1,53,3,0,1,}53,3,0,1,81,3,0,150,6,0,2,0,860,6,0,2,0,864,6,0,2,0,8 -1,-1 ''0,4,162,3,0,1,162,3,0,1,162,3,0,1 } 204,16 ''0,4,182,3,0,1,182,3,0,1,182,3,0,1 217,16 217,16 0,16 $$0,4,76,3,0,1,76,3,0,1,76,3,0,1 81},16 81,16 81,6,0,2,0,8& $$0,4,76,3,0,1,76,3,0,1,76,3,0,10 81,14,0,2: 108,16D 108,14,0,2N ,,102,3,0,}1,102,3,0,1,102,3,0,1,91,3,0,1X 81,16b ++81,3,0,1,102,3,0,1,102,3,0,1,91,3,0,1l 81,10,0,2,108,3,0,1v 102,6,0,2,}0,8 153,6,0,2,0,8 162,6,0,2,0,8 -1,-1''0,4,162,3,0,1,162,3,0,1,162,3,0,1 204,16''0,4,182,3,0,1,18}2,3,0,1,182,3,0,1 217,16 217,16 0,16 121,16 121,16 121,16121,14,0,2 128,16 128,}16" 128,16,128,14,0,26121,14,0,2@128,14,0,2J121,14,0,2T--128,3,0,1,128,3,0,1,128,3,0,1,128,3,0,1^}121,6,0,2,0,8h182,6,0,2,0,8r204,6,0,2,0,8| -1,-1(#""@*"@p%"470' D:BEETHOVN}  J  XQQ** ** This program is only }a demo - you can't actually play the game. . +@(@#(@.(@)(@)(@ Ch}Ke(WAIT FOR 25 SECONDS (6-F:A,&@2-A$<$AV%F:BsD%,F P}"!A(AZ-@d!"!$AV%$@%n  @x 32,255,255,255,255,255,}255 255,255,28,0,15,63,127,12763,15,0,30,0,240,252,254!!254,252,240,0,8,0,15,62,120 112,56,15,0,9,0,240,1}24,3014,28,240,0,255 +@AV&&(@&&(@@@@@@@@@}&&(@@@@@@@@@&&(@@@@@@@@@&&(@ @@ @@ @@ @@&&(@}@@ @@ @@ @@ &&(@@@@@@@@@"&&(@@@@@@@@@,&&(@}@@@@@@@@6&&(@@!;@,!6. J""@ T @ }A`^-@ "h " -r!"!(@7<%@,| A0500,2,6,1,4,5,5200,4},3,1,2,4,3300,6,6,1,8,5,5200,2,4,1,6,6,3,100,4,5,1300,8,7,1,4,5,5,100,6,6,1400,8,3,1,6,4,3500,4},5,1,8,3,5,100,6,4,1 400,6,2,1,10,4,3,50,10,4,16,6,3,100,8,3,1,50,8,5,1200,4,7,1,8,5,5,100,6,6,1600,12},3,1,14,4,3300,14,6,1,16,5,5400,14,2,1,12,3,3200,16,7,1,14,6,5300,10,2,1,8,3,3300,14,6,1,12,5,5}&500,8,3,1,6,4,30200,8,5,1,4,3,5,100,6,4,1:200,2,2,1,6,4,3,100,4,3,1D400,12,7,1,14,6,5N500,6,4,1,8,5},3X 200,10,6,1,6,4,5,100,8,5,1b""200,14,4,1,10,6,3,100,12,5,1l300,14,6,1,12,5,5v400,12,1,1,10,2,3500,1}0,8,1,12,7,5500,12,3,1,14,4,3""400,16,5,1,12,3,5,100,14,4,1""200,10,2,1,14,4,3,100,12,3,1!!200,12,7,1,8,5,5},100,10,6,1""200,14,4,1,10,6,3,100,12,5,1300,8,5,1,10,4,5200,16,3,1,14,4,3200,10,4,1,12,3,5200,14},4,1,12,5,3200,6,4,1,8,3,5200,12,5,1,14,6,3200,8,3,1,10,2,5200,14,6,1,12,7,3 ""200,10,2,1,12,1,5,1}00,12,1,9""200,12,7,1,10,8,3,100,10,8,7 20D:CHECKERS.DEMQQ** ** This program is only Jj'CLITTTAA@1@"?(U @#A'8@@ @ A d }GTIA TESTn9@"<@,s/ +@!-AA%"+/ t&&0,26,42,58,74,90,106,122,138,154v%6 }-@"%6-@$@'x1 A%-@#6-%- A%1  AN-@@(6-F:A }%,66-%@B!AUN6-@&1A% '@w1 A-@@ }6- A  V%-@ @%6-@&` A  %-@@#%6-&@ A } %-@$@0%6-@1&( A  x"@ A6-@ AZ6- } A #,1-@96-%C A M A0S/W Z$P(6-+@0&,$8<@,%@@M6-+@` }&,$8<@,%@P$ .68<@,-G:,+68<@,-E:,.$ k"@1+"@*!@,)!@7 }-CAek@@S: $D:GTIAA'8@@ @ A d M  ;\mINCDA@A7BhAIOOmove joystick to move different areas of memory$} into screen display area. +9@,/0@/AR@ Q-@@7%($}>:@,) ,(@-@@"M(>:@%,Q Z-@@"#-@80(>:@,4 H-@@7$}V(>:@,Z /-@@/ NORMAL SCREEN DISPLAY)-@@)(INSERT JOYSTICK%%6-F:A`%},%F:Aa,$AV%6-F:%@,%6-F:%@,((-@@"$68,-( 26-%8R:,,P+%}!AU6-%@+6-&AVZ+ 6-%AV+6-&@d' 6-AU'6-AUi'%}!AU6-AU'6-AUn%@%@x @P--0,0,0,0,-41,39,-1,0,-39,41,1,0,-40,40,0%} D:BYTEMAPCDA@A7BhAIOOmove joystick to move different areas of memory$cAPSIGDDATDELADINSER@@@@@0@rAB("B0!23)}46_ GO TO SUBROUTINE TO CREATE`SIMULATED GR.10d B ghiGENERATE RANDOM NUMBERjBE)}TWEEN 3 AND 5n''-P:+H:,$@,,%@qrs:SETCOLOR REGISTERSx0@@0)}@@@0@@:SET QUADRANT FLAG-@"":BEGIN NEST)}ED DRAWING LOOPS.-@@-@@:ASSIGN DRAWING COLOR.) }##:PICK RANDOM X&Y COORDINATES.-P:+H:,$@@,,!!-$P:+H:,$@,,:PLOT COLOR) }ED LINES/,@@&@&//@@%@%:INCREMENT COLOR LOOP -6@) }:INCREMENT SYMMETRY LOOP. :PAUSE TO APPRECIATE-@A ) }: DO IT ALL AGAIN! A[u\u]u:BEGIN FIRST INST. LOOP.bu-%@%@}&&: A SUBROUTINE TO S) }IMULATE GR.10}}}}}} }+@%@ }}}:LOCATE DDRESS OF DISPLAY} :LIST)}}%%-F:A`,%AV$F:Aa,}}: TURN OFF ANTIC CHIP.}}AY!}"}#}!!: PLACE NE)}W INSTRUCTION OP.$}: CODES IN DISPLAY LIST.(}+%@@x+%@@x+},}-}:BEGIN FIRST INST)}. LOOP.2}-%@%@<}@?}@}A}!!: INCREMENT INSERTION LOOP.F} I}J}K}!!: BEGI)}N 2ND INSERTION LOOP.P}-%A%AZ}@]}^}_}!!: INCREMENT INSERTION LOOP.d} g}h})}i}: **CHANGE TIMING**n}@@q}r}s}: TURN ON ANTIC CHIP.x}AY@4}}}$)}D:SPRAYPSIGDDATDELADINSER@@@@@0@rAB("B0!23( PQ V j JJKKXXIIXPYPINSTBCOLOXPNXPTXPLYPTNNTHETATHETHETXPTYPTTHET@B@@-}@@@ @p @Y A @Ae@ @-}@ J J0 TO 200 DEMO PROG FOR SHAPE TABLE ROTATOR SUBROUTINE AT 30000m9A,$-@-}A368,-7 mTHETA() WILL CONTAIN ANGLE LAST USED FOR EACH SHAPEu +@'0@-}A0@@[0@@@u0@@@Z-A`@_nnJJJ*10+KKK-}=SHAPE TABLE LINE#;THET IS THE ANGLE ;XPTR,YPTR ARE THE COORDINATES OF THE CENTER OF THE SHAPEcFFXPND IS THE SIZE EXPANSIO-}N FACTOR--LARGER DRAWS THE SHAPE LARGERdO6-B6-@!6--6-@p96-@YE6-@O Be -}&'**10000 AND 10010 ARE THE SHAPE TABLES'FF7,10,10,1,2,10,20,2,3,20,10,2,2,5,5,2,2,8,8,2,2,9,9,1,2,12,5,2,2'kk1-}0,-10,-10,1,2,-10,10,2,1,10,10,2,3,10,-10,2,1,-10,-10,2,2,-5,0,1,1,5,0,2,1,0,-5,1,2,0,5,2,2,-5,0,2,3 NllTHIS SUBROUTINE WIL-}L WORK FOR ANY ANGLE, IN ANY GRAPHICS MODE AND FOR ANY SHAPE,COLOR AND ANY SIZE BUT*NffTHE SUBROUTINE WILL NOT CHECK FOR CU-}RSOR OUT OF RANGE SO LARGE SHAPES OR LARGE EXPANSION FACTORS4NggSHOULD BE AVOIDED. IT IS IMPORTANT THAT THE ARRAY THETA BE-} RESERVED FOR THE SUBROUTINE BUT OTHER>N11VARIABLES MAY BE USED FOR UTILITY ELSEWHEREHNooNOTE THAT THE COORDINATES OF THE- } POINTS ARE RELATIVE TO THE CENTER OF THE SHAPE--IF YOU WANT THE SHAPE TORN@@ROTATE AROUND THE CENTER CONSTRUCT THE SHAPE A-!}PPROPRIATELY0u%-@@%#$@%5u" @#$:u+-@"%6-+6-}@Vg/@c@VOAe@'-@c@pO@@S:U @,@9?}@p1/A@@C/A@%U,A@&O-@@V'Ae@O@@9@}S:O,@@V'-@@iO@@S:33F:Ad,"AU*T:9A},"@A D:GRAPHICQ0@@70@@@Q0@@@8*%@P +@#6-6-@w(+-@=C}@0+-@@2<''6-%P:H:@,$@,&@F''6-%P:H:@,$@,&@PEE @ =D}%@p$+,$+ @,$+,$+ @H,Z,@%@H%d,@%@H&n,@&=E}@H%x,@&@H&**0&@H:@,$AV550@%+"@,&+"@,=F}2@@@2@@@    @D:GIGGLE(+-@<j:;XXYYXIYIXTOYSIDTICTOTICFXFYFUNCTIOFLA@P@@P@@@AAH}Y @ @I c332@IAd)S @s2($AH@ +AI}INITIAL CONSTANTSM6-6@ 6-@ )6-6@56-@A6-@M6-@ A0 WAJ}INDOW (X1,X2,Y1,Y2) AP !%%&")&"A &,,(>:A%,INTERVAL (X AXIS,AK}Y AXIS)0 A: D!!)APN] +@'0@A0@@AL}K@]AR@SDRAW AXISX6-'+&,$AYb 6-l!6-AYvAM}6-O:,'+&,$A!6- 6-A-,/A!,-/AAN}YDRAW TOC MARKS 76-&@$+!,76-%@$+ AY,*6-P:',$4/6-+&,'+&,$A/AO} AP> ,/H 6-& A R76-&@$+!,76-%@$+ A,\6-P:',$AP}f/6-+&,'+&,$AY/!AYAp ,/z 6-& ApGRAPH FUNCTION(>:A%,A0AQ} A 6-6-@-+&,'A 6-G:,5,+&,'+&,$AY+6-5AR} A`/+&,'+&,$AY$6-%@. 8AR A BERROR HANDLER A 6AS}-@ A` D:GRAPH.UTLTOTICFXFYFUNCTIOFLA@P@@P@@@A@*0ewSTAHA@ @T%%ΧӠŠ%%٠ĠEU}Š۠%%ɠΠ٠ŠԠ 76-P:A$H:,,76-P:AP$H:,,996-++@%P:H:EV},$@,,$@,&@] +@'0@A0@@SAR@]@EW}(( STEPPING BY -(HIT + TO PAUSE2-A</ ,/,//A&AYEX}F P-AY6Z/ ,/,//AAY&d n$-@A !( $EY}% D:BRITHEMEAHA@ @T%%ΧӠŠ%%٠ĠDaACCCCC 0u;@I[},6-1u?6-@6-@'6-@36-@?6-@2u3u4uCAN DUMP UP TO 5 COLORS5uI\}IF LESS THAN 5, THEN6uDUPLICATE...EXAMPLE:7u!!TO DUMP 3 COLORS DO THIS...8uC1=1:C2=2:C3=3:C4=3:C5=39uOR WHATEVI]}ER 3 COLORS YOU:uCHOOSE...............VS;uu-@@?u-AX@Du/ 1I^}!")")")")"/6-%@Nu71%@)")")")")"76-%@Xu71%@)")")I_}")")"76-%@bu?1%@%@1")")")")"?6-%@lu71%@)")")")"I`})"76-%@vu?1%@%@1")")")")"?6-%@2{u6-%A`u&67B:,%@,.>:,Ia}&6-u u36.u uOR RETURN D:SCRNDUMP 0u;@HL 5CSCCHB @@ +@--6-F:A`,%AV$F:Aa,%@!!6-F:,%AV$FMc}:%@,((CHARACTER #? (0-127)2<!! )!A'@@F(@>:A%,P-@Md}Z00%@%@$F:BsD%$@%,d n @@D:CHARAa,%@!!6-F:,%AV$FLW  Ei{PMBAS@BB@pAA@ + #AP A05Qf}AR@(}50@++(#HIT TRIGGER TO USE MACHINE LANGUAGE!AA0!6-A0Qg}6-@p(46-F:A,&@&BBy46-AV$29AY@F'B2w@9B2HA0< Qq}b'DOS SYSb*+DUP SYSb+UFUGUE bJAZZ b RAINBOW GTIb"PIANO bBEETHOVN bCHECKERSDEMb GTIA bBYTEMAP bSPRAY bROTATION1 b&SHAPE b +TYPTUNE2 b 6GRAPHIC bBGIGGLE b GGRAPH UTLbTBRITHEME bZSCRNDUMP bbCHAR bePMGR DEMb~ETCHSKCH bBABYPRO SNDb BANNER bzAMFLAG b)DRAW b8KLAXON SNDb>SIRENAM SNDbBSIRENEURSNDb&ENEON bJkTUNERITE MENU AUTORUN SYS #AP+-%A%A@'+ ZA@d--%A%%A %#")- n8Qr},24,49,51,255,48,48,24,8s AA(}x6-?:A6, A@%-A6A"!% Qs}$ii173,120,2,201,11,208,12,206,80,6,173,80,6,141,0,208,76,33,6,234,201,7,208,9,238,80,6,173,80,6,141,055208,234,16Qt}5,20,205,81,6,240,248,141,81,6,76,0,6ŠŠҠҮ͛. 10 *= $600. 11 LDA $278. Qu} 12 CMP #11. 13 BNE CH7. 14 DEC $650. 15 LDA $650. 16 STA $D000. 17 JQv}MP WVB. 18 CH7 NOP". 19 CMP #7,. 20 BNE WVB6. 21 INC $650@. 22 LDA $650JQw}. 23 STA $D000T. 24 WVB NOP^. 25 LDA $14h. 26 CMP $651r. 27 BEQ WVB|. Qx}28 STA $651. 29 JMP $600##""$650 IS A COUNTER FOR HPOSP0##SINCE WHEN REAQy}D HPOS0 ($D000)IS A COLLISION REGISTER##-----------------------------##$651 IS A COUNTER WHICH WAITSFOR VQz}BLANK##-----------------------------$D000 IS HPOSP0##-----------------------------CH7 IS A ROUTINE TO CHEQ{}CKIF STICK0 IS PUSHED RIGHT##-----------------------------$278 IS STICK0 WVB IS THE ROUTINE TO WAIT&Q|}FOR VERTICAL BLANK0##336-&+R:,"@,%+R:,"@,B2HQ}}T:,"$ A D:PMGR.DEMpAA@ + #AP A05P6J] o XSTEPYSTEPAA~AF@@. PROGRAM ETCH-A-SKETCH. U} BY PAM YOCUM, 9/4/80"". THIS PROGRAM SIMULATES AN##. ETCH-A-SKETCH USING A JOY-. STICK TO DRAW THE LIU}NE$. VARIABLES.. *********8$$. XSTEP()..ARRAY FOR X-AXISB. INCREMENTSL$$. YSTEU}P()..ARRAY FOR Y-AXISV. INCREMENTS`"". X,Y......X & Y COORDIN.j##. I,J......INDEX VARIABLESo""U}. S........VALUE RETURNEDp. BY STICK(0)t~"". SET UP INITIAL CONDITIONS"". ****************U}*********9@ ,9@ ,0@@ @++@%@,(6-A`(***STAU}RTING X LOCATION(6-@(***STARTING Y LOCATION$$. SETTING UP ARRAYS FOR X & Y%%. INCREMENTS. SUBSCRU}IPTS REFER. TO JOYSTICK POSITIONS.##. **************************-68@,-@-68@,-@.U}68@,-@.68@,-6@ -68@,-@-68@,-.68@ ,-6@.68@ ,U}-@/68@,-6@/68@,-6@(.68@,-6@.68@,-2-68@,-U}-68@,-@<.68@,-.68@,-6@F-68@,--68@,-KL!!.U} TO TURN WARNING BEEP OFFM!!. ************************P%%2QS##. TESTING TRIGGEU}R BUTTON. IFT$$. BUTTON PUSHED ERASES SCREENU. TO START OVER.V$$. ***************************Z T:,"U}Ad6-R:,nx$$. DETERMINING INCREMENTS FOR X##. & Y AND PLOTTING NEW POINTS$$. ********U}********************6-%8,6-%8," A"***CHECKING OUT OF . BOUNDS ERROR , U} Ap. THE FOLLOWING LINES ARE##. EXECUTED IF TRY TO MOVE OUT"". BOUNDS WHEN DRAWING ON THE"". SCRU}EEN. THE LAST POINT IS $$. MOVED BACK IN BOUNDS AND THE##. WARNING SOUND IS ACTIVATED.##. THE FOR-NEXT LOOPS ARE U}USED$$. TO DETERMINE LENGTH OF WARN-""". ING BEEP (J) AND CAUSES IT, . TO FADE IN INTENSITY (I)6##. ***********U}****************@6-&8,6-&8,T -@6@^-@@c h2A6U}@r | A` D:ETCHSKCH@@. PROGRAM ETCH-A-SKETCH. T6 SC@SA@b@  Y} @ $$îĠנΛJJA simple sound and graphic program for little kids 7 MoY}.+$$Published by S.F. A.B.A.C.U.S. ? +AR@?@@K: '@@d'Y}B7t@d79@,$-@368,-7 =-@@0!A`-,@9/@Y}=  APAdAU4F:B2y,@" A4AdAU:F:Ad,"AU&6-%@Y}:"@0AP F:Ad," 6-%@!EF:Ad,6--6-F:Ad,9"AUE6-Y}""@  A;2@@@@O-@AS u2 APY}6- @0$)2@@) A2 @0d] AH:,$AU=A H:Y},$AUZAH:,$AU]$:-@327 :$AdAUY}33F:Ad,"AU*F:B2y,"@AQ @%,* A* F:B2y,$@%A6R-@@Y} +-@@ G2@@@K O R$@-@@+-@@M2A Y}@@Q s2-@@  A  $J -A6@Y}<2@`2@%@@2@%@@2@%@Y}@ $Tf-@@4-@`@@6@J2@@^-@@b f YY}^-@@@`@;2@@O-@@S W [ ^$^@-@A92Y}A@@= @$h:-@0A32@@@7 :$rU-@@P! AN2Y}H:,$AV@@R U$|$ D:BABYPRO.SND@  XL+,dtSLXROLLYISPPRCADA@@@@@G@]}  @ @@x@@]}@''(} A BANNER BANNER PROGRAM'$( by ANDREW LIEBERMAN'( t<;A(,;A(]},;A`,;A`,9@,H6-T6-@t@@K:(-@A`$67<,.]} ( &(( LARGE MESSAGE&6-B:,#( SMALL MESSAGE#6-B:,(; @@(HEIGHT; @)!]}@ @@*: @B(WIDTH: @)!@ @B-0#(POSITION PAPER--HIT ANY KEY0)@2c]}AY#-@/6-=6-@:7<,,I!A'W6-&A(c6-@7;;6-&@2$+ @*!]}@1,%@d$+ @2,<R-@B68,-O:$AU&F:BsD%$@%,,F R6-AVF^6-'@]}.-@6@78, L67<%&@,.T6-%^ @KW68,-8,&-@56-%@&]}$+,C6-%@S67<,.7<,W PL -@ @637@<$@,: F6-@L6.U]}@@pZL AY@4((+(AGAIN?8)@L"@@ \c.AY@4(.(]}YOUR PRINTER IS ND:BANNERYISPPRCADA@@@@@G@\# IE @,'-@f0}@+ 5@;,>$%%6-P:H:@,$@,%@%%6-P:H:@,$@,%@ @6f1}-@0@0@&@0&@ @ @$."$f2}T:,". A @p" @,-6 ,%/%%@ J @T$$-@f3}P:@$,'@^ ,%&/%%&h r @|$$-@P:@$,'@%,%%&%/%f4}%%&%@ 0T:,$6-06-$*6-R:,6-*6-f5}"@$"@6-6@$"@6-@$"@6-6@$,"@6-6f6}@)6-6@,$+"@ 6-@(6-6@+$"@6-@$+"@6-6@f7}(6-@+$*"@6-@'6-@*$D:DRAW@@@@ S (}-@dG  4WkTIDUNW@@@A @ %D:AUTOMENU.SYS 6-@' KLAXONj9}'ONE ENTRY PARAMETER'DUR=APPROX SECONDS RUN'-@'-@@$'''2A&@j:}@)' .'%%2@@@3'%%2@@@@8'%%2@@ @@j;}='-@A B'G%2@G2@G'-@@L'''j<}2@%@@Q') )2V'-@A ['   $ D:KLAj=}XON.SND4WkTIDUNW@@@A @ %D:AUTOMENU.SYS 6-@' KLAXONh]LHSTTIDUNTX@P@5@@@Q@@5(}SIREN n?}6-@' SIREN.1'ONE ENTRY PARAMETER' DUR=APPROX TIME IN SECONDS'(6-@P6-@5(6-6@'n@}-@$' -)'2@@.'-@@ 3' 8' 6-6-6-6-6=' nA}B'%%2 D:SIRENAM.SND@@@Q@@5(}SIREN l;HH^LHNTIDUW@E@W@W@@A 6-@' SIREN 2'ONE ENrC}TRY PARAMETER'DUR=APPROX SECONDS RUN'!6-@W6-@E!6-'-$@$'2@@rD})'-@A .' 6-6-6-3' 8'%%2D:SIRENEUR.SND'ONE ENpr56 MOVFILDLISTLDLISTHDLISTLDLISTHXAPMBASAA @a@AAUAvF}AG@ @ @ A @ A6BHA `KK- DISPLAY LIST ALTERNATION DEMO WITH PLAYvG}ER/MISSILE THROWN IN##- SEE LINES 30,40,50,70,90,99!!- GRAPHICS BY BRUCE FRUMKER6-A6-A  +@vH}%@AY 0@@@ @,@F'/@29/@vI}@2K/@@F]/@ @Fo/@ @7/@@7/@@F/@@F/@vJ}@&/@$@&/@$@F'/@H@F9/@H@@K/@R@@]/@R@Fo/vK}@U@F/@U@!/@a@!/@a@F/@f@F'/@f@09/@r@0vL}K/@r@F]/@y@Fo,@1@F/@1@/@E@/@E@F @)vM}-@3@A@5,@A,@DE a-@ @9@m,@3,@C&@ ,@CvN}@B @,@5@1/@5@C/@A@U/@A@g,@A@y/@5vO}@/@5@#/@A@#,@6@/@8@,@5@&'/@A@&9/@AvP}@2K/@5@2]/@5@&o,@5@A/@5@5/@A@A/@A@5w vQ}@!-@3@5-,@9/@= G@[-@1@4g,@gs/@qw m-@VvR}@`#,@'//@F3 =@Q-@V@`],@'i/@Fm u @!-@"@&vS}-,@V9/@`= Y-@(@C@e,@!q,@"u s @)-@9@C@vT}5,@A,@E O@a,@P@Bs,@P@D6-F:A,(!6-F:A`,!6-F:AavU},2A&@<+@%@A AF!6-F:A`,!6-F:Aa,GAY K vV}@L0@@@P,@F'/@29/@@2K/@@F]/@ @FvW}o/@ @7/@@7/@@F/@@F/@@&/@$@&Q/@$vX}@F'/@H@F9/@H@@K/@R@@]/@R@Fo/@U@F/@U@!/@avY}@!/@a@FR/@f@F'/@f@09/@r@0K/@r@F]/@y@Fo,@vZ}1@F/@1@/@E@/@E@FS @)-@5@C@5,@A,v[}@DE a-@@6@m,@3,@C%@ ,@3@BTm @!-@'@)v\}-,@ 9/@#= Q-@"@&],@Vi/@`m U= @!-@@-,@39/v]}@F= Vs @)-@9@C@5,@A,@E O@a,@P@Bs,@P@Dv^}Ww @!-@2@4-,@h9/@p= G@[-@V@`g,@'s/@Fw Xv_}9AY@F'B2P@c9B2QAZAa[-@@]i -@@ #v`} 7-@@; ? S-@@W iA@^c -@@ # 7-@@va}; ? S-@@W cAb cAad-@@gi -@@ # vb}7-@@; ? S-@@W iA@hc -@@ # 7-@@vc}; ? S-@@W cAj l @6-AT6-@46-F:A,&@&BBvd}y46-AV$A#@-B2w@!B2H-B2I +-%A%A$'ve}+ --%A%A `%)- 9A@'AA9A@@&--%A@%vf}%AH%#")- (--%Ag%%A%#")- +%A%A(,3-A VA X@vg}/%%AR3 -##** POKE 53251,184:POKE 707,8808,24,49,51,255,48,48,24,82771,6,30,60,60,124,124,252,252,124vh},124,60,60,30,6,156-A:$g6-&@"@)6-AT[6-P:@$H:,%@,$@%@vi}gA/B2H&@#B2I/A$ @3-@#,@1//@Evj}3 $D:NEONLDLISTHDLISTLDLISTHXAPMBASAA @a@AAUAt$$NINALMUSICPPPXYQRTAPWTAPPAUNPAPLAMENSCORDRNOTMOVCUNSTOCALCNOTXYXMAXENXBEEOzl}PACEDIXXYYDATPMYOLRARXOLLYICTVAYEFDBMMACLECLEFTCLEFTBBCLEFSETUBCLEFYPN0V0VN1V1N2V2Nzm}3V3IIIIVVVVNNNNSTARNREDRA@ zn} zo} !"#$%&'()zp}*+,-./0123@45678zq}9:;<=>?@ABCDE@FGHzr}IJKLMNOPQRSTUVWXzs}YZ[\]^_ A NN=MAX NOTES PER VOICE E6-@2<;zt},;,;,;,;,;,;,;,E6-C:, ss9@0,;@,;@,9@,;@@,;@,;@4zu},;@0,;@0,;@,[26.(2    ! & ),-,)'#  #[6."$(zv}*((6.hhEhDBHI V`((6.hhEhD BHI V`6.>:AW,)67@<@,.@6zw}7@ <@ ,.W67@<@,.n67@<@,.67@$<@$,.v67@<@,.167@ zx}<@ ,.H67@<@,._67@<@,.v67@$<@$,.6-P:$@'AV,46-$@&zy}$AVN67@<@,.>:,h67@<@,.>:,67@#<@#,.>:,67@#<@#,.>:,(-zz}@0"$68,-( (-@"$68,-( jj35,40,45,47,53,60,64,72,81,91,96,108,121,128,144,10z{}8,121,128,144,162,182,193,217,243,255,0,0,0,0,0,0 31,30,24,53,48,50,40%"-@67<,." &- 6.6.z|}6.6.!6.'6.-6.'($$*******************************$$*SUBROUTINES: RTAPE,UNPAC,PLAY,$$* EDIT,MENU,z}}SCORE,CNOTE,DRNOTE.$$* MOVCUR,WTAPE,NSTOR,PACK,CLEF/ * SETUP0$$******************************26-A6-Az~}P'6-A36-AP?6-AK6-APW6-APc6-A`o6-A P{6-A6-AP3'6-Az}6-AP'6-A<$$******************************>*VARIABLES:D$$******************************F6-z}@p6-@p'6-@G36-@G?6-K6-AW6-c6-@o6-{6-@p6-@z}6-A6-@G6-@6-@!K9( (+( ӠΠϠ/9+P7(}SONG FROMz} FILE (Y/N)#+4Y/ 3 7 U Z46-F:A,&@&BBy46-AV$[e +@'0@@z}@A0@[0@@@e@\WA@B'AY@F9B2w@z}EB2HWAR@^m-%A%A9'+ A%A%@$W%A%@$m%z}A%@$d   x,T:," ("@, &6-R:,&"@A __&@z}AAPAEAEApA`AeAeAuAU6-%@ A)6-%@z}6-&@) A6-&@ A)6-&@6-&@) A6-&@ A)6z}-&@6-%@) A6-%@ A)6-%@6-%@) A  6- !z}6-  6- !6-  A L!(}CASSETTE OR DISK (C/D)%-4C96-A(B6.C:Lz} A !(FILENAME!6-6@@(6-?:C:,<,3@6$&L!(}CASSETTE OR DISK (C/z}D)%-4C96-A(B6.C:L Ap0!(FILENAME!6-:6@@(6-?:C:,<,3@z}6$Xn6-@#+@&,;6-+&@p,'@%@H7<,4V67<,.>:,d67<,.>:,n AEb6z}7<,467<,.>:,,67<,.>:,6 AEl67<,467<,.>:,,67<,.>:,6 AEv67<,467:,,67<,.>:,6 AE ($$6-@6-@'6-@36-@M6-@:7@<@z},,g6-@:7@<@,,6-@:7@<@,,6-@:7@<@,,k6-@:7@<@,,76-@:7@z}<@,,Q6-@:7@<@,,k6-@:7@<@,,s2@@;2@@@W2z}@@@s2@@@6-6-&@"+6-%@87<,0z}F6-@:7<,,T6-@:7<,,b6-%@26-&@"+6-%@87