home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 30
/
030.d81
/
editwedge
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
8KB
|
128 lines
110 print"[147] verifying data statements...":ln=1000
120 for x=1 to 111:ca=0:ln=ln+10
130 for y=1 to 12:read byte
140 ca=ca+byte:next y
150 read cs:if ca<>cs thenprint"data statement error at line ";ln:end
160 next x
200 restore:print"[147]";:a=49152
210 for x=1 to 16:print"";:next:print"_";
250 for x=1 to 111
260 for y=1 to 12:read byte
270 poke a,byte:a=a+1
280 if t=1 then t=0:goto 290
285 print"[166]";:t=1
290 next y:read cs
300 next x
310 sys 49152:end
1010 data 32, 118, 192, 165, 125, 201, 243, 208, 15, 169, 76, 141, 1685
1020 data 41, 192, 169, 243, 141, 42, 192, 169, 204, 141, 43, 192, 1769
1030 data 169, 76, 133, 124, 169, 37, 133, 125, 169, 192, 133, 126, 1586
1040 data 96, 201, 255, 240, 10, 201, 58, 176, 3, 76, 128, 0, 1444
1050 data 76, 138, 0, 32, 118, 192, 32, 159, 255, 32, 228, 255, 1517
1060 data 201, 0, 240, 246, 201, 133, 208, 3, 76, 97, 193, 201, 1799
1070 data 137, 208, 3, 76, 226, 194, 201, 134, 208, 3, 76, 232, 1698
1080 data 195, 201, 138, 208, 3, 76, 56, 196, 201, 135, 208, 3, 1620
1090 data 76, 210, 196, 201, 139, 208, 207, 169, 201, 133, 124, 169, 2033
1100 data 58, 133, 125, 169, 176, 133, 126, 76, 134, 227, 162, 0, 1519
1110 data 189, 132, 192, 32, 210, 255, 232, 224, 219, 208, 245, 96, 2234
1120 data 13, 13, 32, 32, 32, 32, 69, 68, 73, 84, 47, 87, 582
1130 data 69, 68, 71, 69, 32, 40, 67, 41, 32, 49, 57, 56, 651
1140 data 53, 32, 77, 73, 75, 69, 32, 76, 69, 73, 68, 69, 766
1150 data 76, 13, 13, 32, 32, 32, 32, 32, 32, 32, 32, 83, 441
1160 data 72, 73, 70, 84, 32, 94, 32, 40, 82, 69, 84, 85, 817
1170 data 82, 78, 41, 32, 84, 79, 32, 69, 78, 84, 69, 82, 810
1180 data 13, 32, 32, 32, 32, 32, 32, 32, 32, 70, 49, 32, 420
1190 data 32, 61, 32, 83, 69, 65, 82, 67, 72, 13, 32, 32, 640
1200 data 32, 32, 32, 32, 32, 32, 70, 50, 32, 32, 61, 32, 469
1210 data 76, 73, 78, 69, 32, 78, 85, 77, 66, 69, 82, 83, 868
1220 data 13, 32, 32, 32, 32, 32, 32, 32, 32, 70, 51, 32, 422
1230 data 32, 61, 32, 82, 69, 80, 69, 65, 84, 32, 84, 79, 769
1240 data 71, 71, 76, 69, 13, 32, 32, 32, 32, 32, 32, 32, 524
1250 data 32, 70, 52, 32, 32, 61, 32, 67, 79, 76, 79, 82, 694
1260 data 83, 13, 32, 32, 32, 32, 32, 32, 32, 32, 70, 53, 475
1270 data 32, 32, 61, 32, 77, 69, 77, 79, 82, 89, 13, 32, 675
1280 data 32, 32, 32, 32, 32, 32, 32, 70, 54, 32, 32, 61, 473
1290 data 32, 68, 69, 76, 73, 78, 75, 32, 87, 69, 68, 71, 798
1300 data 69, 13, 13, 13, 13, 162, 0, 142, 44, 194, 169, 8, 840
1310 data 141, 45, 194, 142, 48, 194, 189, 49, 194, 32, 210, 255, 1693
1320 data 232, 224, 13, 208, 245, 162, 0, 32, 207, 255, 201, 13, 1792
1330 data 240, 7, 157, 62, 194, 232, 76, 123, 193, 142, 47, 194, 1667
1340 data 169, 13, 32, 210, 255, 32, 210, 255, 32, 35, 194, 201, 1638
1350 data 0, 208, 3, 76, 134, 227, 32, 35, 194, 162, 0, 32, 1103
1360 data 35, 194, 141, 221, 194, 141, 223, 194, 32, 35, 194, 141, 1745
1370 data 222, 194, 141, 224, 194, 32, 35, 194, 201, 0, 208, 23, 1668
1380 data 32, 35, 194, 201, 0, 240, 6, 32, 35, 194, 76, 161, 1206
1390 data 193, 32, 35, 194, 201, 0, 208, 209, 76, 134, 227, 221, 1730
1400 data 62, 194, 240, 5, 162, 0, 76, 181, 193, 232, 236, 47, 1628
1410 data 194, 208, 210, 238, 48, 194, 173, 48, 194, 201, 2, 208, 1918
1420 data 10, 169, 13, 32, 210, 255, 169, 0, 141, 48, 194, 169, 1410
1430 data 32, 32, 210, 255, 32, 210, 255, 32, 210, 255, 32, 122, 1677
1440 data 194, 169, 40, 32, 210, 255, 173, 44, 194, 141, 221, 194, 1867
1450 data 173, 45, 194, 141, 222, 194, 32, 122, 194, 169, 41, 32, 1559
1460 data 210, 255, 162, 0, 76, 181, 193, 238, 44, 194, 208, 3, 1764
1470 data 238, 45, 194, 173, 0, 8, 96, 0, 0, 13, 83, 69, 919
1480 data 65, 82, 67, 72, 32, 70, 79, 82, 63, 32, 32, 32, 708
1490 data 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 384
1500 data 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 384
1510 data 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 384
1520 data 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 384
1530 data 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 160, 0, 480
1540 data 140, 225, 194, 162, 0, 173, 221, 194, 56, 249, 213, 194, 2021
1550 data 141, 221, 194, 173, 222, 194, 200, 249, 213, 194, 144, 8, 2153
1560 data 141, 222, 194, 232, 136, 76, 129, 194, 136, 173, 221, 194, 2048
1570 data 121, 213, 194, 141, 221, 194, 138, 208, 7, 44, 225, 194, 1900
1580 data 48, 7, 16, 10, 162, 128, 142, 225, 194, 9, 48, 32, 1021
1590 data 210, 255, 200, 200, 192, 8, 144, 191, 173, 221, 194, 9, 1997
1600 data 48, 32, 210, 255, 173, 223, 194, 141, 221, 194, 173, 224, 2088
1610 data 194, 141, 222, 194, 96, 16, 39, 232, 3, 100, 0, 10, 1247
1620 data 0, 0, 0, 0, 0, 0, 169, 13, 32, 210, 255, 162, 841
1630 data 0, 189, 127, 195, 32, 210, 255, 232, 224, 27, 208, 245, 1944
1640 data 32, 179, 195, 144, 3, 76, 134, 227, 173, 231, 195, 141, 1730
1650 data 125, 195, 162, 0, 189, 154, 195, 32, 210, 255, 232, 224, 1973
1660 data 25, 208, 245, 32, 179, 195, 144, 3, 76, 134, 227, 173, 1641
1670 data 231, 195, 141, 110, 195, 169, 0, 141, 126, 195, 169, 1, 1673
1680 data 141, 67, 195, 169, 8, 141, 68, 195, 173, 67, 195, 201, 1620
1690 data 0, 208, 10, 173, 68, 195, 201, 0, 208, 3, 76, 134, 1276
1700 data 227, 162, 2, 173, 125, 195, 157, 1, 8, 173, 126, 195, 1544
1710 data 232, 224, 4, 208, 245, 173, 67, 195, 141, 94, 195, 173, 1951
1720 data 68, 195, 141, 95, 195, 162, 0, 160, 1, 189, 1, 8, 1215
1730 data 153, 66, 195, 200, 232, 224, 2, 208, 244, 24, 173, 125, 1846
1740 data 195, 105, 0, 141, 125, 195, 173, 126, 195, 105, 0, 141, 1501
1750 data 126, 195, 76, 44, 195, 0, 0, 69, 78, 84, 69, 82, 1018
1760 data 32, 51, 32, 68, 73, 71, 73, 84, 32, 66, 69, 71, 722
1770 data 73, 78, 73, 78, 71, 32, 78, 66, 82, 32, 13, 69, 745
1780 data 78, 84, 69, 82, 32, 51, 32, 68, 73, 71, 73, 84, 797
1790 data 32, 73, 78, 67, 82, 69, 77, 69, 78, 84, 32, 32, 773
1800 data 197, 195, 141, 231, 195, 32, 197, 195, 32, 211, 195, 32, 1853
1810 data 197, 195, 76, 211, 195, 32, 207, 255, 201, 48, 144, 249, 2010
1820 data 201, 58, 176, 245, 41, 15, 96, 141, 230, 195, 173, 231, 1802
1830 data 195, 10, 10, 109, 231, 195, 10, 109, 230, 195, 141, 231, 1666
1840 data 195, 96, 0, 0, 173, 138, 2, 201, 128, 240, 21, 169, 1363
1850 data 128, 141, 138, 2, 162, 0, 189, 25, 196, 32, 210, 255, 1478
1860 data 232, 224, 15, 208, 245, 76, 22, 196, 169, 0, 141, 138, 1666
1870 data 2, 162, 0, 189, 40, 196, 32, 210, 255, 232, 224, 16, 1558
1880 data 208, 245, 76, 134, 227, 13, 75, 69, 89, 32, 82, 69, 1319
1890 data 80, 69, 65, 84, 32, 79, 78, 46, 13, 75, 69, 89, 779
1900 data 32, 82, 69, 80, 69, 65, 84, 32, 79, 70, 70, 46, 778
1910 data 162, 0, 189, 103, 196, 32, 210, 255, 232, 224, 28, 208, 1839
1920 data 245, 32, 163, 196, 173, 208, 196, 141, 32, 208, 162, 0, 1756
1930 data 189, 131, 196, 32, 210, 255, 232, 224, 32, 208, 245, 32, 1986
1940 data 163, 196, 173, 208, 196, 141, 33, 208, 76, 134, 227, 13, 1768
1950 data 69, 78, 84, 69, 82, 32, 50, 32, 68, 73, 71, 73, 781
1960 data 84, 32, 66, 79, 82, 68, 69, 82, 32, 67, 79, 76, 816
1970 data 79, 82, 32, 13, 69, 78, 84, 69, 82, 32, 50, 32, 702
1980 data 68, 73, 71, 73, 84, 32, 66, 65, 67, 75, 71, 82, 827
1990 data 79, 85, 78, 68, 32, 67, 79, 76, 79, 82, 32, 32, 789
2000 data 175, 196, 141, 208, 196, 32, 175, 196, 76, 189, 196, 32, 1812
2010 data 207, 255, 201, 48, 144, 249, 201, 58, 176, 245, 41, 15, 1840
2020 data 96, 141, 209, 196, 173, 208, 196, 10, 10, 109, 208, 196, 1752
2030 data 10, 109, 209, 196, 141, 208, 196, 96, 0, 0, 169, 0, 1334
2040 data 141, 44, 194, 169, 8, 141, 45, 194, 32, 35, 194, 201, 1398
2050 data 0, 208, 249, 32, 35, 194, 201, 0, 208, 242, 32, 35, 1436
2060 data 194, 201, 0, 208, 235, 56, 169, 0, 237, 44, 194, 141, 1679
2070 data 221, 194, 169, 160, 237, 45, 194, 141, 222, 194, 162, 0, 1939
2080 data 189, 21, 197, 32, 210, 255, 232, 224, 10, 208, 245, 32, 1855
2090 data 122, 194, 76, 134, 227, 13, 77, 69, 77, 79, 82, 89, 1239
2100 data 32, 61, 32, 232, 208, 237, 224, 7, 176, 6, 32, 210, 1457
2110 data 255, 232, 208, 246, 32, 202, 194, 240, 186, 201, 32, 240, 2268