aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-07-13 15:19:22 -07:00
parent 29a5eea0d4
commit 5c1bb7bfa9
2011 changed files with 35081 additions and 3229 deletions
Download patch file Download diff file Expand all files Collapse all files

17
Task/Ordered-words/BASIC/ordered-words.basic Normal file
View file

@ -0,0 +1,17 @@
10 DEFINT I,O
20 DEFSTR W,F
30 F="UNIXDICT.TXT"
40 OPEN "I",1,F
50 INPUT #1,W
60 GOSUB 200: IF O THEN IF LEN(W)>L THEN L=LEN(W)
70 IF EOF(1) THEN CLOSE 1 ELSE 50
80 OPEN "I",1,F
90 INPUT #1,W
100 IF LEN(W)<>L THEN 90
110 GOSUB 200: IF O THEN PRINT W,
120 IF EOF(1) THEN END ELSE 90
200 O=-1
210 FOR I=2 TO LEN(W)
220 IF MID$(W,I-1,1)>MID$(W,I,1) THEN O=0: RETURN
230 NEXT
240 RETURN