1000 (PROGRAM1)
1005 "ROOT 2"
1010 A=1
1020 #=(A*A>20000)*1050
1030 A=A+1
1040 #=1020
1050 ?=A;
1060 " ";
1070 #=50000

2000 (PROGRAM2)
2010 "PAI"
2020 A=1
2030 P=0
2040 P=P+(40000/A)
2050 ?=P
2060 A=A+2
2070 P=P-(40000/A)
2080 A=A+2
2090 ?=P;
2100 " : ";
2110 ?=A
2120 #=2040

3000 (PROGRAM4)
3010 "LIFE GAME"

3020 (STEP1)
3030 N=0
3040 @(N)=0
3050 N=N+1
3060 #=(N<100)*3040

3100 (STEP2)
3110 "X=";
3120 X=?
3130 #=(X>9)*3200
3140 "Y=";
3150 Y=?
3160 #=(Y>9)*3200
3170 @(Y*10+X)=1
3180 #=3110

3200 (STEP3)
3210 G=0
3220 G=G+1
3230 "GEN=";
3240 ?=G
3250 Y=0
3260 X=0
3270 #=@(Y*10+X)=1*3300
3280 ".";
3290 #=3310
3300 "*";
3310 X=X+1
3320 #=(X<10)*3270
3330 Y=Y+1
3340 ""
3350 #=(Y<10)*3260
3360 ""

3400 (STEP4)
3410 Y=1
3420 X=1
3430 N=Y*10+X
3440 S=@(N-11)+@(N-10)+@(N-9)
3450 S=S+@(N-1)+@(N+1)+@(N+9)
3460 S=S+@(N+10)+@(N+11)
3470 @(N+100)=S
3480 X=X+1
3490 #=(X<9)*3430
3500 Y=Y+1
3510 #=(Y<9)*3420

3600 (STEP5)
3610 Y=1
3620 X=1
3630 N=Y*10+X
3640 A=@(N)
3650 B=@(N+100)
3660 #=(A=1)*(B=2)*3700
3670 #=(B=3)*3700
3680 @(N)=0
3690 #=3710
3700 @(N)=1
3710 X=X+1
3720 #=(X<9)*3630
3730 Y=Y+1
3740 #=(Y<9)*3620
3750 #=3220