REM Sumeeth
Jonathan
REM Contest 3
REM Program: Swedish Chef
REM Senior Divison
REM School: Freehold H.S.
REM State: NJ
REM School Code: 8105
REM Advisor: J. Gill
REM 2006-2007 Season
REM Language: BASIC
CLS
FOR PROG =
1 TO 5
READ A$:
WORD = 0
FOR X = 1 TO LEN(A$)
IF MID$(A$, X, 1) = CHR$(32) OR X = LEN(A$) THEN WORD = WORD
+ 1
NEXT X
REDIM
WORD$(WORD): REDIM WORD2$(WORD + 1): REDIM WORD3$(UBOUND(WORD$))
WORD$ = "": Y = 0
FOR X = 1 TO LEN(A$)
WORD$ = WORD$ + MID$(A$, X, 1)
IF MID$(A$, X + 1, 1) = CHR$(32) OR X = LEN(A$) - 1 THEN
Y = Y + 1: X = X + 1
WORD$(Y) = WORD$: WORD2$(Y) = WORD$:
WORD3$(Y) = WORD$
WORD$ = ""
END IF
NEXT X
FOR X = 1 TO UBOUND(WORD$)
IF WORD$(X) = "THE" THEN
WORD2$(X) = "ZEE"
GOTO 1
END IF
WORD$ = ""
FOR Y = 1 TO LEN(WORD3$(X))
IF MID$(WORD3$(X), Y, 3) =
"THE" THEN
FOR Z = 1 TO
LEN(WORD3$(X))
IF MID$(WORD3$(X), Z, 3) = "THE" THEN
WORD$ = WORD$ + "ZEE"
Z = Z + 2: GOTO 12
END IF
WORD$ = WORD$ + MID$(WORD$(X), Z, 1)
12 : NEXT Z
WORD$(X) = WORD$: WORD$ =
""
END IF
NEXT Y
WORD2$(X) = WORD$(X)
WORD$ = ""
FOR Y = 1 TO LEN(WORD3$(X)) - 1
IF MID$(WORD3$(X), Y, 1) +
MID$(WORD3$(X), Y + 1, 1) = "AN" THEN
FOR Z = 1 TO
LEN(WORD3$(X))
IF MID$(WORD3$(X), Z, 1) + MID$(WORD3$(X), Z + 1, 1) = "AN" THEN
WORD$ = WORD$ + "UN"
Z = Z + 1: GOTO 2
END IF
WORD$ = WORD$ + MID$(WORD$(X), Z, 1)
2 : NEXT Z
WORD$(X) = WORD$: WORD$ =
""
END IF
NEXT Y
WORD2$(X) = WORD$(X)
WORD$ = ""
FOR Y = 1 TO LEN(WORD3$(X)) - 1
IF MID$(WORD3$(X), Y, 1) +
MID$(WORD3$(X), Y + 1, 1) = "AU" THEN
FOR Z = 1 TO
LEN(WORD3$(X))
IF MID$(WORD3$(X), Z, 1) + MID$(WORD3$(X), Z + 1, 1) = "AU" THEN
WORD$ = WORD$ + "OO"
Z = Z + 1: GOTO 3
END IF
WORD$ = WORD$ + MID$(WORD$(X), Z, 1)
3 : NEXT Z
WORD$(X) = WORD$: WORD$ =
""
END IF
NEXT Y
WORD2$(X) = WORD$(X)
WORD$ = ""
FOR Y = 1 TO LEN(WORD3$(X)) - 1
IF MID$(WORD3$(X), Y, 1) +
MID$(WORD3$(X), Y + 1, 1) = "AU" THEN
FOR Z = 1 TO
LEN(WORD3$(X))
IF MID$(WORD3$(X), Z, 1) + MID$(WORD3$(X), Z + 1, 1) = "AU" THEN
WORD$ = WORD$ + "OO"
Z = Z + 1: GOTO 4
END IF
WORD$ = WORD$ + MID$(WORD$(X), Z, 1)
4 : NEXT Z
WORD$(X) = WORD$: WORD$ =
""
END IF
NEXT Y
WORD2$(X) = WORD$(X)
WORD$ = ""
FOR Y = 1 TO LEN(WORD3$(X)) - 1
IF MID$(WORD3$(X), Y, 1) =
"A" AND MID$(WORD3$(X), Y + 1, 1) <> "N" AND
MID$(WORD3$(X), Y + 1, 1) <> "U" THEN
FOR Z = 1 TO
LEN(WORD2$(X)) - 1
IF MID$(WORD$(X), Z, 1) = "A" THEN
WORD$ = WORD$ + "E"
GOTO 5
END IF
WORD$ = WORD$ + MID$(WORD2$(X), Z, 1)
5 : NEXT Z
WORD2$(X) = WORD$ + MID$(WORD3$(X),
LEN(WORD$(X)), 1): WORD$ = ""
END IF
NEXT Y
WORD$(X) = WORD2$(X)
WORD$ = ""
FOR Y = 1 TO LEN(WORD3$(X)) - 1
IF MID$(WORD3$(X), Y, 1) +
MID$(WORD3$(X), Y + 1, 1) = "OW" THEN
FOR Z = 1 TO
LEN(WORD3$(X))
IF MID$(WORD3$(X), Z, 1) + MID$(WORD3$(X), Z + 1, 1) = "OW" THEN
WORD$ = WORD$ + "OO"
Z = Z + 1: GOTO 6
END IF
WORD$ = WORD$ + MID$(WORD$(X), Z, 1)
6 : NEXT Z
WORD$(X) = WORD$: WORD$ =
""
END IF
NEXT Y
WORD2$(X) = WORD$(X)
WORD$ = ""
FOR Y = 1 TO LEN(WORD3$(X))
IF MID$(WORD3$(X), Y, 1) =
"O" AND MID$(WORD3$(X), Y + 1, 1) <> "W" THEN
FOR Z = 1 TO
LEN(WORD3$(X))
IF MID$(WORD3$(X), Z, 1) = "O" AND MID$(WORD3$(X), Z + 1, 1) <>
"W" THEN
WORD$ = WORD$ + "U"
GOTO 7
END IF
WORD$ = WORD$ + MID$(WORD$(X), Z, 1)
7 : NEXT Z
WORD$(X) = WORD$: WORD$ =
""
END IF
NEXT Y
WORD2$(X) = WORD$(X)
WORD$ = ""
FOR Y = 1 TO LEN(WORD3$(X)) - 1
IF MID$(WORD3$(X), Y, 1) +
MID$(WORD3$(X), Y + 1, 1) = "IR" THEN
FOR Z = 1 TO
LEN(WORD3$(X))
IF MID$(WORD3$(X), Z, 1) + MID$(WORD3$(X), Z + 1, 1) = "IR" THEN
WORD$ = WORD$ + "UR"
Z = Z + 1: GOTO 8
END IF
WORD$ = WORD$ + MID$(WORD$(X), Z, 1)
8 : NEXT Z
WORD$(X) = WORD$: WORD$ =
""
END IF
NEXT Y
WORD2$(X) = WORD$(X)
WORD$ = ""
FOR Y = 1 TO LEN(WORD3$(X))
IF MID$(WORD3$(X), Y, 4) =
"TION" THEN
FOR Z = 1 TO
LEN(WORD3$(X))
IF MID$(WORD3$(X), Z, 4) = "TION" THEN
WORD$ = WORD$ + "SHUN"
Z = Z + 3: GOTO 9
END IF
WORD$ = WORD$ + MID$(WORD$(X), Z, 1)
9 : NEXT Z
WORD$(X) = WORD$: WORD$ =
""
END IF
NEXT Y
WORD2$(X) = WORD$(X)
FLAG = 1: WORD$ = "": WORD2$ = "": FLAG4
= 0
FOR Y = 1 TO LEN(WORD$(X))
IF Y > 1 AND MID$(WORD$(X), Y, 1)
= "I" AND FLAG = 1 THEN
IF Y =
LEN(WORD$(X)) THEN FLAG4 = 1
WORD$ =
WORD$ + "EE": FLAG = 0
WORD2$ =
WORD2$ + "EE": FLAG = 0
GOTO 10
END IF
WORD$ = WORD$ + MID$(WORD$(X), Y, 1)
WORD2$ = WORD2$ + MID$(WORD3$(X), Y,
1)
10 : NEXT Y
WORD$(X) = WORD$: WORD2$(X) = WORD$(X)
WORD3$(X) = WORD2$
WORD$ = "": FLAG3 = 0
IF RIGHT$(WORD3$(X), 2) = "EN" THEN
FLAG3 = 1
FOR Y = 1 TO LEN(WORD$(X))
IF Y =
LEN(WORD$(X)) - 1 THEN
WORD$ = WORD$ + "EE": Y = Y + 1
GOTO 11
END IF
WORD$ = WORD$ + MID$(WORD$(X), Y, 1)
11 : NEXT Y
WORD$(X) = WORD$: WORD2$(X) = WORD$(X)
END IF
WORD$ = "": WORD2$ = ""
FOR Y = 1 TO LEN(WORD$(X))
IF MID$(WORD$(X), Y, 1) =
"F" THEN
FOR Z = 1 TO
LEN(WORD$(X))
IF MID$(WORD$(X), Z, 1) = "F" THEN
WORD$ = WORD$ + "FF"
WORD2$ = WORD2$ + "FF"
GOTO 13
END IF
WORD$ = WORD$ + MID$(WORD$(X), Z, 1)
13 : NEXT Z
WORD2$(X) =
WORD$: WORD$ = ""
WORD3$(X) =
WORD2$: WORD2$ = ""
END IF
NEXT Y
WORD$(X) = WORD2$(X)
WORD$ = "": WORD2$ = ""
IF RIGHT$(WORD3$(X), 1) = "E" AND FLAG3 <> 1
AND FLAG4 <> 1 THEN
FOR Y = 1 TO LEN(WORD$(X))
IF Y =
LEN(WORD$(X)) THEN
WORD$ = WORD$ + "E-A"
WORD2$ = WORD2$ + "E-A"
Y = Y + 1
GOTO 14
END IF
WORD$ =
WORD$ + MID$(WORD$(X), Y, 1)
WORD2$ =
WORD2$ + MID$(WORD3$(X), Y, 1)
14 : NEXT Y
WORD$(X) = WORD$: WORD2$(X) = WORD$(X)
WORD3$(X) = WORD2$
END IF
WORD$ = ""
FOR Y = 2 TO LEN(WORD3$(X))
IF MID$(WORD3$(X), Y, 1) =
"U" AND MID$(WORD3$(X), Y - 1, 1) <> "A" THEN
FOR Z = 1 TO
LEN(WORD3$(X))
IF Z = 1 THEN
WORD$ = WORD$ + MID$(WORD$(X), 1, 1)
GOTO 15
END IF
IF MID$(WORD3$(X), Z, 1) = "U" AND MID$(WORD3$(X), Z - 1, 1) <>
"A" THEN
WORD$ = WORD$ + "OO"
GOTO 15
END IF
WORD$ = WORD$ + MID$(WORD$(X), Z, 1)
15 : NEXT Z
WORD$(X) = WORD$: WORD$ =
"": GOTO 16
END IF
NEXT Y
16 : WORD2$(X) = WORD$(X)
WORD$ = ""
FOR Y = 1 TO LEN(WORD$(X))
IF MID$(WORD$(X), Y, 1) =
"V" THEN
FOR Z = 1 TO
LEN(WORD$(X))
IF MID$(WORD$(X), Z, 1) = "V" THEN
WORD$ = WORD$ + "F": GOTO 17
END IF
WORD$ = WORD$ + MID$(WORD$(X), Z, 1)
17 : NEXT Z
WORD$(X) = WORD$: WORD$ =
""
END IF
NEXT Y
WORD2$(X) = WORD$(X)
WORD$ = "": WORD2$ = ""
FOR Y = 1 TO LEN(WORD3$(X))
IF Y = 1 AND MID$(WORD3$(X), 1, 1) =
"W" THEN GOTO 20 ELSE GOTO 21
IF MID$(WORD3$(X), Y, 1) =
"W" AND MID$(WORD3$(X), Y - 1, 1) <> "O" THEN
20 : FOR Z = 1 TO LEN(WORD$(X))
IF Z = 1 THEN
IF MID$(WORD3$(X), Z, 1) = "W" THEN
WORD2$ = "V"
ELSE
WORD2$ = MID$(WORD$(X), 1, 1)
END IF
WORD$ = WORD$ + WORD2$
GOTO 18
END IF
IF MID$(WORD3$(X), Z, 1) = "W" AND MID$(WORD3$(X), Z - 1, 1) <>
"O" THEN
WORD$ = WORD$ + "V": GOTO 18
END IF
WORD$ = WORD$ + MID$(WORD$(X), Z, 1)
18 : NEXT Z
WORD$(X) = WORD$: WORD$ =
"": GOTO 19
END IF
21 : NEXT Y
19 : WORD2$(X) = WORD$(X)
1 : NEXT X
WORD2$(UBOUND(WORD2$)
- 1) = WORD2$(UBOUND(WORD2$) - 1) + "."
WORD2$(UBOUND(WORD2$))
= "BORK BORK BORK!"
FOR X = 1
TO UBOUND(WORD2$)
PRINT WORD2$(X) + CHR$(32);
NEXT X
PRINT
NEXT PROG
END
DATA
"FOLLOW ME."
DATA "I LOVE A PARADE."
DATA "STRAIGHTEN THE THIRD ROW."
DATA "HE MAKES AUTOMOBILES."
DATA "THEY AUGMENT URANIUM."
*************************************************************************************************************************