@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  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:}DOS ĠǠĠ V2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. ,} DISK C. 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 ALLOWED214 FREE SECTORS COPYING---D1:DOSL4}OADRAS# 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  ,   ,,L  `,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 +,0 Y,L+ f,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURNR@L,PL,    `1  YG}`ߢ) 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- 144ɛ+,' 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 D4uj|DSPLYTEMPBEGICALLCTITLEKBKEFNKEHIDIDSKSCALLEDRNUBUFFRCALLFCALLMDRCTYMENSECTVNUSIZLOCACAV}LLRAVSEMSGFILEPRNTSIZHSIZLVVTSTARADRHADRLW} X} !"n;@,xA@ Y}A B-B:,&@##%@:7%@<%@,, $6-@@@?6Z}-@6-@'"@36-@2?6-A`J++6-?:C:,:,[}67,.>:,/67%@,.7,$F:@, A($ B7tF:@,&A( @F:@,&A\}($V<-@@ *6-F:Ad,<AdAU`"F:B2y,6-j!6-F:B2y,@]}!$t"AU6-$~!A'6-&A(!@c6-&@d?"@*%!@-^}6-&+",?6-&+!,9"@*% '6-%+"@,96-%+ @,6-@$-_}@((6-?:C:,<<@+"@BH+@B0R+6-@@ B`+U 6.k}D :'67@<@,.=:,U67@<@,.7@ $+%,&@,+--6-?:C:,:@:7@<@,,%@,{67A<A,.7@<@,2 B Pa7 +@"y}AF:A,7AF:A,a--6-F:A`,%AV$F:Aa,%@a+%@@+%@@z}aE%@#@e.%@$F:A`,E%@%F:Aa,a0@a$e$6-P:'AV{},$6-&AV$e%%6-F:A4,%AV$F:A5,e%%6-F:A@,%AV$F:AA,e*6-P:+&,'AV,*6-&&|}AV$e3%@$%@3%@$%@e3%@$%@3%@$%@e3%@}}$%@3%@$%@e$Rq<<;@9,;@y,;A0,;@i,;@R,SqBB67@<@9~},.'hhhhhhhϠq̑`Tqjj67@<@y,.Oh 6hhhhhhhhh h R}  Ј Sխ`Uquu67@<@,.ZhhhЩԅդԱiբU) L)DȱЅȱЅͩeԅ̤̱  Hԩ.}hԑVquu67@<A,.Zݢ Ԩ) ?ϑNͤ΢̢d͢΄8ͨ}I0ԑWqMM67A<A0,.2ԥ)ϰΤϢ ԥԨ)Յԩ`Xq``67@<@i,.Ehh}e̤͑) ` e̤͑ͤ͑YqOO67@<@R,.4hhh˩&' ,`L} \`\qRR;A`,;A(,;A(,;A,;@,;A@,;@H,fq=67@,. %67A(,}. =67@,.7@,pq=67@,. %67A,. =67@,.7@,{qnn6.d}􀯲|qcc67A,.P02).4$)3+,! %,%8)44/ !}3)#%8)44/$/33%,%#4$2)6%./}qC#67A<A,.>:@4,C67A1<A1,.>:@4,~q=67A},.%67A@,.=67A,.7A,q6-@6-@ q$:ud6-?:A6<@,$ AD67}@<A`,.7Aa,d67Aa<A@,.7A,Du]%67AF<AU,. 1!B]67AA<A`},.NuWW67A<A@,.<Xu+ A}+@*@B@bu:#67AA<A`,.7A,:67Aa<A@,.lu"@ vu B}'u BQ B0 D:MENU.SAVEKBKEFNKEHIDIDSKSCALLEDRNUBUFFRCALLFCALLMDRCTYMENSECTVNUSIZLOCACA,) !"`3!3?@ABC}DEFGHI :6-F:A,&@&A0+: AI ##@@}K:]];@(,;@c,;@,;@,;@,;@,;@,;@E,L'6-P:+I:},&AV,'@,6;$@,H-@0@L(K6-@6-@'6-@H36-@?6-@K6}-@g76.-56 60 64 69 75 82 90 100113128150180225300---O67@C,.>:@,g67@D,.>:@,67@E,.}>:@,@# 6.C (&&6.B C C#D E$E F F#G A$A B$B C 26.SAVING TOLOAD FROM<!6.TIE}!tie IS INVERSEFII6.?% 32ND & 16TH ' EIGHTH ( QUARTER) HALF * WHOLE +,TRIPLETK06.>:AW,!67@,.0}67@,.P6-?:C:,<@,dMAIN ROUTINEi6-?:C:,<@H,k!6-@6-!6-@n-@0}@(& o(6-R:,((T:,Ap F:Ad,AUAs"@AxS @}S%@AAAAAAPAc!6-%+"@,&+"@,O6-%@$+"},&@$+"@,c"@A0Ah%(6-F:%Ah,(Ah%@ 6-6-?:C:,<@$},-@@E  ANOTE CHANGER6-6-9#-@"%%+!@,@})(9INVERSE SPACEs6-+ @,&+!@,'6-%E6-&+ ,%+!@,s6-%@$+ ,&@$}+!@,m%6-@&&@$+"@,?6-%+@&,$@U!@) c6-@&m A%}6-?:C:,<, A0% A>-@@+6-$@%@>6.7<%@, ( -6-@:7@<}@,,'6-+,-6--@@(E#-@"%%+!@,@*(EESC ESC,ESC SHIFT INSERT}Ap(6- Ap qq6-@%@$++"@H* @,)+"@G*!@,)+"@I*!@},)+"@F* @,, 6-AV$+ @,&$6-?:C:,<,$,PROCESS KEYPRESS.83,125,76,254,25}5,666)@8"ATA:"AUA<"@vA>"A%A @"@}AB"@rAD"@AH)"AJ"@AL"@fA`}N"@iA5 A REST#6-@&#-@@-@@  6-?:C:,<},1(RST#-@@ ' 1 A/6-6-@% A0/ A TIE#6-@&}#-@(@6-?:C:,<,,,(7$@%@<$@%@,%-@@@ % ASAVE} & LOAD#Ah%#Ah@S-@S(7@ $+"@v,%@<@ $+"@v,%@ ,}R( ISK OR ASSETTE? ))@8(>:%A(,RTHE D AND C ARE INVERSEZ"@g6.C:*-@@}<( PRESS F A@ZRETURN IS INVERSE#@h A# AC-@@'( NAME OF FILE06}.D:4C67@,.O#67@<@,.>:@d,/6-?:C:,,O67@<@,.>:A,"@vA}!K6-P:'AV,$6-&$AV. A`K@@&*@*@02-@$@}.*@@:7<,,2 :*@ B*A?#6-?:C:,, A# AD)Ah%@})Ah@I0-$( 0( N$XLENGTH CHANGERb'!-$@%@&@}'( l!-%@#@!( vd!6-%+ @,&+!@,P6-%@$+"6@,&@$+"@,}d"@A0w 6-+'@!P:'@,,x!-%@#@!(.{D!-$@%@&@((}DESC ESC,ESC CTRL UP ARROW-@@6-P:'@,,,(7$@ %@<$@ %@ ,(A}-@@(. A(6-?:C:,<, AENTER NOTE!!"$@%@A}6-?:C:,<,6-&+!,-@ @J(#67<,.>:AU,/6-9 A0JRST IS INV}ERSE (67<,.>:,_-@!@_(7$@ %@<$@ %@,>:@0,>:$@%@1,}++67%@<%@,.>:%A($,(\/ A@ ( 66-!-@(@6(7@<@},-6-%@-6-%+"$@%@,-@6-@ A #Ah%#Ap@} 96-%@#-@5@/ @9 A  Ai%2@@R@@9-@}@= _2@i A NOTE EDITOR%!!"@*!@A'++"$@%@}* @A(A*116-%@$+ @,&@$+!@,/)!@!-@5@)( } 4-@ A 6!!"$@%@A99#-@"%%+!@,@)(9INVERSE SPACE>}O!-@5$+ @,@O6-&@$+!@,%@$+ @,H A M'!-$@%@&@'}( R!-%@#@!( \6-@:7<,,^!!!A'* AUAa[ 6- A16-@:7%@<}%@,,A6-+!A',Q6-&A($[ Bf?"AU!-@@)(RST56-@? A1kJ6-}!-@(@J(7$@%@<$@%@,p26-@&"6-P:'@,26-&$@uk96-@:}7$@%@<$@%@,,&@g]6-@$+ ,%%$@k6-@V&zr6-$@%@%G6}-%@$+!@,%@$+"@,X6-&F:Av,r6-AV$+ ,%#6-@ A0# A1 } SUBR.e A H6-@:7<,,% B1"AU[(>:@),>:@0,>:@0,e A @>!A';}&A'A ApApA>$26-@&"6-P:'@,26-&$@PP(7$@%@<$@}%@,>:@),>:@0,>:@0,A!6-@:7%@<%@,,16-+!A',A6-&$A(\6-P:}'@,&6-+ '@,P(7$@ %@<$@ %@,T\(.(\/$CLEAR NOTE MEM}: 6.6-"6-@.6-:6--@($#Ah%#Ah@V-}@3(PRESS -Y- TO CLEAR MEMORY@)@L"@V A ` A Ae-@@}^(>:AU&+ @,,>:@),>:AU&+ @,,>:@(,b e$ LOAD4 A`*@@}4 A `O)@)@-6-$AV%3!EA@O A`S 6--@$@},)@:67<,.>:,> I@S B+A!6-?:C:,,+ A -@(w}-@3-@ &$@@S6-$@&$@&@] A a w6-$@&@9#-@"}%%+!@,@)(9INVERSE SPACE'!-$@%@&@'(  A`TRAP I/O ERRORS$D }B@*-@D(ERROR- F:A,.3-@@'A36-?:C:,,3I(PRES}S -Y- TO RETRY))@5"@? AI A8 A AL DELETEV!!"$@%@A}[6-&+!,`+-@ @!6-@+ A e9#-@"%%+!@,@)(9INVERSE SPACE}j! A@!67,.7%@,t5 B6-&@567$@%@,.y9-@5@#6-%@/} @9 A ~##"$@%@)A AE INSERT!!"$@%@A"A}+6-%@#-@5@+( ,-$@%@%@6@L67<,.7&@<&@,P }d67<,.>:,67%@<%@,.>:,+-@ @!6-@+ A 6-%@ A}GO TO BEGINNING OF FILE-@(W-@3-@ %$@@I6-$@%@}S A W 6-@ AE REPEAT#Ah%#Ah@(u-@ @(PRESS } FOR >:@`%@$,M)@aAUAuRETURN IS INVERSE-67<,.>:A)%,/6-&+!},2AP<0(HOW MANY TIMES" A&0 BFC!67%@<%@,.>:,3-@ @96-C} ApP% A6-@&% APZX (6-@:7<,,A(>:@`%@$+"A0,,M"A0U(} X$[((ESC ARROWS: RT,DN LATER UP LF LFd'$(@:7%@<%@,, '$i A Ax HALTW}-@ @ A 367<,.>:A(,W67%@<%@,.>:,Y6-%+"$@%@,+6-@}=-@G A Y6-&+!,6-%@ AT8( >:@),>:@0,>:@0,>:@0},@(C$THLT IS INVERSE TEMPO#Ah%#Ah@:-@:( ENTER TEMPO NO. [ HEX} 0 thru D ];-@@/(NO.= (= LIMITS:NO;6-@F)@26-&@H&@$+!@W,F"}AAP-@)@( 1 6- )!@+6-@16-k-@@(>:,.-}@@W(7$@%@<$@%@,k"@A04'@P:'@,.-@)@4(}% I0+&@,'@P:+&@,'@,B-@1@I(+,  A0#"@ A# A};67<,.>:A1,567%@<%@,.>:,;6-"3-@ @ A) A3 A,s((=,}6-@:7%@<%@,,U(7$@%@<$@%@,X$s(= THEN ARROWS: DN,LF,LF$ VBI&UAY}'AA`9AAHKA@U#A)11;@X,;@,;@g,;@,.%-}AwA"!% 3VBI INIT5 6.8--@@")67<,.>:,- B6-?:C:,,L-@}@X"V67<,.>:@$+@:,&@H&@$+@:,!@d,,%+@:7@<@,,&@H&@$+@:7@}<@,,!@d,,, `-AA"j+@$+@:,&@H&@$+@:,!@d,,%+@:7@<@},,&@H&@$+@:7@<@,,!@d,,, INITIALIZATION SUBR.9A 'A}9AR@ #A%%6-F:A`,%AV$F:Aa,;%@A`+-@@(/"7%;} %-A6Ag"!% 'A'A@%-AhAv"!% 9A}@2'A@9ADRAW SCREEN -@@ (-REST---@@-(POK}EY PLAYER EDITOR1-@@1(by Harry Bratt 8-28-82%-@@%( please wait((NOTE:C }OCTAVE:4(-@#@((% & ' ( ) * +,--@@-(>:@',>:@(,7&( LENGTH:( QUARTER } --7tie IS INVERSE--@@")67<,.>:,-  !A!6-?:C:,,F P.M.PAY}@bUBByZ6-$AVd:-A#*%F:BsD%,. :AViI-@@+-}@/"A%$@%E I nI-@e@x+-@/"A%$@%E I xM}-@@"/-@3"E%$@%I M AV%6-%A$%AR'AV}B2H@)-A%%) 9B2IA&'A@f9B2W@Q%}ASAU+%ApAU?-ATAiM%A)Q  MOVEM #A"-@@g",}67<,.>:@$+@:,&@H&@$+@:,!@d,,%+@:7@<@,,&@H&@$+@:7@<@,,!@d},,, 667@H<@H,.>:, -@@11( >:@, MEMORY:00( >:@ },>:@, >:@,D2(>:@%,>:@,>:@,________5(D8 UNDERLINES:1(>:@%,>:@ },>:@,________:8 U.L.<1(>:@%,>:@,>:@, <8 CTRL-M (%(>:@%, >:@ },(("11(>:@%,>:@ ,>:@,________$11(>:@%,>:@,>:@,________&7(>:@,  } _ 75 CTRL-M,1 U.L,4 CTRL-M(( _(*( _/*@@ '-@ @*(1X( }X2 INVERSE SPACES,ESC ESC,ESC SHIFT INSERT,14 INVERSE SPACES4f-@@-( | 1 }fINVERSE SPACE,INV CTRL-Y,SPC,INVSPC,SPC,INVSPC,SPC5CCSHIFT=,SPC,INVSPC,SPC,INVSPC,SPC,INVSPC,SPC,INV CTRL-V,INVSPC9f}-@@-( | | | | | | 1 fINVSPC,INV CTRL-Y,SPC,SHIFT=,SPC,SHIFT=,SPC,SHIFT=:<<SPC,SHIFT=,SPC,SHIFT=,}SPC,SHIFT=,SPC,INV CTRL-V,INVSPC;WASN'T THAT FUN?>-(-17 INVERSE SPACESoB2w@$(}#DL2#AA130,130,2,2,2,2,2,2,2,2,2,2,2,6,128,130,7,2,6,144,134,2,1307# DLI<#ff72,152,72,164,205,177,203,141,10,212,14}1,26,208,141,24,208,230,205,165,205,201,8,144,4,169,0,133F#205,104,168,104,64K#DLI COLOURSP# 6,246,10,246,6,246,6,}148,0Z#88104,173,11,212,201,0,208,249,169,192,141,14,212,96#TT108,254,108,254,108,0,0,0,192,192,240,216,240,0,0,0,30,27,}30,27,30,123,248,240#VV30,27,30,27,24,120,248,240,30,27,24,24,24,120,248,240,24,24,24,24,24,120,248,240#SS12,12,12,12,1}2,124,204,248,0,0,0,0,120,204,204,120,31,24,24,24,24,123,255,247#%%254,198,198,198,198,222,254,188#LL0,0,0,7,12,24,24,2}4,0,0,0,128,192,192,192,192,255,13,15,6,255,14,27,27#UU255,128,0,0,255,0,0,0,255,49,55,55,255,54,24,12,255,224,176,152,255},216,216,240#JJ255,0,24,25,15,0,0,0,255,96,96,192,0,0,0,0,255,48,96,112,255,112,0,0#NN255,96,51,51,255,48,51,99,255,0,1},3,255,28,112,0,255,192,128,0,255,0,0,0#))255,0,0,0,0,0,0,0,0,0,0,0,255,0,0,0#80,3,0,0,0,0,0,0,0#89,3,3,3,3,3,3,}3,3#60,192,96,48,28,7,0,0,0#63,255,0,0,0,255,0,0,0#3314,0,0,0,0,0,0,192,192,15,3,6,12,56,224,0,0,0#((28,216,2}16,219,216,216,219,216,216#""30,27,27,219,27,27,219,27,27# VBI#173,255,6,170,41,15,240#7,202,142,255,6,142,3}$210,76,98,228$VBI INIT$104,240,3,76,116,228,169"$7,162,6,160,41,76,92,228,$ VBI USR6$68,C9,01,F0,0}3,4C,74,E4;$A9,03,8D,32,02,8D,0F,D2@$A9,00,8D,01,D2,A9,50,8DE$08,D2,AD,FF,06,29,F0,8DJ$FF,06,68,68,AA,BD,3B,0}6O$8D,00,D2,BD,9C,06,8D,02Q$D2,AD,FF,06,09,0F,8D,FFR$ 06,60T$NOTE DATAY$ LO BYTE^$D1,DF,ED,FB,09,1E,2C,}41`$4F,64,79,95,A5,BD,D9,F5b$11,3B,57,81,9D,C7,F1,29d$4B,79,B1,E9,21,75,AD,01f$39,8D,E1,51,A5,15,85,F5h$6}5,F1,61,09,95,3D,E5,8Dj$51,15,F5,D5,D1,CD,01,FDl$31,65,D1,3D,A5,2A,EA,AAn$A2,9A,02,FA,C2,CA,A2,7Ap$4B,54,D4,5 }4,44,34,04,F4r$C4,94,44,F4,96,A8,A8,A8t$88,68,08,E8,88,28,88,E8v$48|$ HI BYTE$00,00,00,00,01,01,01,01$!}01,01,01,01,01,01,01,01$02,02,02,02,02,02,02,03$03,03,03,03,04,04,04,05$05,05,05,06,06,07,07,07$08,08,0"}9,0A,0A,0B,0B,0C$0D,0E,0E,0F,10,11,13,13$15,16,17,19,1A,1C,1D,1F$21,23,26,27,2A,2C,2F,32$35,38,3B,3F,43,4#}7,4C,4F$54,59,5F,64,6A,70,77,7E$ 86,8E,98,9F,A9,B3,BE,C9,D5$ MOVEM$A5,80,8D,FD,06,A5,81,8D$FE,06,A9,00$},85,80,AD,80$04,85,81,A9,00,A2,08,AC$28,06,91,80,C8,CA,D0,FA$68,F0,15,68,68,18,6D,28$06,8D,28,06,A8,BD,38%},06$91,80,C8,E8,E0,08,D0,F5$AD,FD,06,85,80,AD,FE,06$85,81,60 D:EDITOR.SAVDOTIPITCRESNNCMSCDN`UV"BUFFXYMOVEPMBASIZZC10ARGPLACLINEOFC1SSYCTOMTSD@@'} @(} !")}#$%&@@COPYRIGHT 1981 HOUSTON ATARI COMPUTER ENTHUSIASTS* +@* @*}PLAYER GRAPHICS&(@&(@ -@A  &&;@,9@,9@, E+};@F,E6..hhhhhhh͠ˑ`d +n.0@.SET BACKGROUNDo,}W68,-@`-68@,-@`B68@,-AW68@,-ApW68,-@$-68@,-@-}rB68@,-@$W68@,-@rx,6-F:A,&@&BBy,SETy6-AV$SAY@F.}'B2w@SENABLE PM GRAPHICS WITH 2-LINE RESOLUTIONF-@(B2H%8,, FSET HORIZONT/}AL POSITIONE-%A%A$'+ ECLEAR OUT PLAYERS FIRST*AA*SET COLOR TO GREEN0}A@rREDAA8BLUEA@$GOLD^-%A%A"3-1}@H%8,%$A(L P ^DRAW PLAYER153,189,255,189,153""NOW COMES THE MOTION ROUTINE)6-%@2}!@)6-" 6-R:,"@" A 6-8,6-8,H#"@)"@)"@ 16-&@3}:68,-HB2H%H#"@)"@)"@16-%@:68,-HB2H% 6-C:,6-C:,#4}"@)"@ )"@L6-?:<%A%%$A(<<@,u6-?:<<%A%%$A(<@,68,-%@5}t#"@)"@)"@c6-?:C:,<%A%%$A(<%A%%$A(<@,t68,-&@ 6}A I"@;6-?:C:,<%A%<%A%<@,I6-%@ I"@;6-?:C:,<%A%<%A7}%<@,I6-&@_"@,-@6@M%A%%F:%A%%,Q _6-%@8}V"@#-@D%A%%F:%A%%,H V6-&@ A1%$+8,%,E;@F,9}E6..hhhhhhh͠ˑ`)6-?:C:,<%<%<,)MOVE ONE LINE' +@#'0:}A6-@P6-@`'6-@2A0@@ @,AY@0'/AY;}'/'-@0'Ae@++@@S:! @!-@<}@@33,H:,$AYH:,$@b%@2 $(6-H:,$AP(6-%@.C,@0/=}@0/,%@@)C,%@@)B @,L'/%@',%@&@`.-@@>}.6-H:,$AWt.6-H:,$@(6-%@.,M)/H:,$+H:,$,%@7/%@?}M/&@%@ @ 6-F:@ , Af 1!@12@@}/6-R:,/T:,Ad@6-%@ @, Af %@ AdA}0E ,#1%@16-%@E!AXAd0 @AcI%2@AB}@/@5,A/@1I6-%96-%@!,-"@9/@1#@) )!C}Ad@$k @!-@@-,@0g/%H:,$@&@H:,$@%@#k %F @D}*-@0@#6@6,B/AYF &m%2G2@E}[-@A_ m6-%@("@Ae-77+@*@ *@,)!@Ad2EF} #,%@&@),7/%@E6-%@<! @,!/%@F,%@&@PD}:"AMSGDATEDISK<<FROM THE FOLKS DOWN IN TEXAS; ** FOR THE!H} MX-80 30!!LINE PRINTER DISK DIRECTORY$$3 ***DISK DIRECTORY*** 3  ;1;@@,;@,;!I}@,;@,;+ ((DATE(DD-MM-YY) 3  (( DISK NUMBER 3 DISK NUM!J}BER &&@@D:*.*3Q*3" FILENAME.EXT LENGTH ACCESSQ3" ------------ ------!K} ------@ 6.,W%7@<@,4*%6. B:, @A\\3 7@<!L}@,.7@<@, 7@<@, R# @ d33 f2 6-A:,23 !M} ($A( BYTES)i@ D:PRTDIR.SAV<<FROM THE FOLKS DOWN IN TEXAS; ** FOR THE BZCOKELUDENUFILEDAT by Stephen Salki%O}n 708 094777This will read the disk directory of drive 1 or 2JJand will do the same thing for labels as well.Use it i%P}n good health. ;;8,72,165,20,41,16,74,74,74,141,243,2,104,40,76,62,233I-AdA"!% 7AHA(%Q}IAI@2 +d-;@ ,;@,-B2ygAR@i(START TO READ D1 %R}n(ԠϠĠIJp(OPTION TO PRINT r( 1 TO PAUSE sFF:B2y,"@<@@%S}D1:*.*F A0xFF:B2y,"@<@@D2:*.*F A5z F:B2y,"@A}%T} A( }DRIVE #1 A@( }Š A@+ A@!(+ A@%U}Ԡ̠% A(}%-@@/(ENTER DISK NUM & NAME%/ BW-@@((%V}TO PRINT LABEL+(?( START FOR D1B(W( ԠҠIJFF:B2y,"@<@@D1:*.*F %W}A@FF:B2y,"@<@@D2:*.*F AE A0%(}PRINTING DRIVE #1% AP%X}!%(}ǠŠ% AP&"((DISK #" A03DISK # D%@3(% %Y}AN3DISK # X+@ B33!3+ A:@(#B2y- B0(: A%Z} D:DIRREAD.SAVFILEDAT by Stephen Salki$tkCSKEYAT )\} (}  SHELL-METZNER SORT  BY ROBIN KOPETZKYD-@@@ %ENTER NUMBER OF STRINGS TO BE ENTER)]}EDD3-@@/(ENTER STRING LENGTH 3;$%@,;,;,$-@$ 67<,. $ )^}# (}(-@)%-@B:,!67<,. % , (}-4-@@0(ENTER STRING #  42)_}$$67+&@,$%@<$,.< F##(TO START SORT, PRESS RETURNK%%  THE SCREEN WILL TURN OFFPZ)`}AYd 6-6-P:'@,"A, 6-&6-@ 6-X 6-%GG7+&)a}@,$%@<$,/7+&@,$%@<$,A $$6.7+&@,$%@<$,`?67+&@,$%@)b}<$,.7+&@,$%@<$,`67+&@,$%@<$,. 6-&L@A6-%@)c}!Ax AAY@4@ (} SORTED STRINGS ARE:-@l"" 7+&@,$%@)d}<$, 4 D:STRSORT.SAV ()mXBWPYZACT -f} (} GG;A,;@,;@ ,;@ ,;@ ,;@ ,6.  6.6. -g}!((ENTER YOU MESSAGE!WB:, @ +-@@ &B:,?67B:,%@,.C W67B:,%@,.#-q}?B'DOS SYSB*+DUP SYSB7UMENU SAVBAUTORUN SYSB TAPETIMESAVBCASSETTESAVBEDITOR SAVB0&PLAYER SAVBGPRTDIR SAVB NDIRREAD SAVB [STRSORT SAVBeTICKTAPESAVB*uDRAWCARDSAVBTIMERALMSAVB/MEASURESSAVBQUESTIONSAVBROTATE1 SAVB HEXDEC1 SAVBHEXDEC2 SAVB+HEXDEC3 SAVB3HEXDEC4 SAVBSRENUM1 SAVBoJUSTIFY SAVB0RENUM2 SAVBPRIMBUB SAVDISK CAT;B:,,;B:,,6.( +@.\-@@3(@7@<@,B6.7@,V67B:,%@,.\6-r}.2k-@@3(@7@<@,B6.7@,V67B:,%@,.\6.k6-F:Ad,7w-@-s}@P -@wc0P:H:,$@,P:H:,$@,@w"AU@FD:TICKTAPE.SAV-t}@P -@wc0P:H:,$@,P:H:,$@,@w"AU@FD:TICKTAPE.SAV,./&<COLOCOLOUCARDCARDCARDICOUNDEALT1v}@ @6-A 9@R, 9@R,9-@@R&61w}8,-568,-9  +@0@0@@0@1x}@0@@@aa XCARD DRAWING SUBROUTINE, INSERT YOUR OWN CARD GAME BETWEEN STATEMENTS 110 AN1y}D 10006-@6-@#!@`@'DRAW CARD(5 @-%@ #,1/%@1z}5 * P @d!A0Ai6-%@  @@n'6-%@%6-@' @0DIAMOND1{}S @#,%@%@9/%@%@O,%@%@e/%@%@{,%@%@1|}/%@ %@,%@%@//%@ %@E,%@%@[/%@%@q,%@1}}%@/%@%@$ CLUBSe @#,%@%@9/%@%@O,%@%@1~}e/%@%@$[,%@%@//%@%@E,%@%@[/%@%@.[,%@1}%@//%@%@E,%@%@[/%@%@8E,%@%@/,%@%@1}E/%@%@B$L HEARTSV @#,%@%@9/%@ %@O,%@%@e/1}%@%@{,%@%@/%@%@`q,%@%@//%@ %@E,%@%1}@[/%@%@q,%@%@j# @#,%@%@t$~ SPADES @#,%@1}%@9/%@%@O,%@%@e/%@%@{,%@%@/%@ %@1},%@%@//%@ %@E,%@%@[/%@%@q,%@%@/%@1}%@$ KING,%@%@//%@%@E,%@%@[/%@%@q1},%@%@/%@%@$ QUEEN,%@%@//%@%@E,%@1}%@[/%@%@q,%@%@/%@%@[,%@%@//%@%@E1},%@%@[/%@%@ $ JACKS(q,%@%@//%@%@E,%@1}%@[/%@%@q,%@%@2$F TENSPZ,%@%@//%@%@1}E,%@%@[/%@%@q,%@%@/%@%@d[,%@%@//%@1}%@E,%@%@[/%@%@n$x NINES3,%@%@3/%@%@q1},%@%@/,%@%@E,%@%@[,%@%@q/%@%@^,%@1}%@/,%@%@E,%@%@[/%@%@^$ EIGHTS_,%@%@3/%1}@%@I,%@%@_,%@%@,%@%@//%@%@E,%@%@1}[/%@%@q,%@%@/%@%@2,%@%@//%@%@2$ 1}SEVENSx,%@%@3/%@%@I,%@%@_/%@%@u,%@%@1}x$ SIXES,%@%@3/%@%@I,%@%@_,%@%@u,%@%@1}/%@%@"^,%@%@/,%@%@E,%@%@[/%@%@^$@ 1} FIVESJu,%@%@3/%@%@I,%@%@_,%@%@u/%@%@1}Tt,%@%@//%@%@E,%@%@[,%@%@q/%@%@t$r FOUR1}S|_,%@%@3/%@%@I,%@%@_/%@%@2,%@%@//1}%@%@2$ THREESu,%@%@3/%@%@I,%@%@_,%@%@1}u/%@%@H,%@%@//%@%@E,%@%@H$ TWOSu,%@1}%@3,%@%@I/%@%@_,%@%@u/%@%@2,%@%@1}//%@%@2$ ACESu,%@%@3/%@%@I,%@%@_,%@%@1}u/%@%@^,%@%@//%@%@E,%@%@[/%@%@^$:1}$%%6-P:H:,$@R,%@ 6-8,"@A 6-AP68,-@6-%@1} 68,-4C @6-@% A36-$@P9 %C A>M @'6-@% AP=6-+&@1},$@PC %M AHM @@6-@% A=6-+&@&,$@PC %M ARA6-@ 1}AP16-+&@9,$@P7 %A AD:DRAWCARD.SAV0E23 HXCONTHAMASAHOTMITSECTYOLDSEXILV5}  ;@,;@, *******5} *TIMER* *******BY SRH, 3/81]]THIS PROGRAM WILL SET UP A DIGITAL TIMER AND DISPLAY THE ELAPSED TIME5} FROM THE ENTRY OFJJANY 'ALARM TIME' UNDER 9:59:59. IT WILL ALSO DISPLAY THE ALARM TIME. A@ +@Ad5}AU0(0(%HOW LONG DO YOU WANT BEFORE ALARM (AS#&&(HRS,MINS,SECS; UNDER 9:59:59)( -KA5}'A9AKA/'6-6-'6-2@@w@'-@5}@@(@::3?-@@? @(:: --ALARM!)4O6-@$F:A5},"9F:A, @E @O A5OF:A,!@ $ @06-@EF:A,"O 5}A6 """A7"F:A,@U8 6-<;6-P:F:A,'@,,6-F:A,;6-F:A5},F @Pd+ (}+( ϠРԠŠҠfA@3)-@@556-?0A6-@5}M6-@W A[ g6-?s6-@6-@ Ag F:Ad,AUAhQ%25}G2@Q AiQ2@@;2@@B@C6-5}$Q!Aj$nQ%2G2@Q @ #-@ (@5} #$ ##A2,00,E6,CB,A5,CB,C9,3C,90,2A 86,CB,E6,CC,A5,CC,C9,3C 90,20,86,CC,E6,CD,A5,CD C9,3C,90,02,5}86,CD,E6,CE A5,CE,C9,0C,90,0C,86,CE E6,CF,A5,CF,C9,3C,90,02 86,CF,4C,62,E4,==TIMING SUBROUTINE$ (}5}$ Setting up my timer...6-A `#A0"4==AA?%6-@:7@<@,,&@H1!@ 5}?6-&@?%6-@:7@<@,,&@H1!@ ?6-&@+$@%!6-%@+ A@ K5}BB'AHA9AI@KBB@dh$D:TIMERALM.SAV4bh~AMNRBC@@ 9}  ;;ATARI (BASIC)CONVERSIONS METRIC TO 9}U.S./U.S.TO METRIC REDONE BY FRANK BRANDLE #32;@,;@,dm +@AR@90@@9}@S0@@@m0@@n.-@.(@ MEASUREMENTx.-@@9}.(@ CONVERSIONS5-@@5(@(1) metric to u.s.5-@@5(@(2) u.s. 9}to metric-@@0-@@ 0(@ TYPE 1 OR 2 -@@P -@@9}P 0-@@ 0(@ type 1 or 2 -@@P "@A-@@9}P "@A  ( AA A[ +@'09}@A0@@@[0@@@AR@6-@6(@19}-cetimeters-inches0-@0(@ 2-meters-feet5-@5(@3-kilometers-miles5-9}@5(@4-kilograms-pounds$1-@ 1(@5-grams-ounces.2-@2(@9}6-liters-quarts81-@1(@7-celsius-fahrenheitL AV&( ("( ENTER NUMBER&[9} +AR@`??A!A"A#A$A%A&A'j Au +@'09}@@A0@@@[0@@u0@@@AR@7-9}@7(@1-inches-centimeters0-@0(@ 2-feet-meters5-@5(@9}3-miles-kilometers5-@5(@4-pounds-kilograms1-@ 1(@5-ounces-grams9}"2-@2(@6-quarts-liters,7-@7(@7-fahrenheit-celsius@ AJ%(!9}( ENTER NUMBER%O+AR@T??A1A2A3A4A5A6A7^ A9}-@@7-@@7(@conversion desired #-@@ &7-@9}@7(@CONVERSION DESIRED #0-@@ :"@$D 470@@@709}@@@>%(%( CENTIMETERS TO INCHES?$$( H*( ( (&(HOW MANY CETI9}METERS *R6( ( (6( CENTIMETERS = $?9 INCHES\ A070@@@70@@9}"("( METERS TO FEET!!( &( ( ("(HOW MANY METERS &.( ( 9}(.( METERS= $@( FEET A070@@@70@@ #(#( KILOME9}TERS TO MILES ##(  )( ( (%(HOW MANY KILOMETERS) 3( ( (3( KILOMETERS= $9}?b MILES$ A0` 70@@@70@j $($( KILOGRAMS TO POUNDSk ##(9} t )( ( (%(HOW MANY KILOGRAMS )~ 3( ( (3( KILOGRAMS= $@  POUNDS 9} A0 70@70@@@ %(%( GRAMS TO OUNCES $$( 9}  %( ( (!(HOW MANY GRAMS % /( ( (/( GRAMS= $?P OUNCES A0( 70@@9}@70@@@2 &(&( LITERS TO QUARTS3 &&( < &( (9} ("(HOW MANY LITERS &F 0( ( (0( LITERS= $@g QUARTSP A0 70@@@70@9}@@ %(%( CELSIUS TO FAHRENHEIT ##(  '( ( (#(HOW MANY CELSIUS 9}' E( ( (E( CELSIUS= @ $'@%@2 FAHRENHEIT A0 /( ( ((((/(TO CON'T HIT9} Π  A 70@@@70@@@& &(&( INCHES TO CENTIMETERS' 9}%%( 0 &( ( ("(HOW MANY INCHES &: 6( ( (6( INCHES= $@T CENTIMETERS9} D A0 70@@@70@@@ "("( FEET TO METERS ""( 9}  $( ( ( (HOW MANY FEET $ .( ( (.( FEET= $?0H METERS A0 70@@9}@70@@@ $($( MILES TO KILOMETERS  ##(  %( ( (!(9}HOW MANY MILES % 3( ( (3( MILES= $@` KILOMETERS A0H 70@@ @70@9}@@R $($( POUNDS TO KILOGRANSS ##( \ &( ( ("(HOW MANY POUNDS &f9} 3( ( (3( POUNDS= $?E KILOGRAMSp A0 70@@@70@@@ (9}( OUNCES TO GRAMS (  &( ( ("(HOW MANY OUNCES & /( ( (/( OUNCES= $@9}(5 GRAMS A070@@70@@@ ( ( QUARTS TO LITERS( 9} $&( ( ("(HOW MANY QUARTS &.0( ( (0( QUARTS= $?` LITERS8 A0t709}@@@70@@@~#(#( FAHRENHEIT TO CELSIUS""( )(9} ( (%(HOW MANY DEGREES F )M( ( (M( DEGREES F=@'@ $+&@2, DEGREES CELSIUS A09}D:MEASURES.SAVMNRBC@@ 8zTRUFALSQQTIME@ =} @qq =}%%宛qq =} qqĠŠ =} %%Šţ%%Ġqq=} ӠҠ ٠pp=} ĠϠŠŠŠ ͠ŠԠ٠Р W6-Aq6-Ar'6-As36-=}At?6-AuK6-AvW6-Aw##@@K:9@`,+(*-=}@`&68,-* 22-@@`%6-%A.68,-2 F"@`BK6-%@P%%6-=}P:@`$H:,,%@Z 8,n  68,-@ @p  68,-@ @p6  68,-@=} @p  68,-@ @p  68,-@ @pb  68,-@ @p  68,-@=} @p*  68,-@ @p  68,-@ @p  68,-@ @pV  68,-=}@ @p  68,-@ @p  68,-@ @p  68,-@ @p  68=},-@ @pJ  68,-@ @p  68,-@ @p  68,-@ @pv  6=}8,-@ @p  68,-@ @p>  68,-@ @p  68,-@ @p  =}68,-@ @pj  68,-@ @p  68,-@ @p2  68,-@ @p =} 68,-@ @p  68,-@ @p^  68,-@ @p  68,-@ @p=}&  68,-@ @p  68,-@ @p  68,-@ @pR  68,-@ @p=}  68,-@ @p  68,-@ @p~  68,-@ @p  68,-@ @=}pF  68,-@ @p  68,-@ @p  68,-@ @pr  68,-@ =} @p  68,-@ @p:  68,-@ @p  68,-@ @p  68,-@=} @pf  68,-@ @p  68,-@ @p.  68,-@ @p  68,-@=} @p  68,-@ @pZ  68,-@ @p  68,-@ @p"  68,-=}@ @p  68,-@ @p  68,-@ @pN  68,-@ @p  68=},-@ @p  68,-@ @pz  68,-@ @pĠ)(A; TRUE(B; FALS=}E))@,"@e(GOOD()6-%@,$(WRONG($ ½Ġ!)(A; TRUE(B; FALSE))=}@","@f(GOOD()6-%@,$#(WRONG($Ġ)@,"@e GOO=}D()6-%@,$(WRONG$½Ġ)@,"@f GOOD()6-%@,$(WRON=}G$LýĠM)@N,"@g GOOD()6-%@,$O(WRONG$ĽĠ)@=},"@h GOOD()6-%@,$(WRONG$ŽĠ)@,"@i GOOD()6-%=}@,$(WRONG$'46-P:'@`$A,4(PERCENT CORRECT= *@D:QUESTION.SAV <wPQ V k JJKKXXIIXPYPINSTBCOLOXPNXPTXPLYPTNNTHETATHETHETXPTYPTTHETB} @B}J J0 TO 200 DEMO PROG FOR SHAPE TABLE ROTATOR SUBROUTINE AT 30000m9A,$-@B}A368,-7 mTHETA() WILL CONTAIN ANGLE LAST USED FOR EACH SHAPEu +@'0@B}A0@@[0@@@u0@@@Z-A`@_nnJJJ*10+KKKB}=SHAPE TABLE LINE#;THET IS THE ANGLE ;XPTR,YPTR ARE THE COORDINATES OF THE CENTER OF THE SHAPEcFFXPND IS THE SIZE EXPANSIOB}N FACTOR--LARGER DRAWS THE SHAPE LARGERdO6-B6-@!6--6-@p96-@YE6-@O Be B}&'**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'kk1B}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 WILB}L WORK FOR ANY ANGLE, IN ANY GRAPHICS MODE AND FOR ANY SHAPE,COLOR AND ANY SIZE BUT*NffTHE SUBROUTINE WILL NOT CHECK FOR CUB }RSOR OUT OF RANGE SO LARGE SHAPES OR LARGE EXPANSION FACTORS4NggSHOULD BE AVOIDED. IT IS IMPORTANT THAT THE ARRAY THETA BEB } RESERVED FOR THE SUBROUTINE BUT OTHER>N11VARIABLES MAY BE USED FOR UTILITY ELSEWHEREHNooNOTE THAT THE COORDINATES OF THEB } POINTS ARE RELATIVE TO THE CENTER OF THE SHAPE--IF YOU WANT THE SHAPE TORN@@ROTATE AROUND THE CENTER CONSTRUCT THE SHAPE AB }PPROPRIATELY0u%-@@%#$@%5u" @#$:u+-@"%6-+6-25F}5  ? A6-A( @ A  A   A( F} ERROR&,67B:,%@,.1 6# 6-&6-'@# A67B:,%@,.0 6-'@ AF}( 6. ( A!!(} BINARY to DECIMAL00((F}( 1  ( 2631  ( 84268421  ##( BIT  DECIMAL( F}76543210  (6-6-@( BINARY: 4@L-@B:,Q6-&@VF}+7<,41+6-%P:@#%?P,` j( o (t A D:HEXDEC1.SAV DosnAADTEMSTARIPEER@ J} 11;@ ,;@,;@,;@ , A@dTAdAU'@@H(̠==J}̠T6-@n A( :o 4Z%s 6-A:,x!! )EA6-@ J }6-%@* 6-6-P:'@,*6-&$@' @67<,.=:,' A 67<,.>:&@%@:J!}A,,'6-&@' A@5@!@@ 5(: 7<@ , A,UAdAJ"}U'@@I(̠==̠U6-@@ ( :E 4Z%J6-6-%@J#}T-@B:,Y6.7<,20A^-7<,/9#6-$@%A:,- Apc2AA e3J$}FA h%%6-$@%@:,&@:A,%@r |+@!@@+(=:  A U +@J%}-@4( *number* F-@@U( CONVERSION]AAx'AR@9AdJ&}AUKAA0]@w@\--6-F:A`,%F:Aa,$AV%@]S&@@p+%@J'}@?%@@S%@@b**(" Ƚؠ  enter  Ľàl4-@@!4(ŠڠJ(}ϠҠΠ#'@@'@@#X  enter*F:Ad,"AU4 AD  J)}N AX A#(F:Ad,AU''( A#-@@  $# F:Ad,"@XA# J*} F:Ad,"@WA#% D:HEXDEC2.SAV@ H8  4AADTEM ;@ ,;@,2 +(/( HEX NUMBN,}ER CONVERSIONS2(\(/($ENTER 'D' FOR DEC TO HEX CONVERSION.X($ENTER 'H' FOR HEX TO DEC CONVERSION.\(B:,"N-}@024HA<0D@0Z @d<(<(1ENTER A DECIMAL NUMBER FROM 0 TO 9999999999.nN.} (DEC:x# )!E# A6-@  6-6-P:'@,6-&$@' @N/}67<,.=:,' A 67<,.>:&@%@:A,,'6-&@' A@(HEX: 7<@ ,(N0} A, A6:(:(/ENTER A HEX NUMBER FROM 0 THROUGH FFFFFFFF.@(HEX: J6-T-@N1}B:,Y6.7<,20A^-7<,/9#6-$@%A:,- Apc2AAe3FAhN2}%%6-$@%@:,&@:A,%@r |(DEC: ( A  D:HEXDEC3.SAV(/( HEX NUMBLd78HEXDECNUMWBINBNYTRANSMAACNUBIBYTTO@R4}  RR;@R5},;@#,;@,;@,;@,;@,9@,128,64,32,16,8,4,2,1:-@@"$6R6}8,-( :A@ >:A%,86.0123456789ABCDEF86.@ABCDEFGHI!!!!!!!JKLMNO(`('(PRESS OPTION FR7}OR HEXADECIMALD( SELECT FOR DECIMAL`( START FOR BINARY*2( TRANSLATIONS&6-@26-A@2"R8}F:B2y,"@" A<"F:B2y,"@" AF"F:B2y,"@" AP @Pd\(#(ENTR9}ER HEXADECIMAL NUMBER6($0000 TO $FFFF:F6-R6-@\ AxJ-@B:,@6-$@%@:7@:7,,&R:}@G,,&@dD J6-}(!AU6.........( Ap. -@6@.6-@#3P:',R;}"@!67<,.1)6-&3 AP67<,.06-%@ )()( HEXADECIMALDECIMALBINARY(R<} ( ( @@T((ENTER DECIMAL NUMBER.( 0 TO 65535286->6-J6-A@T A!BU5R=} A @ A^-@@"6-P:',B67<,.7%@<%@,L6-&$Z6-'@R>}^ (!AU6.........( Ap. -@6@.6-@#3P:',"@!67<,.1)R?}6-&3 AP67<,.06-%@ )()(DECIMAL HEXADECIMALBINARY( " @@,R@}\((INPUT BINARY NUMBER7(00000000 TO 11111111:(N( 76543210 BITSR\ A1B:,@ A48-RA}@@+A:7<,,!@.'8 A6 @/-@@$7<,41/6-%8,E   6-J^-@RB}@"6-P:',B67<,.7%@<%@,L6-&$Z6-'@^ T)()(BINARY HEXADECIMALDECIMALRC}^(  @@ D:HEXDEC4.SAVNUBIBYTTO@P277+@*@*@,)!AIAe dA ,),%@&@3@A,%@n',E}%@&@'6-%@x77+@*@ *@,) @AePm @,&@1,%@F}&@;I,%@_,%@&@m6-&@77+@*@*@,) @3AeG}/ ,!/%@/6-&@7 @,!/%@7,%@&@"@ Ag0H} Ac *** MOVE SHIP] @!,&@@05/&@@0I,%@@)],%@@)I}- @,@0-,%@@)+!@06-!6-+ Ag06-&@6-&@J}q @@+,@0=/@@0O/@)Y@e6-ASq6-AY6L%2K}@P@@1!@ ?6-%@B'L Ac@$J'1%@'"@AP^@AgL}hc ,&@=2@A@K,&@_-@Ac r@%2@M}16-@2=6-@$|7 @,+,&@76-@0!@6-N}!,-6-@20$6-%@$%2@@@G2@@P@i2@AO}@s@y,/%@c @,!,%@/,%@C-@AG U,P}&@c,&@,%@%@/,%@&@=,%@S,%@&@i,%@%@Q}}-@A & +#(END OF ENCOUNTER.&((NUMBER OF SHIPS HIT: (NUMBER OF MINES HIT:R} (NUMBER OF TORPEDOES: W D:PLAYER.SAVLINEOFC1SSYCTOMTSD@@=wABINPUTBCINPUTCINPUTACCDREBLKQEDXGOTOXLISTXTRAPXTHENXGOSUBXGOXTOXRESTOREDIJRECVT}RECRECRECDDXRESTORIIIA@ VU} @ VV} !"#$@%&'() (VW}}~~;@,;@,;@,;@,;@,;@,;@,;@,;@,;@,;@VX}, 6. 6.>:@4, 6. M6.GOTO 6.LIST '6.TRAP 36.THEN @6.GOSUB M6.GO TO 6VY}.RESTORE LL;A ,9A<@,;A ,;A ,9@P<@,VVTHIS VERSION WORKS ONLY WITH VZ} "LIST"ED PROGRAMS AND NOT "LOAD"ED PROGRAMS iiSTARTING NUMBER REFERS TO NEW STARTING NUMBER,FROM AND TO REFER V[} TO THE LINES TO BE NUMBERED "D1:RENUMBER"(ENTER INPUT DEVICE (ENTER OUTPUT DEVICE  @V\}@ @@#36-@6-@'6-36-B'g(0( STARTING NO.V]}0B:,"A2 6-A:,<-( INCREMENT-B:,"AF 6-A:,P( (FROM(B:,"V^}AZ 6-A:,d& (TO&B:,"An 6-A:,6-6@ A 6- A0V_} 6-%@6-%@-@B:,7<,4A "6-A:7@<,,,688<@, A`H6-8<@,R A A\ @Vh}7<,p A u @z A0@@@ F:A,"A6AE Vi} F:A,"A6A J# ( ERROR********F:A,#& 6-6.7<,0A6-%@Vj}7<,0A6-%@!$6.7<, 20$ 39$6-%@68<@,-Vk}68<@,-6-%@!A7<,4A7<,4:A(7<,4,6-%@Vl}( A0 AP $4!6->! 6-H! 6-R!''6-A:78<@,<8<@,,,\!8<@,"Vm}A^!, ")(ERROR IN LINE 8<@,,$a!"8<@, "6-%@f!"8<@,!"6-&@p!6Vn}-+P:+&,'@,%,z! A@! @8<@,"6-%@"$ D:RENUM1.SAVXRESTOREDIJRECTj !QfACEJGMALINWIDT@@@ Zp} PROGRAM NAME:JUSTIFY[[COPIED FROM THE ATARI 825 PRZq}INTER MANUAL, P.39;MODIFIED BY C. SPENCER 30 OCTOBER 1980%%F=# OF CHARACTERS;X=# OF WIDTHS@  -Zr}-A6-CHANGE TO ALTER LINE LENGTH hR9A",;@,9A",9A,;@,;A,;@,\Zs}+h-]67@,.>:@',367@,.>:@,73]CHANGE CHRACTER SET TO PROPORTIONAL3-@2Zt}A"&68,-* - 0 3 "" STAND-BY WHILE I ENTER THE"" WIDTH TABLE FOR CHARACTERS  DECIMAL 32Zu} TO 122(-@2A"-*"*CONVERT CHARACTERS TO DOT WIDTHS.FF7,7,10,15,12,16,14,7,7,7,12,12,7,12,7,12,12,12,Zv}12,12,12,12,12,12/KK12,12,7,7,12,12,12,12,14,16,15,14,16,14,14,16,16,10,14,16,14,18,16,160LL14,14,15,12,14,16,16,18,16,Zw}16,10,12,12,12,12,12,7,12,12,10,12,12,10,121HH12,8,6,12,8,16,12,12,12,12,10,12,10,12,12,16,12,12,10,10,7,10,12,02 68,Zx}- <00THE WIDTH TABLE IS NOW STORED IN THE ARRAY>E-@A  EDELAY LOOP;PROVIDES TIME TO READ SCREEN?Zy}' +  ' TYPE IN A LINE.@!! FOR EACH CHARACTER TYPED,A'' I'LL ACCUMULATE THE LINE WIDTH.B=7 WHEN TOTZz}AL IS &@ I'LL END THE INPUT.: = FY6-6-@;@@K:YOPEN THE KEYBOARD Z{}FOR INPUTP,-@A$)@, >:,_["A&6-&@&6-8,16-&8,?6-&@C [LOZ|}OKING FOR BACKSPACEb?"AU6-&@ '* A?LOOKING FOR RETURNd9 68,-6-%8,9STORING CHARACTERZ}}S IN ARRAY 'J'n4&@' A)4TOTAL WIDTH ALLOWEDx   -%@E 1 #ŧ Z~} ӮE!@A@'' COMPLETE OR HYPHENATE THE WORD,** "OR BACKSPACE TO DELETE CHARACTERS.4Z}4 ,DON'T TYPE A SPACE AT THE END OF YOUR INPUT.%% PRESS RETURN TO END THE LINE./) !THE PRINTER WILL PRINT YOUR LINEZ}., / K-%@%@()@0 >:,KALLOWS 5 MORE CHARACTERS["A&6-&@&6-8,16-Z}&8,?6-&@C [LOOKING FOR BACKSPACE1"AU' Au1LOOKING FOR RETURN= 68,-6-%8, Z}=STORING CHARACTERS IN ARRAY 'J'6-&@&&NOW TIME TO CALCULATE LINE WIDTH@CLOSE KEYBOARD_ 6Z}-&6-@#6-@_CALCULATING ADDITIONAL DOT WIDTH REQUIRED TO JUSTIFY LINE!A(ggLINES 210-223Z} INSERT 1 DOT WIDTH BETWEEN CHARACTERS UNTIL LINE IS JUSTIFIED TO "WIDTH" DOT-WIDTHS-@67<,.>:8,,aZ}!6-%@167<,.>:@',?6-%@S67<,.>:@,a6-&@6-%@  APZ}mmLINES 228-233 INSERT 1 DOT WIDTH BETWEEN CHARACTERS AND CONVERT 7-DOT WIDTH SPACE TO 10-DOT WIDTH SPACE33UNTIL LIZ}NE IS JUSTIFIED TO "WIDTH" DOT-WIDTHS-@67<,.>:8,,a!6-%@167<,.>:@',?Z}6-%@S67<,.>:@,a6-&@m!@*>:8,,4 )6-%@=67<,.>:@',K6-%@_6Z}7<,.>:@,m6-&@6-%@ $$3 7@<&@,-@A - +Z}  - TYPE IN ANOTHER LINE. @p D:JUSTIFY.SAV@ XEKLdACDFFPTOLDNURMBCKZPTSEBIBTSTARFINISQLLMR^} ^} !"!!^}***************************!!* RENUMBER UTILITY *!!* (C) 1982, Frank Roberts *!!**************************^}* ~~;A%,;A%,;A%,;@0,;@,;@0,;A ,;A ,;@,;A,;^}A%,;@ ,;@, 6.D:T6. 6-(VV6.LŠǠӠΠӠȠ٠^}ĠϠŠĠ٠2l +-@@C(HAS PROGRAM TO BE NUMBERED BEENF(l(!ĠϠŠˠ ^}(YES OR NO)<.( ( .7@<@,4Y@F@ +-@@@( IT INTO WORK SPACE NOW,PU^}((( THEN ԠԠϠŠ+(R(" THEN RE-LOAD THIS PROGRAMUZ5(1(%ϠՠԠǠΠŠ^} 5dS7@<@,4YC !ΠΠҠĠӠ O6-@SnJ +-@@F^}("ҠŠƠ͠Ϡ Jx-7@<@,4D:#6.- A@ 6.D:67@,.7-@^}@3(ԠנҠϠ 7--@@)(Ԡ - 6-&1 +-@@^}1( ӠԠΠĠ 22********************************* 33FILE OLD LINES IN OLD$, NEW IN NU$ ^}22********************************* S @@/@;6-G6-S6-^} @@ A6. .)@. @H)!@WA`76-%@^}6-%@-67<,.>:,7 A@Z67B:,%@,.6-%,6. F67@:, A22***********************^}********** >>CHECK FOR REROUTE COMMANDS:RESET LINE NUMBERS 22********************************* ^} 86-@6-B:,867B:,%@,. 6- -I<"*+7<%@,4R^}EM)7<%@,4DATA,?'I Ap7!"@*@:7<,,"@4-6-7 A`7!"*@:7<,,"@4^}-6-@7 A`"@A`tY7<%@,4THEN*+7%@<%@,4GOTO)7%@<%@^},4TRAP,g6-%@ j't AT97<%@,4THEN*7%@<%@,4GOSUG6-%@J'T Ab^}G7<%@,4THEN)7<%@,4GOTO)7<%@,4TRAPU6-%@X'b A&77<%@,4GOSUB*6^}-%@-'7 A0 :> @ 3>FILE RENUMBERED LINE D 6.N( AP(GET NE^}XT LINE X22********************************* bHHNOW PURGE OLD PROGRAM AND RENAME THE NEWLY NUMBERED^} ONE l22********************************* v@@w-@@+-@^}@M2A@@Q s2w $$ ǠĠ )^}(%(ӠΠϠ )> +(( #6-';3 *** NOTE *** >3 A  3^}B((3B3#**********F I N I S H E D**********R(-(!ϠՠԠϠŠĠ 1R7@^}<@,4YA0w-@@+-@@M2A@@Q s2^}w ^(,(!נĠ͠ӠĠ /([(>:@4,7@<@,>:@4,^,7@^}<@,4D:,6.7@,#67@,.,#67@,.P(@3@M@2@^}P22********************************* ++CHANGE DESTINATION NUMBERS 22^}********************************* " 6-6.6.6. "# K7<,4 6-%@( AKLOO^}K FOR DEST. NUMBER * 6-47<,4:A@>(7<,0 6-%@( A H-&@RI^})@:7<,,!@W)@:7<,, @H<6.7<&@,?'I A \ f6-A:7<&@,,p6-6@6-^}z6-%@6-%@?A:7<,,A?LOOK FOR OLD DESTINATION )6-A:7<,,)NEW NUM^}BER 67@,.=:,S6.7@<&@,067B:,%@,.96-B:,M67%@,.7,S6-C 6^}.6-B:,&@CPREPARE A$ FOR ANOTHER PASS  6- A`22********************************* ^} >>SEARCH FOR COMMANDS FOLLOWING THEN STATEMENTS 22********************************* -^}&@#7<,4='6-# A` ))CHECK FOR BASIC COMMANDS -@@7"^} 4 '6- A`$ .P67B:,%@,....@67B:,%@,.7@<@,F6-P A`8ggCLOSE,^}CLR,COLOR,DOS,DRAWTO,END,ENTER,GET,GRAPHICS,IF,INPUT,LIST,LOAD,LOCATE,LPRINT,NEW BffNEXT,NOTE,ON,OPEN,PLOT,POINT^},POKE,POP,POSITION,PRINT,PUT,READ,RESTORE,RETURN,RUN,SAVE L//SETCOLOR,SOUND,STATUS,STOP,XIO  D:^}RENUM2.SAVACDFFPTOLDNURMBCKZPTSEBIBTSTARFINISQLLMR\   TAZ@ ATARI (OPR MUL) 3 PROGb}RAMS PRIME NO. GENERATOR BUBBLE SORT ROUTINE CUBE ROOT OF NUMBERS REDONE BY FRANK BRANDLE #3ARb}@ A (}$$( PRIME NUMBER GENERATOR%%( 2( (.(START GENERb}ATING AT WHAT NUMBER226-%@<-@'@F'"P:',@PP Z Ad @Pb}* (}*( PRIME NUMBER GENERATOR$$( -@@( IS A PRIME NUMb}BER!$,/ (} ((/(SELECT THE PROGRAM YOU WISH-$$( 64-@@ 4((1) PRb}IME NUMBER GENERATOR@1-@@1((2) BUBBLE SORT ROUTINEE1-@@1((3) CUBE ROOT OF NUMBERJ,-b}@@(( NUMBER PLEASE,T@AA^!! @)!@@$ (}$( b}SORT ROUTINE( 6( (,(HOW MANY NUMBERS TO BE SORTED03(6(9%@,-@b}$ (PLEASE ENTER ONE NUMBER$ 68,-$ ) (}.-@8-@BE8, 8&@b},(6-8&@,<68&@,-8,E68,-L   V-@`((8, a(e-@Ab} j t%-@AP % A) (})( EXTRACTING CUBE ROOTS$$( b}&( ("( WHAT IS THE NUMBER& ACUBE ROOT SUBROUTINE-@P:?0$,("&?0Ab}@2 <'F--@@ -(THE CUBE ROOT OF P -@@ (IS Z-@AP db} A D:PRIMBUB.SAV@ ATARI (OPR MUL) 3 PROG` DISK.CATNWPAC204B ?UTILITY ? 016S*NWPACd