home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / compiler / apbasic / debug.bas < prev    next >
BASIC Source File  |  1990-12-19  |  491b  |  32 lines
  1.  
  2.     ' ApBasic debugger test program
  3.     ' Created 10-4-87 By. K. Murray
  4.     '
  5. DefInt A-Z
  6.  
  7.     ' Print a pyramid
  8. For I=1 to 23
  9.   Locate I+1,40-I
  10.   Print String$(I*2,"*");
  11. Next I
  12.  
  13.     ' Scroll the banner across the top line
  14. Banner$="Welcome to the ApBasic debugger"
  15. Gosub Print.Banner
  16.  
  17. End
  18.  
  19.     ' Banner scrolling routine
  20. Print.Banner:
  21. Y=Len(Banner$)
  22. For X=1 to Y
  23.   Locate 1,1
  24.   Print Mid$(Banner$,Y-X+1);
  25. Next X
  26.  
  27. For X=1 to 40-Y/2
  28.   Locate 1,X
  29.   Print " ";Banner$
  30. Next X
  31. Return
  32.