home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2000-03_2000_CSW_Side_A.d64 / etransfer (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  37 lines
  1. 100 ba=49152:poke828,ba-(int(ba/256)*256):poke829,int(ba/256):rem basis address
  2. 110 dim co%(255):rem prepare string conversion
  3. 115 fori=0to255:readco%(i):next:rem read conversion table
  4. 120 le=0:rem reset length
  5. 130 readda:rem read data byte
  6. 135 ifle>3000thenpoke830,le-(int(le/256)*256):poke831,int(le/256):sys834:le=0
  7. 140 ifda>=0thenpokeba+le,da:le=le+1:goto130:rem pass on data byte
  8. 150 ifda=-1then200:rem branch to end
  9. 160 read da$:rem read string
  10. 170 fori=1tolen(da$):pokeba+le,co%(asc(mid$(da$,i,1))):le=le+1
  11. 176 next
  12. 180 goto130
  13. 200 poke830,le-(int(le/256)*256):poke831,int(le/256):sys834
  14. 250 end
  15. 490 rem convers. petscii to ascii data
  16. 500 data 0,0,0,0,0,0,0,0,0,0,0,0,0,13,0,0
  17. 510 data 0,0,0,0,127,0,0,0,0,0,0,0,0,32,0,0
  18. 520 data 32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47
  19. 530 data 48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63
  20. 540 data 64,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111
  21. 550 data 112,113,114,115,116,117,118,119,120,121,122,91,156,93,94,95
  22. 560 data 96,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79
  23. 570 data 80,81,82,83,84,85,86,87,88,89,90,123,124,125,126,157
  24. 580 data 0,0,0,0,0,0,0,0,0,0,0,0,0,13,0,0
  25. 590 data 0,10,0,0,0,0,0,0,0,0,0,0,0,8,0,0
  26. 600 data 32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  27. 610 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  28. 620 data 96,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79
  29. 630 data 80,81,82,83,84,85,86,87,88,89,90,123,124,125,126,157
  30. 640 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  31. 650 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,227
  32. 990 rem enter data here
  33. 991 rem -2 string follows
  34. 992 rem -1 end of file
  35. 993 rem 0-255 ascii codes
  36. 30000 data -1
  37.