Real Estate Spreadsheet

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