10
20 :
30 ON ERROR REPORT:*BYE
40 len%=?&80:?(&81+?&80)=13:?&80=0:cmd$=$&81
50 PRINT "Command length: ";len%
60 PRINT "Command line: >";cmd$;"<";
70 FOR fcb%=1 TO 2
80 PRINT '"File Block ";fcb%;": ";
90 FOR A%=&4C+fcb%*16 TO &5B+fcb%*16:PRINT " ";FNh0(?A%,2);:NEXT A%:PRINT'SPC15;
100 FOR A%=&4C+fcb%*16 TO &5B+fcb%*16:PRINT " ";FNc3(?A%);" ";:NEXT A%
110 NEXT
120 *BYE
130 :
140 DEFFNh0(A%,N%)=RIGHT$("0000000"+STR$~A%,N%)
150 DEFFNc3(A%):IF((A%+1)AND127)<33:="."ELSE=CHR$A%