Commodore Computer Commodore 64 Manual de usuario descargar pdf (Pagina 53)

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

6313REM********************_*********

6413REM* 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

7113REM****************************_*

7213REM* 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

1 2 ... 48 49 50 51 52 53 54 55 56 57 58 ... 64 65

Comentarios a estos manuales

Sin comentarios

Commodore Computer Commodore 64 Manual de usuario Pagina 53

Comentarios a estos manuales

Relacionado con productos y manuales para Barebones Pc / Estación De Trabajo Commodore Computer Commodore 64