10? "  Put paper in printer":?
20? "  Hit any key when ready.":GET q$
30PR #1
100IF PEEK(259)=205 GOTO 140
120 address=(PEEK(257)+PEEK(258)*256)+54
130GOTO 150
140 address=PEEK(260)+PEEK(261)*256
150FOR i=1 TO 13
160READ desc$, offset
170? desc$; " is at "; address+offset
180NEXT
190PR #0:END
200DATA   "Himem setting",0,"lomem setting",6
210DATA   "Pointer to start of mumeric values",10
220DATA   "pointer to end of numeric values",20
230DATA   "pointer to start of string space",22
240DATA   "Pointer to end of string space",26
250DATA   "Line number where error occured",37
260DATA   "speed setting",40
270DATA   "USR function address",41
280DATA   "Floating point accumulator",73
290DATA     "Floating point operand",82  
300DATA   "Ampersand routine address",43
310DATA   "Number of significant digits on output",89
