Category : Printer + Display Graphics
Archive   : BIGPRINT.ZIP
Filename : BIGPRINT.BAS

 
Output of file : BIGPRINT.BAS contained in archive : BIGPRINT.ZIP
' BIGPRINT.BAS
' Written in Microsoft QuickBasic 4.5
' by Chuck Cooperman, February, 1989
'
DEFINT A-Z
DECLARE SUB bigprint (MSG$)
DECLARE SUB biglet (char)
DECLARE SUB SCROLL ()
DIM C(255, 5, 5)
cr$ = CHR$(13)
CLS
PRINT "BIGPRINT.EXE - compiled from BIGPRINT.BAS using Microsoft QuickBasic 4.5"
PRINT ""
PRINT "Written in February 1989 by Chuck Cooperman"
PRINT ""
PRINT "Purpose - to print a file to the screen using BIG characters formed"
PRINT "by a 5X5 matrix of standard characters. This program is Public Domain."
PRINT "You may modify the source as you please. Creativity is encouraged."
PRINT ""
PRINT "Usage suggestion - use a word processor to format a text file 13"
PRINT "columns wide, then use BIGPRINT to display it."
PRINT ""
PRINT "Setting up BIG characters..."
FOR char = 32 TO 65 + 25
FOR Y = 1 TO 5
FOR X = 1 TO 5
READ C(char, X, Y)
NEXT X
NEXT Y
NEXT char
PRINT ""
KEY 15, CHR$(0) + CHR$(1)
ON KEY(15) GOSUB quit
KEY(15) ON
PRINT "Ready - press nearly any key to continue, or Esc to quit at any time."
DO
LOOP WHILE (LEN(INKEY$) < 1)
ON ERR GOTO quit
ypos = 0
CLS
FILES
INPUT "File to bigprint ", name$
IF LEN(name$) = 0 THEN GOTO quit
CLS
OPEN name$ FOR INPUT AS 1
WHILE NOT EOF(1)
LINE INPUT #1, line$
bigprint line$ + CHR$(13)
WEND

quit:
END

'
DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
' !
DATA 32,35,35,32,32,32,35,35,32,32,32,35,35,32,32,32,32,32,32,32,32,35,35,32,32
' "
DATA 32,35,32,35,32,32,35,32,35,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
' #
DATA 32,35,32,35,32,35,35,35,35,35,32,35,32,35,32,35,35,35,35,35,32,35,32,35,32
' $
DATA 32,35,35,35,32,35,32,35,32,32,32,35,35,35,32,32,32,35,32,35,32,35,35,35,32
' %
DATA 35,35,32,32,35,32,32,32,35,32,32,32,35,32,32,32,35,32,32,32,35,32,32,35,35
' &
DATA 35,35,35,32,32,35,32,35,32,32,35,35,35,35,35,35,32,32,35,32,35,35,35,35,35
' '
DATA 32,32,35,35,32,32,35,35,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
' (
DATA 32,32,35,32,32,32,35,32,32,32,32,35,32,32,32,32,35,32,32,32,32,32,35,32,32
' )
DATA 32,32,35,32,32,32,32,32,35,32,32,32,32,35,32,32,32,32,35,32,32,32,35,32,32
' *
DATA 35,32,35,32,35,32,35,35,35,32,35,35,32,35,35,32,35,35,35,32,35,32,35,32,35
' +
DATA 32,32,35,32,32,32,32,35,32,32,35,35,35,35,35,32,32,35,32,32,32,32,35,32,32
' ,
DATA 32,32,32,32,32,32,32,32,32,32,32,32,35,32,32,32,32,35,32,32,32,35,35,32,32
' -
DATA 32,32,32,32,32,32,32,32,32,32,35,35,35,35,35,32,32,32,32,32,32,32,32,32,32
' .
DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,35,35,32,32,32,35,35,32,32
' /
DATA 32,32,32,32,35,32,32,32,35,32,32,32,35,32,32,32,35,32,32,32,35,32,32,32,32
' 32
DATA 32,35,35,35,32,35,32,32,35,35,35,32,35,32,35,35,35,32,32,35,32,35,35,35,32
' 35
DATA 32,32,35,32,32,32,35,35,32,32,32,32,35,32,32,32,32,35,32,32,32,35,35,35,32
' 2
DATA 32,35,35,35,32,35,32,32,32,35,32,32,35,35,32,32,35,32,32,32,35,35,35,35,35
' 3
DATA 35,35,35,35,32,32,32,32,32,35,32,35,35,35,32,32,32,32,32,35,35,35,35,35,32
' 4
DATA 35,32,32,35,32,35,32,32,35,32,35,35,35,35,35,32,32,32,35,32,32,32,32,35,32
' 5
DATA 35,35,35,35,35,35,32,32,32,32,35,35,35,35,32,32,32,32,32,35,35,35,35,35,32
' 6
DATA 35,35,32,32,32,35,32,32,32,32,35,35,35,35,35,35,32,32,32,35,35,35,35,35,35
' 7
DATA 35,35,35,35,35,32,32,32,35,35,32,32,35,35,32,32,35,35,32,32,35,35,32,32,32
' 8
DATA 32,35,35,35,32,35,32,32,32,35,32,35,35,35,32,35,32,32,32,35,32,35,35,35,32
' 9
DATA 32,35,35,35,32,35,32,32,32,35,32,35,35,35,35,32,32,32,32,35,32,35,35,35,32
' :
DATA 32,32,32,32,32,32,35,35,35,32,32,32,32,32,32,32,35,35,35,32,32,32,32,32,32
' ;
DATA 32,32,32,32,32,32,32,35,35,32,32,32,32,32,32,32,32,35,35,32,32,35,35,32,32
' <
DATA 32,32,32,35,32,32,32,35,32,32,32,35,32,32,32,32,32,35,32,32,32,32,32,35,32
' =
DATA 32,32,32,32,32,35,35,35,35,35,32,32,32,32,32,35,35,35,35,35,32,32,32,32,32
' >
DATA 32,35,32,32,32,32,32,35,32,32,32,32,32,35,32,32,32,35,32,32,32,35,32,32,32
' ?
DATA 32,35,35,35,32,35,32,32,32,35,32,32,32,35,32,32,32,35,32,32,32,32,35,32,32
' @
DATA 35,35,35,35,35,35,32,32,32,35,35,32,35,35,35,35,32,35,32,35,35,32,35,35,35
' A
DATA 32,35,35,35,32,35,32,32,32,35,35,35,35,35,35,35,32,32,32,35,35,32,32,32,35
' B
DATA 35,35,35,35,32,35,32,32,32,35,35,35,35,35,32,35,32,32,32,35,35,35,35,35,32
' C
DATA 35,35,35,35,35,35,32,32,32,32,35,32,32,32,32,35,32,32,32,32,35,35,35,35,35
' D
DATA 35,35,35,35,32,35,32,32,32,35,35,32,32,32,35,35,32,32,32,35,35,35,35,35,32
' E
DATA 35,35,35,35,35,35,32,32,32,32,35,35,35,32,32,35,32,32,32,32,35,35,35,35,35
' F
DATA 35,35,35,35,35,35,32,32,32,32,35,35,35,32,32,35,32,32,32,32,35,32,32,32,32
' G
DATA 35,35,35,35,35,35,32,32,32,32,35,32,32,35,35,35,32,32,32,35,35,35,35,35,35
' H
DATA 35,32,32,32,35,35,32,32,32,35,35,35,35,35,35,35,32,32,32,35,35,32,32,32,35
' I
DATA 35,35,35,35,35,32,32,35,32,32,32,32,35,32,32,32,32,35,32,32,35,35,35,35,35
' J
DATA 32,32,32,32,35,32,32,32,32,35,32,32,32,32,35,35,32,32,32,35,35,35,35,35,35
' K
DATA 35,32,32,35,35,35,32,35,35,32,35,35,35,32,32,35,32,35,35,32,35,32,32,35,35
' L
DATA 35,32,32,32,32,35,32,32,32,32,35,32,32,32,32,35,32,32,32,32,35,35,35,35,35
' M
DATA 35,35,35,35,35,35,32,35,32,35,35,32,35,32,35,35,32,32,32,35,35,32,32,32,35
' N
DATA 35,32,32,32,35,35,35,32,32,35,35,32,35,32,35,35,32,32,35,35,35,32,32,32,35
' O
DATA 35,35,35,35,35,35,32,32,32,35,35,32,32,32,35,35,32,32,32,35,35,35,35,35,35
' P
DATA 35,35,35,35,35,35,32,32,32,35,35,35,35,35,35,35,32,32,32,32,35,32,32,32,32
' Q
DATA 35,35,35,35,35,35,32,32,32,35,35,32,35,32,35,35,32,32,35,35,35,35,35,35,35
' R
DATA 35,35,35,35,35,35,32,32,32,35,35,35,35,35,35,35,32,32,35,32,35,32,32,32,35
' S
DATA 32,35,35,35,32,35,32,32,32,32,32,35,35,35,32,32,32,32,32,35,32,35,35,35,32
' T
DATA 35,35,35,35,35,32,32,35,32,32,32,32,35,32,32,32,32,35,32,32,32,32,35,32,32
' U
DATA 35,32,32,32,35,35,32,32,32,35,35,32,32,32,35,35,32,32,32,35,35,35,35,35,35
' V
DATA 35,32,32,32,35,35,32,32,32,35,35,32,32,32,35,32,35,32,35,32,32,32,35,32,32
' W
DATA 35,32,32,32,35,35,32,32,32,35,35,32,35,32,35,35,35,32,35,35,35,32,32,32,35
' X
DATA 35,32,32,32,35,32,35,32,35,32,32,32,35,32,32,32,35,32,35,32,35,32,32,32,35
' Y
DATA 35,32,32,32,35,35,32,32,32,35,32,35,32,35,32,32,32,35,32,32,32,32,35,32,32
' Z
DATA 35,35,35,35,35,32,32,32,35,35,32,32,35,32,32,35,35,32,32,32,35,35,35,35,35

SUB biglet (char)
SHARED xpos, ypos, j, C()
IF char = 13 THEN xpos = 72
IF xpos > 71 THEN ypos = ypos + 6: j = 0
IF ypos > 23 THEN SCROLL: ypos = ypos - 6
xpos = (j * 6)
IF char = 13 THEN EXIT SUB
FOR Y = 1 TO 5
outchar$ = ""
LOCATE Y + ypos, 1 + xpos
FOR X = 1 TO 5
outchar$ = outchar$ + CHR$(C(char, X, Y))
NEXT X
PRINT outchar$;
NEXT Y
j = j + 1
END SUB

SUB bigprint (MSG$)
SHARED C()
MSG$ = UCASE$(MSG$)
L = LEN(MSG$)
FOR i = 1 TO L
X = ASC(MID$(MSG$, i, 1))
biglet X
NEXT i
END SUB

SUB SCROLL
LOCATE 24, 1
PRINT STRING$(6, 10);
END SUB



  3 Responses to “Category : Printer + Display Graphics
Archive   : BIGPRINT.ZIP
Filename : BIGPRINT.BAS

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/