The program:

! do trace,slow(i,j,a$)

DIM name$(1 to 3,1 to 3)

LET name$(1,1)="Fifi"

LET name$(2,1)="Mimi"

LET name$(3,1)="Irma"

LET name$(1,2)="$150"

LET name$(2,2)="$100"

LET name$(3,2)="$200"

LET name$(1,3)="$500"

LET name$(2,3)="$400"

LET name$(3,3)="$1500"

SET COLOR "red"

PRINT "Tutor","Psychology","True BASIC"

SET COLOR "blue"

FOR i=1 to 3 ! line number

FOR j=1 to 3 ! column number

PRINT name$(i,j), ! column entry

LET a$=name$(i,j) ! array value for do trace

NEXT j ! next column

PRINT ! move to next line

NEXT i ! increase line number

END

The output:

Tutor Psychology True BASIC

Fifi $150 $500

Mimi $100 $400

Irma $200 $1500