0 PRINT"LOADING FILES":GOSUB9000:GOSUB9100:GOTO100
1 INPUT#15,A$,Z$,A$,A$:IFZ$="OK"THENRETURN
2 PRINTZ$:CLOSE8,15:GOTO2
10 INPUT"HUNDE NUMMER ";A:IFA<1ORA>64THEN10
20 RETURN
50 PRINT" PRESS KEY TO CONTINUE."
60 GETA$:IFA$=""THEN60
70 RETURN
100 PRINT"[147] FILE INTERCHANGE PROGRAM FOR HOUNDED."
110 PRINT" A = SAVE FILES AND END.":PRINT" B = VIEW DOGS FILE (1-64)"
120 PRINT" C = COPY DOGS FILE (1-64)":PRINT" D = RENAME DOG (1-64)"
125 PRINT" E = VALIDATE DISK."
130 PRINT" DOGS 1-32 ENTER FROM SAVED GAME."
140 PRINT" DOGS 33-64 ARE HELD IN DISK STORAGE."
150 GETA$:IFA$=""THEN150
160 IFA$="A"THENGOSUB9200:GOSUB9300:STOP
170 IFA$="B"THENGOSUB300:GOTO100
180 IFA$="C"THENGOSUB400:GOTO100
190 IFA$="D"THENGOSUB500:GOTO100
195 IFA$="E"THENPRINT" VALIDATING":OPEN15,8,15:PRINT#15,"V":CLOSE15:GOTO100
200 GOTO100
300 REM VIEW DOGS FILE (1-64)
310 GOSUB10:PRINT"[147] ";:IFA>32THEN360
315 PRINTLEFT$(D$(A,0),16);" FORM ";D$(A,1);""
320 PRINT" BEST TIME = ";D%(A,4)/100
325 PRINT" VALUE     = ";D%(A,8)*10
330 PRINT" RACES     = ";D%(A,3)
331 PRINT" CUP WINS  = ";D%(A,0)
332 PRINT" TOTAL WINS= ";D%(A,1)
333 PRINT" 2ND OR 3RD= ";D%(A,2)
334 PRINT" FITNESS   = ";D%(A,6);"[157]%"
335 PRINT" B/T SENSE = ";D%(A,7);"[157]%"
336 PRINT" PLAYER    = ";D%(A,9)
337 PRINT" FILE NO.  = ";A
340 GOSUB50:RETURN
360 A=A-32:PRINTLEFT$(E$(A,0),16);" FORM ";E$(A,1);""
365 PRINT"BESTE ZEIT = ";E%(A,4)/100
370 PRINT" VALUE     = ";E%(A,8)*10
371 PRINT" RACES     = ";E%(A,3)
372 PRINT" CUP WINS  = ";E%(A,0)
373 PRINT" TOTAL WINS= ";E%(A,1)
374 PRINT" 2ND OR 3RD= ";E%(A,2)
375 PRINT" FITNESS   = ";E%(A,6);"[157]%"
376 PRINT" B/T SENSE = ";E%(A,7);"[157]%"
377 PRINT" PLAYER    = ";E%(A,9)
378 PRINT" FILE NO.  = ";A+32
380 GOSUB50:RETURN
400 REM COPY DOGS FILE (1-64)
405 GOSUB10:AF=A
410 INPUT" NEW NUMBER ";A:IFA<1ORA>64THEN410
415 IFAF>32THENAF=AF-32:GOTO418
416 Q$(0)=D$(AF,0):Q$(1)=D$(AF,1):Q$(2)=D$(AF,2):FORN=0TO10:Q%(N)=D%(AF,N):NEXT
417 GOTO420
418 Q$(0)=E$(AF,0):Q$(1)=E$(AF,1):Q$(2)=E$(AF,2):FORN=0TO10:Q%(N)=E%(AF,N):NEXT
420 IFA>32THENA=A-32:GOTO430
421 D$(A,0)=Q$(0):D$(A,1)=Q$(1):D$(A,2)=Q$(2):FORN=0TO10:D%(A,N)=Q%(N):NEXT
425 RETURN
430 E$(A,0)=Q$(0):E$(A,1)=Q$(1):E$(A,2)=Q$(2):FORN=0TO10:E%(A,N)=Q%(N):NEXT
435 RETURN
500 REM RENAME DOG (1-64)
510 GOSUB10:IFA>32THENKX$=E$(A-32,0):GOTO530
520 KX$=D$(A,0)
530 PRINT"[147] ";LEFT$(KX$,16);"OLD NAME";""
540 INPUT" NEW NAME";KX$:KX$=KX$+"................":KX$=LEFT$(KX$,16)
550 IFA>32THENE$(A-32,0)=KX$:RETURN
560 D$(A,0)=KX$:RETURN
9000 REM LOAD SAVED FILE
9010 DIMD$(32,2),D%(32,10),R%(32,20),P(10,2),N%(7,8)
9020 OPEN15,8,15:OPEN8,8,8,"SDATA,S,R":GOSUB1
9030 INPUT#8,FM$:FORN=1TO10:INPUT#8,F$(N):NEXT:FORN=1TO10:INPUT#8,F(N):NEXT
9040 INPUT#8,MC$,MC%,CC$,CC%,CP%,CH$,CH%:FORN=1TO10:INPUT#8,CW$(N):NEXT
9050 FORN=1TO32:INPUT#8,D$(N,0),D$(N,1),D$(N,2):FORX=0TO10:INPUT#8,D%(N,X)
9051 NEXTX,N:INPUT#8,P:IFP=0THEN9060
9052 FORN=1TO10:INPUT#8,P(N,0),P(N,2),P$(N):NEXTN
9060 CLOSE8:GOSUB1:CLOSE15:RETURN
9100 REM LOAD CHAMP FILE
9110 DIME$(32,2),E%(32,10)
9120 OPEN15,8,15:OPEN8,8,8,"CDATA,S,R":GOSUB1
9130 FORN=1TO32:INPUT#8,E$(N,0),E$(N,1),E$(N,2):FORX=0TO10:INPUT#8,E%(N,X)
9140 NEXTX,N:CLOSE8:GOSUB1:CLOSE15:RETURN
9200 REM SAVE SAVED FILE
9210 S$=CHR$(13):OPEN15,8,15:OPEN8,8,8,"@0:SDATA,S,W":GOSUB1:PRINT#8,FM$
9220 FORN=1TO10:PRINT#8,F$(N):NEXT:FORN=1TO10:PRINT#8,F(N):NEXT
9230 PRINT#8,MC$,S$,MC%,S$,CC$,S$,CC%,S$,CP%,S$,CH$,S$,CH%:FORN=1TO10
9240 PRINT#8,CW$(N):NEXT:FORN=1TO32:PRINT#8,D$(N,0),S$,D$(N,1),S$,D$(N,2)
9250 FORX=0TO10:PRINT#8,D%(N,X):NEXTX,N:PRINT#8,P:R$=S$:FORN=1TO10
9260 PRINT#8,P(N,0),R$,P(N,2),R$,P$(N):NEXTN:CLOSE8:GOSUB1:CLOSE15:RETURN
9300 REM SAVE CHAMP FILE
9310 OPEN15,8,15:OPEN8,8,8,"@0:CDATA,S,W":GOSUB1:R$=CHR$(13)
9320 FORN=1TO32:PRINT#8,E$(N,0),R$,E$(N,1),R$,E$(N,2):FORX=0TO10:PRINT#8,E%(N,X)
9330 NEXTX=N:SQR8:GOSUB1:CLOSE15:RETURN
9500 THIS GAM(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)^(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)ASCTAN(null)(null)(null)w(null)(null){(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)}(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)#(null);(null)(null)d(null)#(null)FRE(null)tINPUT#P
aG(null)(null)(null)m/(null)(null)(null)--(null)(null)(null)M(null)(null)(null)(null)(null)(null)m(null)hIFABS=(null)(null)>(null)(null)
65325 (null)w(null)(null)(null)qINPUT(null)(null)(null)(null)INPUTA(null)(null)(null)(null)(null)(null)(null)(null)(null)(null).EVERAL HUNDRED CUPS         HAVE BEEN CLOCKED UP AND I HAVE
9505 LEFT MY 6 BEST CHAMPIONS ON THIS        DISK (FILES 33-38).
9506 I THOUGHT YOU MIGHT ONEDAY GET TO       THE STAGE WHERE YOU MIGHT LIKE TO
9507 SEE YOUR BEST DOGS CREAMED BY MY        SUPER-SIX STAR STUDDED BEASTS.
9508 BUT BEFORE YOU RUSH OFF AND INSERT      THEM INTO THE SAVED GAME TO WATCH
9509 IN HORROR AS THEY HUMILIATE YOUR        PREVIOUSLY UNTOUCHABLE SUPERDOG,
9510 IVE (null)T TO COME CLEAN AND TELL YOU      PRECICELY WHAT YOU'RE UP AGAINST.
9511 (OR WOULD HAVE BEEN UP AGAINST IF       YOU ARE PRESENTLY OF SUICIDAL
9512 TENDANCIES FOR HAVING OVERWRITTEN       THEM WITH YOUR MEDIOCRE MUTTS).
9513 FIRSTLY I PLAYED ABOUT 100 WEEKS        TO PRODUCE 10 CHAMPIONS ( I DONT
9514 LIKE TO HAVE MORE THAN 10 AT ONCE       AS I LIKE MY 10 LISTED 1-10 IN THE
9515 BEST 10 TIMES LIST).
9516 KINGSFANCY AND COBRA PLUS WERE THE      2 BEST AT THIS STAGE.
9517 THEN ON A SEPARATE DISK I PLAYED        50 ODD WEEKS AGAINST MY BROTHER
9518 CRAIG WHO PRODUCED A BEAST HE NAMED     THE DOMINATOR.
9519 WE HAD MORE THAN 20 STARS IN THE        GAME OF WHICH NONE COULD STAND WITH
9520 THE DOMINATOR AT HIS BEST.
9521 OUT OF SHEER SPITEFULNESS I PUT MY      10 SUPERDOGS FROM THE OTHER GAME
9522 WITH 20 FROM THE 2ND GAME FOR A 50      WEEK SHOWDOWN.KINGSFANCY PREVAILED.
9523 AFTER MANY DE-REGISTRATIONS AND THE     BIRTH OF DARK STAR THERE WERE OVER
9524 A DOZEN DOGS I WOULD HAVE LIKED TO      LEAVE ON FILE.
9525 HOWEVER,AS I COULDNT HAVE YOUR BEST     DOG BEATING MY NOT QUITE UNBEATABLE
9526 (BUT WORTHY ON SENTIMENTAL GROUNDS)     SECOND-SIX,I DECIDED TO SCRUB ALL
9527 BUT THE FASTEST 4-:
9528 KINGSFANCY......KELVINS
9529 DARK STAR.......KELVINS
9530 COBRA PLUS......KELVINS
9531 THE DOMINATOR...CRAIGS BEAST
9532 THEN COMES THE QUESTIONABLE PART        ( ENSIGN AND UNDERKILL )
9533 THEY WERENT EXACTLY BORN OF NORMAL      CIRCUMSTANCES YOU MIGHT SAY.
9534 THEY WERE HOWEVER PRODUCED BY THE       SAME ROUTINE THAT PRODUCES YOUR
9535 DOGS AND THERE IS NO LIMIT TO HOW       (null)OD A DOG CAN BE...SO YOU CAN GET
9536 BETTER...BUT I'D HAVE TO SEE IT TO      BELIEVE IT.
9537 TO COMMEMORATE THE LOSS OF ALL BUT      MY 3 BEST + CRAIGS BEST DOG I SET
9538 UP THE GAME TO CONTINUALLY OFFER        DOGS UNTIL I BOUGHT ONE.
9539 I REJECTED NEARLY 800 DOGS BEFORE       ACCEPTING UNDERKILL.
9540 AS 5 ISNT AN EVEN NUMBER I WAITED       FOR ONE BETTER THAN UNDERKILL AND
9541 CALLED IT ENSIGN (THE STANDARD).
9542 IM PREPARED TO SAY ITS MY BEST DOG      AND I THINK THAT AFTER ALL MY
9543 EFFORTS I DESERVE THE EXPEDIENCE IN     FINDING HIM THAT I ALLOWED MYSELF.
9544 TO ENTER MY DOGS IN YOUR GAME COPY      THEM TO FILE POSITIONS LESS THAN
9545 NUMBER 33.
9546 PS-I SCRUBBED THEIR RECORDS AND         ENTERED THEM ALL IN A 100 WK.
9547 AUTO-CONT GAME TO LET THEM HAVE         COMPARABLE STATISTICS.
9548 (null)OD LUCK AND THANKS FOR BEING          INTERESTED ENOUGH TO LIST THIS.
9549 THIS IS THE 4TH AND FINAL VERSION       OF HOUNDED ( THE NAME HOUNDED
9550 SUMMED UP THE WAY I FELT WHEN I         STARTED WRITING THE FIRST VERSION
9551 IN 1984 ).
9552 BETWEEN THE 3RD VERSION AND THIS        ONE I WROTE ' ONE-DAY CRICKET '.
9553 HOUNDED IS MORE AN ENTERTAINMENT        PROGRAM THAN A GAME AND I FEEL
9554 THAT IN THE FUTURE THERE WILL BE        A LARGE DEMAND FOR SOFTWARE BY
9555 PEOPLE IN THE 25-125 AGE GROUP.
9556 UNFORTUNATELY THERE ISNT THIS           DEMAND IN 1986 SO I GUESS THE GAME
9557 WONT BE PRODUCED IN EXCESSIVELY         LARGE NUMBERS BUT THOSE BUYING IT
9558 SHOULD GET (null)OD VALUE FOR THEIR         TIME IN PLAYING IT.
9559 WELL ITS SAD TO BE FINISHED WITH        THIS GAME BUT IVE BEEN ADVISED TO
9560 MOVE ON TO WRITING A GAME WITH A        CLEARER LINE OF STRATEGY.
9561 I WOULD HAVE LIKED TO EXPAND THIS       GAME AND THIS FILE TRANSFER THING
9562 BUT THEMS THE BREAKS I GUESS.
9563 (null)ODLUCK AND I HOPE THE GAME MAKES      SOMEONE HAPPY.