home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Go64!
/
Go64_2000-03_2000_CSW_Side_A.d64
/
seqexample
< prev
next >
Wrap
Text File
|
2023-02-26
|
2KB
|
3 lines
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,"Remstedt was pleased :",34
1040 data 27,52,-2,"Finally, justice will be dealt to that tyrant. ",13,10
1050 data 27,69,-2,"He",27,70,-2," won't get away this time for sure."
1060 data 27,53,34,13,10,10,-2,"Andretto still showed doubts:",34
1070 data 27,52,-2,"But ",27,69,-2,"He",27,70,-2," still has his ministers "
1080 data 13,10,-2,"doing his bidding. His lawyers...",10
1090 data-2,"... are of no concern to me!",27,53,34,13,10,-2,"And Remstedt left."
1100 data 13,10,10,27,113,1,-2,"Meanwhile, 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,"Considering what ",27,69,-2,"He ",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,"He ",27,70,-2,"smiled.",13,10,27,40,45,3,0,1,2,0
30000 data 12,-1
ready.