IGPAY
ATINLAY
This short program converts words or
se
ntences into pig Latin. One
word of caution, though; don't enter
anyone-letter
words like A or
I.
18
DIM
A$(256):
S=2
28?
"TYIpe
in
a
word
or
sen'tence.
Please
don
''t
exceed
'three
lines
of
'tex't
. "
38
INPUT
A$
48
FOR
X=1
TO
LEN(A$)
58
IF
A$()(
..
)O=CHR$(32)
THEN
PRINT
A$(S
..
X-1.);A$(S-1
..
S-1);"AV";"
";:S=X+2
68
IF
X=LEN(A$)
THEN
PRINT
A$(S
..
X);
A$(S-1
..
S-1);
"AV"
78
NEXT
X
88
?
:?
:?
"THAT
I S
ALL
FOLKS!
"
GRAPHEEK
Just type this one
in
and watch the graphics action.
18
DIM
A$(35)
28
GRAPHICS
1
25
TRAP
~8
38
A$="THIS
IS
A
GRAPHICS
DEMONSTRATION."
48
FOR
I=1
TO
33:?
n6;A$(I
..
I);
58
S=PEEK
(53778)
68
SOUND
8
..
S
..
18
..
14
78
FOR
DELAV=8
TO
188:
NEXT
DELAV
88
NEXT
I
~8
SOUND
8
..
8
..
8
..
8:
END
Note: Make sure you insert two spaces between GRAPHICS and
DEMONSTRATION
in
line 30.
ESREVER
The
title of this program is simply
th
e word
REVERSE
printed
in
rever
se.
To
print words spelled backwa
rd
,
ju
st type
in
this short program. After
you run it , a question mark
will appear
on
your screen. Enter a word
or a short sentence and
let your
ATARI
130XE do all the work.
18
DIM
A$(188)
28
PRINT
"En'ter
a
word
or
shor't
sen'tence
and
press
Re'turn."
38
INPUT
A$
48
FOR
X=LEN(A$)
TO
1
STEP
-1
58
PRINT
A$(X
..
X);
68
NEXT
X
78
PRINT
:
PRINT
:
GOTO
28
88
To Next Page
Loading...
