'This is in qbasic 'It creates the letters for the lessons. The review at the end of each lesson and at the end of the course are produced randomly 'send comments and questions to Exvagabond436824@yahoo.com 'www.geocities.com\exvagabond\japanese OPEN "lessons.txt" FOR OUTPUT AS #1 RANDOMIZE TIMER LET num = RND CLS '********************lesson 1 ta te to FOR n = 1 TO 14 print #1, "Ta "; NEXT FOR n = 1 TO 14 print #1, "Te "; NEXT FOR n = 1 TO 14 print #1, "To "; NEXT LET review = 3 LET a = 3 FOR n = 1 TO (7 * 9) IF RND <= (1 / a) THEN print #1, "Ta "; ELSEIF RND > (1 / a) AND RND <= (2 / a) THEN print #1, "Te "; ELSEIF RND > (2 / a) AND RND <= (3 / a) THEN print #1, "To "; ELSE END IF NEXT print #1, "" print #1, "" '******************lesson 2 ya yo yu FOR n = 1 TO 14 print #1, "Ya "; NEXT FOR n = 1 TO 14 print #1, "Yo "; NEXT FOR n = 1 TO 14 print #1, "Yu "; NEXT FOR n = 1 TO (7 * 15) IF RND <= (1 / a) THEN print #1, "Ya "; ELSEIF RND > (1 / a) AND RND <= (2 / a) THEN print #1, "Yo "; ELSEIF RND > (2 / a) AND RND <= (3 / a) THEN print #1, "Yu "; ELSE END IF NEXT print #1, "" print #1, "" LET review = review + 3 FOR n = 1 TO (7 * 9) IF RND <= (1 / review) THEN print #1, "Ta "; ELSEIF RND > (1 / review) AND RND <= (2 / review) THEN print #1, "Te "; ELSEIF RND > (2 / review) AND RND <= (3 / review) THEN print #1, "To "; ELSEIF RND > (3 / review) AND RND <= (4 / review) THEN print #1, "Ya "; ELSEIF RND > (4 / review) AND RND <= (5 / review) THEN print #1, "Yo "; ELSEIF RND > (5 / review) AND RND <= (6 / review) THEN print #1, "Yu "; ELSE END IF NEXT print #1, "" print #1, "" '********************lesson 3 chi shi tsu wa FOR n = 1 TO 12 print #1, "Chi "; NEXT FOR n = 1 TO 12 print #1, "Shi "; NEXT FOR n = 1 TO 12 print #1, "Tsu "; NEXT FOR n = 1 TO 14 print #1, "Wa "; NEXT let a = 4 FOR n = 1 TO (7 * 22) IF RND <= (1 / a) THEN print #1, "Chi "; ELSEIF RND > (1 / a) AND RND <= (2 / a) THEN print #1, "Shi "; ELSEIF RND > (2 / a) AND RND <= (3 / a) THEN print #1, "Tsu "; ELSEIF RND > (3 / a) AND RND <= (4 / a) THEN print #1, "Wa "; ELSE END IF NEXT print #1, "" print #1, "" LET review = review + 4 FOR n = 1 TO (7 * 9) IF RND <= (1 / review) THEN print #1, "Ta "; ELSEIF RND > (1 / review) AND RND <= (2 / review) THEN print #1, "Te "; ELSEIF RND > (2 / review) AND RND <= (3 / review) THEN print #1, "To "; ELSEIF RND > (3 / review) AND RND <= (4 / review) THEN print #1, "Ya "; ELSEIF RND > (4 / review) AND RND <= (5 / review) THEN print #1, "Yo "; ELSEIF RND > (5 / review) AND RND <= (6 / review) THEN print #1, "Yu "; ELSEIF RND > (6 / review) AND RND <= (7 / review) THEN print #1, "Shi "; ELSEIF RND > (7 / review) AND RND <= (8 / review) THEN print #1, "Chi "; ELSEIF RND > (8 / review) AND RND <= (9 / review) THEN print #1, "Tsu "; ELSEIF RND > (9 / review) AND RND <= (10 / review) THEN print #1, "Wa "; ELSE END IF NEXT print #1, "" print #1, "" '********************lesson 4 sa se so su FOR n = 1 TO 14 print #1, "Sa "; NEXT FOR n = 1 TO 14 print #1, "Se "; NEXT FOR n = 1 TO 14 print #1, "So "; NEXT FOR n = 1 TO 14 print #1, "Su "; NEXT let a = 4 FOR n = 1 TO (7 * 16) IF RND <= (1 / a) THEN print #1, "Sa "; ELSEIF RND > (1 / a) AND RND <= (2 / a) THEN print #1, "Se "; ELSEIF RND > (2 / a) AND RND <= (3 / a) THEN print #1, "So "; ELSEIF RND > (3 / a) AND RND <= (4 / a) THEN print #1, "Su "; ELSE END IF NEXT print #1, "" print #1, "" LET review = review + 4 FOR n = 1 TO (7 * 21) IF RND <= (1 / review) THEN print #1, "Ta "; ELSEIF RND > (1 / review) AND RND <= (2 / review) THEN print #1, "Te "; ELSEIF RND > (2 / review) AND RND <= (3 / review) THEN print #1, "To "; ELSEIF RND > (3 / review) AND RND <= (4 / review) THEN print #1, "Ya "; ELSEIF RND > (4 / review) AND RND <= (5 / review) THEN print #1, "Yo "; ELSEIF RND > (5 / review) AND RND <= (6 / review) THEN print #1, "Yu "; ELSEIF RND > (6 / review) AND RND <= (7 / review) THEN print #1, "Shi "; ELSEIF RND > (7 / review) AND RND <= (8 / review) THEN print #1, "Chi "; ELSEIF RND > (8 / review) AND RND <= (9 / review) THEN print #1, "Tsu "; ELSEIF RND > (9 / review) AND RND <= (10 / review) THEN print #1, "Wa "; ELSEIF RND > (10 / review) AND RND <= (11 / review) THEN print #1, "Sa "; ELSEIF RND > (11 / review) AND RND <= (12 / review) THEN print #1, "Se "; ELSEIF RND > (12 / review) AND RND <= (13 / review) THEN print #1, "So "; ELSEIF RND > (13 / review) AND RND <= (14 / review) THEN print #1, "Su "; ELSE END IF NEXT print #1, "" print #1, "" '********************lesson 5 ma me mi mo mu FOR n = 1 TO 14 print #1, "Ma "; NEXT FOR n = 1 TO 14 print #1, "Me "; NEXT FOR n = 1 TO 14 print #1, "Mi "; NEXT FOR n = 1 TO 14 print #1, "Mo "; NEXT FOR n = 1 TO 14 print #1, "Mu "; NEXT let a = 5 FOR n = 1 TO (7 * 20) IF RND <= (1 / a) THEN print #1, "Ma "; ELSEIF RND > (1 / a) AND RND <= (2 / a) THEN print #1, "Me "; ELSEIF RND > (2 / a) AND RND <= (3 / a) THEN print #1, "Mi "; ELSEIF RND > (2 / a) AND RND <= (3 / a) THEN print #1, "Mo "; ELSEIF RND > (3 / a) AND RND <= (4 / a) THEN print #1, "Mu "; ELSE END IF NEXT print #1, "" print #1, "" LET review = review + 5 FOR n = 1 TO (7 * 15) IF RND <= (1 / review) THEN print #1, "Ta "; ELSEIF RND > (1 / review) AND RND <= (2 / review) THEN print #1, "Te "; ELSEIF RND > (2 / review) AND RND <= (3 / review) THEN print #1, "To "; ELSEIF RND > (3 / review) AND RND <= (4 / review) THEN print #1, "Ya "; ELSEIF RND > (4 / review) AND RND <= (5 / review) THEN print #1, "Yo "; ELSEIF RND > (5 / review) AND RND <= (6 / review) THEN print #1, "Yu "; ELSEIF RND > (6 / review) AND RND <= (7 / review) THEN print #1, "Shi "; ELSEIF RND > (7 / review) AND RND <= (8 / review) THEN print #1, "Chi "; ELSEIF RND > (8 / review) AND RND <= (9 / review) THEN print #1, "Tsu "; ELSEIF RND > (9 / review) AND RND <= (10 / review) THEN print #1, "Wa "; ELSEIF RND > (10 / review) AND RND <= (11 / review) THEN print #1, "Sa "; ELSEIF RND > (11 / review) AND RND <= (12 / review) THEN print #1, "Se "; ELSEIF RND > (12 / review) AND RND <= (13 / review) THEN print #1, "So "; ELSEIF RND > (13 / review) AND RND <= (14 / review) THEN print #1, "Su "; ELSEIF RND > (14 / review) AND RND <= (15 / review) THEN print #1, "Ma "; ELSEIF RND > (15 / review) AND RND <= (16 / review) THEN print #1, "Me "; ELSEIF RND > (16 / review) AND RND <= (17 / review) THEN print #1, "Mi "; ELSEIF RND > (17 / review) AND RND <= (18 / review) THEN print #1, "Mo "; ELSEIF RND > (18 / review) AND RND <= (19 / review) THEN print #1, "Mu "; ELSE END IF NEXT print #1, "" print #1, "" '**************************lesson 6 n na ne ni no nu FOR n = 1 TO 14 print #1, "N "; NEXT FOR n = 1 TO 14 print #1, "Na "; NEXT FOR n = 1 TO 14 print #1, "Ne "; NEXT FOR n = 1 TO 14 print #1, "Ni "; NEXT FOR n = 1 TO 14 print #1, "No "; NEXT FOR n = 1 TO 14 print #1, "Nu "; NEXT let a = 6 FOR n = 1 TO (7 * 18) IF RND <= (1 / a) THEN print #1, "N "; ELSEIF RND > (1 / a) AND RND <= (2 / a) THEN print #1, "Na "; ELSEIF RND > (2 / a) AND RND <= (3 / a) THEN print #1, "Ne "; ELSEIF RND > (3 / a) AND RND <= (4 / a) THEN print #1, "Ni "; ELSEIF RND > (4 / a) AND RND <= (5 / a) THEN print #1, "No "; ELSEIF RND > (5 / a) AND RND <= (6 / a) THEN print #1, "Nu "; ELSE END IF NEXT print #1, "" print #1, "" LET review = review + 6 FOR n = 1 TO (7 * 15) IF RND <= (1 / review) THEN print #1, "Ta "; ELSEIF RND > (1 / review) AND RND <= (2 / review) THEN print #1, "Te "; ELSEIF RND > (2 / review) AND RND <= (3 / review) THEN print #1, "To "; ELSEIF RND > (3 / review) AND RND <= (4 / review) THEN print #1, "Ya "; ELSEIF RND > (4 / review) AND RND <= (5 / review) THEN print #1, "Yo "; ELSEIF RND > (5 / review) AND RND <= (6 / review) THEN print #1, "Yu "; ELSEIF RND > (6 / review) AND RND <= (7 / review) THEN print #1, "Shi "; ELSEIF RND > (7 / review) AND RND <= (8 / review) THEN print #1, "Chi "; ELSEIF RND > (8 / review) AND RND <= (9 / review) THEN print #1, "Tsu "; ELSEIF RND > (9 / review) AND RND <= (10 / review) THEN print #1, "Wa "; ELSEIF RND > (10 / review) AND RND <= (11 / review) THEN print #1, "Sa "; ELSEIF RND > (11 / review) AND RND <= (12 / review) THEN print #1, "Se "; ELSEIF RND > (12 / review) AND RND <= (13 / review) THEN print #1, "So "; ELSEIF RND > (13 / review) AND RND <= (14 / review) THEN print #1, "Su "; ELSEIF RND > (14 / review) AND RND <= (15 / review) THEN print #1, "Ma "; ELSEIF RND > (15 / review) AND RND <= (16 / review) THEN print #1, "Me "; ELSEIF RND > (16 / review) AND RND <= (17 / review) THEN print #1, "Mi "; ELSEIF RND > (17 / review) AND RND <= (18 / review) THEN print #1, "Mo "; ELSEIF RND > (18 / review) AND RND <= (19 / review) THEN print #1, "Mu "; ELSEIF RND > (19 / review) AND RND <= (20 / review) THEN print #1, "N "; ELSEIF RND > (20 / review) AND RND <= (21 / review) THEN print #1, "Na "; ELSEIF RND > (21 / review) AND RND <= (22 / review) THEN print #1, "Ne "; ELSEIF RND > (22 / review) AND RND <= (23 / review) THEN print #1, "Ni "; ELSEIF RND > (23 / review) AND RND <= (24 / review) THEN print #1, "No "; ELSEIF RND > (24 / review) AND RND <= (25 / review) THEN print #1, "Nu "; ELSE END IF NEXT print #1, "" print #1, "" '**************************lesson 7 ga ge gi go gu FOR n = 1 TO 14 print #1, "Ga "; NEXT FOR n = 1 TO 14 print #1, "Ge "; NEXT FOR n = 1 TO 14 print #1, "Gi "; NEXT FOR n = 1 TO 14 print #1, "Go "; NEXT FOR n = 1 TO 14 print #1, "Gu "; NEXT let a = 5 FOR n = 1 TO (7 * 19) IF RND <= (1 / a) THEN print #1, "Ga "; ELSEIF RND > (1 / a) AND RND <= (2 / a) THEN print #1, "Ge "; ELSEIF RND > (2 / a) AND RND <= (3 / a) THEN print #1, "Gi "; ELSEIF RND > (3 / a) AND RND <= (4 / a) THEN print #1, "Go "; ELSEIF RND > (4 / a) AND RND <= (5 / a) THEN print #1, "Gu "; ELSE END IF NEXT print #1, "" print #1, "" LET review = review + 5 FOR n = 1 TO (7 * 15) IF RND <= (1 / review) THEN print #1, "Ta "; ELSEIF RND > (1 / review) AND RND <= (2 / review) THEN print #1, "Te "; ELSEIF RND > (2 / review) AND RND <= (3 / review) THEN print #1, "To "; ELSEIF RND > (3 / review) AND RND <= (4 / review) THEN print #1, "Ya "; ELSEIF RND > (4 / review) AND RND <= (5 / review) THEN print #1, "Yo "; ELSEIF RND > (5 / review) AND RND <= (6 / review) THEN print #1, "Yu "; ELSEIF RND > (6 / review) AND RND <= (7 / review) THEN print #1, "Shi "; ELSEIF RND > (7 / review) AND RND <= (8 / review) THEN print #1, "Chi "; ELSEIF RND > (8 / review) AND RND <= (9 / review) THEN print #1, "Tsu "; ELSEIF RND > (9 / review) AND RND <= (10 / review) THEN print #1, "Wa "; ELSEIF RND > (10 / review) AND RND <= (11 / review) THEN print #1, "Sa "; ELSEIF RND > (11 / review) AND RND <= (12 / review) THEN print #1, "Se "; ELSEIF RND > (12 / review) AND RND <= (13 / review) THEN print #1, "So "; ELSEIF RND > (13 / review) AND RND <= (14 / review) THEN print #1, "Su "; ELSEIF RND > (14 / review) AND RND <= (15 / review) THEN print #1, "Ma "; ELSEIF RND > (15 / review) AND RND <= (16 / review) THEN print #1, "Me "; ELSEIF RND > (16 / review) AND RND <= (17 / review) THEN print #1, "Mi "; ELSEIF RND > (17 / review) AND RND <= (18 / review) THEN print #1, "Mo "; ELSEIF RND > (18 / review) AND RND <= (19 / review) THEN print #1, "Mu "; ELSEIF RND > (19 / review) AND RND <= (20 / review) THEN print #1, "N "; ELSEIF RND > (20 / review) AND RND <= (21 / review) THEN print #1, "Na "; ELSEIF RND > (21 / review) AND RND <= (22 / review) THEN print #1, "Ne "; ELSEIF RND > (22 / review) AND RND <= (23 / review) THEN print #1, "Ni "; ELSEIF RND > (23 / review) AND RND <= (24 / review) THEN print #1, "No "; ELSEIF RND > (24 / review) AND RND <= (25 / review) THEN print #1, "Nu "; ELSEIF RND > (25 / review) AND RND <= (26 / review) THEN print #1, "Ga "; ELSEIF RND > (26 / review) AND RND <= (27 / review) THEN print #1, "Ge "; ELSEIF RND > (27 / review) AND RND <= (28 / review) THEN print #1, "Gi "; ELSEIF RND > (28 / review) AND RND <= (29 / review) THEN print #1, "Go "; ELSEIF RND > (29 / review) AND RND <= (30 / review) THEN print #1, "Gu "; ELSE END IF NEXT print #1, "" print #1, "" '**************************lesson 8 ha he hi ho hu FOR n = 1 TO 14 print #1, "Ha "; NEXT FOR n = 1 TO 14 print #1, "He "; NEXT FOR n = 1 TO 14 print #1, "Hi "; NEXT FOR n = 1 TO 14 print #1, "Ho "; NEXT FOR n = 1 TO 14 print #1, "Hu "; NEXT let a = 5 FOR n = 1 TO (7 * 19) IF RND <= (1 / a) THEN print #1, "Ha "; ELSEIF RND > (1 / a) AND RND <= (2 / a) THEN print #1, "He "; ELSEIF RND > (2 / a) AND RND <= (3 / a) THEN print #1, "Hi "; ELSEIF RND > (3 / a) AND RND <= (4 / a) THEN print #1, "Ho "; ELSEIF RND > (4 / a) AND RND <= (5 / a) THEN print #1, "Hu "; ELSE END IF NEXT print #1, "" print #1, "" LET review = review + 5 FOR n = 1 TO (7 * 15) IF RND <= (1 / review) THEN print #1, "Ta "; ELSEIF RND > (1 / review) AND RND <= (2 / review) THEN print #1, "Te "; ELSEIF RND > (2 / review) AND RND <= (3 / review) THEN print #1, "To "; ELSEIF RND > (3 / review) AND RND <= (4 / review) THEN print #1, "Ya "; ELSEIF RND > (4 / review) AND RND <= (5 / review) THEN print #1, "Yo "; ELSEIF RND > (5 / review) AND RND <= (6 / review) THEN print #1, "Yu "; ELSEIF RND > (6 / review) AND RND <= (7 / review) THEN print #1, "Shi "; ELSEIF RND > (7 / review) AND RND <= (8 / review) THEN print #1, "Chi "; ELSEIF RND > (8 / review) AND RND <= (9 / review) THEN print #1, "Tsu "; ELSEIF RND > (9 / review) AND RND <= (10 / review) THEN print #1, "Wa "; ELSEIF RND > (10 / review) AND RND <= (11 / review) THEN print #1, "Sa "; ELSEIF RND > (11 / review) AND RND <= (12 / review) THEN print #1, "Se "; ELSEIF RND > (12 / review) AND RND <= (13 / review) THEN print #1, "So "; ELSEIF RND > (13 / review) AND RND <= (14 / review) THEN print #1, "Su "; ELSEIF RND > (14 / review) AND RND <= (15 / review) THEN print #1, "Ma "; ELSEIF RND > (15 / review) AND RND <= (16 / review) THEN print #1, "Me "; ELSEIF RND > (16 / review) AND RND <= (17 / review) THEN print #1, "Mi "; ELSEIF RND > (17 / review) AND RND <= (18 / review) THEN print #1, "Mo "; ELSEIF RND > (18 / review) AND RND <= (19 / review) THEN print #1, "Mu "; ELSEIF RND > (19 / review) AND RND <= (20 / review) THEN print #1, "N "; ELSEIF RND > (20 / review) AND RND <= (21 / review) THEN print #1, "Na "; ELSEIF RND > (21 / review) AND RND <= (22 / review) THEN print #1, "Ne "; ELSEIF RND > (22 / review) AND RND <= (23 / review) THEN print #1, "Ni "; ELSEIF RND > (23 / review) AND RND <= (24 / review) THEN print #1, "No "; ELSEIF RND > (24 / review) AND RND <= (25 / review) THEN print #1, "Nu "; ELSEIF RND > (25 / review) AND RND <= (26 / review) THEN print #1, "Ga "; ELSEIF RND > (26 / review) AND RND <= (27 / review) THEN print #1, "Ge "; ELSEIF RND > (27 / review) AND RND <= (28 / review) THEN print #1, "Gi "; ELSEIF RND > (28 / review) AND RND <= (29 / review) THEN print #1, "Go "; ELSEIF RND > (29 / review) AND RND <= (30 / review) THEN print #1, "Gu "; ELSEIF RND > (30 / review) AND RND <= (31 / review) THEN print #1, "Ha "; ELSEIF RND > (31 / review) AND RND <= (32 / review) THEN print #1, "He "; ELSEIF RND > (32 / review) AND RND <= (33 / review) THEN print #1, "Hi "; ELSEIF RND > (33 / review) AND RND <= (34 / review) THEN print #1, "Ho "; ELSEIF RND > (34 / review) AND RND <= (35 / review) THEN print #1, "Hu "; ELSE END IF NEXT print #1, "" print #1, "" '**************************lesson 9 pa pe pi po pu FOR n = 1 TO 14 print #1, "Pa "; NEXT FOR n = 1 TO 14 print #1, "Pe "; NEXT FOR n = 1 TO 14 print #1, "Pi "; NEXT FOR n = 1 TO 14 print #1, "Po "; NEXT FOR n = 1 TO 14 print #1, "Pu "; NEXT let a = 5 FOR n = 1 TO (7 * 19) IF RND <= (1 / a) THEN print #1, "Pa "; ELSEIF RND > (1 / a) AND RND <= (2 / a) THEN print #1, "Pe "; ELSEIF RND > (2 / a) AND RND <= (3 / a) THEN print #1, "Pi "; ELSEIF RND > (3 / a) AND RND <= (4 / a) THEN print #1, "Po "; ELSEIF RND > (4 / a) AND RND <= (5 / a) THEN print #1, "Pu "; ELSE END IF NEXT print #1, "" print #1, "" LET review = review + 5 FOR n = 1 TO (7 * 15) IF RND <= (1 / review) THEN print #1, "Ta "; ELSEIF RND > (1 / review) AND RND <= (2 / review) THEN print #1, "Te "; ELSEIF RND > (2 / review) AND RND <= (3 / review) THEN print #1, "To "; ELSEIF RND > (3 / review) AND RND <= (4 / review) THEN print #1, "Ya "; ELSEIF RND > (4 / review) AND RND <= (5 / review) THEN print #1, "Yo "; ELSEIF RND > (5 / review) AND RND <= (6 / review) THEN print #1, "Yu "; ELSEIF RND > (6 / review) AND RND <= (7 / review) THEN print #1, "Shi "; ELSEIF RND > (7 / review) AND RND <= (8 / review) THEN print #1, "Chi "; ELSEIF RND > (8 / review) AND RND <= (9 / review) THEN print #1, "Tsu "; ELSEIF RND > (9 / review) AND RND <= (10 / review) THEN print #1, "Wa "; ELSEIF RND > (10 / review) AND RND <= (11 / review) THEN print #1, "Sa "; ELSEIF RND > (11 / review) AND RND <= (12 / review) THEN print #1, "Se "; ELSEIF RND > (12 / review) AND RND <= (13 / review) THEN print #1, "So "; ELSEIF RND > (13 / review) AND RND <= (14 / review) THEN print #1, "Su "; ELSEIF RND > (14 / review) AND RND <= (15 / review) THEN print #1, "Ma "; ELSEIF RND > (15 / review) AND RND <= (16 / review) THEN print #1, "Me "; ELSEIF RND > (16 / review) AND RND <= (17 / review) THEN print #1, "Mi "; ELSEIF RND > (17 / review) AND RND <= (18 / review) THEN print #1, "Mo "; ELSEIF RND > (18 / review) AND RND <= (19 / review) THEN print #1, "Mu "; ELSEIF RND > (19 / review) AND RND <= (20 / review) THEN print #1, "N "; ELSEIF RND > (20 / review) AND RND <= (21 / review) THEN print #1, "Na "; ELSEIF RND > (21 / review) AND RND <= (22 / review) THEN print #1, "Ne "; ELSEIF RND > (22 / review) AND RND <= (23 / review) THEN print #1, "Ni "; ELSEIF RND > (23 / review) AND RND <= (24 / review) THEN print #1, "No "; ELSEIF RND > (24 / review) AND RND <= (25 / review) THEN print #1, "Nu "; ELSEIF RND > (25 / review) AND RND <= (26 / review) THEN print #1, "Ga "; ELSEIF RND > (26 / review) AND RND <= (27 / review) THEN print #1, "Ge "; ELSEIF RND > (27 / review) AND RND <= (28 / review) THEN print #1, "Gi "; ELSEIF RND > (28 / review) AND RND <= (29 / review) THEN print #1, "Go "; ELSEIF RND > (29 / review) AND RND <= (30 / review) THEN print #1, "Gu "; ELSEIF RND > (30 / review) AND RND <= (31 / review) THEN print #1, "Ha "; ELSEIF RND > (31 / review) AND RND <= (32 / review) THEN print #1, "He "; ELSEIF RND > (32 / review) AND RND <= (33 / review) THEN print #1, "Hi "; ELSEIF RND > (33 / review) AND RND <= (34 / review) THEN print #1, "Ho "; ELSEIF RND > (34 / review) AND RND <= (35 / review) THEN print #1, "Hu "; ELSEIF RND > (35 / review) AND RND <= (36 / review) THEN print #1, "Pa "; ELSEIF RND > (36 / review) AND RND <= (37 / review) THEN print #1, "Pe "; ELSEIF RND > (37 / review) AND RND <= (38 / review) THEN print #1, "Pi "; ELSEIF RND > (38 / review) AND RND <= (39 / review) THEN print #1, "Po "; ELSEIF RND > (39 / review) AND RND <= (40 / review) THEN print #1, "Pu "; ELSE END IF NEXT print #1, "" print #1, "" '**************************lesson 10 za ze ji zo zu FOR n = 1 TO 14 print #1, "Za "; NEXT FOR n = 1 TO 14 print #1, "Ze "; NEXT FOR n = 1 TO 14 print #1, "Zi "; NEXT FOR n = 1 TO 14 print #1, "Zo "; NEXT FOR n = 1 TO 14 print #1, "Zu "; NEXT let a = 5 FOR n = 1 TO (7 * 19) IF RND <= (1 / a) THEN print #1, "Za "; ELSEIF RND > (1 / a) AND RND <= (2 / a) THEN print #1, "Ze "; ELSEIF RND > (2 / a) AND RND <= (3 / a) THEN print #1, "Zi "; ELSEIF RND > (3 / a) AND RND <= (4 / a) THEN print #1, "Zo "; ELSEIF RND > (4 / a) AND RND <= (5 / a) THEN print #1, "Zu "; ELSE END IF NEXT print #1, "" print #1, "" LET review = review + 5 FOR n = 1 TO (7 * 15) IF RND <= (1 / review) THEN print #1, "Ta "; ELSEIF RND > (1 / review) AND RND <= (2 / review) THEN print #1, "Te "; ELSEIF RND > (2 / review) AND RND <= (3 / review) THEN print #1, "To "; ELSEIF RND > (3 / review) AND RND <= (4 / review) THEN print #1, "Ya "; ELSEIF RND > (4 / review) AND RND <= (5 / review) THEN print #1, "Yo "; ELSEIF RND > (5 / review) AND RND <= (6 / review) THEN print #1, "Yu "; ELSEIF RND > (6 / review) AND RND <= (7 / review) THEN print #1, "Shi "; ELSEIF RND > (7 / review) AND RND <= (8 / review) THEN print #1, "Chi "; ELSEIF RND > (8 / review) AND RND <= (9 / review) THEN print #1, "Tsu "; ELSEIF RND > (9 / review) AND RND <= (10 / review) THEN print #1, "Wa "; ELSEIF RND > (10 / review) AND RND <= (11 / review) THEN print #1, "Sa "; ELSEIF RND > (11 / review) AND RND <= (12 / review) THEN print #1, "Se "; ELSEIF RND > (12 / review) AND RND <= (13 / review) THEN print #1, "So "; ELSEIF RND > (13 / review) AND RND <= (14 / review) THEN print #1, "Su "; ELSEIF RND > (14 / review) AND RND <= (15 / review) THEN print #1, "Ma "; ELSEIF RND > (15 / review) AND RND <= (16 / review) THEN print #1, "Me "; ELSEIF RND > (16 / review) AND RND <= (17 / review) THEN print #1, "Mi "; ELSEIF RND > (17 / review) AND RND <= (18 / review) THEN print #1, "Mo "; ELSEIF RND > (18 / review) AND RND <= (19 / review) THEN print #1, "Mu "; ELSEIF RND > (19 / review) AND RND <= (20 / review) THEN print #1, "N "; ELSEIF RND > (20 / review) AND RND <= (21 / review) THEN print #1, "Na "; ELSEIF RND > (21 / review) AND RND <= (22 / review) THEN print #1, "Ne "; ELSEIF RND > (22 / review) AND RND <= (23 / review) THEN print #1, "Ni "; ELSEIF RND > (23 / review) AND RND <= (24 / review) THEN print #1, "No "; ELSEIF RND > (24 / review) AND RND <= (25 / review) THEN print #1, "Nu "; ELSEIF RND > (25 / review) AND RND <= (26 / review) THEN print #1, "Ga "; ELSEIF RND > (26 / review) AND RND <= (27 / review) THEN print #1, "Ge "; ELSEIF RND > (27 / review) AND RND <= (28 / review) THEN print #1, "Gi "; ELSEIF RND > (28 / review) AND RND <= (29 / review) THEN print #1, "Go "; ELSEIF RND > (29 / review) AND RND <= (30 / review) THEN print #1, "Gu "; ELSEIF RND > (30 / review) AND RND <= (31 / review) THEN print #1, "Ha "; ELSEIF RND > (31 / review) AND RND <= (32 / review) THEN print #1, "He "; ELSEIF RND > (32 / review) AND RND <= (33 / review) THEN print #1, "Hi "; ELSEIF RND > (33 / review) AND RND <= (34 / review) THEN print #1, "Ho "; ELSEIF RND > (34 / review) AND RND <= (35 / review) THEN print #1, "Hu "; ELSEIF RND > (35 / review) AND RND <= (36 / review) THEN print #1, "Pa "; ELSEIF RND > (36 / review) AND RND <= (37 / review) THEN print #1, "Pe "; ELSEIF RND > (37 / review) AND RND <= (38 / review) THEN print #1, "Pi "; ELSEIF RND > (38 / review) AND RND <= (39 / review) THEN print #1, "Po "; ELSEIF RND > (39 / review) AND RND <= (40 / review) THEN print #1, "Pu "; ELSEIF RND > (40 / review) AND RND <= (41 / review) THEN print #1, "Za "; ELSEIF RND > (41 / review) AND RND <= (42 / review) THEN print #1, "Ze "; ELSEIF RND > (42 / review) AND RND <= (43 / review) THEN print #1, "Zi "; ELSEIF RND > (43 / review) AND RND <= (44 / review) THEN print #1, "Zo "; ELSEIF RND > (44 / review) AND RND <= (45 / review) THEN print #1, "Zu "; ELSE END IF NEXT print #1, "" print #1, "" '**************************lesson 11 ba be bi bo bu FOR n = 1 TO 14 print #1, "Ba "; NEXT FOR n = 1 TO 14 print #1, "Be "; NEXT FOR n = 1 TO 14 print #1, "Bi "; NEXT FOR n = 1 TO 14 print #1, "Bo "; NEXT FOR n = 1 TO 14 print #1, "Bu "; NEXT let a = 5 FOR n = 1 TO (7 * 19) IF RND <= (1 / a) THEN print #1, "Ba "; ELSEIF RND > (1 / a) AND RND <= (2 / a) THEN print #1, "Be "; ELSEIF RND > (2 / a) AND RND <= (3 / a) THEN print #1, "Bi "; ELSEIF RND > (3 / a) AND RND <= (4 / a) THEN print #1, "Bo "; ELSEIF RND > (4 / a) AND RND <= (5 / a) THEN print #1, "Bu "; ELSE END IF NEXT print #1, "" print #1, "" LET review = review + 5 FOR n = 1 TO (7 * 15) IF RND <= (1 / review) THEN print #1, "Ta "; ELSEIF RND > (1 / review) AND RND <= (2 / review) THEN print #1, "Te "; ELSEIF RND > (2 / review) AND RND <= (3 / review) THEN print #1, "To "; ELSEIF RND > (3 / review) AND RND <= (4 / review) THEN print #1, "Ya "; ELSEIF RND > (4 / review) AND RND <= (5 / review) THEN print #1, "Yo "; ELSEIF RND > (5 / review) AND RND <= (6 / review) THEN print #1, "Yu "; ELSEIF RND > (6 / review) AND RND <= (7 / review) THEN print #1, "Shi "; ELSEIF RND > (7 / review) AND RND <= (8 / review) THEN print #1, "Chi "; ELSEIF RND > (8 / review) AND RND <= (9 / review) THEN print #1, "Tsu "; ELSEIF RND > (9 / review) AND RND <= (10 / review) THEN print #1, "Wa "; ELSEIF RND > (10 / review) AND RND <= (11 / review) THEN print #1, "Sa "; ELSEIF RND > (11 / review) AND RND <= (12 / review) THEN print #1, "Se "; ELSEIF RND > (12 / review) AND RND <= (13 / review) THEN print #1, "So "; ELSEIF RND > (13 / review) AND RND <= (14 / review) THEN print #1, "Su "; ELSEIF RND > (14 / review) AND RND <= (15 / review) THEN print #1, "Ma "; ELSEIF RND > (15 / review) AND RND <= (16 / review) THEN print #1, "Me "; ELSEIF RND > (16 / review) AND RND <= (17 / review) THEN print #1, "Mi "; ELSEIF RND > (17 / review) AND RND <= (18 / review) THEN print #1, "Mo "; ELSEIF RND > (18 / review) AND RND <= (19 / review) THEN print #1, "Mu "; ELSEIF RND > (19 / review) AND RND <= (20 / review) THEN print #1, "N "; ELSEIF RND > (20 / review) AND RND <= (21 / review) THEN print #1, "Na "; ELSEIF RND > (21 / review) AND RND <= (22 / review) THEN print #1, "Ne "; ELSEIF RND > (22 / review) AND RND <= (23 / review) THEN print #1, "Ni "; ELSEIF RND > (23 / review) AND RND <= (24 / review) THEN print #1, "No "; ELSEIF RND > (24 / review) AND RND <= (25 / review) THEN print #1, "Nu "; ELSEIF RND > (25 / review) AND RND <= (26 / review) THEN print #1, "Ga "; ELSEIF RND > (26 / review) AND RND <= (27 / review) THEN print #1, "Ge "; ELSEIF RND > (27 / review) AND RND <= (28 / review) THEN print #1, "Gi "; ELSEIF RND > (28 / review) AND RND <= (29 / review) THEN print #1, "Go "; ELSEIF RND > (29 / review) AND RND <= (30 / review) THEN print #1, "Gu "; ELSEIF RND > (30 / review) AND RND <= (31 / review) THEN print #1, "Ha "; ELSEIF RND > (31 / review) AND RND <= (32 / review) THEN print #1, "He "; ELSEIF RND > (32 / review) AND RND <= (33 / review) THEN print #1, "Hi "; ELSEIF RND > (33 / review) AND RND <= (34 / review) THEN print #1, "Ho "; ELSEIF RND > (34 / review) AND RND <= (35 / review) THEN print #1, "Hu "; ELSEIF RND > (35 / review) AND RND <= (36 / review) THEN print #1, "Pa "; ELSEIF RND > (36 / review) AND RND <= (37 / review) THEN print #1, "Pe "; ELSEIF RND > (37 / review) AND RND <= (38 / review) THEN print #1, "Pi "; ELSEIF RND > (38 / review) AND RND <= (39 / review) THEN print #1, "Po "; ELSEIF RND > (39 / review) AND RND <= (40 / review) THEN print #1, "Pu "; ELSEIF RND > (40 / review) AND RND <= (41 / review) THEN print #1, "Za "; ELSEIF RND > (41 / review) AND RND <= (42 / review) THEN print #1, "Ze "; ELSEIF RND > (42 / review) AND RND <= (43 / review) THEN print #1, "Zi "; ELSEIF RND > (43 / review) AND RND <= (44 / review) THEN print #1, "Zo "; ELSEIF RND > (44 / review) AND RND <= (45 / review) THEN print #1, "Zu "; ELSEIF RND > (45 / review) AND RND <= (46 / review) THEN print #1, "Ba "; ELSEIF RND > (46 / review) AND RND <= (47 / review) THEN print #1, "Be "; ELSEIF RND > (47 / review) AND RND <= (48 / review) THEN print #1, "Bi "; ELSEIF RND > (48 / review) AND RND <= (49 / review) THEN print #1, "Bo "; ELSEIF RND > (49 / review) AND RND <= (50 / review) THEN print #1, "Bu "; ELSE END IF NEXT print #1, "" print #1, "" '**************************lesson 12 ra re ri ro ru FOR n = 1 TO 14 print #1, "Ra "; NEXT FOR n = 1 TO 14 print #1, "Re "; NEXT FOR n = 1 TO 14 print #1, "Ri "; NEXT FOR n = 1 TO 14 print #1, "Ro "; NEXT FOR n = 1 TO 14 print #1, "Ru "; NEXT let a = 5 FOR n = 1 TO (7 * 19) IF RND <= (1 / a) THEN print #1, "Ra "; ELSEIF RND > (1 / a) AND RND <= (2 / a) THEN print #1, "Re "; ELSEIF RND > (2 / a) AND RND <= (3 / a) THEN print #1, "Ri "; ELSEIF RND > (3 / a) AND RND <= (4 / a) THEN print #1, "Ro "; ELSEIF RND > (4 / a) AND RND <= (5 / a) THEN print #1, "Ru "; ELSE END IF NEXT print #1, "" print #1, "" LET review = review + 5 FOR n = 1 TO (7 * 15) IF RND <= (1 / review) THEN print #1, "Ta "; ELSEIF RND > (1 / review) AND RND <= (2 / review) THEN print #1, "Te "; ELSEIF RND > (2 / review) AND RND <= (3 / review) THEN print #1, "To "; ELSEIF RND > (3 / review) AND RND <= (4 / review) THEN print #1, "Ya "; ELSEIF RND > (4 / review) AND RND <= (5 / review) THEN print #1, "Yo "; ELSEIF RND > (5 / review) AND RND <= (6 / review) THEN print #1, "Yu "; ELSEIF RND > (6 / review) AND RND <= (7 / review) THEN print #1, "Shi "; ELSEIF RND > (7 / review) AND RND <= (8 / review) THEN print #1, "Chi "; ELSEIF RND > (8 / review) AND RND <= (9 / review) THEN print #1, "Tsu "; ELSEIF RND > (9 / review) AND RND <= (10 / review) THEN print #1, "Wa "; ELSEIF RND > (10 / review) AND RND <= (11 / review) THEN print #1, "Sa "; ELSEIF RND > (11 / review) AND RND <= (12 / review) THEN print #1, "Se "; ELSEIF RND > (12 / review) AND RND <= (13 / review) THEN print #1, "So "; ELSEIF RND > (13 / review) AND RND <= (14 / review) THEN print #1, "Su "; ELSEIF RND > (14 / review) AND RND <= (15 / review) THEN print #1, "Ma "; ELSEIF RND > (15 / review) AND RND <= (16 / review) THEN print #1, "Me "; ELSEIF RND > (16 / review) AND RND <= (17 / review) THEN print #1, "Mi "; ELSEIF RND > (17 / review) AND RND <= (18 / review) THEN print #1, "Mo "; ELSEIF RND > (18 / review) AND RND <= (19 / review) THEN print #1, "Mu "; ELSEIF RND > (19 / review) AND RND <= (20 / review) THEN print #1, "N "; ELSEIF RND > (20 / review) AND RND <= (21 / review) THEN print #1, "Na "; ELSEIF RND > (21 / review) AND RND <= (22 / review) THEN print #1, "Ne "; ELSEIF RND > (22 / review) AND RND <= (23 / review) THEN print #1, "Ni "; ELSEIF RND > (23 / review) AND RND <= (24 / review) THEN print #1, "No "; ELSEIF RND > (24 / review) AND RND <= (25 / review) THEN print #1, "Nu "; ELSEIF RND > (25 / review) AND RND <= (26 / review) THEN print #1, "Ga "; ELSEIF RND > (26 / review) AND RND <= (27 / review) THEN print #1, "Ge "; ELSEIF RND > (27 / review) AND RND <= (28 / review) THEN print #1, "Gi "; ELSEIF RND > (28 / review) AND RND <= (29 / review) THEN print #1, "Go "; ELSEIF RND > (29 / review) AND RND <= (30 / review) THEN print #1, "Gu "; ELSEIF RND > (30 / review) AND RND <= (31 / review) THEN print #1, "Ha "; ELSEIF RND > (31 / review) AND RND <= (32 / review) THEN print #1, "He "; ELSEIF RND > (32 / review) AND RND <= (33 / review) THEN print #1, "Hi "; ELSEIF RND > (33 / review) AND RND <= (34 / review) THEN print #1, "Ho "; ELSEIF RND > (34 / review) AND RND <= (35 / review) THEN print #1, "Hu "; ELSEIF RND > (35 / review) AND RND <= (36 / review) THEN print #1, "Pa "; ELSEIF RND > (36 / review) AND RND <= (37 / review) THEN print #1, "Pe "; ELSEIF RND > (37 / review) AND RND <= (38 / review) THEN print #1, "Pi "; ELSEIF RND > (38 / review) AND RND <= (39 / review) THEN print #1, "Po "; ELSEIF RND > (39 / review) AND RND <= (40 / review) THEN print #1, "Pu "; ELSEIF RND > (40 / review) AND RND <= (41 / review) THEN print #1, "Za "; ELSEIF RND > (41 / review) AND RND <= (42 / review) THEN print #1, "Ze "; ELSEIF RND > (42 / review) AND RND <= (43 / review) THEN print #1, "Zi "; ELSEIF RND > (43 / review) AND RND <= (44 / review) THEN print #1, "Zo "; ELSEIF RND > (44 / review) AND RND <= (45 / review) THEN print #1, "Zu "; ELSEIF RND > (45 / review) AND RND <= (46 / review) THEN print #1, "Ba "; ELSEIF RND > (46 / review) AND RND <= (47 / review) THEN print #1, "Be "; ELSEIF RND > (47 / review) AND RND <= (48 / review) THEN print #1, "Bi "; ELSEIF RND > (48 / review) AND RND <= (49 / review) THEN print #1, "Bo "; ELSEIF RND > (49 / review) AND RND <= (50 / review) THEN print #1, "Bu "; ELSEIF RND > (50 / review) AND RND <= (51 / review) THEN print #1, "Ra "; ELSEIF RND > (51 / review) AND RND <= (52 / review) THEN print #1, "Re "; ELSEIF RND > (52 / review) AND RND <= (53 / review) THEN print #1, "Ri "; ELSEIF RND > (53 / review) AND RND <= (54 / review) THEN print #1, "Ro "; ELSEIF RND > (54 / review) AND RND <= (55 / review) THEN print #1, "Ru "; ELSE END IF NEXT print #1, "" print #1, "" '**************************lesson 13 ka ke mi ko ku FOR n = 1 TO 14 print #1, "Ka "; NEXT FOR n = 1 TO 14 print #1, "Ke "; NEXT FOR n = 1 TO 14 print #1, "Ki "; NEXT FOR n = 1 TO 14 print #1, "Ko "; NEXT FOR n = 1 TO 14 print #1, "Ku "; NEXT let a = 5 FOR n = 1 TO (7 * 19) IF RND <= (1 / a) THEN print #1, "Ka "; ELSEIF RND > (1 / a) AND RND <= (2 / a) THEN print #1, "Ke "; ELSEIF RND > (2 / a) AND RND <= (3 / a) THEN print #1, "Ki "; ELSEIF RND > (3 / a) AND RND <= (4 / a) THEN print #1, "Ko "; ELSEIF RND > (4 / a) AND RND <= (5 / a) THEN print #1, "Ku "; ELSE END IF NEXT print #1, "" print #1, "" LET review = review + 5 FOR n = 1 TO (7 * 15) IF RND <= (1 / review) THEN print #1, "Ta "; ELSEIF RND > (1 / review) AND RND <= (2 / review) THEN print #1, "Te "; ELSEIF RND > (2 / review) AND RND <= (3 / review) THEN print #1, "To "; ELSEIF RND > (3 / review) AND RND <= (4 / review) THEN print #1, "Ya "; ELSEIF RND > (4 / review) AND RND <= (5 / review) THEN print #1, "Yo "; ELSEIF RND > (5 / review) AND RND <= (6 / review) THEN print #1, "Yu "; ELSEIF RND > (6 / review) AND RND <= (7 / review) THEN print #1, "Shi "; ELSEIF RND > (7 / review) AND RND <= (8 / review) THEN print #1, "Chi "; ELSEIF RND > (8 / review) AND RND <= (9 / review) THEN print #1, "Tsu "; ELSEIF RND > (9 / review) AND RND <= (10 / review) THEN print #1, "Wa "; ELSEIF RND > (10 / review) AND RND <= (11 / review) THEN print #1, "Sa "; ELSEIF RND > (11 / review) AND RND <= (12 / review) THEN print #1, "Se "; ELSEIF RND > (12 / review) AND RND <= (13 / review) THEN print #1, "So "; ELSEIF RND > (13 / review) AND RND <= (14 / review) THEN print #1, "Su "; ELSEIF RND > (14 / review) AND RND <= (15 / review) THEN print #1, "Ma "; ELSEIF RND > (15 / review) AND RND <= (16 / review) THEN print #1, "Me "; ELSEIF RND > (16 / review) AND RND <= (17 / review) THEN print #1, "Mi "; ELSEIF RND > (17 / review) AND RND <= (18 / review) THEN print #1, "Mo "; ELSEIF RND > (18 / review) AND RND <= (19 / review) THEN print #1, "Mu "; ELSEIF RND > (19 / review) AND RND <= (20 / review) THEN print #1, "N "; ELSEIF RND > (20 / review) AND RND <= (21 / review) THEN print #1, "Na "; ELSEIF RND > (21 / review) AND RND <= (22 / review) THEN print #1, "Ne "; ELSEIF RND > (22 / review) AND RND <= (23 / review) THEN print #1, "Ni "; ELSEIF RND > (23 / review) AND RND <= (24 / review) THEN print #1, "No "; ELSEIF RND > (24 / review) AND RND <= (25 / review) THEN print #1, "Nu "; ELSEIF RND > (25 / review) AND RND <= (26 / review) THEN print #1, "Ga "; ELSEIF RND > (26 / review) AND RND <= (27 / review) THEN print #1, "Ge "; ELSEIF RND > (27 / review) AND RND <= (28 / review) THEN print #1, "Gi "; ELSEIF RND > (28 / review) AND RND <= (29 / review) THEN print #1, "Go "; ELSEIF RND > (29 / review) AND RND <= (30 / review) THEN print #1, "Gu "; ELSEIF RND > (30 / review) AND RND <= (31 / review) THEN print #1, "Ha "; ELSEIF RND > (31 / review) AND RND <= (32 / review) THEN print #1, "He "; ELSEIF RND > (32 / review) AND RND <= (33 / review) THEN print #1, "Hi "; ELSEIF RND > (33 / review) AND RND <= (34 / review) THEN print #1, "Ho "; ELSEIF RND > (34 / review) AND RND <= (35 / review) THEN print #1, "Hu "; ELSEIF RND > (35 / review) AND RND <= (36 / review) THEN print #1, "Pa "; ELSEIF RND > (36 / review) AND RND <= (37 / review) THEN print #1, "Pe "; ELSEIF RND > (37 / review) AND RND <= (38 / review) THEN print #1, "Pi "; ELSEIF RND > (38 / review) AND RND <= (39 / review) THEN print #1, "Po "; ELSEIF RND > (39 / review) AND RND <= (40 / review) THEN print #1, "Pu "; ELSEIF RND > (40 / review) AND RND <= (41 / review) THEN print #1, "Za "; ELSEIF RND > (41 / review) AND RND <= (42 / review) THEN print #1, "Ze "; ELSEIF RND > (42 / review) AND RND <= (43 / review) THEN print #1, "Zi "; ELSEIF RND > (43 / review) AND RND <= (44 / review) THEN print #1, "Zo "; ELSEIF RND > (44 / review) AND RND <= (45 / review) THEN print #1, "Zu "; ELSEIF RND > (45 / review) AND RND <= (46 / review) THEN print #1, "Ba "; ELSEIF RND > (46 / review) AND RND <= (47 / review) THEN print #1, "Be "; ELSEIF RND > (47 / review) AND RND <= (48 / review) THEN print #1, "Bi "; ELSEIF RND > (48 / review) AND RND <= (49 / review) THEN print #1, "Bo "; ELSEIF RND > (49 / review) AND RND <= (50 / review) THEN print #1, "Bu "; ELSEIF RND > (50 / review) AND RND <= (51 / review) THEN print #1, "Ra "; ELSEIF RND > (51 / review) AND RND <= (52 / review) THEN print #1, "Re "; ELSEIF RND > (52 / review) AND RND <= (53 / review) THEN print #1, "Ri "; ELSEIF RND > (53 / review) AND RND <= (54 / review) THEN print #1, "Ro "; ELSEIF RND > (54 / review) AND RND <= (55 / review) THEN print #1, "Ru "; ELSEIF RND > (55 / review) AND RND <= (56 / review) THEN print #1, "Ka "; ELSEIF RND > (56 / review) AND RND <= (57 / review) THEN print #1, "Ke "; ELSEIF RND > (57 / review) AND RND <= (58 / review) THEN print #1, "Ki "; ELSEIF RND > (58 / review) AND RND <= (59 / review) THEN print #1, "Ko "; ELSEIF RND > (59 / review) AND RND <= (60 / review) THEN print #1, "Ku "; ELSE END IF NEXT print #1, "" print #1, "" '**************************lesson 14 da de di do du FOR n = 1 TO 14 print #1, "Da "; NEXT FOR n = 1 TO 14 print #1, "De "; NEXT FOR n = 1 TO 14 print #1, "Di "; NEXT FOR n = 1 TO 14 print #1, "Do "; NEXT FOR n = 1 TO 14 print #1, "Du "; NEXT let a = 5 FOR n = 1 TO (7 * 19) IF RND <= (1 / a) THEN print #1, "Da "; ELSEIF RND > (1 / a) AND RND <= (2 / a) THEN print #1, "De "; ELSEIF RND > (2 / a) AND RND <= (3 / a) THEN print #1, "Di "; ELSEIF RND > (3 / a) AND RND <= (4 / a) THEN print #1, "Do "; ELSEIF RND > (4 / a) AND RND <= (5 / a) THEN print #1, "Du "; ELSE END IF NEXT print #1, "" print #1, "" LET review = review + 5 FOR n = 1 TO (7 * 15) IF RND <= (1 / review) THEN print #1, "Ta "; ELSEIF RND > (1 / review) AND RND <= (2 / review) THEN print #1, "Te "; ELSEIF RND > (2 / review) AND RND <= (3 / review) THEN print #1, "To "; ELSEIF RND > (3 / review) AND RND <= (4 / review) THEN print #1, "Ya "; ELSEIF RND > (4 / review) AND RND <= (5 / review) THEN print #1, "Yo "; ELSEIF RND > (5 / review) AND RND <= (6 / review) THEN print #1, "Yu "; ELSEIF RND > (6 / review) AND RND <= (7 / review) THEN print #1, "Shi "; ELSEIF RND > (7 / review) AND RND <= (8 / review) THEN print #1, "Chi "; ELSEIF RND > (8 / review) AND RND <= (9 / review) THEN print #1, "Tsu "; ELSEIF RND > (9 / review) AND RND <= (10 / review) THEN print #1, "Wa "; ELSEIF RND > (10 / review) AND RND <= (11 / review) THEN print #1, "Sa "; ELSEIF RND > (11 / review) AND RND <= (12 / review) THEN print #1, "Se "; ELSEIF RND > (12 / review) AND RND <= (13 / review) THEN print #1, "So "; ELSEIF RND > (13 / review) AND RND <= (14 / review) THEN print #1, "Su "; ELSEIF RND > (14 / review) AND RND <= (15 / review) THEN print #1, "Ma "; ELSEIF RND > (15 / review) AND RND <= (16 / review) THEN print #1, "Me "; ELSEIF RND > (16 / review) AND RND <= (17 / review) THEN print #1, "Mi "; ELSEIF RND > (17 / review) AND RND <= (18 / review) THEN print #1, "Mo "; ELSEIF RND > (18 / review) AND RND <= (19 / review) THEN print #1, "Mu "; ELSEIF RND > (19 / review) AND RND <= (20 / review) THEN print #1, "N "; ELSEIF RND > (20 / review) AND RND <= (21 / review) THEN print #1, "Na "; ELSEIF RND > (21 / review) AND RND <= (22 / review) THEN print #1, "Ne "; ELSEIF RND > (22 / review) AND RND <= (23 / review) THEN print #1, "Ni "; ELSEIF RND > (23 / review) AND RND <= (24 / review) THEN print #1, "No "; ELSEIF RND > (24 / review) AND RND <= (25 / review) THEN print #1, "Nu "; ELSEIF RND > (25 / review) AND RND <= (26 / review) THEN print #1, "Ga "; ELSEIF RND > (26 / review) AND RND <= (27 / review) THEN print #1, "Ge "; ELSEIF RND > (27 / review) AND RND <= (28 / review) THEN print #1, "Gi "; ELSEIF RND > (28 / review) AND RND <= (29 / review) THEN print #1, "Go "; ELSEIF RND > (29 / review) AND RND <= (30 / review) THEN print #1, "Gu "; ELSEIF RND > (30 / review) AND RND <= (31 / review) THEN print #1, "Ha "; ELSEIF RND > (31 / review) AND RND <= (32 / review) THEN print #1, "He "; ELSEIF RND > (32 / review) AND RND <= (33 / review) THEN print #1, "Hi "; ELSEIF RND > (33 / review) AND RND <= (34 / review) THEN print #1, "Ho "; ELSEIF RND > (34 / review) AND RND <= (35 / review) THEN print #1, "Hu "; ELSEIF RND > (35 / review) AND RND <= (36 / review) THEN print #1, "Pa "; ELSEIF RND > (36 / review) AND RND <= (37 / review) THEN print #1, "Pe "; ELSEIF RND > (37 / review) AND RND <= (38 / review) THEN print #1, "Pi "; ELSEIF RND > (38 / review) AND RND <= (39 / review) THEN print #1, "Po "; ELSEIF RND > (39 / review) AND RND <= (40 / review) THEN print #1, "Pu "; ELSEIF RND > (40 / review) AND RND <= (41 / review) THEN print #1, "Za "; ELSEIF RND > (41 / review) AND RND <= (42 / review) THEN print #1, "Ze "; ELSEIF RND > (42 / review) AND RND <= (43 / review) THEN print #1, "Zi "; ELSEIF RND > (43 / review) AND RND <= (44 / review) THEN print #1, "Zo "; ELSEIF RND > (44 / review) AND RND <= (45 / review) THEN print #1, "Zu "; ELSEIF RND > (45 / review) AND RND <= (46 / review) THEN print #1, "Ba "; ELSEIF RND > (46 / review) AND RND <= (47 / review) THEN print #1, "Be "; ELSEIF RND > (47 / review) AND RND <= (48 / review) THEN print #1, "Bi "; ELSEIF RND > (48 / review) AND RND <= (49 / review) THEN print #1, "Bo "; ELSEIF RND > (49 / review) AND RND <= (50 / review) THEN print #1, "Bu "; ELSEIF RND > (50 / review) AND RND <= (51 / review) THEN print #1, "Ra "; ELSEIF RND > (51 / review) AND RND <= (52 / review) THEN print #1, "Re "; ELSEIF RND > (52 / review) AND RND <= (53 / review) THEN print #1, "Ri "; ELSEIF RND > (53 / review) AND RND <= (54 / review) THEN print #1, "Ro "; ELSEIF RND > (54 / review) AND RND <= (55 / review) THEN print #1, "Ru "; ELSEIF RND > (55 / review) AND RND <= (56 / review) THEN print #1, "Ka "; ELSEIF RND > (56 / review) AND RND <= (57 / review) THEN print #1, "Ke "; ELSEIF RND > (57 / review) AND RND <= (58 / review) THEN print #1, "Ki "; ELSEIF RND > (58 / review) AND RND <= (59 / review) THEN print #1, "Ko "; ELSEIF RND > (59 / review) AND RND <= (60 / review) THEN print #1, "Ku "; ELSEIF RND > (60 / review) AND RND <= (61 / review) THEN print #1, "Da "; ELSEIF RND > (61 / review) AND RND <= (62 / review) THEN print #1, "De "; ELSEIF RND > (62 / review) AND RND <= (63 / review) THEN print #1, "Di "; ELSEIF RND > (63 / review) AND RND <= (64 / review) THEN print #1, "Do "; ELSEIF RND > (64 / review) AND RND <= (65 / review) THEN print #1, "Du "; ELSE END IF NEXT print #1, "" print #1, "" '**************************lesson 15 a e i o o* u FOR n = 1 TO 14 print #1, "A "; NEXT FOR n = 1 TO 14 print #1, "E "; NEXT FOR n = 1 TO 14 print #1, "I "; NEXT FOR n = 1 TO 14 print #1, "O "; NEXT FOR n = 1 TO 14 print #1, "O* "; NEXT FOR n = 1 TO 14 print #1, "U "; NEXT let a = 6 FOR n = 1 TO (7 * 18) IF RND <= (1 / a) THEN print #1, "A "; ELSEIF RND > (1 / a) AND RND <= (2 / a) THEN print #1, "E "; ELSEIF RND > (2 / a) AND RND <= (3 / a) THEN print #1, "I "; ELSEIF RND > (3 / a) AND RND <= (4 / a) THEN print #1, "O "; ELSEIF RND > (4 / a) AND RND <= (5 / a) THEN print #1, "O* "; ELSEIF RND > (5 / a) AND RND <= (6 / a) THEN print #1, "U "; ELSE END IF NEXT print #1, "" print #1, "" LET review = review + 6 FOR n = 1 TO (7 * 60) IF RND <= (1 / review) THEN print #1, "Ta "; ELSEIF RND > (1 / review) AND RND <= (2 / review) THEN print #1, "Te "; ELSEIF RND > (2 / review) AND RND <= (3 / review) THEN print #1, "To "; ELSEIF RND > (3 / review) AND RND <= (4 / review) THEN print #1, "Ya "; ELSEIF RND > (4 / review) AND RND <= (5 / review) THEN print #1, "Yo "; ELSEIF RND > (5 / review) AND RND <= (6 / review) THEN print #1, "Yu "; ELSEIF RND > (6 / review) AND RND <= (7 / review) THEN print #1, "Shi "; ELSEIF RND > (7 / review) AND RND <= (8 / review) THEN print #1, "Chi "; ELSEIF RND > (8 / review) AND RND <= (9 / review) THEN print #1, "Tsu "; ELSEIF RND > (9 / review) AND RND <= (10 / review) THEN print #1, "Wa "; ELSEIF RND > (10 / review) AND RND <= (11 / review) THEN print #1, "Sa "; ELSEIF RND > (11 / review) AND RND <= (12 / review) THEN print #1, "Se "; ELSEIF RND > (12 / review) AND RND <= (13 / review) THEN print #1, "So "; ELSEIF RND > (13 / review) AND RND <= (14 / review) THEN print #1, "Su "; ELSEIF RND > (14 / review) AND RND <= (15 / review) THEN print #1, "Ma "; ELSEIF RND > (15 / review) AND RND <= (16 / review) THEN print #1, "Me "; ELSEIF RND > (16 / review) AND RND <= (17 / review) THEN print #1, "Mi "; ELSEIF RND > (17 / review) AND RND <= (18 / review) THEN print #1, "Mo "; ELSEIF RND > (18 / review) AND RND <= (19 / review) THEN print #1, "Mu "; ELSEIF RND > (19 / review) AND RND <= (20 / review) THEN print #1, "N "; ELSEIF RND > (20 / review) AND RND <= (21 / review) THEN print #1, "Na "; ELSEIF RND > (21 / review) AND RND <= (22 / review) THEN print #1, "Ne "; ELSEIF RND > (22 / review) AND RND <= (23 / review) THEN print #1, "Ni "; ELSEIF RND > (23 / review) AND RND <= (24 / review) THEN print #1, "No "; ELSEIF RND > (24 / review) AND RND <= (25 / review) THEN print #1, "Nu "; ELSEIF RND > (25 / review) AND RND <= (26 / review) THEN print #1, "Ga "; ELSEIF RND > (26 / review) AND RND <= (27 / review) THEN print #1, "Ge "; ELSEIF RND > (27 / review) AND RND <= (28 / review) THEN print #1, "Gi "; ELSEIF RND > (28 / review) AND RND <= (29 / review) THEN print #1, "Go "; ELSEIF RND > (29 / review) AND RND <= (30 / review) THEN print #1, "Gu "; ELSEIF RND > (30 / review) AND RND <= (31 / review) THEN print #1, "Ha "; ELSEIF RND > (31 / review) AND RND <= (32 / review) THEN print #1, "He "; ELSEIF RND > (32 / review) AND RND <= (33 / review) THEN print #1, "Hi "; ELSEIF RND > (33 / review) AND RND <= (34 / review) THEN print #1, "Ho "; ELSEIF RND > (34 / review) AND RND <= (35 / review) THEN print #1, "Hu "; ELSEIF RND > (35 / review) AND RND <= (36 / review) THEN print #1, "Pa "; ELSEIF RND > (36 / review) AND RND <= (37 / review) THEN print #1, "Pe "; ELSEIF RND > (37 / review) AND RND <= (38 / review) THEN print #1, "Pi "; ELSEIF RND > (38 / review) AND RND <= (39 / review) THEN print #1, "Po "; ELSEIF RND > (39 / review) AND RND <= (40 / review) THEN print #1, "Pu "; ELSEIF RND > (40 / review) AND RND <= (41 / review) THEN print #1, "Za "; ELSEIF RND > (41 / review) AND RND <= (42 / review) THEN print #1, "Ze "; ELSEIF RND > (42 / review) AND RND <= (43 / review) THEN print #1, "Zi "; ELSEIF RND > (43 / review) AND RND <= (44 / review) THEN print #1, "Zo "; ELSEIF RND > (44 / review) AND RND <= (45 / review) THEN print #1, "Zu "; ELSEIF RND > (45 / review) AND RND <= (46 / review) THEN print #1, "Ba "; ELSEIF RND > (46 / review) AND RND <= (47 / review) THEN print #1, "Be "; ELSEIF RND > (47 / review) AND RND <= (48 / review) THEN print #1, "Bi "; ELSEIF RND > (48 / review) AND RND <= (49 / review) THEN print #1, "Bo "; ELSEIF RND > (49 / review) AND RND <= (50 / review) THEN print #1, "Bu "; ELSEIF RND > (50 / review) AND RND <= (51 / review) THEN print #1, "Ra "; ELSEIF RND > (51 / review) AND RND <= (52 / review) THEN print #1, "Re "; ELSEIF RND > (52 / review) AND RND <= (53 / review) THEN print #1, "Ri "; ELSEIF RND > (53 / review) AND RND <= (54 / review) THEN print #1, "Ro "; ELSEIF RND > (54 / review) AND RND <= (55 / review) THEN print #1, "Ru "; ELSEIF RND > (55 / review) AND RND <= (56 / review) THEN print #1, "Ka "; ELSEIF RND > (56 / review) AND RND <= (57 / review) THEN print #1, "Ke "; ELSEIF RND > (57 / review) AND RND <= (58 / review) THEN print #1, "Ki "; ELSEIF RND > (58 / review) AND RND <= (59 / review) THEN print #1, "Ko "; ELSEIF RND > (59 / review) AND RND <= (60 / review) THEN print #1, "Ku "; ELSEIF RND > (60 / review) AND RND <= (61 / review) THEN print #1, "Da "; ELSEIF RND > (61 / review) AND RND <= (62 / review) THEN print #1, "De "; ELSEIF RND > (62 / review) AND RND <= (63 / review) THEN print #1, "Di "; ELSEIF RND > (63 / review) AND RND <= (64 / review) THEN print #1, "Do "; ELSEIF RND > (64 / review) AND RND <= (65 / review) THEN print #1, "Du "; ELSEIF RND > (65 / review) AND RND <= (66 / review) THEN print #1, "A "; ELSEIF RND > (66 / review) AND RND <= (67 / review) THEN print #1, "E "; ELSEIF RND > (67 / review) AND RND <= (68 / review) THEN print #1, "I "; ELSEIF RND > (68 / review) AND RND <= (69 / review) THEN print #1, "O "; ELSEIF RND > (69 / review) AND RND <= (70 / review) THEN print #1, "O* "; ELSEIF RND > (70 / review) AND RND <= (71 / review) THEN print #1, "U "; ELSE END IF NEXT print #1, "" print #1, "" print "done" print "review should be 71. It is :"; print review