Go64!/Go64_2000-03_2000_CSW_Side_A.d64/example3

Commodore BASIC | 2004-01-01 | 4.7 KB | 185 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 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