15 lines
527 B
Plaintext
15 lines
527 B
Plaintext
10 LET l$="ABCD CABD ACDB DACB BCDA ACBD ADCB CDAB DABC BCAD CADB CDBA CBAD ABDC ADBC BDCA DCBA BACD BADC BDAC CBDA DBCA DCAB"
|
|
20 LET length=LEN l$
|
|
30 FOR a= CODE "A" TO CODE "D"
|
|
40 FOR b= CODE "A" TO CODE "D"
|
|
50 FOR c= CODE "A" TO CODE "D"
|
|
60 FOR d= CODE "A" TO CODE "D"
|
|
70 LET x$=""
|
|
80 IF a=b OR a=c OR a=d OR b=c OR b=d OR c=d THEN GO TO 140
|
|
90 LET x$=CHR$ a+CHR$ b+CHR$ c+CHR$ d
|
|
100 FOR i=1 TO length STEP 5
|
|
110 IF x$=l$(i TO i+3) THEN GO TO 140
|
|
120 NEXT i
|
|
130 PRINT x$;" is missing"
|
|
140 NEXT d: NEXT c: NEXT b: NEXT a
|