@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=J5JbIIFBfB^BTBnJFI-JHH;HG~G%CBT}CJhI!IFClBU};JdBZBV}}M;NN3ODKgMQMJJJW}LKJFFlDX}CCCCC4DDC5MMKKJY}jJfJbJ^JzGZ}SBTB[} q\}: ! ! )& +) *u  3U8  t2T^-P I]}   `> T3t(QeFhk ", "+^} "+    fF[- ]PB B_}=j1ac_]LZLZ MZ`}MZ MZMZ\GY%B Z + NU  x  p a}  s V   .B $Uab}|iU T AG Nj TP5SQ5c}PRU+  DBBB  ) O c !N  1 d}?( _  8 b   [ Z % I   V>W>We}gE& E?*,5:59,59  f}  7 [7% '  87 868686`g}= #   Aa   $ # % $ & h}/ G =  (G&G&"!G&KVo c i} ''''''''   ##    ## ! ! ! !'!'! %%j}55%%%"%"5"5"%"%"..CC.. :\!\E\aIn0VI/W94+$     t}  - -- -- - "" "--.3D3E     u}           v}   `a1w})1*a\a]cd0*1*$ ? E  x}#384'ܷ (14.$ ????<7.$ ! y} ,'G=^bWr5pT 4  GOMTSZY`glhz}n    {}                    |}             }}       ~}  }           }                    }          }              }      }}      - -- -- - "" "--.3D3E- - -5}      - -- -- - "" "--.3D3E- - -5}$0;0ILNSBOPTFNAMENPIWILOSFILEAPTRBKFFFINDCURFPTETITLEOAAVAWMSOBSASRBGBSSBSHI }DABWMWMLCRTLCRAETTFNCWHFFFFINNINKEKGWFSORT@ }  } !"#$% }&'()*+,-./012345 }6789:;<=>?@ABCD }E BALLPARK FIGURES BY ED BROWN(c)1988, ANTIC PUBLISHING A`<LINEUP CHECKA66- }-@*"8,*66-@FR  :(#" already in lineup N-@AR K }$P SAVEUp(Save to what filename", AI@@V(@c(@p(@Z }H-@B:,@t6(@7<%@s,: E@H$_ APPENDdw-@@"6(You want to appen }d (Y or N)?A@a@@K:n)@w6.>:,i- 4N-@@#( - A0n }0YAs<-@@"8(Enter the # of the new player<x1 6-6- @e%6-1A }}6-%@68,--@@"($SUBSTITUTE{-@@":( You want to substitute (Y or N })?E@e@@K:r)@{6.>:,< 4N-@@"!(3-@@9(  }<$0YA@ A6-@B-@@">(#Enter the # of the substitute B @e }AE 68,-6.=:,#B:,"@#67@,.7 A@ 6.7<%@s,* A4 A  }7$ERROR TRAPH6-F:A,' @,"A8>( DEVICE NOT ONH A'"Ab( DISK FULL' A },"Ap"(FILE NOT FOUND, A."Ae$(INVALID FILENAME. A(***ERROR: CODE / }-@A % Au/ A PRINT>(Input team name4(Input today's date8>3"3>:@ },"CONDENSED PRINT!33 Stats for , !3M*3Current Record: Won , Lost -3M@@ }P:''(@PLAYER dd(@SAB AVG WMO SLUG% OB% SF SH H 2B 3B HR RBI GW B }B R SB SBA SO GIDPVA@!6-@/-@B6.7<%@s,L AV A5U)(@ }#A:7<%@,, EA:7<%@,, @U(@ **(@7%@<%@, S 6- A }u6-# A)6-3 A96-C AI6-S Ay 6- Au6-# Au/6-%%%9 Au }?6-I AuO6-Y Au_6-i Auo6-y Aus 6- Au6-# Au)6-3 Au96-C  }AuI6-S AuY6-c Aui6-s Au 1(@6-%@t# .@1$ ?NUM/ @ }%(@  / A+ A!(@ + A(@"(@ $'% },. $(@ ---- . A%12 @((@ .00 2 A%61 A'(@ }.0 1 A%;0 A&(@ . 0 A%@F 6.=:,F(@7@<@,.7@< }@, E$J CALCO6-6@6-6@)!L6-P:A$+%%%,'%?P,6-P:A$+%@ }$%@$%@$,'%?P,T76-6@!76-P:A$'%?P,Y6-6-'6- }3!N6-P:A$'%?P,i6-P:A$'%?P,6-P:A$'%?P,^C6-6@! }C6-P:A$+%%%%%,'%?P,c$hW/L RECORDmo.(&}Did this team win this game (Y or N)?9@Y }@@K:f)@o6.>:,r# 4Y6-%@# Aw# 4N6-%@# A| } Ae$FILENAME CHECK 6.7@<@,4D:)7@<@,4D1:)7@<@,4D2:)7@ }<@,4D3:)7@<@,4D4:A,67@<@,.D:,67@,.$LOAD FILEn( }Load from what file * AG@@T@a@n@6-@ A0 }1@67,.'6-%@t1 A%@ Au$FIND PLAYER/6-6-@/ }"A`:-@$7<%@,406-@: AU6-%@t ( Au$ }NEW PLAYERh6-%@#-@@"d( }Player #8,* is new. What is this player's nameh\6 }7<%@,.A67%@<%@,. \67%@<%@,.I-@@r@B67%& }@<%%@,.0F I$TRANSFER DN6-A:7@<@ ,,76-A:7@!<@#,,Q6-A:7@$<@& },,k6-A:7@'<@),,6-A:7@0<@2,,6-A:7@3<@5,,76-A:7@6<@8,,Q6-A:7@9 }<@A,,k6-A:7@B<@D,,6-A:7@E<@G,,6-A:7@H<@P,,76-A:7@Q<@S,,Q6 }-A:7@T<@V,,k6-A:7@W<@Y,,6-A:7@`<@b,,n6-A:7@c<@e,,76-A:7@f<@h },,Q6-A:7@i<@q,,k6-A:7@r<@t,,n$PRINT MENU6-6-'6-36- }?6-K6-W6-(}κ Һ, #A:7@<@,,, 7@<@, k(S }ingle(©Double*(éTriple9( ĩHome RunM(ũBase on Ballsk(ƩHit batter,Interference](( ǩReached on Error, } for FCI(ȩOut ( for Strikeout)](ɩSacrifice Out(ʩHit into Double Playh(˩RBI's%(̩Attempted } Steal2(ͩScoredD( ΩMen on baseV( ϩNext Batterh( ЩNext Inning!^(ѩQuit!(ҩSubstitution5(өAppend Lineu }pK(ԩRedo this frame[( ٠ź^$& CHOICE+-(>0 F:Ad,"AUA`5J6-F:Ad, }@=@@K:J)@:G"@-!( /6-&@;"G6-@ }?G"@-!( /6-%@;"@!G6-@D5"@)"@%-+(>5 A` }I'"@6-@d%' AN."@6-@r (.6-%@S--+!@d* @,)"@ }AX A`]! 6.>:,-@@"!$b HITg16-@6-@#4A16-%@l 4B6 }-%@q 4C6-%@v@4D*(6-@(6-%@:-@@@(*{( 4D6-%@ }(( AU6-%@"6-%@6-%@"$ RBI+6-@6-@+6-: }-@@".(How many RBI's (1-42:(,GN ()? @8@@K:E)@N }6.>:,//+@:, @I)@:,!@R,*0GA`A4G*(*(6-+6-%@76-@A A`0 }4G*( -@@"&(0 A`B 6-A:,6-%&-@@"*(<-@@B(*B4D*!@ }*( 6.N2-@@8(*B A.(*0D6.N(-@@.(*$ SACt-@ }@"3(Sacrifice (H)it or (F)ly?>@^@@K:k)@t6.>:,0H*0FA }# 4H6-%@# A06-%@-@@"($ STEAL6-%@u-@@ }"4(Successful steal (Y or N)??@_@@K:l)@u6.>:,# 4Y6-%@ }# A`0NAE-@@"($FLAG CHECK96--*@:,!@d*@:, @u96 }-@ ) *46-@() A  *4M6-@ *4N6-@ *4K6-@ }$-@@:,&@d$( $%TRANSFER UP*67@<@ ,.=:,767@!<@#,.=:,Q67@$ }<@&,.=:,k67@'<@),.=:,67@0<@2,.=:,/67@3<@5,.=:,767@6<@8,.=:,Q6 }7@9<@A,.=:,k67@B<@D,.=:,67@E<@G,.=:,467@H<@P,.=:,767@Q<@S, }.=:,Q67@T<@V,.=:,k67@W<@Y,.=:,67@`<@b,.=:,9k67@c<@e,.=:,767@f< }@h,.=:,Q67@i<@q,.=:,k67@r<@t,.=:,>67<%@s,.$CENTER A GAMEH-@@ }MA(9Is this the first game entered for this team (Y or N)?L@l@@K:y)@ }6.>:,R0Y*0NA@W 4Y A A\-@@ax7(/Is this team's file already loa }ded in (Y or N)?B@b@@K:o)@x6.>:,f0Y*0NA`k 4N A }pg (} ((A(,How many players in the starting lineupES-@c68,-6@g uJ<(4Enter the st }arting batting order by player numbersJ-@z(( Batter #: ( @e ()(0 }(: A((( 68,- 6-@(6-@/6.=:8,,B:,"@/67@,.* A }@ 6.7<%@s,* A A 6-@ AU AuA %!"@-@ }!(*3!@d* @--@&@d3(*'"@!-@@'(*v 4T A!6-@ }+ A =-@@"R(O.K., do it over^6-j6-v6-'4A)4B)4C)4D' A }3 4E6-%@'6-%@36-@3 4F6-%@'6-%@36-@3 4G6-%@ }'6-%@36-@X 46-%@'6-%@36-@8(@6.NR-@@X(*3  }4H6-%@'6-%@36-@T 4I A#6-%@/6-@4(<6.NN-@@T( }*f 4J6-%@'6-%@56-%@A6-@F(N6.N`-@@f(* 4K AU } 4L A@% 4M6-%@%6-@ 4R A@ 4S AC 4N6-%@ }%6-@16-@5C6-%@A4O)4P)4Q! A/6-%@5!A6-@!+4O)4 }P,*!6-@# 4P6-%@# A 4OA  4QAE A %U Ae0U6 }-?:C:,[(4) Enter a Game(%@E@@ }K:R)@[6.>:,B%%01*02*03*04AG 6-A:,L1'A@AA@1 A }~*@A'B7tA*$6-6-$$-@B:,&@s@tXX67%@ }<%@s,.90000000000000000000   $D1:BALLPARK.BASXX67%@ i=J5JbIIFBfB^BTBnJFI-JHH;HG~G%CB}CJhI!IFClB};JdBZB}}M;NN3ODKgMQMJJJ}LKJFFlD}CCCCC4DDC5MMKKJ}jJfJbJ^JzG}NBTB} r}}*- *-*-"*-O    *-KE$!7} y R * *  $ %  EoI ,   }   U H      ^}x $ $ $ $O@    }      'b}  2525    25 252525 `U }   y+-:;}     w?+0 }     ;}3V!|'w 8eIRf2]% CVd}EEE9B7C 7C 7C^Yd3}Aa ^D X5 |?  _ t   #  } \Jm  )w,Q6a<    } ''''''''   ##    ## ! ! ! !'!'! %%}55%%%"%"5"5"%"%"..CC.. :\!\E\aIn0VI/W94+$      }  - -- -- - "" "--.3D3E      }            }   `a1 })1*a\a]cd0*1*$ ? E   }#384'ܷ (14.$ ????<7.$ ! } ,'G=^bWr5pT 4  GOMTSZY`glh}n    }                    }             }       }  }           }                    }          }              }      }}   &498>E M 39$84A9J0M$F+ #99,/699 +/>>6}   &498>E M 39$84A9J0M$F+ #99,/699 +/>>6}KwKJTKIGJGHHJIHKKJ|H(IGJFJ9JJIHG}KKZKJ#JIIpINHeH}K}KJ2JJI}MML&N NCN?NPLGNrNHGN }iGL_M=MTGLiL!}IIHHHGY)&}E L4+Z8;fAK%@'}/w#p%X`5K! |9^kI(}G   G9 o 0  ( N5; ;)}  >> R D' TD 'g? TL c  H* I N*} J IO K3  Y P D  J     0 M_ 5+} * $ 4 L K N/% , '    ,}  %9-8?"l4/(-} K 3 Dp-+*.} (    & 2  /}   2-)*0} $!&1---R1}  (+"2}   * P F 0 )3} 5 ; P < C B O k K W 1 e x  d s u T L  T4}$ 5}6}7}8}9}:};}<}DD.4H XbDD.4tX  =}     4)"CU2  .L]D& $3,=1&%$;% % >} .Xl0WW0^^^0WW0^^^^''000WW0^^^^DD..?}XDD..XlDD.~MARY,JOHNSON,DRIVERHq}B%DOS SYSB*)DUP SYSB4SANTIQ BaBALLPARKBASB4GEOFAN B4HOMAGAIN B PINDIANS DATBZMULTISORDEMB,wMULTISORM65B4OOLIZ B;TERMINATBASBTHROTTLEEXEBTHROTTLEM65-VPLAY OBJAMANDA,JAMES,PROGRAMMERRBOB,HUNT,DRIVER\JERRY,PECK,TRAINERfMICKI,SMITH,PROGRAMMERpLEROY,JOHNSON,DRIVERr}zJIM,HUNTER,TRAINER= (}-@=(Ԡ Ԡ Π9-@@ 96-++&@,s}$@#,%@NN(7<%@, 7%@<%@, 7%@<%@",   $;A,Zt}Z6.Phhhhhhhhhe˅hhhheЅhhhhׅ8̅΅եe̅Ԑդcc67@,.P5.u} Hԑhe̅ԥi3367Aa,. ЬЦe̅ͥiІЀ`$v}D1:MULTISOR.DEMHԑhe̅ԥi3367Aa,. ЬЦe̅ͥiІЀ`$0100 ;MACHINE LANGUAGE SORTS, PART 10110 ;BY KEVIN PECK0120 ;(c)1987, ANTIC PUBLISHING0130 FLAST = $00 ;End, outer loo!x}p0140 FLENKEY = $CB ;Key length0150 RLEN = $CC ;Record Length0160 OFFSETKEY = $CF ;Key offset0170 FIRST = $CD !y};1st element ptr0180 SECOND = $D4 ;2nd element ptr0190 LAST = $D6 ;End, inner loop0200 FENDKEY = $D8 ;End, key f!z}ield0210 ORDER = $E1 ;Order, sort 0,10220 FLENSEC = $D0 ;2nd field lngth0230 OFFSETSEC = $E0 ;2nd " " offset0240 F!{}ENDSEC = $D1 ;End 2nd field0250 ;0260 *= $40000270 ;0280 CLD 0290 PLA 0300 ; Retrieve arguments from BAS!|}IC0310 PLA 0320 STA FIRST+10330 PLA 0340 STA FIRST0350 PLA 0360 STA LAST+10370 PLA 0380 !}} STA LAST0390 PLA 0400 PLA 0410 STA FLENKEY0420 PLA 0430 PLA 0440 STA OFFSETKEY0450 CLC !~} ;Find end of 0460 ADC FLENKEY ;First key 0470 STA FENDKEY0480 PLA 0490 PLA 0500 STA FLENSEC!}0510 PLA 0520 PLA 0530 STA OFFSETSEC0540 CLC 0550 ADC FLENSEC ;Find end of 0560 STA FENDSEC ;se!}cond key0570 PLA 0580 PLA 0590 STA RLEN0600 PLA 0610 PLA 0620 STA ORDER0630 ;0640 ; All parms!}. now in zero page.0650 ; Next, set pointer to the end0660 ; of the outer loop0670 LDA LAST+10680 STA FLAST+1069!}0 SEC 0700 LDA LAST0710 SBC RLEN0720 STA FLAST0730 BCS SETSECOND0740 ;0750 DEC FLAST+10760 ; S!}tart of outer loop.0770 ; Adjust the second pointer to0780 ; point to the first pointer0790 ; plus the record length.0800!} ;0810 SETSECOND0820 CLC 0830 LDA FIRST+10840 STA SECOND+10850 LDA FIRST0860 ADC RLEN0870 STA !}SECOND0880 BCC SORTKEY0890 INC SECOND+10900 ; Start of the inner loop.0910 ; 1. Compare the Key field of0920 ; !} the two sort elements.0930 ; 2. If we find a mismatch,0940 ; do we need to swap them?0950 SORTKEY0960 LDY OFFSET!}KEY0970 ;0980 KEYLOOP0990 ;1000 LDA (FIRST),Y ;get a byte1010 CMP (SECOND),Y ;of each.1020 BEQ CHKMORE ;If !}= Continue.1030 ;1040 BCC NOSWAP ;If FS swap.1070 ;1080 CHKMORE1090 ;!}1100 INY ;Adjust pointer1110 CPY FENDKEY ;All done?1120 BNE KEYLOOP ;No. Continue.1130 ;1140 ; At t!}his point, all bytes in1150 ; the key field of both sort1160 ; elements are equal. Drop to1170 ; SORTSECOND and check the!}1180 ; secondary fields.1190 ; If their lengths = 0, then1200 ; we don't have 2ndry fields.1210 ; We are only doing a o!}ne-field1220 ; sort--goto the Noswap routine.1230 ; If the key fields are equal,1240 ; there is no need to swap them.1250!} ;1260 SORTSEC1270 LDA FLENSEC ;A second field?1280 BEQ NOSWAPBD ;No.1290 ;1300 LDY OFFSETSEC1310 SECLOOP1!}320 LDA (FIRST),Y ;Compare byte1330 CMP (SECOND),Y ;by byte...1340 BEQ CHKMORE2 ;If = do more.1350 ;1360 !}BCC NOSWAP ;If Fs Swap.1390 ;1400 CHKMORE21410 INY ;Point to nex!}t.1420 CPY FENDSEC ;End of 2nd?1430 BNE SECLOOP ;No, do more.1440 ;1450 ; Now, both the key and the1460 ; second!}ary fields of both sort1470 ; elemtents are equal. Goto1480 ; the noswap routine through the1490 ; "back door." No need to!} check1500 ; the order, no need to swap.1510 BEQ NOSWAPBD1520 ;1530 ; This is where the swapping1540 ; occurs. First!}, check the1550 ; swapping order.1560 ; (Assume swapping in ascending1570 ; order.) If order<>0, then1580 ; sort in desce!}nding order.1590 ;1600 SWAP1610 ;1620 LDA ORDER ;Get order1630 BNE NOSWAPBD ;Not 0, No swap1640 ;1650 ; Swap!} routine's back door.1660 ; If NOSWAP decides we need to1670 ; swap by checking the order,1680 ; we need to come here (ins!}tead1690 ; of SWAP) or we would go into1700 ; a continuous loop.1710 ;1720 SWAPBD1730 LDY #01740 SWAPLOOP1750 !}LDA (FIRST),Y ;Key byte1760 PHA ; to stack.1770 LDA (SECOND),Y ; 2ndry byte1780 STA (FIRST),Y ; to k!}ey.1790 PLA ;Key from stack1800 STA (SECOND),Y ;to 2ndry.1810 INY ;Next byte.1820 CPY RLE!}N ; More?1830 BNE SWAPLOOP ;Yes. Continue.1840 ;1850 ; All bytes have been swapped.1860 ; Now adjust pointers to t!}he1870 ; next elements for the sort.1880 ; Goto the noswap back door.1890 ;1900 BEQ NOSWAPBD1910 ;1920 NOSWAP1930!} ;1940 LDA ORDER ;Is ORDER=1?1950 BNE SWAPBD ;Yes. Swap them1960 ;1970 NOSWAPBD1980 CLC 1990 LDA SEC!}OND2000 ADC RLEN2010 STA SECOND2020 LDA SECOND+12030 ADC #02040 STA SECOND+12050 CMP LAST+1206!}0 BNE SORTKEY2070 ;2080 LDA SECOND2090 CMP LAST2100 BNE SORTKEY2110 ;2120 ; We've made one pass through!}2130 ; the sort's inner loop. Now,2140 ; adjust the outer loop and2150 ; check if we're done with it.2160 ; If not, read!}just the inner2170 ; loop pointer to the outer loop2180 ; pointer + the record length.2190 ;2200 CLC 2210 LDA FI!}RST2220 ADC RLEN2230 STA FIRST2240 LDA FIRST+12250 ADC #02260 STA FIRST+12270 CMP FLAST+12280 !} BNE SETSECOND2290 ;2300 LDA FIRST2310 CMP FLAST2320 BNE SETSECOND2330 ;2340 RTS ;Goto BASIC!}2350 .END D2290 ;2300 LDA FIRST2310 CMP FLAST2320 BNE SETSECOND2330 ;2340 RTS ;Goto BASIC LLyKDEDII=IFMLKDE;E KJIIWG%}HHrL LKEFKID%}LLLLCIjLcL%}ONNPM%}MLM%}1I%II IIFMMXMTM%}NNNNNNNOO OLLGI%}CD%} r%}&  $ @> > Uh  >8  X %}X &X TNBNpX~3.o$BO8%}fOM!} 9OIOH A I %}y O / B# "CChZZ'%}@DKP++,+[-St x/7"8899 ,%};9 /8u q p " q B ? !^ ._8#<%};"G'c'':7  n<98j%})730B;:%}8mF| *n*%}9o77"F HJ6RH %}) 5  P  E J];%}7 677  H7 8 4 i H(/.1. %}>  2l(سLQ T&65    t%}l/(Jhc]{   s2X1-%}0<3n5?8=L6G*(B:NB% ' ? %}& p' p/%/J/2/0/<=*/8?)/Jj'/o#%}r"z%  '/=EJPS RMJD=7.%   %}  )* ( ( %3235 =@82996   %}  &&45KL\]klwx r r X W,F-F6465+#+"  %}  ! %  %}##>?  ()GH13KK/Z/[D.C/((CDJ5J4J J ++34RS9g:gUPVP?%}>1 21:1;FF9:UTDLELUV-,(,(+@A,,,+-O.%}OcdddDD.F.vXR *+GHijyzzzjj!J!I-.#$;X%}DD..X -;IYht~}|xrjcYPH @"4$+$ $$%}     "7">#6>,P /O+2 ,D%}J'* 9G-(;;  %%**..22%}!!##!!((**((..00..335533779977;;==;;>>??,DJ'%}* 9G-(;;  %%**..22!0:,60 6-%6-%1!-0(@@G%2@)}@G2J"@APT @ ^06-&@#-@0(@)}h^ -@6@<2^2@rL -(@,-@)}@0 L2@A@|x -(@,-@@0 4 V2)}x2@"@6-@2"@6-@2"A0. 6-)}6--$(@. @ 7-@7(@you lose hit triggera-@AP@;)}2@@? a22@w2T:,"@AP%)}-@AP "@A6-%@ A@7-@7(@you win hit tr)}iggerb -AP@6@<2@@@ b2 AP6A)}Y'-6(@}&;-;(@ SCREEN: LIVES:08-@@")}"'-4(@8 :. "6-6--*(@."D* "1-*(@N)}AY@4 @ Xb&&&&& &&&&&& &&&&&l&&v&&&& &&&&&)}& &&&& &&&&&&&& &&&&&&&&&&&& &&&& & &&&&)}&&&&&&&&&&&&&&&&& &&&&&&&&&&&&&&&&&&&&&)} & &&&& &&&&&&&&&&&& &&&&&&&& &&&& &&&&&& &&&& )}&&&&&&& &&&&&& &&&&& *9,12,1564 3,5,0,1>)}H&&&&&&&&&&&&&&&&&&R&&&\&&&&&&&&&&&&&&&&&f &p&&&&&&&&&&&)}&&&&&&z&&&&&&&&&&&&&&&&&&&&&& &&&&&&&&&&&&&&&&&&&&)}&&&&&&&&&&&&&&&&&&&& &&&&&&&&&&&&&&&&&&&&&&&&)}&&&&&&&&&&&&&&&& &&&&&&&&&&&&&&&&&& &&& &&&&&&&&&&&&&&)}2,21,19318,3,-1,0$.&&&&&&&&&&&&&&8&&&&&&&&)}&&B&&&&&&&&&L&&&&&&&&&&V&&&& &&&& &&&&`&&&&&&j&&&& &)}&&& &&&&t&&&&&&&&&&~&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&)}&&&&&&&&&&& &&&&&&&& &&&&&&&&&&&& &&&&&&&& &&&&&&&&&&&&)}&&&&&&&&&&&&&&&&& &&&&&&&&&&&&18,20,193 1,3,0,)}1 &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&(&&& &&&&&&&&&&&&&2&&&&&&&)} &<&&& &&&&&&&&&&&&&F&&&&&&&&&&&&&&&&P&&&&&&&&&&&&&&&&Z&&&&&&&&&&&&&&&&d&&&&&&*}&&&&&&&&&n&&&&&&&&&&&&&&&&x&&&&&&&& &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&*}&&&&&&&&&&&&&&&&&&&&&&&&&& &&&& &&&&&&&&&&&&&&&&&&&& &&&&&&&&&&&&&&&&&&&*}&&&&&&&&&&&&&&&&10,13,2851,21,0,-1&&&&&&&&&&&&&*}&&&&&&&&&&&&&&&&&&&&&&&&&&&& &&&& &&&&&&&"&&&&&&&&&&&&& &&&,&&&&&&&&*}&&&&&&6&&&&&& &&&&&&&&&&@&&&& &&&&J&&&&&& &&&&&&&&&&T&&&&&&&&&&&&&&&&^&&&&&*}&&&&& &&&&&&h&&&& &&&&r&&&&&&&&&& &&&&&&|&&&&&&&&&&&&&&&&& &&&&&&&&&&&&&*}&&&&&&& &&&& &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&*}17,20,259 3,3,1,0C +AY1@@dCB7t@dO;@V,O6.8hhhh*}hhh`6-AD$AV!!6-?:C:,<BsD<<A$, #A0 A* } 1-@"-%$@%1 "6@ A&''3,255,129,189,189,189,189,129,2550* }%%4,60,102,195,153,153,195,102,60:''5,126,255,255,255,255,255,255,126D6,24,62,96,60,6,124,24,0N$$7,60,126,219,255* },102,60,36,102X""8,56,56,16,124,186,186,40,40b-1l;@ ,vK+@%@'AY9@@d* }KB7t@d'A@'A AY-@1(@C-@@* }Y(@U-6-F:A`,%F:Aa,$AV%@A%@@U%@@c-@*}@3(@1040 TERMINATORE-@@c(@٠Π3-@@ 3(@trigge*}r to beginAY@42@w2T:,A9+@%@'@@d9B*}7t@dKA@@'AA9AAKA @9AV'AV!#A-6*}-@96-@ A@D1:TERMINAT.BASAKA @9AV'AV!#A-6(9@@$%$% B@HIBD@E V`}堛 By Matthew Ratcliff .} Press Joystick trigger to pause(send ^S) scrolling text from modem.Press trigger again to continue(send a ^Q).=.}H  .h(lLɾ``@odem.Press trigger again to continue(send a ^Q).=,C0100 ; TRIGGER THROTTLE, SOURCE CODE0110 ; BY MATTHEW RATCLIFF0120 ; (c)1987, ANTIC PUBLISHING0130 JIFFY = $140140 CTL_S 2}= 190 ; INTERNAL CODE0150 CTL_Q = 175 ; INTERNAL CODE0160 VVBLKD = $02240170 CH = $02FC0180 ; Operating system2} equates:0190 CIO = $E4560200 ICCOM = $03420210 ICBAL = $03440220 ICBAH = $03450230 ICBLL = $03480240 ICBLH = $034902}250 ICAX1 = $034A0260 ICAX2 = $034B0270 TRIG0 = $D010 ;Joystick trig 00280 PUTBIN = $0B0290 ;0300 *= $40000310 I2}NIT0320 LDA VVBLKD ; Install0330 STA VEXIT ; VBI0340 LDA VVBLKD+1 ; routine0350 STA VEXIT+10360 L2}DA # START0380 LDX JIFFY0390 HOLD0400 CPX JIFFY ; Sync so0410 BEQ HOLD ; VBI won'2}t0420 ;0430 STA VVBLKD ; crash the0440 STY VVBLKD+1 ; installation0450 LDA #CTL_S ; procedure.0460 STA2} THROTTLE0470 LDX #00480 STX BUSYCTL ;Enable throt.0490 LDA #PUTBIN ; Print title0500 STA ICCOM ; scree2}n.0510 LDA LEN0520 STA ICBLL0530 STX ICBLH0540 LDA # TITLE05702} STA ICBAH0580 JSR CIO0590 RTS ; Back to DOS0600 ;0610 TITLE0620 .BYTE "}2}",1550630 .BYTE " By Matthew Ratcliff ",155,1550640 .BYTE "Press Joystick trigger to pause",1550650 .2 }BYTE "(send ^S) scrolling text from modem.",1550660 .BYTE "Press trigger again to continue",1550670 .BYTE "(send a 2!}^Q).",155,1550680 LEN0690 .BYTE *-TITLE0700 ;0710 ; Trigger Throttle installed.0720 ; Actual program is below.0730 2"};0740 *= $01000750 ; Place this code in the lower0760 ; 62 bytes of the 256-byte0770 ; system stack at $0100-$01FF.2#}0780 ; (Should be safe!)0790 ;0800 VEXIT0810 .WORD 0 ;VBI exit vector0820 THROTTLE0830 .BYTE 0 ; Space o2$}r BS0840 BUSYCTL0850 .BYTE 0 ; Control flag0860 START0870 PHP ; VBI starts0880 PHA ; Sav2%}e all stats0890 LDA BUSYCTL ; and regs.0900 BNE TIMIT ;ON0910 ;0920 TESTON0930 LDA TRIG0 ; Busy on0940 2&}; request?0950 BNE EXIT ; No. No change.0960 ;0970 INC BUSYCTL ;OFF, Turn it ON0980 LDA TH2'}ROTTLE ; Send next0990 ; throttle state.1000 STA CH1010 JSR TOGGLE ;Change throttle1020 ; 2(} state.1030 EXIT1040 PLA ; Restore stats1050 PLP ; and reg & exit1060 JMP (VEXIT)1072)}0 ;1080 TIMIT1090 LDA TRIG0 ; Trig released?1100 BEQ EXIT ; No, time-out1110 ;1120 LDA #0 ; Yes, r2*}e-enable1130 STA BUSYCTL1140 JMP EXIT1150 ;1160 TOGGLE ; If ^s, then1170 CMP #CTL_S ; next is ^q1182+}0 BNE TOGQ1190 ;1200 LDA #CTL_Q1210 STA THROTTLE1220 RTS 1230 ;1240 TOGQ1250 LDA #CTL_S1260 S2,}TA THROTTLE1270 RTS 1280 ;1290 *= $02E0 ; init addr.1300 .WORD INIT ; for LOAD1310 .END 1260 S0r@Aө/ԅA̅@'`i(㩞Щ~ЩrЩrТԩ0ԩ@1ԩ"/6.}ԭ"#"@#@`Ƅ@Іl4ppppppB@ppppA@ (R) 6/} VIRTUOSO PLAY-ONLY SAMPLER(tm) V1 Patent Pending,Copyright 1987(C)ETA,Inc.Distributed & Published U60}nder Exclusive License by Virtusonics Corporation LOADING @P_L#PDD..X61}WPx ϿxԅآԢ#_P"Ͽ<өȿҍ@߿62} ԩￍԩ/ P HQX @ < O ?O"޿ Щ:ſԩ< o| a s Vh L_f63}i(iޠi(i` ڍQٍ"R#Ѝ$U%&\ Q |ԩ@҅ 864}өө<ӢPL|ȍ󩣍` HH Rhhh@HƽЩЩЩЩЩЩЩ65} ЩЩЊHi E%R޿  RE%RE%QE%QE%QE%QE%QE%QE%Qh66}h@`G˵̱;˨s˨5yxɊ 9ٽҙi`Iԩԅ 67}RE%Э޿ нE%нE%нE%нE%нE%нE%нE%нE%Њ E%R޿ 68} RE%RE%QE%QE%QE%QE%QE%QE%Q8ⶭ69} ᶭ ԭￍԭſԥ.)LUI￩)￩Э)Ŀ1)%Ŀ%6:} ҙ Ŀ*WJ),  ,)c-46;}LULULU ƬǬ8ǬȬȬǬȬխ5 65856>>I D>==7=<< *<6<};;;:: :99 9ɬʬO $ޭM M Ul$hhh@j~U6=}UL404DɽTʼdY [Yd````ԭ0ԭ䭅ɽʼY [Y``^͠010! X08Ԯ6>}I1خک6HHLWM6Hȱ0HLWLX)@Х)ȱ0˽UcMSA}8˝Q@uZiV6?}WyZiVW e0ͥ}Qu08ʰu==؅˵܅̥)0 ;6@}q˨U ʐ}E0}uUIi i 0 LyV1 }1繐H_H讝5h}h95ɽ˕6A}̕+˨s˨5yx9ɵi ʙҥٽҙ60sM6i6B}`FɽJʼNY [YN`ȱ0) ***ȱ0ˤ͊)) ʽԧ ʽƧʽ͕ͧݶ) YiLO6C}V0ޙ dXޙԮخM`ݶ˕ۧعܹ=`^01080ޝ YZޝ஝䮝6D}0]ǥ1]660}ٶٶٶ ٶ 0 ٶ 讠ɼ5A5 )ɵ˵̠˨5y6E}xɊ 9ٽҙ60sM6i2uZi=ZHZyZi>ZIZʥ) 0隸6F}`RɽVʼZY [YZ`!Bc^͠ж0Զ10Q0ޡ [ޡȶж̶Զ08ȶI1̶йU6G}AEI6L}[L-[ɘ6!ȱ0L-[)IжiжԶLZ)@˥)ޅȱ08ʰiUʝEA AƸƸ XM6H}Ȅ60sM6жiжԶ`^ɽbʼfY [Yf`hHh`H̼j\6I}ˬY̘eː}˹I0 hh`hIhȱe0dȱɝ嶦Ș`c(¯ 44ԭԭT)j93JJJJCΥJJJ5V)eV}ViW6})JJJ-X0YXVT)JJJJiʱT)i孥`HH4H^FTJU4 q6}RTVU4 q^TbU4 q  U褘h4h`H𮊢^ xh7hx`x^6}H  h`˹4H p  WzTԮUخIL{Ti஝Ui6},TȶжU̶Զ ɥTiUi .m@O0 pL^{*TU 44˹ q*TU6}4˹ qݼ 4 qL{ $8h4Ρ` p`TbUcƹǹȹɹ˹b0o WzŹd6}ƹ z˹ ʩ ƹ yǹ yȹ yɹ yLvЪ˹iзxF>F(IiֻȘhֻVH3Fֻֻ &3 &3 6}&3 &3 &3 &3iȅ23i32((ƻ6hLL˃ޖƻL˃fL腨ֻFI FHֻhֻ >8ֻ 6}> >68ֻ&66V6&}滝&6}L&}&6}V6ȘfFVFIFIFHh$H6}V ph}vp}94 DˬT۬V LÃVޣ` `i!6}覛`0ƚ`# ## !`L!R0Sݖ2ĭ32i0ޅ6}Ͻv݆!ԭ L ݖE!58 !L8}0Ș`ｆݖ06}!ݖ`}!ݖ0`vL̈d0( 'ٰٝd0( 'ٰٝv0Yd&I82禅3v2Ii6}dt&I82禅3v2IiL̈d*I8273vIȱ2Iidt*I82736}vIȱ2Ii~0( 'ٰم0( 'ٰم0S$I82禅32Ii$I6}82禅32IiL(I8273Iȱ2Ii'I8273Iȱ2Ii`6}ƮƯ}۬}ed}ˬt}dHteth4ݤtݴĺԺPĺԺ6}dtĺԺ4 04$ 5`4 DˬT۬pƮƯ}۬}e6}}ˬ}pHeh4`亅亥46$6}` 08堅e楥08墅e槥"08H6}ehe"08Hehe8I(&Ii8&(Ii 6}`=7ɠ1ɠ+% L L LH Kh䘐I  &6}8嘨 & &8嘅 eeL݌ee腞HH2F2IF2IȘƮƯF2ee6} 殰eHehHh \hhĘLּ`8孰Ư<8238嬰Ʈ0uwɠs왽s6} sLHPQFPjFP**IP2U2Qh=8M0-ּ" ּ LɠŘּ`HHHHH6}HH rhhhhhhh` HH \hh`ּŠ,Ơ Θ6}`ּ23ɠɠśLjE%8)IHJJhQ22`)I6}HJJhQ228JJ8:ʥȥQ22Ȅ8Ś)ʈQ22`E%8𨥚)I6}HJJhQ22`)ʈHJJhQ22iJJ8<ʥQ22iŚ)IQ22`ɠ36}FjF**IŚŚ J`Ś JƘL:232U2% M0 ּ ּ6}` `HHH rhhh`Ť" Ť Ƙ`Ť6} ƘƙLŤ ƙ񦙽23PFPjFP**IP2U2! M0 ּ ּ`LHˬY6}g8YX0JfhHfhּgּ`&g8ּHXh Ih0 `IiHּ8YXhHXh Ih6}0 ` "ȼѼ(23223L ݸ7ݼ08޴ļ2i6}3iͼѼ`23Мi2ļi32晥2ݸ3ݼ23ɼ2ͼ32 ɼiɼͼiͼ`ɼ6}ͼͽɼiɼͼiͼкa{ ɀ 8 `/HH}Hi'ȼhihhļ8Ѽ`HV6}HV 䣅VWVTȱVUT8#TeTRUiS8UUhh`Uܢ}~'}쨙 `Pe6}xff() y fνf}R H e6}偅ņ 0āhei0`0ԩ48Щ X4L6}䶍D 0 -sLr ӕ0 d0` ?" L L o L6}r L00ȹ:SYS D`8`D8 `2 0308 2` :80 X`6}  L2 03'2 `򿭗` Oi`  ӕ+ :)B J6}JJJ xݩ`Gl 0m S:8 lƘ`1пiڿۿԿտDѿRҿ@ӿؿٿ׿6}ֿ ]ӿLڿۿ|ԿտƘ` -sh- ` <8,ĶŶ*+ XĶ<Ŷ*O+ X ` 6}ɈP 5`ĶŶ*8Ķ+Ŷ.),,{|{Ķm,ĶŶЩ` :0 X 8L8ȹ2ȹ36}.ȹ/01`Կտ0113002 Pӿ`Rҿ@ӿ.ڿ/ۿLz{|}{JJ;{)/ȱ{.6}`h8`L|Կտhڿۿ@ӿRҿ) z )(`;4:ۿi9ڿRҿ@ӿԿտ z0806}@8i8;99k0F484;795:6ȢHȽDhL֘ h84`8`Sҿ@ӿԿտ 6}z鿭ӿ` ) <ȩ<`<ȩ<`1пDѿ8 <ؿȹ<ٿҿS ٿؿֿ׿ ]ӿ`ӿ ^aӿ8`6}  !"#$%&'(  !"#$%&'(6}  !"#$%&'( I$}  !"#$%&'( UVVVVY6}Z  !"#$%&'( ?  !"#$$%&'( 6}  !"#$%&'()   !"#$%&'() 6}$  !"#$%&'()   !""#$%&'() 6}"Dt  !"#$%&'())  &  !"#$%&'()* 6}!#)T  !"##$%&'()* !#&- !"#$%&'(()*6}!#&)0dNZf !""#$%&'()*+ #&),4 !"#$%&&'()*+6}"%),/7( !"#$$%&'()**+,!#%)-048B>_ !""#$%&''()*+6},-!#%'+/37;E !!"#$%%&'()*++,-!#%')-16:>I !!"#$$%&'(()6}*+,-. "$')+/48=AL !!"##$%&''()*+,,-."$&(+-26;?DP !!"##$%&&'(6})**+,-./!#%(*-/49=BGS !!"##$%&&'())*+,--./ "%'*,/16;@EJW !!"##$%%&'6}(()*+,,-./0!#&)+.038=CHMZ !""##$%%&'(()*++,-.//0"%(*-025:@EKP^ !!""#$$%&&6}'(()*++,-../01!#&),/147=BHMSa !!""##$$%&&'(()**+,--./011"%(+-0369?EJPVe !!"""#$$%%&6}&'(()**+,--./0012 #&),/258;AGMSYh !!!"""##$$%%&''(()**+,--./00123!$'*.147:=CIPV\l !!!!"""###$$%%&6}&''())*++,--.//01223"%),/259AHNU[bs"""""#####$$$%%&&6}&''(()**++,--.//0122344$(+/259<@CJQW^ev#####$$$$$%%%&&&''(())**+,,--.//01123445&)-047;>BELSZahz$$$$$$%%%%&&&'6}''(())**++,,-../0012234456'*.159<@CGNU]dk}%%%%%%&&&&'''((())**++,,--../00122344566(+/37:>BEIPX_gn&&&&&&''''(6}((())***++,,--.//001223445667)-048<@CGKSZbiq''''''(((())))**+++,,--..//0112234456678*.26:=AEIMU]dlt(((((())6})))***+++,,--..//001123344566789+/37;?CGKOW_gowPQR J J J6}9\L\c\  @`           n\y\6}   6} $0fhdgsaLJ6}:K\^OPUI_|VCBXZ$#&%"![ ]NM?REYTWQ()'@}FHDGSA {   ` }6}0p0p0p0p0p0p0p0p0p0p6}&6FVfv&6FVfvyslf`[UQLHy6}rlf`[UQLHD@<952/-*(%#! $0   ;BIP\bgmv~6}mv~         6}   6}     6}       6}        6}       ! " 6}"  #   %$virtuoso(r) v1 play-only sampler(tm)(patent pending,copyright 1987(c6})eta,inc.%use joystick or cursor keys to select$a number, then press trigger or ' Y ث  0106}203040506070809101112PLEASE PRESS JOYSTICK TRIGGER OR WHEN DATA DISK IS READY 0@P`p  6}P6070809101112PLEASE PRESS JOYSTICK TRIGGER OR WHEN DATA DISK IS READY 0@P`p  4