100 BA=49152:POKE828,BA-(INT(BA/256)*256):POKE829,INT(BA/256):REM BASIS ADDRESS
110 DIM CO%(255):REM PREPARE STRING CONVERSION
115 FORI=0TO255:READCO%(I):NEXT:REM READ CONVERSION TABLE
120 LE=0:REM RESET LENGTH
130 READDA:REM READ DATA BYTE
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 PASS ON DATA BYTE
150 IFDA=-1THEN200:REM BRANCH TO END
160 READ DA$:REM READ STRING
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 CONVERS. PETSCII TO ASCII DATA
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 ENTER DATA HERE
991 REM -2 STRING FOLLOWS
992 REM -1 END OF FILE
993 REM 0-255 ASCII CODES
30000 DATA -1