1510 KEY .BYT 1
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
1520 .ASC "[197][206][196]":.BYT 255
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
1522 .ASC " 20 [208][210][201][206][212][160][206]$":.BYT 141
1523 .ASC " 30 [197][206][196]"
1530 .BYT 0
1540 ;
1550 .BYT 1
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]"
1552 .BYT 141,141
1553 .ASC "[211][197][197] [193][204][211][207]: '[212][207]',[160]'[206][197][216][212]',[160]'[211][212][197][208]'"
1554 .BYT 255
1560 .ASC "[198][207][210] VARIABLE = START VALUE"
1570 .ASC " [212][207] END VALUE [[211][212][197][208]]"
1580 .ASC " INCREMENT"
1590 .ASC "...STATEMENTS...[206][197][216][212]"
1591 .BYT 255
1592 .ASC " 10 [198][207][210][160][201]=1 [212][207][160]10":.BYT 141
1593 .ASC "[160]20[160][208][210][201][206][212][160][201]":.BYT 141
1594 .ASC "[160]30[160][206][197][216][212][160][201]"
1600 .BYT 0
1610 ;
1620 .BYT 1
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]"
1622 .BYT 141
1623 .ASC "      [204][207][207][208]":.BYT 141,141
1624 .ASC "[211][197][197][160][193][204][211][207]: '[212][207]',[160]'[198][207][210]',[160]'[211][212][197][208]'"
1625 .BYT 255
1630 .ASC "[198][207][210] VARIABLE = START VALUE"
1640 .ASC " [212][207] END VALUE [[211][212][197][208]]"
1650 .ASC " INCREMENT"
1660 .ASC "...STATEMENTS...[206][197][216][212]"
1661 .BYT 255
1662 .ASC " 10 [198][207][210][160][201]=1 [212][207][160]10":.BYT 141
1663 .ASC "[160]20[160][208][210][201][206][212][160][201]":.BYT 141
1664 .ASC "[160]30[160][206][197][216][212][160][201]"
1670 .BYT 0
1680 ;
1690 .BYT 1
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
1692 .ASC "[160][160][160][160][160][160][204][201][206][197]":.BYT 141,141
1693 .ASC "[211][197][197][160][193][204][211][207]: '[210][197][193][196]', '[210][197][211][212][207][210][197]'"
1694 .BYT 255
1700 .ASC "[196][193][212][193] LIST OF CONSTANTS"
1701 .BYT 255
1702 .ASC " 10 [210][197][193][196] [193]$,[194]$,[193],[194],[195]$,[196]$":.BYT 141
1704 .ASC " 20 [208][210][201][206][212][160][193]$,[194]$,[193],[194],[195]$,[196]$":.BYT 141
1705 .ASC " 30 [196][193][212][193] '[207][206][197]','[212][215][207]',1,2":.BYT 141
1706 .ASC " 40 [196][193][212][193][160][212][200][210][197][197],[198][207][213][210]"
1710 .BYT 0
1720 ;
1730 .BYT 1
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
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
1733 .ASC "[211][197][197][160][193][204][211][207]: '[199][197][212]',[160]'[207][208][197][206]'"
1734 .BYT 255
1740 .ASC "[201][206][208][213][212]#FILE NUMBER, VARIABLE"
1750 .ASC " LIST"
1751 .BYT 255
1752 .ASC " 10 [207][208][197][206] 2,8,2,'[212][197][211][212],[211],[210]'":.BYT 141
1753 .ASC " 20 [201][206][208][213][212]#2, [193]$,[194]$"
1760 .BYT 0
1770 ;
1780 .BYT 1
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
1782 .ASC "[160][160][160][160][160][160][160][207][198][160][196][193][212][193]":.BYT 141,141
1783 .ASC "[211][197][197][160][193][204][211][207]:[160]'[199][197][212]'"
1784 .BYT 255
1790 .ASC "[201][206][208][213][212] ['PROMPT STRING';]
1800 .[198] " VARIABLE LIST"
1801 .BYT 255
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
1803 .[198] " 20 (null)(null)RIGHT$(null)(null)CLOSE(null)$"
1810 .BYT 0
1820 ;
1830 .BYT 1
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)"
1832 .BYT 255
1840 .[198] "STR$RIGHT$(null) VARIABLE(SUBSCRIPTS)"
1850 .[198] "[,VARIABLE(SUBSCRIPTS)]..."
1851 .BYT 255
1852 .[198] " 10 STR$RIGHT$(null)CLOSEATN$(10), PEEK(100,2)":.BYT 141
1853 .[198] " 20 STR$RIGHT$(null) LEN%(1000)"
1860 .BYT 0
1870 ;
1880 .BYT 1
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
1882 .[198] "CLOSECLOSECLOSECLOSECLOSECLOSESTR$ATN(null)ATNCLOSE(null)RIGHT$(null)VAL(null)":.BYT 141,141
1883 .[198] "(null)VALVALCLOSEATN(null)(null)(null): 'STR$ATN(null)ATN',CLOSE'(null)VAL(null)(null)(null)(null)VAL'"
1884 .BYT 255
1890 .[198] "(null)VALATNSTR$ VARIABLE LIST"
1891 .BYT 255
1892 .[198] " 10 (null)VALATNSTR$ ATN$,PEEK$,ATN,PEEK,LEN$,STR$$":.BYT 141
1894 .[198] " 20 (null)(null)RIGHT$(null)(null)CLOSEATN$,PEEK$,ATN,PEEK,LEN$,STR$$":.BYT 141
1895 .[198] " 30 STR$ATN(null)ATN '(null)(null)VAL','(null)(null)(null)',1,2":.BYT 141
1896 .[198] " 40 STR$ATN(null)ATNCLOSE(null)LEFT$(null)VALVAL,ASC(null)(null)(null)"
1900 .BYT 0
1910 ;
1920 .BYT 1
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
1922 .[198] "CLOSECLOSECLOSECLOSECLOSE((null)(null)(null)CLOSE(null)VALVALSTR$VALSTR$)"
1923 .BYT 255
1930 .[198] "[(null)VAL(null)]VARIABLE = EXPRESSION"
1931 .BYT 255
1932 .[198] " 10 (null)VAL(null)CLOSEATN=25":.BYT 141
1933 .[198] " 20 PEEK=12.4":.BYT 141
1934 .[198] " 30 (null)VAL(null) LEN$='(null)VAL(null)(null)'"
1940 .BYT 0
1950 ;
1960 .BYT 1
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
1962 .[198] "CLOSECLOSECLOSECLOSECLOSECLOSE(null)(null)CLOSEATNCLOSE(null)(null)VALLENRIGHT$ASCRIGHT$VALSTR$CLOSE(null)RIGHT$(null)VAL"
1963 .BYT 255
1970 .[198] "CHR$(null)(null)(null) LINE #"
1971 .BYT 255
1972 .[198] " 10 (null)(null)RIGHT$(null)(null) '(null)RIGHT$(null)VAL 10'":.BYT 141
1973 .[198] " 20 CHR$(null)(null)(null)CLOSE40":.BYT 141
1974 .[198] " 30 (null)(null)RIGHT$(null)(null)CLOSE'(null)RIGHT$(null)VALCLOSE30'":.BYT 141
1975 .[198] " 40 (null)(null)RIGHT$(null)(null)CLOSE'(null)RIGHT$(null)VALCLOSE40'"
1980 .BYT 0
1990 ;
2000 .BYT 1
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
2002 .[198] "CLOSECLOSECLOSECLOSECLOSE(null)(null)(null)CHR$(null)ATN(null)"
2003 .BYT 255
2010 .[198] "(null)(null)(null) [LINE #]
2011 .BYT 255
2012 .ASC " [210][213][206]":.BYT 141
2013 .ASC " [210][213][206] 10"
2020 .BYT 0
2030 ;
2040 .BYT 1
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
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]"
2043 .BYT 141,141
2044 .ASC "[211][197][197][160][193][204][211][207]:[160]'[212][200][197][206]'"
2045 .BYT 255
2050 .ASC "[201][198] EXPRESSION [212][200][197][206] STATEMENT "
2051 .ASC "[:STATEMENT...]"
2052 .BYT 255
2053 .ASC " 10 [201][198] [193]=[194] [212][200][197][206] [208][210][201][206][212] '[193]=[194]'":.BYT 141
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]"
2060 .BYT 0
2070 ;
2080 .BYT 1
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
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
2083 .ASC "[211][197][197][160][193][204][211][207]: '[196][193][212][193]',[160]'[210][197][193][196]'"
2084 .BYT 255
2090 .ASC "[210][197][211][212][207][210][197]"
2091 .BYT 255
2092 .ASC " 10 [210][197][193][196] [193],[194],[195]:[208][210][201][206][212] [193],[194],[195]":.BYT 141
2094 .ASC " 20 [210][197][211][212][207][210][197]":.BYT 141
2095 .ASC " 30 [210][197][193][196][160][196],[197],[198]:[208][210][201][206][212] [196],[197],[198]":.BYT 141
2097 .ASC " 40 [196][193][212][193] 1,2,3"
2100 .BYT 0
2110 ;
2120 .BYT 1
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
2122 .ASC "[211][197][197][160][193][204][211][207]: '[210][197][212][213][210][206]'"
2123 .BYT 255
2130 .ASC "[199][207][211][213][194] LINE #"
2131 .BYT 255
2132 .ASC " 10 [199][207][211][213][194][160]50":.BYT 141
2133 .ASC " 20 [197][206][196]":.BYT 141
2134 .ASC " 50 [208][210][201][206][212][160]'[204][201][206][197][160]50'":.BYT 141
2135 .ASC " 60 [210][197][212][213][210][206]"
2150 .BYT 0
2160 ;
2170 .BYT 1
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
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
2173 .ASC "[211][197][197][160][193][204][211][207]:[160]'[199][207][211][213][194]'"
2174 .BYT 255
2190 .ASC "[210][197][212][213][210][206]"
2191 .BYT 255
2192 .ASC " 10 [199][207][211][213][194][160]50":.BYT 141
2193 .ASC " 20 [197][206][196]":.BYT 141
2194 .ASC " 50 [208][210][201][206][212][160]'[204][201][206][197][160]50'":.BYT 141
2195 .ASC " 60 [210][197][212][213][210][206]"
2200 .BYT 0
2210 ;
2220 .BYT 1
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
2222 .ASC "[160][160][160][160][160][210][197][211][212][160][207][198][160][212][200][197][160][204][201][206][197]"
2223 .BYT 255
2230 .ASC "[210][197][205] MESSAGE"
2231 .BYT 255
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]"
2240 .BYT 0
2250 ;
2260 .BYT 1
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
2262 .ASC "      [195][197][193][211][197]"
2263 .BYT 255
2270 .ASC "[211][212][207][208]"
2275 .BYT 255
2276 .ASC " 100 [211][212][207][208]"
2280 .BYT 0
2290 ;