home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 75 / 075.d81 / cybercop / cybercop.a7ae (.txt)
Encoding:
Commodore BASIC  |  1990-01-01  |  37.8 KB  |  92 lines
  1. 2 poke52,104:poke56,104:clr:gosub146
  2. 4 poke53264,128:poke53269,.:poke53271,.:poke53275,.:poke53276,255:poke53277,.
  3. 6 poke53285,3:poke53286,11:fori=.to7:poke53287+i,.:poke53249+i*2,66
  4. 8 poke53248+i*2,90+24*i+256*(i=7):poke27640+i,248+i:next
  5. 10 print"[147]";
  6. 12 poke54272,69:poke54273,75:poke54277,51:poke54278,51:fori=.to7:poke54276,33
  7. 14 poke54276,32:poke53269,peek(53269)or2^i:forj=1to15:nextj,i
  8. 16 printtab(11)"[150]@'89 by j. mattson":printtab(14)"[159]p [154]play game"
  9. 18 printtab(14)"[153]d difficulty":printtab(14)"[150]s game speed"
  10. 20 printtab(14)"[158]h [129]high score":printtab(14)"[155]q [152]quit"
  11. 22 printtab(7)"[154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  12. 24 printtab(7)"[221]              [150]i         [154][221]"
  13. 26 printtab(7)"[221] joystick    [150]u o        [154][221]"
  14. 28 printtab(7)"[221] port[153]2 [155]or   [150]j   k keys[155]+ [154][221]"
  15. 30 printtab(7)"[221]             [150]n ,  [150]space [154][221]"
  16. 32 printtab(7)"[221]              [150]m         [154][221]"
  17. 34 printtab(7)"[221]                        [221]"
  18. 36 printtab(7)"[221]      [150]p [159]pause game      [154][221]"
  19. 38 printtab(7)"[221]  [150]q [159]quit while pausing  [154][221]"
  20. 40 printtab(7)"[221]   [150]return [159]pick device   [154][221]"
  21. 42 printtab(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  22. 44 sysp:poke53269,.:onpeek(w)goto76,46,62,108,120
  23. 46 print"[147]"tab(12)"[159]new difficulty:":printtab(15)"h[146]erculean"
  24. 48 printtab(15)"[129]s[146]trenuous":printtab(15)"[158]t[146]ough":printtab(15)"n[146]ormal"
  25. 50 printtab(15)"[154]e[146]asy":poke198,.
  26. 52 geta$:ifa$=""then52
  27. 54 j=.:fori=1to5:ifa$=mid$("hstne",i,1)thenj=i
  28. 56 next:ifj=.then52
  29. 58 poked,5-j
  30. 60 print"[147]";:poke53269,255:goto16
  31. 62 print"[147]"tab(12)"[159]new game speed:":printtab(14)"l[146]ightning"
  32. 64 printtab(14)"[129]f[146]ast":printtab(14)"[158]n[146]ormal":printtab(14)"s[146]low"
  33. 66 printtab(14)"[154]v[146]ery slow":poke198,.
  34. 68 geta$:ifa$=""then68
  35. 70 j=.:fori=1to5:ifa$=mid$("lfnsv",i,1)thenj=i
  36. 72 next:ifj=.then68
  37. 74 pokev,j*15-5:goto60
  38. 76 sysm:poke53269,.:print"[147]":s=10*(peek(s1)+256*peek(s2)):ifpeek(w)=.then80
  39. 78 print"[159]   you have succeeded in your mission":printtab(15)"well done!"
  40. 80 a$=str$(s):i=len(a$)-1:a$=right$(a$,i):a$=left$("000000",6-i)+a$
  41. 82 printtab(10)"[159]final score:  [155]"a$:fori=1to2000:next:ifs<s(19)then108
  42. 84 print"[147][150] a new high score!":poke54277,3:poke54278,.:fori=1to9:poke54273,i*9
  43. 86 poke54276,17:poke54276,16:forj=1to20:nextj,i:j=19:fori=19to.step-1
  44. 88 ifs>s(i)thenj=i
  45. 90 next:ifj=19then94
  46. 92 fori=19toj+1step-1:s(i)=s(i-1):n$(i)=n$(i-1):next
  47. 94 s(j)=s:n$(j)=""
  48. 96 print"[159]  your name please: [152]...............[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:i=.:s=5
  49. 98 printchr$(s)".[157]";:s=157-s:geta$:ifa$=""then98
  50. 100 ifa$=chr$(20)andi>.thenprint"[152].[157][157]";:i=i-1:n$(j)=left$(n$(j),i):goto98
  51. 102 ifa$=chr$(13)andi>.then108
  52. 104 ifi=14or(a$<"-"anda$<>" ")or(a$>"9"anda$<"a")ora$>"_"then98
  53. 106 printa$;:n$(j)=n$(j)+a$:i=i+1:goto98
  54. 108 print"[147]"tab(10)"*[158]*[150]*[129]  [156]t[154]o[159]p [153]sc[158]o[150]r[129]es[156] [154] [159]**[153]*":fori=.to19
  55. 110 a$=str$(s(i)):a=len(a$)-1:a$=right$(a$,a):a$=left$("000000",6-a)+a$
  56. 112 j=1+i+10*(i>9):printtab(9)mid$(c$,j,1)n$(i)tab(25)a$:next
  57. 114 printtab(12)"press any key...":poke198,.
  58. 116 geta$:ifa$=""thensysc:fori=1to25:next:goto116
  59. 118 goto4
  60. 120 print"[147][150]quit? [159]are you sure?":poke198,.
  61. 122 geta$:ifa$="n"then60
  62. 124 ifa$<>"y"then122
  63. 126 print" save high scores? (ready disk drive     [153]before saying yes!)"
  64. 128 poke198,.
  65. 130 geta$:ifa$="n"then142
  66. 132 ifa$<>"y"then130
  67. 134 open15,8,15:print#15,"s0:cyb.high":input#15,j:ifj>1andj<>62then140
  68. 136 open2,8,2,"0:cyb.high,s,w":input#15,j:ifj>.then140
  69. 138 fori=.to19:print#2,n$(i):print#2,s(i):next
  70. 140 close2:close15
  71. 142 poke56576,199:poke53272,21:poke648,4:print"[154][147]";:poke53280,14:poke53281,6
  72. 144 poke52,160:poke56,160:clr:goto174
  73. 146 dims(19),n$(19):m=34304:p=m+3:c=m+6:w=m+9:s1=w+1:s2=w+2:d=w+3:v=w+4
  74. 148 i=.:j=.:s=.:a=.:a$="":c$="[158][150][129][156][154][159][153]":gosub158:poke54296,143:poke54286,255
  75. 150 poke54287,255:poke54290,128
  76. 152 open15,8,15:open2,8,2,"0:cyb.high,s,r":input#15,j
  77. 154 ifj=.thenfori=.to19:input#2,n$(i):input#2,s(i):next
  78. 156 close2:close15:poke56576,198:poke648,104:poke53272,172:print"[147]":return
  79. 158 printchr$(14)"[147]  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  80. 160 fori=1to7:print"  [152]                                    ":next
  81. 162 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";
  82. 164 printtab(16)"[152][195][217][194][197][210][195][207][208]":printtab(9)"[194]y [202]on [205]attson ([195])1989"
  83. 166 printtab(9)"[208]ublished on  [204][207][193][196][211][212][193][210]"
  84. 168 printtab(6)"[211]ubscriptions 1-800-831-2694"
  85. 170 printtab(5)"[195][200][193][206][199][201][206][199][160][212][200][201][211][160][206][207][212][201][195][197][160][201][211][160][201][204][204][197][199][193][204]"
  86. 172 printtab(15)"[154][204]oading...":poke53280,.:poke53281,.:return
  87. 174 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  88. 176 ifer<>63thenend
  89. 178 print"[147]returning to loadstar...":print"load"chr$(34);
  90. 180 print"hello connect"chr$(34)",8":print"run[145][145][145][145][145][145][145][145]":poke631,13
  91. 182 poke632,13:poke633,13:poke198,3:new
  92.