Here - 1000 BiT
Here - 1000 BiT Here - 1000 BiT
1 REM A16-110 REM *** FLYING BALL *** ^15 POKE 53281.0 ^20 PRINT "(clr)(wht)(dn)(dn)...(dn)" {10 of them}25 1=1 310THEN50^1 REM A160-210*** BLINKING NAME***15 POKE 53281,7 ^20 PRINT "(clr)"20 N$="K AREN" {J30 PRINT "(hm)(grn)(dn}{dn)(dn)(dn)(dn)(dn)(dn) ";N$35 FOR T=1 TO 500: NEXT T ^40 PRINT "(hmHredHdnHdnHdnHdnHdnHdnHdn) ";N$45 FOR T=1 TO 500: NEXT T90 GOTO 30 . ^j1REMA17A-110 REM*** RABBITS***15 POKE 53281,0: PRINT "(clr](wht)" ^20 FOR l=0 TO 100 STEP 5 ^.30 PRINT I40 FOR T=1 TO 200: NEXT T ^j50 NEXT I^J1 REM A17B-310 REM*** CLIMBING NAME*** ^12 PRINT 1I(clr)(dn)(dn)...(dn)" {22 of them} '15 N$= " STANISLAUS MAZURSKY"20 FOR 1=1 TO 23 ^j30 PRINT N$35 PRINT "(up)(sp)(sp)... [sp]" {20 spaces} ^J36 PRINT "(up)(up](up)"40 NEXT I ^222
■1 REMA17B-510 REM*** OPERA SOPRANO***12 PRINT "(clr)(wht)(dn)(dn)(dn)"20 FOR 1=1 TO 321 POKE 53281.l+$522 PRINT "(dn) SING"24 FOR T=1 TO 100: NEXT T30 FOR J=1 TO 332 PRINT "(dn) TRA ";34 FOR T=1 TO 100: NEXT T40 FOR K-1 TO 342 PRINT "LA";44 FOR T=1 TO 100: NEXTT50 NEXT K52 PRINT60 NEXT J70 NEXT I~ 90 POKE 53281,0O 1 REM A18-110 REM*** FAMILY*** 15 POKE 53281.120 PRINT "(clr)(blk)(dn)(dn)(dn) WHAT RELATION? (dn)"■ 22 PRINT "FATHER, MOTHER. SISTER. BROTHER. ETC. (dn)"^ 24 INPUT R$: PRINT25 FLAG$="NO"^ 30 FOR 1=1 TO 1035 READ T$: READ N$O 40 IF T$=R$ THEN PRINT " ";"(dn)": FLAG$="YES"50 NEXT I55 RESTORE^ 60 IF FLAG$="NO"THEN PRINT "(red) DONT HAVE ONE (blk)(dn)"n 99 GOTO 2070 FOR T=1 TO 2000: NEXT T100 DATA FATHER. EDWARD^ 101 DATA MOTHER. LOUISE_ 102 DATA SISTER. ANNE^ 103 DATA GRANDMOTHER, ADA^n^^104 DATA GRANDMOTHER, CONSTANT105 DATA GRANDFATHER, REGINALD107 DATA AUNT, KAREN108 DATA AUNT, SUSAN109 DATA UNCLE. HARRY110 DATA COUSIN. BOB223
- Page 171 and 172: The DIM... command tells the comput
- Page 173 and 174: 1 REM *** EIGHT QUEENS ***2 GOTO 10
- Page 175 and 176: Assignment 30:1. Write a program wh
- 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: ^ 1 REM A15-210 REM!!! VACATION!!!r
- Page 225 and 226: 1 REM A22-110 REM *** COLORED BOX *
- Page 227 and 228: 1 REM A24B-1r> 10 REM*** SUBROUTINE
- Page 229 and 230: 1 REM A26-210 REM*** ANSWERER***12
- 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 A16-110 REM *** FLYING BALL *** ^15 POKE 53281.0 ^20 PRINT "(clr)(wht)(dn)(dn)...(dn)" {10 of them}25 1=1 310THEN50^1 REM A160-210*** BLINKING NAME***15 POKE 53281,7 ^20 PRINT "(clr)"20 N$="K AREN" {J30 PRINT "(hm)(grn)(dn}{dn)(dn)(dn)(dn)(dn)(dn) ";N$35 FOR T=1 TO 500: NEXT T ^40 PRINT "(hmHredHdnHdnHdnHdnHdnHdnHdn) ";N$45 FOR T=1 TO 500: NEXT T90 GOTO 30 . ^j1REMA17A-110 REM*** RABBITS***15 POKE 53281,0: PRINT "(clr](wht)" ^20 FOR l=0 TO 100 STEP 5 ^.30 PRINT I40 FOR T=1 TO 200: NEXT T ^j50 NEXT I^J1 REM A17B-310 REM*** CLIMBING NAME*** ^12 PRINT 1I(clr)(dn)(dn)...(dn)" {22 of them} '15 N$= " STANISLAUS MAZURSKY"20 FOR 1=1 TO 23 ^j30 PRINT N$35 PRINT "(up)(sp)(sp)... [sp]" {20 spaces} ^J36 PRINT "(up)(up](up)"40 NEXT I ^222
Change language