1000 REM THREE-D MAP SEARCH (With Contour Bands)
1120 TRD% = 2 'Display third dimension as bands
3760 IF Q$ = "R" THEN TRD% = (TRD% + 1) MOD 3: T% = 3: IF N > 999 THEN N = 999
4490 IF TRD% = 2 THEN PRINT "bands "
5130 IF TRD% = 2 THEN PSET (XP, YP), COLR%(INT(60 * (Z - ZMIN) / (ZMAX - ZMIN) + 4) MOD 4)
5240 RETURN