Go64!/Go64_2000-03_2000_CSW_Side_A.d64/example2

Commodore BASIC | 2023-02-26 | 6KB | 214 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
135 ifle>3000thenpoke830,le-(int(le/256)*256):poke831,int(le/256):sys834:le=0
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,0,27,114,0,27,40,45,3,0,1,1,2,27,108,8
1010 data -2,"[208]rinter [195]olor [212]est :)"
1020 data 27,40,45,3,0,1,1,0,13,10,10
1030 data -2,"[201]n addition to ",27,69,-2,"[194][204][193][195][203]",27,70
1040 data -2,", your printer should also present you with",13,10
1050 data 27,114,1,27,69,-2,"[205][193][199][197][206][212][193]",27,70,27,114,0,-2,", "
1060 data 27,114,2,27,69,-2,"[195][217][193][206]",27,70,27,114,0,-2,", "
1070 data 27,114,3,27,69,-2,"[194][204][213][197]",27,70,27,114,0,-2,", "
1080 data 27,114,4,27,69,-2,"[217][197][204][204][207][215]",27,70,27,114,0,-2,", "
1090 data 27,114,5,27,69,-2,"[210][197][196]",27,70,27,114,0,-2,", and "
1100 data 27,114,6,27,69,-2,"[199][210][197][197][206]",27,70,27,114,0,-2,". ",13,10,10
1110 data 27,103,15,-2,"([193]ctually, ",27,52,-2,"my ",27,53,-2,"printer has "
1120 data -2,"purple rather than blue, but who cares :) )",27,80,18
1130 data -2," [213]nfortunately, ",13,10
1140 data -2,"when you are doing text, that's it, no other colors granted."
1150 data 13,10,-2," [194]ut there are graphics...",13,10,10
1160 data 27,114,5,27,42,73,36,0
1170 data 146,73,36,146,73,36
1175 data 36,146,73,36,146,73
1180 data 73,36,146,73,36,146
1185 data 146,73,36,146,73,32
1190 data 36,146,73,36,146,64
1195 data 73,36,146,73,36,144
1200 data 146,73,36,146,73,0
1205 data 36,146,73,36,146,0
1210 data 73,36,146,73,36,0
1215 data 146,73,36,146,64,0
1220 data 36,146,73,36,144,0
1225 data 73,36,146,73,32,0
1230 data 146,73,36,146,0,0
1235 data 36,146,73,36,0,0
1240 data 73,36,146,73,0,0
1245 data 146,73,36,144,0,0
1250 data 36,146,73,32,0,0
1255 data 73,36,146,64,0,0
1260 data 146,73,36,0,0,0
1265 data 36,146,73,0,0,0
1270 data 73,36,146,0,0,0
1275 data 146,73,32,0,0,0
1280 data 36,146,64,0,0,0
1285 data 73,36,144,0,0,0
1290 data 146,73,0,0,0,0
1295 data 36,146,0,0,0,0
1300 data 73,36,0,0,0,0
1305 data 146,64,0,0,0,0
1310 data 36,144,0,0,0,0
1315 data 73,32,0,0,0,0
1320 data 146,0,0,0,0,0
1325 data 36,0,0,0,0,0
1330 data 73,0,0,0,0,0
1335 data 144,0,0,0,0,0
1340 data 32,0,0,0,0,0
1345 data 64,0,0,0,0,0
1350 data 13,27,114,4,27,42,73,42,0
1360 data 73,36,146,73,36,146
1365 data 146,73,36,146,73,36
1370 data 36,146,73,36,146,73
1375 data 73,36,146,73,36,146
1380 data 146,73,36,146,73,36
1385 data 36,146,73,36,146,73
1390 data 73,36,146,73,36,146
1395 data 146,73,36,146,73,36
1400 data 36,146,73,36,146,73
1405 data 73,36,146,73,36,146
1410 data 146,73,36,146,73,36
1415 data 36,146,73,36,146,73
1420 data 73,36,146,73,36,146
1425 data 146,73,36,146,73,36
1430 data 36,146,73,36,146,73
1435 data 73,36,146,73,36,146
1440 data 146,73,36,146,73,36
1445 data 36,146,73,36,146,73
1450 data 73,36,146,73,36,146
1455 data 146,73,36,146,73,36
1460 data 36,146,73,36,146,73
1465 data 73,36,146,73,36,146
1470 data 146,73,36,146,73,36
1475 data 36,146,73,36,146,73
1480 data 73,36,146,73,36,146
1485 data 146,73,36,146,73,36
1490 data 36,146,73,36,146,73
1495 data 73,36,146,73,36,146
1500 data 146,73,36,146,73,36
1505 data 36,146,73,36,146,73
1510 data 73,36,146,73,36,146
1515 data 146,73,36,146,73,36
1520 data 36,146,73,36,146,73
1525 data 73,36,146,73,36,146
1530 data 146,73,36,146,73,36
1535 data 36,146,73,36,146,73
1540 data 73,36,146,73,36,146
1545 data 146,73,36,146,73,36
1550 data 36,146,73,36,146,73
1555 data 73,36,146,73,36,146
1560 data 146,73,36,146,73,36
1565 data 36,146,73,36,146,73
1570 data 13,27,114,5,27,42,73,36,0
1580 data 36,146,73,36,146,73
1585 data 73,36,146,73,36,146
1590 data 146,73,36,146,73,36
1595 data 4,146,73,36,146,73
1600 data 9,36,146,73,36,146
1605 data 2,73,36,146,73,36
1610 data 0,146,73,36,146,73
1615 data 0,36,146,73,36,146
1620 data 0,73,36,146,73,36
1625 data 0,2,73,36,146,73
1630 data 0,4,146,73,36,146
1635 data 0,9,36,146,73,36
1640 data 0,0,73,36,146,73
1645 data 0,0,146,73,36,146
1650 data 0,0,36,146,73,36
1655 data 0,0,9,36,146,73
1660 data 0,0,2,73,36,146
1665 data 0,0,4,146,73,36
1670 data 0,0,0,36,146,73
1675 data 0,0,0,73,36,146
1680 data 0,0,0,146,73,36
1685 data 0,0,0,4,146,73
1690 data 0,0,0,9,36,146
1695 data 0,0,0,2,73,36
1700 data 0,0,0,0,146,73
1705 data 0,0,0,0,36,146
1710 data 0,0,0,0,73,36
1715 data 0,0,0,0,2,73
1720 data 0,0,0,0,4,146
1725 data 0,0,0,0,9,36
1730 data 0,0,0,0,0,73
1735 data 0,0,0,0,0,146
1740 data 0,0,0,0,0,36
1745 data 0,0,0,0,0,9
1750 data 0,0,0,0,0,2
1755 data 0,0,0,0,0,4
1760 data 13,27,114,2,27,42,73,42,0
1770 data 0,0,0,0,0,0
1775 data 0,0,0,0,0,0
1780 data 0,0,0,0,0,0
1785 data 32,0,0,0,0,0
1790 data 64,0,0,0,0,0
1795 data 144,0,0,0,0,0
1800 data 36,0,0,0,0,0
1805 data 73,0,0,0,0,0
1810 data 146,0,0,0,0,0
1815 data 36,144,0,0,0,0
1820 data 73,32,0,0,0,0
1825 data 146,64,0,0,0,0
1830 data 36,146,0,0,0,0
1835 data 73,36,0,0,0,0
1840 data 146,73,0,0,0,0
1845 data 36,146,64,0,0,0
1850 data 73,36,144,0,0,0
1855 data 146,73,32,0,0,0
1860 data 36,146,73,0,0,0
1865 data 73,36,146,0,0,0
1870 data 146,73,36,0,0,0
1875 data 36,146,73,32,0,0
1880 data 73,36,146,64,0,0
1885 data 146,73,36,144,0,0
1890 data 36,146,73,36,0,0
1895 data 73,36,146,73,0,0
1900 data 146,73,36,146,0,0
1905 data 36,146,73,36,144,0
1910 data 73,36,146,73,32,0
1915 data 146,73,36,146,64,0
1920 data 36,146,73,36,146,0
1925 data 73,36,146,73,36,0
1930 data 146,73,36,146,73,0
1935 data 36,146,73,36,146,64
1940 data 73,36,146,73,36,144
1945 data 146,73,36,146,73,32
1950 data 36,146,73,36,146,73
1955 data 73,36,146,73,36,146
1960 data 146,73,36,146,73,36
1965 data 36,146,73,36,146,73
1970 data 73,36,146,73,36,146
1975 data 146,73,36,146,73,36
1980 data 27,114,0
30000 data 12,-1