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