home *** CD-ROM | disk | FTP | other *** search
- 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 ifle>3000thenpoke830,le-(int(le/256)*256):poke831,int(le/256):sys834:le=0
- 135 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 -2,"[211]kull: ",27,42,73,48,0
- 1010 data 0,1,248,0,0,0
- 1020 data 0,14,7,192,0,0
- 1030 data 0,48,0,48,0,0
- 1040 data 0,64,0,8,0,0
- 1050 data 0,128,0,6,0,0
- 1060 data 1,0,0,1,128,0
- 1070 data 2,0,0,0,128,0
- 1080 data 4,0,0,0,64,0
- 1090 data 8,0,0,0,64,0
- 1100 data 16,0,0,0,64,0
- 1110 data 16,0,0,0,32,0
- 1120 data 32,0,0,0,32,0
- 1130 data 32,0,0,0,32,0
- 1140 data 64,0,0,0,32,0
- 1150 data 64,0,0,0,64,0
- 1160 data 128,0,0,0,64,0
- 1170 data 128,0,0,0,64,0
- 1180 data 128,0,0,1,128,0
- 1190 data 128,0,0,1,0,0
- 1200 data 128,0,0,7,0,0
- 1210 data 128,0,0,10,0,0
- 1220 data 128,0,0,18,0,0
- 1230 data 128,0,0,105,0,0
- 1240 data 128,0,0,121,0,0
- 1250 data 128,120,0,217,128,0
- 1260 data 64,252,1,72,192,0
- 1270 data 65,94,0,96,112,0
- 1280 data 66,174,0,16,15,248
- 1290 data 35,94,0,24,0,8
- 1300 data 38,172,0,23,128,16
- 1310 data 37,92,0,33,112,16
- 1320 data 22,168,0,82,46,32
- 1330 data 29,88,0,138,68,32
- 1340 data 4,168,1,68,120,32
- 1350 data 3,16,1,40,72,64
- 1360 data 0,252,2,144,144,64
- 1370 data 0,4,2,96,240,64
- 1380 data 0,2,5,64,144,64
- 1390 data 0,1,140,128,240,128
- 1400 data 0,0,74,129,16,128
- 1410 data 0,0,57,1,224,128
- 1420 data 0,0,5,2,32,128
- 1430 data 0,0,2,7,224,128
- 1440 data 0,0,0,1,32,128
- 1450 data 0,0,0,1,254,128
- 1460 data 0,0,0,0,1,128
- 1470 data 0,0,0,0,0,0,0,0,0,0,0,0,-2," [211]milie: ",27,42,73,48,0
- 1480 data 0,0,1,240,0,0
- 1490 data 0,0,30,15,0,0
- 1500 data 0,0,96,0,192,0
- 1510 data 0,3,128,0,56,0
- 1520 data 0,4,0,0,4,0
- 1530 data 0,8,0,0,3,0
- 1540 data 0,32,0,0,0,128
- 1550 data 0,192,0,0,0,64
- 1560 data 1,0,0,0,0,32
- 1570 data 2,0,0,0,0,16
- 1580 data 4,0,0,0,0,8
- 1590 data 8,0,0,0,0,4
- 1600 data 8,0,0,12,0,4
- 1610 data 16,0,0,3,0,2
- 1620 data 16,0,0,0,128,2
- 1630 data 32,0,0,0,64,1
- 1640 data 32,0,0,0,64,1
- 1650 data 64,0,192,0,32,1
- 1660 data 64,0,0,0,16,1
- 1670 data 128,0,0,0,16,1
- 1680 data 128,0,0,0,16,1
- 1690 data 128,0,0,0,16,1
- 1700 data 128,0,0,0,8,1
- 1710 data 128,0,0,0,8,1
- 1720 data 128,0,0,0,8,1
- 1730 data 128,0,0,0,8,1
- 1740 data 128,0,0,0,16,1
- 1750 data 128,0,0,0,16,2
- 1760 data 128,0,0,0,16,2
- 1770 data 128,0,0,0,32,4
- 1780 data 64,0,0,0,32,4
- 1790 data 64,0,0,0,32,8
- 1800 data 64,0,0,0,64,8
- 1810 data 64,0,0,0,128,8
- 1820 data 32,0,0,0,128,16
- 1830 data 32,0,192,1,0,16
- 1840 data 16,0,0,1,0,32
- 1850 data 16,0,0,6,0,32
- 1860 data 8,0,0,8,0,64
- 1870 data 8,0,0,0,0,128
- 1880 data 4,0,0,0,0,128
- 1890 data 2,0,0,0,1,0
- 1900 data 2,0,0,0,6,0
- 1910 data 1,80,0,0,24,0
- 1920 data 0,64,0,0,96,0
- 1930 data 0,56,0,1,128,0
- 1940 data 0,3,128,30,0,0
- 1950 data 0,0,127,14,0,0
- 1960 rem if no color, remove rem
- 1970 rem data 12,-2
- 2000 data 13,-2,"[211]kull: ",27,42,0,8,0,0,0,0,0,0,0,0,0,-2," [211]milie: "
- 2010 data 27,114,4,27,42,73,47,0
- 2020 data 0,0,0,0,0,0
- 2030 data 0,0,1,240,0,0
- 2040 data 0,0,31,255,0,0
- 2050 data 0,0,127,255,192,0
- 2060 data 0,3,255,255,248,0
- 2070 data 0,7,255,255,252,0
- 2080 data 0,31,255,255,255,0
- 2090 data 0,63,255,255,255,128
- 2100 data 0,255,255,255,255,192
- 2110 data 1,255,255,255,255,224
- 2120 data 3,255,255,255,255,240
- 2130 data 7,255,255,255,255,248
- 2140 data 7,255,255,243,255,248
- 2150 data 15,255,255,252,255,252
- 2160 data 15,255,255,255,127,252
- 2170 data 31,255,255,255,191,254
- 2180 data 31,255,255,255,191,254
- 2190 data 63,255,63,255,223,254
- 2200 data 63,255,255,25,239,254
- 2210 data 127,255,255,255,239,254
- 2220 data 127,255,255,255,239,254
- 2230 data 127,255,255,255,239,254
- 2240 data 127,255,255,255,247,254
- 2250 data 127,255,255,255,247,254
- 2260 data 127,255,255,255,247,254
- 2270 data 127,255,255,255,247,254
- 2280 data 127,255,255,255,239,254
- 2290 data 127,255,255,255,239,252
- 2300 data 127,255,255,255,239,252
- 2310 data 127,255,255,255,223,248
- 2320 data 63,255,255,255,223,248
- 2330 data 63,255,255,255,223,240
- 2340 data 63,255,255,255,191,240
- 2350 data 63,255,255,255,127,240
- 2360 data 31,255,255,255,127,224
- 2370 data 31,255,63,254,255,224
- 2380 data 15,255,255,254,255,192
- 2390 data 15,255,255,249,255,192
- 2400 data 7,255,255,247,255,128
- 2410 data 7,255,255,255,255,0
- 2420 data 3,255,255,255,255,0
- 2430 data 1,255,255,255,254,0
- 2440 data 1,255,255,255,248,0
- 2450 data 0,127,255,255,224,0
- 2460 data 0,63,255,255,128,0
- 2470 data 0,7,255,254,0,0
- 2480 data 0,0,127,224,0,0
- 2490 data 27,114,0
- 30000 data 12,-1
-