16 lines
437 B
Plaintext
16 lines
437 B
Plaintext
10 DEFINT I: DEFSTR S,T
|
|
20 READ S: IF S="" THEN END
|
|
30 IF LEN(S)<2 THEN 80 ELSE FOR I = LEN(S)\2 TO 1 STEP -1
|
|
40 T = ""
|
|
50 IF LEN(T)<LEN(S) THEN T=T+LEFT$(S,I): GOTO 50
|
|
60 IF LEFT$(T,LEN(S))=S THEN PRINT S;": ";LEFT$(S,I): GOTO 20
|
|
70 NEXT I
|
|
80 PRINT S;": none"
|
|
90 GOTO 20
|
|
100 DATA "1001110011","1110111011"
|
|
110 DATA "0010010010","1010101010"
|
|
120 DATA "1111111111","0100101101"
|
|
130 DATA "0100100","101"
|
|
140 DATA "11","00"
|
|
150 DATA "1",""
|