Hatena::Groupputikonclub

GGKN12 プログラムリスト

GGKN12 プログラムリスト

Firefoxをご使用の場合はプチコンフォントをダウンロードしていただくことをお勧めします。

また、一部に作業を、お茶犬さん、暇人Aさんが行ってくれました。

ご協力ありがとうございました。

左上から順に取り込んでください。とのこと。

PRG:GGKN12

1/72/73/74/7
f:id:ken10ken:20120316230631p:imagef:id:ken10ken:20120316230632p:imagef:id:ken10ken:20120316230633p:imagef:id:ken10ken:20120316230634p:image
5/76/77/7
f:id:ken10ken:20120316230635p:imagef:id:ken10ken:20120316230636p:imagef:id:ken10ken:20120316230637p:image

  1. IF BUTTON()==1072 THEN @SHATDOWNЛ
  2. VISIBLE 1,0,0,0,0,1Л
  3. GPAGE 1:BGPAGE 1:SPPAGE 1Л
  4. GCLS 0Л
  5. SPCLRЛ
  6. GPAGE 0:SPPAGE 0:BGPAGE 0Л
  7. CLS:COLOR 0Л
  8. CLEARЛ
  9. DIM SC$(24)Л
  10. GCLS 0:SPCLRЛ
  11. @STARTЛ
  12. GCLS 4Л
  13. PRINTЛ
  14. PRINT”  GGK N12”Л
  15. PRINTЛ
  16. PRINT”(C)Genki Soft (C)ニケヤソフトウェア”;Л
  17. SYSBEEP=0Л
  18. GOSUB @BGALLCLRЛ
  19. GOSUB @SIALLCLRЛ
  20. PNLTYPE”OFF”Л
  21. DATA”OFF”,”ON”Л
  22. FOR I=0 TO 1Л
  23. READ OFN$(I)Л
  24. NEXTЛ
  25. DATA ”OFF”,”KYA”,”KYM”,”KYK”Л
  26. FOR I=0 TO 3Л
  27. READ PNL$(I)Л
  28. NEXTЛ
  29. DATA 248,256,184,192Л
  30. DATA 0,23,184,192Л
  31. DIM COMANDO(1)Л
  32. DIM CARSOL(2,4)Л
  33. FOR I=0 TO 1Л
  34. FOR J=0 TO 3Л
  35. READ CARSOL(I,J)Л
  36. NEXTЛ
  37. NEXTЛ
  38. DATA 1Л
  39. DATA 2Л
  40. FOR I=0 TO 1Л
  41. READ DICON(I)Л
  42. NEXTЛ
  43. LOAD2MEM:GGKDATA”,0Л
  44. DATA 0,”000000000000000E000000EF00000EFF0000EFFF000EFFFF00EFFFFF0EFFFFFF”Л
  45. DATA 1,”00000000E0000000FE000000FFE00000FFFE0000FFFFE000FFFFFE00FFFFFFE0”Л
  46. DATA 2,”0EEEEEFF00000EFF00000EFF00000EFF00000EFF00000EFF00000EEE00000000”Л
  47. DATA 3,”FFEEEEE0FFE00000FFE00000FFE00000FFE00000FFE00000EEE0000000000000”Л
  48. DATA 4,”000000000EEEEEEE0EFFFFFF0EF2FFAF0EF2FAFA0EF2FFFA0EF2FFAF0EF2FAAA”Л
  49. DATA 5,”00000000EEEEEE00FFFFFE00F44FFE00FFF4FE00F44FFE00FFF4FE00F44FFE00”Л
  50. DATA 6,”0EFFF8FF0EFFF8FF0E8888880EFFF8FF0EFFF8FF0EEEEEEE0000000000000000”Л
  51. DATA 7,”FFFFFE00FFFFFE0055555E00FFFFFE00FFFFFE00EEEEEE000000000000000000”Л
  52. DATA 8,”000000000EEEEEEE0E4444440EEEEEEE0EFFFFFF0EFEEEEE0EFFFFFF0EFEEEEE”Л
  53. DATA 9,”00000000EEEEEE0044444E00EEEEEE00FFFFFE00EEEEFE00FFFFFE00EEEEFE00”Л
  54. DATA 10,”0EFFFFFF0EFEEEEE0EFFFFFF0EFEEEEE0EFFFFFF0EEEEEEE0000000000000000”Л
  55. DATA 11,”FFFFFE00EEEEFE00FFFFFE00EEEEFE00FFFFFE00EEEEEE000000000000000000”Л
  56. FOR I=0 TO 11Л
  57. READ SPNO,SP$Л
  58. CHRSET ”SPU0”,SPNO,SP$Л
  59. NEXTЛ
  60. DATA 164,”FFFFFFFFFDDDDDDFFDDDDDDFFDDDDDDFFDDDDDDFFDDDEEDFFDDDDDDFFFFFFFFF”Л
  61. DATA 165,”FFFFFFFFFDDDDDDFFDDDDDDFFDDEEEDFFDDEDEDFFDDEEEDFFDDDDDDFFFFFFFFF”Л
  62. DATA 166,”FFFFFFFFFDDDDDDFFDEEEEDFFDEDDEDFFDEDDEDFFDEEEEDFFDDDDDDFFFFFFFFF”Л
  63. DATA 167,”FFFFFFFFFDDDDDDFFDEDDEDFFDDEEDDFFDDEEDDFFDEDDEDFFDDDDDDFFFFFFFFF”Л
  64. DATA 224,”111111111DDDDDDD1DDDDDDD1DDDDDDD1DDDDDDD1DDDDDDD1DDDDDDD11111111”Л
  65. DATA 225,”11111111DDFFFDDFDFDDDDFDDFDDDDFDDFDFFDFDDFDDFDFDDDFFFDDF11111111”Л
  66. DATA 226,”11111111FFDFDDFDDDDFDFDDDDDFFDDDFFDFFDDDDFDFDFDDFFDFDDFD11111111”Л
  67. DATA 231,”11FFF1111FFEFF11FFFEFFF1FFFEEEF1FFFFFFF11FFFFF1111FFF11111111111”Л
  68. FOR I=0 TO 7Л
  69. READ BGNO,BG$Л
  70. CHRSET ”BGU0”,BGNO,BG$Л
  71. NEXTЛ
  72. DATA”■●▲АААААААААААААААААААААААААААА▽”Л
  73. READ SC$Л
  74. @TOPPUTЛ
  75. FOR J=0 TO 31Л
  76. SCM=ASC(MID$(SC$,J,1))Л
  77. BGPUT 1,J,23,SCM,0,0,0Л
  78. NEXTЛ
  79. CRMD=VAL(MID$(MEM$,1,2))Л
  80. ATCR=VAL(MID$(MEM$,3,1))Л
  81. GPAGE 1Л
  82. GRNO$=MID$(MEM$,0,1)Л
  83. LOADGR$=”GRP:GGK_”+GRNO$Л
  84. LOAD LOADGR$,0Л
  85. SYSBEEP=1Л
  86. CLSЛ
  87. COLOR 1Л
  88. VISIBLE 1,1,1,1,1,1Л
  89. FOR I=0 TO 1Л
  90. SPSET I+1,DICON(I),0,0,0,3Л
  91. SPOFS I+1,5,5+I*16Л
  92. NEXTЛ
  93. GOSUB @SE1Л
  94. SPSET 0,0,0,0,0,0Л
  95. @LOOPЛ
  96. ’BEEP 0,819Л
  97. TC=TCHSTЛ
  98. TX=TCHX:TY=TCHYЛ
  99. BT=BUTTON()Л
  100. IK$=INKEY$()Л
  101. IF BT==CRMD AND OLDB!=CRMD THEN GOSUB @CRECKЛ
  102. IF ATCR==1 AND TC==0 AND OLDT!=0 THEN GOSUB @CRECKЛ
  103. IF BT==64 AND OLDB!=64 THEN GOSUB @PNLЛ
  104. IF BT==1024 AND OLDB!=1024 THEN PNL=3:GOSUB @PNLЛ
  105. IF PNL==0 THEN SPOFS 0,TXー8,TYー1Л
  106. IF WIN==FLASE AND IK$==”’” THEN GOSUB @MENUЛ
  107. ON MD(0) GOSUB @LOOP2,@PUT_G1,@LOOP_MEЛ
  108. ON MD(1) GOSUB @LOOP2,@PUT_TM,@LOOP_PRЛ
  109. OLDT=TC:OLDB=BT:OLDW=WINЛ
  110. GOTO @LOOPЛ
  111. @LOOP2Л
  112. RETURNЛ
  113. @PNLЛ
  114. PNL=PNL+1Л
  115. IF PNL>3 THEN PNL=0Л
  116. PNLTYPE PNL$(PNL)Л
  117. RETURNЛ
  118. @CRECKЛ
  119. IF PNL!=0 THEN @EXITЛ
  120. CFL=0Л
  121. BEEP 9Л
  122. ’PRINT TX,TYЛ
  123. FOR I=0 TO 1Л
  124. IF TX>CARSOL(I,0) AND TX<CARSOL(I,1) AND TY>CARSOL(I,2) AND TY<CARSOL(I,3) THEN CFL=I+1Л
  125. WX_=WX(WIN):WSX_=WSX(WIN)Л
  126. WY_=WY(WIN):WSY_=WSY(WIN)Л
  127. IF WIN>=1 AND TX>(WX_)+WSX_*8 AND TX<(WX_+WSX_+1)*8 AND TY>(WY_ー1)*8 AND TY<WY_*8 THEN CFL=3Л
  128. IF WIN==0 AND TX>5 AND TX<5+16 AND TY>5+I*16 AND TY<5+I*16+16 THEN CFL=I+4Л
  129. NEXTЛ
  130. ON CFL GOTO @EXIT,@TIME,@MENU,@WINCLR,@GAME1,@MEMOЛ
  131. @EXITЛ
  132. RETURNЛ
  133. @TIMEЛ
  134. IF WIN>=2 OR MD(1)==1 THEN @EXITЛ
  135. MD(1)=1Л
  136. WX(WIN+1)=21:WY(WIN+1)=18Л
  137. WSX(WIN+1)=10:WSY(WIN+1)=4Л
  138. WPSX=0:WPSY=0Л
  139. GOSUB @WINSETЛ
  140. @PUT_TMЛ
  141. IF WIN==OLDWー1 THEN MD(1)=0:GOTO @EXITЛ
  142. COLOR 1Л
  143. LOCATE 21,19Л
  144. PRINT DATE$;Л
  145. LOCATE 22,20Л
  146. PRINT TIME$;Л
  147. GOTO @EXITЛ
  148. Л
  149. @WINSETЛ
  150. IF WIN>=2 THEN RETURNЛ
  151. WIN=WIN+1Л
  152. BGOFS 0,0,0Л
  153. BGPAGE 0Л
  154. FOR I=WPSX TO WSX(WIN)ー1Л
  155.  FOR J=WPSY TO WSY(WIN)ー1Л
  156.   BGPUT 0,WX(WIN)+I,WY(WIN)+J,15,0,0,0Л
  157.  NEXTЛ
  158. NEXTЛ
  159. BGPUT 0,WX(WIN)+WSX(WIN),WY(WIN)ー1,167,0,0,0Л
  160. FOR I=ー1 TO WSX(WIN)ー1Л
  161. BGPUT 0,WX(WIN)+I,WY(WIN)ー1,1,0,0,0Л
  162. NEXTЛ
  163. FOR I=ー1 TO WSX(WIN)Л
  164. BGPUT 0,WX(WIN)+I,WY(WIN)+WSY(WIN),13,0,0,0Л
  165. NEXTЛ
  166. FOR I=0 TO 1 Л
  167.  FOR J=0 TO WSY(WIN)ー1Л
  168.   BGPUT 0,WX(WIN)+I*WSX(WIN)ー(1ーI),WY(WIN)+J,13,0,0,0Л
  169.  NEXTЛ
  170. NEXTЛ
  171. RETURNЛ
  172. Л
  173. @MENUЛ
  174. IF WIN>=2 THEN @EXITЛ
  175. WX(WIN+1)=1:WY(WIN+1)=5Л
  176. WSX(WIN+1)=8:WSY(WIN+1)=17Л
  177. WPSX=0:WPSY=0Л
  178. GOSUB @WINSETЛ
  179. GOTO @PROPATYЛ
  180. BEEPЛ
  181. RETURNЛ
  182. Л
  183. @SHATDOWNЛ
  184. COLOR 0:BGMSTOPЛ
  185. GPAGE 0:SPPAGE 0:BGPAGE 0Л
  186. CLS:GCLS 0:SPCLRЛ
  187. PRINT”シャットタ゛ウンシテイマス...”;Л
  188. GOSUB @BGALLCLRЛ
  189. CHRINIT”BGU0”Л
  190. CHRINIT”SPU0”Л
  191. SAVE”MEM:GGKDATA”Л
  192. CLEARЛ
  193. CLSЛ
  194. ENDЛ
  195. Л
  196. @SE1Л
  197. FOR I=0 TO 1Л
  198. BEEP 17Л
  199. WAIT 20Л
  200. NEXTЛ
  201. BEEP 17,ー50,85Л
  202. RETURNЛ
  203. @WINCLRЛ
  204. BGOFS 0,0,0Л
  205. FOR I=ー1 TO WSX(WIN)Л
  206.  FOR J=ー1 TO WSY(WIN)Л
  207.   LOCATE WX(WIN)+I,WY(WIN)+J:PRINT” ”;Л
  208.   BGPUT 0,WX(WIN)+I,WY(WIN)+J,0,0,0,0Л
  209.  NEXTЛ
  210. NEXTЛ
  211. WIN=WINー1Л
  212. IF WIN!=0 THEN WIN=WINー1:WPSX=WSX(WIN)ーWX(WIN):WPSY=WSY(WIN)ーWY(WIN):GOSUB @WINSETЛ
  213. RETURNЛ
  214. Л
  215. @BGALLCLRЛ
  216. FOR P=0 TO 1Л
  217.  FOR I=0 TO 63Л
  218.   FOR J=0 TO 63Л
  219.    BGPUT P,I,J,0,0,0,0Л
  220.   NEXTЛ
  221.  NEXTЛ
  222. NEXTЛ
  223. Л
  224. @SIALLCLRЛ
  225. FOR I=0 TO 3Л
  226. ICONCLR IЛ
  227. NEXTЛ
  228. RETURNЛ
  229. Л
  230. @PROPATYЛ
  231. IF WIN>=2 THEN @EXITЛ
  232. MD(1)=2Л
  233. WX(WIN+1)=1:WY(WIN+1)=1Л
  234. WSX(WIN+1)=30:WSY(WIN+1)=21Л
  235. WPSX=0:WPSY=0Л
  236. GOSUB @WINSETЛ
  237. COLOR 0:LOCATE 1,0:PRINT”フ゜ロハ゜ティ”;Л
  238. COLOR 1Л
  239. LOCATE 2,3:PRINT”テ゛スクトッフ゜:”;Л
  240. LOCATE 2,5:PRINT”クリック:    オートクリック:”;Л
  241. LOCATE 11,21:PRINT”Б:シャットタ゛ウン”;Л
  242. @LOOP_PRЛ
  243. IF WIN==OLDWー1 THEN MD(1)=0:GOTO @EXITЛ
  244. IF BT==32 THEN @SHATDOWNЛ
  245. LOCATE 11,3:PRINT GRNO$Л
  246. LOCATE 7,5 :PRINT CRMDЛ
  247. LOCATE 19,5:PRINT OFN$(ATCR)Л
  248. OLDPY=PRYЛ
  249. GOTO @EXITЛ
  250. Л
  251. @MEMOЛ
  252. IF WIN>=2 THEN @EXITЛ
  253. MD(0)=2Л
  254. WX(WIN+1)=1:WY(WIN+1)=1Л
  255. WSX(WIN+1)=30:WSY(WIN+1)=21Л
  256. WPSX=0:WPSY=0Л
  257. GOSUB @WINSETЛ
  258. COLOR 0:LOCATE 1,0:PRINT”ワーフ゜ロ”;Л
  259. COLOR 1Л
  260. LOCATE 2,1:PRINT”А:LOAD”;Л
  261. LOCATE 10,1:PRINT”Б:SAVE”;Л
  262. MEX=0:MEY=0Л
  263. @LOOP_MEЛ
  264. IF WIN==0 THEN MD(0)=0:GOTO @EXITЛ
  265. IF MEMD==1 THEN @INPUT_MEЛ
  266. LOCATE 1+MEX,3+MEYЛ
  267. PRINT IK$;Л
  268. IF IK$!=”” THEN MEX=MEX+1Л
  269. IF IK$==CHR$(13) THEN MEX=0:MEY=MEY+1Л
  270. IF BT==16 AND OLDB!=16 THEN GOSUB @LOAD_MEЛ
  271. IF BT==128 AND OLDB!=128 THEN MEX=MEXー1:LOCATE 1+MEX,1+MEY:PRINT” ”Л
  272. IF MEX>29 THEN MEY=MEY+1:MEX=0Л
  273. IF MEX<0 THEN MEY=MEYー1:MEX=28Л
  274. IF MEY>18 THEN MEY=MEYー1:MEX=0Л
  275. IF MEY<0 THEN MEY=MEY+1:MEX=28Л
  276. GOTO @EXITЛ
  277. @LOAD_MEЛ
  278. MEMD=1Л
  279. LOCATE 1,1:PRINT”                               ”;Л
  280. LOCATE 1,2:PRINT”ファイルメイハ?”;Л
  281. @INPUT_MEЛ
  282. LOCATE 1+INX,3Л
  283. PRINT IK$;Л
  284. IF IK$!=”” THEN INX=INX+1Л
  285. IF IK$==CHR$(13) THEN NAME$=””:GOTO @INP2_MEЛ
  286. RETURNЛ
  287. @INP2_MEЛ
  288. FOR SX=1 TO INXー1Л
  289. NAME$=NAME$+CHR$(CHKCHR(SX,3))Л
  290. NEXTЛ
  291. @LOAD2_MEЛ
  292. LO$=”MEM:”+NAME$Л
  293. LOAD LO$,FALSEЛ
  294. FOR I=1 TO 22Л
  295. LOCATE 0,I:PRINT”                               ”;Л
  296. NEXTЛ
  297. LOCATE 1,3:PRINT MEM$Л
  298. MEMD=0Л
  299. RETURNЛ
  300. @GAME1Л
  301. IF WIN>=2 THEN @EXITЛ
  302. MD(0)=1Л
  303. COLOR 1Л
  304. WX(WIN+1)=1:WY(WIN+1)=1Л
  305. WSX(WIN+1)=30:WSY(WIN+1)=21Л
  306. WPSX=0:WPSY=0Л
  307. GOSUB @WINSETЛ
  308. COLOR 0:LOCATE 1,0:PRINT”トライアタック「タシサ゛ン」”;Л
  309. COLOR 1Л
  310. BGM=0:BGMPLAY BGMЛ
  311. @SET_G1Л
  312. P$=””Л
  313. LOCATE 2,5:PRINT”     ”;Л
  314. A=RND(30)+1:B=RND(20)+1Л
  315. LOCATE 2,2Л
  316. PRINT A;”+”;B;”=  ”;Л
  317. @PUT_G1Л
  318. IF FL_G1==1 THEN @CHK_G1Л
  319. IF WIN==0 THEN MD(0)=0:BGMSTOP:GOTO @EXITЛ
  320. IF VAL(IK$)!=0 OR IK$==”0” THEN P$=P$+IK$Л
  321. IF LEN(P$)>5 THEN P$=MID$(P$,0,5)Л
  322. IF BT==128 THEN LOCATE 2,5:PRINT”     ”;:P$=””Л
  323. IF IK$==CHR$(13) THEN FL_G1=1Л
  324. LOCATE 2,5Л
  325. PRINT P$Л
  326. GOTO @EXITЛ
  327. @CHK_G1Л
  328. FL_G1=0Л
  329. IF VAL(P$)==A+B THEN BEEP 34Л
  330. GOTO @SET_G1Л