home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2000-03_2000_CSW_Side_A.d64 / example3 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  185 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 ifle>3000thenpoke830,le-(int(le/256)*256):poke831,int(le/256):sys834:le=0
  6. 135 readda
  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 -2,"[211]kull: ",27,42,73,48,0
  37. 1010 data 0,1,248,0,0,0
  38. 1020 data 0,14,7,192,0,0
  39. 1030 data 0,48,0,48,0,0
  40. 1040 data 0,64,0,8,0,0
  41. 1050 data 0,128,0,6,0,0
  42. 1060 data 1,0,0,1,128,0
  43. 1070 data 2,0,0,0,128,0
  44. 1080 data 4,0,0,0,64,0
  45. 1090 data 8,0,0,0,64,0
  46. 1100 data 16,0,0,0,64,0
  47. 1110 data 16,0,0,0,32,0
  48. 1120 data 32,0,0,0,32,0
  49. 1130 data 32,0,0,0,32,0
  50. 1140 data 64,0,0,0,32,0
  51. 1150 data 64,0,0,0,64,0
  52. 1160 data 128,0,0,0,64,0
  53. 1170 data 128,0,0,0,64,0
  54. 1180 data 128,0,0,1,128,0
  55. 1190 data 128,0,0,1,0,0
  56. 1200 data 128,0,0,7,0,0
  57. 1210 data 128,0,0,10,0,0
  58. 1220 data 128,0,0,18,0,0
  59. 1230 data 128,0,0,105,0,0
  60. 1240 data 128,0,0,121,0,0
  61. 1250 data 128,120,0,217,128,0
  62. 1260 data 64,252,1,72,192,0
  63. 1270 data 65,94,0,96,112,0
  64. 1280 data 66,174,0,16,15,248
  65. 1290 data 35,94,0,24,0,8
  66. 1300 data 38,172,0,23,128,16
  67. 1310 data 37,92,0,33,112,16
  68. 1320 data 22,168,0,82,46,32
  69. 1330 data 29,88,0,138,68,32
  70. 1340 data 4,168,1,68,120,32
  71. 1350 data 3,16,1,40,72,64
  72. 1360 data 0,252,2,144,144,64
  73. 1370 data 0,4,2,96,240,64
  74. 1380 data 0,2,5,64,144,64
  75. 1390 data 0,1,140,128,240,128
  76. 1400 data 0,0,74,129,16,128
  77. 1410 data 0,0,57,1,224,128
  78. 1420 data 0,0,5,2,32,128
  79. 1430 data 0,0,2,7,224,128
  80. 1440 data 0,0,0,1,32,128
  81. 1450 data 0,0,0,1,254,128
  82. 1460 data 0,0,0,0,1,128
  83. 1470 data 0,0,0,0,0,0,0,0,0,0,0,0,-2," [211]milie: ",27,42,73,48,0
  84. 1480 data 0,0,1,240,0,0
  85. 1490 data 0,0,30,15,0,0
  86. 1500 data 0,0,96,0,192,0
  87. 1510 data 0,3,128,0,56,0
  88. 1520 data 0,4,0,0,4,0
  89. 1530 data 0,8,0,0,3,0
  90. 1540 data 0,32,0,0,0,128
  91. 1550 data 0,192,0,0,0,64
  92. 1560 data 1,0,0,0,0,32
  93. 1570 data 2,0,0,0,0,16
  94. 1580 data 4,0,0,0,0,8
  95. 1590 data 8,0,0,0,0,4
  96. 1600 data 8,0,0,12,0,4
  97. 1610 data 16,0,0,3,0,2
  98. 1620 data 16,0,0,0,128,2
  99. 1630 data 32,0,0,0,64,1
  100. 1640 data 32,0,0,0,64,1
  101. 1650 data 64,0,192,0,32,1
  102. 1660 data 64,0,0,0,16,1
  103. 1670 data 128,0,0,0,16,1
  104. 1680 data 128,0,0,0,16,1
  105. 1690 data 128,0,0,0,16,1
  106. 1700 data 128,0,0,0,8,1
  107. 1710 data 128,0,0,0,8,1
  108. 1720 data 128,0,0,0,8,1
  109. 1730 data 128,0,0,0,8,1
  110. 1740 data 128,0,0,0,16,1
  111. 1750 data 128,0,0,0,16,2
  112. 1760 data 128,0,0,0,16,2
  113. 1770 data 128,0,0,0,32,4
  114. 1780 data 64,0,0,0,32,4
  115. 1790 data 64,0,0,0,32,8
  116. 1800 data 64,0,0,0,64,8
  117. 1810 data 64,0,0,0,128,8
  118. 1820 data 32,0,0,0,128,16
  119. 1830 data 32,0,192,1,0,16
  120. 1840 data 16,0,0,1,0,32
  121. 1850 data 16,0,0,6,0,32
  122. 1860 data 8,0,0,8,0,64
  123. 1870 data 8,0,0,0,0,128
  124. 1880 data 4,0,0,0,0,128
  125. 1890 data 2,0,0,0,1,0
  126. 1900 data 2,0,0,0,6,0
  127. 1910 data 1,80,0,0,24,0
  128. 1920 data 0,64,0,0,96,0
  129. 1930 data 0,56,0,1,128,0
  130. 1940 data 0,3,128,30,0,0
  131. 1950 data 0,0,127,14,0,0
  132. 1960 rem if no color, remove rem
  133. 1970 rem data 12,-2
  134. 2000 data 13,-2,"[211]kull: ",27,42,0,8,0,0,0,0,0,0,0,0,0,-2," [211]milie: "
  135. 2010 data 27,114,4,27,42,73,47,0
  136. 2020 data 0,0,0,0,0,0
  137. 2030 data 0,0,1,240,0,0
  138. 2040 data 0,0,31,255,0,0
  139. 2050 data 0,0,127,255,192,0
  140. 2060 data 0,3,255,255,248,0
  141. 2070 data 0,7,255,255,252,0
  142. 2080 data 0,31,255,255,255,0
  143. 2090 data 0,63,255,255,255,128
  144. 2100 data 0,255,255,255,255,192
  145. 2110 data 1,255,255,255,255,224
  146. 2120 data 3,255,255,255,255,240
  147. 2130 data 7,255,255,255,255,248
  148. 2140 data 7,255,255,243,255,248
  149. 2150 data 15,255,255,252,255,252
  150. 2160 data 15,255,255,255,127,252
  151. 2170 data 31,255,255,255,191,254
  152. 2180 data 31,255,255,255,191,254
  153. 2190 data 63,255,63,255,223,254
  154. 2200 data 63,255,255,25,239,254
  155. 2210 data 127,255,255,255,239,254
  156. 2220 data 127,255,255,255,239,254
  157. 2230 data 127,255,255,255,239,254
  158. 2240 data 127,255,255,255,247,254
  159. 2250 data 127,255,255,255,247,254
  160. 2260 data 127,255,255,255,247,254
  161. 2270 data 127,255,255,255,247,254
  162. 2280 data 127,255,255,255,239,254
  163. 2290 data 127,255,255,255,239,252
  164. 2300 data 127,255,255,255,239,252
  165. 2310 data 127,255,255,255,223,248
  166. 2320 data 63,255,255,255,223,248
  167. 2330 data 63,255,255,255,223,240
  168. 2340 data 63,255,255,255,191,240
  169. 2350 data 63,255,255,255,127,240
  170. 2360 data 31,255,255,255,127,224
  171. 2370 data 31,255,63,254,255,224
  172. 2380 data 15,255,255,254,255,192
  173. 2390 data 15,255,255,249,255,192
  174. 2400 data 7,255,255,247,255,128
  175. 2410 data 7,255,255,255,255,0
  176. 2420 data 3,255,255,255,255,0
  177. 2430 data 1,255,255,255,254,0
  178. 2440 data 1,255,255,255,248,0
  179. 2450 data 0,127,255,255,224,0
  180. 2460 data 0,63,255,255,128,0
  181. 2470 data 0,7,255,254,0,0
  182. 2480 data 0,0,127,224,0,0
  183. 2490 data 27,114,0
  184. 30000 data 12,-1
  185.