[Coco] DATA FILE LISTER

[coco at jechar.ca]

All

I a trying to open a data file with 64 byte records and print each 
record to the screen. I call it LIST.BAS

The code is shown below the main program ends at line 460 the 
subroutines
are just for showing a directory and then returning to a 80 col mode.

100 '(c)2023 Charlie  coco at jechar.ca GNU.
110 'Program to LIST a data file.
130 CT=0:'COMPUTER TYPE 0=UNDETERMINED
140 CT=PEEK(&HFFFE)*256+PEEK(&HFFFF)
150 'IF IT IS A COCO 3 THEN SET TO HIGH SPEED
160 IF CT=35867 THEN POKE 65497,0
165 PRINT "CHOOSE DRIVE ( 0,1 or 2)";
166 INPUT D
170 CLS
175 TB$="        "
180 IF  CT=35867 THEN GOSUB 6400
185 PRINT "    CHOOSE THE FILE TO DISPLAY":PRINT
190 DIR D
200 PRINT "FILE NAME ";
210 INPUT F$
260 F$=F$+":"+CHR$(48+D)
270 GOSUB 8000
300 OPEN "D",#1,F$,64
310 FIELD #1,1 AS HD$
305 DP=1
380 'LOOP
390 :GET #1,DP
400 :PRINT TB$;HD$
410 :DP=DP+1
430 IF DP<20 THEN GOTO 380
440 CLOSE #1
460 END
6400 'SUB TO PUT SCREEN IN 64 COL MODE
6410 WIDTH 80:CLS 5
6420 POKE &HE046,17:WIDTH 80:POKE &HFE04,64:POKE &HF871,&H80
6430 POKE &HF875,&H2B:POKE &HF876,&H80:POKE &HFE06,&H2C
6440 'Two Cols
6450 POKE &HFE04,32
6460 RETURN
8000 'SUB TO PUT SCREEN IN 80 COL MODE
8010 WIDTH 80
8020 POKE &HE046,21:WIDTH 80:POKE &HFE04,80:POKE &HF871,&HA0
8030 POKE &HF875,&H2E:POKE &HF876,&H60:POKE &HFE06,&H2F
8040 POKE &HFE04,80
8050 RETURN

The problem is that only the first byte prints for each record.
Where have I gone wrong ?

Charlie