home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 66 / 066.d81 / data2 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  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