Skip to main content
deleted 20 characters in body
Source Link
Peter
  • 149
  • 2

BaCon, 229 227227 195 bytes

A contribution in BASIC for sake of nostalgia. The variable 'a' determines the amount of bombs.

a=2:FOR x=0 TO 15:FOR y=1 TO a:FOR i=15 DOWNTO 0:?IIF$(v[x]&INT(POW(2,i)),"##","  ");:NEXT:NEXT:?:NEXT:LOCAL v[]={0x0C003072,0x520020992,0x0100256,0x908036992,0x23E09184,0x03E0992,0x0FF84088,0x1FFC8188,0x1FFC8188,0x3FFE16382,0x3FDE16350,0x1FDC8156,0x1FBC8124,0x0FF84088,0x07F02032,0x01C0448}

Output:

        ####                            ####                    
  ##  ##    ##                    ##  ##    ##                  
              ##                              ##                
##    ##        ##              ##    ##        ##              
    ##      ##########              ##      ##########          
            ##########                      ##########          
        ##################              ##################      
      ######################          ######################    
      ######################          ######################    
    ##########################      ##########################  
    ################  ########      ################  ########  
      ##############  ######          ##############  ######    
      ############  ########          ############  ########    
        ##################              ##################      
          ##############                  ##############        
              ######                          ######            

BaCon, 229 227 bytes

A contribution in BASIC for sake of nostalgia. The variable 'a' determines the amount of bombs.

a=2:FOR x=0 TO 15:FOR y=1 TO a:FOR i=15 DOWNTO 0:?IIF$(v[x]&INT(POW(2,i)),"##","  ");:NEXT:NEXT:?:NEXT:LOCAL v[]={0x0C00,0x5200,0x0100,0x9080,0x23E0,0x03E0,0x0FF8,0x1FFC,0x1FFC,0x3FFE,0x3FDE,0x1FDC,0x1FBC,0x0FF8,0x07F0,0x01C0}

Output:

        ####                            ####                    
  ##  ##    ##                    ##  ##    ##                  
              ##                              ##                
##    ##        ##              ##    ##        ##              
    ##      ##########              ##      ##########          
            ##########                      ##########          
        ##################              ##################      
      ######################          ######################    
      ######################          ######################    
    ##########################      ##########################  
    ################  ########      ################  ########  
      ##############  ######          ##############  ######    
      ############  ########          ############  ########    
        ##################              ##################      
          ##############                  ##############        
              ######                          ######            

BaCon, 229 227 195 bytes

A contribution in BASIC for sake of nostalgia. The variable 'a' determines the amount of bombs.

a=2:FOR x=0 TO 15:FOR y=1 TO a:FOR i=15 DOWNTO 0:?IIF$(v[x]&INT(POW(2,i)),"##","  ");:NEXT:NEXT:?:NEXT:LOCAL v[]={3072,20992,256,36992,9184,992,4088,8188,8188,16382,16350,8156,8124,4088,2032,448}

Output:

        ####                            ####                    
  ##  ##    ##                    ##  ##    ##                  
              ##                              ##                
##    ##        ##              ##    ##        ##              
    ##      ##########              ##      ##########          
            ##########                      ##########          
        ##################              ##################      
      ######################          ######################    
      ######################          ######################    
    ##########################      ##########################  
    ################  ########      ################  ########  
      ##############  ######          ##############  ######    
      ############  ########          ############  ########    
        ##################              ##################      
          ##############                  ##############        
              ######                          ######            
added 28 characters in body
Source Link
Peter
  • 149
  • 2

BaCon, 229 227 bytes

A contribution in BASIC for sake of nostalgia. The variable 'a' determines the amount of bombs.

a=2:FOR x=0 TO 15:FOR y=1 TO a:FOR i=15 DOWNTO 0:?IIF$(v[x]&INT(POW(2,i)),"##","  ");:NEXT:NEXT:?:NEXT:LOCAL v[]={0x0C00,0x5200,0x0100,0x9080,0x23E0,0x03E0,0x0FF8,0x1FFC,0x1FFC,0x3FFE,0x3FDE,0x1FDC,0x1FBC,0x0FF8,0x07F0,0x01C0}

Output:

        ####                            ####                    
  ##  ##    ##                    ##  ##    ##                  
              ##                              ##                
##    ##        ##              ##    ##        ##              
    ##      ##########              ##      ##########          
            ##########                      ##########          
        ##################              ##################      
      ######################          ######################    
      ######################          ######################    
    ##########################      ##########################  
    ################  ########      ################  ########  
      ##############  ######          ##############  ######    
      ############  ########          ############  ########    
        ##################              ##################      
          ##############                  ##############        
              ######                          ######            

BaCon, 229 227 bytes

A contribution in BASIC for sake of nostalgia. The variable 'a' determines the amount of bombs.

a=2:FOR x=0 TO 15:FOR y=1 TO a:FOR i=15 DOWNTO 0:?IIF$(v[x]&INT(POW(2,i)),"##","  ");:NEXT:NEXT:?:NEXT:LOCAL v[]={0x0C00,0x5200,0x0100,0x9080,0x23E0,0x03E0,0x0FF8,0x1FFC,0x1FFC,0x3FFE,0x3FDE,0x1FDC,0x1FBC,0x0FF8,0x07F0,0x01C0}

Output:

        ####                            ####                    
##  ##    ##                    ##  ##    ##                  
            ##                              ##                
##    ##        ##              ##    ##        ##              
  ##      ##########              ##      ##########          
          ##########                      ##########          
      ##################              ##################      
    ######################          ######################    
    ######################          ######################    
  ##########################      ##########################  
  ################  ########      ################  ########  
    ##############  ######          ##############  ######    
    ############  ########          ############  ########    
      ##################              ##################      
        ##############                  ##############        
            ######                          ######            

BaCon, 229 227 bytes

A contribution in BASIC for sake of nostalgia. The variable 'a' determines the amount of bombs.

a=2:FOR x=0 TO 15:FOR y=1 TO a:FOR i=15 DOWNTO 0:?IIF$(v[x]&INT(POW(2,i)),"##","  ");:NEXT:NEXT:?:NEXT:LOCAL v[]={0x0C00,0x5200,0x0100,0x9080,0x23E0,0x03E0,0x0FF8,0x1FFC,0x1FFC,0x3FFE,0x3FDE,0x1FDC,0x1FBC,0x0FF8,0x07F0,0x01C0}

Output:

        ####                            ####                    
  ##  ##    ##                    ##  ##    ##                  
              ##                              ##                
##    ##        ##              ##    ##        ##              
    ##      ##########              ##      ##########          
            ##########                      ##########          
        ##################              ##################      
      ######################          ######################    
      ######################          ######################    
    ##########################      ##########################  
    ################  ########      ################  ########  
      ##############  ######          ##############  ######    
      ############  ########          ############  ########    
        ##################              ##################      
          ##############                  ##############        
              ######                          ######            
added 11 characters in body
Source Link
Peter
  • 149
  • 2

BaCon, 229229 227 bytes

a=2:FOR x=0 TO 15:FOR y=1 TO a:FOR i=15 DOWNTO 0:?IIF$(v[x]&INT(POW(2,i)),"##","..  ");:NEXT:NEXT:?:NEXT:LOCAL v[]={0x0C00,0x5200,0x0100,0x9080,0x23E0,0x03E0,0x0FF8,0x1FFC,0x1FFC,0x3FFE,0x3FDE,0x1FDC,0x1FBC,0x0FF8,0x07F0,0x01C0}
........        ####............................                            ####....................                    
..##..  ##....    ##....................                    ##..  ##....    ##..................                  
..............            ##..............................                              ##................                
##....    ##........        ##..............              ##....    ##........        ##..............              
....  ##......      ##########..............              ##......      ##########..........          
............          ##########......................                      ##########..........          
........      ##################..............              ##################......      
......    ######################..........          ######################....    
......    ######################..........          ######################....    
....  ##########################......      ##########################..  
....  ################..  ########......      ################..  ########..  
......    ##############..  ######..........          ##############..  ######....    
......    ############..  ########..........          ############..  ########....    
........      ##################..............              ##################......      
..........        ##############..................                  ##############........        
..............            ######..........................                          ######............            

BaCon, 229 bytes

a=2:FOR x=0 TO 15:FOR y=1 TO a:FOR i=15 DOWNTO 0:?IIF$(v[x]&INT(POW(2,i)),"##","..");:NEXT:NEXT:?:NEXT:LOCAL v[]={0x0C00,0x5200,0x0100,0x9080,0x23E0,0x03E0,0x0FF8,0x1FFC,0x1FFC,0x3FFE,0x3FDE,0x1FDC,0x1FBC,0x0FF8,0x07F0,0x01C0}
........####............................####....................
..##..##....##....................##..##....##..................
..............##..............................##................
##....##........##..............##....##........##..............
....##......##########..............##......##########..........
............##########......................##########..........
........##################..............##################......
......######################..........######################....
......######################..........######################....
....##########################......##########################..
....################..########......################..########..
......##############..######..........##############..######....
......############..########..........############..########....
........##################..............##################......
..........##############..................##############........
..............######..........................######............

BaCon, 229 227 bytes

a=2:FOR x=0 TO 15:FOR y=1 TO a:FOR i=15 DOWNTO 0:?IIF$(v[x]&INT(POW(2,i)),"##","  ");:NEXT:NEXT:?:NEXT:LOCAL v[]={0x0C00,0x5200,0x0100,0x9080,0x23E0,0x03E0,0x0FF8,0x1FFC,0x1FFC,0x3FFE,0x3FDE,0x1FDC,0x1FBC,0x0FF8,0x07F0,0x01C0}
        ####                            ####                    
##  ##    ##                    ##  ##    ##                  
            ##                              ##                
##    ##        ##              ##    ##        ##              
  ##      ##########              ##      ##########          
          ##########                      ##########          
      ##################              ##################      
    ######################          ######################    
    ######################          ######################    
  ##########################      ##########################  
  ################  ########      ################  ########  
    ##############  ######          ##############  ######    
    ############  ########          ############  ########    
      ##################              ##################      
        ##############                  ##############        
            ######                          ######            
added 27 characters in body
Source Link
Peter
  • 149
  • 2
Loading
Source Link
Peter
  • 149
  • 2
Loading