AppleSoft BASIC program that displays memory locations of the program

[mmphosis]

100 HOME
110 PRINT "APPLESOFT BASIC"
120 PRINT
130 POKE 768,165: POKE 770,76
140 POKE 771,218: POKE 772,253
150 READ A,S$,T$
160 PRINT "$";
170 POKE 769,A + 1: CALL 768
180 POKE 769,A: CALL 768
190 PRINT " ";
210 PRINT A"-"A + 1;
230 POKE 769,250
240 PRINT " $";
250 POKE 250,A: CALL 768
260 PRINT "-$";
270 POKE 250,A + 1: CALL 768
280 PRINT : PRINT TAB( 7);
290 PRINT S$" "T$
291 PRINT
300 IF A < > 115 THEN 150
309 CALL - 998
310 PRINT TAB( 23);: CLEAR
320 LET N = ( FRE (0) < 0)
330 IF N GOTO 360
340 CLEAR : PRINT FRE (0);
350 GOTO 380
360 CLEAR
370 PRINT FRE (0) + 65536;
380 PRINT " BYTES FREE.";
390 END
400 DATA103
410 DATA"START OF"
420 DATA"PROGRAM"
450 DATA175
460 DATA"END OF"
470 DATA"APPLESOFT PROGRAM"
500 DATA105
510 DATA"LOMEM: START OF"
520 DATA"VARIABLE SPACE"
600 DATA107
610 DATA"START OF"
620 DATA"ARRAY SPACE"
700 DATA109
710 DATA"END OF"
720 DATA"ARRAY SPACE"
800 DATA111
810 DATA"START OF"
820 DATA"STRING STORAGE"
900 DATA115
910 DATA"HIMEM"
920 DATA"+ 1"