))HPOSBYTEFUNCPLPKPLSZHPOSREADDPMBASPPPPBEGPSTPPRELFLILGTWFWIWDTXXXXYYYYBYTVALUVPOHHPOPPHIGLOOJOCCXPOYPOXSIZCHXROUDDSEYSIZHIBIMINMINMAXMAX@@@  !"#$%&'()*+,-./0123456789:;<=>?@ABC33"Interior Decorating"VERSION 4.1 BY J.C.PETTYjjThis program was written to aid people who are in the throws of movingand could use some assistance. ooBetter documentation for this program should follow shortly. In the meantime, any questions/suggestionsmmshould be directed to J.C.Petty at 463-6904. This program was uploadedto the S.T.A.T.U.S. BBS 24 MAR 85p<9@,;@,;@,9@,9@,H6-B2H\6-AV$@f B p B o +@@10@K0@@@_-AAk@`o J6-F:A,&@@&BBy8AY@XJB2w@#'-B2VB2Y#@' (m6-$AV%A$/6-$AV%AE6-$AV%A6[6-$AV%AmA#@- 6-6-%A$2i(@>:A%,:(ENTER LENGTH OF ROOM IN FEETO(轲[6-@Pe A i7-!@&) # A@- @P<K$(ENTER EXTRA INCHES OF LENGTH;(栱G6-@`K>-!@) # A@- @`A-!*!@%# A@- @PFC6-$@%+(ENTER WIDTH IN FEET?(轱CK-!@) # A@- @pPJ#(ENTER EXTRA INCHES OF WIDTH:(栱F6-@JR-!@) # A@- @U-!*!@# A@- @pZu6-+$@%,$?56-+A &,'@;6-C6-%I6-a6-+A`&,'@g6-o6-%u6-_! ,///!/dq,&@&@//%@&@E/%@%@[/&@%@q/&@&@iq,&@&@//%@&@E/%@%@[/&@%@q/&@&@n A%sCONV BYTE$ TO BYTExl6-!6-@:7@,,+ A@=6-@:7@,,G A@i2l$}CLR PLYRS@--+$AV,%A$$AV%A G9= @$CONV ASCII TO HEX' @X'6-$@%&@H'!@W'6-$@%&@U"2@@"$USR VPOS DOWNX6-%@"6-?:A6<,36-?:A6<,D6-?:A6<,U6-?:A6<,X$USR VPOS UPX6-&@"6-?:Ab<,36-?:Ab<,D6-?:Ab<,U6-?:Ab<,X$HPOS LFTF -@6@468,-8,&@?%8,C F$ HPOS RTF -@6@468,-8,%@?%8,C F$SET INIT HPOSV 6--@&68,-1%8,O6-%@%P:@$8,,S V$PLYRSIZE POKE/-@(B2V%8,, /$POKE PLYRSU6--AV1-%&@<%8,@ N6-%@R U$STICK LOOP ( TRIGGER TO DEPOSIT[-@.6-R:,CT:,"UB2xAUX'[$"@ "@ Ap"@ A`#"@)"@# Ap#"@ )"@# A` #!@* @# A#!@* @# A RT/LFT WALL CURSORIAR@5@@K:;,I/%@"I-@,)@8"@2;'F@I$'@E*@a ,; @,!/%@-"@E;6-&@1"@a6-%@6 "6-%@; "6-&@@3 @,!/%@% 0@3$EUP/DN WALL CURSORJIAR@5@@K:;,I/%@OI-@,)@8"@2;'F@I$T@C*@B Y; @,!/%@-"@C;6-&@^"@B6-%@c "6-%@h "6-&@m3 @,!/%@% 0@3$rPLOT/UNPLOTwl$6-+8,&@H,$@26-&@2H-&@R@Z,%l/%&@%|   $PLYR SIZE/POKE ROUTE6-#-@268,-A68,-E +-@6-&+6-@2-@@0& 6-'@# &'0 AG68,-P:'@,&68,-AU4&!7'; G6-@`!@(6-P:'@,$@=68@,-@K6-'@`68@,-!8,@!68,-=6-A(-@+68,-8,%96-'@= 5-@&8,"@568,-@   $b%2@@@@9-@%= _2@b$UP/DN BNDRY CHKR"@E6-&@"@a6-%@ "6-%@ "6-&@$LT/RT BNDRY CHKR"@C6-&@"@B6-%@ "6-%@ "6-&@$DOOR UP/DN"A0A@= ,!/%@/,&@=,%@>-@,)@8"@2;'>$ @E*@a 0 AP,&@),%@- 0$DOOR LFT/RT= ,!/%@/,&@=,%@!>-@,)@8"@2;'>$&@C*@B +0 A,&@),%@- 0$0WINDOW UP/DN5"A0A:' ,!/%@',?>-@,)@8"@2;'>$D@E*@a I AP, $NWINDOW RT/LTS' @,!/%@',X>-@,)@8"@2;'>$]@C*@B b A, $gOPENING UP/DNl"A0APq= ,!/%@/,&@=/%@v>-@,)@8"@2;'>${@E*@a 0 AP,&@)/%@- 0$OPENING RT/LT= ,!/%@/,&@=/%@>-@,)@8"@2;'>$@C*@B 0 A,&@)/%@- 0$REWALL UP/DN"A0AG ,!/%@+@9,&@G/%@>-@,)@8"@2;'>$@E*@a 0 AP,&@)/%@- 0$REWALL LT/RTG ,!/%@+@9,&@G/%@>-@,)@8"@2;'>$@C*@B 0 A,&@)/%@- 0$J'(DOOR,WINDOW,OPENING,REWALL,F(FURNITURE,OR NEW ROOM J??A5A5A5A5Au@PA%-)( PICK WALL(P,OWN,EFT,OR IGHT)-10U*0D*0L*0R' A@1 A5G'(USE CURSOR KEYS W/O CTL TO MOVEG(SPACE TO START/STOP DRAWINGE 4L6-%@+6-%+'@,96-&@E6-AE 4R6-&@+6-%+'@,96-%@E6-AE 4U6-%+'@,+6-%@96-&@E6-A0E 4D6-%+'@,+6-&@96-%@E6-A0V '@@K:KAAeA AuV@ A%6-?:A<$AV, :*(!ADD,DELETE,RETURN TO MAIN MENU66-A:AA0A%7 A@-(ENTER 1,2, or 3 ONLY PLEASE7 Ad!(ENTER X-SIZE OF FURNITURE4( 栲@6-ADP!AVZ A d Ad!(ENTER Y-SIZE OF FURNITURE4( 栲@6-ADP!AZ A d A ##(ǠŬŠ%Q6-P:'@,%6-P:$?,/ A=6-A(&G AQ A*#6-A&'@# A /H A06---B2RB2U<F:,H6-@4j "@ A@>(ŠΠ`(REPOSITION THEN TRIGGERj A9 Au Au>v6-@6-@% A16-A&; AE AQ6-A[ A v(POSITION ON ITEM, THENCB A0"F:B2R,"8(REPOSITION CURSORB A5H1(ONE MOMENT PLEASE!--1 Mo$6-+8,&@H,$@26-&@2N-@V1b"e'o AUR6-&@ WN6-%@--@51A"D'N Ae\6-&@ aV6-%@--@=1%@I"L'V Auf6-%@ kN 6-%-@51%@A"D'N Ap6-%@ u+ 6--!,'/+ z AuOBJECT DATA FOR USR4'(1 A@4$F B.(8 A@B A F 'OBJECT DATA FOR USR' 68,68,85,D1,68,85,D0,A0,FF'B1,D0,48,C8,B1,D0,AA,68' 91,D0,8A,48,C8,D0,F5,68,60' 68,68,85,D1,68,85,D0,A0,01$'B1,D0,48,88,B1,D0,AA,68)' 91,D0,8A,48,88,D0,F5,68,60.'**3'68,68,85,CC,68,85,CB8'A0,00,A2,00,A9,00,91='CB,C8,D0,FB,E6,CC,E8,E0B'08,D0,F4,60G'**}u +AR@1-@@Q(INTERIOR DECORATOR(Ver.4.1)c-@@u( by J.C. Petty}3-@@3(POKEing USR functions....}"4**$}+ A !6-%@+ B }6-A#B5 }"4**$ }+ A !6-%@+ B D:INTRDECO.V41