User`s manual

3. DISPLAYT&S
lee REM"'''''..'*' ' *-.
lIe REt1'" DI SPLA'T' A~JY TRACK $ SECTOR '"
1213 REM. ON THE DISK TO THE SCREEN .
1313 REM. OR THE PRINTER *-
1413 REM"'''''''''''''''''''''''''''''''''''''''''''*'''''''''*'''**'''''''''''''''..
1513 PRHH":'IIIiIIl
1613 PRHIT"DISPLA'T' BLOCK COtnENTS"
165 PRINT" ":
1713REM * "''''.'''.'''.........
1813 REM'" SET PROORAM CONSTANT ...
1913REM..".'."".." "'......_._.
21313SP$=" ": NL$=CHR$(e) :H7~$="eI23456789ABCDEF"
2113 FS$="":FORI=64 TO 95:FS$=FS$+"~"+CHR$(I)+"!!":NEXT I
2213 SS$=" ":FOR 1=192 TO 223:SS$=SS$+"~"+CHR$(I)+"!!":NEXT
2413
DIM A$(15),NB(2)
251 D$="0"
253 PRINT" ~!!!J;REENQ.DI..II.8)R QI:P!!RINTER"
254 GETJJ$: IF JJ$="" THEN254
255 IF JJ$="S"THE~IPRHIT"
256 IF JJ$="P"THENPRINT"
2613 OPEN15.8.15."I"+D$:GOSUB
265 OPEN4.4
2713 OPEN 2,8,2, "#":OOSUB 650
2813 REM."' ",,,,...*...,,, *,,,,,,.,,,***,,,
2913 REM'" LOAD TRACK AND SECTOR *
31313REM... INTO DISK BUFFER .
3113 REt1"'.************"'** *............
3213 INPUT" :ODITRACK, SECTOR".: T.' S
3313 IF T=e OR T>35 THEN PRINT#15."I"D$:CLOSE2:CLOSE4:CLOSE15:PRINT"END":E~1D
3413 IF JJ$="S" THEN PRINT":ODITRACK"T" SECTOR"S")1"
341 IF JJ$="P" THEN PRINT#4:PRINT#4."TRACK"T" SECTOR"S:PRINT#4
3513 PRINT#15."Ul:2,"D$;T;S:GOSUB650
3613 REM *** ** "' * *............
3713 REM. READ BYTE 13 OF DISK BUFFER ...
3913 REM................................................
4013 PRINT#15,"B-P:2,1"
4113 PRINT#15, "M-R"CHR$(e)CHR$(5)
4213 GET#15,A$(e):IFA$(e)=""THENA$(e)=NL$
428 IF JJ$="S"THEN43e
4313 IF JJ$="P"THE~146e
431 REM "'...** "'''''''*******''' * '''
432 REM* READ & CRT DISPLAY ...
433 REM'"REST OF THE DISK BUFFER ...
434 REM................................................................
436 K=l:NB(l)=ASC(A$(13»
438 FOR J=e TO 63: IF J=32 THEN GOSUB 7H): IF Z$="N"THEN J=80:00TO 458
4413 FOR I=K TO 3
442 GET#2, A$( 1) : IF A$( 1)='''' THEN A$( 1)=t.jL$
444 IF K=l AND 1(2 THEN NB(2)=ASC(A$(I»
446 NEXT I: K=0
448 A$="":B$=":":N-J.4:00SUB 7ge:A$=A$+":"
4~e FOR 1=0 TO 3:N=ASC(A$(I»:GOSUB 790
452 C$=A$(I):GOSUB 8513:B$=B$+C$
454 NEXT I:IF JJ$="S" THEN PRINTA$B$
458 NEXT J:GOT0571
)1~CREEN!!"
)1:PRINTER!!"
6513
49