プログラミングをもっと楽しく!
Kidspod;はこどものプログラマーを
応援するための投稿サイトです。
はじめての人はこちらから
新規メンバー登録
メンバーの人はこちらから

2017/03/12 19:32:09

MixJuice GET URL : kidspod.club/mj/167

ANAGMA A型

SOURCE CODE

1 'ANAGMA-A
2 CLS:CLV
3 LC10,12:?"<<ANAGMA>>":WAIT60
14 CLS:LC10,1:?"MODE CHOICE":LC11,7:?"ENCODE: 1":LC11,9:?"DECODE: 2"
16 K=INKEY():IFK=49Q=1:GOTO20ELSEIFK=50Q=2:GOTO20
18 GOTO16
20 CLS:CLK:W=0:LC1,2:?"PLEASE INPUT 12 DIGIT CODEKEY"
22 LC10,4:?"<4 DIGIT x3>"
25 FORG=0TO2
30 LC12,12+2*G:INPUTN:IFN>9999170 IF K=24 POKE#AA0+I,95+(Q=1)*[W]-(Q=2)*[W]:POKE#920+I,95:GOTO330
173 IFK=127RUN
176 IF K=10 LRUN2
178 IF K<>8 GOTO190 
180 IF I=0 POKE#920,0:POKE#AA0,0:GOTO160
182 IFW>-1&&I>-1I=I-1:W=W-1:POKE#920+I,0:POKE#AA0+I,0:GOTO160
184 IFW<0W=11:GOTO182
186 IFI<0GOTO160
190 IFW<0W=11
200 POKE#920+I,K
320 POKE#AA0+I,K+(Q=1)*[W]-(Q=2)*[W]
330 I=I+1:W=W+1:IFW=12W=0
350 IFI=320I=0
360 GOTO160
400 [A]=N/1000:[A+1]=(N%1000)/100:[A+2]=((N%1000)%100)/10:[A+3]=((N%1000)%100)%10:RTN

COMMENT

Kidspod運営チーム
Kidspod運営チーム2017/03/24 13:02:31

LRUNコマンドを使っているということは、複数のプログラムがいるということでしょうか。その部分も投稿してもらえるとうれしいです!