home *** CD-ROM | disk | FTP | other *** search
/ ZAM 3 / ZAM 3.adf / Source / Txt_Enlarger.AMOS / Txt_Enlarger.amosSourceCode < prev   
Encoding:
AMOS Source Code  |  1990-12-11  |  976 b   |  34 lines
  1. '  TEXT ENLARGER PROGRAM 
  2. '
  3. '      Programmed by   
  4. '
  5. '   HAWK IN JANUARY 1993 
  6. '
  7.  
  8. Screen Open 0,320,200,2,Lowres : Screen Hide 0
  9.  
  10. Screen Open 1,320,200,2,Lowres : Cls 0 : Double Buffer : Autoback 0 : Bob Update Off 
  11.  
  12. D$="TEXT ENLARGER PROGRAM CODED BY   HAWK   IN 1993"
  13. X=0 : Y=0
  14. For T=1 To Len(D$)
  15.    Screen 0 : Home : Print Mid$(D$,T,1);
  16.    For X=0 To 7
  17.       For Y=0 To 8
  18.          If Point(X,Y)<>0
  19.             Screen 1
  20.             Paste Bob 70+(X*24),Y*24,1
  21.             Screen 0
  22.          End If 
  23.       Next Y
  24.    Next X
  25.    Screen 1 : Screen Swap : Wait 5 : Cls 0
  26. Next T
  27.  
  28. ' Not a program you are likely to use very often! However, if you have 
  29. ' a picture on screen 0 instead of text (ie. a letter drawn in DPaint
  30. ' with a few more colours) and then alter the X&Y variables accordingly, 
  31. ' perhaps displaying a different bob depending on the colour of the X,Y
  32. ' position? I've tried it, now you've got to!  
  33. '
  34. '                                             HAWK  JANUARY 1993