100 BA=49152:POKE828,BA-(INT(BA/256)*256):POKE829,INT(BA/256)
110 DIM CO%(255)
115 FORI=0TO255:READCO%(I):NEXT
120 LE=0
130 READDA
140 IFDA>=0THENPOKEBA+LE,DA:LE=LE+1:GOTO130
150 IFDA=-1THEN200
160 READ DA$
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
1000 DATA 27,33,1,27,43,90,27,114,0,27,108,8
1010 DATA 27,40,45,3,0,1,3,0,27,40,45,3,0,1,2,0,27,40,45,3,0,1,1,0
1020 DATA 27,113,0,27,119,0,27,84
1030 DATA -2,"[210]EMSTEDT WAS PLEASED :",34
1040 DATA 27,52,-2,"[198]INALLY, JUSTICE WILL BE DEALT TO THAT TYRANT. ",13,10
1050 DATA 27,69,-2,"[200]E",27,70,-2," WON'T GET AWAY THIS TIME FOR SURE."
1060 DATA 27,53,34,13,10,10,-2,"[193]NDRETTO STILL SHOWED DOUBTS:",34
1070 DATA 27,52,-2,"[194]UT ",27,69,-2,"[200]E",27,70,-2," STILL HAS HIS MINISTERS "
1080 DATA 13,10,-2,"DOING HIS BIDDING. [200]IS LAWYERS...",10
1090 DATA-2,"... ARE OF NO CONCERN TO ME!",27,53,34,13,10,-2,"[193]ND [210]EMSTEDT LEFT."
1100 DATA 13,10,10,27,113,1,-2,"[205]EANWHILE, IN THE FORESTS OUTSIDE THE CITY,"
1110 DATA 13,10,-2,"DARK, OMINOUS FORMS GATHERED, AND SHRIEKING AND ",13,10
1120 DATA -2,"WAILING HIS ",27,113,3,-2,"MINIONS OF SHADOW",27,113,1
1130 DATA -2," PREPARED TO ATTACK THE COURT ...",27,113,0,13,10,10,27,40,45,3,0
1140 DATA1,2,1,-2,"[195]ONSIDERING WHAT ",27,69,-2,"[200]E ",27,70,-2,"HAD IN MIND FOR "
1150 DATA -2,"THAT JUDGE ",13,10,-2,"WHO WOULD TRY TO FIND HIM GUILTY, "
1160 DATA 27,69,-2,"[200]E ",27,70,-2,"SMILED.",13,10,27,40,45,3,0,1,2,0
30000 DATA 12,-1