初めは、コピペでするといいと言いますが、コピペはつまらない
振り付けでも振り写しという人がいますが、コピペでなく、自分の力で作る方が、たとえ簡単でも良いと思うけど、、、エンジニアでないから難しい。
undefined 添付資料を作り、挿入できたのですが、見れませんでした。
最初のページが見えないのは淋しいので、4/14編集し直して最初にふさわしいものをコピペして試して見たら、見れました!
まずは見れること、、コピペだけになりました。
Qiita さんのブログはエンジニアだけのものかもしれませんが、
『もっとプログラミングやオープンデータが広がるためには、初心者が挑戦することに意義がある!』と言って励ましてくれた方もいたので、
またQiitaでブログ書いたらと創始者の方から勧められたので頑張って見ました。
で、
4月1日は新年度の始まり、エイプリールフールでもありますが、
もう一つ HAPPY BIRTHDAY IchigoJam
100 '4th Anniversary
110 VIDEO 5:CLS:CLV
120 POKE 1800,1,1,1,1,1,0,1,0,4
130 POKE 1809,4,119,69,117,0
140 POKE 1814,255,0,64,0,93,85
150 POKE 1820,93,4,221,0,4,4
160 POKE 1826,197,69,221,0,255
170 POKE 1831,0,0,0,223,74,234
180 POKE 1837,0,255,0,0,0,128
190 POKE 1843,128,128,0,128,0
200 FOR I=1 TO 6
210 POKE 2304+I,224+I:NEXT
220 FOR Y=0 TO 6 STEP 2
230 FOR X=3 TO 0 STEP -1
240 A=PEEK(416+Y)
250 B=PEEK(417+Y)
260 C=128+(A>>(X2+1)&1)
270 C=C+2(A>>(X2)&1)
280 C=C+4(B>>(X2+1)&1)
290 C=C+8(B>>(X*2)&1)
300 POKE 2312+(Y/2)*8+(3-X)+2,C
310 NEXT:NEXT
320 FOR I=1 TO 2
330 POKE 2346+I,PEEK(3076+I)
340 NEXT
350 IF !INKEY() GOTO 350
360 VIDEO 1