REM 
REM *************************************************
REM * Dragon file header:                           *
REM * Start: $2401 Length: $00e5 Exec: $8b8d        *
REM *(Start: 09217 Length: 00229 Exec: 35725)       *
REM *************************************************
REM 
 3000 :'slette data
 3001  GO  SUB  3450
 3002 W=1
 3003 Q=73
 3004  FOR  S=Q+ LEN (DAT$(W))  TO  Q  STEP -1
 3005  PRINT @S," "; CHR$ (128); CHR$ (32)
 3006  BEEP 
 3007  NEXT  S
 3008  PRINT @S, CHR$ (32)
 3009 Q=Q+32
 3010 W=W+1: IF  W=9  THEN  3012
 3011  GO  TO  3004
 3012  FOR  Q=1  TO  8
 3013 DAT$(Q)=""
 3014  NEXT Q
 3015  GO  TO  1110