home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2000-03_2000_CSW_Side_A.d64 / example2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2004-01-01  |  5.8 KB  |  214 lines
  1. 100 ba=49152:poke828,ba-(int(ba/256)*256):poke829,int(ba/256)
  2. 110 dim co%(255)
  3. 115 fori=0to255:readco%(i):next
  4. 120 le=0
  5. 130 readda
  6. 135 ifle>3000thenpoke830,le-(int(le/256)*256):poke831,int(le/256):sys834:le=0
  7. 140 ifda>=0thenpokeba+le,da:le=le+1:goto130
  8. 150 ifda=-1then200
  9. 160 read da$
  10. 170 fori=1tolen(da$):pokeba+le,co%(asc(mid$(da$,i,1))):le=le+1
  11. 176 next
  12. 180 goto130
  13. 200 poke830,le-(int(le/256)*256):poke831,int(le/256):sys834
  14. 250 end
  15. 490 rem convers. petscii to ascii data
  16. 500 data 0,0,0,0,0,0,0,0,0,0,0,0,0,13,0,0
  17. 510 data 0,0,0,0,127,0,0,0,0,0,0,0,0,32,0,0
  18. 520 data 32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47
  19. 530 data 48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63
  20. 540 data 64,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111
  21. 550 data 112,113,114,115,116,117,118,119,120,121,122,91,156,93,94,95
  22. 560 data 96,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79
  23. 570 data 80,81,82,83,84,85,86,87,88,89,90,123,124,125,126,157
  24. 580 data 0,0,0,0,0,0,0,0,0,0,0,0,0,13,0,0
  25. 590 data 0,10,0,0,0,0,0,0,0,0,0,0,0,8,0,0
  26. 600 data 32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  27. 610 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  28. 620 data 96,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79
  29. 630 data 80,81,82,83,84,85,86,87,88,89,90,123,124,125,126,157
  30. 640 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  31. 650 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,227
  32. 990 rem enter data here
  33. 991 rem -2 string follows
  34. 992 rem -1 end of file
  35. 993 rem 0-255 ascii codes
  36. 1000 data 27,33,0,27,114,0,27,40,45,3,0,1,1,2,27,108,8
  37. 1010 data -2,"[208]rinter [195]olor [212]est :)"
  38. 1020 data 27,40,45,3,0,1,1,0,13,10,10
  39. 1030 data -2,"[201]n addition to ",27,69,-2,"[194][204][193][195][203]",27,70
  40. 1040 data -2,", your printer should also present you with",13,10
  41. 1050 data 27,114,1,27,69,-2,"[205][193][199][197][206][212][193]",27,70,27,114,0,-2,", "
  42. 1060 data 27,114,2,27,69,-2,"[195][217][193][206]",27,70,27,114,0,-2,", "
  43. 1070 data 27,114,3,27,69,-2,"[194][204][213][197]",27,70,27,114,0,-2,", "
  44. 1080 data 27,114,4,27,69,-2,"[217][197][204][204][207][215]",27,70,27,114,0,-2,", "
  45. 1090 data 27,114,5,27,69,-2,"[210][197][196]",27,70,27,114,0,-2,", and "
  46. 1100 data 27,114,6,27,69,-2,"[199][210][197][197][206]",27,70,27,114,0,-2,". ",13,10,10
  47. 1110 data 27,103,15,-2,"([193]ctually, ",27,52,-2,"my ",27,53,-2,"printer has "
  48. 1120 data -2,"purple rather than blue, but who cares :) )",27,80,18
  49. 1130 data -2," [213]nfortunately, ",13,10
  50. 1140 data -2,"when you are doing text, that's it, no other colors granted."
  51. 1150 data 13,10,-2," [194]ut there are graphics...",13,10,10
  52. 1160 data 27,114,5,27,42,73,36,0
  53. 1170 data 146,73,36,146,73,36
  54. 1175 data 36,146,73,36,146,73
  55. 1180 data 73,36,146,73,36,146
  56. 1185 data 146,73,36,146,73,32
  57. 1190 data 36,146,73,36,146,64
  58. 1195 data 73,36,146,73,36,144
  59. 1200 data 146,73,36,146,73,0
  60. 1205 data 36,146,73,36,146,0
  61. 1210 data 73,36,146,73,36,0
  62. 1215 data 146,73,36,146,64,0
  63. 1220 data 36,146,73,36,144,0
  64. 1225 data 73,36,146,73,32,0
  65. 1230 data 146,73,36,146,0,0
  66. 1235 data 36,146,73,36,0,0
  67. 1240 data 73,36,146,73,0,0
  68. 1245 data 146,73,36,144,0,0
  69. 1250 data 36,146,73,32,0,0
  70. 1255 data 73,36,146,64,0,0
  71. 1260 data 146,73,36,0,0,0
  72. 1265 data 36,146,73,0,0,0
  73. 1270 data 73,36,146,0,0,0
  74. 1275 data 146,73,32,0,0,0
  75. 1280 data 36,146,64,0,0,0
  76. 1285 data 73,36,144,0,0,0
  77. 1290 data 146,73,0,0,0,0
  78. 1295 data 36,146,0,0,0,0
  79. 1300 data 73,36,0,0,0,0
  80. 1305 data 146,64,0,0,0,0
  81. 1310 data 36,144,0,0,0,0
  82. 1315 data 73,32,0,0,0,0
  83. 1320 data 146,0,0,0,0,0
  84. 1325 data 36,0,0,0,0,0
  85. 1330 data 73,0,0,0,0,0
  86. 1335 data 144,0,0,0,0,0
  87. 1340 data 32,0,0,0,0,0
  88. 1345 data 64,0,0,0,0,0
  89. 1350 data 13,27,114,4,27,42,73,42,0
  90. 1360 data 73,36,146,73,36,146
  91. 1365 data 146,73,36,146,73,36
  92. 1370 data 36,146,73,36,146,73
  93. 1375 data 73,36,146,73,36,146
  94. 1380 data 146,73,36,146,73,36
  95. 1385 data 36,146,73,36,146,73
  96. 1390 data 73,36,146,73,36,146
  97. 1395 data 146,73,36,146,73,36
  98. 1400 data 36,146,73,36,146,73
  99. 1405 data 73,36,146,73,36,146
  100. 1410 data 146,73,36,146,73,36
  101. 1415 data 36,146,73,36,146,73
  102. 1420 data 73,36,146,73,36,146
  103. 1425 data 146,73,36,146,73,36
  104. 1430 data 36,146,73,36,146,73
  105. 1435 data 73,36,146,73,36,146
  106. 1440 data 146,73,36,146,73,36
  107. 1445 data 36,146,73,36,146,73
  108. 1450 data 73,36,146,73,36,146
  109. 1455 data 146,73,36,146,73,36
  110. 1460 data 36,146,73,36,146,73
  111. 1465 data 73,36,146,73,36,146
  112. 1470 data 146,73,36,146,73,36
  113. 1475 data 36,146,73,36,146,73
  114. 1480 data 73,36,146,73,36,146
  115. 1485 data 146,73,36,146,73,36
  116. 1490 data 36,146,73,36,146,73
  117. 1495 data 73,36,146,73,36,146
  118. 1500 data 146,73,36,146,73,36
  119. 1505 data 36,146,73,36,146,73
  120. 1510 data 73,36,146,73,36,146
  121. 1515 data 146,73,36,146,73,36
  122. 1520 data 36,146,73,36,146,73
  123. 1525 data 73,36,146,73,36,146
  124. 1530 data 146,73,36,146,73,36
  125. 1535 data 36,146,73,36,146,73
  126. 1540 data 73,36,146,73,36,146
  127. 1545 data 146,73,36,146,73,36
  128. 1550 data 36,146,73,36,146,73
  129. 1555 data 73,36,146,73,36,146
  130. 1560 data 146,73,36,146,73,36
  131. 1565 data 36,146,73,36,146,73
  132. 1570 data 13,27,114,5,27,42,73,36,0
  133. 1580 data 36,146,73,36,146,73
  134. 1585 data 73,36,146,73,36,146
  135. 1590 data 146,73,36,146,73,36
  136. 1595 data 4,146,73,36,146,73
  137. 1600 data 9,36,146,73,36,146
  138. 1605 data 2,73,36,146,73,36
  139. 1610 data 0,146,73,36,146,73
  140. 1615 data 0,36,146,73,36,146
  141. 1620 data 0,73,36,146,73,36
  142. 1625 data 0,2,73,36,146,73
  143. 1630 data 0,4,146,73,36,146
  144. 1635 data 0,9,36,146,73,36
  145. 1640 data 0,0,73,36,146,73
  146. 1645 data 0,0,146,73,36,146
  147. 1650 data 0,0,36,146,73,36
  148. 1655 data 0,0,9,36,146,73
  149. 1660 data 0,0,2,73,36,146
  150. 1665 data 0,0,4,146,73,36
  151. 1670 data 0,0,0,36,146,73
  152. 1675 data 0,0,0,73,36,146
  153. 1680 data 0,0,0,146,73,36
  154. 1685 data 0,0,0,4,146,73
  155. 1690 data 0,0,0,9,36,146
  156. 1695 data 0,0,0,2,73,36
  157. 1700 data 0,0,0,0,146,73
  158. 1705 data 0,0,0,0,36,146
  159. 1710 data 0,0,0,0,73,36
  160. 1715 data 0,0,0,0,2,73
  161. 1720 data 0,0,0,0,4,146
  162. 1725 data 0,0,0,0,9,36
  163. 1730 data 0,0,0,0,0,73
  164. 1735 data 0,0,0,0,0,146
  165. 1740 data 0,0,0,0,0,36
  166. 1745 data 0,0,0,0,0,9
  167. 1750 data 0,0,0,0,0,2
  168. 1755 data 0,0,0,0,0,4
  169. 1760 data 13,27,114,2,27,42,73,42,0
  170. 1770 data 0,0,0,0,0,0
  171. 1775 data 0,0,0,0,0,0
  172. 1780 data 0,0,0,0,0,0
  173. 1785 data 32,0,0,0,0,0
  174. 1790 data 64,0,0,0,0,0
  175. 1795 data 144,0,0,0,0,0
  176. 1800 data 36,0,0,0,0,0
  177. 1805 data 73,0,0,0,0,0
  178. 1810 data 146,0,0,0,0,0
  179. 1815 data 36,144,0,0,0,0
  180. 1820 data 73,32,0,0,0,0
  181. 1825 data 146,64,0,0,0,0
  182. 1830 data 36,146,0,0,0,0
  183. 1835 data 73,36,0,0,0,0
  184. 1840 data 146,73,0,0,0,0
  185. 1845 data 36,146,64,0,0,0
  186. 1850 data 73,36,144,0,0,0
  187. 1855 data 146,73,32,0,0,0
  188. 1860 data 36,146,73,0,0,0
  189. 1865 data 73,36,146,0,0,0
  190. 1870 data 146,73,36,0,0,0
  191. 1875 data 36,146,73,32,0,0
  192. 1880 data 73,36,146,64,0,0
  193. 1885 data 146,73,36,144,0,0
  194. 1890 data 36,146,73,36,0,0
  195. 1895 data 73,36,146,73,0,0
  196. 1900 data 146,73,36,146,0,0
  197. 1905 data 36,146,73,36,144,0
  198. 1910 data 73,36,146,73,32,0
  199. 1915 data 146,73,36,146,64,0
  200. 1920 data 36,146,73,36,146,0
  201. 1925 data 73,36,146,73,36,0
  202. 1930 data 146,73,36,146,73,0
  203. 1935 data 36,146,73,36,146,64
  204. 1940 data 73,36,146,73,36,144
  205. 1945 data 146,73,36,146,73,32
  206. 1950 data 36,146,73,36,146,73
  207. 1955 data 73,36,146,73,36,146
  208. 1960 data 146,73,36,146,73,36
  209. 1965 data 36,146,73,36,146,73
  210. 1970 data 73,36,146,73,36,146
  211. 1975 data 146,73,36,146,73,36
  212. 1980 data 27,114,0
  213. 30000 data 12,-1
  214.