プチコンまとめWiki (初代/mkII)

投稿プログラム : フリーセル

パンくずリスト

2012年4月8日投稿 / 投稿者 : わかん / タグ : 投稿プログラム ゲーム トランプゲーム QRコード mkII専用

概要

普通のフリーセルです。フリーセルが分からない方はググってね

残念ながらWindows付属のフリーセルのゲーム番号には対応していませんが、あらゆるカード配置でゲームが遊べます。

注意点

  • 中断データ用にMEMファイルを2つ使います。また、プログラムの最初の方でLOADします。 ファイルの読み込み失敗のダイアログが煩わしい方は、空のファイルをFILE0$のファイル名(初期はMEM:FREECELL)でSAVEしておいてください。
  • プログラム中にも注意書きがありますが、一部フォントをいじってます。上書きする際はパッケージパラメータ文字列に"80001000"を入れておくとよいでしょう。

遊び方

起動すると下画面に説明が出てきますのでそれを読んでください。

GAME IDについて

プログラム中に説明がありませんが、GAME IDはカードの初期配置を左上から横に読んで、各カードを下のように変換した文字列になります。

  1.  │A23456789гJQK
  2. ─┼─────────────
  3. Я│〜。「」、・ヲアイウエオカ
  4. а│キクケコサシスセソタチツテ
  5. в│トナニヌネノハヒフヘホマミ
  6. б│ムメモヤユヨラリルレロワン

上記に無い文字列は無視されますのでSELECT GAMEで入力する際は分かりやすくスペースを挟むとよいでしょう。

ちなみに、SELECT GAMEで入力する時に出る分数は目安ですので、守らなくても、併せてちゃんとしたGAME IDになれば通ります。

ちなみにちなみに、SELECT GAMEの1つ目の入力で"ランダム"と入れればRANDOM GAMEが始まります。

スクリーンショット・動画

動作しているところを撮影した写真や動画があれば貼り付けてください。

freecel.png

QR コード

プチコンmkII 向けの QR コードです。

1/142/143/144/14
qr0.pngqr1.pngqr2.pngqr3.png
5/146/147/148/14
qr4.pngqr5.pngqr6.pngqr7.png
9/1410/1411/1412/14
qr8.pngqr9.pngqr10.pngqr11.png
13/1414/14
qr12.pngqr13.png

プログラムリスト

  1. VISIBLE 1,1,0,0,0,0
  2. @TITLE
  3. CLEAR:ACLS:PNLTYPE”OFF”
  4. LOCATE 4,8
  5. ′””””””””””””””””””””””””””
  6. ?”┻┏┏┻┏┫┻┏┏┻┏┏┳┏┫┻┏┏┻  ┻  ”:?”    ”;
  7. ?”┻┠┓┻┠┗┻┠┓┻┠┓┻  ┻┠┓┻  ┻  ”:?”    ”;
  8. ?”┻  ┻┃┓┻  ┻  ┻ ┳┻  ┻  ┻  ”:?”    ”;
  9. ?”┃  ┃ ┃┃┏┏┃┏┏ ┏━┃┏┏┃┏┏┃┏┏”
  10. ′””””””””””””””””””””””””””
  11. ′(C)ワカン
  12. ′カイヘン・リュウヨウ ハ コ゛シ゛ユウニ。
  13. ′チュウタ゛ン テ゛ータ セーフ゛ヨウノ
  14. ′ファイルヲ 2ツ シテイ。
  15. FILE0$=”MEM:FREECELL”
  16. FILE1$=”MEM:FREECELU”
  17. ′イチフ゛ テ゛フォルトトハ
  18. ′コトナル フォントカ゛ アリマス。
  19. ′CHR$(224)=”■”′ミキ゛ムキ”▲”
  20. ′CHR$(225)=”●”′ミキ゛ムキ ニシ゛ュウ”△”
  21. ′CHR$(227)=”▼”′ニシ゛ュウ”△”
  22. ′CHR$(228)=”□”′ミキ゛ムキ”△”
  23. ′CHR$(244)=”г”′ヒトモシ゛テ゛”10”
  24. ′ВВВВВВВВВВВВВВВВВ
  25. ′В ヘンスウ ナト゛ テイキ゛ В
  26. ′ВВВВВВВВВВВВВВВВВ
  27. ′   0123456789ABCDEF
  28. S$=” Яавб”
  29. R$=” A23456789гJQK”
  30. ′┌────────────────────────┐
  31. ′│ソレソ゛レノ カ−ト゛ヲ 2ケタノ       │
  32. ′│16シンスウ(カ−ト゛コ−ト゛)テ゛ アラワス。│
  33. ′│&H10 ノ クライハ ス−ト、        │
  34. ′│&H01 ノ クライハ ランクヲ アラワス。  │
  35. ′│EX.”аK”=&H2D            │
  36. ′└────────────────────────┘
  37. DIM F[9,19]:DIM P[9]
  38. ′┌──────────────────┐
  39. ′│フィ−ルト゛ヲ アラワス ハイレツ。│
  40. ′│F[0]カ゛ フリ−セルヲ、    │
  41. ′│F[1]カラ F[9]マテ゛ カ゛ │
  42. ′│ソレソ゛レノ レツヲ アラワス。  │
  43. ′│ナカミハ カ−ト゛コ−ト゛。    │
  44. ′│スタックトシテ アツカウタメ、   │
  45. ′│P[]ニ ソレソ゛レノ レツノ   │
  46. ′│スタックホ゜インタ ヲ カクノウ。 │
  47. ′└──────────────────┘
  48. DIM H[4]
  49. ′┌─────────────────┐
  50. ′│ホ−ムセルヲ アラワス ハイレツ。│
  51. ′│ナカミハ イチハ゛ン ウエノ   │
  52. ′│カ−ト゛ノ カ−ト゛コ−ト゛。  │
  53. ′└─────────────────┘
  54. UL=129
  55. DIM U[UL,3]
  56. ′┌─────────────────────────┐
  57. ′│UNDOキノウノ タメノ ハイレツ。       │
  58. ′│U[?]ニ、                   │
  59. ′│イト゛ウモト・イト゛ウサキ・イト゛ウマイスウ ノ │
  60. ′│クミヲ カクノウ。                │
  61. ′│イッハ゜イニ ナルト フルイ ホウカラ ウワカ゛キ│
  62. ′│シ゛ュンカン スルヨウニ ツカウ。        │
  63. ′│ULハ キオクスル サイタ゛イノ UNDOカイスウ│
  64. ′│(+1)ヲ キメル テイスウ。          │
  65. ′└─────────────────────────┘
  66. GOSUB@INITIALIZE
  67. GOTO@MENU
  68.  @INITIALIZE ′┐
  69. ′│ヘンスウ ショキカ。  │
  70. ′└────────────┘
  71. FOR I=0 TO 8
  72.  FOR J=0 TO 18
  73.   F[I,J]=0
  74.  NEXT
  75.  P[I]=0
  76. NEXT
  77. FOR I=0 TO 3
  78.  H[I]=16*I+16
  79. NEXT
  80. C=1:H=0
  81. ′┌─────────────────────┐
  82. ′│Cハ カ−ソル。             │
  83. ′│Hハ ツカンテ゛イル カ−ト゛。     │
  84. ′│イス゛レモ セイノ カス゛カ゛ レツヲ、 │
  85. ′│フノ カス゛カ゛ フリ−セルヲ アラワス。│
  86. ′│タタ゛シ H==0ハ ツカンテ゛イル   │
  87. ′│カ−ト゛カ゛ ナイコトヲ アラワス。   │
  88. ′└─────────────────────┘
  89. M=30
  90. ′┌───────────────────┐
  91. ′│BGMPLAYノ キョクハ゛ンコ゛ウ。│
  92. ′│タタ゛シ 30ハ BGMSTOP。  │
  93. ′└───────────────────┘
  94. S=0
  95. ′┌─────────────────┐
  96. ′│テカス゛。 フリ−セルト レツノ │
  97. ′│ナカテ゛ イト゛ウスルト フエル。│
  98. ′└─────────────────┘
  99. T=0
  100. ′┌──────────────────┐
  101. ′│ケ゛−ム スタ−トシ゛ノ シ゛コク。│
  102. ′└──────────────────┘
  103. U=0:R=0:D=0
  104. ′┌───────────────────┐
  105. ′│Uハ UNDOノ ケ゛ンカイ。    │
  106. ′│Rハ REDOノ ケ゛ンカイ。    │
  107. ′│Dハ ト゛コマテ゛ UNDO シタカ。│
  108. ′└───────────────────┘
  109. RETURN
  110. ′ВВВВВВВВВВВВВВВВВ
  111. ′В フ゜ロク゛ラム ホンリュウ В
  112. ′ВВВВВВВВВВВВВВВВВ
  113.  @MENU ′─────────┐
  114. ′│ケ゛−ム モ−ト゛ センタク。│
  115. ′└───────────────┘
  116. LOCATE 10,15:?”А:RANDOM GAME”
  117. LOCATE 10,16:?”Б:SELECT GAME”
  118. A=0:GOSUB@MANUAL
  119. SYSBEEP=0
  120. LOAD FILE0$,0
  121. SYSBEEP=1
  122. IF LEN(MEM$)==239 THEN LOCATE 10,17:?”Ф:SUSPENDED GAME”
  123. @MENU_LOOP
  124. WAIT 10
  125. B=BUTTON()
  126. IF B AND  5 THEN A=(A+3)%4:GOSUB@MANUAL
  127. IF B AND 10 THEN A=(A+1)%4:GOSUB@MANUAL
  128. IF B AND 16 GOTO@RGAME
  129. IF B AND 32 GOTO@SGAME
  130. IF LEN(MEM$)==239 THEN IF B AND 64 GOTO@SUSGAME
  131. GOTO@MENU_LOOP
  132.  @RGAME ′───────────────┐
  133. ′│カ−ト゛ ハイチヲ ランタ゛ムテ゛ カイシ。│
  134. ′└──────────────────────┘
  135. G$=   ”〜。「」、・ヲアイウエオカ”
  136. G$=G$+”キクケコサシスセソタチツテ”
  137. G$=G$+”トナニヌネノハヒフヘホマミ”
  138. G$=G$+”ムメモヤユヨラリルレロワン”
  139. FOR I=0 TO 50
  140.  A=RND(52−I)
  141.  G$=LEFT$(G$,A)+MID$(G$,A+1,51−A)+MID$(G$,A,1)
  142. NEXT I
  143. GOTO@DEAL
  144.  @SGAME ′─────────────┐
  145. ′│カ−ト゛ ハイチヲ シテイシテ カイシ。│
  146. ′└────────────────────┘
  147. BEEP 3
  148. CLS:PNLTYPE”KYK”
  149. @SGAME0
  150. INPUT”GAME ID(26/52)”;I$
  151. G$=I$
  152. IF G$==”ランタ゛ム” GOTO@RGAME
  153. INPUT”GAME ID(52/52)”;I$
  154. G$=G$+I$+” ”
  155. FOR I=0 TO LEN(G$)−1
  156.  A=ASC(MID$(G$,I,1))
  157.  IF 159<A AND A<167 THEN NEXT
  158.  IF 176<A AND A<222 THEN NEXT
  159.  G$=LEFT$(G$,I)+RIGHT$(G$,LEN(G$)−1−I)
  160.  I=I−1
  161. NEXT
  162. IF LEN(G$)<52 THEN ?”INPUT AGAIN”:GOTO@SGAME0
  163. FOR I=LEN(G$)−1 TO 0 STEP −1
  164.  IF INSTR(G$,MID$(G$,I,1))!=I THEN I=−1
  165. NEXT
  166. IF I==−2 THEN ?”INPUT AGAIN”:GOTO@SGAME0
  167. GOTO@DEAL
  168.  @SUSGAME ′───────────┐
  169. ′│チュウタ゛ンシタ ケ゛−ムヲ サイカイ。│
  170. ′└────────────────────┘
  171. G$=MID$(MEM$,0,52)
  172. FOR I=0 TO 3
  173.  K$=MID$(MEM$,I+52,1)
  174.  IF K$==”0”THEN CC=16*I+16 ELSE GOSUB@KANATOCC
  175.  H[I]=CC
  176. NEXT
  177. FOR I=0 TO 8
  178.  X=I
  179.  FOR J=0 TO 18
  180.   K$=MID$(MEM$,56+I*19+J,1)
  181.   GOSUB@KANATOCC
  182.   IF CC>0 THEN V=CC:GOSUB@PUSH
  183.  NEXT
  184. NEXT
  185. S=VAL(MID$(MEM$,227,6))
  186. T=VAL(MID$(MEM$,233,6))
  187. SYSBEEP=0
  188. LOAD FILE1$,0
  189. SYSBEEP=1
  190. FOR I=0 TO LEN(MEM$)−2 STEP 2
  191.  A=ASC(MID$(MEM$,I,1))
  192.  U[I/2,0]=FLOOR(A/16)−8+(A>127)
  193.  U[I/2,1]=A%16−8+(A%16>7)
  194.  U[I/2,2]=ASC(MID$(MEM$,I+1,1))
  195. NEXT
  196. R=I/2:D=R
  197. GOTO@START
  198.  @DEAL ′─────────────┐
  199. ′│G$カラ カ−ト゛ ハイチヲ モトメ │
  200. ′│F[]ニ カ−ト゛コ−ト゛ヲ ハイチ。│
  201. ′└───────────────────┘
  202. PNLTYPE”OFF”
  203. FOR I=0 TO 51
  204.  X=I%8+1
  205.  K$=MID$(G$,I,1)
  206.  GOSUB@KANATOCC
  207.  V=CC
  208.  GOSUB@PUSH
  209. NEXT
  210.  @START ′─────────┐
  211. ′│ヒョウシ゛ ナト゛       │
  212. ′│ケ゛−ム カイシ シ゛ュンヒ゛。│
  213. ′└────────────────┘
  214. BGMPLAY 4:WAIT 20
  215. GOSUB@PRINTBASE
  216. GOSUB@PRINTCARDS
  217. GOSUB@PRINTCURSOR
  218. GOSUB@PRINTSTEPS
  219. GOSUB@PRINTUNDO
  220. T=MAINCNTL−T
  221.  @MAIN ′────────────┐
  222. ′│メインル−フ゜。          │
  223. ′│オシタ ホ゛タンニ ヨッテ センイ。│
  224. ′└──────────────────┘
  225. GOSUB@PRINTTIME
  226. GOSUB@PRINTCLOCK
  227. FOR I=0 TO 9
  228. NEXT
  229. WAIT 10
  230. B=BUTTON()
  231. IF B AND    1 GOTO@UP
  232. IF B AND    2 GOTO@DOWN
  233. IF B AND    4 GOTO@LEFT
  234. IF B AND    8 GOTO@RIGHT
  235. IF B AND   16 GOTO@ABTN
  236. IF B AND   32 GOTO@CANCEL
  237. IF B AND   64 GOTO@TOHC
  238. IF B AND  128 GOTO@TOFC
  239. IF B AND  256 GOTO@UNDO
  240. IF B AND  512 GOTO@REDO
  241. IF B AND 1024 GOTO@SMENU
  242. GOTO@MAIN
  243.  @CLEAR ′────────┐
  244. ′│クリア スルト トンテ゛クル。│
  245. ′└───────────────┘
  246. BGMPLAY 5
  247. COLOR 0
  248. LOCATE 10,11:?”C L E A R !!”
  249. LOCATE 11,13:?”А:NEW GAME”
  250. LOCATE 11,14:?”Б:END GAME”
  251. @CLEAR_LOOP
  252. GOSUB@PRINTCLOCK
  253. WAIT 10
  254. B=BUTTON()
  255. IF B AND 16 GOTO@TITLE
  256. IF B AND 32 GOTO@FINISH
  257. GOTO@CLEAR_LOOP
  258.  @FINISH ′──────┐
  259. ′│フ゜ロク゛ラムヲ トシ゛ル。│
  260. ′└──────────────┘
  261. ACLS
  262. WAIT 10:BGMSTOP
  263. END
  264. ′ВВВВВВВВВВВВВ
  265. ′В ホ゛タン ハンノウ В
  266. ′ВВВВВВВВВВВВВ
  267. @UP ′↑──────────────────────
  268. GOSUB@SHIFTTOEMPTY
  269. IF F GOTO@UP0
  270. IF !P[0] GOTO@MAIN
  271. GOSUB@ERASECURSOR
  272. C=−(C>P[0])*P[0]−(C<=P[0])*C
  273. GOTO@MOVEEND
  274. @UP0
  275. GOSUB@ERASEBLUECARDS
  276. N=N%L+1
  277. GOSUB@PRINTBLUECARDS
  278. GOTO@MOVEEND
  279. @DOWN ′↓────────────────────
  280. GOSUB@SHIFTTOEMPTY
  281. IF F GOTO@DOWN0
  282. IF !P[0] GOTO@MAIN
  283. GOSUB@ERASECURSOR
  284. C=−(C>P[0])*P[0]−(C<=P[0])*C
  285. GOTO@MOVEEND
  286. @DOWN0
  287. GOSUB@ERASEBLUECARDS
  288. N=(N+L−2)%L+1
  289. GOSUB@PRINTBLUECARDS
  290. GOTO@MOVEEND
  291. @LEFT ′←────────────────────
  292. GOSUB@SHIFTTOEMPTY
  293. IF F THEN GOSUB@ERASEBLUECARDS
  294. GOSUB@ERASECURSOR
  295. IF C==−1THEN C=−P[0]−1
  296. IF C==1 THEN C=9
  297. C=C−SGN(C)
  298. GOSUB@SHIFTTOEMPTY
  299. IF F GOTO@CHECKBLUE
  300. GOTO@MOVEEND
  301. @RIGHT ′→───────────────────
  302. GOSUB@SHIFTTOEMPTY
  303. IF F THEN GOSUB@ERASEBLUECARDS
  304. GOSUB@ERASECURSOR
  305. C=C+SGN(C)
  306. IF C==−P[0]−1 THEN C=−1
  307. IF C==9     THEN C=1
  308. GOSUB@SHIFTTOEMPTY
  309. IF F GOTO@CHECKBLUE
  310. GOTO@MOVEEND
  311. @CHECKBLUE
  312. GOSUB@SHIFTLIMIT
  313. N=1
  314. @CHECKBLUE_LOOP
  315.  IF N>=L GOTO@CHECKBLUE_OUT
  316.  X1=H:Y1=P[H]−N−1
  317.  X2=H:Y2=P[H]−N
  318.  GOSUB@JUDGE
  319.  IF !F GOTO@CHECKBLUE_OUT
  320.  N=N+1
  321. GOTO@CHECKBLUE_LOOP
  322. @CHECKBLUE_OUT
  323. L=N
  324. GOSUB@PRINTBLUECARDS
  325. GOTO@MOVEEND
  326. @MOVEEND
  327. BEEP 2
  328. GOSUB@PRINTCURSOR
  329. GOTO@MAIN
  330. @ABTN ′А────────────────────
  331. GOTO”@ABTN”+STR$(SGN(H)+1)
  332. @ABTN1 ′H==0
  333. IF C>0THEN IF !P[C]GOTO@MISS
  334. BEEP 3
  335. GOSUB@ERASECURSOR
  336. H=C
  337. GOSUB@PRINTCURSOR
  338. GOTO@MAIN
  339. @ABTN0 ′H<0
  340. IF C<0 GOTO@MISS
  341. X1=C:Y1=P[C]−1:X2=0:Y2=−H−1
  342. IF P[C] THEN GOSUB@JUDGE:IF !F GOTO@MISS
  343. GOSUB@ERASECURSOR
  344. U0=H:U1=C:U2=1
  345. GOSUB@MARKUNDO
  346. X=X2:Y=Y2:GOSUB@INTERCEPT
  347. X=X1:GOSUB@PUSH
  348. GOTO@ENDABTN
  349. @ABTN2 ′H>0
  350. IF C<0 GOTO@MISS
  351. IF !P[C] GOTO@ABTN2_OUT
  352. GOSUB@SHIFTLIMIT
  353. N=1
  354. @ABTN2_LOOP
  355.  X1=C:Y1=P[C]−1:X2=H:Y2=P[H]−N
  356.  GOSUB@JUDGE
  357.  IF F GOTO@ABTN2_OUT
  358.  IF N>=L GOTO@MISS
  359.  X1=X2:Y1=Y2−1
  360.  GOSUB@JUDGE
  361.  IF !F GOTO@MISS
  362.  N=N+1
  363. GOTO@ABTN2_LOOP
  364. @ABTN2_OUT
  365. GOSUB@ERASECURSOR
  366. U0=H:U1=C:U2=N
  367. GOSUB@MARKUNDO
  368. X1=H:X2=C:K=N:GOSUB@SHIFT
  369. @ENDABTN
  370. BEEP 3
  371. N=0:H=0
  372. GOSUB@PRINTCARDS
  373. GOSUB@PRINTCURSOR
  374. S=S+1:GOSUB@PRINTSTEPS
  375. GOTO@MAIN
  376. @CANCEL ′Б──────────────────
  377. IF !H GOTO@MAIN
  378. BEEP 4
  379. GOSUB@ERASECURSOR
  380. GOSUB@SHIFTTOEMPTY
  381. IF F THEN GOSUB@ERASEBLUECARDS
  382. H=0
  383. GOSUB@PRINTCURSOR
  384. GOTO@MAIN
  385. @TOHC ′Ф────────────────────
  386. GOTO”@TOHC”+STR$(SGN(C)+1)
  387. @TOHC0 ′C<0
  388. A=F[0,−C−1]:GOTO@TOHC_MAIN
  389. @TOHC2 ′C>0
  390. IF P[C]<1 GOTO@MISS
  391. A=F[C,P[C]−1]
  392. GOTO@TOHC_MAIN
  393. @TOHC1 ′C==0
  394. GOTO@MISS
  395. @TOHC_MAIN
  396. IF A−H[A/16−1]!=1 GOTO@MISS
  397. GOSUB@ERASECURSOR
  398. U0=C:U1=−4−FLOOR(A/16):U2=1
  399. GOSUB@MARKUNDO
  400. X=(C>0)*C
  401. IF X THEN Y=P[C] ELSE Y=−C−1
  402. GOSUB@INTERCEPT
  403. H[A/16−1]=H[A/16−1]+1
  404. BEEP 7
  405. IF C<−P[0] THEN C=C+2+SGN(C+1)
  406. H=0
  407. GOSUB@PRINTCARDS
  408. GOSUB@PRINTCURSOR
  409. IF H[0]+H[1]+H[2]+H[3]>211 GOTO@CLEAR
  410. GOTO@MAIN
  411. @TOFC ′Х────────────────────
  412. IF P[0]>3 GOTO@MISS
  413. IF C<1    GOTO@MISS
  414. IF !P[C]  GOTO@MISS
  415. GOSUB@ERASECURSOR
  416. U0=C:U1=−P[0]−1:U2=1
  417. GOSUB@MARKUNDO
  418. X=C:GOSUB@POP
  419. X=0:GOSUB@PUSH
  420. BEEP 3
  421. H=0
  422. GOSUB@PRINTCARDS
  423. GOSUB@PRINTCURSOR
  424. S=S+1:GOSUB@PRINTSTEPS
  425. GOTO@MAIN
  426. @UNDO ′К────────────────────
  427. ′レツ←レツ @UNDO→1→    @ENDUNDO
  428. ′レツ←FC @UNDO→1→2→3→@ENDUNDO
  429. ′レツ←HC @UNDO→0→    @ENDUNDO
  430. ′FC←レツ @UNDO→      @ENDUNDO
  431. ′FC←HC @UNDO→0→3→  @ENDUNDO
  432. IF D==U GOTO@MISS
  433. GOSUB@ERASECURSOR
  434. BEEP 6
  435. D=(D+UL−1)%UL
  436. IF U[D,1]<−4 GOTO@UNDO0
  437. IF 0<U[D,1]  GOTO@UNDO1
  438. X=0:GOSUB@POP
  439. X=U[D,0]:GOSUB@PUSH
  440. C=U[D,0]
  441. GOTO@ENDUNDO
  442. @UNDO0
  443. V=H[−U[D,1]−5]
  444. H[−U[D,1]−5]=V−1
  445. IF U[D,0]<0 GOTO@UNDO3
  446. X=U[D,0]:GOSUB@PUSH
  447. GOTO@ENDUNDO
  448. @UNDO1
  449. IF U[D,0]<0 GOTO@UNDO2
  450. X1=U[D,1]:X2=U[D,0]:K=U[D,2]
  451. GOSUB@SHIFT
  452. C=U[D,0]
  453. GOTO@ENDUNDO
  454. @UNDO2
  455. X=U[D,1]:GOSUB@POP
  456. C=U[D,0]
  457. @UNDO3
  458. X=0:Y=−U[D,0]−1
  459. GOSUB@INSERT
  460. GOTO@ENDUNDO
  461. @ENDUNDO
  462. GOSUB@PRINTCARDS
  463. GOSUB@PRINTCURSOR
  464. GOSUB@PRINTUNDO
  465. GOTO@MAIN
  466. @REDO ′н────────────────────
  467. ′レツ→レツ @REDO→    @ENDREDO
  468. ′レツ→FC @REDO→0→  @ENDREDO
  469. ′レツ→HC @REDO→0→1→@ENDREDO
  470. ′FC→レツ @REDO→2→3→@ENDREDO
  471. ′FC→HC @REDO→2→1→@ENDREDO
  472. IF D==R GOTO@MISS
  473. GOSUB@ERASECURSOR
  474. BEEP 5
  475. IF U[D,0]<0 GOTO@REDO2
  476. IF U[D,1]<0 GOTO@REDO0
  477. X1=U[D,0]:X2=U[D,1]:K=U[D,2]
  478. GOSUB@SHIFT
  479. C=U[D,1]
  480. S=S+1
  481. GOSUB@PRINTSTEPS
  482. GOTO@ENDREDO
  483. @REDO0
  484. X=U[D,0]:GOSUB@POP
  485. IF U[D,1]<−4 GOTO@REDO1
  486. X=0:GOSUB@PUSH
  487. C=U[D,1]
  488. S=S+1
  489. GOSUB@PRINTSTEPS
  490. GOTO@ENDREDO
  491. @REDO1
  492. H[−U[D,1]−5]=V
  493. IF C<=−P[0] THEN C=C+2+SGN(C+1)
  494. GOTO@ENDREDO
  495. @REDO2
  496. X=0:Y=−U[D,0]−1
  497. GOSUB@INTERCEPT
  498. IF 0<U[D,1] GOTO@REDO3
  499. GOTO@REDO1
  500. @REDO3
  501. X=U[D,1]:GOSUB@PUSH
  502. C=U[D,1]
  503. S=S+1
  504. GOSUB@PRINTSTEPS
  505. GOTO@ENDREDO
  506. @ENDREDO
  507. D=(D+1)%UL
  508. GOSUB@PRINTCARDS
  509. GOSUB@PRINTCURSOR
  510. GOSUB@PRINTUNDO
  511. GOTO@MAIN
  512. @MISS ′─────────────────────
  513. BEEP 4
  514. GOTO@MAIN
  515. @SMENU ′START───────────────
  516. T0=MAINCNTL
  517. BEEP 12
  518. GOSUB@PRINTBASE
  519. GOSUB@PRINTSTEPS
  520. GOSUB@PRINTTIME
  521. GOSUB@PRINTUNDO
  522. PNLSTR 22,8,”←”,9
  523. PNLSTR 26,8,”→”,9
  524. A=0
  525. @SMENU_LOOP
  526. GOSUB@PRINTCLOCK
  527. PNLSTR 18,9+A,      ”А”,9
  528. PNLSTR 18,9+(A+1)%6,”↓”,9
  529. PNLSTR 18,9+(A+2)%6,” ”
  530. PNLSTR 18,9+(A+3)%6,” ”
  531. PNLSTR 18,9+(A+4)%6,” ”
  532. PNLSTR 18,9+(A+5)%6,”↑”,9
  533. WAIT 10
  534. B=BUTTON()
  535. IF B AND  1THEN BEEP 2:A=(A+5)%6
  536. IF B AND  2THEN BEEP 2:A=(A+1)%6
  537. IF B AND  4THEN M=(M+30)%31:GOSUB@BGM
  538. IF B AND  8THEN M=(M+1)%31:GOSUB@BGM
  539. IF B AND 16THEN@SMENU0
  540. GOTO@SMENU_LOOP
  541. @SMENU0
  542. BEEP 12
  543. IF A THEN@SMENU1
  544. PNLSTR 22,8,” ”
  545. PNLSTR 26,8,” ”
  546. FOR I=9 TO 14
  547.  PNLSTR 18,I,” ”
  548. NEXT
  549. GOSUB@PRINTCARDS
  550. GOSUB@PRINTCURSOR
  551. T=T−T0+MAINCNTL
  552. @SMENU1
  553. ON A GOTO@RETMAIN,@SMANUAL,@RETRY,@TITLE,@SUSPEND,@FINISH
  554. @BGM
  555. IF M==30 THEN BGMSTOP ELSE BGMPLAY M
  556. GOSUB@PRINTBGM
  557. GOTO@SMENU_LOOP
  558. @RETMAIN
  559. GOSUB@SHIFTTOEMPTY
  560. IF F THEN GOSUB@PRINTBLUECARDS
  561. GOTO@MAIN
  562. @SMANUAL
  563. A=0:GOSUB@MANUAL
  564. @SMANUAL_LOOP
  565. PNLSTR 1,23,”PUSH Б TO RETURN”,9
  566. WAIT 10
  567. B=BUTTON()
  568. IF B AND  5 THEN A=(A+3)%4:GOSUB@MANUAL
  569. IF B AND 10 THEN A=(A+1)%4:GOSUB@MANUAL
  570. IF B AND 32 GOTO@SMENU
  571. GOTO@SMANUAL_LOOP
  572. @RETRY
  573. GOSUB@INITIALIZE
  574. GOTO@DEAL
  575. @SUSPEND
  576. ′ケ゛−ムキロク
  577. MEM$=G$
  578. FOR I=0 TO 3
  579.  CC=H[I]
  580.  IF CC%16==0 THEN K$=”0” ELSE GOSUB@CCTOKANA
  581.  MEM$=MEM$+K$
  582. NEXT
  583. FOR I=0 TO 8
  584.  FOR J=0 TO 18
  585.   CC=F[I,J]
  586.   GOSUB@CCTOKANA
  587.   MEM$=MEM$+K$
  588.  NEXT
  589. NEXT
  590. MEM$=MEM$+RIGHT$(”00000”+STR$(S),6)
  591. T=T0−T
  592. MEM$=MEM$+RIGHT$(”00000”+STR$(T),6)
  593. SAVE FILE0$
  594. ′UNDOキロク
  595. MEM$=””
  596. @SUSPEND_LOOP
  597. IF D==U GOTO@SUSPEND_OUT
  598. IF LEN(MEM$)==256 GOTO@SUSPEND_OUT
  599. D=(D+UL−1)%UL
  600. A=U[D,0]+8−(U[D,0]>0)
  601. A=U[D,1]+8−(U[D,1]>0)+A*16
  602. MEM$=CHR$(A)+CHR$(U[D,2])+MEM$
  603. GOTO@SUSPEND_LOOP
  604. @SUSPEND_OUT
  605. SAVE FILE1$
  606. GOTO@FINISH
  607. ′ВВВВВВВВВВВ
  608. ′В サフ゛ル−チン В
  609. ′ВВВВВВВВВВВ
  610.  @KANATOCC ′────────────┐
  611. ′│GAME IDヨウノ カナ K$ヲ イレルト│
  612. ′│カ−ト゛コ−ト゛CCヲ ハク。       │
  613. ′└──────────────────────┘
  614. CC=ASC(K$)−170
  615. CC=CC+(CC<0)*10
  616. CC=FLOOR(CC/13)*16+CC%13+17
  617. RETURN
  618.  @CCTOKANA ′───────────┐
  619. ′│カ−ト゛コ−ト゛CCヲ イレルト     │
  620. ′│GAME IDヨウノ カナ K$ヲ ハク。│
  621. ′└─────────────────────┘
  622. CC=CC−17
  623. CC=FLOOR(CC/16)*13+CC%16
  624. K$=CHR$(CC+170−(CC<7)*10)
  625. RETURN
  626. ′╂╂╂╂╂╂╂╂╂╂╂╂
  627. ′╂ スタック ソウサ ╂
  628. ′╂╂╂╂╂╂╂╂╂╂╂╂
  629.  @PUSH ′───────────────┐
  630. ′│Vヲ スタック F[X]ノ ウエニ オク。│
  631. ′└─────────────────────┘
  632. F[X,P[X]]=V
  633. P[X]=P[X]+1
  634. RETURN
  635.  @POP ′───────────┐
  636. ′│スタック F[X]ノ ウエカラ │
  637. ′│ヒトツ トッテ Vニ イレル。 │
  638. ′└────────────────┘
  639. P[X]=P[X]−1
  640. V=F[X,P[X]]
  641. F[X,P[X]]=0
  642. RETURN
  643.  @INSERT ′────────────────┐
  644. ′│Vヲ スタック F[X]ノ Yハ゛ンメニ オク。│
  645. ′└────────────────────────┘
  646. FOR I=P[X]−1 TO Y STEP −1
  647.  F[X,I+1]=F[X,I]
  648. NEXT
  649. F[X,Y]=V
  650. P[X]=P[X]+1
  651. RETURN
  652.  @INTERCEPT ′────────┐
  653. ′│スタック F[X]ノ Yハ゛ンメカラ │
  654. ′│ヒトツ トッテ Vニ イレル。    │
  655. ′└───────────────────┘
  656. V=F[X,Y]
  657. FOR I=Y TO P[X]−2
  658.  F[X,I]=F[X,I+1]
  659. NEXT
  660. P[X]=P[X]−1
  661. F[X,P[X]]=0
  662. RETURN
  663.  @SHIFT ′────────────┐
  664. ′│X1カラ X2ヘ Kマイ ウコ゛カス。│
  665. ′└───────────────────┘
  666. FOR I=K TO 1 STEP −1
  667.  V=F[X1,P[X1]−I]:X=X2
  668.  GOSUB@PUSH
  669.  F[X1,P[X1]−I]=0
  670. NEXT
  671. P[X1]=P[X1]−K
  672. RETURN
  673. ′╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂
  674. ′╂ イト゛ウ ハンテイ カンケイ ╂
  675. ′╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂
  676.  @SHIFTTOEMPTY ′────────┐
  677. ′│カ−ト゛ヲ カラノ レツニ イト゛ウシヨウト│
  678. ′│シタトキ Fカ゛ TRUE。        │
  679. ′│ソノトキタ゛ケ イト゛ウ マイスウノ    │
  680. ′│センタクカ゛ ヒツヨウナ タメ。      │
  681. ′└──────────────────────┘
  682. F=FALSE
  683. IF C<1 THEN RETURN
  684. IF H<1 THEN RETURN
  685. IF P[C] THEN RETURN
  686. F=TRUE
  687. RETURN
  688.  @SHIFTLIMIT ′───────┐
  689. ′│サイタ゛イ ナンマイ ウコ゛カセルカヲ│
  690. ′│Lニ イレル。            │
  691. ′│カ−ト゛カ゛ ツナカ゛ルカハ     │
  692. ′│ココテ゛ハ カンカ゛エナイ。     │
  693. ′└───────────────────┘
  694. L=1
  695. FOR I=1 TO 8
  696.  L=L*(1+!P[I])
  697.  I=I+(I==C−1)
  698. NEXT
  699. L=L*(5−P[0])
  700. IF L>P[H] THEN L=P[H]
  701. RETURN
  702.  @JUDGE ′─────────────────┐
  703. ′│F[X1,Y1] ト F[X2,Y2] ノ   │
  704. ′│カ−ト゛カ゛ ツナカ゛ルカ ヲ F ニ イレル。│
  705. ′└────────────────────────┘
  706. F=(F[X1,Y1]−F[X2,Y2]+64)%32==17
  707. RETURN
  708.  @MARKUNDO ′────────┐
  709. ′│U0,U1,U2ヲ U[]ニ イレテ│
  710. ′│U,R,Dヲ チョウセイ。     │
  711. ′└──────────────────┘
  712. U[D,0]=U0:U[D,1]=U1:U[D,2]=U2
  713. D=(D+1)%UL:R=D
  714. IF U==R THEN U=(U+1)%UL
  715. GOSUB@PRINTUNDO
  716. RETURN
  717. ′╂╂╂╂╂╂╂╂╂
  718. ′╂ ヒョウシ゛ ╂
  719. ′╂╂╂╂╂╂╂╂╂
  720. @PRINTBASE ′────────────────
  721. CLS:LOCATE 16,0
  722. COLOR 0
  723. ?”[  ][  ][  ][  ]”;
  724. ?”└ ↑Х FREECELLS ┘└ ↑Ф HOMECELLS ┘”;
  725. ?”┌──────────────────────────────┐”
  726. LOCATE 0,23
  727. ?”└──────────────────────────────┘”;
  728. RESTORE@MAINPANEL
  729. GOSUB@PRINTPANEL
  730. GOSUB@PRINTGAMEID
  731. GOSUB@PRINTBGM
  732. RETURN
  733. @PRINTPANEL ′───────────────
  734. FOR I=0 TO 23
  735.  READ A$
  736.  PNLSTR 0,I,A$
  737. NEXT
  738. RETURN
  739. @MANUAL ′───────────────────
  740. BEEP 9
  741. RESTORE”@HOWTO”+STR$(A)
  742. GOSUB@PRINTPANEL
  743. PNLSTR 18,23,”←”,9
  744. PNLSTR 31,23,”→”,9
  745. RETURN
  746. @MAINPANEL
  747. DATA”К───UNDO                REDO───н”
  748. DATA”                 TO HOMECELL──Ф ”
  749. DATA” П──CURSOR       TO FREECELL─Х А”
  750. DATA”                 CANCEL HOLD──Б│”
  751. DATA”                 HOLD/SHIFT ───┘”
  752. DATA”                       CARDS    ”
  753. DATA”                                ”
  754. DATA”    ┌GAME ID──┐  ┌START────┐    ”
  755. DATA”    │         │  │BGM      │    ”
  756. DATA”    │         │  │ CONTINUE│    ”
  757. DATA”    │         │  │ HOW TO  │    ”
  758. DATA”    │         │  │ RETRY   │    ”
  759. DATA”    │         │  │ NEW GAME│    ”
  760. DATA”    │         │  │ SUSPEND │    ”
  761. DATA”    │         │  │ END GAME│    ”
  762. DATA”    └─────────┘  └─────────┘    ”
  763. DATA”    ┌STEPS────┐  ┌TIME─────┐    ”
  764. DATA”    │         │  │         │    ”
  765. DATA”    └─────────┘  └─────────┘    ”
  766. DATA”    ┌UNDO─────┐  ┌CLOCK────┐    ”
  767. DATA”    │    к    │  │         │    ”
  768. DATA”    └─────────┘  └─────────┘    ”
  769. DATA”                                ”
  770. DATA”                                ”
  771. @HOWTO0
  772. DATA”┌┤HOW TO PLAY├─────────────────┐”
  773. DATA”│*モクテキ                         │”
  774. DATA”│  スヘ゛テノ カ−ト゛ヲ カ゛メン ミキ゛ウエノ ホ−ムセ│”
  775. DATA”│ ルニ イト゛ウ スルト クリア テ゛ス。         │”
  776. DATA”│                              │”
  777. DATA”│*ケ゛−ムノ ハシ゛メカタ                 │”
  778. DATA”│  タイトル カ゛メンテ゛ Аヲ オスト ランタ゛ムナ カ−│”
  779. DATA”│ ト゛ ハイチテ゛ ケ゛−ムカ゛ ハシ゛マリマス。     │”
  780. DATA”│  Бヲ オスト スキナ ケ゛−ムヲ フ゜レイ テ゛キマス。│”
  781. DATA”│ カ−ト゛ ハイチヲ キメル 52モシ゛ノ カナ モシ゛レツ│”
  782. DATA”│ (GAME ID)ヲ キ−ホ゛−ト゛カラ ニュウリョク シ│”
  783. DATA”│ テクタ゛サイ。                      │”
  784. DATA”│  チュウタ゛ン テ゛−タカ゛ アル ハ゛アイ、 Фテ゛ ツ│”
  785. DATA”│ ツ゛キヲ アソヘ゛マス。                 │”
  786. DATA”│                              │”
  787. DATA”│*カ−ト゛ノ ランク                    │”
  788. DATA”│ K>Q>J>г>9>8>7>6>5>4>3>2>A    │”
  789. DATA”│                              │”
  790. DATA”│*カ−ト゛ノ ウコ゛カシカタ                │”
  791. DATA”│  レツハ キホンテキニ イチハ゛ンシタノ カ−ト゛ ノミ │”
  792. DATA”│ イト゛ウ テ゛キマス。                  │”
  793. DATA”│                              │”
  794. DATA”└──────────────────┐1┌┬─┬┬─┬┬─┬┘”
  795. DATA”                   └─┘└─┘└─┘└─┘ ”
  796. @HOWTO1
  797. DATA”┌┤HOW TO PLAY├─────────────────┐”
  798. DATA”│1.ホ−ムセルニ イト゛ウ                 │”
  799. DATA”│  ホ−ムセルニハ Aカラ ランクノ チイサイ シ゛ュンニ │”
  800. DATA”│ ス−ト コ゛トニ カ−ト゛ヲ オイテ イキマス。 シ゛ョウ│”
  801. DATA”│ ケンヲ ミタシタ レツ マタハ フリ−セルノ カ−ト゛ニ │”
  802. DATA”│ カ−ソルヲ アワセ Фヲ オスト、 ホ−ムセルニ イト゛ウ│”
  803. DATA”│ テ゛キマス。                       │”
  804. DATA”│2.フリ−セルニ イト゛ウ                 │”
  805. DATA”│  フリ−セルハ イチシ゛テキナ カ−ト゛ オキハ゛トシテ │”
  806. DATA”│ 4マイマテ゛ カ−ト゛ヲ オケマス。 スキナ レツノ カ−│”
  807. DATA”│ ト゛ニ カ−ソルヲ アワセ Хヲ オスト、 フリ−セルニ │”
  808. DATA”│ イト゛ウ テ゛キマス。                  │”
  809. DATA”│3.レツニ イト゛ウ                    │”
  810. DATA”│  レツノ イチハ゛ンシタノ カ−ト゛ト ス−トカ゛ イロチ│”
  811. DATA”│ カ゛イ(Явナラаб、абナラЯв)テ゛ ランクカ゛ ヒト│”
  812. DATA”│ ツ チイサイ カ−ト゛ヲ、 ホカノ レツヤ フリ−セルカラ│”
  813. DATA”│ ソノ レツノ シタニ イト゛ウ テ゛キマス。 イト゛ウ シ│”
  814. DATA”│ タイ カ−ト゛ニ カ−ソルヲ アワセ Аヲ オスト、 ソノ│”
  815. DATA”│ カ−ト゛カ゛ センタク サレマス。 ソノ シ゛ョウタイテ゛│”
  816. DATA”│ イト゛ウ サキノ レツニ カ−ソルヲ アワセ Аヲ オスト│”
  817. DATA”│ カ−ト゛カ゛ イト゛ウ シマス。 ナオ、 Бヲ オスト セ│”
  818. DATA”│ ンタクカ゛ キャンセル サレマス。            │”
  819. DATA”└──────────────────┬─┬┐2┌┬─┬┬─┬┘”
  820. DATA”                   └─┘└─┘└─┘└─┘ ”
  821. @HOWTO2
  822. DATA”┌┤HOW TO PLAY├─────────────────┐”
  823. DATA”│  レツカラ レツヘノ イト゛ウテ゛、 フリ−セルヤ カラノ│”
  824. DATA”│ レツヲ リヨウスルト オナシ゛ レツニ スウマイヲ イト゛│”
  825. DATA”│ ウ テ゛キル ハ゛アイ、 ソノ カテイヲ ショウリャクシテ│”
  826. DATA”│ イチト゛ニ イト゛ウ テ゛キマス。            │”
  827. DATA”│  マタ、 カラノ レツニハ シ゛ユウニ カ−ト゛ヲ イト゛│”
  828. DATA”│ ウ テ゛キマス。 カ−ト゛ヲ センタクチュウニ カラノ レ│”
  829. DATA”│ ツニ カ−ソルヲ アワセルト イト゛ウ テ゛キル カ−ト゛│”
  830. DATA”│ カ゛ アオク ヒョウシ゛ サレマスノテ゛、 Пノ ↑↓テ゛│”
  831. DATA”│ イト゛ウ マイスウヲ エランテ゛ Аヲ オシテ クタ゛サ │”
  832. DATA”│ イ。                           │”
  833. DATA”│                              │”
  834. DATA”│*アント゛ゥ キノウニ ツイテ               │”
  835. DATA”│  Кヲ オスト イッテ モト゛セマス(アント゛ゥ)。   │”
  836. DATA”│  нヲ オスト アント゛ゥ スルマエノ テヲ フタタヒ゛ │”
  837. DATA”│ クリカエシマス(リト゛ゥ)。               │”
  838. DATA”│  アント゛ゥハ 128カイ マテ゛ キロク テ゛キマス。 │”
  839. DATA”│                              │”
  840. DATA”│*スタ−ト メニュ−                    │”
  841. DATA”│  ケ゛−ムチュウ STARTヲ オスト シタカ゛メンノ メ│”
  842. DATA”│ ニュ−ヲ ソウサ テ゛キマス。              │”
  843. DATA”│ [BGM] Пノ ←→テ゛ BGMヲ エラヘ゛マス。   │”
  844. DATA”└──────────────────┬─┬┬─┬┐3┌┬─┬┘”
  845. DATA”                   └─┘└─┘└─┘└─┘ ”
  846. @HOWTO3
  847. DATA”┌┤HOW TO PLAY├─────────────────┐”
  848. DATA”│ [CONTINUE] ケ゛−ムヲ ツツ゛ケマス。     │”
  849. DATA”│ [HOW TO] HOW TO PLAY ヲ ヒョウシ゛。│”
  850. DATA”│ [RETRY] イマノ ケ゛−ムヲ サイショカラ ヤリナオ│”
  851. DATA”│  シマス。                        │”
  852. DATA”│ [NEW GAME] イマノ ケ゛−ムヲ ヤメテ アタラシ│”
  853. DATA”│  イ ケ゛−ムヲ ハシ゛メマス。             │”
  854. DATA”│ [SUSPEND] イマノ ケ゛−ムヲ キロクシテ フ゜ロ│”
  855. DATA”│  ク゛ラムヲ トシ゛マス。                │”
  856. DATA”│ [END GAME] ケ゛−ムヲ ヤメテ フ゜ロク゛ラムヲ│”
  857. DATA”│  トシ゛マス。                      │”
  858. DATA”│                              │”
  859. DATA”│*STEPS ト TIME                 │”
  860. DATA”│  レツト ホ−ムセルノ アイタ゛テ゛ カ−ト゛ヲ イト゛ウ│”
  861. DATA”│ シタ カイスウ(リト゛ゥヲ フクム)ヲ STEPS トシテ│”
  862. DATA”│ ヒョウシ゛ シテイマス。 ヨリ スクナイ STEPS ヲ │”
  863. DATA”│ メサ゛シマショウ。                    │”
  864. DATA”│  ケ゛−ム カイシ カラノ ヒ゛ョウスウヲ TIME トシ│”
  865. DATA”│ テ ヒョウシ゛ シテイマス。 ヨリ スクナイ TIME ヲ│”
  866. DATA”│ メサ゛シマショウ。 スタ−ト メニュ−ヲ ヒライテイル ア│”
  867. DATA”│ イタ゛ハ TIME カ゛ トマリマスカ゛ カ−ト゛モ ヒョ│”
  868. DATA”│ ウシ゛ サレナクナリマス。                │”
  869. DATA”└──────────────────┬─┬┬─┬┬─┬┐4┌┘”
  870. DATA”                   └─┘└─┘└─┘└─┘ ”
  871. @PRINTCARDS ′───────────────
  872. FOR I=0 TO 3
  873.  LOCATE 4*I+1,0
  874.  CC=F[0,I]:GOSUB@PRINTACARD
  875. NEXT I
  876. FOR I=0 TO 3
  877.  LOCATE 4*I+17,0
  878.  CC=H[I]:GOSUB@PRINTACARD
  879. NEXT I
  880. FOR I=1 TO 8
  881.  FOR J=0 TO 18
  882.   LOCATE 4*I−3,J+3
  883.   CC=F[I,J]:GOSUB@PRINTACARD
  884.  NEXT J
  885. NEXT I
  886. RETURN
  887. @PRINTBLUECARDS
  888. BLUE=TRUE
  889. FOR I=1 TO N
  890.  LOCATE 4*C−3,N−I+4
  891.  CC=F[H,P[H]−I]:GOSUB@PRINTACARD
  892. NEXT
  893. BLUE=FALSE
  894. RETURN
  895. @ERASEBLUECARDS
  896. FOR I=1 TO 13
  897.  LOCATE 4*C−3,I+3:?”  ”
  898. NEXT
  899. RETURN
  900. @PRINTACARD
  901. C$=MID$(S$,CC/16,1)+MID$(R$,CC%16,1)
  902. IF CC AND 16THEN COLOR 0 ELSE COLOR 12
  903. IF BLUE THEN COLOR 9
  904. ?C$;
  905. RETURN
  906. @PRINTCURSOR ′──────────────
  907. COLOR 9
  908. GOTO”@PRINTCURSOR”+STR$(SGN(H)+1)
  909. @PRINTCURSOR0 ′H<0
  910. LOCATE −4*H−4,0
  911. IF E THEN?” ” ELSE?”□”
  912. GOTO@PRINTCURSOR1
  913. @PRINTCURSOR2 ′H>0
  914. LOCATE 4*H−3,P[H]+3
  915. IF E THEN?” ” ELSE?”△”
  916. @PRINTCURSOR1
  917. GOTO”@PRINTCURSOR”+STR$(SGN(C)+4)
  918. @PRINTCURSOR3 ′C>0
  919. LOCATE −4*C−4,0
  920. IF E THEN?” ” ELSE?CHR$(224+(C==H))
  921. GOTO@PRINTCURSOR4
  922. @PRINTCURSOR5 ′C<0
  923. LOCATE 4*C−3,P[C]+3
  924. IF E THEN?” ” ELSE?CHR$(226+(C==H))
  925. @PRINTCURSOR4
  926. RETURN
  927. @ERASECURSOR ′──────────────
  928. E=TRUE:GOSUB@PRINTCURSOR
  929. E=FALSE:RETURN
  930. @PRINTGAMEID ′──────────────
  931. FOR I=0 TO 6
  932.  PNLSTR  5,8+I,MID$(G$,8*I  ,4)
  933.  PNLSTR 10,8+I,MID$(G$,8*I+4,4)
  934. NEXT
  935. @PRINTBGM ′─────────────────
  936. IF M==30 THEN PNLSTR 23,8,”OFF”,0:RETURN
  937. PNLSTR 23,8,” ”+RIGHT$(”0”+STR$(M),2),0
  938. RETURN
  939. @PRINTSTEPS ′───────────────
  940. PNLSTR 8,17,RIGHT$(”     ”+STR$(S),6),0
  941. RETURN
  942. @PRINTTIME ′────────────────
  943. T$=STR$(FLOOR((MAINCNTL−T)/60))
  944. T$=RIGHT$(”     ”+T$,6)
  945. PNLSTR 21,17,T$,0
  946. RETURN
  947. @PRINTUNDO ′────────────────
  948. PNLSTR  6,20,RIGHT$(”  ”+STR$((D−U+UL)%UL),3),0
  949. PNLSTR 11,20,RIGHT$(”  ”+STR$((R−U+UL)%UL),3),0
  950. RETURN
  951. @PRINTCLOCK ′───────────────
  952. PNLSTR 19,20,TIME$,0
  953. RETURN

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

  • 名無しさん : SUGeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee (2012/04/12 (木) 21:12:42)
  • 名無しさん : 何でこんなに綺麗にSS取れたの?もしかしてエミュ? (2012/04/14 (土) 07:49:34)
  • 名無しさん : ↑↑は? (2012/04/14 (土) 12:23:15)
  • 名無しさん : すご(;・∀・) トランプのマークあるからなぁ トランプ作りたいって思ってたけど挫折してたから  (2012/04/14 (土) 12:44:12)
  • わかん : ただ単にペイントでポチポチ描き写しただけです>SS (2012/04/15 (日) 23:45:35)
  • 名無しさん : なんというww (2012/04/16 (月) 20:01:06)
  • わぁぃ@ : ↑↑GRPに撮影するプログラムありますけどね。 (2012/04/16 (月) 21:10:05)
  • わぁぃ@ : それにしても正確なSSですね。DSiブラウザーで見ると大きさがぴったりです。 (2012/04/16 (月) 21:13:27)
  • 名無しさん : 1033行wwwwwうわあああああ (2012/08/27 (月) 09:00:45)
  • かつみ : GAME IDを聞かれる際に、 GAME ID (26/52)? ンワロレルリラヨユヤモメムミマホヘフヒハノネヌニナト GAME ID (52/52) テツチタソセスシサコケクキカオエウイアヲ・、」「。〜 と入力すると? (2013/12/01 (日) 14:44:49)
  • キャラクター製作所 : ↑*6その手があったとは・・・ (2014/11/14 (金) 20:28:35)

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.082 秒 | このページの最終更新 : 2016/02/19 (金) 21:09:01 (1246d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30