Yes, I write 'clean' code.
Code:
RANDOMIZE TIMER
CLS
UPP$ = ""
GOSUB Roll3D2H
Att1 = Roll
UPP$ = UPP$ + Roll$
GOSUB Roll3D2H
Att2 = Roll
UPP$ = UPP$ + Roll$
GOSUB Roll3D2H
Att3 = Roll
UPP$ = UPP$ + Roll$
GOSUB Roll3D2H
Att4 = Roll
UPP$ = UPP$ + Roll$
GOSUB Roll3D2H
Att5 = Roll
UPP$ = UPP$ + Roll$
GOSUB Roll3D2H
Att6 = Roll
UPP$ = UPP$ + Roll$
LFR = Att1 + Att2 + Att3
Full = CINT((LFR * 3) / 3)
Stun = CINT((LFR * 2) / 3)
Coma = CINT((LFR * 1) / 3)
Dead = CINT((LFR * 0) / 3)
Smax = (Att4 + Att5)
PRINT "Universal Personality Profile (UPP): "; UPP$;
IF (Att6 = 10) THEN PRINT " (Squire)";
IF (Att6 = 11) THEN PRINT " (Knight)";
IF (Att6 = 12) THEN PRINT " (Baron)";
IF (Att6 = 13) THEN PRINT " (Marquis)";
IF (Att6 = 14) THEN PRINT " (Count)";
IF (Att6 = 15) THEN PRINT " (Duke)";
PRINT
PRINT
PRINT "Life Force Rating (LFR) / Full:"; Full; "/ "; "Stunned:"; Stun; "/ "; "Comatose:"; Coma; "/ "; "Dead:"; Dead
PRINT
PRINT "Maximum Skill Points:"; Smax
PRINT
GOSUB Roll1D
Prof = Roll
IF (Prof = 1) THEN Prof$ = "Navy"
IF (Prof = 2) THEN Prof$ = "Army"
IF (Prof = 3) THEN Prof$ = "Marines"
IF (Prof = 4) THEN Prof$ = "Scout"
IF (Prof = 5) THEN Prof$ = "Merchant"
IF (Prof = 6) THEN Prof$ = "Other"
PRINT "Drafted as "; Prof$
END
Roll1D:
Roll = 1 + INT(6 * RND)
RETURN
Roll2D:
Roll = 2 + INT(6 * RND) + INT(6 * RND)
IF (Roll < 10) THEN Roll$ = CHR$(Roll + 48)
IF (Roll > 9) THEN Roll$ = CHR$(Roll + 55)
RETURN
Roll3D2H:
Die1 = 1 + INT(6 * RND)
Die2 = 1 + INT(6 * RND)
Die3 = 1 + INT(6 * RND)
PRINT Die1; Die2; Die3,
IF (Die1 <= Die2) AND (Die1 <= Die3) THEN Die1 = 0
IF (Die2 <= Die1) AND (Die2 <= Die3) THEN Die2 = 0
IF (Die3 <= Die1) AND (Die3 <= Die2) THEN Die3 = 0
PRINT Die1; Die2; Die3
PRINT
Roll = (Die1 + Die2 + Die3)
IF (Roll < 10) THEN Roll$ = CHR$(Roll + 48)
IF (Roll > 9) THEN Roll$ = CHR$(Roll + 55)
RETURN
_________________
The mere fact that science may not yet adequately explain an object, event, or experience does not mean the immediate explanation should automatically default to a conspiratorial, extraterrestrial, paranormal, or supernatural cause.