1000 REM THREE-D MAP SEARCH (With Color Display)
1120 TRD% = 3 'Display third dimension in color
3760 IF Q$ = "R" THEN TRD% = (TRD% + 1) MOD 4: T% = 3: IF N > 999 THEN N = 999: GOSUB 5600
4500 IF TRD% = 3 THEN PRINT "colors "
5160 IF TRD% = 3 THEN PSET (XP, YP), COLR%(INT(NC% * (Z - ZMIN) / (ZMAX - ZMIN) + NC%) MOD NC%)
5610 NC% = 15 'Number of colors
5630 IF TRD% = 3 THEN FOR I% = 0 TO NC%: COLR%(I%) = I% + 1: NEXT I%