home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
progm
/
baslib2.zip
/
BIGLTRS.BAS
< prev
next >
Wrap
BASIC Source File
|
1987-03-26
|
868b
|
42 lines
'Magnification of graphic mode characters by John Craig, Jeff Bretz
'Converted to Quickbasic 2.01 by Dennis Dreyer 3/87
'BIGLTRS.BAS
cls:color 4,15,1
locate 9,30:Print " "
locate 10,30,0:Print " A BIG letters demo "
locate 11,30:Print " In Quickbasic 2.01 "
locate 12,30:Print " "
color 4,4,1:locate 13,30:Print " "
locate 8,30:Print " "
locate 20,22:color 4,0:Print " To Quit after DEMO press any key!"
for w=1 to 10000:next
clear:screen 1:color 0,1:cls
line input "Enter Message ?";message$
input "Magnification ";mag
pixels =len(message$)*8
cls:print message$
for x=0 to pixels
for y=0 to 7
P=point (x,y)
if p=0 then goto YXNEXT
XP=mag*X
YP=mag*Y+23
line (xp,yp)-(xp+mag-1,yp+mag-1),P,BF
YXNEXT:
next y,x
while inkey$=""
wend
end