006
10.10.2013, 21:54 Uhr
Dekay
|
Ev. kannst Du XModem programmieren. Z.B. dieses Basic Programm: 100 print "Enter filename:" : input f$ 110 open 1,8,3,f$+",s,w" 200 open 2,2,3,chr$(26)+chr$(1) 210 print#2, chr$(21); 220 b = 1 300 gosub 500 310 if asc(c$) <> 1 goto 600 320 gosub 500 330 gosub 500 340 for i = 1 to 128 350 gosub 500 360 print#1, c$; 370 next 380 gosub 500 390 print "Received block "; b 400 b = b + 1 410 print#2, chr$(6); 420 goto 300 500 get#2, c$ : if st = 16 goto 500 502 if c$ = "" then c$ = chr$(0) 510 return 600 print#2, chr$(6); 610 close 1 : close 2 Dieser Post wurde am 10.10.2013 um 21:55 Uhr von Dekay editiert. |