Jul 24, 2018 08:25 AM
(This post was last modified: Jul 24, 2018 01:39 PM by Shell Willis.)
REM sleep +
DEF A ()
10 ON 10 GOTO 20
20 ON 20 GOTO 10
30 ON 10 GOTO 40
40
50 ON 30 GOTO 60
60
70 ON 60 GOSUB 80
80 ON 60 GOTO 90
90
100 ON 80 GOSUB 90
END DEF
N = 31
DO
Q$ = Q$ & Q$
N = N + 1
FOR N = 32 TO 126
Q$ = CHR$(N)
CALL A ()
IF 100 THEN CONTINUE
NEXT N
UNTIL A ()
PRINT Q$
DEF A ()
10 ON 10 GOTO 20
20 ON 20 GOTO 10
30 ON 10 GOTO 40
40
50 ON 30 GOTO 60
60
70 ON 60 GOSUB 80
80 ON 60 GOTO 90
90
100 ON 80 GOSUB 90
END DEF
N = 31
DO
Q$ = Q$ & Q$
N = N + 1
FOR N = 32 TO 126
Q$ = CHR$(N)
CALL A ()
IF 100 THEN CONTINUE
NEXT N
UNTIL A ()
PRINT Q$

