home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Brotikasten
/
BROTCD01.iso
/
cpc
/
cpcemu
/
utility
/
cpcpara.bas
(
.txt
)
next >
Wrap
Locomotive BASIC
|
1995-02-21
|
4KB
|
75 lines
CPCPARA BAS
CPCPARA.BAS (v1.1) -- receiving/sending with the parallel adapter
Marco Vieth, 21.2.1995
inactive
"Please wait..."
"Checksum ERROR !"
LOAD"!CPCPARA.BIN",ladr
"R)eceive or S)end ? ";
Receiving Part
"CPCPARA v1.1 - receiving part"
"This program allows you to receive files from a PC using the parallel adapter"
"TRM:"
"Receiving file ";
"Ok."
Receive-Terminal
"Terminal Mode"
Sending Part
buffe
buffe
"CPCPARA v1.1 - sending part"
"This program allows you to send files to a PC using the parallel adapter"
"File to send (ret=Terminal, !=test): "
"Sending a File ... (works from DISK only!)"
buffe
"Error ! Press a key to retry ..."
"Ok."
Sendfile in Basic (not used any more):
,":")
"Line ";
send end
Terminal
"CPC-Terminal started."
"Exit with '#'."
"TRM:"
terminal mode
"> ",
send end
"test adapter"
"sending nibble..."
);" ";
C3,A8,A0,C3,BB,A0,C3,CC,A0,C3,D2,A1,C3,DF,A1,C3
EF,A1,00,C5,D5,E5,11,20,4E,06,F5,ED,78,E6,40,6F
3E,BF,06,EF,ED,79,06,F5,ED,78,4F,E6,40,AD,20,06
1B,7A,B3,20,F1,37,F5,3E,FF,06,EF,ED,79,F1,38,3A
1E,00,16,08,F3,21,10,27,06,F5,79,E6,40,4F,ED,78
E6,40,A9,20,08,2B,7C,B5,20,F4,37,18,1D,3E,DF,06
EF,ED,79,ED,79,06,F5,ED,78,FB,4F,17,17,CB,1B,06
EF,3E,FF,ED,79,15,20,CC,A7,7B,E1,D1,C1,FB,C9,CD
13,A0,38,23,77,B7,37,28,1E,47,23,7E,23,66,6F,04
18,12,11,0A,00,CD,13,A0,30,08,1B,7A,B3,20,F6,37
18,05,77,23,10,EC,A7,C9,FE,01,C0,DD,6E,00,DD,66
01,CD,13,A0,77,3E,00,8F,23,77,C9,FE,01,C0,DD,6E
00,DD,66,01,E5,CD,7F,A0,E1,D0,36,00,C9,F1,37,C9
F5,CD,DB,A0,38,F7,F1,0F,0F,0F,0F,C5,D5,E6,0F,07
07,07,E6,7F,4F,11,30,75,06,F5,ED,78,E6,40,28,0B
1B,7A,B3,20,F3,37,18,15,11,30,75,06,EF,ED,49,06
F5,ED,78,E6,40,20,06,1B,7A,B3,20,F3,37,3E,FF,06
EF,ED,79,D1,C1,C9,78,B1,C8,79,CD,D0,A0,D8,03,18
06,7E,23,CD,D0,A0,D8,0B,78,B1,20,F5,C9,47,E5,C5
CD,77,BC,C1,E3,DD,E1,3F,D8,48,06,00,CD,16,A1,38
73,DD,7E,12,FE,16,30,22,21,10,A2,54,5D,D5,13,36
00,01,7F,00,ED,B0,D1,DD,E5,E1,01,45,00,ED,B0,21
10,A2,01,80,00,CD,16,A1,38,4A,ED,5B,7D,BE,CD,80
BC,38,04,FE,0F,28,42,21,68,00,19,4E,36,00,23,46
36,00,21,95,00,19,7E,91,77,23,7E,98,77,23,7E,DE
00,77,21,53,00,19,7E,23,66,6F,2B,03,59,50,7A,B3
28,C8,01,80,00,EB,B7,ED,42,30,03,B7,09,4D,EB,CD
16,A1,30,EA,CD,7A,BC,37,C9,3E,00,CD,D0,A0,38,F4
CD,7A,BC,3F,C9,DD,6E,00,DD,66,01,7E,23,5E,23,56
EB,C9,FE,01,37,20,31,DD,7E,00,CD,D0,A0,18,29,FE
01,37,20,24,CD,C5,A1,4F,06,00,CD,16,A1,18,19,FE
02,37,20,14,DD,5E,00,DD,56,01,DD,23,DD,23,D5,CD
C5,A1,D1,CD,2D,A1,18,00,3E,00,CE,00,32,12,A0,C9
EF9B