1 REM B


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				AE


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				E


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				D\FE


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				\F9


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				AE\FE\C6\F8E\FE\EFED\FE


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				\FAA


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				A itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				\FE


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				\EDAD\F7A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				A\FE


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				D\F8


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"\A6


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				\EDA\CD\BB


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				C\C6


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				D\CD\BD


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				C


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				B\B1\FBA\FE


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				EA\FEACA\FE


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				EA\FE


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				ADA\FE


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				EA\FEADA\FE


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				EA\FEACE


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				AE\FE\D9\F8E\FE\EFA\FE


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				D\F8A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				\EDA\EDBA


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				DD\FE


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				\F3


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				A\EDB


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				EA\FE


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				A itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"A\C6 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2" itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				DD\FE


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				\E7ED\FE


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				\FAAD\FE


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Real Estate Spreadsheet
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Real Estate Spreadsheet
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1001
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \19\48\04\4B\00\00\00\32\98\4A\3E\08\0E\00\21\82\40\71\23\3D\FE\00\20\F9\2A\10\40\7E\FE\C6\28\03\23\18\F8\23\7E\FE\75\28\03\23\18\EF\3E\07\23\3D\FE\00\20\FA\22\84\40\3A\86\40\2A\84\40\01\64\00\FE\00\28\05\ED\4A\3D\18\F7\22\84\40\3A\87\40\2A\84\40\FE\00\28\04\23\3D\18\F8\22\84\40\2A\0C\40\01\A6\00\ED\4A\22\82\40\CD\BB\02\7C\C6\02\38\09\44\4D\CD\BD\07\06\00\4E\79\32\89\40\01\00\0C\0B\78\B1\20\FB\3A\89\40\FE\23\20\0E\3A\86\40\FE\32\28\07\3A\86\40\3C\32\86\40\3A\89\40\FE\22\20\0E\3A\86\40\FE\00\28\07\3A\86\40\3D\32\86\40\3A\87\40\FE\00\28\0E\3A\89\40\FE\24\20\07\3A\87\40\3D\32\87\40\3A\87\40\FE\44\28\0E\3A\89\40\FE\21\20\07\3A\87\40\3C\32\87\40\3E\0A\32\88\40\2A\10\40\7E\FE\D9\28\03\23\18\F8\23\7E\FE\67\28\03\23\18\EF\23\23\23\23\23\3A\87\40\FE\00\28\04\23\3D\18\F8\22\8A\40\2A\0C\40\01\64\00\ED\4A\ED\5B\8A\40\0E\21\1A\77\0D\79\3D\23\13\FE\00\28\02\18\F3\2A\82\40\ED\5B\84\40\0E\21\3A\88\40\FE\0A\20\05\1A\C6\80\18\01\1A\77\0D\79\3D\23\13\FE\00\28\02\18\E7\23\3E\44\13\3D\FE\00\20\FA\3A\88\40\3D\32\88\40\FE\00\C2\A8\41\3A\89\40\FE\32\28\07\FE\28\28\03\C3\9A\40\C9\1B\1B\1B\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1D\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E\1E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				\C2\A8A\FE\FE\C3A\C9 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"D itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"D itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"D itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"D itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"D itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"D itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"D itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"D itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"D itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"D itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"D itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"D itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"D itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"D itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"D itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"D itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"D itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"D itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"D itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"D itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"D itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"D itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"D itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"D itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56985 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"E
   5 LET A=1
  10 DIM T$(100)
  20 DIM A$(60,100)
  30 LET T$="%T%Y%P%E\ :%P%R%I%C%E% % \ :%1%S%T% %M%O%R%T%G%A%G%E\ :%R%A%T%E\ :%L%O%A%N\ :%A%D%D%R%E%S%S% % % % % % % % % % % % % % % % % % % % % % % % \ :%C%I%T%Y% % % % % % % % % % % \ :% %A%G%E%N%C%Y\ :%P%H%O%N%E% % "
  40 FOR N=1 TO 60
  50 FAST 
  60 LET A$(N)="    :$      :$           :    :    :                               :               :       :"
  70 LET A$(N,2 TO 3)=STR$ N
  80 NEXT N
  90 SLOW 
 105 CLS 
 110 PRINT AT 5,11;"%M %E %N %U";AT 7,8;"(ENTER CHOICE)";AT 10,5;"1. ENTER A RECORD.";AT 12,5;"2. VIEW SPREADSHEET."
 120 IF INKEY$="1" THEN GOTO 200
 130 IF INKEY$="2" THEN GOTO 150
 140 GOTO 120
 150 CLS 
 160 PRINT "  REAL ESTATE SPREADSHEET";AT 16,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";TAB 6;"PRESS ""M"" FOR MENU." 
 170 RAND USR 16524
 180 GOTO 100
 200 CLS 
 210 PRINT "ENTER RECORD INFORMATION."
 220 PRINT ,,"1. TYPE? (4 LETTERS)"
 230 INPUT A$(A,1 TO 4)
 240 PRINT "2. PRICE?"
 250 INPUT X
 260 LET A$(A,13-LEN STR$ X TO 12)=STR$ X
 270 PRINT "3. FIRST MORTGAGE PRICE?"
 280 INPUT X
 290 LET A$(A,21-LEN STR$ X TO 20)=STR$ X
 300 PRINT "4. 1ST MTG. LOAN RATE?"
 310 INPUT X
 320 LET A$(A,31-LEN STR$ X TO 30)=STR$ X
 330 PRINT "5. TYPE OF LOAN (VA-FHA-CONV.)?"
 340 INPUT A$(A,32 TO 35)
 350 PRINT "6. PROPERTY ADDRESS?"
 360 INPUT A$(A,37 TO 67)
 370 PRINT "7. CITY?"
 380 INPUT A$(A,69 TO 83)
 390 PRINT "8. AGENCY OFFERING PROPERTY?"
 400 INPUT A$(A,85 TO 91)
 410 PRINT "9. AGENCIES PHONE NUMBER?"
 420 INPUT A$(A,93 TO 100)
 430 LET A=A+1
 440 GOTO 100
 445 CLEAR 
 450 SAVE "1001%0"
 460 RUN