00001 CLS
00002 A1$ = "#define REPEAT_2(x) x x"
00003
00004 F$ = "Rep4.hpp"
00005 OPEN F$ FOR APPEND AS #1
00006 A$ = "#define REPEAT_WC_"
00007 C$ = "(x) "
00008 Q$ = "2" + C$ + "x x"
00009 X$ = "x "
00010 Y$ = "x "
00011
00012 hh% = 4
00013 FOR qq% = 1 TO 8
00014 hh% = hh% + 16
00015 FOR i% = 10 TO 25
00016 K$ = LTRIM$(STR$(i%))
00017 M$ = LTRIM$(STR$(i% + hh%))
00018 N$ = LTRIM$(STR$(hh%))
00019
00020
00021 IF i% < 1000 THEN W$ = " "
00022 IF i% < 100 THEN W$ = " "
00023 IF i% < 10 THEN W$ = " "
00024
00025 A5$ = "#define REPEAT_WC_"
00026 Z$ = "(x) REPEAT_WC_" + N$ + " (x) REPEAT_WC_"
00027 V$ = " (x)"
00028
00029 S$ = A5$ + M$ + Z$ + K$ + V$
00030
00031 PRINT S$
00032 PRINT #1, S$
00033 NEXT
00034 NEXT
