home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Go64!
/
Go64_2000-03_2000_CSW_Side_A.d64
/
dtransfer
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
37 lines
100 ba=49152:poke828,ba-(int(ba/256)*256):poke829,int(ba/256):rem basis adresse
110 dim co%(255):rem string konvertierung vorbereiten
115 fori=0to255:readco%(i):next:rem konvertierungstabelle einlesen
120 le=0:rem laenge zuruecksetzen
130 readda:rem datenbyte lesen
135 ifle>3000thenpoke830,le-(int(le/256)*256):poke831,int(le/256):sys834:le=0
140 ifda>=0thenpokeba+le,da:le=le+1:goto130:rem datenbyte weitergeben
150 ifda=-1then200:rem zum ende verzweigen
160 read da$:rem string lesen
170 fori=1tolen(da$):pokeba+le,co%(asc(mid$(da$,i,1))):le=le+1
176 next
180 goto130
200 poke830,le-(int(le/256)*256):poke831,int(le/256):sys834
250 end
490 rem konvert. petscii nach ascii
500 data 0,0,0,0,0,0,0,0,0,0,0,0,0,13,0,0
510 data 0,0,0,0,127,0,0,0,0,0,0,0,0,32,0,0
520 data 32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47
530 data 48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63
540 data 64,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111
550 data 112,113,114,115,116,117,118,119,120,121,122,91,156,93,94,95
560 data 96,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79
570 data 80,81,82,83,84,85,86,87,88,89,90,123,124,125,126,157
580 data 0,0,0,0,0,0,0,0,0,0,0,0,0,13,0,0
590 data 0,10,0,0,0,0,0,0,0,0,0,0,0,8,0,0
600 data 32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
610 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
620 data 96,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79
630 data 80,81,82,83,84,85,86,87,88,89,90,123,124,125,126,157
640 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
650 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,227
990 rem hiernach daten einfuegen
991 rem -2 string folgt
992 rem -1 end of file
993 rem 0-255 ascii codes
30000 data -1