home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 September / 1989-09.d64 / neverest (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  4KB  |  119 lines
  1. 10 goto52000
  2. 20 print"[155]"tab(7)right$(z$+str$(fndk(724)),5)tab(38)peek(716)
  3. 30 gosub1500
  4. 1000 ifm1>0thenm1=m1-1:goto1030
  5. 1010 ifm1=0thenm1=m1-1:printd$tab(8)mb$;
  6. 1020 gosub4000
  7. 1030 ifm2>0thenm2=m2-1:goto1060
  8. 1040 ifm2=0thenm2=m2-1:printd$tab(28)mb$;
  9. 1050 gosub4100
  10. 1060 ifpeek(716)=0then51000
  11. 1070 iflv<4then20
  12. 1075 x=sgn(peek(700)-peek(707)):y=sgn(peek(708)-peek(715)):(NULL)7,zv*x,zv*y
  13. 1090 z=z+1:ifz=zfthengosub4200
  14. 1100 gosub1500
  15. 1110 iflv<6then20
  16. 1120 b=b+1:ifb=bfthen4300
  17. 1130 goto20
  18. 1500 a=peek(727):x=peek(701):y=peek(709)
  19. 1510 poke727,0:if(aand2)=0thenreturn
  20. 1520 x=int((x-8)/4):y=int((y-38)/8):ify<0 theny=0
  21. 1525 ifx<0thenx=0
  22. 1526 ify<22then1590
  23. 1530 ifx<15orx>23then1550
  24. 1540 goto2000
  25. 1550 ifx<7orx>10then1570
  26. 1560 goto2100
  27. 1570 ifx<27orx>30then1590
  28. 1580 goto2200
  29. 1590 printd$(y)tab(x)bk$;:(NULL) 6:(NULL) 1:return
  30. 2000 printd$tab(16)sx$;:(NULL)5,84,229
  31. 2010 (NULL):(NULL):(NULL)5:(NULL)5:fordl=1to4000:next:goto50000
  32. 2100 printd$tab(8)mx$;:(NULL)5,44,229:(NULL)5:(NULL)5:m1=mw:goto3000
  33. 2200 printd$tab(28)mx$;:(NULL)6,124,229:(NULL)6:(NULL)6:m2=mw:goto3000
  34. 3000 a=peek(724)+100:ifa>255thena=aand255:poke725,peek(725)+1
  35. 3010 poke724,a:return
  36. 4000 c1=c1+1:ifc1=mfthenc1=0:(NULL) 5,55,233:(NULL) 5:(NULL)7
  37. 4010 (NULL) 5,5*sgn(peek(700)-peek(705)),mv:return
  38. 4100 c2=c2+1:ifc2=mfthenc2=0:(NULL) 6,135,233:(NULL) 6:(NULL)7
  39. 4110 (NULL) 6,5*sgn(peek(700)-peek(706)),mv:return
  40. 4200 z=0:a=2+int(3*rnd(ti)):if(peek(53269)and2^a)=0thenreturn
  41. 4210 (NULL)7:(NULL)7,peek(700+a),peek(708+a):(NULL)8:return
  42. 4300 b=0:a=2+int(3*rnd(ti)):if(peek(53269)and2^a)=0then20
  43. 4310 x=peek(700+a):y=peek(708+a):ify<62then20
  44. 4320 a=49152+int((x-8)/4)+40*int((y-38)/8):pokea,42:pokea+6144,1
  45. 4330 goto20
  46. 40000 dimb(8),s(8),m$(20),bd(1),sc$(10),d$(24)
  47. 40001 lv=1:mf=50:mv=-1:mw=100:z$="     ":bk$="  [157][157]  ":d$(0)=""
  48. 40002 def fndk(q)=peek(q)+256*peek(q+1)
  49. 40005 read d$,mb$,mx$,sb$,sx$:forg=0to8:readb(g),s(g):next
  50. 40007 forg=1to23:d$(g)=d$(g-1)+"":next:d$(24)=d$(23)
  51. 40010 forg=1to10:readsc$(g):next
  52. 40015 forg=2to4:poke29984+g,14:next
  53. 40020 poke648,192:poke 53280,0:poke 53281,6:poke716,5:poke724,0:poke725,0
  54. 40025 print"[147][155]score:"tab(16)"level:"tab(32)"lives:";
  55. 40030 m$="  ":m$(0)="[149]  ":forg=1to18:m$(g)=m$(g-1)+m$:next
  56. 40040 m$(19)="                                       ":m$(20)=m$(19)+" "
  57. 40050 print"":forg=0to18:printtab(19-g)m$(g):next:rem 50000 from here on
  58. 40060 forg=19to20:printm$(g);:next:poke 56295,9:poke50151,160
  59. 40070 print"[146][169]          [223]"
  60. 40080 print"[169]                          [223]"
  61. 40090 print"                            ";
  62. 40100 print"                            "
  63. 40110 printd$tab(8)mb$d$tab(16)sb$d$tab(28)mb$""
  64. 40120 print"[155]"tab(7)right$(z$+str$(fndk(724)),5);
  65. 40125 printtab(23)right$(z$+str$(lv),2)tab(38)peek(716);
  66. 49999 fordl=1to2000:next:(NULL)192:(NULL):return
  67. 50000 (NULL)200:poke648,196:print"[147]"
  68. 50010 printtab(8)"[207][183][183][205] [206][183][183][205] [207][205] [170] [180]  [170] [206][183][183][205]"
  69. 50020 printtab(8)"[204][175][175][206] [180]  [170] [180][170][180][170] [180]  [170] [205][175][175]"
  70. 50030 printtab(8)"[207][183][183][205] [180]  [170] [180][170][180][170] [180]  [170]  [183][183][205]"
  71. 50040 printtab(8)"[204][175][175][206] [205][175][175][206] [180] [205][186] [205][175][175][206] [205][175][175][206]"
  72. 50050 print""tab(13)sc$(lv)"[145][145][145][206][183][183][205][206][183][183][205][157][157][157][157][157][157][157][157][157][180][170] [180][170][157][157][157][157][157][157][157][157][157]";
  73. 50060 print"[180][170] [180][170][157][157][157][157][157][157][157][157][157][205][175][175][206][205][175][175][206]"
  74. 50070 (NULL)196:(NULL)2:fordl=1to4000:next
  75. 50200 m1=0:m2=0:c1=0:c2=0:b=0:z=0:bp=100*lv:a=peek(724)+bp:lv=lv-(lv<10)
  76. 50210 ifa>255thena=aand255:poke725,peek(725)+1
  77. 50220 poke724,a:poke725,(peek(725)+int(bp/256))and255
  78. 50230 a=peek(716):poke716,a-2*(a<9)
  79. 50240 mf=45-lv*4:mv=-1-int(lv/2):mw=mf*2:bf=55-lv*5:zf=12-lv:zv=.5*lv
  80. 50250 poke53281,b(lv-2):forg=2to4:poke29984+g,s(lv-2):next
  81. 50260 (NULL)200:poke648,192:goto40050
  82. 51000 (NULL):(NULL):poke53281,10
  83. 51010 print"[144]   game  over   "
  84. 51020 fordl=1to3000:next:clr
  85. 52000 poke648,200:print"[147]"
  86. 52005 (NULL)192:poke53272,9:print"[144][147]":poke648,196:poke53280,11:poke53281,0
  87. 52010 print"[155]previous score:"right$("     "+str$(peek(724)+256*peek(725)),5)
  88. 52015 print"[154]"spc(28)"[169][223]"spc(36)"[169][146][169] [223]"spc(34)"[169][146][169] [146][223][223]";
  89. 52020 printspc(32)"[169][146][169] [146][223][223]";
  90. 52030 print"[223]                     ";
  91. 52040 print" [223]         [161][146][161]";
  92. 52050 print" [146][223][223]                       [161][146][161]";
  93. 52060 print" [146][223]  [146][223][223][169][146][169]  [146][223][223]  [161][146][161]";
  94. 52070 print" [146][223]    [146][223][169]     [146][223][223]        [161][146][161]"
  95. 52080 printtab(13)"[213][192][192][192][192][192][192][192][192][192][192][192][192][201]":printtab(13)"[221][156]point values[221]"
  96. 52090 printtab(13)"[202][192][192][192][192][192][192][192][192][192][192][192][192][203]":print
  97. 52100 forq=0to1:readq$:printtab(4)q$;:readq$:printtab(16)q$;
  98. 52105 readq$:printtab(28)q$:print:print:next
  99. 52110 readq$:printtab(9)q$;:readq$:printtab(16)q$:print""
  100. 52115 (NULL)2:(NULL)5:(NULL)7:(NULL)2,13:(NULL)2:(NULL)5:(NULL)7
  101. 52120 (NULL)2,25,169:(NULL)5,79,169:(NULL)7,124,147
  102. 52130 printtab(15)"[129]press fire[157][157][157][157][157][157][157][157][157][157] to start ":(NULL)196
  103. 52140 wait56320,16,16
  104. 59999 (NULL):print"[144][147]":gosub40000:goto20
  105. 60000 data"[149]  [157][157]  [145][146][155]=1","*[155]=1"," =10"
  106. 60001 data"=25","=50","[145][157][168][168][146][152][176][157][157][157][155]  [146][152][219][155]=100"
  107. 60002 data"[168][168][159][215][157][157][157][157][157][157][157][157]  [162][159][146][221][157][157][157][157][157][157][157][157] [153][172][172][172][172][172][172][146][161]"
  108. 60003 data"[155][145][145]=100xlevel"
  109. 60005 data "","[155][168][168][146][152][176][157][157][157][155][172] [146][152][219]","   [157][157][157]   "
  110. 60010 data"[168][168][159][215][157][157][157][157][157][157][157][157]  [162][159][146][221][157][157][157][157][157][157][157][157] [153][172][172][172][172][172][172][146][161]"
  111. 60020 data"[158]   [157][157][157][157][157][157][157][157]    [157][157][157][157][157][157][157][157]        "
  112. 60030 data 4,7,12,1,8,3,10,6,11,8,6,15,2,1,8,0,0,13
  113. 60040 data"[206][180][157][180][157][180][157][157][175][204]","[206][183][183][205][157][157][157][175][175][206][157][157][157][157][206][183][183][157][157][157][204][175][175][175]"
  114. 60050 data"[206][183][183][205][157][157][157][175][175][206][157][157][157][183][183][205][157][157][157][157][205][175][175][206]"," [206][180][157][157][157][206][180][157][157][157][204][175][204][175][157][157][180]"
  115. 60060 data"[207][183][183][183][157][157][157][157][205][175][175][205][157][157][157][157][205][175][175][206]","[206][183][183][205][157][157][157][157][180][157][207][183][183][205][157][157][157][157][205][175][175][206]"
  116. 60070 data"[206][183][183][208][157][206][157][157][206][157][157][206]","[206][183][183][205][157][157][157][157][205][175][175][206][157][157][157][157][206][183][183][205][157][157][157][157][205][175][175][206]"
  117. 60080 data"[206][183][183][205][157][157][157][157][204][175][175][186][157][170][157][157][157][157][205][175][175][206]"
  118. 60090 data"[206][180][206][183][183][205][157][157][157][157][157][157][180][180][170][157][157][157][157][157][157][180][180][170][157][157][157][157][157][157][157][175][204][205][175][175][206]"
  119.