IMD 1.16: 31/05/2007 20:28:10 FOGCPM.137 --FOGCPM137BANNER COM BANNER DOCBANNER BAS GOTHIC COMU SIGN11 COM !"#$SIGN11 COM %&-09-00 86 SIGN11 DAT'()*+,-./0123456SIGN11 DAT789:;<=>?@ABCDEFSIGN11 DAT/GHIJKL-CPM137 DOCBIGPRINTBASMNOPQRSTUVWXYZ[\BIGPRINTBAS>]^_`abcdBIGPRINTDOCefghNEC BASijBIGDATA BASklmnopqrstuvwxyzBIGDATA BAS<{|}~BIGEPSONBASBIGEPSONBAS7BIGNEC BASBIGNEC BAS>PRINTER BASThis is the disk name. !9"?1?BANNER Version 1.0 :]/©:^T BANNER is invoked by a command line like: BANNER In which case will be printed and control returned to CP/M, like "BANNER HELLO" to print "HELLO", or BANNER /o where '/o' is '/T' to invoke Text Entry Mode in which the user may enter several sequential Banner Lines to be printed. Any other option prints this Help Message and Exits.*?!~3G3Dx##~#¾3ä BANNER Multiple Line Input Input Line or ^C to Return to CP/M BANNER? C  3!D~h Truncation Error -- Line too long ä#o6!E~ʜ"AzWʥ?OoͩڅÅ [_bk))P7a_~%# %%%Y %K~# O2 2x  % %YY*A~#"A}pp**$bd#6I5p"AA"""> >EIQ>1!CEI1"AII6 $zIIIF>III&CDHP`6III60III>6"AA" @MP ~A]M9?HHH?III6AAAAAAA>IIIAHHH@AAIOAA"A  0AAAHHHxAECHLJy2III&@@@@p  pcc``CEIQaAAA AAA@ ?HHH?III6AAAAAAA>IIIAHHH@AAIOAA"A  0AAAHHHxAECHLJy2III&@@@@p  pcc``CEIQaOAA"A  0AAAHHP pcc``CEIQaOAA"A  0AAAHHPo Return to CP/M BANNER? C  3!D~h Truncation Error -- Line too long ä#o6!E~ʜ"AzWʥ?OoͩڅÅ [_bk))P7a_~%# %%%Y %K~# O2 2x  % %YY*A~#"A}pp**$bd#6I5p"AA"""> >EIQ>1!CEI1"AII6 $zIIIF>III&CDHP`6III60III>6"AA" @MP ~A]M9?HHH?III6BANNER: Prints out a message specified when you run it, or several lines of a message if you call up the program with a /T after the program name (BANNER HELLO will print out HELLO seven letters high, while BANNER /T will display BANNER on the screen, and allow you to enter more than one line from the keyboard). 2 PRINT CHR$(26) 3 PRINT "**************" 4 PRINT "* BANNER *" 5 PRINT "**************" 6 PRINT:PRINT 10 INPUT "HORIZONTAL LETTER LENGTH (IN INCHES)";X 20 INPUT "VERTICAL LETTER LENGTH (IN INCHES)";Y:PRINT 21 INPUT "DO YOU WANT BANNER CENTERED (ON 15 INCH PAPER)";L$: IF LEFT$(L$,1)="N" OR LEFT$(L$,1)="n" THEN PRINT "DIABLO MARGIN SET (ESCAPE 9) CAN BE USED TO SET LEFT MARGIN." 22 G1=0:IF LEFT$(L$,1)="Y" OR LEFT$(L$,1)="y" THEN G1=1 29 PRINT:PRINT "MESSAGE (USE ALL CAPITAL LETTERS)"; 30 INPUT A$ 31 INPUT "PRINTING CHARACTER (TYPE 'ALL' IF YOU WANT CHARACTER BEING PRINTED)";M$ 35 PRINT:LINE INPUT "ENTER 'RETURN' WHEN PAPER IS POSITIONED.";RR$ 36 PRINT:PRINT:PRINT "--- Printing ---":PRINT:PRINT 40 A=ASC(LEFT$(A$,1)) 50 REM 60 REM 70 FOR T=1 TO LEN(A$) 80 P$=MID$(A$,T,1) 90 FOR O=1 TO 50 95 READ S$,S(1),S(2),S(3),S(4),S(5),S(6),S(7) 96 IF P$=" " THEN 812 100 IF P$=S$ THEN 200 120 NEXT O 200 RESTORE 201 X$=M$ 202 IF M$="ALL" OR M$="All" OR M$="all" THEN X$=S$ 205 FOR U=1 TO 7 210 FOR K=8 TO 0 STEP -1 230 IF 2^K>*>*>O [ {mzm#:*=2*!*_#~ 2 ,s yi >P2* *!*#~ʁ_p TEXT-> $#.(&!$);-,?:'"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789z46] /x*N ? p  - # v  Y Xu_N24%7 v!""#h$M%o&&&d''L((4))***/.-,+*)('&%$%&'()(0'&%$#":!< >@BDFHJI&% $ # "!    $).2!!?><(1#%& ' ' ' ' '&#% & ( * -LJHFDB@ >!<":#$%&'223& & ' ( )*,1344444444444457223& & '()*,\LKJIHI     @ABBCCccV V WXYZ\^\ZYXWV V cc^\ZYXWV V c       ZY      !"%$#"!    "$&&#%$#"!       <<<<<=?AC QQQ      Z<!@A@?> B ! <  Z<0/.- ,  >?"!?@A@?!#A@?!?"!?@A@?!"!  !"<:     !"     ?"!?@A@?>=9999        #DDDDDDD$&(((IA@!A@!  !!!!  "$'*B!#!# !")'%#"!$ (" "#%'A@    !"      "     #<<< <<81*#<;=!!      ! $ &):4/,)'% # !     ;;;::99887666656677 8<;=!54322110/.-,**(&%#!!$' ,<<=! <=>?@!A#%<<=! !#%?@?>=<;:<>?@`abce:4/,)'% # !     !!# # $$$$$""! ! "$&):9:! *++ * ( ' & $ " 3 / KMP<<=!" ! #@@.$ "$',$a:9:!         # ,# (1;B<<=! 65679;=>A "$;:;!"]\: ;<===  =>?@C'<;@BE""! /+'$! #%41.+(%!"$'+.:<>?A B:5/,)'% # !      :::::8!5"3$/%,'((#*,.0358;:9:!  #:::;;;<=> @:5/,)'% # !     -,*)**+++,(#  !:9:!  #;9  036 !+"("%#"# $$$$$ # # " !          !"#$ &($:4/, ) ' % #!   9:9::<<<==>>>>?? @$"!! =? A!@">#!9<?CG$"! :;;=@ !"3#!$&(*-0$def$"!!  !"""# $!1")#$&(*-0$4*ef@??>(%" $* 06:73/+' # !$(=>??!!! 4 6 9 :9:97520.   <?B GM4.*'% #  /-+(                    . " # $! &#)%,'0#"! ,.0000000. !:98 !""  ! #-"+!) )    !666777888999 9 8#"!          !#"!        ! 6540(  !" # $ @EILOSV" !  !" "!        !"#" !  !" "!           !666777888999 9 8#"!          !#"!  6+"!JÙa,6͊'!`f!"` x! ͼ4 ! 4! ͼ4 !4!ͫ ! '!r! B! f'!r! B!_ f'! f'!. f'! B! B! B! B'! f'! f'! f'! f'!k f'!: f'! f'! f'! f'!k f'!; f'! f'! f'! f'! r! B! f'! r! B! f'! r! B! f'! f!{ _!'!`f'!N f'!& f'! f'! B! B! B! B! f'! f! _!͂'! f! ͍! ͍|g}o! ͍|g}o|a+! ͬu! x'! f'! f! )]!*! KYNU|g}o|K TQTM|g}oTI|g}oTE|g}oTA|g}oT=|g}oT9|g}oT5|g}o|K t1t-)X# +5?IS3=]gq{%%X#/9CMWaku )3=!X#?GQ[eoy   # - 7 A !"*55&! x!Ϳ&!5 a&bk(B!Ϳ&!5 a&!(B& !)x)! ͬ!Ϳ! f)! ͬ!Ϳ! f!Ϳ! f'!*`B]o'! f+"]"4"]4"4"4"4"4" 4" 4"4"4"4"4"4"4"4"4"4"4"4"4"4"4"4"4"4"4"4"4"4"4"4"4"4"4"4"4"4"4"4"4"4"4"}4"y4"u4"q4"m4"i4"e4"a4"]4"Y4"U4"Q4"M4"I4"E4"A4"=4"94"54"14"-4")4"%4"!4"4"4"4"4" 4" 4"4"4" 4" 4" 4" 4" 4" 4" 4'! f'! B!*`B! B!{ f++1~ is not supported at this time. Program aborted. * \ Creating banner...  End end Enter phrase: as input. END# To end the program, enter the word %) at this time: # % * & @ \ ^ _ { } | ~*Q The following characters are not supported~ Press enter to continue... Los Angeles, CA 90025 2140 Westwood Blvd. Scott C. Cosel- submit them to the public domain. Thank you.0 encourages the author to write more programs and-> keeps the creative juices flowing and usually2n neighborhood of $10) for his or her efforts. This/ sending the author a small contribution (in the3 program more than occasionally, you should consider/ be freely distributed. However, if you use the.= there is no charge for this program and it may.n domain as a freeware program. This means that/ This program is being distributed in the public1 printed on a wide carriage printer (132 columns).  which can be creates large letters in .1 SIGN is a high quality banner generator. SIGN'b Portions copyrighted by MIRCOSOFT, 19814 SIGN Ver. 1.1 - Copyright 08/03/85 by Scott C. Cosel OUTPUT.FIL O SIGN11.DAT R |z0ytrom jgdc`p^\ZTRPN`K`HpEA@@95/+P($! z pkg_UM`A80$`@` @z@u@p]G:'`3( `UG: l@><8( vx[[[[ BASLIB #000000 5.30 - OWNED BY MICROSOFT, 1980 æ Ns#FDM*"n *##"l Ð>22*^#V"##^#V" 2!!!""!|"y6#6P>2>2>2~͝6͠6-_L^#Vs"!uw> "~./! s#r`i#w+! N#F!yw#xw:::: !!9"Gͯ !ͯʳ!!L!R"!O"ͯ|> H6#s#r#=>2A>2D>2C2F!:"S!$\"I>&2KͿ}#6#} | $ STO+ͥ*S.. . ........m"*a|2:^ *\|ʠͦͯ  s#rͯ  {w#6"_*G*\>2^%!9N#Fͯ~#~~+~#~+^#V###ö###ö|~#fo!$ Internal Error - No Line Number :ͯ~#ʇ$ at lineͦ:å>n$ at address|A$}A$å> ͤ:> ä:~#*O;~#fo61E!9"=!*="?!*?ͥ!~<=#~###$Syntax Error in DATRETURN without GOSU Type MismatcOut of DatIllegal Function CalOverfloOut of Memor Subscript Out of Rang Division By ZerOut of String SpacString Formula Too CompleRESUME without Erro2Field Overflo3Internal Erro4Bad File Numbe5File Not Foun6Bad File Mod7File Already Ope9Disk I/O Erro:File Already Exist=Disk Ful>Input Past En?Bad Record Numbe@Bad File NamCToo Many FileUnprintable ErrobN#"!9""y2*Q|*i!"aA~#*C;:~ʣ0͠&3ͧ&"Ye$*d<*b<*`<*^2$:tJF#~#fox́~#:c">":G:xxʸ:*y+~ :>,:W*y#^ ̫ʥ+=ڥ:|=ʥ͸:z{ڽ{_ï|}I5•8`i"Q++"y!"o!"m2t=H~08}o|g!> :+|ø:!|"y!"Q2t=!w~6#w~!]/$NTi&S +Ϳ*y{<҆͸:{ʕ=> :Æ|H}*yڕ<ÆͿ}Æ|H}Æ|!*y#n&.>JflJflJflxJflxJflJflJflxJflx͇ͥ^#V#ͱ"*͇P͇^#2Á͇^#V#ͫV"~2"**:::;:+AA,BA>>=!>!>!>!>!>^#V#^#V#Ï>À>À>À>À>À>^#V#^#V#îÚ G>ʪù G>~#fo## C^#V#z||,CSC^#V29;p:|HgpM:ʽ!>͋@Ô:!+A:d<2d<:e<:e<´ö|/g}/o͋@:e<!e<>!E:e|/g}/o!/G|+"o& Gȯ|g}o2H>U~+~?~`+#m+ m"Ե~##++">T;+V+^+ʨ+r+s-#{~L"|HBKPY|HBK  o_zHz _ o}`iL"c"DM >~H#~#fon&c"zZ}!~Ws#MH|H!9>;">Ï>Ï>Ï>Ï>Ï>!+>ó>ó>ó>ó>ó>~#fo##GNy#~#fo~#fo#  yy<. ) )c"c"~c"o&~H#^#V++c"o&~@++*p "p s#r+_!*j #~_#~WV#Nr+s##6"n ###!p ~#foz#b;j#<*l "j *n }o|g6@#s#r#6"n *#*#"p }w>#w##b;¥#++6+6r ~#>2#|$+})N#$~#fo :##!9"G!L4 ~O;#H~ͤ:#=$#$~ͤ:##$G~#?$#1$++J$0:U$ä:|=Ny2NOHN)zWyO+Nx\EZN!iw&N-$*b<}/o|/g#"b<|$ Cç$!d<~wɯ2e<-$͋@$*b<$ C-$k@>>}&~"#$"v$!h<$>!h<^<2% # %!h<>!h<%|<>>$%>|}+!&=ͪ%xC+6!d<>.@2] ED%:$Gw#%%%!h<%b<-^<-%*b<||<-*b<5&%!]-% %ͻ$8&o%:d<2d<:e<Һ.ͼ%:e2$u%ajw& L}ͯ$$.>2X$`hx&~&--&+&+-ڶ'.\'e&E '-l&L&q&Q ':$$'>$'~%i'#z'!{'d$'D;'̈́'---)(;'_{_''?'̆$-!%́&- ;'܄'&-!%!&;'̈́'-;'̴$$-%Q%=-K%.%DG$)"^<`i"`<#~+ʜ)-s)0OxGҜ)#~Z)`xE‘)y E)>2Z$á)|E)É)E)"^<`i"`<͟%#WͰ+:Z$))))O,60̴%v,+~0).Ĵ%*->"w#6+*6-/</ *:#p#w#6!\$#zҥ*B+G,z#,-{,%=#,ͮ(T*p#6![$#:$~ Y**Y*+m*--+_:I{0*#-ҝ*++wʓ*Z*ʝ*6%I+*e-%*u(+6%u%*%İ+*_x#,:,v,3,b,A*_yġ'*'+{_x+#,:,.+#,yf,O#,GOv,9+*$=#,PJ*$ѯO+%7İ+yġ'OzWO'o+}+/< b,/>$ҟ,>$p#=–,!^<͜%,o%>ͼ%͟%-?b,ͪ%/{_#zW#yO++,]%#͟%p#,>-->b,N#F#*b</}o|g'-"b "> "!fXҴXX͎Ps"X!bX͎P*}|*"Xu#ʾ"w!6R#6S#6#ÕFYYY^YYYYY ZZ[0Z5ZiZZZZ[ZZ4[J[{[[[[[INCLUDpNBS}I5ʘ8ʕ8!' ~ʷ/ ʷ/#~¬/`i͓1Í/>O #~goPY!' ůw1:͍4ʳ8=ʭ8=/ѯÞ8<ʳ8!% ^#Vr+s}4!"s/}I5@0 PY60!-0`i>Ï0!' ~/15}I5ʘ8!&^0! ~+ng}I5ʘ8! n&*Q~ʒ8ʧ7DM'~̿/4N#V pʳ0zw w+s#r#6#6DM:0!" s#r#6#1! {zV1.w<1<ʳ8!! {w:801͓1!! ~.!) Q1Ϳ/Q1É8~#T1*Q~7( ~~1+~#5O ~+~ʊ1͐1`17>*QT]% N#F+q#p###6 ¨11:͍4>1>w+w!(^17?*Q' 6#67~ʰ8#^#fk_2N#~:2++@ʰ8y@ڰ8Ұ8P/ #e2~.>2Q27*2#+22\/c"z ʰ8ڰ8> Q2E2> j2E21.P/<ʧ8!@/P/> T;1:P/!@/¶8P/<¡8@/*q/~ʕ8#N#F++c" O2I2R•8*s/|2!"s/}_I535{I5¤8z1 #6"Q#P/> T;661~]3<ʳ8r3.9 >4:| W:}m4> 999P/.4~*6?# …4O!!4¥4#4¥4#4y"º4ʳ8><"q/>2W!8"X:U<2U*S"u/!5"S"s/2*e|5##n04./*u/52w/E6"x/E6952w/F6"x/F6ʘ8<ʘ8=_!e~#fom5##{ʃ5++Y5*e͌5"eq#p#s#4#5++###DM !g"z/~#fo5+V+^##*s/{zڑ5BK^#V+*z/s#r! DM5*s/ DM<#s#r# 6# x5 !eT]~#foʘ8x5y5~#~+*g"gs#r>"!_"*s/|36! s#r#w=62"6}I5•8! ^#V:w/h6*x/{ʛ8+s#r! w#w! ~#fo!̓8˜66BK>!)ҫ6)#ì6))Һ6 ҹ6#=¡6}_}la)ڶ86#x¶8"6! "6!) " 6!}o|g̓87bk:"6F7̓87c7DM* 6*6͚7"6PYb7}o|g*6#"66c7DM*6* 6͚7"6PY+728*6! ~#fo̓8s#r‰7:8ʖ7!7!& ú0~# x›7DM8ʪ87! w!( V6 7zw8ʪ87! ~!7! ^#V! s#rDM77̓8}I5ʘ8#8•8`i"Q!38"Z`81!>S|H,Z8-:Wʘ8*X!"Z{!f$%~8!w8*Zi8|}!"Q>6>4>?>=>:>7>5>2>3>@>C>o&S!"Q!"8:^8$?8p :9:9>\29889+ 9~9&9+9&999!29)9 :O8:9?9>\929yʩ997 9 ʩ9 c98é998989> 9> 9‹9>#9¤969!9&9 &9x<>ʴ9yq#9 &9> 9 :9 &9)9:^9wåä:>^9@99~ :> 99#9*y ':#~+<&:=ܸ: ̏:̒: 8:4+~# :~=–:*y!|"y:"y> :> ::=:> )> )*:^#V#:ɷ!b<:!^<:b<:^<:w#w#w#w#zd6%;>^<+;>b<; ~#=/;!;#~ B; B;Ʌo$ɧGw#X;{zee!mLe!m~4>"~#[ew^#VT]##~0#~#7#V#~„ez͸/O+#s#r~#fo~ڞe>!mWLz!mLe#!.h*m&ee)e#e))e#e#e#)*m&)2h~#fo###{f͆f>2{fO*mFf6@#@*s#r6#p<͠@o<ʫF!dN.@H?2]<:^<͕?Dx/F+N+=´=!h<=!^<>q#p#==!^<=";Ϳ=ͮ=͚=*;͠@ʀD:e<ʀD!nG\?Z@x > >Õ?!d<6@">j0 TeB׳]h!I.k ͔=͙Dk@q>͔=b@!h<=F!e<q#~++w+qŒ>DDNn"~`35zr1{r1h!I͠@DyO2n<>͠@D:e/+6!h<^<# e?ɯ# r?r?ҕ?/!]<Oyw#?G:d<¾?!]<Vwz# £?x–?ÀD!]͔=͙Dk@@͔=b@w=!h<>y2n@@FDAͰD@!f<6ͅCg> E|aC!>@ak͙DAͤBAD!e<~+>wDC.AͺDD:e<ʢDAA/O1ACãAͺDOCDȯG̈́B"K E|rD{>2e<͢C/<~w#;D4DGDhDFJ!eD D7>{_zW}o|g=D|g}oECZQE o-yOzW{_xGEb<*dD D7>{_zW}o|gO[CâCCÐAͺDD>O1ACãAͺDOCDȯG̈́B"K E|rD{>2e<͢C/<~w#;D4DGDhDFJ!eD D7>{_zW}o|g 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001\ 001 001* 001 001\ 001 001\ 034!007 049!021\ 032!011 031!043\ 031!013 020!055\ 030!015 009!067\ 030!015 008!069\ 030!015 009!067\ 031!013 020!055\ 032!011 031!043\ 034!007 049!021* 001 001\ 100'010\ 098'016\ 097'020\ 096'023\ 096'017 005'003\ 096'015 010'001\ 097'013\ 098'011\ 100'007* 030$019\ 030$019\ 030$019 040$016\ 030$019 036$024\ 034$012 037$028\ 034$010 037$032\ 033$009 037$036\ 033$007 038$017 011$010\ 032$007 038$016 016$008\ 032$006 038$015 020$007\ 031$006 038$015 023$006\ 031$005 038$016 024$006\ 025$102\ 025$102\ 025$102\ 025$102\ 030$005 037$016 029$005\ 030$005 037$016 029$005\ 030$005 036$016 030$005\ 030$005 036$016 030$005\ 025$10 2\ 025$102\ 025$102\ 025$102\ 031$007 029$017 030$007\ 031$008 027$018 029$007\ 032$008 024$019 028$009\ 032$009 021$020 027$010\ 033$010 017$021 026$011\ 034$012 011$023 023$014\ 035$044 024$019\ 036$042 025$019\ 038$039 026$019\ 039$036 028$019\ 041$032\ 043$028\ 046$023\ 049$015* 001 001\ 111'007\ 109'011\ 108'013\ 096'001 010'015\ 097'003 005'017\ 099'023\ 101'020\ 105'016\ 108'010* 001 001\ 062+009\ 062+009\ 062+009\ 062+009\ 062+009\ 062+009\ 062+009\ 062+009\ 062+009\ 043+048\ 043+048\ 043+048\ 043+048\ 043+048\ 043+048\ 062+009\ 062+009\ 062+009\ 062+009\ 062+009\ 062+009\ 062+009\ 062+009\ 062+009\ 001 001* 001 001\ 034,007\ 032,011\ 031,013\ 019,001 010,015\ 020,003 005,017\ 022,023\ 024,020\ 027,016\ 031,010\ 001 001* 001 001\ 060-005\ 060-005\ 060-005\ 060-005\ 060-005\ 060-005\ 060-005\ 060-005\ 060-005\ 060-005\ 060-005\ 060-005\ 001 001* 001 001\ 034.007\ 032.011\ 031.013\ 030.015\ 030.015\ 030.015\ 031.013\ 032.011\ 034.007\ 001 001* 030/001\ 030/002\ 030/004\ 030/006\ 030/007\ 030/009\ 030/011\ 030/013\ 030/014\ 030/016\ 030/018\ 030/020\ 031/021\ 033/021\ 035/021\ 037/021\ 039/021\ 041/021\ 043/021\ 045/021\ 047/021\ 049/021\ 051/021\ 053/021\ 055/021\ 057/021\ 059/021\ 061/021\ 063/021\ 065/021\ 067/021\ 069/021\ 071/021\ 073/021\ 075/021\ 077/021\ 079/021\ 081/021\ 083/021\ 085/021\ 087/021\ 089/021\ 091/021\ 093/021\ 095/021\ 097/021\ 099/021\ 101/021\ 103/019\ 105/017\ 107/015\ 109/013\ 111/011\ 113/009\ 115/007\ 117/005\ 119/003\ 121/001* 0600032\ 0530046\ 0490054\ 0460060\ 0430066\ 0410070\ 0390074\ 0370078\ 0360080\ 0350016 0500016\ 0340012 0600012\ 0330010 0660010\ 0320008 0720008\ 0310007 0760007\ 0310006 0780006\ 0300006 0800006\ 0300005 0820005\ 0300005 0820005\ 0300005 0820005\ 0300005 0820005\ 0300006 0800006\ 0310006 0780006\ 0310007 0760007\ 0320008 0720008\ 0330010 0660010\ 0340012 0600012\ 0350016 0500016\ 0360080\ 0370078\ 0390074\ 0410070\ 0430066\ 0460060\ 0490054\ 0530046\ 0600032* 001 001\ 0301005 0651001\ 0301005 0651002\ 0301005 0651004\ 0301005 0651006\ 0301077\ 0301079\ 0301081\ 0301083\ 0301084\ 0301086\ 0301088\ 0301090\ 0301092\ 0301005\ 0301005\ 0301005\ 0301005\ 001 001* 0302004\ 0302008\ 0302011 0722001\ 0302014 0682003\ 0302017 0652004\ 0302019 0622006\ 0302022 0592007\ 0302024 0582007\ 0302015 0022009 0572007\ 0302015 0042009 0562006\ 0302015 0062009 0552006\ 0302015 0082009 0542005\ 0302015 0102009 0522006\ 0302015 0112010 0512005\ 0302015 0122010 0502005\ 0302015 0132011 0482005\ 0302015 0142011 0472005\ 0302015 0152012 0452005\ 0302015 0162012 0432006\ 0302015 0172012 0422006\ 0302015 0182013 0392007\ 0302015 0192014 0362008\ 0302015 0202014 0342009\ 0302015 0202016 0302010\ 0302015 0212017 0252012\ 0302015 0222018 0222013\ 0302015 0232021 0142017\ 0302015 0242050\ 0302015 0252048\ 0302015 0262046\ 0302015 0282043\ 0302016 0292039\ 0332013 0312035\ 0362011 0322031\ 0402007 0352024\ 0442004 0382016\ 0472002* 0383004\ 0373006 0683002\ 0363008 0673003\ 0353010 0653006\ 0343009 0673007\ 0333008 0683009\ 0323008 0703009\ 0323007 0733008\ 0313007 0753007\ 0313006 0773007\ 0303006 0793006\ 0303006 0803005\ 0303005 0823005\ 0303005 0823005\ 0303005 0823005\ 0303005 0453001 0363005\ 0303005 0443003 0353005\ 0303006 0423005 0343005\ 0303006 0413007 0323006\ 0303007 0393009 0303007\ 0303008 0373012 0273007\ 0303009 0343016 0233009\ 0313010 0303020 0193010\ 0313012 0253027 0123013\ 0323014 0193015 0023037\ 0323017 0123018 0043035\ 0333045 0063033\ 0343043 0083031\ 0353041 0113028\ 0363039 0143024\ 0383035 0193018\ 0403031 0243012\ 0433027\ 0453021\ 0493012* 0494002\ 0494005\ 0494007\ 0494009\ 0494011\ 0494013\ 0494015\ 0494018\ 0494020\ 0494022\ 0494024\ 0494015 0014010\ 0494015 0034010\ 0494015 0054010\ 0494015 0074011\ 0494015 0104010\ 0494015 0124010\ 0494015 0144010\ 0494015 0164010\ 0494015 0184010\ 0494015 0204010\ 0304005 0144015 0224011\ 0304005 0144015 0254010\ 0304005 0144015 0274010\ 0304005 0144015 0294010\ 0304075\ 0304077\ 0304079\ 0304082\ 0304084\ 0304086\ 0304088\ 0304090\ 0304092\ 0304005 0144015\ 0304005 0144015\ 0304005 0144015\ 0304005 0144015* 0375002\ 0365004 0375004\ 0355006 0375012\ 0345008 0365022\ 0335008 0385030\ 0325008 0395039\ 0325007 0415005 0075030\ 0315007 0425006 0165020\ 0315006 0435007 0205015\ 0315005 0455006 0205015\ 0305006 0455007 0195015\ 0305005 0465007 0195015\ 0305005 0465007 0195015\ 0305005 0465008 0185015\ 0305005 0455009 0185015\ 0305005 0455009 0185015\ 0305006 0445009 0185015\ 0305006 0435010 0185015\ 0315006 0425010 0185015\ 0315007 0405011 0185015\ 0325007 0375012 0195015\ 0325009 0335014 0195015\ 0335011 0275017 0195015\ 0335016 0185020 0205015\ 0345052 0215015\ 0355050 0225015\ 0365048 0235015\ 0375046 0245015\ 0395043 0255015\ 0415038 0285015\ 0445033 0305015\ 0475026 0385011\ 0515017 0475007\ 1195003* 0566040\ 0516050\ 0476058\ 0446064\ 0436068\ 0406072\ 0386076\ 0376078\ 0356082\ 0346017 0236006 0216017\ 0336012 03160 06 0246012\ 0326010 0356006 0276010\ 0326008 0396005 0286008\ 0316007 0436005 0296006\ 0316006 0446005 0296006\ 0306006 0466005 0296006\ 0306005 0476005 0296006\ 0306005 0476006 0296005\ 0306005 0476006 0296005\ 0306005 0476006 0296005\ 0306006 0466006 0296005\ 0316006 0446007 0296005\ 0316007 0426008 0296005\ 0326008 0396009 0296005\ 0326010 0356010 0296006\ 0336012 0306012 0296005\ 0346017 0176018 0296006\ 0356050 0296006\ 0376047 0296006\ 0386045 0296007\ 0406043 0306006\ 0436038 0336004\ 0446034 0366002\ 0476028\ 0516018* 1037003\ 1037007\ 1057010\ 1057013\ 1067016\ 1077015\ 1077015\ 1077015\ 1077015\ 1077015\ 1077015\ 1077015\ 1077015\ 0307018 0597015\ 0307031 0467015\ 0307032 0457015\ 0307038 0397015\ 0307043 0347015\ 0307047 0307015\ 0307051 0267015\ 0307055 0227015\ 0307059 0187015\ 0307062 0157015\ 0647031 0127015\ 0747024 0097015\ 0817019 0077015\ 0867017 0047015\ 0917015 0017015\ 0967026\ 1007022\ 1047018\ 1077015\ 1117011\ 1147008\ 1177005\ 1207002* 0488014\ 0448022\ 0438027\ 0408031 0218013\ 0388035 0158021\ 0368038 0128026\ 0358040 0098030\ 0348014 0158013 0068034\ 0338012 0228010 0038037\ 0328010 0288008 0018039\ 0328008 0328047\ 0318007 0368023 0118012\ 0318006 0388020 0168010\ 0308006 0398018 0208008\ 0308006 0388017 0238007\ 0308005 0388017 0258007\ 0308005 0378017 0278006\ 0308005 0378016 0298005\ 0308005 0368017 0298005\ 0308006 0348017 0308005\ 0308006 0348016 0318005\ 0308007 0328016 0318006\ 0308008 0308018 0298006\ 0318009 0278020 0278007\ 0318010 0248023 0258007\ 0328012 0198028 0198010\ 0328015 0138022 0028010 0128013\ 0338048 0048033\ 0348046 0068031\ 0358044 0098027\ 0368041 0138023\ 0388037 0188018\ 0408033 0238011\ 0438029\ 0448024\ 0488016* 0839018\ 0779028\ 0369002 0369034\ 0359004 0339038\ 0349006 0309043\ 0339007 0299045\ 0339006 0299047\ 0329006 0299050\ 0319006 0299018 0179017\ 0319005 0299012 0309012\ 0309006 0299010 0359010\ 0309005 0299009 0399008\ 0309005 0299008 0429007\ 0309005 0299007 0449006\ 0309005 0299006 0469006\ 0309005 0299006 0479005\ 0309005 0299006 0479005\ 0309005 0299006 0479005\ 0309006 0299005 0479005\ 0309006 0299005 0469006\ 0319006 0299005 0449006\ 0319007 0299005 0429007\ 0329008 0289005 0399008\ 0329010 0279006 0359010\ 0339012 0259006 0319012\ 0349017 0219006 0239017\ 0359082\ 0379078\ 0389076\ 0409072\ 0439068\ 0449064\ 0479058\ 0519050\ 0569040* 001 001\ 034:007 033:007\ 032:011 029:011\ 031:013 027:013\ 030:015 025:015\ 030:015 025:015\ 030:015 025:015\ 031:013 027:013\ 032:011 029:011\ 034:007 033:007\ 001 001* 001 001\ 034;007 033;007\ 032;011 029;011\ 031;013 027;013\ 019;001 010;015 025;015\ 020;003 005;017 025;015\ 022;023 025;015\ 024;020 027;013\ 027;016 029;011\ 031;010 033;007\ 001 001* 062<001\ 061<003\ 060<005\ 059<007\ 058<009\ 057<011\ 056<013\ 055<007 001<007\ 054<007 003<007\ 053<007 005<007\ 052<007 007<007\ 051<007 009<007\ 050<007 011<007\ 049<007 013<007\ 048<007  015<007\ 047<007 017<007\ 046<007 019<007\ 045<007 021<007\ 044<007 023<007\ 043<007 025<007\ 042<007 027<007\ 041<007 029<007\ 040<007 031<007\ 039<007 033<007\ 038<007 035<007\ 037<007 037<007\ 036<007 039<007\ 035<007 041<007\ 034<007 043<007\ 033<007 045<007\ 032<007 047<007\ 031<007 049<007\ 030<007 051<007\ 029<007 053<007\ 029<006 055<006* 001 001\ 057=007 005=007\ 057=007 005=007\ 057=007 005=007\ 057=007 005=007\ 057=007 005=007\ 057=007 005=007\ 057=007 005=007\ 057=007 005=007\ 057=007 005=007\ 057=007 005=007\ 057=007 005=007\ 057=007 005=007\ 057=007 005=007\ 057=007 005=007\ 057=007 005=007\ 057=007 005=007\ 057=007 005=007\ 057=007 005=007\ 057=007 005=007\ 057=007 005=007\ 057=007 005=007\ 057=007 005=007\ 057=007 005=007\ 057=007 005=007* 029>006 055>006\ 029>007 053>007\ 030>007 051>007\ 031>007 049>007\ 032>007 047>007\ 033>007 045>007\ 034>007 043>007\ 035>007 041>007\ 036>007 039>007\ 037>007 037>007\ 038>007 035>007\ 039>007 033>007\ 040>007 031>007\ 041>007 029>007\ 042>007 027>007\ 043>007 025>007\ 044>007 023>007\ 045>007 021>007\ 046>007 019>007\ 047>007 017>007\ 048>007 015>007\ 049>007 013>007\ 050>007 011>007\ 051>007 009>007\ 052>007 007>007\ 053>007 005>007\ 054>007 003>007\ 055>007 001>007\ 056>013\ 057>011\ 058>009\ 059>007\ 060>005\ 061>003\ 062>001* 001 001\ 099?008\ 097?014\ 096?017\ 096?019\ 096?020\ 097?020\ 099?007 004?008\ 112?007\ 114?006\ 034?007 016?006 052?005\ 032?011 011?013 049?005\ 031?013 009?017 047?004\ 030?015 007?021 044?005\ 030?015 007?024 041?005\ 030?015 007?026 039?005\ 031?013 008?028 037?005\ 032?011 010?011 006?012 034?006\ 034?007 014?006 012?011 031?007\ 074?012 028?008\ 075?013 024?010\ 076?014 020?011\ 077?017 012?015\ 078?043\ 079?041\ 080?039\ 081?037\ 082?035\ 084?031\ 086?027\ 088?023\ 092?015* 030A005\ 030A005\ 030A005\ 030A005\ 030A006\ 030A009\ 030A013\ 030A017\ 030A005 002A013\ 030A005 006A013\ 030A005 009A014\ 030A005 013A014\ 052A014\ 056A 013\ 058A015\ 058A005 001A013\ 058A005 005A013\ 058A005 009A013\ 058A005 012A014\ 058A005 016A014\ 058A005 020A014\ 058A005 024A014\ 058A005 028A013\ 058A005 032A013\ 058A005 033A016\ 058A005 030A023\ 058A005 031A031\ 058A005 022A037\ 058A005 018A039\ 058A005 014A039\ 058A005 010A039\ 058A005 007A038\ 058A005 003A038\ 058A043\ 058A038\ 054A039\ 030A005 015A039\ 030A005 011A039\ 030A005 007A039\ 030A005 003A040\ 030A044\ 030A040\ 030A036\ 030A032\ 030A028\ 030A025\ 030A021\ 030A017\ 030A013\ 030A009\ 030A006\ 030A005\ 030A005\ 030A005\ 030A005* 030B005 082B005\ 030B005 082B005\ 030B005 082B005\ 030B005 082B005\ 030B092\ 030B092\ 030B092\ 030B092\ 030B092\ 030B092\ 030B092\ 030B092\ 030B092\ 030B005 045B005 032B005\ 030B005 045B005 032B005\ 030B005 045B005 032B005\ 030B005 045B005 032B005\ 030B005 045B005 032B005\ 030B005 045B005 032B005\ 030B005 045B005 032B005\ 030B005 045B005 032B005\ 030B005 045B005 032B005\ 030B005 045B005 032B005\ 030B005 045B006 030B006\ 030B006 043B007 030B006\ 030B006 043B007 030B006\ 030B007 041B009 028B007\ 031B007 039B010 028B007\ 031B008 037B012 027B007\ 031B009 035B015 022B009\ 032B009 033B017 020B010\ 032B010 031B020 016B011\ 033B011 027B025 010B014\ 033B014 021B013 002B036\ 034B017 013B016 004B034\ 035B044 006B032\ 036B043 008B030\ 037B040 011B027\ 038B038 014B022\ 040B034 019B016\ 043B030 024B010\ 045B025\ 049B017* 063C026\ 057C038\ 053C046\ 050C052\ 047C058\ 045C062\ 043C066\ 041C070\ 039C074\ 038C027 028C022\ 036C022 039C019\ 035C019 048C015\ 034C017 055C012\ 033C015 060C011\ 032C013 066C009\ 032C011 070C007\ 031C011 072C007\ 031C009 075C006\ 030C009 077C006\ 030C008 078C006\ 030C007 080C005\ 030C007 080C005\ 030C006 081C005\ 030C006 081C005\ 030C006 081C005\ 031C005 080C006\ 032C005 079C005\ 032C006 077C006\ 033C005 076C006\ 034C005 073C007\ 035C005 070C008\ 037C005 065C010\ 039C005 059C013\ 041C005 057C019\ 043C005 055C019\ 045C006 052C019\ 048C006 049C019\ 051C002* 030D005 082D005\ 030D005 082D005\ 030D005 082D005\ 030D005 082D005\ 030D092\ 030D092\ 030D092\ 030D092\ 030D092\ 030D092\ 030D092\ 030D092\ 030D092\ 030D005 082D005\ 030D005 082D005\ 030D005 082D005\ 030D005 082D005\ 030D005 082D005\ 030D005 082D005\ 030D005 082D005\ 030D006 080D006\ 030D006 080D006\ 030D007 078D007\ 030D007 078D007\ 031D007 076D007\ 031D008 074D008\ 032D008 072D008\ 032D009 070D009\ 033D010 066D010\ 033D013 060D013\ 034D014 056D014\ 035D016 050D016\ 036D020 040D020\ 037D025 028D025\ 039D074\ 040D072\ 043D068\ 044D064\ 046D060\ 049D054\ 052D048\ 056D040\ 061D030* 030E005 082E005\ 030E005 082E005\ 030E005 082E005\ 030E005 082E005\ 030E092\ 030E092\ 030E092\ 030E092\ 030E092\ 030E092\ 030E092\ 030E092\ 030E092\ 030E005 045E005 032E005\ 030E005 045E005 032E005\ 030E005 045E005 032E005\ 030E005 045E005 032E005\ 030E005 045E005 032E005\ 030E005 045E005 032E005\ 030E005 045E005 032E005\ 030E005 045E005 032E005\ 030E005 045E005 032E005\ 030E005 045E005 032E005\ 030E005 045E005 032E005\ 030E005 045E005 032E005\ 030E005 044E007 031E005\ 030E005 043E011 028E005\ 030E005 038E019 025E005\ 030E005 038E019 025E005\ 030E005 038E019 025E005\ 030E005 038E019 025E005\ 030E005 082E005\ 030E005 082E005\ 030E006 080E006\ 030E006 080E006\ 030E008 076E008\ 030E009 074E009\ 030E012 068E012\ 030E019 054E019\ 030E019 054E019\ 030E019 054E019\ 030E019 054E019* 030F005 082F005\ 030F005 082F005\ 030F005 082F005\ 030F005 082F005\ 030F092\ 030F092\ 030F092\ 030F092\ 030F092\ 030F092\ 030F092\ 030F092\ 030F092\ 030F005 045F005 032F005\ 030F005 045F005 032F005\ 030F005 045F005 032F005\ 030F005 045F005 032F005\ 080F005 032F005\ 080F005 032F005\ 080F005 032F005\ 080F005 032F005\ 080F005 032F005\ 080F005 032F005\ 080F005 032F005\ 080F005 032F005\ 079F007 031F005\ 078F011 028F005\ 073F019 025F005\ 073F019 025F005\ 073F019 025F005\ 073F019 025F005\ 117F005\ 117F005\ 116F006\ 116F006\ 114F008\ 113F009\ 110F012\ 103F019\ 103F019\ 103F019\ 103F019* 060G031\ 057G038\ 053G046\ 050G052\ 047G058\ 045G062\ 043G066\ 041G070\ 039G074\ 038G027 028G022\ 036G022 039G019\ 035G019 048G015\ 034G017 055G012\ 033G015 060G011\ 032G013 066G009\ 032G011 070G007\ 031G011 072G007\ 031G009 075G006\ 030G009 077G006\ 030G008 078G006\ 030G007 080G005\ 030G007 080G005\ 030G006 081G005\ 030G006 081G005\ 030G006 081G005\ 030G006 039G005 036G006\ 031G006 038G005 036G005\ 031G007 037G005 035G006\ 032G008 035G005 034G006\ 032G010 033G005 032G007\ 033G012 030G005 030G008\ 034G016 025G005 027G010\ 035G045 023G013\ 036G044 023G019\ 037G043 023G019\ 039G041 023G019\ 041G039 023G019\ 044G036\ 048G032\ 052G028\ 061G019* 030H005 082H005\ 030H005 082H005\ 030H005 082H005\ 030H005 082H005\ 030H092\ 030H092\ 030H092\ 030H092\ 030H092\ 030H092\ 030H092\ 030H092\ 030H092\ 030H005 045H005 032H005\ 030H005 045H005 032H005\ 030H005 045H005 032H005\ 030H005 045H005 032H005\ 080H005\ 080H005\ 080H005\ 080H005\ 080H005\ 080H005\ 080H005\ 080H005\ 080H005\ 080H005\ 080H005\ 080H005\ 030H005 045H005 032H005\ 030H005 045H005 032H005\ 030H005 045H005 032H005\ 030H005 045H005 032H005\ 030H092\ 030H092\ 030H092\ 030H092\ 030H092\ 030H092\ 030H092\ 030H092\ 030H092\ 030H005 082H005\ 030H005 082H005\ 030H005 082H005\ 030H005 082H005* 001 001\ 030I005 082I005\ 030I005 082I005\ 030I005 082I005\ 030I005 082I005\ 030I092\ 030I092\ 030I092\ 030I092\ 030I092\ 030I092\ 030I092\ 030I092\ 030I092\ 030I005 082I005\ 030I005 082I005\ 030I005 082I005\ 030I005 082I005* 044J008\ 040J014\ 037J018\ 035J021\ 034J023\ 033J024\ 032J025\ 032J024\ 031J007 003J014\ 031J006 005J012\ 030J006 008J008\ 030J005\ 030J005\ 030J005\ 030J005\ 030J006\ 030J006\ 031J006\ 031J007 079J005\ 031J009 077J005\ 032J010 075J005\ 033J012 072J005\ 034J088\ 035J087\ 036J086\ 037J085\ 038J084\ 040J082\ 045J077\ 050J072\ 117J005\ 117J005\ 117J005\ 117J005* 030K005 082K005\ 030K005 082K005\ 030K005 082K005\ 030K005 082K005\ 030K092\ 030K092\ 030K092\ 030K092\ 030K092\ 030K092\ 030K092\ 030K092\ 030K092\ 030K005 041K009 032K005\ 030K005 038K014 030K005\ 030K005 035K019 028K005\ 030K005 032K024 026K005\ 065K027\ 062K032\ 059K036\ 056K030 003K008\ 053K030 008K008\ 050K030 013K008\ 047K030 018K007\ 030K005 010K030 021K008\ 030K005 009K027 026K008\ 030K005 004K031 030K007\ 030K005 001K031 034K008\ 030K034 039K008 006K005\ 030K031 044K007 005K005\ 030K028 048K008 003K005\ 030K027 051K008 001K005\ 030K023 057K012\ 030K020 061K011\ 030K017 066K009\ 030K014 071K007\ 030K012 074K006\ 030K009 078K005\ 030K006 081K005\ 030K005 082K005\ 030K005 082K005\ 030K005\ 030K005* 030L005 082L005\ 030L005 082L005\ 030L005 082L005\ 030L005 082L005\ 030L092\ 030L092\ 030L092\ 030L092\ 030L092\ 030L092\ 030L092\ 030L092\ 030L092\ 030L005 082L005\ 030L005 082L005\ 030L005 082L005\ 030L005 082L005\ 030L005\ 030L005\ 030L005\ 030L005\ 030L005\ 030L005\ 030L005\ 030L005\ 030L005\ 030L005\ 030L005\ 030L005\ 030L005\ 030L005\ 030L005\ 030L005\ 030L005\ 030L005\ 030L006\ 030L006\ 030L008\ 030L009\ 030L012\ 030L019\ 030L019\ 030L019\ 030L019* 030M005 082M005\ 030M005 082M005\ 030M005 082M005\ 030M005 082M005\ 030M092\ 030M092\ 030M092\ 030M092\ 030M005 068M019\ 030M005 062M025\ 030M005 057M030\ 030M005 052M035\ 081M041\ 076M046\ 070M050\ 065M050\ 060M050\ 055M050\ 050M049\ 044M050\ 039M049\ 033M050\ 030M048\ 034M038\ 040M027\ 046M020\ 052M020\ 058M020\ 064M020\ 070M020\ 076M020\ 082M020\ 030M005 053M019\ 030M005 059M019\ 030M005 065M019\ 030M005 071M016\ 030M092\ 030M092\ 030M092\ 030M092\ 030M092\ 030M092\ 030M092\ 030M092\ 030M092\ 030M005 082M005\ 030M005 082M005\ 030M005 082M005\ 030M005 082M005* 030N005 082N005\ 030N005 082N005\ 030N005 082N005\ 030N005 082N005\ 030N092\ 030N092\ 030N092\ 030N092\ 030N005 072N015\ 030N005 069N018\ 030N005 066N021\ 030N005 064N023\ 096N026\ 093N029\ 091N029\ 088N030\ 085N030\ 082N030\ 079N030\ 076N030\ 074N030\ 071N030\ 068N030\ 065N030\ 062N030\ 060N030\ 057N030\ 054N030\ 051N030\ 049N029\ 046N030\ 043N030\ 040N030 047N005\ 037N030 050N005\ 035N030 052N005\ 032N030 055N005\ 030N092\ 030N092\ 030N092\ 030N092\ 117N005\ 117N005\ 117N005\ 117N005* 063O026\ 057O038\ 053O046\ 050O052\ 047O058\ 045O062\ 043O066\ 041O070\ 039O074\ 038O022 032O022\ 036O019 043O018\ 035O015 052O015\ 034O012 060O012\ 033O011 064O011\ 032O009 070O009\ 032O007 074O007\ 031O007 076O007\ 031O006 078O006\ 030O006 080O006\ 030O006 080O006\ 030O005 082O005\ 030O005 082O005\ 030O005 082O005\ 030O005 082O005\ 030O006 080O006\ 030O006 080O006\ 031O006 078O006\ 031O007 076O007\ 032O007 074O007\ 032O009 070O009\ 033O011 064O011\ 034O012 060O012\ 035O015 052O015\ 036O019 043O018\ 038O022 032O022\ 039O074\ 041O070\ 043O066\ 045O062\ 047O058\ 050O052\ 053O046\ 057O038\ 063O026* 030P005 082P005\ 030P005 082P005\ 030P005 082P005\ 030P005 082P005\ 030P092\ 030P092\ 030P092\ 030P092\ 030P092\ 030P092\ 030P092\ 030P092\ 030P092\ 030P005 045P005 032P005\ 030P005 045P005 032P005\ 030P005 045P005 032P005\ 030P005 045P005 032P005\ 080P005 032P005\ 080P005 032P005\ 080P005 032P005\ 080P005 032P005\ 080P005 032P005\ 080P005 032P005\ 080P006 030P006\ 080P006 030P006\ 080P006 030P006\ 080P007 028P007\ 080P007 028P007\ 081P007 026P007\ 081P009 022P009\ 081P010 020P010\ 082P011 016P011\ 082P014 010P014\ 083P036\ 084P034\ 085P032\ 086P030\ 088P026\ 090P022\ 093P016\ 096P010* 063Q026\ 057Q038\ 053Q046\ 050Q052\ 047Q058\ 045Q062\ 043Q066\ 041Q070\ 039Q074\ 038Q022 032Q022\ 036Q019 043Q018\ 035Q015 052Q015\ 034Q012 060Q012\ 033Q011 064Q011\ 032Q009 070Q009\ 032Q007 074Q007\ 031Q007 076Q007\ 031Q006 078Q006\ 030Q006 080Q006\ 030Q006 080Q006\ 030Q005 004Q003 075Q005\ 030Q005 005Q005 072Q005\ 030Q005 006Q006 070Q005\ 030Q005 006Q007 069Q005\ 030Q006 004Q009 067Q006\ 030Q006 003Q011 066Q006\ 031Q006 001Q012 065Q006\ 031Q019 064Q007\ 032Q018 063Q007\ 032Q017 064Q007\ 033Q016 059Q011\ 033Q015 058Q012\ 032Q018 052Q015\ 031Q024 043Q018\ 031Q029 032Q022\ 030Q083\ 030Q081\ 030Q012 001Q066\ 030Q011 004Q062\ 031Q009 007Q058\ 032Q007 011Q052\ 033Q006 014Q046\ 035Q005 017Q038\ 038Q003 022Q026* 030R005 082R005\ 030R005 082R005\ 030R005 082R005\ 030R005 082R005\ 030R092\ 030R092\ 030R092\ 030R092\ 030R092\ 030R092\ 030R092\ 030R092\ 030R092\ 030R005 041R009 032R005\ 030R005 038R012 032R005\ 030R005 035R015 032R005\ 030R005 032R018 032R005\ 065R020 032R005\ 062R023 032R005\ 059R026 032R005\ 056R029 032R005\ 053R032 032R005\ 050R035 032R005\ 047R030 003R006 030R006\ 030R005 010R030 005R006 030R006\ 030R005 007R030 008R006 030R006\ 030R005 004R031 010R007 028R007\ 030R005 001R031 013R007 028R007\ 030R034 017R007 027R007\ 030R031 020R009 022R009\ 030R028 023R010 020R010\ 030R027 025R011 016R011\ 030R023 029R014 010R014\ 030R020 033R036\ 030R017 037R034\ 030R014 041R032\ 030R012 044R030\ 030R009 049R027\ 030R006 054R022\ 030R005 058R016\ 030R005 061R010\ 030R005\ 030R005* 030S019\ 030S019\ 030S019 040S016\ 030S019 036S024\ 034S012 037S028\ 034S010 037S032\ 033S009 037S036\ 033S007 038S017 011S010\ 032S007 038S016 016S008\ 032S006 038S015 020S007\ 031S006 038S015 023S006\ 031S005 038S016 024S006\ 031S005 038S015 026S005\ 030S005 038S016 027S005\ 030S005 038S015 028S005\ 030S005 038S015 029S005\ 030S005 037S016 029S005\ 030S005 037S016 029S005\ 030S005 036S016 030S005\ 030S005 036S016 030S005\ 030S005 035S016 031S005\ 030S006 034S016 031S005\ 030S006 033S016 031S006\ 030S007 031S017 030S006\ 031S007 029S017 030S007\ 031S008 027S018 029S007\ 032S008 024S019 028S009\ 032S009 021S020 027S010\ 033S010 017S021 026S011\ 034S012 011S023 023S014\ 035S044 024S019\ 036S042 025S019\ 038S039 026S019\ 039S036 028S019\ 041S032\ 043S028\ 046S023\ 049S015* 103T019\ 103T019\ 103T019\ 103T019\ 110T012\ 113T009\ 114T008\ 116T006\ 116T006\ 117T005\ 117T005\ 117T005\ 117T005\ 030T005 082T005\ 030T005 082T005\ 030T005 082T005\ 030T005 082T005\ 030T092\ 030T092\ 030T092\ 030T092\ 030T092\ 030T092\ 030T092\ 030T092\ 030T092\ 030T005 082T005\ 030T005 082T005\ 030T005 082T005\ 030T005 082T005\ 117T005\ 117T005\ 117T005\ 117T005\ 116T006\ 116T006\ 114T008\ 113T009\ 110T012\ 103T019\ 103T019\ 103T019\ 103T019* 117U005\ 117U005\ 117U005\ 117U005\ 056U066\ 050U072\ 046U076\ 044U078\ 042U080\ 040U082\ 038U084\ 036U086\ 035U087\ 034U021 062U005\ 033U018 066U005\ 032U016 069U005\ 032U014 071U005\ 031U013\ 031U011\ 031U010\ 030U010\ 030U009\ 030U009\ 030U008\ 030U008\ 030U008\ 030U008\ 031U007\ 031U007\ 031U008\ 032U007\ 032U008\ 033U008\ 034U008\ 035U009\ 036U010 071U005\ 038U010 069U005\ 040U011 066U005\ 042U013 062U005\ 044U078\ 046U076\ 050U072\ 056U066\ 117U005\ 117U005\ 117U005\ 117U005* 117V005\ 117V005\ 117V005\ 117V005\ 115V007\ 110V012\ 105V017\ 101V021\ 096V026\ 092V030\ 087V035\ 083V039\ 078V044\ 074V048\ 070V043 004V005\ 065V043 009V005\ 060V044 013V005\ 056V043\ 051V043\ 046V044\ 043V044\ 037V045\ 033V044\ 030V043\ 033V035\ 038V031\ 043V017\ 043V016\ 052V016\ 057V016\ 061V017\ 066V017\ 071V017\ 076V017\ 080V017\ 085V017 015V005\ 090V017 010V005\ 095V017 005V005\ 100V022\ 105V017\ 110V012\ 114V008\ 117V005\ 117V005\ 117V005\ 117V005* 117W005\ 117W005\ 117W005\ 117W005\ 115W007\ 110W012\ 105W017\ 101W021\ 096W026\ 092W030\ 087W035\ 083W039\ 078W044\ 074W048\ 070W043 004W005\ 065W043 009W005\ 060W044 013W005\ 056W043\ 051W043\ 046W044\ 043W044\ 037W045\ 033W044\ 030W043\ 033W035\ 038W031\ 043W017\ 043W016\ 052W016\ 057W016\ 061W017\ 065W018\ 060W028\ 056W037\ 051W043\ 046W044\ 043W044\ 037W045\ 033W044\ 030W043\ 033W035\ 038W031\ 043W017\ 057W016\ 061W017\ 066W017\ 071W017\ 076W017\ 080W017\ 085W017 015W005\ 090W017 010W005\ 095W017 005W005\ 100W022\ 105W017\ 110W012\ 114W008\ 117W005\ 117W005\ 117W005\ 117W005* 030X005 082X005\ 030X005 082X005\ 030X005 082X005\ 030X005 082X005\ 030X005 080X007\ 030X005 077X010\ 030X007 072X013\ 030X010 066X016\ 030X012 061X019\ 030X015 055X022\ 030X005 003X010 050X024\ 030X005 005X011 044X027\ 030X005 008X010 039X030\ 046X010 033X033\ 049X009 028X029 002X005\ 051X010 022X029 005X005\ 054X010 016X029 008X005\ 057X009 011X029 011X005\ 059X010 005X029\ 062X039\ 064X034\ 066X029\ 063X029\ 060X029\ 057X029\ 054X034\ 051X040\ 048X030 005X010\ 030X005 010X030 011X010\ 030X005 007X030 017X010\ 030X005 004X030 023X009\ 030X005 001X030 028X010\ 030X033 034X010\ 030X030 040X009 008X005\ 030X027 046X009 005X005\ 030X024 051X010 002X005\ 030X021 057X014\ 030X019 062X011\ 030X016 067X009\ 030X013 073X006\ 030X010 077X005\ 030X007 080X005\ 030X005 082X005\ 030X005 082X005\ 030X005 082X005\ 030X005 082X005* 117Y005\ 117Y005\ 117Y005\ 117Y005\ 114Y008\ 111Y011\ 108Y014\ 105Y017\ 102Y020\ 099Y023\ 096Y026\ 093Y029\ 090Y032\ 087Y035\ 084Y031 002Y005\ 030Y005 046Y031 005Y005\ 030Y005 043Y031 008Y005\ 030Y005 040Y031 011Y005\ 030Y005 037Y031\ 030Y070\ 030Y067\ 030Y064\ 030Y061\ 030Y058\ 030Y055\ 030Y052\ 030Y049\ 030Y052\ 030Y005 038Y013\ 030Y005 041Y013\ 030Y005 045Y013\ 030Y005 048Y013\ 087Y013\ 090Y013 014Y005\ 094Y012 011Y005\ 097Y013 007Y005\ 101Y013 003Y005\ 104Y018\ 108Y014\ 111Y011\ 115Y007\ 117Y005\ 117Y005\ 117Y005\ 117Y005\ 117Y005* 030Z002 071Z019\ 030Z005 068Z019\ 030Z008 065Z019\ 030Z010 063Z019\ 030Z013 067Z012\ 030Z016 067Z009\ 030Z019 065Z008\ 030Z022 064Z006\ 030Z025 061Z006\ 030Z028 059Z005\ 030Z031 056Z005\ 030Z034 053Z005\ 030Z005 002Z029 051Z005\ 030Z005 005Z029 048Z005\ 030Z005 007Z030 045Z005\ 030Z005 010Z030 042Z005\ 030Z005 013Z030 039Z005\ 030Z005 016Z030 036Z005\ 030Z005 019Z030 033Z005\ 030Z005 022Z030 030Z005\ 030Z005 024Z031 027Z005\ 030Z005 027Z031 024Z005\ 030Z005 030Z031 021Z005\ 030Z005 033Z031 018Z005\ 030Z005 036Z031 015Z005\ 030Z005 039Z031 012Z005\ 030Z005 042Z031 009Z005\ 030Z005 045Z031 006Z005\ 030Z005 048Z031 003Z005\ 030Z005 051Z036\ 030Z005 054Z033\ 030Z005 056Z031\ 030Z005 059Z028\ 030Z006 061Z025\ 030Z006 064Z022\ 030Z008 065Z019\ 030Z009 067Z016\ 030Z012 067Z013\ 030Z019 063Z010\ 030Z019 066Z007\ 030Z019 068Z005\ 030Z019 071Z002* 030[092\ 030[092\ 030[092\ 030[005 082[005\ 030[005 082[005\ 030[005 082[005\ 030[005 082[005\ 030[005 082[005\ 030[005 082[005* 030]005 082]005\ 030]005 082]005\ 030]005 082]005\ 030]005 082]005\ 030]005 082]005\ 030]005 082]005\ 030]092\ 030]092\ 030]092* 043a009\ 038a017\ 036a021\ 034a025 012a006\ 033a027 009a011\ 032a029 007a014\ 031a031 006a015\ 031a010 011a010 006a016\ 030a009 015a009 006a015\ 030a008 017a008 008a005 002a007\ 030a007 019a007 016a006\ 030a007 019a007 017a005\ 030a007 019a007 017a005\ 031a006 019a006 018a005\ 031a006 019a006 017a006\ 032a006 017a006 017a007\ 033a006 015a006 017a008\ 034a007 011a007 015a010\ 035a049\ 033a050\ 032a050\ 031a050\ 030a050\ 030a048\ 030a046\ 030a043\ 030a007\ 030a005\ 030a004\ 030a003* 030b005 082b005\ 030b005 082b005\ 030b092\ 030b092\ 030b092\ 030b092\ 030b092\ 030b092\ 030b092\ 030b092\ 037b006 029b006\ 035b006 033b006\ 033b006 037b006\ 032b006 039b006\ 031b006 041b006\ 031b005 043b005\ 030b006 043b006\ 030b006 043b006\ 030b006 043b006\ 030b007 041b007\ 030b008 039b008\ 031b009 035b009\ 031b012 029b012\ 032b016 019b016\ 033b049\ 034b047\ 035b045\ 037b041\ 039b037\ 043b031\ 046b023* 048c019\ 043c029\ 041c033\ 039c037\ 037c041\ 035c045\ 034c047\ 033c014 021c014\ 032c010 031c010\ 032c008 035c008\ 031c007 039c007\ 031c006 041c006\ 030c006 043c006\ 030c005 045c005\ 030c005 045c005\ 030c005 045c005\ 030c005 045c005\ 030c005 045c005\ 031c004 044c005\ 031c005 043c005\ 032c004 043c005\ 032c005 039c007\ 033c005 036c008\ 034c005 033c009\ 035c006 031c008\ 037c006 030c005\ 039c005 030c002\ 041c004* 046d023\ 043d031\ 039d037\ 037d041\ 035d045\ 034d047\ 033d049\ 032d016 019d016\ 031d012 029d012\ 031d009 035d009\ 030d008 039d008\ 030d007 041d007\ 030d006 043d006\ 030d006 043d006\ 030d006 043d006\ 031d005 043d005\ 031d006 041d006\ 032d006 039d006\ 033d006 037d006\ 035d006 033d006 037d005\ 037d006 029d006 039d005\ 030d092\ 030d092\ 030d092\ 030d092\ 030d092\ 030d092\ 030d092\ 030d092\ 030d005\ 030d005* 048e019\ 043e029\ 041e033\ 039e037\ 037e041\ 035e045\ 034e047\ 033e014 008e005 008e014\ 032e010 013e005 013e010\ 032e008 015e005 015e008\ 031e007 017e005 017e007\ 031e006 018e005 018e006\ 030e006 019e005 019e006\ 030e005 020e005 020e005\ 030e005 020e005 020e005\ 030e005 020e005 020e005\ 030e005 020e005 020e005\ 030e005 020e005 019e006\ 031e004 020e005 018e006\ 031e005 019e005 017e007\ 032e004 019e005 015e008\ 032e005 018e005 013e010\ 033e005 017e005 008e014\ 034e005 016e026\ 035e006 014e025\ 037e006 012e023\ 039e005 011e021\ 041e004 010e019\ 055e017\ 055e012* 080f005\ 030f005 045f005\ 030f005 045f005\ 030f079\ 030f083\ 030f086\ 030f089\ 030f089\ 030f090\ 030f091\ 030f091\ 030f005 045f005 030f007\ 030f005 045f005 032f005\ 080f005 020f007 005f005\ 080f005 018f011 002f006\ 080f005 017f020\ 080f005 016f020\ 101f020\ 101f019\ 102f017\ 103f013\ 105f007* 012g011 036g012\ 009g017 029g020\ 007g021 025g024\ 006g008 009g006 003g007 012g028\ 004g008 013g017 008g030\ 003g007 017g017 005g032\ 002g007 019g017 003g034\ 001g007 019g019 001g036\ 001g007 019g032 012g013\g007 019 g016 002 g011 020 g009 001\g007 018 g015 005 g008 024 g008 001\g007 018 g014 006 g006 028 g006 001\g007 017 g015 006 g005 030 g005 001\g007 017 g014 007 g005 030 g005 001\g007 016 g015 007 g005 030 g005 001\g007 016 g014 008 g005 030 g005 001\g008 014 g014 009 g006 028 g006 001\g008 013 g015 009 g008 024 g008 001\ 001g008 012g014 011g009 020g009\ 001g009 010g014 012g013 012g013\ 001g011 006g016 013g036\ 002g031 015g034\ 003g030 016g033\ 004g028 018g032\ 005g026 020g028 001g003 003g005\ 007g022 024g024 003g004 001g007\ 009g018 028g020 005g013\ 012g013 034g012 010g012\ 082g011\ 084g008\ 086g005* 030h005 082h005\ 030h005 082h005\ 030h092\ 030h092\ 030h092\ 030h092\ 030h092\ 030h092\ 030h092\ 030h092\ 030h005 037h006\ 030h005 039h006\ 075h006\ 076h006\ 076h007\ 077h007\ 077h007\ 077h008\ 077h008\ 076h009\ 030h005 040h010\ 030h005 037h013\ 030h055\ 030h054\ 030h054\ 030h053\ 030h052\ 030h050\ 030h047\ 030h043\ 030h005\ 030h005* 001 001\ 030i005 045i005\ 030i005 045i005 015i007\ 030i055 013i011\ 030i055 012i013\ 030i055 011i015\ 030i055 011i015\ 030i055 011i015\ 030i055 012i013\ 030i055 013i011\ 030i055 015i007\ 030i005\ 030i005* 007j007\ 004j012\ 003j014\ 002j015\ 001j016\ 001j016\j005 001 j010 001\j005 002 j007 001\j005 001\j005 001\j006 001\ 001j006 073j005\ 001j008 071j005 015j007\ 002j083 013j011\ 003j082 012j013\ 004j081 011j015\ 005j080 011j015\ 007j078 011j015\ 010j075 012j013\ 014j071 013j011\ 019j066 015j007* 030k005 082k005\ 030k005 082k005\ 030k092\ 030k092\ 030k092\ 030k092\ 030k092\ 030k092\ 030k092\ 030k092\ 030k005 022k010\ 030k005 020k013\ 052k018\ 050k021\ 048k025\ 046k028\ 044k022 003k007\ 041k023 006k007 003k005\ 030k005 004k022 011k007 001k005\ 030k005 001k023 014k012\ 030k027 018k010\ 030k024 022k009\ 030k022 026k007\ 030k020 029k006\ 030k017 033k005\ 030k015 035k005\ 030k013\ 030k011\ 030k008\ 030k006\ 030k005\ 030k005* 001 001\ 030l005 082l005\ 030l005 082l005\ 030l092\ 030l092\ 030l092\ 030l092\ 030l092\ 030l092\ 030l092\ 030l092\ 030l005\ 030l005* 030m005 045m005\ 030m005 045m005\ 030m055\ 030m055\ 030m055\ 030m055\ 030m055\ 030m055\ 030m055\ 030m055\ 030m005 037m006\ 030m005 039m006\ 075m006\ 076m006\ 030m005 040m008\ 030m005 039m010\ 030m055\ 030m055\ 030m055\ 030m055\ 030m054\ 030m053\ 030m052\ 030m049\ 030m005 037m006\ 030m005 039m006\ 075m006\ 076m006\ 030m005 040m008\ 030m005 039m010\ 030m055\ 030m055\ 030m055\ 030m055\ 030m054\ 030m053\ 030m052\ 030m049\ 030m005\ 030m005* 030n005 045n005\ 030n005 045n005\ 030n055\ 030n055\ 030n055\ 030n055\ 030n055\ 030n055\ 030n055\ 030n055\ 030n005 037n006\ 030n005 039n006\ 075n006\ 076n006\ 076n007\ 077n007\ 077n007\ 077n008\ 077n008\ 076n009\ 030n005 040n010\ 030n005 037n013\ 030n055\ 030n054\ 030n054\ 030n053\ 030n052\ 030n050\ 030n047\ 030n043\ 030n005\ 030n005* 048o019\ 043o029\ 041o033\ 039o037\ 037o041\ 035o045\ 034o047\ 033o014 021o014\ 032o010 031o010\ 032o008 035o008\ 031o007 039o007\ 031o006 041o006\ 030o006 043o006\ 030o005 045o005\ 030o005 045o005\ 030o005 045o005\ 030o005 045o005\ 030o006 043o006\ 031o006 041o006\ 031o007 039o007\ 032o008 035o008\ 032o010 031o010\ 033o014 021o014\ 034o047\ 035o045\ 037o041\ 039o037\ 041o033\ 043o029\ 048o019*p005 075 p005 001\p005 075 p005 001\p085 001\p085 001\p085 001\p085 001\p085 001\p085 001\p085 001\p085 001\ 037p006 029p006\ 035p006 033p006\ 033p006 037p006\ 032p006 039p006\ 031p006 041p006\ 031p005 043p005\ 030p006 043p006\ 030p006 043p006\ 030p006 043p006\ 030p007 041p007\ 030p008 039p008\ 031p009 035p009\ 031p012 029p012\ 032p016 019p016\ 033p049\ 034p047\ 035p045\ 037p041\ 039p037\ 043p031\ 046p023* 046q023\ 043q031\ 039q037\ 037q041\ 035q045\ 034q047\ 033q049\ 032q016 019q016\ 031q012 029q012\ 031q009 035q009\ 030q008 039q008\ 030q007 041q007\ 030q006 043q006\ 030q006 043q006\ 030q006 043q006\ 031q005 043q005\ 031q006 041q006\ 032q006 039q006\ 033q006 037q006\ 035q006 033q006\ 037q006 029q006\q085 001\q085 001\q085 001\q085 001\q085 001\q085 001\q085 001\q085 001\q005 075 q005 001\q005 075 q005 001* 030r005 045r005\ 030r005 045r005\ 030r055\ 030r055\ 030r055\ 030r055\ 030r055\ 030r055\ 030r055\ 030r055\ 030r005 033r007\ 030r005 035r007\ 071r008\ 073r008\ 073r008\ 074r008\ 074r009\ 075r009\ 075r009\ 069r016\ 067r018\ 066r019\ 065r020\ 065r020\ 065r019\ 065r019\ 066r017\ 067r014\ 069r009* 030s014 020s009\ 030s014 017s015\ 030s014 015s019\ 030s014 013s023\ 033s009 014s025\ 032s008 015s027\ 032s007 015s029\ 031s007 015s017 007s007\ 031s006 016s015 011s005\ 030s006 016s015 013s005\ 030s006 016s014 014s005\ 030s005 017s014 014s005\ 030s005 017s013 015s005\ 030s005 016s014 015s005\ 030s005 016s014 015s005\ 030s005 015s014 015s006\ 030s005 015s014 014s006\ 030s006 013s015 013s007\ 031s005 013s014 013s007\ 031s006 011s015 012s008\ 032s006 009s015 011s009\ 032s007 006s017 009s014\ 033s028 010s014\ 034s027 010s014\ 035s025 011s014\ 037s021\ 039s017\ 043s010* 080t005\ 080t005\ 080t005\ 041t057\ 037t061\ 035t063\ 033t065\ 032t066\ 031t067\ 030t068\ 030t068\ 030t012 038t005\ 030t010 040t005\ 030t009 041t005\ 031t008 041t005\ 031t007\ 032t006\ 033t006\ 035t005\ 038t004* 080u005\ 080u005\ 042u043\ 038u047\ 035u050\ 033u052\ 032u053\ 031u054\ 031u054\ 030u055\ 030u013\ 030u010\ 030u009\ 030u008\ 030u008\ 031u007\ 031u007\ 032u007\ 033u006\ 034u006\ 035u006 039u005\ 037u006 037u005\ 030u055\ 030u055\ 030u055\ 030u055\ 030u055\ 030u055\ 030u055\ 030u055\ 030u005\ 030u005* 080v005\ 080v005\ 077v008\ 074v011\ 070v015\ 066v019\ 062v023\ 059v026\ 055v030\ 051v034\ 047v038\ 044v033 003v005\ 040v033 007v005\ 036v033\ 032v034\ 030v032\ 033v025\ 036v018\ 040v013\ 044v013\ 048v013\ 051v014\ 055v014\ 059v014 007v005\ 063v014 003v005\ 067v018\ 071v014\ 074v011\ 078v007\ 080v005\ 080v005\ 080v005* 080w005\ 080w005\ 077w008\ 074w011\ 070w015\ 066w019\ 062w023\ 059w026\ 055w030\ 051w034\ 047w038\ 044w033 003w005\ 040w033 007w005\ 036w033\ 032w034\ 030w032\ 033w025\ 036w018\ 040w013\ 044w013\ 043w014\ 044w021\ 040w029\ 036w032\ 032w033\ 030w031\ 033w025\ 036w018\ 040w013\ 044w013\ 048w013\ 051w014\ 055w014\ 059w014 007w005\ 063w014 003w005\ 067w018\ 071w014\ 074w011\ 078w007\ 080w005\ 080w005\ 080w005* 030x005 045x005\ 030x005 045x005\ 030x005 044x006\ 030x005 043x007\ 030x007 037x011\ 030x009 033x013\ 030x012 027x016\ 030x014 023x018\ 030x005 002x009 018x021\ 030x005 004x009 014x023\ 041x009 009x026\ 043x009 005x028\ 045x009 001x023 002x005\ 047x028 005x005\ 049x024\ 047x023\ 044x024\ 043x023\ 030x005 004x028\ 030x005 002x032\ 030x028 004x009\ 030x027 007x009\ 030x023 013x009 005x005\ 030x021 017x009 003x005\ 030x018 022x009 001x005\ 030x016 027x012\ 030x013 032x010\ 030x011 036x008\ 030x008 041x006\ 030x006 044x005\ 030x005 045x005\ 030x005 045x005* 004y006 070y005\ 002y010 068y005\ 001y012 064y008\y014 060 y011 001\y014 056 y015 001\y014 052 y019 001\ 001y012 049y023\ 002y010 043y030\ 004y012 039y030\ 007y013 031y034\ 010y013 024y038\ 014y013 017y033 003y005\ 017y014 009y033 007y005\ 021y014 001y033\ 025y041\ 029y033\ 033y025\ 036y018\ 040y013\ 044y013\ 048y013\ 051y014\ 055y014\ 059y014 007y005\ 063y014 003y005\ 067y018\ 071y014\ 074y011\ 078y007\ 080y005\ 080y005\ 080y005* 030z002 039z014\ 030z004 037z014\ 030z007 034z014\ 030z010 035z010\ 030z012 035z008\ 030z015 034z006\ 030z018 031z006\ 030z020 030z005\ 030z023 027z005\ 030z027 023z005\ 030z028 022z005\ 030z005 001z025 019z005\ 030z005 003z026 016z005\ 030z005 006z025 014z005\ 030z005 009z025 011z005\ 030z005 011z026 008z005\ 030z005 014z026 005z005\ 030z005 017z025 003z005\ 030z005 019z031\ 030z005 022z028\ 030z005 024z026\ 030z005 027z023\ 030z005 030z020\ 030z006 031z018\ 030z006 034z015\ 030z008 035z012\ 030z010 036z009\ 030z014 034z007\ 030z014 037z004\ 030z014 039z002*005\ 001y012 064y008\y014 060 y011 001\y014 056 y015 001\y014 052 y019 001\ 001y012 049y023\ 002y010 043y030\ 004y012 039y037 PRINT CHR$(26):PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 8 PRINT "PRINTER MUST BE TURNED ON TO WORK THIS PROGRAM!!!!" 9 LPRINT 10 WIDTH 50:PRINT CHR$(26):PRINT "STOP EVERYTHING!!!! THIS IS SET UP FOR AN NEC - 8023A" 20 PRINT " TO FIT YOUR PRINTER CHANGE LINES 80,160,1510,1570,4630,4660,4710,4740,4920,4960,7520,THEY EACH HAVE REMARK STATEMENTS TO TELL YOU WHAT THEY ARE FOR THE NEC 8023A PRINTER" 30 LINE INPUT "IF NOT SURE OF YOUR PRINTER CHR$ COMMANDS, TYPE ^C AND THEN RUN PRINTER.BAS OTHERWISE PUSH >RETURN<";DUMMY$ 40 PRINT CHR$(26):PRINT "IF THE PROGRAM IS NOW SET FOR YOUR PRINTER, YOU MAY WANT TO DELETE LINES 10 THRU 60 AND YOU CAN SET YOUR OWN ENDING MESSAGE FROM THE KEY BOARD IN THIS UPDATE!":PRINT 50 LINE INPUT "READ THESE INSTRUCTIONS THEN PUSH RETURN: THIS PROGRAM WILL WRITE A BANNER. FIRST YOU TYPE IN THE BIG LETTERS OF THE MESSAGE AND THEN THE LITTLE LETTERS WHICH GO IN EACH LETTER.";DUMMY$ 60 PRINT CHR$(26):PRINT " THIS PROPGRAM WAS DEVELOPED AND WRITTEN BY PETE DAVIS AFTER GREAT EFFORT. DONATIONS FOR HIS HUNDREDS HOURS OF WORK WILL BE WELECOME. 70 PRINT:LINE INPUT "The author grants permission to copy this file on a not-for-profit basis. No copies of this file maybe sold for profit execpt by the author. PRESS RETURN TO START"; DUMMY$ 80 LPRINT CHR$(&H1B);"!":REM **THIS MAKES ENHANCED OR DARK PRINT ON THE NEC 8023 90 GOSUB 7660 100 FOR K=5 TO 4550:NEXT K 110 DEFSTR H:DIM H(60) 120 PRINT CHR$(26) 130 DEFINT K 140 DEFSTR A-E,Z 150 E="*":EE="**":EEE="***" 155 INPUT "IF YOU WANT A PERIOD BLOCK AT THE END, TYPE OTHERWISE PUSH "; CHE$:IF LEFT$(CHE$,1)="Y" THEN GOSUB 20000 160 Z=STRING$(5,CHR$(196)):REM THIS MAKES A FANCY "&" SIGN ON THE NEC REPLACE WITH ONE FOR YOUR PRINTER 170 DIM AA(100) 180 PRINT:PRINT:PRINT "USE ALL CAPS LETTERS, ALL NUMBERS AND +,-,=,!,.,?,<,>,^,| FOR DOWN ARROW, @ FOR HEART we also have a small c.":PRINT:PRINT:PRINT 190 INPUT " WHAT BIG MESSAGE DO YOU WANT";MESS$ 200 PRINT 210 FOR K=1 TO LEN(MESS$) 220 PRINT"STRING$ MESSAGE # "K" YOU MUST USE CHARACTERS. NO BLANKS" 230 PRINT"IF YOU WANT TO REUSE OLD MESSAGES IN THE ORDER OF WHICH THEY WERE GIVEN -- TYPE >STOP< " 240 PRINT:PRINT "AFTER UP TO >9< CHARACTERS THEN TYPE >#<" 250 PRINT 260 IF MID$(MESS$,K,1)=" " OR MID$(MESS$,K,1)="." OR MID$(MESS$,K,1)="@" THEN PRINT "THERE ARE NO MESSAGES IN BLANKS, PERIODS, OR HEARTS -- DO THE NEXT ONE:":GOTO 380 270 IF SF<>0 AND KK=KS THEN KK=0 280 IF SF<>0 THEN AA(K)=AA(KK):PRINT:PRINT:PRINT"YOUR MESSAGE IS:"AA(K):GOTO 330 290 INPUT;AA(K) 300 BLANK$=" ": IF INSTR(AA(K),BLANK$)<>0 THEN PRINT" YOU BLEW IT!!!! NO BLANKS!!!!! TRY AGAIN BUSTER!!!":GOTO 220 310 PRINT:PRINT 320 IF RIGHT$(AA(K),1)="#" THEN GOTO 7360 330 IF AA(K)="STOP" THEN SF=4:KS=K:KK=KK+1:GOTO 280 340 IF SF<>0 AND AA(K)="" THEN KK=KK+1:GOTO 270 350 IF SF<>0 THEN KK=KK+1:GOTO 390 360 PRINT:PRINT 370 IF LEN(AA(K))<>10 THEN PRINT"YOU MUST USE TEN LETTERS OR LESS THEN 10 FOLLOWED BY >#< ":PRINT:PRINT:PRINT:GOTO 290 380 IF VAL(LEFT$(DUMMY$,2))>0 AND VAL(LEFT$(DUMMY$,2))<50 THEN RETURN 390 NEXT K 400 FOR J=1 TO LEN(MESS$) 410 A=AA(J):Z=LEFT$(A,5):IF DUMMY$<>"" THEN 500 420 FOR K=1 TO LEN(MESS$) :IF K<24 THEN PRINT K" ";: PRINT MID$(MESS$,K,1)"="AA(K) 430 IF K>23 THEN INPUT "PRESS ENTER TO CONTINUE";DUMMY:PRINT TAB(24);K" ";MID$(MESS$,K,1)"="AA(K) 440 NEXT K 450 IF FINI<>0 THEN END ELSE IF DUMMY$="" THEN INPUT" IF THIS IS OK THEN TYPE >Y< ELSE ^C AND START AGAIN OR YOU CAN TYPE THE NUMBER OF THE LETTER ABOVE AND CORRECT";DUMMY$ 460 IF VAL(LEFT$(DUMMY$,2))>0 AND VAL(LEFT$(DUMMY$,2))<50 THEN GOSUB 7860 470 IF VAL(LEFT$(DUMMY$,2))>0 AND VAL(LEFT$(DUMMY$,2))<50 THEN DUMMY$="" :GOTO 400 480 LM=LEN(MESS$) 490 IF LEFT$(DUMMY$,1)<>"Y" THEN PRINT CHR$(26):PRINT "YOU HAVE "LM;:PRINT" SPACES LESS . AND HEART TRY AGAIN WITH "MESS$;:PRINT :PRINT:GOTO 200 500 FOR K=1 TO 8:LPRINT:NEXT K 510 IF MID$(MESS$,J,1)="A" THEN 1000:'IN 520 IF MID$(MESS$,J,1)=" " THEN FOR K=1 TO 20:LPRINT :NEXT K:GOTO 1260 530 IF MID$(MESS$,J,1)="B" THEN 1290 540 IF MID$(MESS$,J,1)="C" THEN 1520 550 IF MID$(MESS$,J,1)="c" THEN 1510 560 IF MID$(MESS$,J,1)="D" THEN 1590:' IN 570 IF MID$(MESS$,J,1)="E" THEN 2350:'IN 580 IF MID$(MESS$,J,1)="F" THEN 1890 590 IF MID$(MESS$,J,1)="G" THEN 2010:'IN 600 IF MID$(MESS$,J,1)="H" THEN 2130 610 IF MID$(MESS$,J,1)="I" THEN 2260:'IN 620 IF MID$(MESS$,J,1)="J" THEN 2470 630 IF MID$(MESS$,J,1)="K" THEN 2770:'IN 640 IF MID$(MESS$,J,1)="L" THEN 2850 650 IF MID$(MESS$,J,1)="M" THEN 2970:'IN 660 IF MID$(MESS$,J,1)="N" THEN 3150:'IN 670 IF MID$(MESS$,J,1)="O" THEN 1820 680 IF MID$(MESS$,J,1)="P" THEN 3300:'IN 690 IF MID$(MESS$,J,1)="Q" THEN 2660 700 IF MID$(MESS$,J,1)="R" THEN 4280:'IN 710 IF MID$(MESS$,J,1)="S" THEN 3480:'IN 720 IF MID$(MESS$,J,1)="T" THEN 3880:'IN 730 IF MID$(MESS$,J,1)="U" THEN 3690 740 IF MID$(MESS$,J,1)="V" THEN 3760 750 IF MID$(MESS$,J,1)="W" THEN 3970:'IN 760 IF MID$(MESS$,J,1)="X" THEN 4170 770 IF MID$(MESS$,J,1)="Y" THEN 4460:'IN 780 IF MID$(MESS$,J,1)="Z" THEN 6480 790 IF MID$(MESS$,J,1)="." THEN 4610:'IN 800 IF MID$(MESS$,J,1)="!" THEN 4690:'IN 810 IF MID$(MESS$,J,1)="+" THEN 4770:'IN 820 IF MID$(MESS$,J,1)="?" THEN 4860:'IN 830 IF MID$(MESS$,J,1)="-" THEN 5050:'IN 840 IF MID$(MESS$,J,1)="=" THEN 5100:'IN 850 IF MID$(MESS$,J,1)="3" THEN 5150:'IN 860 IF MID$(MESS$,J,1)="1" THEN 5300:'IN 870 IF MID$(MESS$,J,1)="2" THEN 5360:'IN 880 IF MID$(MESS$,J,1)="4" THEN 5500:'IN 890 IF MID$(MESS$,J,1)="8" THEN 5640:'IN 900 IF MID$(MESS$,J,1)="9" THEN 5890:'IN 910 IF MID$(MESS$,J,1)="5" THEN 6080:'IN 920 IF MID$(MESS$,J,1)="6" THEN 6270:'IN 930 IF MID$(MESS$,J,1)="0" THEN 1820 940 IF MID$(MESS$,J,1)="7" THEN 6610 950 IF MID$(MESS$,J,1)=">" THEN 6760 960 IF MID$(MESS$,J,1)="<" THEN 6860 970 IF MID$(MESS$,J,1)="^" THEN 6980 980 IF MID$(MESS$,J,1)="|" THEN 7140 990 IF MID$(MESS$,J,1)="@" THEN 7500 1000 REM A 1010 DEFSTR A 1020 IF A="" THEN A="ABCDEFGHIJ" 1030 FOR K=1 TO 2:LPRINT A:NEXT K 1040 FOR K=1 TO 3 1050 FOR KK= 1 TO 2 1060 LPRINT TAB(7*K+1)A 1070 NEXT KK 1080 NEXT K 1090 FOR K= 4 TO 8 1100 FOR KK=1 TO 2 1110 LPRINT TAB(18);A;:LPRINT TAB(7*K)A 1120 NEXT KK 1130 NEXT K 1140 FOR K=1 TO 2 :LPRINT TAB(18)A;:LPRINT TAB(63)A:NEXT K 1150 FOR K=8 TO 4 STEP -1 1160 FOR KK=1 TO 2 1170 LPRINT TAB(18)A;:LPRINT TAB(7*K)A 1180 NEXT KK 1190 NEXT K 1200 FOR K=3 TO 1 STEP -1 1210 FOR KK=1 TO 2 1220 LPRINT TAB(7*K)A 1230 NEXT KK 1240 NEXT K 1250 FOR K=1 TO 2:LPRINT A:NEXT K 1255 IF OP<>0 THEN END:'INPUT ;DUMMY 1260 NEXT J:FOR K=1 TO 18:LPRINT :NEXT K:PRINT"PROGRAM IS NOW COMPLETE!!!!!":LPRINT ED1$ :LPRINT ED2$:LPRINT ED3$:LPRINT ED4$:LPRINT ED5$:LPRINT ED6$:FOR K=1 TO 7:LPRINT :NEXT K 1270 FINI=7:GOSUB 7660 1280 INPUT "after you write your check, pust return";DUMMY$:FOR K=1 TO 180:NEXT K:OP=23:GOTO 420 1290 REM B 1300 DEFSTR X,Y 1310 FOR K=1 TO 4 1320 LPRINT Z; 1330 FOR KK=1 TO 7 1340 LPRINT A; 1350 NEXT KK 1360 LPRINT 1370 NEXT K 1380 FOR K= 1 TO 6 1390 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A 1400 NEXT K 1410 FOR K=1 TO 8 1420 IF K<10 THEN X=RIGHT$(A,K+4) ELSE X=A 1430 IF K<10 THEN Y=LEFT$(A,K+4) ELSE Y=A 1440 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(K+39)X;:LPRINT TAB(66-K)A 1450 NEXT K 1460 FOR K=1 TO 3 1470 B=A+A+A:LPRINT TAB(9+(2*K));LEFT$(B,29-(4*K)); 1480 LPRINT TAB(47+(2*K));:LPRINT LEFT$(B,20-(4*K)) 1490 NEXT K 1500 GOTO 1260 1510 LPRINT CHR$(&H1B);CHR$(&H51);:REM***THIS SETS THE NEC PRINTER TO SMALL (CONDENSED PRINT TO MAKE THE c RATHER THAN C FOR Mc 1520 REM C 1530 GOSUB 7320 1540 FOR K=1 TO 18 1550 LPRINT A;:LPRINT TAB(65)A 1560 NEXT K 1570 LPRINT CHR$(&H1B);CHR$(&H4E);:REM **********THIS RETURNS YOU TO 10 CHARACTERS PER INCH ON THE NEC AFTER PRINTING c RATHER THAN C. 1580 GOTO 1260 1590 REM D 1600 FOR K=1 TO 4 1610 LPRINT LEFT$(A,5); 1620 FOR KK=1 TO 7 1630 LPRINT A; 1640 NEXT KK 1650 LPRINT 1660 NEXT K 1670 IF FL<>0 THEN FL=0:STOP 1680 FOR K=1 TO 4 1690 LPRINT A;:LPRINT TAB(66);A 1700 NEXT K 1710 FOR K=1 TO 6 1720 FOR KK=1 TO 2 1730 LPRINT TAB(2*K)A;:LPRINT TAB((65-(2*K)))A 1740 NEXT KK 1750 NEXT K 1760 FOR KK=1 TO 2 1770 LPRINT TAB(18)A;:LPRINT TAB(65-(18))A 1780 NEXT KK 1790 FOR K= 1 TO 2:LPRINT TAB(22);A+A+A:NEXT K 1800 FOR K=1 TO 2:LPRINT TAB(27);A+A:NEXT K 1810 GOTO 1260 1820 REM O 1830 GOSUB 7320 1840 FOR K=1 TO 18 1850 LPRINT A;:LPRINT TAB(65)A 1860 NEXT K 1870 GOSUB 7330 1880 GOTO 1260 1890 REM F 1900 FOR K=1 TO 4 1910 LPRINT Z; 1920 FOR KK=1 TO 7 1930 LPRINT A; 1940 NEXT KK 1950 LPRINT 1960 NEXT K 1970 FOR K=1 TO 14 1980 LPRINT TAB(33);A;:LPRINT TAB(66)A 1990 NEXT K 2000 GOTO 1260 2010 REM G 2020 GOSUB 7320 2030 FOR K=1 TO 10 2040 LPRINT A;:LPRINT TAB(65);A 2050 NEXT K 2060 FOR K=1 TO 5 2070 LPRINT A;:LPRINT TAB(21);A;:LPRINT TAB(65);A 2080 NEXT K 2090 FOR K=1 TO 4 2100 LPRINT A+A+A;:LPRINT TAB(65);A 2110 NEXT K 2120 GOTO 1260 2130 REM H 2140 FOR K=1 TO 4 2150 LPRINT Z; 2160 FOR KK=1 TO 7 2170 LPRINT A; 2180 NEXT KK 2190 LPRINT 2200 NEXT K 2210 IF FL<>0 THEN FL=0:GOTO 1260 2220 FOR K=1 TO 15 2230 LPRINT TAB(33);A 2240 NEXT K 2250 FL=5:GOTO 2140 2260 REM I 2270 FOR K=1 TO 8 2280 LPRINT A;:LPRINT TAB(66);A 2290 NEXT K 2300 IF FL<>0 THEN FL=0:GOTO 1260 2310 FOR K=1 TO 4 2320 LPRINT "**";A+A+A+A+A+A+A;"***" 2330 NEXT K 2340 FL=5 :GOTO 2270 2350 REM E 2360 FOR K=1 TO 4 2370 LPRINT Z; 2380 FOR KK=1 TO 7 2390 LPRINT A; 2400 NEXT KK 2410 LPRINT 2420 NEXT K 2430 FOR K=1 TO 15 2440 LPRINT A;:LPRINT TAB(33);A;:LPRINT TAB(66);A 2450 NEXT K 2460 GOTO 1260 2470 REM J 2480 FOR K=1 TO 4 2490 LPRINT TAB(5-K);A+A+A 2500 NEXT K 2510 FOR K=1 TO 12 2520 LPRINT A;:LPRINT TAB(66);A 2530 NEXT K 2540 FOR K=1 TO 4 2550 X$=Z 2560 LPRINT TAB(K);LEFT$(X$,6-K); 2570 FOR KK=1 TO 7 2580 LPRINT A; 2590 NEXT KK 2600 LPRINT 2610 NEXT K 2620 FOR K=1 TO 9 2630 LPRINT TAB(66);A 2640 NEXT K 2650 GOTO 1260 2660 REM Q 2670 GOSUB 7320 2680 FOR K=1 TO 18 2690 LPRINT A;:IF K>10 THEN LPRINT TAB(56-2*K);A; 2700 LPRINT TAB(65)A 2710 NEXT K 2720 GOSUB 7330 2730 FOR K=14 TO 1 STEP-2 2740 LPRINT TAB(K)A 2750 NEXT K 2760 GOTO 1260 2770 REM K 2780 FOR K=1 TO 4:LPRINT Z;:FOR KK=1 TO 7:LPRINT A;:NEXT KK:LPRINT :NEXT K 2790 FOR L= 1 TO 8 2800 FOR LL=1 TO 2 2810 LPRINT TAB(30-(4*L));A;:LPRINT TAB(34+(4*L));A 2820 NEXT LL 2830 NEXT L 2840 GOTO 1260 2850 REM L 2860 FOR K=1 TO 4 2870 LPRINT Z; 2880 FOR KK=1 TO 7 2890 LPRINT A; 2900 NEXT KK 2910 LPRINT 2920 NEXT K 2930 FOR K=1 TO 18 2940 LPRINT A 2950 NEXT K 2960 GOTO 1260 2970 REM M 2980 DEFSTR M 2990 M=A$ 3000 FOR K=1 TO 4:LPRINT Z;:FOR KK=1 TO 7:LPRINT A;:NEXT KK:LPRINT :NEXT K 3010 IF F<>0 THEN F=0 :GOTO 3140 3020 FOR K=61 TO 26 STEP -5 3030 FOR KK=1 TO 2 3040 LPRINT TAB(K);M 3050 NEXT KK 3060 NEXT K 3070 FOR K=31 TO 65 STEP 5 3080 FOR KK=1 TO 2 3090 LPRINT TAB(K);M 3100 NEXT KK 3110 NEXT K 3120 F=4 3130 GOTO 3000 3140 GOTO 1260 3150 REM N 3160 FOR K=1 TO 4 3170 LPRINT Z; 3180 FOR KK=1 TO 7 3190 LPRINT A; 3200 NEXT KK 3210 LPRINT 3220 NEXT K 3230 IF FL<>0 THEN FL=0:GOTO 1260 3240 FOR K=66 TO 1 STEP-7 3250 FOR KK=1 TO 2 3260 LPRINT TAB(K)A 3270 NEXT KK 3280 NEXT K 3290 FL=5:GOTO 3160 3300 REM P 3310 FOR K=1 TO 4 3320 LPRINT Z; 3330 FOR KK=1 TO 7 3340 LPRINT A; 3350 NEXT KK 3360 LPRINT 3370 NEXT K 3380 FOR K= 1 TO 6 3390 LPRINT TAB(35);A;:LPRINT TAB(66);A 3400 NEXT K 3410 FOR K=1 TO 8 3420 LPRINT TAB(K+34)A;:LPRINT TAB(66-K)A 3430 NEXT K 3440 FOR K=1 TO 3 3450 B=A+A+A:LPRINT TAB(43+(2*K));LEFT$(B,24-(4*K)) 3460 NEXT K 3470 GOTO 1260 3480 REM S 3490 DEFSTR X,Y,B 3500 B=A+A+A 3510 FOR K=1 TO 3 3520 LPRINT TAB(11-K)A;:LPRINT TAB(50-(2*K));:LPRINT LEFT$(B,10+(4*K)) 3530 NEXT K 3540 FOR K=1 TO 8 3550 X=A:Y=A 3560 LPRINT TAB(8-K)A;:LPRINT TAB(43-K)X;:LPRINT TAB(57+K)A 3570 NEXT K 3580 FOR K= 1 TO 6 3590 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A 3600 NEXT K 3610 FOR K=1 TO 8 3620 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(66-K)A 3630 NEXT K 3640 B=A+A+A 3650 FOR K=1 TO 3 3660 LPRINT TAB(8+(2*K));:LPRINT LEFT$(B,30-(4*K));:LPRINT TAB(57-K)A 3670 NEXT K 3680 GOTO 1260 3690 REM U 3700 GOSUB 7340 3710 FOR K=1 TO 15 3720 LPRINT A 3730 NEXT K 3740 GOSUB 7350 3750 GOTO 1260 3760 REM V 3770 FOR K=65 TO 6 STEP -7 3780 FOR KK=1 TO 2 3790 LPRINT TAB(K)A 3800 NEXT KK 3810 NEXT K 3820 FOR K=2 TO 65 STEP 7 3830 FOR KK=1 TO 2 3840 LPRINT TAB(K)A 3850 NEXT KK 3860 NEXT K 3870 GOTO 1260 3880 REM T 3890 FOR K=1 TO 13 3900 LPRINT TAB(66);A 3910 NEXT K 3920 IF FL<>0 THEN FL=0:GOTO 1260 3930 FOR K=1 TO 4 3940 LPRINT "**";A+A+A+A+A+A+A;"***" 3950 NEXT K 3960 FL=5 :GOTO 3890 3970 REM W 3980 FOR K=1 TO 4 3990 LPRINT Z; 4000 FOR KK=1 TO 7 4010 LPRINT A; 4020 NEXT KK 4030 LPRINT 4040 NEXT K 4050 IF FL<>0 THEN FL=0:GOTO 1260 4060 FOR K=1 TO 7 4070 FOR KK=1 TO 2 4080 LPRINT TAB(5*K)A 4090 NEXT KK 4100 NEXT K 4110 FOR K= 1 TO 6 4120 FOR KK=1 TO 2 4130 LPRINT TAB(35-(5*K))A 4140 NEXT KK 4150 NEXT K 4160 FL=5:GOTO 3980 4170 REM X 4180 FOR K=0 TO 29 STEP 3 4190 LPRINT TAB(K)A;:LPRINT TAB(66-K)A 4200 NEXT K 4210 FOR K=1 TO 2 4220 LPRINT TAB(28)A+A 4230 NEXT K 4240 FOR K=1 TO 29 STEP 3 4250 LPRINT TAB(28-K);A;:LPRINT TAB(38+K);A 4260 NEXT K 4270 GOTO 1260 4280 REM R 4290 FOR K=1 TO 4 4300 LPRINT Z; 4310 FOR KK=1 TO 7 4320 LPRINT A; 4330 NEXT KK 4340 LPRINT 4350 NEXT K 4360 FOR K= 1 TO 6 4370 LPRINT TAB(27-2*K);A;:LPRINT TAB(35);A;:LPRINT TAB(66);A 4380 NEXT K 4390 FOR K=1 TO 8 4400 LPRINT TAB(15-2*K);A;:LPRINT TAB(K+34)A;:LPRINT TAB(66-K)A 4410 NEXT K 4420 FOR K=1 TO 3 4430 B=A+A:LPRINT TAB(43+(2*K));LEFT$(B,24-(4*K)) 4440 NEXT K 4450 GOTO 1260 4460 REM Y 4470 FOR K=65 TO 35 STEP -6 4480 FOR KK=1 TO 2 4490 LPRINT TAB(K);A 4500 NEXT KK 4510 NEXT K 4520 FOR K=1 TO 3 4530 LPRINT A+A+A+A 4540 NEXT K 4550 FOR K=35 TO 65 STEP 6 4560 FOR KK=1 TO 2 4570 LPRINT TAB(K);A 4580 NEXT KK 4590 NEXT K 4600 GOTO 1260 4610 REM . 4620 FOR K = 2 TO 10 STEP 2 4630 LPRINT TAB(11-K); STRING$(2*K,CHR$(232));:REM***THIS PRINTS THE SPADE SYMBOL ON AS ON A 4 OF SPADES ON CARDS. REPLACE WITH THE SYMBOL OF YOUR CHOICE ON YOUR PRINTER. 4640 NEXT K 4650 FOR K=2 TO 12 STEP 2 4660 LPRINT TAB(K-1); STRING$(24-(2*K),CHR$(232));:REM THE CHR$(232) IS A SPADE SEE LINE 4480 4670 NEXT K 4680 GOTO 1260 4690 REM ! 4700 FOR K = 2 TO 10 STEP 2 4710 LPRINT TAB(11-K); STRING$(2*K,CHR$(232));:LPRINT TAB(35);A+A+A+A:REM THE CHR$(232) IS A SPADE SEE LINE 4480 4720 NEXT K 4730 FOR K=2 TO 12 STEP 2 4740 LPRINT TAB(K-1); STRING$(24-(2*K),CHR$(232));:LPRINT TAB(35);A+A+A+A:REM THE CHR$(232) IS A SPADE SEE LINE 4480 4750 NEXT K 4760 GOTO 1260 4770 REM + 4780 FOR K=1 TO 10 4790 LPRINT TAB(21)A+A 4800 NEXT K 4810 IF FL<>0 THEN FL=0:GOTO 1260 4820 FOR K= 1 TO 10 4830 LPRINT A+A+A+A+A+A 4840 NEXT K 4850 FL=3:GOTO 4780 4860 REM ? 4870 FOR K=55 TO 65 STEP 2 4880 LPRINT TAB(K);A 4890 NEXT K 4900 REM ! 4910 FOR K = 1 TO 10 STEP 2 4920 LPRINT TAB(11-K); STRING$(2*K,CHR$(232));:LPRINT TAB(29)"??"A+A;:LPRINT TAB(65)A:REM CHR$(232) IS A SPADE SEE LINE 4480 4930 NEXT K 4940 FOR K=1 TO 11 STEP 2 4950 IF K=1 THEN T=22 ELSE T=24 4960 LPRINT TAB(K-1); STRING$(T-(2*K),CHR$(232));:LPRINT TAB(29)"??"A+A;:LPRINT TAB(65)A:REM CHR$(232) IS A SPADE SEE LINE 4480 4970 NEXT K 4980 FOR K=1 TO 6 4990 LPRINT TAB(40+K);A;:LPRINT TAB(66-K)A 5000 NEXT K 5010 FOR K=1 TO 4 5020 LPRINT TAB(47+K);STRING$(23-2*K,"?") 5030 NEXT K 5040 GOTO 1260 5050 REM- 5060 FOR K=1 TO 23 5070 LPRINT TAB(20)A+A 5080 NEXT K 5090 GOTO 1260 5100 REM = 5110 FOR K=1 TO 23 5120 LPRINT TAB(15)A+A;:LPRINT TAB(45);A+A 5130 NEXT K 5140 GOTO 1260 5150 REM 3 5160 DEFSTR X,Y 5170 FOR K= 1 TO 6 5180 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A 5190 NEXT K 5200 FOR K=1 TO 8 5210 IF K<10 THEN X=RIGHT$(A,K+4) ELSE X=A 5220 IF K<10 THEN Y=LEFT$(A,K+4) ELSE Y=A 5230 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(K+39)X;:LPRINT TAB(66-K)A 5240 NEXT K 5250 FOR K=1 TO 3 5260 LPRINT TAB(9+(2*K));STRING$(29-(4*K),"3"); 5270 LPRINT TAB(47+(2*K));:LPRINT STRING$(20-(4*K),"3") 5280 NEXT K 5290 GOTO 1260 5300 REM 1 5310 FOR K=1 TO 2:LPRINT TAB(66)A:NEXT K 5320 FOR K= 1 TO 5 5330 LPRINT"11"A+A+A+A+A+A+A"111" 5340 NEXT K 5350 GOTO 1260 5360 REM 2 5370 FOR K= 1 TO 8 5380 LPRINT A"2"STRING$(K,"2");:LPRINT TAB(47+2*K)A 5390 NEXT K 5400 FOR K= 1 TO 7 5410 LPRINT A"2";:LPRINT TAB(10+2*K)A;:LPRINT TAB(65)A 5420 NEXT K 5430 FOR K= 1 TO 8 5440 LPRINT A"2";:LPRINT TAB(25+2*K)A;:LPRINT TAB(67-2*K)A 5450 NEXT K 5460 FOR K= 1 TO 3 5470 LPRINT A"2";:LPRINT TAB(41+2*K);STRING$(20-4*K,"2") 5480 NEXT K 5490 GOTO 1260 5500 REM 4 5510 FOR K=1 TO 4 5520 LPRINT TAB(33)A+A+A+A 5530 NEXT K 5540 FOR K= 1 TO 10 5550 LPRINT TAB(33)A 5560 NEXT K 5570 FOR K=1 TO 4 5580 LPRINT"44"A+A+A+A+A+A+A"444" 5590 NEXT K 5600 FOR K= 1 TO 10 5610 LPRINT TAB(33)A 5620 NEXT K 5630 GOTO 1260 5640 WIDTH 80 5650 REM 8 5660 DEFSTR X,Y 5670 FOR K=1 TO 3 5680 LPRINT TAB(16-2*K);STRING$(13+(4*K),"8"); 5690 LPRINT TAB(55-(2*K));:LPRINT STRING$(5+(4*K),"8") 5700 NEXT K 5710 FOR K=1 TO 8 5720 IF K>1 THEN X=RIGHT$(A,13-K) ELSE X=A 5730 IF K>1 THEN Y=LEFT$(A,13-K) ELSE Y=A 5740 LPRINT TAB(8-K)A;:LPRINT TAB(26+K);Y;:LPRINT TAB(48-K)X;:LPRINT TAB(57+K)A 5750 NEXT K 5760 FOR K= 1 TO 6 5770 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A 5780 NEXT K 5790 FOR K=1 TO 8 5800 IF K<10 THEN X=RIGHT$(A,K+4) ELSE X=A 5810 IF K<10 THEN Y=LEFT$(A,K+4) ELSE Y=A 5820 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(K+39)X;:LPRINT TAB(66-K)A 5830 NEXT K 5840 FOR K=1 TO 3 5850 LPRINT TAB(9+(2*K));STRING$(29-(4*K),"8"); 5860 LPRINT TAB(47+(2*K));:LPRINT STRING$(20-(4*K),"8") 5870 NEXT K 5880 GOTO 1260 5890 REM 9 5900 DEFSTR X,Y 5910 FOR K=1 TO 3 5920 LPRINT TAB(50-(2*K));:LPRINT STRING$(10+(4*K),"9") 5930 NEXT K 5940 FOR K=1 TO 8 5950 X=A:Y=A 5960 LPRINT TAB(43-K)X;:LPRINT TAB(57+K)A 5970 NEXT K 5980 FOR K= 1 TO 6 5990 LPRINT TAB(35);A;:LPRINT TAB(66);A 6000 NEXT K 6010 FOR K=1 TO 5 6020 LPRINT TAB(36+K);Y;:LPRINT TAB(66-K)A 6030 NEXT K 6040 FOR K=1 TO 4 6050 LPRINT A+A+A+A+A+A+A 6060 NEXT K 6070 GOTO 1260 6080 REM 5 6090 DEFSTR X,Y 6100 FOR K=1 TO 4 6110 LPRINT TAB(12-K)A;:LPRINT TAB(47-K);STRING$(K-1,"5");:LPRINT TAB(46);:LPRINT A+A+A 6120 NEXT K 6130 FOR K=1 TO 7 6140 X=A:Y=A 6150 LPRINT TAB(8-K)A;:LPRINT TAB(43-K)X;:LPRINT TAB(66)A 6160 NEXT K 6170 FOR K= 1 TO 6 6180 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A 6190 NEXT K 6200 FOR K=1 TO 8 6210 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(66)A 6220 NEXT K 6230 FOR K=1 TO 3 6240 LPRINT TAB(8+(2*K));STRING$(30-(4*K),"5");:LPRINT TAB(66)A 6250 NEXT K 6260 GOTO 1260 6270 REM 6 6280 DEFSTR X,Y 6290 K=0:GOSUB 6310 6300 FOR K=2 TO 4 6310 LPRINT TAB(12-K)A+A+A+A;:LPRINT TAB(52-(K));:LPRINT STRING$(11+(2*K),"6") 6320 IF K=0 THEN RETURN 6330 NEXT K 6340 FOR K=1 TO 8 6350 X=A:Y=A 6360 LPRINT TAB(8-K)A;:LPRINT TAB(35)X;:LPRINT TAB(57+K)A 6370 NEXT K 6380 FOR K= 1 TO 6 6390 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A 6400 NEXT K 6410 FOR K=1 TO 8 6420 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(66-K)A 6430 NEXT K 6440 FOR K=1 TO 3 6450 LPRINT TAB(8+(2*K));STRING$(30-(4*K),"6");:LPRINT TAB(57-K)A 6460 NEXT K 6470 GOTO 1260 6480 REM Z 6490 DEFSTR B 6500 B=LEFT$(A,5) 6510 LPRINT A;:LPRINT TAB(66);A 6520 LPRINT A+B;:LPRINT TAB(66);A 6530 FOR K=1 TO 10 6540 FOR KA=1 TO 3 6550 LPRINT A;:LPRINT TAB(6+(5*K));A;:LPRINT TAB(66);A 6560 NEXT KA 6570 NEXT K 6580 LPRINT A;:LPRINT TAB(61);A+B 6590 LPRINT A;:LPRINT TAB(66);A 6600 GOTO 1260 6610 REM 7 6620 DEFSTR B 6630 B=LEFT$(A,5) 6640 FOR K=1 TO 3 6650 LPRINT A;:LPRINT TAB(61);A+B 6660 NEXT K 6670 FOR K=1 TO 9 6680 FOR KA=1 TO 3 6690 LPRINT TAB((6*K));A;:LPRINT TAB(66);A 6700 NEXT KA 6710 NEXT K 6720 FOR K=1 TO 3 6730 LPRINT TAB(56);A+A 6740 NEXT K 6750 GOTO 1260 6760 REM => 6770 DEFSTR A,B:IF A="" THEN A="PHDEEDMDR*" 6780 B=A+A:B=B+B 6790 FOR K= 1 TO 20 6800 LPRINT TAB(23);A+A 6810 NEXT K 6820 FOR K=20 TO 1 STEP -1 6830 LPRINT TAB(33-K);LEFT$(B,2*K) 6840 NEXT K 6850 GOTO 1260 6860 REM => 6870 DEFSTR A,B:IF A="" THEN A="PHDEEDMDR*" 6880 B=A+A:B=B+B 6890 GOTO 6940 6900 FOR K= 1 TO 20 6910 LPRINT TAB(23);A+A 6920 NEXT K 6930 GOTO 1260 6940 FOR K=1 TO 20 6950 LPRINT TAB(33-K);LEFT$(B,2*K)  6960 NEXT K 6970 GOTO 6900 6980 REM ^ 6990 DEFSTR A,B:IF A="" THEN A="PHDEEDMDR*" 7000 B=A+A+A:B=B+B 7010 FOR K= 1 TO 16 7020 IF K>12 THEN GOSUB 7130 7030 LPRINT TAB(40);;LEFT$(B,2*K) 7040 NEXT K 7050 LPRINT LEFT$(A,3)+B+A 7060 LPRINT LEFT$(A,5)+B+A 7070 LPRINT LEFT$(A,3)+B+A 7080 FOR K=1 TO 16 7090 IF K<5 THEN GOSUB 7130 7100 LPRINT TAB(40);LEFT$(B,34-2*K) 7110 NEXT K 7120 GOTO 1260 7130 LPRINT A+A+A+LEFT$(A,9);:RETURN 7140 REM \|/ 7150 DEFSTR A,B:IF A="" THEN A="PHDEEDMDR*" 7160 B=A+A+A:B=B+B 7170 FOR K=1 TO 17 7180 IF K<12 THEN LPRINT TAB(35-2*K);;LEFT$(B,2*K) 7190 IF K>13 THEN LPRINT TAB(39-2*K);LEFT$(B,2*K); 7200 IF K>13 THEN GOSUB 7300 7210 NEXT K 7220 LPRINT TAB(3)LEFT$(A,4)+B+A 7230 LPRINT LEFT$(A,6)+B+A 7240 LPRINT TAB(3)LEFT$(A,4)+B+A 7250 FOR K=1 TO 16 7260 IF K<5 THEN LPRINT TAB(3+2*K);LEFT$(B,32-2*K);:GOSUB 7310 7270 IF K>4 THEN LPRINT TAB(3+2*K);LEFT$(B,32-2*K) 7280 NEXT K 7290 GOTO 1260 7300 LPRINT TAB(39);A+A+A+LEFT$(A,8):RETURN 7310 LPRINT TAB(35);LEFT$(A,2)+A+A+A+A:RETURN 7320 B=A+A:FOR K=1 TO 4 :LPRINT TAB(5-K);A+A+A+A+A+A+LEFT$(B,6+2*K):NEXT K:RETURN 7330 B=A+A:FOR K=1 TO 4 :LPRINT TAB(K);A+A+A+A+A+A+LEFT$(B,16-2*K):NEXT K:RETURN 7340 B=A+A:FOR K=1 TO 4:LPRINT TAB(5-K);A+A+A+A+A+A+LEFT$(B,13+K):NEXT K:RETURN 7350 B=A+A:FOR K=1 TO 4:LPRINT TAB(K);A+A+A+A+A+A+LEFT$(B,18-K):NEXT K:RETURN 7360 AA(K)=LEFT$(AA(K),LEN(AA(K))-1) 7370 M=LEN(AA(K)) 7380 ON M GOTO 7390,7400,7410,7420,7430,7440,7450,7460,7470,370 7390 AA(K)=E+AA(K)+E+AA(K)+E+AA(K)+E+AA(K)+E+AA(K):GOTO 370 7400 AA(K)=EE+AA(K)+E+AA(K)+E+AA(K):GOTO 370 7410 AA(K)=EE+AA(K)+EE+AA(K):GOTO 370 7420 AA(K)=E+AA(K)+E+AA(K):GOTO 370 7430 AA(K)=EE+EEE+AA(K):GOTO 370 7440 AA(K)=E+EEE+AA(K):GOTO 370 7450 AA(K)=EEE+AA(K):GOTO 370 7460 AA(K)=EE+AA(K):GOTO 370 7470 AA(K)=E+AA(K):GOTO 370 7480 GOTO 370 7490 REM HEART 7500 REM 7510 FOR K=1 TO 52 7520 H(K)=STRING$(K,CHR$(233)):REM ***ON THE NEC THE CHR$(233) IS A SMALL HEART WHICH IS USED IN THE HEART--IF YOU DON'T HAVE ONE ON YOUR PRINTER SUBSTITUE THE CHR$ OF YOUR CHOICE. 7530 NEXT K 7540 FOR K=1 TO 13 7550 IF K>0 THEN K1=K+1:IF K>7 THEN K1=16-K 7560 IF K>10 THEN KA=10 ELSE KA=K 7570 LPRINT TAB(50-2*K)H(5+2*KA);H(K1) 7580 NEXT K 7590 FOR K=1 TO 12 7600 IF K<6 THEN K1=4+K-1 7610 IF K>5 THEN K1=14-K 7620 IF K=1 THEN KB=2 ELSE KB=K 7630 IF K<3 THEN LPRINT TAB(24+2*K)H(23+KB);H(K1) ELSE LPRINT TAB(24+2*K)H(31-2*K); H(K1) 7640 NEXT K 7650 GOTO 1260 7660 PRINT STRING$(50,"*") 7670 FOR K=1 TO 13 7680 IF K=5 THEN GOSUB 7760 7690 IF K=6 THEN GOSUB 7790 7700 IF K=8 THEN GOSUB 7810 7710 IF K=10 THEN GOSUB 7840 7720 PRINT "*";:PRINT TAB(50)"*" 7730 NEXT 7740 PRINT STRING$(50,"*") 7750 IF FINI=0 THEN GOTO 100 ELSE GOTO 1280 7760 PRINT"* BANNER PRINTER";:PRINT TAB(50)"*" 7770 PRINT"* **BY**";:PRINT TAB(50)"*" 7780 RETURN 7790 PRINT"* PETER H. DAVIS";:PRINT TAB(50)"*" 7800 RETURN 7810 PRINT"* 2610 EAST CAMERON AVE.";:PRINT TAB(50)"*" 7820 PRINT"* WEST COVINA, CA. 91791";:PRINT TAB(50)"*" 7830 RETURN 7840 PRINT"* IF THIS PROGRAM IS A HELP--";:PRINT TAB(50)"*" 7850 PRINT"* PLEASE SEND $10 TO HELP WITH COSTS";:PRINT TAB(50)"*":RETURN 7860 K=VAL(DUMMY$) 7870 GOSUB 240 7880 RETURN 20000 PRINT CHR$(26):PRINT " YOU WILL HAVE 6 LINES FOR THIS PERIOD BLOCK I SUGGEST THAT YOU FILL IN WITH <*> TO MAKE THE LINE 15 SPACES LONG.":INPUT "FIRST LINE UP TO 16 SPACES";ED1$ 20001 INPUT "SECOND LINE UP TO 16 SPACES";ED2$ 20010 INPUT "THIRD LINE UP TO 16 SPACES";ED3$ 20020 INPUT "FOURTH LINE UP TO 16 SPACES";ED4$ 20050 INPUT "FIFTH LINE UP TO 16 SPACES";ED5$ 20060 INPUT "SIXTH LINE UP TO 16 SPACES";ED6$ 20070 RETURN O 16 SPACES";ED4$ 20050 INPUT "FIFTH LINE UP TO 16 SPACES";ED5$ 20060 INPUT "SIXTH LINE UP TO 16 SPACES";ED6$ 20070 RETURN **BY**";:PRINT TAB(50)"*" 7780 RETURN 7790 PRINT"* PETER H. DAVIS";:PRINT TAB(50)"*" 7800 RETURN 7810 PRINT"* 2610 EAST CAMERON AVE.";:PRINT TAB(50)"*" 7820 PRINT"* WEST COVINA, CA. 91791";:PRINT TAB(50)"*" 7830 RE BIGPRINT.BAS was written by Peter H. Davis over a period of many hundreds of hours, maybe thousands, to produce a banner with greetings of your choice such as "HAPPY BIRTHDAY". This type of banner is not very special and can even be purchased for about $10 from several companies. But BIGPRINT.BAS goes beyond this norm. BIGPRINT.BAS also allows you to write the character messages in each letter of the banner. You are really limited to 9 characters as you should separate the words with as symbol such as a "*". The big letters can be read on a wall from a distance but the smaller message in each letter requires close up reading. One suggested use is to write a normal greeting such as GOOD LUCK, JOE in the large letters and in the letter G write "you*will*" letter O write "need*it***" in the next O write "learn*****" in the D write "to**play**" and so on. There are several built in extras such as if you type "stop" the message will repeat itself and you don't have to fill in each letter. Another extra is you don't have to count spaces in your words to give you 10. The # at the end of your word will do if for you and fill in with "*" to get to 10. If you blow it and type 11 characters, the program will remind you of the limit. The program will even display what your message will read before printing. Remember that you will need fanfold or a roll of paper as the message will be several pages long. You might also note the printer commands are for the NEC 8023A at this time, but I have marked all the changes that need to be made and this will self prompt so you can adjust these lines for your printer. If you are not sure which CHR$ commands produce what on you printer run PRINTER.BAS. This will give you the number and the result of that CHR$ on the printer itself. I suggest that you save your printer lines on a file with the printer name as I have done in a file called NEC.BAS. This will allow someone else to reinstall your printer if it is changed with the Merge command. There are now 3 versions of this program. BIGPRINT.BAS is for the NEC dot Matrix and other printers that use the same commands such, as some C.Itoh machines. BIGEPSON.BAS is pretty much the same program but runs on the Epson machines and those that use the same commands. BIGDATA.BAS is basicly the same program (for the NEC) but will take Data statements rather than keyboard entry for the messages that go in each letter. If this disk is a help to you, please consider that I choose to share it through Osborne Clubs rather than restrict to a purchase only method. If you would like more programs that you can preview and use in this way, please encourage other programmers by sending $10 to me. This is a far cheaper method of getting good software. You only pay for what you like and can use. My address is: DR. PETER H. DAVIS 2610 EAST CAMERON AVE. WEST COVINA, CA. 91791 Thank you.  e and can use. My address is: DR. PETER H. DAVIS 2610 EAST CAMERON AVE. WEST COVINA, CA. 91791 Thank you. for the NEC dot Matrix and other printers that use the same commands such, as some C.Itoh machines. BIGEPSON.BAS is pretty much the same program but runs on the Epson machines and those that use the same commands. BIGDATA.BAS is basicly the same program (for the NEC) but will take Data statements rather than keyboard entry for the messages that go in each letter. If this disk is a help to you, please consider that I choose to share it through Osborne Clubs rather than restrict to a purchase only method. If you would like more programs that you can preview and use in this way, please encourage other programmers by sending $10 to me. This is a far cheaper method of getting good software. You only pay for what you like and can use. My address is: DR. PETER H. DAVIS 2610 EAST CAMERON AVE. WEST COVINA, CA. 91791 Thank you. 0 PRINT CHR$(26):PRINT "IF YOU HAVE A NEC 8023A PRINTER, TYPE 0 RETURN AND THEN 1 RETURN. SAVE THIS PROGRAM WITH THE TITLE OF NEC.BAS ,A. LOAD BIGPRINT AND TYPE MERGE NEC. THIS WILL CHANGE BIG PRINT TO WORK ON THE NEC." 1 PRINT:PRINT "YOU WILL NEED QUOTE MARKS BEFORE THE N IN NEC WHEN SAVING AND AFTER THE S IN BAS. YOU WILL NEED THEM AGAIN BEFORE THE N IN NEC WHEN YOU MERGE NEC.":STOP 10 LPRINT CHR$(&H1B);"!":REM **THIS MAKES ENHANCED OR DARK PRINT ON THE NEC 8023 70 Z=STRING$(5,CHR$(196)):REM THIS MAKES A FANCY "&" SIGN ON THE NEC REPLACE WITH ONE FOR YOUR PRINTER 1360 LPRINT CHR$(&H1B);CHR$(&H51);:REM***THIS SETS THE NEC PRINTER TO SMALL (CONDENSED PRINT TO MAKE THE c RATHER THAN C FOR Mc 1420 LPRINT CHR$(&H1B);CHR$(&H4E);:REM THIS RETURNS YOU TO 10 CHARACTERS PER INCH ON THE NEC AFTER PRINTING c RATHER THAN C. 4480 LPRINT TAB(11-K); STRING$(2*K,CHR$(232));:REM***THIS PRINTS THE SPADE SYMBOL ON AS ON A 4 OF SPADES ON CARDS. REPLACE WITH THE SYMBOL OF YOUR CHOICE ON YOUR PRINTER. 4510 LPRINT TAB(K-1); STRING$(24-(2*K),CHR$(232));:REM THE CHR$(232) IS A SPADE SEE LINE 4480 4560 LPRINT TAB(11-K); STRING$(2*K,CHR$(232));:LPRINT TAB(35);A+A+A+A:REM THE CHR$(232) IS A SPADE SEE LINE 4480 4590 LPRINT TAB(K-1); STRING$(24-(2*K),CHR$(232));:LPRINT TAB(35);A+A+A+A:REM THE CHR$(232) IS A SPADE SEE LINE 4480 4770 LPRINT TAB(11-K); STRING$(2*K,CHR$(232));:LPRINT TAB(29)"??"A+A;:LPRINT TAB(65)A:REM CHR$(232) IS A SPADE SEE LINE 4480 4810 LPRINT TAB(K-1); STRING$(T-(2*K),CHR$(232));:LPRINT TAB(29)"??"A+A;:LPRINT TAB(65)A:REM CHR$(232) IS A SPADE SEE LINE 4480 7370 H(K)=STRING$(K,CHR$(233)):REM ***ON THE NEC THE CHR$(233) IS A SMALL HEART WHICH IS USED IN THE HEART--IF YOU DON'T HAVE ONE ON YOUR PRINTER SUBSTITUE THE CHR$ OF YOUR CHOICE. R$(233) IS A SMA 10 CHARACTERS PER INCH ON THE NEC AFTER PRINTING c RATHER THAN C. 4480 LPRINT TAB(11-K); STRING$(2*K,CHR$(232));:REM***THIS PRINTS THE SPADE SYMBOL ON AS ON A 4 OF SPADES ON CARDS. REPLACE WITH THE SYMBOL OF YOUR CHOICE ON YOUR PRINTER. 4510 LPRINT TA1 DATA DAVID 2 DATA AMANDA 3 DATA DEANNA 4 DATA JASON 5 DATA ELVIS 6 DATA BRANDY 7 DATA GREG 8 DATA JENNIFER 9 DATA KEVIN 10 DATA TONYA 11 DATA KANICHE 12 DATA BRANDON 13 DATA VICKI 14 DATA GRANT 15 DATA TERINA 16 DATA ROBERT 17 DATA CHRIS 18 DATA ROBERT 19 DATA JENNIFER 20 DATA JASON 21 DATA DAWN 22 DATA OLGA 23 DATA WESTON 24 DATA ROBERT 25 DATA ROCKY 26 DATA VAN 27 DATA CHRISSY 28 DATA NEIL 30 'LINE INPUT "IF NOT SURE OF YOUR PRINTER CHR$ COMMANDS, TYPE ^C AND THEN RUN PRINTER.BAS OTHERWISE PUSH >RETURN<";DUMMY$ 40 'PRINT CHR$(26):PRINT "IF THE PROGRAM IS NOW SET FOR YOUR PRINTER, YOU MAY WANT TO DELETE LINES 10 THRU 60 AND EDIT 1260 TO MAKE YOUR OWN ENDING MESSAGE":PRINT 50 'LINE INPUT "READ THESE INSTRUCTIONS THEN PUSH RETURN: THIS PROGRAM WILL WRITE A BANNER. FIRST YOU TYPE IN THE BIG LETTERS OF THE MESSAGE AND THEN THE LITTLE LETTERS WHICH GO IN EACH LETTER.";DUMMY$ 60 'PRINT CHR$(26):PRINT " THIS PROPGRAM WAS DEVELOPED AND WRITTEN BY PETE DAVIS AFTER GREAT EFFORT. DONATIONS FOR HIS HUNDREDS HOURS OF WORK WILL BE WELECOME. 70 'PRINT:LINE INPUT "The author grants permission to copy this file on a not-for-profit basis. No copies of this file maybe sold for profit execpt by the author. PRESS RETURN TO START"; DUMMY$ 80 LPRINT CHR$(&H1B);"!":REM **THIS MAKES ENHANCED OR DARK PRINT ON THE NEC 8023 90 'GOSUB 7660 100 'FOR K=5 TO 50:NEXT K 110 DEFSTR H:DIM H(60) 120 PRINT CHR$(26) 130 DEFINT K 140 DEFSTR A-E,Z 150 E="*":EE="**":EEE="***" 160 Z=STRING$(5,CHR$(196)):REM THIS MAKES A FANCY "&" SIGN ON THE NEC REPLACE WITH ONE FOR YOUR PRINTER 170 DIM AA(100) 180 PRINT:PRINT:PRINT "USE ALL CAPS LETTERS, ALL NUMBERS AND +,-,=,!,.,?,<,>,^,| FOR DOWN ARROW, @ FOR HEART we also have a small c.":PRINT:PRINT:PRINT 190 INPUT " WHAT BIG MESSAGE DO YOU WANT";MESS$ 200 PRINT 210 FOR K=1 TO LEN(MESS$) 220 PRINT"STRING$ MESSAGE # "K" YOU MUST USE CHARACTERS. NO BLANKS" 230 PRINT"IF YOU WANT TO REUSE OLD MESSAGES IN THE ORDER OF WHICH THEY WERE GIVEN -- TYPE >STOP< " 240 PRINT:PRINT "AFTER UP TO >9< CHARACTERS THEN TYPE >#<" 250 PRINT 260 IF MID$(MESS$,K,1)=" " OR MID$(MESS$,K,1)="." OR MID$(MESS$,K,1)="@" THEN PRINT "THERE ARE NO MESSAGES IN BLANKS, PERIODS, OR HEARTS -- DO THE NEXT ONE:":GOTO 380 270 IF SF<>0 AND KK=KS THEN KK=0 280 IF SF<>0 THEN AA(K)=AA(KK):PRINT:PRINT:PRINT"YOUR MESSAGE IS:"AA(K):GOTO 330 290 READ AA(K):AA(K)=AA(K)+"#" 300 BLANK$=" ": IF INSTR(AA(K),BLANK$)<>0 THEN PRINT" YOU BLEW IT!!!! NO BLANKS!!!!! TRY AGAIN BUSTER!!!":GOTO 220 310 PRINT:PRINT 320 IF RIGHT$(AA(K),1)="#" THEN GOTO 7360 330 IF AA(K)="STOP" THEN SF=4:KS=K:KK=KK+1:GOTO 280 340 IF SF<>0 AND AA(K)="" THEN KK=KK+1:GOTO 270 350 IF SF<>0 THEN KK=KK+1:GOTO 390 360 PRINT:PRINT 370 IF LEN(AA(K))<>10 THEN PRINT"YOU MUST USE TEN LETTERS OR LESS THEN 10 FOLLOWED BY >#< ":PRINT:PRINT:PRINT:GOTO 290 380 IF VAL(LEFT$(DUMMY$,2))>0 AND VAL(LEFT$(DUMMY$,2))<50 THEN RETURN 390 NEXT K 400 FOR J=1 TO LEN(MESS$) 410 A=AA(J):Z=LEFT$(A,5):IF DUMMY$<>"" THEN 500 420 FOR K=1 TO LEN(MESS$) :IF K<24 THEN PRINT K" ";: PRINT MID$(MESS$,K,1)"="AA(K) 430 IF K>23 THEN INPUT "PRESS ENTER TO CONTINUE";DUMMY:PRINT TAB(24);K" ";MID$(MESS$,K,1)"="AA(K) 440 NEXT K 450 IF DUMMY$="" THEN INPUT" IF THIS IS OK THEN TYPE >Y< ELSE ^C AND START AGAIN OR YOU CAN TYPE THE NUMBER OF THE LETTER ABOVE AND CORRECT";DUMMY$ 455 IF FINI<>0 THEN STOP 460 IF VAL(LEFT$(DUMMY$,2))>0 AND VAL(LEFT$(DUMMY$,2))<50 THEN GOSUB 7860 470 IF VAL(LEFT$(DUMMY$,2))>0 AND VAL(LEFT$(DUMMY$,2))<50 THEN DUMMY$="" :GOTO 400 480 LM=LEN(MESS$) 490 IF LEFT$(DUMMY$,1)<>"Y" THEN PRINT CHR$(26):PRINT "YOU HAVE "LM;:PRINT" SPACES LESS . AND HEART TRY AGAIN WITH "MESS$;:PRINT :PRINT:GOTO 200 500 FOR K=1 TO 8:LPRINT:NEXT K 510 IF MID$(MESS$,J,1)="A" THEN 1000:'IN 520 IF MID$(MESS$,J,1)=" " THEN FOR K=1 TO 20:LPRINT :NEXT K:GOTO 1260 530 IF MID$(MESS$,J,1)="B" THEN 1290 540 IF MID$(MESS$,J,1)="C" THEN 1520 550 IF MID$(MESS$,J,1)="c" THEN 1510 560 IF MID$(MESS$,J,1)="D" THEN 1590:' IN 570 IF MID$(MESS$,J,1)="E" THEN 2350:'IN 580 IF MID$(MESS$,J,1)="F" THEN 1890 590 IF MID$(MESS$,J,1)="G" THEN 2010:'IN 600 IF MID$(MESS$,J,1)="H" THEN 2130 610 IF MID$(MESS$,J,1)="I" THEN 2260:'IN 620 IF MID$(MESS$,J,1)="J" THEN 2470 630 IF MID$(MESS$,J,1)="K" THEN 2770:'IN 640 IF MID$(MESS$,J,1)="L" THEN 2850 650 IF MID$(MESS$,J,1)="M" THEN 2970:'IN 660 IF MID$(MESS$,J,1)="N" THEN 3150:'IN 670 IF MID$(MESS$,J,1)="O" THEN 1820 680 IF MID$(MESS$,J,1)="P" THEN 3300:'IN 690 IF MID$(MESS$,J,1)="Q" THEN 2660 700 IF MID$(MESS$,J,1)="R" THEN 4280:'IN 710 IF MID$(MESS$,J,1)="S" THEN 3480:'IN 720 IF MID$(MESS$,J,1)="T" THEN 3880:'IN 730 IF MID$(MESS$,J,1)="U" THEN 3690 740 IF MID$(MESS$,J,1)="V" THEN 3760 750 IF MID$(MESS$,J,1)="W" THEN 3970:'IN 760 IF MID$(MESS$,J,1)="X" THEN 4170 770 IF MID$(MESS$,J,1)="Y" THEN 4460:'IN 780 IF MID$(MESS$,J,1)="Z" THEN 6480 790 IF MID$(MESS$,J,1)="." THEN 4610:'IN 800 IF MID$(MESS$,J,1)="!" THEN 4690:'IN 810 IF MID$(MESS$,J,1)="+" THEN 4770:'IN 820 IF MID$(MESS$,J,1)="?" THEN 4860:'IN 830 IF MID$(MESS$,J,1)="-" THEN 5050:'IN 840 IF MID$(MESS$,J,1)="=" THEN 5100:'IN 850 IF MID$(MESS$,J,1)="3" THEN 5150:'IN 860 IF MID$(MESS$,J,1)="1" THEN 5300:'IN 870 IF MID$(MESS$,J,1)="2" THEN 5360:'IN 880 IF MID$(MESS$,J,1)="4" THEN 5500:'IN 890 IF MID$(MESS$,J,1)="8" THEN 5640:'IN 900 IF MID$(MESS$,J,1)="9" THEN 5890:'IN 910 IF MID$(MESS$,J,1)="5" THEN 6080:'IN 920 IF MID$(MESS$,J,1)="6" THEN 6270:'IN 930 IF MID$(MESS$,J,1)="0" THEN 1820 940 IF MID$(MESS$,J,1)="7" THEN 6610 950 IF MID$(MESS$,J,1)=">" THEN 6760 960 IF MID$(MESS$,J,1)="<" THEN 6860 970 IF MID$(MESS$,J,1)="^" THEN 6980 980 IF MID$(MESS$,J,1)="|" THEN 7140 990 IF MID$(MESS$,J,1)="@" THEN 7500 1000 REM A 1010 DEFSTR A 1020 IF A="" THEN A="ABCDEFGHIJ" 1030 FOR K=1 TO 2:LPRINT A:NEXT K 1040 FOR K=1 TO 3 1050 FOR KK= 1 TO 2 1060 LPRINT TAB(7*K+1)A 1070 NEXT KK 1080 NEXT K 1090 FOR K= 4 TO 8 1100 FOR KK=1 TO 2 1110 LPRINT TAB(18);A;:LPRINT TAB(7*K)A 1120 NEXT KK 1130 NEXT K 1140 FOR K=1 TO 2 :LPRINT TAB(18)A;:LPRINT TAB(63)A:NEXT K 1150 FOR K=8 TO 4 STEP -1 1160 FOR KK=1 TO 2 1170 LPRINT TAB(18)A;:LPRINT TAB(7*K)A 1180 NEXT KK 1190 NEXT K 1200 FOR K=3 TO 1 STEP -1 1210 FOR KK=1 TO 2 1220 LPRINT TAB(7*K)A 1230 NEXT KK 1240 NEXT K 1250 FOR K=1 TO 2:LPRINT A:NEXT K 1255 IF OP<>0 THEN END:'INPUT ;DUMMY 1260 NEXT J:FOR K=1 TO 18:LPRINT :NEXT K:PRINT"PROGRAM IS NOW COMPLETE!!!!!":LPRINT "*C-U-S-T-B-A-N*":LPRINT "2610 E. CAMERON":LPRINT "WEST COVINA*":LPRINT "CALIF. 91791*":LPRINT "(818) -339-2213":LPRINT "(818) -966-9906":FOR K=1 TO 7:LPRINT :NEXT K 1270 FINI=7:GOSUB 7660 1280 FOR K=1 TO 80:NEXT K:OP=23:GOTO 420 1290 REM B 1300 DEFSTR X,Y 1310 FOR K=1 TO 4 1320 LPRINT Z; 1330 FOR KK=1 TO 7 1340 LPRINT A; 1350 NEXT KK 1360 LPRINT 1370 NEXT K 1380 FOR K= 1 TO 6 1390 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A 1400 NEXT K 1410 FOR K=1 TO 8 1420 IF K<10 THEN X=RIGHT$(A,K+4) ELSE X=A 1430 IF K<10 THEN Y=LEFT$(A,K+4) ELSE Y=A 1440 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(K+39)X;:LPRINT TAB(66-K)A 1450 NEXT K 1460 FOR K=1 TO 3 1470 B=A+A+A:LPRINT TAB(9+(2*K));LEFT$(B,29-(4*K)); 1480 LPRINT TAB(47+(2*K));:LPRINT LEFT$(B,20-(4*K)) 1490 NEXT K 1500 GOTO 1260 1510 LPRINT CHR$(&H1B);CHR$(&H51);:REM***THIS SETS THE NEC PRINTER TO SMALL (CONDENSED PRINT TO MAKE THE c RATHER THAN C FOR Mc 1520 REM C 1530 GOSUB 7320 1540 FOR K=1 TO 18 1550 LPRINT A;:LPRINT TAB(65)A 1560 NEXT K 1570 LPRINT CHR$(&H1B);CHR$(&H4E);:REM THIS RETURNS YOU TO 10 CHARACTERS PER INCH ON THE NEC AFTER PRINTING c RATHER THAN C. 1580 GOTO 1260 1590 REM D 1600 FOR K=1 TO 4 1610 LPRINT LEFT$(A,5); 1620 FOR KK=1 TO 7 1630 LPRINT A; 1640 NEXT KK  1650 LPRINT 1660 NEXT K 1670 IF FL<>0 THEN FL=0:STOP 1680 FOR K=1 TO 4 1690 LPRINT A;:LPRINT TAB(66);A 1700 NEXT K 1710 FOR K=1 TO 6 1720 FOR KK=1 TO 2 1730 LPRINT TAB(2*K)A;:LPRINT TAB((65-(2*K)))A 1740 NEXT KK 1750 NEXT K 1760 FOR KK=1 TO 2 1770 LPRINT TAB(18)A;:LPRINT TAB(65-(18))A 1780 NEXT KK 1790 FOR K= 1 TO 2:LPRINT TAB(22);A+A+A:NEXT K 1800 FOR K=1 TO 2:LPRINT TAB(27);A+A:NEXT K 1810 GOTO 1260 1820 REM O 1830 GOSUB 7320 1840 FOR K=1 TO 18 1850 LPRINT A;:LPRINT TAB(65)A 1860 NEXT K 1870 GOSUB 7330 1880 GOTO 1260 1890 REM F 1900 FOR K=1 TO 4 1910 LPRINT Z; 1920 FOR KK=1 TO 7 1930 LPRINT A; 1940 NEXT KK 1950 LPRINT 1960 NEXT K 1970 FOR K=1 TO 14 1980 LPRINT TAB(33);A;:LPRINT TAB(66)A 1990 NEXT K 2000 GOTO 1260 2010 REM G 2020 GOSUB 7320 2030 FOR K=1 TO 10 2040 LPRINT A;:LPRINT TAB(65);A 2050 NEXT K 2060 FOR K=1 TO 5 2070 LPRINT A;:LPRINT TAB(21);A;:LPRINT TAB(65);A 2080 NEXT K 2090 FOR K=1 TO 4 2100 LPRINT A+A+A;:LPRINT TAB(65);A 2110 NEXT K 2120 GOTO 1260 2130 REM H 2140 FOR K=1 TO 4 2150 LPRINT Z; 2160 FOR KK=1 TO 7 2170 LPRINT A; 2180 NEXT KK 2190 LPRINT 2200 NEXT K 2210 IF FL<>0 THEN FL=0:GOTO 1260 2220 FOR K=1 TO 15 2230 LPRINT TAB(33);A 2240 NEXT K 2250 FL=5:GOTO 2140 2260 REM I 2270 FOR K=1 TO 8 2280 LPRINT A;:LPRINT TAB(66);A 2290 NEXT K 2300 IF FL<>0 THEN FL=0:GOTO 1260 2310 FOR K=1 TO 4 2320 LPRINT "**";A+A+A+A+A+A+A;"***" 2330 NEXT K 2340 FL=5 :GOTO 2270 2350 REM E 2360 FOR K=1 TO 4 2370 LPRINT Z; 2380 FOR KK=1 TO 7 2390 LPRINT A; 2400 NEXT KK 2410 LPRINT 2420 NEXT K 2430 FOR K=1 TO 15 2440 LPRINT A;:LPRINT TAB(33);A;:LPRINT TAB(66);A 2450 NEXT K 2460 GOTO 1260 2470 REM J 2480 FOR K=1 TO 4 2490 LPRINT TAB(5-K);A+A+A 2500 NEXT K 2510 FOR K=1 TO 12 2520 LPRINT A;:LPRINT TAB(66);A 2530 NEXT K 2540 FOR K=1 TO 4 2550 X$=Z 2560 LPRINT TAB(K);LEFT$(X$,6-K); 2570 FOR KK=1 TO 7 2580 LPRINT A; 2590 NEXT KK 2600 LPRINT 2610 NEXT K 2620 FOR K=1 TO 9 2630 LPRINT TAB(66);A 2640 NEXT K 2650 GOTO 1260 2660 REM Q 2670 GOSUB 7320 2680 FOR K=1 TO 18 2690 LPRINT A;:IF K>10 THEN LPRINT TAB(56-2*K);A; 2700 LPRINT TAB(65)A 2710 NEXT K 2720 GOSUB 7330 2730 FOR K=14 TO 1 STEP-2 2740 LPRINT TAB(K)A 2750 NEXT K 2760 GOTO 1260 2770 REM K 2780 FOR K=1 TO 4:LPRINT Z;:FOR KK=1 TO 7:LPRINT A;:NEXT KK:LPRINT :NEXT K 2790 FOR L= 1 TO 8 2800 FOR LL=1 TO 2 2810 LPRINT TAB(30-(4*L));A;:LPRINT TAB(34+(4*L));A 2820 NEXT LL 2830 NEXT L 2840 GOTO 1260 2850 REM L 2860 FOR K=1 TO 4 2870 LPRINT Z; 2880 FOR KK=1 TO 7 2890 LPRINT A; 2900 NEXT KK 2910 LPRINT 2920 NEXT K 2930 FOR K=1 TO 18 2940 LPRINT A 2950 NEXT K 2960 GOTO 1260 2970 REM M 2980 DEFSTR M 2990 M=A$ 3000 FOR K=1 TO 4:LPRINT Z;:FOR KK=1 TO 7:LPRINT A;:NEXT KK:LPRINT :NEXT K 3010 IF F<>0 THEN F=0 :GOTO 3140 3020 FOR K=61 TO 26 STEP -5 3030 FOR KK=1 TO 2 3040 LPRINT TAB(K);M 3050 NEXT KK 3060 NEXT K 3070 FOR K=31 TO 65 STEP 5 3080 FOR KK=1 TO 2 3090 LPRINT TAB(K);M 3100 NEXT KK 3110 NEXT K 3120 F=4 3130 GOTO 3000 3140 GOTO 1260 3150 REM N 3160 FOR K=1 TO 4 3170 LPRINT Z; 3180 FOR KK=1 TO 7 3190 LPRINT A; 3200 NEXT KK 3210 LPRINT 3220 NEXT K 3230 IF FL<>0 THEN FL=0:GOTO 1260 3240 FOR K=66 TO 1 STEP-7 3250 FOR KK=1 TO 2 3260 LPRINT TAB(K)A 3270 NEXT KK 3280 NEXT K 3290 FL=5:GOTO 3160 3300 REM P 3310 FOR K=1 TO 4 3320 LPRINT Z; 3330 FOR KK=1 TO 7 3340 LPRINT A; 3350 NEXT KK 3360 LPRINT 3370 NEXT K 3380 FOR K= 1 TO 6 3390 LPRINT TAB(35);A;:LPRINT TAB(66);A 3400 NEXT K 3410 FOR K=1 TO 8 3420 LPRINT TAB(K+34)A;:LPRINT TAB(66-K)A 3430 NEXT K 3440 FOR K=1 TO 3 3450 B=A+A+A:LPRINT TAB(43+(2*K));LEFT$(B,24-(4*K)) 3460 NEXT K 3470 GOTO 1260 3480 REM S 3490 DEFSTR X,Y,B 3500 B=A+A+A 3510 FOR K=1 TO 3 3520 LPRINT TAB(11-K)A;:LPRINT TAB(50-(2*K));:LPRINT LEFT$(B,10+(4*K)) 3530 NEXT K 3540 FOR K=1 TO 8 3550 X=A:Y=A 3560 LPRINT TAB(8-K)A;:LPRINT TAB(43-K)X;:LPRINT TAB(57+K)A 3570 NEXT K 3580 FOR K= 1 TO 6 3590 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A 3600 NEXT K 3610 FOR K=1 TO 8 3620 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(66-K)A 3630 NEXT K 3640 B=A+A+A 3650 FOR K=1 TO 3 3660 LPRINT TAB(8+(2*K));:LPRINT LEFT$(B,30-(4*K));:LPRINT TAB(57-K)A 3670 NEXT K 3680 GOTO 1260 3690 REM U 3700 GOSUB 7340 3710 FOR K=1 TO 15 3720 LPRINT A 3730 NEXT K 3740 GOSUB 7350 3750 GOTO 1260 3760 REM V 3770 FOR K=65 TO 6 STEP -7 3780 FOR KK=1 TO 2 3790 LPRINT TAB(K)A 3800 NEXT KK 3810 NEXT K 3820 FOR K=2 TO 65 STEP 7 3830 FOR KK=1 TO 2 3840 LPRINT TAB(K)A 3850 NEXT KK 3860 NEXT K 3870 GOTO 1260 3880 REM T 3890 FOR K=1 TO 13 3900 LPRINT TAB(66);A 3910 NEXT K 3920 IF FL<>0 THEN FL=0:GOTO 1260 3930 FOR K=1 TO 4 3940 LPRINT "**";A+A+A+A+A+A+A;"***" 3950 NEXT K 3960 FL=5 :GOTO 3890 3970 REM W 3980 FOR K=1 TO 4 3990 LPRINT Z; 4000 FOR KK=1 TO 7 4010 LPRINT A; 4020 NEXT KK 4030 LPRINT 4040 NEXT K 4050 IF FL<>0 THEN FL=0:GOTO 1260 4060 FOR K=1 TO 7 4070 FOR KK=1 TO 2 4080 LPRINT TAB(5*K)A 4090 NEXT KK 4100 NEXT K 4110 FOR K= 1 TO 6 4120 FOR KK=1 TO 2 4130 LPRINT TAB(35-(5*K))A 4140 NEXT KK 4150 NEXT K 4160 FL=5:GOTO 3980 4170 REM X 4180 FOR K=0 TO 29 STEP 3 4190 LPRINT TAB(K)A;:LPRINT TAB(66-K)A 4200 NEXT K 4210 FOR K=1 TO 2 4220 LPRINT TAB(28)A+A 4230 NEXT K 4240 FOR K=1 TO 29 STEP 3 4250 LPRINT TAB(28-K);A;:LPRINT TAB(38+K);A 4260 NEXT K 4270 GOTO 1260 4280 REM R 4290 FOR K=1 TO 4 4300 LPRINT Z; 4310 FOR KK=1 TO 7 4320 LPRINT A; 4330 NEXT KK 4340 LPRINT 4350 NEXT K 4360 FOR K= 1 TO 6 4370 LPRINT TAB(27-2*K);A;:LPRINT TAB(35);A;:LPRINT TAB(66);A 4380 NEXT K 4390 FOR K=1 TO 8 4400 LPRINT TAB(15-2*K);A;:LPRINT TAB(K+34)A;:LPRINT TAB(66-K)A 4410 NEXT K 4420 FOR K=1 TO 3 4430 B=A+A:LPRINT TAB(43+(2*K));LEFT$(B,24-(4*K)) 4440 NEXT K 4450 GOTO 1260 4460 REM Y 4470 FOR K=65 TO 35 STEP -6 4480 FOR KK=1 TO 2 4490 LPRINT TAB(K);A 4500 NEXT KK 4510 NEXT K 4520 FOR K=1 TO 3 4530 LPRINT A+A+A+A 4540 NEXT K 4550 FOR K=35 TO 65 STEP 6 4560 FOR KK=1 TO 2 4570 LPRINT TAB(K);A 4580 NEXT KK 4590 NEXT K 4600 GOTO 1260 4610 REM . 4620 FOR K = 2 TO 10 STEP 2 4630 LPRINT TAB(11-K); STRING$(2*K,CHR$(232));:REM***THIS PRINTS THE SPADE SYMBOL ON AS ON A 4 OF SPADES ON CARDS. REPLACE WITH THE SYMBOL OF YOUR CHOICE ON YOUR PRINTER. 4640 NEXT K 4650 FOR K=2 TO 12 STEP 2 4660 LPRINT TAB(K-1); STRING$(24-(2*K),CHR$(232));:REM THE CHR$(232) IS A SPADE SEE LINE 4480 4670 NEXT K 4680 GOTO 1260 4690 REM ! 4700 FOR K = 2 TO 10 STEP 2 4710 LPRINT TAB(11-K); STRING$(2*K,CHR$(232));:LPRINT TAB(35);A+A+A+A:REM THE CHR$(232) IS A SPADE SEE LINE 4480 4720 NEXT K 4730 FOR K=2 TO 12 STEP 2 4740 LPRINT TAB(K-1); STRING$(24-(2*K),CHR$(232));:LPRINT TAB(35);A+A+A+A:REM THE CHR$(232) IS A SPADE SEE LINE 4480 4750 NEXT K 4760 GOTO 1260 4770 REM + 4780 FOR K=1 TO 10 4790 LPRINT TAB(21)A+A 4800 NEXT K 4810 IF FL<>0 THEN FL=0:GOTO 1260 4820 FOR K= 1 TO 10 4830 LPRINT A+A+A+A+A+A 4840 NEXT K 4850 FL=3:GOTO 4780 4860 REM ? 4870 FOR K=55 TO 65 STEP 2 4880 LPRINT TAB(K);A 4890 NEXT K 4900 REM ! 4910 FOR K = 1 TO 10 STEP 2 4920 LPRINT TAB(11-K); STRING$(2*K,CHR$(232));:LPRINT TAB(29)"??"A+A;:LPRINT TAB(65)A:REM CHR$(232) IS A SPADE SEE LINE 4480 4930 NEXT K 4940 FOR K=1 TO 11 STEP 2 4950 IF K=1 THEN T=22 ELSE T=24 4960 LPRINT TAB(K-1); STRING$(T-(2*K),CHR$(232));:LPRINT TAB(29)"??"A+A;:LPRINT TAB(65)A:REM CHR$(232) IS A SPADE SEE LINE 4480 4970 NEXT K 4980 FOR K=1 TO 6 4990 LPRINT TAB(40+K);A;:LPRINT TAB(66-K)A 5000 NEXT K 5010 FOR K=1 TO 4 5020 LPRINT TAB(47+K);STRING$(23-2*K,"?") 5030 NEXT K 5040 GOTO 1260 5050 REM- 5060 FOR K=1 TO 23 5070 LPRINT TAB(20)A+A 5080 NEXT K 5090 GOTO 1260 5100 REM = 5110 FOR K=1 TO 23 5120 LPRINT TAB(15)A+A;:LPRINT TAB(45);A+A 5130 NEXT K 5140 GOTO 1260 5150 REM 3 5160 DEFSTR X,Y 5170 FOR K= 1 TO 6 5180 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A 5190 NEXT K 5200 FOR K=1 TO 8 5210 IF K<10 THEN X=RIGHT$(A,K+4) ELSE X=A 5220 IF K<10 THEN Y=LEFT$(A,K+4) ELSE Y=A 5230 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(K+39)X;:LPRINT TAB(66-K)A 5240 NEXT K 5250 FOR K=1 TO 3 5260 LPRINT TAB(9+(2*K));STRING$(29-(4*K),"3"); 5270 LPRINT TAB(47+(2*K));:LPRINT STRING$(20-(4*K),"3") 5280 NEXT K 5290 GOTO 1260 5300 REM 1 5310 FOR K=1 TO 2:LPRINT TAB(66)A:NEXT K 5320 FOR K= 1 TO 5 5330 LPRINT"11"A+A+A+A+A+A+A"111" 5340 NEXT K 5350 GOTO 1260 5360 REM 2 5370 FOR K= 1 TO 8 5380 LPRINT A"2"STRING$(K,"2");:LPRINT TAB(47+2*K)A 5390 NEXT K 5400 FOR K= 1 TO 7 5410 LPRINT A"2";:LPRINT TAB(10+2*K)A;:LPRINT TAB(65)A 5420 NEXT K 5430 FOR K= 1 TO 8 5440 LPRINT A"2";:LPRINT TAB(25+2*K)A;:LPRINT TAB(67-2*K)A 5450 NEXT K 5460 FOR K= 1 TO 3 5470 LPRINT A"2";:LPRINT TAB(41+2*K);STRING$(20-4*K,"2") 5480 NEXT K 5490 GOTO 1260 5500 REM 4 5510 FOR K=1 TO 4 5520 LPRINT TAB(33)A+A+A+A 5530 NEXT K 5540 FOR K= 1 TO 10 5550 LPRINT TAB(33)A 5560 NEXT K 5570 FOR K=1 TO 4 5580 LPRINT"44"A+A+A+A+A+A+A"444" 5590 NEXT K 5600 FOR K= 1 TO 10 5610 LPRINT TAB(33)A 5620 NEXT K 5630 GOTO 1260 5640 WIDTH 80 5650 REM 8 5660 DEFSTR X,Y 5670 FOR K=1 TO 3 5680 LPRINT TAB(16-2*K);STRING$(13+(4*K),"8"); 5690 LPRINT TAB(55-(2*K));:LPRINT STRING$(5+(4*K),"8") 5700 NEXT K 5710 FOR K=1 TO 8 5720 IF K>1 THEN X=RIGHT$(A,13-K) ELSE X=A 5730 IF K>1 THEN Y=LEFT$(A,13-K) ELSE Y=A 5740 LPRINT TAB(8-K)A;:LPRINT TAB(26+K);Y;:LPRINT TAB(48-K)X;:LPRINT TAB(57+K)A 5750 NEXT K 5760 FOR K= 1 TO 6 5770 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A 5780 NEXT K 5790 FOR K=1 TO 8 5800 IF K<10 THEN X=RIGHT$(A,K+4) ELSE X=A 5810 IF K<10 THEN Y=LEFT$(A,K+4) ELSE Y=A 5820 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(K+39)X;:LPRINT TAB(66-K)A 5830 NEXT K 5840 FOR K=1 TO 3 5850 LPRINT TAB(9+(2*K));STRING$(29-(4*K),"8"); 5860 LPRINT TAB(47+(2*K));:LPRINT STRING$(20-(4*K),"8") 5870 NEXT K 5880 GOTO 1260 5890 REM 9 5900 DEFSTR X,Y 5910 FOR K=1 TO 3 5920 LPRINT TAB(50-(2*K));:LPRINT STRING$(10+(4*K),"9") 5930 NEXT K 5940 FOR K=1 TO 8 5950 X=A:Y=A 5960 LPRINT TAB(43-K)X;:LPRINT TAB(57+K)A 5970 NEXT K 5980 FOR K= 1 TO 6 5990 LPRINT TAB(35);A;:LPRINT TAB(66);A 6000 NEXT K 6010 FOR K=1 TO 5 6020 LPRINT TAB(36+K);Y;:LPRINT TAB(66-K)A 6030 NEXT K 6040 FOR K=1 TO 4 6050 LPRINT A+A+A+A+A+A+A 6060 NEXT K 6070 GOTO 1260 6080 REM 5 6090 DEFSTR X,Y 6100 FOR K=1 TO 4 6110 LPRINT TAB(12-K)A;:LPRINT TAB(47-K);STRING$(K-1,"5");:LPRINT TAB(46);:LPRINT A+A+A 6120 NEXT K 6130 FOR K=1 TO 7 6140 X=A:Y=A 6150 LPRINT TAB(8-K)A;:LPRINT TAB(43-K)X;:LPRINT TAB(66)A 6160 NEXT K 6170 FOR K= 1 TO 6 6180 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A 6190 NEXT K 6200 FOR K=1 TO 8 6210 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(66)A 6220 NEXT K 6230 FOR K=1 TO 3 6240 LPRINT TAB(8+(2*K));STRING$(30-(4*K),"5");:LPRINT TAB(66)A 6250 NEXT K 6260 GOTO 1260 6270 REM 6 6280 DEFSTR X,Y 6290 K=0:GOSUB 6310 6300 FOR K=2 TO 4 6310 LPRINT TAB(12-K)A+A+A+A;:LPRINT TAB(52-(K));:LPRINT STRING$(11+(2*K),"6") 6320 IF K=0 THEN RETURN 6330 NEXT K 6340 FOR K=1 TO 8 6350 X=A:Y=A 6360 LPRINT TAB(8-K)A;:LPRINT TAB(35)X;:LPRINT TAB(57+K)A 6370 NEXT K 6380 FOR K= 1 TO 6 6390 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A 6400 NEXT K 6410 FOR K=1 TO 8 6420 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(66-K)A 6430 NEXT K 6440 FOR K=1 TO 3 6450 LPRINT TAB(8+(2*K));STRING$(30-(4*K),"6");:LPRINT TAB(57-K)A 6460 NEXT K 6470 GOTO 1260 6480 REM Z 6490 DEFSTR B 6500 B=LEFT$(A,5) 6510 LPRINT A;:LPRINT TAB(66);A 6520 LPRINT A+B;:LPRINT TAB(66);A 6530 FOR K=1 TO 10 6540 FOR KA=1 TO 3 6550 LPRINT A;:LPRINT TAB(6+(5*K));A;:LPRINT TAB(66);A 6560 NEXT KA 6570 NEXT K 6580 LPRINT A;:LPRINT TAB(61);A+B 6590 LPRINT A;:LPRINT TAB(66);A 6600 GOTO 1260 6610 REM 7 6620 DEFSTR B 6630 B=LEFT$(A,5) 6640 FOR K=1 TO 3 6650 LPRINT A;:LPRINT TAB(61);A+B 6660 NEXT K 6670 FOR K=1 TO 9 6680 FOR KA=1 TO 3 6690 LPRINT TAB((6*K));A;:LPRINT TAB(66);A 6700 NEXT KA 6710 NEXT K 6720 FOR K=1 TO 3 6730 LPRINT TAB(56);A+A 6740 NEXT K 6750 GOTO 1260 6760 REM => 6770 DEFSTR A,B:IF A="" THEN A="PHDEEDMDR*" 6780 B=A+A:B=B+B 6790 FOR K= 1 TO 20 6800 LPRINT TAB(23);A+A 6810 NEXT K 6820 FOR K=20 TO 1 STEP -1 6830 LPRINT TAB(33-K);LEFT$(B,2*K) 6840 NEXT K 6850 GOTO 1260 6860 REM => 6870 DEFSTR A,B:IF A="" THEN A="PHDEEDMDR*" 6880 B=A+A:B=B+B 6890 GOTO 6940 6900 FOR K= 1 TO 20 6910 LPRINT TAB(23);A+A 6920 NEXT K 6930 GOTO 1260 6940 FOR K=1 TO 20 6950 LPRINT TAB(33-K);LEFT$(B,2*K) 6960 NEXT K 6970 GOTO 6900 6980 REM ^ 6990 DEFSTR A,B:IF A="" THEN A="PHDEEDMDR*" 7000 B=A+A+A:B=B+B 7010 FOR K= 1 TO 16 7020 IF K>12 THEN GOSUB 7130 7030 LPRINT TAB(40);;LEFT$(B,2*K) 7040 NEXT K 7050 LPRINT LEFT$(A,3)+B+A 7060 LPRINT LEFT$(A,5)+B+A 7070 LPRINT LEFT$(A,3)+B+A 7080 FOR K=1 TO 16 7090 IF K<5 THEN GOSUB 7130 7100 LPRINT TAB(40);LEFT$(B,34-2*K) 7110 NEXT K 7120 GOTO 1260 7130 LPRINT A+A+A+LEFT$(A,9);:RETURN 7140 REM \|/ 7150 DEFSTR A,B:IF A="" THEN A="PHDEEDMDR*" 7160 B=A+A+A:B=B+B 7170 FOR K=1 TO 17 7180 IF K<12 THEN LPRINT TAB(35-2*K);;LEFT$(B,2*K) 7190 IF K>13 THEN LPRINT TAB(39-2*K);LEFT$(B,2*K); 7200 IF K>13 THEN GOSUB 7300 7210 NEXT K 7220 LPRINT TAB(3)LEFT$(A,4)+B+A 7230 LPRINT LEFT$(A,6)+B+A 7240 LPRINT TAB(3)LEFT$(A,4)+B+A 7250 FOR K=1 TO 16 7260 IF K<5 THEN LPRINT TAB(3+2*K);LEFT$(B,32-2*K);:GOSUB 7310 7270 IF K>4 THEN LPRINT TAB(3+2*K);LEFT$(B,32-2*K) 7280 NEXT K 7290 GOTO 1260 7300 LPRINT TAB(39);A+A+A+LEFT$(A,8):RETURN 7310 LPRINT TAB(35);LEFT$(A,2)+A+A+A+A:RETURN 7320 B=A+A:FOR K=1 TO 4 :LPRINT TAB(5-K);A+A+A+A+A+A+LEFT$(B,6+2*K):NEXT K:RETURN 7330 B=A+A:FOR K=1 TO 4 :LPRINT TAB(K);A+A+A+A+A+A+LEFT$(B,16-2*K):NEXT K:RETURN 7340 B=A+A:FOR K=1 TO 4:LPRINT TAB(5-K);A+A+A+A+A+A+LEFT$(B,13+K):NEXT K:RETURN 7350 B=A+A:FOR K=1 TO 4:LPRINT TAB(K);A+A+A+A+A+A+LEFT$(B,18-K):NEXT K:RETURN 7360 AA(K)=LEFT$(AA(K),LEN(AA(K))-1) 7370 M=LEN(AA(K)) 7380 ON M GOTO 7390,7400,7410,7420,7430,7440,7450,7460,7470,370 7390 AA(K)=E+AA(K)+E+AA(K)+E+AA(K)+E+AA(K)+E+AA(K):GOTO 370 7400 AA(K)=EE+AA(K)+E+AA(K)+E+AA(K):GOTO 370 7410 AA(K)=EE+AA(K)+EE+AA(K):GOTO 370 7420 AA(K)=E+AA(K)+E+AA(K):GOTO 370 7430 AA(K)=EE+EEE+AA(K):GOTO 370 7440 AA(K)=E+EEE+AA(K):GOTO 370 7450 AA(K)=EEE+AA(K):GOTO 370 7460 AA(K)=EE+AA(K):GOTO 370  7470 AA(K)=E+AA(K):GOTO 370 7480 GOTO 370 7490 REM HEART 7500 REM 7510 FOR K=1 TO 52 7520 H(K)=STRING$(K,CHR$(233)):REM ***ON THE NEC THE CHR$(233) IS A SMALL HEART WHICH IS USED IN THE HEART--IF YOU DON'T HAVE ONE ON YOUR PRINTER SUBSTITUE THE CHR$ OF YOUR CHOICE. 7530 NEXT K 7540 FOR K=1 TO 13 7550 IF K>0 THEN K1=K+1:IF K>7 THEN K1=16-K 7560 IF K>10 THEN KA=10 ELSE KA=K 7570 LPRINT TAB(50-2*K)H(5+2*KA);H(K1) 7580 NEXT K 7590 FOR K=1 TO 12 7600 IF K<6 THEN K1=4+K-1 7610 IF K>5 THEN K1=14-K 7620 IF K=1 THEN KB=2 ELSE KB=K 7630 IF K<3 THEN LPRINT TAB(24+2*K)H(23+KB);H(K1) ELSE LPRINT TAB(24+2*K)H(31-2*K); H(K1) 7640 NEXT K 7650 GOTO 1260 7660 PRINT STRING$(50,"*") 7670 FOR K=1 TO 13 7680 IF K=5 THEN GOSUB 7760 7690 IF K=6 THEN GOSUB 7790 7700 IF K=8 THEN GOSUB 7810 7710 IF K=10 THEN GOSUB 7840 7720 PRINT "*";:PRINT TAB(50)"*" 7730 NEXT K 7740 PRINT STRING$(50,"*") 7750 IF FINI=0 THEN GOTO 100 ELSE GOTO 1280 7760 PRINT"* BANNER PRINTER";:PRINT TAB(50)"*" 7770 PRINT"*  **BY**";:PRINT TAB(50)"*" 7780 RETURN 7790 PRINT"* PETER H. DAVIS";:PRINT TAB(50)"*" 7800 RETURN 7810 PRINT"* 2610 EAST CAMERON AVE.";:PRINT TAB(50)"*" 7820 PRINT"* WEST COVINA, CA. 91791";:PRINT TAB(50)"*" 7830 RETURN 7840 PRINT"* IF THIS PROGRAM IS A HELP--";:PRINT TAB(50)"*" 7850 PRINT"* PLEASE SEND $10 TO HELP WITH COSTS";:PRINT TAB(50)"*":RETURN 7860 K=VAL(DUMMY$) 7870 GOSUB 240 7880 RETURN 0 PRINT"* PLEASE SEND $10 TO HELP WITH COSTS";:PRIN7620 IF K=1 THEN KB=2 ELSE KB=K 7630 IF K<3 THEN LPRINT TAB(24+2*K)H(23+KB);H(K1) ELSE LPRINT TAB(24+2*K)H(31-2*K); H(K1) 7640 NEXT K 7650 GOTO 1260 7660 PRINT STRING$(50,"*") 7670 FOR K=1 TO 13 7680 IF K=5 THEN GOSUB 7760 7690 IF K=6 THEN GOSUB 7790 7700 IF K=8 THEN GOSUB 7810 7710 IF K=10 THEN GOSUB 7840 7720 PRINT "*";:PRINT TAB(50)"*" 7730 NEXT K 7740 PRINT STRING$(50,"*") 7750 IF FINI=0 THEN GOTO 100 ELSE GOTO 1280 7760 PRINT"* BANNER PRINTER";:PRINT TAB(50)"*" 7770 PRINT"* 7 PRINT CHR$(26):PRINT:PRINT:PRINT:PRINT:PRINT 8 PRINT "THE PRINTER MUST BE TURNED ON TO WORK THIS PROGRAM!!!!!!" 9 LPRINT 10 WIDTH 50:PRINT CHR$(26):PRINT "STOP EVERYTHING!!!! THIS IS SET UP FOR AN EPSON PRINTER 20 PRINT " TO FIT YOUR PRINTER CHANGE LINES 10,70,1360,1420,4480,4510,4560,4590,4770,4810,7370 IN THE BIGPRINT PROGRAM!! THEY EACH HAVE REMARK STATEMENTS TO TELL YOU WHAT THEY ARE FOR THE NEC 8023A PRINTER" 30 LINE INPUT "IF NOT SURE OF YOUR PRINTER CHR$ COMMANDS, TYPE ^C AND THEN RUN PRINTER.BAS OTHERWISE PUSH >RETURN<";DUMMY$ 40 PRINT CHR$(26):PRINT "IF THE PROGRAM IS NOW SET FOR YOUR PRINTER, YOU MAY WANT TO DELETE LINES 0,1,2 AND EDIT 1130 (IN BIGPRINT.BAS) TO MAKE YOUR OWN ENDING MESSAGE":PRINT 50 LINE INPUT "READ THESE INSTRUCTIONS THEN PUSH RETURN: THIS PROGRAM WILL WRITE A BANNER. FIRST YOU TYPE IN THE BIG LETTERS OF THE MESSAGE AND THEN THE LITTLE LETTERS WHICH GO IN EACH LETTER.";DUMMY$ 60 PRINT CHR$(26):PRINT " THIS PROPGRAM WAS DEVELOPED AND WRITTEN BY PETE DAVIS AFTER GREAT EFFORT. DONATIONS FOR HIS HUNDREDS HOURS OF WORK WILL BE WELECOME. 70 PRINT:LINE INPUT "The author grants permission to copy this file on a not-for-profit basis. No copies of this file maybe sold for profit execpt by the author. PRESS RETURN TO START"; DUMMY$ 80 LPRINT CHR$(27);"E";:REM **THIS MAKES ENHANCED OR DARK PRINT ON THE NEC 8023 90 GOSUB 7660 100 FOR K=5 TO 1950:NEXT K 110 DEFSTR H:DIM H(60) 120 PRINT CHR$(26) 130 DEFINT K 140 DEFSTR A-E,Z 150 E="*":EE="**":EEE="***" 160 Z=STRING$(5,CHR$(35)):REM THIS MAKES A FANCY "&" SIGN ON THE NEC REPLACE WITH ONE FOR YOUR PRINTER 170 DIM AA(100) 180 PRINT:PRINT:PRINT "USE ALL CAPS LETTERS, ALL NUMBERS AND +,-,=,!,.,?,<,>,^,| FOR DOWN ARROW, @ FOR HEART we also have a small c.":PRINT:PRINT:PRINT 190 INPUT " WHAT BIG MESSAGE DO YOU WANT";MESS$ 200 PRINT 210 FOR K=1 TO LEN(MESS$) 220 PRINT"STRING$ MESSAGE # "K" YOU MUST USE CHARACTERS. NO BLANKS" 230 PRINT"IF YOU WANT TO REUSE OLD MESSAGES IN THE ORDER OF WHICH THEY WERE GIVEN -- TYPE >STOP< " 240 PRINT:PRINT "AFTER UP TO >9< CHARACTERS THEN TYPE >#<" 250 PRINT 260 IF MID$(MESS$,K,1)=" " OR MID$(MESS$,K,1)="." OR MID$(MESS$,K,1)="@" THEN PRINT "THERE ARE NO MESSAGES IN BLANKS, PERIODS, OR HEARTS -- DO THE NEXT ONE:":GOTO 380 270 IF SF<>0 AND KK=KS THEN KK=0 280 IF SF<>0 THEN AA(K)=AA(KK):PRINT:PRINT:PRINT"YOUR MESSAGE IS:"AA(K):GOTO 330 290 INPUT;AA(K) 300 BLANK$=" ": IF INSTR(AA(K),BLANK$)<>0 THEN PRINT" YOU BLEW IT!!!! NO BLANKS!!!!! TRY AGAIN BUSTER!!!":GOTO 220 310 PRINT:PRINT 320 IF RIGHT$(AA(K),1)="#" THEN GOTO 7360 330 IF AA(K)="STOP" THEN SF=4:KS=K:KK=KK+1:GOTO 280 340 IF SF<>0 AND AA(K)="" THEN KK=KK+1:GOTO 270 350 IF SF<>0 THEN KK=KK+1:GOTO 390 360 PRINT:PRINT 370 IF LEN(AA(K))<>10 THEN PRINT"YOU MUST USE TEN LETTERS OR LESS THEN 10 FOLLOWED BY >#< ":PRINT:PRINT:PRINT:GOTO 290 380 IF VAL(LEFT$(DUMMY$,2))>0 AND VAL(LEFT$(DUMMY$,2))<50 THEN RETURN 390 NEXT K 400 FOR J=1 TO LEN(MESS$) 410 A=AA(J):Z=LEFT$(A,5):IF DUMMY$<>"" THEN 500 420 FOR K=1 TO LEN(MESS$) :IF K<24 THEN PRINT K" ";: PRINT MID$(MESS$,K,1)"="AA(K) 430 IF K>23 THEN INPUT "PRESS ENTER TO CONTINUE";DUMMY:PRINT TAB(24);K" ";MID$(MESS$,K,1)"="AA(K) 440 NEXT K 450 IF DUMMY$="" THEN INPUT" IF THIS IS OK THEN TYPE >Y< ELSE ^C AND START AGAIN OR YOU CAN TYPE THE NUMBER OF THE LETTER ABOVE AND CORRECT";DUMMY$ 460 IF VAL(LEFT$(DUMMY$,2))>0 AND VAL(LEFT$(DUMMY$,2))<50 THEN GOSUB 7860 470 IF VAL(LEFT$(DUMMY$,2))>0 AND VAL(LEFT$(DUMMY$,2))<50 THEN DUMMY$="" :GOTO 400 480 LM=LEN(MESS$) 490 IF LEFT$(DUMMY$,1)<>"Y" THEN PRINT CHR$(26):PRINT "YOU HAVE "LM;:PRINT" SPACES LESS . AND HEART TRY AGAIN WITH "MESS$;:PRINT :PRINT:GOTO 200 500 FOR K=1 TO 8:LPRINT:NEXT K 510 IF MID$(MESS$,J,1)="A" THEN 1000:'IN 520 IF MID$(MESS$,J,1)=" " THEN FOR K=1 TO 20:LPRINT :NEXT K:GOTO 1260 530 IF MID$(MESS$,J,1)="B" THEN 1290 540 IF MID$(MESS$,J,1)="C" THEN 1520 550 IF MID$(MESS$,J,1)="c" THEN 1510 560 IF MID$(MESS$,J,1)="D" THEN 1590:' IN 570 IF MID$(MESS$,J,1)="E" THEN 2350:'IN  580 IF MID$(MESS$,J,1)="F" THEN 1890 590 IF MID$(MESS$,J,1)="G" THEN 2010:'IN 600 IF MID$(MESS$,J,1)="H" THEN 2130 610 IF MID$(MESS$,J,1)="I" THEN 2260:'IN 620 IF MID$(MESS$,J,1)="J" THEN 2470 630 IF MID$(MESS$,J,1)="K" THEN 2770:'IN 640 IF MID$(MESS$,J,1)="L" THEN 2850 650 IF MID$(MESS$,J,1)="M" THEN 2970:'IN 660 IF MID$(MESS$,J,1)="N" THEN 3150:'IN 670 IF MID$(MESS$,J,1)="O" THEN 1820 680 IF MID$(MESS$,J,1)="P" THEN 3300:'IN 690 IF MID$(MESS$,J,1)="Q" THEN 2660 700 IF MID$(MESS$,J,1)="R" THEN 4280:'IN 710 IF MID$(MESS$,J,1)="S" THEN 3480:'IN 720 IF MID$(MESS$,J,1)="T" THEN 3880:'IN 730 IF MID$(MESS$,J,1)="U" THEN 3690 740 IF MID$(MESS$,J,1)="V" THEN 3760 750 IF MID$(MESS$,J,1)="W" THEN 3970:'IN 760 IF MID$(MESS$,J,1)="X" THEN 4170 770 IF MID$(MESS$,J,1)="Y" THEN 4460:'IN 780 IF MID$(MESS$,J,1)="Z" THEN 6480 790 IF MID$(MESS$,J,1)="." THEN 4610:'IN 800 IF MID$(MESS$,J,1)="!" THEN 4690:'IN 810 IF MID$(MESS$,J,1)="+" THEN 4770:'IN 820 IF MID$(MESS$,J,1)="?" THEN 4860:'IN 830 IF MID$(MESS$,J,1)="-" THEN 5050:'IN 840 IF MID$(MESS$,J,1)="=" THEN 5100:'IN 850 IF MID$(MESS$,J,1)="3" THEN 5150:'IN 860 IF MID$(MESS$,J,1)="1" THEN 5300:'IN 870 IF MID$(MESS$,J,1)="2" THEN 5360:'IN 880 IF MID$(MESS$,J,1)="4" THEN 5500:'IN 890 IF MID$(MESS$,J,1)="8" THEN 5640:'IN 900 IF MID$(MESS$,J,1)="9" THEN 5890:'IN 910 IF MID$(MESS$,J,1)="5" THEN 6080:'IN 920 IF MID$(MESS$,J,1)="6" THEN 6270:'IN 930 IF MID$(MESS$,J,1)="0" THEN 1820 940 IF MID$(MESS$,J,1)="7" THEN 6610 950 IF MID$(MESS$,J,1)=">" THEN 6760 960 IF MID$(MESS$,J,1)="<" THEN 6860 970 IF MID$(MESS$,J,1)="^" THEN 6980 980 IF MID$(MESS$,J,1)="|" THEN 7140 990 IF MID$(MESS$,J,1)="@" THEN 7500 1000 REM A 1010 DEFSTR A 1020 IF A="" THEN A="ABCDEFGHIJ" 1030 FOR K=1 TO 2:LPRINT A:NEXT K 1040 FOR K=1 TO 3 1050 FOR KK= 1 TO 2 1060 LPRINT TAB(7*K+1)A 1070 NEXT KK 1080 NEXT K 1090 FOR K= 4 TO 8 1100 FOR KK=1 TO 2 1110 LPRINT TAB(18);A;:LPRINT TAB(7*K)A 1120 NEXT KK 1130 NEXT K 1140 FOR K=1 TO 2 :LPRINT TAB(18)A;:LPRINT TAB(63)A:NEXT K 1150 FOR K=8 TO 4 STEP -1 1160 FOR KK=1 TO 2 1170 LPRINT TAB(18)A;:LPRINT TAB(7*K)A 1180 NEXT KK 1190 NEXT K 1200 FOR K=3 TO 1 STEP -1 1210 FOR KK=1 TO 2 1220 LPRINT TAB(7*K)A 1230 NEXT KK 1240 NEXT K 1250 FOR K=1 TO 2:LPRINT A:NEXT K 1260 NEXT J:FOR K=1 TO 10:LPRINT :NEXT K 1270 FINI=7:GOSUB 7660 1280 FOR K=1 TO 8000:NEXT K:STOP 1290 REM B 1300 DEFSTR X,Y 1310 FOR K=1 TO 4 1320 LPRINT Z; 1330 FOR KK=1 TO 7 1340 LPRINT A; 1350 NEXT KK 1360 LPRINT 1370 NEXT K 1380 FOR K= 1 TO 6 1390 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A 1400 NEXT K 1410 FOR K=1 TO 8 1420 IF K<10 THEN X=RIGHT$(A,K+4) ELSE X=A 1430 IF K<10 THEN Y=LEFT$(A,K+4) ELSE Y=A 1440 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(K+39)X;:LPRINT TAB(66-K)A 1450 NEXT K 1460 FOR K=1 TO 3 1470 B=A+A+A:LPRINT TAB(9+(2*K));LEFT$(B,29-(4*K)); 1480 LPRINT TAB(47+(2*K));:LPRINT LEFT$(B,20-(4*K)) 1490 NEXT K 1500 GOTO 1260 1510 LPRINT CHR$ (27);"F";: LPRINT CHR$(27);CHR$(15);:REM***THIS SETS THE NEC PRINTER TO SMALL (CONDENSED PRINT TO MAKE THE c RATHER THAN C FOR Mc 1520 REM C 1530 GOSUB 7320 1540 FOR K=1 TO 18 1550 LPRINT A;:LPRINT TAB(65)A 1560 NEXT K 1570 LPRINT CHR$(18);:LPRINT CHR$(27);"E"; 1580 GOTO 1260 1590 REM D 1600 FOR K=1 TO 4 1610 LPRINT LEFT$(A,5); 1620 FOR KK=1 TO 7 1630 LPRINT A; 1640 NEXT KK 1650 LPRINT 1660 NEXT K 1670 IF FL<>0 THEN FL=0:STOP 1680 FOR K=1 TO 4 1690 LPRINT A;:LPRINT TAB(66);A 1700 NEXT K 1710 FOR K=1 TO 6 1720 FOR KK=1 TO 2 1730 LPRINT TAB(2*K)A;:LPRINT TAB((65-(2*K)))A 1740 NEXT KK 1750 NEXT K 1760 FOR KK=1 TO 2 1770 LPRINT TAB(18)A;:LPRINT TAB(65-(18))A 1780 NEXT KK 1790 FOR K= 1 TO 2:LPRINT TAB(22);A+A+A:NEXT K 1800 FOR K=1 TO 2:LPRINT TAB(27);A+A:NEXT K 1810 GOTO 1260 1820 REM O 1830 GOSUB 7320 1840 FOR K=1 TO 18 1850 LPRINT A;:LPRINT TAB(65)A 1860 NEXT K 1870 GOSUB 7330 1880 GOTO 1260 1890 REM F 1900 FOR K=1 TO 4 1910 LPRINT Z; 1920 FOR KK=1 TO 7 1930 LPRINT A; 1940 NEXT KK 1950 LPRINT 1960 NEXT K 1970 FOR K=1 TO 14 1980 LPRINT TAB(33);A;:LPRINT TAB(66)A 1990 NEXT K 2000 GOTO 1260 2010 REM G 2020 GOSUB 7320 2030 FOR K=1 TO 10 2040 LPRINT A;:LPRINT TAB(65);A 2050 NEXT K 2060 FOR K=1 TO 5 2070 LPRINT A;:LPRINT TAB(21);A;:LPRINT TAB(65);A 2080 NEXT K 2090 FOR K=1 TO 4 2100 LPRINT A+A+A;:LPRINT TAB(65);A 2110 NEXT K 2120 GOTO 1260 2130 REM H 2140 FOR K=1 TO 4 2150 LPRINT Z; 2160 FOR KK=1 TO 7 2170 LPRINT A; 2180 NEXT KK 2190 LPRINT 2200 NEXT K 2210 IF FL<>0 THEN FL=0:GOTO 1260 2220 FOR K=1 TO 15 2230 LPRINT TAB(33);A 2240 NEXT K 2250 FL=5:GOTO 2140 2260 REM I 2270 FOR K=1 TO 8 2280 LPRINT A;:LPRINT TAB(66);A 2290 NEXT K 2300 IF FL<>0 THEN FL=0:GOTO 1260 2310 FOR K=1 TO 4 2320 LPRINT "**";A+A+A+A+A+A+A;"***" 2330 NEXT K 2340 FL=5 :GOTO 2270 2350 REM E 2360 FOR K=1 TO 4 2370 LPRINT Z; 2380 FOR KK=1 TO 7 2390 LPRINT A; 2400 NEXT KK 2410 LPRINT 2420 NEXT K 2430 FOR K=1 TO 15 2440 LPRINT A;:LPRINT TAB(33);A;:LPRINT TAB(66);A 2450 NEXT K 2460 GOTO 1260 2470 REM J 2480 FOR K=1 TO 4 2490 LPRINT TAB(5-K);A+A+A 2500 NEXT K 2510 FOR K=1 TO 12 2520 LPRINT A;:LPRINT TAB(66);A 2530 NEXT K 2540 FOR K=1 TO 4 2550 X$=Z 2560 LPRINT TAB(K);LEFT$(X$,6-K); 2570 FOR KK=1 TO 7 2580 LPRINT A; 2590 NEXT KK 2600 LPRINT 2610 NEXT K 2620 FOR K=1 TO 9 2630 LPRINT TAB(66);A 2640 NEXT K 2650 GOTO 1260 2660 REM Q 2670 GOSUB 7320 2680 FOR K=1 TO 18 2690 LPRINT A;:IF K>10 THEN LPRINT TAB(56-2*K);A; 2700 LPRINT TAB(65)A 2710 NEXT K 2720 GOSUB 7330 2730 FOR K=14 TO 1 STEP-2 2740 LPRINT TAB(K)A 2750 NEXT K 2760 GOTO 1260 2770 REM K 2780 FOR K=1 TO 4:LPRINT Z;:FOR KK=1 TO 7:LPRINT A;:NEXT KK:LPRINT :NEXT K 2790 FOR L= 1 TO 8 2800 FOR LL=1 TO 2 2810 LPRINT TAB(30-(4*L));A;:LPRINT TAB(34+(4*L));A 2820 NEXT LL 2830 NEXT L 2840 GOTO 1260 2850 REM L 2860 FOR K=1 TO 4 2870 LPRINT Z; 2880 FOR KK=1 TO 7 2890 LPRINT A; 2900 NEXT KK 2910 LPRINT 2920 NEXT K 2930 FOR K=1 TO 18 2940 LPRINT A 2950 NEXT K 2960 GOTO 1260 2970 REM M 2980 DEFSTR M 2990 M=A$ 3000 FOR K=1 TO 4:LPRINT Z;:FOR KK=1 TO 7:LPRINT A;:NEXT KK:LPRINT :NEXT K 3010 IF F<>0 THEN F=0 :GOTO 3140 3020 FOR K=61 TO 26 STEP -5 3030 FOR KK=1 TO 2 3040 LPRINT TAB(K);M 3050 NEXT KK 3060 NEXT K 3070 FOR K=31 TO 65 STEP 5 3080 FOR KK=1 TO 2 3090 LPRINT TAB(K);M 3100 NEXT KK 3110 NEXT K 3120 F=4 3130 GOTO 3000 3140 GOTO 1260 3150 REM N 3160 FOR K=1 TO 4 3170 LPRINT Z; 3180 FOR KK=1 TO 7 3190 LPRINT A; 3200 NEXT KK 3210 LPRINT 3220 NEXT K 3230 IF FL<>0 THEN FL=0:GOTO 1260 3240 FOR K=66 TO 1 STEP-7 3250 FOR KK=1 TO 2 3260 LPRINT TAB(K)A 3270 NEXT KK 3280 NEXT K 3290 FL=5:GOTO 3160 3300 REM P 3310 FOR K=1 TO 4 3320 LPRINT Z; 3330 FOR KK=1 TO 7 3340 LPRINT A; 3350 NEXT KK 3360 LPRINT 3370 NEXT K 3380 FOR K= 1 TO 6 3390 LPRINT TAB(35);A;:LPRINT TAB(66);A 3400 NEXT K 3410 FOR K=1 TO 8 3420 LPRINT TAB(K+34)A;:LPRINT TAB(66-K)A 3430 NEXT K 3440 FOR K=1 TO 3 3450 B=A+A+A:LPRINT TAB(43+(2*K));LEFT$(B,24-(4*K)) 3460 NEXT K 3470 GOTO 1260 3480 REM S 3490 DEFSTR X,Y,B 3500 B=A+A+A 3510 FOR K=1 TO 3 3520 LPRINT TAB(11-K)A;:LPRINT TAB(50-(2*K));:LPRINT LEFT$(B,10+(4*K)) 3530 NEXT K 3540 FOR K=1 TO 8 3550 X=A:Y=A 3560 LPRINT TAB(8-K)A;:LPRINT TAB(43-K)X;:LPRINT TAB(57+K)A 3570 NEXT K 3580 FOR K= 1 TO 6 3590 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A 3600 NEXT K 3610 FOR K=1 TO 8 3620 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(66-K)A 3630 NEXT K 3640 B=A+A+A 3650 FOR K=1 TO 3 3660 LPRINT TAB(8+(2*K));:LPRINT LEFT$(B,30-(4*K));:LPRINT TAB(57-K)A 3670 NEXT K 3680 GOTO 1260 3690 REM U 3700 GOSUB 7340 3710 FOR K=1 TO 15 3720 LPRINT A 3730 NEXT K 3740 GOSUB 7350 3750 GOTO 1260 3760 REM V 3770 FOR K=65 TO 6 STEP -7 3780 FOR KK=1 TO 2 3790 LPRINT TAB(K)A 3800 NEXT KK 3810 NEXT K 3820 FOR K=2 TO 65 STEP 7 3830 FOR KK=1 TO 2 3840 LPRINT TAB(K)A 3850 NEXT KK 3860 NEXT K 3870 GOTO 1260 3880 REM T 3890 FOR K=1 TO 13 3900 LPRINT TAB(66);A 3910 NEXT K 3920 IF FL<>0 THEN FL=0:GOTO 1260 3930 FOR K=1 TO 4 3940 LPRINT "**";A+A+A+A+A+A+A;"***" 3950 NEXT K 3960 FL=5 :GOTO 3890 3970 REM W 3980 FOR K=1 TO 4 3990 LPRINT Z; 4000 FOR KK=1 TO 7 4010 LPRINT A; 4020 NEXT KK 4030 LPRINT 4040 NEXT K 4050 IF FL<>0 THEN FL=0:GOTO 1260 4060 FOR K=1 TO 7 4070 FOR KK=1 TO 2 4080 LPRINT TAB(5*K)A 4090 NEXT KK 4100 NEXT K 4110 FOR K= 1 TO 6 4120 FOR KK=1 TO 2 4130 LPRINT TAB(35-(5*K))A 4140 NEXT KK 4150 NEXT K 4160 FL=5:GOTO 3980 4170 REM X 4180 FOR K=0 TO 29 STEP 3 4190 LPRINT TAB(K)A;:LPRINT TAB(66-K)A 4200 NEXT K 4210 FOR K=1 TO 2 4220 LPRINT TAB(28)A+A 4230 NEXT K 4240 FOR K=1 TO 29 STEP 3 4250 LPRINT TAB(28-K);A;:LPRINT TAB(38+K);A 4260 NEXT K 4270 GOTO 1260 4280 REM R 4290 FOR K=1 TO 4 4300 LPRINT Z; 4310 FOR KK=1 TO 7 4320 LPRINT A; 4330 NEXT KK 4340 LPRINT 4350 NEXT K 4360 FOR K= 1 TO 6 4370 LPRINT TAB(27-2*K);A;:LPRINT TAB(35);A;:LPRINT TAB(66);A 4380 NEXT K 4390 FOR K=1 TO 8 4400 LPRINT TAB(15-2*K);A;:LPRINT TAB(K+34)A;:LPRINT TAB(66-K)A 4410 NEXT K 4420 FOR K=1 TO 3 4430 B=A+A:LPRINT TAB(43+(2*K));LEFT$(B,24-(4*K)) 4440 NEXT K 4450 GOTO 1260 4460 REM Y 4470 FOR K=65 TO 35 STEP -6 4480 FOR KK=1 TO 2 4490 LPRINT TAB(K);A 4500 NEXT KK 4510 NEXT K 4520 FOR K=1 TO 3 4530 LPRINT A+A+A+A 4540 NEXT K 4550 FOR K=35 TO 65 STEP 6 4560 FOR KK=1 TO 2 4570 LPRINT TAB(K);A 4580 NEXT KK 4590 NEXT K 4600 GOTO 1260 4610 REM . 4620 FOR K = 2 TO 10 STEP 2 4630 LPRINT TAB(11-K); STRING$(2*K,CHR$(170));:REM***THIS PRINTS THE SPADE SYMBOL ON AS ON A 4 OF SPADES ON CARDS. REPLACE WITH THE SYMBOL OF YOUR CHOICE ON YOUR PRINTER. 4640 NEXT K 4650 FOR K=2 TO 12 STEP 2 4660 LPRINT TAB(K-1); STRING$(24-(2*K),CHR$(170));:REM THE CHR$(232) IS A SPADE SEE LINE 4480 4670 NEXT K 4680 GOTO 1260 4690 REM ! 4700 FOR K = 2 TO 10 STEP 2 4710 LPRINT TAB(11-K); STRING$(2*K,CHR$(170));:LPRINT TAB(35);A+A+A+A:REM THE CHR$(170) IS A SPADE SEE LINE 4480 4720 NEXT K 4730 FOR K=2 TO 12 STEP 2 4740 LPRINT TAB(K-1); STRING$(24-(2*K),CHR$(170));:LPRINT TAB(35);A+A+A+A:REM THE CHR$(170) IS A SPADE SEE LINE 4480 4750 NEXT K 4760 GOTO 1260 4770 REM + 4780 FOR  K=1 TO 10 4790 LPRINT TAB(21)A+A 4800 NEXT K 4810 IF FL<>0 THEN FL=0:GOTO 1260 4820 FOR K= 1 TO 10 4830 LPRINT A+A+A+A+A+A 4840 NEXT K 4850 FL=3:GOTO 4780 4860 REM ? 4870 FOR K=55 TO 65 STEP 2 4880 LPRINT TAB(K);A 4890 NEXT K 4900 REM ! 4910 FOR K = 1 TO 10 STEP 2 4920 LPRINT TAB(11-K); STRING$(2*K,CHR$(170));:LPRINT TAB(29)"??"A+A;:LPRINT TAB(65)A:REM CHR$(232) IS A SPADE SEE LINE 4480 4930 NEXT K 4940 FOR K=1 TO 11 STEP 2 4950 IF K=1 THEN T=22 ELSE T=24 4960 LPRINT TAB(K-1); STRING$(T-(2*K),CHR$(170));:LPRINT TAB(29)"??"A+A;:LPRINT TAB(65)A:REM CHR$(232) IS A SPADE SEE LINE 4480 4970 NEXT K 4980 FOR K=1 TO 6 4990 LPRINT TAB(40+K);A;:LPRINT TAB(66-K)A 5000 NEXT K 5010 FOR K=1 TO 4 5020 LPRINT TAB(47+K);STRING$(23-2*K,"?") 5030 NEXT K 5040 GOTO 1260 5050 REM- 5060 FOR K=1 TO 23 5070 LPRINT TAB(20)A+A 5080 NEXT K 5090 GOTO 1260 5100 REM = 5110 FOR K=1 TO 23 5120 LPRINT TAB(15)A+A;:LPRINT TAB(45);A+A 5130 NEXT K 5140 GOTO 1260 5150 REM 3 5160 DEFSTR X,Y 5170 FOR K= 1 TO 6 5180 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A 5190 NEXT K 5200 FOR K=1 TO 8 5210 IF K<10 THEN X=RIGHT$(A,K+4) ELSE X=A 5220 IF K<10 THEN Y=LEFT$(A,K+4) ELSE Y=A 5230 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(K+39)X;:LPRINT TAB(66-K)A 5240 NEXT K 5250 FOR K=1 TO 3 5260 LPRINT TAB(9+(2*K));STRING$(29-(4*K),"3"); 5270 LPRINT TAB(47+(2*K));:LPRINT STRING$(20-(4*K),"3") 5280 NEXT K 5290 GOTO 1260 5300 REM 1 5310 FOR K=1 TO 2:LPRINT TAB(66)A:NEXT K 5320 FOR K= 1 TO 5 5330 LPRINT"11"A+A+A+A+A+A+A"111" 5340 NEXT K 5350 GOTO 1260 5360 REM 2 5370 FOR K= 1 TO 8 5380 LPRINT A"2"STRING$(K,"2");:LPRINT TAB(47+2*K)A 5390 NEXT K 5400 FOR K= 1 TO 7 5410 LPRINT A"2";:LPRINT TAB(10+2*K)A;:LPRINT TAB(65)A 5420 NEXT K 5430 FOR K= 1 TO 8 5440 LPRINT A"2";:LPRINT TAB(25+2*K)A;:LPRINT TAB(67-2*K)A 5450 NEXT K 5460 FOR K= 1 TO 3 5470 LPRINT A"2";:LPRINT TAB(41+2*K);STRING$(20-4*K,"2") 5480 NEXT K 5490 GOTO 1260 5500 REM 4 5510 FOR K=1 TO 4 5520 LPRINT TAB(33)A+A+A+A 5530 NEXT K 5540 FOR K= 1 TO 10 5550 LPRINT TAB(33)A 5560 NEXT K 5570 FOR K=1 TO 4 5580 LPRINT"44"A+A+A+A+A+A+A"444" 5590 NEXT K 5600 FOR K= 1 TO 10 5610 LPRINT TAB(33)A 5620 NEXT K 5630 GOTO 1260 5640 WIDTH 80 5650 REM 8 5660 DEFSTR X,Y 5670 FOR K=1 TO 3 5680 LPRINT TAB(16-2*K);STRING$(13+(4*K),"8"); 5690 LPRINT TAB(55-(2*K));:LPRINT STRING$(5+(4*K),"8") 5700 NEXT K 5710 FOR K=1 TO 8 5720 IF K>1 THEN X=RIGHT$(A,13-K) ELSE X=A 5730 IF K>1 THEN Y=LEFT$(A,13-K) ELSE Y=A 5740 LPRINT TAB(8-K)A;:LPRINT TAB(26+K);Y;:LPRINT TAB(48-K)X;:LPRINT TAB(57+K)A 5750 NEXT K 5760 FOR K= 1 TO 6 5770 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A 5780 NEXT K 5790 FOR K=1 TO 8 5800 IF K<10 THEN X=RIGHT$(A,K+4) ELSE X=A 5810 IF K<10 THEN Y=LEFT$(A,K+4) ELSE Y=A 5820 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(K+39)X;:LPRINT TAB(66-K)A 5830 NEXT K 5840 FOR K=1 TO 3 5850 LPRINT TAB(9+(2*K));STRING$(29-(4*K),"8"); 5860 LPRINT TAB(47+(2*K));:LPRINT STRING$(20-(4*K),"8") 5870 NEXT K 5880 GOTO 1260 5890 REM 9 5900 DEFSTR X,Y 5910 FOR K=1 TO 3 5920 LPRINT TAB(50-(2*K));:LPRINT STRING$(10+(4*K),"9") 5930 NEXT K 5940 FOR K=1 TO 8 5950 X=A:Y=A 5960 LPRINT TAB(43-K)X;:LPRINT TAB(57+K)A 5970 NEXT K 5980 FOR K= 1 TO 6 5990 LPRINT TAB(35);A;:LPRINT TAB(66);A 6000 NEXT K 6010 FOR K=1 TO 5 6020 LPRINT TAB(36+K);Y;:LPRINT TAB(66-K)A 6030 NEXT K 6040 FOR K=1 TO 4 6050 LPRINT A+A+A+A+A+A+A 6060 NEXT K 6070 GOTO 1260 6080 REM 5 6090 DEFSTR X,Y 6100 FOR K=1 TO 4 6110 LPRINT TAB(12-K)A;:LPRINT TAB(47-K);STRING$(K-1,"5");:LPRINT TAB(46);:LPRINT A+A+A 6120 NEXT K 6130 FOR K=1 TO 7 6140 X=A:Y=A 6150 LPRINT TAB(8-K)A;:LPRINT TAB(43-K)X;:LPRINT TAB(66)A 6160 NEXT K 6170 FOR K= 1 TO 6 6180 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A 6190 NEXT K 6200 FOR K=1 TO 8 6210 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(66)A 6220 NEXT K 6230 FOR K=1 TO 3 6240 LPRINT TAB(8+(2*K));STRING$(30-(4*K),"5");:LPRINT TAB(66)A 6250 NEXT K 6260 GOTO 1260 6270 REM 6 6280 DEFSTR X,Y 6290 K=0:GOSUB 6310 6300 FOR K=2 TO 4 6310 LPRINT TAB(12-K)A+A+A+A;:LPRINT TAB(52-(K));:LPRINT STRING$(11+(2*K),"6") 6320 IF K=0 THEN RETURN 6330 NEXT K 6340 FOR K=1 TO 8 6350 X=A:Y=A 6360 LPRINT TAB(8-K)A;:LPRINT TAB(35)X;:LPRINT TAB(57+K)A 6370 NEXT K 6380 FOR K= 1 TO 6 6390 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A 6400 NEXT K 6410 FOR K=1 TO 8 6420 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(66-K)A 6430 NEXT K 6440 FOR K=1 TO 3 6450 LPRINT TAB(8+(2*K));STRING$(30-(4*K),"6");:LPRINT TAB(57-K)A 6460 NEXT K 6470 GOTO 1260 6480 REM Z 6490 DEFSTR B 6500 B=LEFT$(A,5) 6510 LPRINT A;:LPRINT TAB(66);A 6520 LPRINT A+B;:LPRINT TAB(66);A 6530 FOR K=1 TO 10 6540 FOR KA=1 TO 3 6550 LPRINT A;:LPRINT TAB(6+(5*K));A;:LPRINT TAB(66);A 6560 NEXT KA 6570 NEXT K 6580 LPRINT A;:LPRINT TAB(61);A+B 6590 LPRINT A;:LPRINT TAB(66);A 6600 GOTO 1260 6610 REM 7 6620 DEFSTR B 6630 B=LEFT$(A,5) 6640 FOR K=1 TO 3 6650 LPRINT A;:LPRINT TAB(61);A+B 6660 NEXT K 6670 FOR K=1 TO 9 6680 FOR KA=1 TO 3 6690 LPRINT TAB((6*K));A;:LPRINT! TAB(66);A 6700 NEXT KA 6710 NEXT K 6720 FOR K=1 TO 3 6730 LPRINT TAB(56);A+A 6740 NEXT K 6750 GOTO 1260 6760 REM => 6770 DEFSTR A,B:IF A="" THEN A="PHDEEDMDR*" 6780 B=A+A:B=B+B 6790 FOR K= 1 TO 20 6800 LPRINT TAB(23);A+A 6810 NEXT K 6820 FOR K=20 TO 1 STEP -1 6830 LPRINT TAB(33-K);LEFT$(B,2*K) 6840 NEXT K 6850 GOTO 1260 6860 REM => 6870 DEFSTR A,B:IF A="" THEN A="PHDEEDMDR*" 6880 B=A+A:B=B+B 6890 GOTO 6940 6900 FOR K= 1 TO 20 6910 LPRINT TAB(23);A+A 6920 NEXT K 6930 GOTO 1260 6940 FOR K=1 TO 20 6950 LPRINT TAB(33-K);LEFT$(B,2*K) 6960 NEXT K 6970 GOTO 6900 6980 REM ^ 6990 DEFSTR A,B:IF A="" THEN A="PHDEEDMDR*" 7000 B=A+A+A:B=B+B 7010 FOR K= 1 TO 16 7020 IF K>12 THEN GOSUB 7130 7030 LPRINT TAB(40);;LEFT$(B,2*K) 7040 NEXT K 7050 LPRINT LEFT$(A,3)+B+A 7060 LPRINT LEFT$(A,5)+B+A 7070 LPRINT LEFT$(A,3)+B+A 7080 FOR K=1 TO 16 7090 IF K<5 THEN GOSUB 7130 7100 LPRINT TAB(40);LEFT$(B,34-2*K) 7110 NEXT K 7120 GOTO 1260 7130 LPRINT A+A+A+LEFT$(A,9);:RETURN 7140 REM \|/ 7150 DEFSTR A,B:IF A="" THEN A="PHDEEDMDR*" 7160 B=A+A+A:B=B+B 7170 FOR K=1 TO 17 7180 IF K<12 THEN LPRINT TAB(35-2*K);;LEFT$(B,2*K) 7190 IF K>13 THEN LPRINT TAB(39-2*K);LEFT$(B,2*K); 7200 IF K>13 THEN GOSUB 7300 7210 NEXT K 7220 LPRINT TAB(3)LEFT$(A,4)+B+A 7230 LPRINT LEFT$(A,6)+B+A 7240 LPRINT TAB(3)LEFT$(A,4)+B+A 7250 FOR K=1 TO 16 7260 IF K<5 THEN LPRINT TAB(3+2*K);LEFT$(B,32-2*K);:GOSUB 7310 7270 IF K>4 THEN LPRINT TAB(3+2*K);LEFT$(B,32-2*K) 7280 NEXT K 7290 GOTO 1260 7300 LPRINT TAB(39);A+A+A+LEFT$(A,8):RETURN 7310 LPRINT TAB(35);LEFT$(A,2)+A+A+A+A:RETURN 7320 B=A+A:FOR K=1 TO 4 :LPRINT TAB(5-K);A+A+A+A+A+A+LEFT$(B,6+2*K):NEXT K:RETURN 7330 B=A+A:FOR K=1 TO 4 :LPRINT TAB(K);A+A+A+A+A+A+LEFT$(B,16-2*K):NEXT K:RETURN 7340 B=A+A:FOR K=1 TO 4:LPRINT TAB(5-K);A+A+A+A+A+A+LEFT$(B,13+K):NEXT K:RETURN 7350 B=A+A:FOR K=1 TO 4:LPRINT TAB(K);A+A+A+A+A+A+LEFT$(B,18-K):NEXT K:RETURN 7360 AA(K)=LEFT$(AA(K),LEN(AA(K))-1) 7370 M=LEN(AA(K)) 7380 ON M GOTO 7390,7400,7410,7420,7430,7440,7450,7460,7470,370 7390 AA(K)=E+AA(K)+E+AA(K)+E+AA(K)+E+AA(K)+E+AA(K):GOTO 370 7400 AA(K)=EE+AA(K)+E+AA(K)+E+AA(K):GOTO 370 7410 AA(K)=EE+AA(K)+EE+AA(K):GOTO 370 7420 AA(K)=E+AA(K)+E+AA(K):GOTO 370 7430 AA(K)=EE+EEE+AA(K):GOTO 370 7440 AA(K)=E+EEE+AA(K):GOTO 370 7450 AA(K)=EEE+AA(K):GOTO 370 7460 AA(K)=EE+AA(K):GOTO 370 7470 AA(K)=E+AA(K):GOTO 370 7480 GOTO 370 7490 REM HEART 7500 REM 7510 FOR K=1 TO 52 7511 LPRINT CHR$(27);"m";CHR$(4); 7520 H(K)=STRING$(K,CHR$(146)):REM ***ON THE NEC THE CHR$(233) IS A SMALL HEART WHICH IS USED IN THE HEART--IF YOU DON'T HAVE ONE ON YOUR PRINTER SUBSTITUE THE CHR$ OF YOUR CHOICE. 7530 NEXT K 7540 FOR K=1 TO 13 7550 IF K>0 THEN K1=K+1:IF K>7 THEN K1=16-K 7560 IF K>10 THEN KA=10 ELSE KA=K 7570 LPRINT TAB(50-2*K)H(5+2*KA);H(K1) 7580 NEXT K 7590 FOR K=1 TO 12 7600 IF K<6 THEN K1=4+K-1 7610 IF K>5 THEN K1=14-K 7620 IF K=1 THEN KB=2 ELSE KB=K 7630 IF K<3 THEN LPRINT TAB(24+2*K)H(23+KB);H(K1) ELSE LPRINT TAB(24+2*K)H(31-2*K); H(K1) 7640 NEXT K 7645 LPRINT CHR$(27);"m";CHR$(0); 7650 GOTO 1260 7660 PRINT STRING$(50,"*") 7670 FOR K=1 TO 13 7680 IF K=5 THEN GOSUB 7760 7690 IF K=6 THEN GOSUB 7790 7700 IF K=8 THEN GOSUB 7810 7710 IF K=10 THEN GOSUB 7840 7720 PRINT "*";:PRINT TAB(50)"*" 7730 NEXT 7740 PRINT STRING$(50,"*") 7750 IF FINI=0 THEN GOTO 100 ELSE GOTO 1280 7760 PRINT"* BANNER PRINTER";:PRINT TAB(50)"*" 7770 PRINT"* **BY**";:PRINT TAB(50)"*" 7780 RETURN 7790 PRINT"* PETER H. DAVIS";:PRINT TAB(50)"*" 7800 RETURN 7810 PRINT"* 2610 EAST CAMERON AVE.";:PRINT TAB(50)"*" 7820 PRINT"* WEST COVINA, CA. 91791";:PRINT TAB(50)"*" 7830 RETURN 7840 PRINT"* IF THIS PROGRAM IS A HELP--";:PRINT TAB(50)"*" 7850 PRINT"* PLEASE SEND $10 TO HELP WITH COSTS";:PRINT TAB(50)"*":RETURN 7860 K=VAL(DUMMY$) 7870 GOSUB 240 7880 RETURN 0 PRINT"* PLEASE SEND $10 TO HELP WITH COSTS";:PRINT T0 IF K<3 THEN LPRINT TAB(24+2*K)H(23+KB);H(K1) ELSE LPRINT TAB(24+2*K)H(31-2*K); H(K1) 7640 NEXT K 7645 LPRINT CHR$(27);"m";CH7 PRINT CHR$(26):PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 8 PRINT "PRINTER MUST BE TURNED ON TO WORK THIS PROGRAM!!!!" 9 LPRINT 10 WIDTH 50:PRINT CHR$(26):PRINT "STOP EVERYTHING!!!! THIS IS SET UP FOR AN NEC - 8023A" 20 PRINT " TO FIT YOUR PRINTER CHANGE LINES 80,160,1510,1570,4630,4660,4710,4740,4920,4960,7520,THEY EACH HAVE REMARK STATEMENTS TO TELL YOU WHAT THEY ARE FOR THE NEC 8023A PRINTER" 30 LINE INPUT "IF NOT SURE OF YOUR PRINTER CHR$ COMMANDS, TYPE ^C AND THEN RUN PRINTER.BAS OTHERWISE PUSH >RETURN<";DUMMY$ 40 PRINT CHR$(26):PRINT "IF THE PROGRAM IS NOW SET FOR YOUR PRINTER, YOU MAY WANT TO DELETE LINES 10 THRU 60 AND YOU CAN SET YOUR OWN ENDING MESSAGE FROM THE KEY BOARD IN THIS UPDATE!":PRINT 50 LINE INPUT "READ THESE INSTRUCTIONS THEN PUSH RETURN: THIS PROGRAM WILL WRITE A BANNER. FIRST YOU TYPE IN THE BIG LETTERS OF THE MESSAGE AND THEN THE LITTLE LETTERS WHICH GO IN EACH LETTER.";DUMMY$ 60 PRINT CHR$(26):PRINT " THIS PROPGRAM WAS DEVELOPED AND WRITTEN BY PETE DAVIS AFTER "GREAT EFFORT. DONATIONS FOR HIS HUNDREDS HOURS OF WORK WILL BE WELECOME. 70 PRINT:LINE INPUT "The author grants permission to copy this file on a not-for-profit basis. No copies of this file maybe sold for profit execpt by the author. PRESS RETURN TO START"; DUMMY$ 80 LPRINT CHR$(&H1B);"!":REM **THIS MAKES ENHANCED OR DARK PRINT ON THE NEC 8023 90 GOSUB 7660 100 FOR K=5 TO 4550:NEXT K 110 DEFSTR H:DIM H(60) 120 PRINT CHR$(26) 130 DEFINT K 140 DEFSTR A-E,Z 150 E="*":EE="**":EEE="***" 155 INPUT "IF YOU WANT A PERIOD BLOCK AT THE END, TYPE OTHERWISE PUSH "; CHE$:IF LEFT$(CHE$,1)="Y" THEN GOSUB 20000 160 Z=STRING$(5,CHR$(196)):REM THIS MAKES A FANCY "&" SIGN ON THE NEC REPLACE WITH ONE FOR YOUR PRINTER 170 DIM AA(100) 180 PRINT:PRINT:PRINT "USE ALL CAPS LETTERS, ALL NUMBERS AND +,-,=,!,.,?,<,>,^,| FOR DOWN ARROW, @ FOR HEART we also have a small c.":PRINT:PRINT:PRINT 190 INPUT " WHAT BIG MESSAGE DO YOU WANT";MESS$ 200 PRINT 210 FOR K=1 TO LEN(MESS$) 220 PRINT"STRING$ MESSAGE # "K" YOU MUST USE CHARACTERS. NO BLANKS" 230 PRINT"IF YOU WANT TO REUSE OLD MESSAGES IN THE ORDER OF WHICH THEY WERE GIVEN -- TYPE >STOP< " 240 PRINT:PRINT "AFTER UP TO >9< CHARACTERS THEN TYPE >#<" 250 PRINT 260 IF MID$(MESS$,K,1)=" " OR MID$(MESS$,K,1)="." OR MID$(MESS$,K,1)="@" THEN PRINT "THERE ARE NO MESSAGES IN BLANKS, PERIODS, OR HEARTS -- DO THE NEXT ONE:":GOTO 380 270 IF SF<>0 AND KK=KS THEN KK=0 280 IF SF<>0 THEN AA(K)=AA(KK):PRINT:PRINT:PRINT"YOUR MESSAGE IS:"AA(K):GOTO 330 290 INPUT;AA(K) 300 BLANK$=" ": IF INSTR(AA(K),BLANK$)<>0 THEN PRINT" YOU BLEW IT!!!! NO BLANKS!!!!! TRY AGAIN BUSTER!!!":GOTO 220 310 PRINT:PRINT 320 IF RIGHT$(AA(K),1)="#" THEN GOTO 7360 330 IF AA(K)="STOP" THEN SF=4:KS=K:KK=KK+1:GOTO 280 340 IF SF<>0 AND AA(K)="" THEN KK=KK+1:GOTO 270 350 IF SF<>0 THEN KK=KK+1:GOTO 390 360 PRINT:PRINT 370 IF LEN(AA(K))<>10 THEN PRINT"YOU MUST USE TEN LETTERS OR LESS THEN 10 FOLLOWED BY >#< ":PRINT:PRINT:PRINT:GOTO 290 380 IF VAL(LEFT$(DUMMY$,2))>0 AND VAL(LEFT$(DUMMY$,2))<50 THEN RETURN 390 NEXT K 400 FOR J=1 TO LEN(MESS$) 410 A=AA(J):Z=LEFT$(A,5):IF DUMMY$<>"" THEN 500 420 FOR K=1 TO LEN(MESS$) :IF K<24 THEN PRINT K" ";: PRINT MID$(MESS$,K,1)"="AA(K) 430 IF K>23 THEN INPUT "PRESS ENTER TO CONTINUE";DUMMY:PRINT TAB(24);K" ";MID$(MESS$,K,1)"="AA(K) 440 NEXT K 450 IF FINI<>0 THEN END ELSE IF DUMMY$="" THEN INPUT" IF THIS IS OK THEN TYPE >Y< ELSE ^C AND START AGAIN OR YOU CAN TYPE THE NUMBER OF THE LETTER ABOVE AND CORRECT";DUMMY$ 460 IF VAL(LEFT$(DUMMY$,2))>0 AND VAL(LEFT$(DUMMY$,2))<50 THEN GOSUB 7860 470 IF VAL(LEFT$(DUMMY$,2))>0 AND VAL(LEFT$(DUMMY$,2))<50 THEN DUMMY$="" :GOTO 400 480 LM=LEN(MESS$) 490 IF LEFT$(DUMMY$,1)<>"Y" THEN PRINT CHR$(26):PRINT "YOU HAVE "LM;:PRINT" SPACES LESS . AND HEART TRY AGAIN WITH "MESS$;:PRINT :PRINT:GOTO 200 500 FOR K=1 TO 8:LPRINT:NEXT K 510 IF MID$(MESS$,J,1)="A" THEN 1000:'IN 520 IF MID$(MESS$,J,1)=" " THEN FOR K=1 TO 20:LPRINT :NEXT K:GOTO 1260 530 IF MID$(MESS$,J,1)="B" THEN 1290 540 IF MID$(MESS$,J,1)="C" THEN 1520 550 IF MID$(MESS$,J,1)="c" THEN 1510 560 IF MID$(MESS$,J,1)="D" THEN 1590:' IN 570 IF MID$(MESS$,J,1)="E" THEN 2350:'IN 580 IF MID$(MESS$,J,1)="F" THEN 1890 590 IF MID$(MESS$,J,1)="G" THEN 2010:'IN 600 IF MID$(MESS$,J,1)="H" THEN 2130 610 IF MID$(MESS$,J,1)="I" THEN 2260:'IN 620 IF MID$(MESS$,J,1)="J" THEN 2470 630 IF MID$(MESS$,J,1)="K" THEN 2770:'IN 640 IF MID$(MESS$,J,1)="L" THEN 2850 650 IF MID$(MESS$,J,1)="M" THEN 2970:'IN 660 IF MID$(MESS$,J,1)="N" THEN 3150:'IN 670 IF MID$(MESS$,J,1)="O" THEN 1820 680 IF MID$(MESS$,J,1)="P" THEN 3300:'IN 690 IF MID$(MESS$,J,1)="Q" THEN 2660 700 IF MID$(MESS$,J,1)="R" THEN 4280:'IN 710 IF MID$(MESS$,J,1)="S" THEN 3480:'IN 720 IF MID$(MESS$,J,1)="T" THEN 3880:'IN 730 IF MID$(MESS$,J,1)="U" THEN 3690 740 IF MID$(MESS$,J,1)="V" THEN 3760 750 IF MID$(MESS$,J,1)="W" THEN 3970:'IN 760 IF MID$(MESS$,J,1)="X" THEN 4170 770 IF MID$(MESS$,J,1)="Y" THEN 4460:'IN 780 IF MID$(MESS$,J,1)="Z" THEN 6480 790 IF MID$(MESS$,J,1)="." THEN 4610:'IN 800 IF MID$(MESS$,J,1)="!" THEN 4690:'IN 810 IF MID$(MESS$,J,1)="+" THEN 4770:'IN 820 IF MID$(MESS$,J,1)="?" THEN 4860:'IN 830 IF MID$(MESS$,J,1)="-" THEN 5050:'IN 840 IF MID$(MESS$,J,1)="=" THEN 5100:'IN 850 IF MID$(MESS$,J,1)="3" THEN 5150:'IN 860 IF MID$(MESS$,J,1)="1" THEN 5300:'IN 870 IF MID$(MESS$,J,1)="2" THEN 5360:'IN 880 IF MID$(MESS$,J,1)="4" THEN 5500:'IN 890 IF MID$(MESS$,J,1)="8" THEN 5640:'IN 900 IF MID$(MESS$,J,1)="9" THEN 5890:'IN 910 IF MID$(MESS$,J,1)="5" THEN 6080:'IN 920 IF MID$(MESS$,J,1)="6" THEN 6270:'IN 930 IF MID$(MESS$,J,1)="0" THEN 1820 940 IF MID$(MESS$,J,1)="7" THEN 6610 950 IF MID$(MESS$,J,1)=">" THEN 6760 960 IF MID$(MESS$,J,1)="<" THEN 6860 970 IF MID$(MESS$,J,1)="^" THEN 6980 980 IF MID$(MESS$,J,1)="|" THEN 7140 990 IF MID$(MESS$,J,1)="@" THEN 7500 1000 REM A 1010 DEFSTR A 1020 IF A="" THEN A="ABCDEFGHIJ" 1030 FOR K=1 TO 2:LPRINT A:NEXT K 1040 FOR K=1 TO 3 1050 FOR KK= 1 TO 2 1060 LPRINT TAB(7*K+1)A 1070 NEXT KK 1080 NEXT K 1090 FOR K= 4# TO 8 1100 FOR KK=1 TO 2 1110 LPRINT TAB(18);A;:LPRINT TAB(7*K)A 1120 NEXT KK 1130 NEXT K 1140 FOR K=1 TO 2 :LPRINT TAB(18)A;:LPRINT TAB(63)A:NEXT K 1150 FOR K=8 TO 4 STEP -1 1160 FOR KK=1 TO 2 1170 LPRINT TAB(18)A;:LPRINT TAB(7*K)A 1180 NEXT KK 1190 NEXT K 1200 FOR K=3 TO 1 STEP -1 1210 FOR KK=1 TO 2 1220 LPRINT TAB(7*K)A 1230 NEXT KK 1240 NEXT K 1250 FOR K=1 TO 2:LPRINT A:NEXT K 1255 IF OP<>0 THEN END:'INPUT ;DUMMY 1260 NEXT J:FOR K=1 TO 18:LPRINT :NEXT K:PRINT"PROGRAM IS NOW COMPLETE!!!!!":LPRINT ED1$ :LPRINT ED2$:LPRINT ED3$:LPRINT ED4$:LPRINT ED5$:LPRINT ED6$:FOR K=1 TO 7:LPRINT :NEXT K 1270 FINI=7:GOSUB 7660 1280 INPUT "after you write your check, pust return";DUMMY$:FOR K=1 TO 180:NEXT K:OP=23:GOTO 420 1290 REM B 1300 DEFSTR X,Y 1310 FOR K=1 TO 4 1320 LPRINT Z; 1330 FOR KK=1 TO 7 1340 LPRINT A; 1350 NEXT KK 1360 LPRINT 1370 NEXT K 1380 FOR K= 1 TO 6 1390 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A 1400 NEXT K 1410 FOR K=1 TO 8 1420 IF K<10 THEN X=RIGHT$(A,K+4) ELSE X=A 1430 IF K<10 THEN Y=LEFT$(A,K+4) ELSE Y=A 1440 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(K+39)X;:LPRINT TAB(66-K)A 1450 NEXT K 1460 FOR K=1 TO 3 1470 B=A+A+A:LPRINT TAB(9+(2*K));LEFT$(B,29-(4*K)); 1480 LPRINT TAB(47+(2*K));:LPRINT LEFT$(B,20-(4*K)) 1490 NEXT K 1500 GOTO 1260 1510 LPRINT CHR$(&H1B);CHR$(&H51);:REM***THIS SETS THE NEC PRINTER TO SMALL (CONDENSED PRINT TO MAKE THE c RATHER THAN C FOR Mc 1520 REM C 1530 GOSUB 7320 1540 FOR K=1 TO 18 1550 LPRINT A;:LPRINT TAB(65)A 1560 NEXT K 1570 LPRINT CHR$(&H1B);CHR$(&H4E);:REM **********THIS RETURNS YOU TO 10 CHARACTERS PER INCH ON THE NEC AFTER PRINTING c RATHER THAN C. 1580 GOTO 1260 1590 REM D 1600 FOR K=1 TO 4 1610 LPRINT LEFT$(A,5); 1620 FOR KK=1 TO 7 1630 LPRINT A; 1640 NEXT KK 1650 LPRINT 1660 NEXT K 1670 IF FL<>0 THEN FL=0:STOP 1680 FOR K=1 TO 4 1690 LPRINT A;:LPRINT TAB(66);A 1700 NEXT K 1710 FOR K=1 TO 6 1720 FOR KK=1 TO 2 1730 LPRINT TAB(2*K)A;:LPRINT TAB((65-(2*K)))A 1740 NEXT KK 1750 NEXT K 1760 FOR KK=1 TO 2 1770 LPRINT TAB(18)A;:LPRINT TAB(65-(18))A 1780 NEXT KK 1790 FOR K= 1 TO 2:LPRINT TAB(22);A+A+A:NEXT K 1800 FOR K=1 TO 2:LPRINT TAB(27);A+A:NEXT K 1810 GOTO 1260 1820 REM O 1830 GOSUB 7320 1840 FOR K=1 TO 18 1850 LPRINT A;:LPRINT TAB(65)A 1860 NEXT K 1870 GOSUB 7330 1880 GOTO 1260 1890 REM F 1900 FOR K=1 TO 4 1910 LPRINT Z; 1920 FOR KK=1 TO 7 1930 LPRINT A; 1940 NEXT KK 1950 LPRINT 1960 NEXT K 1970 FOR K=1 TO 14 1980 LPRINT TAB(33);A;:LPRINT TAB(66)A 1990 NEXT K 2000 GOTO 1260 2010 REM G 2020 GOSUB 7320 2030 FOR K=1 TO 10 2040 LPRINT A;:LPRINT TAB(65);A 2050 NEXT K 2060 FOR K=1 TO 5 2070 LPRINT A;:LPRINT TAB(21);A;:LPRINT TAB(65);A 2080 NEXT K 2090 FOR K=1 TO 4 2100 LPRINT A+A+A;:LPRINT TAB(65);A 2110 NEXT K 2120 GOTO 1260 2130 REM H 2140 FOR K=1 TO 4 2150 LPRINT Z; 2160 FOR KK=1 TO 7 2170 LPRINT A; 2180 NEXT KK 2190 LPRINT 2200 NEXT K 2210 IF FL<>0 THEN FL=0:GOTO 1260 2220 FOR K=1 TO 15 2230 LPRINT TAB(33);A 2240 NEXT K 2250 FL=5:GOTO 2140 2260 REM I 2270 FOR K=1 TO 8 2280 LPRINT A;:LPRINT TAB(66);A 2290 NEXT K 2300 IF FL<>0 THEN FL=0:GOTO 1260 2310 FOR K=1 TO 4 2320 LPRINT "**";A+A+A+A+A+A+A;"***" 2330 NEXT K 2340 FL=5 :GOTO 2270 2350 REM E 2360 FOR K=1 TO 4 2370 LPRINT Z; 2380 FOR KK=1 TO 7 2390 LPRINT A; 2400 NEXT KK 2410 LPRINT 2420 NEXT K 2430 FOR K=1 TO 15 2440 LPRINT A;:LPRINT TAB(33);A;:LPRINT TAB(66);A 2450 NEXT K 2460 GOTO 1260 2470 REM J 2480 FOR K=1 TO 4 2490 LPRINT TAB(5-K);A+A+A 2500 NEXT K 2510 FOR K=1 TO 12 2520 LPRINT A;:LPRINT TAB(66);A 2530 NEXT K 2540 FOR K=1 TO 4 2550 X$=Z 2560 LPRINT TAB(K);LEFT$(X$,6-K); 2570 FOR KK=1 TO 7 2580 LPRINT A; 2590 NEXT KK 2600 LPRINT 2610 NEXT K 2620 FOR K=1 TO 9 2630 LPRINT TAB(66);A 2640 NEXT K 2650 GOTO 1260 2660 REM Q 2670 GOSUB 7320 2680 FOR K=1 TO 18 2690 LPRINT A;:IF K>10 THEN LPRINT TAB(56-2*K);A; 2700 LPRINT TAB(65)A 2710 NEXT K 2720 GOSUB 7330 2730 FOR K=14 TO 1 STEP-2 2740 LPRINT TAB(K)A 2750 NEXT K 2760 GOTO 1260 2770 REM K 2780 FOR K=1 TO 4:LPRINT Z;:FOR KK=1 TO 7:LPRINT A;:NEXT KK:LPRINT :NEXT K 2790 FOR L= 1 TO 8 2800 FOR LL=1 TO 2 2810 LPRINT TAB(30-(4*L));A;:LPRINT TAB(34+(4*L));A 2820 NEXT LL 2830 NEXT L 2840 GOTO 1260 2850 REM L 2860 FOR K=1 TO 4 2870 LPRINT Z; 2880 FOR KK=1 TO 7 2890 LPRINT A; 2900 NEXT KK 2910 LPRINT 2920 NEXT K 2930 FOR K=1 TO 18 2940 LPRINT A 2950 NEXT K 2960 GOTO 1260 2970 REM M 2980 DEFSTR M 2990 M=A$ 3000 FOR K=1 TO 4:LPRINT Z;:FOR KK=1 TO 7:LPRINT A;:NEXT KK:LPRINT :NEXT K 3010 IF F<>0 THEN F=0 :GOTO 3140 3020 FOR K=61 TO 26 STEP -5 3030 FOR KK=1 TO 2 3040 LPRINT TAB(K);M 3050 NEXT KK 3060 NEXT K 3070 FOR K=31 TO 65 STEP 5 3080 FOR KK=1 TO 2 3090 LPRINT TAB(K);M 3100 NEXT KK 3110 NEXT K 3120 F=4 3130 GOTO 3000 3140 GOTO 1260 3150 REM N 3160 FOR K=1 TO 4 3170 LPRINT Z; 3180 FOR KK=1 TO 7 3190 LPRINT A; 3200 NEXT KK 3210 LPRINT 3220 NEXT K 3230 IF FL<>0 THEN FL=0:GOTO 1260 3240 FOR K=66 TO 1 STEP-7 3250 FOR KK=1 TO 2 3260 LPRINT TAB(K)A 3270 NEXT KK 3280 NEXT $K 3290 FL=5:GOTO 3160 3300 REM P 3310 FOR K=1 TO 4 3320 LPRINT Z; 3330 FOR KK=1 TO 7 3340 LPRINT A; 3350 NEXT KK 3360 LPRINT 3370 NEXT K 3380 FOR K= 1 TO 6 3390 LPRINT TAB(35);A;:LPRINT TAB(66);A 3400 NEXT K 3410 FOR K=1 TO 8 3420 LPRINT TAB(K+34)A;:LPRINT TAB(66-K)A 3430 NEXT K 3440 FOR K=1 TO 3 3450 B=A+A+A:LPRINT TAB(43+(2*K));LEFT$(B,24-(4*K)) 3460 NEXT K 3470 GOTO 1260 3480 REM S 3490 DEFSTR X,Y,B 3500 B=A+A+A 3510 FOR K=1 TO 3 3520 LPRINT TAB(11-K)A;:LPRINT TAB(50-(2*K));:LPRINT LEFT$(B,10+(4*K)) 3530 NEXT K 3540 FOR K=1 TO 8 3550 X=A:Y=A 3560 LPRINT TAB(8-K)A;:LPRINT TAB(43-K)X;:LPRINT TAB(57+K)A 3570 NEXT K 3580 FOR K= 1 TO 6 3590 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A 3600 NEXT K 3610 FOR K=1 TO 8 3620 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(66-K)A 3630 NEXT K 3640 B=A+A+A 3650 FOR K=1 TO 3 3660 LPRINT TAB(8+(2*K));:LPRINT LEFT$(B,30-(4*K));:LPRINT TAB(57-K)A 3670 NEXT K 3680 GOTO 1260 3690 REM U 3700 GOSUB 7340 3710 FOR K=1 TO 15 3720 LPRINT A 3730 NEXT K 3740 GOSUB 7350 3750 GOTO 1260 3760 REM V 3770 FOR K=65 TO 6 STEP -7 3780 FOR KK=1 TO 2 3790 LPRINT TAB(K)A 3800 NEXT KK 3810 NEXT K 3820 FOR K=2 TO 65 STEP 7 3830 FOR KK=1 TO 2 3840 LPRINT TAB(K)A 3850 NEXT KK 3860 NEXT K 3870 GOTO 1260 3880 REM T 3890 FOR K=1 TO 13 3900 LPRINT TAB(66);A 3910 NEXT K 3920 IF FL<>0 THEN FL=0:GOTO 1260 3930 FOR K=1 TO 4 3940 LPRINT "**";A+A+A+A+A+A+A;"***" 3950 NEXT K 3960 FL=5 :GOTO 3890 3970 REM W 3980 FOR K=1 TO 4 3990 LPRINT Z; 4000 FOR KK=1 TO 7 4010 LPRINT A; 4020 NEXT KK 4030 LPRINT 4040 NEXT K 4050 IF FL<>0 THEN FL=0:GOTO 1260 4060 FOR K=1 TO 7 4070 FOR KK=1 TO 2 4080 LPRINT TAB(5*K)A 4090 NEXT KK 4100 NEXT K 4110 FOR K= 1 TO 6 4120 FOR KK=1 TO 2 4130 LPRINT TAB(35-(5*K))A 4140 NEXT KK 4150 NEXT K 4160 FL=5:GOTO 3980 4170 REM X 4180 FOR K=0 TO 29 STEP 3 4190 LPRINT TAB(K)A;:LPRINT TAB(66-K)A 4200 NEXT K 4210 FOR K=1 TO 2 4220 LPRINT TAB(28)A+A 4230 NEXT K 4240 FOR K=1 TO 29 STEP 3 4250 LPRINT TAB(28-K);A;:LPRINT TAB(38+K);A 4260 NEXT K 4270 GOTO 1260 4280 REM R 4290 FOR K=1 TO 4 4300 LPRINT Z; 4310 FOR KK=1 TO 7 4320 LPRINT A; 4330 NEXT KK 4340 LPRINT 4350 NEXT K 4360 FOR K= 1 TO 6 4370 LPRINT TAB(27-2*K);A;:LPRINT TAB(35);A;:LPRINT TAB(66);A 4380 NEXT K 4390 FOR K=1 TO 8 4400 LPRINT TAB(15-2*K);A;:LPRINT TAB(K+34)A;:LPRINT TAB(66-K)A 4410 NEXT K 4420 FOR K=1 TO 3 4430 B=A+A:LPRINT TAB(43+(2*K));LEFT$(B,24-(4*K)) 4440 NEXT K 4450 GOTO 1260 4460 REM Y 4470 FOR K=65 TO 35 STEP -6 4480 FOR KK=1 TO 2 4490 LPRINT TAB(K);A 4500 NEXT KK 4510 NEXT K 4520 FOR K=1 TO 3 4530 LPRINT A+A+A+A 4540 NEXT K 4550 FOR K=35 TO 65 STEP 6 4560 FOR KK=1 TO 2 4570 LPRINT TAB(K);A 4580 NEXT KK 4590 NEXT K 4600 GOTO 1260 4610 REM . 4620 FOR K = 2 TO 10 STEP 2 4630 LPRINT TAB(11-K); STRING$(2*K,CHR$(232));:REM***THIS PRINTS THE SPADE SYMBOL ON AS ON A 4 OF SPADES ON CARDS. REPLACE WITH THE SYMBOL OF YOUR CHOICE ON YOUR PRINTER. 4640 NEXT K 4650 FOR K=2 TO 12 STEP 2 4660 LPRINT TAB(K-1); STRING$(24-(2*K),CHR$(232));:REM THE CHR$(232) IS A SPADE SEE LINE 4480 4670 NEXT K 4680 GOTO 1260 4690 REM ! 4700 FOR K = 2 TO 10 STEP 2 4710 LPRINT TAB(11-K); STRING$(2*K,CHR$(232));:LPRINT TAB(35);A+A+A+A:REM THE CHR$(232) IS A SPADE SEE LINE 4480 4720 NEXT K 4730 FOR K=2 TO 12 STEP 2 4740 LPRINT TAB(K-1); STRING$(24-(2*K),CHR$(232));:LPRINT TAB(35);A+A+A+A:REM THE CHR$(232) IS A SPADE SEE LINE 4480 4750 NEXT K 4760 GOTO 1260 4770 REM + 4780 FOR K=1 TO 10 4790 LPRINT TAB(21)A+A 4800 NEXT K 4810 IF FL<>0 THEN FL=0:GOTO 1260 4820 FOR K= 1 TO 10 4830 LPRINT A+A+A+A+A+A 4840 NEXT K 4850 FL=3:GOTO 4780 4860 REM ? 4870 FOR K=55 TO 65 STEP 2 4880 LPRINT TAB(K);A 4890 NEXT K 4900 REM ! 4910 FOR K = 1 TO 10 STEP 2 4920 LPRINT TAB(11-K); STRING$(2*K,CHR$(232));:LPRINT TAB(29)"??"A+A;:LPRINT TAB(65)A:REM CHR$(232) IS A SPADE SEE LINE 4480 4930 NEXT K 4940 FOR K=1 TO 11 STEP 2 4950 IF K=1 THEN T=22 ELSE T=24 4960 LPRINT TAB(K-1); STRING$(T-(2*K),CHR$(232));:LPRINT TAB(29)"??"A+A;:LPRINT TAB(65)A:REM CHR$(232) IS A SPADE SEE LINE 4480 4970 NEXT K 4980 FOR K=1 TO 6 4990 LPRINT TAB(40+K);A;:LPRINT TAB(66-K)A 5000 NEXT K 5010 FOR K=1 TO 4 5020 LPRINT TAB(47+K);STRING$(23-2*K,"?") 5030 NEXT K 5040 GOTO 1260 5050 REM- 5060 FOR K=1 TO 23 5070 LPRINT TAB(20)A+A 5080 NEXT K 5090 GOTO 1260 5100 REM = 5110 FOR K=1 TO 23 5120 LPRINT TAB(15)A+A;:LPRINT TAB(45);A+A 5130 NEXT K 5140 GOTO 1260 5150 REM 3 5160 DEFSTR X,Y 5170 FOR K= 1 TO 6 5180 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A 5190 NEXT K 5200 FOR K=1 TO 8 5210 IF K<10 THEN X=RIGHT$(A,K+4) ELSE X=A 5220 IF K<10 THEN Y=LEFT$(A,K+4) ELSE Y=A 5230 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(K+39)X;:LPRINT TAB(66-K)A 5240 NEXT K 5250 FOR K=1 TO 3 5260 LPRINT TAB(9+(2*K));STRING$(29-(4*K),"3"); 5270 LPRINT TAB(47+(2*K));:LPRINT STRING$(20-(4*K),"3") 5280 NEXT K 5290 GOTO 1260 5300 REM 1 5310 FOR K=1 TO 2:LPRINT TAB(66)A:NEXT K 5320 FOR K= 1 TO 5 5330 LPRINT"11"A+A+A+A+A+A+A"111" 5340 NEXT K 5350 GOTO 1260 536%0 REM 2 5370 FOR K= 1 TO 8 5380 LPRINT A"2"STRING$(K,"2");:LPRINT TAB(47+2*K)A 5390 NEXT K 5400 FOR K= 1 TO 7 5410 LPRINT A"2";:LPRINT TAB(10+2*K)A;:LPRINT TAB(65)A 5420 NEXT K 5430 FOR K= 1 TO 8 5440 LPRINT A"2";:LPRINT TAB(25+2*K)A;:LPRINT TAB(67-2*K)A 5450 NEXT K 5460 FOR K= 1 TO 3 5470 LPRINT A"2";:LPRINT TAB(41+2*K);STRING$(20-4*K,"2") 5480 NEXT K 5490 GOTO 1260 5500 REM 4 5510 FOR K=1 TO 4 5520 LPRINT TAB(33)A+A+A+A 5530 NEXT K 5540 FOR K= 1 TO 10 5550 LPRINT TAB(33)A 5560 NEXT K 5570 FOR K=1 TO 4 5580 LPRINT"44"A+A+A+A+A+A+A"444" 5590 NEXT K 5600 FOR K= 1 TO 10 5610 LPRINT TAB(33)A 5620 NEXT K 5630 GOTO 1260 5640 WIDTH 80 5650 REM 8 5660 DEFSTR X,Y 5670 FOR K=1 TO 3 5680 LPRINT TAB(16-2*K);STRING$(13+(4*K),"8"); 5690 LPRINT TAB(55-(2*K));:LPRINT STRING$(5+(4*K),"8") 5700 NEXT K 5710 FOR K=1 TO 8 5720 IF K>1 THEN X=RIGHT$(A,13-K) ELSE X=A 5730 IF K>1 THEN Y=LEFT$(A,13-K) ELSE Y=A 5740 LPRINT TAB(8-K)A;:LPRINT TAB(26+K);Y;:LPRINT TAB(48-K)X;:LPRINT TAB(57+K)A 5750 NEXT K 5760 FOR K= 1 TO 6 5770 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A 5780 NEXT K 5790 FOR K=1 TO 8 5800 IF K<10 THEN X=RIGHT$(A,K+4) ELSE X=A 5810 IF K<10 THEN Y=LEFT$(A,K+4) ELSE Y=A 5820 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(K+39)X;:LPRINT TAB(66-K)A 5830 NEXT K 5840 FOR K=1 TO 3 5850 LPRINT TAB(9+(2*K));STRING$(29-(4*K),"8"); 5860 LPRINT TAB(47+(2*K));:LPRINT STRING$(20-(4*K),"8") 5870 NEXT K 5880 GOTO 1260 5890 REM 9 5900 DEFSTR X,Y 5910 FOR K=1 TO 3 5920 LPRINT TAB(50-(2*K));:LPRINT STRING$(10+(4*K),"9") 5930 NEXT K 5940 FOR K=1 TO 8 5950 X=A:Y=A 5960 LPRINT TAB(43-K)X;:LPRINT TAB(57+K)A 5970 NEXT K 5980 FOR K= 1 TO 6 5990 LPRINT TAB(35);A;:LPRINT TAB(66);A 6000 NEXT K 6010 FOR K=1 TO 5 6020 LPRINT TAB(36+K);Y;:LPRINT TAB(66-K)A 6030 NEXT K 6040 FOR K=1 TO 4 6050 LPRINT A+A+A+A+A+A+A 6060 NEXT K 6070 GOTO 1260 6080 REM 5 6090 DEFSTR X,Y 6100 FOR K=1 TO 4 6110 LPRINT TAB(12-K)A;:LPRINT TAB(47-K);STRING$(K-1,"5");:LPRINT TAB(46);:LPRINT A+A+A 6120 NEXT K 6130 FOR K=1 TO 7 6140 X=A:Y=A 6150 LPRINT TAB(8-K)A;:LPRINT TAB(43-K)X;:LPRINT TAB(66)A 6160 NEXT K 6170 FOR K= 1 TO 6 6180 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A 6190 NEXT K 6200 FOR K=1 TO 8 6210 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(66)A 6220 NEXT K 6230 FOR K=1 TO 3 6240 LPRINT TAB(8+(2*K));STRING$(30-(4*K),"5");:LPRINT TAB(66)A 6250 NEXT K 6260 GOTO 1260 6270 REM 6 6280 DEFSTR X,Y 6290 K=0:GOSUB 6310 6300 FOR K=2 TO 4 6310 LPRINT TAB(12-K)A+A+A+A;:LPRINT TAB(52-(K));:LPRINT STRING$(11+(2*K),"6") 6320 IF K=0 THEN RETURN 6330 NEXT K 6340 FOR K=1 TO 8 6350 X=A:Y=A 6360 LPRINT TAB(8-K)A;:LPRINT TAB(35)X;:LPRINT TAB(57+K)A 6370 NEXT K 6380 FOR K= 1 TO 6 6390 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A 6400 NEXT K 6410 FOR K=1 TO 8 6420 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(66-K)A 6430 NEXT K 6440 FOR K=1 TO 3 6450 LPRINT TAB(8+(2*K));STRING$(30-(4*K),"6");:LPRINT TAB(57-K)A 6460 NEXT K 6470 GOTO 1260 6480 REM Z 6490 DEFSTR B 6500 B=LEFT$(A,5) 6510 LPRINT A;:LPRINT TAB(66);A 6520 LPRINT A+B;:LPRINT TAB(66);A 6530 FOR K=1 TO 10 6540 FOR KA=1 TO 3 6550 LPRINT A;:LPRINT TAB(6+(5*K));A;:LPRINT TAB(66);A 6560 NEXT KA 6570 NEXT K 6580 LPRINT A;:LPRINT TAB(61);A+B 6590 LPRINT A;:LPRINT TAB(66);A 6600 GOTO 1260 6610 REM 7 6620 DEFSTR B 6630 B=LEFT$(A,5) 6640 FOR K=1 TO 3 6650 LPRINT A;:LPRINT TAB(61);A+B 6660 NEXT K 6670 FOR K=1 TO 9 6680 FOR KA=1 TO 3 6690 LPRINT TAB((6*K));A;:LPRINT TAB(66);A 6700 NEXT KA 6710 NEXT K 6720 FOR K=1 TO 3 6730 LPRINT TAB(56);A+A 6740 NEXT K 6750 GOTO 1260 6760 REM => 6770 DEFSTR A,B:IF A="" THEN A="PHDEEDMDR*" 6780 B=A+A:B=B+B 6790 FOR K= 1 TO 20 6800 LPRINT TAB(23);A+A 6810 NEXT K 6820 FOR K=20 TO 1 STEP -1 6830 LPRINT TAB(33-K);LEFT$(B,2*K) 6840 NEXT K 6850 GOTO 1260 6860 REM => 6870 DEFSTR A,B:IF A="" THEN A="PHDEEDMDR*" 6880 B=A+A:B=B+B 6890 GOTO 6940 6900 FOR K= 1 TO 20 6910 LPRINT TAB(23);A+A 6920 NEXT K 6930 GOTO 1260 6940 FOR K=1 TO 20 6950 LPRINT TAB(33-K);LEFT$(B,2*K)  6960 NEXT K 6970 GOTO 6900 6980 REM ^ 6990 DEFSTR A,B:IF A="" THEN A="PHDEEDMDR*" 7000 B=A+A+A:B=B+B 7010 FOR K= 1 TO 16 7020 IF K>12 THEN GOSUB 7130 7030 LPRINT TAB(40);;LEFT$(B,2*K) 7040 NEXT K 7050 LPRINT LEFT$(A,3)+B+A 7060 LPRINT LEFT$(A,5)+B+A 7070 LPRINT LEFT$(A,3)+B+A 7080 FOR K=1 TO 16 7090 IF K<5 THEN GOSUB 7130 7100 LPRINT TAB(40);LEFT$(B,34-2*K) 7110 NEXT K 7120 GOTO 1260 7130 LPRINT A+A+A+LEFT$(A,9);:RETURN 7140 REM \|/ 7150 DEFSTR A,B:IF A="" THEN A="PHDEEDMDR*" 7160 B=A+A+A:B=B+B 7170 FOR K=1 TO 17 7180 IF K<12 THEN LPRINT TAB(35-2*K);;LEFT$(B,2*K) 7190 IF K>13 THEN LPRINT TAB(39-2*K);LEFT$(B,2*K); 7200 IF K>13 THEN GOSUB 7300 7210 NEXT K 7220 LPRINT TAB(3)LEFT$(A,4)+B+A 7230 LPRINT LEFT$(A,6)+B+A 7240 LPRINT TAB(3)LEFT$(A,4)+B+A 7250 FOR K=1 TO 16 7260 IF K<5 THEN LPRINT TAB(3+2*K);LEFT$(B,32-2*K);:GOSUB 7310 7270 IF K>4 THEN LPRINT TAB(3+2*K);LEFT$(B,32-2*K) 7280 NEXT K 7290 GOTO 1260 7300 LPRINT TAB(39);A+A+A+LEFT$(A,8):RETURN 7310 LPRINT TAB(35);LEFT$(A,2&)+A+A+A+A:RETURN 7320 B=A+A:FOR K=1 TO 4 :LPRINT TAB(5-K);A+A+A+A+A+A+LEFT$(B,6+2*K):NEXT K:RETURN 7330 B=A+A:FOR K=1 TO 4 :LPRINT TAB(K);A+A+A+A+A+A+LEFT$(B,16-2*K):NEXT K:RETURN 7340 B=A+A:FOR K=1 TO 4:LPRINT TAB(5-K);A+A+A+A+A+A+LEFT$(B,13+K):NEXT K:RETURN 7350 B=A+A:FOR K=1 TO 4:LPRINT TAB(K);A+A+A+A+A+A+LEFT$(B,18-K):NEXT K:RETURN 7360 AA(K)=LEFT$(AA(K),LEN(AA(K))-1) 7370 M=LEN(AA(K)) 7380 ON M GOTO 7390,7400,7410,7420,7430,7440,7450,7460,7470,370 7390 AA(K)=E+AA(K)+E+AA(K)+E+AA(K)+E+AA(K)+E+AA(K):GOTO 370 7400 AA(K)=EE+AA(K)+E+AA(K)+E+AA(K):GOTO 370 7410 AA(K)=EE+AA(K)+EE+AA(K):GOTO 370 7420 AA(K)=E+AA(K)+E+AA(K):GOTO 370 7430 AA(K)=EE+EEE+AA(K):GOTO 370 7440 AA(K)=E+EEE+AA(K):GOTO 370 7450 AA(K)=EEE+AA(K):GOTO 370 7460 AA(K)=EE+AA(K):GOTO 370 7470 AA(K)=E+AA(K):GOTO 370 7480 GOTO 370 7490 REM HEART 7500 REM 7510 FOR K=1 TO 52 7520 H(K)=STRING$(K,CHR$(233)):REM ***ON THE NEC THE CHR$(233) IS A SMALL HEART WHICH IS USED IN THE HEART--IF YOU DON'T HAVE ONE ON YOUR PRINTER SUBSTITUE THE CHR$ OF YOUR CHOICE. 7530 NEXT K 7540 FOR K=1 TO 13 7550 IF K>0 THEN K1=K+1:IF K>7 THEN K1=16-K 7560 IF K>10 THEN KA=10 ELSE KA=K 7570 LPRINT TAB(50-2*K)H(5+2*KA);H(K1) 7580 NEXT K 7590 FOR K=1 TO 12 7600 IF K<6 THEN K1=4+K-1 7610 IF K>5 THEN K1=14-K 7620 IF K=1 THEN KB=2 ELSE KB=K 7630 IF K<3 THEN LPRINT TAB(24+2*K)H(23+KB);H(K1) ELSE LPRINT TAB(24+2*K)H(31-2*K); H(K1) 7640 NEXT K 7650 GOTO 1260 7660 PRINT STRING$(50,"*") 7670 FOR K=1 TO 13 7680 IF K=5 THEN GOSUB 7760 7690 IF K=6 THEN GOSUB 7790 7700 IF K=8 THEN GOSUB 7810 7710 IF K=10 THEN GOSUB 7840 7720 PRINT "*";:PRINT TAB(50)"*" 7730 NEXT 7740 PRINT STRING$(50,"*") 7750 IF FINI=0 THEN GOTO 100 ELSE GOTO 1280 7760 PRINT"* BANNER PRINTER";:PRINT TAB(50)"*" 7770 PRINT"* **BY**";:PRINT TAB(50)"*" 7780 RETURN 7790 PRINT"* PETER H. DAVIS";:PRINT TAB(50)"*" 7800 RETURN 7810 PRINT"* 2610 EAST CAMERON AVE.";:PRINT TAB(50)"*" 7820 PRINT"* WEST COVINA, CA. 91791";:PRINT TAB(50)"*" 7830 RETURN 7840 PRINT"* IF THIS PROGRAM IS A HELP--";:PRINT TAB(50)"*" 7850 PRINT"* PLEASE SEND $10 TO HELP WITH COSTS";:PRINT TAB(50)"*":RETURN 7860 K=VAL(DUMMY$) 7870 GOSUB 240 7880 RETURN 20000 PRINT CHR$(26):PRINT " YOU WILL HAVE 6 LINES FOR THIS PERIOD BLOCK I SUGGEST THAT YOU FILL IN WITH <*> TO MAKE THE LINE 15 SPACES LONG.":INPUT "FIRST LINE UP TO 16 SPACES";ED1$ 20001 INPUT "SECOND LINE UP TO 16 SPACES";ED2$ 20010 INPUT "THIRD LINE UP TO 16 SPACES";ED3$ 20020 INPUT "FOURTH LINE UP TO 16 SPACES";ED4$ 20050 INPUT "FIFTH LINE UP TO 16 SPACES";ED5$ 20060 INPUT "SIXTH LINE UP TO 16 SPACES";ED6$ 20070 RETURN O 16 SPACES";ED4$ 20050 INPUT "FIFTH LINE UP TO 16 SPACES";ED5$ 20060 INPUT "SIXTH LINE UP TO 16 SPACES";ED6$ 20070 RETURN **BY**";:PRINT TAB(50)"*" 7780 RETURN 7790 PRINT"* PETER H. DAVIS";:PRINT TAB(50)"*" 7800 RETURN 7810 PRINT"* 2610 EAST CAMERON AVE.";:PRINT TAB(50)"*" 7820 PRINT"* WEST COVINA, CA. 91791";:PRINT TAB(50)"*" 7830 RE10 PRINT CHR$(26) 20 R=70 30 A$=" IF YOU ARE NOT SURE OF THE CHARACTERS OF YOUR PRINTER TURN YOUR PRINTER ON WITH PAPER IN IT AND THE NUMBERS YOU SEE WILL PRODUCE THESE CHARACTERS WHEN WRITTEN AS LPRINT CHR$(NUMBER)." 40 PRINT CHR$(26) 50 PRINT:PRINT:PRINT:PRINT 60 FOR K= 1 TO LEN(A$) 70 FOR X=1 TO R 80 NEXT X 90 B=B+1 100 IF MID$(A$,K,1)=" " AND B=>40 THEN B=0:PRINT:PRINT 110 PRINT MID$(A$,K,1); 120 NEXT K 130 FOR KK=1 TO 150:NEXT KK 135 IF FLAG<>0 THEN END 140 PRINT:PRINT:PRINT 150 PRINT "PUSH ANY KEY WHEN PRINTER IS READY!" 160 IF INKEY$="" THEN 160 170 FOR N=33 TO 255 180 LPRINT N STRING$(3,CHR$(N)), 190 NEXT N 200 FLAG=2 210 A$="NOW YOU ARE READY TO USE THIS PAPER TO MODIFY BIGPRINT.BAS ON THE LINES THAT ARE SET UP OF THE NEC-8023A CHARACTERS. JUST PUT THE NUMBERS OF YOUR CHOICE IN THE PLACE OF THE NEC CHR$(NUMBERS)." 300 GOTO 40 SET UP OF THE NEC-8023 This is the release date of the disk. BIGEPSONBAS [IGEPSONBAS BIGNEC BAS _IGNEC BAS PRINTER BAS BIGDATA .BAS 3D 2D 24064 188 BIGEPSON.BAS BF FC 23424 183 BIGNEC .BAS 71 A0 24320 190 PRINTER .BAS D2 F0 896 7 ' Fog Library Disk FOG-CPM.137 Copyright (1986) by Fog International Computer Users Group to the extent not copyrighted by the original author for the exclusive use and enjoyment of its members. Any reproduction or distribution for profit or personal gain is strictly forbidden. For information, contact FOG, P. O. Box 3474, Daly City, CA. 94015-0474. as part of the description of a file indicates that the program is distributed on a "try first, pay if you like it" basis. If you find the program(s) meet your need, please refer to the author's documentation for information on becoming a registered user. Only by registering and paying for the programs you like and use will the authors of such programs continue development. Often, more complete documentation, additional modules, and new releases are available only to registered users. Banner and sign programs. Filename Description -09-00 .86 This is the release date of the disk. -CPM137 .DOC This is the description of the disk contents. BANNER .COM 7EDB 2K [BANNER 1 of 3] Prints a message on your printer or screen. This set contains Basic source code, documentation, and a compiled version. BANNER .DOC 668A 1K [BANNER 2 of 3] BANNER .BAS 79BF 4K [BANNER 3 of 3] GOTHIC .COM D3C3 11K Prints Gothic Character Banners. SIGN11 .COM EB10 18K ver. 1.1 [SIGN 1 of 2] Makes signs up. Is self prompting. SIGN11 .DAT B0AE 38K ver. 1.1 [SIGN 2 of 2] BIGPRINT.BAS 71A0 24K [BIGPRINT 1 of 3] Prints banners on NEC 8023. Modification instructions for other printers are included. BIGPRINT.DOC 742B 4K [BIGPRINT 2 of 3] NEC .BAS E62F 2K [BIGPRINT 3 of 3] BIGDATA .BAS 3D2D 24K Prints Banners on an NEC 8023 from data in program. BIGEPSON.BAS BFFC 23K Prints banners on Epson printers with keyboard input. BIGNEC .BAS 71A0 24K Prints banners on an NEC 8023 from keyboard input. PRINTER .BAS D2F0 1K This program displays printer characters available. C 8023. Modification instructions for other printers are included. BIGPRINT.DOC 742B 4K [BIGPRINT 2 of 3] NEC .BAS E62F 2K [BIGPRINT 3 of 3] BIGDATA .BAS 3D2D 24K Prints Banners on an NEC 8023 from data in program. BIGEPSON.BAS BFFC 23K Prints banners on Epson printers with keyboard input. BIGNEC .B