100 PRINT "This program creates Cycles for Wizards of High Sorcery"
110 PRINT "which may be customized to individual games which don't follow"
120 PRINT "strict Krynn/Dragonlance Rules."
130 PRINT " "
140 PRINT "Each robe is connected to a lunar cycle. The DM may choose the"
150 PRINT "length of the cycle and the point at which it starts."
160 PRINT "Cycles less than 4 days long will not work properly."
170 PRINT "If the length of the cycle is divisible by 4 it works better."
200 PRINT "Please enter the number of days in the cycle for"
210 INPUT "Solinari (White Robes)"; s1
220 INPUT "Lunitari (Red Robes)"; l1
230 INPUT "Nuitari (Black Robes)"; n1
240 PRINT "Please give the number of the day in each cycle on which this "
250 PRINT "run will begin for"
260 INPUT "Solinari (Good)"; s2
270 INPUT "Lunitari (Neutral)"; l2
280 INPUT "Nuitari (Evil)"; n2
290 INPUT "How many days should the program cover"; d
300 PRINT "The program will write the results as a text file."
310 PRINT "Please name the file; it will be most convenient if it ends"
320 INPUT "with .txt"; n$
330 OPEN n$ FOR OUTPUT AS #1
340 FOR d1 = 1 TO d
350 a$ = STR$(d1)
360 s$ = " Solinari Waxing, "
370 IF s2 / s1 > .25 THEN s$ = " Solinari High, "
380 IF s2 / s1 > .5 THEN s$ = " Solinari Waning, "
390 IF s2 / s1 > .75 THEN s$ = " Solinari Low, "
400 a$ = a$ + s$
410 s$ = "Lunitari Waxing, "
420 IF l2 / l1 > .25 THEN s$ = "Lunitari High, "
430 IF l2 / l1 > .5 THEN s$ = "Lunitari Waning, "
440 IF l2 / l1 > .75 THEN s$ = "Lunitari Low, "
450 a$ = a$ + s$
460 s$ = "Nuitari Waxing, "
470 IF n2 / n1 > .25 THEN s$ = "Nuitari High, "
480 IF n2 / n1 > .5 THEN s$ = "Nuitari Waning, "
490 IF n2 / n1 > .75 THEN s$ = "Nuitari Low, "
500 a$ = a$ + s$
600 PRINT #1, a$
610 s2 = s2 + 1: IF s2 > s1 THEN s2 = 1
620 l2 = l2 + 1: IF l2 > l1 THEN l2 = 1
630 n2 = n2 + 1: IF n2 > n1 THEN n2 = 1
640 NEXT d1
650 PRINT #1, "Next day in cycles:"
660 PRINT #1, "Solinari: "; s2
670 PRINT #1, "Lunitari: "; l2
680 PRINT #1, "Nuitari: "; n2
690 CLOSE #1