10  REM PROGRAM NAME = FIELDT, SCALAR TEMPERATURE MAP
20  PRINT "WITH FIELDT YOU CAN EXPLORE A PROPERTY OF A SCALAR FIELD."
30  PRINT "THE PROGRAM WILL PRINT A MAP OF POINTS.  DRAW A CONTINUOUS LINE "
40  PRINT "THROUGH EACH SET OF POINTS THAT HAVE THE SAME LETTER."
50  PRINT '10"----- SCALAR MAP:"'10
60  DIM A[20,20],A$[3],B$[72]
70  MAT A=ZER
80  FOR D=8 TO 13
90  FOR E=8 TO 12
100  IF (D=9 OR D=10) AND (E=9 OR E=10) THEN 140
110  LET F=INT(4*RND(1)+1)
120  IF F#2 THEN 140
130  LET A[D,E]=1
140  NEXT E
150  NEXT D
160  FOR D=5 TO 15
170  FOR E=5 TO 15
180  IF D<8 THEN 220
190  IF D>13 THEN 220
200  IF (D>7 AND E<8) OR (D>7 AND E>12) THEN 220
210  GOTO 250
220  LET F=INT(6*RND(1)+1)
230  IF F#2 THEN 250
240  LET A[D,E]=2
250  NEXT E
260  NEXT D
270  FOR D=1 TO 20
280  FOR E=1 TO 20
290  IF D<4 THEN 330
300  IF D>16 THEN 330
310  IF (D>5 AND E<5) OR (D>5 AND E>15) THEN 330
320  GOTO 360
330  LET F=INT(10*RND(1)+1)
340  IF F#3 THEN 360
350  LET A[D,E]=3
360  NEXT E
370  NEXT D
380  REM PRINT
390  FOR R=1 TO 20
400  FOR C=1 TO 20
410  GOTO (A[R,C]+1) OF 420,440,460,480
420  PRINT "  ";
430  GOTO 500
440  PRINT "A.";
450  GOTO 500
460  PRINT "B.";
470  GOTO 500
480  PRINT "C.";
490  GOTO 500
500  NEXT C
510  PRINT '10
520  NEXT R
530  PRINT '10"DRAW THE LINES NOW. INPUT THE WORD READY WHEN YOU HAVE FINISHED."
540  PRINT "----------------------------TEAR HERE-------------------------------"
550  PRINT '10'10'10'10'10'10'10'10'10'10'10
560  ENTER 200,W,B$
570  PRINT 
580  PRINT 
590  LET A$="ABC"
600  PRINT "LINES CONNECTING       TEMPERATURE"
610  PRINT "    POINTS         (DEGREES CELSIUS)"
620  FOR X=1 TO 3
630  LET T[X]=INT(100*RND(1)+1)
640  PRINT SPA(6);A$[X,X];SPA(19);T[X]
650  NEXT X
660  PRINT 
670  PRINT "THE DIAGRAM REPRESENTS A SCALAR FIELD BECAUSE TEMPERATURE IS"
680  PRINT "A PROPERTY WHICH HAS MAGNITUDE (DEGREES) BUT NOT DIRECTION."
690  PRINT 
700  FOR X=1 TO 2
710  PRINT "WHAT IS THE TEMPERATURE DIFFERENCE(DEGREES)"
720  PRINT "BETWEEN LINES "A$[X,X]" AND "A$[X+1,X+1]"?  ";
730  ENTER 200,W,H
740  PRINT '13
750  LET H1=ABS(T[X]-T[X+1])
760  IF (H1-H)=0 THEN 800
770  PRINT TAB(5)"THE DIFFERENCE IN TEMPERATURE IS THE ABSOLUTE VALUE OF"
780  PRINT TAB(5),T[X]"MINUS "T[X+1]"  TRY AGAIN."'10
790  GOTO 710
800  PRINT "     RIGHT."
810  PRINT 
820  NEXT X
830  FOR X=1 TO 2
840  PRINT "WHAT IS THE DIRECTION(IN OR OUT) OF HEAT FLOW"
850  PRINT "BETWEEN LINES "A$[X,X]" AND "A$[X+1,X+1]"?  ";
860  GOTO 890
870  PRINT "     INPUT EITHER THE WORD IN OR THE WORD OUT."
880  GOTO 840
890  ENTER 200,W,B$
900  PRINT '13
910  IF B$="IN" THEN 950
920  IF B$#"OUT" THEN 870
930  LET A3=1
940  GOTO 960
950  LET A3=0
960  IF T[X]-T[X+1]<0 THEN 990
970  LET S1=1
980  GOTO 1000
990  LET S1=0
1000  IF A3=S1 THEN 1040
1010  PRINT "     HEAT FLOWS FROM HIGHER TEMPERATURE TO LOWER TEMPERATURE."
1020  PRINT 
1030  GOTO 840
1040  PRINT "     RIGHT."
1050  PRINT 
1060  NEXT X
1070  END 
