IchigoJam購入直後に作った、「カレンダー」のプログラム。
ラズパイ版だと高速表示(Zeroでも十分高速)。


1 CLS:INPUT"YEAR ",Y:INPUT"MONTH ",M:D=1:L=(YMOD4=0):IF(YMOD100)=0ANDYMOD400L=0
2 IFM=1ORM=2ORM>12M=M+12:Y=Y-1
3 IFY<0ORY>9999ORM<3ORM>14RUNELSEH=(Y+Y/4)-(Y/100)+(Y/400)+(13*M+8)/5+D:H=HMOD7:D=31:IFM=4ORM=6ORM=9ORM=11D=30ELSEIFM=14D=28+L
4 ?:?:?"SUN MON TUE WED THU FRI SAT":?:IFHFORI=1TOH:?" ";:NEXT
5 FORI=1TOD:?" ";:A=I/10:B=IMOD10:IFA?A;ELSE?" ";
6 ?B;" ";:H=H+1:IFH=7H=0:?:?
7 NEXT:?:IFH?:?