Membuat WEB dengan .........BASIC

'===============================================================================

'------------------------ Nama Program : faceim         ------------------------
'------------------------ Author       : Ahmad Zaenudin ------------------------
'------------------------ NIM          : 020410020      ------------------------
'------------------------ Jurusan      : D3 MI          ------------------------

'===============================================================================

tampilanawal:
COLOR 8, 9
CLS



FOR a = 1 TO 80
        LOCATE 1, a
        PRINT "-"
        LOCATE 3, a
        PRINT "-"
        LOCATE 5, a
        PRINT "-"

NEXT a

PRINT
PRINT
COLOR 12
PRINT "                      GGGG                      l         "
COLOR 13
PRINT "                     G    G   o o   o o   gggg  l  eeee   "
COLOR 14
PRINT "                     G       o   o o   o  g  g  l  e  e   "
COLOR 15
PRINT "                     G   GG  o   o o   o  gggg  l  eeee   "
COLOR 11
PRINT "                     G    G  o   o o   o     g  l  e      "
COLOR 10
PRINT "                      GGGG    o o   o o   gggg  ll eeee   "
COLOR 15
FOR a = 22 TO 45
        LOCATE 15, a
        PRINT "-"
        LOCATE 17, a
        PRINT "-"
NEXT a
LOCATE 16, 22
        PRINT "|"
LOCATE 16, 45
        PRINT "|"
FOR a = 46 TO 55
        LOCATE 15, a
        PRINT "-"
        LOCATE 17, a
        PRINT "-"
NEXT a
LOCATE 16, 46
        PRINT "|"
LOCATE 16, 55
        PRINT "|"
LOCATE 16, 48
        PRINT "search"
COLOR 31
LOCATE 2, 75
PRINT "_"
LOCATE 2, 77
PRINT "="
LOCATE 2, 79
PRINT "X"
COLOR 7
FOR a = 1 TO 80
        LOCATE 21, a
        PRINT "-"
        LOCATE 23, a
        PRINT "-"
NEXT a
LOCATE 22, 70
PRINT "["
LOCATE 22, 79
PRINT "]"
COLOR 12
LOCATE 2, 1
PRINT " @ azanbrowser "
COLOR 9
LOCATE 4, 45
PRINT "]"
address:
COLOR 9
LOCATE 4, 2
INPUT "enter address [ ", add$
  
        IF add$ = "faceim" THEN
                COLOR 7
                FOR b = 70 TO 79
                        LOCATE 21, b
                        PRINT "-"
                        LOCATE 23, b
                        PRINT "-"
                NEXT b
                LOCATE 22, 70
                PRINT "["
                LOCATE 22, 79
                PRINT "]"
                COLOR 2
                FOR a = 71 TO 78
                        LOCATE 22, a
                        PRINT "#"
                        FOR b = 1 TO 100000
                        NEXT b
                NEXT a
        ELSE
problem:            
                CLS
                FOR a = 1 TO 80
                        LOCATE 1, a
                        PRINT "-"
                        LOCATE 3, a
                        PRINT "-"
                        LOCATE 5, a
                        PRINT "-"
                NEXT a
                LOCATE 22, 70
                PRINT "["
                LOCATE 22, 79
                PRINT "]"
              
                COLOR 31
                LOCATE 2, 75
                PRINT "_"
                LOCATE 2, 77
                PRINT "="
                LOCATE 2, 79
                PRINT "X"
                COLOR 8
                LOCATE 4, 16
                PRINT "["
                LOCATE 4, 45
                PRINT "]"
                COLOR 12
                LOCATE 2, 1
                PRINT " @ azanbrowser "

               
                COLOR 9
                LOCATE 4, 2
                PRINT "enter address"
 
              
                COLOR 8
                LOCATE 4, 18
                PRINT "Problem Loading Page"
                COLOR 7
                FOR b = 70 TO 79
                        LOCATE 21, b
                        PRINT "-"
                        LOCATE 23, b
                        PRINT "-"
                NEXT b
                LOCATE 22, 70
                PRINT "["
                LOCATE 22, 79
                PRINT "]"
               
                LOCATE 7, 40
                PRINT " 404"
                LOCATE 8, 20
                PRINT "server not found please try again a next time"

                FOR a = 1 TO 80
                        LOCATE 21, a
                        PRINT "-"
                        LOCATE 23, a
                        PRINT "-"
                NEXT a
                LOCATE 22, 70
                PRINT "["
                LOCATE 22, 79
                PRINT "]"
              
                LOCATE 22, 2
                PRINT "Done"
                LOCATE 10, 28
                INPUT "masukan kembali alamat y/n: ", y$
                        IF y$ = "y" THEN
                                GOTO tampilanawal
                        ELSEIF y$ = "n" THEN
                                LOCATE 2, 72
                                PRINT "close tab"
                                END
                        ELSE
                                CLS
                                GOTO problem
                               
                        END IF

        END IF

'----------------------------------------------------------------------------------- 
faceim:

CLS
COLOR 8
FOR a = 1 TO 80
        LOCATE 1, a
        PRINT "-"
        LOCATE 3, a
        PRINT "-"
        LOCATE 5, a
        PRINT "-"

NEXT a
COLOR 7
FOR b = 1 TO 80
        LOCATE 21, b
        PRINT "-"
        LOCATE 23, b
        PRINT "-"
NEXT b

COLOR 31
LOCATE 2, 75
PRINT "_"
LOCATE 2, 77
PRINT "="
LOCATE 2, 79
PRINT "X"
COLOR 12
LOCATE 2, 2
PRINT "@ azanbrowser"
COLOR 17
LOCATE 4, 2
PRINT "[f] faceim "
PRINT
PRINT
COLOR 9
PRINT " ***  ***   **  **   *  ****"
PRINT " *   *  *  *   *  *  * * *  *   "
PRINT " *** *  *  *   ***   * * *  *        "
PRINT " *   *  *  *   *     * *    *   "
PRINT " *    ** *  **  ***  * *    *      "
PRINT
COLOR 7
PRINT " faceim mangrupakeun sarana"
PRINT " pikeun silaturrahmi"
PRINT " kulawarga pasim"
COLOR 10
FOR a = 45 TO 80
        LOCATE 6, a
        PRINT "*"
        LOCATE 14, a
        PRINT "*"
        FOR b = 6 TO 14
                LOCATE b, 45
                PRINT "*"
                LOCATE b, 80
                PRINT "*"
        NEXT b
NEXT a
COLOR 14
FOR a = 60 TO 79
        LOCATE 7, a
        PRINT "="
        LOCATE 9, a
        PRINT "="
NEXT a
LOCATE 8, 60
PRINT "["
LOCATE 8, 79
PRINT "]"
FOR a = 60 TO 79
        LOCATE 11, a
        PRINT "="
        LOCATE 13, a
        PRINT "="
NEXT a
COLOR 7
FOR a = 1 TO 80
        LOCATE 21, a
        PRINT "-"
        LOCATE 23, a
        PRINT "-"
NEXT a
LOCATE 22, 70
PRINT "["
LOCATE 22, 79
PRINT "]"

COLOR 14
LOCATE 12, 60
PRINT "["
LOCATE 12, 79
PRINT "]"
LOCATE 8, 47
COLOR 15
PRINT "jenengan :"
LOCATE 12, 47
PRINT "password :"
LOCATE 8, 62
INPUT "", j$
IF j$ = "azan" THEN
LOCATE 12, 62
        INPUT "", p$
        IF p$ = "*****" THEN
              
                COLOR 7
                FOR b = 72 TO 79
                        LOCATE 21, b
                        PRINT "-"
                        LOCATE 23, b
                        PRINT "-"
                NEXT b
                LOCATE 22, 70
                PRINT "["
                LOCATE 22, 79
                PRINT "]"
                COLOR 2
                FOR a = 71 TO 78
                        LOCATE 22, a
                        PRINT "#"
                        FOR b = 1 TO 100000
                        NEXT b
                NEXT a

        ELSE
                LOCATE 17, 45
                PRINT "jenengan atawa passsword teu merenah"
              
                GOTO faceim
        END IF
ELSE
        LOCATE 17, 50
        PRINT " jenengan teu terdaftar"
        GOTO faceim

END IF
'------------------------------------------------------------------------------

login:
CLS
COLOR 8
FOR a = 1 TO 80
        LOCATE 1, a
        PRINT "-"
        LOCATE 3, a
        PRINT "-"
        LOCATE 5, a
        PRINT "-"

NEXT a
                LOCATE 22, 70
                PRINT "["
                LOCATE 22, 79
                PRINT "]"

COLOR 7
LOCATE 4, 20
PRINT "["
LOCATE 4, 40
PRINT "]"
LOCATE 4, 41
COLOR 9
PRINT " [teangan]"

COLOR 31
LOCATE 2, 75
PRINT "_"
LOCATE 2, 77
PRINT "="
LOCATE 2, 79
PRINT "X"
COLOR 12
LOCATE 2, 2
PRINT "@ azanbrowser"
COLOR 17
LOCATE 4, 2
PRINT "[f] faceim "
PRINT
LOCATE 4, 59
PRINT "beranda"
LOCATE 4, 68
PRINT "profil"
LOCATE 4, 76
PRINT "akun"
COLOR 10
LOCATE 7, 20
PRINT "status"
LOCATE 7, 27
PRINT "pidio"
LOCATE 7, 33
PRINT "inpo"
PRINT
COLOR 11
PRINT "      +++"
PRINT "     +   +     "
PRINT "      +++ "
PRINT "       *   "
PRINT "     *****"
PRINT "       *  "
PRINT "     *   * "
COLOR 7
FOR a = 2 TO 15
        LOCATE 6, a
        PRINT "~"
        LOCATE 17, a
        PRINT "~"
        FOR b = 7 TO 16
                LOCATE b, 2
                PRINT "|"
                LOCATE b, 15
                PRINT "|"
        NEXT b
NEXT a
FOR a = 6 TO 21
        LOCATE a, 17
        PRINT "*"
        LOCATE a, 65
        PRINT "*"
NEXT a
FOR b = 18 TO 64
        LOCATE 6, b
        PRINT "="
        LOCATE 8, b
        PRINT "="
NEXT b
FOR a = 19 TO 45
        LOCATE 9, a
        PRINT "*"
        LOCATE 11, a
        PRINT "*"
        FOR b = 8 TO 11
        LOCATE b, 19
        PRINT "*"
        NEXT b
        FOR c = 9 TO 11
        LOCATE c, 45
        PRINT "*"
        NEXT c
NEXT a
COLOR 7
LOCATE 18, 2
PRINT "poto    [1000] "
LOCATE 19, 2
PRINT "acara     [15] "
LOCATE 20, 2
PRINT "balad   [5000] "
FOR a = 1 TO 80
        LOCATE 21, a
        PRINT "-"
        LOCATE 23, a
        PRINT "-"
NEXT a
                LOCATE 22, 70
                PRINT "["
                LOCATE 22, 79
                PRINT "]"

LOCATE 10, 21
INPUT "", st$

'komentar---------------------------------------------------------------------
komentar:

LOCATE 10, 48
PRINT "komentari"
LOCATE 10, 48
INPUT "komentari y/n: ", y$
IF y$ = "y" THEN
        FOR a = 19 TO 45
                LOCATE 12, a
                PRINT "*"
                LOCATE 14, a
                PRINT "*"
                FOR b = 12 TO 14
                        LOCATE b, 19
                        PRINT "*"
                        LOCATE b, 45
                        PRINT "*"
                NEXT b
        NEXT a
ELSEIF y$ = "n" THEN
           GOTO pernyataan2

ELSE
        GOTO login
      
END IF
'isi komentar------------------------------------------------------------------

LOCATE 13, 21
INPUT "", st$

LOCATE 13, 48
PRINT "komentari"
LOCATE 13, 48
INPUT "komentari y/n: ", y$
IF y$ = "y" THEN
        FOR a = 19 TO 45
                LOCATE 15, a
                PRINT "*"
                LOCATE 17, a
                PRINT "*"
                FOR b = 15 TO 17
                        LOCATE b, 19
                        PRINT "*"
                        LOCATE b, 45
                        PRINT "*"
                NEXT b
        NEXT a
ELSEIF y$ = "n" THEN
           GOTO pernyataan2

ELSE
        GOTO login
     
END IF

LOCATE 16, 21
INPUT "", st$
komentar2:
LOCATE 16, 48
PRINT "komentari"
LOCATE 16, 48

INPUT "komentari y/n: ", y$
IF y$ = "y" THEN
        FOR a = 19 TO 45
                LOCATE 18, a
                PRINT "*"
                LOCATE 20, a
                PRINT "*"
                FOR b = 18 TO 20
                        LOCATE b, 19
                        PRINT "*"
                        LOCATE b, 45
                        PRINT "*"
                NEXT b
        NEXT a
ELSEIF y$ = "n" THEN
           GOTO pernyataan2
ELSE
        GOTO komentar2
END IF
LOCATE 19, 21
INPUT "", st$

'----------------------------------------------------------------------------

pernyataan2:

LOCATE 22, 2
INPUT "untuk keluar tekan x atau untuk kembali mengisi status tekan b :", b$
IF b$ = "b" THEN
                LOCATE 22, 70
                PRINT "["
                LOCATE 22, 79
                PRINT "]"
                COLOR 2
                FOR a = 71 TO 78
                        LOCATE 22, a
                        PRINT "#"
                        FOR b = 1 TO 100000
                        NEXT b
                NEXT a
       
        GOTO login
ELSEIF b$ = "x" THEN

        LOCATE 2, 72
        PRINT "close tab"
        END
ELSE
        GOTO pernyataan2
END IF