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