'
'
'
'-----------------------------------Codes-------------------------------------
'
'by Michael Stein     Email:dstein@nerc1.nerc.com
'
'Hello, fellow coders!  This program was a little thing my dad and I put
'together.  You choose encode (put something from English to Code) or decode
'(put something from Code to English).  Enter your word you want to code one
'letter at a time.  It will then give you that in the Code language (or English,
'if you choose decode).  Have fun with this coding program!
'-----------------------------------------------------------------------------
'P.S. This program is ShareWare.  Please give this to your friends and family
'to send coded messages only you and them can understand!
'Please Email me at the adress above to tell me how you liked the program.
'
'Thanx,
'Michael Stein


'The actual program begins here.  Press the F5 key to start!


 
  GOTO 1000
5 DIM a$(20)
10 CLS
SCREEN 0
 COLOR 13
   PRINT "DO YOU WANT TO (1)ENCODE OR (2)DECODE?"
   INPUT R
   IF R = 2 THEN 500
   PRINT "HOW MANY LETTERS DO YOU WANT TO ENCODE?"
   INPUT X
   FOR T = 1 TO X
   PRINT " TYPE LETTER"; T
   BEEP
COLOR 12
   INPUT a$(T)
IF a$(T) = "0" THEN 100
IF a$(T) = "a" OR a$(T) = "A" THEN a(T) = 1
IF a$(T) = "b" OR a$(T) = "B" THEN a(T) = 2
IF a$(T) = "c" OR a$(T) = "C" THEN a(T) = 3
IF a$(T) = "d" OR a$(T) = "D" THEN a(T) = 4
IF a$(T) = "e" OR a$(T) = "E" THEN a(T) = 5
IF a$(T) = "f" OR a$(T) = "F" THEN a(T) = 6
IF a$(T) = "g" OR a$(T) = "G" THEN a(T) = 7
IF a$(T) = "h" OR a$(T) = "H" THEN a(T) = 8
IF a$(T) = "i" OR a$(T) = "I" THEN a(T) = 9
IF a$(T) = "j" OR a$(T) = "J" THEN a(T) = 10
IF a$(T) = "k" OR a$(T) = "K" THEN a(T) = 11
IF a$(T) = "l" OR a$(T) = "L" THEN a(T) = 12
IF a$(T) = "m" OR a$(T) = "M" THEN a(T) = 13
IF a$(T) = "n" OR a$(T) = "N" THEN a(T) = 14
IF a$(T) = "o" OR a$(T) = "O" THEN a(T) = 15
IF a$(T) = "p" OR a$(T) = "P" THEN a(T) = 16
IF a$(T) = "q" OR a$(T) = "Q" THEN a(T) = 17
IF a$(T) = "r" OR a$(T) = "R" THEN a(T) = 18
IF a$(T) = "s" OR a$(T) = "S" THEN a(T) = 19
IF a$(T) = "t" OR a$(T) = "T" THEN a(T) = 20
IF a$(T) = "u" OR a$(T) = "U" THEN a(T) = 21
IF a$(T) = "v" OR a$(T) = "V" THEN a(T) = 22
IF a$(T) = "w" OR a$(T) = "W" THEN a(T) = 23
IF a$(T) = "x" OR a$(T) = "X" THEN a(T) = 24
IF a$(T) = "y" OR a$(T) = "Y" THEN a(T) = 25
IF a$(T) = "z" OR a$(T) = "Z" THEN a(T) = 26
   COLOR 13
   NEXT T
    'Play scale in 7 different octaves
    scale$ = "CDEFGAB"
    PLAY "L64"
    FOR i% = 0 TO 6
        PLAY "O" + STR$(i%)
        PLAY "X" + VARPTR$(scale$)
    NEXT i%
    
   PRINT "THE CODE FOR "; "";
COLOR 12
   FOR S = 1 TO X
   PRINT a$(S);
   NEXT S
COLOR 13
   PRINT " IS "; "";
   FOR Z = 1 TO X
   COLOR 4
   PRINT ;
   NEXT Z
   GOTO 600
100 SYSTEM
500 REM
    PRINT "HOW MANY NUMBERS DO YOU WANT TO DECODE?"
    INPUT X
    FOR T = 1 TO X
    PRINT " TYPE NUMBER"; T
    BEEP
COLOR 12
    INPUT a
IF a = 0 THEN 100
IF a = 1 THEN a$(T) = "A"
IF a = 2 THEN a$(T) = "B"
IF a = 3 THEN a$(T) = "C"
IF a = 4 THEN a$(T) = "D"
IF a = 5 THEN a$(T) = "E"
IF a = 6 THEN a$(T) = "F"
IF a = 7 THEN a$(T) = "G"
IF a = 8 THEN a$(T) = "H"
IF a = 9 THEN a$(T) = "I"
IF a = 10 THEN a$(T) = "J"
IF a = 11 THEN a$(T) = "K"
IF a = 12 THEN a$(T) = "L"
IF a = 13 THEN a$(T) = "M"
IF a = 14 THEN a$(T) = "N"
IF a = 15 THEN a$(T) = "O"
IF a = 16 THEN a$(T) = "P"
IF a = 17 THEN a$(T) = "Q"
IF a = 18 THEN a$(T) = "R"
IF a = 19 THEN a$(T) = "S"
IF a = 20 THEN a$(T) = "T"
IF a = 21 THEN a$(T) = "U"
IF a = 22 THEN a$(T) = "V"
IF a = 23 THEN a$(T) = "W"
IF a = 24 THEN a$(T) = "X"
IF a = 25 THEN a$(T) = "Y"
IF a = 26 THEN a$(T) = "Z"
    COLOR 13
    NEXT T
    'Play scale in 7 different octaves
    scale$ = "CDEFGAB"
    PLAY "L64"
    FOR i% = 0 TO 6
        PLAY "O" + STR$(i%)
        PLAY "X" + VARPTR$(scale$)
    NEXT i%

    PRINT "YOUR WORD IS "; "";
    FOR Z = 1 TO X
    COLOR 4
    PRINT a$(Z);
    NEXT Z
600 COLOR 13
    PRINT
    PRINT "DO YOU WANT TO CONTINUE? (Y OR N)"
    INPUT D$
    IF D$ = "Y" OR D$ = "y" THEN 10
    GOTO 100
1000 REM 'TITLE SCREEN
    
     SCREEN 13

     COLOR 4

     FOR Y = 1 TO 11
     PRINT
     NEXT Y
     PRINT "             C";
     PRINT "  O";
     PRINT "  D";
     PRINT "  E";
     PRINT "  S"
     PRINT
     COLOR 8
     PRINT "       by Michael and David Stein"
    'Play scale in 7 different octaves
    scale$ = "EGCF"
    PLAY "L8"
    FOR i% = 3 TO 3
        PLAY "O" + STR$(i%)
        PLAY "X" + VARPTR$(scale$)
    NEXT i%
    scale$ = "d"
    PLAY "L4"
    FOR i% = 3 TO 3
        PLAY "O" + STR$(i%)
        PLAY "X" + VARPTR$(scale$)
    NEXT i%
    'Play scale in 7 different octaves
    scale$ = "DDDDGG"
    PLAY "L8"
    FOR i% = 3 TO 3
        PLAY "O" + STR$(i%)
        PLAY "X" + VARPTR$(scale$)
    NEXT i%
    scale$ = "E"
    PLAY "L4"
    FOR i% = 3 TO 3
        PLAY "O" + STR$(i%)
        PLAY "X" + VARPTR$(scale$)
    NEXT i%
    'Play scale in 7 different octaves
    scale$ = "EGCF"
    PLAY "L8"
    FOR i% = 3 TO 3
        PLAY "O" + STR$(i%)
        PLAY "X" + VARPTR$(scale$)
    NEXT i%
    scale$ = "d"
    PLAY "L4"
    FOR i% = 3 TO 3
        PLAY "O" + STR$(i%)
        PLAY "X" + VARPTR$(scale$)
    NEXT i%

    'Play scale in 7 different octaves
    scale$ = "GGFED"
    PLAY "L8"
    FOR i% = 3 TO 3
        PLAY "O" + STR$(i%)
        PLAY "X" + VARPTR$(scale$)
    NEXT i%
    scale$ = "C"
    PLAY "L4"
    FOR i% = 3 TO 3
        PLAY "O" + STR$(i%)
        PLAY "X" + VARPTR$(scale$)
    NEXT i%
        SCREEN 13
FOR R = 1 TO 10
    FOR V = 1 TO 8
    COLOR V
    CIRCLE (155, 100), 100
    CIRCLE STEP(0, 0), 50
    FOR G = 1 TO 5
    NEXT G
    NEXT V
    NEXT R
     FOR P = 1 TO 1000
 
     NEXT P

     GOTO 5
    SYSTEM