Category : A Collection of Games for DOS and Windows
Archive   : DECORATE.ZIP
Filename : DECORATE.BAS

 
Output of file : DECORATE.BAS contained in archive : DECORATE.ZIP
ÿîþ‹ ADDR.%, CLOCK.ON%
É Ý:É() •:• É()  `ê@— SEG ç : ‹ (ÿ—( ) î 0) èæ 0 Í GRAPH.ICSçf‹ GRAPH.ICS Í FCç: BCç :¡  `mœ— SEG:‹ ÿ—()èæà î ÿ—()èæ Í IBMPCç :¡ IBMPCç¦È :Àø
† FU$(d,),PA( ),UL(),UR(),LL(),LR(),DO#( ,),PF#( ,),WD#( ,)ZMETRICç[PI續öÓÚI‚'\RADFACç´ìPI1^ x9d:ÙAnÈ GxÀQ‚ 'Y,:Ùu-‹ IBMPC Í — SEG:œ Ù,ƒ.• § ‰ †²/Ê  ,:‘ "Loading furniture from disk..."Î1º "i",#,"DECOFURN.FRN"Û6FURNNOçö8‹ ÿ£()ç Í ; :¡ {.;‚ SUBLOOPç  Ì :… #,FU$(FURNNO,SUBLOOP):ƒ SUBLOOPY<Ê ,:‘ "Furniture number : ";FURNNOs@FURNNOçFURNNOé:‰ 8Œ{» #:FURNNOçFURNNOê |• § ‰ @œ:‰ ¨†:Ù凋 Ôç1 î Õç5 Í » #:º "O",#,"DECOFURN.FRN":» #:¨ |í:Ùõô:Ùõ‹ IBMPC Í — SEG:œ Ù,ùÀ+úXçŒ:Yç(: 'FûÊ 
,#:‘ "MAIN MENU";dü°(,D)ê(éN,R),,B†þÊ 
,:‘ "1. Design a room."¼Ê ,:‘ "2. Create, delete, or view furniture."ßÊ ,:‘ "3. Work in a room.">Ê ,:‘ "4. Change to ";:‹ METRIC Í ‘ "feet and inches."; :¡ ‘ "metric. ";rÊ ,:‘ "5. Remove furniture from all rooms."½Ê ,:‘ "6. Exit to ";:‹ ADDR.% Í ‘ "the Magazette."; :¡ ‘ "BASIC.";Ǎ @ç&‹ ÿ”(I$)è ï ÿ”(I$)æ Í 0À:• ÿ”(I$) ‰ è,Ð,¸ , ,,`êè:ÙBéRFN$ç"":PERMFIXNOç:DOORNOç:WINDNOçHêÀ\ìXç:Yç: à.xíÊ ,9:‘ "ROOM DESIGN";èîÊ ,0:‘ "Press ESC to return to the";:Ê ,0:‘ "main menu or any other key";:Ê ,0:‘ "to design a room.";ï— SEGç:˜ ,ÿ—( ).ðI$çÞ:‹ I$ç"" Í ð :¡ ‹ I$çÿ–() Í ôXòÊ ,0:‘ "Please enter the room dim-"¥ôÊ ,0:‘ "ensions in ";:‹ METRIC Í ‘ "meters."; :¡ ‘ "feet and inches.";öüÊ 
,2:‘ "width: ";: X:WDTH#çNUM:Ê  ,2:‘ "length: ";: X:LENGTH#çNUM3‹ WDTH#æLENGTH# Í SCALE#çhìWDTH# :¡ SCALE#çhìLENGTH#lÀ:°(,)ê(ÿ…(WDTH#ëSCALE#),ÿ…(LENGTH#ëSCALE#ì)),,B§°(,)ê(ÿ…(WDTH#ëSCALE#)ê,ÿ…(LENGTH#ëSCALE#ì)ê),,Bâ°(,)ê(ÿ…(WDTH#ëSCALE#)ê,ÿ…(LENGTH#ëSCALE#ì)ê),,Bì ¼VBÊ ,WDTH#ëSCALE#ôé:NUMçLENGTH#: £:Ê (LENGTH#ëSCALE#ì)ôé,(WDTH#ëSCALE#ì)ôé:NUMçWDTH#: £bGRTN$ç""jL:Ù{MÊ ,: ¼¯QÊ ,0:‘ " WORKING IN ";ÿ(RFN$,);" ROOM "íV‹ DOORNOè Í Ê ,0:‘ "1. Add a door ";+W‹ WINDNOè Í Ê ,0:‘ "2. Add a window ";mX‹ PERMFIXNO è Í Ê ,0:‘ "3. Add a permanent fixture ";YÊ ,0:‘ "4. Save this room and continue ";ÍZÊ ,0:‘ "5. Work with furniture ";ý[Ê ,0:‘ "6. Remove all furniture ";-\Ê ,0:‘ "7. View the furniture ";^]Ê 
,0:‘ "8. Return to main menu ";¿_‹ PERMFIXNOç î DOORNOç î WINDOWNOç Í Ê  ,0:‘ "9. Redo room size. ";:ABLETOREDOçÉ` rb‹ ÿ”(I$)è ï ÿ”(I$)æ Í Ê Ûê,(:‰ \ :¡ ‹ I$ç"9" î ABLETOREDOç Í \Nj ¼:• ÿ”(I$) ‰ ,x,Ü,@, ,h,Ä ,ô,èf‹ DOORNOæ Í ‰ LøHINGEDONEç:DOINGDOORç:DOORNOçDOORNOé:Ê ,0:‘ "Point to the point where the";: Ê ,0:‘ "HINGE should be, then press" ;:Ê ,0:‘ "ENTER.";XP#ç:YP#ç  *DEX1#çXP#:DEY1#çYP#tHINGEDONEç: Ü:DO#(DOORNO,)çXP#ìSCALE#:DO#(DOORNO,)çYP#ìSCALE#ëê ¼:Ê ,0:‘ "Now move the arrow to the";: Ê ,0:‘ "opening edge of the door";: Ê ,0:‘ "then press ENTER. ";‹ XP#ç ï YP#ç Í þ’ "D4U4R8L8" :¡ þ’ "U4D4L8R8"r%  : DO#(DOORNO,)çXP#ìSCALE#:DO#(DOORNO,)çYP#ìSCALE#ë:DEX2#çXP#:DEY2#çYP#§&‹ XP#ç ï YP#ç Í þ’ "D4U4R8L8" :¡ þ’ "U4D4L8R8"¿' Ü:Ê ,2: ¼Ô(‹ XP#ç Í WALLçé)‹ YP#ç Í WALLç *‹ XP#çWDTH#ëSCALE# Í WALLç- +‹ YP#çLENGTH#ëSCALE#ì Í WALLçx -Ê ,0:‘ "Does the door open in or out?";:Ê ,0:‘ "(I or O) ";: @– .‹ I$èæ"O" î I$èæ"I" Í -» /‹ I$ç"O" Í DO#(DOORNO,)ç:‰ dü 2‹ WALLç î DO#(DOORNO,) è DO#(DOORNO,) Í SPçëPIì:EPçëPI;!3‹ WALLç î DO#(DOORNO,) æ DO#(DOORNO,) Í SPçPI:EPçëPIìz!4‹ WALLç î DO#(DOORNO,) è DO#(DOORNO,) Í SPçPI:EPçëPIì·!5‹ WALLç î DO#(DOORNO,) æ DO#(DOORNO,) Í SPçPIì:EPçPIö!6‹ WALLç î DO#(DOORNO,) è DO#(DOORNO,) Í SPçëPI:EPçPIì3"7‹ WALLç î DO#(DOORNO,) æ DO#(DOORNO,) Í SPçPIì:EPçPIt"8‹ WALLç î DO#(DOORNO,) è DO#(DOORNO,) Í SPçëPIì:EPçëPI³"9‹ WALLç î DO#(DOORNO,) æ DO#(DOORNO,) Í SPçëPI:EPçPIì#<þ‘(ÿ…(DO#(DOORNO,)ëSCALE#),ÿ…(DO#(DOORNO,)ëSCALE#ì)),ÿ…(DOORWDTHëSCALE#),,SPë(ê),EPë(ê),€0#ADO#(DOORNO,)çê8#d:Ùk#e‹ WALLç Í °(DEX1#,DEY1#)ê(DEX2#,DEY2#é),,BFž#f‹ WALLç Í °(DEX1#,DEY1#)ê(DEX2#ê,DEY2#),,BFÑ#g‹ WALLç Í °(DEX1#,DEY1#)ê(DEX2#,DEY2#ê),,BF$h‹ WALLç Í °(DEX1#,DEY1#)ê(DEX2#é,DEY2#),,BF$n ¼0$wHINGEDONEç:DOINGDOORç:‰ LH$x‹ WINDNOæ Í ‰ LÆ$yDOINGWINDç:DOINGDOORç:WINDNOçWINDNOé:Ê ,0:‘ "Move the arrow to one end of";: Ê ,0:‘ "the window and press ENTER.";Ö$zXP#ç:YP#çà$|  *%~HINGEDONEç: Ü:WD#(WINDNO,)çXP#ìSCALE#:WD#(WINDNO,)çYP#ìSCALE#ë % ¼:Ê ,0:‘ "Now move the arrow to the";: Ê ,0:‘ "other end of the window.";: Ê ,0:‘ "then press ENTER. ";&‚‹ XP#ç Í þ’ "C0R3L3" :¡ ‹ YP#ç Í þ’ "C0D2U2" :¡ ‹ XP#çWDTH#ëSCALE# Í þ’ "C0L2R2" :¡ þ’ "C0U2D2"E&‰  :WD#(WINDNO,)çXP#ìSCALE#:WD#(WINDNO,)çYP#ìSCALE#ëM&Š:Ùe&‹ Ü:Ê ,2: ¼Ý&ŒX1çÿ…(WD#(WINDNO,)ëSCALE#):Y1çÿ…(WD#(WINDNO,)ëSCALE#ì):X2çÿ…(WD#(WINDNO,)ëSCALE#):Y2çÿ…(WD#(WINDNO,)ëSCALE#ì)'–‹ XP#ç Í °(X1é,Y1)ê(X2é,Y2),:°(X1é,Y1)ê(X2é,Y2),>'—‹ YP#ç Í °(X1,Y1é)ê(X2,Y2é),…'˜‹ XP#çWDTH#ëSCALE# Í °(X1ê,Y1)ê(X2ê,Y2),:°(X1ê,Y1)ê(X2ê,Y2),¹'™‹ YP#çLENGTH#ëSCALE#ì Í °(X1,Y1ê)ê(X2,Y2ê),á'›DOINGWINDç:HINGEDONEç:DOINGDOORçë' ‰ L(Ü‹ PERMFIXNOæ Í ‰ L (æPERMFIXNOçPERMFIXNOé((ë:ÙK(ðÊ ,2:‘ "Is this fixture...";s(òÊ ,2:‘ "1. square or rectangular"‹(ôÊ ,2:‘ "2. round"­(õÊ ,2:‘ "3. a diagonal wall"·(ú r×(ü‹ ÿ”(I$)è ï ÿ”(I$)æ Í õò(þ• ÿ”(I$) ‰ ,,,ú(:Ù…)PF#(PERMFIXNO,)ç: ¼:Ê ,0:‘ "move the arrow to the upper";: Ê ,0:‘ "left corner of the fixture";:Ê ,0:‘ "then press ENTER.";•)XP#ç:YP#çŸ)  ã)
 Ü:PF#(PERMFIXNO,)çXP#ìSCALE#:PF#(PERMFIXNO,)çYP#ìSCALE#ëo* þ’ "r4l4d2u2": ¼:Ê ,0:‘ "Now move the arrow to the lower";: Ê ,0:‘ "right corner of the fixture and";: Ê ,0:‘ "press ENTER. ";+   :PF#(PERMFIXNO,)çXP#ìSCALE#:PF#(PERMFIXNO,)çYP#ìSCALE#ë:°(ÿ…(PF#(PERMFIXNO,)ëSCALE#),ÿ…(PF#(PERMFIXNO,)ëSCALE#ì))ê(ÿ…(XP#),ÿ…(YP#)),,B+
 Ü:Ê ,2"+‰ L*+:Ù½+PF#(PERMFIXNO,)ç: ¼:Ê ,0:‘ "What is the diameter of the";:Ê ,0:‘ "fixture in ";:‹ METRIC Í ‘ "meters? ";: :¡ ‘ "feet and inches? ";Î+Ê ,0: Xé+PF#(PERMFIXNO,)çNUMìy, ¼:Ê ,0:‘ "Move the arrow to the point";:Ê ,0:‘ "where the CENTER of the";:Ê ,0:‘ "fixture will be and press ";:Ê ,0:‘ "ENTER.";ƒ,   õ,"PF#(PERMFIXNO,)çXP#ìSCALE#:PF#(PERMFIXNO,)çYP#ìSCALE#ë: Ü:þ‘(XP#,YP#),PF#(PERMFIXNO,)ëSCALE#,,,,€-$Ê ,0:‰ L-,:Ù‰--PF#(PERMFIXNO,)ç: ¼:Ê ,0:‘ "move the arrow to one end";: Ê ,0:‘ "of the wall and press ";:Ê ,0:‘ "ENTER.";™-.XP#ç:YP#ç£-0  ç-2 Ü:PF#(PERMFIXNO,)çXP#ìSCALE#:PF#(PERMFIXNO,)çYP#ìSCALE#ëI.3þ’ "r1l1": ¼:Ê ,0:‘ "Now move the arrow to the other";: Ê ,0:‘ "end and press ENTER.";ß.4  : PF#(PERMFIXNO,)çXP#ìSCALE#:PF#(PERMFIXNO,)çYP#ìSCALE#ë:°(ÿ…(PF#(PERMFIXNO,)ëSCALE#),ÿ…(PF#(PERMFIXNO,)ëSCALE#ì))ê(ÿ…(XP#),ÿ…(YP#)),ñ.5 Ü:Ê ,2û.6‰ L/@:Ù /A»S/E ¼:Ê ,0:‘ "Are you sure you're finished?";: @:‹ I$èæ"Y" Í L^/FÉ() Ýð/J ¼:‹ RFN$ç"" Í Ê ,0:‘ "What room is this? Use 8";:Ê ,0:‘ "characters or less.";:ALLEN%ç:Ê ,0: % :¡ NTRY$çÿ(RFN$,Ø(RFN$,".")ê)-0K‹ NTRY$ç"" ï Ø(NTRY$," ")èæ Í J :¡ RFN$çNTRY$é".roo";0L• § ‰ O0Nþ„ RFN$ AS RFN$a0Tº "O",#,RFN$p0^‘ #,WDTH#0`‘ #,LENGTH#²0b‘ #,DOORNO:‚ LCVç Ì DOORNO:‚ SUBLOOPç Ì Ð0d ‘ #,DO#(LCV,SUBLOOP)â0fƒ SUBLOOP,LCV1h‘ #,WINDNO:‚ LCVç Ì WINDNO:‚ SUBLOOPç Ì 11j ‘ #,WD#(LCV,SUBLOOP)C1lƒ SUBLOOP,LCVz1n‘ #,PERMFIXNO:‚ LCVç Ì PERMFIXNO:‚ SUBLOOPç Ì ˜1o ‘ #,PF#(LCV,SUBLOOP)ª1pƒ SUBLOOP,LCV¼1q»: r:‰ ôÄ1r:ÙÏ1sÉ() Ýí1t»:º "O",#,"DECOFURN.FRN"62v‚ LCVç Ì FURNNO:‚ SUBLOOPç Ì :‘ #,FU$(LCV,SUBLOOP):ƒ SUBLOOP,LCVZ2Ž»:É() •:• É()  `ê:• § ‰ 0u`2Ž›2:Ù==== specialized error trap for files check =======§2’»:¨ T¸2”‹ Õç5 Í ¨ ƒÆ2–• § ‰ Ð2΍ @Ö2ϐÞ2Ð:Ù 3ÑÀ:Ê ,4:‘ "CREATE OR DELETE FURNITURE";3ÒXç:Yç2: ø*)3Ս ¼‡3ÚÊ ,0:‘ "You have";FURNNO;" pieces of furniture";:Ê ,0:‘ "stored. Do you want to...";³3ÜÊ ,2:‘ "1. Add a piece of furniture."×3ÞÊ ,2:‘ "2. Delete furniture."4àÊ ,2:‘ "3. View a piece of furniture."+4áÊ ,2:‘ "4. Return to main menu."^4âÊ 
,2:‹ RFN$æ"" Í ‘ "5. Return to the room."h4ä rÁ4æ‹ (ÿ”(I$)æ î ÿ”(I$)è) ï (I$ç"5" î RFN$æ"") Í • ÿ”(I$) ‰ 4,ä ,Ä ,ô,Ö :¡ âÉ44:Ùå45º "a",#,"DECOFURN.FRN"ù46FURNNOçFURNNOé59 ¼15>Ê ,2:‘ " ADDING FURNITURE ";\5HÊ ,0:‘ "Is this piece of furniture";{5JÊ ,2:‘ "1. Rectangular";˜5LÊ ,2:‘ "2. Circular.";Ê5R r:‹ I$ç"1" Í ˜ :¡ ‹ I$ç"2" Í ü :¡ L6\‚ SUBLOOPç Ì :‘ #,FU$(FURNNO,SUBLOOP):ƒ SUBLOOP
6^» #6f‰ Õ6˜:Ù26šFU$(FURNNO,)ç"R"86›À¤6¢Ê ,0:‘ "Enter the size of the item";:Ê ,0:‘ "in ";:‹ METRIC Í ‘ "meters."; :¡ ‘ "feet and inches.";÷6¤Ê ,2:‘ "WIDTH: ";: X:‹ NUMæ Í Å:‰ ¤ :¡ FU$(FURNNO,)çÿ“(NUM):FWDTHçNUMM7¦Ê ,2:‘ "LENGTH: ";: X:‹ NUMæ Í Å:‰ ¦ :¡ FU$(FURNNO,)çÿ“(NUM):FLENGTHçNUM§7À°(´êÿ”(FU$(FURNNO,))ëdì,)ê(´éÿ”(FU$(FURNNO,))ëdì,ÿ”(FU$(FURNNO,))ëdì),,B8ÅÊ (FLENGTHë2)ôé,(´êFWDTHë2)ôé:NUMçFWDTH: £:Ê (FLENGTHë)ôé,(´éFWDTHë2)ôé:NUMçFLENGTH: £“8ÊÊ 
,0:‘ "What do you want to call this";:Ê  ,0:‘ "piece of furniture?";:Ê 
,4:ALLEN%ç : %:FU$(FURNNO,)çNTRY$û8Ô‹ NTRY$ç"" ï ÿƒ(NTRY$,,)ç" " Í Ê :¡ Ê (FLENGTHë2)ôé,êÿ’(FU$(FURNNO,))ô:‘ FU$(FURNNO,);9ÕÊ 9Ö‰ \9÷ @ 9ü:Ù69 FU$(FURNNO,)ç"C"<9 À­9 Ê ,0:‘ "Enter the DIAMETER of the ";:Ê ,0:‘ "item in ";:‹ METRIC Í ‘ "meters."; :¡ ‘ "feet and inches.";: Ê ,2:‘ "DIAMETER: ";: X:‹ NUMæ Í Å:‰  :¡ FU$(FURNNO,)çÿ“(NUM):FDIAçNUM):$ þ‘(´,FDIAë),FDIAëdì,,,,€£:. Ê ,0:‘ "What do you want to call this";:Ê ,0:‘ "piece of furniture?";:Ê  ,4:ALLEN%ç : %:FU$(FURNNO,)çNTRY$ß:8 Ê FDIAëìé,ê(ÿ’(FU$(FURNNO,)))ô:‘ FU$(FURNNO,);è:= Ê ò:B ‰ \ú:Ä :Ù";Î Ê ,: ¼: €>:‹ FUWORKç Í Ð(;Ø ÀT;Ù Xçÿ”(FU$(FUWORK,)):Yçÿ”(FU$(FUWORK,))ü;⠋ FU$(FUWORK,)ç"C" Í þ‘(´,ÿ”(FU$(FUWORK,))ë),ÿ”(FU$(FUWORK,))ë2,,,,€ :¡ °(´êÿ”(FU$(FUWORK,))ë2,)ê(´éÿ”(FU$(FUWORK,))ë2,ÿ”(FU$(FUWORK,))ë2),,Bµ<㠋 FU$(FUWORK,)ç"C" Í Ê Xë2ôé,:NUMçX: £:Ê Xë2ôé,êÿ’(FU$(FUWORK,))ô:‘ FU$(FUWORK,); :¡ Ê Yë2ôé,:‘ "WIDTH: ";:NUMçX: £:Ê Yë2ôé,:‘ "LENGTH: ";:NUMçY: £=ä ‹ FU$(FUWORK,)ç"R" Í Ê Yë2ôé,êÿ’(FU$(FUWORK,))ô:‘ FU$(FUWORK,); =ö ‰ Õ=· =¸ :Ù =¹ »,= À: °66=Ì  È2@=Ö  ¼4J=à ‰ LR= :Ù[=& Ê e=+  €>z=, ‹ FUWORKç Í L‰=- Ê : ¼‘=€ :Ù±= ‹ FU$(FUWORK,)èæRFN$ Í Š ¹=‚ :Ù >„ À:FU$(FUWORK,)ç"":RTFUçFUWORK: ¼4:FUWORKçRTFU:FX#çÿ”(FU$(FUWORK,)):FY#çÿ”(FU$(FUWORK,)):‰  >>Š FX#çWDTH#ì:FY#çLENGTH#ì„> ANGLEçÿ”(FU$(FUWORK,)):FWçÿ”(FU$(FUWORK,)):FLçÿ”(FU$(FUWORK,))Í>• ‹ FU$(FUWORK,)ç"R" Í RADIUS çÿ‡((FWì)í é (FLì)í) :¡ RADIUSçFWìî>– A1#çÿŽ((FLì)ì(FWì))ëRADFACý>˜ A2#ç´êA1# ?š A3#ç´éA1#?œ A4#çhêA1#J?ž Ê ,0:‘ " MOVING FURNITURE ";y?  Ê ,0:‘ "Use arrow keys and SHIFT+arrows"¨?¢ Ê ,0:‘ "to move the furniture. "×?¤ Ê ,0:‘ "The + and - keys will rotate "@¦ Ê ,0:‘ "the item around its center. "2@¨ Ê ,0:‘ "Press ENTER to set item down"_@ª Ê 
,0:‘ "and return to the WORK menu."‰@¬ Ê  ,0:‘ "Press ESC to return this "µ@® Ê 
,0:‘ "item to the list and return"×@° Ê ,0:‘ "to the WORK menu."á@㠉 ¬
é@ä :Ùù@î  ¼: €>[Aø Ê ,: ¼:Ê ,0:‘ "Are you sure you want to";:Ê ,0:‘ "delete this furniture? (Y or N)";uA
— SEGç:˜ ,ÿ—( )®A
I$çÞ:‹ I$ç"" Í 
:¡ ‹ I$ç"Y" ï I$ç"y" Í 
:¡ 
ÑA
Ê ,4:‘ "DELETING THIS ITEM";dB
‚ LCVçFUWORK Ì FURNNOê:‚ SUBLOOP ç  Ì :FU$(LCV,SUBLOOP)çFU$(LCVé,SUBLOOP):ƒ SUBLOOP,LCV:FU$(FURNNO,)ç" ":FURNNOçFURNNOê:‰ 
ƒB
Ê ,4:‘ "DELETE ABORTED"; B
‚ DELAYç  Ì è:ƒ DELAY·B*
Ê ,: ¼:‰ Ú¿B¬
:ÙþB­
:Ù========= given a1,a2,a3,a4,radius,angle,fx#,yx# ======(C®
‹ METRIC Í UNIT#ç
×#z :¡ UNIT#ç©P{XC¯
— SEGç:˜ ,ÿ—( ):˜ ,(ÿ—( ) ï @)|C°
‹ METRIC Í UNIT2ç
:¡ UNIT2ç žC±
— SEGç:˜ ,(ÿ—( ) î ß)¬C²
INCçUNIT#;D³
‹ FU$(FUWORK,)ç"R" Í  è :¡ AC1ç(FX#êRADIUS)ëSCALE#ê:AC2ç(FY#êRADIUS)ëSCALE#ìê:AC3ç(FX#éRADIUS)ëSCALE#é:AC4ç(FY#éRADIUS)ëSCALE#ìéOD´
‹ AC1è Í AC1çcDµ
‹ AC2è Í AC2ç{D¶
‹ AC3æ Í AC3ç‘D·
‹ AC4æÇ Í AC4çǟDº
• § ‰ Hq¼D»
þ‰(AC1,AC2)ê(AC3,AC4),PAiEÀ
‹ FU$(FUWORK,)ç"R" Í  < :¡ þ‘(FX#ëSCALE#,FY#ëSCALE#ì),SCALE#ëRADIUS,,,,€:þ’ "BM"éÿ“(ÿ…(FX#ëSCALE#)ê)é","éÿ“(ÿ…(FY#ëSCALE#ì)é)éN$(FUWORKô
)éN$(FUWORK ó 
)wEÁ
• § ‰ 0u‘EÂ
— SEGç:˜ ,ÿ—( )¨EÃ
I$çÞ:‹ I$ç"" Í Ã
¾EÄ
OXç(FX#):OYç(FY#)ÔEÅ
‹ I$çÿ–(
) Í ýEÆ
‹ I$çÿ–() Í þˆ(AC1,AC2),PA,Æ:‰ L(FÈ
‹ I$ç"+" Í ANGLEçANGLEê
ìRADFAC:‰ ò
SFÉ
‹ I$ç"-" Í ANGLEçANGLEé
ìRADFAC:‰ ò
fFÎ
Içÿ•(ÿ‚(I$,))FÒ
‹ IçH Í FY#çFY#êINCžFÔ
‹ Iç8 Í FY#çFY#êINCëUNIT2·FÖ
‹ IçP Í FY#çFY#éINCÖFØ
‹ Iç2 Í FY#çFY#éINCëUNIT2ïFÚ
‹ IçK Í FX#çFX#êINCGÜ
‹ Iç4 Í FX#çFX#êINCëUNIT2'GÞ
‹ IçM Í FX#çFX#éINCFGà
‹ Iç6 Í FX#çFX#éINCëUNIT2[Gò
þˆ(AC1,AC2),PA,ÆeGü
‰ ³
kGsG:ÙÎGFU$(FUWORK,)çRFN$:FU$(FUWORK,)çÿ“(FX#):FU$(FUWORK,)çÿ“(FY#):FU$(FUWORK,)çÿ“(ANGLE)îG$Ä d,:Ä K,:Ä 2,:Ä d,øG.‰ LþGŸH :Ù*Hª‹ METRIC Í METRICç :¡ METRICç4H´‰ ôQH‹ IBMPC Í — SEG:œ Ù, ãHÀ:Ê  ,:Å:‘ "This will take all furniture from all rooms and return it to the list.";:Ê 
,:‘ "Are you sure you want to do this? (Y or N)"ýH— SEGç:˜ ,ÿ—( )gII$çÞ:‹ I$ç"" Í  :¡ ‹ I$ç"Y" ï I$ç"y" Í Ê ,&:‘ "YES";:‰  :¡ Ê ,!:‘ "ACTION ABORTED";:‰ žI‚ LCVç Ì FURNNO:FU$(LCV,)ç"":FU$(LCV,)ç"":ƒ LCVÎIÊ ,:‘ "Moving furniture back to list.";ëI‚ DELAYç  Ì ô:ƒ DELAYõI"‰ ôJh‹ IBMPC Í — SEG:œ Ù, µJr ¼:Ê ,0:‘ "This action will remove all";:Ê ,0:‘ "furniture from this room";:Ê ,0:‘ "and return it to the list.";:Ê ,0:‘ "Are you sure you want to";ÚJtÊ ,0:‘ "do this? (Y or N) ";ôJw— SEGç:˜ ,ÿ—( )QKxI$çÞ:‹ I$ç"Y" ï I$ç"y" Í Ê  ,4:‘ "FURNITURE REMOVED" :¡ ‹ I$ç"N" ï I$ç"n" Í † :¡ x–K|‚ LCVç Ì FURNNO:‹ FU$(LCV,)çRFN$ Í FU$(LCV,)ç"":FU$(LCV,)ç""¦K~ƒ LCV: ¼4°K€‰ ‹ÐK†Ê  ,4:‘ "ACTION ABORTED";L‹‚ DELAYç Ì è:ƒ DELAY:‹ IBMPC Í — SEG:œ Ù,L‰ LLX:Ù*L]ROWçÛ:COLçÿ‘()DLb‹ METRIC Í l :¡ veLlINLEN%ç: (#:NUMçÿ”(NTRY$)oLn‰ Š®Lv‘" '";ÿ–();ÿ–();ÿ–();:INLEN%ç: (#:FEETçÿ”(NTRY$)MxÊ ROW,COLé:‘" "éÿ–(");ÿ–();ÿ–();ÿ–();:INLEN%ç: (#:INCHESçÿ”(NTRY$)MzINCHESçFEETë éINCHES0M|NUMçINCHESë©P{lMŠ‹ NUMç Í Å:Ê ROW,COL:‘ Ö(
," ");:Ê ROW,COL:‰ b :¡ ŽtM£:ÙˆM¤ROWçÛ:COLçÿ‘()«M¨‹ METRIC Í ‘ × "##.###";NUM;:ŽâM­INCHESçNUMëáz†:FEETçINCHESô :INCHESçINCHES ó  N®‘ FEET;ÿ–();"'";INCHES;ÿ–();ÿ–(");" ";N¯Ž N¼:ÙaNÆBOTROWçÛé:‚ CROW ç  Ì BOTROW:Ê CROW,0:‘ Ö(!," ");:ƒ CROWgNÐŽoN :Ù¤N!‹ METRIC Í UNIT#çSCALE#ìd :¡ UNIT#çSCALE#ìáz†ÔN"— SEGç:˜ ,ÿ—( ):˜ ,(ÿ—( ) ï @)øN#‹ METRIC Í UNIT2ç
:¡ UNIT2ç O$— SEGç:˜ ,(ÿ—( ) î ß)>O%ABORTç:° (,:)ê(`,t),,B{O&þ’ "bm500,88m+14,+0m-5,+2m+5,+3m-5,+3m-5,-3m-4,+2m+0,-7"ŸO(INCçUNIT#:— SEGç:˜ ,ÿ—( )ÑO*þ‰(ÿ…(XP#),ÿ…(YP#))ê(ÿ…(XP#é),ÿ…(YP#é)),PA'P+þ’ "bm"éÿ“(ÿ…(XP#))é","éÿ“(ÿ…(YP#))é"m+14,+0m-5,+2m+5,+3m-5,+3m-5,-3m-4,+2m+0,-7">P,I$çÞ:‹ I$ç"" Í ,FP-:ÙsP0‹ I$çÿ–(
) Í þˆ(ÿ…(XP#),ÿ…(YP#)),PA,Æ:Ž†P4Içÿ•(ÿ‚(I$,))´P5OXçÿ…(XP#):OYçÿ…(YP#):‹ DOINGDOOR Í ‰ „áP6‹ IçH Í YP#çYP#êINCì : p:‰ >Q7‹ Iç8 Í YP#çYP#êINCìëUNIT2: p:‰ >;Q8‹ IçP Í YP#çYP#éINCì : p:‰ >hQ9‹ Iç2 Í YP#çYP#éINCìëUNIT2: p:‰ >•Q:‹ IçK Í XP#çXP#êINC:  z:‰ >ÂQ;‹ Iç4 Í XP#çXP#êINCëUNIT2 : z:‰ >ïQ<‹ IçM Í XP#çXP#éINC : z:‰ >R=‹ Iç6 Í XP#çXP#éINCëUNIT2 : zR>:Ù8R?‹ XP#è Í XP#ç: zhR@‹ XP#æWDTH#ëSCALE# Í XP#çWDTH#ëSCALE#: z‚RB‹ YP#è Í YP#ç: pºRD‹ YP#æLENGTH#ëSCALE#ì Í YP#çLENGTH#ëSCALE#ì: pÍRQþˆ(OX,OY),PA,Æ×RR‰ (ßRp:ÙSqÊ ,<:NUMçYP#ìSCALE#ë: £0SrÊ ,<:NUMç(LENGTH#)ê(YP#ìSCALE#ë): £6StŽ>Sz:Ù_S{Ê  ,4:NUMçXP#ìSCALE#: £ŠS|Ê  ,D:NUMç(WDTH#)ê(XP#ìSCALE#): £S~Ž–SƒžS„:ÙèSš‹ IçH î (XP#ç ï XP#çWDTH#ëSCALE#) Í YP#çYP#êINCì : p:‰ ¢2T›‹ Iç8 î (XP#ç ï XP#çWDTH#ëSCALE#) Í YP#çYP#êINCìëUNIT2: p:‰ ¢|Tœ‹ IçP î (XP#ç ï XP#çSCALE#ëWDTH#) Í YP#çYP#éINCì : p:‰ ¢ÆT‹ Iç2 î (XP#ç ï XP#çSCALE#ëWDTH#) Í YP#çYP#éINCìëUNIT2: p:‰ ¢Už‹ IçK î (YP#ç ï YP#çLENGTH#ëSCALE#ì) Í XP#çXP#êINC:  z:‰ ¢bUŸ‹ Iç4 î (YP#ç ï YP#çLENGTH#ëSCALE#ì) Í XP#çXP#êINCëUNIT2:  z:‰ ¢°U ‹ IçM î (YP#ç ï YP#çLENGTH#ëSCALE#ì) Í XP#çXP#éINC : z:‰ ¢þU¡‹ Iç6 î (YP#ç ï YP#çLENGTH#ëSCALE#ì) Í XP#çXP#éINCëUNIT2 : z:‰ ¢V¢‹ HINGEDONE Í ¤ :¡ ¬£V¤‹ DOINGWINDç Í DW1#çÿ†(DO#(DOORNO,)êXP#ìSCALE#):DW2#çÿ†(DO#(DOORNO,)êYP#ìSCALE#ë):‹ DW1#æDW2# Í DOORWDTHçDW1# :¡ DOORWDTHçDW2#*W¥‹ DOINGWINDç Í DW1#çÿ†(WD#(WINDNO,)êXP#ìSCALE#):DW2#çÿ†(WD#(WINDNO,)êYP#ìSCALE#ë):‹ DW1#æDW2# Í DOORWDTHçDW1# :¡ DOORWDTHçDW2#oW¦Ê ,5:‹ DOINGWINDç Í ‘ "DOOR WIDTH ="; :¡ ‘ "WINDOW WIDTH =";†W¨NUMçDOORWDTH: £W¬‰ >˜Wè:ÙéWòX1ç(FX#éRADIUSëÿŒ(ANGLEéA1#ìRADFAC)): Y1ç(FY#êRADIUSëÿ‰(ANGLEéA1#ìRADFAC)):XüX2ç(FX#éRADIUSëÿŒ(ANGLEéA2#ìRADFAC)): Y2ç(FY#êRADIUSëÿ‰(ANGLEéA2#ìRADFAC))‹XX3ç(FX#éRADIUSëÿŒ(ANGLEéA3#ìRADFAC)): Y3ç(FY#êRADIUSëÿ‰(ANGLEéA3#ìRADFAC))ÜXX4ç(FX#éRADIUSëÿŒ(ANGLEéA4#ìRADFAC)): Y4ç(FY#êRADIUSëÿ‰(ANGLEéA4#ìRADFAC))øX$AC1çX1:‹ X2èX1 Í AC1çX2Y%‹ X3èAC1 Í AC1çX3$Y&‹ X4èAC1 Í AC1çX49Y'AC1çAC1ëSCALE#êcY(‹ FX#êAC1èìSCALE# Í AC1çAC1êìSCALE#€Y3AC2çY1:‹ Y2èAC2 Í AC2çY2–Y4‹ Y3èAC2 Í AC2çY3¬Y5‹ Y4èAC2 Í AC2çY4ÖY6‹ FY#êAC2èìSCALE# Í AC2çAC2êìSCALE#íY7AC2çAC2ëSCALE#ìêZ8AC3ç(FX#ëSCALE#êAC1)éFX#ëSCALE#9Z:AC4ç(FY#ëSCALE#ìêAC2)éFY#ëSCALE#ì?Z;ŽGZ<:Ù~Z=°(X1ëSCALE#,Y1ëSCALE#ì)ê(X2ëSCALE#,Y2ëSCALE#ì),µZ>°(X2ëSCALE#,Y2ëSCALE#ì)ê(X3ëSCALE#,Y3ëSCALE#ì),ìZ?°(X3ëSCALE#,Y3ëSCALE#ì)ê(X4ëSCALE#,Y4ëSCALE#ì),#[@°(X4ëSCALE#,Y4ëSCALE#ì)ê(X1ëSCALE#,Y1ëSCALE#ì),}[Bþ’ "BM"éÿ“(ÿ…(FX#ëSCALE#)ê)é","éÿ“(ÿ…(FY#ëSCALE#ì)é)éN$(FUWORKô
)éN$(FUWORK ó 
)ƒ[KŽ‹[x:Ù|\zN$()ç"R3U4L3D4BR7":N$()ç"U4D4BR4":N$()ç"BU4R3D2L3D2R3BR4":N$()ç"BU4D2R2U1D1R1L1D2BR5":N$()ç"R3U2L3U2R3BD4BR4":N$()ç"U4D4U2R3D2L3BR7":N$()ç"R3U2L2R2U2L3R3D4BR4":N$()ç"BU4R3D4BR4":N$()ç"U2R3L3U2R3D4L3BR7":N$()ç"BR3U4L3D2R3D2BR4"‚\‚ŽŠ\Ü:Ù–\áþ“ "MB"Ä\æ‚ TONEçè Ì L Ï :Ä TONE,ÍÌL~:ƒ TONEÊ\ëŽÒ\6:Ù
]@:Ù********** pause until keypress ***************$]J— SEGç:˜ ,ÿ—( );]^I$çÞ:‹ I$ç"" Í ^j]_‹ ÿ•(I$)è{ î ÿ•(I$)æ` Í I$çÿ–(ÿ•(I$)ê )ƒ]`Ä ô,
×#{:Ä d,:Ž²]r:Ù********** wait for selection *********Ì]w— SEGç:˜ ,ÿ—( )^|Ê Ûé,0:‘ "Press selection to continue,";:Ê Ûé,0:‘ "or F8 to exit.";E^I$çÞ:‹ I$ç"" Í ^ :¡ Ä ô,\€:Ä d,t^‚‹ ÿ•(I$)æ` î ÿ•(I$)è{ Í I$çÿ–(ÿ•(I$)ê )z^ƒŽ€^£ˆ^(#:ÙÈ^-#:Ù* NUMERIC INPUT ROUTINE *_2#:Ù********************************************************A_7#‘ Ö(INLEN%,ÿ–(#));:‚ AZXç Ì INLEN%:‘ ÿ–();:ƒ AZXa_<#— ÑO.DECIMALçØ(NTRY$,".")çn_A#NTRY$ç""—_F#KK$çÞ: ‹ KK$ç"" Í F# :¡ KK%çÿ•(KK$)Ê_K#‹ KK%ç
Í ‰ ‡# :ÙEnd of entryú_P#‹ KK%ç Í ‰ n# :ÙBackspace;`U#‹ KK%ç- î ÿ’(NTRY$)ç î INLEN%æ Í ‘ KK$;: NTRY$çKK$: ‰ d#v`Z#‹ KK%ç. î ÑO.DECIMAL Í ‘ KK$;: NTRY$çNTRY$éKK$: ‰ d#§`_#‹ KK%æ/ î KK%è: Í ‘ KK$;:NTRY$çNTRY$ é KK$Ä`d#‹ ÿ’(NTRY$)çINLEN% Í ‡#ai#‰ F# :ÙGet another characteran#:Ù**** BackspaceXas#‹ ÿ’(NTRY$)ç Í F# :ÙNot if entry is emptyŠax#‘ ÿ–(); ÿ–(#); ÿ–(); :ÙRedisplay boxËa}#NTRY$çÿ(NTRY$,ÿ’(NTRY$)ê) :ÙDelete last characterb‚#‰ F# :ÙGet next character%b‡#‘ ÿ˜(INLEN% ê ÿ’(NTRY$))+bŒ#Ž3b%:Ùrb!%:Ù* ALPHABETIC INPUT ROUTINE *zb&%:Ùºb+%Ê ,,:‘ Ö(ALLEN%,ÿ–(_));:‚ AZXç  Ì ALLEN%:‘ ÿ–();:ƒ AZXÇb0%NTRY$ç""áb5%KK$çÞ: ‹ KK$ç"" Í 5%c6%KK%çÿ•(KK$): ‹ ÿ’(KK$)æ î ÿ‚(KK$,)çÿ–(K) Í S%Fc7%‹ KK%æ` î KK%è{ Í KK%çKK%ê :KK$çÿ–(KK%)zc:%‹ KK%ç
Í ‰ l% :ÙEnd of entry«c?%‹ KK%ç Í ‰ S% :ÙBackspace?dD%‹ (KK%æ/ î KK%è:) ï (KK%æ@ î KK%è[) ï KK%ç Í ‘ KK$;: NTRY$çNTRY$éKK$ :ÙEcho keystroke and add to entrysdI%‹ ÿ’(NTRY$) ç ALLEN% Í l% :ÙEntry full´dN%‰ 5% :ÙGet another characterÊdS%:Ù**** Backspace eX%‹ ÿ’(NTRY$)ç Í 5% :ÙNot if entry is empty8e]%‘ ÿ–();Ö(,_);ÿ–(); :ÙRedisplay boxzeb%NTRY$çÿ(NTRY$,ÿ’(NTRY$)ê) :ÙDelete last character¸eg%‰ 5% :ÙGet next characterÜel%Ê ,,:‘ ÿ˜(ALLEN% ê ÿ’(NTRY$));âeq%Žf'‹ IBMPC Í — SEGç:œ Ù,f'Xç´:Yç: ø*f'Xç‘&f'Yç‚6f' ':‰  (Rf'þ‘(XéŒ,Y),,,,,€}f$'þ‘(XéŒ,Y), ,,,,€:þ(Xé,Y),,ft'þ‰(XéŒê,Yê)ê(XéŒ,Y),UL½f~'þ‰(XéŒê,Y)ê(XéŒ,Yé),LLÝfˆ'þ‰(XéŒ,Yê)ê(XéŒé,Y),URýf’'þ‰(XéŒ,Y)ê(XéŒé,Yé),LR#gØ'þˆ(Xéd,Yê),UL,Æ:þˆ(Xéd,Y),LL,ÆJgâ'þˆ(XéI,Yê),UL,Æ :þˆ(XéI,Y),LL,Ɓgì'þ‰(XéŒê,Yê)ê(XéŒé,Yé),PA:þˆ(Xé,Yê),PA,Ɨgö'þˆ(Xé¥,Yê),UL,Æ­g(þˆ(Xé¾,Yê),PA,ÆÎg<(°(Xéê,Yê)ê(Xéî,Yé),,BFägF(þˆ(Xéÿ,Yê),PA,ÆûgP(þˆ(Xé',Yê),UL,ÆhZ(þ‰(Xéæ,Y)ê(Xéð,Yé),PA,h\(þˆ(XéÖ,Y),PA,Æ@h^(þˆ(Xé¡,Y),PA,ÆUh_(þˆ(Xé#,Y),PA,Æsh`(þ‰(Xéæ,Yê)ê(Xéð,Y),PAŠhb(þˆ(Xé6,Yê),PA,ƞhd(þˆ(Xéê,Y),LL,ƾhn(°(Xéê,Yê)ê(Xéú,Yê),,BFÝhp(þ‰(Xéê,Yê)ê(Xéú,Yê),PAóhr(þˆ(XéI,Yê),PA,Æùhx(Ži (Ê Yôé,(Xé´)ôê(iª(Ê Yôé,(Xé´)ôê
?i´(Ê Yìé,(Xé´)ôê`i)þ‰(Xé,šê)ê(Xé8,»),PA‚i):ÙLINE(140,65)-(490,130),1,B¼ih)— SEG:‚ DELAY ç  Ì " :‹ IBMPC Í œ Ù,DELAY ô … éËir)‹ Þç"" Í ƒÓi|)À:ŽÙi÷*Žáiø*:Ù>j+°(Xéi,BéY)ê(XéÀ,IéY),:°ê(XéÀ,OéY),:°ê(XéÈ,PéY),:°ê(XéÈ,
éY),:°ê(Xé,éY),Zj +°(Xé,éY)ê(Xé,<éY),Àj+° ê(Xé,=éY),:°ê(Xé,éY),:° ê(Xéd,éY),:° ê(Xéd,FéY),:°ê(Xéi,GéY),:° ê(Xéi,BéY),Ok+°(XéÈ,PéY)ê(XéÐ,NéY),:°ê(XéÐ,HéY),:°ê(Xé ,<éY),:°ê(Xé ,?éY),:°ê(Xé,>éY),:°ê(Xé,éY),:°ê(Xéj,éY),:°ê(Xé,éY),àk+°(XéÈ,
éY)ê(Xé,éY),:°(Xé,=éY)ê(Xé
,<éY),:°ê(Xé
,éY),:°(Xéi,GéY)ê(Xéo,FéY),:°ê(Xéo,DéY),:°(Xé ,?éY)ê(Xé,=éY),/l +°(Xék,éY)ê(Xék,)éY),:°ê(XéÂ,.éY),:°ê(XéÂ,éY),:°ê(Xék,éY),~l%+°(Xék,,éY)ê(Xék,@éY),:°ê(XéÂ,FéY),:°ê(XéÂ,1éY),:°ê(Xék,,éY),l*+°(XéŒ,éY)ê(Xé›,éY),¼l/+°(XéŒ,4éY)ê(Xé›,5éY), m4+°(XéZ,éY)ê(XéZ,/éY),:°ê(Xé],0éY),:°ê(Xé`,/éY),:°ê(Xé`,éY),8m9+°(Xé,éY)ê(XéÈ,éY),:°ê(Xé,éY),Cm>+Ê  ,ImR+ŽQmà.:ÙÐmå.°(Xé,éY)ê(Xéx,
éY),:°ê(Xé@,éY),:°(Xéx,
éY)ê(Xéx,QéY),:°(Xé,,eéY)ê(Xé@,féY),:°(Xé,héY)ê(Xék,\éY),nê.°(Xé
,éY)ê(Xé<,éY),:°ê(Xé<,FéY),:°ê(Xé
,IéY),:°ê(Xé
,éY),Ynï.°(Xé#,éY)ê(Xé#,HéY),:°(Xé
,/éY)ê(Xé<,-éY),¨nô.°(Xék,déY)ê(Xék,SéY),:°ê(Xéu,TéY),:°ê(Xéu,[éY),:°ê(Xéì,aéY),ìnù.°ê(Xéì,XéY),:°ê(Xéú,YéY),:°ê(Xéú,néY),:°ê(Xék,déY),Ooþ.°(Xéú,néY)ê(Xé,,déY),:°ê(Xé,,FéY),:°ê(Xé,HéY),:°ê(Xé,UéY),:°ê(Xéú,YéY),€o/°(Xéì,XéY)ê(Xé,TéY),:°ê(Xé,UéY), o/°(Xé“,BéY)ê(Xé,HéY),ðo
/°(Xék,SéY)ê(Xé“,NéY),:°ê(Xé“,BéY),:°ê(Xé ,AéY),:°ê(Xé,,FéY),p/°(Xéu,[éY)ê(Xéš,VéY),:°ê(Xéì,ZéY),Np/°(Xéu,TéY)ê(Xéš,OéY),:°ê(Xé“,NéY),mp/°(Xéš,OéY)ê(Xéš,VéY),¼p!/°(Xé ,SéY)ê(Xé<,NéY),:°ê(XéT,PéY),:°ê(Xé#,UéY),:°ê(Xé ,SéY),ûp&/°(Xé ,UéY)ê(Xé#,WéY),:°ê(XéT,RéY),:°ê(XéT,PéY),Eq+/°(Xé#,WéY)ê(Xé#,UéY),:°(Xé ,UéY)ê(Xé ,SéY),:°ê(Xé ,féY),šq0/°(Xé#,WéY)ê(Xé#,iéY),:°(XéT,PéY)ê(XéT,céY),:°(Xé<,TéY)ê(Xé<,aéY), q5/Ž¨qÈ2:Ù®qÉ2»ØqÊ2Ê ,:‘ " Loading room info... ";äqÍ2RFN$çF$öqÒ2º "I",#,RFN$r×2… #, WDTH#rÜ2… #, LENGTH#Mræ2… #, DOORNO:‚ LCVç  Ì DOORNO:‚ SUBLOOP ç  Ì hrè2… #, DO#(LCV,SUBLOOP)zrê2ƒ SUBLOOP,LCV¯rð2… #, WINDNO:‚ LCVç  Ì WINDNO:‚ SUBLOOP ç  Ì Êrò2… #, WD#(LCV,SUBLOOP)Ürô2ƒ SUBLOOP,LCVsú2… #, PERMFIXNO:‚ LCVç Ì PERMFIXNO:‚ SUBLOOP ç  Ì 1sü2… #, PF#(LCV,SUBLOOP)Csþ2ƒ SUBLOOP,LCVIs3ŽQs¼4:Ùss¾4È :À:‹ IBMPC Í — SEG:œ Ù,’s¿4Ê ,6:‘ "Drawing room..."ÏsÅ4‹ WDTH#æLENGTH# Í SCALE#çhìWDTH# :¡ SCALE#çhìLENGTH#tÆ4°(,)ê(ÿ…(WDTH#ëSCALE#),ÿ…(LENGTH#ëSCALE#ì)),,BAtÇ4°(,)ê(ÿ…(WDTH#ëSCALE#)ê,ÿ…(LENGTH#ëSCALE#ì)ê),,B|tÈ4°(,)ê(ÿ…(WDTH#ëSCALE#)ê,ÿ…(LENGTH#ëSCALE#ì)ê),,BätÐ4Ê ,WDTH#ëSCALE#ôé:NUMçLENGTH#: £:Ê (LENGTH#ëSCALE#ì)ôé,(WDTH#ëSCALE#ì)ô:NUMçWDTH#: £uî4:Ù====== DRAW DOORS =========uð4‚ LCVç Ì DOORNO„uñ4DEX1#çDO#(LCV,)ëSCALE#:DEY1#çDO#(LCV,)ëSCALE#ì:DEX2#çDO#(LCV,)ëSCALE#:DEY2#çDO#(LCV,)ëSCALE#ìúuò4Æ(ÿ…(SCALE#ëDO#(LCV,)),ÿ…(SCALE#ëDO#(LCV,)ì)),:‹ DO#(LCV,)ç ï DO#(LCV,)ç Í þ’ "D4U4R8L8" :¡ þ’ "U4D4L8R8"pvó4Æ(ÿ…(SCALE#ëDO#(LCV,)),ÿ…(SCALE#ëDO#(LCV,)ì)),:‹ DO#(LCV,)ç ï DO#(LCV,)ç Í þ’ "D4U4R8L8" :¡ þ’ "U4D4L8R8"¢vô4XP#çSCALE#ëDO#(LCV,):YP#çDO#(LCV,)ëSCALE#ì·vö4‹ XP#ç Í WALLçÌvø4‹ YP#ç Í WALLçìvú4‹ XP#çWDTH#ëSCALE# Í WALLçwü4‹ YP#çLENGTH#ëSCALE#ì Í WALLç)wþ4‹ DO#(LCV,)ç Í 5jw5‹ WALLç î DO#(LCV ,) è DO#(LCV ,) Í SPçëPIì:EPçëPI©w5‹ WALLç î DO#(LCV ,) æ DO#(LCV ,) Í SPçPI:EPçëPIìèw5‹ WALLç î DO#(LCV ,) è DO#(LCV ,) Í SPçPI:EPçëPIì%x5‹ WALLç î DO#(LCV ,) æ DO#(LCV ,) Í SPçPIì:EPçPIdx5‹ WALLç î DO#(LCV ,) è DO#(LCV ,) Í SPçëPI:EPçPIì¡x 5‹ WALLç î DO#(LCV ,) æ DO#(LCV ,) Í SPçPIì:EPçPIâx
5‹ WALLç î DO#(LCV ,) è DO#(LCV ,) Í SPçëPIì:EPçëPI!y 5‹ WALLç î DO#(LCV ,) æ DO#(LCV ,) Í SPçëPI:EPçPIì„y 5W1çÿ†(DO#(LCV,)êDO#(LCV,)):W2çÿ†(DO#(LCV,)êDO#(LCV,)):‹ W1æW2 Í DOORWDTHçW1 :¡ DOORWDTHçW2æy5þ‘(ÿ…(DO#(LCV,)ëSCALE#),ÿ…(DO#(LCV,)ëSCALE#ì)),ÿ…(DOORWDTHëSCALE#),,SPë(ê),EPë(ê),€z5‹ WALLç Í °(DEX1#,DEY1#)ê(DEX2#,DEY2#é),,BFLz5‹ WALLç Í °(DEX1#,DEY1#)ê(DEX2#ê,DEY2#),,BFz5‹ WALLç Í °(DEX1#,DEY1#)ê(DEX2#,DEY2#ê),,BF²z5‹ WALLç Í °(DEX1#,DEY1#)ê(DEX2#é,DEY2#),,BF¼z5ƒ LCVÄz 5:ÙÙz*5‚ LCVç Ì WINDNO {/5XP#çWD#(LCV,)ëSCALE#:YP#çWD#(LCV,)ëSCALE#ìw{15X1çÿ…(WD#(LCV,)ëSCALE#):Y1çÿ…(WD#(LCV,)ëSCALE#ì):X2çÿ…(WD#(LCV,)ëSCALE#):Y2çÿ…(WD#(LCV,)ëSCALE#ì)³{35‹ XP#ç Í °(X1é,Y1)ê(X2é,Y2),:°(X1é,Y1)ê(X2é,Y2),Ø{55‹ YP#ç Í °(X1,Y1é)ê(X2,Y2é),|75‹ XP#çWDTH#ëSCALE# Í °(X1ê,Y1)ê(X2ê,Y2),:°(X1ê,Y1)ê(X2ê,Y2),S|95‹ YP#çLENGTH#ëSCALE#ì Í °(X1,Y1ê)ê(X2,Y2ê),]|;5ƒ LCVŸ|„5:Ù========= PUT PERMANENT FIXTURES ON SCREEN ===============¸|Ž5‚ LCVç  Ì PERMFIXNO×|“5• PF#(LCV,)  ¶5,è5,6á|˜5ƒ LCV}5 L6:Ê ,6:‘ Ö(," ");:Ž3}¶5:Ù=========== DRAW RECTANGLE FIXTURE =======œ}¸5°(ÿ…(SCALE#ëPF#(LCV,)),ÿ…(PF#(LCV,)ëSCALE#ì))ê(ÿ…(PF#(LCV,)ëSCALE#),ÿ…(PF#(LCV,)ëSCALE#ì)),,B¢}À5ŽÕ}è5:Ù======== DRAW CIRCULAR FIXTURE ============+~ò5þ‘(ÿ…(PF#(LCV,)ëSCALE#),ÿ…(PF#(LCV,)ëSCALE#ì)),ÿ…(PF#(LCV,)ëSCALE#),,,,€1~ü5Ž`~6:Ù======== DRAW DIAGONAL WALL ===========Ç~6°(ÿ…(SCALE#ëPF#(LCV,)),ÿ…(PF#(LCV,)ëSCALE#ì))ê(ÿ…(PF#(LCV,)ëSCALE#),ÿ…(PF#(LCV,)ëSCALE#ì)),Í~$6ŽÕ~L6:ÙV6‚ FUWORKç  Ì FURNNO:‹ FU$(FUWORK,)çRFN$ Í `6 :¡ ¦6>`6FWçÿ”(FU$(FUWORK,)):FLçÿ”(FU$(FUWORK,))‡a6‹ FU$(FUWORK,)ç"R" Í RADIUS çÿ‡((FWì)í é (FLì)í) :¡ RADIUSçFWì¨b6A1#çÿŽ((FLì)ì(FWì))ëRADFAC·d6A2#ç´êA1#Æf6A3#ç´éA1#Öh6A4#çhêA1#€i6FX#çÿ”(FU$(FUWORK,)):FY#çÿ”(FU$(FUWORK,)):ANGLEçÿ”(FU$(FUWORK,))рj6‹ FU$(FUWORK,)ç"R" Í  è: < :¡ þ‘(FX#ëSCALE#,FY#ëSCALE#ì),SCALE#ëRADIUS,,,,€:þ’ "BM"éÿ“(ÿ…(FX#ëSCALE#)ê)é","éÿ“(ÿ…(FY#ëSCALE#ì)é)éN$(FUWORKô
)éN$(FUWORK ó 
)ހ¦6ƒ FUWORK䀯6Žì€°6:Ùý€µ6È ,,:  Pº6• É()  `êÄ6 ˜:8É6‹ FI.CO ç Í F$çFI.FI$():ŽDÎ6¿ ,:À]Ø6BASELOCç ê(FI.COô)·ö6‚ SELECTION ç  Ì FI.CO:Ê BASELOCéSELECTION,!:‘ ÿ(FI.FI$(SELECTION),);:ƒ SELECTION‚7Ê BASELOCéFI.COé,:¿ ,:‘ "Use ";ÿ–();" and ";ÿ–();" to select."1‚
7Ê ,:‘ "Press ";ÿ–();"ÄÙ to continue."Z‚7Ê ,:‘ "F8 will exit this program."h‚7POINTERç ‚(7Ê BASELOCéPOINTER,!:¿ ,:‘ ÿ(FI.FI$(POINTER),);º‚27— SEGç:˜ ,ÿ—( )á‚<7I$çÞ:‹ ÿ’(I$)è î I$èæÿ–(
) Í <7ƒF7‹ I$çÿ–(
) Í F$çFI.FI$(POINTER):¿ ,:È :ŽJƒP7Ê BASELOCéPOINTER,!:¿ ,:‘ ÿ(FI.FI$(POINTER),);]ƒZ7Içÿ•(ÿ‚(I$,))ˆƒd7‹ IçH î POINTERæ Í POINTERçPOINTERê·ƒn7‹ IçP î POINTERèFI.CO Í POINTERçPOINTERéïƒx7Ê BASELOCéPOINTER,!:¿ ,:‘ ÿ(FI.FI$(POINTER),);ùƒ‚7‰ <7 „9À:È :Ž ô„˜::ÙC„¢:À:Ê ,:¿ ,:‘ " Examining directory... ";O„£:FI.COç[„¬:Ê ,,i„­:• § ‰ `;~„¶:¿ ,:þ "*.ROO"Œ„¸:• § ‰ 0u˜„À:FI.LAçÛ°„Ê:‚ FI.ROç Ì FI.LAêʄÔ:‚ FI.NAç Ì ë Ï \…Þ:‹ È(FI.RO,FI.NA)èæÈ(,F) Í FI.COçFI.COé:FI.FI$(FI.CO)ç"":‚ FI.Pç Ì  :FI.FI$(FI.CO)çFI.FI$(FI.CO)éÿ–(È(FI.RO,FI.NAêéFI.P)):ƒ FI.P: :¡ ò:n…è:ƒ FI.NA,FI.ROµ…ò:FI.RO$ç"":‚ FI.CLç Ì :FI.RO$çFI.RO$éÿ–(È(FI.LAê,FI.CL)):ƒ FI.CL¿…ü:¿ ,Ņ;Žß…`;È :À:• § ‰ 0u:¨ ô煀>:Ù†…>Ê ,0:‘ " SELECT FURNITURE ";Š††>Ê ,0:‘ "Use arrow keys to select item.";:Ê ,0:‘ "Press ENTER to continue.";:Ê ,0:‘ "ESC will abort.";“†Š>PG粆ä>:ÙLOCATE 17,50:GOSUB 7100"‡î>‚ LCVç  Ì :Ê éLCV,0:‘ PGëéLCV;FU$(PGëéLCV,);:Ê éLCV,@:‘ PGëéLCVé;FU$(PGëéLCVé,);:ƒ LCV0‡ø>POINTERçh‡H?‹ POINTER æ Í Ê éPOINTERê,@ :¡ Ê éPOINTER,0z‡R?‘ ">";ÿ–();‘‡¬?I$çÞ:‹ I$ç"" Í ¬?¾‡¶?‹ I$çÿ–(
) Í FUWORKçPGëéPOINTER:‰ B߇¸?‹ I$çÿ–() Í FUWORKç:‰ Bô‡À?‹ ÿ’(I$)è Í ¬?ˆÂ?‘ " ";ÿ–();ˆÄ?Içÿ•(ÿ‚(I$,))DˆÊ?‹ IçH î POINTERæ Í POINTERçPOINTERꍈÌ?‹ IçP î FU$(éPOINTERéëPG,)èæ"" î POINTERè Í POINTERçPOINTERéȈÎ?‹ IçM î POINTERééëPGèçFURNNO Í POINTERçPOINTERéõˆÐ?‹ IçK î POINTERæ Í POINTERçPOINTERê$‰Ô?‹ IçI î PGæ Í PGçPGê:Ê ,: ¼:‰ ä>]‰Ö?‹ IçQ î PGèFURNNOôé Í PGçPGé:Ê ,: ¼:‰ ä>g‰Þ?‰ H?u‰BÊ ,0:Ž‰gB @:‡‰NŽ‰`m:Ù\ŠjmÀ:Ê  , :‘ "This program uses the graphics card. If you do not have":Ê 
, :‘ "graphics capabilities, proceeding past this screen may create":Ê , :‘ "errors. Press F8 to exit or C to continue."vŠtm— SEGç:˜ ,ÿ—( )žŠ~mI$çÞ:‹ I$èæ"C" î I$èæ"c" Í ~m :¡ ŽÙŠHq:Ù========== graphic function call errors ===========‹Rq‹ Õç Í FX#çWDTH#ì:FY#çLENGTH#ì:Å:¨ ³
@‹0u:Ù========== SPECIALIZED ERROR TRAPPING ===========z‹@œ:Ù========== ERROR TRAPPING ROUTINE ================€‹Eœ»Ô‹Jœ‹ Õç ï Õç ï Õç ï ÕçD Í MSG$ç"ARE YOU SURE THE PRINTER IS READY?": PÃ:¨ŒTœ‹ ÕçG ï ÕçF Í MSG$ç"ARE YOU SURE THE DISK IS READY?": PÃ:»:¨'ŒÄŸ• § ‰ [ŒPÃ:Ù========= display msg routine ==============mŒZÃSM.Lçÿ’(MSG$)ƒŒdÃSM.ST$ç"":SM.OC盌nÃSM.CLçÿ‘():SM.RWçÛ¡ŒxÃŹŒ‚ÃSM.SLç(ê(SM.Lôé)یŒÃ‚ SM.LCVçSM.SL Ì SM.SLéSM.LéôŒ–ÃSM.NCçÈ( ,SM.LCV,)4 Ã‹ SM.NCèæSM.OC Í SM.ST$çSM.ST$éÿ–(ÿ)éÿ–(SM.NC):SM.OCçSM.NCWªÃSM.ST$çSM.ST$éÿ–(È( ,SM.LCV))d´Ãƒ SM.LCVz¾ÃÊ  ,(:‘ ÿ–(Û);¿ÈÃSM.VçÈ( ,(,):SM.RFç(SM.V ó ):SM.RBç(((SM.VêSM.RF)ì) ó €)ʍÒÿ ,êÜÃÊ  ,SM.SLé:‘ " ";MSG$;" "ŽæÃSM.I$çÞ:‹ SM.I$ç"" Í æÃŽðÃSM.SPç"ŽúÃÊ  ,SM.SL4ŽÄ¿ SM.RF,SM.RBPŽĂ SM.LCVç Ì ÿ’(SM.ST$)܎ċ ÿƒ(SM.ST$,SM.LCV,)çÿ–(ÿ) Í SM.Vçÿ•(ÿƒ(SM.ST$,SM.LCVé,)):SM.Fç(SM.V ó ):SM.Bç(((SM.VêSM.F)ì) ó €):¿ SM.F,SM.B:SM.LCVçSM.LCVé÷Ž"đ ÿƒ(SM.ST$,SM.LCV,);,ă SM.LCV$6ÄÊ SM.RW,SM.CL:¿ SM.RF,SM.RB*@Ďe`ê:Ù======= RESAVE FURNITURE AND CLOSE FILES ==========kaêÅweê r:»òý»:È :   P: ¿ ,÷ý• § ‰ üý‹ ADDR.%èæ Í Ê ,,: ‘ ÿ˜()äþÀ: Ê  ,#: ‘"Good-bye!": ¿ êþ

  3 Responses to “Category : A Collection of Games for DOS and Windows
Archive   : DECORATE.ZIP
Filename : DECORATE.BAS

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/