Here - 1000 BiT
Here - 1000 BiT Here - 1000 BiT
1 REM A32-110 REM *** BIG, BIG NUMBERS ***12 PRINT "(clr)(wht](dn)(dn)(dn)"20 FOR 1=1 TO 1725 FOR J=1 TO 327 D$=STR$(INT(RND(0)*10))28D$=RIGHT$(D$.1]30 N$=N$+$D$35 NEXTJ39 IF 1=17 THEN 4540 N$=N$+$","45 NEXT I50 N$=" "+$RIGHT$(N$,LEN(N$)-1)60 PRINT N$1 REM A32-210 REM *** CIPHER PROGRAM ***20GOSUB1000100 REM101 REM MAIN LOOP102 REM110GOSUB400120 PRINT " CODE OR DECODE (dn)"130 GET Y$: IF Y$=""THEN 130140 IF Y$="C" THEN GOSUB 500: END150 IF Y$="D" THEN GOSUB 600: END199 GOTO 130400 REM401 REM GET PASSWORD402 REM405 INPUT " INPUT PASSWORD ";PW$407 REM REMOVE REPEATED LETTERS410F$=LEFT$(PW$,1]411 FOR l=2 TO LEN(PW$)412L1$=MID$(F$,I,1]413 FOR J=1 TOLEN(F$)414L2$=MID$(F$,J,1J415 IFL1$=L2$THEN418416 NEXTJ417 F$=F$+$L1$418 NEXT I419 PW$=F$430 PRINT: PRINT" SHORTENED PASSWORD: ";PW$;"(dn)(dn)"435 REM FORM THE CODE ALPHABET437 A$=PW$+$A$440F$=LEFT$(A$,1)232
441 FOR l=2 TO LEN(A$]442L1$=MID$(F$,I,1)443 FOR J=1 TO LEN(F$)444L2$=MID$(F$,J,1)445 IF L1$=L2$ THEN 448446 NEXTJ447 F$=F$+$L1$448 NEXT I449 A$=F$470 PRINT " CIPHER ALPHABET (dn)"471 PRINT "";A$472 PRINT "";B$;"(dn)"473 PRINT TAB(14);"PLAIN ALPHABET (dn)(dn)(dn)"499 RETURN500 REM501 REM CODE A MESSAGE502 REM505 PRINT " INPUT MESSAGE, END WITH '•' SIGN (dn)"510 GET L$: IF L$="" THEN 510511 L=ASC(L$)515 IF L$="*" THEN 590520 IF L91 THEN P$=P$+$L$: GOTO 540530 P$=P$+$MID$(A$,L-64,1)540 PRINT L$;550 GOTO 510590 PRINT591 PRINT P$599 RETURN600 REM601 REM DECODE A MESSAGE602 REM605 PRINT" TYPE CODED MESSAGE, END WITH "*■ SIGN (dn)11610 GET L$: IF L$=""THEN 610615 IFL$="*"THEN 699620 FOR 1=1 TO 26625 IF L$=MID$(A$,I,1) THEN PRINT MID$(B$,I,1);: GOTO 610630 NEXT I640 PRINT L$;650 GOTO 610699 RETURN1000 REM STARTING STUFF1010 A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"1020B$=A$1030 PRINT "(clr)(wht)(dn)"1999 RETURN233
- 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 and 228: 1 REM A24B-1r> 10 REM*** SUBROUTINE
- Page 229 and 230: 1 REM A26-210 REM*** ANSWERER***12
- Page 231: 1 REM A27-110 REM *** BACKWARD ***1
- 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
441 FOR l=2 TO LEN(A$]442L1$=MID$(F$,I,1)443 FOR J=1 TO LEN(F$)444L2$=MID$(F$,J,1)445 IF L1$=L2$ THEN 448446 NEXTJ447 F$=F$+$L1$448 NEXT I449 A$=F$470 PRINT " CIPHER ALPHABET (dn)"471 PRINT "";A$472 PRINT "";B$;"(dn)"473 PRINT TAB(14);"PLAIN ALPHABET (dn)(dn)(dn)"499 RETURN500 REM501 REM CODE A MESSAGE502 REM505 PRINT " INPUT MESSAGE, END WITH '•' SIGN (dn)"510 GET L$: IF L$="" THEN 510511 L=ASC(L$)515 IF L$="*" THEN 590520 IF L91 THEN P$=P$+$L$: GOTO 540530 P$=P$+$MID$(A$,L-64,1)540 PRINT L$;550 GOTO 510590 PRINT591 PRINT P$599 RETURN600 REM601 REM DECODE A MESSAGE602 REM605 PRINT" TYPE CODED MESSAGE, END WITH "*■ SIGN (dn)11610 GET L$: IF L$=""THEN 610615 IFL$="*"THEN 699620 FOR 1=1 TO 26625 IF L$=MID$(A$,I,1) THEN PRINT MID$(B$,I,1);: GOTO 610630 NEXT I640 PRINT L$;650 GOTO 610699 RETURN<strong>1000</strong> REM STARTING STUFF1010 A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"1020B$=A$1030 PRINT "(clr)(wht)(dn)"1999 RETURN233