Here - 1000 BiT
Here - 1000 BiT Here - 1000 BiT
1 REM A25-310 REM*** AIN'T GOT NO*** ^12 PRINT "(clr)(wht)(dn)(dn)(dn)"20 PRINT " ENTER A SENTENCE (dn)" ^J22 PRINT" NO PUNCTUATION EXCEPT APOSTROPHE"24 PRINT ^32 IN PUT S$ , .33 S$=S$+$" "35 L=LEN(S$) t^j40 NN=042S1=1:S2=1 2 THEN PRINT " MANY NEGATIVES" ^80 FOR T=1 TO 2000: NEXT T ,,198 GOTO 12200 REM TEXT WORD ^J205LW=S2-S1-1210W$=MID$(S$,S1,LW)220 READ NW$222 IF NW$="END" THEN RESTORE: RETURN ^224 IF W$=NW$ THEN NN=NN+$1 ,,230 GOTO 220300 DATA NO, NOT, NEVER, NEGATIVE, DON'T, AIN'T, DOESN'T, \^J301 DATA NOTHING, SHOULDN'T, WOULDN'T, NONE, END^W1 REM A26-110 REM*** CIPHER MAKER*** ^12 PRINT "(clr)(wht)(dn)(dn)(dn)" ^j20 PRINT" CODE MAKER (dn)"25 PRINT "ENTER A SENTENCE (dn)" ^J30 INPUT S$33 PRINT "(dn)(dn)"
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
- Page 177 and 178: LESSON 31SPRITES FOR ACTION GRAPHIC
- Page 179 and 180: Then use the CRSR keys to move the
- Page 181 and 182: MANY SPRITES AT ONCEHere are the bo
- Page 183 and 184: WATCH OUT, TWO SPRITES ARE GOING TO
- Page 185 and 186: LESSON 32USER FRIENDLY PROGRAMSTher
- Page 187 and 188: TIE A STRING AROUND THE USER'S FING
- Page 189 and 190: SET TRAPS FOR ERRORSExample: Add th
- Page 191 and 192: LESSON 33DEBUGGING, STOP, CONTTHE S
- Page 193 and 194: Use the PRINT command to look at va
- Page 195 and 196: RESERVED WORDSABSAND ASC ATNCHR$CLR
- Page 197 and 198: ells and whistlesA phrase going bac
- Page 199 and 200: error trapPart of a program which c
- Page 201 and 202: listingA list of all the lines in a
- Page 203 and 204: emarkA comment you make in the prog
- Page 205 and 206: variableA name given to a box in me
- Page 207 and 208: FORMULA TOO COMPLEXYou wrote a stri
- Page 209 and 210: SYNTAXYou "spelled" the line wrong.
- Page 211 and 212: 1 REM A4-310 REM*** SMILE***13 POKE
- Page 213 and 214: 1 REM A6-210 REM*** FAVORITE***15 P
- Page 215 and 216: ~ 40 INPUT C$1 REM A9B-210 REM ***
- Page 217 and 218: ^ 1 REM A11A-210 REM !"#$% INSULTS
- Page 219 and 220: 1 REM A12B-410 REM *** PICK A CARD
- Page 221 and 222: ^ 1 REM A15-210 REM!!! VACATION!!!r
- Page 223 and 224: ■1 REMA17B-510 REM*** OPERA SOPRA
- Page 225 and 226: 1 REM A22-110 REM *** COLORED BOX *
- Page 227: 1 REM A24B-1r> 10 REM*** SUBROUTINE
- Page 231 and 232: 1 REM A27-110 REM *** BACKWARD ***1
- Page 233 and 234: 441 FOR l=2 TO LEN(A$]442L1$=MID$(F
- Page 235 and 236: INDEX OF TOPICSaddition 59,74ADSR 1
- Page 237 and 238: memory 16, 24-26, 45, 59, 81, 83,11
- Page 239: nnnnnnonnnOnooonnnnnnnnonnnHnonnOn
1 REM A25-310 REM*** AIN'T GOT NO*** ^12 PRINT "(clr)(wht)(dn)(dn)(dn)"20 PRINT " ENTER A SENTENCE (dn)" ^J22 PRINT" NO PUNCTUATION EXCEPT APOSTROPHE"24 PRINT ^32 IN PUT S$ , .33 S$=S$+$" "35 L=LEN(S$) t^j40 NN=042S1=1:S2=1 2 THEN PRINT " MANY NEGATIVES" ^80 FOR T=1 TO 2000: NEXT T ,,198 GOTO 12200 REM TEXT WORD ^J205LW=S2-S1-1210W$=MID$(S$,S1,LW)220 READ NW$222 IF NW$="END" THEN RESTORE: RETURN ^224 IF W$=NW$ THEN NN=NN+$1 ,,230 GOTO 220300 DATA NO, NOT, NEVER, NEGATIVE, DON'T, AIN'T, DOESN'T, \^J301 DATA NOTHING, SHOULDN'T, WOULDN'T, NONE, END^W1 REM A26-110 REM*** CIPHER MAKER*** ^12 PRINT "(clr)(wht)(dn)(dn)(dn)" ^j20 PRINT" CODE MAKER (dn)"25 PRINT "ENTER A SENTENCE (dn)" ^J30 INPUT S$33 PRINT "(dn)(dn)"
Change language