20000 REM BASIC LINE DUMP UTILITY ›20100 REM by W. A. Bell May 1981›20200 REM " Englewood, Colorado ›20300 CLR :DIM HEX$(16),Q$(1)›20400 HEX$="0123456789ABCDEF"›20500 LINEADR=PEEK(136)+256*PEEK(137)›20600 PRINT "ENTER LINE NUMBER TO BE DUMPED";:INPUT LINENUM›20700 THISLINE=PEEK(LINEADR)+256*PEEK(LINEADR+1)›20800 IF THISLINE>LINENUM THEN PRINT "LINE DOESN'T EXIST - TRY ANOTHER":GOTO 20500›20900 IF THISLINE=LINENUM THEN 21300›21000 LINEADR=LINEADR+PEEK(LINEADR+2)›21100 GOTO 20700›21300 PRINT CHR$(125);"LINE # ";THISLINE;" START ADDRESS = ";LINEADR›21400 LIST LINENUM›21500 Z=10:Y=5:MAXADR=LINEADR+PEEK(LINEADR+2)›21600 IF LINEADR+Z>MAXADR THEN Z=MAXADR-LINEADR›21700 FOR I=0 TO Z-1›21800 POSITION 2,Y›21900 PRINT "DEC"›22000 PRINT "HEX"›22100 PRINT "CHAR"›22400 Q=PEEK(LINEADR+I):X=3*I+8›22500 Q$=CHR$(Q)›22600 HEX1=INT(Q/16):HEX0=Q-16*HEX1›22700 POSITION X,Y›22800 PRINT Q›22900 POSITION X,Y+1›23000 PRINT HEX$(HEX1+1,HEX1+1);HEX$(HEX0+1,HEX0+1)›23100 POSITION X,Y+2›23200 PRINT Q$›23300 NEXT I›23400 LINEADR=LINEADR+Z:Y=Y+3›23500 IF Y<21 THEN 23900›23600 PRINT "ENTER าลิีาฮ FOR NEXT PAGE";›23700 INPUT Q$›23800 PRINT CHR$(125);"DUMP CONTINUES AT ADDRESS ";›23900 IF LINEADR