Added bardemo
This commit is contained in:
		
							parent
							
								
									77846e5800
								
							
						
					
					
						commit
						048cbac0b4
					
				
							
								
								
									
										15
									
								
								programs/bardemo.tri
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										15
									
								
								programs/bardemo.tri
									
									
									
									
									
										Normal file
									
								
							@ -0,0 +1,15 @@
 | 
				
			|||||||
 | 
					! this won't work until after some work in the practicals
 | 
				
			||||||
 | 
					let
 | 
				
			||||||
 | 
					    var a : Integer;
 | 
				
			||||||
 | 
					    var b : Integer
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					in
 | 
				
			||||||
 | 
					    begin
 | 
				
			||||||
 | 
					        a := 1;
 | 
				
			||||||
 | 
					        b := 2;
 | 
				
			||||||
 | 
					        
 | 
				
			||||||
 | 
					        putint(a);
 | 
				
			||||||
 | 
					        putint(b);
 | 
				
			||||||
 | 
					        putint(|a);
 | 
				
			||||||
 | 
					        putint(|b)
 | 
				
			||||||
 | 
					    end
 | 
				
			||||||
		Reference in New Issue
	
	Block a user