IGPAY ATINLAY
This short program converts words or sentences into pig Latin. One
word of caution, though; don't enter any one-letter words like A or I.
10 DIM A$(256):S=2
20 ? "Type in a word or sentence . Please don't exceed
three lines of text. "
30 INPUT A$
40 FOR X=1 TO LEN(A$)
50 IF A$(X,X)=CHR$(32) THEN PRINT
A$(S,X-1);A$(S-1,S-1);"AY";" ";:S=X+2
66 IF X = LEN(A$) THEN PRINT A$(S,X); A$(S-1,S-1); "AY"
70 NEXT X
80 ? :? :? "THAT'S ALL FOLKS! "
GRAPHEEK
Just type this one in and watch the graphics action.
10 DIM A$(35)
20 GRAPHICS 1
25 TRAP 90
30 A$="THIS IS A GRAPHICS DEMONSTRATION . "
40 FOR I=1 TO 33:? #6;A$(I,I);
50 S=PEEK(53770)
60 SOUND 0,S,10,14
70 FOR DELAY=0 TO 100:NEXT DELAY
80 NEXT I
90 SOUND 0,0,0,0:END
Note: Make sure you insert two spaces between GRAPHICS and
DEMONSTRATION in line 30.
ESREVER
The title of this program is simply the word REVERSE printed in reverse.
To print words spelled backward, just 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 65XE do all the work.
10 DIM A$(180)
20 PRINT "Enter a word or short sentence and press
Return."
30 INPUT A$
40 FOR X=LEN(A$) TO 1 STEP -1
50 PRINT A$(X,X);
60 NEXT X
70 PRINT :PRINT :GOTO 20
88
To Next Page
Loading...
Need help?
General
