home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib40b.dsk / SUPERTRACE.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  421b  |  12 lines
  1. 10  REM   ******************************
  2. 20  REM   * SUPERTRACE.DEMO            *
  3. 30  REM   * COPYRIGHT(C) 1991          *  
  4. 40  REM   * MINDCRAFT PUBL. CORP.      *
  5. 50  REM   * CONCORD, MA 01742          *
  6. 60  REM   ******************************
  7. 70  HOME :A = 0:A2$ = "This is a string."
  8. 80 A = A +1:A1$(A) = A2$
  9. 90  IF A <10 GOTO 80
  10. 100 B = 5
  11. 110 B = B +5: FOR I = 1 TO 20: NEXT : PRINT "B = "B
  12. 120  IF B <100 GOTO 110