home *** CD-ROM | disk | FTP | other *** search
/ Dark Star 3 / Dark_Star_03_1995_-_de_Side_B.d64 / files (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  153 lines
  1. 0 print"loading files":gosub9000:gosub9100:goto100
  2. 1 input#15,a$,z$,a$,a$:ifz$="ok"thenreturn
  3. 2 printz$:close8,15:goto2
  4. 10 input"hunde nummer ";a:ifa<1ora>64then10
  5. 20 return
  6. 50 print" press key to continue."
  7. 60 geta$:ifa$=""then60
  8. 70 return
  9. 100 print"[147] file interchange program for hounded."
  10. 110 print" a = save files and end.":print" b = view dogs file (1-64)"
  11. 120 print" c = copy dogs file (1-64)":print" d = rename dog (1-64)"
  12. 125 print" e = validate disk."
  13. 130 print" dogs 1-32 enter from saved game."
  14. 140 print" dogs 33-64 are held in disk storage."
  15. 150 geta$:ifa$=""then150
  16. 160 ifa$="a"thengosub9200:gosub9300:stop
  17. 170 ifa$="b"thengosub300:goto100
  18. 180 ifa$="c"thengosub400:goto100
  19. 190 ifa$="d"thengosub500:goto100
  20. 195 ifa$="e"thenprint" validating":open15,8,15:print#15,"v":close15:goto100
  21. 200 goto100
  22. 300 rem view dogs file (1-64)
  23. 310 gosub10:print"[147] ";:ifa>32then360
  24. 315 printleft$(d$(a,0),16);" form ";d$(a,1);""
  25. 320 print" best time = ";d%(a,4)/100
  26. 325 print" value     = ";d%(a,8)*10
  27. 330 print" races     = ";d%(a,3)
  28. 331 print" cup wins  = ";d%(a,0)
  29. 332 print" total wins= ";d%(a,1)
  30. 333 print" 2nd or 3rd= ";d%(a,2)
  31. 334 print" fitness   = ";d%(a,6);"[157]%"
  32. 335 print" b/t sense = ";d%(a,7);"[157]%"
  33. 336 print" player    = ";d%(a,9)
  34. 337 print" file no.  = ";a
  35. 340 gosub50:return
  36. 360 a=a-32:printleft$(e$(a,0),16);" form ";e$(a,1);""
  37. 365 print"beste zeit = ";e%(a,4)/100
  38. 370 print" value     = ";e%(a,8)*10
  39. 371 print" races     = ";e%(a,3)
  40. 372 print" cup wins  = ";e%(a,0)
  41. 373 print" total wins= ";e%(a,1)
  42. 374 print" 2nd or 3rd= ";e%(a,2)
  43. 375 print" fitness   = ";e%(a,6);"[157]%"
  44. 376 print" b/t sense = ";e%(a,7);"[157]%"
  45. 377 print" player    = ";e%(a,9)
  46. 378 print" file no.  = ";a+32
  47. 380 gosub50:return
  48. 400 rem copy dogs file (1-64)
  49. 405 gosub10:af=a
  50. 410 input" new number ";a:ifa<1ora>64then410
  51. 415 ifaf>32thenaf=af-32:goto418
  52. 416 q$(0)=d$(af,0):q$(1)=d$(af,1):q$(2)=d$(af,2):forn=0to10:q%(n)=d%(af,n):next
  53. 417 goto420
  54. 418 q$(0)=e$(af,0):q$(1)=e$(af,1):q$(2)=e$(af,2):forn=0to10:q%(n)=e%(af,n):next
  55. 420 ifa>32thena=a-32:goto430
  56. 421 d$(a,0)=q$(0):d$(a,1)=q$(1):d$(a,2)=q$(2):forn=0to10:d%(a,n)=q%(n):next
  57. 425 return
  58. 430 e$(a,0)=q$(0):e$(a,1)=q$(1):e$(a,2)=q$(2):forn=0to10:e%(a,n)=q%(n):next
  59. 435 return
  60. 500 rem rename dog (1-64)
  61. 510 gosub10:ifa>32thenkx$=e$(a-32,0):goto530
  62. 520 kx$=d$(a,0)
  63. 530 print"[147] ";left$(kx$,16);"old name";""
  64. 540 input" new name";kx$:kx$=kx$+"................":kx$=left$(kx$,16)
  65. 550 ifa>32thene$(a-32,0)=kx$:return
  66. 560 d$(a,0)=kx$:return
  67. 9000 rem load saved file
  68. 9010 dimd$(32,2),d%(32,10),r%(32,20),p(10,2),n%(7,8)
  69. 9020 open15,8,15:open8,8,8,"sdata,s,r":gosub1
  70. 9030 input#8,fm$:forn=1to10:input#8,f$(n):next:forn=1to10:input#8,f(n):next
  71. 9040 input#8,mc$,mc%,cc$,cc%,cp%,ch$,ch%:forn=1to10:input#8,cw$(n):next
  72. 9050 forn=1to32:input#8,d$(n,0),d$(n,1),d$(n,2):forx=0to10:input#8,d%(n,x)
  73. 9051 nextx,n:input#8,p:ifp=0then9060
  74. 9052 forn=1to10:input#8,p(n,0),p(n,2),p$(n):nextn
  75. 9060 close8:gosub1:close15:return
  76. 9100 rem load champ file
  77. 9110 dime$(32,2),e%(32,10)
  78. 9120 open15,8,15:open8,8,8,"cdata,s,r":gosub1
  79. 9130 forn=1to32:input#8,e$(n,0),e$(n,1),e$(n,2):forx=0to10:input#8,e%(n,x)
  80. 9140 nextx,n:close8:gosub1:close15:return
  81. 9200 rem save saved file
  82. 9210 s$=chr$(13):open15,8,15:open8,8,8,"@0:sdata,s,w":gosub1:print#8,fm$
  83. 9220 forn=1to10:print#8,f$(n):next:forn=1to10:print#8,f(n):next
  84. 9230 print#8,mc$,s$,mc%,s$,cc$,s$,cc%,s$,cp%,s$,ch$,s$,ch%:forn=1to10
  85. 9240 print#8,cw$(n):next:forn=1to32:print#8,d$(n,0),s$,d$(n,1),s$,d$(n,2)
  86. 9250 forx=0to10:print#8,d%(n,x):nextx,n:print#8,p:r$=s$:forn=1to10
  87. 9260 print#8,p(n,0),r$,p(n,2),r$,p$(n):nextn:close8:gosub1:close15:return
  88. 9300 rem save champ file
  89. 9310 open15,8,15:open8,8,8,"@0:cdata,s,w":gosub1:r$=chr$(13)
  90. 9320 forn=1to32:print#8,e$(n,0),r$,e$(n,1),r$,e$(n,2):forx=0to10:print#8,e%(n,x)
  91. 9330 nextx=n:sqr8:gosub1:close15:return
  92. 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){$7b}(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL){$7d}(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
  93. 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)
  94. 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
  95. 9505 left my 6 best champions on this        disk (files 33-38).
  96. 9506 i thought you might oneday get to       the stage where you might like to
  97. 9507 see your best dogs creamed by my        super-six star studded beasts.
  98. 9508 but before you rush off and insert      them into the saved game to watch
  99. 9509 in horror as they humiliate your        previously untouchable superdog,
  100. 9510 ive (NULL)t to come clean and tell you      precicely what you're up against.
  101. 9511 (or would have been up against if       you are presently of suicidal
  102. 9512 tendancies for having overwritten       them with your mediocre mutts).
  103. 9513 firstly i played about 100 weeks        to produce 10 champions ( i dont
  104. 9514 like to have more than 10 at once       as i like my 10 listed 1-10 in the
  105. 9515 best 10 times list).
  106. 9516 kingsfancy and cobra plus were the      2 best at this stage.
  107. 9517 then on a separate disk i played        50 odd weeks against my brother
  108. 9518 craig who produced a beast he named     the dominator.
  109. 9519 we had more than 20 stars in the        game of which none could stand with
  110. 9520 the dominator at his best.
  111. 9521 out of sheer spitefulness i put my      10 superdogs from the other game
  112. 9522 with 20 from the 2nd game for a 50      week showdown.kingsfancy prevailed.
  113. 9523 after many de-registrations and the     birth of dark star there were over
  114. 9524 a dozen dogs i would have liked to      leave on file.
  115. 9525 however,as i couldnt have your best     dog beating my not quite unbeatable
  116. 9526 (but worthy on sentimental grounds)     second-six,i decided to scrub all
  117. 9527 but the fastest 4-:
  118. 9528 kingsfancy......kelvins
  119. 9529 dark star.......kelvins
  120. 9530 cobra plus......kelvins
  121. 9531 the dominator...craigs beast
  122. 9532 then comes the questionable part        ( ensign and underkill )
  123. 9533 they werent exactly born of normal      circumstances you might say.
  124. 9534 they were however produced by the       same routine that produces your
  125. 9535 dogs and there is no limit to how       (NULL)od a dog can be...so you can get
  126. 9536 better...but i'd have to see it to      believe it.
  127. 9537 to commemorate the loss of all but      my 3 best + craigs best dog i set
  128. 9538 up the game to continually offer        dogs until i bought one.
  129. 9539 i rejected nearly 800 dogs before       accepting underkill.
  130. 9540 as 5 isnt an even number i waited       for one better than underkill and
  131. 9541 called it ensign (the standard).
  132. 9542 im prepared to say its my best dog      and i think that after all my
  133. 9543 efforts i deserve the expedience in     finding him that i allowed myself.
  134. 9544 to enter my dogs in your game copy      them to file positions less than
  135. 9545 number 33.
  136. 9546 ps-i scrubbed their records and         entered them all in a 100 wk.
  137. 9547 auto-cont game to let them have         comparable statistics.
  138. 9548 (NULL)od luck and thanks for being          interested enough to list this.
  139. 9549 this is the 4th and final version       of hounded ( the name hounded
  140. 9550 summed up the way i felt when i         started writing the first version
  141. 9551 in 1984 ).
  142. 9552 between the 3rd version and this        one i wrote ' one-day cricket '.
  143. 9553 hounded is more an entertainment        program than a game and i feel
  144. 9554 that in the future there will be        a large demand for software by
  145. 9555 people in the 25-125 age group.
  146. 9556 unfortunately there isnt this           demand in 1986 so i guess the game
  147. 9557 wont be produced in excessively         large numbers but those buying it
  148. 9558 should get (NULL)od value for their         time in playing it.
  149. 9559 well its sad to be finished with        this game but ive been advised to
  150. 9560 move on to writing a game with a        clearer line of strategy.
  151. 9561 i would have liked to expand this       game and this file transfer thing
  152. 9562 but thems the breaks i guess.
  153. 9563 (NULL)odluck and i hope the game makes      someone happy.
  154.