24 lines
511 B
Text
24 lines
511 B
Text
01.10 S T=0
|
|
01.20 F X=1,6;D 4;S AT(X)=S3;S T=T+S3
|
|
01.30 I (T-75)1.1
|
|
01.40 S K=0;F X=1,6;D 2
|
|
01.50 I (K-2)1.1
|
|
01.55 T "STR DEX CON INT WIS CHA TOTAL",!
|
|
01.60 F X=1,6;T %2,AT(X)," "
|
|
01.70 T T,!
|
|
01.80 Q
|
|
|
|
02.10 I (AT(X)-15)2.3,2.2,2.2
|
|
02.20 S K=K+1
|
|
02.30 R
|
|
|
|
04.01 C--ROLL 4 D6ES AND GIVE SUM OF LARGEST 3
|
|
04.10 S XS=7;S S3=0;S XN=4
|
|
04.20 D 6;S S3=S3+A;I (XS-A)4.4,4.4,4.3
|
|
04.30 S XS=A
|
|
04.40 S XN=XN-1;I (XN),4.5,4.2
|
|
04.50 S S3=S3-XS
|
|
|
|
06.01 C--ROLL A D6
|
|
06.10 S A=FRAN()*10;S A=A-FITR(A)
|
|
06.20 S A=1+FITR(A*6)
|