home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2000-03_2000_CSW_Side_A.d64 / dtransfer (.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 adresse
  2. 110 dim co%(255):rem string konvertierung vorbereiten
  3. 115 fori=0to255:readco%(i):next:rem konvertierungstabelle einlesen
  4. 120 le=0:rem laenge zuruecksetzen
  5. 130 readda:rem datenbyte lesen
  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 datenbyte weitergeben
  8. 150 ifda=-1then200:rem zum ende verzweigen
  9. 160 read da$:rem string lesen
  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 konvert. petscii nach ascii
  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 hiernach daten einfuegen
  33. 991 rem -2 string folgt
  34. 992 rem -1 end of file
  35. 993 rem 0-255 ascii codes
  36. 30000 data -1
  37.