home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 36
/
036.d81
/
envelope
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
92 lines
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