5 RESTORE 1000:CODE=30000:LOOP=0
10 READ D:IF D<>-1 THEN POKE CODE+LOOP,D:LOOP=LOOP+1:GOTO 10
20 ? "DRIVE";:INPUT DRIVE
30 IF DRIVE<0 OR DRIVE>9 THEN ? "ERROR, BAD DRIVE NUMBER ";DRIVE:STOP 
40 POKE 746,0:POKE 747,0:POKE 748,0:POKE 749,0
50 POKE 768,49:POKE 769,DRIVE:POKE 770,83:POKE 771,64:POKE 773,2:POKE 772,234:POKE 776,4:POKE 777,0
70 I=USR(CODE)
72 IF I<>0 THEN ? "ERROR ";I;" READING STATUS":GOTO 90
75 PRINT PEEK(776)+PEEK(777)*256;" BYTES READ"
80 ? "STATUS=";PEEK(746);",";PEEK(747);",";PEEK(748);",";PEEK(749)
90 ADDR=31000:CFGLEN=12
95 FOR Q=ADDR TO ADDR+CFGLEN-1:POKE Q,0:NEXT Q
100 POKE 768,49:POKE 776,CFGLEN:POKE 777,0
110 POKE 769,DRIVE:POKE 770,78:POKE 773,INT(ADDR/256):POKE 772,ADDR-PEEK(773)*256:POKE 771,64
120 I=USR(CODE)
125 IF I<>0 THEN ? "ERROR ";I;" READING CFG":GOTO 145
130 PRINT PEEK(776)+PEEK(777)*256;" BYTES READ"
140 FOR Q=ADDR TO ADDR+CFGLEN-1:? PEEK(Q);",";:NEXT Q:? 
145 END 
1000 DATA 104,169,0,133,212,133,213,32,89,228,16,2,132,212,96,-1