festival.edmaven.com:80

Linux b747.shapiroconsult.com 3.10.0-1160.119.1.vz7.224.4 #1 SMP Mon Sep 30 15:36:27 MSK 2024 x86_64
Apache
173.231.212.80

File Name : basic.py

# An implementation of Dartmouth BASIC (1964)
#

import sys
sys.path.insert(0,"../..")

if sys.version_info[0] >= 3:
    raw_input = input

import basiclex
import basparse
import basinterp

# If a filename has been specified, we try to run it.
# If a runtime error occurs, we bail out and enter
# interactive mode below
if len(sys.argv) == 2:
    data = open(sys.argv[1]).read()
    prog = basparse.parse(data)
    if not prog: raise SystemExit
    b = basinterp.BasicInterpreter(prog)
    try:
        b.run()
        raise SystemExit
    except RuntimeError:
        pass

else:
    b = basinterp.BasicInterpreter({})

# Interactive mode.  This incrementally adds/deletes statements
# from the program stored in the BasicInterpreter object.  In
# addition, special commands 'NEW','LIST',and 'RUN' are added.
# Specifying a line number with no code deletes that line from
# the program.

while 1:
    try:
        line = raw_input("[BASIC] ")
    except EOFError:
        raise SystemExit
    if not line: continue
    line += "\n"
    prog = basparse.parse(line)
    if not prog: continue

keys = list(prog)
    if keys[0] > 0:
         b.add_statements(prog)
    else:
         stat = prog[keys[0]]
         if stat[0] == 'RUN':
             try:
                 b.run()
             except RuntimeError:
                 pass
         elif stat[0] == 'LIST':
             b.list()
         elif stat[0] == 'BLANK':
             b.del_line(stat[1])
         elif stat[0] == 'NEW':
             b.new()

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2019-01-03 06:15:09
..	dir	-	root/root	0755	2019-01-03 06:15:09
README	text/plain	2.45 KB	root/root	0644	2011-02-18 03:52:28
basic.py	text/x-python	1.5 KB	root/root	0644	2011-02-18 03:52:28
basiclex.py	text/x-python	1.15 KB	root/root	0644	2011-02-18 03:52:28
basiclog.py	text/x-python	1.65 KB	root/root	0644	2011-02-18 03:52:28
basinterp.py	text/x-python	16.88 KB	root/root	0644	2011-02-18 03:52:28
basparse.py	text/x-python	8.69 KB	root/root	0644	2011-02-18 03:52:28
dim.bas	text/plain	224 B	root/root	0644	2011-02-18 03:52:28
func.bas	text/plain	73 B	root/root	0644	2011-02-18 03:52:28
gcd.bas	text/plain	359 B	root/root	0644	2011-02-18 03:52:28
gosub.bas	text/plain	216 B	root/root	0644	2011-02-18 03:52:28
hello.bas	text/plain	57 B	root/root	0644	2011-02-18 03:52:28
linear.bas	text/plain	420 B	root/root	0644	2011-02-18 03:52:28
maxsin.bas	text/plain	217 B	root/root	0644	2019-01-03 06:15:09
powers.bas	text/plain	268 B	root/root	0644	2011-02-18 03:52:28
rand.bas	text/plain	60 B	root/root	0644	2011-02-18 03:52:28
sales.bas	text/plain	375 B	root/root	0644	2019-01-03 06:15:09
sears.bas	text/plain	481 B	root/root	0644	2011-02-18 03:52:28
sqrt1.bas	text/plain	78 B	root/root	0644	2019-01-03 06:15:09
sqrt2.bas	text/plain	56 B	root/root	0644	2011-02-18 03:52:28