20 lines
415 B
Text
20 lines
415 B
Text
10 FOR j=160 TO 200 STEP 10
|
|
20 RESTORE j
|
|
30 READ n
|
|
40 LET test1=1: LET test2=1
|
|
50 FOR i=1 TO n
|
|
60 READ a$
|
|
70 PRINT a$;" ";
|
|
80 IF i=1 THEN GO TO 110
|
|
90 IF p$<>a$ THEN LET test1=0
|
|
100 IF p$>=a$ THEN LET test2=0
|
|
110 LET p$=a$
|
|
120 NEXT i
|
|
130 PRINT 'test1'test2
|
|
140 NEXT j
|
|
150 STOP
|
|
160 DATA 3,"AA","BB","CC"
|
|
170 DATA 3,"AA","AA","AA"
|
|
180 DATA 3,"AA","CC","BB"
|
|
190 DATA 4,"AA","ACB","BB","CC"
|
|
200 DATA 1,"single_element"
|