andrewb icon

LEGO.BAS

andrewb | PRO | 10/26/20 03:47:17 AM UTC | 0 ⭐ | 16544 👁️ | Never ⏰ | []
GwBasic |

340 B

|

None

|

0 👍

/

0 👎

Raw Download Clone Embed Print View 
0 REM LEGO
1 GR:ONERR GOTO 7:C=13
2 READ X,Y,Z,D:FOR I=X TO Y
4 IF D=0 THEN PLOT I,Z
5 IF D=1 THEN PLOT Z,I
6 NEXT:GOSUB 8:GOTO 2
7 RESTORE:GOTO 2
8 C=C+1:IF C > 13 THEN C=6
9 COLOR=C:RETURN
20 DATA 0,10,0,1,0,3,10,0,5,8,4,0,5,8,7,0,5,8,10,0,5,9,5,1,10,13,4,0,10,13,10,0,4,10,10,1,8,9,13,1,12,13,7,0,15,18,4,0,15,18,10,0,5,9,15,1,5,9,18,1

Comments

  • icon
    01/01/70 12:00:00 AM UTC
    Plain Text |

    0 B

    |

    👍

    /

    👎

    
    
    

    

            
    • 
            
            
  • 
                
    
                    
    
                         icon
                    
    
                    
    
                        
                        
                        
                    
    
                    
    
                        
                        01/01/70 12:00:00 AM UTC
                        
                    
    
                
    
                

    
    
    
        
    
            Plain Text
            |
            
    0 B
    
            
            |
            
     👍
    
            /
            
     👎
    
        
    
        
    
    
    
    
        
    
    
    

    

            
    •