10 GOSUB60100:CLR:POKE53280,.:POKE53281,.:CU=25:MM=-1
15 PRINT"[147][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
16 PRINT"[165]"SPC(38)"[167]";
20 PRINT"[165]               [154][197]NVELOPE               [167]";
25 PRINT"[165][154]           BY [205]AEBYN [205]ILES            [167]";
26 PRINT"[165]"SPC(38)"[167]";
28 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
30 PRINT"[210]ETURN [193]DDRESS: [153]"
35 FORA=1TO3:PRINTTAB(16)RA$(A):NEXT
40 PRINT"[205]AILING [193]DDRESS: [153]"
45 FORA=1TO3:PRINTTAB(16)MA$(A):NEXT:PRINT:PRINT:IFMMTHEN300
50 PRINT"[154][208]RESS: [195][154]HANGE [193]DDRESSES"
55 PRINT"       [208][154]RINT [205]AILING AND [210]ETURN [193]DDRESS"
60 PRINT"       [197][154]XIT PROGRAM":POKE198,.
65 A=PEEK(203):IFA=20THEN300
70 IFA=41THEN85
75 IFA=14THENGOSUB60000:GOTO50
80 GOTO65
85 OPEN15,4,15:CLOSE15:IFST=.THEN140
90 PRINT"";
95 FORA=1TO4:PRINT"                                       ":NEXT
100 PRINT"[145][145][145]       [197]RROR: [208]RINTER [206]OT [207]NLINE!"
110 FORA=1TO2000:NEXT:PRINT"[145]                                       "
120 PRINT"";:GOTO50
140 PRINT"";
145 FORA=1TO4:PRINT"                                       ":NEXT
150 PRINT"[145][145][154][215]HAT SIZE ENVELOPE?   [204][154]ETTER (SMALL)"
152 PRINT"                      [194][154]USINESS (BIG)":POKE198,.
154 A=PEEK(203):IFA<>42ANDA<>28THEN154
160 CU=25:IFA=28THENCU=40
175 PRINT"";
180 FORA=1TO4:PRINT"                                       ":NEXT
185 PRINT"[145][145][145]       [159][208]RINTING ... [208]LEASE [215]AIT."
190 OPEN4,4,7:PRINT#4,CHR$(27)"I"CHR$(.)
195 FORA=1TO4:PRINT#4,RA$(A):NEXT
200 PRINT#4
210 PRINT#4
220 FORA=1TO3:FORB=1TOCU:PRINT#4," ";:NEXT
240 PRINT#4,MA$(A):NEXT
280 PRINT#4:CLOSE4
292 PRINT"[145]                                       "
294 PRINT"";:GOTO50
300 PRINT"";
301 FORA=1TO3:PRINT"                                       ":NEXT
302 PRINT"[145][145][159]       [197]NTER [217]OUR [210]ETURN [193]DDRESS"
305 PRINT"[159]":POKE198,.
310 FORNU=1TO3:A$=RA$(NU):LL=LEN(A$)+1
315 PRINTRA$(NU);:GOSUB60500:RA$(NU)=A$:NEXT
320 PRINT"":POKE198,.
325 PRINT"[159]       [197]NTER THE [205]AILING [193]DDRESS[145][145][145][145][145][145][145]"
330 FORNU=1TO3:A$=MA$(NU):LL=LEN(A$)+1
335 PRINTMA$(NU);:GOSUB60500:MA$(NU)=A$:NEXT
340 PRINT:PRINT:GOTO50
350 OPEN15,4,15:CLOSE15:IFST=.THEN
60000 PRINT"";
60010 FORA=1TO4:PRINT"                                       ":NEXT
60020 PRINT"[145][145][145]  [154][193]RE YOU SURE YOU WANT TO EXIT? ([217][154]/[206][154])"
60030 A=PEEK(203):IFA<>25ANDA<>39THEN60030
60040 IFA=25THEN60070
60050 PRINT"[145]                                      "
60060 PRINT"";:RETURN
60070 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60080 POKE198,.:IFER<>63THENEND
60090 LOAD"HELLO CONNECT",8
60100 POKE53280,8:POKE53281,8
60110 PRINT"[147][144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
60120 FORA=1TO23:PRINT"[221]"SPC(38)"[221]";:NEXT
60130 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]";
60140 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
60150 PRINT"          [204][207][193][196][211][212][193][210] [208]RESENTS:"
60160 PRINT"         [158]                   "
60170 PRINT"         [158]     [197]NVELOPE      [149] "
60180 PRINT"         [158]                   [149] "
60190 PRINT"         [158]  BY [205]AEBYN [205]ILES  [149] "
60200 PRINT"         [158]                   [149] "
60210 PRINT"         [158]  ([195])OPYRIGHT 1987 [149] "
60220 PRINT"         [158]                   [149] "
60230 PRINT"          [149]                  [149] "
60240 PRINT"        [208]RESS [211][208][193][195][197] TO CONTINUE.":POKE198,.
60250 GETA$:IFA$<>" "THEN60250
60260 RETURN
60500 PRINT"[164]";:POKE198,.:FORA=LLTO36
60510 GETB$:IFB$=""THEN60510
60520 IFB$=CHR$(13)THEN60590
60530 IFB$=CHR$(20)ANDA>1THENPRINT"[157][157]  [157][157][164]";:A=A-1:A$=LEFT$(A$,A-1):GOTO60510
60540 IFA=36THEN60510
60550 IFB$>=" "ANDB$<="Z"THEN60580
60560 IFB$>="[193]"ANDB$<="[218]"THEN60580
60570 GOTO60510
60580 PRINT"[157]"B$;:POKE212,.:PRINT"[164]";:A$=A$+B$:NEXT
60590 PRINT"[157] ":RETURN