11.07.2015 Views

Here - 1000 BiT

Here - 1000 BiT

Here - 1000 BiT

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

1 REM A26-210 REM*** ANSWERER***12 PRINT "(clr)(wht)(dn)(dn)(dnr20 PRINT" ENTER A QUESTION (dn)" -25 INPUT Q$28 L=LEN(Q$)30 REM TAKE OFF "?"33 Q$=LEFT$(Q$.L-1 )+$"•"36 REM LOOK FOR WORD END39 FOR 1=1 TO L40C$=MID$(Q$.I,1)45 IF C$=" " THEN S1=l: I=L46 NEXT50FORI=S1+$1 TOL52C$=MID$(Q$,I,1)54 IF C$=" " THEN S2=l: I=L56 NEXT I58 REM EXCHANGE FIRST AND SECOND WORDS60S$=MID$(Q$,S1+$1,S2-S1)62V$=LEFT$(Q$,S1]63 PRINT65 PRINT" ";S$+$V$+$RIGHT$(Q$,L-S2)1 REM A26-310 REM*** PIG LATIN***12 PRINT "(clr){wht](dn)(dn){dn)"20 PRINT" PIG LATIN (dn)"25 INPUT" GIVE ME A WORD:";W$35 L=LEN{W$)40 FOR 1=1 TO L42L$=MID$(W$,I,1)45 T=L$="A" OR L$="E" OR L$="l" OR L$="O" OR L$="U"50 IF T THEN GOTO 6055 NEXT I60 P=l-165PL$=RIGHT$(W$,L-P)+$LEFT$(W$.P)+$"AY"70 IF 1=1 THEN PL$=W$+$"LAY"80 PRINT: PRINT85 PRINT "";PL$;"(dn)"90 GOTO 25229

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!