Commodore vic-1540 User Manual page 80

460 REM******************************
462 REM* RERD & PRINTER DISPLRY *
464 REM******************************
466 K-fNB(l)-RSC<R$<0))
463 FOR J-0 TO 15
470 FOR I»K TO 13
472 0ET#2,flf(I):lF fl$(I)-IMI THEN Rf<I>»Nl*
474 IF K«l RND ,I<2 THEN NB<2>-fiSC<fl$<I>>
476 NEXT l'.K«e
478 R*«" H • B*«" ■ " : N-J*16 ' • OOSUB 790: fi$«fl$+" * • "
480 FOR I«0 TO 15:H"RSC<Rt<X»'-G0SUB 790:IF Z*»"N"THEN J«40'GQTO 371
432 C*»R*a>: OOSUB 850:B*«Bt+C*
434 NEXT I
436 IF JJ*-"P» THEN PRINT#4,fl$B$
433 NEXT J:G0T0S71
571 REM********#*****#*******#**##«**
572 REM* NEXT TRRCK RND SECTOR #
573 REMm*mm*mmiMi***********
575 PRINT"NEXT TRRCK RND SECT0Rl(NB<l)NB<2) MM"
536 PRINT"DO VOU WRNT NEXT TRRCK RND SECTOR"
590 GET Z$-IF Z$="" THEH590
600 IF Z*-^11 THEN T-NB(1)--S«NB<2>:GOTO330
610 IF Z$=»"N" THEN 320
620 GOTO 590
630 REM******************************
649 REM* SUBROUTINES *
650 REM******************************
660 REM* ERROR ROUTINE ♦
670 REM******************************
630 INPUT#15,EN,EM$,ET,ES-IF EN=0 THEN RETURN
690 PRINT"3DISK ERRORS"EN>EM*,ET,ES
700 END
710 REM******************************
720 REM* SCREEN CONTINUE MSSG ♦
730 REM******************************
740 PRINTM»MIICONTINUE<V/N>3"
750 GETZ^IF Z*«IMI THEN 750
760 IF Z$="N" THEN RETURN
770 IF Z$O"V" THEN 750
780 PRINT'TJTRRCK11 T " SECTOR"S "T'RETURN
790 REM******************************
300 REM* DISK BVTE TO HEX PRINT *
810 REM******************************
820 Rl=INT<N/16>:R*«fi*+MID$<HX$,Rl+l,l>
830 R2=INT<N-16*fll):fi*»fi*+MID$<HX$,fi2+l,l>
840 RisRt+SP**. RETURN
850 REM******************************
860 REM* DISK BVTE TO RSC DISPLRV *
870 REM* CHRRRCTER ♦
330 REM******************************
890 IF RSCCC$><32 THEN C*»" "-RETURN
910 IF RSC<C$X128 OR RSC<C$»159 THEN RETURN
920 C$=MID$<SS$,3*<fiSC<C$)-127>,3>:RETURN
73