RomWBW/Source/TastyBasic/examples/DUMP.BAS

10 INPUT "ADDRESS"A
20 FOR I=0 TO 15
30 P=A+I*16
40 PRINT $16,P,
50 FOR J=0 TO 15
60 PRINT " ",$8,PEEK(P+J),
70 NEXT J
80 PRINT
90 NEXT I
100 INPUT ""Q
110 IF Q<0 GOTO 160
120 A=A+256
130 IF Q=0 GOTO 20
140 A=Q
150 GOTO 20
160 END