home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / basic / QBPRO7.ZIP / XREFTEST.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-07-24  |  258 b   |  18 lines
  1. '    This is a sample program designed to produce an "interesting"
  2. '    cross-reference file.
  3.  
  4.     A = 1
  5.     B = 2
  6.     C = 3
  7. Top:
  8.     D = A * B
  9.     A = A + 1
  10.     B$ = "Hello"
  11.     C$ = " World"
  12.     PRINT C$
  13.     IF A < 3 GOTO Top
  14.     RESTORE Bottom
  15.     READ A$
  16. Bottom:
  17.     DATA Cruel
  18.