5 PRINT CHR$(26)
10 'THIS PROGRAM IS FOR FILLING OUT THE LISTING
20 'FORM . SAVED AS LISTING 
30 PRINT "PLEASE TYPE THE ANSWERS TO THE FOLLOWING "
40 PRINT "QUESTIONS AS THEY ARE ASKED, THEN HIT THE"
50 PRINT "RETURN KEY FOR THE NEXT QUESTION."
51 PRINT
52 PRINT "PLEASE TYPE AN (X) TO ANSWER [YES]"
54 PRINT "OR HIT THE <RETURN> KEY FOR A [NO]"
55 PRINT
60 PRINT "*****************************************"
70 INPUT "WHAT IS THE STREET ADDRESS"; A$
80 PRINT
90 PRINT
100 INPUT "MAIN ROAD NORTH OR SOUTH IS WHAT"; B$
101 X=LEN(B$)
102 IF X>10 GOTO 3500
110 PRINT "IS IT NORTH ?";: B$=INPUT$(1)
114 PRINT B$
120 PRINT "IS IT SOUTH ?";:E$=INPUT$(1)
122 PRINT E$
130 PRINT
140 PRINT
150 INPUT "MAIN ROAD EAST OR WEST IS WHAT"; C$
151 X=LEN(C$)
152 IF X>12 GOTO 3530
160 PRINT "IS IT EAST ?";: F$=INPUT$(1)
162 PRINT F$
170 PRINT "IS IT WEST ?";: G$=INPUT$(1)
172 PRINT G$
175 PRINT
177 PRINT
180 PRINT "IS IT A CITY ?";:H$=INPUT$(1)
182 PRINT H$
190 PRINT "IS IT A TWP. ?";: I$=INPUT$(1)
192 PRINT I$
200 PRINT 
210 PRINT
220 INPUT "WHAT CITY OR TWP. IS IT IN"; J$
230 INPUT "WHAT COUNTY IS IT IN";K$
240 PRINT
250 PRINT "WITH EVERY FULL SCREEN OF QUESTIONS I'M GOING TO"
270 PRINT "TO GIVE YOU A CHANCE TO REVIEW WHAT  YOU'VE "
280 PRINT "ENTERED AND MAKE CHANGES IF YOU MADE A BOO BOO"
290 PRINT " ALRIGHT DO YOU SEE ANY THING YOU WANT TO CHANGE?"
295 PRINT "         [Y] [N]";:AN$=INPUT$(1)
297 PRINT CHR$(7)
310 IF AN$="Y" THEN 5
320 PRINT CHR$(26)
330 INPUT "WHAT IS THE LOT AND SUBDIVISON"; L$
335 X=LEN(L$)
340 IF X>30 GOTO 3560
350 INPUT "WHAT IS THE LOT SIZE FRONT"; M$
360 PRINT "IS IT OVER 1 ACRE ?";:N$=INPUT$(1)
362 PRINT N$
370 PRINT 
380 PRINT
390 INPUT "WHAT IS THE SECTION NUMBER"; O$
400 INPUT "WHAT IS THE MAP COORDINANCE"; P$
410 PRINT
420 INPUT "WHAT IS THE SID.NO."; Q$
430 INPUT "LETS NOT FORGET THE ZIP CODE WHAT IS IT"; R$
440 PRINT 
450 PRINT "WHAT SIDE OF THE STREET IS IT ON ?";:S$=INPUT$(1)
452 PRINT S$
460 PRINT "AS IF YOU REALLY CARED IS IT PAVED ?";:T$=INPUT$(1)
462 PRINT T$
470 PRINT 
471 PRINT "NEED TO MAKE ANY CHANGES (Y,N)?";:AN$=INPUT$(1)
472 PRINT CHR$(7)
473 IF AN$="Y" THEN 320
480 PRINT CHR$(26)
490 PRINT "NOW FOR THE BIG ONE"
500 INPUT "WHAT IS THE PRICE"; U!
510 FOR J=1 TO 10
511 PRINT
512 PRINT
513 PRINT
514 PRINT
515 PRINT
516 PRINT USING "$$#####.##";U!
517 PRINT "WOW ! THATS TO HIGH"
518 PRINT "REMEMBER YOU HAVE TO SELL IT TO GET PAID"
519 FOR K=1 TO 200
520 NEXT K
521 PRINT CHR$(26)
522 PRINT CHR$(7)
523 NEXT J
530 PRINT "    DO YOU WANT TO CHANGE THE PRICE":AN$=INPUT$(1)
535 IF AN$="Y" THEN 500
560 PRINT CHR$(26)
570 INPUT "WHAT IS THE STYLE NUMBER"; V$
580 INPUT "WHAT IS THE CODE"; W$
590 PRINT "                      COME ON SMILE"
600 PRINT "NOW FOR A FEW QUICK ONES"
610 PRINT "IS IT BRICK";:A1$=INPUT$(1)
612 PRINT A1$
620 PRINT "IS IT FRAME";:A2$=INPUT$(1)
622 PRINT A2$
630 PRINT "IS IT ASBESTOS ?";:A3$=INPUT$(1)
632 PRINT A3$
640 PRINT "IS IT ALUMINUM";:A4$=INPUT$(1)
642 PRINT A4$
645 PRINT "IF OTHER X FOR YES";:A12$=INPUT$(1)
646 PRINT  A12$
647 INPUT "PLEASE SPECIFY IN 7 LETTERS OR LESS"; AA12$
650 INPUT "IS IT 1 STORY"; A5$
652 X=LEN(A6$)
654 IF X>(1) GOTO 656 
656 GOSUB 3580
660 INPUT "IS IT 11/2 STORIES"; A6$
670 INPUT "IS IT A 2 STORY"; A7$
680 INPUT "IS IT A SPLIT LEVEL"; A8$
690 INPUT "IS IT A FLAT"; A9$
700 INPUT "DOES IT HAVE AN INCOME"; A10$
710 INPUT "IS IT A DUPLEX"; A11$
730 PRINT "                        ISNT THIS FUN"
740 INPUT "WHAT ABOUT ABSTRACT"; A13$
750 INPUT "WHAT ABOUT TITLE INS."; A14$
760 INPUT "CASH TO PRESENT MORTGAGE"; B1$
770 INPUT "NEW MORTGAGE"; B2$
780 INPUT "LAND CONTRACT"; B3$
790 INPUT "NEW LAND CONTRACT"; B4$
800 INPUT "JUST PLAIN CASH"; B5$
810 PRINT "ANY MISTAKES ON THIS PAGE"
815 PRINT "       [Y] OR [NO]";:AN$=INPUT$(1)
820 PRINT CHR$(7)
830 IF AN$="Y" THEN 560
840 PRINT CHR$(26)
850 PRINT "ASSUMTION:"
860 INPUT "SIMPLE"; C1$
870 INPUT "REQUALIFY"; C2$
880 INPUT "INT. ADJ."; C3$
890 PRINT
900 INPUT "LAND CONTRACT DOWN PAYMENT"; C4$
910 INPUT "YEARS"; C5$
920 INPUT "MONTH"; C6$
930 INPUT "WHAT INTEREST RATE"; C7$
940 PRINT
950 PRINT "        DONT LOOK SO SCARED I DONT BITE"
960 PRINT "OWES:"
970 INPUT "CONV."; D1$
980 INPUT "PMI."; D2$
990 INPUT "FHA."; D3$
1000 INPUT "VA."; D4$
1010 INPUT "LC."; D5$
1020 INPUT "HOW MUCH IS OWED"; D6$
1030 INPUT "AT WHAT INTEREST RATE"; D7$
1040 INPUT "TO WHOM IS IT OWED"; D8$
1042 X=LEN(D8$)
1044 IF X>12 GOTO 3570
1050 INPUT "WHEN IS MORTGAGE DUE"; D9$
1060 INPUT "WHAT ARE THE PAYMENTS"; D10$
1070 INPUT "DO THEY INCLUDE TAXES"; D11$
1080 INPUT "DO THEY INCLUDE INSURANCE"; D12$
1090 PRINT "ANY MISTAKES [Y] OR [N]":AN$=INPUT$(1)
1100 PRINT CHR$(7)
1110 IF AN$="Y" THEN 840
1120 PRINT CHR$(26)
1130 INPUT "WHAT ARE THE CITY TAXES"; D13$
1140 INPUT "WHAT ARE THE COUNTY TAXES"; D14$
1150 PRINT "                      SORRY I ASKED"
1160 PRINT
1170 PRINT "WHAT ABOUT SPECIAL ASSEMENTS"
1180 PRINT "OR ASSOCIATION FEES."
1190 INPUT "IF SO PLEASE ENTER THEM";D15$
1192 X=LEN(D15$)
1194 IF X>20 GOTO 3550
1200 PRINT
1210 INPUT "OCCUPANCY"; D16$
1220 INPUT "FEE PER DAY"; D17$
1230 PRINT "NOW LETS FIND OUT A LITTLE MORE ABOUT "
1240 PRINT "THE PROPERTY ITSELF"
1250 INPUT "WHEN WAS IT BUILT"; E1$
1260 INPUT "IS IT A NEW BLDG."; E2$
1270 INPUT "WHAT SIZE IS IT"; E3$
1280 INPUT "HOW MANY ROOMS"; E4$
1290 INPUT "HOW MANY SQUARE FEET IS IT"; E5$
1300 PRINT
1310 INPUT "WHAT SIZE IS THE BASEMENT"; E6$
1320 INPUT "DOES IT HAVE A WALKOUT"; E7$
1330 INPUT "WHAT SIZE IS THE BLDG. EXTENSION"; E8$
1340 INPUT "HOW MANY BEDROOMS"; E9$
1350 INPUT "HOW MANY DOWNSTAIRS"; E10$
1360 INPUT "HOW MANY UPSTAIRS"; E11$
1370 PRINT
1380 PRINT "WOOPS! ALMOST FORGOT ANY CHANGES [Y] OR [N]";:AN$=INPUT$(1)
1390 PRINT CHR$(7)
1400 IF AN$="Y" THEN 1120
1410 PRINT CHR$(26)
1420 INPUT "WHAT SIZE IS THE UTILITY ROOM"; E12$
1430 INPUT "WHAT FLOOR IS IT ON"; E13$
1440 INPUT "WHAT SIZE IS THE LIVING ROOM"; E14$
1450 INPUT "HOW MANY LAVATORYS"; E15$
1460 INPUT "ON THE FIRST FLOOR"; E16$
1470 INPUT "ON THE 2ND FLOOR"; E17$
1480 INPUT "IN THE BASEMENT"; E18$
1482 INPUT "HOW MANY COMPLETE BATHROOMS ON THE 1ST FLOOR"; K1$
1484 INPUT "HOW MANY ON THE 2ND FLOOR"; K2$
1490 PRINT
1500 INPUT "WHAT KIND OF WATER HEATER "; E19$
1510 INPUT "WHAT KIND OF FURNACE IS IT "; E20$
1520 INPUT "DOES IT HAVE CENTRAL AIR"; E21$
1530 INPUT "ELECTRIC AIR CLEANER"; E22$
1540 INPUT "POWER HUMIDIFER"; E23$
1550 PRINT
1560 PRINT "NEXT WHAT HAS THE KITCHEN GOT"
1570 INPUT "REFRIGERATOR BUILT IN"; E24$
1580 INPUT "RANGE BUILT IN"; E25$
1590 INPUT "GARBAGE DISPOSAL BUILT IN"; E26$
1600 INPUT "DISHWASHER "; E27$
1610 INPUT "COMPACTOR"; E28$
1620 INPUT "OVEN OR RANGE"; E29$
1630 PRINT "HOW ARE WE DOING,ANY MISTAKES [Y] OR [N]" :AN$=INPUT$(1)
1640 PRINT CHR$(7)
1650 IF AN$="Y" THEN 1410
1660 PRINT CHR$(26)
1670 PRINT "WHAT ARE THE SIZES OF THE FOLLOWING ROOMS?"
1680 INPUT "DINING ROOM"; F1$
1690 INPUT "IS IT SEPARATE"; FF1$
1700 INPUT "KITCHEN"; F2$
1710 INPUT "KITCHEN DINING AREA"; F3$
1720 INPUT "MASTER BEDROOM"; F4$
1730 INPUT "DOES IT HAVE A MASTER BATH"; FF4$
1740 INPUT "BEDROOM NUMBER 1"; F5$
1750 INPUT "BEDROOM NUMBER 2"; F6$
1760 INPUT "BEDROOM NUMBER 3"; F7$
1770 INPUT "LIBRARY OR DEN"; F8$
1780 INPUT "FAMILY ROOM"; F9$
1790 INPUT "REC. ROOM"; F10$
1800 INPUT "WHAT KIND OF WINDOWS DOES IT HAVE"; F11$
1810 INPUT "WHAT KIND OF STORMS & SCREENS DOES IT HAVE"; F12$
1820 INPUT "DESCRIBE CARPETING"; F13$
1830 INPUT "DESCRIBE THE VESTIBULE IN 10 LETTERS OR LESS";F14$
1840 INPUT "PASSAGE OR HALLWAY (X) FOR YES"; F15$
1850 INPUT "WHAT KIND OF FENCE DOES IT HAVE"; F16$
1860 INPUT "WHAT KIND OF FIREPLACE DOES IT HAVE"; F17$
1870 INPUT "WHAT SIZE IS THE PATIO OR DECK"; F18$
1880 INPUT "TYPE (X) FOR DECK"; F19$
1890 PRINT "ANY MISTAKES [Y] OR [N]" :AN$=INPUT$(1)
1900 PRINT CHR$(7)
1910 IF AN$="Y" THEN 1660
1920 PRINT CHR$(26)
1930 PRINT "DOES THE ATTIC HAVE"
1940 INPUT "STAIRS (X) FOR YES"; F20$
1950 INPUT "FLOORED"; F21$
1960 PRINT
1970 PRINT "WHAT ARE THE NAMES FOR THE FOLLOWING SCHOOLS"
1980 INPUT "PUBLIC"; F22$
1985 INPUT "HIGH SCHOOL"; FF22$
1990 INPUT "PAROC."; F23$
2000 PRINT
2010 PRINT "WHAT SIZE GARAGE DOES IT HAVE?"
2020 INPUT "1 CAR"; G1$
2030 INPUT "1 1/2 CAR"; G2$
2040 INPUT "2 CAR OR MORE"; G3$
2050 PRINT "NOW WATER (X) FOR YES RETURN FOR NO"
2060 INPUT "CITY"; G4$
2070 INPUT "WELL"; G5$
2080 PRINT
2090 INPUT "GAS IN"; G6$
2100 PRINT
2110 PRINT "NOW THE SEWER"
2120 INPUT "IS IT PUBLIC"; G7$
2130 INPUT "IS IT A SEPTIC"; G8$
2140 PRINT "ANY ERRORS [Y] OR [N]" :AN$=INPUT$(1)
2150 PRINT CHR$(7)
2160 IF AN$="Y" THEN 1920
2170 PRINT CHR$(26)
2180 PRINT "JUST A FEW MORE QUESTIONS"
2190 PRINT
2200 INPUT "P"; G9$
2210 INPUT "CSB"; G10$
2220 PRINT
2230 INPUT "PHONE NUMBER"; G11$
2240 INPUT "VACANT (Y,N)"; G12$
2250 INPUT "PHONE NUMBER TO SHOW"; G13$
2260 PRINT
2270 INPUT "KEYS IN OFFICE (Y,N)"; G14$
2280 INPUT "LOCK BOX"; G15$
2290 PRINT
2300 INPUT "WHO IS THE BROKER"; H1$
2310 INPUT "WHAT IS THE NO."; H2$
2320 INPUT "WHO IS THE SALESPERSON"; H3$
2330 PRINT
2340 INPUT "WHAT IS THE OWNERS NAME"; H4$
2350 INPUT "OWNER 'X' FOR YES"; H5$
2360 INPUT "TENANT 'X' FOR YES"; H6$
2370 PRINT
2380 PRINT "ANY ERRORS [Y] OR [N]" :AN$=INPUT$(1)
2390 PRINT CHR$(7)
2400 IF AN$="Y" THEN 2170
2410 PRINT CHR$(26)
2420 INPUT "DOES IT HAVE A SWIMMING POOL"; H7$
2430 INPUT "WATERFRONT"; H8$
2440 INPUT "WATER PRIVILAGE"; H9$
2450 INPUT "WHAT IS THE NAME OF THE LAKE"; H10$
2460 PRINT
2470 PRINT
2480 INPUT "IS THE OWNER WILLING TO TRADE OR EXCHANGE"; H11$
2490 PRINT
2500 PRINT "NOW FOR COMMENTS"
2510 INPUT "*"; J1$
2520 INPUT "*"; J2$
2530 INPUT "*"; J3$
2540 PRINT
2550 INPUT "WHAT IS THE LISTING DATE"; J4$
2560 INPUT "SALESPERSON I.D. NUMBER"; J5$
2570 INPUT "SALESPERSON I.D. NUMBER"; J6$
2580 INPUT "WHAT IS THE EXPIRATION DATE"; J7$
2590 PRINT "THIS IS IT ANY ERRORS [Y] OR [N]" :AN$=INPUT$(1)
2600 PRINT CHR$(7)
2610 IF AN$="Y" THEN 2410
2620 PRINT CHR$(26)
2630 PRINT " MAKE SURE YOU HAVE A BLANK LISTING"
2640 PRINT "FORM IN THE PRINTER . THEN TYPE (P)"
2650 PRINT "TO PRINT OUT ALL YOUR ANSWERS ."
2660 PRINT "THANK YOU FOR YOUR PATIENCE"
2670 PRINT "HAVE A NICE DAY"
2680 PRINT 
2690 PRINT "      IF YOUR SURE YOUR READY TYPE (P)":AN$=INPUT$(1)
2700 PRINT CHR$(7)
2710 IF AN$<>"P" THEN 2690
2725 LPRINT CHR$(27)+"!"
2730 LPRINT TAB(5);A$;TAB(39);O$;TAB(44);P$
2740 LPRINT TAB(3);D$;TAB(6);E$;TAB(8);B$;TAB(19);F$;TAB(21);G$;TAB(25);C$
2750 LPRINT TAB(1);H$;TAB(5);I$;TAB(8);J$;TAB(24);K$;TAB(35);Q$ 
2760 LPRINT TAB(6);L$;TAB(38);R$;TAB(52);U!;TAB(64);V$
2770 LPRINT TAB(7);M$;TAB(30);N$;TAB(40);S$;TAB(44);T$;TAB(51);W$
2780 LPRINT TAB(2);A1$;TAB(8);A2$;TAB(13);A3$;TAB(19);A4$;TAB(26);A12$;TAB(33);AA12$;TAB(42);A13$;TAB(49);B1$;TAB(53);B2$;TAB(57);B3$;TAB(61);B4$;TAB(65);B5$
2790  LPRINT TAB(2);A5$;TAB(8);A6$;TAB(13);A7$;TAB(19);A8$;TAB(26);A9$;TAB(30);A10$;TAB(35);A11$;TAB(42);A14$;TAB(55);C1$;TAB(59);C2$;TAB(65);C3$
2800 LPRINT TAB(2);E1$;TAB(14);E2$;TAB(18);E3$;TAB(33);E4$;TAB(39);E5$;TAB(50);C4$;TAB(59);C5$;TAB(62);C6$;TAB(67);C7$ 
2810 LPRINT TAB(2);E6$;TAB(14);E7$;TAB(18);E8$;TAB(34);E9$;TAB(37);E10$;TAB(43);E11$;TAB(52);D1$;TAB(56);D2$;TAB(60);D3$;TAB(64);D4$;TAB(68);D5$
2820 LPRINT TAB(4);E12$;TAB(14);E13$;TAB(18);E14$;TAB(33);E15$;TAB(36);E16$;TAB(38);E17$;TAB(41);E8$;TAB(50);D6$;TAB(64);D7$
2830 LPRINT TAB(4);E19$;TAB(18);F1$;TAB(28);FF1$;TAB(36);K1$;TAB(43);K2$;TAB(50);D8$;TAB(66);D9$
2840 LPRINT TAB(3);E20$;TAB(18);F2$;TAB(35);F10$;TAB(52);D10$;TAB(61);D11$;TAB(67);D12$
2850 LPRINT TAB(1);E21$;TAB(4);E22$;TAB(10);E23$;TAB(18);F3$;TAB(34);F11$;TAB(52);D13$;TAB(64);D14$
2860 LPRINT TAB(5);E24$;TAB(8);E25$;TAB(12);E26$;TAB(18);F4$;TAB(28);FF4$;TAB(34);F12$
2870 LPRINT  TAB(2);E27$;TAB(7);E28$;TAB(13);E29$;TAB(18);F5$;TAB(34);F13$;TAB(49);D15$
2880 LPRINT TAB(4);F20$;TAB(9);F21$;TAB(18);F6$;TAB(34);F14$;TAB(45);F15$;TAB(50);D16$;TAB(63);D17$
2890 LPRINT TAB(3);F22$;TAB(18);F7$;TAB(34);F16$;TAB(53);G1$;TAB(58);G2$;TAB(62);G3$
2900 LPRINT TAB(1);F23$;TAB(18);F8$;TAB(36);F17$;TAB(53)G6$;TAB(65);G9$
2910 LPRINT TAB(4);FF22$;TAB(19);F9$;TAB(35);F18$;TAB(44);F19$;TAB(52);G7$;TAB(56);G8$;TAB(65);G10$
2920 LPRINT TAB(4);H1$;TAB(20);H2$;TAB(32);H3$;TAB(51);G11$;TAB(66);G12$
2930 LPRINT TAB(3);H4$;TAB(40);H5$;TAB(44);H6$;TAB(56);G13$
2940 LPRINT TAB(1);H7$;TAB(8);H8$;TAB(15);H9$;TAB(27);H10$;TAB(41);H11$;TAB(50);G14$;TAB(56);G15$
2950 LPRINT
2960 LPRINT J1$
2970 LPRINT J2$
2980 LPRINT J3$
2990 LPRINT
3000 LPRINT TAB(9);J4$;TAB(37);J5$;TAB(52);J6$
3010 LPRINT
3020 LPRINT TAB(24);J7$
3030 PRINT CHR$(26)
3040 PRINT "DO YOU WANT ANOTHER COPY [Y] OR [N]":AN$=INPUT$(1)
3050 PRINT CHR$(7)
3060 IF AN$="Y" THEN 2690
3070 PRINT CHR$(26)
3080 PRINT "DO YOU WANT TO FILL OUT ANOTHER ONE [Y] OR [N]":AN$=INPUT$(1)
3090 PRINT CHR$(7)
3100 IF AN$="Y" THEN 5
3110 PRINT "  WE HAVE COME TO THE END OF THE PROGRAM"
3112 PRINT "  YOU WILL HAVE TO TYPE <RUN> TO START OVER"
3114 PRINT
3116 PRINT " NOW GO SELL SOMETHING AND MAKE SOME MONEY"
3490 END
3500 PRINT "YOU TYPED TO MANY LETTERS"
3510 PRINT "THERE IS ONLY 10 SPACES ALLOWED"
3520 GOTO 100
3530 PRINT "TO MANY LETTERS THERE IS ONLY SPACE FOR 12"
3540 GOTO 150
3550 PRINT "TYPED TO MANY LETTERS ONLY 20 ALLOWED"
3555 GOTO 1170
3560 PRINT "TO MANY LETTERS ONLY 30 ALLOWED"
3565 GOTO 330
3570 PRINT "TO MANY LETTERS ONLY 12 ALLOWED"
3575 GOTO 1040
3580 PRINT"REQUIRES A X FOR YES OR A RETURN FOR NO"
3590 RETURN
570 PRINT "TO MANY LETTERS ONLY 12 ALLOWED"
3575 GOTO 1040
35