home *** CD-ROM | disk | FTP | other *** search
- 100 TE=0:PDEV=4:SA=7:REM SET TE TO 1 IF YOU HAVE A 1526 PRINTER
- 110 POKE53280,0:POKE53281,0:PRINTCHR$(14):PRINTCHR$(30):PRINT"ô"
- 120 SUB=49152:FORJ=SUBTOSUB+76:READN:CS=CS+N:POKEJ,N:NEXT
- 130 IFCS<>10586THENPRINT"ERROR IN DATA STATEMENTS.":END
- 140 CLOSE4:OPEN4,PDEV,SA:B$=" ":B$=B$+B$+B$+B$
- 150 PRINT"ô"TAB(13)"┼╬╓┼╠╧╨┼á═┴╦┼╥":FORK=1TO6:READW(K):NEXT
- 160 T$(1)="1) ╙TANDARD ╠ETTER":T$(2)="2) ╞RENCH ╞OLD"
- 170 PRINT""TAB(9)"├HOOSE ENVELOPE TYPE:":GOSUB710
- 180 A$="":GETA$:IF(A$<>"1")AND(A$<>"2")THEN180
- 190 ET=VAL(A$):T$(ET)=""+T$(ET):PRINT"ææææææææ":GOSUB710
- 200 IF ET=1 THEN W(1)=64:W(2)=W(2)-4:W(5)=W(5)-5:W(6)=W(6)-2
- 210 IF TE THEN W(1)=W(1)+4:IF ET=1 THEN W(3)=W(3)-2
- 220 FORJ=1TO4:READT$(J):NEXT
- 230 PRINT" ╒SE DEFAULT RETURN ADDRESS";:GOSUB680
- 240 IFA$="Y"THEN270
- 250 IFA$<>"N"THEN230
- 260 P$=" RETURN":GOSUB610
- 270 FORJ=1TO4:R$(J)=T$(J):NEXT
- 280 P$="":GOSUB610:FORK=1TO4:AD$(K)=T$(K):NEXT
- 290 PRINT" ├ENTER ADDRESS LINES";:GOSUB680:CF=(A$="Y")
- 300 IF CF THEN 330
- 310 CI=0:FORJ=1TO4:IFLEN(AD$(J))>CITHENCI=LEN(AD$(J))
- 320 NEXT
- 330 PRINT" ╨RESS ANY KEY TO BEGIN PRINTING."
- 340 A$="":GETA$:IFA$=""THEN340
- 350 S=5:PRINT#4,MID$(B$,1,W(3)+S+2);
- 360 FORJ=1TOW(1)-2*S:PRINT#4,"-";:NEXT:PRINT#4
- 370 FORJ=S TO 1 STEP -1
- 380 PRINT#4,MID$(B$,1,J+W(3))"."MID$(B$,1,W(1)-2*J+2)".":NEXT
- 390 FORJ=1TOW(4)-S:PRINT#4,MID$(B$,1,W(3)+1)":"MID$(B$,1,W(1))":":NEXT
- 400 GOSUB660:S
- 410 Y=1+(-1*(J<=S))+(-1*(J<=(W(2)-S))):ON Y GOTO440,430,420
- 420 X$=":":IFF1THENX$=".":X=F1:GOTO450
- 430 PRINT#4,":"MID$(B$,1,S);:GOTO460
- 440 X$=":":IFF2THENX$=".":X=S-F2+1
- 450 PRINT#4,MID$(B$,1,X)"."MID$(B$,1,S-X);
- 460 Z$="":IF(J>1)AND(J<6)THENZ$=" "+R$(J-1):GOTO500
- 470 IF(J<W(6))OR(J>W(6)+6)OR(INT(J/2)<>J/2)THEN500
- 480 Z$=AD$((J-W(6))/2+1):CZ=LEN(Z$):IFCF=0THENCZ=CI
- 490 X=INT((W(1)-CZ)/2):Z$=MID$(B$,1,X)+Z$
- 500 Z=LEN(Z$):Z$=Z$+MID$(B$,1,W(1)-Z):PRINT#4,":"Z$":";
- 510 X$=":":ON Y GOTO540,530,520
- 520 IFF1THENX$=".":X=F1:F1=F1-1:GOTO550
- 530 X=0:GOTO550
- 540 IFF2THENX$=".":X=S-F
- 550 PRINT#4,MID$(B$,1,S-X);X$
- 560 NEXT:GOSUB660:FORJ=1TOW(5)
- 570 PRINT#4,MID$(B$,1,W(3)+1)":"MID$(B$,1,W(1))":":NEXT
- 580 GOSUB660:FORJ=1TO6:PRINT#4:NEXT:PRINT" ═AKE ANOTHER";:GOSUB680
- 590 IFA$="Y"THEN280
- 600 PRINT#4:CLOSE4:END
- 610 PRINT"":X$="┼NTER"+P$+" ADDRESS LINES:":PRINTTAB((40-LEN(X$))/2)X$""
- 620 Z=W(1)-1:FOR J=1 TO 4
- 630 PRINTMID$(STR$(J),2)"> ";:SYSSUB,T$(J):PRINT:PRINT
- 640 IFLEN(T$(J))>Z THENPRINT"╠INE TOO LONG, MAX IS"Z"CHARS. ╥EENTER."
- 650 NEXT:RETURN
- 660 PRINT#4,MID$(B$,1,W(3)+2);
- 670 FORJ=1TOW(1):PRINT#4,"-";:NEXT:PRINT#4:RETURN
- 680 PRINT" [Y/N]? ";
- 690 A$="":GETA$:IF(A$<>"Y")AND(A$<>"N")THEN690
- 700 PRINTMID$("YESNO ",-1*(A$="Y")-4*(A$=
- 710 PRINTTAB(11)""T$(1):PRINTTAB(11)""T$(2)"":RETURN
- 720 DATA 32,253,174,32,139,176,133,251,132,252,32,143,173,160,0,32,207,255
- 730 DATA 201,13,240,6,153,0,2,200,208,243,192,1,208,8,173,0,2,201,32,208,1,136
- 740 DATA 132,253,152,32,125,180,165,99,160,2,145,251,136,165,98,145,251,136
- 750 DATA 165,97,145,251,165,253,240,10,185,0,2,145,98,200,196,253,208,246,96
- 760 DATA 57,26,6,13,19,14
- 770 REM DEFAULT RETURN ADDRESS
- 780 DATA "─OUG & ╠ORI ╚ULST
- 790 DATA "77 ╫ 28TH ╙╘╥┼┼╘"
- 800 DATA "╚OLLAND, ═ICHIGAN 49423"
- 810 DATA ""
-