Sharp PC-1600 Systemhandbuch Seite 262

Hardware der Peripheriegerä t e
8.4.3 Transferprogramm
'l..~:
;?0: 0 [M
30: SE
40;SE'DEv
'j0:0UTST(.lT
60: RE!'",
7l/l:· · R · · G DSU3
80:8=E-,~· 1 :
30:
100:.Ci$(0)~· · : 0· · " 'hExlI
1 c. GOSUB
i
120:RE"
130:5=0
140:
150:G05UB
160:FOR
170:0=PEEK»
18iG1:
19e.:~$(0)=A$(0)"hEx$
2012i:NExT I
210:S=S+B ...
220:SL=256-CS-[NT
230:
240:A$(0)=A$C0~~RlGHT$
25~:REM
260:U'RINT
255:PR!NT
2/0:
280:REM
290: LPR INT· ·
30~:BEEP
310:END
320:REM
330:CiOJR$=HEX$
3 4 0:L=LEN
350: [F L=4THEN
360:FOR
370:A$(0)=A$(0)+-AoDR$
380:CiI-i=INT (Q'256):AL=A-Ah*256
3'30: RETURN
400: .'! "REII
"t10:CLS :PRINT
420:0N
430: [NPUT
440: INPUT
450: [NPUr
460:0N
470:RETURN
480: "H· · R EM
490:RESUME
500:REM
505:S$=""
510:FOR
520:o=PEE~#
530: [F O<16LET
540:S$=S$+HEX$
550:Q$(0)=A$(0)· S $
560:RErURN
' * '
x
F<E1'1 [N TEl, HE
:t,i
(I,:;'n -"810
Q$
TCOl1 .. C OMi: .' , '18vJ~.:, : , ;: ,
"COM1:",P(l
· · C Of'il:
'.,'1
*
f1A[N
.t-
"I· '
8>lSLET
[F
[F B<0THEN "R· ·
B
320: A$('1)=C!$(0).. · · 0 0·
' * ' ' * '
DAIA SEND
B< >16ThEN 160
[F
500:GOSUB 500:50TO
l=0TO B-1
(K,Ci);S=S"O
[F D<16LET A$(0) =A$(0)+· · 0 "
O:A=A+1
AH"AL
(5/256)~256)
LEN HEx$ SL=1.LET A$(0)=0$(0)
[F
*
*
SEND DATA
A$(0)
C!$(0)
A -1< >E Tl-iEN 80
[F
* *
END
:000000~1
FF· '
2
**
** AOoR Dur
Ci
ADDR$
370
I=0TO 3-L:A$(0)=Q$(0)
*
INPUT BQNK, CioDR
..
ERROR GOTO
'h"
..
BANK
No.
51AR T AoDR
"
END
AooR
ERROR GOTo 0
*
1 NPU TERROR
.. I ..
I=0TO 7
(K,A):S=S .. O
S$=5$+"0·
O:A=~.l:NEXT
Do not sale !
UPLClrJrI
F ()F<f'"iA T . P RrJGRAl,
'>,
» ;
B=16:A$(V.l)=":Hl":GCTO
210
.. " 0"
CHExt 5L,2)
.... 0.:NExT
' * '
**.._ *** ..
UPLOQO
#";K.
.. ;A
";E
*
252
* ~
' * '
110