home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
RBBS in a Box Volume 1 #3.1
/
RBBSIABOX31.cdr
/
basw
/
banner2.bas
< prev
next >
Wrap
BASIC Source File
|
1990-10-01
|
18KB
|
368 lines
1 ' WARNING!!! DO NOT ALTER, BYPASS OR REMOVE LINES 1-100
3 '
5 ' BANNER PROGRAM (version 1.1)
7 '
9 ' by Lloyd Casterline
11 ' Lewis-Casterline Associates
13 ' 4013 North St.
15 ' Peoria, Il 61614
17 '
19 ' |=========================> NOTICE <=========================|
21 ' | A limited license is granted to all users of this program, |
23 ' | to make copies of this program and distribute them to other |
25 ' | users, on the following conditions: |
27 ' | 1. The notices contained in lines 1 through 100 of the |
29 ' | program are not to be altered, bypassed, or removed. |
31 ' | 2. The program is not to be distributed to others in |
33 ' | modified form. |
35 ' | 3. No fee is to be charged (or any other consideration |
37 ' | received) for copying or distributing the program. |
39 ' | |
41 ' |==============================================================|
43 '
45 '
47 DEFSTR A-H,M-Z:KEY OFF
49 CLS:WIDTH 80
51 PRINT SPC(13);CHR$(201);STRING$(49,CHR$(205));CHR$(187)
53 PRINT SPC(13);CHR$(186);SPC(49);CHR$(186)
55 PRINT SPC(13);CHR$(186);" U S E R - S U P P O R T E D S O F T W A R E "; CHR$(186)
57 PRINT SPC(13);CHR$(186);SPC(49);CHR$(186):PRINT SPC(13);CHR$(200); STRING$(49,205);CHR$(188)
59 PRINT :PRINT SPC(6);CHR$(201);STRING$(63,205);CHR$(187)
61 FOR I=1 TO 11:READ A$:PRINT SPC(6) CHR$(186);A$;SPC(63-LEN(A$));CHR$(186): NEXT I
63 PRINT SPC(6) CHR$(200)STRING$(63,205)CHR$(188)
65 DATA" If you are using this program and finding it of value,
67 DATA" your contribution ($10 suggested) will be appreciated.
69 DATA"
71 DATA" Lewis-Casterline Associates
73 DATA" 4013 North St.
75 DATA" Peoria, Il 61614
77 DATA"
79 DATA" You are encouraged to copy and share this program
81 DATA" with other users, on the conditions that the program is not
83 DATA" distributed in modified form, that no fee or consideration
85 DATA" is charged, and that this notice is not bypassed or removed.
87 '
89 PRINT:PRINT :PRINT :PRINT "press any key to continue..."
91 FOR I=1 TO 2000:NEXT I
93 F=INKEY$:IF F="" THEN 93
100 '
1000 CLS
1010 WIDTH "LPT1:",81
1020 DEFSTR A-H,M-Z
1030 DEFINT I-L
1040 D="X"
1050 A=STRING$(11,D)
1060 B=STRING$(13,D)
1070 C=STRING$(15,D)
1080 DIM BANNER(40)
1090 PRINT :PRINT
1100 PRINT SPC(10);CHR$(201);STRING$(58,205);CHR$(187)
1110 PRINT SPC(10);CHR$(186);SPC(15);"B A N N E R P R O G R A M";SPC(15); CHR$(186)
1120 PRINT SPC(10);CHR$(186);SPC(50);"ver 1.1";SPC(1);CHR$(186)
1130 PRINT SPC(10);CHR$(200);STRING$(58,205);CHR$(188)
1140 PRINT:PRINT:PRINT:INPUT "DO YOU WANT INSTRUCTIONS ? Y/N ";ANSW
1150 IF ANSW="Y" OR ANSW="y" THEN GOSUB 3320
1160 PRINT :INPUT "DO YOU WANT EMPHASIZED PRINT ON YOUR BANNER ? Y/N ";ANS
1170 IF ANS="Y" OR ANS="y" THEN LPRINT CHR$(27);"E"
1180 PRINT :PRINT "ENTER THE STRING YOU WANT TO PRINT (no lower case please)": PRINT:LINE INPUT "===>";BANNER
1190 K=LEN(BANNER)
1200 FOR I=1 TO K
1210 ING=ASC(MID$(BANNER,I,1))
1220 IF ING=32 OR ING=33 OR ING=39 OR ING=40 OR ING=41 OR ING=43 OR ING=45 OR ING=46 OR ING=61 OR ING=63 THEN 1270
1230 IF ING>47 AND ING<58 THEN 1270
1240 IF ING>64 AND ING<91 THEN 1270
1250 PRINT:PRINT BANNER:PRINT
1260 PRINT "WARNING ! ! !":PRINT :PRINT "THIS PROGRAM WILL PRINT ONLY ":PRINT "CAPITAL LETTERS, NUMBERS, BLANK, ., ', ?, !, -, +,(,),=.":PRINT:END
1270 NEXT I
1280 FOR J=1 TO K
1290 IF MID$(BANNER,J,1)="=" THEN GOSUB 4030:GOTO 1430
1300 IF MID$(BANNER,J,1)=" " THEN FOR L=1 TO 26:LPRINT :NEXT L:GOTO 1440
1310 IF MID$(BANNER,J,1)="(" THEN GOSUB 4060:GOTO 1430
1320 IF MID$(BANNER,J,1)=")" THEN GOSUB 4100:GOTO 1430
1330 IF MID$(BANNER,J,1)="+" THEN GOSUB 4140:GOTO 1430
1340 IF MID$(BANNER,J,1)="'" THEN GOSUB 3190:GOTO 1430
1350 IF MID$(BANNER,J,1)="." THEN GOSUB 3160:GOTO 1430
1360 IF MID$(BANNER,J,1)="'" THEN GOSUB 3190:GOTO 1430
1370 IF MID$(BANNER,J,1)="!" THEN GOSUB 3220:GOTO 1430
1380 IF MID$(BANNER,J,1)="?" THEN GOSUB 3250:GOTO 1430
1390 IF MID$(BANNER,J,1)="-" THEN GOSUB 3490:GOTO 1430
1400 IF ASC(MID$(BANNER,J,1))>57 THEN GOTO 1420
1410 ON (ASC(MID$(BANNER,J,1))-47) GOSUB 2290,3520,3570,3630,3690,3750,3820, 3870,3910,3980:GOTO 1430
1420 ON (ASC(MID$(BANNER,J,1))-64) GOSUB 1470,1540,1600,1670,1730,1780,1830, 1900,1950,2000,2060,2120,2160,2230,2290,2360,2420,2550,2630,2700,2750, 2820,2870,2940,3030,3100
1430 FOR L=1 TO 12:LPRINT :NEXT L
1440 NEXT J
1450 LPRINT CHR$(27);"F"
1460 END
1470 ' *** PRINT A ***
1480 FOR I=1 TO 6:LPRINT STRING$(54+2*I,D):NEXT I
1490 FOR I=1 TO 6:LPRINT SPC(34);A;SPC(10+2*I);A:NEXT I
1500 FOR I=1 TO 3:LPRINT SPC(34);A;SPC(24);A:NEXT I
1510 FOR I=6 TO 1 STEP -1:LPRINT SPC(34);A;SPC(10+2*I);A:NEXT I
1520 FOR I=6 TO 1 STEP -1:LPRINT STRING$(54+2*I,D):NEXT I
1530 RETURN
1540 ' *** PRINT B ***
1550 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
1560 FOR I=1 TO 7:LPRINT A;SPC(23);A;D;SPC(23);A:NEXT I
1570 FOR I=0 TO 4:LPRINT SPC(2*I);B;SPC(21-4*I);STRING$(12+4*I,D);SPC(21-4*I);B: NEXT I
1580 FOR I=1 TO 4:LPRINT SPC(8+2*I);STRING$(32-4*I,D);SPC(4*I);STRING$(32-4*I,D) :NEXT I
1590 RETURN
1600 ' *** PRINT C ***
1610 FOR I=1 TO 6:LPRINT SPC(26-2*I);STRING$(28+4*I,D):NEXT I
1620 FOR I=1 TO 7:LPRINT SPC(14-2*I);B;SPC(26+4*I);B:NEXT I
1630 FOR I=1 TO 4:LPRINT A;SPC(58);A:NEXT I
1640 FOR I=0 TO 4:LPRINT SPC(2*I);B;SPC(54-4*I);B:NEXT I
1650 FOR I=1 TO 6:LPRINT SPC(8+2*I);STRING$(21-2*I,D);SPC(22);STRING$(21-2*I,D): NEXT I
1660 RETURN
1670 ' *** PRINT D ***
1680 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
1690 FOR I=1 TO 7:LPRINT A;SPC(58);A:NEXT I
1700 FOR I=0 TO 5:LPRINT SPC(I*2);B;SPC(54-4*I);B:NEXT I
1710 FOR I=1 TO 5:LPRINT SPC(10+2*I);STRING$(60-4*I,D):NEXT I
1720 RETURN
1730 ' *** PRINT E ***
1740 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
1750 FOR I=1 TO 8:LPRINT A;SPC(23);A;SPC(24);A:NEXT I
1760 FOR I=1 TO 3:LPRINT A;SPC(58);A:NEXT I
1770 RETURN
1780 ' *** PRINT F ***
1790 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
1800 FOR I=1 TO 8:LPRINT SPC(35);A;SPC(23);A:NEXT I
1810 FOR I=1 TO 4:LPRINT SPC(69);A:NEXT I
1820 RETURN
1830 ' *** PRINT G ***
1840 FOR I=1 TO 6:LPRINT SPC(26-2*I);STRING$(28+4*I,D):NEXT I
1850 FOR I=1 TO 7:LPRINT SPC(14-2*I);B;SPC(26+4*I);B:NEXT I
1860 FOR I=1 TO 4:LPRINT A;SPC(19);A;SPC(28);A:NEXT I
1870 FOR I=0 TO 4:LPRINT SPC(2*I);B;SPC(17-2*I);A;SPC(26-2*I);B:NEXT I
1880 FOR I=1 TO 6:LPRINT SPC(8+2*I);STRING$(33-2*I,D);SPC(14);STRING$(17-2*I,D): NEXT I
1890 RETURN
1900 ' *** PRINT H ***
1910 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
1920 FOR I=1 TO 10:LPRINT SPC(34);A:NEXT I
1930 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
1940 RETURN
1950 ' *** PRINT I ***
1960 FOR I=1 TO 6:LPRINT A;SPC(58);A:NEXT I
1970 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
1980 FOR I=1 TO 6:LPRINT A;SPC(58);A:NEXT I
1990 RETURN
2000 ' *** PRINT J ***
2010 FOR I=5 TO 0 STEP -1:LPRINT SPC(I*2);B;SPC(56-2*I);A:NEXT I
2020 FOR I=1 TO 6:LPRINT A;SPC(58);A:NEXT I
2030 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
2040 FOR I=1 TO 9:LPRINT SPC(69);A:NEXT I
2050 RETURN
2060 ' *** PRINT K ***
2070 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
2080 FOR I=0 TO 2:LPRINT SPC(32-2*I);STRING$(16+4*I,D):NEXT I
2090 FOR I=13 TO 0 STEP -1:LPRINT SPC(2*I);B;SPC(54-4*I);B:NEXT I
2100 FOR I=3 TO 1 STEP -1:LPRINT STRING$(5+2*I,D);SPC(70-4*I);STRING$(5+2*I,D): NEXT I
2110 RETURN
2120 ' *** PRINT L ***
2130 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
2140 FOR I=1 TO 15:LPRINT A:NEXT I
2150 RETURN
2160 ' *** PRINT M ***
2170 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
2180 FOR I=0 TO 9:LPRINT SPC(67-2*I);B:NEXT I
2190 FOR I=9 TO 0 STEP -1:LPRINT SPC(67-2*I);B:NEXT I
2200 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
2210 '
2220 RETURN
2230 ' *** PRINT N ***
2240 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
2250 FOR I=16 TO 0 STEP -1:LPRINT SPC(4*I);C:NEXT I
2260 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
2270 '
2280 RETURN
2290 ' *** PRINT O ***
2300 FOR I=1 TO 6:LPRINT SPC(26-2*I);STRING$(28+4*I,D):NEXT I
2310 FOR I=1 TO 7:LPRINT SPC(14-2*I);B;SPC(26+4*I);B:NEXT I
2320 FOR I=1 TO 4:LPRINT A;SPC(58);A:NEXT I
2330 FOR I=7 TO 1 STEP -1:LPRINT SPC(14-2*I);B;SPC(26+4*I);B:NEXT I
2340 FOR I=6 TO 1 STEP -1:LPRINT SPC(26-2*I);STRING$(28+4*I,D):NEXT I
2350 RETURN
2360 ' *** PRINT P ***
2370 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
2380 FOR I=1 TO 7:LPRINT SPC(34);A;SPC(24);A:NEXT I
2390 FOR I=0 TO 4:LPRINT SPC(34+2*I);B;SPC(20-4*I);B:NEXT I
2400 FOR I=0 TO 3:LPRINT SPC(44+2*I);STRING$(26-4*I,D):NEXT I
2410 RETURN
2420 ' *** PRINT Q ***
2430 FOR I=1 TO 6:LPRINT SPC(26-2*I);STRING$(28+4*I,D):NEXT I
2440 FOR I=1 TO 7:LPRINT SPC(14-2*I);B;SPC(26+4*I);B:NEXT I
2450 FOR I=1 TO 3:LPRINT A;SPC(58);A:NEXT I
2460 LPRINT A;SPC(6);STRING$(2,D);SPC(50);A
2470 LPRINT B;SPC(2);STRING$(6,D);SPC(46);B
2480 FOR I=6 TO 4 STEP -1:LPRINT SPC(14-2*I);STRING$(21,D);SPC(18+4*I);B:NEXT I
2490 LPRINT SPC(7);STRING$(18,D);SPC(34);B
2500 FOR I=2 TO 1 STEP -1:LPRINT SPC(1+2*I);STRING$(13-4*I,D);B;SPC(26+4*I);B: NEXT I
2510 FOR I=6 TO 5 STEP -1:LPRINT SPC(13-2*I);STRING$(41+4*I,D):NEXT I
2520 FOR I=4 TO 2 STEP -1:LPRINT SPC(13-2*I);STRING$(4*I-6,D);SPC(19-4*I); STRING$(28+4*I,D):NEXT I
2530 LPRINT SPC(24);STRING$(32,D)
2540 RETURN
2550 ' *** PRINT R ***
2560 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
2570 FOR I=1 TO 6:LPRINT SPC(34);A;SPC(24);A:NEXT I
2580 FOR I=0 TO 2:LPRINT SPC(31-4*I);STRING$(16+6*I,D);SPC(20-4*I);B:NEXT I
2590 FOR I=3 TO 4:LPRINT SPC(31-4*I);C;SPC(6*I-12);B;SPC(20-4*I);B:NEXT I
2600 FOR I=0 TO 3:LPRINT SPC(11-4*I);C;SPC(18+6*I);STRING$(26-4*I,D):NEXT I
2610 FOR I=1 TO 3:LPRINT STRING$(15-3*I,D):NEXT I
2620 RETURN
2630 ' *** PRINT S ***
2640 FOR I=3 TO 0 STEP -1:LPRINT SPC(2*I);B;SPC(32);STRING$(25-4*I,D):NEXT I
2650 FOR I=4 TO 0 STEP -1:LPRINT A;SPC(24+2*I);B;SPC(19-4*I);B:NEXT I
2660 FOR I=1 TO 4:LPRINT A;SPC(24);A;SPC(23);A:NEXT I
2670 FOR I=0 TO 4:LPRINT SPC(2*I);B;SPC(19-4*I);B;SPC(24+2*I);A:NEXT I
2680 FOR I=0 TO 3:LPRINT SPC(10+2*I);STRING$(25-4*I,D);SPC(32);B:NEXT I
2690 RETURN
2700 ' *** PRINT T ***
2710 FOR I=1 TO 9:LPRINT SPC(69);A:NEXT I
2720 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
2730 FOR I=1 TO 9:LPRINT SPC(69);A:NEXT I
2740 RETURN
2750 ' *** PRINT U ***
2760 FOR I=1 TO 6:LPRINT SPC(26-2*I);STRING$(54+2*I,D):NEXT I
2770 FOR I=1 TO 7:LPRINT SPC(14-2*I);B:NEXT I
2780 FOR I=1 TO 4:LPRINT A:NEXT I
2790 FOR I=7 TO 1 STEP -1:LPRINT SPC(14-2*I);B:NEXT I
2800 FOR I=6 TO 1 STEP -1:LPRINT SPC(26-2*I);STRING$(54+2*I,D):NEXT I
2810 RETURN
2820 ' *** PRINT V ***
2830 FOR I=12 TO 0 STEP -1:LPRINT SPC(5*I);STRING$(20,D):NEXT I
2840 LPRINT C
2850 FOR I=0 TO 12:LPRINT SPC(5*I);STRING$(20,D):NEXT I
2860 RETURN
2870 ' *** PRINT W ***
2880 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
2890 FOR I=0 TO 9:LPRINT SPC(2*I);B:NEXT I
2900 FOR I=9 TO 0 STEP -1:LPRINT SPC(2*I);B:NEXT I
2910 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
2920 '
2930 RETURN
2940 ' *** PRINT X ***
2950 FOR I=0 TO 2:LPRINT STRING$(7+3*I,D);SPC(66-6*I);STRING$(7+3*I,D):NEXT I
2960 FOR I=0 TO 9:LPRINT SPC(3*I);B;SPC(54-6*I);B:NEXT I
2970 LPRINT SPC(30);STRING$(20,D)
2980 LPRINT SPC(33);STRING$(14,D)
2990 LPRINT SPC(30);STRING$(20,D)
3000 FOR I=9 TO 0 STEP -1:LPRINT SPC(3*I);B;SPC(54-6*I);B:NEXT I
3010 FOR I=2 TO 0 STEP -1:LPRINT STRING$(7+3*I,D);SPC(66-6*I);STRING$(7+3*I,D): NEXT I
3020 RETURN
3030 ' *** PRINT Y ***
3040 FOR I=0 TO 2:LPRINT SPC(73-3*I);STRING$(7+3*I,D):NEXT I
3050 FOR I=1 TO 9:LPRINT SPC(67-3*I);B:NEXT I
3060 FOR I=1 TO 6:LPRINT STRING$(52,D):NEXT I
3070 FOR I=9 TO 1 STEP -1:LPRINT SPC(67-3*I);B:NEXT I
3080 FOR I=2 TO 0 STEP -1:LPRINT SPC(73-3*I);STRING$(7+3*I,D):NEXT I
3090 RETURN
3100 ' *** PRINT Z ***
3110 FOR I=0 TO 3:LPRINT STRING$(13+3*I,D);SPC(56-3*I);A:NEXT I
3120 FOR I=0 TO 14:LPRINT A;SPC(2+3*I);B;D;SPC(42-3*I);A:NEXT I
3130 FOR I=4 TO 1 STEP -1:LPRINT A;SPC(59-3*I);STRING$(10+3*I,D):NEXT I
3140 '
3150 RETURN
3160 ' *** PRINT . ***
3170 FOR I=1 TO 6:LPRINT A:NEXT I
3180 RETURN
3190 ' *** PRINT ' ***
3200 FOR I=1 TO 6:LPRINT SPC(54+2*I);STRING$(26-2*I,D):NEXT I
3210 RETURN
3220 ' *** PRINT ! ***
3230 FOR I=1 TO 6:LPRINT A;SPC(11);STRING$(58,D):NEXT I
3240 RETURN
3250 ' *** PRINT ? ***
3260 FOR I=2 TO 6:LPRINT SPC(48);STRING$(8+2*I,D):NEXT I
3270 FOR I=0 TO 5:LPRINT SPC(57+2*I);B:NEXT I
3280 FOR I=1 TO 5:LPRINT A;SPC(11);STRING$(4+2*I,D);SPC(43-2*I);A:NEXT I
3290 FOR I=0 TO 5:LPRINT SPC(25+2*I);B;SPC(29-4*I);B:NEXT I
3300 FOR I=1 TO 5:LPRINT SPC(35+2*I);STRING$(35-4*I,D):NEXT I
3310 RETURN
3320 '
3330 PRINT :PRINT
3340 FOR I=1 TO 8
3350 READ R
3360 PRINT SPC(4);R
3370 NEXT I
3380 DATA " This program will print a banner on most standard format printers."
3390 DATA " It was developed on an Epson FX-80, but does not use any special"
3400 DATA " attributes except the code for emphasized printing. If the code "
3410 DATA " for your printer is different, make the necessary change to line"
3420 DATA " 1170. The program as originally written uses the character `X' as"
3430 DATA " the printer character. If you wish to change it, simply change the"
3440 DATA " statement in line 1040. Also note that the maximum banner length "
3450 DATA " is 40 characters, although this may be changed in line 1080."
3460 PRINT :PRINT :PRINT "press any key to continue..."
3470 CON=INKEY$:IF CON="" THEN 3470
3480 RETURN
3490 ' *** PRINT - ***
3500 FOR I=1 TO 12:LPRINT SPC(34);A:NEXT I
3510 RETURN
3520 ' *** PRINT 1 ***
3530 FOR I=1 TO 6:LPRINT A;SPC(57);STRING$(2*I,D):NEXT I
3540 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
3550 FOR I=1 TO 6:LPRINT A:NEXT I
3560 RETURN
3570 ' *** PRINT 2 ***
3580 FOR I=1 TO 7:LPRINT STRING$(9+2*I,D);SPC(44);B:NEXT I
3590 FOR I=0 TO 3:LPRINT A;SPC(1+2*I);B;SPC(44-2*I);A:NEXT I
3600 FOR I=4 TO 10:LPRINT A;SPC(1+2*I);B;SPC(50-4*I);B:NEXT I
3610 FOR I=1 TO 4:LPRINT A;SPC(21+2*I);STRING$(36-4*I,D):NEXT I
3620 RETURN
3630 ' *** PRINT 3 ***
3640 FOR I=3 TO 0 STEP -1:LPRINT SPC(2*I);B;SPC(54-4*I);B:NEXT I
3650 FOR I=1 TO 9:LPRINT A;SPC(23);A;D;SPC(23);A:NEXT I
3660 FOR I=0 TO 4:LPRINT SPC(2*I);B;SPC(21-4*I);STRING$(12+4*I,D);SPC(21-4*I);B: NEXT I
3670 FOR I=1 TO 4:LPRINT SPC(8+2*I);STRING$(32-4*I,D);SPC(4*I);STRING$(32-4*I,D) :NEXT I
3680 RETURN
3690 ' *** PRINT 4 ***
3700 FOR I=1 TO 6:LPRINT SPC(34);STRING$(46,D):NEXT I
3710 FOR I=1 TO 12:LPRINT SPC(34);A:NEXT I
3720 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
3730 FOR I=1 TO 3:LPRINT SPC(34);A:NEXT I
3740 RETURN
3750 ' *** PRINT 5 ***
3760 FOR I=5 TO 0 STEP -1:LPRINT SPC(2*I);B;SPC(21-2*I);STRING$(46,D):NEXT I
3770 FOR I=1 TO 7:LPRINT A;SPC(23);A;D;SPC(23);A:NEXT I
3780 LPRINT B;SPC(21);STRING$(12,D);SPC(23);A
3790 FOR I=1 TO 4:LPRINT SPC(2*I);B;SPC(21-4*I);B;SPC(22+2*I);A:NEXT I
3800 FOR I=1 TO 4:LPRINT SPC(8+2*I);STRING$(32-4*I,D);SPC(29+2*I);A:NEXT I
3810 RETURN
3820 ' *** PRINT 6 ***
3830 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
3840 FOR I=1 TO 12:LPRINT A;SPC(23);A:NEXT I
3850 FOR I=1 TO 6:LPRINT STRING$(45,D):NEXT I
3860 RETURN
3870 ' *** PRINT 7 ***
3880 FOR I=1 TO 15:LPRINT SPC(69);A:NEXT I
3890 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
3900 RETURN
3910 ' *** PRINT 8 ***
3920 FOR I=4 TO 1 STEP -1:LPRINT SPC(8+2*I);STRING$(32-4*I,D);SPC(4*I); STRING$(32-4*I,D):NEXT I
3930 FOR I=4 TO 0 STEP -1:LPRINT SPC(2*I);B;SPC(21-4*I);STRING$(12+4*I,D); SPC(21-4*I);B:NEXT I
3940 FOR I=1 TO 7:LPRINT A;SPC(23);A;D;SPC(23);A:NEXT I
3950 FOR I=0 TO 4:LPRINT SPC(2*I);B;SPC(21-4*I);STRING$(12+4*I,D);SPC(21-4*I);B: NEXT I
3960 FOR I=1 TO 4:LPRINT SPC(8+2*I);STRING$(32-4*I,D);SPC(4*I);STRING$(32-4*I,D) :NEXT I
3970 RETURN
3980 ' *** PRINT 9 ***
3990 FOR I=1 TO 6:LPRINT SPC(34);STRING$(46,D):NEXT I
4000 FOR I=1 TO 12:LPRINT SPC(34);A;SPC(24);A:NEXT I
4010 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
4020 RETURN
4030 ' *** PRINT = ***
4040 FOR I=1 TO 9: LPRINT SPC(33);STRING$(5,D);SPC(5);STRING$(5,D):NEXT I
4050 RETURN
4060 ' *** PRINT ( ***
4070 FOR I=1 TO 6:LPRINT SPC(26-2*I);STRING$(28+4*I,D):NEXT I
4080 FOR I=1 TO 7:LPRINT SPC(14-2*I);B;SPC(26+4*I);B:NEXT I
4090 RETURN
4100 ' *** PRINT ) ***
4110 FOR I=7 TO 1 STEP -1:LPRINT SPC(14-2*I);B;SPC(26+4*I);B:NEXT I
4120 FOR I=6 TO 1 STEP -1:LPRINT SPC(26-2*I);STRING$(28+4*I,D):NEXT I
4130 RETURN
4140 ' *** PRINT + ***
4150 FOR I=1 TO 6:LPRINT SPC(34);A:NEXT I
4160 FOR I=1 TO 6:LPRINT SPC(23);A;A;A:NEXT I
4170 FOR I=1 TO 6:LPRINT SPC(34);A:NEXT I
4180 RETURN