home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 66 / 066.d81 / data2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  4.9 KB  |  202 lines
  1. 1510 KEY .BYT 1
  2. 1511 .ASC "[197][206][196]: [211][212][207][208][211][160][208][210][207][199][210][193][205][160][197][216][197][195][213][212][201][207][206]":.BYT 255
  3. 1520 .ASC "[197][206][196]":.BYT 255
  4. 1521 .ASC " 10 [201][206][208][213][212] '[197][206][212][197][210][160][217][207][213][210][160][206][193][205][197]';[206]$":.BYT 141
  5. 1522 .ASC " 20 [208][210][201][206][212][160][206]$":.BYT 141
  6. 1523 .ASC " 30 [197][206][196]"
  7. 1530 .BYT 0
  8. 1540 ;
  9. 1550 .BYT 1
  10. 1551 .ASC "[198][207][210]: [193][211][211][201][199][206][211][160][193][160][214][193][210][201][193][194][204][197][160][212][207][160][193][160][195][207][213][206][212][197][210]"
  11. 1552 .BYT 141,141
  12. 1553 .ASC "[211][197][197] [193][204][211][207]: '[212][207]',[160]'[206][197][216][212]',[160]'[211][212][197][208]'"
  13. 1554 .BYT 255
  14. 1560 .ASC "[198][207][210] VARIABLE = START VALUE"
  15. 1570 .ASC " [212][207] END VALUE [[211][212][197][208]]"
  16. 1580 .ASC " INCREMENT"
  17. 1590 .ASC "...STATEMENTS...[206][197][216][212]"
  18. 1591 .BYT 255
  19. 1592 .ASC " 10 [198][207][210][160][201]=1 [212][207][160]10":.BYT 141
  20. 1593 .ASC "[160]20[160][208][210][201][206][212][160][201]":.BYT 141
  21. 1594 .ASC "[160]30[160][206][197][216][212][160][201]"
  22. 1600 .BYT 0
  23. 1610 ;
  24. 1620 .BYT 1
  25. 1621 .ASC "[206][197][216][212]: [211][208][197][195][201][198][201][197][211][160][212][200][197] [197][206][196][160][207][198][160][193][160][198][207][210]/[206][197][216][212]"
  26. 1622 .BYT 141
  27. 1623 .ASC "      [204][207][207][208]":.BYT 141,141
  28. 1624 .ASC "[211][197][197][160][193][204][211][207]: '[212][207]',[160]'[198][207][210]',[160]'[211][212][197][208]'"
  29. 1625 .BYT 255
  30. 1630 .ASC "[198][207][210] VARIABLE = START VALUE"
  31. 1640 .ASC " [212][207] END VALUE [[211][212][197][208]]"
  32. 1650 .ASC " INCREMENT"
  33. 1660 .ASC "...STATEMENTS...[206][197][216][212]"
  34. 1661 .BYT 255
  35. 1662 .ASC " 10 [198][207][210][160][201]=1 [212][207][160]10":.BYT 141
  36. 1663 .ASC "[160]20[160][208][210][201][206][212][160][201]":.BYT 141
  37. 1664 .ASC "[160]30[160][206][197][216][212][160][201]"
  38. 1670 .BYT 0
  39. 1680 ;
  40. 1690 .BYT 1
  41. 1691 .ASC "[196][193][212][193]: [211][212][207][210][197][211][160][201][206][198][207][210][205][193][212][201][207][206][160][207][206][160][193][160][208][210][207][199][210][193][205]":.BYT 141
  42. 1692 .ASC "[160][160][160][160][160][160][204][201][206][197]":.BYT 141,141
  43. 1693 .ASC "[211][197][197][160][193][204][211][207]: '[210][197][193][196]', '[210][197][211][212][207][210][197]'"
  44. 1694 .BYT 255
  45. 1700 .ASC "[196][193][212][193] LIST OF CONSTANTS"
  46. 1701 .BYT 255
  47. 1702 .ASC " 10 [210][197][193][196] [193]$,[194]$,[193],[194],[195]$,[196]$":.BYT 141
  48. 1704 .ASC " 20 [208][210][201][206][212][160][193]$,[194]$,[193],[194],[195]$,[196]$":.BYT 141
  49. 1705 .ASC " 30 [196][193][212][193] '[207][206][197]','[212][215][207]',1,2":.BYT 141
  50. 1706 .ASC " 40 [196][193][212][193][160][212][200][210][197][197],[198][207][213][210]"
  51. 1710 .BYT 0
  52. 1720 ;
  53. 1730 .BYT 1
  54. 1731 .ASC "[201][206][208][213][212]#:[160][193][204][204][207][215][211][160][212][200][197][160][213][211][197][210][160][212][207][160][210][197][212][210][201][197][214][197]":.BYT 141
  55. 1732 .ASC "[160][160][160][160][160][160][160][160][196][193][212][193][160][198][210][207][205][160][198][201][204][197][211]":.BYT 141,141
  56. 1733 .ASC "[211][197][197][160][193][204][211][207]: '[199][197][212]',[160]'[207][208][197][206]'"
  57. 1734 .BYT 255
  58. 1740 .ASC "[201][206][208][213][212]#FILE NUMBER, VARIABLE"
  59. 1750 .ASC " LIST"
  60. 1751 .BYT 255
  61. 1752 .ASC " 10 [207][208][197][206] 2,8,2,'[212][197][211][212],[211],[210]'":.BYT 141
  62. 1753 .ASC " 20 [201][206][208][213][212]#2, [193]$,[194]$"
  63. 1760 .BYT 0
  64. 1770 ;
  65. 1780 .BYT 1
  66. 1781 .ASC "[201][206][208][213][212]: [193][204][204][207][215][211][160][212][200][197][160][213][211][197][210][160][212][207][160][197][206][212][197][210][160][193] [204][201][206][197]":.BYT 141
  67. 1782 .ASC "[160][160][160][160][160][160][160][207][198][160][196][193][212][193]":.BYT 141,141
  68. 1783 .ASC "[211][197][197][160][193][204][211][207]:[160]'[199][197][212]'"
  69. 1784 .BYT 255
  70. 1790 .ASC "[201][206][208][213][212] ['PROMPT STRING';]
  71. 1800 .[198] " VARIABLE LIST"
  72. 1801 .BYT 255
  73. 1802 .[198] " 10 RIGHT$(null)(null)(null)(null) 'VAL(null)(null)VAL(null)CLOSE(null)(null)(null)(null)CLOSE(null)ATN(null)VAL';(null)$":.BYT 141
  74. 1803 .[198] " 20 (null)(null)RIGHT$(null)(null)CLOSE(null)$"
  75. 1810 .BYT 0
  76. 1820 ;
  77. 1830 .BYT 1
  78. 1831 .[198] "STR$RIGHT$(null): STR$RIGHT$(null)VAL(null)(null)RIGHT$(null)(null)(null)CLOSE(RIGHT$(null)RIGHT$(null)RIGHT$ATN(null)RIGHT$(null)VAL(null))CLOSEATN(null)CLOSEATN(null)(null)ATN(null)"
  79. 1832 .BYT 255
  80. 1840 .[198] "STR$RIGHT$(null) VARIABLE(SUBSCRIPTS)"
  81. 1850 .[198] "[,VARIABLE(SUBSCRIPTS)]..."
  82. 1851 .BYT 255
  83. 1852 .[198] " 10 STR$RIGHT$(null)CLOSEATN$(10), PEEK(100,2)":.BYT 141
  84. 1853 .[198] " 20 STR$RIGHT$(null) LEN%(1000)"
  85. 1860 .BYT 0
  86. 1870 ;
  87. 1880 .BYT 1
  88. 1881 .[198] "(null)VALATNSTR$: (null)VALATN(null)LENLEFT$VAL(null)CLOSE(null)LEFT$(null)(null)(null)CHR$LEFT$CLOSE(null)LEFT$VALCLOSE(null)(null)(null)CHR$(null)ATN(null)CLOSEASC(null)(null)":.BYT 141
  89. 1882 .[198] "CLOSECLOSECLOSECLOSECLOSECLOSESTR$ATN(null)ATNCLOSE(null)RIGHT$(null)VAL(null)":.BYT 141,141
  90. 1883 .[198] "(null)VALVALCLOSEATN(null)(null)(null): 'STR$ATN(null)ATN',CLOSE'(null)VAL(null)(null)(null)(null)VAL'"
  91. 1884 .BYT 255
  92. 1890 .[198] "(null)VALATNSTR$ VARIABLE LIST"
  93. 1891 .BYT 255
  94. 1892 .[198] " 10 (null)VALATNSTR$ ATN$,PEEK$,ATN,PEEK,LEN$,STR$$":.BYT 141
  95. 1894 .[198] " 20 (null)(null)RIGHT$(null)(null)CLOSEATN$,PEEK$,ATN,PEEK,LEN$,STR$$":.BYT 141
  96. 1895 .[198] " 30 STR$ATN(null)ATN '(null)(null)VAL','(null)(null)(null)',1,2":.BYT 141
  97. 1896 .[198] " 40 STR$ATN(null)ATNCLOSE(null)LEFT$(null)VALVAL,ASC(null)(null)(null)"
  98. 1900 .BYT 0
  99. 1910 ;
  100. 1920 .BYT 1
  101. 1921 .[198] "(null)VAL(null): ATN(null)(null)RIGHT$CHR$(null)(null)CLOSEATNCLOSE(null)ATN(null)(null)VALCLOSE(null)(null)CLOSEATNCLOSE(null)ATN(null)RIGHT$ATNPEEK(null)VAL":.BYT 141
  102. 1922 .[198] "CLOSECLOSECLOSECLOSECLOSE((null)(null)(null)CLOSE(null)VALVALSTR$VALSTR$)"
  103. 1923 .BYT 255
  104. 1930 .[198] "[(null)VAL(null)]VARIABLE = EXPRESSION"
  105. 1931 .BYT 255
  106. 1932 .[198] " 10 (null)VAL(null)CLOSEATN=25":.BYT 141
  107. 1933 .[198] " 20 PEEK=12.4":.BYT 141
  108. 1934 .[198] " 30 (null)VAL(null) LEN$='(null)VAL(null)(null)'"
  109. 1940 .BYT 0
  110. 1950 ;
  111. 1960 .BYT 1
  112. 1961 .[198] "CHR$(null)(null)(null): (null)(null)ATN(null)(null)ASCVAL(null)(null)CLOSELEN(null)(null)(null)(null)(null)(null)CLOSE(null)ASCCLOSE(null)LEFT$VALCLOSE(null)(null)(null)CHR$(null)ATN(null)":.BYT 141
  113. 1962 .[198] "CLOSECLOSECLOSECLOSECLOSECLOSE(null)(null)CLOSEATNCLOSE(null)(null)VALLENRIGHT$ASCRIGHT$VALSTR$CLOSE(null)RIGHT$(null)VAL"
  114. 1963 .BYT 255
  115. 1970 .[198] "CHR$(null)(null)(null) LINE #"
  116. 1971 .BYT 255
  117. 1972 .[198] " 10 (null)(null)RIGHT$(null)(null) '(null)RIGHT$(null)VAL 10'":.BYT 141
  118. 1973 .[198] " 20 CHR$(null)(null)(null)CLOSE40":.BYT 141
  119. 1974 .[198] " 30 (null)(null)RIGHT$(null)(null)CLOSE'(null)RIGHT$(null)VALCLOSE30'":.BYT 141
  120. 1975 .[198] " 40 (null)(null)RIGHT$(null)(null)CLOSE'(null)RIGHT$(null)VALCLOSE40'"
  121. 1980 .BYT 0
  122. 1990 ;
  123. 2000 .BYT 1
  124. 2001 .[198] "(null)(null)(null): LEN(null)VALATN(null)(null)CLOSE(null)ATN(null)RIGHT$ATNPEEK(null)VAL(null)CLOSEATN(null)STR$CLOSE(null)(null)ATN(null)(null)(null)CLOSEATN":.BYT 141
  125. 2002 .[198] "CLOSECLOSECLOSECLOSECLOSE(null)(null)(null)CHR$(null)ATN(null)"
  126. 2003 .BYT 255
  127. 2010 .[198] "(null)(null)(null) [LINE #]
  128. 2011 .BYT 255
  129. 2012 .ASC " [210][213][206]":.BYT 141
  130. 2013 .ASC " [210][213][206] 10"
  131. 2020 .BYT 0
  132. 2030 ;
  133. 2040 .BYT 1
  134. 2041 .ASC "[201][198]: [211][197][212][211][160][213][208][160][193][206][160][197][216][208][210][197][211][211][201][207][206][160][198][207][210][160][193]":.BYT 141
  135. 2042 .ASC "[160][160][160][160][212][210][213][197]/[198][193][204][211][197][160][197][214][193][204][213][193][212][201][207][206]"
  136. 2043 .BYT 141,141
  137. 2044 .ASC "[211][197][197][160][193][204][211][207]:[160]'[212][200][197][206]'"
  138. 2045 .BYT 255
  139. 2050 .ASC "[201][198] EXPRESSION [212][200][197][206] STATEMENT "
  140. 2051 .ASC "[:STATEMENT...]"
  141. 2052 .BYT 255
  142. 2053 .ASC " 10 [201][198] [193]=[194] [212][200][197][206] [208][210][201][206][212] '[193]=[194]'":.BYT 141
  143. 2054 .ASC "[160]20 [201][198][160][193]>[194] [212][200][197][206][160][208][210][201][206][212][160]'[193]>[194]':[208][210][201][206][212][160][193],[194]"
  144. 2060 .BYT 0
  145. 2070 ;
  146. 2080 .BYT 1
  147. 2081 .ASC "[210][197][211][212][207][210][197]: [210][197][211][197][212][211][160][212][200][197][160][196][193][212][193][160][208][207][201][206][212][197][210][160][212][207]":.BYT 141
  148. 2082 .ASC "[160][160][160][160][160][160][160][160][160][212][200][197][160][198][201][210][211][212][160][196][193][212][193][160][211][212][193][212][197][205][197][206][212]":.BYT 141,141
  149. 2083 .ASC "[211][197][197][160][193][204][211][207]: '[196][193][212][193]',[160]'[210][197][193][196]'"
  150. 2084 .BYT 255
  151. 2090 .ASC "[210][197][211][212][207][210][197]"
  152. 2091 .BYT 255
  153. 2092 .ASC " 10 [210][197][193][196] [193],[194],[195]:[208][210][201][206][212] [193],[194],[195]":.BYT 141
  154. 2094 .ASC " 20 [210][197][211][212][207][210][197]":.BYT 141
  155. 2095 .ASC " 30 [210][197][193][196][160][196],[197],[198]:[208][210][201][206][212] [196],[197],[198]":.BYT 141
  156. 2097 .ASC " 40 [196][193][212][193] 1,2,3"
  157. 2100 .BYT 0
  158. 2110 ;
  159. 2120 .BYT 1
  160. 2121 .ASC "[199][207][211][213][194]: [199][207][160][212][207][160][212][200][197][160][211][208][197][195][201][198][201][197][196][160][211][213][194][210][207][213][212][201][206][197]":.BYT 141,141
  161. 2122 .ASC "[211][197][197][160][193][204][211][207]: '[210][197][212][213][210][206]'"
  162. 2123 .BYT 255
  163. 2130 .ASC "[199][207][211][213][194] LINE #"
  164. 2131 .BYT 255
  165. 2132 .ASC " 10 [199][207][211][213][194][160]50":.BYT 141
  166. 2133 .ASC " 20 [197][206][196]":.BYT 141
  167. 2134 .ASC " 50 [208][210][201][206][212][160]'[204][201][206][197][160]50'":.BYT 141
  168. 2135 .ASC " 60 [210][197][212][213][210][206]"
  169. 2150 .BYT 0
  170. 2160 ;
  171. 2170 .BYT 1
  172. 2171 .ASC "[210][197][212][213][210][206]: [210][197][212][213][210][206][211][160][197][216][197][195][213][212][201][207][206][160][212][207][160][212][200][197][160][204][201][206][197]":.BYT 141
  173. 2172 .ASC "[160][160][160][160][160][160][160][160][198][207][204][204][207][215][201][206][199][160][212][200][197][160][195][193][204][204][201][206][199][160][199][207][211][213][194]":.BYT 141,141
  174. 2173 .ASC "[211][197][197][160][193][204][211][207]:[160]'[199][207][211][213][194]'"
  175. 2174 .BYT 255
  176. 2190 .ASC "[210][197][212][213][210][206]"
  177. 2191 .BYT 255
  178. 2192 .ASC " 10 [199][207][211][213][194][160]50":.BYT 141
  179. 2193 .ASC " 20 [197][206][196]":.BYT 141
  180. 2194 .ASC " 50 [208][210][201][206][212][160]'[204][201][206][197][160]50'":.BYT 141
  181. 2195 .ASC " 60 [210][197][212][213][210][206]"
  182. 2200 .BYT 0
  183. 2210 ;
  184. 2220 .BYT 1
  185. 2221 .ASC "[210][197][205]: [195][193][213][211][197][211][160][212][200][197][160][195][207][205][208][213][212][197][210][160][212][207][160][201][199][206][207][210][197][160][212][200][197]":.BYT 141
  186. 2222 .ASC "[160][160][160][160][160][210][197][211][212][160][207][198][160][212][200][197][160][204][201][206][197]"
  187. 2223 .BYT 255
  188. 2230 .ASC "[210][197][205] MESSAGE"
  189. 2231 .BYT 255
  190. 2232 .ASC " 10 [210][197][205] [212][200][201][211][160][205][197][211][211][193][199][197][160][193][198][198][197][195][212][211][160][206][207][212][200][201][206][199]"
  191. 2240 .BYT 0
  192. 2250 ;
  193. 2260 .BYT 1
  194. 2261 .ASC "[211][212][207][208]: [195][193][213][211][197][211][160][208][210][207][199][210][193][205][160][197][216][197][195][213][212][201][207][206][160][212][207]":.BYT 141
  195. 2262 .ASC "      [195][197][193][211][197]"
  196. 2263 .BYT 255
  197. 2270 .ASC "[211][212][207][208]"
  198. 2275 .BYT 255
  199. 2276 .ASC " 100 [211][212][207][208]"
  200. 2280 .BYT 0
  201. 2290 ;
  202.