home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1997 June / PCO_06_97.ISO / filesbbs / DOS / CPCEMU14.ARJ / CPCREC.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-08-15  |  1.4 KB  |  35 lines
  1. 100 REM CPCREC.BAS - program to receive a file from the PC
  2. 110 REM Marco Vieth, 26.7.1994
  3. 120 REM
  4. 130 CLEAR:DEFSTR a:DEFINT b-z
  5. 140 ladr=&A000:IF PEEK(ladr)=&FE THEN 180
  6. 150 PRINT"Please wait...":MEMORY ladr-1
  7. 160 sum=0:FOR i=&A000 TO &A0A6:READ t$:POKE i,VAL("&"+t$):sum=UNT(sum+PEEK(i))
  8. 170 NEXT:READ t$:IF VAL("&"+t$)<>sum THEN PRINT"Checksum ERROR !":STOP
  9. 180 CLOSEIN:CLOSEOUT
  10. 190 OUT &EF00,&FF:'inactive
  11. 200 MODE 2
  12. 210 PRINT"CPCREC v1.0 - program to receive files"
  13. 220 PRINT"from a PC using the parallel interface"
  14. 230 PRINT
  15. 240 a=SPACE$(255)
  16. 250 CALL ladr,@a:IF LEN(a)=0 THEN 250
  17. 260 IF a="TRM:" THEN PRINT"Terminal not supported.":STOP
  18. 270 PRINT"Receiving file ";a
  19. 280 OPENOUT "!"+a
  20. 290 CALL ladr,@a:IF LEN(a)>0 THEN PRINT#9,a;:GOTO 290
  21. 300 CLOSEOUT:PRINT"Ok.":PRINT:GOTO 210
  22. 310 DATA FE,01,C0,DD,6E,00,DD,66,01,E5,CD,7E,A0,E1,D0,36
  23. 320 DATA 00,C9,C5,D5,E5,11,20,4E,06,F5,ED,78,E6,40,6F,3E
  24. 330 DATA BF,06,EF,ED,79,06,F5,ED,78,4F,E6,40,AD,20,06,1B
  25. 340 DATA 7A,B3,20,F1,37,F5,3E,FF,06,EF,ED,79,F1,38,3A,1E
  26. 350 DATA 00,16,08,F3,21,10,27,06,F5,79,E6,40,4F,ED,78,E6
  27. 360 DATA 40,A9,20,08,2B,7C,B5,20,F4,37,18,1D,3E,DF,06,EF
  28. 370 DATA ED,79,ED,79,06,F5,ED,78,FB,4F,17,17,CB,1B,06,EF
  29. 380 DATA 3E,FF,ED,79,15,20,CC,A7,7B,E1,D1,C1,FB,C9,CD,12
  30. 390 DATA A0,38,23,77,B7,37,28,1E,47,23,7E,23,66,6F,04,18
  31. 400 DATA 12,11,0A,00,CD,12,A0,30,08,1B,7A,B3,20,F6,37,18
  32. 410 DATA 05,77,23,10,EC,A7,C9
  33. 420 DATA 4C94
  34. 430 END
  35.