10 GOSUB 2000
20 DEFINT Z
30 DIM S(7),J(9),F(9)
40 LET X=5
50 LET Y=8
60 INPUT "STATEMENT TO PRINT"A$
70 LET M$="ALL"
80 PRINT
90 INPUT "SETUP THE PRINTER AND HIT ENTER TO BEGIN PRINTING"O$
100 LET A=ASC(MID$(A$,1,1))
110 FOR T=1 TO LEN(A$) STEP 1
120 LET P$=MID$(A$,T,1)
130 POUT
140 REM **** FIND THE CURRENT CHARACTER BEING PRINTED ****
150 FOR O=1 TO 50 STEP 1
160 READ S$,S(1),S(2),S(3),S(4),S(5),S(6),S(7)
170 IF P$=" " THEN EXIT 500
180 IF P$=S$ THEN EXIT 200
190 NEXT O
200 RESTORE
210 LET X$=M$
220 IF M$="ALL" THEN LET X$=S$
230 REM **** BUILD ONE OF SEVEN CHARACTER LINES ****
240 FOR U=1 TO 7 STEP 1
250 FOR K=8 TO -1 STEP -1
260 LET B=2^K
270 IF B<S(U) GOTO 300
280 LET J(9-K)=0
290 GOTO 330
300 LET J(9-K)=1
310 LET S(U)=S(U)-B
320 IF S(U)=1 EXIT 350
330 NEXT K
340 GOTO 360
350 LET F(U)=9-K
360 FOR C=1 TO X STEP 1
370 FOR B=1 TO F(U) STEP 1
380 IF J(B)=0 GOTO 430
390 FOR I=1 TO Y STEP 1
400 PRINT X$;
410 NEXT I
420 GOTO 460
430 FOR I=1 TO Y STEP 1
440 PRINT " ";
450 NEXT I
460 NEXT B
470 PRINT
480 NEXT C
490 NEXT U
500 FOR H=1 TO 2*X STEP 1
510 PRINT
520 NEXT H
530 NEXT T
540 FOR H=1 TO 75 STEP 1
550 PRINT
560 NEXT H
570 TOUT
580 END
590 FOR H=1 TO 7*X STEP 1
600 PRINT
610 NEXT H
610 GOTO 530
1000 REM **** CHARACTER LOOKUP TABLE ****
1010 DATA " ",0,0,0,0,0,0,0
1020 DATA "A",505,37,35,34,35,37,505
1030 DATA "G",125,131,258,258,290,163,101
1040 DATA "E",512,274,274,274,274,258,258
1050 DATA "T",2,2,2,512,2,2,2
1060 DATA "W",256,257,129,65,129,257,256
1070 DATA "L",512,257,257,257,257,257,257
1080 DATA "S",69,139,274,274,274,163,69
1090 DATA "O",125,131,258,258,258,131,125
1100 DATA "N",512,7,9,17,33,193,512
1110 DATA "F",512,18,18,18,18,2,2
1120 DATA "K",512,17,17,41,69,131,258
1130 DATA "B",512,274,274,274,274,274,239
1140 DATA "D",512,258,258,258,258,131,125
1150 DATA "H",512,17,17,17,17,17,512
1160 DATA "M",512,7,13,25,13,7,512
1170 DATA "?",5,3,2,354,18,11,5
1180 DATA "U",128,129,257,257,257,129,128
1190 DATA "R",512,18,18,50,82,146,271
1200 DATA "P",512,18,18,18,18,18,15
1210 DATA "Q",125,131,258,258,322,131,381
1220 DATA "Y",8,9,17,481,17,9,8
1230 DATA "V",64,65,129,257,129,65,64
1240 DATA "X",388,69,41,17,41,69,388
1250 DATA "Z",386,322,290,274,266,262,260
1260 DATA "I",258,258,258,512,258,258,258
1270 DATA "C",125,131,258,258,258,131,69
1280 DATA "J",65,129,257,257,257,129,128
1290 DATA "1",0,0,261,259,512,257,257
1300 DATA "2",261,387,322,290,274,267,261
1310 DATA "*",69,41,17,512,17,41,69
1320 DATA "3",66,130,258,274,266,150,100
1330 DATA "4",33,49,41,37,35,512,33
1340 DATA "5",160,274,274,274,274,274,226
1350 DATA "6",194,291,293,297,305,289,193
1360 DATA "7",258,130,66,34,18,10,8
1370 DATA "8",69,171,274,274,274,171,69
1380 DATA "9",263,138,74,42,26,10,7
1390 DATA "=",41,41,41,41,41,41,41
1400 DATA "!",1,1,1,384,1,1,1
1410 DATA "0",57,69,131,258,131,69,57
1420 DATA ".",1,1,129,449,129,1,1
2000 PRINT CHR$(27);"[H";CHR$(27);"[2J"
2010 PRINT "**********************************************************************"
2020 PRINT "*                                                                    *"
2030 PRINT "*     ****     *    *   *  *   *  *****  ****       *****   *****    *"
2040 PRINT "*     *   *   * *   **  *  **  *  *      *   *        *       *      *"
2050 PRINT "*     *   *  *   *  * * *  * * *  *      *   *        *       *      *"
2060 PRINT "*     ****   *****  * * *  * * *  ****   ****         *       *      *"
2070 PRINT "*     *   *  *   *  * * *  * * *  *      * *          *       *      *"
2080 PRINT "*     *   *  *   *  *  **  *  **  *      *  *         *       *      *"
2090 PRINT "*     ****   *   *  *   *  *   *  *****  *   *      *****   *****    *"
2100 PRINT "*                                                                    *"
2110 PRINT "**********************************************************************"
2120 PRINT "              BY: LEONARD ROSENDUST - BROOKLYN, NEW YORK"
2130 PRINT "  UPDATED FOR QUEST SUPER BASIC BY: DAVE RUNKLE - BLAINE, MINNESOTA"
2140 PRINT "**********************************************************************"
2150 PRINT
2160 RETURN