ftp.whtech.com/ftp.whtech.com.tar/ftp.whtech.com/club100/prt/banner.ba

Text File | 2006-10-19 | 4KB | 133 lines

1 'BANNER by Terry Kepner (c) 1986
10 CLS: PRINT TAB(16)"BANNER":CLEAR 256
11 DEFINT A-Z:DIM C(95,5)
12 READ L$:IF L$="00" THEN 16
13 V=ASC(L$)-32
14 FOR X=1 TO 5:READ C(V,X):NEXT
15 GOTO 12
16 INPUT"Letter size (1-9)";SH
17 INPUT"Paper width (columns)";CO
18 TB=(CO-(SH*8))/2-SH:IF TB<0 THEN TB=0
20 'START INPUT
21 LINE INPUT "What message? ";P$
22 FOR XP= 1 TO LEN(P$):L$=MID$(P$,XP,1)
23 IF L$=" " THEN FOR LF=0 TO SH:LPRINT" ":NEXT LF: GOTO 25
24 GOSUB 33:FOR LF=0 TO SH/2 :LPRINT " ": NEXT LF
25 NEXT XP
26 PRINT"Another Message (Y/N)?"
27 A$=INKEY$:IF A$="" THEN 27
28 IF A$="N" OR A$="n" THEN 31
29 IF A$ <> "Y" AND A$ <> "y" THEN 26
30 GOTO 16
31 MENU
32 'PRINT LETTER L$
33 V=ASC(L$)-32
34 FOR X=1 TO 5:FOR L=1 TO SH/2:IF C(V,X)=0 THEN 45
35 LPRINT TAB(TB);
36 IF C(V,X) AND 128 THEN GOSUB 46 ELSE GOSUB 47
37 IF C(V,X) AND 64 THEN GOSUB 46 ELSE GOSUB 47
38 IF C(V,X) AND 32 THEN GOSUB 46 ELSE GOSUB 47
39 IF C(V,X) AND 16 THEN GOSUB 46 ELSE GOSUB 47
40 IF C(V,X) AND 8 THEN GOSUB 46 ELSE GOSUB 47
41 IF C(V,X) AND 4 THEN GOSUB 46 ELSE GOSUB 47
42 IF C(V,X) AND 2 THEN GOSUB 46 ELSE GOSUB 47
43 IF C(V,X) AND 1 THEN GOSUB 46
44 LPRINT " "
45 NEXT:NEXT:RETURN
46 FOR P=1 TO SH:LPRINT "#";:NEXT:RETURN
47 FOR P=1 TO SH:LPRINT " ";:NEXT:RETURN
50 DATA !,0,0,79,0,0
51 DATA #,20,127,20,127,20
52 DATA $,36,42,127,42,18
53 DATA %,35,19,8,100,98
54 DATA &,58,69,74,48,40
60 DATA ',0,0,4,2,1
65 DATA (,0,28,34,65,0
70 DATA ),0,65,34,28,0
75 DATA *,34,20,127,20,34
80 DATA +,8,8,62,8,8
85 DATA ",",0,128,96,0,0
90 DATA -,8,8,8,8,8
95 DATA .,0,96,96,0,0
100 DATA /,64,32,16,8,4
105 DATA 0,62,81,73,69,62
110 DATA 1,0,66,127,64,0
115 DATA 2,98,81,81,73,70
120 DATA 3,34,65,73,73,54
125 DATA 4,24,20,18,127,16
130 DATA 5,71,69,69,41,17
135 DATA 6,60,74,73,73,48
140 DATA 7,3,1,121,5,3
145 DATA 8,54,73,73,73,54
150 DATA 9,6,73,73,41,30
155 DATA ":",0,0,36,0,0
160 DATA ;,0,128,100,0,0
165 DATA <,8,28,54,99,65
170 DATA =,20,20,20,20,20
175 DATA >,65,99,54,28,8
180 DATA ?,0,2,81,9,6
190 DATA @,50,73,121,65,62
230 DATA A,124,18,17,18,124
240 DATA B,65,127,73,73,54
250 DATA C,28,34,65,65,34
260 DATA D,65,127,65,34,28
270 DATA E,127,73,73,73,65
330 DATA F,127,9,9,9,1
390 DATA G,62,65,73,73,58
450 DATA H,127,8,8,8,127
510 DATA I,0,65,127,65,0
570 DATA J,48,64,65,63,1
630 DATA K,127,8,20,34,65
690 DATA L,127,64,64,64,64
750 DATA M,127,2,12,2,127
810 DATA N,127,6,8,48,127
870 DATA O,62,65,65,65,62
930 DATA P,127,9,9,9,6
990 DATA Q,62,65,81,33,94
1050 DATA R,127,9,25,41,70
1110 DATA S,38,73,73,73,50
1170 DATA T,1,1,127,1,1
1230 DATA U,63,64,64,64,63
1290 DATA V,15,48,64,48,15
1300 DATA W,127,32,24,32,127
1410 DATA X,99,20,8,20,99
1470 DATA Y,7,8,120,8,7
1530 DATA Z,97,81,73,69,67
1590 DATA ^,0,127,65,65,0
1600 DATA \,4,8,16,32,64
1710 DATA ],0,65,65,127,0
1950 DATA ^,4,2,1,2,4
2430 DATA _,64,64,64,64,64
2440 DATA `,0,1,2,4,0
2450 DATA a,32,84,84,84,120
2460 DATA b,127,40,68,68,56
2470 DATA c,56,68,68,68,40
2480 DATA d,56,68,68,40,127
2490 DATA e,56,84,84,84,24
2500 DATA f,8,8,126,9,10
2510 DATA g,24,164,164,152,124
2520 DATA h,127,4,4,4,120
2530 DATA i,0,68,125,64,0
2540 DATA j,64,128,132,125,0
2550 DATA k,127,16,40,68,0
2560 DATA l,0,65,127,64,0
2570 DATA m,124,4,120,4,120
2580 DATA n,124,8,4,4,120
2590 DATA o,56,68,68,68,56
2600 DATA p,252,24,36,36,24
2610 DATA q,24,36,36,24,252
2620 DATA r,124,8,4,4,8
2630 DATA s,88,84,84,84,36
2640 DATA t,4,63,68,68,32
2650 DATA u,60,64,64,60,64
2660 DATA v,28,32,64,32,28
2670 DATA w,60,64,56,64,60
2680 DATA x,68,40,16,40,68
2690 DATA y,28,160,160,144,124
2700 DATA z,68,100,84,76,68
2710 DATA {,0,8,54,65,65
2720 DATA |,0,0,119,0,0
2730 DATA },65,65,54,8,0
2740 DATA ~,2,1,2,4,2
3690 DATA 00