User`s manual

4613 REM******************************
462 REM* READ & PRINTER DISPLAY *
464 REM********************_**_******
466 K~l:NB(l)=A$C(A$(e»
468 FOR J=0 TO 15
4713 FOR I=K TO 15
472 GETII2, A$<I): IF A$( I)="" THEN A$( I)=NL$
474 IF K=l AND 1<2 THEN NB(2)=ASC(A$(I»
476 NEXT I: K=0
476 A$="":B$=":":N=J*16:GOSUB 790:A$=A$+":"
4813 FOR I-a TO 15:N=ASC(A$(I»:GOSUB 7913: IF Z$="N"THEN J=4e:00TO 571
462 C$=A$(I):GOSUB sse:B$=B$+C$
4S4 NEXT I
486 IF JJ$="P" THEN PRINT#4,A$B$
488 NEXT J:00T0571
571
REM*_****_*_*********************
572 REM* NEXT TRACK AND SECTOR
_
573 REM*_***_**_*****_***************
575 PRINT"NEXT TRACK AND SECTOR"NB(1)NB(2) "II"
560 PRINT"DO YOU WANT NEXT TRACK AND SECTOR"
5913 GET 2$:IF 2$="" THEN598
6013 IF 2$="Y" THEN T=NB(1):S=NB(2):GOT0330
6113 IF 2$="N" THEN 3213
6213 OOTO 5913
6313 REM********************_*********
6413 REM* SUBROUTINES _
6513 REM******__****_**************__*
6613REM* ERROR ROUTINE *
6713 REM***_**************************
6813 INPUTII15,EN,EM$,ET,ES:IF EN=0 THEN RETURN
690 PRINT"=rDISK ERROR!!!"EN,EM$,ET,ES
7013 END
7113 REM****************************_*
7213 REM* SCREEN CONTINUE MESSAOE
_
7313 REM_*_***_*_*****************__*_
7413 PRINT" CONTINUE(Yt'N)"
7513 OET2$:IF Z$="" THEN 750
7613 IF 2$="N" THEN RETURN
7713 IF
2$O"Y" THEN 7513
7813 PRINT":'1TRACK" T " SECTOR"S ":']":RETURN
7913 REM*_****_*************__*_***.._
81313REM_ DISK BYTE TO HEX PRINT _
8113 REM*********.**.*****************
8213 Al=INT(Nt'16):A$=A$+MID$(HX$,Al+l,1)
8313 A2=INT(N-16*A1):A$=A$+MID$(HX$,A2+1,1)
8413 A$=A$+SP$:RETURN
8513 REM******************************
8613 REM* DISK BYTE TO ASC DISPLAY *
6713REM* CHARACTER *
sse REM******************************
89121 IF ASC(C$)<:32 THEN C$=" ":RETURN
9113 IF
ASC(C$)(128 OR ASC(C$»159 THEN RETURN
920 C$=MID$(SS$,3*(ASC(C$)-127),:3):RETURN
50