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