Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2019/05/02 22:48:51

MixJuice GET URL : kidspod.club/mj/814

ANAGMA B型(合計3ファイル)

約2年ぶりの更新です。

変更点
・2ファイル化
・コードキーを勝手に決めてくれるプログラムの追加

使い方の変更点は、コードキー入力後に、プロクラムを選ぶ所ができたことぐらいです。

(基本的な詳しい使い方はhttp://kidspod.club/program/default.html?id=167)

  • 1
  • 2
  • 3
  • 4
  • 1
  • 2
  • 3
  • 4

SOURCE CODE

NEW

1 'ANAGMA-B(SETUP-1.0)
5 CLS:CLV:B=0:F=FILE()
10 LC10,11:?"<<ANAGMA-B>>":WAIT60
15 CLS:LC10,1:?"MODE SELECT":LC11,7:?"ENCODE: 1":LC11,9:?"DECODE: 2"
20 K=INKEY()
21 IFK=49Q=1:GOTO30
22 IFK=50Q=2:GOTO30
25 GOTO20
30 CLS:CLK:W=0:LC5,2:?"INPUT 12 DIGIT CODEKEY"
35 LC10,4:?"<4 DIGIT x3>"
40 FORG=0TO2
50 LC12,12+2*G:INPUTN:IFN>9999ORN<1000GOTO50
55 A=4*G
60 GSB400
70 NEXT
100 CLS:LC8,1:?"SYSTEM SELECT":LC0,7:FILESF+1,F+1:LC29,7:?": 1":LC0,9:FILESF+2,F+2:LC29,9:?": 2":'LC0,11:FILESF+3,F+3:LC29,11:?": 3"
105 K=INKEY():CLK
110 IFK=49LRUNF+1
115 IFK=50LRUNF+2
120 'IFK=51LRUNF+3
125 GOTO105
400 [A]=N/1000:[A+1]=(N%1000)/100:[A+2]=((N%1000)%100)/10:[A+3]=((N%1000)%100)%10:RTN

SAVE1

NEW

1 'ANAGMA-B(SYSTEM1-1.0)
5 CLS:F=FILE():I=0:W=0
10 LC0,0:?"INPUT:":LC0,12:?"OUTPUT:"
15 K=INKEY():CLK:IFK=0GOTO15
16 IFW>11W=0
17 IFW<0W=11
18 IFK=236&&Q=1GOTO200
19 IFK=255&&Q=2GOTO300
20 IFK=8ORK=10GOTO35
25 IFK<27ORK>223GOTO15
30 IFK=8GOTO55
35 IFI=256GOTO45
40 'IFK=10POKE#920+I,10:POKE#AA0+I,10:GOTO100
45 IFK=127LRUNF-1
50 IFK<>8GOTO80
55 IFI<=0I=0:GOTO15
60 IFW>-1&&I>-1I=I-1:W=W-1:POKE#920+I,0:POKE#AA0+I,0:GOTO15
65 IFW<0W=11:GOTO60
70 IFI<=0I=0:GOTO15
80 IFI=256GOTO15
85 POKE#920+I,K
90 '
95 POKE#AA0+I,K+(Q=1)*[W]-(Q=2)*[W]
100 I=I+1:W=W+1
105 IFW>11W=0
106 IFW<0W=11
110 GOTO15

SAVE2

NEW

1 'ANAGMA-B(KEY MAKER-1.0)
5 CLS:F=FILE()
10 [0]=RND(8)+1:[1]=RND(8)+1:[2]=RND(8)+1:[3]=RND(8)+1
15 [4]=RND(8)+1:[5]=RND(8)+1:[6]=RND(8)+1:[7]=RND(8)+1
25 [8]=RND(8)+1:[9]=RND(8)+1:[10]=RND(8)+1:[11]=RND(8)+1
28 LC9,3:?"SAVE TO PAPER"
30 LC13,9:?[0];[1];[2];[3]
35 LC13,11:?[4];[5];[6];[7]
40 LC13,13:?[8];[9];[10];[11]
50 LC8,23:?"ONE MORE: Delete
55 LC8,20:?"      GO: Enter
100 K=INKEY():CLK
105 IFK=10LRUNF-1
106 IFK=127RUN
110 GOTO100

SAVE3

COMMENT

Kidspod運営チーム
Kidspod運営チーム2019/05/16 16:48:21

おお! 久しぶりのANAGMA更新! コードキーの自動生成は、シンプルながら使うときに便利な機能ですね。ひとつのプログラムを復数のファイルに分割して作ったところもGOOD。LRUNはうまく使えば、プログラムを読みやすくなります。