home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 28 / 028.d81 / moonbase (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  190 lines
  1. 1 gosub60100:clr
  2. 10 printchr$(147);chr$(142);:gosub605:poke53281,.:poke53280,.
  3. 50 j=j+1:ifj=10thenifcjthencj=.:pokev+1,peek(v+1)+15:j=.:ifb=.thengosub105
  4. 52 f$=right$(f$,q)+left$(f$,u):e$=right$(e$,r)+left$(e$,p)
  5. 53 d$=right$(d$,q)+left$(d$,u):c$=right$(c$,q)+left$(c$,u)
  6. 54 b$=right$(b$,q)+left$(b$,u):a$=right$(a$,q)+left$(a$,u)
  7. 55 g$=right$(g$,u)+left$(g$,q):h$=right$(h$,u)+left$(h$,q)
  8. 70 getk$:ifk$="q"then60000
  9. 85 a=abs(a)-1:poken,13-a:print""g$;h$:ifk$="q"then60000
  10. 90 print""a$;b$;c$;d$;"";f$;"";e$;""
  11. 92 ifk$=chr$(136)thenb=u:gosub300
  12. 93 ifcjthenifjthen97
  13. 94 ifk$=chr$(133)thenj=.:pokev+u,peek(v+u)-15:cj=u:ifb=0thengosub110
  14. 95 ifk$="q"then60000
  15. 97 ifco=33thenco=.:gosub200:gosub405:b=.:goto100
  16. 98 ifbthenpokev+3,peek(v+3)-4:co=co+u:ifathenpokev+p,peek(v+p)-3
  17. 99 ifpeek(1923)=81thenifcj=.thengosub500
  18. 100 ifk$="q"then60000
  19. 101 x=fre(x):goto50
  20. 105 pokev+3,peek(v+3)+15:return
  21. 110 pokev+3,peek(v+3)-15:return
  22. 200 pokev+p,peek(v+p)-8:pokev+3,peek(v+3)-8:poket,197
  23. 210 forx=1to5:next:poket,198:forx=1to5:next:poket,199
  24. 220 forx=1to10:next:pokev+23,p:pokev+29,3:poket,197
  25. 230 poket,198:poket,199:pokev+23,0:pokev+29,u:return
  26. 300 pokes+u,u:pokes,143:pokes+5,48:pokes+6,144
  27. 305 pokes+4,129:pokes+24,7:return
  28. 400 forx=12544 to 12799:readb:pokex,b:next
  29. 405 forx=1194to1198
  30. 410 ifpeek(x)<>32thenpo=po+25:poke53280,2:poke53281,2
  31. 411 ifpeek(x)<>32thengosub665:gosub445:goto415
  32. 412 next
  33. 415 x=fre(x):poket,196:pokev+3,peek(v+u)-u:pokev+p,173:pokev+28,3
  34. 420 pokev+40,7:pokev+21,3:pokes+24,.:pokes,143:pokes+5,48:pokes+6,144
  35. 430 pokes+4,129:forx=15to0step-u:pokes+24,x:pokes+1,28-x
  36. 440 forx1=1to25:nextx1,x:poke53280,.:poke53281,.:return
  37. 445 print"[155]";po
  38. 450 print"[179][191][188][202][162][223][195][157][157][157][157][157][157][157][157][200][202][207][197][189][220][192][213][157][157][157][157][157][157][157][157]";
  39. 452 print"[191][195][214][223][220][169][189][172][157][157][157][157][157][157][157][157][207][213][217][169][202][204][205][214]"
  40. 455 forx2=1to80:next
  41. 460 print"       [157][157][157][157][157][157][157][157]        ";
  42. 461 print"[157][157][157][157][157][157][157][157]        [157][157][157][157][157][157][157][157]        "
  43. 465 return
  44. 500 pokev,peek(v)-8:pokev+u,peek(v+u)-8:pokev+23,u:ifb=0thenpokev+21,u
  45. 510 poken,197:poken,198:poken,199:pokes,143:pokes+5,48
  46. 512 poke53280,12:poke53281,12
  47. 515 pokes+6,144:pokes+4,129:forx=15to0step-u:pokes+24,x:pokes+1,15-x
  48. 520 pokev+23,u:pokev+29,u:poken,197:poken,198:poken,199
  49. 530 next:pokev+23,.:pokev+29,u:pokev+21,3
  50. 535 pokev,peek(v)+8:pokev+u,peek(v+u)+8:pokev+23,0:poken,13
  51. 537 ifbthengosub300
  52. 540 lv=lv-1:print"[156]";tab(29);lv:poke53280,.:poke53281,.
  53. 545 iflvthenreturn
  54. 547 print"":poke53280,1:poke53281,1
  55. 550 printtab(6)"[166][166][166] [166] [166] [166][166][166]   [166][166][166] [166]  [166] [166][166]  "
  56. 555 printtab(5)"  [166]  [166] [166] [166]     [166]   [166][166] [166] [166] [166] "
  57. 560 printtab(5)"  [166]  [166][166][166] [166][166]    [166][166]  [166][166][166][166] [166] [166] "
  58. 565 printtab(5)"  [166]  [166] [166] [166]     [166]   [166] [166][166] [166] [166] "
  59. 570 printtab(5)"  [166]  [166] [166] [166][166][166]   [166][166][166] [166]  [166] [166][166]  "
  60. 575 fora=1to3000:next:goto60000
  61. 600 rem *** initialization ***
  62. 605 a=.:q=39:r=38:n=2040:u=1:t=n+u:p=2:s=54272
  63. 610 a$="     [206][205]  [206][205]    [206][205]      [206][205]     [206][205]       "
  64. 615 b$="    [206]  [205][206]  [205]  [206]  [205]    [206]  [205]   [206]  [205] [206][205]   "
  65. 620 c$="   [206]    [205]   [205][206]    [205]  [206]    [205] [206]    [205]  [205]  "
  66. 625 d$="  [206]      [205]  [206]      [205][206]      [205]      [205]  [205] "
  67. 630 e$="[168][175][168][168][168][175][168][168][175][162][168][168][168][175][175][168][168][185][175][168][168][175][185][185][168][168][168][168][185][175][168][168][175][168][168][175][175][168][168]"
  68. 635 f$=" [209]             [209]             [209]         "
  69. 640 forx=832to958:readb:pokex,b:next:v=53248:lv=3
  70. 645 poken,13:pokev+u,217:pokev,158:pokev+29,u
  71. 650 pokev+39,7:pokev+37,2:pokev+38,6
  72. 655 forx=12544 to 12799:readb:pokex,b:next:poket,196
  73. 660 pokev+3,peek(v+u)-u:pokev+p,173:pokev+28,3
  74. 662 pokev+40,7:pokev+21,3:print"[147]"
  75. 665 print"[155]score:";po:print"lives:";lv
  76. 667 print"[151] [152][221]f1-jump[221][151]  [152][221]f7-fire missile[221][151]  [152][221]q-quit[221][151] "
  77. 670 g$="[164][175][185][175][164]                                  "
  78. 675 h$=" [183][163][183]                                   ":return
  79. 700 poke53280,12:poke53281,12:print"[147]":cc=54272
  80. 702 forx=1025to1062:pokex,121:pokex+960,120:pokex+cc,0:pokex+960+cc,0:next
  81. 703 forx=1064to1944step40:pokex,118:pokex+39,117
  82. 704 pokex+cc,0:pokex+39+cc,0:next
  83. 799 rem * data for ship 1 *
  84. 800 data 0,0,0,0,0,0,0,0,0
  85. 805 data 0,0,0,0,0,0,0,0,0
  86. 810 data 0,0,0,0,0,0,0,0,0
  87. 815 data 0,0,0,0,0,0,0,128,0
  88. 820 data 0,160,0,0,172,0,4,170,128
  89. 825 data 4,170,168,1,170,10,4,170,170
  90. 830 data 4,134,134,0,16,16,0,4,4,0
  91. 899 rem * data for ship 2 *
  92. 900 data 0,0,0,0,0,0,0,0,0
  93. 905 data 0,0,0,0,0,0,0,0,0
  94. 910 data 0,0,0,0,0,0,0,0,0
  95. 915 data 0,0,0,0,0,0,0,128,0
  96. 920 data 0,160,0,16,172,0,20,170,128
  97. 925 data 5,170,168,1,170,10,5,170,170
  98. 930 data 20,146,146,16,4,4,0,16,16
  99. 999 rem * data for missile *
  100. 1000 data 0,0,0,0,0,0,0,0,0
  101. 1005 data 0,0,0,0,0,0,0,0,0
  102. 1010 data 0,0,0,0,0,0,0,0,0
  103. 1015 data 0,0,0,0,0,0,0,80,0
  104. 1020 data 0,208,0,0,208,0,0,80,0
  105. 1025 data 0,80,0,1,84,0,0,0,0
  106. 1030 data 0,160,0,2,8,0,0,0,0,0
  107. 1099 rem * data for ex #1 *
  108. 1100 data 0,0,0,0,0,0,0,0,0
  109. 1105 data 0,0,0,0,0,0,0,0,0
  110. 1110 data 0,0,0,0,0,0,0,0,0
  111. 1115 data 0,0,0,0,128,0,0,96,128
  112. 1120 data 2,86,64,1,85,96,5,89,80
  113. 1125 data 5,154,0,2,150,64,0,86,0
  114. 1130 data 0,5,0,0,4,0,0,0,0,0
  115. 1199 rem * data for ex #2 *
  116. 1200 data 0,0,0,0,0,0,0,0,0
  117. 1205 data 0,0,0,0,0,0,0,0,0
  118. 1210 data 0,0,0,0,0,0,0,0,0
  119. 1215 data 0,80,0,0,148,96,16,101,144
  120. 1220 data 6,86,64,9,85,100,37,89,84
  121. 1225 data 37,154,72,2,150,64,8,86,16
  122. 1230 data 1,133,16,0,37,0,0,2,128,0
  123. 1299 rem * data for ex #3 *
  124. 1300 data 0,0,0,0,0,0,0,0,0
  125. 1305 data 0,0,0,0,0,0,0,0,0
  126. 1310 data 0,0,0,0,32,0,0,164,8
  127. 1315 data 32,80,148,148,148,96,20,101,148
  128. 1320 data 6,86,65,9,85,101,37,89,86
  129. 1325 data 37,90,74,82,86,65,9,86,16
  130. 1330 data 9,165,24,86,101,8,4,6,128,0
  131. 60000 poke53269,.:poke53280,15:poke53281,15:poke54296,0
  132. 60001 print"[144][147] [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][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  133. 60003 print" [221][208]ress: [198]1 - [210][213][206] this program again. [221]"
  134. 60005 print" [221]       [198]7 - [210]eturn to [204][207][193][196][211][212][193][210].     [221]"
  135. 60007 print" [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][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  136. 60010 getz$:ifz$=""then60010
  137. 60015 ifz$="[133]"thenprint"[147]";:run10
  138. 60020 ifz$<>"[136]"then60010
  139. 60030 open15,8,15,"r0:hello connect=hello connect"
  140. 60040 input#15,er:close15
  141. 60050 ifer<>63thenend
  142. 60060 print"[147]":load"hello connect",8
  143. 60100 pn$="[205][207][207][206] [194][193][211][197]":an$="[194][217]:  [210][207][194][197][210][212] [193][204][207][206][211][207]"
  144. 60110 bo=00:sc=00:cl=06:c1=12:c2=05:c3=12:c4=05:c5=15:c6=15:c7=15
  145. 60120 rem bo - border color
  146. 60121 rem sc - screen color
  147. 60122 rem cl - color poked on border
  148. 60123 rem c1 - top box outside color
  149. 60124 rem c2 - top box inside color
  150. 60125 rem c3 - bottom box outside color
  151. 60126 rem c4 - bottom box inside color
  152. 60127 rem c5 - 'copyright' color
  153. 60128 rem c6 - 'program name' color
  154. 60129 rem c7 - 'authors name' color
  155. 60130 poke53280,bo:poke53281,sc:print"[147]";
  156. 60140 poke646,c1:print"  [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  157. 60150 poke646,c2:print"  [165]        [204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211]:        [167]"
  158. 60170 poke646,c1:print"  [163][163][163][163][163][163][163][163][1